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ABSOLUTE  ADDRESSES  FOR  UPDA 

R OOOO 5 
T 000  1 

D0315  REF  1 

0002  PFF  1 

000 1 REF  1 

oer>4  REF  1 

00,',<?  R FF  1 


PROGRAM 

ECACP,  MNEMONIC 

0 1 50  1 1 =EC ADR  UPSVFLAG 

03606  1 - ECADR  XSMD 

C 173 1 0 =ECADR  REFSMMAT 

03a  2 3 0 =ECADR  DELVSLV 

02020  1 = ECADR  RLS 


9:  12  OCT.  2 1 » 1Q7C 


( MA  I N ) 


PAGE 


USER'S  PAGE  NO.  1 EG 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT . 21,1970 


<MA  IN 


PAGE 


ASSEMBLY  AND  OPERATION  INFORMATION 


USF  R • S PAGE  NO. 


f: 


UP'  1 THIS  LGC  PROGRAM  IS  INTENDED  FOR  LSE  IN  THE  L M DURING  THE  M ANN  E C LUNAR  LANDING  MISSION  OR  ANY  SUBSET  THE9  EOF  • 
R9^9j2  Tl-F  DETAILS  OF  IMPLEMENTATION  ARE  SPECIFIED  IN  REPORT  R-567,  AS  AMENDED. 


> 0000 2 5 
ROOO-3 

ROOD'  ?5 


GU 

FOR  MANNED 


ICANCE  SYSTEM  OPERATIONS  PLAN 
LM  EARTH  ORBITAL  AND  LUNAR  MISSIONS 
USING  PROGRAM  LUMINARY 


IOCf>  4 THIS  PROGRAM  AND  R-567  HAVE  BEEN  PREPARED  BY  THE  INSTRUMENTATION  LABORATORY,  MASSACHUSETTS  INSTITUTE  OF 
R)0:»''c  TECHNOLOGY  7S  CAMBRIDGE  PARKWAY,  CAMBRIDGE,  MASSACHUSETTS  UNDER  PROJECT55-23  8-7?  , SPONSORED  BY  THE  MANNED 
< K i A SPACFCPAFT  CENTER  CF  THF  NATIONAL  AERONAUTICS  AND  SPACE  ADMINISTRATION,  CONTRACT  NAS  R-4P65. 


ROD.  7 THIS  PROGRAM  IS  A VERSION  OF  LUMINARY  FOR  DEVELOPING  A NEW  VARIABLE  GUIDANCE  PERIOD  SERVICER. 
R 00'  1 TABLE  CF  LOG  CARDS 


R00.M5  ARSOl  UTE  ADDPE  SSE  S FOR  UPDATE  PROGRAM 
R90D?  ASSEMBLY  AND  OPERATION  INFORMATION 
ROOC?  TAGS  FOR  RELATIVE  SETLCC  AND  eLANK  BANK  CARDS 

R 0005  CONTROILED  CONSTANTS 

R0006  INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 

R00''7  FLAG  WORD  ASSIGNMENTS 

ROOD 8 SUBROUTINE  CALLS 


ROOOF 
RCP  m 
R3C11 


TABLE  OF  SUBROUTINE  LCG  SECT  TENS 
ZEPA  SF 

ERASARL  F ASS  IGNMFNT  S 


* 0012 
R001  3 

RO.O.H 

1 OC 1 5 
] 1 ( 
icr  17 
ROD  IB 
R3019 
* 0020 
R0O21 
R0022 
R 0023 
R3024 
R0025 
ROC  26 
RD027 
ROD  28 
ROD  29 
RD  3 3 D 
R 003 1 


INTERRUPT  LEAD  INS 
T4RUPT  PFOCRAM 
RCS  r AT LUPE  MONITOR 
OOWNL  INK  LISTS 
AGS  INITIALIZATION 
FRF  SH  START  AND  RESTART 
RESTART  TABLES 
ACTMARK 

FXTENDED  VERBS 
PINBALL  NOUN  TABLES 
LEM  GECMFTPY 

IMU  COMPENSATION  PACKAGE 
R63 

ATTITUDE  MANELVER  ROUTINE 
GIMBAL  LOCK  AVOIDANCE 
KALCMANU  STEEP  ING 
SYSTEM  TEST  STANDARD  LEAD  INS 
IMU  PERFORMANCE  TESTS  2 
IMU  PERFORM  AMCE  TESTS  4 
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ASSEMBLY  AND  OPERATION  INFGRMATICN 


R0032 

* 0033 
RDD34 
R003B 

* 00  36 
ROD  37 
R Of,  3R 
*00  30 
RDD4  ' 
R 004  2 
R0043 
R0044 

* 0045 
RDD46 
R 0047 

* 0040 
R3D53 
R 00  5 1 
R005? 
RDD53 

* 0054 
R0O55 
R 0056 

* 0057 
ROD  58 
R 00  59 
R0060 
IOD61 

* 0062 
R0063 
R 0064 
l 0066 
RD  066 
ROT  67 
R0068 
RDD69 

* 0070 
R0071 
R0072 

* 0C73 
RDD74 
R 0075 
*0076 
RDD77 
R 00  78 
R0O7O 
R008O 

* 0081 
R008? 
R0083 


PINBALL  GAMES  BUTTONS  AND  LIGHTS 
P.60  ,R6  2 

S~ BAND  ANTENNA  FOR  LM 
ZLFMP2DS 

RADAR  LEADIN  ROUTINES 
P 20-P 2 5 

LEMP30S 

P30.P37 

P3  2-P35,  P72-P75 

KISSING 

GROUND  TRACKING  DETERMINATION  PROGRAM  - P2 1 
P34-P35,  P74-P75 

R31 
P 76 
R30 

ZFLY 

BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 
P40-P47 

THE  LUNAR  LANDING 
THROTTLF  CONTROL  ROUTINES 
LUNAR  LANDING  GUICANCE  EQUATIONS 
P 70-P71 
P 1 2 

ASCENT  GUICANCE 
SERV  ICER 

LANDING  ANALOG  CISPLAYS 
F I NOG  D UW  - GUIDAP  INTERFACE 

L EMP50S 

P51-P53 

LUNAR  AND  SOLAR  EPHEMER  I DE  S SUBROUTINES 

SKI PPER 

DCWN-TELENETRY  FRCGRAM 
INTER-BANK  COMMUNICATION 
I NTERPPET  ER 

FIXED-FIXED  CONSTANT  PCOL 
INTERPRETIVE  CONSTANTS 
SINGLE  PRECISION  SUBROUTINES 
E XECUTI  VE 
W A I T L 1ST 

I ATI  TUBE  LONGITUDE  SUBROUTINES 
PLANETARY  INERTIAL  ORIENTATION 
MEASUREMENT  INCORPORATION 
CONIC  SUBROUTINES 
INTEGRATION  INITIALIZATION 
ORBITAL  INTEGRATION 
INFLIGHT  ALIGN  NF  NT  ROUTINES 
PCWEREC  FL  IGFT  SUBROUTINES 
T I ME  CF  FREE  FALL 
AGC  BLOCK  TWO  SELF-CHECK 
PHASE  TABLE  MAINTENANCE 
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L 

ASSEMBLY  AND  OPE  RATI  C N INFORMATION 

R DOB  A 

R 0085 
> 

RDDR7 

ROORfl 

R00°9 

RDD90 
l 0091 
R0092 
R00°3 
? 0094 
RDTRS 

R 0096 

T 0097 
RDD93 

R 0099 

1 1 

RO 10 1 
' I l 

RFSTARTS  ROUTINE 

I MU  MODF  SWITCHING  ROUTINES 
KEYRIPT,  UPRLPT 

DISPLAY  INTERFACE  ROUTINES 
SERVICF  R CUT  TNES 

ALARM  AND  AB  CRT 

J P CAT  E PROGRAM 

RTB  CP  CODES 

ZLMDAP  1 

TA-RIJPT  PROGRAMS 

DAP  INTERFACE  StePCUTINFS 
DAPICLER  PROGRAM 

P-AXIS  RCS  AUTOPILOT 

3 ,R-  A XI  S RCS  AUTOPILOT 

TJET  LAW 

KALMAN  FILTER 

TRIM  GIMRAL  CCNTPCL  SYSTEM 

AOSTASK  AND  AOSJOR 

SPS  BACK-UF  RCS  CONTROL 

' 1 i 
ROl'^A 

1 01  r> 
RD1D* 
ROIC  7 
R0108 
Rll^l 

1 "110 

R ''  1 1 1 

R 0 1 1 2 

SYMBOL  TABLE  LISTING 

UNREFERENCED  SYMBOL  LISTING 

ERASABLE  G EQUALS  C P C S S- RE F ER ENC E TABLF 
SUMMARY  OF  SYMBOL  TABLE  LISTINGS 

MEMORY  TYPE  G AVAILABL  ITY  DISPLAY 

COUNT  TABLE 

PARAGRAPHS  GENERATED  FOR  THIS  ASSFMBLY 
OCTAL  LISTING 

OCCUPIED  LOCATIONS  TABLE 

SUEROS  CALLEC  G PROGRAM  STATUS 
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L ASSFMBLY  AND  OPERATION  INFORMATION 

P0113  VERB  LIST  FOR  LUMINARY 

3 0 1 L 4 REGULAR  VERBS 


R r ■ 1 17 
RD118 
R C 1 1 9 
RO  120 
RD  1 2 1 
* 0122 
RD123 
ROl  24 
30125 
RO  1 26 
RO  127 
RO  128 
RO  129 
3 0130 
R'131 
ROl  32 
3 l 133 
RD  134 
ROl  35 
RO  136 
RD  1 3 7 
3 0138 
R'.  139 

RPl4(' 
3 0141 
RD  142 
RO  143 
R 0 144 
R?  145 
3 >.146 
RO  147 
R 0 1 4 8 
3 0149 
RD  150 
• 1 51 

RO  162 
ROl  53 
3 9154 


Cl  DISPLAY  OCTAL  COMP 
C 2 D I SPLAY  OC  TAL  CCMP 
0 3 DISPLAY  OCTAL  COMP 
04  01  SPLAY  OCTAL  CCMP 

0 5 D I SPLA  Y OC  TAL  COMP 
C6  DISPLAY  CFCIMAL  IN 
C 7 D I SPLAY  DP  DEC  I PAL 
0 8 

C 9 
10 

11  MONITOR  OCTAL  COMP 

12  MCM  TOR  OCTAL  CCMP 

1 3 MON  ITOR  OC  TAL  COMP 

1 4 MONITOR  OCTAL  COMP 

15  MONITOR  OCTAL  CCMP 

16  MON  ITOR  DFC IMAL  IN 

17  MCM  T OR  DP  DECIMAL 


1 IN  Rl 

2 IN  R1 

3 IN  R 1 

1 ,?  IN  PI  ,R2 
1 »2  ,3  IN  Rl  ,R2»R3 
R 1 OR  R 1,  R 2 OR  R 1,  R 2,R  3 
I N Rl , R2  (T  EST  ONLY  1 


1 IN  R 1 

2 IN  Rl 

3 IN  P.  1 

1,2  IN  R 1,  R2 
1 ,2  ,3  IN  Rl  , R2  , R3 
Rl  OR  R1,R2  OR  R1,R2  ,R3 
IN  Rl,  R2  (TEST  ONL  Y) 


18 

19 

2C 

21 

22 

23 

24 

25 

26 
27 
2 8 
2S 


LOAD  COMPONENT  1 INTO  Rl 
LOAC  COMPONENT  2 INTO  R2 
LOAD  COMPONENT  3 INTO  R3 
LOAD  COMPONENT  1,2  INTO  R1,R2 
LOAD  COMPONENT  1,2,3  INTO  R1,R2,r3 

D I S PL  AY  F IX  ED  M EMORY 


3 1 REQUEST  EXECUTIVE 

31  REOUF  ST  HA  I T LI  ST 

32  RFCYCLE  PROGRAM 

33  PROCEED  WITHOJT  DS  KY  INPUTS 
? 4 TERMINATE  FUNCTION 

36  T EST  L IGHTS 

36  RF  CUE  ST  FPESH  START 

37  CHANGE  PROGRAM  (MAJOR  MCD  E ) 

38 

39 
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POl 55  EXTFNDFD  VERBS 


PAGE 
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R"15« 
R 159 

POlbO 
10161 
R " 162 
R 0 1 6 3 
1 • 16  A 
R'1 16  5 
R’166 
RO  167 
R9H8 
1 0169 
RfJ  1 70 
R0171 
1 0172 
RD173 
RO  175 

R ^ 1 7 5 
R?176 
1 177 

ROl  78 
ROl  70 
1 018.0 
R'1  181 
R 0 182 
R0181 
ROl  08 
1 0185 
ROl  86 
R(  1 87 
< r'l8fl 
R 0 1 0 9 
R 0 190 
RO  191 
RC.  192 
10193 
ROl  94 
R0l95 
10196 
RD  197 
R 0 198 
RO  199 

R02D0 
1 0201 
R 0202 
RCi2o3 


<•0  Z F RO  COU-S 
4 1 COARS  F A1  IGN  C DU-  S 
4?  FI NF  ALIGN  I MU 

4 ? L n AD  IMU  ATT  ERROR  METERS 

44  TERMINATE  RR  CONTINUOUS  DESIGNATE  ( V4  IN  72  OP  TI  ON  2) 

45 

46 

47  INITIALIZE  AGS  (R47) 

48  PEOUFST  DAP  DATA  LCAD  FCUTINF  ( RC3 ) 

49  REGUEST  CREW  DEFINED  MANFLVER  ROUTINE  (R62) 

5 C PLEASE  PEPFCRM 

5 1 

52  MAPK  X -RET  I CL  F 

53  MARK  Y-RETICLE 

54  MARK  X OP  Y-PETICLE 

55  INCREMENT  AGC  TIME  (CFCIMAL) 

56  TFRMINATF  TRACKING  ( P2  0 + F2  5) 

57  PERMIT  LANDING  RACAR  UPDATES 

58  INHIBIT  LANCING  RADAR  UPDATES 
55  COMMAND  LR  TO  POSITION  2. 

60  DISPLAY  VEHICLE  ATTITUDE  PATES  ON  F DA  I ERROR  NEEDLES. 

61  DISPLAY  DAP  FOLLOWING  ATTITUDE  ERRORS. 

62  DISPLAY  TOTAL  ATTITUDE  ERRORS  WITH  RESPECT  TO  NOUN  22. 

63  SAMPLE  RACAR  ONCE  PER  SECOND  (R04). 

64  REQUEST  S-BAND  ANTENNA  ROLTINE  (R05  ) 

65  DISA8LF  U AND  V JFT  FIRINGS  DURING  DPS  BURNS. 

66  VFHICLES  ARE  ATTACHEC.  MTV  E THIS  VEHICLE  STATE  TO  OTHER  VEHICLE. 

6 7 DISPl  AY  W MATRI  X 

68  CISABLE  TERRAIN  MOOEI 

69  CALSE  RESTART 

70  UPDATE  LIFTOFF  TIME 

71  UNIVERSAL  U PC  AT  F-PLC  CK  APR 
7?  LNIVFRSAL  UPDA  TE- S I NG  LE  ADR 

7 3 UPCATF  ACC  T IM  F (OCTAL  ) 

74  INITIALIZE  FRASABLF  DUMP  VIA  DCWNLINK 

75  ENABLE  L AND  V JET  FIRINGS  DURING  DPS  BURNS. 

76  MINIMUM  IMPULSE  COMMAND  MODE 

77  RATE  COMMAND  AND  ATTITUDE  FCLC  MCOE 

78  LP  SPURIOUS  RETURN  TEST  START  (R77) 

79  LP  SPUPICUS  RETURN  T FS  T STOP 
8C  UPDATE  LEM  STATE  VECTOR 

PI  UPCATE  CSM  STATE  VECTOR 

82  REQUEST  ORBIT  PARAM  DISPLAY  (P.30) 

83  REQUEST  P FND  PARAM  DISPLAY  ( R3  1 1 

84 

85  DISPLAY  RR  LOS  AZ  AND  ELEV 

86 
87 
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R02  05 
T 0206 
RD2(  7 
R020R 
R020B 
R J 2 1 0 


R 021) 
R021  2 
R021R 


> 0 2 1 A 
R0  215 


90 

91 

92 

93 
9A 
55 

96 

97 
5 P 
99 


REQUEST  RENCFZVOUS  FINAL  ATT  ITUOE  ROUTINE  ( R 6 3 ) 
REQUEST  RENDEZVOUS  CUT  CF  PLANE  CISPLAY  ROUTINE  (R36) 
DISPLAY  BANK  SUM 

OPERATE  I MU  PERFORMANCE  TEST  ( F07  ) 

ENABLE  W MATRIX  INITIALIZATION 

NO  UPDATE  OF  EITHER  STATE  VECTOR  ( P20  OR  P22) 
INTERRUPT  INTEGRATION  AND  GO  TO  POO 
PERFORM  ENGINE  FAIL  PROCECURE 

PLEASE  ENABLE  ENGINE 
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L ASSFMRLY  AND  OPE 5 A T J ON  INFORMATION  USER'S  PAGE  NO.  7 EO 

P02 1 6 IN  THE  FOLLOWING  NOUN  LIST  THE  :NO  LOAD:  RESTRICTION  MEANS  THE  NOUN 

} .217  CONTAINS  AT  I F A ST  CNF  CCMPCNFNT  WHICH  CANNOT  BE  LOADED,  I.E.  OF 

R 3 ? 1 8 SCALF  TYPE  L (MlN/SEC),  PP  IP  INTEGERS)  OR  TT  (LANDING  RADAR  POSITION). 

R 219  IN  THIS  CASE  VERBS  AND  25  ARE  NOT  ALLOWED,  BUT  VERBS  21,  22  OR  23 
\c-2 20  MAY  BE  USED  TO  LOAD  ANY  OF  TEE  NCUN:S  CCMPCNENTS  WHICH  ARE  NOT  OF  THE 
Q0  221  AeOVE  SCALE  TYPES. 

R r 222  THF  :DEC  CNLY:  RESTRICTION  MEANS  CNLY  OEC  IMAL  OPERATION  IS  Al  l OWED  ON 

R 223  EVFRY  COMPONENT  IN  THE  NOUN.  ( NCTE  THAT  : NO  LOAD:  IMPLIES  : DEC  ONLY:.) 


P022A  NORMAL  NOUNS 


COMPONENTS  SCALE  AND  DECIMAL  PCI  NT 


RESTRICT  IONS 


R 0226 
R 1 1?  2 7 
R 228 
R C 22<? 
R0230 
R 0231 
R 23? 
R3  2 3 3 
R 0 2 3A 
Rr  235 
R ( 2 3 6 
l C 231 
R0238 
R0239 
R0  2AO 
R?2a2 
R : 2 AA 
R02A5 
R02A6 
R 0 2A7 
R3249 
R f 251 
R O 2 5 2 
R32S3 
R 02 5A 
R0255 
R0256 
R0258 
R3263 
R0261 
R0262 
R3263 
R 026A 
R0265 
RC267 
? ^268 
R3260 
R '271 
RO  273 


OC  NOT  I N USE 

01  SPECIFY  MACHINE  ADDRESS  (FRACTIONAL)  3C0MP 

r;  2 SPECIFY  MACHINE  ADDRESS  (WHOLE)  3C0MP 

C 3 SPECirY  NACHI  NE  ADDRESS  (CFGREES)  3 COMP 

OA  ANGULAR  EP-ROP  / C I F PER  ENC  E 1C  CMP 

C 5 ANGUI AR  ERROR/CIFFERENCE  1C0MP 

06  OPTION  CODE  3C0MP 

LOADING  NOUN  1 WILL  SET  OR  RESET  SELECTED  BITS  IN 
C 7 ECADR  CF  WORD  TO  BE  MODIFIED  3 COMP 

ONES  FOR  BITS  TO  BE  MODIFIED 
1 TC  SET  CR  0 TO  RESET  SELECTEC  BITS 
C 8 ALARM  DATA  3 COMP 

09  Al  ARM  CODES  3C0MP 

10  CHANNFL  TO  BE  SPECIFIED  1C0MP 

11  TIG  OF  CSI  3C0MP 

12  OPTION  CODE  2C0MP 

(USED  «Y  EXT  ENDEC  VERBS  ONLY) 

13  TIG  OF  CDH  3 COMP 

IA  CHECKLIST  3 COMP 

(USED  RY  EXTENDFO  VERBS  ONLY) 

(NGLN  25  IS  PASTED  AFTER  DISPLAY) 

15  INCREMENT  MACHINE  ADDRESS  1C0MP 

1 6 T IMF  OF  EVENT  3C0MP 

(USED  BY  EXTENDED  VERES  CNLY) 

17  SPARE 

IP  AUTO  MANEUVER  BALL  ANGLES  3 COMP 

1 9 SPARE 

2 C TCDl  ANGLES  3 COMP 

21  PIPAS  3C0MP 

22  NFW  T C DU  ANGLES  3C0MP 

23  SPAPE 

2 A DELTA  TIME  FOR  AGC  CLOCK  3C0MP 


.XXXXX  FOR  EACH 
XXXXX.  FOR  EACH 
XXX. XX  DEG  FOR  EACH 
XXX.  XX  OEG 
XXX. XX  OEG 
OCTAL  ONLY  FOR  EACH 
ANY  ERA  SABLE  REG  I STER 
OCTAL  ONLY  FOR  EACH 


OCTAL  ONLY  FOR  EACH 

OCTAL  ONLY  F CR  EACH 

OCTAL  ONLY 

OOXXX.  HRS 

OOCXX.  MIN 

OXX.XX  SEC 

OCTAL  ONLY  F CR  EACH 


OOXXX.  HRS 
OOOXX.  MIN 
OXX.XX  SEC 
XXXXX.  FOR  EACH 


OCTAL  CNLY 
OOXXX.  HRS 
OOOXX.  MIN 
CXX.  XX  SEC 

XXX. XX  OEG  FOR  EACH 

XXX .XX  DEG  FOR  EACH 
XXXXX.  PULSES  FOP.  EACH 
XXX. XX  DEG  FOR  EACH 

OOXXX.  HPS 
OOCXX.  MIN 
OXX.XX  SEC 


DE  C ONL  Y 

MUST  LOAD  3 COMPS 


DEC  ONLY 

MUST  L 0 AC  3 COMPS 


DEC  CNLY 

MUST  LOAD  3 COMPS 


CEC  ONLY 

MUST  LOAD  3 COMPS 
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R0276 

* ''277 
R °2  78 
R 02  79 
T 0280 
R0281 
R0282 
R0  2P4 
RO  2 8 6 
■l  0287 
R 02  89 
R02Q1 

* 0292 
R 0 ? 9 4 
R 0296 
R 0 297 
P.  0 2 9 7 

* 0301 
R0302 
R03  0A 
7 0306 
R0337 
R0309 
P 0 3 1 1 
P3  312 
1 0314 
RT316 
R 0 3 1 7 


25  CHECKLIST 

(USED  Vi  1 TH  PLEASE  PERFORM  CNLY) 

26  PR IOR ITY/ CELAY , ADRES , B8C0N 

27  SELF  TEST  CN/OFF  SWITCH 

28  SPARE 

29  SPARE 
3C  SPARF 

31  SPARE 

32  TIME  FFCM  PERIGEE 


33  TIME  OF  IGNITICN 


34  TIME  OF  EVENT 


35  TIME  FROM  EVENT 


36  TIME  OF  AGC  CLOCK 

37  T IG  OF  TP  I 

38  TIME  OF  STATE  BEING  INTEGRATED 

39 


3C0MP  XXXXX.  FOR  EACH 

3C0MP  OCTAL  ONLY  FOR  EACH 

1 COMP  XXXXX. 


3 COMP  OOXXX.  HRS 

OOCXX.  MIN 
GXX.  XX  SEC 

3 COMP  OOXXX.  HRS 

OOOXX.  MIN 
OXX.XX  SEC 
3 COMP  OOXXX.  HRS 

001  XX.  MIN 

CXX. XX  SEC 
3CCMP  OOXXX.  FRS 

OOOXX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  HRS 

OOCXX.  MIN 
OXX.XX  SEC 
3C0MP  COXXX.  HRS 

OOCXX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  HRS 

OOOXX  . M IN 
OXX.XX  SEC 


DEC  CNLY 

MUST  LOAD  3 COMPS 
DEC  ONLY 

MUST  LOAD  3 COMPS 
DEC  ONI  Y 

MUST  LOAD  3 COMPS 
DE  C ONL  Y 

MUST  LOAD  3 COMPS 
DEC  ONLY 

MUST  LOAD  3 COMPS 
DEC  ONLY 

MUST  LOAD  3 COMPS 
CEC  ONLY 

MUST  LOAD  3 COMPS 


SPARE 


Ap 
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P03 1 8 

MIXED  NCUNS 

COMPONENTS 

SCALE  i 

\N0  DEC  I MAL  PCI  NT 

RESTRICT  IONS 

l 0320 

4C 

TIME  FRCM  IGNI  TI  CN/CUTCFF 

3 COMP 

XX  BXX 

M IN/S  EC 

NO  LOAD,  DEC 

ONLY 

R3  322 

V G, 

XXX  X.  X 

FT /SFC 

DFLTA  V (ACCUMULATED) 

XXXX. X 

FT/SEC 

l 324 

41 

TAPGFT  A7IMUTH, 

2C0MP 

XXX .XX 

CEG 

(FOR  SYSTEM 

TEST) 

R3  326 

EL  EVAT  ION 

XX.  XXX 

DEG 

R 0327 

42 

APOGEE  , 

3 COMP 

XXXX  .X 

NAUT  MI 

DEC  ONLY 

R 9329 

PER  IGF  E * 

XXXX  .X 

NAUT  MI 

R033t> 

OEITA  V (REQUIRED) 

XXXX. X 

FT/SEC 

< 9 3 31 

43 

LA  TI TUOE  , 

3C0MP 

XXX  .XX 

CEG 

DEC  ONLY 

1 ONG  ITUCF, 

XXX.  XX 

DEG 

R 0 3 3 4 

ALTITUDE 

XXXX. X 

NAUT  MI 

10335 

44 

APOGEE , 

3 COMP 

XXXX  .X 

NAUT  MI 

NO  LOAO,  DFC 

ONL  Y 

R3337 

PER  1GFE, 

XXXX.  X 

NAUT  MI 

R 0338 

TFF 

XXBXX 

M IN/SEC 

R0339 

45 

MARKS , 

3 COMP 

xxxxx . 

NO  LOAD,  DFC 

ONLY 

r C3  41 

TF  I OF  NEXT  BURN 

XX3  XX 

MI  N/SEC 

1 0 342 

MG  A 

XXX  .XX 

CEG 

R3343 

46 

AUTOPILOT  CONFIGURATION 

1C0MP 

OCTAL  1 

ONLY 

47 

LFM  WEIGHT* 

2C0MP 

XXXXX . 

LBS 

DEC  CNLY 

RO  346 

CSM  WEIGHT 

xxxxx . 

LBS 

R9  34  7 

48 

GIMeAL  P ITCH  TR  IM  , 

2C3MP 

XXX.  XX 

OEG 

CPC  ONLY 

? 0 349 

GIMBAL  ROLL  TRIM 

XXX  .XX 

DEG 

RC350 

49 

DELTA  R, 

3C0MP 

XXXX. X 

NAUT  MI 

DEC  ONLY 

R0352 

DELTA  V, 

XXXX. X 

FT/SEC 

1 '.'352  1 

RADAR  DATA  SOURCE  CCDE 

xxxxx . 

R3353 

50 

SPARE 

R0354 

51 

S-BAND  ANTENNA  ANGLES  PITCH 

2C0MP 

XXX. XX 

OEG 

DEC  ONLY 

RO  356 

YA  V 

XXX .XX 

OEG 

R 3 1 5 7 

52 

CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

1C0MP 

XXX.  XX 

DEG 

\ 0358 

53 

SPARE 

R035  9 

54 

RANGE* 

3C0MP 

XXX .XX 

NAUT  MI 

DEC  ONLY 

R 0 3 6 1 

RANGE  RATE. 

XXXX. X 

FT/SFC 

T C 362 

THF  TA 

XXX  .XX 

DEG 

R3363 

55 

NO.  OF  APSIDAL  CROSSINGS 

3C  OMP 

xxxxx. 

DEC  ONLY 

3 0 365 

ELFVATICN  ANGLE 

XXX .XX 

OEG 

RO  366 

CENTRAL  ANGLE  OF  PASSIVE  VEHICLE 

XXX  .XX 

CEG 

R2367 

56 

RR  LOS  AZIMUTH 

2C0MP 

XXX.  XX 

DEG 

l 0368 

ELE  VAT!  CN 

XXX  .XX 

DEG 

R 0 3 6 9 

57 

SPARE 

R 0 3 7 1 

58 

PFRIGEE  ALT  ( POST  T P I ) 

3C0MP 

XXXX. X 

NAUT  MI 

DEC  ONLY 

l 373 

DELTA  V T PI 

XXXX  .X 

FT/S  EC 

R3374 

OELTA  V TP  F 

XXXX. X 

FT/SEC 

R 0 37  5 

59 

DFLTA  VELOCITY  LOS 

3C0MP 

XXXX. X 

FT/SEC  FOR  EA. 

DEC  CNLY 

R<  377 

60 

FORWARD  VELOCITY  - LPD  ANGLE 

3C0MP 

XXBXX 

NO  LOAD,  DEC  ONLY 

R?  3 79 

ALT  ITU CE  RATE 

XXXX. X 

F T/SEC 

3 0380 

COMPUTED  ALTITUDE 

xxxxx  . 

FEET 

R0381 

61 

TIME  TO  GO  IN  BRAKING  PHASE 

3C0MP 

XXBXX 

MI  N/SEC 

NO  LOAD,  DEC 

ONLY 

R03  83 

TIME  FPCM  IGNIT ICN 

XXB  XX 

MI  N/SEC 
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R9384 
R03B5 
R 0387 
R 9 3 8 8 
3 0 389 
R0391 
R9392 
R 0393 

R0395 

R03oft 
R 0397 
R9399 
R0A01 
R0402 
R3A0*. 

R 0 AG  5 
R0AO6 
R0A07 
R OAO  3 
R3A1D 
R0411 
RC  M2 
R9A121 
R 0 A 1 2 2 
R0A13 
ROAlA 
R 0 A 1 8 
R9  A1 6 
R0A17 
»:  A 18 
R3  A 1 3 

R0A21 
R'»A2? 
ROA23 
R 0425 
R9A26 
R0427 
Rf  A 29 
R1A291 
R 0A3C 
R ” A 3 2 
R C A 3 3 
R r 434 
R9A3A1 
RT435 
R ’ 1 A3  7 
R ? A 3 fl 
R 0A39 
R A 

ROAAl 


62 

63 

6 A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7 A 

rr 

76 

77 

78 

79 


P 


81 


CROSS  RANGE  DISTANCE 

ABSOLUTE  VALUE  OF  VELOCITY  3C0MP 

TIME  FROM  IGNITION 
OELTA  V (ACCUMULATED) 

ABSCLUTF  VALUE  CF  VELOCITY  3C0MP 

ALTITUDE  RATE 
COMPUTED  ALTITUDE 

TIME  LEFT  FOR  REDESI  GNAT  ICN-  LPC  ANGLE  3 COMP 
ALT  ITUUE  RATE 
CONFUTED  ALTTTUCE 


SAMPLED  AGC  TI  NE 
(FETCHED  IN  INTERRUPT) 


3 COMP 


LR  RANGE  2 COMP 

POS  IT  ION 

LR  V X 3 COMP 

LR  VY 

LRVZ 

SLANT  RANGE  TO  LANDING  SITF  3 COMP 

TIME  TO  GO  IN  BRAKING  PHASE 

LR  AITITLCF  - COMPUTED  ALTITUCE 

LANDING  SITE  CORRECTION,  Z-CCMPONENT  3C0MP 

LANDING  SITE  CORRECTION,  Y-COMPONENT 

LANDING  SITF  CORRECTION,  X-CCMFCNENT 


AOT  DETENT  CODE/STAR  CODE  3C0MP 

ACT  DETENT  CODE/STAR  CODE  3CDMP 

RR  3EC  - TRUNNION  ANGLE  2 COMP 

SHAFT  ANGLE 

NEW  PR  360  - TRUNNION  ANGLE  2C0MP 

SHAFT  ANGLE 

TIME  FROM  IGNITION  3C0MP 

YAW  AFTER  VEHICLE  RISE 
P ITCH  AFTER  VEHICLE  R!  SE 

DELTA  ALTITUCE  CCH  3C0MP 

DELTA  TIME  (CDH-CSI  OR  TPI-CDH) 

DELTA  TIME  (TPI-CDH  DR  TPI-NOMIPI) 

DFSIRED  HORIZONTAL  VELOCITY  3C0MP 

DESIRFD  RADIAL  VE  LOC  I TV 
CROSS-RANGE  DISTANCE 

TIME  TO  ENGINE  CUTOFF  2 COMP 

VELOCITY  NORMAL  TO  C SM  PLANE 

RR  PANGE  3C0MP 

RANGF  RATE 
TIME  FROM  IGNITION 

CURSOR  ANGLE  3 COMP 

SPIRAI  ANGLE 
POSITION  CODE 

DATA  INDICATOR,  2 COMP 

OMEGA 

DEITA  V (LV)  3C0MP 


XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 
XXBXX  M IN/S  EC 
XXXX.  X FT/SEC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXXXX.  FEET 
XX  BXX 

XXXX.X  FT/SEC 
XXXXX.  FEFT 
OOXXX.  HRS 
CCOXX.  MI  N 
OXX.XX  SEC 
XXXXX.  FEET 
+0000X 

XXXXX.  FT /SEC 
XXXXX.  FT/SEC 
XXXXX.  FT/SEC 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXXXX.  FEET 
XXXXX.  FEET 
XXXXX.  FEET 
XXXXX.  FEET 
OCTAL  ONLY  FOR  EACH 
OCTAL  ONLY  FOR  FACH 
XXX. XX  DEG 
XXX.  XX  DEG 
XXX. XX  DEG 
XXX. XX  DEG 
XXBXX  MIN/SEC 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXBXX  MIN/SEC 
XXXX.X  FT/SFC 
XXXX.X  FT/SEC 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXXX.X  FT/SEC 
XXX. XX  NAUT  MI 
XXXXX.  FT/SEC 
XXBXX  MIN/SEC 
XXX. XX  DEG 
XXX. XX  CEG 
XXXXX. 

XXXXX  . 

XXX. XX  DEG 

XXXX.X  FT/SEC  FOR  EACH 


NO  LOAD,  DEC  ONLY 

DEC  ONLY 

NO  LOAD,  DEC  ONLY 

DEC  ONLY 

MUST  LO AC  3 COMPS 
NO  LOAD,  DEC  ONLY 


NO  LOAD,  DEC  ONLY 


DEC  ONLY 


NO  LOAD,  DEC  ONLY 

NO  LOAD,  DFC  ONLY 

DEC  ONLY 

NO  LOAD,  DEC  ONLY 
NO  LCAD,  DEC  ONLY 

DEC  ONLY 

CEC  ONLY 
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USER  ' S PAGE  NO. 


1 1 


EC 


’3443  82 

R0445  83 

31)447  e4 
RD449  85 

R0451  86 

3 ' 453  87 

R3454 

RE  455  e8 
RC457  85 

RD459 
3 0460 

R9461  90 

R 04  6 3 
3 0464 

R3465  91 

R ' 4651 
RO  465  2 
RD466  92 

3 04661 
R04662 
R0467  93 

30468  94 

R3469  95 

R 0470  96 

RO  47 1 97 

R3  47  ? 98 

3 0473 
R 04  74 

R 0475  99 

3 047  7 
R7477  1 


DELTA  V ( L V ) 

DELTA  V ( BCDY  ) 

DELTA  V (OTHER  VEHICLE) 

VC  (BODY) 

V G (LV) 

BACKUP  OPTICS  LOS  A 7 I MLTh 
EL  EVA  T ION 

HALF  UNIT  SUN  OR  PLANET  VECTOR 
LANDMARK  LA  TI  TLOc 

LONGITUDE/2 
ALT1  TUOE 

Y OCT 
PSI 

ALT  ITU  OE 
VELCCI TY 

FI  I GHT  PATH  ANGLE 

PCT  FTP(1j,5<LR>  AT  PRESFNT  THRUST 

ALTITUDE  RATE 

COMPUTED  ALTITUDE 

DELTA  GYPO  ANGLES 

SPARF 

SPARE 

SPARE 

SYSTEM  TEST  INPUTS 

SYSTEM  TEST  RESULTS  AND  INPUTS 


RMS  I N POS IT  ION 
RMS  IN  VE  1. OC I T Y 
RMS  IN  G I AS 


3C0MP 
3C0MP 
3 COMP 
3C0MP 
3C0MP 
? C CMP 

3C0MP 

3CCMP 


3C0MP 


3C0MP 

3C.3MP 


3C0MP 


XXXX.X  FT/SEC  FOR 
XXXX.X  FT/SEC  FOR 
XXXX.X  FT/SEC  FOR 
XXXX.X  FT/SEC  FOR 
XXXX.X  FT/SEC  FOP 
XXX. XX  OEG 
XXX.  XX  OEG 
.XXXXX  FOP  FACH 
XX. XXX  CEG 
XX.  XXX  DEC 
XXX  .XX  NAUT  M I 
XXX. XX  NM 
XXXX.X  EPS 
XXX. XX  DEG 
XXXXXB.  NAUT  MI 
XXXXX.  FT/SEC 
XXX. XX  DEG 
XXXXX. 


EACH 
FACH 
FACH 
E ACH 
EACH 


XXXX  .X  FT/S  EC 

XXXXX. FEET 

XX.  XXX  DEG  FOR  EACH 


3 COMP  XXXXX.  FOR  EACH 
3C0MP  XXXXX. 

.XXXXX 

XXXXX. 

3C0MP  XXXXX. FT 

XXXX.X  FT/SEC 
XX.  XXX  RADI  ANS 


DEC  ONLY 
DEC  ONLY 
DEC  ONLY 
CEC  ONLY 
DEC  ONLY 


DEC  CNLY 
DEC  ONLY 


DEC  ONLY 


CEC  ONLY 


i A P : ASSEMBLE  REVISION  56  OF  AGE  PROGRAM  ZFRLINA  BY  ZOROASTE* 


ASSEMBLY  A NO  OPEPATICN  I N F C R NAT  I C N 


PD478 


REGISTERS  AND  SEAL  ING 


FOR  NORMAL  NOUNS 


*0479  N C UN 


REGISTER  SCALE  TYPE 


R0480  CC 
R04R1  01 

*0482  02 

R0A«3  03 

80484  04 

*0485  05 

RD486  0 6 

R 0 48  7 C 7 

R 0 488  CP 

R04R9  09 

*0490  10 

R0491  11 

R 04  92  12 

* 0493  1 3 

RO  49  4 14 

R 0 49  5 1 5 

R 0 496  16 

RD497  17 

10498  18 

R 04  99  19 

R 0500  20 

l 050 1 ?1 

RD5 }2  22 
*0503  23 

R0504  24 

R0505  25 

*0506  26 

RO  507  27 

R 0 508  28 

RO  509  29 

RO  5 1 0 3c 
*0511  31 

R0512  32 

R05 1 3 33 

*0514  34 

R0515  35 

R 5 1 6 36 
R 0 5 1 7 ->7 
RO  5 1 R 38 
*0519  39 


NOT  IN  use 
SPECIFY  ADDRESS 
SPECIFY  ADDRESS 
SPECIFY  ADDRESS 
DS  PT  EMl 
0 SPTF  W1 
OPT  ION  1 
X R EG 
ALMCAOR 
FA  ILREG 

SPECIFY  CHANNEL 
TC  SI 
OPT  IC NX 
TCDH 
DSPTEMX 

INCREMENT  ACCRESS 
D SP  TE  M X 

SPARE 

FDAI  X 

SPARE 

C DUX 
PI  PAX 
T F ETA  D 

SPAPE 

DSPTEM2  +1 
DS  PT  EMI 
DSPTF.M1 
SMODE 

SPARE 
SPARE 
S P AR  F 
SPARE 

-TPER 
T IG 

DSPTEM1 
TTOGQ 
TIME2 
T TP  I 
T ET 

SPAPE 


B 

C 

D 

H 

H 

A 

A 

A 

A 

A 

K 

A 

K 

C 

A 

K 

D 

D 

C 

D 

K 

C 

A 

C 
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EC 


13 


ap: 


ASSEMBLE  REVISION 


CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


ASSFM6LY  AND  OPERATION  INFORMATION 


P0520  REGISTERS  AND  SCALING  FOR  MIXEC  NC1UNS 

<0521  NOUN  COMP  REGISTER  SCALE  TYPE 


fP  522 
R 0 52  3 
R ■'  524 
R0525 

< C 526 
R0527 

< 052  R 
3 ('5?« 
R053D 
R 0 53 1 
R 0 532 
R?  5 33 

< 0534 
R r’  5 3 5 
R 0536 
3 537 
R0538 
nr  53<j 
P.0  540 
P.3  541 
3 0542 
R 0543 
R 0 5 4 4 
3 0545 
R0545  1 
R 0 546 
R 0 547 
RO  549 

3 0549 
R 055  0 
R 551 

< 0552 
R0553 
R 0 554 
RO  555 
RO  556 
3 0557 
R 055  F 
R 0559 
3 0560 
RO  56 1 
R 0 562 
R 0 56  3 
RO  564 
3 0565 
R 0 5 6 6 


40 

4 0 

42 

43 

44 

45 

46 

47 

48 
4 9 


5C 

51 

52 

53 

54 


55 


56 

5 7 
58 


59 


60 


1 TTOGO  L 

2 VGCISP  S 

3 D V TO  TA  L S 

1 OSPTFMl  D 

2 DSPTEMI  +1  E 

1 HAPO  0 

2 HP  ER  0 

3 VG  01  SP  S 

1 L AT  H 

2 LCNG  H 

3 ALT  C 

1 HAPOX  Q 

2 HPFRX  C 

3 TFF  L 

1 TRKMKCNT  C 

2 TTCGC  L 

3 +M  GA  H 

I CAPCATR1  A 

1 LEMMA SS  KK 

2 CSMMASS  KK 

1 PITTIME  NN 

2 POLLTIME  NN 

1 R22DISP  Q 

2 R22DI SF  +2  S 

3 riHCHRFAD  C 

SPARE 

1 ALPHA  SB  H 

2 BETAS  B H 

I ACTCENT  H 

SPARE 

1 RANGE  JJ 

2 RRATF  S 

3 RTHETA  H 

1 NN  C 

2 ELE  V H 

3 CENT  AN  G H 

1 RR-AZ  H 

2 RR-ELEV  H 

SPARE 

1 POSTTPI  C 

2 DELVTPI  S 

3 DELVTPF  S 

1 DVLOS  S 

2 DVLOS  +2  S 

3 OVLOS  +4  S 

1 FORVEL  ZZ 


I 
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L ASSFMBLY  ANCOPEPATION  INFORMATION 


3 567 

R356B 

R 056  9 6 1 

3 0570 
RD571 

R0  57  2 62 

RO  573 
RT  57  A 

3 0575  63 

R05  7h 
R0577 

30578  64 

RD579 
R 0580 

R0581  65 

R)  582 
3 0 583 

RP584  66 

R 05  85 

30586  67 

R3587 
R 0 588 

RO  589  68 

RD59D 
3 0591 

R 05  92  69 

R 05921 
3 050?? 
R3593  70 

R 0594 
RC  595 
R3596  7 1 

3 0597 
R059P 

R 0599  72 

3 0600 

RD631  73 

R 0 60  2 

R0603  74 

RO  63  4 
3 0605 
R0606  75 

R 0607 
3 0608 
RD609  76 

R 0610 
R 0 6 10  1 
R-)611  77 

3 0612 

R"613  78 


2 H D CTO  I S P S 

3 ALTITUDE  BBB 

1 TTFCISP  L 

2 TTCG  C L 

3 OUTOFPLN  QQ 

1 ABVEL  S 

2 TTOGO  L 

3 OVTOTAL  S 

1 ABVEL  S 

2 HOOTOISP  S 

3 HCALCl  RR 

1 FUNNYOSP  PP 

2 HOOTOISP  S 

3 HCALC  RR 

1 SAMP  TIME  K 

2 S AMPTIME  K 

3 SAMPTIME  K 

1 R STACK  +6  w 

CHANNEL  33  TT 

1 R STAC  K X 

2 R STACK  +2  Y 

3 RSTACK  +4  Z 

1 RANGEOSP  QC 

TT  FD  ISP  L 

3 DELTAH  RR 

I DLANOZ  RR 

CLANCY  RR 

3 OLANOX  RR 

1 AOTCDDE  A 

2 AGTCODE  +1  A 

3 AmCODE  +2  A 

1 AOTCOOE  A 

ACTCOOE  +1  A 

3 AOTCOOE  +2  A 

C CUT  WW 

2 COLS  D 

1 TANG  WW 

2 TANG  +1  D 

l TTOGO  L 

Y AW  H 

3 PITCH  H 

1 DIFFALT  Q 

2 T 1T0T  2 L 

T2T0T3  L 

1 700TP  S 

2 ROCTO  S 

3 XRANGE  Q 

1 TTOGO  L 

2 YOCT  S 

1 DNRRANGE  U 
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R 061  6 
ROMM 
R0615 
l 0616 
RD617 
R0618 
R0619 
R0620 
l 0621 
R062? 
HI  6 2 3 
l 06  26 
RD625 
R 0 626 
R0627 
RD62R 
< < ^29 
R fi  3 
R 063 1 
R 0632 
RD633 
RO  636 
R 0636 

R3636 

* 0637 
R 06  3 8 
R 06  3 9 
10660 
RD661 
R 0 662 
RO  663 
RD  666 

* 0665 
R0566 
R 0667 
R 0668 
RD  669 

R 0 6691 
R 0 669  2 
RD65D 
R 06501 
R065'’2 
R 065 1 
10652 
RD653 
R 0 656 
R ■ 1 6 5 5 
RD  656 
3 r'6 57 
R065  8 


ASSEMBLY  AN  0 OP  FP  AT  10  N INFORMATION 

2 DNRROCT  V 

3 TTOTIG  L 

79  1 CURSCR  C 

2 SPIRAL  C 

3 POSrODE  C 

1 CATAGOnn  r. 

? OMEGAD  H 

8 1 1 DELVLVC  S 

2 DELVLVC  +2  S 

3 DELVLVC  <-6  S 

82  1 DELVLVC  S 

2 DELVLVC  +2  S 

3 DELVLVC  +6  S 

e3  1 DELVIMU  S 

2 DELVI ML  +2 

3 DELVIMU  +6  S 

66  1 DELVCV  S 

2 DEI.VOV  +2  S 

3 DELVOV  +6  S 

85  1 VG  BCD  Y S 

2 VGBODY  +2  S 

3 VGBODY  +6  S 

86  1 DEI  VL  VC  S 

2 DELVLVC  +2  S 

3 DELVLVC  +6  S 

87  1 AZ  D 

2 EL  0 

88  1 STAPAO  B 

2 STARAD  +2  3 

3 STARAD  +6  B 

89  1 LANDLAT  G 

2 LANOLONG  G 

3 LANDALT  JJ 

90  l RANGE  JJ 

2 RRATE  S 

3 PTHFTA 

9 1 I P21ALT 

2 . P21VEL 

3 P 2 IGA  M 

92  1 T HR D ISP 

2 HDCTOISP 

3 HCALC1 

93  1 OGC 

2 OGC  +2 

3 DGC  +6 

56  SPARE 

95  SPARE 

96  SPARE 
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R066D  98  l 
R 066 1 2 
R 0662  3 
RD663  99  1 
R0664-  2 
R0664I  3 


D S PTE  M +2  C 

DSPTEM2  C 

DS  PT  EM2  +1  B 

0 SP  TEM2  +2  C 

WWPOS  XX 

WUVEL  YY 

WWBIAS  AAA 
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R 0666 
l 667 
R3668 


R 067 1 
1 067? 
R3673 

R 0674 
R0675 
R0676 

R 0677 
R06  78 
R 06  79 
R 0680 

R3  581 
RO  68? 
R06R3 


R06B4 
R 0685 
R 3686 


Rf  687 
R 0688 
R3689 
R069C 
R0601 
RD692 
l 0693 
R 06  94 


DEC  I MA  L FERMAT 


PP EC  IS  ION 


FRAC  TITNAL 


E LEVA  TT  CN  DEGREES 


DEGREES  (180) 


DP  DEGREE  S(  90 


CP  DECREES  (360  > 


XX. XXX  CECPEES 
(MAX  89.999) 


XX. XXX  DEGREES 


XXX. XX  DEGREES 
(MAX  355.95) 


— AGC  FORMAT 


SP  BIT  1 = 2 


SP  BIT  1 = 1 UNIT 


SP  BIT  1 = 360/2  DEGREES 
( USES  15  BITS  FOR  MAGNI- 
TUDE ANO  2-S  COMP  . ) 


SP  BIT  1 = 90/2  DEGREES 

U 

SP  BIT  1 = 180/2  DEGREES 

DP  BIT  1 OF  LOW  REGISTER  = 
28 

360/2  DEGREES 

DP  BIT  1 OF  LOW  RFGI  STER  = 

28 

360/2  DEGREES 


GAP:  ASSEMBLE  RFVISION  96  OF  AGC  PROGRAM  ZCRLINA  BY  ZOROASTER 


L ASSEMBLY  AND  OPERATION  INFORMATION 


P0699 
R3696 
3 0697 
R0698 
R 0699 
l 0700 
R3  7 0 1 
R 070? 
* 0 70  3 
R0734 
R 0709 
R0706 
R3737 


-K- 

T IMF  (HR,  M IN, 


SEC)  OOXXX.  HR  DP  BIT  1 OF  LOW  REGISTER 

OODXX.  MIN  -2 

CXX.  xx  SEC  10  SEC 

(DECIMAL  ONLY. 

MAX  MIN  CC MP=59 
MAX  SEC  COMP  = 59.  99 
MAX  CAP  AC  ITY=745  HRS 
3 9 MINS 
14.  59  SECS. 

WHEN  LOADING,  ALL  3 
COMPONENTS  ML  ST  BE 
SUPPL  IED.  ) 


3 0708  - L- 

' 

R071  0 
3 0711 
R371  2 
30713 
3 0714 
R3715 
R 07 1 A 
R 0 7 1 7 
R3718 
R 071 9 
R072D 


R0721  -M- 

3 0722  T I ME  ( SEC  ) 

R3723 


RC  7 24  -N- 

3 *725  T I ME  ( SEC  ) DP 
R372S 
R 0727 


R0728  -P- 

RC729  VELOCITY  2 
3 0730 
R3731 


30732  -C- 

R0733  POSITION  4 
R3  734 


3 0735  - S- 

R 3 736  VELOCITY  3 

R 0737 
3 0738 


XXBXX  MIN/SEC 
(B  IS  A PLANK 
PCSITICN,  CECIMAL 
ONLY,  D I SPLAY  OR 
MON ITOR  ONLY  . CANNOT 
BE  LOADED. 

MAX  MIN  COMP  = 59 
MAX  SEC  CCMP=5Q 
VALUES  GREATER  THAN 
99  MIN  59  SEC 
ARE  DISFLAYEC  AS 
59  MI  N 59  SEC.  ) 


XXX.  XX  SEC 
(MAX  163.83) 


XXX.  XX  SFC 


XXXXX.  FEET/SEC 
( MAX  41 994 . » 


XXXX.  X NAUTICAL  MI  LES 


XXXX.  X F 1/SEC 


DP  B I T 1 UF  LOW  REGIST  ER 
- 2 

10  SEC 


- 2 

SP  BIT  l = 10  SEC 


DP  BIT  1 OF  LOW  R FG  1ST  FR 
-2 

10  SEC 

DP  BIT  I OF  HIGH  REGISTER 
-7 

2 MFTERS/CENTI-SEC 

DP  BIT  1 OF  LOW  REGISTER 
2 METERS 

OP  BIT  1 OF  HIGH  REGISTER 
-7 

2 METERS/CENT  I-SEC 


9:12  OCT . 21,  1970 
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R07Tq 
1 0740 
RD741 


(MAX  16  3-83) 


9:  12  OCT.  21,  1970  I MA  IN) 

US  ER  'S  PAGE  NO  . 19 


SP  BIT  1 = 10 


1 1742 
R 0 74  3 
R07433 
1 0 7436 
R 3 7439 
R 3744 


- L- 

R FN0E7  VOUS 
RADAR  RANGE 


XXX.  XX  NALT  MI 
(CECIMAI  ONLY. 

01  SPLAY  CR  MCNITCR 
ONLY.  CANNOT  BE 
LCAOEC . ) 


SP  USES  IB  BITS  FOR  UNSIGNED 
MAGNl  TUOE  . 

BIT  1 = 9 .38  FEET 


10  745 
R0746 
R 0746 1 
R 0 746  2 
R?  746-3 
1 7464 

R C 746  5 
R 074 6 6 
1 0747 


X X X X X • FEET  /SEC 
(DECIMAL  CNLY. 

01  SPLAY  CR  MCM  T CR 
ONLY.  CANNOT  BE 
LCAOEO. 

BIAS  OF  17C0C  COUNTS 
SIJBTRACTEC  BEFORE 
01  SPLAY.  ) 


SP  USES  1 5 BITS  FOR  UNSIGNED 
MAGN  ITUDE  . 

BIT  1 = -.6278  FEET/SEC 


R374R 
R 07  49 
R - 7 50 


LANDING  RACAR 
AL  TT TUOF 


XXXXX  . FEET 


R 075 1 

1 0752 
(0753 


XXXXX.  FEET/SEC 


DP  LOW  OROER  BIT  OF  LOW  ORDER 
WORD  = -.6440  FEET/SEC 


1 0755 
RO  756 


LANDING  RADAR 
VELY 


XXXXX.  FEET/SEC 


R C 757 
R f 75 fl 
R0759 


-Z- 

L ANOING  P ADAR 
VEL  7 


XXXXX.  FEFT/SEC 


1 ',760 
R0761 
RC762 


XXXXX.  FEET 


DP  LOW  CRDER  BIT  OF  LOW  CROER 
WORD  = 2.  345  FEF  T 


10763 
K3764 
R 0765 


ALT  ITU  DE  RAT  E 


SP  LOW  ORDE  R BIT  = .5 
FEET/SEC 


R 0 7 6 6 
R 0 7 6 7 
1 0768 


-CC- 

FCRW  ARD/L  AT  ERAL 
VELOC  I TY 


R 0 7 6 9 


-DO- 


PAGE  21 
FO 

1 0770  ROTATIONAL  HAND  XXXXX.  f EG/S  EC  SP  FRACTIONAL  PART  OF  PI  RAD 

R 377  1 CCNTRCLLFR  ANGULAR  (MAX  C0C44.)  4 SEC 

R ('772  RATES 
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1 0771  -EE- 

R 377 A OPTICAL  TRACKER  XXX.XX  DEG. 

R 0775  AZIMUTH  ANGLE 

R0776 


DP  LOW  ORDER  BIT  CF  I.CW  ORDER 
15 

WORD  = 360/2  DEGREES 


R0777  -JJ- 
* '.’778  P0SITI0N5 
R ^ 7 7 9 

R 07  80  -KK- 

R 078  l WEIGHT2 


XXX.XX  MUT  MI 

XXXXX.  LBS 


DP  BIT  1 OF  LOW  REGISTER  = 

2 MFTERS 

16 

SP  FRACTIONAL  PART  OF  2 KG 


R3782  -NN- 

R 0783  TRIM  DFGPEES  2 XXX.XX  CEC- 

R0784  { MA  X C32. 76) 


SP  BIT  1=  . ( 1SEC  ( TIME) 


R0785  -PP- 
1 0786  2 INTEGERS 

RD787 
R 0788 
1 0789 
RD79D 
R 079  1 
RO  792 


+XXBYY 

( 0 ISA  BLANK 
POSITION.  CECIMAL 
ONLY,  01  SPLAY  OR 
MONITOR  ONLY.  CANNOT 
BE  LOADEC.  ) 

(MAX  59B99) 


DP  BIT  1 OF  HIGH  REGISTER  = 

1 UNI  T OF  XX 
BIT  1 OF  LOW  REG  I STER  = 

1 UNIT  OF  YY 
(FACH  REGISTER  MUST 
CONTAIN  A POSITIVE  INTEGER 
LESS  THAN  100  ) 


RC7Q3  -CC- 

1 r,794  P0SITI0N7  XXXX.X  NAUT  Ml 

R0795  ( MA  X 9058.  5) 

R 0796 


DP  BIT  1 OF  LOW  REGISTER  = 
2 METERS 


107Q7  -PR- 

R07OR  COMPUTED  ALTITUDE  XXXXX.  FEET 
R 0 799 
RO  800 


DP  BI  T 1 OF  LOW  REG  I STER  = 
2 METERS 


R0801  -SS- 

1 0802  DP  DEGREES  XXXX.X  DEGREES  DP  BIT  1 OF  HIGH  REGISTER  = 

R58^3  1 DEGREE 


R080A 
1 0805 
R3336 

R 080  7 
RO  808 
RD8D9 


-TT- 

L AND  IMG  RADAR 
POS  IT  ION 


+0000X 

(DECIMAL  ONLY. 
DISPLAY  OR  "CN  IT  OR 
ONLY.  CANNCT  BE 
LOADED. ) 


CHANNEL  33,  BIT  6=N0T  POSIT.  1 
CHANNFL  33, BIT  7=N0T  POSIT.  2 
X = 1 FOR  L R PO  SI T ION  1 
X = 2 F CP  LR  POSITION  2 


R08I0  -WW- 


15 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL IMA  BY  ZOROASTER 

ASSEMBLY  AND  OPERATION  I NFCR  MAT  T CN 


<3:12  OCT.  21  ,1970 
USER  *S  RAGE 


( MAIN) 
NO.  21 


R0811  360 -CCU  CEGPFES  XXX. XX  DEGREES 

*0812  (MAX  359.09) 

R 0 P 1 3 
ROBl/* 


SP  BIT  1 = 360  - ( 360/2  ) 

CEGREES 

(USES  15  BITS  FOR  MAGNI- 
TUDE AND  2-  S COMP.  > 


10815  -XX- 
R0B16  POSITION  9 
R0817 
1 C81  8 


FEE  T 


DP  BIT  1 OF  LOW  REGISTER  = 
-9 


2 METERS 


R ? 8 1 9 -YY- 

K 08  20  VELOCITY  A 

R0820 l 


XXXX  .X  FEET/S  EC 
(MAX  32  8.0) 


DP  FRACTIONAL  PART  OF 
METERS/CENT  I-SEC 


R0B2O2  -ZZ- 
3 08203  VELOC  I TY  5 
898204 
RH82C5 


XXXX.X  ET/SEC 


OP 


BIT  1 OF  HIGH  REGISTER  = 
-9 

2 METER  S/CENTI -SEC 


PAGE  22 
EC 


3 0821  -AAA- 
R33211  RADIANS 
R08212 
R0821 3 


XX. XXX  RADIANS  DP 

(MAX  31  .999  ) 


BI T 1 OF  HIGH  REGISTER  = 
-9 

2 R AO  I ANS 


(3082 1 3 1 -PeB- 

3 0821  32  COMPUTED  ALTITUDE  2 XXXXX.  FEET  DP  BIT  l OF  HIGH  REGISTER  = 

RD82133  2 METERS 


R0822  THAT-S  ALL  CN  TFE  NOUNS 


SAP:  ASSEMBLE  RFVISION  56  OF  AGC  PRC  GRAM  ZERLINA  BY  ZOROASTER 
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* 0024  #9  *18 


*63  COLUMN 


RD325  CODE  * TYPE 


R 0 82  7 CO  1 C 7 
R0828  00111 

R0829  00112 

10830  00113 

RD831  0- 114 

R 0832  00115 
10833  00206 

RD834  00206 

R 0 8 35  CC2C7 
R G 8 36  00210 

RD  83  8 0021  1 

10839  00212 

1 0840  00213 
R 084 1 00214 
1 n842  00217 

RD843  00220 

R 08  44  00401 

R 0 8 4 5 

R0845  00602 

10847  0C404 

R084R  00405 

R(,86Q  00421 

1 0R50  00501 

R'1 86  1 CO  50  2 
10852  C C 5 0 3 

R 0 8 5 3 00  5 1 r 

R3856  00611 

10855  0C514 

RO  866  00515 

10 86  7 006  20 

1 085*1  0C522 

RO  860  00523 

R 0 862  0C525 

Rr‘P63  0T526 
RO  9 64  00627 

1 0866 
ROR66 

R 0866  5 00530 

1 08666 

R^P667  00555 

R 0 86  7 0C6CO 

R 0 8 6 8 CCfcOl 

RO  9 69  00602 

1 < 8 ? ( 


MORE  THAN  5 MARK  PA  IPS 
MARK  MISSING 

MARK  OR  MARK  REJECT  NOT  BEING  ACCEPTED 
NO  I NB1 TS 

MARK  MADE  BUT  WOT  DESIRED 
NO  MARKS  IN  LAST  PAIR  TO  REJECT 
ZERO  FNCOOE  NOT  ALLOWED  V.  I TH  COARSE  ALIGN 
+ GIMBAL  LOCK. 

ISS  TUPNCN  REQUEST  NCT  PFESENT  FOR  90  SEC 
I MU  NOT  OPERA  Tt  NG 
COARSE  ALIGN  ERROR 

0 1 PA  EAIL  BUT  PIPA  IS  NCT  BEING  USFO 
T MU  NOT  OPFRATING  WITH  TURN-ON  REQUEST 
PROGRAM  USING  IMU  WEEN  TURNED  OFF 
BAD  RETURN  FRCM  I MUSTALL 
IMU  NOT  ALIGNED  - NO  RFFSMMAT 
DESIRED  GIMBAL  ANGLE  YIELCS  GIMBAL  LOCK 

FINDCDUW  NOT  CONTROLLING  ATTITUDE 
TWO  STARS  NOT  AVAILABLE  IN  ANY  DETENT 
TWO  STARS  NOT  AVAILABLE 
W-MATRIX  CVERFLOW 
P RADAR  ANTENNA  CUT  CF  LIMITS 
8 AC  RACAP  GIMBAL  ANCLE  INPUT 
P RADAR  ANTENNA  DESIGNATE  FAIL 
RADAR  AUTO  3 E SC  RE  TF  NCT  FRF  SENT 
LR  ANTENNA  MUVFO  AND  NOT  REPOS I TIOnId 
P IP  rots  CUT  CF  AIJT C MCCE  WHILF  IN  USE 
RR  CDU  FAIL  DISCRETE  PRESENT 
RACAR  RUPT  NOT  FXPECTEC  AT  THIS  TIME 
LANDING  RADAR  POSITTCN  CHANGE 
LR  ANTENNA  DIDN'T  ACHIEVE  POSITION  2 
P DELTA  THETA  GREATER  THAN  3 DEGREES 
RANGE  GREATER  THAN  4CC  NAUTICAL  MILES 
P LOS  NOT  IN  MODE  II  COVERAGE  WHILF  ON 
LUNAR  SURFACE 

OR  VFHICLF  MANEUVER  RFQUIRED 
F ICS  NOT  IN  MCDE2  COVERAGE 

ON  LUNAR  SURFACE  AFT  FR  600  SECS. 

SERVICER  LOOP  EYCEFDEO  4 SECONDS 
IMAGINARY  ROOTS  ON  FIRST  ITERATION 
PERIGEE  ALTITUDE  C SI  IT  F M I N 1 
PERIGEE  ALTITUDE  CDH  LT  PMIN2 
C SI  TO  CDH  TI  ME  LT  TMI  M2 


AOTMARK 

AOTMARK 

AOTMARK 

AOTMARK 

AOTMARK 

AOTMARK 

IMU  MODE  SW  ITCHING 
T4RUPT 

IMU  MODE  SWITCH,  IMU-2,  R32, 

IMU  MODE  SWI  TCH 

IMJ  MODE  SW  ITCH,  T4RPT 

T4PUPT 

T4RUPT 

P51,  P52,  P57 

R02.R47 

INF  AL  IGN,  IMU-2, 

FINOCOUW 
F INDCD UW 

R59,  LUNAR  SURFACE 
P52 

INTEGR V 
R23 

V4l  N72 

R 21,  NON-P  IN  V41N72 
R2  5 

SE1  VICER 
P20 
R2  5 

RADAR  READ 
RD4 

V59  IN  V53  ) 

P 22 
P2  0 

R 2 1 t R 2 4 

R2  4 (2  0) 

R 21 

SFRVICEP 
P 32,  P 7 2 
P32  , P72  , 
p 32  tp  72  t 
P32,P72,P33,P73 


P 5 1 , 


P 57 


( 


I 


I 

< 

< 

i 

4 

i 

4 

4 

4 

4 

« 

, 

« 

« 

4 

4 


« 
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“0871 
1 '872 
10373 
R 0874 
1 C 875 
r:0  76 
R 877 
R0878 
R0881 
1 0882 
R 088  ? 

R 08  84 
l 0895 
R3997 
R 0898 
RO  899 
R08995 
l 0900 
R0901 
R 0905 
3 0906 
RO  907 
R 090  8 
R0909 
1 ; 

1 0911 
R 0 9 1 3 
R 0 9 1 A 
1 091S 
R 3 9 1 6 
R 09  1 7 
R091P 
R?  9 1 9 
1 0920 
R 092  1 
R 0922 


00604 
OP  COMP 

00605 

00606 
CC  6 1 1 
00701 
00777 
01102 
01105 
''ll  06 
0 1107 

C 1301 
01406 
14<  7 


01410 
0 1412 
r 1520 
C 1600 
C 16C  1 
C16C1 
0 1703 
01706 

0 200  1 
02002 
0 200  3 

0 209  4 
C3777 
04777 
07777 

1 C 777 
1 3777 
14777 


C CP  TO  T PI  T I ME  LT  T MIN  2 3 
LTFO  COH  TIME  G RE  AT  ER  THAN  INPUT  TP  I TIME 
MUMPER  DF  ITERATIONS  EXCEEDS  LOOP  MAXIMUM 
DV  6XCFFCS  MAXIMUM 
NO  TIG  FOR  GIVEN  E LF  V ANGLE 
ILLEGAL  OPTION  CODE  SFLFO  TF9 
PIPA  FAIL  CAUSED  THE  ISS  WARNING 
A GC  SELF  TF  ST  ERROR 
DOWNLINK  T CO  FAST 
UPLI  NK  TOC  F AST 
PHASE  TABLE  FAILURE.  ASSIME 
ERASABLE  MEMORY  IS  SUSPECT. 

ARC  SI  N-ARCCCS  A RGUM  ENT  TCC  LARGE 
BAC  RETURN  FROM  ROOTPSRS 
VG  INCREASING  (DELTA-V  ACCUMULATED 
.GT.  90  DEGREES  A PA  Y FROM  DESIRED  THRUST 
VECTOR  . ) 

UNINTENTIONAL  OVERFLOW  [N  GUIDANCE 
DESCENT  IGNALG  NOT  C CN  VERGING 
V37  REQUEST  NOT  PERMITTED  AT  THIS  TIME 
OVERFLOW  IN  DRIFT  T F ST 
HAD  IMU  TORQUE 

IGNITION  TIME  SLIPPED 

INCORRECT  PROGRAM  REQUESTED  FOR  VEHICLE 
CONFI  GURATI  CN 

JET  FAILURES  HAVE  DISABLED  Y-Z  TRANS. 

JET  FAILURES  HAVE  C IS  ABL  ED  X TRANSLATION 

JET  FAILURES  HAVE  CISAPLEC  P-RCTATION 

J FT  FAILURES  HAVE  DISABLED  U-  V ROTATION 

ICOU  FAIL  CAUSEC  TFE  ISS  WARNING 

ICOU  , PIPA  FAILS  CALSFD  THE  ISS  WARNING 

IMU  FAIL  CAUSEO  THE  ISS  WARNING 

IMU  , PIPA  FAILS  CAUSEC  THE  ISS  WARNING 

IMU  , ICDU  FAILS  CAUSED  THE  ISS  WARNING 

IMU,  IGOIJ,  PIPA  FAILS  CAUSED  TSS  WARNING 


P 32  , P 7 2 , 

P3  2 , P7  2 
P 32,  P72, 

P34,  P7 4 
P 57 
T4PUPT 
SELF  CHECK 
T41  UP  T 
T4RUPT 
RESTART 
RESTA1  T 
INT  ERPRET  ER 
DE  SCENT  GUI  DANCE  EOS- 
S4C  . 8 
S40.8 
S40.  8 

DESCENT  GUIDANCE  FQS. 
P63 
V 37 
IMJ  4 

OPT  PRE  ALIGN  CALI8 
IMU  4 (L  EM  ) 

MIDTOAVE 


P4D 
DAP 
DAP 
DAP 
DAP 
T8RUPT 
T4RUPT 
T4RUPT 
T4PUPT 
T4RUPT 
T4RUPT 


P42 


R 0925  20105 

R0926  2^8  30 
R0927  20607 

10928  21103 

fO  9 29  21204 

10930 

10933  21302 

R9934  21406 

R 0935  21501 

R 0 9 3 6 


AOTMAPK  SYSTEM  IN  USF 
ACCFLERA  II  ON  OVERFLEW  IN  INTEGRATION 
NC  S CL  N FROM  TIME-THETA  OR  TIME-RADIUS 
UNUSED  CCS  BRANCH  EXECUTED 

WAITLIST,  VARDELAY,  FIXDELAY,  OR  LONGCAll 
CALLED  WITH  ZERO  OR  NEGATIVE  DELTA-TIME 
SORT  CALLED  WITH  NEGATIVE  ARGUMENT 
BAD  RFTIIRN  FROM  ROOTPSRS 
KEYBOARD  AND  OISPLAY  ALARM  OURING 
INTERNAL  L SE  ( N V S UB  J . AB  C R T 


AO  T MARK 

ORBITAL  INTEGRATION 
TIME  THE  T,  TIMERAD 
ABORT 

WAITLIST  ROUTINES 

INT  ERPRET  ER 

IGNI TION  ALGORITHMN 

P INBALL 
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< 0938  THE  FOLLOWING  CODES  INDICATE  A E A I LOUT  ABORT  THAT  RESULTS  IN  A SOFTWARE 
R0939  RESTART 


R 0940  31104 

30941  31201 

RD  942  31202 
R 09  43  31203 

R0°4  34  31206 

R09436 

3 0944  31207 

R0945  31?in 

R 0946  3121  1 

* 09464  31502 

R0947  32000 


DELAY  ROUTINE  ROSY 
EXECUTIVE  OVERFLCW-NC  VAC  AREAS 
EXECUTIVE  OVER  FLOW- NO  CORE  SETS 
WAITLIST  CVERFLOW-TOO  MANY  TASKS 
SECOND  JOB  ATTEMPTS  TC  GO  TO  SLEEP  VIA 
KEYBOARD  AND  DISPLAY  PROGRAM 
NO  VAC  AREAS  FOR  MARKS 

TWO  PROGRAMS  USING  DEVICE  AT  SAME  TIME 
ILLEGAL  INTERRUPT  OF  EXTENDED  VERB 
TWO  PRIO  DI  SPLAYS  WAITING 

CAP  STILL  IN  PROGRESS  AT  NEXT  TI  ME  5 RUPT 


EX  EC 
EXEC 

WA  ITL 1ST 
PINBALL 

AOTMARK 

MODE  SWITCHING 
AOTMARK 
DSP  I NT  RFC  E 
DAP 


;ap: 
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L ASSEMBLY  AND  OPFRATICN  INFORMATION 


USER'S  PAGE  NO.  25  EO 


P0948 
* 0949 
RD951 


CFEOKL  1ST  CODES  FOR  LUMINARY 
*9  *17  *26 

P1C0DE  ACTION  TO  BE  EFFECTED 


*9  COLUMN 
PROGRAM 


R 09  5 ? 00C13 

R 09  55  fC'14 

RO  757  000  H 

? 0 96  CCC15 

R9962  00062 

R 0964  0020 1 

<0966  00203 

R 3968 

RT97C  CC205 

R 19  72  OC  500 

R197A 

R 0975 

RC976 

R 0977 


KEY  IN  NORMAL  OR  CYRC  TCRQUF  COARSE  ALIGN 
PROOFED  DO  I MU  = I NE  ALIGN  ROUTINE 
ENTER  DO  LANDING  SITE  DE  TERM  I NA  TI  ON  ( N 89D  I SP  ) 
PFRFTRM  CFLESTIAL  BODY  ACCUISITION 
SWITCH  A GC  POWER  DOWN 
SWITCH  RR  MODE  TO  AUTOMATIC 
SWITCH  GUO  CONTROL  TO  GNC,  RODE  TO  AUTO... 

ALSO  THR  CONT  TO  AUTO 
PERFORM  MANUAL  ACQUISITION  OF  RR 
SWITCH  LR  ANTENNA  TO  POSITION  1 


P 52 

R51.P6  3,  P 57 
P57CPTI  0N2 
P 51,P  51 
PD  6 

P 20  ,P  22  »R  04 
P12,P42,P71 
P40  , P6  3 , P7D 
R 23 
P6  3 


SWITCH  DENOTES  CHANGE  POSITION  OF  A CONSOLE  SWITCH 

PERFORM  DENOTES  START  OR  END  OF  A TASK 

KEY  IN  DENOTES  KEY  IN  0 F DATA  THRU  THE  DSKY 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21*  1970 


(MAIN) 


PAGE  27 


ASSEMBLY  AND  OPERATION  INFORMATION  USER'S  PAGE  NO.  26  EG 

P 0978  OPTION  CODES  FOR  LUMINARY 

uo 79  THE  SPECIFIED  OPTION  CODES  WILL  BE  FLASHED  IN  COMPONENT  R1  IN 

D : 98 1 ' CONJUNCTION  WITH  V04N06  OR  VO  AN  12  (FOR  EXTENDED  VERBS)  TO  REQUEST  THE 
R 098 1 ASTRONAUT  TO  LOAD  INTO  COMPONENT  R2  THE  OPTION  HE  DESIRES. 


R 0982 

*9 

*17 

* 52 

*11 

*25  COLUMN 

R 0984 

CPTI  ON 

? 0985 

CODE 

PURPOSE 

INPUT  FOR  COMPONENT  2 

PROGRAM ( S) 

APPl ICABI LI TY 

RD987 

0000  1 

SPECIFY 

IMU  ORIENTATION 

1 = PREF  2=N0M  3 = REF  SMM AT 

P52 

ALL 

R 0 9 8 9 

4=L  AND  S ITE 

R C 960 

00002 

SPEC  IF  Y 

VEHIC  LE 

1 =THI S 2 =OTHER 

P21*  R3C 

ALL 

RC992 

C0003 

SPECIFY 

TRACKING  ATT  ITIJDE 

^PREFERRED  2=0THFR 

R63 

ALL 

1 C 994 

00004 

SPECIFY 

RADAR 

1=RR  ?=LR 

P 04 

SUNDANCE  + 

LUMI  NARY 

RD996 

0C0D5 

SPECIFY 

SOR  PHASE 

l =F  I R ST  2 =SE COND 

P38 

COLOSSUS  + 

LUMINARY 

RC998 

00006 

SPECIFY 

RR  COARS  E AL  IGN  UPT  ION 

1 = L OC  KON  2=C0MTINU0US  DE  SIG. 

V41N72 

SUNDANCE  + 

LUMI  NARY 

< 1000 

00010 

SPFCI F Y 

ALIGNMENT  MODE 

0 = ANY  TIME  1 = REFSMMAT  +G 

P 57 

L UMI  NARY 

R 1 0 0 2 

2 = TW0  BODIES  3 = CNE  BODY  4-  G 

R 1003 

00012 

SPECIFY 

CSM  ORB  IT  OPT  IGN 

1=  NO  ORBIT  CHANGE  2=C  HANGE 

P22 

LUMI  NARY 

R 100  5 

ORBIT  TO  PASS  OVER  LM 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  70RQASTER 


TAGS  FOP  RELATIVE  SETLOC  AND  BLANK 


BANK  CARDS 


OOOL  PEE 
R0002 


MODULE  1 CONTAINS  BANKS 


C THROUGH  5 


COUNT  RANKSUM 


00'  3 
333  '- 
00f'5 

0006 
3337 
0008 
oouo 
331^ 
or.  11 
0012 
0013 
00  I A 
D?  is 
or  i6 


WORDS  LEFT 


AOOO 
ACCO 
AOOO 
A OCO 
AO  CO 
AOOO 
AOQO 
AOOO 
AOOO 
AOCO 
AOOO 
AOOO 
AOCO 
5776 


05776  1 


RADARFF 
FFTAG1 
FFTAG2 
FF  TAG  3 
FFT AGA 
FFTAG7 
FF  TAG  8 
FFT  AGR 
FF  TAGI  0 
FFTAG1 1 
FFTAG12 
FF  TAG  1 3 


8LCCK  02 

FQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUAL  S 

EQUALS 

EOUALS 

EQUALS 

EQUALS 

EQUALS 

BNK SUM  02 


00  1 B 
D31R 
oo2r 


0020 


7 WORDS  LEFT 


60C0 

6000 

6003 

6CC0 

7770 

7771 


BLOCK  '3 
FFSERV  EQUALS 
FFTAG5  EQUALS 
FF  TAG  6 E QUA l S 

07770  0 BNKSUM  03 

07771  1 


3 3 21 
0 1 2 2 
0023 
0C?3 


00, 2000 
00  ,2000 

2 WORDS  LFFT  00,3775  03775 

00,3776  03776 


DL  AY  JOB 


BANK  CO 
EQUAL  S 
BNKSUM  30 


00  2 A 
3325 
0026 
00  27 
3327 


2 WORDS  LFFT 


01  ,2000 
C 1,  20C 0 
0 1,2000 

01  ,3775  C3775  1 
01,  3776  03776  1 


RANK  3 1 
RESTART  FQUALS 
LOADDAP  1 EQUALS 

BNKSJM  C 1 


002  8 
00  28  5 

0029 

0030 
33  31 
0032 


3 3 3 A 
0035 
00  36 


OA  ,2000 
CA  , 2CC0 
OA,  2000 
OA  ,2000 

0 A, 2000 
OA  ,2  000 
CA, 20C0 
OA  ,2000 
CA , 2000 


BANK 

0RBJTAL3  EQUALS 
R 0 2 EQUALS 

VERB37  EQUALS 
PINBALLA  EQUALS 
CONICS  1 EOUALS 
KEYRUPT  EQUALS 
R36LM  EQUALS 
UPDATE2  EQUALS 
E/PROG  EQUALS 


OA 
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L TAGS  FOR  RELATIVE  SETL3C-  ANO  BLANK  BANK  CARDS 


00365 

0037  2 WORDS  LEFT 

0037 


04  ,2000 
04  ,3  775 
04,  3776 


03775  1 

03776  1 


A0TMARK2 


EQUALS 
BNKSUM  04 


0038 

0039 

0040 

0041 
0 ? 42 
00425 
0043 


1 WORDS  LFFT 


0 5 , 2 0 C o 
C 5,  20 CO 
05,2000 
C 5 , 2 0 CO 
05,  20C0 
05  ,2000 
05 ,3  776 


03776  l 


FRANDRE  S 
DO  WNTELM 
ABORTS  1 
EPHEM1 
AS  ENT  3 


BANK 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BNKSUM 


R0044  MODULE  2 CONTAINS  EANKS  6 THROUGH  13 


0"  4 5 


7046 
00  47 
0048 
33435 
0048  6 
004  ° 
004  9 


5 WORDS  LEFT 


06  ,2000 
C 6,  20C0 
06  ,2000 
06,2000 
06, 2000 
06  ,2000 

06,  3772  C 3772  0 
06,3773  03773  l 


BANK  06 
IMICOMP  EQUALS 
T4RUP  EQUALS 
RCSMONT  EQUALS 
MIDDGIM  EQUALS 
EARTHLOC  EQUALS 

BNKSUM  06 


00  50 
335) 

0052 
00525 

0053 
0053 


WORDS  LEFT 


07.20CO 
C 7,  20 CO 
07  ,2000 
07,2000 
07,  377  1 
0 7 ,3772 


BANK  07 
AOTMARKl  EQUALS 

MOCESW  EQUALS 

ASENT?  EQUALS 

03771  C BNKSUM  07 

03772  0 


3354 

0055 

0056 
3357 
005B 
00  58  5 
0059 
0059 


1 6 WORCS  L EFT 


I . 

i , 

10,2000 
1C,  20C0 
10,2000 
1C  ,2000 
10, 37  5 7 
13  ,3760 


03757 
03  760 


RT  BCD  OES  EQUALS 
DISPLAYS  EQUALS 
PM  A SE  TAR  EQUALS 
FLESHLOC  EQUALS 
SLCTMIJ  EQUALS 
1 BNKSUM 

0 


10 


10 


3363 
0061 
0062 
3363 
OF  6 5 
0065 


IB  WCRDS  LFFT 


1 1,  2CCQ 

I 1 , 290U 
1 1 ,2000 
11,  20CO 

II  ,3755  03755  0 
11,3756  C 3 7 5 6 C 


BANK  11 
ORBITAL  EQUALS 
F2  DPS*  1 1 EQUALS 
INTVEL  EQUALS 

BNKSUM  11 
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ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7FRLINA  BY  ZOROASTER 


b 

3A»: 

b I T AGC  FOR  RELATIVE  SETLOC  4N0  BLANK  RANK  CARDS 


» 

» 


0066 

3367 

00675 

C0676 

3068 

Or  6R 


12  ,2000 
12, 2OC0 
12,2000 
12  ,2OC0 

WOPCS  LEFT  12,  1773 

12  ,7774 


BANK 

CONICS  EQUALS 
ORBITAL  l EQUALS 
INTPRET2  EQUALS 
03773  1 BNKSUM 

07774  0 


I 

0069 

0070 

• 0071 

3372 

0073 

b 00  74 

33745 

0075  15  UCPDS  LEFT 

b 0075 


13,  2C00 
13  ,2000 
13,  20 CO 
13, ?000 
13 ,2000 
13,  2CC0 
13  ,3760 
13,3761 


03760  0 
07761  1 


LATLONG 
INT  IN  IT 
LE  MGEOM 
P7  6LDC. 
CRBIT  AL2 
ABTF  LGS 


BANK 

FQ  UAL  S 

EQUALS 

FOUALS 

EQUALS 

EQUALS 

EQUALS 

BNKSUM 


» 


* 


» 


* 


» 


► 


> 


> 
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L 

P3376 


TAGS  FOR  RFLATI  VE 
MODULE  3 


SFTLCC  AND  PLANK  BANK  CARDS 
CONTAINS  BANKS  14  THROUGH  21 


0077 

0078 
0379 

0079  5 

0080 
0080 


2 WORDS  LEFT 


14,2000 
1 ■ . ’ ' 

14, 2000 
14  ,2000 
14,3775 
H, 3776 


C3775 

03776 


BANK 

P5  0S1  EQUALS 

STAR  TAB  EQUALS 

AS  ENT4  EQUALS 

1 BNKSUM 

1 


14 


14 


00  81 
3382 

0083 
00835 
3 2 84 

0084 


6 WORCS  L EFT 


15,  20 CC 
15,2000 
15,2000 

15,  377  1 C 377  1 
15  ,3772  C 377  2 


0 

0 


BANK 

P 5 OS  EQUALS 

EPHEM  EQUALS 

RRLEADIN  EQUALS 
BNKSUM 


15 


0085 

0086 
0687 
3387 


2 WORDS  LEFT 


16,2000 

16,  2000  DAP  Si 

16  ,3775  03775  1 

16,  3776  C 37  76  1 


BANK  16 
EQUALS 
RNKSJM  16 


0088 
00  89 
33R9  c 
0090 


• WORDS  LEFT 


17,2000 
1 7 ,2000 
17, 20C0 
17  ,2000 


NT  NFEO 


RANK  17 
DAFS2  EQUALS 
C13BANK  EQUALS 

BNKSUM  17 


0091 

0092 

0093 


WORDS  LEFT 


2C , 20CO 

20,  2000 

. 

2C,  2OC0 


NO  NEED 


BANK  20 
OAP  S 3 EQUALS 
LOADDAP  EQUALS 

BNKSUM  20 


0095 

0096 
3398 

0099 

0100  61  WORDS  LEFT 
01  00 


21,2000 
21  ,2000 
2 If  20C0 
21  ,2000 

21  ,3702  03702  1 
21,  370  3 C -;7C3  0 


BANK  21 
DAPS4  EQUALS 

RlC  FQUALS 

Rll  EOUALS 

BNKSUM  21 


9:12  CCT.  21,1970  (MAIN) 

USER  • S PAGE  NO.  ^ 


PAGE  31 
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» 

» 

» 

I 


> 


► 
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L TAGS  FOR  RELATIVE  SETLCC  AND  6L  / AK  BANK  CARDS 


PD  10 1 MODULE  A CONTAINS  BANKS  22  THROUGH  27 


Cl  2 

010  3 
DID* 

010  5 

22,2000 

2?  ,2000 
22,  2000 

22  ,2000 

KALCM0N1 
KALCMON 2 
R30LOC 

BANK 

ECU  ALS 
EQUAL  S 
EQUAL  S 

22 

0106 

22 ,2000 

RENOEZ 

EQUALS 

01066 

22,  2000 

l ANDCN  ST 

EOUAL  S 

010  7 

26  WORDS  LEFT 

22  ,3745 

03745  1 

BNKSJM 

22 

D1D7 

22, 3746 

C 3746  1 

0108 

0 109 

dud 

Gill 

0112 

0113 

23,2000 

73  ,2000 
23,  20C0 
23  ,2300 

23 ,2000 

2 3,  2000 

POWF  LITE 
POWF  LI  T 1 
IN  FL  I GHT 
A POPE  R I 

R 6 1 

BANK  23 

ECU  ALS 
EQUALS 
EQUALS 
EQUALS 

EQ  UAL  S 

0114 

23  ,2000 

R6  2 

EQUALS 

3115 

23,  20C0 

INTPRF  T1 

EQUALS 

0116 

23,2000 

MEAS  INC 

EQUALS 

0 117 

23  ,2000 

ME  AS  I NCI 

EQUALS 

DUB 

23,  20C0 

E XTVB  1 

EQUALS 

0118  5 

23  ,2000 

P 1 2 A 

EOUAL  S 

0 1186 

73,2000 

NORMLI Z 

EQUALS 

01  1fl7 

2 3,  2000 

ASEN  T7 

EQUALS 

0118  8 

23  ,2000 

RODTRAP 

EQUALS 

119 

3 WORDS  LFFT 

23, 3774 

03774  0 

BNKSUM  23 

0119 

23,  3775 

03775  1 

0120 

24  ,2000 

BANK 

24 

D 1 2 1 

24, 2000 

PLANTI  N 

EQUALS 

0122 

24  ,2000 

P20S 

EQUALS 

0 1222 

74,2000 

S4O0NK 

EQUALS 

0123 

7 WOK  OS  LEFT 

24,  3 7 7C 

03770  1 

BNK SUM 

24 

0123 

24  ,3771 

03771  0 

D 1 24 

25, 20C0 

BANK 

25 

0125 

25,2000 

P20S  1 

EQUALS 

" 126 

25  ,2000 

P20S2 

EQUALS 

D 1 27 

25,  20C0 

RADARUPT 

FQUALS 

0128 

25  ,2000 

DRS AMP 

EQUALS 

01295 

25,2000 

PLANTI  N3 

EQUALS 

0130 

8 WORDS  LEFT 

25, 3767 

03767  1 

BNKSUM 

25 

0130 

25  ,3770 

03770  1 

D 1 3 1 

26, 20C0 

BANK 

26 

< 
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GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


TAGS  FOP  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 


0132 
) 1 33 
0134 
0 135 
31355 
0 1356 
0136 


0 WORDS  LFFT 


26  ,2000 
26,  2000 
26  ,2000 
26,2000 
26, 2000 
26  ,2000 
26, 20CO 


NO  NEED 


P20S3  EQUALS 
BA  CLANGS  F DUALS 
MANUVER  EQUALS 
MANUVER1  EQUALS 
PLANTINl  EOUALS 
PL  ANT  IN?  EQUALS 
RNKSUM 


26 


01  37 
r 1 38 
D139 
0140 

0 141 

01  42 
0143 
3 143 


1°  WORDS  LEFT 


27,2000 
27,2000 
27, 20C0 
27  ,2000 
27,2000 
27,  2000 

27  ,3754 
27,  3755 


TOF-FF 
TOF-FF  1 
P40S  1 
VECPT 
ASENTl 

03754  1 

03755  0 


BANK  27 

EQUALS 

EOUALS 

EOUALS 

EQUALS 

EOUALS 

BNKSJM  27 
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USER*  S PAGE  NC. 


ED 


AP: 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZFRL  INA  BY  ZOROASTER 


P31  44 

0145 
0 146 
Cl  4 7 
0 1 4fi 
3149 
01495 
014^6 
314  9 7 
0150 
0 1 50 


TAGS  FOR  RELATIVE  SFTLCC  AND  PL  Ah  K BANK  CAROS 
MODULE  5 CONTAINS  BANKS  3c  THROUGH  35 


14  WCROS  LEFT 


30  , ? 000 
3C  » 23C0 
3c, 2000 

. 

3C|  20C0 
3C  , 2000 
30,2000 
3C,  2000 
30  ,3761 
30,3762 


M2 
AS  ENT 
FCDUW 
FLOGSUB 
VR67  A 
A SFNT5 


30 

EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
BNK  SUM  30 


-^1  S 1 
0 l 52 
315  3 
f 154 
0155 
3155 


6fi  WORDS  LFF  T 


If 

31  ,2  000 
31,  2 '3 CO 
31 ,2000 
31  ,3673 
31,  3674 


BANK  31 
FTHROT  EQUALS 

F 20P  S*  31  EQUALS 
V Q67  EQUALS 

BNKSJM  31 


0156 

0 1 5fi 

01  59 
0160 
3 161 
Ol  6 3 

0 1636 

3164 

0164 


36  WORDS  LEFT 


32  ,2000 
32, 2C CC 
32,  2000 
32  ,2000 
32, 20C 0 
32,2000 
32  ,2000 
3 2,  3733 
32  ,3734 


BANK 

F2  OPS*  32  EQUALS 
ABORTS  EQUALS 


LRS22 

P66L0C 


C 37  33  0 
03734  1 


EQUALS 
EQUALS 
FOUALS 
EQUALS 
R NK  SUM  3 2 


9 165 
01  66 
0167 
31675 
Ol  68 
0 168 


9 WORDS  LEFT 


33  ,2000 
33,  20 C 0 
33,  3766 
33  ,3767 


BANK  33 
SERVICES  EQUALS 
R2Q/SERV  EQUALS 
ASENT6  EQUALS 

BNKSUM  33 


3169 
0170 
0 171 

0172 

0173 
31735 

>1736 
C 1737 
3174 

0174 


3 WORDS  L FET 


34, 2000 
34  ,2000 
34,2000 
34,  2000 
34  ,2000 
34, 2000 
34,2000 
34 ,2000 
34, 3774 
34  ,3775 


03774  0 

03775  1 


BANK  34 
AS  ENT  8 EQUALS 
P30S1  EQUALS 

CSI/CDHl  EQUALS 
ASCFILT  EQUALS 
R 1 2 STUFF  EQUALS 
SERVl  EQUALS 

F2  OPS  *34  EQUALS 

BNKSUM  34 
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TAGS  FOR  RELATIVE  SETLOC  AND  B L A M<  B A A K CARDS 


USER  'S  PAGE  NO. 


EC 


<1  7S 
0176 

0 177 

178 

179 
3180 

01  80 


35,  2000 
35  ,2000 
3 5 , 20C0 
35,  2000 
35  ,2000 

27  WORDS  LEFT  3C,3744  C3744  C 

35, 3745  03745  1 


BANK  35 
CSI/CCH  EQUALS 

P30S  EQUALS 

P4CS3  EQUALS 

P^0S2  EQUALS 

BNKSUK  35 


(,A3:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L TAGS  FOR  RFLATIVF  SETLDC  AND  BLANK  BANK  CARDS 


>"IS1 


MGDILE  6 CONTAINS  BANKS  36  THROUGH  A3 


r IRA 
3 1 A A 


17  WORDS  LHF  T 


36,  2000 

36,2000  PAOS 

36  ,3  756  0375b  0 

36,  37c7  03757  1 


BANK  36 
EQUALS 
RNKSJM  36 


0185 
' 186 
01  86  5 
0187 
3198 
01  R9 
0190 
3191 

0192  A WORTS  LFFT 

- 192 


37  ,2 '>00 

37,?OCO 
37,  2r>00 
37  ,2000 
■ 

37,2000 

, 

37,  20C0 
37  ,3773 
37.377A 


03773  1 
0377A  0 


BANK  37 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
FQUALS 
I MUSU  PER  EQUALS 
SFRV2  EQUALS 

BNKSUM  37 


P05P06 
P 20SA 
TMU2 
I MLA 
R 3 1 


6193 
' 19A 
3195 
Ol  96 
0 1965 
0197 
0197 


AO, 2000 
AC, 2000 
AC,  2OC0 
AO, 2000 
AC  ,2  000 

13  WORDS  L EFT  AC,  3762 

AO  ,3  763 


BANK  AO 
PINBALL1  EQUALS 
SELFSUPR  EQUALS 
P INS  UP  ER  EQUALS 
R31LQC  EQUALS 

03762  1 BNKSUM  AO 

03763  0 


019R 
01  99 
0200 
3233 


WORDS  LFFT 


BANK  A 1 
P INBALL  2 EQUAL  S 


A 1 ,3775  03775  1 
A I,  3776  C3776  1 


RNKSUM  A 1 


02  ol 
0 20  2 
3233 
020  A 


1 WCPDS  LFFT 


A2 , 2000 
A2  ,2000 
A 2,  2OC0 
A2  ,3776 


03776 


RANK  A 2 
S B AND  EQUALS 
PI  NR  ALL  3 F QUALS 

BNKSUM  A 2 


0 20  5 
02  06 
0207 


A 3 , 20C0 
A 3,  2000 
A3  ,2000 


RANK  A3 
E X TVER  B S EQUALS 
SELFCHEC  EQUALS 


323R  33  WORDS  LFFT  A3, 3736  03736  0 

02C8  43,3737  03737  1 


BNKSUM  A 3 
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9239 

REF 

1 

23,  2C  17 

HI 6ZER0S 

EQUALS 

ZEROVECS 

0210 

REF 

1 

12,  2006 

L06ZFR0S 

EQUALS 

ZEPOVFC 

0211 

REF 

1 

23  ,2515 

HIDPHALF 

EQUALS 

UNITX 

9212 

REF 

1 

12, 20C4 

LOO  PH  A LF 

E QUALS 

XUM  T 

0213 

REF 

1 

23  ,2507 

HICP1/4 

EQUAL  S 

DP  1/4TH 

0 214 

R EF 

l 

LCDP1  /4 

EQUALS 

D1  / 4 

0215 

RFF 

2 

L AST 

37 

23,  25  15 

HI  UNI  TX 

EQUAL  S 

UNI  TX 

0216 

PFF 

1 

23  ,2513 

HIUN  ITY 

EQUALS 

JN  ITY 

9217 

P EF 

1 

23,  2511 

HI  UNI  TZ 

EQUALS 

UNITZ 

2 1 8 

RFF 

2 

LAST 

37 

1 2,2004 

L 0 UN  I T X 

EQUALS 

XUNI  T 

021° 

RFF 

1 

12  ,2002 

LCUNI  TY 

EQUALS 

YUNIT 

322? 

REF 

1 

12, 20CO 

LOUNI  TZ 

EQUALS 

ZUNI  T 

R 0221 

0222 

R FF 

1 

22,3541 

DELRSPL 

EQUALS 

S PL  RET 

R0223 

ROPE 

-SPECIFIC 

ASS  IGNS  OBV  I AT  INC 

NEED  TO  CHECK  COMPUTER  FLAG  IN 

0225 

REF 

l 

1 3,2  733 

ATCPTHIS 

EQUALS 

AT  OPl  EM 

3226 

REF 

1 

13, 2660 

A TOPOTH 

EQUALS 

ATCPCSM 

0227 

RFF 

1 

13  ,3042 

OT  HPREC 

EQUALS 

CSMPREC 

.1 2 2R 

RFF 

1 

0174 

MOCNTHIS 

EQUALS 

L MOON  FL  G 

3229 

RFF 

1 

0 173 

MOONOTH 

EQUAL  S 

CMOONF  LG 

0230 

REF 

1 

13,2746 

MOV  AT  HIS 

EQUALS 

MOVEALEM 

0231 

REF 

1 

12,  2017 

R MM 

0232 

REF 

1 

12,  20  21 

RME 

= 

LOOPMA  XI 

0233 

REF 

1 

13 ,3056 

TH  IS  PREC 

EQUALS 

LEMPREC 

3 234 

RFF 

2 

1 AST 

37  23,  25  1 1 

THI  SA  XI  S 

= 

UNI  TZ 

0235 

REF 

1 

23,2511 

NB 1MB 2 

EQUAL  S 

THI  SA  XI  S 

0236 

REF 

1 

5011 

ERASI D 

EQUALS 

BITS2-1P 

3237 

REF 

1 

47  5 2 

DEL  A YN  UM 

EQUAL  S 

TWO 

9:12  CCT.  21,1970 


(MAIN ) 
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USER 'S  PAGE  NO.  10  EO 

ZERO  VECTOR  ALWAYS  IN  HIGH  MEMORY 
ZERO  VECTOR  ALWAYS  IN  LOW  MEMORY 


2 DEC  .25 


2DEC  .5 
2DEC  0 
2 DEC  0 


COL  PGM,  ALSO  CALI  ED  RY  R3Q  IN  LUMINARY 
DETERMINING  INTEGRATION  AREA  FNTRIES. 


FOR  R 3 I 

DOWNLINK  ERASABLE  DUMP  ID 


SAP:  ASS  6 PPL  E REVISION  56  OF  AGO  PROGRAM  Z ERL  IN  A BY  ZOROASTER 

L CONTROL LEO  CONSTANTS 

P0301  DPS  AND  A°S  ENGINE  PARAMETERS 


9:12  OCT.  21  ,1970  (PAIN)  PAGE  38 

USER  'S  PAGE  NO.  1 EO 


0<  ? 
0003 
onr.A 


REF 

REF 


1 


SETLOC  PADS 
BANK 

COUNT*  S*/P60 


100<5  ***  THF  ORDER  OF  THE  FOLLOWING  SIX  CONSTANTS  MUST  NOT  BE  CHANGED 


3336 
0006 
0(  7 

3337 
0008 
00C8 
0009 
0009 
3313 

one 

03  11 
3311 
ROC  12 

Or- 122 
00122 
1 00126 

3313 
001  3 
00  16 
3316 

0015 

0016 
0017 


36. 2000 

36.2001 

36.2002 

36,  200 3 

36 .2006 
26.2QC5 
36,  2006 

36.2007 

’6,  2010 

35.2011 

36.2012 
36,  20  13 


FOPS 


2DEC 


******************* 


" 36,2016 

36,  20  15 

#£*$*:!«#**:£***** 


36,  2016 
36,2017 
36,2020 
36,  2021 
27  ,2000 
27,2000 


ClC5o  0 
37167  0 
C0657  1 
03250  0 
77777  0 DTCECAY  2DEC 
77731  1 
00307  C FAPS 
11C6Q  0 
CC151  1 
05216  0 

77777  0 AT DEC  AY  2 DEC 
77755  0 

*$$*4**#  *#*:>!<*#**********! 

CCCC3  1 100PCTT0  2 DEC 

00000  1 

****#«*#****************: 


PDCTQPS  2 DEC 


2de: 

MDOTAPS  2DEC 


6.  3670  P-7 
C > . 1 6 80  B-3 


1.  5569  B— 7 
0.05135  8-3 


0CC26  0 FRCS6 
30605  1 

00013  FRCS2 
16303  1 


2 DEC 
2 DEC 


9817.5  LBS  FORCE  IN  NEWTONS 
32.62  LBS/SEC  IN  KGS/C  S. 

60  PERCENT  FTP-DPS  TAIL  CFF  FOR  P60 
3500  IBS  FORCE  IN  NEWTONS 
11  .32  LBS/SEC  IN  KGS/CS 
-18  618  LB-SEC  TAILOFF  FOR  APS 

** *************** 

26  B-l  7 10"  PERCENT  FTP-DPS  TAILOFF  FOR  P 70 

***************** 

0.  17792  B-7  600  LBS  FORCE  IN  NEWTONS 

0.08R96  B-7  20C  LBS  FORCE  IN  NEWTONS 


RFF 

RFF 


SETLOC  P6CS1 
8 ANK 

COUNT*  $t/P6C 


1001  8 ***  APS  I PPUI  SE  DATA  FOR  P62  ** 

3019  27,  20CC 

OGl 9 27,2001 

00  20  2 7,2  002 

0020  27,  2003 

0021  27  ,2006 

0021  2 7 , 20C  5 

R0022  ***************************** 


************************ 
2DEC 
2 DEC 
20EC 


CCCCO  1 K1  VAL 
10666  0 

00000  1 K2VAL 
CC  7 6 2 1 

000  30  1 K3VAL 
35106  1 

****************************************** 


k************ 

161.12  B— 23 
31  .138  B-26 
1.5569  B— 10 


3150  LB. SEC  APS  IMPULSE  (WET) 
700  L8-SEC 

FAPS  ( 3500  LBS  THRUST) 


0026 

0026 

0025 


2 7,2  006 
27,  20C7 

27.2010 

27.2011 
27,  20CO 


00016  0 S60.136  2 OEC  .6671  B-9 

36237  1 

35711  0 S60.136_  2DEC  . 6671  B+  1 

35663  1 


.6671  M NEWTONS  (DPS) 
S6C. 136  SHI FTFD  LFFT  10. 


SE  T L CC  ASENTl 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER  <5 : 1 2 OCT.  21,1970  (MAIN)  PAGE  39 


L 

CCNTRCLLED  CONST  ANTS 

USER'  S PAGE  NC.  2 ED  S3 

0026 

27,2012 

BANK 

0527 

REF  1 

COUNT* 

S$ / P70 

0028 

27  ,2012 

03631  0 

(l/OV  ) A 

2DEC 

15.20  B-7 

2 SECONDS  WORTH  OF  INITIAL  ASCENT 

0028 

27,2013 

23166  0 

A002  9 

STAGE  ACCELERATION  — INVERTED  ( M/ CS  ) 

A 0030 

1)  .PREDICATED  ON  A LIFTOFF  MASS  OF 

A3  0 3 1 

6369  .9  KG  (SNA-8-D-027  7/  1 1/68) 

A0032 

2)  PREDICATED  ON  A CONTRIBUTION  TO  VEH- 

A  00  33 

ICLE  ACCELERATION  FROM  RC S THRUSTERS 

A3  3 34 

EQUIV.  TO  1 J FT  CN  CONTINUOUSLY. 

00  35 

27  ,2016 

33226  1 

K ( 1/  DV  ) 

2DEC 

636.70  B-9 

DPS  ENGINE  THRUST  IN  NEWTONS  / 100  CS . 

0035 

27,2015 

16632  0 

00-3  6 

27,  2o  16 

05306  1 

( AT)  A 

2de: 

3.2883  E-6  B9 

INITIAL  ASC.  ST  G.  ACCELERATION  **M/CS. 

0036 

27  ,2017 

15503  0 

A3  D 37 

ASSUMPTIONS  SAME  AS  FOR  (1/DV)A. 

0038 

27,2020 

26337  1 

{ TBIJP  ) A 

2DFC 

919C2  B-17 

ESTIMATED  BURN-UP  TIME  CF  THE  ASCENT  ST  G 

0038 

27,2021 

30000  1 

A3039 

ASSUMPTIONS  SAME  AS  FOR  ( 1/  DV  ) A WITH  THE 

A 0060 

ADDITIONAL  ASSUMPTION  THAT  NET  MASS-FLOW 

A0061 

RATE  = 5.299  KG/SEC  = 5.135  (APS)  * 

A0062 

.166  (1  RCS  JET  ) . 

0063 

REF  1 30,2000 

S ETLOC 

AS  ENT 

3366 

2 C,  2 'ICO 

RANK 

0065 

REF  1 

COUNT* 

S$/ASENT 

0066 

30,2000 

02665  0 

AT/RCS 

2 DEC 

.0000785  B+10 

6 JETS  IN  A DRY  LEM 

3266 

3 C,  20C  1 

CC276  0 

0067 

RFF  1 33,2000 

setlo: 

SERVICES 

00  68 

33  ,20CO 

BANK 

3069 

REF  1 

C OlJNT* 

S S / SFRV 

R 0050 

***  THE  ORCER  OF  TPE  FOLLOWING 

TWO  CONSTANTS  MUST  NOT  BE  CHANGED  ******* 

0051 

33, 20C0 

61565  0 

APSVEX 

DEC 

-3030  F-2  B-5 

9962  FT/SEC  IN  M/CS. 

0052 

3 3,  200  1 

62361  1 

OP  SVE  X 

DEC* 

- 2. 955RPR68E  + 

IB-05*  VE  (DPS)  +2  .95588868  E+  3 

* 0053 

********************tf***i(ij)!:iic;<cJ!i>!<$>Si:4t]<t#>i:$:*;}i 

4***$  **#******#«i>*^*** 

**  . 

3356 

RFF  1 31,  2000 

SE TLOC 

F 2DP  S*  3 1 

0055 

31  ,2000 

BANK 

0056 

REF  1 

COUNT* 

HS/F2DPS 

0057 

31,  2000 

00222  0 

TR  IM  AC  CL 

2de:* 

+ 3.  5013  2708E- 

5B+C8*  A (T)  +3  .50 1 327D8  E-  1 

' 

31 ,2001 

33316  0 

ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  RY  ZOROASTER 
CONTROILFO  CONSTANTS 

THROTTLING  AND  THRUST  RET  ECT  ION  PARAMETERS 


9:  12  0:T.  21,  1970  ( MA  IN) 

USER'S  PAGE  NO.  3 


PAGE  40 
EC  S3 


0059 

3350 

0061 


P.EF 

RFF 


2 I AST 
2 LAST 


38 


?R  : 


18 


1« 


SETLCC  P40S 
RANK 

COUNT*  *S/P  An 


3362 

006-3 

0064 

3 t 5 
0066 
00  6 7 


0069 

3373 

0071 


RFF 

REF 

REF 

REF 

REF 


36,  2022 
36,2023 
4737 


C0C30  1 THRESH1  DEC 
00014  1 THPESH3  OEC 
HIRTHRCT  = 


SETLOC  FF  TAG  5 
RANK 

COUNT  * SS/P40 


00464  1 THRESH2  DEC 


SETLOC  FTHROT 
BANK 

COUNT  * **/THPOT 


0072 

3073 

or  74 
00745 

0074  5 

0075 
3076 
0077 


REF 

REF 


31  ,2002 

31  ,2004 
31,  20V  5 

1 , 

32  ,2000 

22,  2000 


07401  0 F MAX  000  OEC 
06613  0 FMAXPDS  DEC 


3841 

3467 


FSAT 

FMAX 


00010  0 THROTLAG  OEC  + 8 

C03C7  0 SCALEFAC  2 DEC*  + 7 . 97 959 87 2 E+  2B-16* 

17534  C 

SETLOC  F 2DPS  *3  2 
BANK 

COUNT  * f.*/F2DPS 


+ 4.  81454413E+  4 
+4.34546759E+  4 


G0044  1 OPSTHRSH  OEC 


36 


TH3FSH3  FOR  P63) 


GAP:  ASStMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 


L CONTROL l ED  CONSTANTS 

P 0082  LM  HARDWARE-RELATED  PARAMETEFS 


9393  REF  1 25,  2000 

00B4  25,2000 

0085  REF  l 


SETLOC  PADARUPT 
RANK 

COUNT*  $ $/  RRU PT 


9986 


25,2000  47777  0 LVELBIAS  DEC  -12288 


25  ,2001  0000  1 r R DOT  B I AS  2 DEC  17000 

25.2TC2  f 1150  1 


0088  REF  1 32,  2000 

0089  32  ,2001 

3090  REF  1 


SETLO:  LRS22 
RANK 

COUNT*  S $ / L R S2 2 


' C91 
00  91 
0092 
0092 
3098 
0099 
C 100 


REF  1 
REF  1 


32  ,2001 

32 ,2  OC  2 

70123 
40  70? 

0 

0 

ROOT CONV 

2DEC 

- .0019135344 

32,  2003 

32  ,2004 

13337 

19776 

1 

0 

R ANGCON  V 

2DEC 

2. 859024  R— 3 

34, 2000 
34,2000 

SETLOC 

BANK 

SERV1 

COUNT* 

$$/S ERV 

3131 
Old 
C 10  2 
0102 
v 1 3 

3133 


34,  2000  5 1 10  2 

34,2001  42414 

34.20C2  75522 

34,2003  46002 

34  ,2004  51573 

3 A,  20C  5 62362 


0 HBEAMNB  20EC 
0 

0 2 DEC 

1 

1 2 DEC 

1 


-0. 7l 47l 68647 
-0  .0731086602 
-0  .6955824372 


( 104 
3195 

0105 
0 1C  6 

0106 


34,2006  62770  0 

34  ,2007  40667  1 

34,  2010  C 3C 34  0 

34  ,2011  21031  0 

34 , 2012  35045  0 

34,  2013  21C77  1 


VZBEAMNR  2DEC  - 0. 40 67 36643C 
2DEC  +0.0954°15028 


? DEC  +0  .908540969" 


0107 
3137 
01  08 
010  8 
3139 
0109 


34.2014  OOGOC  1 

34. 2015  CCCCO  1 

34.2016  37646  1 

34.2017  C7712  1 

34,  2020  745  17  1 

34  ,2021  54765  1 


VY0EAMNB  2 0 EC 
2DEC 


20EC 


+0  .0 

+0. 9945218954 
-0. 1 045284632 


0 ID 
r 1 1r 
Dili 
111 
0112 
112 


34  ,2024 

34. 2025 

34.2026 
34  ,2027 


35167  1 
20727  1 
01270  0 
22313  0 
14743  1 
16747  1 


VXBEAMN8  2 DEC 
2 DEC 

2de: 


+0  .9135454576 
+0  .042515556? 
+0. 4045084971 


: 12  OCT  . 21,  1970 


(MAIN) 


PAGE  41 


USER'S  PAGE  NO.  4 E3  S3 


LANDING  RADAR  BIAS  FOR  153.6  KC. 
BIAS  COUNT  FOR  RR  RANGE  RATE. 


7 CONVERTS  RR  ROOT  READING  TC  M/CS  AT  2(7) 
CONVERTS  RR  RANGE  READING  TO  M.  AT  2(-29 


POS  1 ALT  BEAM  IN  NAV  BASE  COORDINATES 


POS  1 VZ  BEAM 


PD  S 1 VY  BEAM 


POS  1 VX  BEAM 


& S SF  MB  LE  RF  VI  SI  ON  5*»  OP  AGC  PRCCRAM  2 ERL  l N A 0Y  ZOROASTER 
CONTROLLED  CONSTANTS 

2DEC 
2de: 

2 DEC 

2 DEC 
2CEC 

2DFC 

2DEC 
2 DEC 
20EC 

2DFC 
2 DEC 
2 DEC 


113 

34,2030 

4200  1 

0 113 

34  ,2031 

62422 

3114 

34,  20  3 2 

766  5 3 

0114 

34,2033 

63102 

1 1 5 

34, 2C34 

64725 

011  5 

34,  20  35 

63461 

1 1 6 

34,2036 

00000 

m< 

34, 2C  37 

cccco 

0117 

34  ,2040 

0 3 260 

C 117 

34,204  l 

23C12 

,118 

34,  2042 

37646 

C 1 1 8 

34,2043 

C7712 

SHI 

34,  2C44 

CCCCO 

34,2045 

00000 

0 120 

34  ,2046 

37646 

3123 

34,  2047 

C77  12 

0121 

34  ,2050 

74517 

r 121 

34,2051 

54765 

3122 

34,2052 

37777 

0122 

34,2053 

37777 

3123 

34, 2Cf 4 

COCCO 

34,2055 

CCCCO 

0 124 

34  ,2056 

00000 

3124 

34, 2C57 

COCCO 

01241 

0 1242 

REF 

2 LAST  39  33  ,2000 

33,2002 

01243 

REF 

2 LAST  39  TO  39: 

2 

125 

33  ,2002 

65363 

3 1 25 

33,  20C  3 

64451 

R 0 1 2 6 

***** 

THE  SECUENCE  OF  TPF  FOLLOWING  C 

0127 

33,2004 

21241 

3 127 

33,  2005 

0 3 2 16 

0128 

33  ,2006 

30153 

0 128 

33,2007 

23101 

0129 

33,  20  10 

63105 

0129 

33,2011 

61733 

R 3 1 33 

****************************** 

******* 

0131 

33  ,2012 

01507 

0 132 

33  ,2013 

00321 

? 1 32 

33,  20  14 

2 6 7C  6 

-0. 9374G36C7C 
-0.  C3640H993 
-0  #346337 1311 


+0.1045284632 

+ 0.  9945218954 

+0.0 

+0  .9945218954 
-C.1C45284632 


9:  12  OCT.  21,  1970  I MAI  N) 

USER'S  PAGE  NO.  5 
POS  2 ALT  BEAM 


PAGE 
EO  S3 


POS  2 VZ  BEAM 


POS  2 VY  BEAM 


+0.9995999999  POS  2 VX  RFAM 


SETLOC  SERVICES 
BANK 

COUNT*  $ $ / SE  R V 
2 OEC  -.3288792 


+.5410829105 


.7565672446 


4020043770 


SCALES  1.C79  FT /PIT  TO  2(  22)  M. 

SCALES  .8668  FT/SEC/BIT  TO  2(18)  M /C  S. 

SCALES  1.212  FT/SPC/RIT  TO  2(18)  M/CS. 

SCALES  -.644  FT/SEC/BIT  TO  2(18)  M/CS. 


$*#**#<<**«* 


AP:  ASSEMBLE  REVISION  56  OF  AG C PROGRAM  ZERLINA  BY  ZOROASTER 

CONTROLLED  CONSTANTS 

20EC  • 0G64 


5 133 
0133 

0136  REF  1 

0137 

013B  RFF  1 


21 » 2000  SETLOC  RIO 

21,  2000  BANK 

COUNT*  * $/ R 10 

21,  2000  015C7  1 LANAKPIP  DEC  -0512 

21.2001  00466  0 MAXVEL  OCT  00466 

21.2002  01034  1 MAXDBITS  OCT  01034 

21,  2003  01  115  0 VELCDMV  DEC  . 03594 

21  ,2004  05101  1 ALTRCONV  DEC  . 16020 

21,2005  26305  0 ALTCONV  DEC  . 65954 


0145  REF  1 

0146 

Ol  4 7 REF  1 


SETLOC  DAPS  3 
RANK 

COUNT*  SWDAPAO 


20,2000  01150  1 TORKJETl  DEC  .03757 


► 

3 

» 

> 

2‘ 

» 


> 

> 


9:12  OCT.  21  ,1970  (RAIN)  PAGE  43 

USER  'S  PAGE  NO.  6 EO  S3 

SCALES  DELV  TO  UNITS  OF  2(8)  M/CS. 

SCALES  PIPAS  TO  UNITS  OF  2(5)  M/CS 

198.645  F/S  IN  UNITS  CF  2(5)  M/CS 

ABOUT  300  F/S 

SCALES  VEL  AT  ONE  R/CS  TO  .5571  F/S/BIT 

SCALES  ALTR  AT  2(2)  M/CS  TO  .5  F/S/BIT 

SCALES  ALT  IT  J DE  AT  2(15)  M TO  9.38  F/BIT 


5 5 f / .2  SCALED  AT  ( + 16)  64  / IRC 


GAP: 


ASSErMBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


l COM  ROLLED  CONSTANTS 

->  149  PARAMETERS  RELATING  TO  PASS,  INERTIA,  ANC  VEHICLE  CIMENSTIONS 


Dl*?  PFF 
0151 


05,  2000 
05  ,2000 


SFTLOC  FRANDRFS 
RANK 


15?  REF 


COUNT*  **/START 


•153 


05,  2000  02357 


FULLAPS  DEC  505<  B-  16 


•15A  REF 
3 155 

: 156  PDF 


1 


Cl ,2  CO 
C l,  ?.rC0 


SFTLOC  L0AP0AP1 
BANK 

COUNT*  SS/P03 


P 1 57 
3158 

0150  REF 

"'160  REF 
016* 

016?  REF 
31  f 3 


1 

2 LAST 
2 LAST 


A3 

A3  TO 


01  ,2  000 

0 1, 200  1 


2C, 2000 
20, 2001 

A6  : 


20,  200  1 


76A66  1 PINLMO  DEC  -2850  B-l  6 

76721  0 MINMINLM  DEC  -2200  B-16 

MINCSM  = RIT11 

SE  TLCC  0APS3 

BANK 

1 1*  COUNT*  * 1/  DAP  AO 

0 10 A6  1 LOASCENT  DEC  2200  R-1fe 


20,2002  10  1 17  1 HIDESCNT  DEC 
2 C , 20C  3 CC  666  1 LODESCNT  DEC 


16  700  B-16 
1750  B-16 


9:  12  OCT  . 21,  1970 


( u A IN  ) 


PAGE 


AA 

USER'  S PAGE  NC.  7 63  S3 


NOMINAL  FULL  ASCENT  MASS  — 2 (lb)  KG. 

MIN.  DESCENT  STAGE  MASS  — 2(16)  KG. 

PIN  ASCENT  STAGE  MASS  — 2(16)  KG. 

MIN  GSM  MASS  (OK  FOP  1/ACCS)  = 9050  LBS 


MIN  ASCENT  LEM  MASS  — 2(16)  <G. 

MAX  DESCENT  LEM  MASS  — 2(16)  KG. 

MIN  OESCENT  STAGE  (ALONE)  — 2(16)  KG. 


GAP: 

L 

PC  ] 66 

t'1  S7 

■ 168 

0169 

0170 

0170 

01  71 

0172 

0 173 

ROl  74 

0176 

0176 

-'176 

0 176 

ROl  77 

178 

0179 

Cl  80 

0 181 

0181 

0182 

0103 

0184 

01  85 

0135 

01  06 

■>186 

018  7 

0188 

0 189 

ROl  90 

0191 

j 191 

1« 

0 19? 

ROl  93 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  GGT.  21 ,1970  (MAIN) 


CONTROLLED  CONSTANTS 


USER  • S PAGE  NC.  8 


PHYSICAl 

CONSTANTS  ( 

TI  ME  - I NVARI  ANT  ) 

PFF  1 

17,  2000 

sftlo: 

IMU2 

BANK 

REF  1 

C OUNT* 

a / P07 

07623  l 

□ MEG/MS 

2DEC 

.24339048 

37,2001 

26552  1 

PEF  1 

22,  2000 

SE  TLOC 

R3QL0C 

22  ,?000 

RANK 

REF  1 

C OUNT* 

$S  / R30 

***  THE 

ORDER 

OF  THE 

FOLLOW  ING 

TWO  CONSTANTS  MUST 

BE  PRESERVED  ********* 

22  ,2000 

27533  1 

1 / RT  MU  M 

2 DEC* 

.45162595  E-4  B14* 

22,  200  1 

07671  0 

22  ,2002 

25004  1 

1/RTMUE 

20EC* 

.50087529  F- 5 B17* 

2 2 » 20C3 

C67C2  1 

******** 

****** 

*********  ******  * * ****************************************** 

PFF  2 

LAST 

38 

27,2000 

S FTLOC 

P40S  1 

27,  2022 

BANK 

REF  1 

COUNT* 

SS/S4C.  9 

27,2022 

55340  0 

EARTHMU 

2 DEC* 

-3.986032  El C 8-36* 

27, 2023 

6 1710  0 

REF  2 

LAST 

38 

. 

SETLOC 

ASENT1 

27,2024 

BANK 

REF  1 

COUNT* 

it  /Pi  2 

27,2024 

00072  1 

MUM (-37 ) 

2 DEC* 

4.9027780  E8  B-37* 

, 

1 6 2 C 6 1 

27,2026 

00344  I 

MOONRATF 

2DEC  * 

. 266165548901  62991  E-  7 B + L' 

27,2027 

24331  0 

REF  3 

LAST 

42 

33, 2000 

SETLOC 

SERVI CES 

33  ,2017 

RANK 

REF  3 

LA  ST 

42  TO 

43  : 

13  15* 

CCUNT  * 

St/SER V 

***  TFF 

OR  CEP 

OF  THE 

FOLLOW  ING 

TWO  CONSTANTS  MUST  BE  PRESERVED  ********* 

33,2017 

5534 C 0 

-MUEARTH 

2 DEC* 

-.3986032  F+ll  B-36  * 

33,  2020 

61710  0 

33,2021 

7761?  0 

-MUMOON 

2DEC* 

- . 49C2778  F+09  B-36  * 

33,2022 

4?^s?  0 

M ( 3)/CS( 


PAD/CS. 


2) 


PAGE  45 
EO  S3 


4 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L C CM  PCI  LED  CCNST  ANTS 


9:12  OCT.  21,1970 
USER*  S PAGE 


(MA  IN  > 
NC.  9 


4 

PAGE  96 

FO  S3  ^ 


0 194 

33  ,2023 

00002 

0 

RESC 

2 DEC* 

40  .6809913  El  2 B-5P* 

3194 

33,  2924 

11777 

0 

0195 

33  ,2025 

010  23 

1 

20  J 

2 DEC 

3.2469  20  10  E-  2 

01  ^5 

13,  2026 

37155 

1 

01  96 

3 3,  20  27 

OOC  6 5 

1 

2J 

20  EC 

3.  24692C1C  F-3 

0196 

33,2030 

06244 

0 

0197 

REF 

1 

14, 20C0 

SETLOC 

P50S1 

01  OR 

14,2000 

BANK 

0 199 

REF 

1 

COUNT* 

f $/ L OS  AM 

3 2 00 

14, 2000 

2 6 7 2 3 

0 

R SUBEM 

2DEC 

384402000  B-2  9 

0200 

14  ,2901 

0045C 

0 

0231 

14, 20C2 

CCC65 

1 

R SLBM 

2 DEC 

1738090  P-29 

0201 

14, 2003 

01265 

1 

1 4 ,2  004 

00302 

o 

RS  UBE 

2 OEC 

6378166  8-29 

3222 

14,  20C5 

245  33 

1 

020  3 

14  ,2006 

00052 

0 

ROE 

2DEC 

.00257125 

0 20  3 

14 , 2007 

04047 

o 

0204 

REF 

1 

04,  2000 

SE  TLOC 

CONIC  Si 

0205 

04 ,2000 

BANK 

3236 

REF 

1 

C OUNT* 

i%/  LT-LG 

0207 

04,2000 

00  30  2 

0 

EP  AD 

2DEC 

6373338  B-29  PAD  RADIUS 

3 20  7 

04,2  JC1 

1 7755 

0 

323R 

04, 20C2 

G0C65 

1 

504RM 

2DEC 

1 738090  B-2 9 METERS  8-29  (EQUATORIAL  MOON  RADIUS) 

0208 

04  ,2003 

01265 

1 

0 209 

REF 

2 LAST 

46  04,2000 

SETLOC 

CON  ICS1 

0210 

BANK 

"211 

REF 

1 

COUNT  * 

$ t/  CON  IC. 

R3212  ***  THE  ORDER  OF  THE  FOLLOWING  CONSTANTS  MLST  BE  PRESERVED  ************* 


1 2 1 3 
0 213 
0219 
0219 
0215 

0215 

0216 
3216 


09.2009  22937  1 

09,2005  16067  1 

C 9,  200  6 15625  1 

04,2007  21042  1 

04.2010  20276  1 

04,  20  1 1 04773  0 

04,2012  25004  1 

C4, 2011  C67C2  1 


MUTABLE 


2DEC* 
2DEC* 
2 DEC* 
2 OEC* 


3.  986032  E10  B-36*  MUE 
. 2 5087606  E-1C  8+34*  1 / MJ  E 

1 .99650495  E5  B-18*  SQPT(MHF) 

.50087529  E- 5 B+17*  1/SDRT(MUE) 


0217 

04,2014 

16471  1 

2DEC  * 

4.  9C2778  E 8 B-30* 

MUM 

0217 

34,2015 

01352  1 

3 218 

04,  2016 

21412  0 

2DEC* 

.203966  E-8  B+28* 

V MJM 

021  8 

04  ,2017 

20500  0 

0219 

04,2020 

25477  1 

2 DEC* 

2 .21422176  E4  B-15* 

SORT (MUM ) 

0219 

04,  20  2 1 

03367  C 

0220 

04  ,2022 

27533  1 

2 OEC* 

.45162595  E-4  B+14* 

1/SDR  T(  MUM) 

3223 

C4 , 2023 

07571  0 

) 


■ AP : ASSEMBLE  REVISION  66  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT  . 21,  1970 


L 

CONTROLLED  CONSTANTS 

US  ER' J 

*0221 

I,*#**#*  *#**$**##  * Jt^*##^*#*** 

********************************* 

3222 

REF  1 

13, 20C0 

SETLOC 

I NT I NIT 

0223 

1 \ ■ • 

BANK 

0224 

RFF  1 

CCU  NT* 

1$ / INT  IN 

3225 

, 

07112 

1 

OMEGMOON 

2DEC* 

2.66169947  E-8  B+23* 

0225 

. 

06620 

0 

0226 

REF  l 

13,2000 

SETLCC 

ORBIT  A L2 

(22  7 

13,  200  2 

BANK 

0228 

REF  1 

COUNT  * 

S S/ORBIT 

R 3 2 2 9 

***  THE  ORDER  OF  THE 

FOLLOWI NG 

CONSTANT 

S M L ST  NOT  BE  CHANGED  *********** 

02  3 

13,2002 

27446 

1 

2D  EC* 

1. 32715445  E16  B- 54*  S 

0 230 

• 

14620 

0 

3 231 

. 

16471 

1 

MUM 

2DEC* 

4.  9027780  E8  B-30*  M 

0231 

' , 

01352 

1 

C 232 

13,2006 

22437 

1 

MUEARTH 

2 DEC* 

3 .986032  E10  8-36* 

0232 

• 

16067 

1 

0233 

13  ,2010 

00000 

1 

2 DEC 

0 

3233 

13, 2011 

CCOCO 

1 

0234 

13,2012 

02302 

l 

J4REQ/J  3 

2DFC* 

.4991607391  E7  B-26* 

0234 

13,2013 

24736 

0 

3235 

13,  2014 

7765  1 

0 

2DEC 

-1  76236.02  B-2  5 

0235 

13  ,2015 

76237 

0 

0236 

13 ,2016 

77776 

1 

2 J3RE/J2 

2 DEC* 

-.1355426363  E5  B-27* 

0236 

■ ■ 

6 3o  3 2 

0 

0237 

13  ,2020 

10407 

0 

2 DEC* 

.3067493316  F 18  8-60* 

3237 

■ 

C 5 344 

l 

0238 

13,2022 

13710 

0 

J2REQSQ 

2DEC* 

1.75501139  F 2 1 B- 72* 

0238 

13  ,2023 

35320 

0 

3239 

13,  2024 

12  160 

0 

3j22R  2M.U 

2DEC* 

9.20479048  El  6 B-58* 

3 

13  ,2025 

12  124 

0 

02A1 

0242 

3243 

44 

3244 
( 245 

•246 

>247 


REF 

REF 


REF 

PFF 


27,  ?->33 
27,  202  1 

42,2000 
42  ,2000 


SETLOC  TOF-FF  l 
BANK 

COUNT*  tt/TFF 


SFTLO: 

BANK 

COUNT*  f*/P05 


. 500575G271  F-5  R 17* 
SBAND 


MODIFIED  EARTH  MU 


PAGE  47 
El*  S3 


42  ,2000  26723  0 REMDIST  2DEC 

4 2,2  1 C C4 


38440  2000  8-29 


MEAN  DISTANCE  BETWEFN  EARTH  AND  MOON. 


GAP  : 


iSSEHBLE  REVISION  56  OF  AG-  PROGRAM  ZFRLINA  BY  ZC'ROASTER 


ft 


ft 

ft 

ft 

ft 

ft 

ft 

» 

» 

ft 

ft 

ft 

ft 

* 

3" 

> 


I 


I CONTROL  LFC  CONSTANTS 


> ( ^9 

PHYSICAL  CC6STANTS  (TIRE  - VARIANT) 

o?so 

REF  1 14.20C0 

SETLOC 

0251 

14,  20  10 

BANK 

0252 

REF  1 

COUNT  * 

D 253 

14,  2010 

15263  1 

2DEC 

0*53 

14,201 1 

14526  0 

0254 

14,2012 

74131  1 

2 DEC 

) 254 

14, 2013 

63662  0 

r255 

14  ,2014 

7C033  0 

2DEC 

0255 

14 ,2015 

66576  C 

0256 

14,  20  16 

150  15  1 

2DEC 

0256 

14  ,2017 

01060  0 

3257 

14, 2020 

67C70  1 

2DEC 

0257 

14,2021 

77733  0 

0 258 

14,2022 

02552  1 

2 DFC 

7255 

14, 2023 

C2515  1 

•259 

14  ,2024 

07210  0 

2DEC 

0259 

14,2025 

17302  0 

0260 

14,  2026 

67277  1 

2qe: 

0260 

14  ,2027 

54722  1 

0261 

14,  2030 

13262  C 

2DEC 

0261 

14,2031 

14226  1 

0262 

14,2032 

05100  0 

2 DFC 

3262 

14, 2033 

14770  1 

0263 

14,2034 

70716  0 

2DEC 

0263 

14 ,2035 

63142  0 

0264 

14,  20  36 

62466  1 

2de: 

0264 

14  ,2037 

74737  1 

3265 

14, 2040 

1C653  0 

2DEC 

0265 

14,2041 

31305  0 

0266 

14,2042 

63236  0 

2 DEC 

3266 

14, 2043 

44502  C 

0267 

14  ,2044 

73711  l 

20EC 

0267 

14,2045 

44272  0 

0268 

14, 2046 

07206  1 

2DEC 

026  R 

14,2047 

14007  0 

3269 

14,  2050 

61750  1 

2DEC 

02  69 

14,2051 

65323  0 

0270 

14,2052 

02343  1 

2 DEC 

0273 

14,  2053 

35410  1 

0271 

14  ,2054 

03241  0 

2DEC 

0271 

1 4 , 2055 

11616  0 

0272 

14,  20  56 

6 2c3  1 1 

2DEC 

0272 

14  ,2057 

41460  0 

3273 

14,  2060 

7C715  0 

2DEC 

02  73 

14,2061 

76442  1 

G 274 

14  ,2062 

01746  0 

2 DEC 

3274 

14,  2063 

C4C  1 7 0 

0275 

14  ,2064 

63532  0 

2DEC 

0275 

14,2065 

44700  0 

I 


9:12  OCT.  21 


1070 


48 


9:  i; 

l OCT.  21,  1970  ( MAIN!  PAGE 

USER'S  PAGF  NC.  11  ED  S4 


ST  ART  AB 

5$/ STARS 

+.R3439R9109  0-1 

STAR  37  X 

-.2390600205  B-l 

STAR  37  Y 

- .4966173214  B- 1 

STAR  37  Z 

8140910890  B-l 

STAR  36  X 

-.5555422636  B-1 

STAP  36  Y 

+ . 169  1995627  B-l 

STAR  36  Z 

+.46416C2263  R- l 

STAR  35  X 

5391353124  B-l 

STAR  35  Y 

+.7092754074  P-1 

STAR  35  Z 

+ .3203620343  B-l 

STAR  34  X 

- .4435303001  B- l 

STAR  34  Y 

-. 8370478121  B-l 

STAR  34  Z 

+.5522208574  R-1 

STAR  33  X 

-.7931952248  B-l 

STAR  33  Y 

- . 2566972144  R- 1 

STAR  33  Z 

+. 4539032479  8-1 

STAR  32  X 

-.8778479991  B-1 

STAR  32  Y 

+.1528225504  B-l 

STAR  32  Z 

+.2071906196  P- 1 

STAR  31  X 

-.6719421540  B-l 

STAR  31  Y 

-.4436089799  B-1 

STAR  31  Z 

+ . 12  1R4154C6  B-l 

STAR  30  X 

77C245C672  B-  1 


STAR  30 


GAP:  ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L CONTROL  LEO  CONSTANTS 


0276 

14  ,2066 

120  10 

0 

20  EC 

0 2 76 

1 4 , 2 C 6 7 

C 6 3 1 0 

0 

0277 

1 4,  20  70 

76  150 

1 

2de: 

0277 

1 4 , 2 C71 

62332 

1 

3 278 

14,  2C72 

6C371 

1 

20EC 

0278 

14,2073 

66  347 

1 

0279 

14  ,2C74 

C 3 3 7 0 

0 

2 DEC 

3279 

1 4,  20  7 5 

06667 

0 

0280 

14  ,2076 

76126 

0 

2 DEC 

0 280 

14, 2C77 

53632 

0 

0281 

14,  2100 

72436 

0 

2DEC 

0281 

14,2101 

70326 

1 

0 29  2 

14,  2102 

61C41 

0 

2DEC 

0282 

14, 2103 

51225 

0 

0 28  3 

14,2104 

72301 

0 

2 DEC 

3283 

14,  2105 

44526 

c 

0284 

14  ,2106 

62640 

1 

2DEC 

r 284 

14,2107 

61020 

1 

02  85 

14,  2 1 10 

7 C 7 1 1 

1 

2DEC 

0285 

14,2111 

57555 

0 

3286 

14, 2112 

6 7 365 

0 

2DEC 

02R6 

14,2113 

45532 

1 

0287 

14,2114 

64425 

0 

2 DEC 

3287- 

14, 2115 

40516 

1 

0288 

14  ,2116 

07  157 

0 

20EC 

0288 

14,2117 

CC567 

0 

02  89 

14,  2120 

63330 

1 

2de: 

028Q 

14,2121 

5.1 1 76 

0 

3293 

14, 2122 

67513 

1 

2DEC 

0290 

14,2123 

77771 

0 

0 29  1 

14,2124 

05227 

0 

2 DEC 

3291 

14,  2125 

37143 

c 

0292 

14  ,2126 

64756 

1 

2DEC 

0 29  2 

14,2127 

4 224  C 

1 

0293 

1 4 , 2 130 

71234 

1 

2DEC 

C293 

14,2131 

63  041 

1 

3294 

14,  2132 

6.6426 

1 

2DEC 

02  94 

14,2133 

60  103 

0 

0295 

14,2134 

66546 

0 

2 DEC 

3295 

14,  2135 

6 6454 

1 

0296 

14,2136 

73257 

0 

20EC 

0296 

14,2137 

6771  1 

1 

02  97 

14, 2 140 

14  121 

0 

20EC 

0297 

14,2141 

11310 

0 

3298 

14,  2 142 

61250 

l 

2DEC 

02  98 

14,2143 

64612 

0 

0299 

14,2144 

72311 

1 

2 DEC 

3299 

1 4 , 2145 

5 35  14 

1 

0300 

14  ,2146 

74743 

1 

2DEC 

0 300 

14,2147 

55251 

1 

9:  12  OCT.  21,  1970 


( MA  I N ) 


PAGE  49 


USER 

+ .6260009387  B- 1 STAR 

-. 1122343912  B~1  STAR 

-.9695188377  B-1  STAR 

+ .2177995974  B-1  STAR 

- .114456S328  B-1  STAR 

-.3399947346  B-1  STAR 

-.9334362275  B-1  STAR 

-.3514226152  B-1  STAR 

- .8241537737  B- 1 STAR 

-• 44  4 1 539 178  B-1  STAR 

-.  532571  1148  B-1  STAR 

-.7161  8402  63  B-1  STAR 

+. 451 0526OC0  B- 1 STAR 

-. 7860975319  B-1  STAR 

-.5210727016  B-1  STAR 

+ .3310516106  B-1  STAR 

- .6896884364  B-  1 STAR 

-.4183842954  B-1  STAR 

-.5910029120  B-1  STAR 

-.581  2126603  B-1  STAR 

- . 2910465457  B- 1 STAR 

+ . 7599235  169  B-1  STAR 

-.9169129501  B-1  STAR 

-.3504194263  B-1  STAR 

- . 1909891817  B-  1 STAR 


E NO.  12  EO  S4 

Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

z 

X 

Y 

z 

X 

z 

X 

Y 


"S  PAGI 

30 

1 29 

; 2g 

29 

28 

28 

28 

27 

27 

27 

26 

26 

26 

25 

25 

25 

24 

24 

24 

23 

23 

23 

22 

22 

22 


GAP  : 

ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZGRLINA  BY 

ZOROASTER 

9:  12 

OCT.  21,1970 

(MAIN)  PAGE 

50 

L 

CCN'T  ROLL  EC  CONSTANTS 

USER'S  PAGE 

NC.  13  EO  S4 

0301 

14  ,2150 

70607  1 

2 DEC 

- .4522463508  B- 1 

STAR  21 

x 

O^'l 

14,2151 

46251  C 

0302 

14,  2 152 

77152  1 

20EZ 

C4 94 7 1939  3 B-l 

STAR  21 

Y 

( 3(  2 

14,2153 

67164  0 

0333 

14,  21  54 

6I6C  ) 

2DEC 

-.8905199410  B-1 

STAR  21 

Z 

0303 

14,2155 

73424  1 

0304 

14,21 56 

60605  1 

2 DEC 

-.9524789319  B-l 

STAP  20 

X 

0334 

14,  2 157 

*=1271  1 

0305 

14  ,2160 

770  30  l 

2DEC 

,^.C595555999  B-l 

STAR  20 

Y 

n 3r  5 

14 ,2161 

43666  C 

03  06 

1 4 , 2162 

72  160  1 

2de: 

-.2987256513  B-l 

STAR  20 

Z 

0306 

14  ,2163 

72671  1 

0 3 ? 7 

14,  2 164 

60431  l 

2DEC 

-.9656970164  B-1 

STAR  1 9 

X 

0307 

14,2165 

40244  1 

0 30  8 

L4  ,2  1 66 

00655  1 

2DEC 

+.0523798707  B-l 

STAR  19 

3333 

14,  2 167 

C 3 C 4 3 0 

0309 

14  ,2170 

04043  1 

2DEC 

+.2543336816  R- 1 

STAR  19 

Z 

0 309 

14 , 2 17  1 

20C31  1 

03  In 

14,  2172 

62163  1 

2DEC 

-.8609439465  B-l 

STAR  18 

X 

0310 

14  ,2173 

44553  1 

3311 

14, 2174 

C 7324  0 

2DEC 

+.4634300302  B-1 

STAR  1 8 

Y 

0311 

14,21 75 

15316  1 

0 312 

14,21 76 

03266  0 

2 DEC 

+.2097811430  R-l 

STAR  18 

Z 

3312 

L 4,  2177 

20674  0 

'313 

14  ,2200 

63470  1 

2DEC 

- . 7743822014  B- 1 

STAR  17 

X 

3313 

14 ,2201 

50263  0 

03H 

14,  2202 

11656  1 

2de: 

+. 6150774086  B-l 

STAR  17 

Y 

0314 

14  ,2203 

26664  1 

3315 

14, 2204 

75500  0 

2DEC 

-.1483643740  B-1 

STAR  1 7 

z 

0315 

14,2205 

63126  1 

0316 

14,2206 

70426  0 

2 DEC 

-.4659729684  B-l 

STAR  16 

X 

3316 

14,  22C  7 

67766  1 

0317 

14  ,2210 

07506  0 

2DEC 

+ • 4773764969  B-l 

STAR  16 

Y 

0 3 J 7 

14,2211 

25305  0 

031fl 

14,  22  12 

13726  C 

20EC 

+ . 7449703838  B-l 

STAR  16 

z 

0318 

14  ,2213 

31410  0 

3313 

14, 2214 

721  60  0 

2DEC 

-.3613079259  B-1 

STAR  15 

X 

(319 

14,2215 

45226  0 

0320 

14  ,2216 

11143  1 

2 DEC 

+.57464637C8  B-l 

STAR  15 

Y 

33  2^ 

14, 2217 

20062  1 

0321 

14  ,2220 

64200  1 

2CEC 

- . 7343283537  B- 1 

STAR  15 

Z 

0321 

14,2221 

c 4 1 64  0 

0322 

14, 2222 

71320  0 

2DEC 

-.4120676148  B-l 

STAR  14 

X 

0322 

14  ,2223 

52744  1 

3323 

14, 2224 

164CI  0 

2DEC 

+.9064582964  B-1 

STAR  1 4 

Y 

0323 

14,2225 

26465  1 

3324 

14  ,2226 

01364  1 

2 DEC 

+.0923776901  B-l 

STAR  14 

Z 

'“324 

14, 2227 

30204  1 

0325 

14  ,2230 

75052  1 

20EC 

- .1822546265  B- 1 

STAR  13 

X 

0325 

14,2221 

77C25  0 

A S St  MR  LE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


GA  3 : 

L CENT  ROL I EC  CONSTANTS 


0326 

14  ,2232 

17030 

1 

2 DEC 

0326 

14,2233 

C 46  52 

1 

0327 

14, 2234 

7 332  1 

0 

2de: 

9327 

14  ,2235 

51514 

0 

3328 

14, 2236 

77CC7 

0 

2DEC 

032  a 

14,2237 

70532 

1 

0329 

14,2240 

11514 

l 

2 DEC 

3329 

14,  2241 

36162 

1 

0330 

14,2242 

63215 

1 

2DEC 

0 330 

14,2243 

50542 

1 

03  31 

14, 2244 

0214  1 

1 

2oe: 

0331 

14  ,2245 

34546 

1 

3332 

14,  2246 

12716 

1 

2DEC 

0332 

14,2247 

02026 

1 

0333 

14,2250 

13401 

0 

2 DEC 

3333 

14,  225  1 

34  3 15 

1 

033A 

14  ,2252 

03156 

0 

2DEC 

033* 

14,2253 

02376 

1 

03  35 

14, 2254 

17  402 

1 

2DEC 

0335 

14  ,2255 

26132 

0 

3 336 

14, 2256 

75552 

1 

2DEC 

0336 

14,2257 

70755 

1 

0337 

14,2260 

05467 

1 

2 DEC 

3337 

1 4 , 2261 

12453 

0 

0338 

14  ,2262 

16221 

l 

2DEC 

0 338 

14,2263 

C3C71 

1 

03  3 9 

1 4,  2264 

04420 

0 

2de: 

0339 

14,2265 

03530 

1 

3343 

14,  2266 

06441 

0 

2DEC 

0340 

14,2267 

32064 

1 

0341 

14,2270 

C7767 

0 

2 DEC 

3341 

14,  2271 

00316 

0 

0342 

14  ,2272 

14155 

0 

2DEC 

0342 

14,2273 

1 C 5 1 2 

0 

0343 

14, 2274 

13  177 

1 

2DFC 

0343 

14  ,2275 

16474 

1 

3344 

14,  2276 

13245 

0 

2DEC 

0344 

14,2277 

32202 

0 

0345 

14,2300 

01070 

1 

2 DEC 

3345 

14,  2301 

C4747 

1 

0346 

14  ,2302 

10560 

0 

20EC 

0 346 

14,2303 

10564 

1 

0347 

1 4 , 2304 

10403 

1 

2DEC 

0347 

14  ,2305 

00211 

0 

3348 

14,  2306 

65500 

l 

2DEC 

0348 

1 4, 2 3C  7 

54764 

0 

0 349 

14,2310 

00152 

1 

2 DEC 

3349 

14, 2311 

17317 

1 

0350 

14  ,2312 

00077 

1 

2DEC 

0 350 

14,23 13 

36650 

1 

.9 40 4481158  8-1 
.286950492 2 B-l 
.0615513667  0-1 
.6031426337  R-l 
.7952545230  B- 1 
.1369502971  8-1 
.6814042795  B-1 
.7189804058  B~1 
.2009372569  B-l 
. 969078733 1 R-l 
.1432153163  R-1 
.3505042402  R-l 
.8927120666  B-l 
.2832171316  B-l 
.4103778920  8-1 
.4989028983  B-l 
.7633366428  B-l 
. 7030586868  R-l 
• 7C774 1 7542  B-1 
.0693548283  B-l 
. 5449551668  B- 1 
.5316172328  R-l 
.6483879887  R-1 
.0  129982160  B-l 
.CC78C60287  P- 1 


9:  12  OCT.  21,  1970  (MAIN) 

USER'S  PAGE  NC.  H 
STAR  13  Y 

STAR  13  Z 

STAR  12  X 

STAR  12  Y 

STAR  12  Z 

ST  AR  1 1 X 

STAR  11  Y 

STAR  11  Z 

STAR  10  X 

ST AR  1 0 Y 

STAR  10  Z 


PAGE 
EO  S4 


STAR 
STAR 
STAR 
ST  AR 
STAR 
STAR 
STAR 
ST  AR 
STAR 
STAR 
STAR 
ST  AR 
STAR 
STAR 


GAP:  ASSEMBLE  REVISION  56  CF  AGC  FKCGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,  1970 


L 

CCNTRni.  LFC  CONSTANTS 

USER' 

S PAGF 

NC.  1 

0351 

14  ,2314 

17777  0 

20EC 

+.9998850339 

P-  1 

STAR 

5 

Z 

0351 

16,2215 

Cl  6 72  C 

14, 2316 

07674  0 

2de: 

+. 4518C0C631 

B-l 

STAR 

4 

X 

0352 

14,2  31  7 

32337  1 

3353 

14,  2320 

C3417  0 

20EC 

+ • 22r'5°89850 

P-1 

ST  AR 

4 

Y 

035  3 

14,2321 

04547  0 

0354 

14 ,232? 

6241 3 0 

2 DEC 

-.8422997006 

8-1 

STAR 

u 

Z 

3354 

14,  2323 

74137  1 

C 355 

14  ,2324 

075C7  l 

2DEC 

+.4774532337 

B-l 

STAR 

3 

X 

0355 

14,2325 

11400  0 

0356 

1 4, 2326 

01674  0 

2DFC 

+. 1 16707288 l 

B-l 

STAR 

3 

Y 

14  ,2327 

02073  1 

1357 

14,  2320 

15736  1 

2DEC 

+.8708718726 

B-1 

ST  AR 

3 

Z 

0357 

14,2331 

05654  0 

035R 

14,2332 

16745  0 

2 DEC 

+ .9342553  544 

B-l 

STAR 

2 

X 

? 358 

1 4,  2333 

15337  1 

0359 

14,2334 

02617  0 

2DFC 

+ . 17371 7246C 

8-  1 

STAR 

2 

Y 

0 359 

14,2^5 

C2736  1 

0360 

1 4,  23  36 

73010  1 

2de: 

31 14309732 

B-l 

ST  AR 

2 

Z 

0360 

14,2337 

70171  1 

3 36  1 

14,  2 340 

15776  0 

20EC 

+.8748133997 

B-1 

ST  AR 

1 

X 

036  1 

14,2341 

17053  1 

0362 

14,2342 

C0327  1 

2DEC 

+ .0  26  2R*1 ? 62 

B-l 

STAR 

1 

Y 

3362 

14,  2343 

12164  1 

0363 

14 ,2344 

07572  0 

20EC 

+.4837464836 

B-  1 

STAR 

1 

Z 

0363 

14,2345 

33172  0 

03  6 A 

14, 2346 

15637  1 

CATL3G 

DEC 

7071 

30365 

**************  ****3}:*  ********** 

****************** 

*******: 

***********  ****** 

3366 

REF  1 C 5,  20C0 

SF  TLOC 

E PHEMl 

0367 

05,2001 

BANK 

0 368 

RFF  1 

CCU  NT* 

$$/  EPHEM 

3369 

05,  200  1 

20000  0 

KUNMAT 

20EC 

1.0  8-1 

******** 

***** 

0369 

05  ,2002 

00000  1 

0 370 

05 ,20C3 

00000  1 

2 DEC 

0 

* 

03  70 

05,  2004 

00000  1 

0371 

05  ,2005 

00000  1 

2 DEC 

? 

* 

3371 

05,  20C 6 

CCCOO  1 

0372 

05,2007 

OOOCO  1 

2DEC 

0 

* 

0 372 

05  ,201  0 

00000  1 

3373 

05,  201  1 

16  533  0 

2DEC* 

. 91746  0-1  * 

Kl 

COS  (OBL) 

0373 

05  ,2012 

32505  0 

0374 

05,2013 

77333  1 

2 DEC* 

-.035711  0-1 

.*  K2 

SIM  (OBL)  SIN  ( IM  ) 

03  74 

05,  2o  1 4 

56446  1 

C375 

05  ,2015 

oooon  1 

2 DEC 

0 

* 

3375 

C 5,  2016 

OCOOO  1 

03  76 

05,201 7 

06273  l 

2D  EC  * 

. 39784  B-l* 

K 3 

SIN  (OBL) 

0376 

05,2020 

03275  1 

PAGE 
Ef  S4 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
L CONTROL  LEI)  CONSTANTS 


9:  12  OCT.  21,  1970 


US  ER'S  PAGE  NO. 


03  77 

05,2021 

0 1242 

l 

20  EC  * 

.082354  B- 1* 

K 4 COS 

( OB  L) 

0377 

05,2022 

244  6 7 

1 

3378 

05,  2023 

C0C20 

0 

C S TODAY 

20EC 

8640000  B-33 

0378 

05  ,2024 

17260 

0 

0379 

05,2025 

00002 

0 

RC8-13 

OCT 

33002 

03  BO 

05,  2026 

00000 

1 

OC  T 

00000 

0381 

05  ,2027 

22572 

1 

RAT  ESP 

2 DEC* 

.03660099  B+4* 

L OMR 

3 381 

C 5,  2030 

27267 

1 

038? 

05,2031 

C1315 

1 

2DEC* 

.00273780  B+4* 

LOSR 

038? 

05,2032 

26251 

0 

3 383 

05,  2033 

77  73  1 

1 

2DEC* 

-.  00014720  B+4* 

LONR 

0383 

05  ,2034 

55144 

0 

0 38  A 

C5 , 2025 

05456 

0 

2 OEC 

.174685017 

LOMO 

03  8A 

05,  2036 

0 1204 

0 

0385 

05  ,2037 

10611 

0 

2 DEC 

.2740 11893 

LOSO 

3385 

05, 2040 

15113 

0 

0386 

05,2041 

35656 

1 

2D  EC 

. 932520213 

LONO 

0386 

05,2042 

15121 

1 

D 387 

05,  2043 

C1C76 

1 

VAL67 

2DEC* 

. 017531  1 11  B+1  * 

AMOD 

0387 

05  ,2044 

16550 

0 

0388 

C5, 2045 

70645 

1 

2 DEC 

-.224249436 

AARG 

0388 

05,  2046 

745  53 

1 

0389 

05  ,2047 

02245 

0 

2 CEC* 

.036291713  B+1* 

1/27 

3389 

05,  2050 

C6475 

1 

0390 

05,2051 

00162 

1 

20EC  * 

.003484442  B+1* 

BMOD 

0390 

05,2052 

05550 

1 

3391 

C 5,  2053 

C 1671 

0 

2DEC 

. 050226609 

BARG 

0391 

05  ,2054 

3740  6 

1 

0392 

05,2055 

C 1000 

0 

2 DEC 

.031250000 

1/3? 

0392 

05,  2056 

00000 

1 

0393 

05  ,2057 

00256 

0 

2 DEC* 

.005329930  B+1* 

CMDD 

3393 

C 5,  2C60 

24654 

0 

03  94 

05,2061 

77  5 23 

0 

2DEC 

-. C 10  5CC980 

CARG 

0 394 

05,2062 

76354 

l 

3395 

05,  2C63 

CO  13  1 

1 

2DFC* 

. 002737925  B+1* 

1 /365 

0395 

05  ,2064 

26730 

1 

R0  396  **********  «*«#«****««**«*««*««**** 

0397  REF  1 

26, 2000 

SE  TLOC 

PLANTI  N2 

0398 

26  ,2000 

BANK 

3399  REF  1 

COUNT* 

* t/LURCT 

0400 

26,2303 

17775 

1 

COS  I 

2DEC  * 

9. 996417320  F~ 1 B 

- 1* 

cns  c 

0400 

26,2901 

02052 

1 

3431 

26, 2CC2 

C0333 

1 

SI  NI 

2DEC* 

2.676579050  E-2  p 

-1  * 

SIN  ( * 

0401 

26  ,2003 

10374 

0 

040? 

26,2004 

77665 

1 

NGODOT 

2 CEC* 

-1  .703706159  E—  1 1 

R28* 

0402 

26,  200  5 

42  175 

1 

0403 

26  ,2006 

22211 

0 

FOOT 

2 DEC* 

4.253263471  E-9 

B 27* 

3433 

26, 2CC  7 

CC636 

1 

TABLES  CONTAIN 
CONSTANTS  FOR 


GAP: 

L 

04  4 

3 414 

0405 

C 40  5 

34714 

0404 

040  7 

04  07 

0408 

3438 

0409 

040Q 


ASSEMBLE  REV 
CONTROL  LEO 


SION  56  OF  A3C 
CONSTANTS 


PROGRAM  ZEPLINA  BY  ZCRG  ASTER 


9 : 12  OCT  . 2 It  1970  (MAIN) 

USER'  S PAGE  NO.  17 


PAGE  54 
E3  S4 


26  ,2010  77777  0 ECOT  2CEC*  -1.145530402  F-lfc  828*  REV/C  SEC 

26. 2011  77767  1 

26.2012  35656  1 N0DI3  2DEC * 9.  3252C.1471  E-l  B G*  REV 

26.2013  15077  0 

26.2014  C7577  0 FSIBD  2DEC*  2.421fl2C9l6  F-1  BC*  REV 

24  ,2015  35124  0 

26,2016  02052  1 BSUBO  2 DEC*  6 . 511977013  E-2  B 0*  R FV 

24,  2o  17  254 1 1 0 

26  ,2020  37116  0 WEARTH  2 DEC*  1 . 1 60  576 17 1 E- 7 B23*  RE  V/C  SEC 

26.2021  22631  1 

26.2022  3061  1 1 A70  2DEC * 7.  739945637  E-l  B C*  REVS 

26.2023  04040  1 


PAGE  55 
EO  S4 

AOOOOC  1 

1000002  ***  CHANNEL  DES  CR  IP  T I ON  S F WORDS  ARE  ALLOCATED  IN  ERASABLE  ASSIGNMENTS  *** 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L I NPUT/CLTPUT  CHANNEL  BIT  DESCRIPTIONS 


9:12  OCT.  21,1970  (MAIN) 

USER  ■ S PAGE  NC.  I 


CHANNEL  1 

CHANNEL  2 


IDENTICAL  TO  COMPUTER  REGISTER  L (TOOL) 

IDENTICAL  TO  COMPUTER  REGISTER  0 (00021 


ROOD  A 
3 000  6 
AOOCR 


CHANNEL  3 


HISCALAR:  INPUT  CHANNEL:  MOST  SIGNIFICANT  H BITS  FRC.M  33  STAGE  BINARY  COUNTER.  SCALE 
FACTOR  IS  B23  IN  CS  ECt  SO  MAX  VALUE  ABOUT  23.3  HOURS  AND  LEAST  SIGNIFICANT  BIT  5.12  SECS. 


RQ009 

1 00  1 1 
RD  1 l 3 
A OOl  5 


CHANNEL  4 


LOSCALAR;  INPUT  CHANNEL:  NEXT  MOST  SIGNIFICANT  14  BITS  FROM  THE  33  STAGE  BINARY  COUNTER 
ASSOCIATED  WITH  CHANNEL  3.  SCALE  FACTOR  IS  RO  IN  CSEC.  S3  MAX  VAL  IS  5.12  SFC  AND  LEAST 
SIGNIFICANT  BIT  IS  1 /3200  SEC.  SCALE  F ACT  C R OF  D.P.  WORD  WITH.  CHANNEL  3 IS  R23  CSEC. 


S88i? 


3 O'  22 
RD  D 24 
A 00? 6 


CHANNEL  5 

CHANNEL  6 

CHANNEL  7 


PYJFTS;  OUTPUT  CHANNEL;  PITCH  RCS  JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BITS  1-8. 

ROLLJETS;  OUTPUT  CHANNEL;  RCLL  RCS  JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BIT  1-8. 


R 0031 


A0033 


CHANNEL  10  OUTO;  CLTPUT  CHANNEL;  REGISTER  USED  TO  TRANSMIT  L ATCH  IN  G-R  El  A Y DRIVING  INFORMATION  FOR 

THE  DISPLAY  SYSTEM.  BITS  15-12  ARE  SET  TO  THE  ROW  NUMBER  (1-H  OCTAL)  OF  THE  RELAY  TO  BE 
CHANGE  C AND  eiTS  L 1- 1 CONTAIN  THE  REQUIRED  SETTINGS  FOR  THE  RELAYS  IN  THE  ROW. 


R 0 C 3 4 
3 0036 
ADD  33 
R0039 
A 0040 
RD?41 
A 0042 
R0O43 
AD  D 44 
3 0066 
A0046 
R 0047 
A 004  8 
RDD49 
A 00  5n 
R0051 


CHANNEL  11 

PIT  1 
BIT  2 
BIT  3 
RIT  4 
BIT  5 
BIT  6 
RIT  7 


DSALMOIIT:  OUTPUT  CHANNEL;  REGISTER  WHOSE  BITS  ARE  USED  FOR  ENGINE  CN-CFF  CONTROL  AND 
DRIVF  INCIVIDUAL  INDICATORS  OF  THE  DISPLAY  SYSTEM.  BITS  1-7  ARE  A RELAYS. 

ISS  WARNING 

LIGHT  COMP  L TER  ACTIVITY  LAMP 
LIGHT  LFLINK  ACTIVITY  LAMP 
LIGHT  TFMP  CAUT  ION  LAMP 
LIGHT  KEYBOARD  RELEASE  LAMP 
FLASH  VERB  AND  NOUN  LAMPS 
LIGHT  CPERATCR  ERRCR  LAMP 


TO 


GAP:  ASSEMBLE  PE  VI  SI  CN  56  OF  AGG  PRCGRAM  ZERLINA  RY  ZOROASTER  9:1?  OCT.  21,  1970  (MAIN)  PAGE  5b 

L INPUT /OUT PUT  CHANNEL  BIT  DESCRIPTIONS  USER'S  PAGE  NC.  2 EC  S4 


A 0052 
R or  50 
ADD5A 
< 00  55 
A0056 
R 0057 
a 0058 
RDD59 
A OC  6r 
ROCM 
AD062 
* 00 ft 3 
AOOft  A 
R00ft5 

a 0066 

RD067 
A00  6P 


BIT  8 SPARE 

BIT  9 TFST  CCNNECTCR  CUT  P IT 

BIT  10  CAUT  ION  RFSET 

BIT  11  SPARE 

BIT  12  SPARE 

R! T 1 3 ENG I NF  CN 

BIT  H ENGINE  OFF 

BIT  15  SPARF 


ROC  69 
A0071 
1 OC  72 
ADD73 
R 0C7A 
ar1p75 
RDDT*. 
A 0C7  7 
R00  7P 
AD07O 
' 

AOOfll 

RD  082 
A 0083 
R D 8 A 
A0CR5 
3 00  86 
ADDS? 
R 0088 
A00R9 
RD  090 
A 0091 
R0D92 
A 009-3 
R O0  9A 
AD  DP  5 
R0096 
AGC97 
R.'C'98 
A 0099 
R01DD 
AOl  rl 


CHANNEL  12  f HA  N 12 ; CLTPUT  CHANNEL:  BITS  USED  TO  CRIVE  NAVIGATION  AND  SPAECRAFT  HARDWARE 

BIT  1 ZERO  RR  CCU;  CCU'S  GIVE  RRADAR  INFORMATION  FOR  LM 

BIT  2 ENABLE  CTU  RADAR  ERROR  COUNTERS 

BIT  3 NDT  USED 

BIT  A COARSE  ALIGN  ENABLE  CF  I MU 

BIT  5 ZERO  I MU  CCU'S 

BIT  6 ENABLE  IMU  ERROR  COUNTER,  CDU  ERROR  COUNTER. 

BIT  7 SPARE 

BIT  0 DISPLAY  INERTIAL  DATA 

eiT  9 -PITCH  GIMBAL  TRIM  (BELL  MOTION)  DESCENT  ENGINE 

BIT  ID  +PITCH  GIMBAL  TRIM  (BELL  MOTION)  DESCENT  ENGINE 

BIT  11  -ROLL  GIMBAL  TRIM  (BELL  MOTION)  DESCENT  ENGINE 

BIT  12  +ROLL  GIMEAL  TRIM  (BELL  MCTICN)  DESCENT  ENGINE 

BIT  13  LR  PCS  IT  I CN  2 COMMAND 

PIT  U ENABLE  RENDESVOUS  RADAR  LOCK-ON;AUTO  ANGLE  TRACK'G 

BIT  15  ISS  TURN  ON  DELAY  COMPLETE 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLIMA  BY  ZOROASTER 


57 


L INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 


9:12  CCT.  21  ? 1 970  (MAIN)  PAGE 


USER  • S PAGE  NO.  3 


EO  S4 


R 3152 
A 0103 
R 0104 
RD1D5 
R 0106 
A°  lf>  7 
RDlCB 
A 0109 
RDUD 
Mill 
R "112 
AD113 
R Ol  1 4 
A0115 
RD116 
A Oil  7 
R r 1 IB 
AOl  1 9 
R 012< 
AD  1 2 1 
R0122 
a A 1 2 3 

RDI24 
A'  126 
RO  126 
A"1 1 2 7 
1 0128 
AD  129 
R Ol  30 
A 0 1 3 l 


CHANNEL  13 

B I T 1 
BIT  2 
BIT  3 

BIT  4 

BIT  5 

BIT  6 

RIT  7 

BIT  8 

BIT  5 

BI  T 10 

BIT  11 

PIT  12 

RI  T 13 

BI  T 14 

PIT  15 


CHAN  13;  (HTPLT  CHANNEL 

PADAR  C PROPER  SETTING  OF  THE  A,B,C  MATRIX 

RADAR  B SELECTS  CERTAIN  RADAR 

RACAR  A PARAMETERS  TO  BE  READ. 

RADAR  ACTIVITY 

NOT  USED  (CONNECTS  AN  ALTERNATE  INPUT  TO  UPLINK) 
SPARE 

DOWNLINK  TELEMETRY  WORD  ORDER  CODE  BIT 

RHC  COUNTER  FNABLE  (READ  HAND  CONTROLLER  ANGLES) 

START  RHC  READ  INTO  COUNTERS  IF  RIT  8 SET 

TFST  ALARMS?  TEST  DSKY  LIGHTS 

ENABLE  STANDBY 

RESET  TRAP  31-A  ALWAYS  APPEAR  TO  BE  SET  TO  0 

RFSET  TRAP  31-R  ALWAYS  APPEAR  TO  BE  SET  TO  0 

RESET  TRAP  32  ALWAYS  APPEAR  TO  BE  SET  TO  0 

ENABLE  T 6 RIJPT 


RC  135 

A'.il  36 
1 ’'137 
AD  138 
RC  13o 

a oi40 

RD  161 
A 6 142 
RO  143 
AD  1 44 
1 145 

A "'146 
■<ri47 
1 '148 
AD  149 
R 0 1 50 

a o 1 4 1 


CHANNEL  14  CHAN  U ; 0 LTP  UT  CHANNE  L : USED  TOCCNTRCL  COMPUTER  COUNTER  CELLS  ( CDU  » GY  R0»  S P ACECR  AFT  FUNC  . 
BIT  1 OUTLINK  ACTIVITY  ( NCT  USED) 

BIT  2 ALTITUDE  RATE  OR  ALT  IT  I CE  SELECTOR 

PIT  3 ALT  ITUDE  METER  ACTIVITY 


BIT  4 THRUST  DRIVE  ACTIVITY  FOR  DESCENT  ENGINE 

BIT  5 SPARE 


PIT  7 
RI  T 8 


GYRO  E APLE  POWFR  FOR  PULSES 


GYRO  SELECT  B 
GYRO  SELECT  A 


PAIR  3 F BITS  IDENTIFIES  AXIS  OF 
GY  RC  SYSTEM  TO  BE  TORQUFC. 


GYPO  TCRQUING  COMMAND  IN  NEGATIVE  DIRECTION 


3 AP  : ASSEMBLE  PE  VISION  56  OF  AGC  PRCGPAM  2FRLINA  BY  ZOROASTER 


9:  12  Oil.  21,  197C 


PAGE 


58 


L INPUT  /OUTPUT  CHANNEL  BIT  OESCRIPTIONS 


( MA  I N) 

US  ER ' S PAGE  NO . * 


EC  S4 


RD  154 
4 155 
RO  1 56 
4'157 
1 l"i  1 5fl 
A '15° 
RCl  5' 

4 ' 161 
R->  It  2 
4 1 63 


PIT  n 
ft  1 T 11 
R I T 12 
31  T 13 
BIT  H 
PIT  15 


GYPO  ACTIVITY 
DR  IVE  CDU  S 
DPI  VF  CD  L T 
DRIVE  CCU  Z 
DRIVE  CCU  Y 
DR  IVE  CDL  X 


CHANNEL  15  MNKEYIN;  INPUT  CHANNEL;  KEY  CCOE  INPUT  FROM  KEYBOARD  OF  DSKY,  SENSED  BY  PROGRAM  WHEN 
PROGRAM  INTERRUPT  #5  IS  RECEIVE).  USES  BITS  5-1 


Ac  17? 
R3173 
A 174 
? 0 175 
A?  1 75 
R 0177 
Ar  1 78 
R0179 
A 0180 
R • 1 <>  1 
AM  8? 
<183 
A)  1 8 4 
R 0 1 8 5 
A 186 


CHANNEL  16  N A VKE  YIN;  INPUT  CH4NNFL;  OPTICS  MARK  INFORMATION  AND  NAVIGA  ION  PANEL  OSKY  (CM)  OR  THRUST 
CONTROL  (LM!  SENSED  8Y  PROGRAM  WHEN  PROGPAM  INTER-RUPT  tt  6 IS  RECEIVED.  USES  BITS  3-7  ONLY. 

BIT  1 NOT  ASSIGNED 

HIT?  NOT  ASSIGNED 

BIT  3 OPTICS  X-AXIS  MARK  SIGNAL  FOP  ALIGN  OPTICAL  TSCOPE 

BIT  4 OPTICS  Y-AXIS  MARK  SIGNAL  FOR  AO  T 

BIT  5 OPTICS  MARK  REJECT  SIGNAL 

BIT  6 DESCENT*  ; CREW  DESIRED  SLOWING  RATE  OF  CESCENT 

BIT  7 CESCENT-  ; CREW  OES  IRED  SPEEDING  UP  RATE  OF  D'CENT 


.087  NOTE:  ALL  R ITS  IN  CHANNELS  30-33  ARE  INVERTED  AS  SENSED  BY  THE  PRCGRAM,  SC  THAT  A VALUE  OF  ZERO  MEANS 

R01R9  THAT  THE  INDICATED  SIGNAL  IS  PRESENT. 

AO  190 


ROl  9 1 
A 19  2 
R3193 
A0194 
R 0 1 9 5 
A3  1 9 6 
? (197 
AC  198 
R?1  99 
A 02  00 
R023  1 


CHANNEL  3C 
BIT  1 
BIT  2 
BIT  3 
PIT  4 
BIT  5 


INPUT  CHANNEL 
ABORT  WITH  DESCENT  STAGE 
UNUSED 

ENGI NE  APMEC  S I GNAL 

ABORT  WITH  ASCENT  ENGINE  STAGE 

AUTO  THROTTLE,*  COMPUTER  CONTROL  OF  DESCENT  ENGINE 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L I NPUT/OUT PUT  CHANNEL  BIT  OFSCRIPTIONS 


9:  12  OCT  . 21,  1970 
USER'  S PAGE 


(MAIN) 
NG.  5 


PAGE  59 
ED  S6 


A 0204 
*0205 
AD  2?  6 
R 0207 
AO  20  8 
RD  2 09 
A 02  1 0 
R C 2 1 1 
A 02 1 2 

* 0213 

AD  21  A 
R 0 2 1 5 
AO  2 16 
RD  2 1 7 
A 021  fl 
R 0 2 1 9 
A 02  2 0 
1 0221 
AD  2 22 


BIT  6 DISPLAY  INERTIAL  DATA 

BIT  7 RR  CCU  FAIL 

BIT  a SPARE 

eiT  9 IMU  OPERATE  WITH  NO  MALFUNCTION 

BIT  10  LM  COMPUTER  (NOT  AGS)  HAS  CONTROL  OF  LM 

BIT  11  IMU  CAGE  CCMMANC  TO  DRIVE  IMU  GIMBAL  ANGLES  TO  0. 

BIT  12  IMU  CDU  FAIL  (MALFUNCTION  OF  IMU  CDU,S) 

BIT  13  IMJ  FAIL  (MALFUNCTION  OF  IMU  STABILIZATION  LOOPS) 

KIT  14  1 SS  TURN  ON  REOUESTFD 

BIT  15  TEMPERATURE  CF  STABLE  MEMBER  WITHIN  CESIGN  LIMITS 


Rr  225 
Aii226 

* 0227 
RD229 
A f 1 2 3 1 
1 '232 
AD  233 
RD23A 
AD  236 
RD237 
A 0 2 3 8 
R0239 
R C 2 A 1 
4 0 2 A 3 
R D 2 A A 
A i'2AS 
R 0 2 A 6 
A02  A7 

* '2  A 8 
AD2A9 
R 0250 
40251 
RD252 
A 0253 
W D 2 5 A 
A02  55 

* 0?56 


CHANNEL  ?1 

a I T l 

HIT  2 
BIT  3 
BIT  A 
BIT  5 

BIT  6 
B I T 7 
BITS 
BIT  9 
BIT  in 
BIT  11 
B I T 12 


INPUT  CHANNEL;  HITS  ASSOCIATED  ®H  THE  ATTITUDE  CONTROLLER,  TRANS  L ATI  CNAL  CONTROLLER, 
AND  SPACECRAFT  ATTITUDE  CONTROL;  USEC  BY  PCS  DAP 

POTATICN  (BY  RHC  ) COMMANDED  IN  POSITIVE  PITCH  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE. 
ALSO  POSITIVE  ELEVATION  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

AS  BIT  1 EXCEPT  NEGATIVE  PITCH  AND  ELEVATION 

ROT  AT  I C N (BY  RHC)  COMMANDED  IN  POSITIVE  YAW  DIRECTION;  MUST  BE  IN  MI  NUKUM  IMPULSE  MODE. 

AS  BIT  2 EXCEPT  NEGATIVE  YAW 

ROTATION  (BY  RHC)  COMMANDED  IN  POSITIVE  ROLL  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE. 
ALSO  POSITIVE  AZIMUTH  CHANGE  FDR  LANDING  POINT  DESIGNATOR 

AS  BIT  5 EXCEPT  NEGATIVE  ROLL  AND  AZIMUTH 

TPANSLATICN  IN  +X  DIRECTION  COMMANDEC  BY  T HC 

TRANSLATION  IN  -X  DIRECTION  COMMANDED  BY  T HC 

TRANSLATION  IN  +Y  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -Y  DI  RFC  TI  ON  COMMANDED  BY  THC 

TPANSLATICN  IN  + Z DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -Z  DIRECTION  COMMANDED  BY  THC 


DAP: 


ASSEMBLE  PFVISICN  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


9:12  0:T.  21,1Q70 


( MAI N) 


PAGE  SO 


L INPUT/OUTP  UT  CHANNEL  BIT  DcSCRIFTICNS 


US  ER  'S  PAGE  NO  . 6 EC  S4 


A0257 
? 25R 

AD259 
R0260 
4 0 261 
RD2  62 
4 0263 


BIT  13  ATTITUDE  HCLC  MODE  ON  S CS  MOOE  CONTROL  SWITCH 

eiT  H AUTO  STABILIZATION  OF  ATTITUDE  UN  SC  S MODE  SWITCH 

PIT  15  ATTITUDE  CONTROL  OLT  OF  OETFNT  ( RHC  NCT  IN  NEUTRAL 


R 0 2 64 
A026S 
? 02 66 
AD267 

R 0 2 6 8 
4 D 269 
RD27D 
A 0271 
R '27? 
A0273 
1 0274 
AO  275 
R'.)276 
40277 
RD278 
4^279 
R02BO 
A02  Rl 
10282 
4D?°4 
R02  85 
4 0286 
R?  287 
4 0 288 


CHANNEL  32 
RI  T 1 

RIT  2 
PIT  3 
HI  T 4 
01  T 5 
BIT  6 
BIT  7 
RIT  8 
BIT  9 
BIT  ID 
BIT  14 


I NPLT  CHANNE  L. 

THRUSTERS  2 £ 4 CISABLED  BY  CREW 
THRUSTERS  5 £ 8 DISABLED  BY  CREW 
THRLSTERS  1 £ 3 DISABLED  BY  CREW 
THRLSTERS  6 £ 7 DISABLED  BY  CREW 
THRUSTERS  14  £ 16  CISABUED  BY  CREW 

THRUSTERS  13  £ 15  DISABLED  BY  CREW 

THRUSTERS  o E 12  DISABLED  BY  CREW 

THRLSTERS  10  £ 11  DISABLED  8Y  CREW 

DESCENT  ENGINE  GIMBALS  DISABLED  BY  CREW 
APPARENT  DESCENT  ENGINE  GIMBAL  FAILURE 
INDICATES  PROCEED  KEY  IS  DEPRESSED 


R '288 
P02Q1 
4 0293 
R0294 
40295 
10296 
4^297 
R029H 
A 0 2 9 9 
RD30O 
4 0301 
10  30? 
4 0303 
1 '1304 
AD  3D  5 

R 0 306 
AO  30  7 


CHANNEL  33  CHAN33;  I NPLT  CHANNEL;  F C R HARDWARE  STATUS  ANO  COMMAND  INFORMATION.  BITS  15-11  ARE  FLIP- 

FLOP  BITS  RESET  BY  A CHANNEL  "WRITE"  COMMAND  THAT  ARE  RESET  BY  A RESTART  £ BY  T4RUPT  LOOP. 


BIT  1 
BIT  2 
BIT  3 
8IT  4 
BIT  5 
81  T 6 
eiT  7 


SPARE 

PR  ALTO-PCWER  ON 
RR  RANGE  LCW  SCALF 
RR  DATA  GOOD 
LR  RANGE  DATA  GOOD 
LR  PCS1 
LP  PCS2 


34P:  ASSEMBLE  REVISION  B6  OF  AGC  PRCGFAM  ZERLINA  BY  ZGROAST  ER 

L INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 


9:  12  OCT.  21,  1970  (MAIN) 

USER'S  PAGE  NC.  7 


PAGE  61 
EC  S 4 


R 0308 
AO  309 
R3  3 1 1 - 
A 0311 
R0312 
A. '31  3 
R 0314 
AO  3 1 5 
R 0 31 6 
A1 ' 3 1 7 
RO  3 1 0 
A 0319 
RQ320 
A0322 
R "323 
A 0 3 2 4 


BIT  B LR  VEL  CATA  GOOC 

BIT  9 LR  RANGE  LOW  SCALE 

RIT  10  BLOCK  UPLINK  INPUT 

BI  T 11  L PL  I NK  TCC  FAST 

BIT  12  DOWNLINK  TCC  FAST 

BIT  13  P IP  A FA  IL 

BIT  14  EARNING  OF  REPEATED  ALARMS:  REST  ART  , COUNT  ER  FAIL,  VOLTAGE  FAIL,  AND  SCALAR  DOUBLE. 

BIT  15  LGC  CSCILLATCR  STOPPED 


R032? 
R 0 328 
AT  333 


34 

35 


DNT  Ml;  OUTPUT  CHANNEL;  DOWNLINK  1 FIRST  OF  TWO  WORDS  SERIALIZATION. 
DNT  M2;  C L T PUT  CHANNEL  OCWNLINK  2 SOCONO  OF  TWO  WORDS  SERIALIZATION. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IMA  BY  ZOROASTER 


970 


( MAI  N) 


PAGE  62 


Q:12  OCT. 


21  ,1 


FLAGWORD  ASSIGNMENTS 


USER  *S  PAGE  NO.  1 EO  S4 


AOOM 


P-  0002 
RTfif  4 
R0006 
1 00  OB 


FLAP  WORDS  0-11 


ARE  CCWN LINKED  AN 0 CAN  BE  SET  AND  CLEARED  BY  UP-FLAG  AND  DOWN-FLAG  INSTRUCTIONS  IN  THE 
INTERPRETER.  THESE  WERE  PREVIOUSLY  LISTFD  UNDER  " I NT  FRPRET  IVE  SWITCH  BIT  ASSIGNMENTS"  IN 
THE  ERASABLE  LOG  SECTION.  FLAGWORDS  12  E 1?  WE  PE  PRE  VI  OUS  LY  RAOMCCES  AND  DAPROOLS  AND 
APE  STILL  L'OWNLINKEC  UNDER  THOSE  NAMES. 


AD329 

R0010  ALPHABETICAL  LIST  OF  FLAGWORDS 


RC0105  9 

ROoll  FIAGWCPD 


25  41  61  CGLUMN  NG. 

DEC.  NUMBER  BIT  AND  FLAG  BIT  NAME 


100111  ABTTGFLG  143 

RD ) 1 2 ACCOKFLG  2C7 

R 00 1 3 ACC4-2FL  199 

ROC  14  ACMODFL  G 032 

RDDlS  ALTSCAI.F  186 

100155  ALW66FLG 

R0016  AN  TEN  FI  G 183 

ROOT  7 ACRRSFLG  085 

10018  A ORB  TF  LG  200 

RD319  A PS  ES  W 13C 

R 0020  APSFLAC  152 

R0021  ASTNFLAG  1C8 

R3  D 22  ATTFLAG  104 

10023  AUTOMODE  193 

R0024  AUTR1FLG  70S 

R0025  AUTR2FLG  208 

1 0026  A UXF  LAG  1C3 

R3D27  AVECFLAG  115 

ROC  28  AVEMIDSW  169 

R 00  29  A V FI  A G 060 

R3  3 30  CALCMAN2  063 

10031  CALCMAN3  062 

R003?  CDESFI  AG  180 

R0033  CMCCNFLG  123 

10036  COGAFLAG  131 

R0037  CSMDKFLG  1 S 7 

R 00  38  CULTFLAG  053 

R0040  DAPBnOLS 

R0361  CBS  EL  FL  G 206 

1 0061  1 DBSL2FLG  205 

R 006  ? DESIGFLG  1E5 

R 0063  DIDFLAG  0 16 

10044  DIMOFLAG  059 


BIT  7 FLAG  9 
R I T 3 F LAG  1 3 
BIT  11  FLAG  13 
BIT  13  FLAG  2 
BIT  9 FLAG  12 
PIT  9 FLAG  1 
RJ  T 12  FLAG  12 
RIT  5 FLAG  5 
BIT  10  FLAG  13 
BIT  5 FLAG  8 
BIT  13  FLAG  10 
BIT  12  F LAG  7 
BIT  1 FLAG  6 
BIT  2 FLAG  12 
B I T 1 FLAG  13 
BIT  2 FLAG  13 
RIT  2 FLAG  6 
BIT  5 FLAG  7 
RIT  1 FLAG  9 
BIT  5 F LAG  2 
BIT  2 FLAG  2 
BIT  3 FLAG  2 
BIT  15  FLAG  12 
BIT  12  FLAG  8 
BIT  4 FLAG  8 
BIT  13  FLAG  13 
BIT  7 FLAG  3 
F LGWRD13 
BIT  4 FLAG  13 
BIT  5 FLAG  13 
B I 7 10  FLAG  12 
BIT  14  FLAG  1 
BIT  1 FLAG  3 


ABTTGB  IT 
ACC  SOKAY 
ACC  40 P 2X 
ACMODBIT 
AL  TSCBI  T 
AL  W66B  IT 
ANTENBIT 
AORBSYST 
AORBT  RAN 
APSESBI T 
APSFL  B IT 
ASTNBIT 
A TTFLBI  T 
AUTOMR  IT 
AUT  RAT  El 
AUTRA  TE  2 
AUX  FL  BIT 
AVEGFBI  T 
AV  EM  OB  I T 
AVFLB IT 
C A L C 2 B I T 
CALC3B  IT 
CDESPIT 
CMOONBI T 
COGAFRIT 
CSMDOCKD 
CULTB  IT 

DB  SELEC  T 
DBSLECT2 
DESIGBI  T 
DIDFLBI T 
0 1 MO  8 IT 


4 

4 

4 

4 

4 

E 

4 

4 

4 

4 

i 

< 

i 

« 

i 

i 

< 

< 

i 


i 


« 


3 AP  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY 


FLAGWDRD  ASSIGNMENTS 


R0O45  0 ME  NF  LG 

*0046  DRIFTOFL 
R3047  CRIFTFLG 
R004H  DSKYFLAG 
R 0040  060R9FLG 

R005C  ENGONFLG 

* 0051  EPADFLAG 
R3352  ETP  I FLAG 
R005*  FINALFLG 
*0056  FLAGWRDC 
R3057  FLAGWRC1 
R 0058  FLAGWP02 
R0059  FLAGWR03 
R006f  FLAGWRC4 
*0061  F LAG  WRD  5 
R036?  FLAGWR06 
R 0063  F LAGWRD7 
*0064  F LAGWRD 8 
RD065  FLAGWRC9 
R 0066  FLAP 
R0067  FLGWRCUC 
R0068  FLGWR011 

* 0069  F LG  WRD  12 

R 00 7?  FI  GWRD13 

R0071  F L PC 
*0072  FLPI 
R0073  FLRCS 
R0C74  FLUNDISP 
R0075  FI  VR 
R0077  FREEFLAG 

* 00775  F SPA  SF  LG 
RO  078  GLOKFAIL 
R0079  GMBDRVSW 
*0080  GUFSSW 
RO  080  5 HFAILFLG 
*0081  NFL  SHF  LG 
POOR?  IDLEF1AG 
R0CP3  IGNFl  AG 
*0084  IMPULSE 
R 0 08  5 IMUSE 

R 0086  INF  INF  LG 
*0087  INITALGN 
RO  0 88  INTFLAG 

R 0089  INTYPFIG 

R 0090  ITSWICH 

ROC  9l  JSWITCF 

* 0092  LF  Tfl  0 DR  T 

R0D93  LMDONFLG 
R 0094  LCKCNSW 

*009  5 LOSCMFIG 


030 

075 
C 5 8 
083 
017 

038 

039 

' - 014 ) 

C 0 1 5-  29) 
' ) 
( C45-C59) 
(060-074 ) 
(075-089) 
( 050-  104) 
(105-119  ) 
( 120-134) 
( 135-  149) 


142 

( 150- 164) 
( 165-179  ) 
( 180-194) 
( 195-2  9) 
1 38 
135 
149 
1 25 
126 
0 12 

00  5 
046 
095 
028 

1 67 
179 


113 

107 

036 

7 

128 
133 
151 
056 
I 0 c 
DO  1 
141 
124 
010 
033 


BIT  9 FLAG  5 
RI  T 8 F LAG  1 3 
BIT  15  FLAG  2 
PIT  15  FLAG  5 
BIT  2 FLAG  3 
BIT  7 FLAG  5 
BIT  13  FLAG  1 
BIT  7 FLAG  2 
BIT  6 FLAG  2 
( STATE  +0) 

( STATE  + 1) 
(STATE  +2) 
(STATE  +3) 
(STATE  +4) 

(ST  ATE  +5  ) 

( STA  TE  +6) 
(STATE  +7) 

( STATE  + 8 D ) 
(STATE  +9D) 

BIT  0 FLAG  9 
( STATE  +100) 
(STATE  + 1 1D  ) 
(STATE  +12  0 
(STATE  + 1 3D  ) 
BIT  12  FLAG  9 
BIT  11  F LAG  9 
BIT  10  FLAG  9 
BIT  10  FLAG  8 
BIT  14  FLAG  9 
BIT  3 FLAG  0 
PIT  10  FLAG  0 
BIT  14  FLAG  3 
BIT  10  FLAG  6 
BIT  2 F LAG  1 
BIT  13  FLAG  11 
BIT  l FLAG  11 
BIT  7 F LAG  7 
BIT  13  FLAG  7 
PIT  9 FLAG  2 
BIT  9 FLAG  0 
BIT  7 FLAG  8 
BIT?  F LAG  8 
BIT  1 4 FLAG  10 
BIT  4 FLAG  3 
RT  7 15  FLAG  7 
BIT  1 4 FLAG  0 
PIT  9 FLAC  9 
BIT  11  FLAG  8 
BIT  5 FLAG  0 
BIT  1?  F LAG  2 


9:  12  n:  T.  21,  1970 


MA  IN) 


PAGE 


63 


USER'S  PAGE  NO.  2 


EC  S 4 


DMENFBI T 
DR  I FT  8 IT 
DRF TBI T 
DSK YFR  IT 
DS0R9  BIT 
EN30NB I T 
ERADFBIT 
ETPIBI  T 
FINAL8I T 


FL  APB  IT 


FLPC8I T 
FL  P I B IT 
FLRCSBI T 
FL  UN  DB  IT 
FLVRBIT 
FREEFBI T 
FS  PAS  R IT 
GLOKFBIT 
GMBDRBI T 
GUESS  HIT 
HFAILBI  T 
HFL SHB  IT 
IDLEFBIT 
IGNFLBI T 
IMPUl  B IT 
I MUSFBI  T 
INF  INB  I T 
I N IT  A B IT 
I NTFLBI  T 
INTYPH  IT 
ITSWBIT 
JSWCHHI  T 
LFT  ARB  IT 
LMOONBI T 
LOKONB I T 
LOS  CM B IT 


ASSeMPlE  PE  VISION  56  OF  AGO  PROGRAM  ZERLINA  BY 


GAP  : 

FLAGWORO 

R 00955  l PCS  2F  LG 
Rt'096  LRALTFLG 
RD5.9  7 LR  BY  PASS 

3 0C58  IRIMH 
R 0 0 9 9 LRPnSFIG 

R(*10.  LRVELFl  G 
R 010 1 L LNAF  LAG 
1013  2 MANUFLAG 
ROIC  3 PGLVFLAG 
RO  li  4 Ml  DA  VFI  G 
R?1  36  M I CFI  AC 
10106  Ml  D 1 F LAG 
R0107  MKOVFLAG 
ROlOB  MCCNF  LAG 
10109  MPKIDFLG 
R31I'*  MPKNVFLG 
R011I  MRUPTF  LG 
R 112  MUN  FI.  AG 
R 1 1 1 3 MW  A IT  FL  G 
10114  NEED  LF  LG 
R 114  1 NEED2FLG 
R'115  NEW  IF  LG 
10116  NJETSFLG 
R3117  NOOOFLAG 
R1  1175  NCD0PC7 
RO  118  NOL  BREAD 
RD119  NOPMSW 
1012'  NOR P MON 

R i ’ 1 2 1 5 NO  TER  FL  G 
R 01 22  NCTHPCTI. 
10123  NOUPFLAG 
R3124  NRMNVFI  G 

R ' 1 2 5 NP.MI  DF  LG 

RO  126  NRIJPTFLG 
R3127  NTAPGFLG 
1 r128  NWAT  TP  LG 
R9132  DRBWFLAG 
R0133  CRDERSW 
10134  OURRCFLG 
R3135  PDSPFLAG 
R 0 1 36  PFRATFLG 
R 0 137  P INBR  FI  G 
R31375  POOHFLAG 
10139  PRECIFLG 
R014O  PRIODFLG 
R0l4l  PRONVFLG 
10142  PSTHIGAT 
R3  143  PULSFFIG 
R01432  P21 F LAG 

RO 144  P25FLAG 


BIT  6 FLAG  11 
BI  T 5 FLAG  12 
BIT  15  FLAG  1 1 
BIT  B FL  AC  1 1 
BI  T 6 FLAG  12 
BIT  8 FLAG  12 
BIT  12  FLAG  3 
BIT  1 4 F LAG  7 
BIT  2 FLAG  5 
BI  T 2 F LAG  9 
BIT  13  FLAG  0 
BIT  3 FL  AG  0 
BI  T 3 FLAG  4 
BIT  12  FLAG  0 
BIT  15  FLAG  4 
BIT  9 FLAG  4 
BIT  5 FLAG  4 
BIT  P FLAG  6 
BIT  1 1 FLAG  4 
BIT  4 FLAG  0 
BI  T 15  FLAG  0 
BIT  13  FLAG  B 
PIT  15  FLAG  1 
BIT  1 FLAG  2 
BIT  11  FLAG  3 
BIT  10  F LAG  11 
BIT  10  FLAG  7 
BIT  4 FLAG  5 
RJ  T 11  FLAG  1 
BIT  12  FLAG  5 
BIT  6 FLAG  1 
BIT  8 FLAG  4 
BIT  13  FLAG  4 
BI  T 4 FLAG  4 
BIT  3 FLAG  6 
BIT  10  FLAG  4 
BI  T 6 FLAG  3 
BIT  6 FLAG  8 
BIT  12  FLAG  13 
BIT  12  FLAG  4 
BIT  4 FLAG  2 
BI  T 6 FLAG  4 
BIT  15  FLAG  3 
BIT  8 FLAG  3 
BI T 14  FLAG  1 
BIT  7 FLAG  4 
PIT  11  FLAG  1 1 
BIT  1 5 F LAG  1 3 
BIT  11  FLAG  0 
BI  T 9 F LAG  0 


ASSIGNMENTS 

1 74 

19C 

1 6 5 

1 72 

189 

187 

048 

106 

088 

1 48 

OC  2 

147 

072 

00  3 

060 

066 

070 

057 

064 

Oil 

000 

122 

015 

0 4 4 

049 

17C 

110 

086 

0 15 

078 

024 

067 

062 

071 

102 

065 

054 

129 

158 

063 

041 

C69 

045 

052 

061 

068 

1 69 

195 

004 

006 
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USER'S  PAGE  NO.  3 EC  S4 


LP3S2B IT 
LR  ALT  B IT 
LR3  YBI  T 
LR  IN HB  IT 
LPP0S8IT 
LRVEl B! T 
LUNABIT 
MANUFBI  T 
MGL  VFB  IT 
MI  DAVB  IT 
MIDFLBI T 
M ID1B  IT 
MKOVRI T 
MOONRI T 
MRK  I DR  IT 
MRKNVRI T 
MPUPTB  IT 
MUN  FL  B IT 
M WA  I TB  I T 
NEEOLBIT 
NEE 02  BI  T 
NE  WI3I T 
NJETS  BIT 
NOD  OR  I T 
N0P07R  IT 
NOLRPBIT 
NORMSB  I T 
NORRMB  IT 
NOTERBIT 
NOTHRBI T 
NOUPFBIT 
NRMNVBI T 
NRM  IDBIT 
NRUPT8  IT 
NTAR3B  I T 
NW A ITR  IT 
ORBWFBIT 
ORDERB I T 
OJRRCBIT 
PD  SPF  BI  T 
PFR  ATB  IT 
PINRRBIT 
P00H3I T 
PR  EC  I B IT 
PPI  ODBIT 
PRONVBI  T 
PST  HI  BIT 
PULSE  S 
P 2 1 FL  B I T 
P25  FL  B IT 


GAP  : ASSEMBLE  REVISION  56  OF  AGC  PHCGPAM  2ERLINA  PY  ZOROASTER 


L 

FLAGHORO 

ASS  IGNMFNTS 

R 01 44  5 

F66PR0FL 

0 1 4 C 

RIT 

1 FLAG  0 

P66PR0BT 

RO  145 

P 707  1 FI  G 

137 

8 1 T 

1 3 

F L AG 

9 

P7071 BIT 

ROl  46 

QUITFLAG 

1 45 

BIT 

5 

FLAG 

9 

QUI  T3I  T 

R 0147 

P AOMOOE  s 

FLGWRC12 

R0148 

PAS  FLAG 

FLGWRD10 

R0149 

RCOUFAI L 

188 

RIT 

7 

FL  AG 

12 

RCOIJFB  I T 

R0  150 

RCDUOFLG 

1 82 

B I T 

13 

F LAG 

12 

RCDUO  BIT 

R3155 

R EC  FL AG 

099 

BIT 

6 

F LAG 

6 

REDFLBI  T 

R 01 56 

pefsmflg 

04  7 

BIT 

13 

FL  AG 

3 

REFSMBIT 

RO  157 

R E IN  TFL  G 

158 

B I T 

7 

FLAG 

1 0 

RE  I NT  BIT 

ROl  58 

REMOOFLG 

1 8 1 

BIT 

14 

FL  AG 

12 

REMOPBI  T 

R "159 

R END  WF  LG 

089 

BIT 

1 

FLAG 

5 

RENDWB  IT 

RD160 

R EPOSMON 

184 

B I T 

1 1 

FLAG 

12 

RE  POSBI  T 

R0l6l 

RHCSCFLG 

2C3 

B IT 

7 

FLAG 

13 

rh:  SCALE 

10162 

RMDVZFI  G 

OC  8 

BI  T 

7 

FLAG 

0 

RNDVZ8IT 

R3  163 

RNC-EC  AT  A 

1 76 

BIT 

4 

F LAG 

1 1 

RNGEPBI  T 

ROl  64 

rngscflg 

080 

BIT 

10 

FLAG 

5 

RNIGSCB  IT 

R ) 1642 

rooflag 

018 

BI  T 

12 

F LAG 

1 

RODFL  BIT 

ROl 644 

ROT  FL AG 

1 44 

BIT 

6 

FLAG 

9 

ROTFLBI T 

10165 

PPQFLAG 

1 20 

BIT 

1 5 

FLAG 

8 

RPQFI  B IT 

R 3 1 66 

RP  DAT  A FL 

191 

BIT 

4 

FLAG 

12 

RRDATABT 

RC'167 

RRNPSW 

009 

BIT 

6 

FLAG  0 

RRNB3I  T 

1C  165 

R RP  SFLAG 

1 92 

BI  T 

3 

F LAG 

12 

RRRSBIT 

R}  1 6 9 

RVSW 

1 1 1 

BIT 

9 

FLAG 

7 

RVSWBI T 

R 0 1 7 0 

P04FLAG 

051 

RIT 

9 

FLAG 

3 

RC4FLR  IT 

RO  172 

R 1 OFL  AG 

013 

BI  T 

2 

FLAG 

0 

R10FLBIT 

R • 1 73 

R6l  FL  AG 

0 20 

BIT 

10 

FLAG 

1 

R61FLBI  T 

1 0174 

R77FLAG 

079 

BIT 

11 

FLAG 

5 

R77  FI  RIT 

RD176 

SEPVOVER 

04? 

BIT 

10 

FLAG 

2 

SE  ROVBI  T 

ROl  76 

SLGPESW 

027 

HIT 

3 

FLAG 

l 

SLOPEBI  T 

10177 

SNUFFER 

C 7 7 

81  T 

13 

FLAG 

5 

SNU  FFBIT 

R0178 

S CL  NS W 

087 

BIT 

3 

FLAG 

5 

SOL  N SB  I T 

R 0 1 7 ° 

SRCHOPTN 

031 

BIT 

14 

FLAG 

2 

SRCHOR  IT 

RO  IPO 

STATFF1  G 

055 

BI  T 

5 

FLAG 

3 

STATEB  IT 

R0l8l 

STEERSW 

0 34 

BIT 

1 1 

FLAG 

2 

STEERBI  T 

10182 

SURFF  LAG 

127 

HIT 

8 

FLAG 

8 

SJRFFB  IT 

R y 1 8 3 

SWANDISP 

109 

BI  T 

11 

FLAG 

7 

SWAND8IT 

ROl  84 

S32.1F1 

090 

BIT 

15 

FLAG 

6 

S32BI  T I 

10  185 

S3  2.  IF  2 

092 

BI  T 

14 

F LAG 

6 

S 3 2 B IT  2 

R ) 1 86 

S 32. 1F3A 

092 

BIT 

13 

FLAG 

6 

S32RI  T3 A 

R 01 87 

S3 2.  1 S3  P 

093 

BIT 

12 

FLAG 

6 

S32BIT3B 

R‘>  188 

TFFSW 

119 

BI  T 

1 

FLAG 

7 

TFFSWR  IT 

ROl  89 

trackflg 

0 25 

BIT 

5 

FLAG 

1 

TRAC  KB  I T 

1 0190 

TLRNONF  L 

194 

BIT 

1 

FLAG 

12 

TUR  NONRT 

RD191 

ULLAGFLG 

204 

B I T 

6 

F LAG 

13 

ULLAGER 

ROl  9? 

UPDATE  LG 

023 

8 IT 

7 

FLAG 

1 

UP3ATB  I T 

10193 

UPI nCKFL 

life 

BI  T 

4 

FLAG 

7 

U PL  OC  0 IT 

RO  194 

USEORFLG 

196 

BIT 

1 4 

FLAG 

13 

USEORJTS 

R 01 95 

VEHUPFLG 

022 

BIT 

8 

FL  AG 

1 

VEHUPB  IT 

RO  196 

V EL  DA  TA 

173 

BI  T 

7 

FLAG 

11 

VELDABIT 
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ft  01 97  VFRIFLAG 
Rr]Q75  VFAILFLG 
R0198  VFLAG 
<•'199  VF  L SHF  LG 
P023‘  VINTFLAG 
Ru2r,1  VXINH 
< 0 20  2 V37FLAG 
RD233  V 67  FL  AG 
R0204  V82EMFLG 
R 21  5 XDE1  vcL  r 
R0205  xcspflag 
<0207  XORFIG 
K32J8  XOVINFLG 
R0209  ZCCMFLAG 
<02L  3AXISFIG 
R32I1  360SW 

40212 


1 1 7 
166 
050 
1 7 P 
057 
16B 
116 
112 
1 18 
037 
' 74 
171 
201 
082 
C 84 
134 


BIT  3 FLAG  7 
BI  1 14  FLAG  11 
BIT  10  FLAG  3 
PIT  2 FLAG  11 
BIT  3 FLAG  3 
8 IT  12  FLAG  11 
BI  T 6 F LAG  7 
8 I T 8 FLAG  7 
BIT  2 FLAG  7 
81  T 8 FLAG  2 
8 IT  1 FLAG  4 
PIT  9 FLAG  1 1 
PIT  9 F LAG  13 
BIT  8 FLAG  5 
BIT  6 FLAG  5 
BIT  1 FLAG  8 
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0214  REF  1 0074  FL  AGWR  DO  = 


4 0 215 
AO  2 16 

217  0000  NEE02FLG  = 

r-?18  REF  1 4 7 35  NEED2BIT  = 

A02 1 o 


0 221 

0222  REF 
40223 


'^OCl  J SWITCH  = 

4736  JSWCHB  IT  = 


A 224 
022  5 
AO  226 
0227 
4 .1228 


REF  2 LAST  40 


0002 

4737 


MICFLAG  = 
M I0FL8  IT  = 


40229 

'230  0003  MOONFLAG  = 

0231  REF  1 4740  MCCNBIT  = 

AO  232 


A 0233 

0234  0004  P21 FLAG  = 

0235  RFF  2 LAST  44  4741  P21FLRIT  = 
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VER  IFB  IT 
VFA  ILB  IT 
VFLA33  I T 

V FL S HR  IT 

VI  NTF0I  T 
VXINHB I T 
V 37  FI  8 IT 
V67FL  BI T 
V82EWB  IT 
XOELVBIT 
XO  SP3  I T 

X OR  FIB  IT 
XOVI  NHI  8 
ZOOMB I T 
3 AX  IS  BIT 
360SWBI T 


STATE  +0  (0C0-014) 

(SET)  (RESET) 

BI  T 15  FLAG  0 - (S> 

COCO  DISPLAY  DAP  RATES  CHECK  BIT  4 OF  THIS 

RIT15  ON  FOA I NEEDLES.  WORD  FOR  DISPLAY 

MODES  (1  OR  2 ) . 


BIT  14  FLAG  0 (S) 

OOlD  INTEGRATION  OF  W INTEGRATION  OF  STATE 

RIT14  MATRIX  VECTOR 


BIT  13  FLAG  0 (S) 

002D  INTEGRATION  WITH  INTEGRATION  WITHOUT 

SECONDARY  BODY  AND  SOLAR  PERTURBATIONS 
R I T 1 3 SOLAR  PERTURBATIONS 


BI T 12  FLAG  0 
00  3D 
B IT  1 2 


(L  ) 

MOON  I S SPHERE  OF 
INFLUENCE 


EARTH  IS  SPHERE  OF 
INFLUENCE 


BIT  11  FLAG  0 

0040  USE  BASE  VECTORS  1ST  PASS  --  CALC- 

31  Til  ALREADY  CALCULATED  ULATE  BASE  VECTORS 
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A 0?  3 7 

0238  0005 

0230  RFF  1 4742 

A 0240 


41& 

0243  REF 
AO  244 


0006 

4743 


AC  ?45 
0246 
3 247 
A 0248 


0007 
4 74  4 


AO  °49 

0250 

0251 
A 0 2 5 2 


0O10 

4745 


A'  253 
0254 
3 25'’ 
A 0256 


<:01l 

4746 


A / 57 
0258 
02  59 
AO  260 


0012 
474  7 


A 261 
0 262 
0263 
A 02  64 


001  3 
4 7 50 


A 265 
0266 
A 0267 
0263 
A 0269 


A 0 270 
0271 
'272 


0013 

4752 


FS  P AS  F LG  = 
F SPA  SB  I T = 


P25FLAG  = 
P2 5 FI  BIT  = 


I MUSE 

I MUSEBI  T = 


RNDVZFLG  = 
RNOVZBIT  = 


RRNBSW 
RRNBBI  T = 


LOKONSW  = 
L0K0N8IT  = 


NEEOLFLG  = 
NEED  LB  I T = 


FR  EEFLAG  = 
FREEFRI T = 


RlCFLAG  = 
R 10  FL  B IT  = 


A 02  76 
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BIT  10  FLAG  0 

0050  FIRST  J A S S THROUGH  NOT  FIRST  PASS  THRU 

BITlO  REPOSITION  ROUTINE  REPOSITION  ROUTINE 


BIT  9 FLAG  0 (S  ) 

0060  P25  OPERATING  P25  NUT  OPERATING 

R IT9 


31  T 8 FLAG  0 ( S) 

0070  IMU  IN  USE  I MU  NOT  IN  USE 

B I T 8 


BIT  7 FLAG  0 (S  ) 

00  80  P20  RUNNING  (RADAR  P20  NOT  RUNNING 

BIT7  IN  USE) 


RI  T 6 FLAG  0 ( S) 

0 0 9 D RADAR  TARGET  IN  RAO AR  TARGET  IN 

BIT6  NB  COORDINATES  SM  COORDINATES 


BIT  5 FLAG  0 IS  ) 

01 00  RADAR  LOCK-ON  RACAR  LOCK-UN  NOT 

8 IT  5 DESIRED  DESIRFD 


31  T 4 FLAG  C ( S) 

"'110  TOTAL  ATTITUDE  A /P  FOLLOWING 

BIT4  ERROR  OISPLAYED  ERROR  CISPLAYED 


BIT  3 FLAG  0 
0120 

B I T3 


(IJSFD  BY  P51-53  TEMP  IN  MANY  DIFFERENT 
ROUTINES  L BY  LUNAR  *■  SOLAR  EPHEMERIDFS) 


BIT  2 FLAG  0 
013 

B IT2 


LATVEl  DISPLAYED 
IN  INERTIAL  AXES. 
FORVEL  ZERO. 


LATVEL  ANO  FORVEL 
D I SPLAYED  I N LM 
BODY  AXES  (ROUGHLY). 
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0277 
' 278 
A0279 
A 02701 
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CONTINUE  P66 
HOR  IZONTAl 
V ELOC  ITY  NULL  ING 


STCP  P6  6 
HORIZONTAL  VE  L 
NULL  ING 


02RO 

AT  28  1 

A 0 282 
0283 
02ra 
4 0285 

AT  28  6 

0 288 
A02  89 

A 0290 
T 2 5 1 
02  9.? 


A0294 

0295 

0296 
AO?  97 

A 02975 

AT298 

0299 

02995 

AT  299  6 

A 0300 
0 301 
03  02 
A 0303 


0 30  6 
AT307 

A 0368 
0 309 
031  C 
A 031 1 


REF 

2 

LAST 

66 

0075 

FLAGWRD1  = 

STATE  +1 

(0  15-0  29  ) 

(SET) 

(RES  ET  ) 

REF 

2 

LAST 

66 

OC  1 7 
<♦735 

NJETSFLG  = 
NIJFTSB  IT  = 

BIT  15  FLAG  1 
0150 

B I T 1 5 

( S) 

TWO  JET  RCS  BURN 

FOUR  JET  RCS  BURN 

BIT  1 4 FLAG  1 

0 160 

BIT14 

(L) 

INERTIAL  DATA  I S 

AVA  IL  ABLE 

REF 

2 

1 AST 

66 

0020 
<♦7  36 

DICFLAG  = 

HI  OF  LB  I T = 

PERFORM  DATA  CISPLAY 

IN  ITIAl  IZATIJN  FUNC  S 

0021 

ERADFLAG  = 

BIT  13  FLAG  1 

0 1 7 D 

(S) 

COMPUTE  HEARTH 

USE  CONSTANT  REARTH 

REF 

3 

LAST 

66 

A 7 37 

FPAOFRIT  = 

31  T13 

FT  SCHEP  ELLIPSOID 

PAC  RAOIUS 

REF 

2 

I.AST 

66 

0022 

4 7«0 

ROCFLAG  = 
RODFLRIT 

BI T12  FLAG  1 
0180 

B IT12 

IF  IN  P 66 , NORMAL 
OPERATION  CONTINUES. 

IF  IN  P66,  RE- INI T- 
. I AL IZ  A TIUN  I S PER- 

RESTART  CLEARS  FLAG 

FORMED  ANO  FLAG  IS 

REF 

3 

LAST 

66 

0023 

4 741 

NOT  ER  FL  G = 
NOTERBIT  = 

BIT  11  FLAG  1 
190 

BIT11 

TFPRAIN  MODEL 

INHIB  ITEO 

TERRAI N MODEL 

PEP  MI  TTE  J 

BIT  10  FLAG  1 

REF 

2 

LAST 

67 

0024 

4742 

R61FLAG  = 
R61FLB  IT  = 

0200 

BI  T10 

RUN  R61  LEM 

RUN  R 65  LEM 

0025 

ALW66FLG  = 

BI  T 9 FLAG  1 
210 

P 66  SELECTION 

P6  6 CANNOT  BF 

SELECTED  NOW 

RFF 

2 

LAST 

67 

4743 

ALW66RIT  = 

BIT9 

ALLOWED  NOW 

RFF 

2 

L AST 

67 

0026 

4744 

VEHUPFLG  = 

VF  HUP  B I T = 

BIT  8 FLAG  1 
022  0 

31  T 8 

( S) 

CSM  ST  AT  E V ECTOR 

BE!  NG  UPDAT  ED 

LEM  STATE  VECTOR 

BEING  UPDAT  FD 
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A0312 

0313  0027 

9314  REF  2 LAST  67  4745 

A 03 1 5 


UPCAT  FLG 
UPDATBI  T 


BIT  7 FLAG  1 ( S) 

0230  UPDATING  BY  MARKS  UPDATING  BY  MARKS 

BIT7  ALLOWED  MOT  ALLOWED 


A 031  8 

. 0319  REF  2 LA  ST  67 
A0320 


0030 

4746 


NOUPF  LAG 
N0UPF8I T 


BIT  6 FL  AG  1 ( S ) 

0240  NEITHER  CSM 

NOR  LM  STATE  VECTOR 
BIT6  MAY  BE  UPOATED 


EITHER  STATE 
VECTOR  MAY  BE 
UPDATED 


A 0321 

932?  0C21 

0323  REF  2 LAST  67  4747 

A0324 


BIT  5 FLAG  1 (S) 

TR  AC  KF  LG  = D25D  TRACKING  ALLOWED  TRACKING  NOT  ALLOWED 

TRACKBIT  = B I T 5 


A'1  3 ? 5 
A 0326 
A0327 
A332fl 


BIT  4 FLAG  1 

C26D 

BIT4 


AC32Q 

333->  0023 

A0331 

033?  RFF  2 LAST  67  4751 

AO  333 


SLOPE  SW 
SLCPFBIT 


P IT  3 FLAG  1 (SI 

0270  ITFPATE  WITH  BIAS  ITERATE  WITH  REGULAR 

METHOD  IN  ITERATOR  FALSI  MFTHOD  IN 
B IT  3 ITERATOR 


A 0334 

0335  0034 

0336  RFF  2 LAST  67  4752 

A 0337 


B IT  2 FLAG  1 ( SI 

GLESSW  = 32  8 D NO  STARTING  VALUE  STARTING  VALUE  FOR 

GUESSBIT  = 91  T2  FOR  ITERATION  IT  FRAT  ION  EXISTS 


BIT  1 FLAG  1 
0 290 


9341  REF  3 LAST  68 


0076 


F LAG  WRD2 


STATE 


+ 2 


A 0342 


( SE  T) 


(RF  SET) 


A'  343 

0344  00  36 

0345  RFF  3 LAST  68  4735 

AD  346 


DR  IFTFLG  = 
DR  FT R IT  = 


BIT  15  FLAG 

C30P 

BIT  15 


T3RUPT  CALLS  GYRO  T3RUPT  DOES  NO  GYRO 
COMPENSATION  COMPENSATION 


A ^47 

0348  0037 

9349  REF  3 l AST  68  4736 

A 0350 


SRCHOPTN  = 
SRCHORI T = 


BIT  14  FLAG 
931  D 
B I Tl4 


PADAR  IN  AUTOMATIC 
SFAPCH  CPT  I ON  ( R24  ) 


RADAR  NUT  IN  AUTO- 
MATIC S EARCH  OPT  ION 
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A3351 

0352  0040 

0353  PEF  4 LAST  68  4737 

A0354 


ACMODFL  G = 
ACMOOBIT  = 


A 0355 
3356 

40357 

i 358  REF 
A3363 


3 LAST  6 6 


0041 

4740 


LO  SC  MF  LG  = 
LCSCMBIT  = 


40361 

" 362 
0363 
4 0364 


A3  365 
0366 
403665 
3367 
4 


0043 

4742 


SERVDVFR 
SER0V8I  T 


AO  369 
0370 
4 0 371 
3372 
4 < 373 


0044 
4 3 4 3 


IMPUL  SW 
I MPULBI T 


4 0 374 
3375 
0376 
AO  377 


XDF  LVF  LG 
X DELVBIT 


AC  3 78 
(•37° 
A3  383 
0381 
4038? 


3046 
4 745 


ET  PI  EL  AG 
ETP  18  IT 


A3  38  7 
C388 
AO  389 

03  90 
4G39I 


0047 

4746 


FINALFLG 
F INALB  I T 


3 LAST 
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3 I T 1 3 F LAG  2 ( S) 

3320  M4NU4L  ACQUISITION  AUTO  AC  OUI  SI  TI  ON 

BIT13  BY  RENDESVOUS  RADAR  BY  PENDESVOUS  RADAR 


BIT  12  FLAG  2 

0330 

BIT12 


( S) 

LINE  OF  SIGHT  BEING  LINE  0 F SIGHT  NOT 
COMPUTED  ( R21  ) BEING  COMPUTEO 


PIT  11  FLAG  2 ( SI 

334  D SUFFICIENT  THRUST  INSUFFICIENT  THRUST 

31  Til  IS  PRESFNT  IS  PRESENT 


BIT  10  FLAG  2 (S  ) 

35D  GUIDANCE  PORTION  SERVICER  PORTION 

OF  SERVICER  JOB  OF  SERVICER  JOB 

BITlO  IS  IN  PROGRESS  IS  IN  PROGRESS 


BIT  9 FLAG  2 (S  I 

0360  MINIMUM  IMPULSE  STEERING  RURN  (NO 

BURN  (CUTOFF  TIME  CUTOFF  TIME  YET 

BIT9  SPECIFIED)  AVAILABLE) 


BIT  8 FLAG  2 (S) 

03  7D  EXTERNAL  DELTAV  VG  LAMBERT  (AIMPUINT) 

B I T 8 COMPUTATION  VG  COMPUTATION 


31  T 7 FLAG  2 (S) 

0380  EL  F VA  TI  ON  ANGLE  TP  I TIME  SUPPLIED 

SUPPLIED  FOR  FOR  P 34,  74  TO  COMPUT 

BIT7  P 34 , 74  ELEVATICN 


BIT  6 FLAG  2 (S ) 

0 39D  LAST  PASS  THROUGH  INTERIM  PASS  THROUGH 

RENDEZVOUS  PROGRAM  RENDEZVOUS  PROGRAM 

BIT6  COMPUTATIONS  COMPUTATIONS 


HIT  5 FLAG  2 
0400 
B IT  5 


(S  ) 

LEM  IS  AC  TI  VE 
VEHICLE 


CSM  IS  ACTIVE 
VEHIC  LE 
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*0396 

3397  0051 

G398  REF  2 LAST  67  4750 

AC  399 


A04  00 

0401  0052 

3 43  2 PFF  3 LAST  69  4151 

A 0403 


A 0404 

0435  0053 

0406  REF  3 I AST  69  4752 

A0407 


A040R 

0409  0054 

0410  REF  2 LAST  68  4153 


RFF  4 LAST  69  0C77 


0055 

RFF  4 LAST  69  4735 


0056 

REF  4 LAST  69  4736 


0057 

REF  5 I AST  70  4737 


0060 

REF  4 LAST  70  4140 

A042B 


A 0420 

3433  OC  6 1 

0431  REF  5 LAST  70  4741 

A 04  3? 


A 0411 
0412 


A 0414 
041^ 
0416 
A '4165 

A3  4 1 7 

0418 

0419 
A0420 

A 4?> 
34  22 
0423 
A 04  24 


A3  425 
9426 
0427 


PFRATFLG  = 
PFRATBIT  = 


CALCMAN3  = 
CALC3BI  T = 


CALCMAN2  = 
CALC2BIT  = 


NOOOFL  AG  = 
NODOBI T = 


FLAGWRD3  = 


POOHFLAG  = 
POOHBIT  = 


GLOKFAIL  = 
GLCKF8I T = 


REFSMFL3  = 
REFSMBIT  = 


LUNAFl  AG  = 
LUNABIT  = 


N0D0P07  = 

N0P0  7B  IT  = 


A"*  4 33 
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BIT  4 FLAG  2 

04  ID 

B IT4 

(S  ) 

PREFERRED  ATTITUDE  PREFERRED  ATTITUDE 
COMPUTED  NOT  COMPUTED 

BIT  3 F LAG  2 

0 42D 

B I T3 

(S) 

NO  FINAL  ROLL  FINAL  ROLL  IS 

NECESSARY 

BIT  2 FLAG  2 
0430 

8 IT2 

( S ) 

PFRFOPM  MANEJVER  BYPASS  STARTING 

STARTING  PROCEDURE  PROCEDURE 

BIT  1 F LAG  2 

3 4 4D 

B I T 1 

(S) 

V 37  NOT  PERMITTED  V 37  PERMITTED 

STATE  +3 

(045-059  ) 

(SFT)  (RESET) 


BIT  15  FLAG  3 
04  5 D 

31  T15 

INHIBIT  BACK/I  AROS  ALLOW  BACKWARDS 

INTEGRATION  INTEGRATION 

BIT  1 4 FLAG  3 
04  6D 

BIT14 

( S ) 

GIMBAL  LOCK  HAS  NOT  IN  GIMBAL  LOCK 

OC  CURBED 

R IT  13  FLAG  3 
047D 

BI  T 13 

***  PROTECTED  FROM  FRESH  START  *** 
REFSMMAT  GOOD  R FFSMMAT  NO  GOOD 

BI  T 12  FLAG  3 

0 4 8D 

BIT12 

( S) 

LUNAR  LAT-LONG  EARTH  LAT-LONG 

B IT  11  FLAG  3 
04  9 D 

BI  Til 

(L  ) 

SYSTEM  TESTS  SYSTEM  TESTS 

NOT  ALLOWED  ALLOWED 

BI  T 10  FLAG  3 

(S) 
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F LAGWCRD  ASSIGNMENTS 


0434 
3435 
A 0436 


A 1437 
0438 
044f 
A3441 


0063 

4743 


A 04  4 f 
0447 
A3  448 
443 
A0450 


0064 

4744 


PRECI FLG 
PRECI BIT 


A0451 
4 5 
3 4 53 
A 0454 


A 0455 
3456 
0457 
AO  458 


ORRWF LAG 
OR  ew  FRIT 


A0459 
0460 
3 461 
A 046? 


0067 

4747 


A 3 463 
3464 
0465 
A°466 


IMTYPF  LG 
INTYPBIT 


A04  6 7 
046R 
3469 
A 04  70 


A 3471 
3 47? 
0473 
AO  474 


0 07  2 
475? 


0 60R  9F  LG 
D60R0B  IT 


A047S 
"4  76 
3477 
A 04  78 


.">0  73 
4753 


3500 

3 1 TlO 
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USER'S  PAGE  NC.  11  E?  S4 

LESS  THAN  TWO  STARS  TWO  STARS  IN  FIELD 

I N FI  ELD  OF  VI  EW  OF  V I EW 

RIT  9 FLAG  3 CS  ) 

05lf)  R04  RUNNING  R04  NOT  RUNNING 


B IT 9 

BIT  8 FLAG 
3520 

3 ( S) 

NORMAL  INTEGRATION  ENGAGES  4-TIME  STEP 
IN  POO  (POO)  LOGIC  IN  INTE- 

B  I T 8 

GRAL  ON 

BIT  7 F LAG 

3 530 

BIT7 

3 (S) 

STAR  OCCULTED  STAR  NOT  OCCULTED 

BIT  6 FLAG 
0 54  0 

B I T 6 

3 (S) 

W MATRIX  VALID  FOR  W MATRIX  INVALID  FOR 
ORBITAL  NAVIGATION  ORBITAL  NAVIGATION 

BIT  5 FLAG 
055D 

BI  T? 

3 ( S) 

PERMANENT  STATE  PERMANENT  STATE 

VECTOR  UPDATFD  VECTOR  NOT  UPDATED 

BIT  4 FLAG 
0560 

B IT4 

3 ( S ) 

CONIC  INTEGRATION  ENCKE  INTEGRATION 

3 I T 3 F LAG 
D57D 

BI  T3 

3 (S) 

CSM  STATE  VEGTOR  LEM  STATE  VECTOR 

BEING  INTEGRATED  BEING  INTEGRATED 

RIT  2 FLAG 
0580 

R IT2 

3 (S) 

DIMENSION  OF  W IS  9 DIMENSION  OF  W IS  6 
FOR  INTEGRATION  FOR  INTEGRATION 

BIT  1 F LAG  3 

0590 

HIT! 


(S) 

W VATR I X IS  TO  BF 
US  FO 


W MATH  I X IS  NGT  TO 
BE  US EO 


ASSEMBLE  REV  IS  ION  56  OF 
FLAG  WORD  ASSIGNMENTS 


3479 
A 048' 


AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


F LAG  WRD4  = 


0483 

A3484 


00  7 A 
47  3 5 


A 04  8^ 
0 486 
3487 
A 04  8ft 


0075 
47  36 


A 0489 
04  90 
0491 
A0492 


0076 

4737 


A 0493 
0494 
AO  495 
0496 
A 497 
A0498 


0C77 

4740 


PDSPFLAG 

PCSPFBIT 


A 0499 
3539 
4 05  d 
0 50? 
A3533 


01C0 

4741 


MWA I TF  LG 
MWAI  TRIT 


A 0504 
0 50  5 
A0505 
0507 
A353B 


01C1 

4742 


NWAI TF  LG 
NW  A IT  B IT 


A 0509 
0 5 10 
A3  5 1 1 
0 512 
A:?  513 


01  C2 
4743 


MRKNVFLG 
MRKNV  BIT 


A05H 
051  5 
A3516 
5 1 r 
A 0 5 1 8 


010  3 
4744 


NRMNVFLG  ; 
NRMNVR  IT 
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USER ' S PAGE  NO.  12  EO  S4 

STATE  +4 

(060-374  ) 

(SET)  (RESET) 

BIT  15  FLAG  4 
06  OD 

B IT  15 

(S  ) 

MARK  DISPLAY  IN  NO  MARK  DISPLAY  IN 

ENDIOLE  ENDIOLE 

BIT  14  FLAG  4 
061  D 

B I T14 

( S) 

PRIORITY  DISPLAY  IN  NO  PRIORITY  DISPLAY 
ENDIOLE  IN  ENDICLE 

BIT  13  FLAG  4 
06  20 

BIT  13 

(S  ) 

NORMAL  DISPLAY  IN  NC  NORMAL  DISPLAY 

END  IDLE  IN  ENDIOLE 

BIT  12  FLAG  4 
3 63  D 

( S) 

P 20  SETS  SO  AS  TO  LEAVE  AS  NORMAL  DI  SP 

TURN  A NORMAL  DIS- 

B I T 1 2 

PLA  Y I NTO  A PRI  OR I TY 

DISPLAY  IN  R60 

BIT  11  FLAG  ** 
06  4 D 

( S) 

HIGHER  PRIOPITY  NO  HIGHER  PRIORITY 

DISPLAY  OPERATING  DISPLAY  OPERATING 

B IT  1 1 

WHEN  MARK  DISPLAY  WHEN  MAPK  DISPLAY 

INITIATED  IN  IT  I AT  FD 

BIT  10  FLAG  4 
0650 

( S) 

HIGHER  PRIOPITY  NO  HIGHER  PRIORITY 

DISPLAY  OPERATING  DISPLAY  OPERATING 

BIT  10 

WHFN  NORMAL  WHEN  NORMAL  DISPLAY 

0 1 S PL  AY  INITIATED  INITIATED 

BIT  9 FLAG  4 
366  0 

( S) 

ASTRONAUT  USING  ASTRONAUT  NOT  USING 

KEYBOARD  WHfcN  MARK  KEYBOARD  WHEN  MARK 

B IT 9 

DISPLAY  INITIATED  OISPLAY  INITIATED 

BIT  8 F LAG  4 
3670 

31  T 8 

(S) 

ASTRONAUT  USING  ASTRONAUT  NOT  USING 

KFY  BOARD  WHFN  KEYBOARD  WHEN 

NORMAL  DISPLAY  NORMAL  OISPLAY 

INITIATED  INITIATED 

3 I T 8 


7EKLINA  BY  ZOROASTER 


GAP:  ASSEMBLE  REVISION  56  OF  AFC  FRCGRAM 

FLAGrfORD  ASSIGNMENTS 


A 5 19 

0520  0104 

A?  52 1 

0522  PEF  5 LAST  72  *745 

A0523 

A 0524 

0525  0105 

A3  5 26 

0527  REF  5 LAST  72  *746 

AO  528 

A0529 

0530  3 106 

A3  5 3 1 

0532  REF  5 LAST  7 2 4747 

A 0 533 


A3  534 
0535 
AO  536 

0537  REF 
A 0 5 3 fl 


0107 

I AST  72  4750 


AD  539 

0540  3110 

3541  REF  5 LAST  72  4751 

A3  542 


A 054  B 
AO  544 


A0545 


A 0 5 a 6 
3547 

0548  REF 
A 0 549 


3 5 6 ' REF 
A 0551 


A '552 
05  5 3 
0 554 
A3555 


4 LAST  7 2 

6 LAST  73 

73 


1 12 

753 


0 10  1 

0 113 
4735 


A 5 c 6 
AO  557 
A3  558 


PRCNVFLG  = 
PRONVBIT  = 

PI  NBRFLG  = 
PINBR8IT  = 

MRUPTFLG  = 
MR  UP  TB  IT  = 

NRUPTFLG  = 
NR  UP  TB  I T = 

MKOVFLAG  = 
MKCVBIT  = 


XO  SPF  LAG  = 
xnSPBIT  = 


F LAG  WRO  5 = 


DSKYFLAG  = 
DSKYFBIT  = 


PEF 


6 LAST 
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USER'S  PAGF  NO.  13  EO  S4 

BIT  7 FLAG  4 
0680 

( S) 

ASTRONAUT  USING  ASTRONAUT  NOT  USING 

KEYBOARD  WHEN  KEYBOARC  n HEN 

B IT 7 

PRIORI  TY  01  SPLAY  PR  I OR  I TY  D I SPLAY 

INITIATED  INITIATED 

BIT  6 FLAG  4 
3690 

( SI 

ASTRONAUT  HAS  ASTRONAUT  HAS  NOT 

INTERFERED  WITH  INTERFERED  WITH 

BITfc 

EXISTING  DISPLAY  EXISTING  DISPLAY 

BIT  5 F LAG  4 
3700 

(S) 

MARK  DISPLAY  MARK  DISPLAY  NOT 

INTERRUPTED  BY  INTERRUPTED  BY 

R I T 5 

PRI  ORI  TY  01  SPLAY  PRIORITY  DISPLAY 

BIT  A FLAG  4 
0710 

(S  ) 

NORMAL  DISPLAY  NORMAL  01  SPLAY  NOT 

INTERRUPTED  BY  INTERRUPTED  BY 

B I T4 

PRIORITY  CR  MARK  PRIORITY  OR  MARK 

DISPLAY  DISPLAY 

BIT  3 FLAG  4 
0720 

BIT3 

(S  ) 

MARK  DISPLAY  OVER  NO  MARK  DISPLAY  OVER 

NORMAL  NORMAL 

BIT  2 FLAG  4 
073  0 

BIT  1 FLAG  * 
0740 

3 I T1 

( S) 

MARK  DISPLAY  NOT  NO  SPECIAL  MARK 

TO  BE  INTERRUPTED  INFORMATION 

STATE  +5 

(075-089  ) 

(SET)  (RESET) 

BIT  15  FLAG  5 
07  5D 

BIT  15 

(S  ) 

DISPLAYS  SENT  TO  NO  DISPLAYS  TO  DS  KY 

DSK  Y 

BIT  14  FLAG  5 
3 76  0 

BI  Tl4 

FLAG  5 


GA P:  ASSEMBLE  PF  VISION  56  OF  AGC  PROGRAM  ZEP.LINA  BY  ZOROASTER 


L F LAG  WORD  ASSIGNMENTS 


A 0 559 


A?  563 

0561  0115 

AO  562 

0563  REF  7 LAST  73  47  37 

A 0564 


SNUFFER  = 
SNUFFB  IT  = 


A 3 5 6 5 

0566  0116 

0567  RFF  6 LAST  73  4740 

AD  568 


NOTHROTL  = 
NOTH  R0 1 T = 


A 0569 
0570 
A0571 
A 0 572 

D 573  RFF 
A 0576 


7 LAST  73 


474  1 


R77FLAG  - 


R 77F  LB  I T = 


A 0 57  5 
D 576 
A 0 577 
0578  REF 
A0579 


6 I A ST  73 


0 1 2o 
47  4 2 


R MG  SC  F LG  = 
RN'GSCB  I T = 


A 0580 

3531  0121 

05  82  REF  6 LAST  73  4743 

A 0 58  3 


0 ME  NF  LG  = 
DM  EN  FRIT  = 


AD  58  4 

0585  0122 

0586  REF  6 LAST  73  4744 

A0587 


ZOOMFLAG  = 
ZCCM9IT  = 


A 1 588 

3539  0123 

0590  REF  6 LAST  74  4745 

A 0 591 


ENGONFLG  = 
EN  GO N 8 IT  = 


AD  5 7 2 
0593 
AO  594 

0595  RFF  6 LAST 
A 0556 


3124 

4746 


3 AX  IS  FLG  = 
34  XI  SB  I F - 


AD597 

0598  0125 

0599  RFF  6 LAST  74  4747 


AORBSFLG  = 
A0P8SVST  = 
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(MA  IN  ) 


PAGE 


75 


USER'  S PAGE  NC.  14  E3  S4 


BIT  13  FLAG  5 IS,L> 

0770  U,V  JETS  DISABLED  U,V  JETS  ENABLED 

DUR  1NG  DPS  DUR  ING  DP  S 

3 1 T 13  BURNS  (V65)  BURNS  (V75  ) 


RI  T 12  FLAG  5 (S  ) 

078D  INHIBIT  FULL-  PERMIT  FULL  THROTTLE 

BIT12  THROTTLE 


BIT  11  FLAG  5 
0 79  D 


B I Til 


I S » L ) 

R77  IS  ON,  R 77  IS  NOT  UN. 

SUPPRESS  ALL  RADAR 
ALARMS  AND  TRACKER 
FA  1 1 S 


BIT  10  FLAG  5 ( S ) 

0800  SCALE  CHANGE  HAS  NO  SCALE  CHAM  GE  HAS 

OCCURRED  DURING  OCCURRED  DURING 

BIT10  RR  READING  RR  READING 


BIT  9 FLAG  5 (S) 

38 1 D DIMENSION  OF  IS  9 DIMENSION  OF  W IS  6 

B I T 9 FOR  INCORPORATION  FOR  I NC CRPORAT I ON 


BIT  8 FLAG  5 ( S ) 

C 82D  THROTTLE-UP  HA  S 

BITR  OCCURREO  IN  P63. 


THRCTTLF-UP  HAS  NOT 
YET  OCCURRED  IN  P63. 


BIT  7 FLAG  5 (S) 

383  D ENGINE  TURNED  ON  ENGINE  TURNED  OFF 

3 I T 7 


81  T 6 FI  AG  5 

084D 

31  T 6 


(S  ) 

MANEUVER  SPECIFIED  MANEUVER  SPECIFIED 
BY  THREE  AXES  BY  ONE  AXIS;  R 60 

CALLS  VECPOINT  . 


PIT  5 
08  50 
8 IT  5 


FLAG 


PREFER  PAXIS  JET  PREFER  PAXIS  JET 
PAIRS  7,15  AND  8,16  PAIRS  4,12  AND  3,11 


GAP:  A SSFMRLF  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 

FLAGWOPD  ASSIGNMENTS 
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USER'S  PAGE  NO.  15 


PAGE  76 
EC  S4 


A 05 995 


A 0600 
D6D1 

0602  REF 
AD  60  3 


5 LAST  7 A 


0 1 26 
A 750 


A0S04 
0605 
AD5D6 
0607 
A 0 60  R 


REF  6 LAST 


0127 

4751 


AD6D9 
0610 
AO  6 1 1 
0612 
A 0 613 


REF  5 LAST  7 2 


0130 

4752 


BIT  4 FLAG  5 ( S ) 

NORRMON  = 0860  BYPASS  RR  GIMBAL  PERFORM 

NORRMBIT  = BIT4  MONITOR  RR  GIMBAL  MONITOR 


81  T 3 FLAG  5 (S) 

SOLNSW  = D87D  LAMBERT  DOES  NOT  LAMBERT  CONVERGES  OR 

CONVERGE,  OR  T IM  E-R  AOT  IM  E-R  AD  IUS  NON 
SOLNSBIT  = 3 I T 3 NEA  R L Y C I RC  Ul  A P-  CIRCULAR 


MGLV  FL  AG 
M GI  VFB  I T 


BI  T 2 FLAG  5 ( S ) 

0 8 8D  LOCAL  VERTICAL  MIDDLE  GIMBAL  ANGLE 

COORDINATES  COMPUTED 

31  T2  C CM  PUT  E 0 


AD6  1 4 

0615  0131  RENDWFLG  = 

A 06  16 

D 5 1 7 REF  6 | AST  74  4753  RENDWBIT  = 

A 061  8 


BI  T 1 FLAG  5 (S  > 

C89D  W MATRIX  VALID  W MATRIX  INVALID 

FOR  RENDFZVOUS  FOR  RENDEZVOUS 

BITl  NAVIGATION  NAVIGATION 


0619  REF  7 LAST  74  0102  F L AGWRC6  = STATE  +6  (090-104) 

A 062  0 C SF  T)  (RESET) 


A 621 

362?  0132 

0623  REF  7 LAST  74  4735 

A 0624 


BIT  15  FLAG  6 (S) 

S32.  IF  1 = 090D  DELTA  V AT  CS  I TIME  DVT  1 LESS  THEN  MAX 

S32BITI  = BIT15  ONE  EXCEEDS  MAX 


0627 
A062  8 


REF  6 LAST  73 


0133 

4726 


BI  T 14  FLAG  6 (S) 

S32.1F2  = 0 9 ID  FIRST  PASS  OF  REITERATION  OF 

S32BIT2  = BIT14  NEWTON  ITERATION  NEWTON 


A ' 62  9 
DS  3A 

0631  REF 
A 0632 
AD  6 33 
AC634 

0635 

0636  REF 
A 0637 

AT  6 38 
A 0639 


8 LAST  75 


7 LAST  75 


01  34 
4737 


0 135 
4740 


S32.  IF3A 
S32BIT  3A 


S32  . 1 F3B 
S 3 2r  i T 38 


BIT  13  FLAG  6 IS) 

09  20  BIT  13  AND  BIT  12  FUNCTION  AS  AN  ORDERED 

9IT13  PAIR  (13,12)  INDICATING  THE  POSSIBLE  OC- 

CURRANCE  OF  2NEWT0N  ITERATIONS  FDR  S32.  1 
IN  THE  PROGRAM  IN  THE  FOLLOWING  ORDER: 
BIT  12  FLAG  6 (0,1)  (I.E.BIT  13  RESET, BIT  12  SET) 

093  D = FIRST  NEWTON  ITERATION  REING  DONE 

8IT12  (0,0)=  FIRST  PASS  CE  SECOND  NEWT  . IT  ERAT  . 

(1,1)*  50  FT/SEC  STAGE  OF  SEC.  NEWT. I TER 
(1,0=  REMAINDER  OF  SECOND  NEWTON  ITERA. 


< 


ASSEMBLE  REVISION  56  DF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
FLAG  WORD  ASSIGNMENTS 


9:12  CCT.  21,1970  (MAIN) 

USER 'S  PAGE  NO.  16 

BIT  11  FLAG  6 (S ) 


PAGE  77  ul 

EO  S4 

t 


A0644 

3 645  0137 

0646  REF  7 LAST  75  4742 

AO  647 


A064  8 
A 0649 
A3653 
a >65  1 


PIT  10  FLAG  6 (S) 

GMBDRVSW  = 0950  TR I MG  I MB  OVER  TRIMGIMB  NOT  OVER  i 

GMBCRBTT  = BIT10 

I 

BI  T 9 F LAG  6 

= 3 9 6 D "E 

= BI  T9  i 


A 06  54 
3555 
0656 
A 1 1 6 5 7 


RFF 


0 1 4 1 

LAST  75  4744 


BIT  8 FL  AG  6 ( S ) i 

MUNFLAG  = 097D  SERVICER  CALLS  SERVICER  CALLS 

MU N FL  B IT  = RIT8  M UN R VG  CALCRVG 

« 


A0658 

0659  0142 

3560  PEF  7 (AST  75  A 7 4 5 

A 0661 


5IT  7 FLAG  6 ( L) 

098D 

BI  T7 


A0662 
■>568 
A 0664 
0665 
A 0666 


RFF 


LAST  75 


0143 


4 7 4 6 


REDF  LAG 
REDFLBIT 


BIT  6 FL  AG  6 (L  1 

0990  LANDING  SITE 

REDESIGNATI  ON 
BIT6  PERMITTED 


LANCING  S ITE 
REDESIGNATION  NOT 
PERM  IT  TED 


A 647 
AO  668 
A 0669 


BIT  5 FLAG  6 
100D 


4 

« 

4 

4 

4 


a o 67r. 
A3  6 7 1 


BIT  4 FL  AG  fc 
1 Ol  D 


« 


A 0672 
067? 
A 06  74 

675 
A?  576 


RFF  7 LAST  76 


0 146 


4751 


NTARGFLG 
NT  ARGRIT 


BIT  3 FLAG  6 
102  D 

B IT  3 


( S) 

ASTRONAUT  DID 
OVFRWPI  TE  DELTA 
VELOC  I TY  AT  TP  I 
OR  TPM  (P34  ,35  ) 


ASTRONAUT  OID  NOT 
OVERWRITE  DELTA 
VELOC  I TY 


4 

4 


a : 677 
0678 

3579  RFF  6 LAST  76 
A 0680 
AO  681 
A068? 

A 0683 


0147 

4752 


AUX  FLAG 
AUXFLRI  T 


BIT  2 FLAG  6 
103  D 
31  T2 


PROVIDING  IDLEFLAG 
IS  NOT  SET,  SERV- 
ICER WILL  EXE3CISF 
DVMON  ON  ITS  NEXT 
PASS. 


SERVICER  WILL  SKIP 
OV MON  ON  ITS  NEXT 
PA  SS  F VEN  IF  THE 
IDLEFLAG  IS  NUT  SET. 
IT  WILL  THEN  SET 
A UXF  LAG. 


4 

f 

t 


> A 3 : 


ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  BY  ZOROAST 


FI  AGWORO  ASSIGNMENTS 


A (SB'. 
685 

ADS36 
0687 
A 1 6 8 B 


PEF  6 LAST  76 


0589  PEF  8 LAST  76 
A 0690 


A 1 5 7 1 
069? 

0693  RFF 
AD694 


8 I A ST  76 


A 069S 
1576 
A (697 

0698  RFF  7 LAST  76 
AD699 


a 0700 

( 7'  I 
7 

A 07  J 


PEF  9 LAST  76 


7 

07  r' 
7 < 
A D 7 D 7 


REF  B LAST  76 


A 0708 

0709 

0710 
A 0 7 1 L 


AD  7 1 2 
071  1 
0714 
AD  7 1 5 


A 0716 
07  17 
A0718 

0719  REF  7 LAST  75 
AD  720 


A0721 
C 722 
AD  7 23 


0150 

4753 

0 10  3 


.'151 
4 735 


0152 

4736 


0154 
4 740 


0156 
4 742 

0157 
47  43 

0160 


ATTFLAG  = 
ATTFLBIT  = 

FLAGWR0  7 = 


ITSWICH  = 
ITSWflIT  = 

MANUFLA3  = 
MANUFBIT  = 


I G NFL  AG  = 
TGNFL0  T T = 


ASTNFLAG  = 
ASTNBIT  = 


SWANDISP  = 
SWANDB I T = 


NORMSW 
NORMS  BI T = 

RVSW 

RVSWBIT  = 

V67FLAG  = 
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USER'S  PAGE  NO.  17  EO  S4 

91 T 1 FLAG  6 ( L » 

1040  LEM  ATTITUDE  EXISTS  NO  LEM  ATTITUDE 

IN  MQON-FIX  EO  AVAILABLE  IN  MOON- 

BIT1  COORDINATES  F I XEO  COOP DI NA TES 


STATE  +7  (10  5-119) 

(SET)  (RESET) 

BIT  15  FLAG  7 (S) 

1 0 5D  P 34 ; TP  I TIMF  TO  RE  TPI  HAS  BEEN 

BIT15  COM  PJ  T ED  COMPUTED 


B IT  14  FLAG  7 ( S) 

1 06  D ATTITUDE  MANEUVER  NO  ATT  JTJDE  MANEUVER 

GOING  DURING  RR  DURING  PR  SEARCH 

B IT  14  SEARCH 


BIT  13  FLAG  7 ( S) 

1 07  D TIG  HAS  ARRIVED  TIG  HAS  NDT  ARRIVED 

B I T 13 


BIT  12  FLAG  7 (S  ) 

108D  ASTRONAUT  HAS  ASTRONAUT  HAS  NOT 

BIT12  OKAYED  IGNITION  OKAYED  IGNITION 


BIT  11  FLAG  7 ( L) 

1 09  D LANDING  ANALOG  LANDING  ANALOG 

31  Til  DISPLAYS  ENABLED  DISPLAYS  SUPPRESSED 


BIT  10  FLAG  7 (S  ) 

HOD  UNI  T NORMAL  I NPUT 

B IT  10  TO  LAMBERT 


LAMBERT  COMPUTES  ITS 
OWN  UNI T NORMAL 


BIT  9 FLAG  7 
1110 

B IT  9 


( S) 

DO  NOT  COMPUTE  COMPUTE  FINAL  STATE 

FINAL  STATE  VECTOR  VECTOR  IN  TIME-THETA 
IN  TIME-THETA 


BIT  8 FL  AG  7 
1120 


( S) 

ASTRONAUT  OVERWRITE  ASTRONAUT  DOES  NOT 
W-MATRIX  INITIAL  OV  ERW  P IT  E W-M  ATR  I X 


GAP:  ASSEMBLE  REVISION  56  OF  AGS  PROGRAM  ZERLINA  BY  ZOROASTER 


I F LAG  WORD  ASSIGNMENTS 


0 7 24  RFF  8 LAST  77  4744  V67FLRIT  = 

A3725 


A 0726 

0727  0161  IOLEFLAG  = 

0720  REF  8 LAST  77  4745  I DL  EFB  I T = 

A 0729 


A3  7 30 

0731  0162  V37FLAG  = 

073?  RFF  8 LAST  77  4746  V37FL8IT  = 

AO  7 33 


A 0734 

0735  0163  AVEGFLAG  = 

' 736  RFF  7 I AST  75  4747  AVEGFBIT  = 

A 0737 


0740 

A3  741 


REF  6 LAST  76 


0 1 64 
4750 


UPLOCKFL  = 
UPLOCBIT  = 


A 0742 
0747 
0744 
A 0745 


REF 


L AST  77 


0 165 

475  1 


VERIFLAG  = 
VER I FB IT  = 


A3  7 46 

0747  0166 

0748  REF  7 LAST  77  4752 

A3  749 


A 0750 

3751  0167 

0752  RFF  7 LAST  78  4753 

A 0753 


3754  RFF  9 LAST  78  01C4 

AC755 
A 0 756 

3757  0 170 

A 0788 

0759  REF  LAST  78  4735 

A0760 
A 0 761 


VR2EMFLG  = 
VB2EMBIT  = 


TFFSW 

TFFSWB IT  = 


FLAGWRD8  = 


RPQFLAG  = 

RPQFLRIT  = 


A3762 


BITS 

9:12  OCT  • 21,  1970  (MAIN)  PAGE  79 

USER'S  PAGE  NC.  18  E3  S4 

VALUES  INITIAL  VALUES 

BIT  7 FLAG  7 
113  D 

91  T7 

( S) 

NO  DV  MONITOR  CONNECT  DV  MONITOR 

BI T 6 FLAG  7 

1 14D 

BIT6 

(S  ) 

A VER  AG  EG  (SFPVICER)  AVERAGEG  (SERVICER) 
RUNNING  OFF 

BIT  5 FLAG  7 

1 1 5 D 

BI  T5 

( S) 

AVERAGEG  (SERVICER)  AVERAGEG  ( SERVICER) 
DESIRED  NOT  DESIRED 

BIT  4 FLAG  7 
1160 

B IT  4 

(S  ) 

K-KBAR-K  FAIL  NO  K-K8AK-K  FAIL 

BIT  3 FLAG  7 

I 17  D 

31  T3 

( S) 

CHANGED  WHEN  V33E  OCCURS  AT  END  OF  P27 

BI  T 2 FLAG  7 

1 180 

BIT2 

(L,  C) 

MOON  VICINITY  EARTH  VICINITY 

BIT  1 FLAG  7 

1 19D 

9 I T 1 

( S) 

CALCJLATF  TPERIGEF  CALCULATE  TFF 

STATE  +8  D 

(120-134  ) 

(SET)  (RESET) 

BIT  15  FLAG  8 (SI 


1 2 OD 

RPQ  NGT  COMPUTED  RPO  COMPUTED 

(RPQ  = VECTOR  BE- 

BI T15 

TWEEN  S ECONOAR  Y BODY 

AND  PRIMARY  BOCY 

BI  T 


1 4 FLAG  B 


GAP: 


A ;76  3 
A3764 
A 0765 


ASSEMBLE  ft  FV  IS 
FLAGWCPD  ASS 


ION  Sb  OF  AGG  PROGRAM  ZERLINA  B 
I GNMFNTS 


Y ZOROASTER 


Af  766  . „ 

i 767  .17  2 NFW1FLG  = 

0768  REF  1C  LAST  78  4737  NEWIBIT  = 

A3769 

A 0770 

77  1 01  73  C MOONF  LG  = 

3772  ft  F F 0 LAST  78  4740  CMOONBIT  = 

A 0773 


A >77^ 

776  0 174  LMOONFLG  = 

-776  REF  9 LAST  7B  4741  LMOONBIT  = 

AD  777 


A 0778 
0779 

0 7 ft  D REF 
A 0781 


0175 

LAST  78  4742 


FLUNDISP  = 
FLUNOBI  T = 


Ai.78? 
A07ft1 
A 0 784 
A ' 7 8 B 


a r.1786 
0787 
D 789 
A 0789 


RFF  9 LAST  79 


01  77 
4744 


SURFFLAG  = 
SURFFRI T = 


AO  790 
0791 
A '792 
3793 
A 0794 


0 200 

REF  9 LAST  79  4745 


INFINFLG  = 
I NFI NBI  T = 


A 079  5 
3 796 

0797  REF 
A0798 


P 2C  1 

LAST  79  4746 


ORDER  S W = 
ORCERBIT  = 


A0799 

0800  3202  APSESW 

AD931 

0802  REF  8 LAST  79  4747  APSESBIT  = 

A 080  3 


9:  12  OCT  . 21 , 1970 


USER'S  PAGE  NC.  19  E3  S4 


BIT  13  FLAG  8 <S  ) 

1220  FIPST  PASS  THROUGH  SUCCEEDING  ITERATION 

B IT  13  INTEGRATION  OF  INTEGRATION 


BIT  12  FLAG  8 ***  PP0TECTE3  FROM  FRESH  START  *** 

1230  PERMANENT  C SM  STATF  PERMANENT  CSM  STA  TF 

BIT12  IN  LUNAR  SPHERE  IN  FARTH  SPHERE 


BIT  11  FLAG  8 ***  PROTECTED  FPIJM  FRESH  STA*  T *** 

1240  PERMANENT  L M STATE  PERMANENT  LM  STATE 

BIT11  IN  LUNAR  SPHERE  IN  EARTH  SPHERE 


31 T 10  FLAG  8 (L) 

1250  CURRENT  GUIDANCE  CURRENT  GUIDANCE 

BITlO  DISPLAYS  INHIBITED  CISPLAYS  PERMITTED 


BIT  9 FLAG  8 (L ) 
1 2 6D 
B IT9 


BIT  P FLAG  8 ***  PROTECTED  FROM  FRESH  START  *** 

1270  LM  ON  LUNAR  SURFACE  LM  NOT  ON  LUNAR 

BI  T 8 SURFACE 


BIT  7 FLAG  8 (S  ) 

12  80  NO  CONIC 

(CLOSURE 

BIT7  INFINITY 


SOLUTION  CONIC  SOLUTION 
THR3UGH  EXISTS 
REOJ IR  ED  ) 


BIT  6 EL  AG  8 ( S 1 

1290  ITERATOR  USES  2ND  ITERATOR  USES  1ST 

BIT6  ORDER  MINIMUM  MODE  ORDER  STANDARD  MODE 


91  T 5 FLAG  8 ( S) 

1 300  PDESIRFD  OUTSIDE  RDESIP.ED  INSIDE 

PER  ICENT  ER-APDCENT  ERPER  IC  ENT  Eft -APOCE  N TE  R 
RANGE  IN  TI  ME  -R  AO  I RANGE  I N T I ME-R  AD  IUS 


B I T5 


j ftP  : ASSEMBLE  REVISION  56  CF  AGC  FRCGRAM  ZERLINA  BY  ZOROASTER 


9:  12  0:T.  21,  1970 


( MA  I N ) 


PAGE  8 1 


FLAGWORD  ASSIGNMENTS 


USER'S  PAGE  NO.  20  EO  S4 


AOHO^ 

0805 

A0806 

0807  PFF 
A080e 


7 LAST  79 


0203 

A 750 


COGAFLAG 

COGAFRIT 


BIT  A FLAG  8 ( S) 

1310  NO  CONIC  SOLUTION  - CONIC  SOLUTION 

TOO  CLOSE  TO  RECTI-  EXISTS  (COGA  DOES  NOT 
BIT4  LINEARICOGA  OVRFLWS)  OVERFLOW) 


A0809 
ft  0 8 1 0 


BIT  3 FLAG  8 
1320 


AO  8 1 1 

0812  0205 

'813  REF  8 LAST  75  4752 

AO  9 1 4 


IN  ITftL  GN  = 
INITABIT  = 


BIT  2 FLAG  ft 
1330 
B IT  2 


(L  ) 

INI  TI  AL  PASS  THRU 
P 57 


SEfCND  PASS  THRU  P57 
( CHFCK  RE  SE  T-MI  LLARD) 


ft  08 1 5 

0816  02C6 

C8l7  REF  8 LAST  79  4753 

ft  0 81  ft 


BIT  1 FLAG  8 ( S) 

360SW  = 1 34  0 TRANSFER  ANGLE  NEAR  TRANSFER  ANGLE  NOT 

36CSWBIT  = 31  Tl  360  OEGP.EES  NEAR  360  DEGREES 


REF  10  LAST 


FLAGWR09  = 


(135  - 149  ) 
( SE  T) 


A0B2? 
ft  0823 
AO  8 23  I 


BIT  15  F LA  G 9 

13  50 

BIT15 


A0824 

0825 

3826  REF 
40827 


8 LAST 


78 


0210 

4736 


31  T 14  F LAG  9 ( 1 ) 

FLVR  = 1360  VERTICAL  RISE  NON-VERTICAL  RISE 

FLVP8IT  = BIT14  (ASCENT  GUIDANCE) 


REF  11  LAST 


80 


0211 
47  37 


P 707  IF  LG  = 
P70718IT  = 


BIT  13  FLAG  9 
1370 
B I T 1 3 


P70  OR  P7 1 IS  USING  Pl2  IS  USING  THE 
ASCENT  GUID.  EOS.  ASCENT  GUI  0.  EOS. 


REF  10  LAST  80 


FL  PC 
FLPC8I  r 


3 I T 12  F LAG  9 

1 380 

BIT12 


( L) 

NO  POSITION  CONTROL 
(ASCENT  GUIDANCE) 


POSI  TI  ON  CONTROL 


ft  0839 
0 836 

C 837 
ft  >838 


REF  1C  LAST  80 


0213 

4741 


F LPI 
FL  P I B IT 


BIT  11  FLAG  9 

1380 

RIT11 


(L  1 

PRE-IGNITION  PHASE  REGULAR  GUIDANCE 
(ASCENT  GUIOANCF) 


A0839 

0840 


FLRCS 


BIT  10  F LAG  9 
140  0 


( LI 

RCS  INJECTION  MODE  MAIN  ENGINE  MODE 


AP  : 


iSSEPRIE  REVISION  56  QE  AC-C  PROGRAM  26RL  INA  BY  ZOROASTER 


L FI  AGWORD  ASSIGNMENTS 

08* 1 REF  10  LAST  9C  *742  FLRCS9IT=  3IT10 

A 08*2 


A5343 

0844 

0845  RFF 

AD846 


0215 

P LAST  7 B *7*3 


BIT  o FLAG  9 
L F TABOR T = I41D 

LETABRIT  = B IT9 


A M84  7 
."8*8 
A'. 840 
0850 
A385I 


0216 

RFF  10  LAST  80  *74* 


BIT  8 FLAG  0 
FLAP  = 1 *2  D 

FLAP8IT  = 8 IT 8 


A 0852 
08  5 3 

58535  PFF 
A 085 3 7 


10  LAST  80 


'■'217 
* 7*5 


BIT  7 FLAG  9 
ABTTGFLG  = 1*3D 

APTT3RI  T = B I T7 


AO  8 5* 

0855 

0856  RFF  10  LAST  80 
A5057 

A 085  8 


0 2 20 

*7  *6 


RO  TFLAG 
ROT  FL  R IT 


BIT  6 FLAG  9 
1 **D 
B IT  6 


A 0 859 
0863 

0861  REF 
AO  862 


9 LAST  80 


0 221 

*747 


BIT  5 FLAG  9 
QUITFLAG  = 1 *5D 

QU  IT  BIT  = RIT5 


A086  3 
A 086* 
A 0 8 6 5 

A "866 


BIT  * F LAG  9 

1*6D 

BI  T* 


A 0867 
0 968 

0869  REF 
AO  870 


9 LAST  79 


0223 

*751 


MID  IF  LAG 
MID1FBIT 


BIT  3 FL  AG  9 
1*7D 
R I T 3 


A0871 
C 872 
AO  8 7 3 

087*  REF  9 LAST  8 1 

A 0 876 
A0B76 
0877 
AO  878 

0879  REF  9 LAST  81 

A ORRO 


? 22* 
4 752 


0225 

4753 


91 T 2 F LAG  9 
MICAVFLG  = 148D 

M IOAVB  IT  = BI  T2 

BIT  1 FLAG  9 
AV  EM  I DSW  = I4  9D 

AVEMDB  IT  = B I Tl 


9:  12  OZ  T.  2I,197o 


( PA  I M 


PAGE  82 


JSER'S  PAGE  NO. 

(ASCENT  GU1CANCE) 

. 21  EO  S4 

(L  ) 

ABORT  PROGRAMS 

ARF  ENABLED 

AB  CRT  PROGRAMS 

APE  NOT  ENABLED 

( L) 

APS  CONTINUED  ABORT 
AFTER  DPS  STAGING 
(ASCENT  GUIDANCE) 

AP  S ABOR  T I S NOT  A 
CQNT  INUAT  ION 

( L) 

J 2, K 2 P ARAMFTEP  S 
USED  FOR  ABORT 

TARGE  TI  NG 

J 1 , K 1 PARAMETERS 

USED  FOP  ABORT 

TARGET! NG 

(L  ) 

P70  AND  P71  WILL 
FORCE  VEHICLE 

ROT  AT  ION  IN  THE 

P70  ANC  P7  1 WILL  NOT 
FORCE  VEHICLE 

ROTATION  IN  THE 

PREFERRED  OIRFCTICN.  PREFERPED  DIRECTION 


(S  ) 

DISCONTINUE  INTEGR. 

CONTINUE  INTEGRATION 

(L  ) 

INTEGRATE  TO  TCEC 

INTEGRATE  TO  THE 
THEN-PRESENT  TIME 

( L) 

INTEGRATION  ENTERED 
FROM  ONE  OF  M IDTOAV 
POR  TALS 

(S) 

INTEGRATION  WAS 

NOT  ENTERED  VIA 

MI  DTCAV 

AVFTOMID  CALLING  NC  AVETCMID  W INTEGR 
FOR  W. MATRIX  INTEGR  ALLOW  SET  UP  R N , VN  , 
DONT  WRITE  OVER  RN,  PIPTIME 
VN,  PI  PTI  ME 


j A P : ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
L FLAGWOPO  ASSIGNMENTS 


9:  12  OC  T.  21  , 1970  ( MAIN) 

US  ER'S  PAGE  NO  . 22 


PAGE  83 
EO  S4 


A0881 

0882  REF  1 01C6  RASFLAG  EQUALS  FL GW RD 10  WAS  ONLY  AN  INSTALL-  ERASTALL  FLAG 

AD8R3 


AD  8 R ft 
A >887 
AO  888 


REF  11  LAST  Bl 


0106 


FLGWR010  = STATE  + 10D  (150-  164) 

(SET)  (RESET) 

31  T 15  FLAG  1C 
= l 50  D 


A0889 

0890 

0391  REF 
A 0892 


9 LAST  81 


0 227 
47  2 6 


BIT  14  F LAG  10  ( L,C) 

INTFLAG  = 1 5 ID  INTEGRATION  IN  INTEGRATION  NOT  IN 

INTFLRIT  = BIT14  PROGRESS  PROGRESS 


A C 89  3 

08  9 A 0230 

0895  REF  12  LAST  81  4737 

AC  896 


APSFLAG 


BIT  13  FLAG  ] C 
1520 


( S,L  ) 

ASCENT  STAGE 


OESCENT  SI  AGE 


APS  FL  8 IT  = BITI3 


*** PROTECTED  FROM  FRESH  START  *<■* 


A0897 
A 089R 
AD399 


3 I T 12  F LAG  10 
1 5 3D 


AC90P 
A 090  1 
A0  93  ? 


BIT  11  FLAG  10 
1 54D 


A 0903 
A0904 
A0905 


BIT  1C  FLAG  10 
1550 


A 0906 
AD  9 D 7 
A 0908 


8 IT  9 FLAG  1^ 
156D 


A 0909  BIT  8 FLAG  If 

AD9n  = 1 57D 

A 091 1 


0914  RFF  11  LAST  82 
A0915 


D 236 
4745 


REINTFLG 
RE  INTBIT 


BIT  7 FLAG  ID 
1 5 8D 

R IT7 


(L,  C) 

INTEGRATION  ROUTINE  INTEGRATION  ROUTINE 
TO  BE  RESTARTED  NOT  TO  BE  RESTARTED 


A 09l  ft 
A 09  1 7 


BIT  6 FLAG  10 
1 59  D 


ASSEMBLE  REVISION  56  OF  A(,C  PROGRAM  ZFRLINA  BY  ZOROASTER 
FLAGWCRO  ASS  IGNMFNTS 


9:  12  OCT.  2 It  1970  (MAIN) 

USER'S  PAGE  NO.  23 


PAGE 
EG  S4 


A 092  3 
A C924 

A3925 
A C 92  6 
A0927 

AO  92  8 
a 0929 
A393? 

A 093 1 
■ 

A3933 


0935 

A0936 

A 09  37 
3 9 33 
0939 
AO  940 


RFF  12  LAST 


REF  10  LAST 


0245 

4735 


FLGWRDll  = 


LRBYPASS  = 
LR8Y8IT  = 


STATE  +1  1 D 


(165  - 179) 
( SET) 


BIT  15  FL  AG  1 1 (L  ) ( R 12  ) 

1650  BYPASS  ALL  LANDING  DO  NOT  BYPASS  LR 

BIT15  RADAR  UPDATES  UPDATES 


A 094  1 
0942 
3943 
AC  944 


REF  10  LAST 


3 I T 14  F LAG  1 1 

166D  LANDING  RADA?  VFL 

BIT14  FAILED  REAS  TEST 


a 0945 
D946 
0947 
A0948 


REF  13  LAST 


0247 

4737 


BIT  13  FLAG  11 
T 6 7D 
B I T 1 3 


A0949 
0950 
A3  9 ^ 1 
0952 
A 0953 


RFF  11  LAST 


3250 

4740 


VX  INH 
VX  IN  HB  IT 


BIT  12  FLAG  11  ( L)  ( R12  ) 

168 D IF  Z VELOCITY  DATA 

U NRE  AS  ON  ABL  E, 

BIT  12  BYPASS  X VE  LOCI  TY 

UPDATE  ON  NEXT  PASS 


GAP  : ASSEMBLE  REVI  SION  56  OF  AGC  FRCGPAM  ZERLINA  BY  ZOROASTER 


FLAGWORD  ASSIGNMENTS 


A 09  54 

0955  0251  PSTHIGAT  = 

3956  REF  11  LAST  81  47*1  PSTHIBIT" 

A 0957 


A 095  8 
0959 
A 0960 

3961  REF  11  LAST  Q2 
A 0962 


0252 

4142 


NOLRREAD  = 
NOLRRBI T = 


A 0963 
3 96  A 
A 0965 
0966 
A0967 


REF 


LAST  82 


0253 

4743 


XORF  LG 
XCPFLBIT  = 


A 0968 
3969 

0970  REF  11  LAST  82 
AC971 
A3972 


0264 

4744 


LRINH 

LR  IN HB  IT  = 


A 0973 

0974  0255  VELDATA  = 

0975  REF  12  LAST  83  4745  VELDABIT  = 

A 0976 


A3  9 7 7 
A 097 8 

A r 970 
A3  983 


A 0981 
AT  98? 
A3  983 
A 09  84 


A3985 

0986  0260  RNGEOATA  = 

0987  RFF  8 LAST  81  4750  RNGEOBIT  = 

4^988 


A C 989 
A09Q0 
A'  991 
' oq 2 
A-'99? 


A 0994 


( MA  I N ) 


PAGE  85 


9:  12  OCT.  21,  1970 

USER'S  PAGE  NC.  24  EG  $4 


BIT  11  FLAG  11  ( L ) ( R 1 2 ) 

1 69  D PAST  HIGATE  PREHIGATE 

31  Til 


BIT  10  FLAG  11  (L  J (R12  ) 

17CD  LANDING  RADAR  LR  NOT  REPOSITIONING 

REPOSIT  ION  ING; 

B I T10  BYPASS  UPDATE 


BIT  9 FLAG  11  CL  ) (R  1 2 ) 

1 7 1 D BFLCW  LIMIT  ABOVE  LIMIT  DO 

INHIBIT  X AXIS  NOT  INHIBIT 

B I T9  OVERRIDE 


BIT  8 FLAG  11 

1 7 2 D LANDING  RADAR  UP-  LR  UPDATES  INHIBITED 

31  T8  DATES  PERMITTED  BY  ASTRONAUT 

BY  ASTRONAUT 


B IT  7 FLAG  1 1 ( L ) (R  12) 

1 73  D LR  VELOCITY  LR  VELOCITY  MEASURE 

BIT7  MEASUREMENT  MACE  NOT  MADE 


R I T 6 FLAG  11 
1 74D 
B IT  6 


BIT  5 FLAG  11 
1 75  D 
31  T5 


BIT  4 FLAG  11  (L  ) IR12  ) 

176D  LP  ALTITUDE  LR  ALTITUDE  MEASJRE 

R IT  4 MEASUREMENT  MADE  NOT  MADE 


BIT  3 FLAG  11 
1771) 

3 1 T3 


BIT  2 F L AG  11 


(1)  (R12) 


GAP:  ASSEMBLE  RFV  IS  ION  56  DF  AGC  PROGRAM  ZFRLIMA  BY  ZOROASTER 

L F LAG  WORD  ASSIGN  ME  NTS 

3995  0262  VFLSHFLG  = 

0996  REF  1C  LAST  P2  4752  VFLSHBTT  = 

A 0997 
AD998 


A Togo 

loon 

1001  PFF  lo  LAST  82 
A 1002 
A1Q33 


'263 

4753 


HFLSHFLG  = 
NFL  SHB  I T = 


1004  PFF  1 bl  10  RADM3DES  EQUALS 

A 100  5 


1306  PFF  13  LAST  84  0 1 10 


FLGWRO  12  = 


ai  r 7 


A ICO 8 
1009 
10li 
A 1 0 1 1 
A 1 3 1 2 

A 1 C 1 3 


REF  11  LAST 


0264 

4735 


COESFLAG  = 
CDESBIT  = 


A 1014 

1315  0 265  P.E  MODE  LG  = 

1016  PFF  11  LAST  84  4736  REMODBIT  = 

A 10  17 

A 161  8 


A 101° 
1323 
1021 
A 10  2? 


REF  14  LAST  84 


0266 
4 7 27 


RCDU.QEL3  = 
RCDUORIT  = 


A1023 

1024  0267 

1025  REF  12  LAST  84  4740 

Ai  026 


ANTENFLG  = 
ANTENBI T = 


A 1027 

13  2 9 
1029 


A 10  30 
A1331 


REF  12  LAST  85 


0270 

4741 


REPOSMON  = 
RFPOSBIT  = 


A 1032 

1033 

1034 


REF  12  LAST  85 


o?7l 
474  2 


DE  SI  GF  LG  = 
DESIGB IT  = 


9:12  CCT.  21,1970 


(MAIN) 


PAGE  86 


1780 

R I T 2 

USER'S  PAGE  NO.  25  EC  S4 

LR  VELOCITY  FAIL  LR  VEL  FAIL  LAMP 

LAMP  SHOULD  BE  SHOULDN'T  FLASH 

FLASHING 

RIT  1 FLAG  11 

1 790 

B I T 1 

f l ICR  12) 

LR  ALTITUDE  FAIL  LR  ALTITUDE  FAIL 

LAMP  SHOULO  BE  LAMP  SHOULD  NOT  BE 

FLASHING  FLASHING 

FLGWRD12 

RADAR  FLAG  WORD 

STATE  +1 2 D 

(18G  - 194)  WAS  RADMODES 

(SET)  (RES  ET  ) 

BIT  15  FLAG  12 
1800 

31  T15 

CONTINUOUS  OESIG-  L GC  CHECKS  FOR  LOCK- 

NATE.  LGC  COMMANDS  ON  WHEN  ANTENNA 

RR  REGARDLESS  OF  BEING  DESIGNATED 

LOCK-ON 

BIT  14  FLAG  12 

1 81D 

B1T14 

CHANGE  IN  ANTENNA  NO  REMODE  REQUESTED 

MODE  BEEN  REQUESTED  CR  OCCURRING 

I.E.f  REMODE 

B IT  13  FLAG  12 
1920 

31  T13 

RR  CDU'S  BEING  RR  CDU 'S  NOT  BEING 

ZEROED  ZERCED 

BI T 12  FLAG  12 
18  30 

BIT12 

RR  ANTENNA  MODE  IS  RR  ANTENNA  IN  MODE  1 
MODE  2 

RIT  11  FLAG  12 
1840 

31  Til 

REPOSITION  MONITOR.  NO  REPOSITION  TA<  ING 
RR  REPOSITION  IS  PLACE 

TAK  ING  PLACE 

BIT  10  FLAG  12 
185  0 

BI  T 10 

RR  DESIGNATE  RR  DESIGNATE  NOT 

REQUESTED  OR  IN  REQUESTED  OP  IN 

GAP:  ASSEMBLE  RFVISIGN  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L FLAGWnp.D  ASSIGNMENTS 

AIL-35 

Alo3fe 


A .'037 

1038  0272 

1 03  9 REF  1C  LAST  85  4743 

A 10  AO 


A L T SC  A LE  = 
ALTSC8IT  = 


A 1 0 A ] 

IOA?  0273 

10  A3  REF  12  LAST  85  A 7A  A 

Al  OAA 


LRVELFLG  = 
LRVELBI T = 


A 1 0 A 5 

1DA6  027 A 

1 0A  7 REF  13  LAST  85  A7A5 

A 1048 


PCD  UF  AIL  = 
RCOUFB  IT  = 


Al  0 49 

1050  0275 

1051  REF  11  LAST  82  A7A6 

Al  052 


LRPOSFLG  = 
LRPOSBIT  = 


A 10  53 
1 0 5 A 
1055 


A 1056 
Al  0 57 


REF 


LAST  8 2 


LRALTFLG  = 
L R AL  TB  IT  = 


1 060 
A 1061 
A 1 062 


REF  9 LAST  85 


C 277 
A750 


RRDATAFL  = 
RP  OATAB  T = 


A 106  3 

106A  0300 

1065  RFF  1C  LAST  82  47«=1 

A 1066 


RRRSFLAG  = 
RRRSBI  T = 


A '067 
^ 068 

1069  RFF  11  LAST  86 
A 1 07  0 
A 1 071 


C 30  1 
A752 


AUT0M3DE  = 
AUTOMBIT  = 


A 1 >72 
1073 
107A 
A 1 0 7 5 


RFF  11  LAST 


0 3 C 2 
A753 


TURNONFL  = 
TURNON  BT  = 


9:12  GCT . 21,1970 


(MAIN) 


PAGE 


87 


USER'S  PAGE  NC.  26  EG  SA 

PROGRESS  PROGRESS 


BIT  9 FLAG  12 

1860  LR  ALTITUDE  READING  LR  ALTITUDE  READING 

3 1 T 9 IS  ON  HIGH  SCALE  IS  ON  LOW  SCALE 


B I T 8 FLAG  1 2 

1870  LR  VELOCITY  DATA  NC  LR  VELOCITY  DATA 

BITS  FAIL  FAIL 


BIT  7 FLAG  12 

188D  RP  CDU  FAIL  HAS  RR  CDJ  FAIL  OCCURRED 

81 T 7 NOT  OCCURRFD 


81 T 6 FLAG  12 

1890 

BIT6 


LANDING  RADAR 
POS  IT  ION  2 


LR  POSITION  1 


BIT  5 FLAG  12 

1 90D  LR  ALT  ITU  DE  DATA 

3 I T5  FAIL.  COULD  NOT  BE 

REAO  SUCCESSFULLY. 


NO  LR  ALTITUDE  DATA 
F Al  L 


BIT  4 FI  AG  12 
191  D 
91  T4 


RR  DATA  FAIL.  NO  RR  DATA  FAIL. 

DATA  COULD  NOT  BE 
READ  SUCCESSFULLY 


31 T 3 FLAG  12 

1920 

81  T3 


RR  RANGE  READING 
ON  THE  HIGH  SCALE 


RR  RANGE  READI  NG  ON 
T HE  LOW  SCAL  E 


BIT  2 FLAG  12 

1 93D  RR  NOT  IN  AUTO  MODE.  RP  IN  AUTO  MODE 

8 IT  2 AUTO  MODE  DISCRETE 

IS  NOT  PRESENT 


BIT  1 FI  AG  12 

1940  RR  TGRN-ON  SEQUENCE  NO  RR  TURN-ON 

BIT1  IN  PROGRESS.  ( ZFRC  SFOUENCE  IN  PROGRESS 

CDU  'S  i FIX  ANTENNA 


9:  12  OCT.  21,  1970 


( MA  I N) 


PAGE 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRGASTEP 
FLAGW0RI3  ASS  I C-WM  FN  TS 


USER'S  PAGE  NO.  27 


A1381 

A 10R2 

1084 
A 1005 
A 1 386 

A1  087 

loqn 

13  89 
A 1090 

A 1091 
1C  92 


REF  1 

REF  14  LAST 


REF  12  LAST  86 


REF  12  LAST  86 


RFF  15  LAST  R6 


oiii 

0111 


DAP  BOOL  S EQUALS  F LG  ViRD  l 3 

F LG  ViRD  l 3 = STATE  + 13d 


DIGITAL  AUTOPILOT  FLAGWORO 


PULSEFLG  = 
PULSES 


(195  - 209  ) 
(SET  ) 


WAS  DAPBOOLS 
(RES  ET  ) 


0 30  5 
4737 


BIT  15  FLAG  13 

1950  MINIMUM  IMPULSE 

31  T15  C CMMAND  MODE  I N 

"ATT  HOLD"  ( V 7 6 ) 


31 T 14  FLAG  13 

I960  GIMRAL  UNUSABLE. 

81  TH  USE  JETS  ONLY  . 


BIT  13  FLAG  13 

1 97D  CSN  DOCKED.  USE 

B IT  1 3 BACKUP  DAP 


NOT  IN  MINIMUM 
IMPULSE  COMMAND  MODE 
( V77) 


CSM  NOT  DOCK  ED  TD  LM 


A 1 095 

1096  0306 

13  9 7 RFF  13  LAST  86  4740 

A 1098 


31 T 12  FLAG  13 

OURPCFLG  = 198  D CUP  R FN  T DAP  PASS  CURRENT  DAP  PASS  IS 

OURRCBI  T = BIT12  IS  RATE  COMMAND  NOT  RATE  COMMAND 


A '099 

1 1 00  0 307 

1101  REF  13  LAST  86  4741 

A]  112 


BIT  11  FLAG  13 

ACC4-2FL  = 1 99D  4 JET  X-AXIS  TRANS-  2 J FT  X-AXIS  TRANS-. 

ACC40R2X  = B IT  1 1 LATION  REQUESTED  LATION  REQUESTED 


All  -3 

1104  0310 

1105  REF  13  LAST  36  4742 

A 1106 


AORBTFLG 
AORB  TRAN 


BIT  10  FLAG  13 

200  D B SYSTEM  FDR  X-  A SYSTEM  FOR  X- 

BITlO  TRANSLATION  TRANSLATION  PREFER'D 


A 1107 
1108 

1109  RFF  11  LAST  87 

Aim 


13  11 
4743 


BIT  9 FLAG  1? 

XOVINFLG  = 2010  X-AXIS  OVERRIDE  X-AXIS  OVERRIDE  OKAY 

xnviNHIB  = B IT  9 LOCKED  OUT 


A 1 1 11 

1112  0312 

1113  REF  13  LAST  87  4744 

A 1114 


DRIFTDFL  = 
DRIFTB1  T = 


BIT  8 FLAG  13 

20  2 D ASSUME  0 OFFSET  USE  OFFSET  ACC6LERA- 

BIT8  DRIFTING  FLIGHT.  T ION  FSTIMATE 


GAP:  ASSEPBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9: 12  OCT.  21  1 1 970 


(PAIN) 


PAGE  89 


FLAG  WORD  ASSIGNMENTS 


USER  'S  PAGE  NO.  28  E 0 S4 


A1  1 I 5 

1116  0313 

1117  REF  14  LAST  87  4745 

A1  1 1 8 


RHCSCFLG 

RHCSCALE 


BIT  7 FLAG  13 

203D  NORMAL  RHC  SCALING  FINE  RHC  SCALING 

8 IT7  REQUESTED  REQUESTED 


Mil  9 

1123  0214 

1121  REF  12  LAST  87  4746 

A 1122 


ULLAGE  LG 
UL  LAGER 


BIT  6 FLAG  1? 

2040  ULL  AGE  REQUEST  BY 

8 I T 6 MI  SSI  ON  PROGRAM 


NO  INTERNAL  ULLAGE 
REQUEST 


A1  1 23 

1124  0315 

1125  REF  11  LAST  87  4747 

A11251 

A 1126 


BIT  5 FLAG  13 

E OSI  2FLG  = 2050  5 DEG  DEADBAND 

DBSLECT2  = BIT5  SELECTED  BY  CREW 


1 OR  .3  DEG  DEADBANO 
SELECTFD  BY  CREW 
(SEE  B IT4  DAPBOOLS  ) 


A1  127 

1128  0316 

1129  REF  10  LAST  87  4750 

All  33 


DBS  EL  FLG 
DBSELECT 


HI T 4 FLAG  13 

2060  1 OEG  DEADBAND 

B IT  4 SEL  ECTED  BY  CREW 


PI  N DB  SELECT  ED  BY 
CREW  ( 0.  3 DEG) 


A 1131 
1132 
1131 
A 1 1 34 
A1  135 


0317 

REF  11  LAST  87  475  1 


B IT  3 FLAG  13 

ACCOKFLG  = 2 37  D CONTROL  AUTHORITY  RESTART  OR  FRESH  ST. 

ACC  SO  KAY  = 3IT3  VALtJFS  FROMl/ACCS  SINCE  I AS  T 1/ACCS; 

USABLE  OUTPUTS  SUSPECT. 


A 1 1 3 6 

1137 

1138  PEF 
A 11  39 

A 1140 
A 1 1 4 1 

1142 

1143  PEF 
A 1 1 4 4 


12  LAST  8 7 


12  LAST  87 


0320 


47  e 2 


0321 
4 7 5 3 


AUTR2FI.G 
AUTRATE  2 


AUTR1  FL  G 
AUTRA  TEl 


31 T 2 FLAG  13 

2080  THESE  FLAGS  ARE  USED  TOGETHER  TO  INDICAT 

BI  T2  ASTRONAUT  -CHOS  EM  KALCMANU  MANEUVER  RATES 

( 0»0)  =(  B I T2»RI  Tl)  = 0.2  DEG/SEC 
(0,  1 )=  0.5  DEG/SEC 

31  T 1 FLAG  13 

2C9D  (1,0)=  2. 0 DEG/SEC 

BI  Tl  l 1,  1 )=  10  .0  DEG/SFC 


A P : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IMA  BY  ZOROASTER 

L SUBROUTINE  CALLS 


30?  1 
00'  2 
000  3 
or  4 
ocr  5 
0006 
3 007 
0008 
000? 


cccc 
0000 
0.0  CO 
0000 
oooo 
0000 
0000 
0000 
0000 


SUBRO  ZERASE 
SIJBRO  ZERLAID 
SUBRO  ZLEMP20S 
SUBRO  LEMP30S 
SUBRO  < I SSING 
SUBRO  Z FLY 
SUBRO  LFMP50S 
SURRO  SKIPPER 
SUBRO  7LMDAP 


F NO  CF  ma: 


PROGPAM  *** 


9:1?  CCT.  21,1970 


(MAIN) 


PAGE 


90 


USER'S  PAGE  NO.  1 EO  S4 


« 


GAP: 
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L 

ERASABLE  ASSIGNMENTS  USER*  S PAGE  NO.  1 ED  S4 

*00'  l 

CONVENTIONS  A NO  NOTATIONS  LTILIZEC  FOP  ERASABLE  ASSIGNMENTS. 

ROD  02 

R 0 003 
R0004 

EQUALS  IS  USED  IN  TWO  WAYS.  IT  IS  OFTEN  USED  TO  CHAIN  A GROUP 

OF  ASSIGNMENTS  SO  THAT  THE  GROUP  MAY  BE  MOVED  WITH  THE 

OHANGING  OF  CNLY  CNE  CARD.  F X AMPLE . 

A 000? 

* 0006 
AD307 

X EQUALS  START 

Y EQUALS  X +SIZE.X 

Z EQUALS  Y +SIZE.Y 

ROOOR 
* OOOR 
R0010 

(X,  Y,  AND  Z ARE  CONSECUTIVE  AND  BEGIN  AT  START.  ) 

(SIZE.X  AND  SIZE.Y  ARE  THE  RESPECTIVE  SIZES  OF  X AND  Y, 

USUALLY  NUMERIC,  IE.  1,  2,  6,  1 8D  ETC.  ) 

R 001 1 

R 0 0 1 2 

EOUALS  UP  TEN  IMPLIES  TEE  SHARING  CF  R EG  1ST  FR$  (DIFFFRENT  NAMES 

AND  DIFFCRENT  DATA).  EXAMPLE. 

AOOl  3 

X EQUALS  Y 

* DO  14 
RDD15 

= MEANS  THAT  MULTIPLE  NAMES  HAVE  BEEN  GIVEN  TO  THE  SAME  DATA. 

(THIS  IS  LOGICAL  EQUIVALENCE,  NOT  SHA*  I NG)  EXAMPLE. 

A 00 1 6 

X = Y 

R001  7 
ROOlP 

THE  SIZE  AND  UTILIZATION  OF  AN  FRA  SAB  LF  ARE  OFTEN  INCLUDED  IN 

THE  COMMENTS  IN  THE  FOLLOWING  FORM.  MISIZEIN.  INLU,UtU  IN  ^ 

*0010 
ROD  20 

R O'"  21 
R0022 
R0023 
*0024 

M REFERS  TC  THE  MCPILITY  CF  THE  ASSIGNMENT. 

3 M FANS  THAT  THE  SYMBOL  IS  REFERENCED  BY  PASIC 

INSTRUCTIONS  AND  THUS  IS  E-BANK  SENSITIVE. 

I MEANS  THAT  THE  SYMBOL  IS  REFERENCED  CNLY  8Y 

INTERPRETIVE  INSTRUCTIONS,  AND  IS  THUS  F-RANK 

INSENSITIVE  AND  MAY  APPEAR  IN  ANY  E-RANK. 

R0025 

SIZE  IS  THE  NUMBER  OF  RFGISTERS  INCLUDED  BY  THE  SYMBOL. 

* 0''  2 6 
R0f?7 
RD32R 

R 0029 
R003O 
R0C31 
* Or  32 

R 0 033 

R003*. 

*0035 
ROD  36 

N INDICATES  ThF  NATURE  OR  PERM  AN  FN  CE  OF  THE  CONTENTS. 

°l  MEANS  THAT  THE  CONTENTS  ARE  PAD  LOADED. 

DSP  MEANS  THAT  THE  REGISTER  IS  USED  FOR  A DISPLAY. 

PPM  MEANS  THAT  THE  REGISTER  IS  PERMANENT,  IF.  IT 

IS  LSEO  DLRING  THE  ENTIRE  MISSION  FOR  CNE 

PURPOSE  AND  CANNOT  BE  SHARED. 

TMt  MEANS  THAT  THE  REGISTER  IS  USED  TEMPORARILY  OR 
lf  A SCRATCH  PFGISTER  FOR  ThE  ROUTINE  TC  WHICH 

II  IS  ASSIGNED.  THAT  IS,  IT  NEED  NOT  BE  SET 

PRIOR  TO  INVOCATION  OF  THE  ROUTINE  NOR  COES  IT 

CONTAIN  LSEFUL  OUTPUT  TO  ANOTHER  ROUTINE.  THUS 

9:12  OCT.  21,1970  ZERASE  .0  38 


PAGE 
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GAP:  ASSEMHLE  REVISION  S6  OF  AGC  PROGRAM  ZEftUNA  RY  ZOROASTER 

L ERAS  ABL  F ASSIGNMENTS  USER'S  PAGE  NO.  2 EO  SA 


i 00  37 
Rnv* 
R0C39 
R 0 0 A f • 
R OCA  1 
T 0C42 


IT  MAY  BE  SHARED  WITH  AN'Y  CT  HER  ROUT  INF  WHICH 
IS  NOT  ACTIVE  IN  PARALLEL. 

IN  REAMS  INPUT  TO  THE  ROUTINE  AND  IT  IS  PROBABLY 
TEMPORARY  FOP  A HIGHER-LEVEL  ROUT  I NE/ PROGRAM. 
CUT  MEANS  OUTPUT  FROM  THE  ROUTINE,  PROBABLY 

TEMPCP*°y  FOR  A HIGHER-LEVEL  R OJ T I NE/ PROGR AM . 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


L ERASABLE  ASSIGNMENTS 

P0C43  SPECIAL  REGISTERS. 


004^ 
0045 
3?  46 
004  7 
0048 
3349 
0050 
A00  51 


0000 

0001 

00C2 

0003 

0004 
00C5 
0006 


EBANK 

FRANK 


EQUAL  S 0 
EQUALS  1 
EQUALS  2 
EQUALS  3 
EQUALS  4 
EQUALS  5 
EQUALS  6 


0052 

0053 

0054 

0055 

0056 

0057 

0058 


00  10 
0011 
0012 
0013 
0015 
CO  16 
0017 


AR  UP  T 

LRUPT 

QR  LPT 

SAMPT  IME 

ZRUPT 

BANKRUPT 

BRUPT 


EQUAl  S 10 
EQUALS  11 
EQUALS  12 
EQUALS  13 
EQUALS  15 
EQUALS  1 6 
EQUALS  17 


0059 
006  0 

0061 

0052 


0020 

C02 


0022 

0023 


CYR  EQUALS  20 

SR  EQUAL  S 21 

CYL  EQUALS  ?2 

ED  OP  EQUALS  23 


0065 

0066 

0067 

0068 

0069 

0070 
00  7 1 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

on  8o 
0081 
0082 
008  3 

0084 

0085 

0086 
0087 


0024 

0025 

0026 
( 027 
COSO 
00  31 
0032 
00  2 3 

0034 

0035 
00  36 
0037 
OC  40 
0041 
004? 
004  3 
0044 
C 045 

0046 

0047 
C05C 

0 5] 
0052 
OC  53 
- 054 


T IME  2 
T I ME1 
TIMF  3 
T IME4 
TIME5 
TIME6 

crux 
CD  LY 
CDUZ 
COUT 
CPUS 
P I PAX 
PI  PAY 
P IPAZ 
Q-RHCCTR 
P-RHCC  TR 
R-RHCCTR 
1 N LI  NK 
RNRAD 
C-YRO CM  0 
CDUXC  MO 
COUYCMD 
CDUZCMD 
COLTC  MO 
CDUSCMD 


EQUALS  2 4 
EGUALS  2 5 
EQUALS  26 
EQUALS  27 
EQUALS  30 
EQUALS  31 
EQUALS  32 
EQUALS  33 
EQUALS  34 
EQUALS  35 
EQUALS  36 
EQUALS  37 
EQUALS  40 
EQUALS  41 
EGUALS  42 
EQUALS  43 
EQUALS  44 
EQUALS  45 
EQUALS  46 
EQUALS  4 7 
EQUALS  50 
EQUALS  51 
EQUALS  5 2 
EQUALS  53 
EQUALS  54 


9:12  OCT.  21,1970  ZERASE  .03a  PAGE  93 
USEP  ' S PAGE  NC.  3 EO  S4 


L ANO  0 ARE  33TH  CHANNELS  AND  REGISTERS. 


ADJACENT  TO  EBANK  AND  BBANK  FOR  DXCH  Z 
(DTCB)  ANO  DXCH  EBANK  ( DTCF ) . 

REGISTER  7 IS  A ZERO-SOURCE,  USED  BY  ZL. 

INTERRUPT  STORAGF. 


SAMPLED  TI  ME  1 6 2. 

( 13  ANO  14  ARE  SPARES. ) 
USUALLY  HOLDS  FRANK  OR  BBANK. 
RFSUME  ADDRESS  AS  VELL. 


EDITS  INTERPRET  IVE  OPERATION  CODE  PAIRS. 


PFND  RADAR  TRUNNION  COU 
REND  RADAR  SHAFT  CCU 


RHC  COUNTER  REGI  STEP  S 


RADAR  TRUNNION  COMMAND 
RADAR  SHAFT  COMMAND 


ASSEMBLE  REVISION  56  Of  AGC  PROGRAM 


ZERL  INA  BY  ZOROASTER 
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FRA  SABI  F ASSIGNMENTS 


USER  'S  PAGE  NO. 


EO  S4 


338* 
00  89 
0000 
oo°i 


( CBS 
0056 
CC57 
C060 


THRUST  EQUAL  S 55 

LFMONM  EQUALS  5 6 

CUTLINK  EQUALS  57 

AL  TM  EQUALS  60 


INTERPRETIVE  REGISTERS  ACCRESSED  RELATIVE  TO  VAC  APEA. 


3093 

009/.* 

cros 

009/- 


0097 

0098 

0099 


004  2 
'>044 
0046 
0 0 4 7 

0050 
C C 5 1 
0052 


LVSQUARE  FQUALS  340 

LV  EQUALS  360 

XI  EQUALS  33 C 

X2  FQUAL  S 3 90 

51  EQUALS  40  D 

52  EQUALS  4 1 0 

OPRET  EQUALS  420 


SQUARE  OF  VECTOR  INPUT  TO  ABVAL  AND  UNIT 
LENGTH  OF  VFCTOR  INPUT  TO  UNIT. 
INTERPRETIVE  SPECIAL  REGISTERS  RELATIVE 
TO  THE  WORK  ARFA. 


POlOn  INPUT/OUTPUT  CHANNELS 


REF  1 
REF  1 


31  ?6 
Oir.7 
0 10  8 

3 1 09 
' 11 
111 
0112 
113 
3114 
I 115 
Llfc 
Ml  17 


AOl  nl 
0102 
0133 

n 10  5 


0001 

0CC2 

0003 

0004 

0005 

0006 
)0C7 
00  10 
0011 
0012 

0013 

0014 
0.015 
3016 
0020 
0031 


0118 
3119 
0120 
1 121 
3122 
0123 
p;  124 


3032 

0033 

0034 

0035 
0C7  6 
3077 

END  OF  CHANNEL  ASSIGNMENTS 


***  CHANNEL  ZERO  IS  TO  BE  USED  IN  AN  INOEXEO  GP  F R AT  I ON  ONLY. 
LCFAN  EQUALS  L 
QCHAN  EQUALS  0 
HISCALAR  EQUALS  3 
LCSC-ALAR  EQUALS  4 


CHAN5  EQUALS 
CHAN  6 EQUALS 
SUPERBNK  EQUALS 
0 UTC  EQUALS 

DSALMOUT  EQUALS 
C HA  Nl  2 FQUALS 
CHAN  13  EQUALS 
CHAN14  EQUALS 
MNKEY1N  EQUALS 
NAVKEYIN  EQUALS 
CHAN30  EQUALS 
C HAN  3 1 FQUALS 
CHAN32  EQUALS 
CHAN33  EQUALS 
DNTM1  EQUALS 
DNTM2  EQUALS 
C H A N 76  FQUALS 
CHAN 7 7 FQUAL  S 


5 

6 
7 

10 
1 l 
1 2 

13 

14 

15 

16 
33 

31 

32 

33 

34 

35 

76 

77 


SUPER-BANK. 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  5 ED  S4 

3 0 1 2 5 INTERPRETIVE  SWITCH  BIT  ASS  I GAR  ENTS 
AD  1 25 

R Ol  2 7 **  FLAGWORDS  ANC  BITS  NOW  ASSIGNED  AND  DEFINED  IN  THEIR  OWN  LOG  SECTION.  ** 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZORGASTER 
ERASABLE  ASS  IGNMFNTS 
GENERAL  ERASABLF  A SSI  GNMENTS. 


9:  12  OCT  . 21,  1970  Z ERASE 
USER'  S PAGE  NC.  6 


.038  PAGE 
E3  SA 


: i 39 
0 1 30 

0 l AO 

0H1 

91A2 

01A3 

( Ha 
3 1A5 
31A6 

01  A7 
01A8 

nH  9 


( T TEMP  1 THROUGH  RLPTREG4) 

ANY  OF  THESE  MAY  BE  USEO  AS  TEMPORARIES  OURING  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED.  THF  ITEMP  SERIES 
IS  USED  OURING  CALLS  TO  THE  EXECUTIVE  ANO  WAITLIST  - THE  RUPTREGS  ARE  NOT. 


REF 

REF 


0C6I 

0061 

0061 

00  6 2 
C062 
GC6  2 

3063 

0063 

0063 

006A 
006  A 
00  6 A 


I TEMPI  ERASE 

WA  ITEX  IT  EQUAL  S ITEMP  1 

EX  ECT  EMI  EQUALS  ITEMP1 

I TEMP  2 ERASE 

WAIT  BANK  EQUALS  ITEMP  2 

FXECTEM2  EQUALS  ITEMP2 

IT  EMP  3 
WAITACR 
NE  WPRI  0 EQUAL  S 1 TEMP3 

IT  EMPA 
LCCCTR 
WAITTEMP  EQUALS  ITEMPA 


DP  ADDRESS. 


MUST  BE  AT  L3C  67  DUE  TO  WIRING. 


3156 

0157 

0158 
3159 
0160 
0 161 

R0162 


PEE 

RFF 


LA  ST 


96 


C C 70  C C 70  RUPTREG1  ERASE 

0071  0071  RUPTREG2  ERASF 

OC 72  0072  RUPTREG3  ERAS  t 

OC 7 3 0073  RUPTREGA  ERASE 

0073  KEYTEMP1  EQUALS  RUPTREGA 

0073  OSRUPTEM  EQUALS  RUPTREGA 


FLAGWCRD  RESERVATIONS. 

007A  0113  STATE 


( 16D) 

U5D  FLAGWORD  REGISTERS. 


ERASE 

P25  RACAP  STORAGE.  (MAY  BE  UNSHARED  IN  E7)  (TEMP  OVERLAY)  (20)  OVERLAYS  FLGWRD  1A  C 15 


GAP: 


ASSEMBLE  REVISION  86  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


L ERASABLE  ASSIGNMENTS 


3168 

REF 

15 

L AST 

88 

0112 

LA  ST  YC  MD 

EQUALS 

STATE  +1 

0169 

RFF 

1 

0113 

L AST  X CM  D 

EQUAL  S 

LASTYCMD  +' 

AO  170 

R0171 

EX  EC 

TEMPORARIES  WHICH 

MAY  BE 

USED  BETWEEN  CC  S 

NE  WJOR  S. 

0173 

0114 

0114 

INTB15  + 

ERASE 

317  4 

REF 

1 

0114 

D SE  XI  T 

= 

I NTBl  5 + 

Cl  75 

RFF 

? 

LAST 

97 

3114 

EX  ITEM 

= 

I N TB  1 5+ 

0 176 

0115 

0115 

I NT  8 1 T 1 5 

ERASE 

3177 

PEF 

1 

c 1 15 

WORE  T 

= 

INTBI  Tl  5 

0178 

PFF 

2 

LAST 

97 

0115 

DECRET 

= 

IN  TB  I T I 5 

0179 

REF 

3 

LAST 

97 

0115 

21  /22REG 

= 

I NT  B IT  1 5 

R0180 

THE  REGISTERS 

BETWEEN  AODRWD 

AND  PR  IOR  ITY  MUST 

STAY  IN  THE 

MB  2 

0116 

0116 

ADDRWD 

ERASE 

3183 

0117 

C 1 1 7 

PO LI  SH 

ERASE 

0184 

RFF 

1 

3117 

UP  DAT  RET 

POL  ISH 

0 185 

REF 

2 

LAST 

97 

0117 

CHAR 

= 

POL  ISH 

Cl  86 

RFF 

3 

L AST 

97 

0 1 17 

ER  CN  T 

= 

P 0 LI  SH 

0187 

REF 

4 

LAST 

97 

0117 

DECOUNT 

= 

POL  ISH 

3 1 PR 

0120 

C 120 

FI XLOC 

ERASF 

01  89 

0121 

0 121 

DVFIND 

ERASE 

0 190 

0122 

0127 

VBUF 

ERASE 

+5 

3131 

REF 

1 

0 122 

SG  NON 

= 

VBUF 

019? 

RFF 

2 

last 

97 

0122 

NOUNT  EM 

= 

VBUF 

0)93 

RFF 

3 

LAST 

97 

0122 

DI  STEM 

_ 

VBUF 

0194 

PEF 

4 

LAST 

97 

0 122 

DECTEM 

= 

VB  UF 

0195 

REF 

5 

LAST 

97 

0123 

SGNCFF 

V BU  F + L 

3 19< 

RFF 

6 

I AST 

97 

0123 

NVTF  MP 

= 

VBUF  +1 

f-197 

°GF 

7 

LAST 

97 

0123 

SFTEMP  1 

= 

VBUF  +1 

0198 

REF 

LAST 

97 

0123 

HI  TFMI  N 

= 

VBUF  +1 

A3  1 9 9 

0200 

RFF 

9 

LAST 

97 

3124 

CODE 

= 

VBUF  +2 

020) 

REF 

10 

LAST 

97 

0124 

SFTEMP2 

= 

VBUF  +2 

02C2 

REF 

1 1 

LAST 

97 

0 124 

LOTEM  IN 

= 

VB  UF  + 2 

A 020  3 

3 20  a 

REF 

12 

L AST 

97 

0125 

MI  XTE  MP 

- 

VBUF  +3 

R 0 20  5 

ALSO 

MI  XT  FMP+1 

= V8UF+4 

, MIXTEMP 

+2  = VBUF  + 5. 

0130 

0132 

BUF 

ERASE 

+2 

02q7 

0 133 

0134 

PUF2 

ERA  SE 

+ 1 

0208 

RFF 

1 

0 1 30 

INDFXI  OC 

EQUAL  S 

BUF 

3209 

REF 

2 

LAST 

97 

0130 

SK  WORD 

EQUALS 

BUF 

0210 

RFF 

3 

LAST 

97 

0131 

SWBIT 

EQUALS 

BUF  +1 

0211 

0135 

0135 

MPTEMP 

ERASE 
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40  B(1  )PRM  THESE  ARE  CALLED  BY  T4RUPT 

1 B(  1)PRM  THEY  MUST  BE  CONTIGUOUS, Y FIRST 


1320)  (INTB15+  THROUGH  PUPTMXTM) 

REFLECTS  15TH  BIT  OF  INDEXABLE  ADDRESSES 
RETURN  FOR  DS  P IN 

RF  TURN  FOR  SCALE  FACTCR  ROUTINE  SELECT 
S I M IL  AR  TO  A80VF  . 

RETURN  FOR  CS  PW  C 

RETURN  FOR  PUTCOM(DEC  LOAD) 

TEMP  FOP  CHAPIN 


FOLLOWING  ORDER  FOR  INTERPRETIVE  TRACE. 

12  BIT  INTERPRETIVE  OPERAND  SUB-ADDRESS. 

HOLDS  CADR  MADE  FROM  POLISH  ADDRESS. 

RETURN  FOR  UPDATNN,  UPDATVB 

T EMP  FOR  CHAR  IN 

COUNTER  FOR  ERROR  LIGHT  RESET 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 


WORK  AREA  ADDRESS  . 

SET  NON-ZERO  ON  OVERFLOW. 

TEMPORARY  STORAGE  USEO  FOR  VECTORS. 

TFMF  FOR  ON 

COUNTER  FOR  MI  XNCUN  FETCH 

COUNT  ER  FOR  OCTAL  DISPLAY  VFRBS 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

TEMP  FOR  + ,-  ON 
TEMP  FOR  NVSJB 

STORAGE  FOR  SF  CONST  HI  P AR T ( = SFT  EMP2 -1  ) 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = LOT  EM  IN-1. 

FOR  DSPIN 

STORAGE  FOR  SF  CONST  LO  PAR  T(  =SFTE  MP  1+ 1 ) 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = HI  TEMIN+1. 

FOR  MIX  NOUN  DATA 


TEMPORARY  SCALAR  STORAGE. 

CONTAINS  ADDRESS  OF  SPECIFIED  INDEX. 
ACDRFSS  OF  SW  ITCH  WORD. 

SWITCH  BIT  WITHIN  SWITCH  WORD. 
TEMPORARY  USED  IN  MULTIPLY  AND  SHIFT. 


ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


EPASABLE  ASSIGNMENTS 


r 2 1 2 REF 
0 213 

3214  REF 
0215  PFF 
r 216  REF 


1 

1 

2 LAST  98 

3 LAST  98 


0135 

0136 
0 1^6 
0136 
0126 


DMPNTEMP 
0136  DQTTNC 

dvsign 

ESCAPE 

ENTRET 


= MP  TEMP 

ERAS  E 

FQLALS  DOTINC 
EQUALS  DOT  INC 
= DOTINC 


0217 

0218  RCF 
02n  RFF 
' 2?<  REF 
r 221  REF 


2 LAST  9 8 

3 LAST  03 

A LAST  9 8 


0 137 
013  7 
C 1 3 7 
0137 

01  37 


0 137  DO  TRET 

OVNORMCT 
F SCAPE  2 
WDCNT 
I NREL 


ERA  St 

EQUALS  DOT  RET 
EQUALS  DOTRET 
= DO  TP  F T 

= DOTRET 


0222 

022 3 REF 
3224  REF 
C 225  REF 
0 2 26  RFF 


0 HO 

1 01  AO 

2 LAST  98  0 1 AO 

3 LAST  f>8  0140 

4 LAST  9e  0140 


0 140 


MATIN  C 
MAXDVSW 
POLYC  NT 
OSPMMTEM 
MIXBR 


ERA  SE 

EQUALS  MAT  INC 
EQUALS  MATINC 
= MATINC 

= MAT  INC 


3 227 

0278  REF  1 

0229  REF  2 LAST 

0230 

0231  RFF  1 

0237 

0233  RFF  1 


0234 

0235  REF  1 

0236  REF  7 LAST 

0237  REF  3 LAST 

0238  REF  4 LAST 


OHI  0H1 

0141 

9 8 014,1 


0H2  0H2 

0142 

0 l A 3 Cl  43 

0143 

0144  0144 
0 1A4 

98  0144 

98  0 1 A 4 

98  0 144 


TEMl  ERASE 

POLYRET  = TEMl 

DSREL  =.  TEMl 

TFM  2 ERASE 

CSMAG  = TEM2 

TE  M3  ERASE 

COUNT  = TEM  3 


TEM4  ERASE 

RELRET  = TEM* 

DS  PW  DR  ET  = TEM 4 

SEPSCRET  = TEM4 

SEPMNRET  = TEM4 


02  39 
324? 


REF 


0145  0145  TFV5  ERASE 

0 1 A 5 NOUNADD  = TEM5 


02A1 
0 2A  2 
3243 
A 02 A4 
?2A5 
A ' ,2  A 6 
02A7 
AO  2 48 
0249 


0 146  0 146 

0147  0147 

0 150  0 150 

0151  C 1 51 

0152  0152 

0153  0153 


NNADTEM  ERASE 
NNTVPTEM  ERASE 
I DAD  ITEM  ERASE 

IQAD2TEM  ERASE 

IDAD3TEM  ERASE 

RUTMXTEM  ERASE 


R025" 


A x * S T * T STORAGE. 


0252  RFF  2 LAST  98 

0253  REF  2 LAST  98 


0 14  2 

01  A3 


OE  XDE  X 
0EX1 


EQUALS  TE  M2 
EQUALS  T EM3 
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DMPSU3  TEMPORARY 

COMPONENT  INCREMENT  FOR  DOT  SUBROUTINE. 
DETERMINES  SIGN  OF  CCV  RESULT. 

USED  IN  ARC  SI  N/ARCCOS. 

EXIT  FROM  FNTFR 

RETURN  FROM  DOT  SUBROUTINE. 

DIVIDEND  NORMALIZATION  COUNT  IN  DO V. 
ALTERNATE  APCS  I N/ ARCCOS  SWITCH. 

CHAR  COUNTER  F CR  DSPWD 
INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  > 

VECTOR  INCREMENT  IN  MXV  AND  VXM. 

+ r IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -1. 
POLYNOMIAL  LOOP  COUNTER 
D SPCOUNT  SAVE  FOR  DS  PMM 
INDICATOR  FOR  MIXED  OR  NORMAL  NOUN 

EXEC  TEMP 

REL  ADDRESS  FOR  DSP  IN 


EXEC  TEMP 

MAGNITUDE  STORE  FOR  OSPIN 
EX  EC  TEMP 
FOR  D SPI N 

EXEC  TEMP 
RETURN  FOR  PELCSP 
R F T UR  N FOR  DSPSIGN 
RETURN  FOR  S EP  S EC 
RETURN  FOR  SEPMIN 


EXEC  TEMP 

TEMP  STORAGE  FOR  NCUN  ADDRESS 

TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

TEMP  FOR  INDIR  ADRESS  TABLE  ENT  RY  ( M IX  NN  I 

MUST  = IDAD2TEM-1,  = IDAD3TFM-2. 

TFMP  FOR  INDIP  ADRESS  TABLE  ENTRY  ( M I XNN  ) 
MUST  = I DAD  1 TE  M + I « = TDAD3TFM-1. 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRYIMI  XNN) 
MUST  = IOADlTEM+2,  = I0AD2TEM  + 1. 

TFMP  FOR  SF  ROUT  TABLE  ENTRY  (MIX  NN  ONLY) 


(60 


B ( 1 ) TMP 
B(  1 )TMP 


GAP:  ASSEMBLE  REVISION  56  GF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

ERASABLE  ASSIGNMENTS 


9:12  OCT.  21*  1970  ZERASE 
USFR'S  PAGE  NO.  9 


.038  PAGE 
EO  S4 


99 


(254 

REF 

5 L AST 

98 

0144 

DEX  2 

EOUALS 

TEM4 

R ( 1 ) TMP 

0255 

REF 

2 LA  ST 

98 

0145 

RT  AS  AVER 

EQUALS 

T EM5 

B ( 1 ) TMP 

3 256 

REF 

1 

0157 

TERMlTMP 

EQUALS 

M PAG  +3 

B (2  ) T MP 

0257 

REF 

1 

0143 

DEX  I 

= 

PEX1 

R0?5fl 

THE  FOLLOWING 

10  RE  G I STEPS 

ARE 

USED  FOR 

TEMPORARY  STORAGE  OF 

THF  DERIVATIVE  COEFFICIENT  TABLE  OF 

R0Z60 

S UBP  CUT  I NF  ROOT  PS  RS. 

THEY  MUST  REMAIN 

WITHOUT 

INTERFERENCE  WITH 

I TS 

SUBROUTINES  WHICH  ARE  PCWRSERS  (POLY), 

10262 

0 MP SUR , 

D MP  A SUB 

, SHCRTMP,  ODV/BCDV, 

ABS 

, A AD  USPRCAOR. 

0263 

REF 

2 

L AST 

99 

0H2 

DERCOF-8 

= 

MPAC 

-12 

ROCTPSRS 

DER  COF  A) -4  HI  ORDER 

0264 

REF 

3 

LAST 

99 

0143 

DERCOF-7 

= 

MPAC 

-11 

ROO  TP  SR  S 

DER  COF  N-4  LO  ORDER 

0265 

REF 

4 

LA  ST 

99 

0144 

0ERC0F-6 

= 

MPAC 

-10 

ROOTPS  RS 

DER  COF  N-3  HI  ORDER 

0266 

REF 

5 

L AST 

99 

0 145 

DERCOF-5 

= 

MPAC 

-7 

ROCTPSRS 

DER  COF  N-3  LO  ORDER 

02  67 

REF 

6 

LAST 

99 

0146 

0 ERCO  F-4 

= 

MPAC 

-6 

ROOTP  SR  S 

DER  COF  N-2  HI  ORDER 

0 26R 

PFF 

7 

LAST 

99 

0147 

DE  RE.  OF  -3 

= 

MPAC 

-5 

ROOT  PS RS 

DER  COF  N-2  LO  ORDFR 

0269 

RFF 

8 

LAST 

99 

Cl  50 

DERC  ’l  F-  2 

— 

MPAC 

-4 

ROOTP  SR  S 

DFR  COF  A'-l  HI  ORDER 

0 270 

RFF 

9 

LAST 

99 

01  51 

DE  RC  OF  -1 

= 

MPAC 

-3 

ROOTP  SR  S 

OER  COF  N-  1 LO  ORDER 

0271 

REF 

10 

LAST 

99 

C 1 52 

DE  RC  OF  N 

= 

MPAC 

-2 

ROCTPSRS 

OER  COF  N FI  OROER 

0272 

REF 

11 

LAST 

99 

. 0153 

DERCOF+l 

= 

MPAC 

- 1 

ROOTP  SR  S 

DER  COF  N LO  CRDER 

0273 

REF 

c 

LAST 

97 

0117 

PWRPTR 

= 

POLISH 

ROOT  PS RS 

POWER  TABLE  POINTER 

0274 

REF 

13 

LAST 

97 

0 124 

DXCR  IT 

VR  UF 

+ 2 

ROOTPSRS 

CRITERION  FOR  ENDING  ITERS  HI 

0275 

REF 

1 4 

LAST 

99 

0125 

OX  CR  IT  +1 

= 

VBUF 

+ 3 

ROOTP  SRS 

CRITERION  FOR  ENDING  ITERS  LO 

0 276 

REF 

15 

LAST 

99 

0126 

ROOTPS 

= 

VBUF 

+4 

ROOTPSRS 

ROOT  HI  ORDER 

0277 

REF 

1 6 

LAST 

99 

0127 

POOTP  S + 1 

=. 

VBUF 

+ 5 

ROOTP  SRS 

ROOT  LO  ORDER 

0278 

REF 

4 

LAST 

97 

0132 

RETRCOT 

= 

BJ  F 

+2 

ROOTPSRS 

RETURN  ADDRESS  OF  USER 

0279 

REF 

5 

L AST 

98 

0 140 

PWRCNT 

= 

MATINC 

ROOTPSRS 

OER  TABLE  LOOP  COUNTER 

0280 

RFF 

3 

LAST 

98 

0141 

OFRPTR 

= 

T EM  1 

ROOTPSRS 

DER  TABLE  POINTER 

AO  281 


GAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


> -2R? 

)28A 
02  85 
02  86 
2 87 

0288 

129.9 


ERASABLE  ASSIGNMENTS 

D YNA  M IT  a L L Y ALLOCATED  CORE  SETS  F CR  JOBS. 


' 154 
0 16  3 
0164 
0 165 

0166 

0167 


C 162 
C 163 
C16^ 
0166 

0166 

0167 


MP  AC 
MODE 
LOC 


ERA  SE 
ERASE 
ERASE 


BANKSET  ERASE 
PUSHLOC  ERASE 
PRIORI  TY  ERASE 


0170  0313  ERASE  +83D 

INCORP  STORAGE:  R22  (N29)  (SHARES  WITH  FOLLOWING  SECTION) 

PEE  1 0314  R22DISP  EQUALS  TIME2SAV 


R02  94 
0298 
3?  99 
R 0300 


STANDBY  VERe  ERASAELES 


TIME2SAV  ERASE 
SC  A L SAVE  ERASE 


HARDWARF  RESTART  COUNTER 

0 120  C 320  REDOC  TR  ERASE 


RD  304 

03  f'5 
0 30  6 

0307 

0308 
R03C9 


UNSHARED  STORAGE  FOR  DESIRED  GIMBAL  ANGLES 


REF 

REE 

REF 


LAST  100 
LAST  100 


0321 

0321 

0322 
C 323 


THETAD 
C PHI 
C THE  TA 
CPS  I 


T HET  AD 
THETAD  +1 
THETAD  +2 


R031  1 STORAGE  FOR  DELTAV/S 


0311 

0312 
C3 1 3 
0314 

AO  3 1 5 


REF 

REF 

RFF 


LAST 
LA  ST 


IOC 

100 


0324 
0 3 24 
0 32  6 
0330 


DEL  V 
DE  LVX 
DEL  VY 
DE  LV  Z 


DE  LV 
DE  LV  +2 
DELV  +4 


R 031 6 

0318 

0319 
A 0320 


WAITLIST  REPEAT  FLAT 


DOWNL  IN<  STORAGE  . 


9:12  OCT.  21 


I 0 70 


ZERASE  .038  PAGE  ICO 


USER'  S PAGE  NC.  10 


ED  S4 


( 84  D ) 

MULTI-PURPOSE  ACCUMULATOR. 

+ 1 FOR  TP,  + 0 FOP  DP,  OR  -1  FOR  VECTOR. 
LOCATION  ASSOCIATED  WITH  JOB. 

USUALLY  CONTAINS  RB'ANK  SETTING. 

WORD  OF  PACKED  INTERPRETIVE  PARAMETERS. 
PRIORITY  OF  PRESENT  JOB  AND  WORK  AREA. 

FIGHT  SETS  OF  12  REGISTERS  EACH 


( 4D) 

1(4)  N 49  DISPLAY  OF  DELTA  R AND  DELTA  V 


( 4D ) 


CONTAINS  NUMBER  OF  RESTARTS 


0 DESIRED  GIMBAL  ANGLES 

1 FOR 

M MANEUVER. 


( ID) 


TEMP  FOR  KEYPUPT,  UPRUPT 


(27  D) 


GAP:  ASSEMBLE  REVISION  56  OF 


PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT  . 21.  1970 


ZERASE  .038  PAGE  1 0 1 


L ERASABLE  ASS IGNMENTS 


USER'  S PAGE  NO.  1 1 


ED  S4 


0333  0365  DNTMFRAS  ERASE  +26D 


B127DIPRM  ERA  SABLES  USED  BY  DOWN- 
TELEMETRY  PROGRAM  — CANNOT  BE  SHARED. 


325  REF  1 

AD  326 

D327  REF  1 

A 0328 

0329  REF  1 

AO330 

0331  RFF  1 

Al  332 

0333  RFF  1 

0334  REF  2 LAST  101 

AD  335 
A 0336 
AO  337 

0338  PFF  3 LAST  IQ  1 0 337  SURLIST 

033Q  REF  1 0340  ONTMBIJFF 


EQUALS  DNTMFRAS  B ( 1 ) PRM  CODE  SPECIFYING  WHICH  DGWNLIST 

WILL  BE  SELECTED  FOR  TRANSMISSION 
EOUAl  S DNLSTCOD  + 1 B(l)  PRM  POINTER  TC  CURRENT  LOCATION  OF 

THE  CONTROL  LIST. 

EQUALS  CT  LI  ST  +1  R{1>PRM  POINTER  TO  LOCATION  WHERE  DNTM 

PROCESSING  WILL  RESUME  NEXT  DOWNRUPT. 
EQUALS  DNTMGOTO  +1  8(1)PRM  HOLDS  CONTENTS  OF  CURRENT 

CONTROL  LIST  LOCATION. 

EQUALS  DNECADR  B ( 1 ) INDEX  FOR  LOADING  SNAPSHOT  BUFFER. 

EQUALS  DNECADR  Bill  BITS  1-11  CONTAIN  ECADR  OF  AGC  DP 

WORD  BEING  DUMPED  BY  V74  ERASABLE  D'JMP. 

BITS  12-15  CONTAIN  COUNT  OF 
COMPIETE  DUMPS  ALREADY  SENT. 

EQUALS  DNECADR  +1  B ( 1 ) P RM  POINTER  TC  CURRENT  SUBLIST  LOC. 

FQUALS  SURLIST  +1  B(22)PRM  DOWNLINK  SNAPSHOT  BUFFER 


0333  DNLSTCOD 

3334  CTLIST 

0335  DNTMGOTO 

0336  DNECADR 

0336  T M INDEX 

0336  DUMPLOC 


R034  IINSW  IT  CHF.D  FOR  OISPLAY  INTERFACE  ROUTINES. 


(1CD)  FIVE  MORE  IN  FBANK  2 


P 342 
03  43 

0344 

0345 
RD  346 

0348 
( 349 
D35D 
0351 


0366  0366  RESTREG 

C 36  7 C 3 6 7 NVWORD 

0 370  C 370  MARKNV 

0371  0371  NVSAVE 

(RETAIN  THE  ORDER  OF  CADRFLSH  TO 
0 372  037  2 CADRFLSH 

C373  0373  C ADRMARK 

0 374  C 3 74  TEMPFLSH 

0375  0377  FAILREG 


ERASC 

ERASE 

ERA  SE 

ERASE 

F A I LREG 

ERASE 

ERASE 

ERASE 

ERASE 


B ( 1 ) PRM  FOR  DI  SPL  AY  RFSTAP  TS 


+ 2 FOR  DOWNLINK  PURPOSES) 


+ 2 B ( 3) PR M 3 ALARM  C COE  REGISTERS 


R 1 352 


VAC  AREAS. 


-BF  CAREFLL  CF  PLACEMENT- 


(2200) 


0354 

0355 
C 356 
(357 
0 358 
D353 
0360 
0 361 
D 362 
"363 


f 400 
0401 
04  54 
C 455 
0530 
0 5 31 
C 604 
06C5 
0660 
0661 


0400 
0453 
C454 
C 52  7 
0530 
C 6 0 3 
060  4 
06  57 
C 6 60 
C 73  3 


VAC1USE  ERASE 

V AC1  ERASE  +4  2D 

VAC2  USE  ERASE 

VAC2  ERASE  +420 

VAC3USE  ERASE 

VAC  3 ERASE  +420 

VAC4USE  ERASE 

VAC4  ERASE  +4 2 D 

VAC5USE  ERASE 

V AC5  ERASE  +4  2D 


RD364 


TEMPORARIES  USEO  BY  RESTARTS  ROUTINE 


(365  REF 


0705 


GOLOC  EQUALS  VAC  5 +20D  B(4) 


GAP:  ASSFMRIF  PFVIS10N  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


R 36ft 

0368 
0 36° 

0370 

0371 

0372 


FRASARLF  A SSI  GNMF NTS 

STAR  ALIGN  ERA  SABLES. 


RFF 

REF 


? LAST  102 


0735 
735 
0 7 A 3 


ST  ARCOOE  EP  ASE 
ACTCODE  = 

STAR  AL  GN  ERASE 

SINCOU 

COSCDU 


ST  ARCOCE 
+ 1 id 

ST  ARAL  GN 
STARALGN  +6 


03  7 7 

0374 

0375 
037ft 
0377 
03  7 B 


RFF 
REF 
REF 
RFF 
R FF 
REF 


LAST 
L AST 


102 
10  2 


74  1 
--735 
n 7 37 
0747 
0743 
0 74  5 


S INCDUX 
SI  NCDIJY 
SI  NCOUZ 
COS  C DUX 
COSCOUY 
CO  SCDUZ 


SINCOU 
S INCUU 
SI  NCDU 
COSCDU 
COSCDU 
COSCDU 


3 0370 

038  1 
0382 
0 383 
0384 
03P5 
03Rft 

0387 

0388 

0389 

0390 
0 391 
0392 


PHASE  TABLF  AND  RESTART  COUNTERS. 


C 7 5 1 
('752 
075  3 

0754 

0755 

0756 
0 7 57 
0760 
0 761 
0762 
C7ft  3 
0 764 


0751 

0752 

0753 
C7  54 
0755 
C 7 56 
0757 
0760 
C 76  1 
0762 
0 763 
r 764 


-PHA  SF  1 
PHAS  El 
-PHASE2 
PH  ASE  2 
-PHAS  E3 
PHA  SF  3 
-P  HAS  E 4 
PHASE4 
-PHASE  5 
PHAS  F5 
-PHASE6 
PH  A SF  6 


ERASE 
ERASE 
ERASE 
ERA  SE 
ERAS  F 
ERASE 
ERASE 
ERAS  E 
ERASE 
ERASE 
PRASE 
ERA  SE 


3 0393 
0395 

03  96 

0397 

0398 


PFF 

RFF 

REF 


A#* SR*  T STORAGE. 


I A ST  102 
LAST  10  2 


0 765 
C 767 
077  1 


CDUSPDT  ERASF 

CPUS  POTY  = 

CPUS  POT Z = 
CDUSPOTX  = 


CDUSPOT 
C DUS  POT 
CDUSPOT 


* '■‘399 

040  1 
0402 


VERB  37  STORAGE. 


R0403 

0405 


PINBALL  INTERRUPT  ACTI  CN. 

C 775  C 7 7 5 DSPCNT  ERASE 


.0  38 


PAGE 


102 
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ZERASE  . 


USER  *S  »AGE  NO.  12 


EC  S4 


( 1 3 D) 
( 1) 


( 12D) 


( 6D) 
B (ft  ) 


(2D) 

B ( 1 ) TMP  INDEX  FOR  MAJOR  MODE 

8(1)  TMP  MAJOR  MODE  REQUESTED  BY  V37 

( ID) 


8(1)  PRM  COUNTER  FOR  DSPOUT 


SAP:  ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L ER  A SARI  E ASSIGNMENTS 

R04l<6  PINBALL  EXECUTIVE  ACTION 
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USER  'S  PAGE  NO. 


3413 

0411 

412 

0413 

0414 
3 415 
04 1 6 

4 1 7 
A3  4 1 8 
''4)9 
C 420 
A0421 
"'422 

3 423 
0424 
>425 
D 426 

0427 

0428 

04  29 
0430 
3431 
0432 
0 433 

A3434 
0435 
AO  4 36 

043  7 
0438 
3439 

044  C 
9441 
3442 


flEF 

REF 


1 


l 


C 776 

0 777 
1CC0 
1001 

1 OC  2 
1003 


1004 
ICC  5 
1006 
1 006 


0776 

0777 
1000 
1001 
1002 
100  3 
1004 
1 CC5 
1 CO  6 


DSPC3UNT  ERASE 
OECBRNCH  ERASE 
VERBREG  ERASE 
NOUNREG  ERASE 
XREG  ERASE 

YPEG  ERASE 
ZREG  ERASE 

XP.FGLP  ERASE 
YREGLP  ERASE 
HITFMOUT  = 


Y REGLP 


1007 

1007 


1007 


ZREGLP  ERASE 
LCTEMOUT  = ZREGLP 


1010 
1011 
1012 
1 013 

1014 

1015 

1016 
10  17 
1020 
1021 
1022 
1 036 


1010  MODREG  ERASE 

1011  OSPLOCK  ERASE 

1012  REQRET  ERASE 

1013  LCAOSTAT  ERASE 

1014  CLPASS  ERASE 

1015  NOUT  ERASE 

1C1 6 NCUNC ADR  ERASE 

IQ  1 7 M3NSAVE  ERASE 

1020  MONS  AV  El  ERASE 

1 C 2 1 MQNSAVE2  ERASE 

1035  DSPTAB  ERASE  + 1 ID 

1036  NVQTEM  ERASE 


1037  1037  NVBNKTEM  ERASE 


1040  1040 

1041  1041 

1042  1 C 42 

1043  1C43 

1 044  ] ( 46 

1047  1C  5 1 


VERRSAVE  ERASE 
CADRSTOP  ERASE 
OSPLIST  ERASE 
EXTVBACT  ERASE 
DSPTEM1  ERASE 
DSPTEM2  ERASE 


DISPLAY  POSITION  INDICATOR. 

+ DEC,  - DEC,  OCT  INDICATOR 

VER8  CODE 

NnUN  CODE 

R 1 INPUT  BUFFER 

R2  INPUT  BUFFER 

R 3 INPUT  BUFFER 

LO  PART  OF  XREG  (FOR  DEC  CONV  UNLY> 

LO  PART  OF  YRFG  (FCR  DEC  CONV  ONLY) 

TEMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 
MUST  = LOT  EMOUT-1  . 

LO  PART  OF  ZREG  (FCR  DEC  CCNV  ONLY) 

TEMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 
MUST  = HIT  EMOUT  +1  . 

MODE  CODE 

KFY  ROARD/SUBROUT  IN  E CALI  INTERLOCK 

RETURN  REGISTER  FOR  LCAD 

STATUS  INDICATOR  FOR  LOAD  T S T 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  F CP  DSPTAB 

MACHINE  CADR  FOR  NOUN 

N/V  CODE  FOR  MCNITCR.  (=  M0NSAVE1-1) 

NOUNCADR  FOR  MONI  TOR  ( MA  TR  S)  =MONSAVE  +1 

NVMONOPT  OPTIONS 

C-1CD,  DISPLAY  PANEL  BUFF.  11D,  C/S  LTS. 

NVSU8  STORAGE  FOP  CALLING  ADDRESS 

MUST  = NVBNKTEM-1 

NVSUB  STORAGF  FOR  CALLING  BANK 

MUST  = NVOTEM+1 

NEEDED  FOR  RECYCLE 

END  IDLE  STORAGE 

WAITING  RFG  FOR  DSP  SYST  INTERNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
BUFFER  STORAGE  APFA  1 (MOSTLY  FOR  TIME) 
BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  DEG) 


0443  RFF  1 

0444  REF  1 

A 445 


1053 
1 ">44 


DSPTEMX  EQUALS  DSPTEM  2 +1  R(2)  S- S DISPLAY  BUFFER  FOR  EXT.  VERBS 

N0RMTEM1  EQUALS  DSPTFM1  8 ( 3 ) DS  P NORMAL  D I SPl  A Y R EG  I STEP  S. 


DISPLAY  FOR  EXTENCED  VERES  (V82  , R041V62),  V41IN72)  ) 

1050  OPTIONX  EQUALS  DSPTEMX 


( 2D) 

(2)  EXTENDED  VERB  CPT  ION  CODE 


TRA  SE  S AND  PH  SPRD  T S. 


G4°:  ASSEMBLE  REVISION  60  OF  AGC  PROGRAM  ZERLINA  0Y  ZOROASTER 

I.  ERASABLE  ASS  I GNM  ENTS 


'45  2 

0453 

0454 

' 4*55 


3456 

<.^7 


*■58 


3459 

Q46C 


'•6  1 

04  62 
'463 


1052 

1053 

1054 
1^55 
10  56 
1007 


1060 
106  1 


1 J62 
1063 
10  64 


1065 


1C  5 2 T0ASE1  ERASE 

1053  PHSPRDT1  ERASE 

1C54  TBASE2  ERASE 

1055  PHSPRCT2  ERASE 

1 C 56  TBASE3  ERASE 

1 C57  PHSPR0T3  ERASE 

1060  TBASE4  ERASE 

1C6l  PH  SPR0T4  ERASE 

1062  TBASE5  ERASE 

1063  PHSPRDT5  ERASE 

1064  TBASE6  FRA  SE 

1065  PHSPRDT6  ER  AS  F 


3464  REF  1 1055  PI  PC  TP.  = PHSPRDT2 

A 046c 
A 0 466 


R04{ 


UNSWITCFED  FOR  01SPLAY  INTERFACE  ROUTINES. 


0460 


1066  1066  NVW0RD1  ERASE 


3470 

0471  REF 

0472 
3 47  3 
'474 

R 0475 


1C6  7 1067 

1067 

1 C70  1070 

1 C 7 1 1 C 7 1 

1072  1072 


EBANKSAV  ERASE 
DSP  FLO 

MARKFLAG  ERASE 
EBANKTEM  ERASE 
M ARK  2P  AC  EPASE 


EBANK  SAV 


R04  76 
4 78 


CCOE  WORD  FOR  AGS  RENDEZVOUS 
1073  1073 


DOWNLIST  XFER  OF  RADAR  DATA 
AGSCODE  ERASE 


R3479  I Ml  I COMPENSATION  UN  SWITCHED  ERASABLE. 

0481  1074  1074  l/PIPACT  ERASE 

A0482 

RC4  P3  TEMPORARIES  FOR  S PCOS  AND  SPSIN 

0485  1 075  1075  TEMK  ERASE 

3486  l C 7 6 1 C 76  SO  ERASE 

A 04  87 


30488  ****  RADAR  **** 


349! 


1077 


1C77 


SAMPIIM  ERASE 
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USED  TO  COUNT  DOWN  R 10  CYLCES.  USED  IN 
CONJUNCTION  WITH  TBASE2  , ST  THIS 
LOCATION  IS  FUNCT  IONALL  Y = . SEE  KlO.Rll 


( 5 D ) 

Bill  * USED  DURING  POWERED  FLIGHT  CNLY  * 


(ID) 

0(1)  DD  NOT  SHARE  . 

(1  D) 


(2D) 

( 1 ) 

(1  ) 

( 13D) 

B ( 1 ) LR  R12,  P60S,  R04,  R77 


GAP:  ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ERAS  ARIF  ASSIGNMENTS 


0491  REF  1 

DA92 

0493  REF  1 


1 103 


RADUSE  EQUALS  SAMPLIM 
SAMPL  SUM  ERASE  +3 


1100 


P,RT  AR.GET  EQUALS  SAMPLSUM 


0496 


REF 


1104  1 1 OS  TIMEHQLO  ERASE  +1 

1106  1107  TANG  FRASF  +1 

1106  MODEA  EQUALS  TANG 


0A97 

0498  PEF 


1 1 10 
1 1 10 


MODEB  ERASE  +1 

NS  AMP  EQUALS  MODEB 


0499 

0800  REF 


W5 


1112  DESRET  ERASE 

OL  DA  TAGD  EQUAL  S DE  SRE  T 


1113  1113  DESCOUNT  ERASE 


R0503  ******  P22  ****** 

050*5  REF  1 1100  RSUBC  EQUALS  RRTARGET 

AO  50  6 
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USER'S  PAGE  NC.  15  ED  S4 

BllJPRM  BOTH  P 20, P 22, R 12, R 04 
B ( 2 ) ,1  (2)  BO!  H 

1(6)  RR  P2C,P22,R04,V41 

B (2  ) 80T  H 

B(  2 ) , I RR 

B ( 2 ) * I RR 

0 (2  ) , I RR 

B ( 1 ) B OTH 


R ( 1 ) » I PR 

B ( 1 ) BCTH 


8(1)  RR 


( 6D  ) 

II6  1S-S  CSM  POSITION  VECTOR 


ASSEMBLE  REVISION  5<>  OF  AGC  PROGRAM  ZERLINA  6Y  ZOROASTER 


FP  A SAB  IF  A SSI  G NMF  NTS 

UNSWITCHED  FOR  ORBIT  INTEGRATION. 


0511 

C512 

0515 


1 1 14 
1116 
1 1 17 
1121 
1123 
1 125 
1133 


T DEC 

COLREG 

L A T 

LCNG 

ALT 

YV 


ERASE  +20  D 
EQUALS  TDEC 
EQUALS  COLREG 
EQUALS  LAT 
EQUALS  LCNG 
EQUALS  ALT 
EQUALS  YV 


«I  SCELLAN’ECUS  UNSWITCFEO. 


0521 
0 52? 
0523 
' 524 
352* 
: 526 
'527 
052  R 
0529 
0 5 3D 
05  31 
0 5 32 


1143 
1 144 
1 145 
1146 
1 150 
1152 
1154 
1 155 
1 l 56 
1157 
1 160 
1161 


1141 
1 142 

1143 

1 144 

1145 
1147 
1151 

1153 

1154 

1155 

1156 

1157 
1160 
1 161 


P40/RFT 
GENRE  T 
OPT  I ONI 
OPTI  ON  2 
OPT  ION  3 
LONGCADR 
LONGBA  SE 
LONGT  IME 
CDUTEMPX 
CDUTEMP  Y 
CDUTEMPZ 
PI  PATMPX 
P IPATMPY 
PI  PATMPZ 


ERASE 
ERA  SE 
ERAS  E 
ERASE 
ERASE 
ERAS  E 
ERASE 
ERASE 
ERASE 
ERA  SE 
ERAS  E 
FRASE 
ERASE 
ERASE 


'533 
0 534 
0535 


1 162 
1 163 
1 164 


1 162  D I SPDE  X ERASE 

1163  TFMPR60  ERASE 

1164  PRIOTIME  ERASE 


R f.  5 3 6 P2  7 (UPCATE  PRCC.RAM  > STORACE. 


0538 
D 5 39 
R 0 540 
0541 
D 542 

0543 

0544 

0545 
A 0546 


RETAIN  THE  CRDER  OF  COMPNUMB  THRU  IJPBUFF  +19D  FOR  DOWNLINK  PURPOSES. 


R EF 
REF 
RFF 
REF 
REF 


1167 
1 1 70 

1171 

1172 
1 173 


COPPNUMB  EQUALS  UPTEMP  +1 
UPOLDMOD  EQUALS  COMPNUMB  + 
UPVERB  EQUALS  JPOLDMOD  + 
UPCOUNT  EQUALS  UPVERB  + 
UPBUFF  EQUALS  UPCOUNT  + 


RD547 

0549 


TEMPORARY  FOR  RESTART  PROTECTION  IN  SERVICER 


OVTEMP  EQUALS  UPBUFF 
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(210) 


1(1) 
I (2) 
1(2) 
I (2  ) 
I ( 6) 
1(6) 


( 20D ) 

(WILL  HE  PUT  IN  E6  WHEN  THERF  IS  ROOM) 
R ( 1 ) R61  RETURN  C A C R • 

B(l)  NOUN  0 6 USE  S THI  S 

B ( 1 ) NOUN  06  US  ES  T HIS 

B ( 1 ) NOUN  06  USES  THI  S 
B ( 2 » LONGCALL  REGISTFP 

B ( 2)  LONGCALL  REGISTER 

8(1  )T  M P 

B ( 1 ) TMP 

B( 1 ) TMP 

0(1  )TMP 

B ( 1 ) TMP 

B ( l ) TMP 

B (1  ) 

0(1) 

B ( 1 ) 


( 26D) 

0(1)  UPDATE  VERB  ATTEMPTED. 

P (1  )TMP  SCRATCH 

B ( 1 )T  MP  NUMBER  OF  ITEMS  TO  BE  UPLINKED 
P ( 1 ) T MP  INTERRUPTED  PROGRAM  MM 
R(  1)  TMP  VERB  NUMBER 
0(1  )T  MP  UPBUFF  INDEX 

B ( 2 OD) 


(2  D) 

B ( 2 ) TEMP.  SAVE  DVTDTAL  FOR  RESTARTS. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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ERASABl  E A SSIGNME NTS 

SPECIAL  DEFINITION  FOR  SYSTEM  TEST  ERASABLE  PGMS. 

REF  ? LAST  106  1166  EBUF2  EQUALS  UPTEMP 


USER'S  PAGE  NO.  17  EO  $4 

(20) 

B ( 2 ) FOR  EXCLUSIVE  USE  OF  SYSTEM  TEST 


PERM  STATE  VECTORS  FOP  BOOST  AND  DOWNL  INK-WHOL  F MISSION- 


MAD) 


0556 
3’5  57 
0 558 


1717 

1225 

1233 


12  2 4 
1232 
1234 


RN  ERASE 

VN  ERASE 

P IPT  IMF  ERASE 


8(6  JPRM 
R (6) PRM 
B ( 2)  PRM 


(MUST  BF  FOLLOWED  BY  GDT/2  ) 


R3559 


-MUST  FOLLOW  PIPTIME- 


0561 
5<  2 
3563 
0 564 
0 565 

0566 

0567 
3563 
0569 
0 570 
357  1 
' M2 

AO  573 


REF 

REF 

RFF 

REF 

REF 

REF 

RFF 

REF 

RFF 

REF 

RFF 


LAST  107 


LAST  1 C 7 


1235 

1243 

1245 

1245 

1247 

1250 

1251 

1252 
1252 
12  54 

1255 

1256 


1256  G 

PGU I DF 
MASS 


ERASE  + 1 70 
EQUALS  G 
EQUALS  PGUIDE 
WEIC-HT/G  = MASS 

ABDELV  EQUALS  MASS 
ABDVACC  E0UA1  S ABDELV 
OVTHRUSH  EQUALS  ABDVACC 
AVEGEXIT  EQUALS  DVTHRUSH 
AVGFXIT  = AVEGEXIT 

PI  PAX  OLD  EQUALS  AVEGEXIT 
PI  PA  YOLO  EQUALS  PI  PAXOLD 
PIPAZOLD  EQUALS  PIPAYOLD 


3 ( 6 J P R M MUST  FCLLCW  PIPTIME 
8(2  )PRM  MUST  FOLLOW  G 

8(2)  PRM  MUST  FOLLOW  PGUIDE 

( L ) 

8(1) 

8(1) 

(2  ) 

8 ( 1 ) 

R(1  ) 

B ( 1) 


LUNAR  SURFACE  ALIGNMENT  P 59 


"576 

3577 

0578 


RLE 

REF 

RFF 


M7 

107 


1235 

1236 
124  1 


CURS  OR  rciJALS  GDT/2 
SPIRAL  EQUALS  GDT/2 
POSCnOE  EQUALS  GDT/2 


R(  1 ) TMP 
6(2  >TMP 
B(  1 ) TMP 


R 0 579 
0580 
*9581 
3583 


S 34/35.  5 TEMPORARY 
REF  4 LAST  10  7 1235 


EQUALS  GDT/2 


R(2)  TEMP.  SAVE  FOR  DVLVC. 


LSED  FOR  SUMMATION  CF  UPRUPT  CUP I NG  PRELAUNCH  C SYS  TEST  L FA  D IN  I 3D  ) 


2 LAST  107 


EQUALS  ABDELV 


R 0584 
0586 


P 76  DISPLAY  N84 

1252 


DELVOV  EQUALS  UPSIJM 


( 6D) 
I (6  ) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCASTER 

L ERASABLE  ASSIGNMENTS 

l i'587  PERMANENT  LEM  OAF  STORAGE. 


'>59  l 
)5°2 

A r.593 
A^'594 
A 1.5  95 
A .596 
A j 5 9 7 
a 50ft 
A m599 
ADSm 
A 06'./ 1 
A 0 6<"'  ? 
A06  C'T 
0604 
ADSDR 


1260 

1261 

1262 


1257  CH5MASK  ERASE 

1260  CH6MASK  CR  AS  E 

126  1 SPNOX  ERASE 

1262  RC  SFLAGS  ERA  SE 


1263  1269  T5ADR  ERASE  +1 


ERASAPLES  FOR  RAfAP  R F AC  PROTECTION  (C13STALL) 


0610 
0611 
AC6 1 2 


1267 

127C 


ERASE 
ERA  SE 
ERASE 
ERASE 


V fc l 3 RADAPEAD  STORAGF 

3615  1271  1272  TT0TI3  ERASE  +1 

A 06 1 6 


RC  S FAILURE  MONITOR  STORAGE 

1273  1273  PVALVEST  ERASE 


R 062 1 ■ KALC  MANU/DAP  INTERFACE. 


06  29 


1279 

1275 

1276 


1279  OELPERGR  ERASE 

1275  DEL  3 FR  OR  ERASE 

1276  DELRERCR  ERASE 


RD62‘> 


MOOE  SWITCHING  FRASABLE. 


R 0627 
062  8 
0629 


RETAIN  THE  ORDER  OF 


I MODES 30 
1277 
1300 


ANC  I MODES  33  FOR  DOWNLINK  PURPOSFS. 
1277  I MODE S 3 0 ERASE 

1 300  IMODES33  ERASE 


1 
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( 6D  ) 


B ( 1 ) PR  M 

BlllPRM  JET  FAILURE  MASK. 

R(  1 ) 

AIJTCPI  LOT  FLAG  WOPC 
BIT  ASSIGNMENTS: 

1)  ALTERYZ  SWITCH  (ZEROORD 

2)  NEE OLE R SWITCH 

3)  NEEDLER  SWITCH 
4 ) NEEDL  ER  SW  ITCH 
5)  NFEOLER  SWITCH 

9)  JUST- IN-DETENT  SWITCH 

10)  PB  IT  - MANUAL  CONTROL  SWITCH 

11)  ORBIT  - MANUAL  CONTROL  SWITCH 

12)  PSK1P  CONTROL  (PJUMPADR) 

13)  l/ACCJOB  CONT  PCL  (ACCSET) 

GENADR  OF  N F XT  LM  DAP  T5RUPT.  s=  2CADR 
BBCON  OF  NEXT  LM  DAP  T5RUPT.  2CADR 


( 4D  ) 


B ( 1 ) OS AVE  FOR 
B ( 1 ) F BANK  SAV 
B ( 1 ) NE  G . T I v u 
BI1  ) DELTA  T IM 


C13STALL  USERS. 

E FOR  Cl  3 ST  AL I . 

OF  SCALAR  READ. 

E FROM  SCALAR  READ  TO  T 5. 


( ?D) 

B (2  ) LATEST  ESTIMATE  OF  TIME  TO  IGNITION 


( 1 ) 

B < 1 ) 


PRM 


( 30) 

R(  1 ) PRM  COMMANC  L ACS- 
B(l) PRM 
B(  1 )PRM 


(9  0 ) 


B(l) 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


FRA  SAB  LF  ASSIGN  ME  NTS 


0530 

0631  REF 

0632  REF 
3633  REF 

0634 

0635  REF 

0636 


1 

2 LAST  109 

3 LAST  10  9 


1301 
1 301 

1302 
13C3 
1304 

1306 

1307 


1303 


1306 

1307 


MODECADR  ERASE 
IMUCAOR  EQUALS 
OPTCAOR  EQUALS 
RADCADR  EQUALS 
ATTCADR  ERASE 
ATTPRIG  = 

MARK  STA  T ERA  SE 


+ 2 

MODECADR 
MOCECACR 
MCDECADR 
+ 2 

ATTCADR 


+2 


* 0637 


T4RUPT  ERASABLE. 


inc  1310  D SR  UP  T S W ERASE 

1311  1311  LGYR3  ERASE 


* 0641 


RENDEZVOUS  RADAR  TASK  STORAGE 


364* 

0644  REF  1 

0645  REF  1 

A0646 


1312  1314  RRRET  ERASE  +2d 

1313  ROES  EQUALS  RRRET  +1 

1314  RRINDFX  EQUALS  ROES  +1 


R 0647  M F A S UP F ME  N T I NC  OR  PCRAT I CN 


3 6 49 

065  0 
0651 
3652 


1115  1315  WI  XA 

1316  1316  WIXB 

1317  1317  ZIXA 

1320  1320  ZIXB 


ERASE 
ERASE- 
ERAS  E 
ERASE 


R 0653 


LANCING  RACAR  P4DLCAC 


0655  *REF 


1115 


LRWH1  EQUALS  WIXA 


R 0 656  AGS  OCWNL  INK  10  CODE  FOR  RESTART  PURPOSES 

065B  4 1321  1 321  AGSWORO  ERASE 


R3659  SOME  MISCELLANEOUS  UNSWITCHED. 


0661 

0652 

0663 

"664 

R0666 


L FSS  IS  MORE. 


1 *22  1322  RATEINCX  ERASE 

n23  1 325  DELAYLCC  ERASE  + 2 

1326  1326  LEMMASS  ERASE 

1327  1327  CSMMASS  ERASE 


R 0666 


RENDEZVOUS  ANT  LANDING  RACAR 


DOWNLINK  STORAGE. 


R 660  (NORMALLY  LSFD  DURING  P2  0 , BUT  MAY  ALSO) 

R0669  (BE  REQUIRED  FOR  THE  V62  SPURIOUS  TEST.) 


9:12  CCT.  21,1970  ZERASE 
USER  'S  PAGE  NO.  19 
B (3  ) P RM 


.038  PAGE 
EO  S4 


109 


B ( 3) PRM 


( 2D) 


( 1) 


( 30  ) 

9 ( 1 ) T MP  P20'S,  PERHAPS  R29  S P12 
B ( 1 ) TMP 
B (1  )TMP 


( 40  ) 

P(1  ) 
B(  1 ) 
B ( 1 ) 
B ( 1 ) 


( ID) 

R ( 1 > P.L.  P 64  LR  WEIGHTING  FUNCTION 


(6DI 

( 1)  USED  RY  KALCMANU 
KEEP  CONTIGUOUS  W.  CSMMASS  (l)EACH 


( 70  ) 


PAGE 


GAP:  ASSEMBLE  REVISION  So  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L ERASABLE  ASSIGNMENTS 

R3673  (PLEASE  KEEP  IN  THIS  ORDER) 
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USER'S  PAGF  NO.  20  EO  S4 


0671 

0672  REE  1 

3673  PFF  1 

0674  REF  1 

0675  RFF  1 

0676  RFF  1 

0677  PFF  1 


1331 
1132 
1333 
I 334 

1135 

1336 


1336 


DNRRANGE 
DNRRDOT 
DNI  NOE  X 
CNLRV  EL  X 
DNLPVELY 
DNLP  VELZ 
DNLRALT 


ER  A SE  +6 

EQUALS  DNRRANGE  +1 
EQUALS  DNRRDCT  +1 
EQUALS  DN  INDEX  +1 
EQUALS  DNLRVELX  +1 
FOULS  DNLPVF  LY  + 1 
EQUALS  DNLPVEIZ  +1 


B(  1 ) TMP 
B ( 1 ) TMP 
B ( 1 )TMP 
R(  1 ) TMP 
B ( 1 )T  MP 
B( 1 1 TMP 
BC1)  TMP 


P 3 678 


RADAR  — RR  AND  LP 


(1  D) 


0680 


REF  2 LAST  110 


1 332 


RADBITS  EQUALS  DNINDFX  R(1)PRM  SHOWS  TYPE  OF  RADAR  READ 


R 0 6 8 1 


INCORPORATION  UNSRITCHED. 


0683  REF  5 LAST  99  0 130 

A 0684 


W.  IND  EQUAL  S B UF 


(in ) 


RD6B5 
f 6 87 


SUBROUTINE  BALLANGS  OF  R EC. 

1337  1337  BALLEXIT  ERASE 


(1  D) 

R(1)SAVE  LOCATION  FOR  BALLINGS  SUBR  EXIT 


RQ688 


SOME  LFM  DAP  STORAGE. 


(4D  ) 


0690 

0691 

3692 

0693  RFF 
A 0694 


1140 
1341 
1143 
1 143 


1340 

1342 

1343 


DA  PDA  TR 
T EVENT 

DB 

DBVAL  1 


FRA  SE 
ERASE 
ERASE 


EQUALS  DB 


B ( 1 ) DSP  DAP  CONFIG. 
H( 21  DSP 

P ( 1 )T  MP  OFAD  BAND. 
B( 1) TMP 


NOUN 


87  USED  IN  P 5 2 


AUTO  OPTICS 


(20) 


0697 

0698  REF 
A06  99 


1344  1345  AZ 

1345  EL 


ERASE  + ID 

EQUALS  AZ  +1  D 


AZ  AND  EL 


MUST  BE  CONTIGUOUS 


< 0700 
370? 
AU70-1 


P63  , 


P64,  P65  , 


P66  , ANT  P67. 
1346  1346 


WC  H PH  A SE  ERASE 


1 0704 


PADLOADS  FOR  R?  LUNAR  POTENTIAL  MODEL. 


( 2D  ) 


AO  708 


E 1 J 2 2p  2M 
E32C31  RM 
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ERAS  A 01  F ASS  IGNMENTS 


USER'S  PAGE  NO.  21 


A 0709 
R0710 

0712 

0713 
A?  7 1 A 


ERASABLESFOR  TRUNNION  AND  SHAFT  COMMANDS 


R A7 1 5 
i*717 
A?  7 1 3 


R22  OF  P20 


1353  WHCHREAD  ERASE 


LANDING  PACLCAC 


0721 

0722 
A "723 
A3  724 
A 0725 
R 0726 
A)  728 

0729 

0730 


1353 

1354 


ELBIAS  EQUALS  WHCHREAD 
1354  TOOFEW  ERASE 


TLOSS  INDICATORS  FOR  DOWNLINK 


13  55  13  55  SERVDURN  ERASE 

1356  135o  DUMLOOPS  ERASF 


I ID  ) 

B(l)  PL  LPD  ELEVATION  BIAS,  PI  RADIANS. 

P(l)  TOO  FEW  THROTTLINGS  PER  OMISSION: 
ONE  LESS  THAN  NO.  THROTTLES  REQUIRED 
BETWEEN  SKIPPED  THROTTLES 
1466  ALARM  IF  THROTTLINGS  <=  TOOFEW 
(2D) 

R(l)  AT  SERVOUT:  TIMF1  - PIPTIME  +1 
B « 1 > LOOP  COUNTER  IN  DUMMY  JOB  AT  ADVAN 


SELF-CHECK  ASSIGNMENTS. 


30733 

) 7 34 
( 7 ^ H 

r*  7 34 

0737 

0738 
3 7 39 

0741 
3 7 42 

0743 

0744 
074  5 
0746 
3747 
07^8 


REF 
P EF 
RTF 
REF 
REF 
REF 
RFF 
REF 
REF 
P FF 
REF 
REF 
RFF 
RFF 


1357 
1357 
1 360 
136  1 

1362 

1363 
1365 
1 366 

1371 

1372 

1373 

1374 

1375 

1376 

1377 


(OC  NOT  MOVE,  S-C  IS  ADDRESS  SENSITIVE) 


SELFERAS  ERASE 
SFAIL  EQUALS 
ERESTORE  EQUALS 


SEL  FRE  T 
SMODE 
ALMCADR 
ER  COUNT 
SC  CUNT 
SKEFP1 
SKEEP2 
SKEEP3 
SK  EEP  4 
SKEEP5 
SKEEP6 
SK  EEP  7 


EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 


1357  - 1377 
SELFERAS 
SFAII  +1 

5 RE  STORE  <-1 
SEL  FRET  +1 
SMCDE  +1 

ALMCADR  +2 
ER  COUNT 
SC  CUN  T 
SK  EEP  1 
SKEEP2 
SKEE  P3 
S KEEP  4 
SKEEP5 
SKEFP6 


+3 


B(  1 
B ( 1 
B ( 1 
8 ( 1 
B (2 
R ( 1 
8(3 
6(1 
B(  1 
B ( 1 
8 ( 1 
R ( 1 
B ( 1 
B(  ) 


MUST  NOT  BE  MOVED  *** 

> 

) 

) RETURN 
) 

) ALARM-ABORT  USER'S  2CADR 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


ERASARI.E  ASSIGNMENTS 

P3 30 ■)  EBANK-3  ASSIGNMENTS 

3001  E3  ,1400 

RT0'2  WAITLIST  TASK  LISTS. 


SETLOC  14C< 


3 6 

3008 


PFSTART  STORAGE. 

E3  ,1432  E3  » 1433 


MORE  LONGCALL  STOR  AG  E.  I M L ST  BE  IN  LST1  S BANK. 

63,1434  63,1435  LONGEX IT  ERASE 


R 30  1 2 
3oH 

301  5 
3316 
3017 
30  18 

3019 

3020 

3021 

3022 

3023 
3324 
3025 


PHASE-CHANGE  LISTS  FART  II. 


E 3,  14  36 
E3 ,1437 
E 3,  1440 
E3,  1441 
E 3 , 1 442 
FT,  1443 
E3 ,1444 
63,1445 
E 3,  1446 
E3  ,1447 
E 3,  1450 
F3, 1451 


F 3,  1436 
F3 ,1437 
F 3, 1440 
E3,  1441 
F3  ,1442 
E 3,  1443 
E3 , 1444 
E 3,1445 

E 3,  1446 
E3.1447 
E 3, 1450 
E3, 1451 


PH  SNA  ME  1 
PHSR31 
PH  SNA  ME  2 
PHSBR2 
PHSNAME3 
PH  SRB  3 
PHSNAM  E4 
PH  SBB4 
PHSNAME5 
PHSRB5 
PH  SNA  ME  6 
PHSBB6 


ERA  SE 
ERAS  F 
ERASE 
ERASE 
ERAS  E 
ERASE 
ERASE 
ERASE 
ERA  SE 
ER  ASE 
ERASE 
ERASE 


R 30  26 

3028 

3029 

3030 

3031 

3032 
30  33 
3034 
30  35 


IMU  COMPENSATION  PARAMETERS. 

63,  1452  F 3,  1452 
63  ,1452 

E 3,  1453  E 3,1453 
E 3,  1453 

63,1454  E3  ,1454 
E 3,  1455  E3, 1455 

E3 , 1 456  63,1456 


PRIASX  ERASE 
PI  PA  HI  AS  = 

P I PA  SC  FX  ERASE 
P IP  A SC  F = 
PBIASY  ERASE 
PI  PA  SC  F Y ERASE 
PBIASZ  ERASE 


E 3 , 1 4 5 7 E3  ,1457  PIPASCFZ  ERASE 


30  36 
30  37 
30  38 


E 3,  14  60  E 3,  1460  NBO  X 
E3  , 1 46  1 F3 , 146  1 NPCY 
E 3 i 1 462  63,1462  fvBDZ 


ERASE 

ERASE 

ERASE 
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USER 'S  PAGE  NO.  22  E 0 S4 


(260) 

R l 80)  PR  M DELTA  T S. 

B ( 1 80  )P  R M TASK  2C  A DR  ADDPE  SSE  S. 


( 2 0) 

B ( 2 ) PRM  SAVF  BB  AND  0 FOR  RESTARTS. 


(2  0) 

B ( 2)  TMP  MAY  BE  SELDOM  CVERLAYED. 


( 12D ) 

8(1) PPM 
B ( DPR'-’ 
R ( 1 ) PRM 
B(  1 ) PRM 
B ( 1 )PRM 
B ( 1 >PRM 
R ( 1)  PRM 
R ( 1 ) PRM 
8(1) PRM 
B ( 11PRM 
B ( 1 ) PRM 
B(  1 ) PRM 


( 22D ) 

B ( 1 ) PI  PA  BIAS,  PIPA  SCALE  FACT  R TERMS 
INTERMI  XEO. 


GY R C BI  AS  DRI  FTS 


GA P:  ASSEMBLE  REVISION  5b  OF  AGC  PRCC-RAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,  1970  ZERASE 


038  PAGE  113 


L FRASABLE  ASSIGNMENTS 


USER'S  PAGE  NC.  23  EC  S4 


30A1 


E3  ,1463  E3 , 1463 
E 3 , 1 A 6 A E 3 , 1 4 64 
E3,  1 465  E -i  1 A 65 


AD  I AX  ERASE 

AOIAY  ERASE 

ADIAZ  ERASE 


ACCELERATION  SENSITIVE  DRIFT  ALONG  THE 
INPUT  AXIS 


E3 , 1 A66  E3  ,1466  ADS  RAX  ERASE  ACCELERATION  SENSITIVE  DRIFT  ALONG  THE 

F3,  1467  E 3,  1467  AO  SR  A Y ERASF  SPIN  REFERENCE  AXIS 

E3  ,1470  E3 , 1470  ADSRAZ  ERASE 


30  4 5 


E 3 , 147  1 E 3,1476  GCCMP 


ERASE  +5 


CONTAINS  COMPENSATING  TORQUES 


3046  REF  1 

3047  PFF  2 LAST  113 


E3,  1471 

F3  ,1474 


COMMAND  EQUAL  S GCOMp 

'6 DU  IN  C EQUALS  GCOMP  +1 


E 3,  1477  E 3 , 1477  GCOMPSW  ERASE 


* 30  50 


STATE  VECTORS  FOR  ORBIT  INTEGRATION. 


( 4 4 D ) 


R3?52 
R 3053 
R 30  54 
R 3 C 5 5 
T 3056 
R 30  57 


(OIFEQCNT  THRU  XKEP  MUST  8E  IN  SAME 
EBANK  AS  RRECTCSM,  RR  EC.  TL  EM  ETC 
BECAUSE  THE  COPY-CYCLES  (ATCPCSM, 

P TO  AC  SM  ETC)  ARE  EXECUTED  IN  RASFC. 

ALL  OTHER  REFERENCES  TO  THIS  GROUP 
ARE  BY  INTERPRETIVE  INSTRUCTIONS.) 


E3  , 1 500  E3.1553  OIFEQCNT  ERASE  +43D  8(1) 

(UPSVFLAG...XKEP  MUST  BE  KEPT  IN  ORDER) 


3060  REF  1 

3061  RFF  2 LAST 

336?  PEE  ] 

3063  RFF  1 

3064  REF  1 

3365  REF  1 

3066  REF  I 

3067  REF  1 

3068  PFF  1 

3069  RFF  1 


E3,  150  1 
E3  ,1502 
E 3,  1510 
E3, 1 516 
F.  3, 152  0 
E3,  1526 
E3  ,1534 
E 3 , 1542 
E3,  1550 
E3  ,1552 


UPSVFLAG  EQUALS  OIFEQCNT 

RRECT  EQUALS  JPSVFLAG 

VRECT  EQUALS  RRECT 

TFT  EQUALS  VRECT 

TDELTAV  EQUALS  TFT 

TNUV  EQUALS  TDELTAV 

PCV  EQUALS  TNUV 

VCV  EQUALS  RCV 

TC  EQUAL  S VC  V 

XKEP  EQUALS  TC 


+ 1 
+ 1 
+6 
4 6 
+2 
+6 
+ 6 
46 
+ 6 
+ 2 


B ( 1 ) 
B ( 6) 
B (6  ) 
0(2) 
B(6) 
8(6  ) 
8 ( 6) 
B (6  ) 
8(2) 
8 ( ?) 


R3070 


CONIC  ROUTINES  STORAGF 


(2  0) 


3072  REF 


E3 , 1 5 52 


XPREV  EQUALS  XKEP 


I ( 2) TMP 


R 3(  73 


PERMANENT  STATE  VECTGPS  A AD  TIMES. 


R 3 075 


(DC  NOT  OVERLAY  WITF  ANYTHING  AFTER  BOOST) 


(97  D ) 


GAP:  ASSEMBLE  RFV  IS  ION  86  OF  AGC  PROGRAM  ZFRLINA  BY  73RUASTE3 


L ERASABLE  0 SSIG  APE  NTS 


93375 


(PPFCTCSM  ...XKEPCSV  MIST  BE  KEPT  IN  THIS  CRDE  R) 


3t  77 

30  78  P F F 1 

3079 

3080 

30  81  REF  1 

3082 

3083 

3084 

3085 

3086 
3387 


E3,1554  F3, 1561 

F3  ,!  55'. 

E?,  15E2  E 3,  1567 
E3  » 1 570  E3  f 1 57  1 

E 3 1 1570 

E3,  1572  E 3,  1577 
E3  ,1600  E3.1605 

E3.16C6  63,1613 

E 3,  1 614  F3.1621 

E3,1622  F3,1623 

E3,  162/,  F 3,  16  25 


RRECTCSM  ERASE 
RRECTOTH  = 

VRFC  TO  SM  ERASE 
TETCSM  ERASF 
TETCTHER  = 
DELTACSM  ERASE 
NUVCSM  ERASE 
RCVCSM  ERASE 
VCVC.SM  ERASE 
TCCSM  ERASE 
XKEPCSM  ERASF 


+ 5 

RRECTCSM 
+ 5 
+ 1 

TETCSM 
+ 5 
+5 
+5 
+ 5 

+ i 


R 308  8 


(PRECTLEM  ...XKEPLEF  RUST  BF  KEPT  IN  THIS  ORDER) 


3C9 1 
3092 
3 093. 


30  0/* 
3 095 

3096 

3097 

3098 
309Q 


PEF 


PEF 


F 3,1626  C 3,1633 

E-1,  1626 

E3»1634  F3.1641 

E 3,  16  4 2 E 3, 1 643 
E3, 1642 

E 3 , 1 644  F 3 ,1651 
E 3 , 1652  F 3,  1657 
,1  E3 , 1665 

E 3,1666  E 3 , l 673 
E 3 , 1674  E 3,  1675 
E3  , 1 67b  E3.1677 


RRECTLEM  ERASE  +5 
RR  FCTHI  S = RRFC  TLFM 

VRECTLEM  ERASE  +5 
TETI.EM  ERASF  +1 
TETTHIS  = TETLEM 

DELTALEM  ERASE  +5 
NUVLEM  ERASE  +5 
RCVLFM  ERASE  +5 
VCVLEM  ERASE  +5 
TCLEM  ERASE  +1 
XKEPLEM  ERASE  +1 


31  < i 

3 10  ? 
3133 
A 3 1 C 4 


E3,  1 7C0 
E3, 1706 
E3 ,1  711 
E3, 1713 


F 3, 1705 
E3,  17  1’ 
E 3 ,1712 
E 3,  1714 


X789 
TFPHFM 
-AYC 
A XO 


ERASE  +5 
ERASE  +2 
ERAS  E 
ERASE 


+1 
+ 1 


R7!-'5 

3107 
31'.  8 


3109  REF 


STATF  VFCTORS  FOR  D CViMI  A K. 

E3,  1715  E3t  1722 
E3.1  723  E3  ,1  73C 


LAST  114  E 3,  1570 


+ 5 
+ 5 


R 3110 

SHI  ffi 


SERVICER  FOR  LUNAR  ASCENT  ANC  CESCENT 


EQUALS  R-CTHER 
EQUALS  V-OTHER 


*3114  REFSMMAT. 
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B ( 6)  PR  M C SM  VARI  ABLES. 

B (6  ) PRM 
B ( ?) PR  M 


B (6 ) PRM 
E ( 6 ) P RM 
B (6 ) PRM 
B ( 6) PR  M 
R(  2 )PR M 
B(?  ) PRM 


H (6  ) PRM  L EM  VARIABLES 


B ( 6 )PRM 
B (2  ) PRM 

B ( 6 )PRM 
B(6) PRM 
B ( 6 ) PR  M 
B (6  ) P RM 
B ( 2 ) PRM 
B ( 2 )PRM 


(120) 


B (6) PRM  POS  VFCT  ( OTHER 
B ( 6 )PR  M VEL  VECT  (OTHER 


VECH)  FOR  DNL1NK 
VECH  I FOR  DNLI  NK 


T IME 


( CT  HER  V FCH  ) FOR  DNL  INK 


( 120) 

1(6)  FOR  UPDATE  OF  CM  STATE  VECS  BY  LM. 
I (6) 


( 18D) 
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ERASABLE  ASSIGNMENTS  USER'S  PAGE  NC.  25  EO  S4 

3116 

E3  » 1 7 3 1 E3 » 17  52  REFSMM  AT  ERASE  +170  I(18D)PRM 

R 3117 

ACTIVE  VFH1CLE  CENTANG.  MUST  RE  DISPLAYED  ANYTIME  (ALMOST.)  (2C) 

3 1 1 g 

A 3120 

63,  1753  E3,  1754  ACTCENT  ERASF  +1  1(2)  S-S  CENTRAL  ANGLE  BETWEEN  ACTIVE 

VEHICLE  AT  TP  I TIG  AND  TARGET  VECTOR. 

R 3 1 2 1 

****  USEC  IN  CONICSEX  (PLAN  INERT  ORIENT)  **** 

3122 

A 31 23 

REF  1 E3  .1706  TIMS'JBO  EQUALS  TEPHEM  C SEC  B-42  (TkIPLE  PRECISION) 

R3124 

LPS20.1  STORAGE  -ALL  ARE  PRM  - (9D) 

3126 

3127 

3128 

A 3120 

E3 ,1 755  E3 » 1 755  LS21X  ERASF  1(1) 

E 3 ? 1 7 56  E 2 » 1 7 63  LOSVEL  ERASE  +5  1(6) 

E3.1764  E3,  1765  MLOSV  ERASE  +1  1(2)  MAGNITUDE  OF  LCSt  METERS  B-29 

R313^ 

31  92 

A 3133 

*****  p22  *****  (OVERLAYS  LPS  20. 1 STORAGE)  (6D) 

REF  1 E3  ,1756  VSUBC  EQUALS  LOSVEL  I (6)  S-S  C SM  VELOCITY  VECTOR 

R3134 

PADLOADED  ERASABLES  FOR  P20/P22  (6D) 

3136 

31 

3138 

3139 

A3 1 49 

E 3 1 1 766  E3 , 1 767  RANGEVAR  ERASE  +1  1(2)  RR  RANGE  ERROR  VARIANCE 

E3,  1 770  F 3 * 1 7 71  RATEVAR  ERASE  +1  1(2)  RR  RANGE-RATF  ERROR  VARIANCE 

E3.1772  E3 , 1 77  2 RVARMIN  ERASE  1(1)  MINIMUM  RANGE  ERROR  VARIANCE 

E 3 , 1 773  E 3 »1 773  WARMIN’  ERASE  1(1)  MINIMUM  RANGE-RATF  FRROR  VARIANCE 

l 3141 

P32-P33  STORAGE  (20) 

3143 

A 31  44 

A 3146 

E 3,  1 774  E 3»  1 775  TCDH  ERASE  +1  1(2)  T2  CDH  TIME  IN  CS  . (ALSO  DOWNLINKED 

( 20) 

3147 


E 3»  1776 


F J,  1777 


FRASFI  Li  ERASE 


2 SPARES 


P40(jf 

4001 


ASSEMBLE  REVISION  46  OF  AGO  PROGRAM  ZEPLINA  BY  ZOROASTER 
ERASABLE  ASSIGNMENTS 

E8ANK-4  ASSIGNMENTS 

E4,  1400  SETLOS  2000 
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is,  FOP  THE  MOST  PART  RESERVED  FOP  PAO  LOADED  AND  JNS  HAR  A EL  E ERASE. 


P 2 0 STORAGE.  -PAO  LOADED- 


E4  ,1400 
c , 1 4 0 I 
E4,  1 40 2 
E A , 1 403 
F 4,  1404 
E4, 1405 


F4 , 140- 
E 4,  1401 
F4,  1402 
E4  ,14-  3 
E 4, 14  04 
F4, 1405 


WRENOPOS  ERASE 
WRENDVEL  ERASE 
W SHAFT  ERASE 
WT  RUN  ERASE 
RMAX  ERASE 

V MAX  ERASE 


( 6 D ) 

B I 1 ) P L 
8(1  ) PL 
R(1 ) PL 
B ( 1 )PL 
B (1  ) PL 
B ( 1 ) P L 


KM*2 (-7) 
KM(  - 1/  2 ) *2(  11) 
KM*2 (-7 ) 
K M*  2 ( - 7 ) 
MET  ERS  * 2(  - 19) 
M/CSEC*2  (-7  ) 


4013 

4014 
A4:  1 S 


LUNA"  SURFACE  NA  VI  GATT  C N — PAD  LOADED 


P22  STORAGE.  -PAO  LOACEC- 


1 4020 


CONI  SEX  STORAGE. -FAC  LCACED- 
E 4,  1412  E 4 , 1 41 7 


( 6D  ) 

K6  1M00N  LIBRATIDN  VECTOR 


? 40  24  STORAGE  FOR  PL  S AND  TL  AND  - PAD  LCADS  - ORDER  IS  RETAINED  FOR  UPLINK. 


R4028 

4030 
40  31 
4332 
4033 
40  34 
4 03  5 
4036 
4 3 37 
4038 


RFF 
REF 
REF 
P EF 
REF 
REF 
REF 
REF 


INTEGRATION  STORAGE. 

E4 , 1430 
E4.1431 
E 4 , 1437 
E4  ,1445 
E4, 1453 
E4,  1 46  1 
E4 ,1467 
E 4,  1471 


P BODY 
ALPHAV 
BE  TA  V 
PH  IV 
PSIV 
FV 


ERASE 

EQUALS  PBODY 
EQUALS  ALPHAV 
EQUALS  BETAV 
EQUALS  PHIV 
EQ  UAL  S P SI  V 
EQUALS  FV 
EQUALS  ALPHAM 
EQUALS  BETAM 


(94  D> 

1(1) 
1(6  ) 

I (6  ) 

I ( 6) 

I (6  ) 

I (6) 

I ( 2) 

I (2  ) 

I ( 2) 


PEP.TU  R El  N’G  ACCELERATIONS 
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Fk  A SABLE  ASSIGNMENTS 


4039 
4 04  0 
404  1 
434? 

4043 

4044 

4045 

4046 

4047 
404  8 

4 4040 


RCF 
REF 
REF 
PFF 
RFF 
R FF 
REF 
RTF 
REF 
REF 


LAST  117 


E 4,  1475 
E4, 1477 
E 4 f 1 501 
F4 1 1 50 2 
F4  ,1503 
E 4 , 1 5 1 1 
E4,  15  1 1 
E4 , 1 5 1 2 
E 4,  15  20 
E4, 1522 


DT/2 

H 

I RETURN 

NORMGAM 

RPOV 

ORIGFX 

KEPRTN 

RPSV 

XKE  DNE W 

VECTAB 


EQUALS  TAU. 
EQUALS  DT/2 
EQUALS  H 
EQUALS  IRETURN 
EQUALS  NORMGAM 
EQUALS  RPQV 
EQUALS  ORIGEX 
EQUALS  ORIGEX 
EQUALS  RPSV 
EQUALS  XKEPNEW 


R40  5 0 
40  5? 


R04  - R77  FAIL  COUNTER 

E4  ,1566  E4 , 1 566 


RFAILCNT  ERASE 


SERVICER  STORAGF  (LSED  BY  ALL  POWERED  FLIGHT  PROGS.) 


REF 

REF 

RFF 


A 4058 

R 40  59 

4 061 
406? 
A4063 


E4 , 1 5 3 6 
E4 , 1 544 
F 4,  1552 


SOME  VE^R  82  STORAGE 


XN BP  IP 
YNBPI  P 
ZNBPI  P 


EQUALS  VECTAB 
EQUALS  XNPPIP 
EQUALS  YNBPI P 


V82  STORAGE 
2 LAST  117  E 4 , 1 560 


EQUALS  VECTAB 


R 40  6 8 


P31IV83)  STORAGE.  -SPARES  WITH  INTEGRATION  STORAGE- 


41  7? 
4373 
H4  074 


REF  2 LAST  117 

REF  ? LAST  117 

PFF  1 

RFF  3 LAST  117 

REF  4 LAST  117 


BASETHV  EQUALS  RPQV 

e AS  FT  IMF  EQUALS  P PSV 
BASEOTV  EQUALS  YLEM 

BASEOTP  EQUALS  VECTAB  +6 

BAS  FT  HP  EQUALS  VECTAB  +30D 
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USER ' S PAGE  NO.  27 


EO  S4 


I (2  ) 
1(2) 
Ml) 

I (1  ) 

1(1) 

1(1) 

1(6) 

I (2  ) 
1(3  60  ) 


(ID) 


B ( 1) 


( 18  D ) 

I ( 6) 
1(6  1 
I (6  ) 


( 6D  ) 

1(6  )T  MP  NORMAL  VELOCITY  VONE  /SQR  T.  MU 

( 26D) 

1(6)  BASE  V El  VECTOR  THIS  VEH 

1(2)  TIME  ASSOC  WITH  BASE  VECTORS 
1(6)  BASE  VELOC  VECTOR  OTHER  VEH 

1(6)  BASE  POS  VECTOR  OTHER  VEH 

BASE  PCS  VECTOR  THIS  VEH 


M 6) 
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* 4<  79 
R4!  fil 


'♦08?. 
A 4C83 


KEPLER  STTRAGF.  (KEFLFR  IS  CALLED  BY  PRECISION  INTEGRATION  AND  (2D) 
CONIC  S) 


E4,15h7  E4.1570  FPSJLONT  ERASE  +1  1(2) 


R3fc  STORAGE  (N90) 


(6D  ) 


4086 

4f.fi 7 P FT 
408 fl  PfF 


E4  1 157  1 E4  1 1576 
2 I AST  117  E 4 i 1 5 7 3 
1 E4,  1575 


YL  EM  ERASE  +5  1(2) 

YDCTLEM  EQUALS  Y LE M +2  1(2) 

PHILEM  EQUALS  YDOTLE  M +2  1(2) 


* 4^89 


VERB  83  STORAGE. 


( 18D) 


4331 

4092  RFF 


E4,  1577  E 4,  1620  RONE  ERASE  +17D  1(6) 

E4  ,1605  VONE  EQUALS  RONE  +6  I(6)TMP  VECTOR  STORAGE.  (SCRATCH) 


4093  REF 

4094  REF 


1 


4095  REF  1 


E 4,  16  13 
E4,  U 1 5 
E 4 , 1 6 1 7 


RANGE  EQUALS  VONE  +6  I ( 2 > 

RR  ATE  EQUAL  S RANGE  +2  1(2) 

RTHETA  EQUALS  RRATE  +2  1(2) 


R4096 


VERP  67  STORAGF 


(6  D) 


4098  REF  3 

4CQQ  RFF  1 

4100  REF  1 


LAST 


118  E4 , 1 5 7 1 

F4 , 1 573 
E4» 1575 


WWPOS  EQUALS  YL  EM 

WWVEL  EQUALS  WWPOS  +2 

WWBIA  S EOUAL  S WWVF  L +2 


B( 2)  NOUN  99  ( V6 7) 

R (2  ) NOUN  99  (V67) 
B ( 2 ) NOUN  99  ( V67  ) 


A 4 1 0 1 


R4132 


V 3 2 STORAGE . (CANNOT  OVERLAY  RONE  OR  VONE) 


(5  D) 


4104  REF 

4105  REF 
4136  REF 

A 4107 


5 LAST  117  E4 1 1530 

1 E 4 » 1 53 1 

1 E4.1533 


VB2FLAGS  EQUALS  VECTAB  +6  (1)  FOR  V82  BITS. 

TFF  EQUALS  V82FLAGS  +1  1(2) 

-TPER  EOUAL  S TFF  +2  1(2) 


R 4 1 08 
A4  1 1 C 

4111  REF 

4112  REF 

4113  REF 

A 41 14 


MORF  V 82  STORAGE.  (CANNCT  OVERLAY  RCN'E  OR  VONE) 


(6  D ) 


4 LAST  118  E4.1571 

1 E4.1573 

E 4 » 1575 


HP  ERM  IN  EQUALS  YL  EM  1(2)  SET  TD  300K  F T OR  35K  FT  SR30.  1 

RPADTEM  EQUALS  HPERM1N  +2  1(2)  PAD  OR  LANDING  RADIUS  FDR  SR  30.  1 

TSTART82  EQUALS  RPADTEM  +2  1(2)  TEMP  TIME  STORAGE  FOR  V32. 


R4115 


ALIGNMFNT  PL  AN  ETAR  Y- INER  T I A L TRANSFORMATION  STORAGE.  (1BD> 
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L ERASAHLE  ASSIGNMENTS 


USER  ' S PAGE  NO.  29 


EC  S4 


R 4 1 1 7 


UNSHARED  WHILE  LM  CN  LUNAR  SURFACE. 


A 1 1 8 

4119  PET  1 

4120  REF  1 

A 4 1 2 1 


E4,  16  2 1 F4,  1 642 

E4 ,1  627 
E 4,  1625 


GSA  V ERASE  +17D 

YNBSAV  EQUALS  GS  AV  +6 

ZNBSAV  F DUALS  YNBSAV  +6 


I (6) 
I ( 6) 
I (6  ) 


* 4122 


KALCMANU  STORAGE.  CAN  CVCRLAY  GSAV. 


(180) 


4124 

REF 

2 L AST 

119 

E4,  1621 

4125 

REF 

1 

F4  ,1621 

4126 

A4  1 2 7 

REF 

2 LAST 

119 

E 4 , 1621 

<4128 

CAN 

OVERLAY 

GSAV  WITH  CARE, 

MF  S EQUALS  GSAV  I (18) 

MFI  EQUALS  MFS  I 

KEL  EQUALS  MFS  1(18) 

USED  CURING  POWERED  DESCENT  ONLY. 


4 129  PFF 

4130  RFF 

4131  RFF 

4132  RFF 

4133  RFF 

4134  RFF 
A4135 


3 LAST  119  E 4,  1621 
F4, 1 643 

1 E4  ,1  645 

1 E 4,  1646 

1 E4.1647 

I E 4 , 16  50 


XNBR AD 
LRT  IME 
LRXCDU 
LRYCDU 
LRZCDU 
PI  PTEM 


GSAV 

XNBR AD  +22 

LRT  IME  +2 
LRXCDU  +1 
LRYCDU  +1 
LRZCDU  +1 


B ( 1 8 D ) BOPY-Pl  AT  FORM  MATRIX  AT  LRTIME 
B(?)  LR  CF  NTFR-PCT  NT  OF  LR  READ 

B(  1)  LR 

B ( 1 ) LR 

B(  1)  LR 

R (3  ) L R 


l 41  36 


P32-P35,  P72-P75  STORAGE. 


( 40D) 


4 140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 
* 4148 


E 4,  164  3 
E4, 1 645 

E 4,1  647 

E 4, 1644 
, 1646 

E 4 ,1650 

T1  TO  T 2 

T 2T0T  3 
ELEV 

ERASE 

ERASE 

ERAS  E 

+1 
+ L 
+1 

(2  ) 

( 2) 

(2  ) 

T IMF  FROM  CS  I TO  CDH 

E4,  165  1 

E 4, 1656 

UP  1 

ERASE 

+5 

(6) 

E4 ,1  657 

E4, 1664 

DELVE  ET1 

ERASE 

+ 5 

I ( 6) 

DV  C SI  I N REF 

E 4 , 1665 

E 4 , 1 6 7? 

DELVEET2 

ERASE 

+5 

I (6  ) 

DV.  CS  H IN  REF 

E4,  16  7 3 

E4,  17 

RACTl 

ERA  SE 

+ 5 

(6) 

POS  VEC  OF  ACTIVE  AT 

CS  I T IMF 

E 4 , l 7 C 1 

F4 ,1706 

PACT2 

ERASE 

+ 5 

(6) 

POS  VEC  OF  ACTIVF  AT 

CDH  TIME 

E4,  17C7 

F 4 , 1710 

RTSR1  / MU 

ERASE 

+ 1 

(2  ) 

SQ  ROOT  1/MU  STORAGE 

E4 , 1 7 1 1 

F4 , 17 12 

RTMU 

ERASE 

+ 1 

( 2) 

MU  STORAGE 

(THE  FOLLOWING  ERASARLES  OVERLAY  PORTIONS  OF  THE  PREVIOUS  SECTION) 


E4  ,1643 

E4,  1651 


EQUALS  T1T0T2 


EQUALS  DPI 


MID  GIM  ANGL  TO  DELVEET3 


4155  REF  1 

4156  RFF  1 


E 4,  1 67 1 DVLOS  EQUALS  RACTl 

E4  ,1701  ULOS  EQUALS  RACT2 


1(6)  S-S  DELTA  VELOCITY, LOS  COORD-DISPLA 
1(6)  S-S  UNIT  LINE  OF  SIGHT  VECTOR 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 

FRA  SABI  E ASSIGNMENTS 

A4157 


4158 


REF 


F4  ,1707 


NOMTPI  EQUALS  PTSR1/MU 
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12)  S-S  NOMINAL  T FI  TIME  FOR  RECYCLE 


4161 

4162 
A4163 


SOME  P 30  STORAGE. 


R 4 1 6 

416 

AT6 


THE  FCLLCWTNC  ARE  ERASABLE  LCACS  CURING  A PERFORMANCE  TEST. 


14.167  #****#«  THE  FOLLOWING  SECTIONS  CVFRLAY  V83  AND  DISPLAY  STORAGE  ***** 

R4168  V47  ( R 4 7 ) A GS  INITIALIZATION  PROGRAM  STORAGE.  (OVERLAYS  V83  ) 


P.36  OUT-OF-PLANE  RENDEZVOUS  DISPLAY  STORAGE.  (OVERLAYS  V83) 
LAST  118  E 4 , 1 5 77 


S-BAND  ANTENNA  G I MB  A L ANGLES.  DISPLAY  EO  BY  RO 5 ( V 6 4 ) . ( OV ERL  A YS  V83)  (10D) 


4179  REF 

4180  REF 
4101  REF 


E4, 1571 
E4 ,1573 
E4, 1575 


ALPHASB  EQUALS  YL  EM 
BETAS  B EQUALS  ALPHASB 
RLM  EQUALS  BETASB 


8(2)  DSP  NOUN  51  PITCH  ANGLE 
8(2)  DSP  NOUN  51.  YAW  ANGLE. 
1(6)  S S/C  POSITION  VECTOR. 


LSED  IN  S-PAND  ANTENNA  FOR  LM  *** 


NCUN  56  DATA  - COMPUTED  AND  DISPLAYED  BY  VERB  85. 


1(2)  P IT  CH/ ANT  ENNA  GIMBAL  ANGLE  REQUIRED 
1(2)  YAW  /TO  POINT  LM  STFEPABLE  ANTENNA 
/TOWARD  CENTER  OF  EARTH 
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ERASABLE  ASSIGNMENTS 

R0A(V62)  RADAR  TEST  STORAGE. 


USER'S  PAGE  NO.  31 


RSTACK  EQUALS  Yl  EM 


R(  P)  BUFFER  FOR  ROA  NOUNS 


RA  196 

3 A198 
A199 
A2  00 
A201 


INITVEL  STORAGE.  ALSO  USED  BY  P 3 1,  P 3 A , P 3 5,  P 7A  ,P  75  , P 1 0 , Pi  1 , M IDG  I M , SAO  . 1 AND  S AO  . 9 . (180) 


(POSSIBLY  RIMT  f,  VINIT  CAN  OVERLAY  DEL  V EET  l E 2 ABOVE) 


E A i 1 7 1 3 E A , 172  0 
EA,  172  1 FA,  1726 
FA,  1727  EA  ,1  734 


R1NIT 
VIN  IT 
VI  PR  I ME 


RA202  BALL  ANGS-AUTOMAT  If.  MANEUVER 


ERASE 
ERA  SE 
ERAS  E 


F (6  ) ACTIVE  VEHICLE  POSITION 
1(6)  ACTIVE  VEHICLE  VELOCITY 
1(6)  NEW  VEL  REQUIRED  AT  INITIAL  RADIUS. 


A A20A 
A20  5 
A206 
A207 
AA2Q8 

RA2  09 


EA,  17? 5 E A,  173  5 
EA,  1736  EA,  1736 
EA  ,17  37  EA  , 1 737 


FDAI  X 
FDAI  Y 
FDAIZ 


ERASE 
ERA  SE 
ERASE 


P3A-P35  STORAGE.  DOWNLINKED. 

E A , 1 7A0  E A , 1 7 A 1 D6LVTPF  ERASE 


1(1) 
Id) 
I ( 1) 


( 2D  ) 

1(2)  DELTA  V FOR  TpF 


A A217 
RA21B 


LPS20.1  STORAGE.  CALLFC  BY  P65. 


F A , 1 7 A 2 E A , 1 7 A 7 
EA,  1750  EA,  1755 

INITVEL  STORAGE.  ALSO  USED  BY  P : 1 , 3A , 35 , 7 A , 75  , SAO.  1 AND  DOWNLINKED. 

EA , 1 756  EA,  1763  DEL  V EET  3 ERASE  +5 


(6  D ) 

1(6)  DELTA  V IN  INERTIAL  COORDINATES. 


RA222 

A22A 
A 2 25 
A226 
A227 
A 228 
A A229 


SOME  ROA(  VC  3)— R 77  STORAGE. 


EA,  1766  EA,  1766 
E A , 1 767  EA ,1767 


EA,  l 770  E A, 1 770 


RTSTDEX  ERASE 
R T ST M Ax  ERASE 
RTSTBA  SE  ERA  SE 
RTSTLOC  ERASE 
RSAMPDT  ERASE 


(5  D) 

B(  1) 
B ( 1 > 
B ( 1 ) 
B(  1 ) 
B (1  ) 


SECOND  OPS  GLIDANCE  ( I UNAR  LANDING)  (OVERLAYS  KALCMANU  f.  P57  ) (6D) 

FA,  1653  ANG TERM  = PIPTEM  +3  1(6)  LANDING  GUIDANCE 


GAP:  ASSEMBLE  RFVISIQN  56  OF  AGC  PROGRAM  ZERL  INA  RY  ZOROASTER 
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9:12  OCT.  21  ,1970  ZERASE 
USER  *S  PAGE  MO.  32 


.038  PAGE 
EC  S4 


122 


R4234 


P 1 2 DOWNLINK  QUANTITIES 


(50) 


4236  REF  1 

4237  REF  1 

42  3 R PEF  1 


FA  ,1725 
E A, l 726 
EA, 1727 


A?  3°  REF 


FA  ,1  730 


LRXCOUOL 
LR  YC.OUOL 
L R 7C0U0L 
L PVT IMDL 


EQUALS  /LAND/  +2 
EQUALS  LRXCOUOL  +1 
EQUAL  S LRYCDUOL  + 1 
EQUALS  L P ZCOU  CL  +1 


R ( 1 ) L ANQING  R A OAR 
R ( 1 ) LANDING  RADAR 
0U)  LANDING  PA  CAR 
R(  2 ) LANDING  RADAR 


DOWNLINK 
mWNL  INK 
CCWNL INK 
DOWNLINK 


A^2A0 


RA2A1 


ASCENT  GUICANCE  FTP  LU N A P LANCING 


( 54.0) 


A2A  } PEF 

4244  REF 

4245  PEF 

4246  PEF 

42 47  PFF 

4248  RFF 

4249  REF 


2 LAST  119 
1 


F 4 , 1 6 5 3 
E4,  1655 
E4 ,1657 
EA,  166  1 
E4 ,1663 
F 4, 1666 

E4,  1667 


AT 

VE 

TTO 

TB  UP 

ROOT  D 

YOCTD 

ZDOTD 


EOUALS  UP1  +2  I (2  )TMP 

EQUAl  S A T ♦ 2 1(2)  TMP 

EQUALS  VE  +2  I(2)TMP 

EQUAL  S TTO  +2  I (2)  TMP 

EOUALS  TBUP  +2  I(?)TMP 

EQUALS  R DOT  D +2  I(?)TMP 

EQUALS  YDOTD  +2  I (2)  TMP 


ENGINE  OATA  --  THRUST  ACC*2  (9) 
EXHAUST  VELOCITY  * 2<7)M/CS. 
TAILOFF  TIME  * 2(17)CS. 
(M/MDCT)  * 2 (1  7 ) CS  . 

TARGET  VELOCITY  COMPONENTS 
S CAL  IN  G IS  ?(  7>M/C  S. 


4250  PEF  1 

4251  PEF  1 

A 4 26  2 

A 4253 

4254  REF  1 

4255  REF  1 

4256  REF  1 


F4 ,1671  /R/MAG  EQUALS  Z DOT  C *2  I(2)TMP 

EA,  1673  LAXIS  EQUALS  /R/MAG  +2  I(6)TMP 


EA,  17C1  YQOT  = LAXIS  +6  I(2)TMP  VEL.  NORMAL  TO  REF.  PLANE*2(-7) 

E4  ,170  3 ZOOT  EOUALS  YDOT  +2  I (2)  TMP  DOWN  RANGE  VEL  *2  (-7). 

E 4 , 1 705  GEFF  EQUALS  Z DOT  +2  I(2)TMP  EFFECTIVE  GRAVITY 


R4257  THESE  TWO  GROUPS  OF  ASCENT  GUIDANCE  ARE  SPLIT  RY  THE  A SC  E NT-DF  SCE  NT  SERVICER  SECTION  FOLLOWING  THIS  SECTION 


4259  PFF 
4263  REF 

4261  REF 

4262  REF 

4263  PEF 

4264  REF 

4265  REF 

4266  REF 

4267  RFF 

4268  RFF 

4269  RFF 

4270  REF 

4271  REF 
4 4272 


LAST  122 


E4,l 725 
E4,  1727 
E4, 1731 
E 4,1 733 
E4,  1735 
E4 ,1737 
E4  , 1741 
E4,  1743 
E4 , 1 745 
E 4,  1747 
F4, 175  1 
E4 ,1  753 
E4,  1755 


Y EQUALS  /LAND/ 

DRDOT  EQUALS  Y 

DY  DDT  EQUALS  DRDOT 

DZDOT  EQUALS  DY  DOT 

PC  ON S E QUAL  S DZ  DO  T 

Y CONS  EQUALS  PCONS 

PRATE  EQUALS  YCCNS 

YRATE  EQUALS  PRATE 

ATY  EQUALS  YRATE 

ATR  F QUA  LS  ATY 

ATP  FQUAIS  ATR 

YAW  EQUALS  ATP 

PITCH  EOUALS  YAW 


+ 2 I ( 2)  TMP 

+2  I (2  ) TMP 

+ 2 I (2) TMP 

+2  1(2  )TMP 

+2  I (2  ) TMP 

+2  I (2) TMP 

+2  I ( 2 )TMP 

+ 2 I ( 2 ) TMP 

+ 2 1(2)  TMP 

+2  I (2  )TMP 

6 2 I (2)  TMP 

+2  I(2)TMP 

+2  I (2 ) RMP 


OUT-GF-PLANE  DIST  *2(24)M 
ROOT  D - ROOT 
YDOTD  - YDCT 
ZDOTD  - ZDOT 
CONSTANT  IN  ATR  EQUATION 
CONSTANT  IN  ATY  EQUATION 
RATE  COEFF.  IN  ATR  EQUATION 
RATE  CCEFF.  IN  ATY  €OUATION 
OUT-OF-PLANE  THRUST  COMP. *2(9) 
RADIAL  THRUST  COMP. *2(9) 
DOWN-RANGE  THRUST  COMP 


R 4273 


SERVICE*  FOP  LUNAR  ASCENT  AND  DESCENT 


A4277 


REF 


G(  CSM  ) 
R(CSM) 
V(CSM) 


FOUALS  GEFF  +2  I 

EQUALS  R-CTHER 
F QUA  LS  V-CTHFR 


(6)  FOR  UPDATE  OF  COMMAND  MODULE  STATE 
VECTORS  BY  LEM;  ANALOGS  OF  GDT/2, 
R,  ANO  V,  RESPECTIVELY  OF  THE  CSM 
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USER'  S PAGE  NC.  33  EO  S4 


42  78 
4279 
A 42  80 


E4.1715  WM  EQUALS  G(CSM)  +6  1(6)  TMP  - LUNAR  ROTATION  VECTOR  ( SM) 

E4,  1723  /LAND/  EQUALS  WM  +6  B(2>  LUNAR  RADIUS  AT  LANDING  SITE 


R42B1 


NOTE:  R (C  SM)  AND  V(CSM  DEFINED  IN  E3. 


« 


P533? 

5001 
R 500  2 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
ERASABLE  ASSIGNMENTS 

EPANK-5  ASSIGNMENTS 

E5,)400  SETLOC  2400 

W-MATRIX.  ESSENTIALLY  LNSH ARABLE. 
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PEE 


1 


W 

ENDW 


A 5011 

R 501  2 

5013 

5014 
5315 
501  5 
5017 
5 318 

5019 

5020 

5021 

5022 
5323 

5024 

5025 
5325 
5027 
50  28 

5029 

5030 
A5  3 3 ] 
4503  2 

5033 
53  34 
5035 
5336 
5 C.  3 7 
50  38 
5339 

5040 

5041 

5042 


CVFPLAY  NUMBER  1 IN  EEANK 


PI  EASE  PRESERVE  THE  ORDER  CF  RBRFGX 


1(2)  PL  BIAS  VALUE  FOR  VELOCITY. 
REASONABILITY  TEST,  2(6)  M/C  S 


PEE 

REF 

REF 

PFF 

REF 

REF 

REF 

REF 

RFF 

RTF 

PFF 

PFF 

RFF 

REF 

REF 

REF 

REF 

RFF 


RFF 
RFF 
REF 
REF 
RFF 
REF 
PFF 
REF 
R EF 
REF 


E5 , 1402 
E 5 , 1 4 C4 
E 5,  14C6 
E5, 1410 
F 5,1 412 
E5,  1 4 14 
E5 ,1416 
E c ,1420 
E5,  1422 
E5 ,1424 
E 5,  1426 
E5 , 1430 
E 5, 1432 
E5,  1434 
E5  ,1436 
E F,144n 
E5,  1442 
E 5 , 1 444 


E 5 ,1  446 
E 5,  1450 
E5  ,1452 
E 5,  145  3 
E5,  1 454 
E 5 , 1 455 
E 5,  1456 
ES  ,1460 
E 5 , 1462 
F5,  1464 


THROUGH  TCG 
P BRFGX 
RAPFGX 
RHRFGZ 
RAPFGZ 
V BRFGX 
VAPFG  X 
V BRFGZ 
VAPFG  Z 
A BRFGX 
AAPFGX 
ABRF3Z 
AAPFGZ 
VBRFG* 
VAPF3* 
ABRFG* 
AAPFG* 
JBRFG* 
JAPFG* 


I A P PR  . 
EQUAL  S 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
E Q UA  L S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
E QUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
SEE  PA 


VE  LB  I A S 
R BRFGX 
RAPFGX 
R BRFGZ 
R APFG7 
VBRFG  X 
VAPFGX 
VBRFGZ 
VAPFGZ 
A BRFGX 
A A PFG  X 
ABRFGZ 
AAPFGZ 
VBRFG* 
VAPFG* 
ABRFG* 

A A PFG* 

J BRFG* 


1(2) 
1(2) 
I (2  ) 
1(2) 
K?  ) 
I (2) 
I ( 2) 
I (2  ) 
I (2) 
1(2) 
I (2  ) 
1(2) 
1(2) 
I (2) 
K ?) 
I (2  ) 
T (?) 
K 2) 


POSITION  TARGETS 


VELOC  IT  Y TARGETS 


ACCELERATION  TARGETS 


SCALFD  TARGETS  FOR  TTF/8CL 


RAMETER  TABLE  IN  LUNAR  LANDING  GUIDANCE  EQUATIONS  FOR 
INDIRECT  ADDRESSING  INTO  ABOVE  AREA. 


C A I NBRAK 
GAINAPPR 
T CGFBRAK 
TCG  I BRA  K 
TCGFAPPR 
TCG I APPR 
VI  GN 
RIGNX 
RIGNZ 
K I GN  X /B  4 


EQUALS 
FOUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 


JAPFG* 

3 A I NBRA K 
GA  INAPPR 
TCGFBRAK 
TCGIBRAK 
T CGFAPPR 
TCGI APPP 
V IGN 
R I GNX 
RIGNZ 


1(2  ) 
1(2) 
I(  1) 
1(1) 
Id) 
1(1) 
1(2  ) 
I ( 2) 
1(2) 
I (2) 


GAINS  FOR  GUIDANCE  FRAME  ERECTION 


TIME  CRITERIA  FOR  GUIDANCE  FRAME 


DES  IRED  S PEEC  FOR  POI 

DFSIPFD  'ALTITUDE*  FOR  IGNITION 

DESIRED  GROUND  PANGE  FOR  IGNITION 
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L ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NC.  35  EO  SR 


5043  REF  1 

5044  REF  1 

5045  REF  1 

5046  REF  1 

5047  REF  1 

5048  REF  1 

5049  REF  1 

5050  RFF  1 

50  61  REF  I 

5052  RFF  1 

5053  PFF  1 

5054  REF  1 

5055  REF  1 

5056  REF  1 

5057  RFF  1 

5058  P OF  1 

5059  REF  1 

5060  REF  1 


E5,  1470 
E5 ,1472 
F5,  1473 
05,1474 
E5 ,1475 
E5 , 1476 
E5 ,1477 
E 5, 15CO 
E5 , 150  2 
05,1503 
E 6,  1 5C4 
E 5,  15C5 
06,  15C6 
E 5,  1 5 C 7 
E 5,  1510 
E 5,  16  1 1 
05,  15  12 


KIGNY/8R 
K I GN  V /B  4 
LOWCR  IT 
HIGHCP  I T 
TAUHZ 
GHZ 

AH  ZL  1 M 
T EXTRA 
OELOFI X 
L R VM  A X 
LRVF 
LR  to V7 
LR  WVY 
LRWVX 
LR  to  VF  Z 
LRtoVF  Y 
LRtoVF  X 
LR  toVFF 


EQUALS 
EQ  UAL  S 
EQUALS 
EOUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EOUALS 
EQUALS 
EQ  UAL  S 
EQU  ALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 


KIC-NX/B4 
KIGNY/B8 
K I GNV/ B4 
LOWCRI  T 
H I GHCR  I T 
T AU  HZ 
QHZ 

A HZL  IM 

TEXTRA 

OE  LQF  I X 

LRVMAX 

LRVF 

LRWVZ 

LRWVY 

LRWVX 

LRWVF  Z 

LPWVFY 

LRWVF  X 


1(2) 
I (2) 
B(l) 
B ( 1 ) 
1(1) 
K 1 ) 
I(D 
I ( 1) 
I (2  ) 
B ( 1 ) 
B ( 1 ) 
B(1  ) 
B ( 1 ) 
B ( 1 ) 
B ( 1 ) 
B ( 1 ) 
P (1  ) 
B ( 1 ) 


(HIGHCRIT  MUST  FOLLOW  LOWCRI  T) 
TAU  FOR  P66H7 

FRACTION  OF  LAST  P66HZ  COMMAND 
LIMIT  FOR  P66HZ  COMMAND 
TIME  TO  ACHIEVE  P66HZ  COMMAND 
LR  ALT  REASONABILITY  PARAMETER 
LR  VEL  WEIGHTING  FUNCTIONS 
LR  VEL  WEIGHTING  FUNCTIONS 
LR  VFL  WEIGH  INC  FUNCTIONS 
LR  VEL  WEIGH  ING  FUNCTIONS 
LR  VEL  WEIGH  ING  FUNCTIONS 
LR  VEL  WEIGH  ING  FUNCTIONS 
LR  VEL  WEIG  ING  FUNC  IONS 
LR  VEL  WEIG  ING  FUNC  IONS 
LR  VEL  WFIG  ING  FUNC  IONS 


5361  REF  1 

5062  RFF  1 

506  3 PEF  1 

5064  PEF  1 

5065  RFF  1 

5066  REF  1 

5067  PEF  1 

5068  PEF  1 

5069  RFF  1 

5070  RFF  1 


E 5,  1513 
E5  ,1514 
E 5 , 15  15 
E5,  15  16 
F5 ,1517 
E 5,  1^20 
E5,  1521 
E5 , 1 522 
F 5,  1521 
E5  ,1524 


ABSCO  EQUALS  LRWVF F +1  B(1  ) 

ABSC1  EQUALS  ABSCO  +1  B ( 1 ) 

ABSC2  EQUALS  ABSC1  +1  B(l> 

A3SC  1 EQUAL  S AB  SC2  +1  B(l) 

A0SC4  EOUALS  ABSC3  + 1 B ( 1 ) 

SLOPE  0 EQUALS  ABSC4  +1  P(1  ) 

SLOPF1  EQUALS  SLOPEO  +1  B ( I ) 

SLCPE2  EQUALS  SLOPE1  +1  B(  1 ) 

SLOPE  3 EQUALS  SLCPE2  +1  R(1) 

SL0PE4  EQUALS  SLOPE3  +1  R(  1) 


ABSCISSAE  DEFINING  TERRAIN  MODEL 


SLOPES  DEFINING  TFRRAIN  MODEL 


6 LAST 

7 LAST 


AR  VEL*  EQUALS  RUF  B C 1 ) LR  TEMP 

VSELECT*  EQUALS  3 UF  +1  8(1)  LR  TEMP 


50  7 3 

5074 

5075 

5076 

5077 

5078 
50  79 
5 080 
5C8! 

5082 

5083 
50  84 
5085 
50  86 

5087 

5088 
508Q 


RFF 
REF 
REF 
REF 
REF 
REF 
REF 
RFF 
RFF 
REF 
REF 
REF 
RFF 
REF 
R EF 
REF 
REF 


05,1525 
E 5,  1626 
E5 , 1 527 
E 5 , 1 530 
F5 , 1531 
E5  ,)  532 
F 5 , l 6 ? 3 
E5, 1634 
E5 , 1 536 
F 5,  1540 
E5,  1542 
E 5 ,1 544 
E5,  1546 
E5 ,1550 
E 6,  1552 
F5,  1554 
E5,l 556 


ROCSCALF  EQUALS 
ROHZSCAL  EQUALS 
TAURODL  EQUALS 
TAURODB  EQUALS 
VERCRI  T EQUAL  S 
MINFORCE  EQUALS 
MAXFORCE  EQUALS 
J1PARM  EQUALS 
KIPARM  EQUALS 
J2PARM  EQUALS 
K2PARM  EQUALS 
THETCRIT  EQUALS 
RAMIN  EQUALS 
YL  IM  EQUALS 

ABTROOT  EQUALS 
CQSTHET1  EQUALS 
CCSTHET2  EQUALS 


SL0PF4 
RODSC  ALF 
ROHZSCAL 
T AURODL 
TA  URODB 
VERCK  IT 
MTNFCRCE 
MA  XFORCE 
J I P ARM 
K 1 PARM 
J 2PARM 
K2  PARM 
THE  TCP  I T 
9 AH  IN 
YLI  M 
A8  TRDOT 
COSTHET  1 


+ 1 


+ 1 
+ 1 
+ 1 
*1 
+ l 
+ 2 
+2 
+ 2 
+2. 

+ 2 
+2 
+ 2 
+ 2 


B(  1 ) 
R(1  ) 
B ( 1 ) 
R(  1 ) 
B (1  ) 
B ( 1 ) 
8(1) 
1(2) 
1(2) 
I (2  ) 
1(2) 
1(2) 
I (2) 
I ( 2) 
1(2) 
I (2) 
1(2) 


VELOCITY  CHANGE  PER  MOO  CLICK 
VELOCITY  CHANGE  PEP  RHC  DEFLECTION 
LITTLE  TAU  FOR  P66  RCD  CUTSIDE  D8AN0 
BIGGER  TAU  FOP  P66P0D  INSIDE  DHAND 
VELOCITY  ERROR  CRITERION  FOR  P66R0D 
MIN  SM  X-AXIS  THRUST  FROM  P66R0D 
MAX  SM  X-AXIS  THRUST  FROM  P66R0D 
PARAMETER  SET  H 1 : 

ABORT  ORBIT  SEMI-MAJOR  AXIS  COMP 
PARAMETER  S FT  H 2: 

ABORT  ORBI  T SEMI-MAJOR  AXIS  COMP 
CENTRAL  ANGLE  SWITCHING  CRITERION. 
MINIMUM  ALLOWABLE  APOLUNE. 

MAXIMUM  CROSS-PANGE  DIST.  IN  ABURTS 
DES  IREC  RACIAL  VEL.  FOP  ABORTS. 

COS  OF  CONE  1 ANGLE  FOR  ABORTS 
CDS  OH  CONE  2 ANGLE  FOR  ABORTS. 
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1 50  91 


SOME  VARIABLES  FOR  SECCND  OPS  GUI  OANCE 


( 380) 


539’  PFF 
5C96  PFF 
5095  RFF 

5098  RFF 
5097  PEF 
5399  RFF 

5099  REF 
51 no  RFF 

A51D  I 


1 


2 LAST  126 

3 LAST  126 


E5, 1569 
E5  ,1602 
F 5, 16C2 
E5, 1 60 A 
E 5 ,1 612 
Fc,  16  12 
E5 , 1 6 1 A 
E5  ,1  616 


CG 

p ANGF  TSP 

OUTOFPLN 

RGU 

CL  AMO 

OLANOX 

DL  ANOY 

OLANOZ 


EQUALS  C0STHET2  +2 
FOUALS  CG  +190 

EQUALS  RANCEDSP 
EQUAL  S OUTUFPLN  +2 
EQUALS  RGU  +6 

F QUA LS  DLANO 
EQUALS  DLANO  +2 

EQUALS  OLAND  +A 


I ( 1 8 0 ) GUIDANCE 
R(  2)  01  SPLAY 

***  OJTOFPLN  CAN  OVERLAY  RANGED  SP  *** 
1(6)  UNSHARED  FCR  CCWNL INK 
B ( 6 ) PL  LANDING  SITE  CORRECTIONS  FRAME 


R 5102 


OVERLAYS  GF  TFE  BLOCK  ABOVE  (ASCENT  ANO  DESCENT) 


5103  REF  2 

5106  REF  1 

5105  RFF  1 

513  6 REF  1 

5107  REF  1 

51PR  REF  9 

5109  PEF  9 

A 5110 


LAST  126  E 5,1560 
F5,  1562 
E5 , 1 566 
E 5,  1566 
E5, 1576 
LAST  125  0130 

LAST  126  0 13  1 


JP  ARM 
KPARM 
RP 

QA  XI  S 
Z A X IS  1 
L*  WC  R*  T 
H*GHCR*T 


EQUALS  CG 
FQUALS  JPARM 
EQUALS  KPARM 
EQUALS  RP 
EQUALS  Q A XI  S 
= BU  F 

= BUF  +1 


+ 2 
+ 2 
+2 
+ 6 


1(2)  JPARM  WILL  EQUAL  J1?AR«  OR  J2PARM 
1(2)  KPARM  WILL  FCIJAL  K1DARM  OR  K2PARM 
1(2)  PREDICTED  BURNOUT  RADI  US~M*2(— 26) 
1(5)  ASCENT  CROSSPANGE  HALF-UNIT  VECTOR 
1(6)  ASCENT  DOWNRANGE  HALF-UNIT  VECTOR 


R 5 1 1 J 

5112  REF 


Q-SAVE  REGISTER  FCR  ASCEM  (ID) 

LAST  126  E5,  16/0  ASCSAVE  EQUALS  DLAND  +6  I(1)TMP  ASCENT  Q-SAVE 


3 5113 


ALIGN  ME  NT  / SYSTEST/CALCSMSC  COMMON  STORAGE. 


( 36D  ) 


5115 

5116 

5117 


E 5,  1662 
E5  ,1  65' 
E 5,1  656 


X SM  EQUALS  E NOW  B(6  ) 

YSM  EQUALS  XSM  +6  B(6) 

ZSM  EQUALS  YSM  46  B(6  ) 


5 1 1 8 REF  1 

5119  REF  1 

5120  REF  1 


E5 , 1666 
F5 ,1672 
E 5,  l 7 C 0 


XDC 
Y DC 
ZDC 


EQUAL  S Z SM 
EQUALS  XDC 
EQUALS  Y DC 


+ 6 B ( 6) 

+6  B ( 6) 

46  8 (6  ) 


5121  RFF 

5122  REF 

5123  REF 


2 LAST  126  E5 » 1666 
2 LAST  126  E 5 , 1 67? 
1 E5, 17C0 


XNB  = XDC 

YNB  = Y DC 

ZNB  = ZDC 


MORf  OVERLAYS  TO  ALIGNMENT  /SYSTEST  (THESE 


5127 

5128 


RFF 

REF 

PEF 


E5 , 17  10 
E 5 ,1 712 


LANDLAT  EQUALS  STARAO 
L ANDL3NG  EQUALS  LANDLAT 
LA  NO  ALT  EQUALS  LANOLONG 


(2)  LATITUDE,  LONGITUDE 
(2)  AND  ALTITUOF 

(2)  OF  LANDING  SI  TE 


ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ? ERL  I NA  BY  ZOROASTER 


EPASARI  E ASSIGNMENTS 


ALIGNMFN T/SYS7EST  CCMMCN  STORAGE. 


5 13? 

5133 

5134 

5135 

5136 

5137 


REF 

REF 

REF 

REF 

PEF 

RFF 


rr>,  17'  6 
■ 

E 5,  1736 
E5,  1737 
E5,l 741 
E5,  1743 


STAR AO 
ST  AR 

GCTR 

OGC 

IGC 

MGC 


EOUAI  S ZOC 
EQUALS  STAPAD 
EQUALS  STAR 
EQUAL  S GC  TR 
EQUALS  OGC 
FOUALS  IGC 


P57  ALIGNMENT  (OVERLAY  OF  AL  I GNMENT/S YSTF ST  COMMON  STORAGE) 


PFF 

PEF 

REF 

RFF 


OVERLAYS  VI  THIN  A I I G NEE  NT/S  YSTF  ST  COMMON  STORAGE 


E5,  1706 
E5 ,1714 
E 5,  1722 
E5.1730 


VEAR  TH 

VSUN 

VMOON 


EQUALS  STAR  AO 
EQUALS  V EARTH 
EQUALS  VSUN 
FOUALS  VMOON 


5151 

5152 
R5153 

R51  54 
5156 

A5  1 5 7 


P 50*  S,P 50*  S Q STORE  S. 


ALIGNMENT  STORAGE. 


516? 
5163 
R 5 1 6 4 

5165 

5166 

5167 
A516R 


RFF 

RFF 

RFF 

RCF 

PFF 

RFF 

RFF 


E 5,1747  QGCT 

E5,  1755  BESTI 

E5  1 1 756  BEST  J 

F 5,  1 7 57  STAP.INO 

RETAIN  THE  CROER  OF  STARSAV1  TO  STARSAV2 


E5,l  760 
E5,  1766 
ES  ,1774 


EQUALS  QMAJ  +1 

EQUAL  S OGC  T + 6 

EQUALS  BESTI  +1 
EQUALS  BE  ST  J +1 
FOR  DOWNLINK  PURPOSES. 


ST  ARS  AVI  EQUALS  STARING 
STARSAV2  FQUALS  STAR  SA  Vi 
T ALIGN  FQUALS  STAPSAV? 


R 5 1 69 


P32-35  + S ERV  ICER 
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{ 310) 

I ( 1 8 0)  T MP 
1(6) 

B ( 1 ) 

I (2) 

I(  2 ) 

I (2  ) 


( 120) 

(6  ) SS 
(6)  SS 


(240) 

( fe) TMP 
( 6 ) TMP 
(6  >TMP 
( 6)  TMP 


(20  ) 

B ( 1 ) T MP 
R ( 1 ) Tvs 


( 180) 

VEAPTH,  VSUN,  VMOON 


( 230) 


1(6  ) 

I (6  ) 

R(2)  TIME  OF  IMU  ALIGNMENT  (DOWNLINKED) 


(20) 
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5171  REF  1 

5172  PFF  1 

A 5173 


R T XI  EQUALS  TALIGN  +2  1(1)  Xl  -2  EARTH,  - 10  MOON 

RTX2  FQUALS  RTX1  +1  1(1)  X2  0 EARTH,  2 MOCK 


517** 

5179 

5176 

5177 


0022 

) 2 4 


7PRI ME 
COST  H 


SI  NTH  = 19  C 

THETA  = 2 on 


ASSEMBLE  RE  VI  SI  CN  56  OF  AGC  PRCGPAM  ZERLINA  BY  ZOROASTER 


ERASABLE  ASSIGNMENTS 


P5  1 78 


*******  CVEPLAY  NUMBER  2 IN  EBANK 


«***!>** 


R 5 179 


COMIC  S ROLTI  NF  STORAGE. 


5lRl  REF 

5182  REF 

5183  REF 
5 1 84 

* 5 1 B 5 


LAST  126  E5,  1642 

E5  ,1  644 
E5,  1646 
0042 

NOTE  : RC NOR M (ABOVE  ) 


DFL  X EO  UAL  S ENOW 

DELT  EQUALS  DELX 

URRECT  EQUALS  DELT 


RCNORM  EQUALS  34D 
I S OFF  I NFD  IN  VAC  AREA 


5186  REF  1 

51P7  RFF  1 

5188  REF  1 

5 1 89  REF  1 

5190  REF  1 

5191  RFF  1 

519?  RFF  1 

5193  REF  1 

5 1 94  REF  1 

5195  REF  1 

5196  REF  1 

5197  REF  1 

519B  RFF  I 

5199  REF  1 

5200  REF  1 

5201  PEF  1 

5232  REF  1 

5203  RFF  2 

5204  RFF  1 

5205  REF  2 

5206  REF  1 

5237  PEF  3 

5208  REF  4 

5209  REF  2 

52 1 1 REF  1 

5211  PEF  1 

5212  REF  1 

5213  REF  1 

5214  REF  1 

5215  REF  2 

5216  REF  1 

5217  REF  2 

5218  REF  1 

5219  REF  1 


LAST  129 

LAST  129 

LAST  129 
LAST  129 
LAST  125 

LAST  129 
LA^T  129 


E5f  1654 
E5  ,1662 
E 5,  1670 
E5,  1672 
E5  ,1673 
F 5,  1 7C1 
E5  ,1702 
E 5, 1710 
E5 , 1711 
E5  ,1  717 
E 5,  1721 
F5, 1727 
E5 ,1 731 
E 5,  1733 
F5  ,1735 
E 5 ,1  737 
E5 , 1741 
E5  ,1654 
E 5,  1743 
E5 , 1710 
E 5 , 1 751 
E 5,  1 710 
E5 , 1 7 1 0 
E5,  1717 
E5,  1753 
E 5 , 1 754 
E f,  1755 
E5,  1757 
C5 ,1  761 
E 5,  1757 
E5  ,1761 
8 5,1  763 
E 5,  1765 
E5  ,1  765 


R 1VFC 
R2V  EC 
TOESIREO 
GEOM  SGN 
UN 

VTARG  TAG 
VT  ARGET 
RTNLAM8 
U 2 

MAGV  EC2 

UR  1 

SNTH 

CSTH 

1-C  STH 

CSTH-RHO 

P 

R 1A 
RV  EC 
VVEC 
R TNTT 
ECC 
R TNTR 
RT  N APS E 
R2 

RTNPRM 

SGNRDOT 

ROE  STREO 

OELOEP 

CEPREV 

TERR  LA  MB 

TPREV 

EPSI LCNL 

COGA 

INCEP 


EQUALS 
EQUALS 
EQUALS 
EQUALS 
ECU  ALS 
EQUALS 
EQUALS 
EQUALS 
FQUAL  S 
EQUALS 
EQUALS 
FQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
E QUA  LS 
FQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 


URRECT  +6 
R IV  EC  +6 

R2VEC  +6 

TDE  SI  RED  +2 
GEOMSGN  +1 


UN 


■♦■6 


VTAPGTAG  +1 
VT  ARGET  +6 
RTNLAM8  +-1 


J 2 


+ 6 


MAGVEC2  +2 
UR  1 + 6 

SNTH  +2 

CSTH  +2 

1- C STH  +2 
CSTH-RHO  +2 
P +2 

R IV  EC 

R1  A +2 

RTNLAMB 
VVEC  +6 

RTNLAMB 
R TNL AMB 
MAGVFC2 
FCC  *2 

RTNPRM  +1 
SGNRDOT  +1 
RDESIRED  + 2 
DEL  DEP  +2 
DELDEP 
DFPREV 
OEPRFV  +2 
EPSI  LONL  +2 
COGA 
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(8501 

T (2) TMP 
K 21TMP 
I (6  >TMP 
1(2)  TMP 


1(6)  TMP 
I < 6) TMP 
I (2  >TMP 
1(1) TMP 
K 61TMP 
I (1  >TMP 
I ( 6) TMP 
I ( 1 )TMP 
I (6  ) TMP 
I ( 2 ) TMP 
I (6  >TMP 
I (2)  TMP 
1(2  ) TMP 
I (2  )TMP 
I ( 2) TMP 
1(2  )TMP 
I <?)TMP 
1 ( 6 ) TMP 
I (6  >TMP 
1(1) TMP 
1(2  )TMp 
I (1  >TMP 
I ( 1 ) TMP 
I(  2 )TMP 
I ( 1 ) TMP 
I ( 1 ) TMP 
I (2  )TMP 
I (2) TMP 
1(2  ) TMP 
I (2  ) TMP 
I ( 2)  TMP 
1(2  )T  MP 

1(2)  COTAN  OF  INITIAL  FI  I GHT  PATH  ANGLE. 

USED  BY  SUBROUTINE'  I TERATOR'  . 


iAP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

FPASABLE  ASSIGNMENTS 


PS220  ******* 


OVERLAY  NUMBER 


IN  EPANK  5 ******* 


<5221  INCORP  STORAGE. 

5223  PEF  I l AST  1 29  E5.1642  ZI  EQUALS  ENDW 


? 5224 


I NCORP/LSR22.  3 STORAGE. 


P FF 
REF 


E5,  1664  DFLTAX  EQUALS  ZI  + 18D 

E5.1706  VARIANCE  EQUALS  DELTAX  +1RD 


< 522P 


MEASUREMENT  INCORPORATION  -R2  2-  STORAGE. 


5230  REF  1 

5231  REF  1 

523?  REF  1 

REF  1 
5234  REF  1 

A5235 


E5,  17  1 1 
F5  ,1712 
E c,  1 72C 
E5,172  6 
E5 ,1 734 


GRP  2SVQ 
OM  EG  AM  1 
OMEGA  M? 
OMEGAM 3 


FQU4LS  VARIANCE  +3 
EQUALS  GRP2SV0  +1 
EQUALS  0MEGAM1  +6 
EQUALS  OMEGAM?  +6 


HO  LOW  EQUALS  0MEGAM3  +6 


5236  REF  2 LAST  130 

5237  R FF  1 


E5  ,1664 
E 5,1667 


TRIPA  EQUALS  DEL  TA  x 

TE  MP  VAR  EQUALS  TRIPA  +3 


A523fl 


5241 
A 524- 


REF 


I NCCRPCRATI CN/I NTEGRAT ICN  C STORAGE. 

LAST  129  E5,  1767  EGRESS  EQUALS  COGA  +2 


A 5243 
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US  PR'S  PAGE  NO  . <.0 


EC  S 4 


( 1PDI 
I (IS)TMP 


(210) 

I (18  ) 
I ( 3) 


(490) 


I ( 1 ) T M P QS  AVF.  FCR  RESTARTS 
I ( 6) 

I (6  ) 

I (6) 

1(18) 


I ( 3)  IMP 
I (3  )TMP 


( 10) 


I (1  ) 


SAP : 


ASSEMBLE  REVISION  5 6 OF  AGC  PROGRAM  ZERLINA  BY  ZCRCASTEK 


L FRASARLE  ASSIGNMENTS 


5 5244  SYSTEM  TEST  ERASAELES.  CAN  OVERLAY  W MATRIX. 

R 5246  *******  OVERLAY  NUMBER  0 IN  E8ANK  5 ******* 


5 247  PFF  3 

5248  REF  1 

5243  REF  1 

52  50  P.FF  1 

5251  REF  1 

5252  PFF  1 

5253  RFF  1 

5254  REF  1 

5255  REF  1 

5256  REF  1 

5257  RFF  1 

5258  REF  1 

5259  REF  1 

5?60  REF  1 

5261  RFF  1 

5262  REF  2 

5263  REF  3 

5264  REF  4 

5265  REF  5 

5266  PFF  6 


LAST  131 
LAST  131 
LAST  131 
LAST  13  1 
LAST  131 


E5  ,140m 
E 5,1402 
E5 , 1404 
E5  ,1412 
E 5,  14  13 
F5 , 1 4 1 4 
E 5 , 1 4 1 5 
F 5,  1416 
E5  ,1417 
E5 ,1420 
E5 , U21 
F5  ,1430 
E 5,  1432 
E5, 1 434 
E5  ,1  434 
E 5 , 1436 
E5  ,1440 
E 5 , 1 44  1 
E5,  1442 
E5  ,1443 


A Z IMIJTH 
LATITUDE 
ER  VEC  TOR 
LFNGT  HOT 
LOSVEC 
N D XC  TR 
PI PINOEX 
POSI  TON 
QPLACE 
QPLACES 
SOUTHDR 
T EMPT  IMF 
TMARK 
GENPL 
CDUTI ME  I 
C.DUTI  MEF 
CCU  CAN  G 
COURFADE 
COUP  EAOI 
CCUL  IM  IT 


EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
FOUALS 
EQUAI  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 


W 

AZ  IMUT  P 
LA  TI  TUDE 
ERV  ECTOR. 
LENGTHCT 
LOSVEC 
NDXCTR 
PI  PI  NDtX 
POSI  TON 
OPLACE 
OP  LACE S 
S OUT  HOP 
TEMPTI  ME 
T MAR  K 
GENPL 
GENPL  +2 
GENPL  +4 
GENPL  +5 
3FNPL  +6 
GENPL  47 


5267 

5268 

5269 
5273 


RFF 

REF 

PEF 

REF 


LAST 
LAST 
I A SI 
l AST 


131 
131 
131 
13  1 


E 5,  1 4 4 C 
FS,  1441 
E 5 , 1 442 
E5 , 1443 


TE  MPAOO 
TEMP 
NOBITS 
CHAN 


GENPL  4* 
GENPL  45 
GENPL  46 
GENPL  47 


REF  11  LAST  131  E5  ,1444 
REF  12  LAST  131  E 5,1452 


LOS  1 = GENPL  480 

LnS2  = GENPL  4140 


5273 
5 274 
5275 
5 27  6 
5277 
5273 
52  79 


PEF  13  LAS! 
RFF  14  LAST 
REF  15  L AST 
PEF  16  LAST 
RFF  17  I A ST 
PFF  Ip  LAST 
R FF  19  LAST 


13  1 E5 , 1 460 
131  E 5 , 1 461 
13  1 E 5,  1462 
131  E5  ,1463 
131  E 5 , 1 464 
131  E5, 1467 

131  E5.1470 


CALCOIR  EQUALS  GENPL 
CDUFLAG  EQUALS  GENPL 
G Y TUBE  TQ  EQUALS  GENPL 
OPTNRFG  EQUALS  GENPL 
SAVE  EQUALS  GENPL 

SFC0NST1  EQUALS  GENPL 
TIMER  EQUALS  GENPL 


4 200 
4210 
4220 
4230 
+24  0 
+ 2 70 
+ 280 


5280 

5281 
528? 
5233 

5284 

5285 


F EF 
REF 
RFF 
PEF 
RFF 
P EF 


22 

23 

24 

25 


LAST 
LAST 
LAST 
L AST 
LAST 
LA  ST 


131  E5 , 1 4 3^ 
131  E 5 , l 534 
131  F 5,  15  3 6 
131  E5  ,1537 
131  E5.154? 


OA  TAPL 
RDSP 
MASKREG 
CO  UNO  X 
RFSULTCT 
COUNT  PL 


EQUALS  GENPL  +3" 0 
EQUALS  GENPL 
EQUALS  GENPL  +640 
EQUALS  GENPL  +660 
EQUALS  GENPL  +670 
EQUALS  GENPL  +70  0 


5286 


REF  26  LAST  131 


E5,  1543 


CDUANG  EQUALS  GFNPL  +710 
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USER'S  PAGE  NC.  41 
I 1270) 


EG  S 4 


2 

2 

6 

1 

6 

1 

1 

1 

1 

1 

7 

2 

2 


THREE  ONSEC  LOC 


FIX  LA  ER 


POSSIBLY  KC-EP1 
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5?87 


REF  27  LAST  131 


E5,1434 


AINLA  = GE  N PL 


5288 

5289 

5293 

5291 

5292 

52  9 $ 

5294 

5295 
5294 

5297 

5298 

5299 
5303 
53(  1 
5302 
5333 

53  OA 
5 30  5 
533  5 
530  7 

530  8 
5 3 09 

5310 

5311 

5312 

5313 

531  A 

5315 

5316 

5317 


REF  1 

REF  2 LAST 
RFF  3 LAST 
REF  1 
RFF  4 LAST 
RFF  5 LAST 
REF  6 LAST 
REF  7 LAST 
REF  8 LAST 
REF  9 I A ST 
RFF  10  LAST 
REF  11  LAST 
REF  12  LAST 
REF  13  LAST 
PFF  14  lAST 
REF  15  I AST 
RFF  16  LAST 
RFF  17  LAST 
REF  18  LAST 
RFF  19  I AST 
REF  2C  LAST 
REF  21  LAST 
REF  22  LAST 
PFF  23  LAST 
REF  24  LAST 
REF  25  LAST 
REF  26  LAST 
REF  77  LAST 
REF  28  LAST 
RFF  29  LAST 


E5,  1434 
132  P5.1436 

132  F5,  1440 

F5  ,1440 
132  E 5,1  44  2 

132  E5,  1444 

132  E5  ,1445 

132  E 5,  1446 

132  E5,  1462 

132  E 5 , 1 464 

132  E 5,  1470 

132  IS ,1472 

132  £5,1474 

1 32  F5,  1476 

132  65,1500 

13  2 E 5,  1502 

132  E5,  1 504 

137  E5 , 1 5 1 0 

132  E 5,  1512 

132  E5  ,15  20 

132  E 5 , 15  2 7 

132  F5, 1526 

132  65,1530 

132  E 5,  L 5 3 1 

132  E5.1532 

132  E 5 , 1 5 50 

132  E 5,  1 560 

132  E6 , 1 562 

132  E 5 , 156  3 

132  E5 , 1 5 7 1 


WANGD 
WANG  I 
WA  NO  T 
TORQNPX 
DRI FTT 
AL  XlS 
CMPX1 
ALK 
VL  A UN  S 
WPLATO 
I NTY 
ANGZ 
I NT  Z 
AN  GY 
ANGX 
OR  IF  TO 
OR  IFTI 
VLAUN 
ACC  WO 

posnv 
DPI  pay 
OP  I P A 7 
ALT  IM 
ALTI  MS 
AL  OK 
DELM 
WPLATI 
GFOCOMPS 
ERCOMP 
ZERONOX 


EQUALS  A I NLA 
EQUALS  AINLA  + 2C 
F QUALS  AI  NLA  +40 
= WANGT 

EQUALS  AINLA  +6  R 
EQUAL  S A I NLA  +80 
EOUALS  AINLA  +90 
E QUALS  AI  NLA  +100 
EQUALS  AINLA  +220 
FQUAIS  AINLA  + 24P 
F QUALS  AI  NLA  +280 
EQUALS  AINLA  +300 
EQUALS  AINLA  +32 D 
EOUALS  AI  NLA  +340 
EQUALS  AINLA  +360 
E QUALS  AI  NLA  +38  P 
EQUALS  AINLA  +400 
EQUALS  AINLA  +440 
EQUALS  AI NLA  +460 
EQUAL  S A INL  A +520 
EQUALS  AINLA  +540 
EQ  UAL  S A I NLA  +S80 
FQUALS  AINLA  +600 
EQUALS  AI  NLA  +6  10 
EQUALS  AINLA  +620 
EQUALS  AINLA  +760 
EQUALS  AI NLA  +840 
EOUALS  AINLA  +860 
EQUALS  AINLA  +870 
EQUAL  S AI  NLA  +93q 


531  8 
5319 
532n 

5321 

5322 

5323 

5324 
A5325 
A 5326 


REF  1 
REF  30  LAST 
RCF  31  LAST 
REF  32  LAST 
RFF  33  LAST 


132 

132 

132 

132 


E 5,  1460 
E5, 1462 
E 5 , 1 5 72 
E5 , 1573 
E5  ,1574 
E 5, 1576 


THETAN 

FILDELV  EQUALS 
INTVEC  EQUALS 
1SECXT 
A SEC  XT 

PFRFDLAY  EQUALS 
CVF!  OWC  K FQUALS 


ALK  +4 
THETAN  +6 
FILDELV  +2 
AINLA  +940 
AINLA  +950 
AINLA  +960 

AINLA  +98  0 


3327 


E 5,  1777 


FND-E5  EQUALS  2777 
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110  OE  OR  156  OCT  LOCATIONS 

VERT  F ATE 
H0RIZ3  TAL  E3ATF 


INO 

GAINS 


SOUTH  IP  INrE 
EA  ST  A IS 
EAST  P P I 
SOUTH 
VE 

VFRT 

SOU 


SOUTH 

NORTH  I P INCREMFNT 

INDEX 

TIME  ONSTAN 


AGS  ALIGNMENT  STORAGE 


8(2)  DELAY  TIME  BEF.  START  DRIFT  MEASURE 
(11  SET  MEANS  OVERFLOW  IN  IMU  PtRF  TEST 
AND  CAUSES  TERMINATION 


END  OF  EBANK  5 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NC.  A3  FD  S4 

5 5 328  EBANK-6  ASSIGNMENTS. 


5329 


E6, 1400 


SETLOC  3000 


3 5330  OAP  PAD-LOADED  CAT  A. 


( 10D) 


R5332  ALL  OF  THE  FOLLOWING  EXCEPT  PITTIME  AND  ROLLTIME  ARE  INITIALIZED  IN  FRESH  START  TO  PERMIT  IMMEDIATE  USE  OF  DAP 


533a 

5335 

5336 

5337 

5338 

5339 
53AO 
53  A 1 
53a2 
5 34  ^ 

A53AA 
A 53A5 


E6t 1 AOO  F6,  1A00 
E6.1A01  F 6 * 1 A 0 1 
E 6»  1 AC  2 E fc  * 1 AO  2 
E6  , 1 AO  3 Eb  , 1 49  3 
E6.LA0A  Eft, 1404 
E6  , 1 AO  5 E6,  1A05 

E6.1A06  E6.1A06 

■ , i . r Eft,  14  7 
Eft  » 1 4 10  E6,  1A1C 

E6 , 1 41 1 F 6 ,1 A1 1 


HI  ASCENT  ERASE 
RCLLTIME  ERASF 
PITTIMF  ERASE 
DKTRAP  FRASr 
OKCMEGAN  ERASE 
DK  KAO  SN  ERASE 
LMTRAP  ERASE 
LMOMEGAN  ERASE 
LMKAOSN  ERASE 
DKDB  ERASF 


(l)  MASS  AFTER  STAGING,  SCALE  AT  816  KG. 
(1)  TIME  TO  TRIM  ? GIMBAL  IN  R03,  CSEC. 
(1)  TIME  TO  TRIM  Y C-IMBAL  IN  R0  3,  CSEC. 

( 1)  OAP  STATE  ( PCSSI  RLE  77001 

(l)  ESTIMATOR  PARA-  (VALUES  00012 

(1)  METERS  FOR  THE  99974 

( 1)  DOCKED  AND  77001 

(1  ) LEM-ALONE  CASES  00000 

(1)  RESPECTIVELY  99974 

(1)  WIDTH  OF  DEADBAND  FOR  DOCKED  RCS 

AUTOPILOT  ( CB=  1 .4  DEG  IN  FRESH  START) 
DEADBAND  = PI  /DKDB  RAD. 


R 5346 


P ADI  DADS  FOR 


INITIALIZATION  CF  DAP  BIAS  ACCELERATION  (AT  PI  2 IGNITION) 


(2D) 


5348 

5349 
A535? 


Eft , 1 4 1 2 Eft,  1412  IGNADSO  ERASE 
E6  » 1 4 1 3 E6 , 141  3 I GN  AOS  R ERASE 


BIl) PL 
R ( 1 )PI. 


R 5 3 5 1 AXIS  TRANSFORMATION  MATRIX  - GIMBAL  TO  PILOT  AXES: 


I 5D) 


5353 

5354 

5355 

5356 

5357 


Eft, 1414 
E6,  14  15 
E6  ,1416 
E 6 , 1 4 17 
E6,  14  20 


F6,  14  15 
E6, 1416 
E 6,1417 
F ft,  1420 


M3  1 
M2  2 
M 32 


ERAS  E 
ERASE 
ERASE 
ERASE 
ERA  SE 


SCAI  ED  AT  1 
SCALED  AT  1 


SCALED  AT  L. 
SCALEO  AT  1 . 


3 5358  ANGLE  MEASUREMENTS. 


5363 
5 35  I 
5362 

P 5 3 6 3 

5364 
53  65 

5366 

5367 


REF  1 

RFF  2 LAST  133 

RET  AIN  THE  ORDER 
REF  3 LAST  133 

REF  4 I AST  133 

RFF  1 


Eft  ,1422 
Eft, 1423 
OF  ALPHAQ 
E6  ,1424 

E 6,  1425 
E6 , 1426 
E6,l  427 


E 6,  1425 


AND  ALOHAR 


E6,  1427 


OMEGA  P ERASE  +4 
OMEGAO  EQUALS  DM  EGAP  +1 

CMEGAR  EQUALS  OMECAP  +2 

FOR  DOWNI  INK  PURPOSE  S. 
AL°HAO  EQUALS  DM  E GAP  +3 

ALPHAR  EQUALS  OMEGAP  +4 

OM  EGA  U ERASE  +1 

CKEGAV  = OMEGAU  *\ 


BODY-AXIS  ROT.  PATES  SCALED  AT  PI/4  AND 
RODY-AXIS  ACCELFPATI  CNS  SCALED  AT  PI/8 


5369  RFF 

5370  RFF 

5371  REF 


F 6 , 1 4 3o  Eft,  1435 

1 Eft, 1431 

2 LAST  133  E 6 , 14  32 

3 LAST  13  3 E6.14  33 


TR  APED  P 
TRAPEDQ 
TRAPEDR 
NPTRAP  S 


+ 5 

TRAPEDP  +1 
TRAPEDP  +2 
TRAPEDP  43 
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T RAPE  OP  +4 
TR  A PE  0 P +5 
FOOT 
+ 1 

E 90  TO  +1 
EDOTQ 
E DO  TR 


5 37? 
5373 
53  74 

5375 

5376 

5777 

5778 


REF 

RFF 

REF 


2 LAST  174 


E6 , 1424 
E6  f 1435 
E6.1427 
F6, 1426 
E6, 1437 
E 6 , 1 436 
E6,  1437 


NCTRAPS  = 

NR  TRAPS  = 

EDCTP 

EDOTQ  ERASE 
EDOT  3 

CRATED  IF  EQUALS 
RPATED1F  EQUAI  S 


5379 
53  BO 
53fl1 


538? 
5 3 R 3 
R5384 


REF  1 
REF  2 
RATE-CC 


LAST  133  F6,14?6 

E 6, 1427 

E6,  1440  E6,  144? 

E6 , 1 44 1 
L AST  134  E6,  1442 

MM  A NO  AND  MINIMUM  IMPULSE  MCDES 


URATECIF  EQUALS 
VPATFDIF  EQUALS 
QLDXFTRP  FRASE 
01  CY  FCRP  ECUALS 
OLD 7 F OR Q EQUALS 


DMEGAIJ 

OMEGAV 

+ 2 

OLCXFORP  +1 
OLDXFORP  +2 


538  5 
5 3 R6 
5387 

33R? 

5389 

5390 

5391 

5392 
5 39  3 
5.3  94 

3 5395 


PEE  1 

REF  2 LAST  134 


OTHER  VARIABLES. 


F6 , 14  4 2 
F6 , 1444 
E6  ,1445 
E 6,  1446 
E6,  1 450 
E6.1452 
E6,  1454 
E6  ,1455 
E 6 , 1 456 
E6, 1457 


F 6,144  3 
F 6 , 14  44 
E6 , 1 445 
E6, 1453 


E 6,  14  54 
F6 ,1455 
E6 ,1456 
E 6,  1457 


CH71 TEMP 
ST  IK  SEN  S 
TCP 

0 XFRROR 
OYER  3 OR 
DZERROR 
PLAST 
OL  AST 
RL  AST 
TCQR 


ERASE 

ERA  SE 

ERASE 

ERASE 

EQUALS 

EGU  ALS 

ERASE 

ERASE 

ERASE 

ERA  SE 


♦ 5 

OXERROP.  +2 
OX  ERROR  +4 


5397 

5398 
R 399 


RFF 


E 6,  1460 
E6, 1461 
E6 ,1  736 


E 6, 1460 
E6,  146  1 


OLD P MI  N PRASE 
OL  DORM  IN  ERASE 
TF  MP3  1 EQUALS  DAPTFMP1 


5433 
54tl 
540  2 
54P3 
3 5404 
R5436 


E6,  1462 
E6 ,1464 

REF  1 E 6,  1450 

RFF  1 E6,  145  2 

JF  7 STATF  CHANGE  VARIABLES-  T 
(JTSONNOW),  AND  JET  BITS  WP 


F 6 , 1463  SAVEHAND  ERASF  +1 

E6.1464  PERROR  ERASE 

CERROR  EQUALS  DYERROR 

REPP  13  EQUAL  S DZERPOR 

IMF  (TOFJTCHC  ),  J ET  BITS  WRITTEN  NOW 
IT7EN  AT  T6  R UP  T I JTSATCHG  > • 


54  07 
5408 
5439 

5410 

5411 

5412 

5413 
54  14 


REF  1 

REF  2 LAST  134 
REF  1 


E6 , 1 465  E6, 1465 

E 6 , 1 466  E6,1467 

E6,  1470  E ^ » 1 4 7 1 
E6  ,1472  E6.1474 

E 6 ,1473 
E6 , 1474 

£6,1475  E6  » 14 76 
E 6,  1476 


NXT6A0R  ERASE 
T 6 NEXT  ERASE 

T6FURTHA  ERASE 
NEXT  P ERASE 

NEXTU 
NFXTV 

-2JETLIM  ERASE 
-RATE  OB  EQUALS 


+ 1 
+ 1 


+ 2 

NEXT  P +1 
NE  X TP  + 2 
+ 1 

-2  JET  LI M 


5415  REF 


E6, 1476 


TAPGETOB  EQUALS  -RATFDB 


R 54 16 


0,R  A XI  S ERA  SABLE  S *** 


« 
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MANY  SHARING  NAMES 
ALT  ERNAT  IVE  NAMES: 

DELETE  WHEN  NO.  OF  REFERENCES  = C 


STOPED  CDU  PEACINGS 
OFP  IVATION  S:  SCALED 


FOR  STATE 

A T PI  RADIANS  (2*  S) 


( 50) 

THESF  THREE  JS  EO  IN  M IN  IMPULSE  MODE. 


(ion» 


PATE  COMMAND  4- JET  RATE  DIFFERENCE  LIMIT 
AND  RATE  OEAOBAND  FOP  ASCENT  03  DESCENT 

MAN.  CONTROL  TARGET  DB  COMPLEMENT. 

(3  ) 


t 


SAP  : 


ASSEMBLE  REVISION  5o  CF  AGO  PROGRAM  ZERLINA  BY  ZGRGAST  ER 


L ERAS  ARl  E ASS  IGNMENTS 


5418 

5419 

54.20 


5921 
5422 
542  3 


5424 

5425 

5426 

5427 
54?8 


542  9 
5431) 
5431 


REF  14  LAST  88 

REF  14  I A ST  8 8 

REF  1 
REF  1 


RFF  1 

REF  1 

REF  1 

REF  2 LAST  134 

R EF  1 

REF  1 

RFF  3 LAST  135 

REF  4 LAST  135 


4742 
474  1 
E6, 1750 
'=6,1751 
E 6,  1477 
E6 , 1 74  1 
E6 ,1  742 
E6,  1743 
E6  ,1736 
E ft,  17  37 
E6,  1740 
E6 , 1 50  0 
E 6,  1736 
E6 , 1736 


E 6, 1477 


PRIT  EQUALS  BIT10 

ORBIT  EQUALS  BIT11 
U ERROR  EQUAL  S DAPTREG5 
VFRROR  = J ERROR  + 

PF  TJADR  ERASE 
TFMPNUM  EQUALS  DAPTFMP4 
NUMBERT  EQUALS  DAPTEMP6 
ROTINDEX  EQUALS  DAP  TFMP6 
POT  EM  P 1 EQUALS  DAP  TEMP  I 
RCTEMP2  ECUAIS  D APT  E M P2 
POLY  TEMP  EQUALS  0APTEMP3 
SENSFTYP  FRASE 
ABSTJ  EQUALS  DAPTEMPl 
ABSEODTP  EQUALS  DAPTEMPl 
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U , V-AXE  S ATT  ERROR  FOR  RCS  CONTROL  LAWS 


ABS  VALUE  OF  JET-FIRING  TIME 


ASSEMBLE  RE  VI  SIGN  56  OF  AGC  PROGRAM  7ERLINA  BY  ZCROASTER 


L ERAS  A 01.  E ASS  IGNMFNTS 


P 5432  TP  I M G I MR  A L CCNTRCL  LAW  ERAS  AEL  ES  : 


RFF 

REF 

REF 


1 

2 


LAST  135 
LAST  136 


E 6,  1736 
E6,  1 7 AO 
E6 ,1 743 


GTSTEMPS  EQUALS  OAPTEMP1 
SHFTFLAG  EQUALS  GTSTEMPS  + 2 
ININDEX  EQUALS  GTSTEMPS  +5 


5 437  REF 


E 6*  1505 


SAVE  SP  EQUALS  AXI  SCTR 


5438 

5430 


LAST  136  E6»1745 
I AST  136  F 6 » 1746 


SCRATCH  EQUALS  GTSTEMPS  +7 
HALFARG  EQUALS  GTSTEMPS  +8  C 


5440  RFF  c LAST 

5441  RFF  6 LAST 

544?  RFF  7 LAST 

5443  REF  8 LAST 

5444  REF  9 LAST 

5445  REF  1C  LAST 

5446  RTF  11  I A ST 

5447  RFF  12  IAST 
544  R REF  13  LAST 


136 

136 

136 

136 

176 

136 

136 

136 

136 


F6, 1736 
E6,l 740 
Efc, 1 741 
E6  ,1742 
E6.1  743 
E6, 1744 
F6  ,1745 
E 6,  1747 
E6, 1750 


<?THFTA  EQUALS 
KCENTRAl  EQUALS 
K2CNTRAL  EQUALS 
WCENTRAL  FQUALS 
AC  F NT  PAL  EQUALS 
DFL  EQUALS 

A?  TNT  ft  AL  EQUALS 
ORCNTR  FQUALS 
FUNCTION  EQUALS 


3 TSTE  MPS 
GTSTEMPS  +2 
GTSTEMPS  +3 
GTSTEMPS  +4 
GTSTEMPS  +5 
3TSTFMPS  +6 
GTSTEMPS  +7 
GTSTFMPS  +9  D 
GTSTEMPS  +100 


5440 
A 5 4 5 3 

5451  RFF 


E6 , 1 5C1  F6 , 1 503  NEGUQ  ERASE  +2 

NFGUC  +1 

E6  ,150  3 NFGUR  EQUALS  NFGUQ  +2 


545? 

5451  REF  1 

5454  PFF  ? LAST  136 


E 6 » 1 5C 4 E 6 , 1 506  KQ  ERASE  +? 

66,  1505  AXISCTR  EQUALS  KQ 

F6  ,1  506  K R CAP  EQUALS  <Q 


5456 

5456  REF 

5457  PEF 

5458  RFF 


1 

? LAST  136 
3 LAST  136 


E 6,  1 507 
E6 , 1 5 1 .1 
E6,l  511 
E6,  1512 


F6, 1512 


ACCOOTQ 
Q ACC DOT 
AC  COOT  R 
P.ACCOOT 


ERASE 
EQUAL  S 
EQUALS 
EQUALS 


+ 3 

ACCOOTQ  +1 
ACCDOTO  +2 
ACCOOTQ  +3 


5450  RFF 
5460  PEF 


FS ,1450 
EG, 145? 


QCIFF  EQUALS  Q ERROR 
ROIFF  EQUALS  RERROR 


A5461 


7 5462  TORQUE  VFP TOR  RFC f NSTRUCT T CN  V A P I A PL FS : 


5466 


REF 

REF 

PFF 


1 E6,  1744 

1 E6 » 1745 

2 LAST  136  E 6 ,1 746 


JE  TD A TE  EQUALS  DAPTREGl 
JFTRATEQ  EQUALS  JETPATE  +1 
JETRATEP.  EQUALS  JET  RATE  +2 


5467 

5468  RFF 

5469  PEF 

5470  REF 


1‘ 

2 LAST  136 

3 LAST  136 


E6,  15  13  EC,  1520 
F6  , 1 5 1 3 
E 6,  1514 
E6,  1 515 


00WNT3RK  ERASE  +5 
PflSTORKP  EQUALS  DOWNTDRK 
NEGTORKP  EQUALS  DOWNTGRK  +1 
POSTORKU  EQUALS  DOWNTORK  +2 


9:  12  OCT.  21,  1970 
USER'S  PAGF 


Z ERASE  .038  PAGE  136 
NO.  46  EC  S4 


( 1 ID ) 


GTS  IS  PART  OF  THF  J ASK  . 

COUNT  BITS  FOR  GTSCFT  SHIFTING. 
INDEX  FOR  SHIFT  l OOP  IN  G T SQR  T . 


CANNOT  8F  A DAPTEMP  - GTS  USES  THEM  ALL. 


ROCTCYCL  ERASABLE 
ROOT  CY  CL  EPASABLF. 

0.  P.  , K<=  E PROP  , NFGUSUM 

S.P.,  K FROM  KQ  OR  KRDAP,  AT  PI/2(8) 

D.P.,  GTS  SCRATCH  CELLS. 

S.P.,  OMEGA,  AT  PI /4  PA  0/S  EC 
S.P.,  ALPHA,  AT  PI/4  R AD/SEC  I 2) 

S.  P.  , SGN  FUNCTION  VALUE. 

O.P.,  GTS  SCRATCH  CFL1S. 

S.P.,  INDEX  FOR  GTS  LOOP  THROUGH  Q ,P  AXES 
0.  P.  , ARGUMENT  FOR  GRSQPT  , SCR  AT  CH  FOR  GTS 

NEGATIVE  OF  3-AXIS  GIMBAL  DRIVE 
DEFINED  AND  US  EC  ELSEWHERE 
NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 

S . P .,  J ERK  TERM  FOR  GTS,  AT  P I /2(  8 > 

.3  ACCOOTR  SCALED  AT  PI/2I8) 


C-JERK  SCALED  AT  P 1/2(7)  UNSIGNED 
Q-JERK  SCALED  AT  PI/?(7)  SIGNED 
R-JERK  SCALED  AT  P I / 2(  7)  UNSIGNED 
R-JERK  SCALED  AT  P 1/  2 (7  ) SIGNEO 


ATTITUDE  ERRORS: 

S CALED  AT  PI  RADIANS 


( 170) 


THE  LAST  CONTROL  SAMPLE  PERIOD  OF  IDO  MS 
SCALED  AT  PI/4  PA  D I AN  S /SE  COND 

ACCUMULATED  JET  TCRQUE  COMMANDED  ABOUT 
+ ,-P,  + , - U,  + ,- V RE  SPEC  TI  VF  LY. 


NOT  INITIALIZED?  PERMITTED  TO  OVERFLOW 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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EPASARLE  ASSIGNMENTS 


USER ' S PAGE  NO.  4 7 


5 4 71 

5472 

5473 


RFF 

REF 

REF 


LAST 
LAST 
l A ST 


136 

137 
137 


E 6,  1516 
E6 , 1 5 1 7 
E 6,1  520 


NEGTORKU  EQUALS  DCWNTCRK  +T 
POSTDRKV  EQUALS  DOWNTORK  +4 
NEGTORKV  EQUALS  DOWNTORK  +5 


547  4 
54  75 

5476 

5477 


RFF 

REF 


E6, 

E6  ,1522 
E 6,  1523 
E6,  1524 
E 6 , 1 525 


LAST  137 


NO.PJE  TS  ERA  Sfc 
NO.UJFTS  = 
NO.VJETS  = 

TJP  ERASE 

TJU 

TJV 


N3.PJETS  +1 
NO. U JETS  +1 


TJP 

TJP 


5492 
54fl3 
548^ 
A548F 
R 54  86 


REF 

REF 

REF 


137 

137 


ASCENT  VARIABLES: 


E6 , 1527 

• 

E6, 1531 
E6  ,1532 
E 6, 1533 


L,  PVT-CG  ERASE 

1JACC  ERASE  +3 

1JACCQ  EQUALS  1JACC 

1JACCR  EQUALS  IJACC 

1 JACCU  EQUALS  1 JACC 


SCALED  AT  PI/4  R AD  I ANS/ S ECON D 

FOR  U.V-AXES  THE  SCALE  FACTOR  IS  DIFF: 
SCALED  AT  PI/2  RAD  IANS /SECOND  (FOR  AS  C ) 
( 10D) 


A548R 

5489 

5490 
R5491 
1 5493 
R5495 


E5  ,1534  F6 , 1535  SK  IPU  ERASE  +1 

REF  1 E 6 , 1 535  SKIPV  = SKIPU  +1 

THE  FOLLOWING  LM  DAP  ERASARLES  ARE  ZERDFD  IN  THE  STARTDAP  SECTION  OF  THE  DAPIDLER  PROGRAM  ANC  T HF  COASTASC 
SECTION  OF  THE  AOSTASK.  THE  CRCER  MUST  BE  PRESERVED  FDR  THE  INDEXING  METHODS  WHICH  ARE  FMPLOYED  IN  THOSE 

SECTIONS  AND  ELSEWHERE. 


5496  £6,1536  F6,1543  AOSQ 

5497  REF  1 E6  ,1  540  AOSR 

5499  REF  2 LAST  137  F6,l542  A0SU 

5499  REF  3 LAST  137  E6  .1543  AOSV 


ERASE  + 5 
EQUALS  AOSQ  +2 
EQUALS  AOSQ  +4 
EQUALS  AOSQ  +5 


OFFSET  ACC.  ESTIMATES,  UPDATED  IN  D.P. 
AND  SCALED  AT  PI/2. 

UV-AXES  OFFSET  ACC.  FROMEO  eY  VECTOR 
ADDITION  OF  Q,R.  AT  PI  /2  RAD/SEC(2). 


1 55C  2 

A55D4 

5505 

5506 

5507 

5508 
553  9 

5510 

5511 

5512 
A 5513 

5514 

5515 


REF  1 E6, 

FOR  TJFT  LAW  SUBROUTINE: 


REF 

REF 

REF 

REF 

PEE 

REF 

REF 

RFF 


I AST 
l A ST 
LAST 
LAST 
LAST 
L AST 


136 

135 

135 

135 

135 

136 


E6  ,1  736 
E6,  1737 
E6,  1740 
E 6 , 1 741 
Efc,  1743 
E6 , 1744 
E6 , 1 745 
EC,  1746 


NUMBER  T 
EDOTSQ 
ROT  SENSE 
FIRFFC  T 
TTOAX  IS 
ADRSDIF2 
HOLDQ 
ADRSOI  FI 
HH 


HH 


EQUAL  S 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
ECUAI  S 
EQUAL  S 


DAPTEMP5 
CAPTFMP  1 
DAPTEMP2 
DAPTEMP3 
DA  PT  EMP4 
UAFTEMP6 
DAPTREG  1 
DAPTREC2 
DAPTRFG3 
0APTREG4 
DAPTREG6 
OMEGA  V 


(TEMPS  ONLY) 

DEF  INED  I N QP  AX  IS  . 

LOOKFD  AT  RY  c>AXIS. 


DOUBLE  PRECISION 
T IMF  SHARE  W ITH  VERPOR 


35516  INPUT  TO  TJE T LAW  (PERMANENT  ERASAELES). 


5519 
A552D 
A 5521 


ASSEMBLE  REVISION  5t>  OF  AGC  PROGRAM  Z6RL  INA  BY  ZOPOASTER 
FRASABl  E ASS  IGNME  NT  S 
RFF  1 F6  i 


8=12  0:T.  21,  1970  Z FRA SF  .038  PAGE  138 

USER'S  PAGE  NO.  48  EC  S4 

EQUATE  NAMES.  I NOEXEO  BY  -1,  0,  +1. 


TJETU  = TJIJ 

F6.1625  BLCCKTCP  ERASE  +470 

* SEE  AOSTASK  AND  AOSJOB  LOG  SECTION  FOR  ERASABLE  DEFINITIONS 
IN  THI  S AREA. 


552? 
55  2 3 

5524 

5525 
552f 

5527 

5528 

5529 
A 5530 

5531 

5532 

5533 

5534 


PFF 

REF 

RFF 

REF 

REF 

RFF 

RFF 

REF 

REF 

PFF 

REF 

PFF 


LAST  138 
LAST  138 
LAST  138 
I AST  138 
LAST  1 3 P 
LAST  138 


138 

138 


66,1566 
E6,  156  7 
E6  ,1572 
E 6,  1574 
66,1575 
66 ,1600 
E6,  160  2 
66  ,1604 

66,  1546 
66,1547 
E6,  1 cca 
F6, 1555 


1 /AN6T1 
1/ANET2 
1 / ACOAST 
ACCFC  TZ1 
ACCFCTZ  5 
FI REOB 
COASTOH 
AX  IS  0 I ST 


ZON  F 31  IM  = 


160 


BLOCKTCP 
1 /ANF  T1  +1 
1/ANFT1  +4 
1/ANET1  +6 
1/ANET1  +7 
1/ANET1  +IOD 
1/ANFTl  +120 
1/ANET1  +14D 

BLOCKTCP 
ACCSWU  +1 
BLCCKTCP  +6 
BLOCK  TOP  +7 


TH6SF  8 PARAMETERS  APE  SET  UP  BY  l/ACCS 
FOR  MINIMUM  JETS  ABOUT  THE  U-AX  IS  WHEN 
FOOT  IS  POSITIVE.  TJETLAW  INDEXtS  BY 
AORS  01 FF  FROM  THESE  REGISTERS  TO  PICS  UP 
PARAMETERS  FOR  THE  PROPER  AXIS,  NUMBER 
OF  JETS  AND  SIGN  OF  EOOT.  THERE  ARE  48 
REGISTERS  IN  ALL  IN  THIS  BLOCK. 

FOUR  NOT  REFERENCED  (P-AXISJ  ARE  FILLED 
IN  BY  THE  FOLLOW  ING: 

SET  BY  l/ACCS  TC  SHOW  WHETHER  MAXIMUM 
JETS  ARE  REQUIRED  BECAUSE  OF  AOS. 

WIOTH  OF  MINIMUM  I MP'J  I S E ZONE. 

HEIGHT  OF  MINIMUM  IMPULSE  70NE  ( AT  4 SEC) 


R 5 5 3 8 VARIARIFS  FOR  GTS-ORAMS  CCNTPCL  EXCHANGE. 


5543 

5544 


LAST  138 


E6,  150  2 

£6,1630  F6 ,1630 
E 6,  1621  F 6,  1 633 
E6, 1632 
66,1633 


ALLOWGTS  EQUALS  NEGUQ  +1 
COTROLER  ERASE 
QGI  MTI  MR  ERASE  +2 

INGTS  FQUAL  S QG I MTI  MR  + l 
RGIMTIMR  EQUALS  QG  I MT  IMP  +? 


(4) 

INSERT  INTO  UNUSED  LOCATION 
INDICATES  WHICH  CONTROL  SYSTEM  TO  USE. 
C-GIMBAL  DRIVE  IT  M EP  , DFC  ISEC.ONOS  . 
INDICATOR  OF  CURPENT  GTS  CONTROL. 
R-GIMBAL  ORIVF  TIMER,  DEC  I SECOND  S. 


5 548 

5549 

5550 


PLEASE  RETAIN  THE  ORDER  OF  CDUXD  THRU  COUZD  FOR  DOWNLINK  PURPOSES. 
K A LC  M A N'U  : D A P I NT  EP  F A C E . 


E 6,  1634  E 6,  1636 
E6,  1635 
E6 , 1 636 


CDLXO 

C01JY0 

CDUZO 


ERASE  +2 
EQUALS  CDUXD  +1 
EQUALS  COUXD  +2 


CO)  OES  IP  ED  R EG  1ST  EPS: 

SCALED  AT  PI  RADIANS  (180  DEGREES) 
(STORE  IN  2S  COMPLEMENT) 


E6,  1637  E 6 , 1 6 4 1 
E6  ,1640 
E 6, 1641 


DFLCDUX  ERASE  +2 
DFLCDUY  FQUAL  S DFLCDUX  +1 
DELCOUZ  EQUALS  DELCDIJX  +2 


NEGATIVE  OF  DESIPEC  luOMS  CDU  INCREMENT: 
SCALED  AT  PI  RADIANS  (180  DEGREES) 

(STORE  IN  2S  COMPLEMENT) 


R 5 5 5 4 RETAIN  THE  ORDER  OF  OMEGA  PC  TO  OMEGARO  FOR  DOWNLINK  PURPOSES. 

5555  E6 , 1 642  66  ,1644  CMEGAPO  ERASE  +2 

5556  PEE  1 E6,  1643  OMEGAQD  EQUALS  OMEGAPO  +1 

5557  REF  2 LAST  138  ES,1644  OMFGARO  EQUALS  OMEGAPO  +2 


ATTITUDE  MANEUVER  DESIRED  RATES: 

( NCT  EXPLICITLY  REFERENCED  IN  GTS  CNTRL) 
SCALED  AT  PI /4  RADI  ANS/SECONO 


KALCMANU  STORAGF . 


GAP:  AS  SF  MR  I F RF  VI  SION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
L ERASABLE  ASSIGNMENTS 


9:12  OCT.  21,1970  ZERASE  .038  PAGE 
USER'S  PAGE  NC.  A«  EO  SA 


139 


5560 

5561  REF 


E6 ,1645  E6 , 1 67A  MIS 
E 6,  1667  COF 


ERAS  E 

EQUALS  MIS 


+ 230  I(  180) 

+ 180  1(6) 


R5562 


K AL  f M ANJ  STORAGE. 


( 330) 


5 56  A 

5565 

5566 


REF  1 
REF  1 


E 6,1675  E 6 ,1733 
E 6 , 170C 
E6 ,170  l 


8C0U  ERASE 

KSPNDX  EQUALS  BCOU 

KDPNOX  EQUALS  KSPNDX 


B ( 3 ) 
R(1  ) 
B ( 1) 


5567  REF  1 

5568  PEE  1 

5569  RFF  1 


E 6, 1702 
F6 , 172a 
E6.1732 


TMIS  EQUALS  KDPNOX  +1 

COF  SKEW  EQUALS  TMIS  +180 

CAM  EQUALS  COFSKEW  +6 


1(18)  MUST  RE  IN 
1(6)  MUST  BE  IN 
1(2)  MUST  BE  IN 


SAME  BANK  AS  RCS  DAP 
SAME  RANK  AS  RCS  DAP 
SAME  RANK  AS  RCS  DAP 


E 6,  173a  E 6,  1735  AM  FRASE 


I (2  ) THIS  WAS 


CNCE  IN  E5  OVFRLAYING  D GC 


R 5 57  ? FIRST-ORDER  OVERLAYS  IN  KALCMAM 


(280) 


5576 

5577 


5578 

5579 

5580 


RFF  2 LAST  139  E6,l70'2 

RFF  3 LAST  139  E6,1702 
REF  A | AST  139  E 6,  1 7C2 

REF  5 LAST  139  E6.1705 

RFF  f LAST  139  F6.1706 

REF  2 L AST  139  E6,  172a 

REF  1 E6  ,1732 


MF  ISYM  EQUAL  S TMI  S I 

TMFI  EQUALS  TMIS  I 

NCDU  EQUALS  TMIS  B 

NEXT  IME  EQUAL  S TMIS  +3  R 

TTEMP  EQUALS  TMIS  +A  B 

BRATE  EQUALS  COFSKEW  B 

TM  EQUALS  CAM  B 


R55RI  SFCOND-OROFR  OVERLAYS  IN  KALCMANU 
5583  REF  3 LAST  139  E6,  172a 


558A  REF 
5536  REF 

5586  RFF 

5587  REF 


3 LAST  138 
3 LAST  138 
l 


E 6 , 1 63A 
E 6 , 1637 
E6 , 1 6 AO 
E 6 , 1 6A  1 


DCOU 
OE  LDCOU 
CELOCDU  l 
DELDCDU? 


C DUX  0 
DE  LCDUX 
DELCUUY 
DFLCDUZ 


R5588  * 


****** 


< 5589  STORAGE  FOR  FINOCOUW 


R569D 


OVFPLAYING  KALCMANU  STORAGE: 


(27  0) 


55  9A 

5595 

5596 

5597 


RFF  2 LAST  139 

RFF  1 

REF  1 

RFF  1 

REF  1 

REF  1 


E6  , 1 6 A 5 
F 6 , 1 6A  5 
E 6 , 1 6 A 6 
E6  ,16A7 
E 6,  16  5C 
E6, 1 651 


ECQJW 

ECDIIWUSR 

QCDUWIJSR 

NCXCOUW 

F LAGOODK 

FLPAUTN3 


EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 


M IS 

ECOUW 

E2DUWUSR 

3CDUKUSR 

NDXCDUW 

F LAGOOOW 


+ 1 
+ 1 
+ 1 
+ 1 


R ( 1 )TMP 
I (l)TMP 
3(1)  TMP 
R ( 1 >TMP 
B(  1 > TMP 


">  AP:  ASSEMBLE  REVISION  =ir>  OF  A GC  PROGRAM  ZERL1NA  BY  ZOROASTER 


9:12  CCT.  21  ,1970  ZEPASE 


PAGE 


5600 
5531 
5602 
56f  3 

5604 

5605 
R5S35 
R'56  7 


ERA  SAB  L F ASSIGNMENTS 

PFF  1 

REF  1 

REF  l 

REF  1 

REF  2 LAST 

RFF  3 LAST 

PFF  u LAST 

REF  1 


USER • S PAGF  NO.  5( 


E 6,  16  5 2 

, 

E 6,1666 
E6,  1666 
E 6 ,1673 
Ft, 1672 
E6,  1674 
E6 , 1 677 


UNFC  /2 
UNWC/2 
UNFV/2 
UN  F V X / 2 
UNFVY/2 

UNFV7/2 
- DEL  GMB 
OGABIAS 


EQUALS  FLFAUTNC 
EQUALS  UNFC/2 
EQUALS  J NW  C/2 
= UNFV/2 

= UNFV/2 

= UNFV/2 

EQUALS  UNFV/2 
EQUALS  -DELGMB 


I (6  ) IN 
I(  6)IN 
1(6  )S-S 


R( 3) TMP 
St  1 I IN 


DEFINED  IN  TL-F  WORK  AREA: 


5611 

5612 
R5S13 
R5614 


QOCO 

0014 

0022 


FNO  OF  FINDCDUW  ERASABLFS 


UNX/2 
UNY/2 
UNZ/  2 
2/  PGCDUW 


R5615 
R56 1 6 
1 5617 

R5  5 1 8 

5620 

5621 
R5622 
* 5623 


##*  *$***#««#«**<  ***44#**<'<‘ 

STORAGE  FOR  P 57 

OVERLAY  ING  KALCMANU  AND  FINDCDUW  STORAGE: 
RFF  3 LAST  139  F6,1645  V EC1  EQ 


FF 


1 


END  OF  P 5 7 FPASARLFS 


5629 

5630 

5631 

5632 
563  3 
3634 

5635 

5636 

5637 

5638 
5539 

5640 

5641 


RFF 
P EF 
RFF 
RFF 
RFF 
RFF 
REF 
RFF 
PFF 
REF 


LAST 
I AST 
LAST 
LA  ST 
L AST 
LAST 
LAST 
LAST 
LAST 
L AST 


137 

140 

140 

140 

14P 

140 

137 

140 


RFF  16  LAST  140 
REF  17  LAST  140 


E6,  1736 
E6 ,1  737 
E6, 1740 
E6, 1741 
E 6 , l 742 
E6,  1743 
E6  ,1744 
F 6 , 1744 
E6,  1745 
F6,l 746 
E 6,  1747 
E5,  1750 
E 6 ,1 751 


DAP  TEMP  l 
DAPT  EMP2 
DA  PTE  MP3 
DA  PTEMP4 
DAPTFMP5 
DAP  TEMP  6 
DAPTREG1 
OLDSFNSE 
DAP  TR  EG  2 
DAPTREG3 
DA  PTREG  4 
DAPTREG5 
DAPTREG6 


ERASE 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
FQUAL  S 
EQUALS 


+ 170 

DAPT  EM P 1 
DAFTEMP1 
DAPTEMP 1 
DAPT  EM  PI 
DA  PTF  MP 1 
DAPTEMP l 
DAPTREG1 
DAPTEMP1 
DAPT  EMP  1 
DAPTEMP1 
DAPTEMP 1 
DAPT  EM  PI 


B ( 1 )T  MP  RCS  J ET  CONTROL 


■10D 

HID 


GAP  : 


ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ERAS  API  E ASSIGNMENTS 


PE  F 10  LAST  I AO 

R EF  1 

REF  2 LAST  HI 

REF  3 LAST  1A  1 


E6  ,1752 
E 6 , 1 7 5 3 
E6,  1 7 5 A 
E6 , 1 756 


DAPARUPT 
DAPLRUPT 
DAPB3RP  T 
DAPZRUPT 


EQUALS  DAP  TEMP  1 
EQUALS  DAPARUPT 
EQUAL  S DAPARUPT 
EQUALS  DAPARUPT 


+ 1 2D 
+ 1 
± 2 


A 5 6 A 6 
A 5 6 A 7 


* 56AB 


NEFDLERl  ATTITUDE  ERROR  EIGHT  BALL  DISPLAY)  STORAGE. 


565D  RFF  3 LAST 

5651  RFF  3 LAST 

565? 

5653  RFF  1 


96 

96 


565A  RFF 


I A ST  l A 1 


0061 

0063 

E fc  » 1 7 60  F 6 , 1 76? 
E6,  176  1 
E6,l 762 


T5TEMP  EQUAL  S I TEMPI 

DINOX  EQUALS  ITEMP3 

AK  ERASE  +2 

AK  1 EQUALS  AK  + 1 

AK2  EQUALS  AK  +2 


565s 

5656  REF 

5657  REF 


1 

2 LAST  1 A 1 


E 6,  1763 
E6 , 1 76 A 
E 6 f 1765 


E OR I VE  X 
EDR  IV  EY 
EDRI  VEZ 


ERASE  +2 
EQUALS  EDRIVFX 
EQUALS  EDRIVEX 


R5658 


DOCKED  JET  INHIOITICN  COUNTERS 


5660 

5661  REF  1 

5662  REF  2 LAST  1A1 


E 6 , 1 766  E6.1770 

E 6,1767 
E6  ,1770 


PJETCTR  ERASE  +2 
UJETCTR  EQUALS  PJETCTR  +1 
VJETCTR  EQUALS  PJETCTR  +2 


R 5663  V 47  ( R A 7 ) AGS  INITIALIZATION  STORAGE  -PAD  LCAOED. 


5665 
R 5666 
5663 
5669 


E6 , 1 77  1 E6,  1772  AG  SK 


ERA  SE 


WINDOW  BIAS  PADLOAD 

E6,  1Z73  E 6 , 1 773 
RFF  1 E6  , 1 77A 


AZBI  A S 
END-E6 


ERASE 

EQUALS  AZBIAS  +1 


i:  12  OCT.  21,  1970  Z EP.ASE  .038 
USER'S  PAGE  NC.  51 


PAGE 
EC  SA 


1 A 1 


(DAPZRUPT  IS  ALSO  JASK- IN-PROGRESS  FLAG) 


NEEDLER  ATFITJOE  INPUTS,  SCALED  AT  180 
DEGREES.  P,Q,R  AXES  IN  AK  , AK1  , AK2  ■ 


NEEDLER  DISPLAY  PEGS  AT  1800  DEGREFS. 

SO  THAT  38A  RITS  REPRESENT  A2  3/16  DEG. 


( 3D) 


(2D  ) 

I (2)  PL 
( 10) 

0(1)  PL  L PD  A7IMUTF  BIAS,  UNITS  - PI  RAD 


NEXT  AVAILABLE  E6  LOCATION 


GAP: 

ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL INA  BY  ZOROASTER 

L 

FM  A SABI  E ASSIGNMENTS 

P5670 

E e ANK-7  ASSIGNMENTS 

5671 

E 7, 1400  SETLOC  3400 

R5S72 

P 35  CONSTANTS.  -PAD  LOADED- 

56  74 
5675 

E7,140D  E7 » 140 1 ATIGINC  ERASE  +1 
E7.14C2  El,  1403  PTIGINC  ERASE  +1 

R 5676 

ACTMAPK  STORAGF.  -PAD  LOADED- 

5678 

5679 

E7 , 1 404  E7 ,1411  ACTAZ  ERASE  +5 

E 7,  1 A 1 2 E 7 , 1 6 1 7 AOTEL  ERASE  +5 

3 56  00 

LANCING  RAOAP.  -RAD  LOADEC- 

568? 

5683 

A 5684 

E 7 , I 6 20  E 7 , 1420  LRHMAX  ERASE 

E7,  1421  F 7,  1421  LRWH  ERA  SE 

R5685 

THROTTLE  STORAGF.  -PAD  LOADED- 

5637 

E7, 1422  E7 , 1422  ZOOMTIME  ERASE 

R 5688 

P 6 3 AND  P 64  CONSTANTS.  -PAD  LOADED- 

5690 

5691 
569  ? 

A 5,6  93 

E7,  V*  23  E 7,  1 <1 2 3 TENDRRAK  ERASE 

E7,14?4  E7.1424  TFNDAPPR  ERASE 

F 7,  16  2 5 E 7 , 1 42  5 DELTTFAP  ERASE 

56  94 
A5696 

A 5696 

F7 , 1 426  E7.1426  LEADTIME  ERASE 

R 5697 

LANDING  RADAR  -PAD  LCADED- 

5699 

5700 

A5701 

E7,  1427  E7,  1427  RPCRTIME  ERA  SF 

E7 ,1  430  E 7 ,14  3 0 RPCRTQSW  ERASE 

R5702 

ASTFER  -PAC  LOADEC- 

57  * 

A 5 7 ? 5 

F 7 , 1 431  E 7 ,1432  T NEW  A ERASE  +1 

R 5706 

P 22  STOPACE  - OVERLAYS  LANCING  PADLOACS  - 

« 


<5=  12  OCT.  21*1  Q70  7 ERA  St 
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USER'S  PAGF  NU.  52 


EC  S4 


(AO) 

BI2JPL  * MUST  BE  AT  1400  FOP  SYSTEMSTEST 
B(2 )PL 


B(1)PL  TIME  OF  DPS  THROTTLE-UP  COMMAND 


R ( 1 ) LANDING  PHASE  SWITCHING  CR  IT  FP  ION 
B ( 1 ) LANDING  PHASE  SWITCHING  CRITERION 
0(1)  INCREMENT  ADDED  TO  TTF/H  WHEN 
SWITCHING  FRCP  P63  TC  Pfc4 
B(  1 ) TIME  INCREMENT  SPECIFYING  HOW  MUCH 
GUIDANCE  IS  PROJECTED  FORWARO. 


(2D) 

B ( 1 ) REPOSI  TIONING  CR  ITFRICN  (TIME) 
B ( I ) REPOSITIONING  CRITERION  (ANGLE) 

( 2D) 

I ( 2 )P  L LAMBERT  CYCLE  PEPIOD 


( 5D) 


3AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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5708 
A 5709 
5 710 
A^7l  1 
5712 
A5713 
A 571 A 


TRASABLF  ASSIGNMENTS 
REF  1 E7 , 1 A 2 3 

REF  1 E 7,  1424 

PFF  l 6 7,1426 


USER  'S  PAGE  NO.  53 


EC  S4 


REPDSCNT  EQUALS  TENDBRAK 
REPOSTM  EQUALS  REPOSCNT  +1 
OELTATM  EQUALS  REPOSTM  +2 


COUNTS  NUMBER  OF  PASSES  THROUGH 
RE PO  SI  TI  ON  ROUTI  NE  . 

PRESENT  TIME  PLUS  INCREMENTS  OF 
TEN  SECONDS. 

TIME  INTERVAL  FOR  RUNNING 
OES  IGNAT  E T ASK  . 


R 57  L 5 ***  RETAIN  THE  ORDER  OF  DELVSLV,  TIG,  RTARG,  DELLT-4  FOR  UPDATE.  *** 


5718 

5719 
A*72o 


P40S  , P-T2-P3S  P72-P75  STORAGE 


P3C-P40  INTERFACE  UNSHARED. 


A5726 

R 5727 

5729 
5 73  0 
A 5731 

R573? 


E 7,  1441  E 7 , 1 442  TIG 


INITVEL  STORAGE:  USED  BY  P34 , 3 5 , 74 , 7 5,  P40-42 


LANCING  RADAR  - R 12  (OVERLAY) 

67  ,1451  HI  ROFF  EQUALS  DELL  T4 


(2  D ) 

3(11,1(2)  TMP  NO  LANDING  RADAR  UPDATES 


5738 

5 7 9 

A 5 7 4 n 


CLOKTASK,  BURNBABY 


67,  1456  E 7 , 14  56  LOSCOUNT  ERASE 


( 10  ) 
8(1  ) 


LSR22.3  (RNDEZVniS  NAVIGATION)  AND 

LANDING  RADAR  --  VFLUPDAT  (SERVICE*),  P63,  AND  Rl2. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L ERASABLE  ASSIGNMENTS 


9:12 


CCT  • 21 ,1970  Z ERASE 
USER  ' S PAGE  NO.  54 


.038  PAGE  1 
EO  .S4 


R 574  B 
R5749 
* 57 5 C 
75751 
R575Z 
3 5753 


*****  NOTE 
***** 

***** 

***** 

***** 

***** 


AOG,  AMG,  AND  AI G ARE  LSED  BY  LANDING  RADAR  AS  WELL  AS  RR. 
P120L  STORES  CCUS  THERE  FOR  DOWNLINKING  ON  DE  SCE  N T /A  SC  F NT  DL 
MORFOVER,  TPKEKCNT  SHAPES  WITH  VSELECT,  ALSO  SET  UP  BY  P.12DL 
(DOWNLINKED  ON  THE  DF  SC  E N T /A  SC  E NT  LIST  AS  THE 
LOW  ORDEP  PART  OF  AOG  TELEMETRY  WORD) 

AND  LSED  IN  SERVICER,  P53  RESTART,  AND  P12READ. 


RFTA  IN 


THE  ORDEP 


OF  MG  TO 
E7  ,1457 
E 7,  1460 
E7,  1461 


TPKMKCNT 
E7,1457 
E 7,  1 4 6C 
E 7,  1461 


FOR  DOWNLINK  PURPOSES. 
A I G ERASE 

AMG  ERASE 

AOG  ERASE 


B ( 1 )OUT  GIMSAL  ANGLE  S 
8(1  >OUT  (MUST  BE 
BIDOUT  CONSECUTIVE) 


575B 

5750  REF 


E7 , 1 462  E 7 ,1462  TRKMKCNT  ERASE  8(1)TMP  TEMPORARY  MARK  STORAGE. 

E7,  1462  MARKCTR  = TRKMKCNT 


5760  PCF  2 LAST  144  F7.1462 


VSELECT  EQUALS  TPKMKCNT  3(1)  X,  Y OR  Z LR  BEAM  ASSOC  WITH  VMEAS. 


R5761  P22-P35,  P72-P75  STORAGE.  -PFRMANENT- 


£7,1463  E7 , 146  3 NORMEX  ERASE 

p 7 , 1 4 64  E 7 ,1464  CSAVEO  ERASE 

E7,  1465  F 7 , 146  5 RTRN  ERASE 

E7  .1466  E7.1467  NN  ERASE 

E 7 , 1470  b 7 » 1 4 70  SUBEXIT  ERASE 


3(1)  PR  M SAVE  FOP  Q 
B ( l ) PRM  SAVE  FOP  0 
8(1)  PRM  S AVF  FOR  Q 
+1  B ( 2 ) 

0(1)  PRM  S AVF  Q 


576P 

5760  PFF 


E7,  147 1 E70VERLA  EQUALS  START  OF  E7  OVERLAYS. 

E 7 , 1 4 71  WHOCARES  EGUAIS  E70V  ERL  A DUMMY  FDR  FRANK  INSENSITIVE  2CADRS 


R577D 


LUNAR  LANDING  3 VFRL  AYS 


(60) 


5772 

5773 

5774 
A 5775 


RFF  1 
P EF  1 
PEF  l 


E7  ,1463 
E 7 , 1 44  5 
E7, 1467 


/AFC/ 

FCCDD 

FP 


EQUALS  NORMEX  B(2)TMP  THROTTLE 

EQUALS  /AFC/  +2  B(2)TMP  THROTTl  E 

EQUALS  F C ODD  *■  ? R(2)TMP  THROTTLE 


G<\P  : 


SSEMRLF.  RF  VI  SI  ON  56  OF  A GC  PROGRAM  ZERLINA  BY  ZOROASTER 


ERAS  ARI  E ASS  IGNMFNTS 

$*##***  OVERLAY  NUMBER  0 IN  E 6 A N K 7 ***** 


R577B  RENDEZVOUS  GUIDANCE  STORAGE  -P22....p35- 


5780 

5781 
5 78  2 
578  3 
575'+ 

5785 

5786 

5787 

5788 
578^ 

5700 

5701 

5792 

5793 

5794 

5795 

5796 
5707 
5798 
570Q 
5800  . 
5901 
5932 

5 803 
580  * 

5805 

5806 

5807 

5808 

5809 
5913 
5 Hi  1 

5812 

5813 

5814 

5815 
5 8 1 6 
5817 


PEE 

REF 

REE 


REE 

RFF 

REF 

FEE 

RFF 

REF 

RTF 


LAST  14  5 


LAST  145 
LAST  145 
LAST  14  5 


E 7 , l 61  1 
E 7,  1573 
F-7  i 1575 
E 7,1471 
E 7f  U77 
E7 ,1505 
E 7,  1 513 
F7,  152  1 
E 7 ,1527 
E 7 , 1535 
F7  ,1543 
E 7 , 1 551 
E7, 1557 
E7  ,1565 
E 7,  154  3 
E7, 1 573 
E 7 , 1 575 
E 7,  1577 
E7 ,1601 
E 7 , 160  3 
• 

F7  ,1605 
E 7,  1603 
E7,  1 607 
E 7 , 1 5 75 
E T,  1611 
E7  ,1613 
E 7,1615 
E7,  1 6 1 9 
F7 ,1516 
E 7,  15C5 
E7, 1477 
E7,l  527 
E 7,  152  1 
E7 ,1575 
E 7,  1573 
E7,  1605 
67,1620 


F 7 ,1476 
E 7 , 1504 
F7 , 1512 
E 7, 1520 
E 7 , 1526 
E7  ,1534 
E 7,  1542 
E7 , 1550 
F7  ,1  556 
E 7,  1564 
E7.1572 

E 7 * 1574 
F7  ,1576 
E 7 , 1600 
E7, 1602 
E 7,1604 
E 7,  1606 


F 7 , 1612 
E7 ,16  14 
F 7 , 1 61  5 


KT 

VACT1 

RPASSl 

V P ASS  1 
VACT2 
RPASS2 
VP ASS 2 
RAC  T 3 

V ACT  3 
R PAS  S3 
VP  AS  S3 

V ACT 4 
UN  VE  C 
DEL  VC S I 
UELVT PI 
OIFFALT 
PDSTCS  I 
POSTCDH 
PO  ST  TP  I 
LOOPCT 
HAFPA1 
GAMPRFV 
DVPREV 
DE  LO  V 
CS  IALRM 
VERBNOUN 
TITER 
ROOTV 
VAPREC 
RAPREC 
VPPREC 
RPPREC 
DEL  EL 
SECMAX 
DEL  TEFO 
CENT  ANG 


EQUALS 

EQUALS 

EQUAL  S 

ERASE 

ERA  SE 

ERASE 

ERASE 

FRASE 

ERASE 

ERASE 

ERASE 

ERASE 

ERA  SE 

ERAS  E 

EQUALS 

ERASE 

ERAS  E 

ERASE 

ERASE 

ERASE 

ERA  SE 

EQUALS 

F QUA  L S 

ERASE 

EQUALS 

ERASE 

ERASE 

ERASE 

EQUALS 

ER  AS  E 

EQUALS 

EQUALS 

EQUALS 

EQUAL  S 

EQU  AL  S 

EQUALS 

EQUAL  S 

ERASE 


DEL  DV 
DELVCSI 
DEL  V TP  I 
+5  D 
+ 5D 
+ 5D 


POSTTPI 

POSTCDH 


C SIALRM 
♦ 1 

V PASS  1 
RPASSl 
VPASS  2 
RPASS2 
DEL  VTP  I 
DELVCS  I 
POSTTPI 


SCMC  P47  STORAGE 
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(890) 


MIDCOURSE  START  TIME 

TEMP  STORAGE  FOR  INTEGRATION  TIME  INPUT 
TEMP  STORAGE  FOR  MIDCCURSE  DELTA  TIME 
VELOCITY  VECTOR  OF  ACTIVE  AT  C SI  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  CS  I TIME 

VELOCITY  VECTOR  OF  PASSIVE  A T C SI  TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  CDH  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  ACTIVE  AT  TP  I TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  TPI  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  INTERCEPT 
CDHMVR  UNIT  VECTOR  TEMP  STORAGE. 

THR  UST  V A LUE  A T C SI 

THRUST  VALUE  AT  TPI  OR  MID 

ALT  DIFFERENCE  AT  CDH 

PERIGEE  ALTITUDE  AFTER  CS1  MANEUVER 

PERIGEE  ALTITUDE  AFTER  CDH  MANEUVER 

PERIGEE  ALTITUDE  AFTER  TPI  MANEUVER 

CSI  NEWTON  ITERATION  COUNTER 

HALF  PERIOD 

PREVIOUS  GAMMA 

PREVIOUS  DELVCSI 


FIRST  SOLUTION  ALARM 
I TE  RATI  ON  CCUNTER 


I (6  ) 
I ( 6) 
1(6) 
I (6  > 
I ( 21 
I (2  I 
I (2) 
I ( 2) 


S-S 

S-S 

S-S 

S-S 

S-S 

S-S 

S-S 

S-S 


PR  EC  VEC  FOR  NOM  TPI 
PRFC  VEC  FOR  NCM  TPI 
PSEC  VFC  FOR  NOM  TPI 
PREC  VEC  FCR  NOM  TPI 


T I ME ( AC  T V 
T I ME (ACT  V 
TIME  (PASS 
T IME(PASS 


MAX  STOP  SIZE  FOR  ROUTINE 
BACK  VALUES  OF  DFLTA  TIME 
CENTRAL  ANGLE  C OVE  RE  D ( T PI  -T  PF  ) 


( 6D  I 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7 ERL  IN  A 8Y  ZOR!)A  STER 

L FRA  SABI  E ASSIGNMENTS 

59  21  E7,l622  E7,1d27  OE  LVI  MU  ERASF  +5 

4 5822 

R 5823  P 3 A—  3 5-  A C—  A 1-  A 7 INTERFACE 

5826  E7,  1630  E7i  If 3 1 TPASS4  ERASE  +1 

4 5826 


P58  27  P30-P  40-4  1-42  COMMON  STORAGE 


^820 


F7.1632 


E7.1632  OTEMP  ERASE 


A58  3f> 

R6R31  P32, 33,3*  STORAGF. 


5 8 3 * 
5 3 34 
5 83^ 


F7 ,1 633 
E 7,  16  2 5 
E7, 1637 


TCS  I FPASE 

TTPI  ERASE 

TTPIO  ERASE 


3 5836 


P 30, P AO  INTERFACE  . 


5 83  9 

5830  REF  1 

58*0  REF  1 

5841  REF  1 


F7,l64l  E 7,  1664  R TIG  ERASE  ♦ 1 90 

E7  ,1607  VTIG  EQUALS  R T I G 

E7,  1655  DELVSIN  EQUALS  VTIG 

67,  1663  DEL  VSA8  EQUALS  DELVSIN 


5842  REF 


F7 ,1 663  VGDISP  = DELVSAB 


R5943 


P40-P42  TEMPORARY 


5845  E7  , 1 665  E7.1665  QTEMP1  ERASE 

4 5846 


R5847  R52  T EMPORARY 

5849  REF  1 E7 ,1665  SAVQR52  EQUALS  QTEMP1 


R595D  INITVEL  STORAGE.  (IN  OVERLAY  0 AND  OVERLAY  1. 

R 58  52  (CALLS  LAMeERT,  CC  NI C S(J  BROUT  IN  ES  ) 


5853  PEE  1 

5854  RFF  1 

5855 

5356  REF  1 

A 5 867 


E 7, 1665 
E7 , 1616 
E7 , 1 666 
E 7,  1 6C 7 


VTPRIME  EQUALS  VACT4 

ITC-T3  EQ  UAL  S PDOTV 

COZY  4 ERASE 

I NTI  ME  FOUALS  GAMPREV 


E7 ,1667 
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USER  'S  PAGE  NO.  56  EO  S4 

I (6  ) OS  P NB  3 FOR  P47  DELTA  V IN  BODY  CD3R 

(20) 

I NTERCEPT  T I ME 

(1  D) 

I(1)TMP  COMMON  RETURN  SAVE  REGISTER. 


(6  D ) 


9(2)  TMP  CSI  TIME  IN  CENTI  SECONDS 
B(2>  TMP  TPI  TIME  IN  CENT  I SECONDS 
R(2)  TMP  TTPI  STORAGE  FCR  RECYCLE 


I2>D) 

I (6  ) TMP 
I ( 6) TMP 
I (6  >TMP 
1(2) TMP 


(ID) 

I ( 1 ) T MP  HOLDS  RETURN. 


TOTAL  VELOCITY  AT  DFSIRED  RADIUS 
I TE  RATI  ON  COUNTER 

COS  DF  ANGLE  WHEN  ROTATION  STARTS 
TIME  OF  R IN  IT 


SAP:  ASSEMBLE  REVISION  56  OF  AGC.  PROGRAM  Z ERL  IN  A RY  ZOROASTER 
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L ERA  SAB  LF  ASSIGNMENTS  USER'S  PAGE  NO.  57  EO  S4 

R585B  PERIAPO  STORAGE.  (2D)  (2  D > 


5860 


E7  ,1670  E7  « 167  I 


XXXALT  ERASE 


RADIUS  TO  LAUNCH  PAD  OR  LANDING  SIGHT 


R 586  1 


S40.  1 STORAGE. 


( 1 2 D ) 


5863 

5864  RFF  1 

5865  REF  1 

R 5 866  ASTEER  STORAGE. 


E7,  1672  E 7»  1705 
E7,l 700 
E 7,  1 7C0 


UT  ERASE  + 1 ID  1(6)  THRUST  DIRECTION 

VGTIG  EQUALS  JT  +6  I ( 6 )3  UT 

VGPREV  = VGTIG 

( 22D) 


5868 

5869  REF  1 

5870  REF  1 

5871  REF  1 

5872  REF  1 

5873  REF  1 

5874  REF  1 


E7,  1 7 1 4 
E7 ,1716 
E 7, 1720 
E7,  172  2 
E7.L724 
F 7 , l 7 ? 2 


E7  ,1733 


VG 

R MAG 

MU  AST  EER 
MU/A 
RTMAG 
R1  C 
SS 


ERASE  +2  ID  1(6) 

EQUAL  S VG  +6  I (2  ) 

EQUAL  S RM AG  +2  1(2) 

EQUALS  MU AST  EER  *2  1(2) 

EQUAL  S MU/A  +2  1(2) 

EQUALS  RTMAG  +2  1(6) 

EQUALS  RlC  +6  I (2  ) 


R5876 


ASTEER 


5879  RFF 


5880  REF 
R5881 


2 LAST  146  E 7 ,1655 

1 E7,  1762 

1 E7 , 1764 

2 LAST  147  E7,  1766 


I C 

TIGSAVF  = 
T I GS  AV  EP  = 
MUSCALE  = 


DELVSIN  1(6)  CHORD  VECTOR:  R TAR  G VEC  - POS  VEC 

P 2 1 TI  ME  1(2)  USED  TO  DETERMINE  WHEN  YOU 

SCAXIS  1(2)  WANT  TO  DO  ASTEER  NEXT 

SC  AX  I S +2  1(1)  HOLDS  INDEX  VALUE 


3 5R8? 


P4C  STORAGE. 


( 8D  ) 


R588<* 

5885 

5886 

5887 

5888 
A5889 


REF  1 
REF  1 


F,  MOOT,  AND  TDECAY  MIST  0F  CONTIGUOUS  FOR  VLOAD. 
E7  ,17  34  E7 , 174 1 F ERASE  +5 

E 7 , 1 7 36  MDCT  EQUALS  F 

E7,  1740  TDECAY  EQUALS  MOOT 

E7  ,1  742  E 7 , 1 743  VEX  ERASE 


II  2 ) TMP  THRUST  MAG  10**4  NEWTONS  ( B-7  ) 

+2  I ( 2 )T  MP  MASS  CHNG  RATE,  KG/CS  AT  2**3. 

+ 2 I ( 2 ) I N DELTA-T  T A ILOFF  * (2**28)CS. 

+ 1 1(2)  EXHAUST  VELOC  I TY  FOR  TG  0 C OMPUT  A T • N 


R 5 890 

5892 

A5993 


MI0TCAV1  (2  ) STORAGE. 

E 7 , 1 744 


(CALLEO  BY  P40,P41,P42) 

F 7 ,1744  I RETURN1  ERASE 


( ID) 

8(1)  KETJRN  FROM  MIDTOAVl  ANO  2 


AP:  ASSEMRLE  REVISION  86  OF  AGC  PROGRAM  Z6RLINA  6Y  ZOROASTER 


L FPASABLE  ASSIGNMENTS 

P5898  *******  OVERLAY  NUMBER  1 IN  EBANK  7 ******* 

A5895 


» 589ft 

5898 
A 5 899 

3 5900 

590? 


INITVEL  (CALLCO  RY  F38  , 3 5 , 3 8 » 39  , 10  , ] 1 , S8C  .9  , S 4''  . 1 ) 
REF  1 E7,  1871  RTARGl  EQUALS  VACTl 

P35-P8C  INTERFACE. 

PCF  2 I AST  K5  E7,  1505  VPASS8  EQUALS  VPASSl 


3 5903 


LAT  - LONG  TEMPORARIFS.  CAN  OVERLAY  WITH  S80.1 


I AST  1*7  E 7,  1 ft 7 2 
E7, 1678 


ERADM  EQUALS  UT 
INCD9PEX  EQUALS  ERADM  +? 


* 5907 


LP  $2  8.  1 STORAGE.  (CAN  SHARE  WITH  P30'-S) 


5 909  RFF 

5910  Pf-F 

5911  REF 

5912  REF 

5913  PEF 
5918  REF 

5915  REF 

5916  REF 

5917  REF 

5918  PFF 


LAST  188 


E7 ,1  7 ( 3 
E 7,  1711 
E7, 1 717 
E 7 , 1 72  5 
E 7,  1731 
E7  ,1738 
F7 , 1738 
E7 , 1736 
E7  ,1737 


RLM  SRC  H 
VX  RCM 
LOSUE  SRO 
UXVEC1 
UYVECT 
DA  TAG 000 
OMEGOISP 
OMEGAO 
N SRC  HP N T 
S AVL  EM  V 


F 0 U4  L S 
EQUALS 
F QUA  L S 
EQUALS 
EQU  ALS 
E QUAL  S 
EQUAL  S 

EQUAL  S 
EQUAL  S 


I NC  OR  PE  X +1 
PLMSRCH  +6 
VXRCM  +6 
LOSDESRD  +6 
UXVECT  +6 
UYVECT  +6 
DATAGOnn  +1 
OMFGDISP 
OMEGDI SP  +2 
VSRCHPNT  +1 


A5919 


.038  PAGE 
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USER  • S PAGE  NC.  5 8 


EO  S6 


( 60) 

I (6  )S  TEMP  STORAGE  OF  RT  ARG 

IftD  ) 

I ( 5 ) T MP  VELOCITY  OF  PASSIVE  AT  INTERCEPT 

( 30) 


( 80  D ) 

1(6)  T MP  LM  POS  IT  1CN  V ECTOR 
1(6)  CM  V X R VEC  TOP 
I (6  ) OES  IRED  LOS  VECTOR 

1(6)  X-AXIS  SRCH  PATTERN  COORDS 

1(6)  Y-AXIS  SRCH  PATTEkN  COOROS 

B ( 1 >OSP  FOR  R 1 - ALL  1-S  WHEN  LOCKON 
R(?)  ANGLE  OMEGA  DISPLAYED  IN  R2 

PINBALL  DEFINITION. 

8 ( 1 ) T MP  SEARCH  PATTERN  POINT  COUNTER. 
1(6)  S-S  SAVES  LOSVFL 


ASSEMBLE  RFVISION  S£  OF  AGC  PROGRAM  ZFRIINA  BY  ZOROASTER 


ERASABLE  ASSIGNMENTS 

*******  OVERLAY  NUMBER  2 IN  EBANK  7 ******* 


59  24 
5925 
59  26 

5927 

5928 
R 59  29 


5931 

5932 

5933 
A 5 934 

R 59 35 

5937 

5938 
A5939 


INCCRP  ST  CRAG  F IN  E7. 

REF  2 LAST  144  E7,  1471 

REF  1 E7.1477 

REF  1 E7.15C2 

REF  1 E7 » 1524 

PEF  1 F7,1546 

AOTMARK  STORAGE 

REF  1 E7  , 1550 

PEF  l E7.1551 

REF  1 F7,  1552 


PLANET  STORAGE. 


TX789  E QUA  L S E7CVERLA 

GAMMA  E QUA l S TX789  +6 

OMEGA  EQUALS  GAMMA  +3 

B VECTOR  EQUALS  OMEGA  +180 

OELTAQ  EQUAL  S B VECTOR  <-180 


MARKCNTR  EQUALS  OELTAQ 
XY  MARK  EQUALS  MARKCNTR 
MKDEX  EQUALS  XYMAPK 


LRS22.3  STORAGE.  (CAN  SHARE  WITH  P30'S  AND  OVERLAY  LRS24.  1 


594? 

5943 

5944 

5945 

5946 

5947 
5 9 48 
59  4° 

5950 

5951 


< 595? 
R 5 9 5 3 


PFF 

REF 

RFF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 


LAST  148 
LAST  149 


1 


E 7,1675 
E7,  1675 
E7 ,1675 
E 7,  1676 
E7 , 1704 
E 7 , 1 712 
6 7,  1720 
E7  ,1721 
F 7,1723 
E7 , 1 7 3 1 


*****  in  OVERLAY  ONE  ***** 
R22  / NO  UN  49  DI  SPLA  V 
1 F7.1746 


LG  RET 
ROPF  T 
IGRET 


ECU  ALS  RLMSRCF 
EQUAL  S LGRE  T 
EQUALS  LGPET 
MX  EQUALS  RDRET 

MY  EQUALS  MX  +6 

MZ  EQUALS  MY  +6 

SC  A L SHF  T EQUALS  MZ 
RXZ  EQUALS  SCAL  SHF T 

ULC  EQUALS  RXZ 

SI  NTH  ETA  FQUALS  ULC 


N49FLAG  EQUALS  RDOTMSAV 


R5956 
9 5958 
595  9 


LRS22.1  STORAGF.  (MLST  NOT  SHARE  WITH  P3o'S) 

(OUTPUTS  ARE  TO  LPS22.3) 

E 7,  1733  RRTRUN  EQUALS  SINTHETA  *2 


9:12  OCT.  21 


1970  ZERASE 


.038  PAGE  149 


USER'S  PAGE  NC.  59 


EC  S4 


( 470) 

I (6  ) 

I ( 3) 
1(18) 
1(18) 
I(  2) 
(30) 


1(1) 

B(  L ) 

B ( 1 )TMP 


INDFX 


FCP  ACT  MARK 


(RD) 

(6)  REFER  VECTOR  OF  PLANET 

(2)  TIME  OF  MARK  OR  E ST  TIME  OF  MARK 


( 300) . 

1(1)  TMP 

8(1)  TEMP  RETURN. 

B ( 1)  TEMP  RETURN. 

I (6  ) 

I (6) 

1(6) 

R (1  ) SCALE  SHIFT  FGR  EARTH/MOON 
1(2) 

1(6) 

1 (2) 


8 ( I ) S FLAG  INDICATING  V0649  RESPONSE 


(130) 


B(2)0UT  RR  TRUNION  ANGLE 


G&P: 


,SSFMRLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT  . 21,  1970  ZERASE 


038  PAGE  150 


L ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NO.  60  ED  S4 


596'-, 

5961 

5962 
596  3 

A5964 


F7 ,1 735 
r 7,  1737 
C7, 1 740 
F 7 , 1 746 


RRSHAFT  EOUALS  RRTkUN 
LRS22.1X  EOUALS  PRSHAFT 
RRBORSIT  EOUALS  LR  S22.  1 X 
RDCTMSAV  EQUALS  RRBORSIT 


0(  2J0UT  RR  SHAF  T ANGLE 
R(1  )TMP 

1(61  TMP  PADAR  BORESIGHT  VECTOR. 
B ( 2 ) S RR  RANGE-RATE  (FPS) 


R 5965 

5967 
5 96  8 
R 5969 
5979 

5971 

5972 
A5973 
R 5974 
R 59  7 5 


LRS22.1  ( S Au  F AS  PREVIOUS  SECTION)  ALSO  OOWNL  INK  FOR  RR  (R29M10D) 

LAST  149 


CANNOT  SHARP  WITH  L.A.O. 


F 7,  1750  RDGTM  EQUALS  RDOT  vs  AV  +2 

F7,  1752  TAN  GN  B FQLALS  RDOTM  +2 

RETAIN  THE  CROER  rp  NKTIME  TC  RM  FOR  DOWNLINK  PURPOSES 
RFF  1 F7,  1754  MK  TI  ME  EQUALS  TANGNB  +2 

RFF  1 E7 , 1 756  RM  EQUAL  S MK  TI  ME  +2 

RFF  1 E 7 , 1 760  RANGROOT  EQUALS  RM  *2 


8(2) OUT  TIME  OF  PR  RFAOING 

I(?)OUT  RANGE  READING 

0(2)  DOWNLINKED  RAW  RANGE  AND  RRATE 


R61  I EM 


*IN  OVFRLAY  ONF  * 


5977 
A 5978 
A5979 


LAST  150  E7 , 1745 


R65CNTR  EQUAL  S RRBOP  SI  T 


B ( 1 ) S S CQINT  NUMBER  OF  TIMES  PREFERRED 
TRACKING  ROUTINE  IS  TO  CYCLE 


F2 1 STCRAGE 


P21TIME  EQUALS  RANGROOT  +2 


( 2D) 

1(2  )TMP 


* 5984 


INPUTS  TC  VFCPQINT.  CALLED  BY  R60-65  (ATTITUDE  MANEUVERS)  (12D) 


5986 

5987 
\ 5988 


SCAXIS  EQUALS  P21TIME  +2  T (6  ) 

POINTVSM  EQUALS  SCAXIS  +6  1(6) 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L ERAS  A8L  E ASS  IGNMENTS 

P598P  *******  OVERLAY  NUMRFR  3 IN  EE ANK  7 ******* 


9:  12  OCT.  21,  1970  ZERASE  . 038  PAGE  151 
USER'S  PAGE  NC.  61  EO  S6 


1 ) 1 

5993 
5996 
5995 
A 59Q6 


REF 

REF 

REF 


SERV  ICER  STORAGE 


LAST  169 


E 7 , 1 671 
E 7,  1673 
E7 ,1675 


APVEL  EQUALS  E70VERLA 
HDOTOISP  EQUALS  ABVEL 
TTFOISP  EQUALS  HDOTOISP 


R ( 2 ) 
B(2  ) 
B ( 2) 


D I SPLAY 
DIS  PLAY 
D I SPLAY 


ASCENT  GUIDANCE  FOR  L LNAR  I AND  I NG 


LAST  151  E7.1673 


EQUALS  HDOTOISP 


(20  ) 
I ( 2) 


BURN  PROG  STORAGE. 

E7, 1677 


SAVET-30  EQUALS  TTFDISP 


(2D) 

B ( 2 ) TMP  TIG-30  RESTART 


R6306 

6006 

6007 

6008 
6009 
S3  ID 
6011 
60  12 
6313 
6016 

6015 

6016 
6017 

R5D19 

R6019 


SERV  I C FR  STORAGE. 


RFF 
P-EF 
RFF 
REF 
R FF 
REF 
REF 
RFF 
REF 
REF 
RFF 
RFF 


E7 ,1501 
F 7, 15CI 
E7,  1507 
E 7 ,1511 
F 7 , 15  13 
E7, 1 616 
E 7 ,1516 

E7 , 15  16 
F7 ,1526 
E 7 , 1 5 26 
E7,  1532 
F 7 , 1 536 


V G BODY 
DELVCTL 
DV  TO  TAL 
GOBLT  I ME 
D VC  N TR 

T GO 
R 

UNI  TGOBL 

V 

DELVREF 
HCALC 
UN  IT/  R/ 


EQUALS  SAVET-30 
= VGBODY 

EQUALS  VGRODY 
EQUALS  OVTOTAL 
EQUALS  GCBLTIME 
EQUALS  DVCNTR  ♦ 
EQUALS  T GO  ♦ 

EQUAL  S R 
EQUALS  R 
EQUALS  V 
EQUALS  DELVREF 
EQUALS  HCALC 


B ( 6)  OUT  SET. BY  S61.1  VG  IFM,  SC. COORDS 
B (2)  DI SPLAY  NCUN 

B(  2 ) NOMINAL  TIG  FOR  CALC.  OF  GOBLATE. 

8 ( 1 ) 

R ( 2) 

1(6  ) 

I (6  1 

I (6  ) 

8(2)  LR 

1(6) 


(THE  FOLLOWING  SERVICER  ERASABLES  CAN  BE  SHARED  WITH  SECOND  DPS  GUIDANCE  STORAGE) 


60  21 
6922 
6023 
6C  26 

6025 

6026 
6327 
6028 
6029 


RFF 

REF 

RFF 

REF 

RFF 

REF 

RFF 

RFF 

RFF 


F7 ,1 562 
F7,  1550 
F7  ,1556 
F 7, 1560 
F7 , 1566 
E 7 ,1  570 
E 7,  1570 
F7, 1 572 
F 7 ,1  6C0 


RN1 
VN  1 

PIPT  IME1  EQUALS  VN  1 
G 1 EQUALS  PIPTIME1 

P GUIDE  1 EQUAL  S 3 1 
MASS  1 EQUALS  PGUIDF1 
DVCNTR1  EQUALS  MASS1 
P IS  EQUALS  MA  SSI 

VIS  FQUALS  R1S 


B ( 6 ) 

I (6  ) 

B(  2) 

8(6  ) 
8(2) 

8 ( 2) 

8(1  ) T M P 
T ( 6) 

1(6  ) 


( IN  ORDER 
( FOR 

MJST  FOLLOW  P IP  TIME  1 
MUST  FOLLOW  Gi 
MUST  FOLLOW  PGUIDE1 
RESTART  REG  FOP  DVCNTR 


P7  1 RESTART  PROTECTION 


GAP:  AS  S - MRL  E REVISION  56  DF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ERASABLE  ASSIGNMENTS 


6032 

REF 

3 

LA  ST 

151 

E 7 , 1 5C 1 

TG  Cl 

EQUALS 

VGBOCY 

R6P33 

ALIGNMENT/S60 .2. 3 CCMMCN 

STORAGE. 

60  3 5 

PFF 

1 

F7, 16C6 

XS  MO 

EQUALS 

VIS 

+ 6 

6:36 

REF 

2 

L AST 

1 

E 7 , 1616 

YSMD 

EQUALS 

X SMO 

+6 

6037 

REF 

1 

E7 ,1622 

7SM0 

EQUAL  S 

YSMD 

+ 6 

60  38 

R FF 

3 

LA  ST 

152 

E 7, 16C6 

X SC REF 

- 

X S MO 

5039 

RFF 

2 

LAST 

152 

c 7,  16  1 6 

YSCR  FF 

= 

YSMD 

1 

F7 ,1622 

7S  CP  FF 

Z S MO 

6361 

REF 

2 

L AST 

152 

E 7,  1630 

END-ALI3 

EQUALS 

ZS  MO 

+6 

R 6062 

**** 

P22  ** 

** 

6066 

PEF 

1 

E 7, 163C 

RSUBL 

EQUALS 

ENC-AL IG 

5065 

REF 

1 

E7,  1636 

UC  SM 

EQUAL  S 

R SLBL 

+ 6 

6C66 

FEF 

1 

£7,1666 

NEWVEL 

EQUALS 

J CSM 

+ 6 

5367 

REF 

1 

E 7,  1652 

NE  WPOS 

EQUALS 

NEWVEL 

♦6 

6068 

RFF 

1 

E7, 1663 

LNCHTM 

EQUAL s 

NE WPG S 

+ 6 

6069 

REF 

1 

C 7 , 1 662 

TRANSTM 

EQU  ALS 

LNCHTM 

+2 

5353 

REF 

1 

E7 , 1666 

NC  SMVEL 

EQUAL  S 

TR  ANSTM 

+2 

A 6051 

R605? 

***** 

P 2 1 

***** 

6056 

RFF 

! 

1 162 

P 21DR  IG 

01  SPDE X 

6055 

REF 

3 

LAST 

16  9 

E 7 , 1 675 

P21  BAS  ER 

EQUALS 

PLMSRCH 

5356 

REF 

l 

E7,  1 7C3 

P21RA  SE V 

EQUALS 

P21  BASER 

+6 

605  7 

REF 

1 

E7 , 1 7 11 

P 2 IV  EL 

EQUAL  S 

P 2 IB  A SE  V 

+ 6 

60  5 e 

RFF 

1 

E 7, 171  3 

P21GAM 

EQUALS 

P2  1V  EL 

*2 

5359 

RFF 

1 

F7,  1715 

P 2 lAL  T 

E QUAL  S 

P 2 1 GA  M 

+2 

A 6060 


9:12  CCT.  21,1970  ZFPASE 
USER'S  PAGE  NC.  62 
8(2  )TMP 


.038  PAGE  152 
EO  S6 


(180) 

1(6  ) 

I (6  > 

I ( 6) 


NEXT  AVAIL  ERASABLE  AFTER  AL  IGN  / S 60.  2,  3 


( 360) 

I (6  )S  — S LM  POSITION  VECTOR 
I (6) S-S  VECTOR  U 

I { 6 ) S-  S TERMINAL  VELOCITY  VECTOR 
I (6  )S-S  TERMINAL  POSITION  VECTOR 
I (2)  S-S  EST.  LAUNCH  Ti  ME  FCP  LEM 
I ( 2 )S-S  TRANSFER  TIME 
1(6  )S  -S  NEW  CSM  VELOCITY 


( 18  C ) 


I(  6)TMP 
I (6  )TMP 
I(2)TMP  *** 
I ( 2 )T MP  *** 
I (2  ) T MP 


NOUN  91  *** 
NOUN  91  *** 
NOUN  9 1 *** 


TAP:  ASSEMBLE  RFVISION  ^6  OF  ABC  PRCGPAM  ZERLINA  BY  ZOROASTER 

L ERASABI  E ASSIGNMENTS 

P6061  *******  CVFRLAY  NUMBER  A IN  EE ANK  7 ******* 

A 60  6 2 


9:12  OCT.  21,  1970  ZERASE  .038  PAGE  153 
USER'S  PAGE  NO.  63  EO  S4 


RS063  VARIABLES  FOR  SECOND  OPS  GUIDANCE  (THE  LUNAR  LANDING)  (RlD) 

R 6065  THESE  FRASARLES  MAY  BE  SHAREC  WITH  CARE 


6066 
606  7 
6068 
6363 
60  70 

6071 

6072 

6073 
5374 

R 6079 


R FF 
REF 
REF 
REF 
PEF 
REF 
REF 
REF 
R EF 


IS1 


E 7, 
E7, 
E7  , 
E 7 , 
E7  , 
E 7 , 
E7, 
E7  , 
E 7, 


1 550 
1 c52 
1553 
1 554 
1556 
1560 
16  21 


OURTEMPS 
L AND  TEMP 
TTF/8TMP 
F LCOUNT 
AZCOUNT 
TPI POLO 
KEEP-  2 
T ABLTT  F 
E2DPS 


RN1 

OURTE  MPS 
LANOTEMP  +6 
TTF/8TMP  +2 


= ELCOUNT 

= AZCOUNT 

= TPIPOLD 

= < E EP-  2 

EQUALS  OURPFRMS 


+ 1 
+1 
*2 
+ 2 


OVFRLAY  LAST  PART  OF 
8(6)  GUI  DA  NC  F 

B ( 2 ) GUIDANCE 

8(1)  REDESIGNATOR 

B(  1)  REDESIGNATOR 

B ( 2 ) GUIDANCE 

(2)  TO  PREVENT  P 

B ( 2)  GUI  DANCE 


SERVICER 


AND  P66HZ 
AND  P66HZ 

PTIMEL  OVERLAY 


R6076  THESE 
A 6077 

S37R  PEF 

6079  RFF 

6080  REF 
6381  REF 
6082  REF 
6C83  REF 
6084  PEF 
6C85  REF 

Ah  386 


FRASARLES  MUST 


NOT  OVERLAY  60BLTIME  OR  SERVICER 


4 l AST 
1 
1 
1 
1 
1 
1 
1 


C7, 1 607 
F7 , 1 61 0 
E7,  1612 
E7 ,1614 
E7,  1615 
E7 , 1 6 16 
E7 ,1620 


P I F P SE  T 
RTNH3LD 
FWF IGHT 
PIF 

PS  EJ  DO  55 
FC 

FWEIGHT1 
FCOL  D 


XSMD  8(1  ) 

PIFPSET  4-1  B ( 1 ) 

RTNHOLD  + 1 8(2) 

FWFIGHT  +2  0(2  ) 

P IF  +2  8 ( 1) 

PSEUDC55  +1  B ( 1 ) 

c:  +1  B ( 2 ) 

FWE  IGHT  1+2  0(1) 


THROTTL  E 
THROTTLE 
THROTTLF 
THPOTT  LE: 
THROTTLF  : 
THROTTLE: 
THROTTLE: 
THROTTLF  : 


CES  I P EO  THRUST  CHANGE 
DCWNLI NK 
DESIRED  THRUST 
PRELIMINARY  FW  E IGHT 
FC  LAST  PASS 


R6(  87 


THESE 


FRASABLES  SHCULC  NOT 


BE  SHARED  DUR  IN  G P 6 3, 


P 64,  3 65,  P 66,  P 67 


6088 

6389 

6090 

6091 

6092 

6093 
6394 
6095 
6006 
6397 
6098 
6 C 99 
61  00 

A 6101 
Ah  13  2 


REF 
REF 
PEF 
REF 
RFF 
REF 
PEF 
RFF 
PEF 
PEF 
RFF 
P FF 
REF 


2 l AST  153 


E 7 , 1621 
F7  ,1622 
E 7,  16  23 
E7 , 1624 
F7.1626 
E 7 , 1634 
E7 , 1642 
67,1644 
F7,  1h45 
F7  ,1646 
F7, 1647 
F7,  1650 


CURPERMS 
WC  HP  HOLD 
51  1 CTP 
FLPASSO 
TR  IP 
VGU 
LAND 
TTF/R 
E LCOUNT  1 
AZCOUN  T1 
ZERL  IN  A 
ELVIRA 
LRPD  S 


FCOL  C +1 
OURPERMS 
WC  HP  HOL  D +1 
511CTR  +1 
FLPASSO  +1 
TPIP  +2 

VGU  +6 

LAND  +6 

TTF/R  +2 
ELCOUNTl  +1 
A7 COUNT  1 +1 
ZERLINA  +1 
ELVIRA  +1 


MUSTN'T  OVERLAY  OURTEMPS  OR  SERVICER 
8(1)  GUI  DANCE 

B ( 1 ) R 12  - CONTROLS  511  ALARM 

B ( 1 ) GUIDANCE  PASS  COUNTED 

R(2) 

B ( 6 ) GUIDANCE 

B (5  ) GUIDANCE  CONTIGUOUS 
8(2)  GUIDANCE  CONTI  GU0U5 

B(  1 ) REDESIGNATOR  AND  P 66H7 

8(1)  REDES  I GNAT  OR  AND  P66  HZ 

B(l)  REDESIGNATOR 

6(1)  REDESIGNATOP 

8(1)  LAST  LP  ANTENNA  POSITION 


**  NOTE:  GAP  OF 


SP  LOCATION  HERE 


IN  THIS  P6  3 THRU  P66  OVERLAY  ** 


GAP:  ASSEMBLE  REVISION  56  OH  AGf.  PROGRAM  ZER LINA  BY  ZOROASTtR 


9:1?  OCT.  21,1970  Z ERASE 


.0  38  PAGE  154 


L EPASABLE  ASSIGNMENTS 


USFR*  S PAGE  NC. 


ED  S4 


61.13 
6154 
61  o5 
6106 
6 1 07 
61  OR 
6159 
611' 
6111 
6112 
6113 
R 61 14 


PFF 
RFF 
RFF 
REF 
PEF 
RFF 
P EF 
PEF 
PEF 
PFF 
RFF 


1 

1 

1 

1 

? 

3 

1 

1 

1 

1 

1 


LAST 
I AST 


E 7 ,1652 
F7 , 1654 
E7  ,1656 
E 7,  16  56 
154  F7, 1656 

154  E 7 , 1 664 
E 7,  1666 
E7.1670 
E 7,167? 
F7t  1673 
E7  ,1456 


VMEAS 
HMEAS 
VN  2 
GNUR 
GNUV 
CELT  AH 
FUNNYOSP  = 
GTCTIME  = 
THROISP  = 

eourperm  = 

OV  FR  FT 


LRPOS  +2 
VMEAS  +2 
HMEAS  +2 
VN2 
VN  2 

VN2  +6 

DELTAH  +2 
FUNNYOSP  + 2 
GT  CT  IME  +2 
THRDISP  +1 
LOSCOUNT 


B(  2 ) VEL  READ  BY  LR  BEAM  X,  Y OR  Z 

B (2  ) IR 

016)  LR 

H ( 6 ) LR 

B ( 6)  LR 

0(2)  DISPLAY 

8(2  J 0 IS  PL  AY 

8(2)  PIPTIME  CORRESPONDING  TO  FC 

B(l)  0ESI3ED  PERCENT  DPS  3 A TED  THRUST 

NEXT  AVAILABLF  CELL  AFTER  OURPERMS 
B ( 1 ) 


R6115  (ERASARLES  WHICH  OVERLAY  THE  ABOVE  BLOCK) 


61!  4 
6117 
6 1 1 0 
6119 
6125 
A 6121 


REF 

PEF 

RFF 

RFF 

REF 


? LAST  153  F 7, 1646 

2 LAST  153  F 7,  1647 

2 LAST  154  E7 , 1666 

3 LAST  154  E 7 , 1 666 

4 LAST  154  E7,  1667 


NIGNLOOP  = Z ERL  IN  A 

NGUIOSUB  = ELVIRA 

FORVnSKY  = FUNNYDSP 

TREDES  = FUNNYDSP 

LOOKANGL  = FUNNYDSP  +1 


B( 1 ) IGNALG 
G ( 1 ) IGNALG 

R(  1 ) D I SPLAY  PURI  NG  P66 

8(1)  DISPLAY 

B < 1 ) DISPLAY 


R612?  THE  END  OF  THE  LUNAR  LANDING  FRASABLES 
A6123 


36124  R 12  (FCR  LUNAR  LANCING)  (60) 


6126 

PEF 

1 E 7 , 1673 

LR  LC TR 

EQUALS 

E OUPPERP 

8(1  ) 1 

R DAT  A T EST 

6127 

RFF 

1 F 7, 1674 

LRRCTR 

EQUALS 

LRLCTR 

♦ 1 

0(  1 ) 

6123 

REF 

1 E 7 , 1675 

LR MC  TR 

EQUALS 

LRRCTR 

+ 1 

B (1  ) 

6129 

REF 

1 E7 , 1 67 6 

L RSCTR 

EQUALS 

LRMCTR 

+ 1 

B ( 1) 

6130 

R EF 

1 E 7 , 1 677 

STI LBADH 

EQUALS 

LRSCTR 

+1 

B(  1 ) 

6131 

PEF 

1 E7,  1 7G0 

STILBADV 

EQUAL  S 

STI LBADH 

4-1 

B C 1 ) 

A 613? 

R6133 

QUARTAS<  STORAGE  (LANOING 

ANALOG  DI  SPLAYS,  ETC. 

. ) 

(35  D) 

6 13  5 

REF 

1 E7 , 1701 

GR  AVACCX 

= 

STI LRADV 

n 

B ( 1 ) 

ACCELERATION  DUE  TO  GRAVITY 

6136 

PFF 

1 E 7 , 1 7C2 

GPAVACCY 

= 

GR  AV  AC  CX 

+i 

B ( 1 ) 

ACCELERATION  OUE  TO  GRAVITY 

6137 

RFF 

1 E7,  1 70  3 

GRAVACCZ 

= 

GRAVACCY 

+ i 

B ( 1 ) 

ACCELERATION  OU  F TO  GRAVITY 

6138 

PFF 

l E7  , 1 704 

B I AS  AC  CX 

= 

GRAVACCZ 

+ i 

0 ( 1) 

PSEUDD-ACC  DUE  TO  PIPA  BIAS 

6139 

R EF 

1 E 7,  1 7C  5 

BI  ASACCY 

= 

BI  AS ACCX 

+i 

8(1  ) 

PSEUDO-ACC  OUE  TO  PIPA  BIAS 

6 1 40 

RFF 

1 E7 , 1706 

B IASACCZ 

= 

BI  ASACC  Y 
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1 E 7 , 1 7C7 

VSUR  FACE 

= 

BIAS  AC  C Z 
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B(  6) 

LUNAR  SURFACE  VELOCITY 
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HC ALC LAD 

= 
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+6 

B (2  ) 

ALTITUDE  IN  UNITS  OF  2(15)  M 

6143 
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= 
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DALTRATE 

= 

HDOTLAD 

+2 
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RUNI  TX 

= 

DALTRATE 

4-1 

B(  1) 

X-CGMPONENT  OFUNIT/R/  FULL-SIZE 
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F7  ,1736 
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RUNI  TY 
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OT 

VVHC  TX 
VVECTY 
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ALTITUDE 
LATVMETR 
FOR  VME  TR 
FORVFL 
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96 
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6158 

615° 
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I AST 
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FORVTEMP  = 
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6169  REF 

6170  REF 

6171  REF 

6172  REF 
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6174  REF 

6175  REF 
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E7,l  756 
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VOGVERT 
VHZC 
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R UNITY  6 1 B ( 1 ) 

RUN  ITZ  +1  B ( 1 1 

DT  +1  B (2  ) 

VVECTX  +2  B ( ? ) 

VVECTY  *?  B ( 2 ) 

VVECTZ  +2  B (2 ) 

ALTRATE  +2  B ( 2 ) 

ALTITUDE  +2  B ( 1 » 

LA  TVME  TR  H Bill 

FORVMETR  +1  B(  21 


Y-COMPON  FN  T OF  UNIT/*  / FULL-SIZE 
Z-COMPONENT  OF  UNIT/R/  FULL-SIZE 
TIME  SINCE  LAST  PI  PTI  ME 
VELOCITY  X-COMPONENT 
VELOCI  TY  Y-CCMPONENT 
VELOCITY  Z— COMPONENT 
ALTRATE  IN  UNITS  OF  2(6)  M/CS 
ALTITUDE  IN  UNITS  OF  2(15)  M 
LATERAL  METER  INDICATOR 
FORWARD  MFTER  INDICATOR 
FORWARD  VELOCITY  FOR  DISPLAYS 


I TEMP3 
IT  EMP3 
I TEMP 3 
1TFMP  5 
RUPTREG1 
RUPTREG3 


0(2)  ALTITUDE-RATE  TEMPOPARY 

B ( 2 I ALTITUDE  TEMPORARY 
B ( 2 ) VELOCITY  ALONG  UHYP 
6(2)  VELOCITY  ALONG  UH  7 P 

B ( 2 I FORWARD  VELOCITY  TEMPORARY 

B ( 2 ) LATERAL  VELOCITY 


(T  4 D) 

COUNTER  FCR  ROD  CLICKS 
DESIRED  VERTICAL  RATE 
OESIREC  VHZ,  OVERLAPS  VOGVERT 
COUNTER  FCR  P66HZ  LOGIC 
TIMF  OF  P 66P0  0 ' S PIPAX  READING 
P66R0D'  S P IPAX  READING 
LAST  P 66R  OD ' S PIPAX  RIADING  TIME 
LAST  P66R0  D 'S  PIPAX  READING 
TAU  FOR  USF  BY  P66  ROD 
LAST  P 66R OD  ' S TAU 
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+1  6(2) 

4-6  B ( 2 1 
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FORVFL  4-2  8(1) 

RODCOUNT  +1  B ( 2 I 

VOGVERT  B ( 6 ) 

VHZC  4-6  9(1) 

H 7 COUNT  +1  8(1) 

P 66TP I P 4l  0(1) 

P66PIPX  4-1  B(  1) 

0P66TPI  P 4-1  B (1  ) 

DP66PIP  X 4-1  R(  1 I 

TAU  4-1  B ( 1 ) 


-OLDT  AU 
HLR  TI  ME 
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ALT  ITU  OF  AT  LRTIMF 

VERSION  OF  HMEAS  FOR  DOWNLINK 

VERSION  OF  LRTIMF  FOR  DOWNLINK 
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( 2 ID ) 

61  88 

PEF  2 

LAST  152  F 7 , 1 6 30 

RCO 

EQUALS 

E ND-ALIG 

I (2  >TMP 

TAPGET  RADIUS  AND  11UT-0F-PLANE 

6lB9 

PEF  1 

E7,  1632 

YCO 

EQUAL  S 

RCO 

* 2 

1(2) TMP 

DISTANCE,  SCALED  AT  2(26). 

6190 

PEF  1 

F7.1636 

1/CV1 

EQUAIS 

YCO 

*2 

B( 2)  TMP 

ATMAG 

S 1 3 1 

REF  1 

F 7,  1636 

1/DV2 

EQUALS 

1 /DVl 

*■2 

P 12  )TMP 

AT  MAG 

6192 

RFF  1 

F7, 166'. 

1/0V3 

EQUAL S 

1/0V2 

+ 2 

B(  2)  TMP 

ATMAS 

6193 

PEF  1 

E 7 ,1 642 

XRANGE 

EQUALS 

1/CV3 

+2 

B ( 2 )TMP 

6 1 9 A 

PEF  1 

E7, 1666 

ENGDFFOT 

EQUAL  S 

XRANGE 

4-2 

B( 1 ) TMP 

6195 

REF  1 

E7  ,1665 

VGVECT 

EQUAL  S 

ENGOFFDT 

+ 1 

I ( 6 ) OUT 

VELDCI  TY-TO-BE-GAI  NFD 

61  96 

REF  1 

E 7 1 1 6 53 

TXO 

EQUALS 

VGVECT 

+6 

I (2  )TMP 

TIME  AT  WHICH  X-AXIS  OVERRIDE 

A6l  97 

6190 

REF  3 

LAST  191  E7  , 1 570 

1/OVD 

EQUALS 

MASS  1 

B ( 2) TMP 

ATMAG  TEMPORARY 

R5199  END  OF  THE  ASCENT  GUIDANCE  ERASABLES. 


F7  ,1  777 


END-E7  EQUALS  3777 


**L  A ST  LOCATION  USEO  I N F7  ** 


GAP:  ASSEMBLF  REVISION  5 6 OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


PAGE  157 


9:12  OCT.  21,1970  ZERASE  .0  38 


L CHECK  EQUALS  LIST 


USER'S  PAGE  NC.  1 EC  S4 


R 0 00?  THIS  L!CT  IS  MAINTAINED  TO  E N SIRE  THAT  CERTAIN  ERASABLE  LOCATIONS’ 

R0003  ARE  I OC  AT  ED  AT  A SPECIEIEO  DISTANCE  FROM  ANOTHER  ERASABLE  LOCATION 

*0004  AS  REQUIRED  BY  THE  STRUCTURE  CF  THE  DOWNLINK  LISTS: 

R0D95  1.  IF  A LOCATION  IS  THE  SECOND  PART  OF  A DOWNLINK  WORD,  IT  MUST 

R OOC  5 BF  CONTIGUOUS  70  THE  LOCATION  THAT  IS  THE  FIRST  PART. 

R C'l'f'7  2.  IF  A LOCATION  IS  NOT  THE  FIRST  WORD  OF  AN  NDNADR  IT 

RD  DO  9 MUST  BE  AT  A SPECIFIC  NUMBFR  OF  LOCATIONS  FROM  THE  FIRST 

R00C9  LOCATION  IN  THE  INSTRUCT  ICN. 

ROO 1°  ?.  OTHEP  NAMES  MAY  BE  GIVEN  TC  LOCATIONS  IN  THE  DOWNL  INC  LISTS. 

ROd  1 THAT  APF  NOT  REFERENCED  IN  THE  LISTS.  THESE  MUST  NOT  BE  MOVEO. 

*0012  THIS  IS  ACCOMPLISHED  USING  THE  INSTRUCTION  CHECK  = 

R D > 1 3 THIS  INSTRUCTION  GIVES  A CUSS  IN  THE  ASSEMBLY  IF  THF  LOCATICN  OF  THE 
ROCiH  FIRST  TAG  FIELD  IS  NOT  EQUAL  TO  THE  LOCATION  OF  THE  SECOND  TAG  FIELD. 

*00  15  THE  INSTRUCTION  HAS  NO  OTHER  EFFECT  ON  THE  ASSEMBLY  OR  CODE. 


RDD16  THIS  LIST  SHOULD  BE  UPDATED  FOP  ANY  CHANGES  TO  THE  DOWNLINK  LISTS. 


R0D17  THIS  LIST  IS  MAINTAINED  BY  SUMNER  ROSENBERG 
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RFF 
P EF 
P EF 
PFF 
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1 
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1 
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2 LAST  110 
2 LAST  110 
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1 
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5 L AST  133 


0034 

0035 
0037 
0040 
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0113 
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0375 
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1172 
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1300 
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1331 
1324 

1335 
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E6  ,1423 
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TI  ME  1 
CDUY 
COUZ 
CD  L'T 
PI  PAX 
PI  PAY 
PI  PAZ 
OAPBOOLS 
LA  ST XC  MD 
THFTAD 
F A ILREG 
UPOLDMOD 
UPV  ERB 
UPCCUNT 
UPRUFF 
SP  IR  AL 


CHFCK= 
C.  HECK  = 
CHE  CK= 
CHECK= 
C HECK  = 
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C HEC  K= 
C HECK  = 
CHE C K = 
C HEC  K = 
CHECK= 
CH  E C K= 
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TIME?  +1 
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PIPAX  +1 
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UPV  ER  B +1 
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CJRSOR  +1 
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DNRRDOT  CHECK=  DNRRANGE  +1 
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ONLPVELZ  C HECK  = DNLRVEI  Y +1 
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DUML3DPS  C HEC  K=  SE  R VD  UR  N + 1 
ZNeSAV  C HECK  = YNBSAV  +6 

IGC  CHEC  K=  OGC  +2 

MGC  C HEC  K=  IGC  +2 

8ESTJ  CHECK=  BEST  I -H 

OMEGAQ  CHEC  K=  OMEGAP  +1 

OMEGAR  C HECK  = 3MEGAQ  +1 

ALPHAR  CHECK  = ALPHAQ  +1 
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0051 
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0056 
3355 
CC  56 

0057 
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3 3 67 
0C61 
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3 3 63 
00  66 
on  as 
0065 
0067 
3368 
0071 
> 7 2 
3373 
00  76 

0075 

0076 
00  77 
33  75 

0079 

0080 
3381 
0083 
00  86 


RFF  1 

PFF  l 

REF  1 

PFF  1 

RFF  6 L AST 

RFF  1 

RFF  3 I A ST 

REF  1 

REF  1 

RFF  1 

RFF  2 LAST 

PFF  2 LAST 

PEE  16  LAST 

RFF  2 LAST 

RFF  1 

REF  6 LAST 

REF  5 LAST 

RFF  6 LAST 

RFF  6 L AST 

REF  5 LAST 

REF  6 LAST 

RFF  2 LAST 

RFF  ? LAST 

RFF  3 L AST 

REF  1 

REF  1 

REF  2 LAST 

REF  2 LAST 

REF  2 I AST 

RFF  2 LAST 

RFF  5 LAST 

RFF  2 L AST 

REF  3 LAST 

RFF  2 I AST 


E6  ,1516 
E 6, 1 516 
E6,  15  17 
Efc,l  520 
139  E 6,  1635 

E6 ,1636 
1 3 R E 6 , 1 66  3 

F6,  1666 
E7  ,1660 
E 7, 1662 
158  E7,  1662 

155  E 7 , 1 761 
97  CC76 

157  0110 
0111 

1 - I 

15b  0322 

158  0323 

130  0 326 

158  0326 

158  0320 

101  0336 

157  0373 

158  0 376 
0736 

E 3, 1570 
158  E 3,  1570 
116  E3 , 1 715 
116  E 3,  1723 
15  8 E6 , 1 5 1 3 
158  £6,1  636 

1 E7,  1633 

166  £7,1662 

167  E 7 » 1 7C  0 


NFGTORKP 

NEGTUR KU 

P ) STDRK  V 

NEGTORKV 

COUYO 

CDUZO 

GMEGAQD 

DMEGARO 

AMG 

TRKMKCNT 
V SEl  EC  T 
FORVMETR 
FLAG  WRDO 
FLGWRD  12 
FLGWRD13 
CPHI 
CT  HFT  A 
CP  SI 
DEL  VX 
CELVY 
OF  LVZ 
CTLIST 
CADPMARK 
TEMPFL  SH 
ST  ARCOCE 
TE  TCSM 
TETO  THER 
R (CSM) 
V(C  SM) 
DOWNTOIRK 
OCOU 
DEL  VL  VC 
MARK  CTR 
VGPREV 


CHECK= 
C HCC  K = 

che:k= 

CHECK= 
CHEC  K = 
CH  ECK  = 
CHECK= 
CHECK  = 
CHEC<= 
CHECK= 
:he:k= 
C HECK  = 
CHEC  K = 
CHECK  = 
CHECK= 
CHFCK= 
C HECK  = 
CHECK  = 
C HEC  K = 
C HECK  = 
CHEC  K = 
CHFCK  = 
CHECK= 
CHECK= 
CHECK= 
CHECK= 

che:k= 

CHECK= 
CHECK= 
C HECK  = 
CHECK= 
C HEC  K = 
CHECK= 
C HECK  = 


POSTORKP  + 1 
POST  CRKU  +1 
NEGTORKU  ♦ 1 
POST  ORK  V +1 
CDUXO  +1 
rOUYO  +1 
PMECAPD  +1 
OMEGA 00  +1 
A IG  +1 
AOG  +1 
A OG  + l 
LATVMETP  +1 
STATE 
R ADMODES 
OAPROOI  S 
THE  TAD 
THETAD  +1 
THETAO  +2 
DE  LV 
OELV  +2 
DELV  +6 
ONLSTCCn  +1 
CACPFLSH  +1 
CADRE  L SH  +2 
AOTCODE 
T-CTHER 
T-  OTHER 
R-CT  HER 
V-CTHER 
POSTORKP 
CDUXO 
3t  LVSLV 
TRKMKCNT 
VGT  IG 
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0313  REF  2 LAST  150 

ocii 
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1 

0 3A0 

EBANK=  ONTMRUFF 

0059 

REF 

2 

LAST 

159 

AC62 

l 2 l CO 

0 

DWNRPTBB 

BBCON  OGDOWNTP 

0050 

REF 

1 

E7 , 1 A53 

EB ANK=  TTOGO 

00  61 

REF 

2 

LAST 

160 

A C63 

52107 

0 

RORPTBB 

BBCCN  RACAREAC 

3362 

REF 

1 

F6,  14 H 

EBANK=  Ml  1 

0063 

RFF 

2 

LAST 

159 

A06A 

14  106 

0 

TARPT  BB 

BBCON  T ARUPT 

00631 

REF 

3 

LA  ST 

1 5 A 

E 7, 1647 

E 8 ANK=  ELVIRA 

0063  2 

RFF 

2 

LAST 

160 

4065 

46  1C  7 

0 

RUPTlOBB 

BBCON  PITFALL 
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USER'S  PAGF  NO.  2 EO  S4 


R UP  TIC  IS  USED  ONLY  BY  LANDING  GUIDANCE 


RESTART  USES  EO,  E2 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L TARUPT  PROGRAM 


9:1?  CCT.  21  ,1970  ZERLAIO 
USER  'S  PAGE  NO.  1 


.001  PAGE 
E 0 SA 


16  1 


3331 

0001C1  REF 
000102 


12, 2CC0 
06  ,2000 
0.6 , 2000 


RANK  12 
SETLOC  TAR  UP 
BANK 


0002  PEF 
00025  RFF 
3333  REF 


LAST  160 


E6,  1 A 1 A EBANK=  Mil 

COUNT*  tt/TARPT 
06,  2000  5 A C 1 6 1 TAR  UP  T TS  RANKRUPT 


OOOA 

0006  REF 


06,2001  0 0006  1 
06,2002  22  012  1 


EXTEND 

QXCH  QRUPT 


DDD7 

0008 

0009 


RFF 

REF 

REF 


1 

1 

2 LAST 


06, 200 3 11*310  0 

06  .200A  1 20  10  0 

06,2005  1 2 C C 7 C 


CCS  OSRUPTSk  GOFS  7 (-1)0  ARCUNC  ANC  AROUND 

TCF  NORMTA  +1 
TCF  NORMTA 


OOlP  REF 


06,  2006  1 ;i3A 


TCF  OUIKOSP 


O'  15 
3116 
0017 


RFF  1 

REF  2 LAST  155 
RFF  2 LAST  161 


06,2007  3 A 757  0 NORMT-V  CAF  SEVEN 

C 6 , 2010  5 A C 70  1 TS  PUPTREGl 

06  ,2011  55 ' 3 10  0 TS  DSRUPTSW 


0019 

301901  RFF 
001902 


A 066 
ADOO 
A 066 


BLOCK  32 
SETLOC  FF  TAG  1 0 
BANK 


* 0023 
R3D2A 


PEL  TAB  IS 
IN  LOWER  5 


i PACKED  TABLE 
BITS. 


COUNT*  f $ / T A R PT 
7 7 A 1 1 00M9  IP  T = 0CT37766 

. RELAYWCRC  COCE  IN  UPPER  A BITS,  RELAY  CODE 


(DEC  1637A) 


01  25 
0026 
3327 

002  9 
00  29 

003  0 
0031 
3332 
0033 
00  3A 
3 3 35 
0036 


A 366  0A0  25  1 

A 067  100L3  0 

AO  70  1 A C 3 1 0 

A071  20033  0 

AC  7 2 2AC17  1 

A07  3 30036  1 

A C7A  3A03A  1 

AC  7 5 A0023  1 

A076  A AO  35  1 

AC77  50037  0 

A 100  6 AOOO  0 

A 10 1 60000  1 


0A025 
OCT  10003 

OCT  1 A031 

OCT  20033 

OCT  2A017 

OCT  30036 

OCT  3A03A 

OCT  AOO  23 

OCT  AA035 

OCT  50C37 

5AC00 
60000 


RELTAB  OCT 


OCT 

RELTAB11  OCT 


CAP : 


ASSEMBLE  REVISION  56  UF  AGC  PROGRAM  ZERL INA  BY  ZOROASTER 


L T4RUPT  PROGRAM 


PG0.T7 


SW  IT  CEFD-PANK  PORTION. 


00  3 H 

DD33C1  REF 
0C38C  ? 


12  ,2  000 
lfcl  06, 2OC0 
06  ,2012 


00  TQ  REF 

0042  PEF 

0043  REF 

0044  PEF 


2 LAST 
1 
1 

2 LAST 


161  TO 

162 


161  : 
06,  20  12 
06  ,2:  13 

C6, 2014 


10  1 o* 

1 1*035  1 CDRVE 
C 2063  0 
C 2C63  C 


0045  PEF 

0046  PEF 
3047  PEF 
0C48  REF 
0049 

00491  PFF 
0 04g?  R FF 


06,2^15 

, i . 

. 

06  ,2020 
06,2^21 
06,  2022 
06  ,202  3 


' 

6 4 101  0 

( rcc6  i 

C 1 010  1 
I 2071  0 


BANK  12 
SETLOC  T4PUP 
BANK 


COUNT  * $ $/T4 RPT 
CCS  0 SP  TAB  +1  ID 

TC  OSPOUT 

TC  D SPOUT 


EXTEND 
WR  I TE 


0 SP  TAB  + 

town 

OSPTAB  + 
R FLTAB  11 

OUTO 
HANG  20 


110 
1 1 D 


9:12  OCT.  21,1970  ZERLAID 
US  ER  'S  PAGE  NO  . 2 


001  PAGE  162 
E 6 S4 


GAP:  ASSEMBLE  REVISION  56  (IF  AGC  PROGRAM  ZERLINA  BY  ZCROASTER 


L T4RUPT  PROGRAM 

3 0050  nspniT  program,  pots  cut  displays. 


3355 

REF 

1 

06, 2024 

5 5 ' C 1 5 

G 

D SPOUT  SB 

TS 

NOIT 

0056 

REF 

1 

06  ,2025 

4 4755 

0 

CS 

Z ERO 

Of  57 

REF 

1 

C6  ,2026 

c 4 073 

1 

TS 

DSRUPTFM 

005  8 

REF 

1 

06,  20  27 

56  775 

1 

XCH 

3 SPC  NT 

0C59 

RFF 

1 

06  ,2030 

6 4754 

0 

AD 

NEGO 

3060 

REF 

2 

LAST 

163 

Cfe, 2031 

54  775 

0 

TS 

DS  PC  NT 

0061 

REF 

LAST 

163 

06,2032 

50  775 

1 

DSPSCAN 

INDEX 

DSPCNT 

0062 

REF 

4 

LAST 

162 

, 

11’ 022 

1 

CCS 

OS  PT  A B 

3363 

REF 

4 

L AST 

163 

. 

1C  775 

0 

CC  S 

DSPCNT 

0064 

PEF 

1 

06 ,2035 

1 20  30 

1 

TCF 

DSPSCAN  - 

0065 

R EF 

1 

C6 ,2036 

1 2047 

1 

TCF 

DS  PL  AY 

0066 

06,  20  37 

00012 

1 

TABLNTH 

OC  T 

12 

OC  67 

REF 

2 

LAST 

163 

06  ,2043 

10  073 

1 

CCS 

DSRUPTEM 

3368 

C 6,  2041 

37764 

0 

1 2 OMR UPT 

DEC 

15372 

0069 

REF 

2 

LAST 

163 

06,2042 

5 5 ' C 15 

0 

TS 

NOUT 

00  70 

RFF 

2 

LAST 

94 

C6  ,2  043 

0 000? 

0 

TC 

Q 

3371 

RFF 

3 

L AST 

163 

, 

54  C7 3 

1 

TS 

DSRUPTEM 

0072 

RFF 

1 

06  ,2045 

3 20  37 

1 

CAF 

TABLNTH 

0073 

REF 

2 

LA  ST 

163 

06,2046 

l 2031 

0 

TCF 

DSPSCAN  - 

0074 

RFF 

1 

06,  2047 

fc  47  5 3 

1 

DSPLA  Y 

AD 

DNF 

0075 

RFF 

5 

LAST 

163 

06  ,?n5  0 

50  775 

1 

INDEX 

DSPCNT 

3P76 

PEF 

5 

LAST 

163 

, 

55' C22 

1 

TS 

DS  PTA8 

0077 

REF 

2 

LAST 

162 

06,2052 

7 4356 

1 

MASK 

LOW  1 1 

0078 

REF 

4 

LAST 

163 

. 

54  073 

1 

TS 

DS  RUPT  EM 

3379 

REF 

1 

06,  2C  54 

4 35  0 

0 

CAF 

HI  5 

0080 

REF 

6 

LAST 

163 

06  ,7055 

50  775 

1 

INDEX 

DSPCNT 

0081 

REF 

l 

. 

7 40  6 6 

1 

MASK 

RELTAB 

0082 

REF 

5 

L AST 

16  3 

06, 2057 

6 C C 7 3 

0 

AD 

3 SR  UP  TE  M 

0083 

. 

0 0006 

1 

EXT  END 

3 384 

REF 

2 

1 AST 

162 

06,  2C61 

01  CIO 

1 

WRI  TE 

OIJTO 

00841 

PEF 

1 

06,2062 

1 6751 

0 

TCF 

0+  1 

00842 

REF 

1 

. 

10  101 

0 

DSPDUT 

CCS 

FLACWRD5 

3 ? -3  4 3 

REF 

2 

L AST 

163 

06,  2064 

3 47  5 5 

1 

CAF 

ZERO 

00  844 

REF 

I 

06  ,2065 

1 2130 

0 

TCF 

nodspdut 

00  84  5 

PEF 

3 

LAST 

163 

C6,  2C66 

11’ C15 

0 

CCS 

NOUT 

0084  6 

REF 

1 

06,  2067 

0 2024 

c 

TC 

3 SPOUT  SB 

0084  7 

RFF 

2 

LAST 

163 

C6,2C70 

1 2130 

0 

TCF 

NODS  POUT 

3385 

REF 

1 

06,  2 C 7 1 

4 2171 

0 

HANG  20 

CS 

14,11  ,9 

0086 

REF 

3 

LAST 

151 

06  ,2072 

27 ' 3 10 

0 

ADS 

D SR  UPTSW 

0087 

REF 

1 

06 , 2C7  3 

3 7743 

c 

CAF 

20  MPUPT 

REF  1 06,  2074  54  027  0 SETTIME 4 TS 


0088 


TI  ME  4 


9:  12  GOT.  21,  1970  ZERLAID  .001 


PAGE  163 


USER'  S PAGE  NO.  3 E6  S4 


SET  TO  -0  FOP  1ST  PASS  THRU  DSP  TAB 
TO  PREVENT  +0 


IF  CSPTA8  ENTRY  +,  SK  IP 
2 IF  DSPCNT  + , TRY  AG  A I N 

IF  DSPTAB  ENTRY  -,  DISPLAY 

DEC  10  LENGTH  OF  DSPTAB 

IF  D SR  UP  TEM=*  0 , 2ND  PASS  THRU  DSPTAB 

{DSPCNT  = 0).  +0  INTO  NOUT  . 


IF  DSRUPTEM=-D  ,1ST  PASS  THRU  DSPTAB 
( D SPC  N T =0)  • M3  INTO  DSRliPTFM.  PASS  AGAIN 

1 


RFPL  ACE  POS  IT  1VELY 
REMOVE  B I TS  12  TO  15 


PICK  UP  BITS  12  TO  15  OF  RFLTAB  ENTRY 


IS 

NO 

NU 

YES 


DSKY  FLAG  ON 


NO  DISPLAY  REQUESTS 


GAP:  ASSEM8LF  REVISION  5*  OF  AGC  PROGRAM  ZERLINA  BY 

L TAP  UD  T PROGRAM 


9:12  CCT.  21,1970  Z ERL  A I C .001  PAGE  16A 
USER'S  PAGE  NO.  A E6  SA 


P3)3«l  THE  STATUS  OF  THE  PROCEED  P U SHB  L T TON  IS  MONITORED  EVERY  120  MILLISECONDS  VIA  THE  C H AN  N El  32  BIT  lA  INBIT . 

R 008812  THE  STATE  OF  THIS  INBIT  IS  COMPARED  WITH  ITS  STATE  DlRINS  HE  PREVIOUS  TARUPT  A NO  IS  PROCESSED  AS  FOLLOWS. 


<00  88  1 A IF  PPE  V ON  AND  NOW  ON 

R038P15  IF  PREV  ON  AND  NOW  OFF 

ROORRlft  IF  PREV  OFF  AND  NOW  ON 

ROC P 8 17  IF  PR  F V OFF  AND  NOW  OFF 


BYPASS 

UPDATE  I MODE  S3 3 

UPCATE  IMOCES33  AND  PROCESS  VIA  PINBALL 


BYPASS 

R0GB8 1 8 THE  LOGIC  EMPLOYED  REQUIRES  ONLY  9 MOT  (APPRO* 


108  MICROSECONDS)  CF  COMPUTER  TIME  WHEN  NO  CHANGES  CCCUR. 


CO  R R 2 

PEF 

1 

. 

3 13  00 

0 

PRCCEEDE  CA 

IMODES  33 

MDNITIOR  FOR  PROCEED  BUTTON 

3)8821 

C CCC6 

1 

E XTEND 

C 08822 

PEF 

1 

, 

06  032 

0 

RXOR 

C HAN  32 

Of.  88 23 

REF 

l 3 

LA  ST 

88 

36,2  100 

7 A736 

0 

MASK 

B IT  1 A 

00882a 

. 1<  1 

0 0006 

1 

E XTEND 

0CB825 

REF 

1 

06  ,2102 

1 2116 

1 

8ZF 

T AJUMP 

NO  CHANGE 

3388  26 

REF 

2 

LAST 

16A 

C 6,  2 103 

• ' 

0 

LXCH 

I M0DES33 

008827 

06, 210A 

r ono6 

I 

EXTEND 

OC  8°  2P 

REF 

1 

36,21 05 

06  001 

o 

RX  QR 

L C HAN 

3 ? 8 8 29 

REF 

3 

L AST 

16  A 

06,  2 1 C 6 

55 ' 300 

1 

TS 

I MCDES33 

UPDATE  I MODES  3 3 

00833 

RFF 

1A 

LAST 

16A 

Oh  ,210  7 

7 A736 

0 

MASK 

R I T 1 A 

OOPP  3 1 

REF 

1 

r6 , 7 1 10 

10  000 

o 

CCS 

008832 

REF 

2 

L AST 

164 

06,  2111 

1211 

1 

TCP 

TAJUMP 

WAS  ON  - NOW  OFF 

008833 

PEF 

1 

06,2112 

3 A 3 55 

0 

CAP 

C HR  PR  10 

WAS  DFF  - NOW  ON 

3 38R 3A 

RTF 

l 

06, 211  1 

C 5C72 

1 

TC 

NUVAC 

008835 

REF 

1 

C 776 

ERANK= 

3SPC0UNT 

OOftfi 36 

RFF 

1 

06,21 1A 

03503 

1 

2 C ADR 

PROCK  EY 

338836 

PEF 

1 

06,  21  15 

6C1C  1 

1 

G AP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
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9:12  CCT.  21  ,1970  Z ERL  A I C .031 


L TAR  DPT  PROGRAM 


USER • S PAGE  NO. 


E6  S4 


JUMP  TO  APPROPRIATE  ONC6-PER  SECOND  (.96  SEC  ACTUALLY)  ACTIVITY 


DD;)'>  REF 

0093  RCF 

0094  REF 

0095  REF 

0096  REF 

0097  REF 
009R  REF 
0099  REF 


1 

1 

1 
1 

2 LAST  165 
2 LAST  165 
2 LAST  165 
2 LAST  165 


06, 2120 
06  ,2121 
C6 ,2122 
06,2123 
06  ,2  124 
C6,  212  5 
06,2  126 
06,2127 


0 1 6 4 1 

1 3006  0 
1 2172  C 
1 3140  0 

0 3164  1 

1 3C06  0 
1 2172  0 
1 3140  0 


TC  RCSMONIT 

TCF  RRAUTCHK 

TCF  IMUMON 

TCF  3APT4S 

TC  RCSMONIT 

TCF  RPAUTCHK 

TCF  IMUMON 

TCF  0 APT  4S 


REF 


7743 


3132 


20MRUPT 


OCT-37776 


(DEC  15382) 


AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


T4RIJPT  PROGRAM 

ACC  IT  ION  Al  ROUTINES  FOR  20MS.  KEYBOARD  ACTIVITY 

06,2130  0 00« 

RFF  3 LAST  163  06,2131  Cl  C 


0l55  RFF 
01551  REF 
11552 

01553  PFF 


; 6 , 2134  2 4736  1 QUIKOSP  CAF  Bill* 

06  ,21  35  7 1310  0 MASK  DSRUPTSW 

C6,  2126  C CCC6  1 EXTEND 

06,2137  l 2165  0 BZF  OUIKOFF 


0 1555 
0 156 
0157 
0 1575 
'1577 


PFF 

REF 

REF 

RFF 

RFF 


06.2142  1 2152  1 

06.2143  4 4736  0 

06. 2144  27*310  0 


CCS  NOUT 

TC.  D SPOUT  SB 

TCF  N 3 DSP  Y 

CS  BIT14 

0 U IK  R UP  T AOS  DSRUPTSW 


LAST  166 


3 LAST  166 
3 I AST  166 


06,2151  C 5 30 1 0 


CAF 


0 169 
017? 

0171 

0172 
171 


C 6 ,2 1 60 
06,216  1 
06  ,2162 
06,  2163 
06,  2164 


11*310  0 CCS  DSRUPTSW 

0 '301  0 TC  RESUME 

37737  0 0CT37737  OCT  37737 

C 2154  0 TC  SYNCT4 

0 5301  0 TC  RESUME 


0 174 

0175 

0176 
: 1 77 


REF 

PCF 

REF 


06,2165 
Cfc, 2166 
06  ,2167 
06,2170 


C 0006  1 

Cl  CIO  1 
3 4736  1 
1 2144  C 


EXT  END 
WRI  TE  OUTO 
CAF  BIT14 

TCF  OUIKRUPT 


06,  2 17  1 22400  0 14,  11,5  OCT 


9:12  OCT.  21,1970  ZERLAIO  .001  PAGE 
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155 


SE  T FOR  NEXT  C DPT  VE 


WROTE  LAST  TIME,  NOW  TURN  CFF  RELAYS. 


NOUT  = ( OR  BAD  RF  T URN  FRCM  DSPOUTSB 
GOOD  RETURN  (WE  DISPLAYED  SOMETHING) 


RESET  DSRUPTSW  TO  SEND  DISPLAY  NEXT  PASS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IMA  BY  ZOROASTER 
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L TAR  DPT  PROGRAM  USER’S  PAGE  NO.  7 fc6  S4 

PT3DD  PROGRAM  NAME:  IMUMON 

K 03  0 1 FUNCTICNAL  DESCRIPTICN:  THIS  PROGRAM  IS  ENTERED  EVERY  ABO  MS.  IT  DETECTS  CHANGES  OF  THE  I MU  STATUS  BITS  IN 

* ' 3<  3 CHANNEL  3 r AND  CALLS  THE  APPROPRIATE  SUBROUTINES.  THE  BITS  PROCESSED  AND  THEIR  RELEVANT  SUBROUTINES  ARE: 


R3?'  5 
R 0306 
R0  3O7 
R03  08 
1 0300 
RD313 
R 03 1 l 
R 0 31  2 


FUNCT  ION 


RIT  SUBROUTINE  CALLED 


TEMP  IN  LI  MI  TS 
1SS  TUPN-CN  REQUEST 
I MU  F AI L 
IMU  CDU  FAIL 
I MU  CAGE 
I My  OPERATE 


15  TLIM 

1 A ITURNON 

13  I MlJ  FA  IL  (SETISSW) 

12  ICDLFAI  L ( SE  TI  SSW> 
11  IMUCAGE 

9 I MU  CP 


R:313  THF  LAST  SAMPLED  STATE  OF  THESE  BITS  IS  LEFT  IN  IMO0ES30.  ALSO,  EACH  SUBROUTINE  CALLEC  FINDS  THE  NEW 

R '315  VALUF  OF  THE  BIT  IN  A,  WITH  C SET  TO  THE  PROPER  RETURN  LOCATION,  NXTIfAIL. 


R 317  CALLING  SEQUENCE:  T4RUPT  EVERY  ABC  MILLISECONDS. 

R031p  JOBS  CR  TASKS  INITIATED:  NONE. 

R 0 3 1 9 SUBROUTI  NE  S CALLED:  TLIM,  ITLRNGN,  SETISSW,  IMUCAGE,  IMJOP. 

RD3?  ERASABLE  INITIALIZATION: 

RO  321  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE:  CIIM00ES30)  = OCT  37411. 

P^3?3  RESTART  WITH  ACTIVE  GRCUPS:  CUM0DES30)  = ( B(  IMDDES30  ) ANDIOCT  30035))  PLUS  OCT  37400. 

R3325  THIS  LEAVES  IMU  FAIL  BITS  INTACT. 


3 326  ALARMS:  NCNF . 


P 3 327  EXIT:  TNONTEST. 


R0328 

OUT 

PUT  : 

UPPATEC  IM0DES3D  WITF  CHANGES 

PROCESSED 

BY  APPROPRIATE 

SUBROUTINE. 

0330 

REF 

2 

LA  ST 

1 57 

06,2172 

3 1277 

1 

I MUMON 

CA 

I MODES30 

SEE  IF  THERE  HAS  BEEN  A CHAN'GI 

0331 

06, 2173 

0 0006 

1 

F X TEND 

RELFVANT  BITS  OF  CHAN  30. 

0332 

REF 

l 

06  ,2174 

06  030 

1 

RXflR 

CHAN  30 

0 333 

REF 

1 

06,2175 

7 2761 

1 

MASK 

30  RDMSK 

033'+ 

06, 2176 

0 0006 

1 

E XTEN3 

0335 

PFF 

1 

06  ,2177 

1 2227 

0 

BZF 

TNONTEST 

NO  CHANGF  IN  STATUS. 

>336 

REF 

4 

LAST 

165 

06, 2200 

5 4 C 70 

1 

TS 

RUPTRFGl 

SAVE  BITS  WHICH  HAVE  CHANGED. 

03  3 7 

PFF 

3 

LAST 

167 

06,2201 

2 3 ' 277 

1 

LXCH 

IMODE  S 30 

UPDATE  I MODE  S3  0. 

033B 

06  ,220? 

0 0006 

1 

EXT  END 

0339 

REF 

2 

L AST 

164 

, 

C 6 CC  1 

0 

RXOR 

LCHAN 

0340 

RFF 

* 

LAST 

167 

06  ,2204 

55  ’277 

0 

TS 

IM00ES30 

0 341 

R FF 

2 

LA  ST 

163 

06 , 2 2C  5 

4 4753 

0 

CS 

ONE 

0342 

REF 

5 

LAST 

167 

06,  2 2c  6 

56  C 70 

0 

XCH 

R UPTRFG  1 

0343 

06,2207 

C 0006 

1 

EXTEND 

AP  : 


iSSE  MBLE  REVISION  5c>  CF  AGC  PRCC-RAM  Z FPL  IN  A BY  ZOROASTER 


TAR  UP  T PROGPAM 


0344  REF  1 

0345  RFF  1 


06. 2210  6 2514  0 

06.2211  1 2213  l 


BZMF  TLI M 
TCF  NXTIFBIT 


3346  REF 
34  7 RC-F 
n 348 

0349  REF 

0350  REF 


3 l AST 
6 LAST 

2 LAST 
2 LAST 


167  16 , 22 1 7 e 4753  1 

1 S 7 06  ,2213  24  070  0 

06,7?  1<*  6 0000  1 

164  06,  22  15  54  OOO  0 

168  06,2216  1 2213  1 


- 1 AO  ONE 

NXTIF8IT  IN  CR  R UP  TR  EG  1 

+1  DOUBLE 

TS  A 

TCF  NXTIFBIT 


l\\\ 

' 35  3 
: 354 
0355 
3356 


RFF 

REF 

REF 

REF 

REF 


1 06,  2217 

7 LAST  168  36,2223 

1R  LAST  166  06  f 7 7 2 1 

5 I AST  167  06, 2222 

P LAST  1 S 8 06,2223 

1 06,2224 


56  C 7 1 1 
50  070  0 
3 4736  1 
1 1277  0 
50  070  0 
C 2155  1 


XCH  RUPTPEG2 
INDEX  RUPTREG1 
CAP  PIT14 
M A SK  I MODE  S3 0 
INDEX  P UP  TR  EG  1 
TC  IFAILJPP 


2 

3 


10  C 7 1 0 N X T I FA  IL  CC  S 
1 2212  0 TCF 


ft  UP  TRFG  2 
NX  T I FBIT 
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USER'S  PAGE  NO.  8 E6  S4 

CHANGE  IN  IPU  TEMP. 

REGIN  BIT  SCAN . 

(RE-ENTERS  HERE  FRCM  NXTIFATL.) 

ADVANCE  BIT  POSI  TI  CN  NUMBER. 

SKI  F IF  OVERFLCW. 

LOOK  FDR  B I T. 


SAVE  OVERFLOW-CORRECTED  DATA. 
SELECT  NEW  VA  LUF  CF  THIS  BIT. 


PROCESS  ANY  AOCITICNAL  CHANGES. 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERIINA  BY  ZOROASTER 
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L T4RUPT  PROGRAM  USER'S  PAGE  NC.  9 E6  S4 

’0359  PROGRAM  NAME:  TNONTFST. 

R03fc  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  HONOR  S * R EQ  UE  ST  S FOR  I SS  INITIALIZATION.  ISS  TURN-ON  (CHANNEL  30  BIT  14) 

'362  ANO  ISS  OPERATE  (CH'ANNFL  30  PIT  9)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  .460  SECONDS 

RO364  AFTER  EITHFR  ONF  APPEARS.  THIS  INITIALIZATION  TAKES  ON  ONE  CF  THE  FOLLOWING  THREE  FORMS: 

R 03  66  1)  ISS  TURN-ON:  IN  THIS  SITUATION  THE  COMPUTER  IS  OPERATING  WHEN  THE  I SS  I S TURNED  ON.  NOMINALLY, 

BOTH  ISS  TURN-ON  ANC  ISS  OPERATE  APPEAR.  THE  PLATFORM  IS  CAGED  FOR  90  SECONDS  AND  THE  ICDII'S  ZEROEO 
1037?  SO  THAT  AT  THE  END  OF  THE  PROCESS  THE  GIMBAL  LCCK  MONITOR  WILL  FUNCT1CN  PROPERLY. 


5 0372  2)  I C DO  INITIALIZATION:  IN  THIS  CASE  THF  COMPUTER  WAS  PROBABLY  TURNFD  ON  WITH  THE  ISS  IN  OPERATE  OR 

Ri  374  A FRFSH  START  WAS  D C NF  WITH  THE  ISS  IN  OPERATE.  IN  THIS  CASE  ONLY  ISS  OPERATE  IS  ON.  THE  ICDU'S  ARE 

R03  76  ZERCEO  SO  THE  GlMeAL  LOCK  MONITOR  WILL  FUNCTION.  AN  EXCEPTION  IS  IF  THE  ISS  IS  IN  GIMBAL  LOCK  AFTER 

R 0378  A RESTART,  THE  ICDU'S  WILL  NOT  PE  ZEROED. 


R T 3 7 9 3 ) RESTART  WITH  R F 5 TAP  TABLE  PROGRAM  USING  THE  I MU : IN  THIS  CASE,  NU  INITIALIZATION  TAKES  PLACE  SINCE 

'•'  "381  IT  is  ASSUMED  THAT  THE  USING  PROGRAM  DIO  THE  INITIALIZATION  AND  THEREFORE  T'+RUPT  SHOULD  NOT  INTERFERE. 


R 383  I MODE  S3*'  BIT  7 IS  SET  = 1 BY  THE  FIRST  BIT  (CHANNEL  30  BIT  14  OR  9 ) WHICH  ARRIVES.  FOLLOWING  THIS.  TNONTFST  IS 
R33R5  ENTERED,  FINDS  RIT  7 = 1 BUT  BIT  8 = 0,  SO  I T SETS  BIT  8 = 1 AND  EXITS.  THE  NEXT  TIME  IT  FINDS  BIT  9 = 1 AND 

< 387  PROCEEDS,  SETTING  BITS  8 AND  7=0.  AT  PROCTNON,  IF  ISS  TURN-ON  REQUEST  IS  PRESENT,  THE  I SS  I S CAGED  (ZERO  + 

K 399  COARSF).  IF  ISS  OPERATE  IS  NOT  PRESENT  PROGRAM  ALARM  00213  IS  ISSUED.  AT  THE  END  OF  A 9C  SECOND  CAGE,  BIT  2 
ac3«»1  OF  I M0DES3C  IS  TFSTED.  IF  IT  IS  = 1,  ISS  TURN-DN  WAS  NOT  PRESENT  FOR  THE  ENTIRE  90  SECONDS.  IN  THAT  CASE,  IF 

3 397  THE  ISS  TURN-ON  RE  CUE  ST  IS  PRESENT  THF  9"  SECCNO  WAIT  IS  REPEATED,  OTHERWISE  NO  ACTION  OCCURS  UNLESS  A PROGRAM 

R3395  WAS  WAITING  FOR  THE  INITIALIZATION  IN  WHICH  CASE  THE  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN.  IF  THE  DELAY 
RO 397  WENT  PPCPFRLY,  THE  ISS  DELAY  CUTRIT  IS  SENT  AND  THF  ICDU'S  ZEROED.  A TASK  IS  INITIATED  TO  REMOVE  THE  PIPA  FAIL 

RO 399  INHIBIT  BIT  IN  10.24  SECONDS.  IF  A MISSION  PROGRAM  WAS  WAITING  IT  IS  INFORMED  VIA  ENDIMU. 


RO',  ( 1 AT  PRCCTNCN,  IF  ONLY  ISS  OPERATE  IS  PRESENT  (3P0NLY),  THE  CDU'S  ARE  ZFROED  UNLESS  THE  PLATFORM  IS  IN  COARSE 

< ' 4'  3 ALIGN  ( = G I MP  A L LCCK  HE  PE ) OR  A MISSION  PROGRAM  IS  USING  THF  IMU  ( IMUSFFL  G = 1). 


R 3 4 ? 5 CALLING  SEQUENCE:  T4RUPT  EVERY  4EC  MILLISECONDS  AFTER  IMIJMON. 

R 0406  JCRS  GR  TASKS  INITIATED:  1)  ENCTNCN,  90  SFCONDS  AFTER  CAGING  STARTED.  2)  ISSUP,  4 SECONDS  AFTER  CAGING  DONE. 

R 0 40 8 3)  PFAILOK,  10.24  SECONDS  AFTER  INITIALIZATION  COMPLETED.  A)  UNZ2,  320  MILLISECONDS  AFTER  ZEROING 

R04 1 0 STARTED. 


30411  SUBROLTI  NF  S CALLED : CAGESUB,  CAGESU02,  ZFROICCU,  ENDIMU,  IMUBAD,  NOATTOFF,  SETISSW,  VARCFLAY. 

RD413  FRASABIF  I N I T I A(  I Z AT  ION  : SEE  IMUMON. 

R 414  ALARMS:  PROGRAM  ALAPM  OD213  IF  ISS  TURN-ON  REQUESTED  WITHOUT  ISS  OPERATF. 

R 0 4 1 6 EXIT:  FNOTNON  EXITS  TO  C33TEST.  TASKS  HAVING  TC  DO  WITH  INITIALIZATION  EXIT  AS  FOLLOWS:  MISSION  PROGRAM 

R'-'ilfl  WAITING  AND  INITIALIZATION  COMPLETE,  EXIT  T3  ENDIMU,  MISSION  PROGRAM  WAITING  AND  INITIALIZATION  FAILED,  EXIT  TO 

R 0420  IMUBAD,  IMU  NOT  IN  USE,  EXIT  TC  TASKOVER. 


RD42I  OUTPUT:  ISS  INITIALIZED. 
422  RFF  6 


LAST  158 


06  ,2227  4 1277  0 TNONTFST  CS 


IM0DES3C 


AFTER  PROCESSING  ALL  CHANGES,  SEE  IF  IT 


A P:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
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T4RUPT  PROGRAM 


USER  'S  PAGE  NO.  1C  E 6 S4 


34?3 

4?4 

r A? 5 


REF  15  LAST  89 
REF  3 LAST  158 
REF  1 


06,2230  7 4745  1 

06  ,2231  1G  000  0 
56,2232  1 2374  1 


MASK  RIT7  IS  TIME  TO  ACT  CN  A TURN-ON  SEQUENCE. 

CCS  A 

TCF  C33TEST  NO  - EXAMINE  CHANNEL  33. 


042  6 
0477 
3 A 28 
0A29 


OFF 

RTF 

PEF 

PFF 


LAST  88 
LAST  16° 
LAST  170 


06, 2233 
06  ,?234 

C6,  22  25 
06,22  36 


3 A7AA  1 
7 1277  0 
1C  CCO  0 
1 22A2  0 


CAF  M T«  SEE  IF  FIRST  SAMPLE  OR  SECOND. 

MASK  T MODES  30 
CCS  A 

TCF  PROCTNON  REACT  AFTFR  SECOND  SAMPLE. 


RFF 
PFF 
i if 


15  1 A ST 

P L AST 
? LAST 


17Q  06,2237  3 4744  1 

170  ^6, 2?A0  2 7 1 2 7 7 0 

170  06  ,2?A  1 1 237A  1 


CAF  BITS  IF  FIRST  SAMPLE,  SET  BIT  TO  REACT  NEXT 

AOS  I MODE  S3  0 TIME. 

TCF  C33TFST 


R 3 A 33 


PROCESS  IMU  TURN-ON  REQUESTS  AFTER  WAITING  I SAMPLE  FOP  ALL  SIGNALS  TO  ARRIVE. 


OA35 
A 36 
3A37 

0438 
0 439 
04  A 0 


RFF 

PCF 

PFF 

RFF 

PEF 

REF 


LAST 
I AST 
LAST 
LA  ST 


06,2242  A 2777  0 
17C  06,2243  7 1277  0 

170  06, 22a A =5*277  0 

168  06,2245  7 4736  0 

17 C 06,2246  1C  CCO  0 

06, 2247  1 2347  1 


MASK 

CCS 

TCF 


31 TS7CR 
I M0DES30 
I MODE  S30 
B I T 1 4 
A 

OPUNLY 


SEE  IF  TURN-ON  PEQUFST. 
OPERATE  ON  CNLY • 


‘441 
3442 
044  3 
0444 


PEF 
i EF 
RFF 


LAST  170 
LAST  166 
LAST  170 


0 6,2250 

06. 2251 

06.2252 

06.2253 


4 1277  0 
7 4743  1 

10  000  0 
1 2256  0 


CS  I MOOES  30  IF  TURN-ON  PFOUFST,  WF  SHOULD  HAVE  IMU 

MASK  B I T9  OPERATE. 

CCS  A 

TCF  +3 


^ 44 5 REF 
0446 


36,  2254  C 5600  1 
06  ,2255  00213  1 


TC  ALARM  ALARM  IF  NOT. 

OCT  213 


447 

0448 

0449 


PFF 

REF 

REF 

RFF 

REF 


1 

3 LAST 
1 


06.2256 

06. 2257 
06,2260 
E 6,  1414 
06,2261 
06,2262 


C 2735  1 
3 3C0  5 1 
0 5214  0 


TC  CAGESUB 

CAF  90SFCS 
TC  WAITLIST 
E B A fvK=  Mil 
2CA0R  ENDTNON 


45? 


REF 


LAST  170  06,  2263 


2374 


TCF  C 33  TEST 


0453  PFF  2 LAST  170 

0454  REF  1 


06  ,2264  3 3005  1 RETNDN 

C 6 , 226 5 C 5235  0 


CAF 

TC 


90SEC  S 
VARDELAY 


i 455 
04  56 
3457 
r 458 
0 4 59 
3463 


PEF 

RFF 

REF 

PEF 


LAST 
LA  ST 
L AST 
LAST 


17C 

170 

170 


06, 2266 
06  ,2267 
C 6,  2270 
6 ,2271 
06,2272 
06,  2273 


4 4752  1 
7 1277  0 
57*277  1 
7 4752  1 
C 0006  1 
1 2306  1 


ENDTNON 


C S 3! T2 

MASK  I MODES  30 

XCH  IM0DES30 

MASK  B I T 2 

EXTEND 

B7F  ENDTN0N2 


RESET  TURN-ON  REQUEST  FAIL  BIT. 


IF  IT  WAS  OFF,  SEND  I SS  DELAY  COMPLETE. 


REF  20  LAST  170 


06  ,2274 


4736  1 


CAF 


0461 


B IT  14 


IF  IT  WAS  ON  AND  TURN-ON  REQUEST  NOW 


TAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPL  INA  BY  ZOROASTER 


0462 

0463 
3464 


T4RUPT  PROGRAM 
RFF  14  LAST  170 
R EF  1 


06. 2275  7 1277  0 

06.2276  C 0006  1 

06,  2277  1 2264  1 


MA  SK  I MOOE  S30 
EXTEND 

BZF  RETNON 


0465 

0466 
3467 
046R 


RFF  1 
RFF  1 

REF  7 LAST  170 
REF  1 
R EF  l 
REF  1 


, 

, 

06,  23C  2 

. 

06,2304 


4 0074  0 
7 4744  0 
10  COO  0 
1 5272  1 
0 4635  0 
17636  1 


CS  FLAGWRDC 

MASK  IMUSEBIT 

CCS  A 

TCF  TASKOVER 

TC  POSTJUMP 

C A DR  IMUBAD 


0471 

3472 

0473 


REF  13  LAST  8B 
REF  1 


06,2306 
06,  2 3C7 
06,2  310 


3 4735  1 ENCTNDN?  CAF  BIT  15 
C CCC6  1 EXTEND 

05  012  1 WOR  CHAN12 


1 


PEF  1 
REF  1 

PEF  2 IAST  171 


06,2313  0 5470  1 UNZ2 


06,2315 
06  ,2316 


4 4763  0 
C GCC6  1 
03  012  1 


ZERO  ICOU 
BITS4  £5 


REF  1 

PEF  15  LAST  17 1 
RFF  16  LAST  171 


06  ,2323 


CS  OCT  6 4 

MASK  I MOOE  S3  0 

TS  IMODES  30 


0485 

0486 
< 487 


RFF  13  LAST  89 

REF  4 LAST  164 

RFF  5 LAST  171 


Ob, 2325  7 1300  1 

06,2326  55 ' 300  1 


CS  BIT6 

MASK  I MODES  33 

TS  I MODES  33 


0487  1 
04872 
- 4873 
04  87  4 
•4875 

04876 

04877 


PEF  2 LAST  171 
REF  1 
REF  1 


06,  2327  4 OC 76  1 

06  ,233?  7 4735  0 

06,2321  C 0006  1 
06,2332  1 2336  1 

06  ,2333  26  076  1 

06,  2334  3 CC2 5 0 

06,2  335  5 7 ' C74  0 


CS  FLAGWRD2 

MASS  DR  F TBIT 

EXTEND 

BZF  +4 

ADS  FLAGWRD2 

CA  TIME1 

XCH  1/PIPADT 


0489 

0490 
0 491 


REF  1 

REF  1 4 LAST  U1 
REF  3 LAST  171 
RFF  1 


06.2336  0 2703  1 

06. 2337  l 4735  0 

06.2340  C 0006  1 

06.2341  03  012  1 

06,  2342  3 5003  1 


TC 


S ET  ISSW 
3 I T 1 5 


C S 

EXTEND 
WAND  CHAN12 
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USER'S  PAGE  NO.  11  E6  S4 

PRESENT,  RE-ENTER  90  SEC  DELAY  IN  WL. 

IF  IT  IS  NOT  ON  NOW,  SEE  IF  A PROG  WAS 
WA  IT  ING. 

UNSUCCESSFUL  TUPN-CN. 

SFN  D 1SS  DELAY  COMPLETE. 

TURN  DFF  ND  ATT  LAMP. 


REMOVE  ZERO  AND  CD  ARSE. 


WAIT  ID  SECS  FOR  CTRS  TO  FIND  GIMBALS 

REMOVE  CAGING,  IMU  FAIL  INHIBIT,  AND 
ICDUFAIL  INHIBIT  FLAGS. 

ENABLE  OAP 


TEST  D R I FT  F LG:  IF  CN,  DO  NOTHING  BECAUSE 
IMUCOMP  SHOULD  BE  ALL  SET  UP  ( REST  ART 
WITH  IMUSE  DOWN).  IF  OFF,  SET  DRIFTFLG 
AND  i/PIPAOT  TO  GET  FREEFALL  IMUCOMP 
GOING  (FRFSH  START  PR  I SS  TURN-ON). 

CANNOT  GET  HE RF  IF  RESTART  WITH  I MUS  F UP 


ISS  WARNING  MIGHT  HA VF  BEEN  INHIBITED. 
REMOVE  IMU  DELAY  COMPLETE  DISCRETE. 


DONT  ENABLE  PROG  ALARM  ON  PIP  FAIL  FOP. 


GAP:  ASSEMBLE  REVISION!  5b  OF  AGC  PROGRAM  ZEPLINA  BY  70R0ASTER 


L T4RUPT  PROGRAM 


0493  REF 
i <►<>«►  PFF 
04°5  REF 
3495  REF 


2 LAST  170 
1 
1 
l 


Oh, 2143  C 6214  C 
E%  1474 

06,2344  03221  0 
C6,  2 34  5 1 h 1C3  1 


TC  WAITLIST 

EBANK=  30UIN0 
2CAUR  PFAILOK 


"4  PFF 


2 LAST  171 


06  ,23*6  1 5272 


TCF  TASKnVFR 


0504 

053=; 

05C6 


R EF 

REF 

REF 

RFF 


1 1 


P 


L A ST  80 

LAST  171 
l AST  171 
LAST  1 7 0 


Ch, 2347 
06, 235U 
06,2351 
06,  2352 
06,2353 


G2  012  0 
1C  CCO  0 
1 2374  1 


CPCNLY 


CAF  BIT4 

E XTEN3 

RAND  C HAN  l 2 

CCS  A 

TCF  Z 33TF  ST 


0 50  7 RFF 
0509  REF 
0509  PFF 
0 5 in  RFF 


c LAST  172 
5 LAST  17? 


06.2354  3 4744  1 

06. 2355  7 0074  Q 

06  ,2  356  10  000  0 

C6 , ? 357  1 2374  1 


CAF  IMUSEB1T 

MASK  ELAGWRDO 

CCS  A 

TCF  C33TEST 


0511  REF 


06,  2360  0 2146  0 


O AGE  SUB  2 


05115  KEF 

05116  RFF 


2 LA  ST 
2 l AST 


06.2361  0 4674  0 ISSZFRC  TC  IBNKCALL 

06. 2362  17233  0 CADR  NOATTCFF 


0512 

'513 

05H 


RFF  12  LAST  B9 
REF  5 LAST  17  2 


06  ,2363  3 4747  1 

06,2364  0 0006  1 

06,  2365  05  Cl2  1 


CAF  B I T 5 

EXTEND 

WOR  0HAN12 


-5141  REF 
051^  REF 

051 6 PFF 

0517  REF 

0518  PFF 
0518  REF 


LAST 
LAST 
LAST 
L A ST 


17  1 
17  1 
172 
170 


5470  1 
2 4 7 4 < 

06.2370  0 5214  0 
E6,l  414 

06.2371  02213  1 
06  ,2372  14106  0 


TC  ZEROICDU 

CAF  BIT6 
TC  WA  1 TL  I ST 

E B ANK=  Mil 
2CADR  UNZ2 


0519  REF 


LAST  172  06,2373  1 ? 374 


TCF  C33TEST 


,001  PAGE 


l 72 


9:12  CCT.  21,1970  Z ERL  A 1 C . 


USER  • S PAGE  NG.  12 


F6  S4 


ANOTHER  4 S ECS  . 


IF  OPERATE  ON  ONLY,  AND  WF  ATE  IN  COARSE 
ALIGN,  DCNT  ZFRC  TEE  COUS  BECAUSE  WE 
MIGHT  RE  IN  GIMBAL  LOCK 


OTHERWISE,  ZERO  THF  COUNTERS. 
UNLESS  SOMEONE  IS  USING  THE  IMU . 


SFT  TURNON  FLAGS. 

TURN  OFF  NO  ATT  LAMP 

IMU  CAGE  OFF  ENTRY 

I SS  COU  ZERO 


WAIT  330  MS  FOR  AGS  TCI  RECEIVE  SIGNAL 


GAP:  ASSEMBLE  REVISION  56  Of-  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 
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L T4RUPT  PROGRAM 


USER'  S PAGE  NC.  13  E6  S4 


3 0 520  PROGRAM  NAME:  C33TEST 

R5521  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THREE  FLIP-FLOP  INBITS  OF  CHANNEL  33  AND  CALLS  THE  APPROPRIATE 

R"S23  SUBROUTINE  TO  PROCESS  A CHANCE.  IT  IS  ANALOGOUS  TO  IMUM3N,  WHICH  MONITORS  CHANNEL  30,  EXCEPT  THAT  IT  READS 

R.525  CHANNE!  33  WITH  A WAND  INSTRUCTION  BECAUSE  A 'WRITE'  PULSE  IS  REQUIRED  TO  RESET  THE  FLIP-FLOPS.  THE  BITS 
R0527  PROCESSED  ANC  THE  SUBROUTINES  CALLED  ARE: 


1 5 28 
R352Q 
R 0 530 
RO  53  1 
R)  532 


BIT  FUNCTION 


SUBROUT INE 


13  PIPA  FAIL 

12  DOWNLINK  TOO  FAST 

1 1 UPL  INK  T 30  FAST 


PIPFAII. 
DNT  MF AST 
UP  TMF  A ST 


3 0533  UPON  ENTRY  TO  THE  SUBROUTINE,  THE  NEW  BIT  STATE  IS  IN  A. 

R 3 5 3 A CALLING  SEQUENCE:  EVERY  460  MILLISECONDS  AFTER  TNONTEST. 

R0535  J CRS  CP  TASKS  INITIATED:  NONE. 

R 0 536  SUBROUTINE  S CALLED  : PIPFAIL,  D NTRF  AST  AND  U PT  MF  AST  ON  BIT  CHANGES. 

R 05  3 7 ERASABI  F INITIALIZATION:  C(IMOCES33)  = OCT  16C00  ON  A FRESH  START  OR  RESTART,  THEREFORE,  THESE  A|  ARMS  KILL 

* .'539  RFAPPFAR  IF  THE  CONDITIONS  PFPSIST. 


ROMO  ALARMS:  NONE. 

R-541  EXIT:  GLCCKMCN. 


I 3 542 


OUTPUT: 


UPDATED  RITS  13, 


12  AND  11  OF  I MODES 3 3 WITH  CHANGES  PROCESSED. 


54? 
0 544 


0545 


05^5 
C 54  7 
1548 

0549 

0550 
1551 
055? 


REF  6 LAST  17  1 

REF  1 

REF  2 l A ST  ^ 

REF  2 LAST  173 

REF  1 

REF  3 LAST  167 

REF  1 


06. 2374 

36.2375 

06.2376 
06,  2177 
06 ,24  C 0 
'6,  2401 
06,2402 
06  ,24C3 
06, 2404 
<'b  ,2405 


3 1300  0 
7 5026  1 
54  CC1  1 
3 5026  0 
0 0006  1 
03  C33  1 
0 0006  1 
C6  001  0 
C 0006  1 
1 2434  1 


C 3 3TE  ST 


CA  I MODE  S33 

MASK  3 3RDMSK 

TS  L 

CAF  33RDMSK 

EXTEND 

WAND  CHAN33 

EXTEND 

RX  OR  LCHAN 

E XTEND 

RZF  GLDCKMON 


SEF  IF  RELEVANT  CHAN  33  HITS  HAVE 
CHANGED. 


RESETS  FL  IP-FLOP  INPUTS 


ON  NO  CHANGE. 


0553  REF  9 LAST 

0554  REF  7 LAST 

0555 

1556  PFF  4 LAST 

0557  REF  8 LAST 


173 

173 


C 6 , 2406  54  070 

06,2407  22*300 

06,241  0 0 0006 

06,  2411  C 6 CC1 
6,24  12  5 5 ' 3CC 


TS  RUPTR6G1  SAVE  BITS  WHICH  HAVE  CHANGED. 

LXCH  I MODE  S33 

EXTEND 

RXOR  LCHAN 

TS  I MODE  S 33  UPDATED  IM0DES33. 


0558  RFF  3 LAST  163 
3559  RFF  10  I AST  173 
0 560 


06,2413  3 4755  1 

06,  24  14  56  C 70  0 

06,2415  6 0000  1 


CAF  ZERO 

XCH  R UP  TRFG 1 

DOUBL  E 


SAP : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN 4 B Y ZOROASTER 


T4PUPT  PROGRAM 


3561  REF 


06,  2416  1 2421  0 


TCF  NXTIBT  +1 


0 562 
0 563 

0564 

0565 
3566 


RFF 

RFF 


LAST  172 
LAST  174 


06  ,2417 
0 6,  2420 
06, 2421 


06,2422 
C 6 , 2423 


6 4753  1 -1 

24  C 7 0 C N X II  0T 

6 OCOC  l +1 

54  000  0 

1 2420  1 


AO  ZINE 

I NCR  PUPTREG1 

DO  U3  LE 
TS  A 

TCF  NXTIBT 


0567 
0 568 
056Q 
0 5 76 
3571 
0572 


REF  3 
REF  12 
RFF  1 6 
PEF  <? 
REF  13 
REF  1 


LAST  166 
LAST  174 
LAST  B8 
LAST  173 
LAST  174 


06  ,2424 
06,24  25 
0 6,  2426 
06  ,2427 

C 6,  2430 
06,2431 


56  071  1 
50  0 7A  0 
2 4737  C 
7 1300  1 
5 C C 70  0 
0 2763  1 


XCH  RUPTPEG2 
INDEX  RUPTREC1 
CAF  9IT13 
MASK  IMODFS33 
I NDE X RUPTREG1 
TC  C33JMP 


I A ST 
L AST 


10  071  0 NXTFL33  CCS  PUPTREG2 

1 24  17  0 TCF  NXTI  BT  -1 
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SCAN  FOR  BIT  CHANGES. 


(COOING  IDENTICAL  TO  CHAN  30). 

GET  NEW  VALUE  OF  BIT  WHICH  CHANGED. 


PROCESS  POSSIBLE  ADDITIONAL  CHANGES. 


SAP:  ASS  E NB  IF.  REVISION  56  OF  AGC  PROGRAM  ZERLINA  FJY  ZOROASTER 
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L T4RUPT  PROGRAM  USER’S  PAGE  NO.  15  E6  S4 

P0575  PROGRAM  NAPE:  GLOCKMGN 

< 51b  FUNCTIONAL  OE  SC  P.  I PT I C N : THIS  FFGGPAM  MONITORS  THE  COJ  Z COUNTER  TO  DETERMINE  WHETHER  THE  ISS  IS  IN  GIPBAL  LOCK 

RD573  AND  TAKES  ACTION  IF  IT  IS.  THREE  REGIONS  OF  MIDDLE  GIMBAL  ANGLE  ( MG  A ) ARE  USED: 


R < 1 580  11  A fi  S ( MG  A ) LESS  THAN  CR  EQUAL  TO  70  CEGREES  - NORMAL  MODE. 

R0581  ?)  AftS(MGA)  GREATER  THAN  70  DEGREES  AND  LESS  THAN  OR  EQUAL  TO  B5  DEGREES  - GIMBAL  LOCK  LAMP  TURNED  ON. 

R1583  3 ) ABS(MGA)  GREATER  THAN  85  DEGREES  - ISS  PUT  IN  COARSF  ALIGN  AND  NO  ATT  LAMP  TURNED  ON. 


R 0585  CALLING  SFQUENCE:  EVERY  480  M LI  I SECONDS  AFTER  C33TEST. 


RD  586  J CBS  nR  TASKS  IN1TIATFD:  NONE. 

R 0 58  7 SUBROUTINES  CALLEC:  1)  SETCOARS  WEEN  ABS(MGA)  GREATER  THAN  85  DEGREES  A NO  ISS  NOT  IN  COARSE  ALIGN. 

RO 589  2)  LAPPTEST  BEF GRE  TURNING  OFF  GIMBAL  LUCK  LAMP. 


R<  S9f 
< 0891 

R D 593 
R 0598 


ERAS  ABL  F IN  IT  I AL  I Z AT  ION: 

II  FRESH  START  CR  RESTART  WITH  NG  GROUPS  ACTIVE:  CICDU7)  = 0,  IM0DES30  BIT  6 = r , I MODE  S33  BIT  1 
2)  RESTART  WITH  GROUPS  ACTIVF:  SAME  AS  FRESH  START  EXCEPT  C(CDUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 
PROCEEDS  AS  BEFORE. 


0. 


<0596 
R)  597 
R 0599 


ALARMS:  1)  MG  A REGION  (21  CALSES  GIMBAL  LCCK  LAPP  TO  BE  LIT. 

2)  MGA  REGION  ( 3 ) CALSES  THE  ISS  TO  BE  PUT  I N COARSE  ALIGN  AND  THE  NO  ATT  LAMP  TO  BE  l IT  IF  EITHER  NUT 
SO  ALREADY. 


0600 

0601 

0602 

D6D3 

0604 


REF 

REF 

PEF 

REF 

REF 


LAST  167 


175 

175 


06.2434 

06. 2435 

06.2436 

06. 2437 
06,2440 


1C  C 34  1 GLCCKMON  CCS 
1 244  1 0 TCF 
1 2465  0 TCF 
1 2441  0 TCF 
1 2465  0 TCF 


C DU  Z 

3.L0C  KCH  K 
SETGLOCK 
GLOCKCHK 
SE  TGLOCK 


SEE  IT  MAGNITUDE  OF  PGA  IS  GREATER  THAN 
70  DEGREES. 


0605  RFF 

0606 

0607  PEF 


1 

3 LAST  175 


06.2441  6 2512  0 

06.2442  C QUO 6 1 

06  ,2443  6 2464  0 


GLCCKCHK  AO 

E XTEND 
BZMF 


-70DEGS 
SETGLOCK  - 1 


NO  LOCK. 


0608  REF  l 

0609 

0610  REF  1 


6 2513  I 
C 0006  1 
6 2462  0 


AD  -150EGS  SEE  IE  ABS  (MGA  ) GREATER  THAN  85  DEGREES. 

E XTEND 

BZMF  NOGIMRIJN 


3611  RFF 
0612 

0613  REF 
3614  REF 
0615  REF 


LAST  172 

LAST  172 
LAST  174 
LAST  175 


0 6,  244  7 

06.2450 

06.2451 

06. 2452 

06 .2453 


3 4750  1 
0 0006  1 
C2  012  0 
10  000  0 
1 2462  l 


CAF  BIT4 

EXTEND 

RANO  CHAN12 

CCS  A 

TCF  NOGIMRUN 


IF  SO,  SYSTEM  S HO  U L D BE  IN  COARSF  ALIGN 
TO  PREVENT  GIMBAL  RUNAWAY. 


LAST  172 


C6 , 2454 


0 

0 


TC  IBNKCALL 

C ADR  SETCOARS 


0617  3 RFF 
) 6 1 7 4 REF 


172 


O 6 ,2456  3 6254  1 

06,  2457  C 5 214  0 


CAF  S IX 

TC  WAITLIST 


ENABLE  ISS  ERROR  COUNTERS  IN  6.  MS 


SAP: 


ASSEMBI  E REVISION  56  OF  ACC  PKGGRAM  ZERLINA  BY  ZOROASTER 


L T4RUPT  PROGRAM 


06175  REF 
3 617  6 RFF 

06176  REF 
0618  REF 
■>610  RFF 


2 LAST  172 
1 
1 

15  LAST  172 
A LAST  175 


E3  » 1 474 

06,  2 A60  C3105  0 

C6,246l  16103  1 

06.2A62  3 A 746  0 

06, 266 3 1 24(5  0 


EBANK=  C DU  I N 0 
2CA0R  CA+FCE 

NCGIMRUN  CAF  BIT6 

TCF  SETGLOCK 


0620 
0 62  1 
Ofc22 
r 673 
3 524 


RFF  A LAST  173 

RFF  6 LAST  163 

REF  1 6 LAST  176 

PFF  1 


06,2464  3 4755  1 

06,  2 A 6 5 fc  1 C 35  0 
06,  2466  7 A 7 A 6 1 

06,2467  C 0006  1 
06,  2470  1 5301  1 


-1  CAF  7ER0 

SETGLOCK  AD  OSPTAB  +11D 

MASK  31 T6 

EXT  END 

BZF  GLOCKCK 


0625 
' 626 
0627 


REF 

REF 

EF 


LAST  176 
LAST  175 


06  ,2471 
C6 , 2472 
06, 2473 


7 1035  l 
1C  CCO  0 
1 2SC7  0 


MASK  DSPTAB  + 1 ID 

CCS  A 

TCF  S LA  MP  T ST 


0628 

Y62R 

0630 

0631 


PFF  17  LAST  176 
RFF  17  LAS!  171 
REF  13  LAST  176 
PFF  2 LAST  176 


rt,  2474 
06,  ’475 

06.2476 

06.2477 


3 4746  0 CAF  PITA 

7 1277  0 MASK  I MOOFSlO 

10  000  0 CCS  A 

1 5301  1 TCF  GLOCKOK 


7632 
>63  3 
06  3 A 
0635 
06  36 
3637 
0638 


RFF 

REF 

REF 

PFF 

REF 

REF 

RFF 


B L AST 
1R  LAST 
15  LAST 
9 LAST 
1 

10  L AST 
3 l AST 


176  06,  2500  A 1035  1 

176  06,2501  7 47A6  1 

171  06,  25C2  fc  A735  l 

176  06,  250  3 57*035  0 

06,2504  7 2162  1 

176  06,  2505  2 7*C35  1 

1 76  06  ,2506  1 530  1 1 


GL  INVER  T 


CS  OSPTAB  +1  m 

MASK  B IT 6 

AD  BIT15 

XCH  DSPTAB  +1  ID 

MASK  OCT  377  37 

AD  S DSPTAB  +11  D 

TCF  GLOCKOK 


0639  RFF  1 

0640  REF  A 


LAST  176 


06,2507  C 2766 
06,  25  10  1 5 30 1 


1 GLAMPTST  TC 
1 TCF 


0641  REF 


06,2511  1 2500 


TCF 


L AMPTEST 
3L0C  KOK 
GL  INVERT 


06,  2512  63434  1 -70DEGS  DEC  -.38888 
06 , 2C 1 3 75252  0 -15DEGS  DEC  -.08333 
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TURN  ON  GIMBAL  LOCK  LAMP. 


SEE  IF  PRESENT  STATE  OF  GIMBAL  LOCK  LAMP 
AGREES  WITH  OESIP-ED  STATE  BY  HALF  ADDING 
THE  TWO. 

OK  AS  IS  . 


IF  OFF,  DONT  TURN  CN  IF  I MU  BEING  CAGED. 
TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 


INVERT  GIMBAL  LCCK  LAMP. 

TO  INDICATE  CHANGF  IN  DSPTAB  + 1 10 . 


TUPN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 


-7  ( DEGREES  SCALED  IN  HALF-REVI'LUT  IUN  S. 


GAP  : 
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T4RIJPT  PROGRAM 


USER  *S  PAGE  NO.  17 


F6  S4 


P"> 6 44  PROGRAM  NAME:  TL  IM  . 

R0645  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MAINTAINS  THE  TEMP  LAMP  ( R I T 4 OF  CHANNEL  11)  ON  THE  DSKY  TO  AGREE  WITH 

R 647  THE  TFMP  SIGNAL  FROM  THF  ISS  (BIT  15  OF  CHANNEL  30).  HOWEVER,  THE  LIGHr  WILL  NOT  RE  TURNED  OFF  IF  A LAMP  TEST 

R0649  IS  IN  PROGRESS . 

10650  CALLING  SEQUENCE:  CALLED  BY  IMUMON  ON  A CHANGE  OF  BIT  15  OF  CHANNEL  30. 

RD651  JOBS  OR  TASKS  INITIATED:  NONE. 

R 0 652  SUBROUTINES  CALLEC:  LAMPTEST. 

RO 653  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  TURN  THE  TEMP  LAMP  OFF. 

R0655  ALARMS:  T EMF  LAMP  TURNED  ON  WEEN  IMU  TEMP  GOES  OUT  OF  LIMITS. 

1 656  F XI  T:  NXTIFAI  L. 

RD657  OUTPUT:  SERVICE  OF  TEMP  LAMP.  IN  A,  EXCEPT  FOR  TLIM. 

0659  PFF  1 05  ,2514  7 4733  0 TLIM  MASK  PDSMAX  REMOVE  BIT  FROM  WORD  OF  CHANGES  AND  SET 

066-  RFF  5 LAST  174  06,2515  54  C71  0 TS  RUPTREC-2  DSKY  TEMP  LAMP  ACCORDINGLY. 

°66l  REF  1 R LAST  176  96,25  l6  1 1 *277  0 CCS  1 MODE  S30 


0662  REF  1 

3663  REF  2 LAST  177 


06,251  7 1 2525  0 

C6, 2520  1 2525  0 


TCF  TEMPOK 
TCF  TEMPOK 


‘•664  RFF  13  LAST  175 

0 66  5 

0666  REF  1 

0667  REF  1 


06,2521  3 4750  1 

06,2525  C 0006  1 
06,  2523  C 5 Ml  1 
06  ,2524  1 2225  1 


CAF  3 I T 4 

FXT  END 

WOR  DSALMOUT 

TCF  N XT  I FA  IL 


TURN  ON  LAMP. 


66  I TEMPOK 


TC  LAMPTEST 

TCF  NXTIFAI  L 


IF  TEMP  NOW  OK,  DONT  TURN  OFF  LAMP  IF 
LAMP  TEST  I N PPOGRESS. 


0670  RFF  14  LAST  177 
3671 


06,2527  4 4750  0 

06, 2530  0 CC06  1 

06,2  531  03  011  1 

06,2532  1 2225  1 


0672  REF  2 LAST  177 
■673  REF  3 LAST  177 


WAND  DSALMOUT 
TCF  NXTIFAIL 


TURN  OFF  LAMP 
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l T4RIJPT  PROGRAM  USER'S  PAGE  NG.  18  £6  S4 

0 0674  PROGRAM  NAME:  I TUPNCN. 

R1'S75  EUNCTIflNAL  OF  SCR  I P T I ON  : THIS  PROGRAM  IS  CALLED  BY  I MU  MON  WHEN  A CHANGE  OF  BIT  14  OF  CHANNEL  30  ( ISS  TURN-ON 

RG677  REQUEST!  I S DETECTED.  UPON  ENTRY,  TTOP\m  CHECKS  IF  4 TURN-ON  DELAY  SEQUENCE  HAS  FAILED,  AND  IF  S r,  IT  EXITS. 

?f,679  IF  MOT,  IT  CHECKS  WHETHER  THE  TLPN-ON  REQUEST  CHANGE  IS  TO  ON  OP  OFF.  IF  ON,  IT  SETS  BIT  7 OF  I MODE  S3''  TC  1 SO 

RTS81  THAT  TNONTEST  WILL  INITIATE  THF  ISS  INITIALIZATION  SEQUENCE.  IF  OFF,  THE  TURN-ON  DELAY  SIGNAL,  CHANNEL  12  BIT 

R 1683  15*  IS  CHFCKFC  AND  IF  IT  IS  CN,  ITIIRNDN  EXITS.  IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  0C2G7  IS  ISSUED,  BIT  2 

P '685  OF  IMOD  E S 30  IS  SET  TO  1 AND  THE  PRCGRAM  EXITS. 

R .636  TEE  SETTING  OF  BIT  2 OF  lMpo.ES  3p  (ISS  DELAY  SEQUENCE  FAIL)  INHIBITS  THIS  ROUTINE  AND  IMUOP  FROM 

<■'■6 88  PROCESSING  ANY  CHANGES.  THIS  BIT  WILL  BE  RESET  BY  THE  ENDTNON  ROUTINE  WHEN  THE  CURRENT  °0  SECOND  DELAY  PERIOD 

RD69D  ENDS. 

R 0691  CALLING  SEQUENCE:  FRCM  IMUMCM  WEEN  ISS  TURN-ON  REQUEST  CHANGES  STATE. 

10692  JOBS  OR  TASKS  INITIATED:  NONE. 

RJ691  SUBROUTINES  CALLED:  ALARM,  IF  THE  ISS  TU3N-3N  REQUEST  IS  NOT  PRESENT  FOR  9C  SECONDS. 

1 0695  FP  A SABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  15  OF  CHANNEL  12  AND  BITS  2 AND  7 OF  IM0DES30  TO  0, 
R16P7  AND  BIT  14  OF  IM0DES30  TD  1. 


RC698  ALARMS:  FFCGPAM  ALARM  0D207  IS  ISSUEC  IF  THE  ISS  TURN-ON  RE'OUEST  SIGNAL  IS  NOT  PRESENT  FOR  9f  SECONDS. 
R0700  CXIT:  M XT  I FA  I L . 


R0701  OUTPUT:  BIT  7 OF  IMODES  30  TO  START  ISS  INITIALIZATION,  OR  BIT  2 OF  I MODE  S3C  AND  PRCGRAM  ALARM  00207  TO  INDICATE 
10703  A FAILED  TURN-CN  SEQUENCE. 


0704 

0705 
070ft 
0 70  7 


REF  15  LAST  170 
PFF  1 9 LAST  177 
REF  14  LAST  176 
REF  4 LAST  177 


06,25  33  2 4752  0 ITLRNON  CAE 

7 1277  MASK 

06.2535  1 0 000  0 CCS 

06.2536  1 2225  1 TCF 


BIT2  IF  DELAY  REQJEST  HAS  GONE  OFF 

I MODE  S 30  PREMATURELY,  DO  NCT  PROCESS  ANY  CHANGES 

A UNTIL  THE  CU1RENT  90  SEC  WAIT  EXPIRES. 

N XTI  FAI  L 


0708 
C 709 
07 1 C 


REF  21  LAST  170 
REF  20  LAST  178 


06  ,2537  3 4736  1 

06,2540  7 1277  0 

06,  254  1 C 0006  1 


0711  REF 


06  ,2542  1 2556  1 


CAF  RIT14 

MASK  I M0DES30 
F XTEND 

BZF  ITIIPNON  2 


SEE  IF  JUST  ON  OR  OFF. 


IF  JUST  ON. 


'7  14 
1716 

0716 

0717 


REF  16  LAST 
REF  7 LAST 

REF  5 I A ST 


176 


175 


178 


Ofc,  2 54  3 3 4735  1 

06,2544  0 0006  1 

C6.2545  02  012  0 

06, 2546  C 0CC6  1 
06  ,2547  1 255  1 0 

G 6 , 2 5 50  1 2225  1 


CAF  B I T 1 5 

EXTEND  SFE  IF  DELAY  PRESENT  DISCRETE  HAS  BEEN 

RAND  CHAN12  SENT.  IF  SD,  ACTION  COMPLETE 

E XTEND 

BZF  +2 

TCF  NXTIFAIL 


r 71R 
719 
3 720 
0721 
0 722 


RFF  1ft 
RFF  21 
REF  2 


REF  6 


LAST  178 
LAST  17e 
1 AST  170 


178 


06,  255  1 
06,255? 
C6,  2553 

06.2554 

06.2555 


3 4752  C 
27*277  0 
C 5600  1 
00207  1 
l 2225  1 


CAF  31  T2  IF  NOT,  SET  BIT  TO  INCICATE  REQUEST  NOT 

AOS  I MODES  30  PRESENT  FOR  FULL  DURATION. 

TC  ALARM 

OCT  207 

TCF  NXTIFAIL 


LAST 


GA*:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L TARUPT  PROGRAM 


l 723 
072A 
3725 
0726 

0726  1 

0727 


REF 
R EF 
REF 
REF 
RFF 
PEF 


LAST 

LAST 

LAST 


178 
170 

179 


06,  2560 
06  ,2561 
C6 , 2562 
06,  2563 


A 1277  C 
7 A7A5  1 
27-277  0 
3 256 A 1 
5 A 110  C 
1 2225  1 


ITURN0N2  CS 

MASK 

AOS 

CAF 

TS 

TCF 


IMODES30 

BIT7 

I MOOR  S3  0 

RR  IN  IT 
RADMODES 
NXTIFAI  L 
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SET  BIT7  TO  INDICATE  WAIT  GF  1 SAMPLE 


C6.256A  00102  1 R R I NIT 


OCT 


00  102 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L T4RUPT  PROGRAM  USER'S  PAGE  NC.  20  Eft  S4 

P0728  PROGRAM  NAME:  IMUCAGE. 

°<  7J9  FUNfTICNAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  OF  THE  IMUCAGE  INBIT,  CHANNEL  30  BIT  11.  IF  THE  BIT 
731  CHANGES  Tp  ICAGE  BUTTON  PRESSFO),  THE  1SS  IS  CAGED  fICDJ  ZERO  + COARSE  ALIGN  + NO  ATT  LAMP)  UNTIL  THE 

R3733  ASTRONAUT  SELECTS  ANOTHER  PROGRAM  TO  ALIGN  THF  I S S-  ANY  PULSE  TRAINS  TO  THE  ICDU'S  ANC  GYRO'S  APF  TERMINATED, 

“'*735  THF  ASSOCTATFO  Oljt COUNT E RS  AFE  7FPCEC  AND  THE  GYRO'S  ARE  DE-SELECTEO.  NO  ACTION  OCCURS  WHEN  THE  BUTTON  IS 

R 737  RELEASED  ( INB  I T CHANGES  TO  1). 


R0738  CALLING  SEOUENCE:  BY  IMUMON  WHEN  IMU  CAGE  BIT  CHANGES. 

< 0739  JOBS  OR  TASKS  INITIATED:  NONF. 

R0740  SUBROUTINES  CALLED:  CAGFSUB. 

R 070  FRASABLE  INITIALIZATION:  FRESF  START  AND  RESTART  SET  BIT  II  OF  I MODE  S3C  TO  L. 


<0743  ALARMS:  NONF . 


R3744  FX  IT:  NX  T I FA  IL  . 

<1745  OUTPUT:  I SS  CAGED,  COUNTERS  ZEROED,  PULSE  TRAINS  TERMINATED  AND  NO  ATT  LAMP  LIT. 


3 7 4 7 
f 74  ft 
0 749 
3753 
G 751 


RFF  15  LAST  17ft 
RFF  1 
REF  1 

REF  1 


06,  2565  1C  CCO  0 
06, ?56ft  1 2361  0 

06,2567  4 30C?  I 

06,  2570  C GOC 6 1 
06  ,2571  03  014  1 


I MUCAGE 


CCS 

TCF 

CS 

EXTEND 

WAND 


A 

I SSZEPO 
OCT  77000 


CHAN  14 


NO  ACT  ION  IF  GO  IN  G OFF. 

TERMINATE  ICDU,RCDU,  GYRO  PULSE  TRAINS 


75?  RCF 

07521 

07522  PFF 


8 LAST  178  06,2574 


4 2776  1 
C 0006  1 

03  012  l 


CS  0CT272  KNOCK  DOWN  DISPLAY  INERTIAL  OA  TA  , IMU 

EXTEND  ERRCR  COUNTER  ENABLE,  ZERO  ICDU,  COARSE 

WAND  CHAN  12  ALIGN  ENABLE,  RR  ERROR  COUNTER  ENABLE. 


'75221  PEE 
'75222  PFF 
■75223  PEF 
‘.'75  2 3 PFF 


07574 

"7525  REF 
075251  RFF 
° 7 52  5 2 
375253  RFF 


2 LAST 

3 LAST 
1 


3 LAST 
22  LAST 

4 L AST 


163 

180 


177 

178 

180 


06, 2575 
Oft  ,2  576 
C6  ,2577 
Oft,  2600 
06  ,2601 
06, 26C2 
06,  260  3 
06,2604 
06,  26C  5 


4 4745  1 
7 0 10  1 0 
54  101  0 
4 4355  1 
0 0006  1 
C 2 Cll  0 
6 4 73  6 1 
C 0006  1 
Cl  Cll  0 


CS 
MASK 
T S 
C S 

EXTEND 

RAND 

AD 

EXT  END 
WRT  TE 


ENGCNBI  T 
FL  AGWRD5 
FL  AGWRD5 
PRI030 

DSALMCUT 
31  T 1 4 

D SALMOUT 


INSURE  ENGONFLG  IS  CLEAR. 


TURN  F NO INF  OFF. 


FORCE  8 IT  1 4 =1  , RITl3=0. 


f 752  6 PEF 


06  ,2606  0 2743  0 


TC  CAGE  SUB  1 


07527  REF 
'7528  REF 


4 LAST  175 
1 


06 , 26C7  C 4674  0 
06,  26 10  17 1 42  0 


TC  1 BNKC  ALL  KNOCK  DOWN  TRACK,  REF  SM  MAT,  DRIFT  FLAGS 

CADR  RNDREFDR 


r 753 
3 7 5 4 
0755 


REF 

REF 

REF 


LAST  176 


4 4755  0 

5 4 050  D 
54  051  1 


CS  ZFRO 

TS  CDUXCMD 

TS  CDUYCMD 
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E 

REF 


1 


06,  2614  54  C 52  1 TS  CDUZCMD 

06,2615  54  047  0 TS  SYROCMD 


f 758 

1 ’ 7 60 
'761 


REF  1 

REF  2 
REF  8 


I AST  130 
I A ST  179 


06  ,?616 
06  ,2620 


4 3001  1 
0 0006  1 
03  014  1 
1 2225  1 


CS  OCT  74  0 HAVING  WAITED  AT  I.EAST  27  MC  T FROM 

EXTEND  GY R C PULSE  TRAIN  TERMINATION,  WE  CAN 

WAND  C HAN  1 4 DF-SFLECT  THE  GYROS 

TCF  NXTIFAIL 
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P3762  PPCGRAP  NAME:  IMUOP  . 

HO  763  FUNCTIONAL  DESCRIPTION:  THIS  F R OG  P AM  PROCESSES  CHANGES  IN  THE  I SS  OPERATE  DISCRETE,  BI  T 9 CF  CHANNEL  3U . 

R '765  IF  THE  IN8 1 T CHANGES  TO  ",  INDICATING  I SS  CN,  IMUOP  GENEPALLY  SETS  BIT  7 OF  IMODES30  TO  1 TO  REQUEST  1 SS 

«o767  INITIALIZATION  VIA  TNONTEST.  AN  EXCEPTION  IS  DURING  A FAILED  I SS  DELAY  DURING  WHICH  8IT  2 CF  IM00ES33  IS  SET 

1-769  TP  1 AM*  NC  FURTHFP  T M T I AL I 2 AT  ICN  IS  RE  QU  IP  FT . WHEN  THE  INRIT  CHANGES  TO  1,  INDICATING  ISSOFF,  I MUSE  F LG  IS 

R377  1 TESTED  TO  SEE  IF  ANY  PROGRAM  WAS  LSING  THF  I SS.  IF  SC,  PRCGRAM  ALARM  03214  IS  ISSUED. 

R077 1 CALLING  SFCUENCF:  BY  IMUMON  WHEN  PIT  9 OF  CHANNEL  30  CHANGES. 

R0774  JOBS  OR  TASK*:  INITIATED:  NONE. 

R0775  SUBROUTINES  CALLFD:  ALARM,  IF  ISS  IS  TURNED  OFF  WHILE  IN  USE. 

10776  EP  A SABI  E I NT  TI  A I I 2 AT  I CN : CN  FRESH  START  ANO  RESTART,  BIT  9 OF  IM0DES30  IS  SET  TO  1 EXCEPT  WHEN  THE  GIMBAL  LOCK 

R .778  LAMP  IS  ON,  IN  WHICH  CASE  IT  IS  SET  TO  C.  THIS  PREVENTS  I CDIJ  7ER0  BY  TNONTEST  WITH  THE  ISS  IN  GIMBAL  LOCK. 

R 0780  ALARMS:  PPCC-PAM  ALARM  03214  IF  TEE  ISS  IS  TURNED  OFF  WHILE  IN  USE. 


RD781  EXIT:  NXTIFAIL. 


R 0 7 8 2 OUTPUT:  ISS  INITIALIZATION  REQUEST  (IMODESTO  BIT  7)  OR  PROGRAM  ALARM  0C214. 


f 784 

3706  REE 


06,2622  0 0006  1 IMUOP  EXTEND 

06,  2623  I 2 6 A3  0 BZF  I MU0P2 


REF 

RFF 

REF 


K LAST 
19  LAST 
11  LAS! 


1300  1 
47  A 6 1 
7 '300  1 


CS  IM0DES33  DISABLE  DAP 

MASK  BITE 
ADS  I MODE  S3 3 


7885 
1 78 H 6 


5 LAST  180  06  ,2627  0 A67A  0 
2 LAST  180  06, 2630  171A2  0 


TC  IBNKCALL  KNOCK  DOWN  TRACK,  REFSMMAT,  DRIFT  FLAGS 

C AO  R RNDREFDR 


D7887  REF 
78 R 8 RFE 
3789  REF 
07891 

0790  PEF 
U791  REF 
0792  PEF 


2 LAST 

3 LAST 

4 L AST 


1 6 LAST 
9 LAST 


1 7.  06,2631  A 2777  0 

172  06,2632  7 007A  0 

182  06,2633  56  C7A  1 

06  ,2634  A 0000  0 

06,2635  7 47  44  0 

1 3 0 06,  2636  10  000  0 

181  06  ,2637  1 2225  1 


CS  3ITS7&e  KNOCK  DOWN  RENDEZVOUS,  IMUUSE  FLAGS 

MASK  F L A GW  R DO 

XCH  FLAGWRDO  IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU . 

COM 

MASK  IMUSEFLG 

CCS  A 

TCP  NXTIFAIL 


3790 

0794 

0795 


PEF  3 1 AST  178 


RFF  1C  LAST  182 


06,  2 6 A C C 56C  0 1 
06 , 26 A 1 002  1A  0 
06,2642  1 2225  1 


TC  ALARM 

OCT  2 1 A 

TCP  NXTIFAIL 


3796 
f 7Q7 
■1798 

0799 

0800 


REF  17  LAST 
REF  24  LAST 
REF  17  LAST 
PEF  11  LAST 
REF  2 LAST 


178  06, 2643 

179  06,2644 

18?  C 6 , 2 6 4 5 
182  06,  2646 

178  C6 ,2647 


3 4752  o IMUOP 2 
7 1277  0 
1C  CCC  0 
1 2225  1 
1 2556  1 


CAF  BI  T2 

MASK  IM0DES30 

CCS  A 

TC  F NXTIFAIL 

TCF  ITURN0N2 


SEE  IF  FAILED  ISS  TURN-ON  S EQ  IN  PROG. 


IF  SO,  DCNT  PROCESS  UNTIL  PRESENT  90 
SECONDS  EXP  RES. 
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L T4RUPT  PROGRAM  USER'S  PAGE  NO.  23  E6  S4 

P0801  PROGRAM  NAME:  PIPFAIL 

*0  80  2 FUNCTIONAL  DESCRIPTION:  THIS  PRGGRAM  PROCESSES  CHANGES  OF  BIT  13  OF  CHANNFL  33,  PIPA  FAIL.  IT  SETS  BIT  10  OF 

R)B14  I MOOES  30  TO  AGREE.  IT  CALLS  SETISSW  IN  CASE  A PIPA  FAIL  NECESSITATES  AN  ISS  WARNING.  IF  NOT.I.F.,  IM0DES30 


R 0806 

PI  T 

1 = 

l , ANT. 

A PIPA  FAIL  IS 

PRES  ENT 

ANC  THE  ISS  IS  NOT  BFING  INITIALIZED,  PROGRAM  ALARM  C0212  IS  ISSUED. 

RO  808 

CALL 

ING 

SEQUENCE  : 

BY  C33TES1 

CN  CHANGES  OF  CHANNEL  33 

BIT  13  . 

R0809 

J CBS 

OR 

TASKS 

INITIATED:  NONE. 

T 08  10 

SUBROUTI  NF  S CALLED: 

: 1)  SETIS 

SW,  AND 

2)  ALARM  (SEE  FUNCTIONAL  DESCRIPTION). 

R3312 

ERASABLE  INITIALIZATION:  SEE 

IMUMON 

FOR  I Nl  TI  ALI  ZATION 

OF  I MODE  S3 0. 

THE  P.ELAVANT  BITS  ARE  5,  7,  8,  9,  AN  0 10. 

R 0 8 1 4 

ALARMS: 

PRCGRAM  ALARM  00  212 

IF  PIPA 

FAIL  IS  PRESENT  BUT  NEITHER  ISS 

WARNING  IS  TO  BE  ISSUED  NOR  THE  I SS  I S 

RCR16 

BEING  INITIALIZED. 

R0817 

EXIT 

NXTFL33 

*"818 

OUTPUT: 

PROGRAM  ALARM  00212 

AND  I SS 

WARNING  MAINTENANCE. 

REF 

la 

L AST 

182 

06, 2650 

10  000 

0 PIPFAIL  CCS 

A 

SET  BITlO  IN  I MODES  30  SO  ALI  ISS  WARNING 

0 820 

REF 

15 

LAST 

135 

06  ,2651 

3 4742 

1 CAF 

BIT10 

INFO  IS  IN  ONE  REG  I STEP. 

0821 

REF 

25 

LA  ST 

182 

C 6 ,2652 

57' 277 

1 XCH 

I M0DES30 

0822 

REF 

1 

06, 2653 

7 3C04 

1 MA  SK 

-81 T 10 

0823 

REF 

26 

LAST 

183 

06,2654 

27*  277 

C ADS 

IMODES  30 

33  24 

REF 

2 

L AST 

17  1 

06,  2655 

C 27C3 

1 TC 

SF  TI  SSW 

0825 

REF 

27 

LAST 

183 

06  ,2656 

4 1277 

0 CS 

IM0DES30 

IF  PIP  FAIL  DOESNT  LIGHT  ISS  WARNING,  DO 

0826 

REF 

13 

I.A  ST 

89 

06,2657 

7 4753 

0 MASK 

B I TI 

A PROGRAM  ALARM  IF  IMU  OPERATING  BUT  NUT 

U827 

REF 

1 9 

LAST 

18  3 

06, 2660 

10  000 

o :c  s 

A 

CAGED  OR  BEING  TURNED  ON. 

0828 

REF 

1 

06,2661 

1 2432 

1 TCF 

NXTFL33 

3829 

REE 

28 

L AST 

183 

06,  2662 

3 1277 

1 CA 

I M0DES3C 

0830 

PEF 

1 

06 , 2 66  3 

7 3C00 

0 MASK 

D C T 1 7 2 ■ 

0831 

REF 

20 

LA  ST 

183 

06,2664 

10  000 

0 CCS 

A 

3832 

REF 

2 

LAST 

1 8 3 

06, 2665 

1 2432 

1 TCF 

NXTFL33 

ABOVE  CONDITION  NOT  MET. 

083  3 

REF 

LAST 

182 

06  ,2665 

0 5600 

1 TC 

ALARM 

0 83  u 

C 6,  2667 

CC212 

C OCT 

212 

0035 

RFF 

3 

LAST 

183 

06, 2670 

1 24  32 

I TCF 

NXTF  L33 

ASSFMPLE  REVISION  <=.6  OF  AGC  PROGRAM  ZEKLINA  RY  ZOROASTER 
TAFUPT  PRTGRAM 

PROGRAM  NAMES:  DNTMFAST,  UP  1MFAST 


9:12  OCT.  21  ,1970  ZERLAIC  .D-  1 PAGE  184 
USER  'S  PAGE  NO.  24  E 6 S4 


R 084  O 

* 84  1 
RDR42 
R09  43 

RDR44 

R0845 

* 0846 
R3P4R 
R 0849 
R0850 


7353 
C 854 
0855 


01IC5 
i 1106 


DOWNLI  NK  TOO  FAST 
UPLINK  TOO  FAST 


CALLING  SEQUENCE  : 3Y  C33TEST  CN  4 BIT  CHANGE. 

SUBROUTINES  CALLED:  ALARM,  IF  A eiT  CHANGES  TO  A 0. 

ERASABLE  INITIALIZATION:  FRESF  START  CR  RESTART,  BITS  12  AND  11  OF  IM0DES33  ARE  SET  TO  1. 
ALARMS:  SEE  FUNCTIONAL  DESCRIPTION. 

EXIT:  NXTFL33. 

OUTPUT:  PROGRAM  ALARM  ON  A BIT  CHANGE  TC  0. 

RFF  21  LAST 


REF  4 LAST  183 

REF  5 LAST  183  06,  2673  C 5600  1 

06  ,2674  0 1105  1 

REF  5 LAST  184  06,2675  1 2432  1 


TC 


NXT  FL3  3 

ALARM 

1105 

NXTFL33 


DO  PROG  ALARM  IF  TM  TOC  FAST. 


0856  RFF  22  LAST  184 

0857  RFF  6 LAST  IP  4 


06,  2676  10  000  0 UP  TM  FA  ST  CCS  A 

06,2677  1 2432  1 TCF  NXT  FL  33 


SAME  AS  DNLINK  TOO  FAST  WITH  DIFFERENT 
ALARM  CODE. 


0353  REF 
085  9 

0860  RFF 


6 LAST 

7 LAST 


184 

184 


L6,  2 7C0 

06.2701 

06.2702 


C 5600  1 
01106  1 
1 2432  1 


TC  ALARM 

OCT  1106 

TCF  NXTFL33 
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L T4  RUPT  PROGRAM  USER'S  PAGE  NC.  25  E6  S4 

P 0861  PROGRAM  NAME:  SETISSW 

10952  FUNCTIONAL  OF  SC  R I P T I ON : THIS  PROGRAM  TURNS  THE  I SS  WARNING  LAMP  ON  AND  OFF  (CHANNEL  11  B IT  1 = 1 FOR  ON, 

R0864  ; FOR  OFF)  DEPENDING  ON  T FE  ST  ATUS  OF  IMUDES  30  BITS  13  (IMU  FAIL)  AND  A (INHIBIT  I MU  FAIL)  , 1?  (ICDU  FAIL)  ANO 
R 0 8 6 6 3 ( I NHIBI  T fijCDti  FAIL)  , ANO  10  ( P I PA  FAIL)  ANO  1 ( I NHIBIT  P IP  A FAIL  ) . THE  L AMP  IS  LEFT  ON  IF  A LAMP  TF  ST  IS  IN 
R^QbB  PROC-RFSS. 


R i‘869  CALLING  SEQUENCE:  CALLED  BY  IMUMCN  ON  CHANGES  TO  IMU  FAIL  AND  ICDU  FAIL.  CALLED  BY  IFAILCK  AND  PFAILOK  UPON 

R 871  REMOVAL  OF  THE  FAIL  INHIBITS.  CALLED  BY  PIPFAIL  WHEN  THE  P I PA  FAIL  DISCRETE  CHANGES.  IT  IS  CALLED  BY  PIPUSE 

R087T  SINCF  TFF  PIpA  FAIL  PROGRAM  ALARM  MAY  NECESSITATE  AN  I SS  WARNING,  AND  LIKEWISE  BY  PIPFREE  WHEN  THF  ALARM  DEPARTS 

* 0875  AND  IT  IS  CALLED  BY  IMUZERC3  ANC  ISSUP  AFTER  THE  FAIL  INHIBITS  HAVE  BEEN  REMOVED. 


R3877  JOBS  OP  TASKS  INITIATED:  NOME. 

R 0 8 7 8 SUBRCUTINES  CALLEC:  NONE. 

R 0 8 7 9 ERA  SABI  E INITIALIZATION: 

RC880  1 ) IMODES30  - SEF  IMUMON. 

T08B1  2)  I MCDES33  BIT  1 = 0 (LAMP  TEST  NOT  IN  PROGRESS). 


ROBB?  ALARMS:  ISS  WARNING. 


ROBB? 1 
1 0 8 R ? ? 
RD8B23 
R C 882  A 
RO  882  5 
R 0 8 8 2 6 
T08fl?7 
R0B828 


THF  FGLLCWING  PROGRAM  ALARMS  WILL  SHOW  WHICH  FAILURF  CAUSED  THF  ISS  WARN 
PROGRAM  ALARM  0C777  PIPA  FAIL 
ICDJ  FA  IL 
ICDU  , FIFA  FAILS 
I MU  FAI  L 
IMU  , PIPA  FAILS 

I Mu  , I ecu  FAILS 

IMU  , [COL  , PIPA  FAILS 


PROGRAM  AL  ARM  C'3777 
PROGRAM  ALARM  C^777 
PROGRAM  ALARM  0 7777 
PROGRAM  ALARM  10777 
PROGRAM  ALARM  1 3777 
PROGRAM  ALARM  14777 


F XI  7 : VI  A Q. 


R08R4  OUTPUT:  ISS  WARNING  LAMP  SET  PROPERLY. 


0885 

0886 
D 887 
08  BP 
0 RR9 
3890 

0891 

0892 

0893 

0894 
3895 


2<>  LAST  IP  3 


REF 

REF 

REF 


LAST 
L AST 


183 

185 


23  LAST  1B4 


06,  2703 
C6.2704 
C6, 27C5 

. 

06 ,?  707 
06 , 2710 
'6  ,2711 
Ot, 2712 

06. 2713 

06.2714 

06. 2715 


3 4 7 F 1 0 
7 1277  0 
C 00C6  1 
7 4742  0 

3 1277  1 
0 0006  1 
C 4 001  1 

4 CCCO  0 
7 5025  1 


CAF 

MASK 

EXTEND 

MP 

CA 

E XTFND 

ROR 

COM 

MA  SK 

CCS 

TCF 


SET  ISS  WARNING  USING  THF  FAIL  BITS  IN 
RITS  13,  12,  AND  1C  OF  I MODE  S30  AND  THE 

FAILURE  INHIBIT  BITS  IN  POSITIONS 
4,  3,  AND  1. 


C l ND I CATES  FAI  LURE 


A SSf  MB  LF  PF  VI  SI  ON  ' t 
T4RUPT  PROGRAM 


OF  AGO  PROGRAM  ZFRL  INA  BY  ZOROASTER 


D9D  ' 
0901 
090? 

0903 


REF  15  LAST  1R5 

P EF  5 1 AST  190 

REF  A LAST  196 


06, 2722 
06  ,2723 
:6,  ? 7 2 A 
06, 2725 


A A 7 5 3 0 
0 0006  1 
C 3 011  1 

C 0CC2  0 


CS  3IT1 
EXTEND 

WAND  PSALMOUT 


090  A 

090  AO 2 PEF  1 

090ACA  REF  1 

09041  PFF  16  LAST  1 R6 

0905 

0906  PEF  6 LAST  186 

0907  REF  2 LAST  186 


06,2  726 
06,  2 727 

, 1 

C6,27?l 
06, 2732 
06  ,2733 
C6,  273 A 


G 0006  1 
22  066  1 
C 5745  1 
3 A 7 5 3 T 
0 O0C6  1 
05  011  1 
C CC66  1 


CAF 
E XTENO 
WOR 
TC 


OS  AL  M OUT 
I TEMP6 


0908 

0900 

0910 

0911 
0«12 
0913 


LAST  1 BO 
LAST  171 


REF  If  LAST  1 ° 6 


06,2735 
06 ,2  736 
06, 2737 
06  ,2740 
06 , 2 7 A 1 
06,  27 A 2 


300  3 0 
0006  1 
3 012  1 
A763  1 
CCC  6 1 
5 C 1 2 1 


CS  3ITS6E15 

EXT  END 

WAND  CHAN12 

CAF  RITS4G5 

EXTEND 

WOR  SHAN  1 2 


091  A 
0916 
0916 


RFF 
REF 

RFF  12  LAST 


11  LAST  176 

186 


A 1035  1 
7 2773  1 
27  '0  35  1 


CACESUB1  CS 

MASK 

ADS 


PS  PT  A 8 +110 
UCAOOl  0 
DSP  TAB  + 1 ID 


09  18 
09ln 
0920 


REF  21  LAST  185 
REF  1 

RFF  3?  LAST  186 


06,2  7A6  A 1277  0 
06,  27  A7  7 2775  1 
06  ,2750  27*  277  0 


CAGESUB?  CS 

MA  SK 
AOS 


I MODES 30 
OS  T75 
IMODFS  30 


092?  PEF 
0923  REF 
09?A  RFF 


LAST 

LAST 

LAST 


111 

186 


06.2751  5 1300  1 

06.2752  7 47A6  1 

06.2753  2 7'  300  1 


MASK 

ADS 


I MCDES33 
31  T 6 
I MOOES  33 


LAST  1 8 6 06.  275A  0 OC02  0 


>:  12  OCT.  ? 1,  1970  ZERLA1D 


PAGE 


.001 


186 


USER'S  PAGF  NO.  26 


E 6 SA 


TELL  EVERYONE  WHAT  CAUSED  THE  ISSWARN1NG 


SET  0UTR1TS  AND  INTERNAL  FLAGS  FOR 
SYSTEM  TURN-ON  OP  CAGE.  D1  SABI  E THE 
ERRCR  COUNTER  ANC  REMOVE  I Mll  DELAY  COMP. 
SEND  ZERO  AND  COARSE. 


TURN  ON  NO  ATT  LAMP 


SET  FLAGS  TO  INDICATE  CAGING  DR  TURN-ON 
AND  INHIBIT  ALL  ISS  WARNING  INFO 


CIS  ABLE  DAP  AUTO  AND  HOLD  MODES 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L T4RUPT  PROGRAM 


5 0928  JUMP  TABLES  ANO  CONSTANT  S. 


3929 

REF 

1 

06,2755 

1 2^33 

1 

IFAILJMP 

TCF 

I TURNON 

0930 

PFF 

1 

OS  ,2756 

l 2703 

0 

TCF 

IMIJFA  II 

0031 

RFF 

l 

C6  * 275  7 

1 2703 

C 

TCF 

I CDU  FAIL 

0932 

REF 

1 

06,  2760 

1 2565 

1 

TCF 

I MUCAGF 

0933 

06  ,2761 

764C0 

1 

30  RDMSK 

OCT 

76400 

093  A 

REF 

1 

06,  2762 

1 2622 

1 

TCF 

I MUOP 

0935 

REF 

1 

06,2763 

1 2650 

1 

C33JMP 

TCF 

P I PFAIL 

0936 

PEF 

1 

06,2764 

1 2671 

1 

TCF 

DNTMFAST 

0937 

REF 

1 

06,  2765 

1 26  76 

0 

TCF 

IIPTMF  AST 

1 0 938 

SUBROUTINE 

TC  SKIP 

IF  LAMP  TEST 

NOT  IN  1 

PROGRESS . 

0939 

REF 

15 

LA  ST 

186 

06,2766 

4 13C0 

1 

LAMPTEST 

CS 

I M0DES33 

0940 

RFF 

17 

LAST 

186 

06, 2767 

7 4753 

0 

MA  SK 

81  T I 

094  1 

RFF 

25 

LAST 

186 

06,2770 

10  000 

0 

CCS 

A 

0 94  2 

RFF 

6 

1 AST 

1R6 

06,  2771 

24  f 02 

0 

I NCR 

Q 

0943 

REF 

7 

LAST 

187 

06,2772 

0 0002 

0 

TC 

Q 

0944 

REF 

1 

5026 

33  RDMSK 

EQUALS 

PR  1016 

3945 

06, 2773 

40010 

1 

0C4C010 

OCT 

4 COl  0 

0947 

06  ,2774 

00054 

0 

OCT  54 

OCT 

54 

0948 

06,2775 

CCC75 

0 

CCT75 

oct 

75 

09485 

06, 2776 

00272 

0 

0 C T 2 7 2 

OC  T 

00272 

094  9 

06,2777 

00300 

1 

B ITS 7 £8 

OCT 

300 

3953 

06,  30CC 

C 1 720 

0 

OC  T172  0 

OCT 

1720 

0951 

06, 3001 

00740 

L 

0CT740 

OCT 

0 0 7 4 C 

0952 

RFF 

1 

5025 

GCT15000 

EQUALS 

PR  10 1 5 

0953 

06,  3C02 

77CC0 

1 

OC  T7700C 

OC  T 

77000 

0954 

06  ,3003 

40040 

1 

BITS6E  15 

OCT 

0955 

06,3004 

76777 

l 

-BIT10 

OCT 

-1000 

0956 

06,  300  5 

21450 

0 

90SEC S 

DEC 

9000 

0957 

RFF 

1 

5752 

120MS 

OCT  14 

3 9 58 

REF 

4 

LAST 

166 

5 301 

GLOCKOK 

EQUALS 

RESUME 

9:12  OCT.  21,1970  ZERLAID  .00 1 PAGE  187 
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CHANNEL  30  DIS  PAT  CF. 

(BIT  10  NOT  SAMPLED  HERE)  . 

CHANNEL  33  DI  SPATCH. 

BIT  1 OF  IMODES  33  = 1 IF  LAMP  TEST  IN 
PROGRESS. 


( DEC  121 


PAGE  188 


Et  S4 


3 0959  PROGRAM  NA  ME_  PR ALTCHK 
KD  9f>  FUNCTIONAL  DESCRIPTION. 

R ^951  PPAIITCHK  IS  THE  RENDEZVOUS  RACAP  I NR  IT  MONITOR.  INITIALLY  THE  RR 

R396?  POWER  ON  ALTO  (CHAN  33  PIT  ?)  I MJI  T IS  CHECKED.  IF  NO  CHANGE,  TFE 

o(1q*7  PROGRAM  EXITS  TO  RPCDUfHK.  IF  A CHANGE,  RADM3DES  IS  UPDATED 
<0964  AND  A CHECK  MADE  IF  RR  POWER  H/S  JUST  COME  ON.  IF  JUST  OFF,  A CHECK 

RD965  IS  MADE  TO  SEE  I F A PROGRAM  WAS  L SI NG  THE  RP  (STATE  BIT  7).  IF  NC, 

RJ9A6  THE  PROGRAM  EXITS  TO  RRCDUCHK.  IF  YES,  PROGRAM  ALARM  Q0514 
<0967  IS  RFOUFSTED  BEFORE  EXITING  TC  RRCCUCHK.  IF  RR  POWER  HAS  JUST  COM  E 

R3966  ON,  A CHECK  IS  MADE  TO  SFE  IF  A PROGRAM  WAS  USING  THE  RR  (STATE  BIT  7). 

-"'96 9 IT  YES,  THE  PROGRAM  EXITS  TC  RRCDUCHK  WITHOUT  REQUESTING  THE  TURN-ON 

R097-  SEQUENCE.  IF  NO,  RADMODES  IS  UPDATED  TC  INOICATE  RR  CUU  ZERO  AND 

R0971  PP  TURN-ON  SEQUENCE  (BITS  13,  1).  A 10  MILLISECOND  WAITLIST  CALI 

<0972  IS  THEN  SET  F CP.  RRTURNGN  HEFCRE  THE  PROGRAM  EXITS  TO  NORRGMON. 


R 3973  CALLING  SEQUENCE. 

R0974  T4RUPT  FVEPY  ARC  MILLISECONDS 


R 0975  ERASABLE  I NT  TI  A L I Z A TI  ON  RE  QUI  RE  U_ 
R3976  RACMODES,  STATE 


R 0977  SUBRCLTI NFS  CALLCC 

R 0978  WA  I TL  1ST 


GAP:  ASSEMBLE  RF  VISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZCRQASTER 

L T4RUPT  FHCGRAM 
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R0979  JCRS  OR  TASKS  INITIATED. 

< C 980  PR  TUP  NON 


RD981  ALARMS.  PROGRAM  ALARM  00E14  - RADAR  GOES  OUT  OF  AUTO  MODE  WHILE  BEING 
R09B?  USED 


0983  FXIT.  RRCDUCHK,  NORRGMON 


39B<*  RFF 
0985 

3986  RFF 

0987  RFF 

0988 

3989  REF 


A LAST  179 


? LAST  173 
1 


1 


06. 3006  3 0110  1 

06.3007  0 3006  1 

06,3010  oe  D 33  1 
06,  30  1 1 7 4752  1 

06  ,3012  0 0006  1 

C 6,  3013  1 3037  1 


RXOR 
MA  SK 
EXT  END 


R ADMODES 

CHAN33 
A UTUMBI  T 

RRCDUCHK 


SEF  IF  CHANGE  IN  RR  AUTO  MODE  BIT. 


0990  REF 
0 90  1 

399?  REF 
09925  REF 
C 993  PEF 
099A  RFF 
0995  RFF 
3996  RFF 

0999  RFF 

1000  REF 


5 

6 
1 
6 

in 

26 

2 

1 

7 


LAST  188 
LAST  185 

LA  ST 
I AST 
LAST 
LAST 

LAST  188 


06 ,30 1A 
06  31  5 

Cfi, 3016 
06  ,3017 
06, 3020 
06,  30  21 
06  ,3022 
06, 3023 
06,  302A 
06,3025 


22  113  1 
C 00D6  1 
C 6 CC1  0 
7 3033  0 
54  110  0 
7 4752  1 
10  000  0 
1 3034  1 
3 7675  L 
26  110  0 


180 
18  2 
187 
18  8 


L XC  H 
EXT  END 
RXOR 
MASK 
TS 

MA  SK 

CCS 

TCF 

CA 

ADS 


RADMOOE  S 

LCHAN 
DC  TC  5776 
RADMODES 
31  T2 
A 

RRCDUCHK  -3 
DC  T 10001 
RADMODES 


UPDATE  RADMODES. 


CLP  CONT.  DES.  , PENOOE,  REPOS,  CDUZERO, 
AND  TURNON  BITS. 

SEE  IF  JUST  ON. 


OFF.  GO  OISABLE  RR  CDU  ERROR  COUNTERS. 
SET  RRCDUZRO  AND  TURNON  BITS. 
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1001 
10r  ? 
1033 
1004 
1004 


REF 

PFF 

REF 

REF 

KEF 


5 LAST  174 
5 LAST  175 
2 LAST  154 


1 


06,3026  3 4753  1 

C6 ,3027  0 5214  0 

E7 , 1456 

06  ,3030  0 2053  C 

06,303  l 52107  0 


CAF  ONE 

TC  WAITLIST 

EBANK=  LOSCOUNT 
2CADR  PR  TUP  NON 


1005  PEF 

1006 


06,  3o  32  1 2126  0 TCF 

06,3033  05776  1 OCT35776  OCT 


NORRGMON 

5776 
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L T4RUPT  PROGRAM  USER'S  PAGE  NC.  30  E6  S4 

P LOOT  PROGRAM  NAME_  PPCDLCHK 
Rl  008  FUNCTIONAL  DESCRIPTION. 

? 1009  RPCOUT.HK  CHECKS  FOR  RP  COU  FAIL  (CHAN  30  BIT  7).  INITIALLY  THF 

R|)P  K P CPU  FAIL  PIT  IS  SAMPLE 0 (CHAN  3C  BIT  7).  IF  NO  CHANGE,  THE 

pi  ill  PROGRAM  EXITS  TO  RPG I MON . IF  A CHAN  GF,  THE  PR  AUTO  MQOF 

T 10 12  (PADMODFS  BIT  2)  HIT  IS  CHECKED.  IF  NCT  IN  PR  AUTO  MODE,  THE 

Rl  313  PROGRAM  FX  ITS  TO  NORRGMON.  IF  IN  AUTO  MODE,  RADMODES  BIT  7 

Ml- 14  (RP  CDU  CK)  IS  IJPCATEC  ANO  IF  p-20  IS  OPERATING  PROGRAM  ALARM  0C515  IS 

R 1 1 1 5 REQUESTED.  CONTROL  IS  TRANSFERRED  TC  SETT R KF  TO  UPDATE 

Rl ' 1 6 TEE  TRACKER  FAIL  LAMP  (DSPTAB+IlD  BIT  8).  CONTROL  RETURNS  TO 

8 1017  RPC,  I MOM. 


1 10  20 


CALL  ING  SEQUENCE. 

EVERY  9(  MIILISECONDS  FROM  RRAUT  CHK  (VIA  T 4RUPT  ) UNLESS  A 
TURN-ON  SEQUENCF  HAS  JLST  BEEN  INITIATED. 


R 10 21  ERASABLE  INITIALIZATION  REQUIRED. 

R 1022  RADMODES 


R1U23  SUBROUTINES  CALLED. 
Rl024  StTTRKE 


3 1025  JOBS  Op  TASKS  INITIATED. 

R1326  NONE 


R 1027  ALARMS. 

RP?8  TRACKER  FAIL 

Rl 29  PROGRAM  ALARM  005  15  - RRCOU  FAIL  DURING  P-20 


NORRGMON 


10315  REF  1 9 I AST  IBB 
1031  6 

13317  REF  1 1 L AST  186 


06 , 3 034 
C 6 , 3 33  5 
C 6,  3036 


A 4752  1 
0 0006  1 
C 3 C 1 2 1 


- 3 


CS 

EXT  END 
WAND 


3 I T 2 
CHAN12 


AT  TURNON,  DISABLE  CDU  ERROR  COUNTERS. 


1032 
10  33 
103* 


1 u 35 
1 3 36 
1 03  7 


REF 

REF 

RFF 

RFF 


fl 

2 


1 


LAST 
l AST 


188 


157 


06  ,3037  3 ? 1 10  1 

06,3040  C CCC6  1 
06,  304  1 C6  030  1 
0 6,3  042  7 4745  1 

36, 3C43  C CCC6  1 
06,  3044  1 3C7  1 0 


RRCCUCFK  CA 

EXTEND 
R XOR 
MASK 
EXTEND 
BZF 


RADMODES 

:han3p 
fi  e DU  FB  IT 

RRGI MON 


LAST  SAMPLED  BIT  IN  RADMODES. 


1038  PEE  2 

1 339  RFF  9 

1040  P-HF  2 7 

1041  REF  2 


LAST  138  06 

L AST  190  06 

LAST  188  06 

LAST  139  06 


,3045  3 4752  0 

, 3046  7 0110  0 

,3047  1C  000  0 
» 3C 50  1 7126  C 


CAF  AUTOMBIT 

MASK  RADMODES 

CCS  A 

TCF  NORRGMON 


IF  RR  NOT  IN  AUTO  MODE,  DON'T  CHANGE  BIT 
7 OF  RADMODES.  IF  THIS  WERE  NOT  DONE, 

THE  TRACKER  FAIL  MIGHT  COME  ON  WHEN 
JUST  READING  LR  DATA. 


REF 


LAST  190  06,  3051 


4 74  5 0 


CAF 


1042 


RCOUFBI  T 


SFT  BIT  7 OF  RACMOCFS  FCR  SETTRKE 


GAP:  AS  S FMrtL  E REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L TAR  UP  T PROGRAM 


1045 

1046 


REF  10  LAST  190 

REF  3 LAST  173 
REF  11  LAST  191 


06, 3C52  22  110  l 

06,3053  0 OOC 6 1 

06 , 3 054  C6  001  C 
06, 3055  54  1100 


LXCH  R ADMCDES 
EXTEND 
RX  OR  L 

TS  RADNCDES 


1047 
10  48 
1 049 
1050 
10  51 
1052 
10  53 
1354 
1055 
10  56 
1 057 


REF 

RFF 

RFF 

REF 

REF 

REF 

REF 

REF 

REF 


12 

1 

28 

1 

5 

1 

29 

2 

7 

1 


LAST  191 
LAST  190 
LAST  182 

LAST 
L AST 
LAST 


06  ,3  056 
06,3057 
06,  3060 
U6 ,3061 
06,  3062 

06.3063 

06.3064 

06. 3065 
06  ,3066 
06,3067 
06,  3070 


3 0110  1 
7 4615  0 
10  000  0 
1 3070  1 

4 C C 74  0 
7 4745  1 
10  000  0 
1 3C70  1 
0 5600  1 

CC515  C 
0 4564  1 


191 

191 

184 


CA  RADMODES 

MASK  13,7,2 

CC  S A 

TCF  TRKFLCnu 

CS  FLAGWRDO 

MASK  RNDVZ9IT 

CCS  A 

TCF  TRKFLCDU 

TC  ALARM 

OCT  00515 

TRKFLCOU  TC  SETTRKF 
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U PDAT  E RADMODES  . 


DID  RR  CDU  F A 1 L 

COU  ZERO+  CCUFAIL+  RR  AUTO 

NO 

RNDVFLG  P20  OR  P22  OPERATING 


NO 

YES 

UPDATE  TRACKER  FAIL  LAMP  ON  OS  KY  . 


GAR  : 
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T4RIJPT  PROGRAM 


US  ER'S  PAGE  NO . 32  E6  S4 


P1058  PROGRAM  N A M E_  RRGIMCN 


F AUTO  MODE  EXCEPT  WHEN  THE  RR  CDUS  ARE 


< 1060 
R1062 
R 1 064 
R 1065 

Rl  066 
1 1 C 6 7 
R1D58 
Rl  06  9 


1 10  7o 
Rl  371 

R 10  72 


FUNCTIONAL  DESCRIPTION.  TTER  IS  INITIATED  BY  THI  S MON  I TOR  WHEN 

RRGIMON  IS  THE  PP  GIMRAL  LIMIT  MONITOR.  INITIALLY  THE  FOLLOWING  IS  FD  TO  DRIVE  THE  GIMBALS  TO  T = 3 AND 

CHECKED.  PEMCOE,  RR  COU:S  P 5 1 AC  ZEROED,  REPOSITION,  AND  RR 
NOT  IN  AUTO  MODE  (RAOMOOES  BIT'  14,  13,  11  ?».  IF  ANY  OF  THESE 
EXIST  TFF  PROGRAM  FXITS  TO  GPMATR  IX . IF  NONE  ARE  PRESENT  RPLIMCHK 
IS  CALLED  TO  SEE  IF  THE  PRESEAT  RR  CDIJ  ANGLES  (OPTY,  OPTX  ) ARE  WITHIN 
THE  LIMITS  OF  THE  CURRENT  MODE.  IF  WITHIN  LIMITS,  THE  PROGRAM  EXITS 
TC  NCRRGMON.  IF  NOT  WITHIN  LIMITS,  T HF  REPOSITION  FLAG  (RADMODES 
PIT  11)  IS  St  T , THE  PR  AUTO  TRACKER  AND  R R E RR  CR  CCUNTER 
ICHAN  12  PIT'  1 4,  2)  ARE  OISABLFD,  AND  A 20  MILLISECOND  WAITLIST 

CALL  IS  SET  FOP  DQPRFPCS  AFT  EP  WHICH  THE  PROGRAM  EXITS  TO  NnRRGMON. 


R 1 3 7 3 CAI  l ING  SEQUENCE. 

Rl«'74  EVERY  ARC  MILLISFCCNOS  FROM  RRCCUCHK  (VIA  T4R  UP  T ) UNLESS  TURN-ON 
<17  5 HAS  JUST  BE  F N INITIATED  VIA  PRALTCFK  CR  IF  THFRE  HAS  BEEN  A CHANGE  IN 

RP7A  THE  RR  CCU  FAIL  PIT  (CHAN  30  BIT  7)  AND  THE  RR  IS  NOT  IN  THE  AUTC  MODE 

R 1 077  (RADMODES  BIT  2). 


R 10  78  ERASABLE  INITIALIZATION.  RADMODES 


Rl  0 79 
3 IOBO 


R 1 38 1 JOBS  OP  TASKS  INITIATED. 
31082  DCPREPOS 


3 ID  B 3 A LAP  MS. 
Rl 38 A NONE 


1087  REF 

1088  PEF 
1389  REF 
1090  REF 
1090  1 REF 
13932  RFF 
10903  PEE 
1090  A 

13935  REF 
1090  6 REF 
10907  REF 
13908  REF 
1391  REF 

1092  RFF 

1093  REF 
1394  REF 


4 | AST  180 

1 

30  LAST  191 

3 LAST  190 
1 

1 

31  LAST  192 

1 

1 

32  LAST  1Q2 

4 LAST  19  2 
1 

13  LAST  191 

33  LAST  192 

5 LAST  192 


06, 3071 
06  , 3')7 2 
06,  3C73 
0 6,  30  74 
06,3075 
06, 3C76 
06  ,3  0 77 
C6 ,3  100 
C 6,  3 1C  1 
06  ,3  102 
06,3103 
06,  3 104 
06,  3 105 
06  ,3106 
06,3107 
06,  3 1 10 


30  101  1 
7 4750  0 
1C  CCC  0 
1 3126  0 
4 01C3  1 
7 4747  0 
10  000  0 
1 3105  1 
3 C1C2  1 
7 4744  0 
10  000  0 

1 3126  0 

2 3135  0 
7 OHO  0 
10  000  0 
1 3126  0 


RR 


GIMON 


+ 5 


CAF  FLAGWRD5 

MASK  NDRPMB1T 

CCS  A 

TC  F NORRGMON 

CS  FLAGWR07 

MASK  AVEGFBI  T 

CCS  A 

TC  F +5 

CA  F LAGWRD6 

MASK  MUNFLRIT 

CCS  A 

TCF  NORRGMON 

CAE  OCT32  0O2 

MASK  RAOMODES 

CCS  A 

TCF 


IS  NO  ANGLE  MONITOR  FLAG  SET 


YES  - SKIP  LIMIT  CHECK 
IS  SERVICER  RUNNING? 


NO.  DU  R 25 

YES.  IS  MUNFLAG  SET? 


YFS.  DON'T  DO  R2  5 

INHIBIT  BY  PEMODE,  ZEROING,  MONITOR  . 
OR  RR  NOT  1 N AUTO. 


NORRGMON 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGPAM  ZEKLINA  BY  ZOROASTER 


TAR  LPT  PROGRAM 


I 097 
H98 


REF 

REF 


6 L AST 
1 

1 A LAST 


192 

192 


06,3113 
0 6,  3 1 1 A 


1 3115  0 
1 3126  0 


TCF 

TGF 


MONR  FPOS 
NORRGMON 


Hi) 
1102 
113  3 


REF  12  LAST 


16,  '-'ll? 
06  ,3120 
Cfc, 3121 


A :-i3e  1 
0 0006  1 
C 3 C 1 2 1 


110A 
1 105 
1106 
1107 
1 107 


RFF 

RFF 

RFF 

RFF 

REF 


LAST 
LAST 
I AST 


06.3122 

06.3123 
E7 , 1 A56 
06  ,3 1 2A 
06,3 125 


CAF  TWO 

TC  WAITLIST 

EBANK=  LOSCOUNT 
20.  A OR  DORR  FPOS 


1 1GP 
1181 

11382 
110  83 
Ilf  8A 

1 1385 
1 1006 


REF 

RFF 

RFF 


18  LAST 
3 LAST 
3A  LAST 


193 

190 

192 


13  LAST  193 


06,  3 126 
06,3127 
06,  3130 

06.3131 

06.3132 
06,  3 133 
06  , 3 1 3 A 


3 OHO  1 

7 A752  1 
1C  CCO  0 
13  132  0 
0 0006  1 
05  012  1 
1 3 1 AO  0 


CA  RAOMODE S 

MASK  AUTOMBIT 

CCS  A 

NOLIP 

EXTEND 

WOR  CM  AN 1 2 

TCF  ENDRRMON 


11087  REF  3 LAST  165  C6.31A0 


1 1 09 
1110 
1 111 


06. 3135 

06.3136 
06,  3137 


EMORRMCN  FCUALS  DAPTAS 

320C2  1 OCT32O02  OCT  32002 

200C2  1 0CT2D00  2 OCT  20002 

C21C0  1 OCT02100  OCT  02100 
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S EE  IF  ANGL  ES  IN  L IM  ITS. 


( ACC  IT  ION  AL  CODING  MAY  GO  HERE). 

SET  FLAG  TO  SHOW  REPOSITION  IN  PROGRESS. 

DISABLE  TRACKER  ANC  ERROR  COUNTER. 


IF  SELECT  SWITCH  IS  NOT  IN  LGC , SEND  RR 
C DU  ZERO  BIT  TO  PREVENT  MEMORY  CYCLE 
SNATCHING  BY  MANIC  PP  CDIJS  . B I T 2 3F 
PADMODE S AGREES  WITH  81 T2  OF  CHANNEL 
33.  FOR  THIS  CODING,  WHICH  ASSUMES 
AUTOMBIT  = BIT2,  THANKS  TO  HUGH  B-S. 


P2n,p22  MASK  BITS 
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L T4RUPT  PROGRAM  USER'S  RAGE  NO.  34  E6  S4 

P 1 1 1 2 PROGRAM  NAME:  GPMATRIX  (DAPT4S)  MCO.  NC.  2 OATE:  OCTOBER  27,  1966 

R1113  AUTHOR:  JCNATHAN  C.  ACDELSTUN  (ACAMS  ASSOCIATES) 

1 11131  MOO  I F IE  P : 7PEB.  1968  eY  P.  S.  WEISSMAN  TO  DELETE  CCMPJTATION  OF  MR12  AND  MR  13,  WHICH  ARE  NO  LONGER  REOIURED. 

R 1 1 1 A THIS  PROGRAM  CALCULATES  ALI  THE  S I NGLF -PRFCI  SI  ON  MATRIX  ELEMENTS  WHICH  ARE  USED  BY  LEM  CAP  TO  TRANSFORM  VECTORS 
*1116  F R CM  GIMBAL  TO  PILOT  (BODY)  AXES  AND  RACK  AGAIN.  THESE  ELEMENTS  ARE  USE  7 EXCLUSIVELY  BY  BASIC  LANGUAGE  ROUTINES 
R 1 1 1 8 AND  THEREFORE  ARE  NOT  ARRAYED  FCR  USE  BY  INTERPRETIVE  PROGRAMS. 

RlllQ  CALLING  SEQUENCE:  GPMATRIX  IS  TRANSFERRED  TO  FROM  OAPTAS  AND  IS  THUS  EXFCUTED  4 TIMES  A SECCNC  BY  T4  RU  PT  . 

*112  1 DAP  T4S  IS  LISTED  IN  T4  JUMP  T A 6L  E TWICE  EXPLICITLY  AND  ALSO  OCCURS  AFTER  RRAUTCHK  (WHICH  IS  ALSO  LI  STFD  TWICE). 


RI123  SUBROUTINES  CALLED:  SPSIN,  SPCOS. 

R 1 1 24  NCR MAL  EXIT  NCDE : TCF  RESUME 

R 1 1 25  ALARM  AND  ABORT  MODES:  NONE. 

R1130  INPUT:  CDUX , CDUY , CDUZ. 

*1131  OUTPUT:  Mil,  M21  , M3i  , M22 , M32. 

R 1 1 3 2 AOG  = COUX,  A I G = CDUY,  AMG  = CDUZ  : MNEMONIC  IS:  OT  M = XY  Z 

R 1133  «■  * SIN(MG)  0 l * 

*1134  M = * COSI  MGJCOSl  CG)  SIMCG)  0 * 

Pi  1 35  GP  4 -COS  I M G )S  IN  ( 0 G ) COS(OG)  0 * 


*1136 
R 1 1 37 
R 1 1 3 8 


* 0 CCS  ( nr, ) /CCS  ( MG)  -s  1N(0G)/C0S  (MG)  * 

M = *0  SIN(OG)  COS(OG)  * 

PC,  * 1 -S  IN(MG)C0S(0G)/C0S(MG)  S IN  ( MG  ) S INI  OG  ) /C  0S(  MG  ) * 


1143  RFF  5 LAST  17?  E6.1414 

1144  REF  1 06,3140 

R 1145  T4RUPT  CAP  LCGIC: 


E8ANK=  Mil 

DAPT4S  EQUAL  S GPMATRI  X 


1146  REF 
11  4 7 REF 
1148  PFF 


^ LAST  175 


C6 , 3 140  20  C34  0 GPMATRIX  CAE  CDUZ  SINGLE  ENTRY  POINT 

06,3141  G 5033  1 TC  SPSIN  SIN(CDUZ)  = SIN(MG) 


6 LAST  194 


06,3142  55' 414  0 


TS  Mil  SCALED  AT  1 


114R 
1 150 
1151 


REF 

PFF 

REF 


4 LAST  104 
1 
1 


06,  3143  2C  C 34  C 
06  ,3  144  0 50  3?  0 

06,3145  54  061  1 


CAE  CDUZ 

TC  SPCOS  COSI  CDUZ)  = COS(MG) 

TS  COSMG  SCALED  AT  1 (ONLY  A FACTOR) 


1152 

1153 
1 154 


REF  2 LAST  1^7 
REF  2 I AST  104 
REF  1 


06,  3 146  20  032  0 

06,3147  0 5033  1 

06, 3 160  6 5 1 4 1 7 0 


CAE  CDUX 

TC  SPSIN  SIN(CDUX)  = SIN(OG) 

TS  M? 2 SCALED  AT  1 (ALSO  IS  MR22) 


1155 


REF 


2 LAST  1o  4 


06,3151  4 1417  0 


CS  M 2 2 
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TAR  UP  T PROGRAM 


1156 

1157  REF  2 LAST  194 

1159  PFF  1 


06,  1 152  C CCC 6 1 
06,  3 153  7 OC  61  1 

06.315A  5 5 ' 41 6 1 


EXTEND 

MP  COSMG 

TS  M3 1 


1159  RFF 

1160  RFF 

1161  REF 


3 

2 


LAST  194 
LAST  194 


C 6,  3 155 
06  ,3156 
06,3157 


032  0 
0 5032  0 
55' 420  1 


CAE  CD  UX 

TC  SPCOS 

TS  M3  2 


1162 

1163  REF 

1164  REF 


3 LAST  195 


06. 3160  C 0006  1 

06.3161  7 0061  1 

C 6,  3 162  5 5*415  1 


E XTEND 

MP  COSMG 

TS  M2 1 


1191  REF 


LAST  187 


06,3163  0 5301  0 


TC  RESUME 


1193  REF 


6 l AST  195 


53C 1 


ENDD  APT  4 EQUALS  RESUME 
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I" 


-SIN(OG)  COS  ( MG  ) 
SCALED  AT  1 


COS(CDUX)  = COS(CG) 

SCALED  AT  1 (ALSO  IS  MR23) 


CO  S ( OG  ) CO  S(  MG  ) 
SCALED  AT  1 
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PCS  FAILURE  MONITOR  USER'S  PAGE  NC.  I EO  S4 


ROOD  1 

PROGRAM  DESCRIPTION 

R0002 

AUTHOR:  J S MILLER 

1 OG  25  MODIFIED  6 MARCH  1568  PY  P S WEISSMAN  TO  SET  UP  JOB  FOR  1/ACCS  WHEN  T HF  MASKS  ARE  CHANGED 


R3333 
RGOr  5 
R000  7 
R)30R 
10011 
R0O13 

pnc  15 

IOC  17 

THIS  ROUTINE  IS  ATTACHED  TO  74R0PT,  AND  IS  ENTERED  EVERY  480  MS.  ITS  FUNCTION  IS  TO  EXAMINE  THE  LOW  8 BITS 
CF  CHANNFL  32  TC  SEE  IF  ANY  ISOLATION-VALVE  CLOSURE  BITS  HAVE  APPEARED  OR  DISAPPEARED  (THE  CREW  IS  WARNED  OF  JET 
FAILURES  BY  (AMPS  LIT  BY  THE  GRUMMAN  FAILURE-DETECTION  CIRCUITRY;  THEY  MAY  RESPOND  BY  OPERATING  SWITCHES  WHICH 
ISOLATE  PAIRS  CF  JETS  FI  DM  TEE  PROPELLANT  TANKS  AND  SET  *1  TS  IN  CHANNEL  32).  IN  THE  EVENT  THAT  CHANNEL  32  BITS 
DIFFER  F R C ^ 'PVALVEST',  THE  PECCRC  OF  ACTIONS  TAKEN  BY  THIS  ROUTINE,  THE  APPROPRIATE  RITS  IN  'CH5MASK*  C 
• CH6MASK  » , USED  BY  THE  DAP  J F T- SF  L EC  TI  ON  IODIC,  ARE  UPDATED,  AS  IS  'PVALVEST*.  TO  SPEED  UP  F.  SHORTEN  THE 
ROUTINE,  NC  MORE  THAN  ONE  CHANGE  IS  ACCEPTED  PER  FNTRY.  THE  H I GHE  ST-NUMBF  RED  BIT  IN  CHANNEL  32  WHICH  REQUIRES 
ACTION  IS  THE  CNE  PROCESSED. 

R3318 

R 0020 
R0022 
ROC-2  A 

1 0026 
R3028 
ROC  TO 
IOC  32 
R3334 

THE  COOING  IN  THE  FAILURE  MONITOR  HAS  BFE  N WRITTEN  SO  AS  TO  HAVE  ALMOST  COMPLETE  RESTART  PROTECTION.  FDR 
FXAMPLF,  NC  ASSUMPTION  IS  MACE  WHEN  SETTING  A 'CH5MAS<»  PIT  TD  1 THAT  THE  PREVIOUS  STATE  IS  0,  ALTHOUGH  IT  OF 
COURSE  SHOULD  PF.  ONE  CASE  WHICH  MAY  BE  SFEN  TO  EVADE  PROTECTION  IS  THE  OCCURRENCE  OF  A RESTART  AFTE?  UPDATING 
CNE  OR  POTE  CAP  "ASK-WORDS  BUT  BEFORE  UPDATING  'PVALVEST',  COUPLED  WITH  A CHANGE  IN  THE  VALVE-  6 IT  BACK  TC  ITS 
FORMER  STATE.  THE  CONSEQUENCE  CF  THIS  IS  THAT  THE  NEXT  ENTRY  WOULD  NOT  SEE  THE  CHANGE  INCOMPLETELY  INCORP- 

ORATED BY  THE  LAST  PASS  (RECALSE  IT  WENT  AWAY  AT  JUST  THE  RIGHT  TIME),  BUT  THE  DAP  MASK-WORDS  WILL  BE  INCURRECT. 
THIS  COMBINATION  OF  EVENTS  SEEMS  QUITE  REMOTE,  BUT  NUT  IMPOSSIBLE  UNLESS  THE  CREW  OPERATES  THE  SWITCHES  AT  HALF- 
SECOND  INTERVAI  S OR  LONGER.  IN  ANY  EVENT,  A DISAGREEMENT  PETWEEN  REALITY  AND  THE  DAP  MASKS  WILL  BE  CURED  IE 

THE  MISINTERPRETED  SWITCH  IS  REVERSED  AND  THEN  RESTORED  TO  ITS  CORRFCT  POSITION  (SLOWLY). 

R 0036 

CALLING  SEQUENCE: 

K0337 

TCF  RCSMONIT  (IN  INTERRLPT  MODE,  EVERY  480  MS.) 

R 003  8 
00  39 

EXIT:  TCF  PCSMONEX  ( AL 1 PATES  EXIT  VIA  SUCH  AN  INSTRUCTION) 

REF  7 LAST  195  5301  RCSMONEX  EQUALS  RESUME 

R304Q 

ERASABLE  INITIALIZATION  REQUIRED: 

R 0041 
R0042 

VIA  FRESH  START:  PVALVEST  = +0  (ALL  JETS  ENABLED) 

CH5MASK,  CH6MASK  = +0  (ALL  JFTS  OK) 

R 004-3 

1 00  45 

OUTPUT:  CH5MASK  £ CH6MASK  UPCATEC  ( 1 • S WHERE  JFTS  NOT  TO  BE  USED,  IN  CHANNEL  5 f.  6 FORMAT) 

PVALTEST  UPDATED  ( T , S WEEN  VALVE  CLOSURES  HAVE  9 ECN  TRANSLATED  IN  T3  CH5MA  $K  £ CHfeMASK;  CHAN  32  FORMAT) 

R33465  JOB  TO  DO  1/ACCS 


R 004  7 

DEBRIS:  A,  L,  C ANC  DEBRIS  CF  NOVAC. 

R0048 

SUBROUTINE  CALLED:  NOVAC  . 

0052 

REF  1 1257  EBANK=  CH5MASK 

0059 
30  53 
0061 

4 

23,2000  BANK  23 

REF  1 06,  2CCC  SETLOC  RC  S MONT 

06,  3164  BANK 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L PCS  FAI  LURE  M0NI  TOR 


336? 
OF  62  5 

0063 

0064 

0065 
3366 
0067 


REF 

REF 

R EF 

REF 

REF 

REF 


I A ST 
LAST 
LAST 


180 

164 

187 


06  ,3164 

06,3164 
06,  3 165 
06  ,3  166 
06,  3 167 
06,3170 


06  032  ' 

7 4357 
54  002 


COUNT*  *S/T4RCS 

RCSMONIT  EQUALS  RCSMDN 

RCSMON  CS  ZERO 

F XTEND 

RXOR  CHAN  3 2 
MASK  LOWR 


0068 

3069 

0070 

0071 

0072 

0073 


REF 

REF 

REF 

REF 

REF 

REF 


L AST 
LAST 
LA  ST 
LAST 
LAST 


197 

191 

197 

197 

197 


06,3171 
C6,  3172 
06  ,3  173 
06,3  174 
06,  1 175 
06  ,3  176 


4 1273  1 
7 CCC 2 1 
54  GO  1 1 
4 0002  1 
7 1273  1 
26  001  1 


CS 

MA  SK 
ADS 


06, 


3 177 

3200 


0079 

0080 
0081 
338? 

OORT 

00  84 
3385 
0086 
0087 

01  88 


REF  17  LAST  179 
REF  6 LAST  197 

REF 


LAST  197 


RFF 

REF 

REF 

REF 

REF 

REF 


P LAST 
16  I AST 
11  LAST 
3 LAST 
35  I A ST 
1 


lQ7 
1 7 C 
197 
1 Q7 
1°  3 


C6,32C1 
C 6, 32C2 

. 

06,3204 
0 6,  3 20  5 
06,3206 
C 6,  3207 

, ? 1 

. 

, 

06  ,3213 
0 6 , ’ 2 1 4 
06,  3 2 15 


C 0006  1 

7 4745  1 
56  001  C 

24  CC1  0 
6 0000  1 
54  000  0 
1 32C4  0 

50  001  0 
3 4743  0 
5 4 C C 2 1 
7 1273  1 
1C  CCO  C 
1 3221  0 


I NCR 
DO  10  LE 
OVSK 
TCF 


MASK 

CCS 

TCF 


0089 

3390 

OPQl 

0092 

3 093 
0094 
3395 
0096 


RET 

REF 

REF 

REF 


R EF 
REF 


3 LAST  197 
1 

10  LAST  197 
1 

? LAST  197 


06,3216 
36,  5217 

06.3220 

06.3221 

06. 3222 
06  ,3223 
06,  3224 
06,  3225 

C6,3?26 
06,  3227 

06  ,3230 


4 1257  1 
50  CC1  0 
7 3250  1 
27*257  1 

4 1260  0 
50  001  0 
7 3260  1 
2 7*260  0 

°1 


1 NOEX 

MASK 

ADS 


INDEX 

MASK 

ADS 


5FAIL  TAB 
CH5  MASK 


PVAL  VEST 
1/ACCF  IX 


9:12  CCT . 21  ,1970  ZERLAIB  .OOL 


PAGE  197 
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PICK  UP  + INVERT  INVERTED  CHANNEL  32. 
KEEP  JET-FAIL  R ITS  ONLY  . 


FORM  PC  + PC. 

IP  = PREVIOUS  I SCLATI CN  VALVE  STATE, 
C = CURRENT  VALVE  STATF  (CH  32)). 

RESULT  NZ  INDICATES  ACTION  REQUIRED. 


QUIT  IF  NO  AC  T I CN  RF  GUI  RED. 


MOVE  BITS  8 - 1 OF  A TO  H - 7 OF  L. 
ZERO  TO  L I N THE  PROCESS. 


ROUND  TO  GET  OVERFLOW  IN  THIS  LOOP, 
SINCE  WE  ASSUMED  INITIAL  NZ  IN  A. 


SAVE  THE  RELEVANT  BIT  (8  - 1). 
LOOK  AT  PREVIOUS  VALVE  STATE  BIT 
THE  VALVE  HAS  JUST  BEEN  OPENED. 
THF  VALVE  HAS  JUST  BEEN  CLOSED. 


SET  INHIBIT  B I T FOR  CHANNEL  5 JET. 


SET  INGIRIT  BIT  FOR  CHANNEL  6 JET. 

RECORD  ACT  I CN  T AK  EN. 


SET  UP  1 /ACC  J OB  AND  F X I T. 


SAP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L R CS  FAIL  IJRE  MONITOR 


0100 
OKI 
3132 
01 C 3 


PFF  11  LAST  197 

RFF  2 LAST  197 

PEF  4 LAST  lc  7 

REF  5 I AST  1 98 


06,  323  1 50  CCl  0 VOPFNED  INDEX 

06,1232  4 1250  1 CS 

C6,  3223  7 1257  1 MASK 

06,3234  55 ' 257  1 TS 


L 

B F A I LT AB 
CH  5 MAS  K 
CH  5MA  SK 


0 10  4 
3 1 0 5 
0106 
0107 


RTF  l?  I A ST  1 °R 

PEF  2 LAST  19  7 

PFF  3 LAST  197 

REF  4 LAST  198 


C6.3235 
06, 3236 

06  ,3237 
C6 ,3240 


50  001  0 

4 :-2eo  i 

7 1260  0 
55*260  0 


INDEX  L 
CS  6F  A I L TAB 

MASK  CH6MASK 
TS  CH6MASK 


Cl  08 
0 10O 

mo 


REF  13 
RFF  5 
REF  6 


LAST  197 
LAST  19  7 
LAST  198 


06,  3241 
06,1242 
Ofc, 1243 


4 CC02  1 
7 1271  1 
55*273  1 


CS  0 

MASK  PVALVEST 

TS  PVALVEST 


1 1 2 
113 
0114 
0114 
116 


PFF 
F FF 
PFF 
PFF 
REF 
PEF 


1 

2 I A ST 
4 LAST 
1 
1 

2 LAST 


16^, 

137 


197 


06,3244  3 7727  1 

06,1245  C SC72  1 
E6, 1536 

06,3246  03555  1 

06,  3247  a 2 1 C 6 0 
06,  3250  1 53C1  1 


l/ACCFIX  CAF  PR  1027 

TC  NOVAC 

E B A NK  = AOSO 
2CA0R  1/  ACC  JOB 


TC  F RCSMONFX 


117 
9 119 

0119 

0120 
0121 

12? 

3123 

0124 

0125 


06  ,3252 

06.3253 

06.3254 
06  ,3255 
06,  3256 
06,  3257 
06  ,3260 


O0C4O  0 
00020  0 
C0100  0 
00200  0 
00010  0 
0CCC1  0 
OOOC4  n 
00002  0 


5FATLTA9  EQUALS 
3C  T 
OCT 
OCT 
OC  T 
OCT 
OC  T 
OCT 
OCT 


-1 

C0040 
00020 
00100 
C0200 
000  10 

30001 
L 0004 

30002 


:•  126 
'127 
0128 
i 129 


0130 

3 131 
0132 
"133 
9134 


06, 3257 

06  ,3261  00010  0 

06.3262  CCC20  0 

06. 3263  00C04  0 

05  ,3264  00200  0 

06. 3265  CCC01  0 

06.3266  00002  0 

. 

06, 3270  COlCO  0 


6FAI  L TAB  EQUAL  S -1 

DCT  00010 

OCT  00020 

OC T 00004 

OCT  00  200 

OCT  00001 

OCT  00002 

oct  00040 

OCT  ooloc 
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A VALVE  HAS  JUST  BEEN  OPENED. 

REMOVE  INHIBIT  BIT  FCR  CHANNEL  5 JET. 


REMOVE  INHIBIT  BIT  FOR  CHANNEL  6 JET. 


RECORD  ACT  I CN  T AK  EN. 


SF T UP  1/ACCS  SO  THAT  THE  SWITCH  CURVES 
FOR  TJETLAW  CAN  BE  MODIFIED  IF  CH5MASK 
HAS  BEEN  ALTERED. 


EXI  T. 


CH  6 JET  BIT  CORRESPONDING  TO  CH 


32  BIT: 


2 

1 


CH  6 JET  BIT  CORRESPONDING  TO  CH  32  BIT: 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21,1970  ZERLAID 


,00  1 PAGE  199 


L DOWNLINK  LISTS 


USER  'S  PAGE  NC.  1 EO  S4 


00'  1 22 , 200  A 

0002  REF  1 05,  2000 


BANK  22 
SETLOC  30WNTELM 


0003 


C5.2065 


BANK 


3DD4  REF  2 LAST  160 


C 340 


E B ANK=  DNTMBUFF 


1 0005 
A0006 
A0007 
A 0003 

ADOOO 

A 00 1 0 
A 00  1 1 
A33  12 
A 001  3 
AOO  1 4 
AOOl  5 
A 0016 
A 03  17 
AOOl  R 
A0019 


SPECIAL  DCWNLIMK  OP  CODES 


GP  CODE  ADDRESS  (EXAMPLE  ) SENDS..  BIT  15  BITS  14-12  BITS  11 

-0 


1DNADR  T I ME  2 
20NADR  T EPHEM 
3D  NAD  R VGBODY 
4DNADR  STATE 
5DNAUR  IJPBUFF 
6DNADR  DSP  TAB 
DNCHAN  30 

DNPTR  NEXTLIST 


0 
0 

0 
0 
0 
0 

POINTS  TO  NEXT  0 
L 1ST. 


ECADR 

1 ECADR 

2 ECADR 

3 ECADR 

4 ECADP. 

5 ECADR 

7 CHANNEL 

ADORE  SS 

6 ADRES 


( 2 AGC  WD  S) 
(4  AGC  WDS  ) 
(4  AGC  WDS  > 
( 8 AGC  WDS) 
(1C  AGC  WDS  ) 
( 1 2 AG C WDS) 
CHANNEL  S 


RD02  ' COW NL  1ST  FORMAT  DEFINITIONS  AND  RULES- 

R 002 1 1.  END  OF  A LIST  = -XCNADR  (X  = 1 TO  6),  -DNPTR,  OR  -DNCHAN. 

R0022  2.  SNAPSHOT  SLR  L I ST  = LIST  WHICH  STARTS  WITH  A -IDNADP. 

R0023  3 . SNAPSHOT  SUBLIST  CAN  ONLY  CONTAIN  iDNAORS. 

1 0024  4.  TIME2  1 D NAD R MUST  BE  LOCATEC  IN  THE  CONTROL  LIST  OF  A DOWNLIST. 

10325  5.  EPASARLE  DOWN  TELEMETRY  WORDS  SHOULD  BE  GROUPED  IN  SEQUENTIAL 

R002S  LOCATIONS  AS  MUCH  AS  POSSIBLE  TO  SAVE  S TOR  AGF  USED  BY  DOWNLINK  LISTS. 


0027  REF 
3028 

0029  RFF 

0030  REF 
0032 


0007 

1 3007 

2 LAST  199  (0C7 

05,  2065  77340 


C CU NT  * J>  $/  DL  1ST 
ERASZERO  EQUALS  7 
UNKNOWN  EQUALS  ERASZERO 
SPARE  EQUALS  ERASZERC 
0 L J WIDCOD  DC  T 77340 


USE  SPARE  TO  INDICATE  AVAILABLE  SPACE 
LOW  ID  CODE 


DO  33 
3 334 
0035 


REF 

PEF 

REF 


1 

2 LAST  199 


NOMDNLST 
AG  SLI  ST 
UPCNL  1ST 


EQUALS  COST  ALIN 
EQUALS  AG  SI  /UPD 
EQUALS  A G S I / UPC 


FRESH  START  AND  POST  P27  DOWNLIST 
UPDATE  PROGRAM  (P2  7)  DCWNLIST 


JAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L OOWNL  INK  L I STS 

P0036  L M CPRITAL  MANEUVERS  LIST 

R OG3  7 CCNTRCL  LIST  


033° 

C 5,  2C66 

0R8MANUV  EQUALS 

0060 

P EF 

3 

LA  ST 

199 

. 

24340 

0 

6 DN ADR 

DNTMRUFF 

0061 

REF 

2 

L AST 

14  3 

05,  2070 

03*51 

1 

1DNADR 

DE  LLT4 

0062 

RFF 

1 

05  ,2071 

13443 

i 

3 ON  ADR 

P.TARG 

DD43 

REF 

1 

C 5,  2C72 

C2247 

1 

LDNADR 

F LEV 

006  6 

RFF 

1 

, 

C1341 

0 

IDNADR 

TE  VENT 

00*5 

RFF 

2 

LAST 

1 

. 

25731 

0 

6 DNAOR 

k E FS  MM  AT 

33)66 

REF 

1 

■ 

03(33 

1 

IDNADR 

TC  SI 

0067 

REF 

1 

, 

12257 

l 

3DNADR 

DEL  VEE  T 1 

0068 

R.  EF 

3 

LAST 

158 

5 , 2 3 7 

13700 

1 

3 DNADR 

VGT  IG 

006  9 

PEF 

3 

L AST 

157 

05,  2 100 

01335 

0 

IDNADR 

DN LR  VE  LZ 

0050 

P EF 

1 

05  ,2101 

C 3630 

1 

1 DNADR 

T P ASS  4 

3351 

n FF 

1 

C 5,  2 L02 

22136 

1 

ONPTR 

LMORRMf  2 

0052 

RFF 

2 

LAST 

157 

05,2103 

00024 

1 

IDNADR 

TI  MF  2 

0053 

RFF 

1 

05,2106 

32145 

0 

DNPT  R 

LMDRBMO? 

3 3 56 

REF 

4 

L AST 

200 

C 5,  2 1 C 5 

*6  240 

0 

6DNADR 

DNTMRUFF 

0055 

REF 

1 

05  ,2 106 

32154 

c 

ONPTR 

LM0RRMC4 

00  56 

R EF 

2 

1 A ST 

158 

05,2  IC7 

07115 

0 

? DNADR 

POSTORKU 

L AST 

0059 

RFF 

1 

05  ,211  I 

01774 

l 

1 DNADR 

TCDH 

3063 

REF 

1 

05,  2 112 

12265 

0 

3D  NAD  R 

DE  LVEET2 

0061 

REF 

1 

05,2113 

03635 

1 

IDNADR 

TTPI 

006  2 

RFF 

l 

05,2116 

12356 

1 

3 DNADR 

DELVEFT  3 

3363 

REF 

3 

L AST 

157 

C5,  21  15 

01330 

0 

ID  NAD  R 

DNRPANGE 

0065 

REF 

3 

LAST 

157 

05  ,2116 

f 5333 

1 

20N ADR 

DN  LR  VEl  X 

0066 

REF 

1 

05,2117 

03577 

1 

1 DNADR 

0 I FFALT 

0067 

PEF 

2 

L AST 

157 

05,  2120 

01326 

1 

10NM1R 

LE  MMA  S S 

33 

1 

LAST 

186 

3069 

R EF 

C5,  2122 

C 3 4 4 1 

0 

IDNADR 

TIG 

0070 

RFF 

1 

05,2123 

32160 

1 

ONPTR 

LMORR  MC5 

00  71 

PEF 

1 

05,2126 

32171 

1 

ONPTR 

1 M0RBM06 

3372 

PEF 

1 

05,  2125 

C0C07 

0 

IDNADR 

SPARE 

0073 

PEF 

2 

LAST 

151 

05  ,2126 

74263 

0 

-IDNADR 

TGO 

'-nil 

SUD  LI 

ST  S 

0075 

PEF 

3 

LAST 

158 

05, 2127 

7 60  60 

0 

LM0RBM01-  IDNADR 

R-OTHER  +2 

0076 

REF 

6 

LAST 

200 

35,2130 

01721 

1 

1 DNADR 

R-OTHER  +4 

3077 

REF 

3 

1 AST 

158 

05,  2 131 

C 1 723 

0 

10  NAD R 

V-CTHER 

0078 

PEF 

6 

LAST 

200 

05,2  132 

01725 

0 

IDNADR 

V-OTHER  +2 

0079 

RFF 

5 

LA  ST 

200 

35,2133 

01727 

1 

1 DNADR 

V-OTHFR  +4 

3383 

REF 

3 

L AST 

158 

05,  2 134 

01570 

1 

IDNADR 

T-  0 THFR 

0081 

REF 

5 

LAST 

200 

05  ,2135 

76062 

1 

-1  DNADR 

R-OTHER 

J DR  2 REF  2 LAST  157 


05, 2126 


04320  1 LM0RRM02  20NADR  REDOCTR 
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USER  *S  PAGE  NO  . 2 


PAGE  2uD 
E 0 S4 


S PNC  10  BY  SPECIAL  COOING 

COLLECT  SNAPSHOT 

SENO  SNAPSHOT 

DELLT4.  + 1 

RTARG,  + 1.  . . + 5 

ELEV,  +1 

TE  VPNT , + 1 

REFSMMAT+O.  ..+  110 

TCS  I, +1 

DELVEE  Tl  + O.  ..  + 5 
VGT  IG+D...  + 5 
DNLPVELZ»ONLRALT 
TPASS4.+  l 
COMMON  OAT  A 
TI  MF2/1 

COLLECT  SNAPSHOT 
SENO  SNAPSHOT 
COMMON  OATA 

POSTORKU,  NEGTD RKU,PO STORK V.NEGTORK  V 
SF  P VDURN » 01 1 ML  OOPS 
TC  OH, + 1 

DELVEET2  +0  . . . +5 
TTP I ,+l 

OFL  VFET3+0.  ..  + 5 
DNRRANGE»DNRRDOT 

ONLRVE  LX  ,ONLRVE  L Y , ONL  P VEL  7 , CNL  R AL  T 

DIFFALT,  + 1 

LEMMASS , C SM  MAS  S 

IM0DES30,  IMODE  S33 

T IG,  +1 

COMMON  OATA 

COMMON  OATA 

FORMERLY  PIF 

TGO  ,+  1 


P-CTHER+2  ,+3 
R-OTHER  + 4,  +5 
V-OTHER,  +1 
V-OTHER  + 2 , + 3 
V -OT  HER  + A,  +5 
T-CTHER,+1 
R — OTHER+  0, + 1 


SNAPSHOT 


REDOCTR, THETAD, 


COMMON  DATA 


TAP:  ASSEMRl  E REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 

L DOWNLINK  LISTS 


0083 
3384 
COBS 
00  86 
3387 
0088 


REF 
R EF 
REF 
RFF 
REF 


1 

6 L AST 
6 LAST 
A LAST 
1 7 LAST 


157 

158 
195 
158 


REF  13  LAST  186 


05,2137 
C 5,  2 l AO 
05 , 2 1 A 1 
05 ,2 1 A2 
0 5,  2 1 A 3 
05  ,21 AA 


01A32  0 
C7C21  0 
07  234  0 
0A032  1 
2AC7A  1 
52755  1 


1 ONADR  RS  eBQ 
20  NAD R OMEGAP 
2DNA3R  CDUXD 
2 DN ADR  C DUX 
60NADR  STATE 
-6  DN  ADR  DSP  TAB 


3389 

0090 

0091 
339? 
0003 
00  9 A 
0095 


REF 

REF 

REF 

REF 

PFF 


2 LAST  2:  1 


05,  2 1A5 
0 5, 2 1 A6 
05 ,2 1 A 7 
Oc,  2 15C 
05  ,2151 


76556  C 
01223  0 
01225  0 
C 1227  1 
01231  0 


05,2  152  01233  1 

L AST  2D  1 05,  2 151  76560  0 


L MORR  M03 -1 0 NAD R RN  +2 
1DNADR  T.N  + A 
1DNA0R  VN 
1DNA0R  VN  +2 
ION  A DR  VN  + A 
1 DNADR  PIPT  IME 
-1DNADR  RN 


0096 

3097 

00971 

0098 


LAST  15  8 0 5.215A  072A2  1 L M OR  HMD  A 2 DNADR  DM  EGA  PD 

05,  2155  3AC76  1 ONCHAN  76 

LAST  158  05,21  56  0A37A  0 2DNADR  CADRFLSH 

LAST  193  05,21  57  77667  0 -1  DNADR  RADMODES 


309R 
OlO'i 
0101 
0102 
3133 
01  OA 
0 10  5 
3106 
0107 


RFF 

RFF 

REF 

RFF 

REF 


I AS! 

I AST 
LA  ST 

last 

I AST 


201 
201 
2°  1 
167 

158 


05,2  160 

05.2161 

05.2162 
05,  2 163 
05,  216A 

05.2165 

05.2166 
05,  2 167 
05,2170 


07021  0 
07 2 3 A 0 
0 A C 3 2 1 
0 30  2 A 1 
C 3 1 1 3 1 
3A011  0 
3A013  1 
3A030  0 
A3745  0 


LM0RBMC5  2DNADR  OMEGAP 
2DNADR  CDUXD 
2 DNADR  CDUX 
10NA3R  A l PHAQ 
1l)  NAD R POSTGRK 
LM08BM09  DNCHAN  11 
DNCHAN  13 
DNCHAN  3 0 
— DNCHAN  32 


i day..  

R3I11  ***  TFF  FOLLOWING  IS  A LIST  OF  LOCATIONS  IN  DOWNLINK  LISTS 

K"H2  ***  BUT  NOT  FEFFRENCFD  IN  TFE  DIRECTORY  BECAUSE  THEY  ARE  NUT 

R0113  ***  THE  FIRST  LOCATION  REFERENCED  IN  AN  INSTRUCTION 

KDllA  ***  THIS  LIST  SHOULD  BF  UPDATED  WHEN  ANY  CHANGES  ARE  MADE  TO  LISTS 


A 01 1 5 


LOCAT ION 


’ 1 l« 

1 1 19 
0120 
0121 

012  2 
0123 


REF 

REF 

PFF 

RFF 

REF 

REF 

REF 

REF 


1 

2 LAST  171 
2 LAST  158 
2 LAST  158 


2 LAST  110 

3 LAST  167 


1336 
0025 
E 6 , l 51 6 
E6 , 1517 
F6  ,1520 
1356 
1321 
1 33A 


D L in  1 
DL  10  2 
DL103 
DL  1 34 
CL  105 
DL1 06 
DL  V 7 
CL108 


ONLRALT 
TI  ME  1 
NFGTORKU 
P 0 STOP  K V 
N T GTORK V 
DUMLCCPS 
3NRRD0T 
DNLRV  ELY 
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RSBBQ, +1 

OME GAP, OMEGAQ, OMEGAP, GARBAGE 
CDUXD  ,CD  UYD  ,CDUZD  .GARBAGE 
C.DJX,  COUY,  CDJ7  , CDUT 
ST ATF  + ‘ . . . + 1 1 D (FLAGWORDS) 

DSPTAB  TABLES 


RN  +2, +3  SNAPSHOT 

RN  +4, +5 

VN,  +1 

VN  +2  ,+3 

VN  +4,*  5 

PIPT IME, +1 

RN,+  1 


fiMEGAPD,  OMEGA  00  .OMEGARD  .GARBAGE 
GARBAGE,  CHANNFL77 
CADRFLSH  +2  ,F  A ILRFG.+  l , + ? 

PADMODES,  DAPBOOLS  COMMON  DATA 

OMEGAP, OMEGAQ, OMEGAR, GARBAGE 
CDUXD  ,CDUXD  ,CDUZD  .GARBAGE 
CDJX,  CDUY , CDJ7,  CDUT 

ALPHAO,  ALPHAP  COMMON  DATA 

POSTORK  P , N EGT  OP  KP 

CHANNFL11  ,12 

CHANNELS  13,  LA 

CHANNFLS30  ,31 

CHA  NNE  L S 32 , 33 

PIPTIME, +1  COMMON  DATA 

DFLV+O.  . .*5 


LIST  NAME 


ORBMANUV 


3AP:  ASSEMBLE  REVISION  5 1»  OF  AGC  PROGRAM  7 ERL  IN  A BY  ZOROASTER 
L DOWNL  INK  L ISTS 


0124  REF 

0125  PFF 
3 125  PEF 

127  PEF 
0128  PEF 
12o  REF 
0130  REF 
3 131  REF 
0132  REF 
f 133  PEF 
'•134  REF 
•135  REF 

0136  REF 

0137  REF 
-138  REF 
0130  REF 
OHd  PEF 
r 14  1 RFF 

0142  REF 

0143  REF 

0144  KEF 
0 1 4 5 REF 
0146  PEF 
1147  PFF 
Ol4R  REF 


2 

1 

16 

7 

2 

1 

2 

1 

2 

5 
2 
2 
1 
1 
2 
3 
2 
3 
2 
3 

6 
3 


LAST  23  ( 
LAS!  201 

I AST  18  7 
I A ST  158 
LAST  157 

LAST  158 


LAST  157 
L AST  104 
LAST  103 
I AST  158 


LAST  158 
LAST  2:2 
LAST  2r  2 
LAST  202 
LAST  202 
LAST  202 
L AST  • 2: 2 
LAST  202 


1336 
1327 
1300 
C3  21 
F6,  1422 
E6  ,1423 
E 6,  1625 
E6.1636 

0033 

0034 

0035 
E6, 1643 
E6,  1644 

0 375 
0111 
E6,  U22 
E6.1423 
E 6,  1635 
E6  ,1636 
0033 
00  34 
00  35 
E 6,  1425 
F6, 1 514 


DL  109 
0L119 
DL  111 
CL  112 
OLl  1 3 
OL  114 
DL115 
0 L 1 1 6 
DL  117 
OLl  1 B 
DL  119 
DL  120 
DL121 
DL  122 
CL  123 
DL  1 24 
Dl  125 
DL126 
OL  127 
DL  128 
DL129 
DL  130 
DL131 
DL132 
DL  133 


ONLRVEL  Z 

DNLRALT 

CSKMASS 

iMnnf  s 33 

THETAD 

OME3AO 

3MEGAR 

CDUYD 

:duzd 

cduy 

C-DUZ 

TOUT 

OMEGAOD 

OMEGA  RD 

FA  ILREG 

DAPBOGLS 

OMEGAQ 

OMEGAR 

CDUYD 

CDUZD 

CDUY 

:duz 

CDUT 

ALPHAR 

NEGTORK  P 
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PAGE  202 


USER'S  PAGE  NO. 


.001 

4 EO  S 4 


LMOR8MO  2 


LMOR6M04 


LMDRBM05 


P0149 

3 0 1 50 

3151 
1 5 

0153 

0154 
C 1 55 

) 1 55 
0157 
I 5 8 
3150 
0160 
0 161 
0162 
0163 
3 1 64 
nl65 
0 166 
3 167 
0168 
0 160 
Cl  70 
0171 
3 172 
0 1 73 

0 174 
3 175 

0176 

0177 

01  78 


ASSEMBLE  REVISION  56  OF  AG C.  PROGRAM  ZERL  1NA  8Y  ZOROASTER 
DOWNL  INK  L ISTS 

LM  C CAST  AND  ALIGNMENT  DOWNL  1ST 


CONTRCL  LIST 


REF 
P EF 
RFF 
REF 
REF 
REF 
RFF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
PEF 
R EF 
REF 
RFF 
REF 
REF 
RFF 
RFF 
RFF 
R EF 
REF 


LAST  200 


LAST 
LAST 
LAST 
LAST 
I AST 
LAST 
LAST 
L AST 
LAST 


L AST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 


128 

200 

230 

2 

200 

158 


113 
157 
157 
200 
?(  0 
200 


05, 2 173 
05  ,2173 
05,2174 
05,  2175 
05  ,2176 
C 5,  2177 

05.2200 

05.2201 
05,  22C  2 
05  ,2203 
05,2204 
05,  2205 
05  ,2205 
05,  22C7 
05,  2210 
05,2211 
05,  22  12 
05  ,2213 

05.2214 

05. 2215 
05  ,2216 
05,  2217 

05.2220 

05.2221 
C 5,  2222 
05  ,2223 
C5  T 2 224 
35, 2225 


32  127  1 
24340  0 
03371  1 
02774  1 
C 7 1 1 5 0 
01330  0 
01341  0 
25731  0 
00734  1 
12020  0 
05333  1 
13700  1 
22136  1 
00024  l 
32145  0 
24340  0 
32154  0 
32230  1 
01355  0 
01516  1 
C4C36  0 
00112  0 
01326  1 
C 1 2 7 7 1 
03441  0 
22160  1 
52755  1 


COSTA  LI  N EQUAL  S 
ONPTP 
6 DN ADR 
1DNADR 
1 DN  ADR 
20NADR 
ION  A OR 
l DNADR 
60  NAD  R 
1 DN  A DR 
3 DNADR 
2D N A DR 
3 DNADR 
ONPTR 
1DNADR 
DNPTR 
6DNADR 
DNPTR 
DNPTR 
iDNAQR 

1 DNADR 

2 D NAD  R 
lDNADR 
1 DNADR 
10  NAD  R 
1 DNADR 
DNPTP 

-6DNADR 


I MC STAO i 

DNTMRUFF 

AG  SK 

T AL  IGN 

PGSTORKU 

3NRRANGE 

T EVENT 

REFSMMAT 

AOTCODE 

RLS 

3NLR  VE  LX 
V GT  I G 
LMCSTAO? 
T I ME  2 
L MCST  AO  3 
DNTM6UFF 
LMCSTAC4 
LMCSTAO  7 
SE  R VO  UP  N 
T ET 
CDUS 

LA  STYCMD 
L EMM ASS 
I MODE  S3 0 
TIG 

L MCST  AO  r> 
0 SP  TAB 


3 0179 
3 130 
r l fil 
0 182 

0183 

0184 

O L85 
< 186 
A.  - 187 

71  88 

1 eg 


REF 

REF 

REF 

REF 

PEF 


2 l AST  20 0 
2 LAST  200 
2 LAST  POO 
2 LAST  200 
2 LAST  20C 


- SUB-LISTS 
C5,  2127 
05  ,2136 
05,2145 
05,  2 154 
05,2160 


LAST  Is? 
LAST  157 


05, 2230 
05  ,2231 


LMCSTAOl  EQUALS  L MGRBMC 1 

L MCST  AO  2 EOUALS  LM0RBM02 

LMCSTA03  EQUALS  I MDR BMP 3 

LMCSTA04  EQLALS  LM0R6M04 

L MCST  AO  5 EQUALS  LM0RBM05 

C57CO  0 LMCSTA06  20 NAD R X789 
77665  1 - 1 DN  A DR  LASTYCMO 

12737  1 LMCSTAC7  3QNADR  OGC 
02755  1 1 DN  ADR  BESTI 


9:  12  (X  T. 


21,  1970 


ZERLAI D . 001 


PAGE  203 


USER'S  PAGE  NO.  5 EC  S4 


SFND  ID  BY  SPECIAL  CODING 
COLLECT  SNAPSHOT 
S END  SNAPSHOT 
AGS  K ,+ 1 
TAI.  I.GNi  + 1 

POSTORKU,  NEGTORKU,  POSTORKV  ,NEGTOP.<  V 

DNRPANGE  ,DNPPOCT 

TFVENT,  +1 

REFSMMAT +0  . . - +1  1 D 

AOTCODE  .GARBAGE 

RLS  +D  • . . + 5 

DNLRVFLX  , DNLPV  FLY,  CNLRVFL  Z,  DNL  R AL  T 
VGTIGX,  Y,Z 
COMMON  DATA 
TI  MF2/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 
COMMON  DATA 
SE  RVDURN,  DU  MLOOPS 
TE  T , + 1 

CDUS,  PIPAX  , PIP  AY,  P IPAZ 
LASTYC  MD  , LA  STXC  MD 
L EMMA  SS,  C SMMASS 
IMCDESl;  , I MODES 33 
TIT  ,*  l 
COMMON  DATA 
DSPTAB+3  ...  +1 1 D TABL  E 


COMMON  DOWNL  1ST  DATA 
COMMON  0 OWN  LI  ST  DATA 
COMMON  DOWNL 1ST  DATA 
COMMON  DOWNLIST  CATA 
COMMON  DOWNL  I ST  DA  TA 

DATA 

DATA 

BESTI  , 3 E STJ 


X789+0  ...+3  COMMON 

1 ASTYC  MD  , LA  ST  XC  MD 

CGC  ,+  1 , 1 GC  , + 1 , MGC  , +1  COMMON 


SAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  9Y  ZOROASTER 


DOWNL  INK  L I STS 

0190  REF  2 LAST  127  05,  2232  1276C  C 3DNADR  STARSAV1 

0191  P FF  2 LAST  127  05,2233  65011  1 -3DNA0R  STARSAV2 


RD19?  

Pr1«»3  ***  UNPFFFFFNCED  LGCATIOMS  US  E C IN  I 1ST  2 

i ,104  ***  UPDATE  THIS  LIST  WHEN  ANY  CHANGES  ARF  PAGE  TO  DOWNLINK  LISTS. 


LOCA  TI  ON 


C 1 96  PEF 
■*197  PFF 
Ol 98  PFF 
19Q  R F F 
32D0  REF 
0201  PFF 
0 20  2 PFF 

0203  R FF 

0204  PFF 
3235  REF 

0206  REF 

0207  p r F 
3209  PFF 

0209  PFF 

0210  REF 

0211  PFF 

0212  REF 
3213  PFF 
C2K  RFF 


3 

3 

2 

3 

5 

R 

3 

2 

2 

2 


2 

17 

2 

3 

2 

2 


LAST  201 
LAST  201 
LAST  201 
LAST  202 
LAST  202 
L AS  T 20  1 
LAST  201 
LAST  157 
LAST  157 


LAST  202 
LAST  202 
LAST  23  4 
LAST  157 
LAST  127 
I AST  127 


1520 
1331 
1334 
1 335 
1 336 
0025 
1356 
0037 

0040 

0041 
0113 
1327 
1300 
0 113 

E5 ,1741 
F5,  1743 
E5f  1 756 


E . 

E6, 

E6  , 


CL20  1 
0L20? 
OL  20  3 
DL204 

DL2C5 

DL20  6 
DL2  ’7 
OL  20H 
0L2P9 
DL210 
DL  211 
DL21  2 

OL213 

DL  214 
DL215 
DL  216 
0L217 
0 L21  9 
OL  219 


NFGTORKU 
POST  ORKV 
NFGTOPK  V 
HNRRDOT 
DNLRVELY 
DNLRVEI  7 
DNLRALT 
TI  MF  1 
DJMLOOPS 
PI  PAX 
PI  PA  Y 
PIPAZ 
LA  STXCPD 
CSMMA  SS 
IMODES  33 
LA  STXC MD 
ICC 
MGC 
3E  STJ 
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USER'S  PAGE  NO.  6 EO  S4 

S TAPS AVI +0. ..+5 
STAPSAV2+0. ..+5 


LIST  NAME 
COSTAL  IN 


LMCSTA3  6 
LMC STA07 


; HP  : 


ASSEMBLE  REVISION  56  OF  AGC  PRC GR AM  ZEPL INA  BY  ZOROASTER 


DOWNL  INK  L I STS 

PC' 2 1 5 LM  RENDEZVOUS  ANO  PRE-THRUST  COWNLIST 


CCNTRCL  LIST 


3217 

02  IB  REF  ] 

0219  REF  7 

02?0  REF  1 

0221  PEF  1 

322?  REF  3 

0223  ref  3 

0224  REF  2 

3225  REF  2 

0226  REF  4 

'221  REF  2 

C22p  REF  1 

0229  REF  1 

3233  REF  4 

0231  REF  1 

0232  REF  3 

3233  REF  1 

0234  REF  4 

*235  REF  2 

0236  REF  2 

0237  PEF  2 

3238  REF  2 

0239  REF  2 

0240  REF  ? 

3241  RFF  3 

0242  REF  5 

0243  REF  4 

0244  REF  35 

0245  PEF  3 

3246  REF  1 

0247  REF  3 

0248  REF  1 

3249  REF  1 

0250  RFF  2 

251  REF  1 

0252  RFF  3 


LAST  203 


LAST  200 
LAST  1 5 8 
I AST  200 
LAST  200 
LAST  203 
LAST  200 


LAST  293 

LAST  205 

LAST  203 
LAST  200 
LAST  230 
LAST  200 
LAST  200 
LAST  2?  0 
LAST  200 
I AST  203 
LAST  203 
LAST  203 
LAST  20  3 
LAST  2C3 

LAST  293 


LAST  200 
LAST  20  5 


95  ,2234 

05.2235 

05. 2236 

05.2237 
05,  2240 

05.2241 

05.2242 
05, 2 24  2 
05  ,2244 
05,2245 
0 5,  2 246 
05  ,2247 
C 5,  225C 
05,2251 
C 5 ,22  52 
05,  2253 
05  ,2254 
05,2255 
05,  2256 
05,2257 
35,  226C 

05.2261 

05.2262 

05. 2263 
.5  ,2  264 
C 5 , 2 26 5 
05,  2266 
05,2267 
05,  2270 

05.2271 

05.2272 

. 

05  ,2274 
05,2275 
05,  2276 


32  127  1 
24340  C 
22277  1 
32307  1 
03451  1 
13433  1 
C3633  1 
12257  1 
P 1 355  0 
C3630  1 
22226  C 
32136  1 
GCC24  1 
32145  0 
24340  0 
22154  C 
07115  0 
CCCC7  0 
01774  1 
12265  0 
036.35  1 
12356  1 
02247  1 
04036  0 
00112  P 
C 1 32  6 1 
01277  1 
03441  0 
32160  1 
f 15 16  1 
03620  0 
C 3466  0 
03577  1 
02340  1 
77770  1 


RENDF.  ZVU  EQUALS 
DNPTR 
6 ON ADR 
DNP  TR 
DNPTR 
l D NAD  R 
30NADR 
1 ONADR 
30  NAD R 
1 DM  A DR 
1 DNADR 
DNPTR 
DNPTP 
1DNADR 
DNPTR 
6 DNADR 
DNPTR 
2DNADP 
1 DNADR 
1DNADR 
3 DNADR 
1 DNADR 
3DNADR 
10NACR 
2DNAUR 
1 DM  A DR 
1 DNADR 
1DNADR 
1 DNADR 
DNPTR 
1DNA0R 
1 DNADR 
ID  NAD  P 
1 DNADR 
1 DNADR 
- 1DNADR 


L MR  FN001 

DNTMRUFF 

LMREND07 

LMREND08 

DELLT4 

DEL  VSL  V 

TCS  I 

DEL  VEETl 

SERVDURN 

TPASS4 

LMRFND06 

L M KENDO  2 

T I ME2 

LMREND03 

DNTMBU  FF 

L MREND04 

PO  STORK  U 

SPARE 

TCDH 

DELVEET? 
T T PI 

DEL VEE  T3 
EL  EV 
CDUS 
LASTYCMD 
LEMMASS 
I MODE  S30 
T IG 

LMREND0  5 
TET 

CENT  ANG 
NN 

D IFFAL  T 
DELVTPF 
SPARE 


1 "253 


SUB-LIST  S 


3254  REF 

0255  REF 

0256  RFF 

0257  REF 


3 LAST  20  3 
3 LAST  203 
3 LAST  203 
3 LAST  23  3 


05,  2127 
05  ,2136 
OB, 2145 
05,  2 154 


LMRENDOl  EQUALS 
LMRFND0  2 EQUALS 
LVREND03  EQUALS 
LMR  END  04  EQUALS 


LM0RRM01 
LM0PBMC2 
l M0RBM03 
LM0RBMP4 
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SEND  ID  BY  SPECIAL  CODING 

COLLECT  SNAPSHOT 

SENO  SNAPSHOT 

COLLECT  SNAPSHOT 

SENO  SNAPSHOT 

DEL  LT  4 , +1 

DEL  VSL  V+0.  . . «■  5 

TCS  I,  + l 

DELVEFT+3  . ..+5 
SERVO  URN, DUMLOOPS 
T PASS  4,  + 1 
COMMON  OATA 
COMMON  DATA 
T I M F2  / 1 

COLLECT  SNAPSHOT 
SENO  SNAPSHOT 
COMMON  DATA 

PnSTnRKU,NEGTORKU,PCSTCRKV,NEGTORKV 
TCDH ,+ 1 

DEL  VEE  T 2+  0.  ..  + 5 
TT  P I,  +1 

DFLVEET3  + 0...+5 
EL  EV,  +1 

CDUS  , PI  PAX  , PI  P AY  , PIPAZ 

LASTYC  MD  ,LACTXfMC 

LEMMASS,  CSMMASS 

I MOOE  S30»IM0DES33 

TI  G,  ♦ 1 

COMMON  DATA 

TET,*1 

CENTANG,  + l 

NN  , +1 

DIFFAL  T,+  1 
OFLVTPF,  + l 


COMMON  DOWN  LIST  DATA 
COMMON  DOWNLI  ST  DATA 
COMMON  DOWNL  1ST  OATA 


CMMCN  DOWNLI ST  CATA 


GAP: 


:12  CCT.  21,1970  ZERLAIC  .Of 


PAGE 


2 Jt> 


AS S EMBL  E REV  IS  ION 
L DOWNLINK  LISTS 

2 58  REF  3 LAST 

0259  REF  1 


5t>  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTER 


203  05,  2160 

05,2226 


LMREND95  EOUALS 
LM REN 006  EOUALS 


LMCPB  MO  5 
LPCSTAC6 


USER  ■ S PAGE  NO. 
COMMON  DOWNLIST  OATA 
COMMON  DOWNLI  ST  DATA 


R 


EO  S4 


0260 
3 261 

0262 

0263 

0264 
C265 
5265 
0 267 
r'26B 
5269 

R 0270 
R0271 
A''2  72 


PFF  2 LAST 

REF  3 L AST 

PFF  ? LAST 

REF  3 LAST 

REF  2 LAST 

PEF  3 LAST 

REF  1 

REF  2 LAST 

REF  9 LAST 

REF  10  LAST 


168  05,2277  74320  0 

158  05,  2300  03461  1 

150  05,2301  03752  1 

206  C5.23C2  C3753  C 

150  J 5,  2 3o 3 03760  0 

2C6  C5  ,2  3C4  C3761  1 

0 5,  2 3 C 5 C1073  1 

l ' ( 5,2306  74  . •• 

2n  5 05  ,2307  24340  0 

206  05,  2310  7742.3  1 


LMRFND17 -l  DNAOR  A I G 
1DNA0R  A OG 
1 ON  ADR  TANGNB 
1 ONADR  TANGNB  +1 
1DNA13  RANGRDOT 
1 ONADR  RANGRCOT  + 
10NADR  AG  SC  ODE 
- 10NADR  MKTIME 
LMREND18  6 ONADR  DNTMPUFF 

-10NADR  DNTMRUFF  + 


A I G,  AM  G SNAPSHOT 

A CG  ,T  RK  MKCNT 

TANGNB,  *■  1 

T ANGNB+  1,  GARBAGE 

DNRRANGE,ONRROCT 

CNR  ROOT,  GARBAGE 

AGS  CODE,  GARBAGE 

MKTIME  ,+  l 

SEND  SNAPSHOT 

SEND  SNAPSHOT 


***  UNREFERENCED  LOCATIONS  USED  IN  LIST  3 


LOCATION  LI  ST  NAME 


30273  ***  UPDATE  THIS  LIST  WHEN  ANY  CHANGES  ARE  MAO E TO  DOWNLINK  LISTS. 


1274  PEF  3 1 AST  2C4 


0275  REF 

0276  PFF 

0277  REF 

0278  PFF 
1279  REF 

0280  REF 

0281  RFF 
1282  REF 

0283  RFF 

0284  REF 
1285  PEF 

0286  RFF 

0287  RFF 


4 LAST  204 
4 I A ST  204 
P LAST  214 
3 LAST  204 
3 LAST  204 
3 LAST  214 

2 LAST  204 

3 I AST  204 

3 LAST  204 
8 LAST  204 
1 

4 LAST  158 
4 LAST  204 


E 6 
E6, 
E6 


E7, 

E7 


1 356 
0 025 
,15  16 
1517 
,1520 
0C37 
00  40 
0041 
0113 
1327 
1300 
1460 
,1462 
1331 


DL  30  1 
DL  10  2 
01303 
DL  304 
CL305 
0L306 
DL  30  7 
CL30R 
DL  3 rq 
DL  310 
DL31  1 
DL  3 1 2 
OL  3 1 3 
DL  31 4 


PUMLOOPS  P ENDEZVU 

TIMET 

NEGTORKU 

PDSTORKV 

N EGTORKV 

PI  PAX 

PI  PA  Y 

P IPAZ 

L ASTXCMD 

CSMMA  SS 

I MODES33 

AMG  LMREND17 

TRKMKCNT 

DNRRDCT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L DOWNLINK  LISTS 

P 0 288  LM  DESCENT  AND  ASCENT  DOWNLI  S 1 
R02 89  CONTROL  LIST 


0290 

0291 

0292 

0293 

0294 

0295 
0?96 
02  97 

298 

0299 

0300 

0 301 

0302 

0303 
0 30  4 

0305 

0306 
9 39  7 
0308 
0 309 
3319 

0311 

0312 

0313 

0314 
5315 

0316 

0317 
9 3 1 R 
0319 
0 320 

0321 

0322 
9323 

■ 

0325 

R9326 


REF 
RFF 
REF 
REF 
REF 
R EF 
RFF 
REF 
REF 
REF 
RFF 
RFF 
REF 
REF 
REF 
REF 
REF 
RFF 
REF 
REF 
REF 
REF 
RFF 
RFF 
RFF 
REF 
RCF 
RFF 
RFF 
REF 
REF 
RFF 
REF 
REF 
REF 


LAST 

LAST 

LAST 


20  5 
20  7 
2C7 


11  LAST  206 


LAST 
I AST 
LAST 
LAST 
I AST 
L AST 
LAST 
LA  ST 


297 
203 
140 
156 
153 
15  A 
203 
122 


LAST 

LAST 

LAST 
LA  ST 
LAST 
LAST 
LAST 

I A ST 
L AST 
LAST 
LAST 
LAST 


205 

126 

153 

153 

122 

151 
20  5 
20  5 
20  5 
20  5 


0 5,2  311 
95,  2311 

05.2312 

05.2313 
05,  2314 
05  ,23  15 
05,22  16 
95,  23  17 
05  ,2320 
05,  2321 
05,2322 
05,2  323 
05, 2324 
05  ,2325 
95,2326 
05,  2327 
05,2330 
05,  233  1 
05,233? 
05,2333 
05,  2 334 
05  ,2335 
05,2336 
05, 2137 
05,2340 
05,  ? 34  l 

95.2342 

05.2343 
0 5,  2 3^4 
05  ,2  345 
Cc ,2346 
05,  2347 
95,2350 
C5,  235  1 

05.2352 

35.2353 
- SUR-L 


CCCC7  C 
00007  0 
00007  0 
32363  0 
0034C  0 
32354  l 
24340  0 
01341  0 
13252  0 
13645  l 
03642  1 
0 3664  0 
120  20  0 
C2267  0 
32226  C 
32136  1 
CCC24  1 
32145  0 
24340  0 
321=4  0 
07  l 15  0 
126C4  0 
13626  i 
13634  1 
02253  1 
02026  1 
03507  0 
00112  0 
01326  1 
01277  1 
C 344  1 0 
32160  1 
32171  1 
03614  1 
74324  1 
ISTS  


DESC/ASC  EQUALS 
ID  NAUR 
IDNAOR 
l DNADR 
DNPTR 
1 DNADR 
DNPTR 
6DNADR 
1 DNADR 
3 D NAD  R 
3DNADR 
1 DNADR 
ID  NAD  R 
3 DNADR 
1 DNADR 
DNPTR 
DNPTR 
IDNAOR 
DNPTR 
6 DNADR 
DNP  TR 
2DNADR 
3 DNADR 
3DNADR 
3 DNADR 
ID  NAD  R 
IDNAOR 
1 DNADR 
IDNAOR 
l ONADR 
l DNADR 
IDNAOR 
DNPTR 
DNPTR 
IDNADR 
-1  ONADR 


SPARE 
SPARE 
S PARE 
LMDSASO0 
DN  TMRUFF 
l IYDS  AS07 
DNTMR  UFF 
T EVENT 
UNFC/2 
VGVECT 
TT  F/8 
DELTAH 
RL  S 
ZDOTD 
L MO  SA  S09 
LMDS  ASO  2 
T I MF2 
L MD  SA  SO  3 
DNT  M RU  E F 
LMDSA  S04 
POSTORK  U 
RGU 
VGU 
L AND 
AT 

TLAND 
DV  T OT  AL 
LA  STYC MD 
L EMMASS 
I MCDES30 
TIG 

LMOS  ASO  5 
L MDS  AS  06 
PSEUDD55 
TTOGO 


0327 

9328 

0329 

0330 


RFF 

REF 

REF 

RFF 


LAST  205 
LAST  2C5 
LAST  205 
LAST  206 


05  ,2136 
G5,  2145 
05,2154 
05,2160 


L M CS  AS  0 2 EOUALS  LMDRRM02 
LMDSAS03  EOUALS  LMGRBM03 
LMDSAS04  EOUALS  LMORBM04 
LMOS  ASO  5 EQUALS  LMORBM05 
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USER'S  PAGE  NC.  ° EO  S4 


SEND  10  BY  SPEC  I A L CODING 


COLLECT  SNAPSHCT 
SEND  SNAPSHOT 
COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
TEVENT.+  1 
UNFC/2 +0  . ..+5 
VG  VECT+O.  ..+5 
TTF/8,+1 
DELTAH  ,+  1 
R 1 S + 0.  . .+  5 
ZDOTD,  +1 
COMMON  DATA 
COMMON  DATA 
T IME2/1 

COL  LEC  T SNAPSHCT 
SEND  SNAPSHOT 
COMMON  DATA 

POSTORKU.NEGTORKU, PCSTOPKV,NFGTORKV 

RGU  +0  . . . + 5 

VGU+O.  . .+5 

L AM  D+0 • . . + 5 

AT,  +1 

TLAND  ,+  l 

DV  T OT  AL  , + 1 

LASTYCMD,  LAST  X CMD 

LFMMA  SS,C  SMMA  SS 

I MODES  30,  IMODES  33 

TIG,+  1 

COMMON  DATA 

COMMON  DATA 

P SEID055  .GARBAGE 

TTQG3,  +1 


COMMON  DOWNLI  ST  PA  TA 
COMMON  DOWNL  1ST  DATA 
COMMON  DOWNLI  ST  DATA 


COMMON  DOWNL  1ST  DATA 


GAP  : 


0331 


ASSEMBLE  REVISION  56  CF  AGC  FRCGRAM  ZERLINA  BY  ZGRCASTEP 
DGWNL  INK  L ISTS 

REF  2 l AST  200  05  ,2171  LMCSAS06  EQUALS  L MOR  RM  C6 


^3  34 
3335 

0316 
3 337 
3339 


REF 
REF 
REF 
REF 
* R E F 


2 LAST 

2 LAST 

3 LAST 

4 L AST 
3 l AST 

5 LAST 
1 


155  ':c,2354 

154  0 5,2355 

20  fc  05,2356 
206  3C,  2357 

158  05,2360 

205  05,?361 

05,  2362 


03457 
C 34  6 1 
C 37  40 
01  355 
7 ACC  5 


LM0SAS07— 1 ONAOR 
IDNA3R 
1 ON  ADR 
IDNADR 
1DNA0R 
1 DNADR 
- 1DNAD1 


HMEASDL 
VMEAS 
A I G 
A OG 

L ATVMETP 
S ERV  DURN 
LRTI  ME  0 L 


3 30 
D 340 
0341 


REF 

PFF 

REF 


2 

2 

2 


1 AST 
L AST 
LAST 


154 

153 

206 


05  ,2363 
05,  2 36 A 
05,2226 


7410  7 1 LMCSASQ8-1  DM  ADR  GTCTIME 
7 A 1 6 2 1 -IDNADR  FC 

LMDSAS09  EQUALS  LMCSTA06 


10  342  — 

R33AO  ***  UNREFERENCED  LOCATIONS  USED  IN  LIST  A 

R C 3A4  ***  UPDATE  THIS  LIST  WHEN  ANY  CHANGES  ARE  MADE  TO  OOWML  IVK  LISTS. 


A i345 


LOCATI ON 


0346  REF 

0347  REF 
3348  REF 

0349  PE  F 

0350  REF 

0351  REF 

0352  REF 

0353  REF 

0354  REF 

0355  REF 
3356  REF 


5 LAST  236 
c LAST  206 
5 LAST  20  6 
4 LAST  206 
4 LAST  206 
A LAST  23  6 
19  LAST  206 
2 LAST  20  6 


0025 
56,1516 
Ft,  1517 
E6  ,1520 
0113 
1327 
1303 
E 7,  1 A60 
F7,  1 462 


2 LAST  155  E7 , 1 741 
4 LAST  206  1356 


DL40  1 = TIMF1 

DL402  = NEOTORKU 

D L 403  = PGSTORKV 

DL404  = N EGTORK  V 

DL405  = LASTXCMD 

DLA06  = CSMMASS 

0L407  = IMQDES  33 

DL408  = AMG 

DL  409  = VSFLFCT 

DL413  = FORVMETR 

D L A 1 1 = DUNLOOPS 
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COMMON  DOWNLIST  DATA 

HMEAS  DL,  +1 

VMEAS, +1 

A I G,  AMG 

AOG , VS  ELECT 

LA  TVME  TR  ,F  ORVMF  TP 

SERVOUIN.OUMLOOPS 

LRTI MEDL ,+l 

GTCTIME,  +1 
FC,  GARBAGE 

COMMON  DOWNLIST  DATA 


LIST  NAME 
DESC/A  SC 


LMDS  AS  37 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L DOWNLI NK  LI  STS 


PD 35 7 LM  LUNAR  SURFACE  ALIGN  DOWNLIST 


R0358 

--  CONTROL 

L 1ST 

Q359 

05,2^365 

SIJRFALIN 

EQUALS 

3360 

REF 

OS,  236  5 

-•2  127 

1 

ONP  TR 

LMLSA  LOl 

0361 

PEF 

16 

LAST 

207 

05  ,2366 

26360 

0 

6 ON  ADR 

DNTMBUFF 

0362 

REF 

1 

C 5,  2367 

12211 

1 

DNPTR 

L MLS  A LOT 

0363 

REF 

15 

LAS1 

20  9 

05,  2370 

1 6360 

0 

6DNADR 

DNTMB  UFF 

0366 

REF 

3 

LAST 

2C3 

05  ,2371 

02776 

1 

l DN ADR 

T AL  IGN 

D 365 

REF 

6 

1 AST 

20  3 

C5,  2 37? 

25731 

0 

60  NAD  R 

RCF  SMMAT 

0366 

REF 

3 

LAST 

157 

05  ,2373 

26227 

1 

6 ON  ADR 

YNRSAV 

0367 

REF 

2 

t A ST 

203 

C5 ,23  76 

01700 

1 

1 DN ADR 

X789 

3368 

RFF 

6 

L AST 

20  5 

05,  2375 

0 15  16 

1 

1DNADR 

TE  T 

0369 

REF 

7 

LAST 

2C7 

05  ,2376 

00112 

0 

1 DN ADR 

LASTYCMD 

r.3  70 

RFF 

1 

05,  2377 

32136 

1 

DNPTR 

L MLS  AL02 

03  71 

REF 

6 

LAST 

20  7 

05, 2600 

00026 

1 

1DNADR 

TI  MF  2 

0 372 

REF 

1 

05,2601 

32165 

0 

DNPTR 

LMLS  AL 0 3 

3 37  3 

REF 

16 

L AST 

20  9 

C 5,  26C2 

26340 

0 

6D  NADR 

ONTMBUFF 

0 376 

RFF 

1 

05  ,2603 

32154 

0 

DNPTR 

LML  SAL  06 

0 37  5 

REF 

1 

05,2606 

3 2230 

1 

DNPTR 

LMLS AL08 

3376 

REF 

6 

1 AST 

119 

OS,  2605 

12221 

0 

3D  NADR 

G SA  V 

0377 

REF 

2 

LAST 

203 

35  ,2606 

03371 

1 

1 DN  ADR 

AGSK 

0378 

REF 

8 

LAST 

20  9 

05,  26C7 

C 0 1 1 2 

0 

ID  NADR 

LASTYCMD 

0379 

REF 

6 

LAST 

20  7 

05, 2610 

01326 

1 

1DNADR 

LE  MMA  S S 

0380 

REF 

37 

LAST 

2C7 

05,2611 

01277 

1 

1 DNADR 

I MODES  30 

3381 

REF 

5 

l AST 

20  7 

C 5,  2612 

0344  1 

0 

ID  NAD  R 

TIG 

038? 

PCF 

8 

1 AST 

20  1 

05  ,2613 

070  21 

0 

2 UN  ADR 

OMFGAP 

0 38  3 

R FF 

8 

LA  ST 

20  1 

05  ,2616 

07234 

0 

2 DNADR 

CDUXD 

>3  84 

RFF 

6 

L AST 

20  1 

05,  2*  15 

C 40  - 2 

1 

0385 

PEF 

3 

LAST 

201 

05  ,2616 

03026 

1 

1 DNADR 

ALPHAQ 

0386 

REF 

3 

LAST 

20  3 

05,  261  7 

CC736 

1 

1 D NADR 

AOTCODE 

03  87 

REF 

1 

05,  2620 

32165 

1 

DNPTR 

LMLSA  LC9 

9388 

RCF 

1 

95  ,2621 

32171 

1 

ONPTR 

LMLS  AL06 

3 339 

RFF 

1 

05,  2622 

C 3 5 6 1 

0 

1DNADK 

TSIGHT 

0390 

REF 

2 

LAST 

157 

05  ,2623 

76562 

0 

-1  DNADR 

CUR  SDR 

RO  39  l 

03  92 

REF 

8 

L AST 

20  5 

05,  2127 

L ML  SAL  0 1 

EQUALS 

LMORBMOl 

0393 

REF 

5 

LAST 

23  7 

C5 ,2 1 36 

LMLS ALD2 

EQUALS 

L MURBM02 

3396 

REF 

5 

L AST 

20  7 

C 5,  2165 

LMLSAL03 

EQUALS 

LM0RBM03 

0395 

REF 

5 

LAST 

207 

05,2156 

LMLSAL06 

EQUALS 

LMQRBMC6 

0396 

REF 

5 

1 A ST 

207 

C5,?160 

LMLSAL05 

EQUALS 

LM0RBM05 

03  97 

REF 

3 

LAST 

23  8 

05,  217  1 

L ML  SAL  06 

EQUALS 

L MORBM06 
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USER  ' S PAGE  NO.  11  EO  S6 


SEND  ID  RY  SPECIAL  CODING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

TAL  IGN,  +1 

RFFSMMAT  +0  . ..+1  ID 

YNR  SAV+O.  ,.  + 5tZNBSAV+0...+5 

X789, +1 

TET 

LASTYCMD,  LA  STXCMD 
COMMON  DATA 
T I ME/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 
COMMON  DATA 
G S A V+0 ... +5 
AGSK,  + l 

LASTYCMD, L ASTXCMD 
LFMMASS,CSMMASS 
IM0DES30,  IMOOES33 
TIG  ,+1 

OMFGAP  ,OME  GAO,  OMEGAR, GARB  AGE 

CDU  X D,  CDU  YD  , CDUZD,  GARBAGE 

C DUX  , C DIJY  ,CCJ  Z,  CCUT 

A|  PHAQ,  ALPHAR  COMMON  DATA 

AOT  CODE,  GARBAGE 

COMMON  DATA 

COMMON  DATA 

TS  ICHT  ,TS  IGHT  -*1 

AOT  C UR  SOR  , SPI  RAL 


COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLI  ST  DATA 
COMMON  DOWNI  1ST  DATA 
C C M MON  DOWNLI ST  DATA 


< 


SAP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L DOWNLI  NK  LI  STS 


5399  REF  ? LAST  20  5 C5,  2277  LMLSAL07  EQUALS  LMREND07 

0399  REF  2 LAST  20 3 u5,2233  L M LSAL08  EQUALS  lMCSTAG7 

0 AO'  REF  1 05,2165  LMLSAL09  EQUALS  L M0RBM09 

R3AD1  

RPA'=2  ***  UNR  EFER'ENC  EO  LCCATIPNS  USFC  IN  LIST  5 

3 ***  UPOATF  THIS  LIST  WH  F N ANY  CHANGES  ARE  MADE  TO  OCWNL  INK  LISTS. 


AO 


L OC  A T I ON 


9 At  9 

3 A ? 6 
0 A r 7 

040  a 

OA  09 

04  1 0 
3411 
OA  1 2 
° A 1 3 
3 A 1 A 

Al  5 
D A 1 6 
0 A 1 7 
OA  1 8 
1A19 


PEF  1 
REF  5 
RFF  6 
REF  6 
REF  5 
REF  20 
REF  A 
REF  3 
REF  A 
REF  3 
RFF  A 
REF  7 
PFF  A 
RFF  2 
PEF  1 


l AST  20R 
LAST  209 
LAST  210 
LAST  2D  R 
LAST  208 
LAST  202 
LAST  232 
I A ST  202 
LAST  202 
LAST  202 
LAST  202 
LAST  20  2 
LAST  20  2 


1300 
E 1422 
Et>,  1A23 
F6,l 635 
66. 1636 

0033 

0034 

0035 


E6.1A25 

1236 


01.50  i 
01.  5C2 
DL  50  3 
DL50A 
DL  505 
DL596 
0L5O7 
OL  50  8 
OL509 
DL51C 
DL511 
0L5I2 
OL  511 
CL51  A 
0 L 51  5 


7NPS  AV 
L A STXCMO 
TIMEl 
LASTXCND 
C SMMA  SS 
I MOOES  33 
OMEGAQ 
OMEGAR 
COUYD 
CDUZD 
CDUY 
CDUZ 
COLT 
ALPHAR 
SP1  RAL 


9:12  CCT.  21,1970  ZERLAIO  .001  RAGE 

USER'S  PAGE  NO.  12  EO  SA 

COMMON  DOWNL  1ST  OATA 

COMMON  DOWNLI  ST  DATA 
COMMON  DOWNL 1ST  DATA 


2 ID 


LI  ST  NAME 


SURFA1  IN 


GAP:  ASSEMBLE  REVISION  56  UF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P0420 

R0421 

0422 
5 4 2 3 

0424 

0425 

0426 

0427 
3428 
042  9 

3430 

3431 
4 0432 

0433 

0434 

0435 
3436 

4 3 7 
0438 
3439 
0440 
C 44  1 

0442 

0443 
3444 
0445 
0 446 
3447 

0448 

0449 

R0450 

r-451 

3452 
0453 
4 54 


DOWNLINK  LISTS 

LM  AGS  INITIALIZATION  AND  UPDATE  DOWNLIST 


CONTROL  LIST 


RFF 

REF 

REF 

RFF 

REF 

RFF 

RFF 

REF 

REF 

REF 

PFF 

REF 

REF 

REF 

RFF 

RFF 

RFF 

REF 

RFF 

RFF 

REF 

RFF 

RFF 

REF 

REF 

REF 


RFF 

REF 

REF 

PFF 


120 
21  1 
211 
21  1 
21  1 
211 
21  1 
21  1 
157 

106 

1 

7 LAST  209 
1 

17  LAST  209 


L AST 
LAST 
LA  ST 
L AST 
LAST 
l AST 
I AST 
L AST 
L AST 

LAST 


L AST 
LAST 
LA  ST 
LAST 
LAST 
I AST 
LAST 
L AST 
L AST 


20  7 
208 
207 

20  9 

21  1 
21  1 
209 
209 
21  1 


15  LAST  203 

6 LAST  209 
6 LAST  209 
6 LAST  209 
6 LAST  209 


35  ,2424 
05,24 24 
05  ,2425 
05,2426 
0 5,  24  27 
05  ,2430 
05,  243  1 
05,2432 
05  ,2433 
. 05,  24  34 

05,2435 
05,  2436 
05  ,2437 
05,  2440 

05.2441 

05.2442 

05. 2443 
95  ,2444 
05,2445 
05,  2446 
05  ,2447 
05,  2450 

05.245 1 

05.2452 

05. 2453 
05  ,2454 
05,2455 


12171  0 

02205  1 

12172  0 

02206  1 
12177  0 
C22C5  1 
12200  0 
02206  1 
25U7  0 

262C3  1 
32136  1 

00024  1 
32145  0 
24340  0 
32154  0 
07115  0 
01355  0 
CCCC7  0 
03371  1 
25173  0 
152C7  0 
01326  1 
01277  1 
0CC07  0 
32 160  1 
52755  1 


AGS  I /U  PD  EQUALS 

3DNADR  AGSRUFF  +0 
IDNADR  AGSBUFF  + 12D 
3 0NADR  AGSRUFF  +1 
IDNADR  AGSBUFF  + 13D 
3 DN  ADR  AGSRUFF  +6 
IDNADR  AGSBUFF  +12D 
3DMA0R  AGSBUFF  +7 
IDNADR  AGSBUFF  +13  D 
6DNADR  COMPNUMR 


- SUR-L  ISTS 
05,2136 
05,  2 145 
05  ,2154 
05,2160 


6 CN  ADR 
DNPTR 
1 ON  ADR 
DNPTR 
60NADR 
DNPTR 
20NADR 
IDNADR 
1 DNADR 
IDNADR 
6 DNADR 
4DNADR 
IDNADR 
1 DNADR 
IDNADR 
ONPTR 
-6 DNADR 


UP  BUFF  +8  0 
L MAG  SI  02 
T IMF2 
L MAGS  1 03 
DNTMBUFF 
LMAGS  104 
POSTORKU 
SFRVDURN 
S PARE 
AG  SK 
UP  RUFF 
UPBUFF  +1 2 C 
LFMMASS 
I MODES  30 
SPARE 
LMAGS I 05 
DSPTAB 


LMAGS  102  EQUALS  L MOR  BMC  2 
L MAG  SI  0 3 EQUALS  L MOP  8M03 
LMAGS  104  EOUALS  L MOR  BMC  4 
L M AG  SI  05  EQUALS  LMCRBM05 


A 0458 


LOCATION 
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SEND  ID  BY  SPECIAL  CODING 

AGSRUFF+P  . . .+5 

AG  SBUFF+  1 2D  .GARBAGE 

AGS  BUFF + 1..  . + 6 

AGSBUFF+13D, GARBAGE 

AGSRUFF+6...+11 

AGS  BU  FF  + 12,  GARBAGE 

AGSBUFF  + 7..  . + 120 

AGSBUFF+130, GARBAGE 

C OM  FNU  MB  »UPOLDNCC,UPV  ERB.UPCOUNT, 

UPBUFF  + 0...  + 7 

UPRI'FF  +-80...+  190 

COMMON  DATA 

TIME  2/  1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 

PCSTORKU  .NECTORKU  , POSTORKV,  NEGTORKV 
SEP  VOURN.DUMLOOPS 

AGSK.+  l 

UPBUFF+  0.  . . + 1 ID 
UPBUFF  + 12D.  • • + 19D 
LEMMA  SS,C  SMMA  S S 
IMODES  30  , IMODES  33 

COMMON  DATA 
DS  PT  AB+O  . ..  + 11D 


COMMON  DO WNL  1ST  DA  TA 
COMMON  DOWNLIST  CAT  A 
COMMON  DOWNLI  ST  DATA 
COMMON  DOWNL 1ST  DATA 


ST  NAME 


ASSEMBLE  REVISION  56  OF  AGO  PkOGRAM  ZEPLINA  BY  Z OR  DA  STEP 


JAP: 


L DOWNL INK  LI  STS 


'+59 

0460 

3461 

046? 

0465 

3464 

0465 

0466 

0467 

0468 
3469 

i .i47> 
0471 
3472 
C473 
474 
3475 
C 476 
R3477 


REF  3 LAST 

PFF  3 LAST 

REF  3 LAST 

REF  c LAST 

PFF  7 LAST 

REF  6 LAST 

PEF  6 LAST 

REF  5 LAST 

REF  5 LAST 

REF  6 LAST 

REF  21  LAST 


157  1170 

157  1171 

157  1172 

211  1173 

21  0 3025 

208  F6»  1516 

208  E6.1517 

2C8  E 6 » 15  20 

208  1 356 

210  1327 

210  1 3C0 


OL  6C  1 
DL602 
D L 603 
01  60  4 
0L635 
0 L 606 
DL60  7 
0L608 
DL  609 
CL6  1 7 
0L611 


UPOLDMOD 
JPVFRB 
UPC  CUNT 
UPBUFF 
T I ME  1 
NEC.  TOR  KU 
POSTORK  V 
NECTPRKV 
DUMLOOPS 
CSMMASS 
I MCOES33 


REF 

REF 

REF 

PEF 

RFF 

PFF 


LAST  19<i  05,2456 

LAST  lc  9 35,  2457 

0 5 ,2  46 C 
05,246  l 
Q5,  2462 
35  ,2463 


02173  0 
C2424  1 
02234  0 
0206  6 0 
€2311  0 
02365  0 


DNTABLE 


GENADR 
GE  NAD R 
GENADR 
GENADR 
GENADR 
GEN  A DP 


COSTAL  IN 
AG  SI  /UPD 
RENDEZVU 
ORBMANUV 
35  SC  /A  SC 
S JRFAL  IN 
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USER'S  PA  GF  NO.  14  EO  S4 

AGS  I /UPD 


LM  COAST  AND  ALIGN  DOWNLI  ST 

LM  AGS  INIT  IAL  I ZAT  ION/UPOAT  E DOWNL  1ST 

LM  RENDEZVOUS  AND  PRETHRUST  DGWNL 1ST 

LM  ORBITAL  MANEUVERS  DOWNL  1ST 

LM  DESCENT  AND  ASCENT  DOWNL  1ST 

LM  I IJNAR  SURFACE  ALIGN  DOWNLI  ST 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7FRLINA  BY  ZOROASTER 
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AG  S I NI  TI  A LI  ? A TI  ON 
PROGRAM  NAME:  AGS 

WRI TTFN  RY 


USER  » S PAGE  NO. 


ITIA1  I Z A T ION  (R97> 
RHODE  / KILRCY  / FCLLETT 


23  MARCH  1967 
KI  LROY 


R3006 
R 0007 
R GuO  8 


MOO  MO. 
OATE 
MOO  BY 


28  OCTOBER  1567 
FCLLETT 


FUNCT.  OFS  C •: 


R 0019 
R3321 


(2)  TO  ZERO  THE  ICOU,  LGC  ANO  AE A GIMBAL  ANGLE  CCUNTFPS  SIMULTANEOUSLY  IN  ORDER  TO  ESTABLISH  A 
CCMMCN  ZERO  REFERENCE  FOR  THE  MEASUREMENT  OF  G I M3A  L ( E ULER)  ANGLES  WHICH  DEFINE  I EM  ATTITUDE 

(3)  TC  ESTABLISH  THE  GROUND  ELAPSED  TIME  OF  A E A CLOCK  ZFRO.IIF  AN  A EA  CLOCK  ZERO  IS 

REQUESTED  DURING  THIS  PROGRAM 


LOG  SECTION 
C A I L ING  SEO 


AGS  IN  IT  IAL  IZAT  ICN 


NORMAL  EXIT 
ALAR  M/ABORT 


0 0032 
R0033 
RG039 
R 0036 
R333B 

0039 

0090 

3391 

0092 


SAMP  TIME  (2)  TI  MF  OF  :E  NTF  R : KEYSTROKE 

AGSK  (2)  GROUND  ELAPSED  TIME  OF  THE  AE  A CLOCK  :ZFRO: 

AGSBUFF  (190  CCNTAINS  AC-S  INITIALIZATION  DATA  (SEE  :OUTPUT:  BELOW) 
AG  SWORD  ID  PRFVIOLS  DOWNLI  ST  SAVED  HF  RE 


REF  9 LAST 
REF  1 


21  1 


E6.177I 

. 

32  ,2  005 


EPANK=  AGSK 
BANK  93 
SFTLOC  R 9 7 
BANK 


0099 
009  5 
3096 
009  7 


RFF  1 
REF  1 
REF  36  LAST 


72, 200 6 
32  ,2006 
32,  2007  1C  CCO  C 
32,2010  0 2017  0 


9 7 3 7 C AG  SIN  IT 


CCUNT*  SI/R97 

CAF  RFFSMRIT 
MASK  FLAGWRC3 
CCS  A 


C HFC<  REFSMFLG. 
REF  SMMA  T I S OK 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L AGS  INI  T I ALIZATION 


DD4P  REF 

0049 

0050  REF 


LAST  19  1 


22,  2011 
32  ,2012 
32 ,2  >13 


( 56C0  1 
00  220  1 
C 5 50  3 1 


TC  ALARM 

OCT  220 

TC  ENOEXT 


0061 

0062  P EF 
DD63  RFF 


1 

5 LAST 


32,  20  14 
32  *2  ’ 15 

32,  2 K 16 


C 0C06  1 
3 0014  1 
52' 772  C 


NFWAGS 


E XTENO 

OCA  SAMPTIMF 

OXCH  AGSK 


0064 

0065  RFF 
3366  REF 
0C67  PFF 
006ft  PEF 

0069  REF 

0070  P.EF 
3371  PEF 
0C711  pff 
00712  RFF 
3371  3 
00714  REF 


6 LAST  214 
2 LAST  103 

1 
1 

2 LAST  214 
1 

21  LAST  196 
12  I A ST  99 


32,2017  C 0306  1 
32  ,2020  3 1 772  1 

3 2,  202  1 ?2'05l  0 

32  ,2022  3 2172  1 

32,2023  C 4(16  1 
3 2,  20  24  20334  1 
32,2025  C 5503  1 
32,  2026  C 2C36  0 
32,2027  4 4746  1 

32  ,2030  6 0154  1 

32, 2031  0 0006  1 

32  ,2032  1 20  14  1 


REOSPTEM  EXTEND 

OCA  AGSK 

OXCH  DSPTFMX 

AGSOISPK  CAP  V06N16 

TC  BANKCALL 

CAOR  30MAPKF 

TC  ENOEXT 

TC  AGSVCALC 

CS  BIT6 

AC  MP AC 

E XTENO 

8ZF  NEWAGS 


0072 

0073  PFF 

0074  RFF 
ADD  75 


3 LAST  214 
2 LAST  213 


32,2033 
3 2,  20  34 
32,2  035 


C FCC6  1 
3 1C  5 1 1 
C 2016  1 


EXTEND 

OCA  DSPTFMX 

TC  REDS  PT  EM 


0076  REF  1 

0076  1 

D0762  REF  1 

0^77 

0078  REF  1 


32,2036  C 605  1 AGSVCALC  TC  INTPRET 


32,2037  77614  1 

32,  ?040  C1C76  1 

32  ,2341  77414  0 

32,  2042  02C76  1 


S ET 

NOD OF  LAG 
SET  FX  IT 

X OS PF  LAG 


0079  REF 
OC  79  5 PEF 
53796  RFF 


2 LAST 
2 I AST 


214  32,2043  3 2 172  1 

214  32  ,2  044  C 4616  1 

22, 2045  20(21  0 


CAF  V06N16 

TC  BANKCALL 

CAOR  EXDSPRFT 


0082 
00  83 

0084 

0085 
D D 96 
0087 
00  88 
D089 
0090 
00  91 

0092 

0093 
DD94 
0095 


REF  2 

REF  1 
REF  1 
REF  2 

RFF  1 
REF  10 
REF  1 
REF  2 
REF  2 

REF  2 
RFF  11 


LAST  214 

l AST  37 

LAST  211 

LAST  214 
LAST  37 

LAST  214 
LAST  214 


32  ,2046 
32 , 2C47 

. 

32  ,2051 
12,2  L ■ 
32,2053 
32  ,2054 
32,  2055 
32  ,2056 
3 7 ,20  57 
3 2,  2060 
32  ,2061 
32,  2C62 
32,2063 


0 6051  0 
77(34  0 
;i555  1 
34041  0 
27C56  1 
77624  1 
64132  0 
16172  1 
OC  0 15  0 
34041  0 
27042  1 
77624  1 
64132  0 
16200  1 


TC  INTPRET 

RTB 

LOAD  TI  ME 
ST  CALL  T DEC  1 

LE  MPREC 

CALL 

SCALEVEC 
STCOL  AGSBUFF 
TAT 

STCALL  T0EC1 

: SMPRFC 

CALL 


SCALEVEC 
STODL  AGSBUFF  + 


9 : L 2 CCT.  21  ,1970 


ZERLAIC 


.001  PAGE  214 


USER  *S  PAGE  NO.  2 


Efc  S3 


REFSMMAT  IS  BAC 


TIME  OF  THF  : ENTER  : KEYSTROKE 
BECOMES  NEW  A E A CLOCK  :ZERO: 


R 1 = OOXXX.  HRS.,  R 2 = OOOXX  MIN., 
R3  = GXX. XX  SEC. 

TERMINATE  RETURN 
PROCEED  RETURN 
I S ENTER  VI  A A V32 


YES,  USE  KEYSTROKE  TIME  FOR  NEW  AGSK 

NO,  NEW  AGSK  LOADED  VIA  V25 
LOAOEO  I NT  C DSPTFMX  PY  KEYING 
1 V25E  FOLLOWED  BY  HR  S.  , Ml  N S.  , SE  C S. 

DISPLAY  THE  NEW  K 


OONT  ALLOW  V37 


EXTRAPOLATE  LEM  AND  C SM  STATE  VECTORS 
TO  THE  PRESENT  TIME 
LCAC  MP  AC  WITH  T1ME2  ,T  IME1 
CALCULATE  LEM  STATE  VECTOR 

CALL  ROUTINE  TO  CONVERT  TC  SM  COORDS  ANC 
PROVIDE  PROPER  SCALING 

(LEMPREC  ANC  CSMPREC  LEAVE  T DEC  1 IN  TAT) 
TAT  = TIME  TO  WHICH  RATT1  AND  VAT  Tl  ARE 
COMPUTED  ICS  EC  SINCE  CLOCK  START  B-28>. 
CALCULATE  CSM  STATE  VECTOR  FOR  S AM F TIME 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L AGS  I NI  TI  A LI  Z A TI  ON 


D D 96 

REF 

2 

LAST 

214 

32, 2064 

CCC15 

0 

TAT 

0097 

32,2065 

56225 

1 

DSU 

DOV 

0098 

REF 

7 

l AST 

214 

32  ,2  066 

03372 

1 

AGSK 

0099 

RFF 

1 

32,  2067 

2*  175 

1 

T SC  ALE 

0100 

REF 

12 

LAST 

214 

32  ,2070 

02206 

1 

STORE 

AGSBUFF  h 

0101 

32, 2C7 l 

77776 

1 

EXIT 

0102 

REF 

1 

32,  2072 

3 4753 

1 

CAF 

LAG  SLI  ST 

C 1 03 

REF 

3 

LAST 

158 

32  ,2073 

54  333 

0 

TS 

DNLST  COD 

3134 

REF 

1 

32,  2C74 

3 2176 

0 

CAF 

23  SEC 

0li>5 

RFF 

3 

LAST 

21  4 

32,2075 

0 4616 

1 

TC 

BANKCAL! 

0106 

RFF 

1 

32,2  076 

01736 

1 

CACR 

DEL  AY  J OR 

0107 

REF 

1 

32,  2077 

3 1321 

0 

CA 

AGSWORD 

0108 

RTF 

4 

LAST 

215 

32  , 2 1 0 ~ 

54  333 

0 

TS 

PNLSTCOP 

0 109 

REF 

3 

LAST 

172 

32,210  1 

3 4 744 

1 

CAF 

I MUSEB  IT 

01 1 0 

REF 

6 

LAST 

19  1 

32,  2102 

7 OC  74 

0 

MA  SK 

F LAG  WRDO 

0111 

REF 

37 

LAST 

213 

32  ,2103 

10  000 

0 

CCS 

A 

M12 

REF 

1 

32,  21C4 

C 2122 

1 

TC 

AGSENP 

G 112  1 

REF 

1 

32,2105 

1 1 ' 30  1 

c 

CKST  ALL 

CCS 

IMUCAOR 

r.  1 1 ?2 

32  ,2106 

12111 

0 

TCF 

+ 3 

1112  3 

32,  2107 

1 2115 

1 

TCF 

+ 6 

'1124 

32  ,2110 

1 2111 

0 

TCF 

+ 1 

0 112  5 

REF 

1 

32,2111 

2 4363 

0 

+ 3 

CAF 

TEN 

01126 

REF 

4 

LAST 

215 

32,  2 112 

C 4 6 1 6 

1 

TC 

BANKCALL 

01127 

RFF 

2 

LAST 

215 

32  ,2113 

01736 

1 

CACR 

DF  LAY  J OB 

31  128 

REF 

1 

32,  2114 

1 2 1 C 5 

0 

TCF 

C KST  ALL 

113 

PFF 

5 

LAST 

215 

32,2115 

0 46  16 

1 

+ 6 

TC 

BANKCALL 

3114 

RFF 

1 

32,  2116 

16661 

1 

CADR 

I MIJZERC 

0115 

RFF 

6 

LAST 

215 

32  ,2117 

C 4616 

1 

TC 

BANKCALL 

j 116 

PFF 

1 

32,2120 

17715 

1 

CADR 

I MUST  ALL 

7 1 1 7 

REF 

2 

L AST 

215 

32,  212  1 

C 2122 

1 

TC 

A 5 SE  ND 

0118 

PFF 

1 

3?  ,2122 

0 5527 

1 

AGS  END 

TC 

DOWN  FLAG 

0119 

P EF 

2 

LAST 

214 

32,  2123 

CCC54 

0 

ADRES 

NODCF  LAG 

01  2 0 

RFF 

1 

32,2124 

3 2173 

0 

CAF 

V 50N 16 

'121 

PFF 

7 

LAST 

215 

32  ,2125 

C 4616 

1 

TC 

BANKCALL 

31211 

PFF 

1 

32,  2126 

20242 

0 

CADR 

G0MARK3 

' 1212 

RFF 

3 

LAST 

214 

32  ,2127 

1 5503 

0 

TCF 

FNDEXT 

1213 

REF 

4 

LA  ST 

215 

32,7130 

1 55C3 

c 

TCF 

ENCEXT 

0122 

PFF 

5 

LAST 

215 

32,  2131 

0 5 5C  3 

1 

TC 

ENDE  XT 

127 

32,2132 

64  3 75 

1 

SC ALEV  EC 

V LOAD 

MX  V 

3123 

R EF 

1 

3 2 , 2 l ? 3 

CCC25 

0 

VATTl 

0129 

PFF 

5 

LAST 

209 

32,2134 

01732 

0 

REF  SMMAT 

0 130 

32  ,2135 

72561 

0 

VXSC 

VSL2 

3 131 

REF 

1 

32, 2136 

2<202 

1 

VSCALE 

01311 

32  ,2137 

53255 

0 

VAD 

VAP 
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USER 'S  PAGE  NO.  3 E6  S3 


CALCULATE  AND  STORE  THE  TIME 


CFLAY  FOR  20  SEC  WHILE  THE  AGS 
OOWNLI  ST  IS  TRANSMITTED 


RETURN  TO  THE  OLD  DCWNLIST 


CHECK  I MUSE  FLAG. 

IMU  IS  BEING  USED  - DO  NOT  ZERO 
CHECK  FOR  IMU  USAGE  WHICH  AVOIDS  THE 
IMIJSE  BIT:  I.E.,  IMU  COMPENSATION. 
FREE.  GO  AHEAD  WITH  THE  IMU  ZERO. 

WAIT  .1  SEC  AND  TRY  AGAIN. 


I MU  I S NOT  IN  USE 

SET  IMU  ZERO  DISCRETE  FOR  320MSECS 
WAIT  3 SEC  FOR  COUNTERS  TO  INCREMENT 


A L I OW  V 3 7 


THIS  SECTION  ROUNDS  THE  VECTOR 


AND 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKL  IMA  BY  ZOROASTER 
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AGS  INI  TI  ALI  7ATI0N 


USER  'S  3AGF  NO.  A E6  S3 


1312  PEF  1 
nl  31  3 PEF  1 
C 131  A 

01315  REF  1 
013?  REF  2 
3133  REF  1 

0134 

0135  REF  6 
3136  REF  1 
0137 

01371  REF  2 

01372 

01373  REF  2 
51374  REF  ? 
01375 

013B  REF  3 
5139 

0140  REF  13 

0141  REF  4 
0 1 42 

C 143  RFF  14 

0144  REF  5 

0145 

0146  RFF  15 


LAST 


LAST 


LA  ST 

LAST 

LAST 

LA  ST 

LAST 
LA  ST 

LAST 

LAST 

LA  ST 


32,  2140 
32  ,2  141 

32.2142 

32.2143 
215  32  ,2144 

32, 2145 
32,2  1 46 

215  32  ,2147 
22,  2 150 
3?  ,21  51 

216  32  ,2152 
3 2,2153 

216  32  ,2154 

216  32,  21  55 

32,2156 
?1  6 32  ,21  57 

32,  21fc" 
214  3?  ,?  1 6 1 

21  6 32,2162 

32,  2163 
216  32  ,2164 

216  32,2165 

32, ? 1 66 
216  32  , ? I 67 


24204  1 
24212  1 
17634  0 
21754  1 
24025  C 
CCC 1 7 1 
74  321  1 
01 732  0 
2 42CC  0 
53212  0 
2420  4 1 
47C55  1 
24212  0 
21 7 c4  1 
77750  0 
O0C24  1 
72 1 ?C  0 
00155 
0002 6 0 
72130  0 
CO  1 60  0 
CCC30  1 
43530  0 
00162  1 


AGSRNOl  CORRECTS  FOR  THE  FACT  TEAT  THE  AGS 

AGSRND2  IS  A ? S COMPLIMENT  MACHINE  WHI  l E THE 

RTB  LGC  IS  A 1 S COMPLIMENT  MACHINE. 

VFC  SGNAG 
STOVL  V ATT  1 
RATT1 

M XV  VXSC 

REFSMMAT 
R SC ALE 

V SL  3 V A 0 AGAIN  THIS  SECTION  ROUNDS.  TWO  VECTORS 

AGSRND1  ARE  ADDED  TO  DEFEAT  ALSIGNAG  IN  THE 

VAD  RTB  C AS  F OF  A HIGH-CPCFP  7FR0  COUPLED  WITH 

AGSPND2  A LOW  ORDER  NEGATIVE  PART. 

VECSGNAG 

LXA  , 1 

V ATT  1 
S X A , 1 L X A , 1 

M P AC  +1 

V ATT  1 +2 

SXA  , 1 L XA  , 1 

MP  AC  +4 
VATT1  +4 
S XA  , 1 PVQ 

M P AC  +6 


0148 
D 1 4 8 5 

Cl  4 9 REF 
01495 
51496  REF 
Ol  497 
0150 
5159 
01  51 
0 152 

0152 

0153 
5153 

01531 
0 1531 
5 1532 

01532 

01533 
01533 
r 1534 
91534 

01535 
0 1535 
51536 

01536 


6 L AST 


189 


4753 
32  ,2  170 
32,2171 
60  1C 
3?  ,21  72 
4242 
32,2173 
32  ,2174 
32,  2 175 
32  ,2  176 
3?  ,2  177 
32,  2200 
32  ,2201 

32. 2202 

32.2203 
32  ,2  2 C4 
32,  22C  5 
32  ,2206 
32  ,2207 
32,  22  10 
32  ,2211 
32,  22  1 2 
32,2213 
32  ,2214 
32, 2215 
32  ,2216 


00216  1 
1 4 4 C 0 C 

C1420  O 

14420  l 
03100  0 
CCCCO  1 
0 37  20  1 
15077  0 
05041  1 
24402  1 
25724  1 
GOOOC  1 
• I 1 
crcco  i 

6f  000  1 
00000  1 
6COOO  1 

ooooo  i 

37777  1 
OOOOO  1 
37777  1 
COCCO  1 
37777  1 


LAGSLI  ST  = LINE 

VO  IN  14  VN  0114 

V50NOOA  VN  5000 

VCCN  25  EO  UAL  S OC  T3  1 

V06N16  VN  06  16 

V00N34  EQUALS  34  DEC 

V50N16  VN  5016 

TSCALE  2 DEC  100B-10  CSEC  TO  SEC  SCALE  FACTOR 

20  S EC  DEC  2000 

RSCALE  2 DEC  3.280839  B-3  METERS  TO  F FET  SCALE  FACTOR 

VS  CAL  F 2 DEC  3.280839  E2  B-9  METERS/C  S TO  FEET/SEC  SCALE  FACTOR 

AGSPNDl  20CT  GOOGO60C0C 

2 OCT  0000060000 

2 OCT  0000060000 

AGSRND2  2 OCT  5000037777 

20CT  0000037777 

20CT  C 00003  7777 


GAP  : 


ASSFPRLF  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


AGS  TNI  TI  A Li  7 A 71  ON 


■154  REF 


. 


SBANK=  LOWSUPER 
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USER  'S  PAGE  NO.  5 E6  S3 

FOR  SUBSEQUENT  LOW  2CADRS  . 


SAP  : 


ASSEMBLE  PF  VI  SIGN  56  CF  ASC  PRGGR  AM  ZEPLINA  BY  ZOPO  AST  £R 


FPFSH  START  AN  C RESTART 


PO  743 

'7s 

3 376 
0077 


10,?  TOO 
05,  2000 

05  ,2464 


BANK  10 
SFTLOC  FRANORES 
BANK 


0679 

008C 

33al 


3 LAST 
2 LAST 


44: 

05,2  4 64 
05,  ? 46 5 


0004 

3122 


COUNT*  SS/START 
INHINT 

TC  STAPTSUR 


Of  R2 

0083 

0004 

0085 

0086 


PEF 

RFF 

REF 


23  LAST  180 


"5  ,2466  1 2473  1 STAPTSW  TCF  SKIPSIM 

05,2467  3 4736  l STARTSIM  CAF  BIT14 

05,  2470  C C1C5  0 TC  F I NO  VAC 

05  ,2471  77777  C SIM2CACR  OCT  77777 

05,  2472  77777  0 OCT  77777 


0087  RFF 
Of  87  1 RFF 
3 3 872  REF 

0088  RFF 


05.2473 

05.2474 
- 5, 2 , 75 

05  ,2476 


3 1035  0 
7 4771  ■ 
6 4735  1 
55  '0  35  1 


SK  IPS  IM  CA 


0 SPTAB  ♦ l ID 
BITS4F.6 
B I TlS 

DSP  TAB  +UD 


0003  RFF 
0093 1 RFF 
009315  PFF 
00^32  RFF 
009325  REF 
00933  REF 


LAST 
LAST 
LAST 
LAST 
I AST 
LAST 


20  2 
218 
218 
200 


C 5, 2477 
0 5,  2500 
05,2501 
05,  25C2 

, - 

05,2504 


2 4755  1 
c 5 ' 3 6 5 1 
54  375  1 
54  376  1 
54  377  0 
54  320  1 


ZERO 
E PC  HUNT 
FA  ILR  EG 
F A I LREG  +1 
FAILREG  +2 
RECOCTR 


,25 

, 


05 


" m 


0094 

3395 

0096 

C097 

0098 


RFF  24  LAST  218 

REF  7 LAST  186 

REF  0 LAST  218 

REF  1 


05 ,251  1 
15,  2512 
05  ,2513 
05,25  14 
0 5,  25  15 


3 4736  1 
r C0C6  1 
01  011  0 


DCFST  ART  CAF 

E XTEND 
WR  ITE 


DSALMOUT 
ZERO 
THR  OST 


0099  PFF 
3 13  3 REF 
OlOl  RFF 
010  2 REF 


"5,251  6 
05,  25  17 

. 

05,2521 


3 4751  0 
55*  262  1 
3 4355  0 
54  366  0 


D0FSTPT1  CAF 


FOUR 
RCSFL AGS 
PRIO  30 
RESTREG 


0 1 J 3 PFF 

0104  RFF 

0105  REF 

0106  REF 


05,  2522 
05  ,2  523 
05,2524 
) 5,  2525 


3 4755  1 
55*247  f 
54  371  0 
c c * C 7 1 1 


Z FRO 
ABDEL  V 
NVS AVE 
EBANKTE  M 
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USER'S  PAGE  NC.  1 EL  S? 


FRFSH  AND  REST  APT 

FRESH  START.  COMES  HERE  FROM  PINBALL. 
SUBROUTINE  DOFS  MCST  OF  THE  WORK. 


PATCH.... TCF  STAPTSI  M.  . .FOR  SIMULATION 


PATCH  2CADR  (AND  E SANK  DESIGNATION)  OF 
SIMULATION  START  ADDRESS. 


TURN  OFF  ALL  OSPTAB  + 1 ID  LAMPS 
FXCEPT  THE  GIMBAL  LOCK  C NO  ATT  ONLY  ON 
REQUESTED  FRESH  START. 


ZERO  CHANNE  L 77 


INSURE  ENGINE  IS  OFF. 


INITIALIZE  ATTITUDE  ERROR  DISPLAYS. 
SUPER  BANK  PRIORITY  FOR  DISPLAYS. 


DAP  I NI  TI  Al  I ZATION 
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9:12  CCT.  21,1970  7 ERL  A 1 0 .00  1 PAGE  219 


I FRESH  START  AND  RESTART 


USER'S  PAGE  NO.  2 E3  S3 


0107  REF 
OlPR  RFF 
0109  REF 
3110  REF 

0111  REF 

0112  REF 
3113  REF 
f’114  REF 
3 115 

C.11S  RFF 
0117 

3 1 1 R REF 
01 1 9 

0120  RFF 
3121 

0122  RFF 

0123 

0124  RFF 

0125  |<  TF 
3126  REF 
0127  REF 
0 128 

3129  REF 
0130 

3131  RFF 
0132  REF 


LA  ST 
LAST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 


198 

190 

111 
11  1 
21  5 
215 
113 


LAST  193 


LAST  1 R 1 
LAST  218 
LAST  218 
LAST  215 

LAST  219 

LAST  219 


05,  2 5 27 
05  ,2530 
3 5,  2 5 2 1 

05.2532 

05.2533 

05. 2534 
05  ,2535 
C 5 , 2 5 2.6 
05,  2537 
05,2  540 
05,  2 c A 1 

05.2542 

05.2543 

05. 2544 
05  ,?5A5 

05.2546 

05. 2547 
05,2550 
0 5,  2 551 

05.2552 

05.2553 
05,  2554 
05  ,2555 
05,2556 
05,  2557 


55*257  1 
55*260  0 
55*273  1 
5 c ' 360  1 
55*362  0 
54  333  0 
55*221  1 
55*501  0 
C CCC6  1 

0 1 0 C 5 0 
C 0006  1 
Cl  CC  6 0 
0 0006  1 
Cl  012  0 
C 0006  1 

01  013  1 
C 0C06  1 
01  014  0 
4 1035  1 
7 A 771  0 
10  000  0 
C 2557  1 
3 4771  1 
0 0006  1 
C 5 012  1 
0 2657  1 


TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

EXTEND 
WR  I TE 
EXTEND 
WR!  TE 
EXTEND 
WRITE 
E XTEND 
WR  ITE 
EX  TEND 
WR  I TF 
CS 

MASK 

CCS 

TC 

CA 

EXTEND 

WOR 

TC 


CH5  MAS  K 
CH  6MA  SK 
PV  ALVEST 
EPESTORE 
SMODE 
DNLST COD 
AG  SWORD 
UP  SVFLAG 

ZHAN5 

CHAN6 

CHAN12 

CHAN  13 

SHAN14 
DSPTAB  + 1 ID 
B I TS4C6 
A 

PI  T SAC 6 

CHAN12 
MR  . KLFAN 


FOR  RCS  FAILURE  MONITOR 

*****  MUST  mqT  eE  REMOVED  FROM  DOFSTART 

*****  MUST  MOT  BE  REMOVED  FROM  DOFSTART 

SELECT  POO  DOWNLTST 

ALLOW  AGS  I NIT  I AL  I 2 AT  ION 

ZERO  UPDATE  STATE  VECTOR  REQUEST  FLAG  WKD 

TURN  OFF  PCS  JETS. 

TU  PN  OFF  RCS  J ETS  . 


THF  I MU  WAS  IN  COARSE  ALIGN  IN  GIMBAL 
LOCK,  SO  PUT  IT  BACK  INTO  COARSE  ALIGN. 


133  RFF  10  LAST  21R 

5134  REF  1 


05,2560  4 4755  0 

05,  2561  55'  CIO  0 


CS  ZERO 

TS  MODREG 


i 135  REF  1 

D 1 36  RFF  39  LAST  211 


05,2562  3 3374  1 

. 


CAF  IM30INIF  FRESH  START  I MU  INITIALIZATION. 

TS  I M0DES30 


‘ 137  REF 
0138  RFF 
139  RFF 
0l4C  REF 
0141  REF 
1142  REF 
C,  1 4 3 RFF 
0144  REF 
)J<*5  REF 


LAST  110 
l A ST  218 

LAST  202 


05, 2564 
05  ,2565 
25,2566 
05,  2567 
C5,257(i 
C 5,  25?  l 

05. 2572 

05.2573 
E6,  1 4C0 


2 :ic2  1 

55*343  0 

3 4751  C 
55*222  1 
3 3076  0 
55  111  1 
3 5(15  0 
54  003  0 


CAF  MAXDB 

TS  DB 

CAF  FOUR 

TS  RATETNDX 

CA  BOCLSTRT 

TS  DAPBCOLS 

CAF  E BANK  6 

TS  E HANK 

EBANK=  HI  ASCENT 


INITIALIZE  KALCMANU  R AT  F 


01451  PFF 
'145?  RFF 

1453  RFF 

1454  RFF 
D 1 46  REF 
0H7  REF 
0148  RFF 


1 

1 
1 

2 1 A ST  134 
1 

2 LAST  2 1o 
1 


05  ,2574  3 3074  1 

C 5, 25 75  c 5 ' 444  0 
05,  2576  2 3075  0 

75  ,2577  55*476  1 

25,  2600  2 2 000  C 

05.2601  55*400  0 

05.2602  3 3C77  1 


CA  ST  IK  STR  T 

TS  STIKSENS 

CA  R A TF  STR  T 

TS  -RATEDB 

CAF  FULLAPS 

TS  HIASCENT 

CA  7700  lOCT 


INITIALIZE  MAXIMUM  ASCENT  MASS  FDR  USE 
BY  1/ACCS  UNTIL  THE  PAO  LOAD  IS  DONE. 
LOAD  OAP  FILTFR  GAINS  PAP  LOAD 


7AP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  2 ERL  IN  A RY  ZOROASTER 


FRESH  START  AND  RESTART 


0140 

RFF 

1 

G5 , 26C  3 

5 5 ’ 4C  3 

0 

TS 

DKTRAP 

0150 

PFF 

1 

95,2604 

5 5' 406 

0 

TS 

L MTKAP 

3151 

P EF 

1 

05, 2605 

0 

CA 

0152 

RFF 

1 

, 

55*405 

0 

TS 

DKKAOSN 

0153 

P EF 

1 

95.26C7 

55*410 

1 

TS 

LMKAOS  N 

0l54 

p EF 

1 1 

L AST 

219 

0 5,  26  10 

3 4755 

CA 

ZERO 

0 155 

REF 

1 

t 

55*407 

1 

TS 

LMOMEC-AN 

3156 

RFF 

2 

L AST 

215 

05,  2612 

2 4363 

0 

CA 

TEN 

0157 

REF 

1 

05,2613 

55*404 

1 

TS 

UKOMEGAN 

0 158 

RFF 

17 

LA  ST 

197 

65,2614 

3 4744 

1 

CAF 

RIT8 

3159 

RFF 

1 

05,  26  15 

55*411 

0 

TS 

OKOB 

ni  60 

RFF 

1 

95  ,2616 

3 5026 

0 

CAF 

IM  33  IN  IT 

0161 

RFF 

22 

LA  ST 

214 

05,2617 

6 4746 

0 

AO 

P IT6 

0162 

REF 

22 

LAST 

212 

05,  2620 

5 5 • 300 

1 

TS 

I MODE  S 33 

0163 

05  ,2621 

C 0006 

1 

EXTEND 

316* 

REF 

1 

05,  2622 

3 34 C 1 

1 

OCA 

SWI  NI  T 

n 165 

RFF 

1 R 

LAST 

291 

05  ,2623 

5 2 075 

1 

DXCH 

STATE 

0 166 

P EF 

2 

LA  ST 

220 

05,2624 

3 3402 

1 

CA 

SWINIT  +2 

3167 

REF 

19 

L AST 

220 

05,  2625 

54  076 

1 

TS 

STATE  +2 

0168 

REF 

2 

1 A ST 

213 

05  ,2626 

3 4737 

0 

CA 

REFSMQ  IT 

n 68  5 

P EF 

1 

05,  2627 

« 4741 

1 

AD 

N0P07  BIT 

> 169 

REF 

20 

LAST 

22C 

0 5,  26  30 

7 OC  77 

0 

MASK 

STATE  +3 

0176 

PFF 

3 

l A ST 

22C 

05,2631 

6 3403 

0 

AD 

SW  IN  IT  43 

3 171 

REF 

21 

1 AST 

220 

05,  2632 

54  C77 

0 

TS 

STATE  +3 

0172 

05  ,2633 

0 0006 

1 

EXTEND 

0173 

REF 

4 

LA  ST 

220 

05,2634 

3 3405 

0 

OCA 

SWINIT  44 

3 1 74 

PEF 

22 

L AST 

220 

05,  2fc  35 

c 2 101 

0 

DXCH 

STATE  44 

0175 

05  ,2636 

0 C 006 

1 

EX  T EN  0 

0176 

RFF 

5 

LAST 

220 

0 5,  2 6 ? 7 

3 34C7 

l 

OCA 

SWINIT  46 

01  77 

REF 

23 

LAST 

220 

05,  2640 

52  103 

1 

DXCH 

STATE  4 6 

017B 

REF 

1 

05,2641 

3 3 073 

0 

CA 

OCT  6200 

3131 

REF 

24 

LAST 

220 

C 5,  264  2 

7 C1C4 

0 

MASK 

STATE  480 

6 1 82 

RFF 

6 

LAST 

220 

U5  ,2643 

6 3410 

1 

AO 

SWINIT  4 80 

0 183 

RFF 

25 

LA  ST 

22C 

0 5,264  4 

c 4 104 

0 

TS 

STATE  480 

Ol  84 

REF 

7 

L AST 

22o 

05,  2645 

3 ? 4 1 1 

0 

CA 

SWI  NI  T 4 0(3 

0185 

RFF 

26 

1 AST 

220 

05  ,2646 

54  105 

1 

TS 

STATE  490 

3186 

REF 

1 

05,  2647 

2 4737 

0 

CA 

APSFLBIT 

Ol  87 

REF 

27 

LAST 

22Q 

05,2650 

7 0106 

1 

MASK 

STATE  4 10D 

P 1 R8 

REF 

8 

LAST 

220 

05  ,2651 

6 3412 

0 

AD 

SWINIT  4100 

3189 

REF 

28 

L AST 

220 

C 5,  26  5 2 

5 4 1C6 

1 

TS 

STATE  4l0D 

0190 

REF 

9 

1 AST 

220 

05  ,2653 

3 3413 

1 

CAF 

SWINIT  4 HD 

0191 

RFF 

29 

LA  ST 

220 

05,2654 

5 4 10  7 

0 

TS 

STATE  4110 

0192 

RFF 

2 

LAST 

17  1 

05,  2655 

0 4635 

0 

ENDRSTRT  TC 

POSTJUMP 

0193 

REF 

1 

05,2656 

03212 

0 

CACR 

DUMMY  JOB  4 ; 

3194 

05,  2657 

C 00C4 

0 

MR.  KLEAN  I NHI  NT 

01  95 

05,2660 

0 00C6 

1 

E XTEND 

9:12  OCT.  21,  1970  ZEPLAID  .001  RAGE  220 

J S ER  • S PAGF  NO.  3 E6  S3 

TO  BEST  PRESENT  FSTIPATE  GF  GOCCIES 
.14  DEG 

6 SEC  GAIN  FOR  ALPHA 
UN  ITY  GA  IN 

l SEC  GAIN  FOR  CMFGA 

SET  DOCK  ED  03  TO  1.4  DEG.  MAY  OVERWRITE 
WITH  PAD  LOAC. 

KFFP  BOTH  DAP  AND  ERROR-NEEDLES  DISPLAY 
OFF  UNTIL  ICCU  7 ERG  IS  FINISHED. 

INITIALIZE  SWITCHES  ONLY  ON  FRESH  START. 


DO  NOT  ALTER  REFSMFLG  ON  TRESH  START. 
N0D0P07 


CMOONFLG,  LM30NFLG,  SURFFLAG 


DO  NOT  ALTER  APS  FL  AG  ON  FRESH  START. 


NGW  I N ANOTHER  BANK 
PI  CKS  UP  AT  REL  INT. 


(I'ONT  ZERO  NEWJOBI 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L FRESH  START  AND  RESTART 


0196 

REF 

2 

L AST 

163 

05,  2661 

3 4755 

1 

OCA 

NEGO 

01  97 

RFF 

1 

05,2662 

52  754 

0 

OXCH 

-PHA SE  2 

0 198 

05,2663 

0 0006 

1 

POCKLEAN 

EXT  END 

0199 

REF 

3 

L AST 

221 

05,  2664 

3 47  55 

1 

OCA 

NEGO 

0200 

REF 

1 

05  ,2665 

52  760 

1 

OXCH 

-PHASF4 

0 20  1 

05,2666 

C 0006 

1 

V37KLEAN 

EX  TEND 

02c2 

REF 

6 

L AST 

221 

05,  2667 

3 47  55 

1 

OCA 

NEGO 

0203 

REF 

1 

05  ,2670 

52  762 

0 

OXCH 

-PHASE5 

3234 

C 5,  2671 

C CCC6 

1 

A8TKLEAN 

EXTEND 

02  05 

REF 

5 

LAST 

221 

05,2  672 

3 4755 

1 

DC  A 

NEGO 

0206 

RFF 

1 

C 5 ,2  673 

52  756 

1 

OXCH 

-PHAS  E3 

3237 

C 5,  2674 

C OC  06 

1 

F X Tt  ND 

0208 

REF 

6 

LAST 

221 

05  ,2675 

3 4755 

1 

DC  A 

NEGO 

0 209 

REF 

1 

05,2676 

5 2 7 52 

0 

OXCH 

-PHAS  El 

02 1 0 

05,  2677 

C GC06 

1 

E X TEND 

021  1 

REF 

7 

LAST 

221 

35 ,2700 

3 4755 

1 

OCA 

NFGO 

3212 

REF 

1 

05,  27C1 

52  764 

0 

DXCH 

-PHASE6 

0213 

RFF 

H 

LAST 

198 

05,2702 

C 000? 

0 

TC 

Q 
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L FRESH  START  AN  C RESTART  USER'S  PAGE  NC.  5 E6  S3 

P 219  CCHES  HERE  FROM  LOCATION  9000,  GO  J AM . RESTART  ANY  PROGRAMS  WHICH  MAY  HAVE  BEEN  RUNNING  AT  THE  TIME 


0215  REF  9 
0217  RFF  9 


LAST  ?10  E 3 , 1900 

LAST  219  05,  2703  29 


EBANK  = LST1 

320  0 G3PR3G  INCR  REDOC  TR 


ADVANCE  RESTART  COUNTER. 


721? 
0220 
0 221 
7222 
0 223 
n 229 
0225 
r 226 

3227 
0 2 2 ft 
7 22° 


RFF 

RFF 

PEE 

REF 

REF 


REF 

RFF 

RTF 


15 


2 

19 

15 


23 

In 


LAST  221 

I AST  2 >1 
LAST  219 
LAST  177 

LAST  2 20 
LAST  219 


C 5,  2 7 C 5 
0 5,2  706 
05,27C7 
C 5,  2710 
05  ,271  1 
C5 ,2712 
05,  2713 
05  ,2719 
05,  2715 
05,2716 
05,271  7 


22  DO?  0 
C CCC6  1 
09  u07  l 
5 3 ' 933  0 
3 1035  0 
7 9750  0 
C 0006  1 
1 2717  0 
6 9796  0 
C CL06  1 
05  012  1 
C 3103  0 


BUTTONS 


LX  CH  0 

E XTEND 

ROR  SUPERBNK 

DX  CH  RSB8Q 

CA  USPT  A0  +1  1 D 

MASK  B I T9 

EXTEND 
BZF  + 9 

AD  0 IT 6 

EXTEND 

WOR  CHAN12 

TC  LIGHT  SET 


SET  ERROR  COUNTER  ENABLE 
I SS  WAS  IN  CHARS  ALIGN  SO  GO  BACK  TO 


R3233 
R 0 232 
R 0 2 3 9 
R0236 


ERASCMK  TEMPORARILY  STORES  THE  CONTENTS  CF  TWC  ERASABLE  LOCATIONS,  X 
AMO  XU  INTO  SKEEP5  ANO  SKEFP6.  IT  ALSO  STORES  X INTO  SKEEP7  AND 
ERESTCRE.  IF  ERASCHK  IS  INTERRUPTED  BY  A RESTART,  C(ERESTORE)  SHOULD 
EQUAL  C(  SKEEP  7)  ,AND  RE  A + NUMBER  LESS  THAN  2000  OCT.  OTHERWISE 


1 "23ft 


C(ERESTQRE)  SHOULD  EQUAL  +f  . 


3239 
029  0 
0291 
3292 
C 29  3 
7 299 

0295 

0296 
7297 
029  ft 
•299 
7253 

0251 

0252 

0253 
0259 
7255 

0256 

0257 
725ft 
0259 


RFF 

REF 

RFF 

REF 


RFF 

RFF 

REF 

RFF 

REF 

REF 

REF 

REF 


2 

2 

2 

2 

2 

12 

5 

2 


I A ST 


I AST 
LAST 
LA  ST 

LAST 

LAST 

LAST 
L AST 
LAST 


163 

1 


222 


222 

111 

219 

111 

222 

220 
222 
21  8 


C 5,  2720 
05, ?72  1 
C5 ,2  722 
C 5,  2723 
95  ,2729 
05,2725 
05,  2726 
05  ,2727 
05,  2730 
05,  7731 
05,2732 
C 5,  2733 
05  ,2739 
05,2735 
05,  2736 
05  ,2737 
05,  2790 

05.2791 

05.2792 
05,  2793 
05  ,2799 


2 9350  C 
7 1360  1 
C 0006  1 
1 2725  1 
1 3120  0 
9 13  60  1 
0 0006  1 
1 2799  0 
6 1377  0 
C OC06  l 
1 2739  1 
1 2120  C 

3 1379  0 
59  003  0 
0 0006  1 
3 1376  1 
c 1 ' 377  0 
52  001  1 
3 9755  1 
55*360  1 
0 3122  0 


CAF 

MASK 

EXTEND 

BZF 

TC  F 

CS 

E XTEND 
BZ  F 
AD 

EXTEND 

BZF 

TCF 

CA 

TS 

E XTEND 
OCA 
I NDE  X 
DXCH 


CA 

TS 

DOPSTART  TC 


HI  5 

ERESTORE 
♦ 2 

NDNAVKEY  *3 
ERESTORE 

DORSTART 

SKEEP7 


NONAVKE Y +3 
SKEEP  9 
EBANK 

SKEFP5 

SKEEP7 

0000 

ZERO 

ERESTORE 
STAR  TSUB 


IF  ERESTORE  NOT  = +0  OR  +N  LESS  THAN  2K  , 
DO  FRESH  START  - E MEMORY  MIGHT  BE  BAD 


= +0  CONTINUE  WITH  RESTART. 


= SKEEP7,  RESTORE  E MEMORY. 

DO  FRESH  START  - E MFMOPY  MIGHT  BE  BAD 


EBANK  OF  E MEMORY  THAT  WAS  UNDER  TEST. 
(NOT  DXCH  SINCE  THIS  MIGHT  HAPPEN  AGAIN) 


E MEMORY  RESTORED. 


DO  INITIALIZATION  AFTER  ERASE  RESTORE. 


0 271 
02  72 
0273 


05,2795 
LAST  83  C 5 , 2796 


9 9736 
7 0106 


C 


SFTINFL  CS  I NT  F LB  IT 

MA  SK  F LG  WRD  10 


REF 


3 LAST  222 


05,2797  59  106 


TS  FLGWRD10 


AP:  ASSFMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


FRESH  START  AND  RESTART 


02  74 

P.EF 

1 

0 5,  2750 

3 3376 

0 

CA 

9,6,4 

0275 

REF 

20 

LAST 

222 

05,2751 

7 1035 

1 

MASK 

DSPTAB  +1 

3276 

REF 

18 

L AST 

218 

C 5,  2752 

6 4735 

1 

AO 

BI  T15 

0277 

RFF 

21 

LAST 

223 

0 5 ,2753 

57  '035 

0 

XCH 

DSPTAB  +1 

0278 

PEF 

l 

05,2754 

3 336  2 

0 

CAF 

I FAIL  INH 

3279 

REF 

4C 

L AST 

219 

05,  2755 

7 1277 

0 

MA  SK 

I MODE  S3  0 

02  80 

REF 

1 

05  ,2756 

6 3375 

0 

AD 

IM  30  IN  IR 

028  1 

P EF 

41 

1 AST 

223 

C 5,  2757 

55*277 

0 

TS 

I MODES30 

0282 

REF 

3 

LAST 

219 

05,2760 

3 1321 

0 

CA 

AGSWQPD 

0283 

REF 

6 

LAST 

219 

05,2761 

54  333 

0 

TS 

DNLSTCOO 

3284 

REF 

1 6 

L AST 

222 

05,  2762 

3 4750 

1 

CA 

BI  T4 

0285 

05  ,2763 

0 0006 

l 

EXTEND 

0 286 

REF 

4 

LA  ST 

21  9 

05,2764 

05  014 

1 

WOR 

CHAN14 

02  87 

REF 

c 

L AST 

192 

05,  2765 

4 old 

0 

C S 

= LAG WRD5 

0288 

REF 

2 

LAST 

180 

05  ,2766 

7 4 745 

1 

MASK 

ENG0N8  IT 

3289 

REF 

39 

LAST 

219 

C 5,  2767 

1 c cco 

0 

CCS 

A 

0290 

05,2770 

1 2775 

1 

TCF 

♦ 5 

0 29  1 

REF 

17 

LA  ST 

174 

05,2771 

3 4737 

0 

CAF 

BIT  13 

3292 

C 5,  2772 

C OC06 

1 

EXTE  ND 

0293 

RFF 

8 

LAST 

218 

C5  ,2773 

05  011 

1 

WOR 

DSALMOUT 

0 29  4 

P FF 

1 

05,2774 

1 3011 

0 

TCF 

GnppnG3 

02  95 

PEF 

25 

L AST 

218 

05,  2775 

2 4736 

1 

+ 5 

CAF 

31  Tl4 

0296 

05  ,2775 

0 0006 

1 

EXT  ENO 

3237 

REF 

9 

LAST 

223 

05,  2777 

C 5 oil 

1 

WOR 

DSALMCUT 

02  98 

REF 

2 

LAST 

223 

05,  3000 

1 3C1 1 

p 

TCF 

3UPROG3 

0 299 

. ! 

C 0004 

0 

ENEMA 

1 NHINT 

3303 

REF 

1 

35,  3 ( C 2 

C 2 131 

1 

TC 

STARTSBl 

0301 

RFF 

1 

. 

1 3005 

0 

TCF 

GOPROG2A 

0 30  2 

REF 

1 

C5  ,3  004 

0 3174 

0 

GCPR0G2 

TC 

ST  ARTSB2 

0.3  0 3 

RFF 

2 

L AST 

222 

05,  3005 

C 2 10  3 

0 

GUPRDG2A 

TC 

LIGHTSET 

0304 

RFF 

1 

05  ,3006 

4 3101 

0 

cs 

RSFLGBTS 

3335 

P FF 

4 

L AST 

2 22 

5,  3 27 

7 01C6 

1 

MASK 

F LGWRD10 

03  06 

RFF 

5 

LAST 

223 

1 

54  1C6 

1 

TS 

F LGWRD 10 

0 30  7 

RFF 

1 

216 

. 

3 4756 

1 

G0PR0G3 

CAF 

NUMGRPS 

3338 

RFF 

16 

L AST 

• 

54  1t1 

0 

PC  LOOP 

TS 

MP  AC  +5 

0309 

05  ,3013 

6 0000 

1 

D0U8L  F 

0 31' 

. 1 » 

C 000  6 

1 

EXTEND 

0311 

RFF 

4C 

LAST 

223 

D % 30  15 

5 0000 

1 

INDE  X 

0 312 

RFF 

2 

LAST 

221 

. : ■ 

3 0752 

1 

OCA 

-PHASE  1 

3313 

rc,  3017 

C 0CC6 

1 

E X TF  ND 

03H 

RFF 

7 

LAST 

198 

C 5,  3020 

C6  CC1 

0 

RXOR 

I.CHAN 

0 315 

REF 

41 

LAST 

223 

5 . ' 121 

1 0 000 

0 

CCS 

A 

3316 

RFF 

1 

05,  3 .22 

1 3C70 

1 

TCF 

PT8A0 

0317 

RFF 

2 

LAST 

223 

1 . 

1 3070 

1 

TCF 

PTBAD 

0318 

REF 

3 

LA  ST 

223 

. 

1 30  70 

l 

TCF 

PT  BAD 
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LEAVE  PROG  ALARM, GIMBAL  LOCK,  NO  ATT 
LAMPS  INTACT  ON  HARDWARE  RESTART 

LEAVE  IMU  FAILURE  INHIRITS  INTACT  ON 
HARDWARE  RESTART.  RESET  ALL  FA  II  J R E 
CODES. 

BE  SURE  OF  CORRECT  DOWNLIST 

TURN  ON  THROTTLE  COUNTER 
TURN  ON  THRUST  CR  IVE 


TURN  E NGI  NE  ON 


TUPN  ENGINE  OFF. 


CLEAR  BI TS  7 AND  1 A. 

VERIFY  PHASE  TARlF  AGREEMENTS 


COMPLEMENT  INTO  A,  DIRECT  INTO  L. 
RESULT  MUST  BE  -0  FOR  AGREEMENT. 


RESTART  FAILURE 


.AP:  ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY 


0321 

032? 


FPFSH  START  AND  RESTART 

REF  17  LAST  22  3 
PFF  1 

RFF  1R  LAST  224 


05t3o27  e4  1 62  C 
C5,3030  C 5326  0 


, 3 Q 3 1 C rcC4  0 


0 32  A 
° 32 5 

0325 


PFF 
P FF 
RFF 


:■  5 , 30  32  A A736  0 
C 5 » 3033  1 C C 75  1 

05,  3q3A  FA  C75  1 


i | i 

3 326  4 P. FF 
03266  REF 


C 5 ,3  035 
Tf,  3036 
05  ,3037 


A A7A0  1 
7 TC75  1 
5 A 075  1 


'3267  RFF 
0326  8 RFF 
03265  REF 


C 5 , 3uA0 
0 5,  30  A 1 
05  , 30  A2 


0327 
C 3?  P 
0 326 

0330 

0331 

0332 

0333 


RFF 

REF 

RFF 

REF 


A?  L AST  223 


C 5,  3C  A 3 
0^, 30 A A 
05  ,3045 
C 5,  3 C A 6 
0 5 ,3047 
05,3050 
05,  3051 


3 A 7 56  1 
5 A 161  0 
6 0000  1 
5 C CCC  1 
10  752  0 
1 3052  1 
1 3057  1 


3 3A 
03  35 

0335 

0337 

0338 

0339 
03  AO 


REF 

REF 

REF 

RFF 

REF 

RFF 

REF 


LAST 
I AST 
LAST 
LAST 


22  A 
22A 
2 2 A 
215 


23  LAST  22A 


05,3052 
C 5,  3CF3 
05 » 305A 
C 5 , 3 055 
C5, 3056 
05,3057 
Oc, 3060 


5A  15A  0 
2 A 15A  1 
2 A 162  1 
C A616  1 

0 3 F 30  1 

10  161  0 
1 3CA A 0 


0?  A 1 
C 

0 3A3 

03  A A 

0 3A5 
0 3A6 
03A7 
03AR 
03  A 9 


REF 

PEF 

REF 

REF 

REF 
PFF 
P EF 


26  LAST  22a 


05,  306  1 
05,306? 
C 5,  3C63 
05, 306A 
05,3065 
OF,  3C66 
05  ,3067 
C 5 ,3070 
0 5,  30  7 1 


10  U2  0 

1 2655  1 

2 A735  1 
7 10  10  0 
C 0006  1 
1 6CC1  1 
1 2655  1 
C 5600  1 

0 1 1C  7 0 


REF 


05,3072  1 2516  0 
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CCS  M P AC  +5  PROCESS  ALL  RESTART  GROUPS. 

TCF  PC  LOOP 


TS  MPAC  + 6 SET  TO  +0. 

TC  MMDS  PL  AY  DISPLAY  MAJOR  MODE 

INHINT  R FLINT  DONE  IN  MMDS  PL  AY 

CS  DIDFLRIT  CLEAR  DIDFLAG  IN  CRDER  TO  FORCE  RIO  TO 

MASK  FLAGWRC1  P E- IN  IT  I AL  I ZE  ITSELF  IF  IT  HAD  BEEN 

IS  = LAG  WRD  1 CPF  PAT  I NG  AT  THE  TIME  OF  THE  RESTART. 


CS  POOFLBIT  CLEAR  RODFLAG.  IF  P66  IS  IN  OPERATION 

MASK  FLAGWRD1  IT  WILL  R E-  I N IT  I AL  I ZE  ITSELF  AND 

TS  FLAGWRD1  CONTINUE. 

CS  P21FLBIT  CLEAR  P 2 1 Fl  AG  SO  THAT  P21  WILL  COMPUTE 

MASK  =LA3WP.D0  NEW  BASE  STATE  VECTORS. 

TS  FLAGWR  DO 


CAF 

TS 

D0U8L  E 
I NOE  X 
CCS 
TCF 
TCF 


NUMGRPS  SEE  IF  ANY  GROUPS  RUNNING. 

WPAC  + 5 


A 

PHASE1 

PACTIVE  PNZ  - GROUP  ACTIVE. 

PINACT  +C  - GROUP  NOT  RUNNING. 


TS  MPAC 

I NCR  MPAC  ABS  OF  PHASE. 

I NCR  MPAC  +6  INDICATE  GROUP  DEMANDS  PRESENT. 

TC  BANKCALL 

CADR  RESTARTS 

CCS  MPAC  +5  PROCESS  ALL  RESTART  GROUPS. 

TCF  NXTRST 


CCS  MPAC  +6 

TCF  ENDRSTRT 

CAF  B I T 1 5 

MASK  MODREG 

EXTEND 

R7F  GCTCPOCH 

TCF  ENDRSTRT 

TC  ALARM 

OC  T 11 07 


NO,  CHECK  PHASE  ACTIVITY  FLAG 
PHASE  ACTIVE 
IS  MODE  -D 


NO 
YE  S 

S FT  ALARM  TO  SHOW  PHASE  TABLE  FAILURE. 


TCF 


DOFSTRT  1 


GAP:  ASSEMBLE  REVISION  *6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L FRESH  STAPT  AND  RESTART 

RT35?  00  NOT  USE  G0PR0G2  OR  ENEMA  Vil  THOLT  CONSULTING  POOH  PEOPLE 


R0354 

0355 

0 356 

0 357 

03571 

33572 

C359 

036D 

0361 

0363 

33631 

REF 

REF 

18 

3 

LAST 

L AST 

223 

218 

4737 
4355 
05  ,3073 
05  ,3  C74 

0 5,  30  75 
05  ,3076 

C 5,  3 C 7 7 
05, 3100 

C 5 , 3 1 Cl 
05,  3102 

06200 

32321 

77445 

21322 

77CC1 

00C74 

20100 

C3434 

0 

0 

1 

1 

0 

1 

1 

1 

CCT1000Q 
nc  T 30000 

STI KST  RT 

R A TF  S TR  T 
BOOLST  RT 
77001  OCT 
600EC 
RSFLGBTS 
MA  XDB 

OCT 

DEC 

DEC 

OCT 

OCT 

DEC 

OCT 

QC  TAL 

BIT  13 

PRI C30 
6200 

? .825268 
-21  R 

21322 

77001 

60 

20  100 
03434 

0364 

REF 

13 

LAST 

172 

. 1 3 

3 4747 

1 

L I GUTS  ET 

CAF 

R I T 5 

0365 

05 , 3 104 

0 CCC6 

1 

EXTEND 

0366 

REF 

1 

05,  3105 

0 2 016 

1 

RAND 

NA  VKE  YI  N 

0367 

05  ,3 106 

0 0006 

1 

EXTEND 

3363 

RFF 

3 

LAST 

222 

05,  3 l C 7 

1 3115 

0 

BZF 

NONAVKEY 

036  9 

0 5,  3no 

0 00C6 

1 

EXTEND 

0 370 

REF 

1 

05  ,3111 

00  015 

0 

READ 

MNKEY  IN 

3 37  1 

RFF 

1 

C 5,  3112 

6 337  3 

0 

AD 

-ELR 

0372 

05  ,3113 

0 0006 

1 

EXTEND 

0373 

C5,3  114 

1 3116 

0 

BZF 

+2 

C3  74 

REF 

16 

LAST 

222 

05,  3115 

C 0002 

0 

NONA  VK  E Y 

TC 

0 

I J.7S 

REF 

3 

LAST 

222 

05,3116 

0 3122 

0 

TC 

ST  ARTSUe 

3 3 76 

RFF 

1 

C5,  31  17 

1 l 1 

1 

TCF 

DOFSTART 

03  762 

RFF 

4 

LAST 

225 

05,  3120 

C 3122 

0 

+ 3 

TC 

STAR  T SUB 

o 3764 

RFF 

2 

LAST 

224 

C 5 , 3 1 2 1 

1 2516 

0 

TCF 

OOFST  RT  1 
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SURF3IT,  CMOONBIT,  LMCCNBI  T FOR  SWINITS 
20  D/S  MAXIMUM  COMMANDED  RATE 


.14  DEG  SCALED  AT  4.5  DEG 


5 OEG  ATTITUDE  OEACBAND,  SCALED  AT  45. 
CHECK  FOR  MARK  REJECT  AND  ERROR  RESET 


NO  MARK  REJECT 

CHECK  IF  KEYS  2M  AND  5M  ON 
MAIN  DSKY  KFY  CQCE  ( R IT  S 1-5) 


DO  FRESH  START  RUT  DON'T  TOUCH  ENGINE 


GAP:  ASSEMBLE  REVISION  56  (IF  AGC  PROGRAM  7ERLINA  RY  ZOROASTER 


L FRESH  START  AND  RESTART 

3 ' 3 77  INITIALIZATION  CCMMIA  TO  EOT  H FRFSF  START  AND  RESTART. 


3 3 78 

REF 

5 

L AST 

190 

E 6,  1 5^-S 

EBANK= 

AOSG 

r>^7Q 

RFF 

1 

. : ,3122 

3 3363 

1 

STARTSUB  CAF 

L DNPHA  SI 

0 380 

REF 

2 

l A ST 

101 

05,3  123 

54  335 

0 

TS 

DNTMGOTD 

Ao3  Rl 

A 0 38? 

? 3R3 

P EF 

24 

LAST 

222 

C 5,  3124 

? 4746 

0 

CAF 

Rl  T6 

0384 

05,  3125 

C GCC6 

1 

EXTEND 

0385 

REF 

3 

LAST 

1*8 

05,3126 

02  033 

0 

RAND 

CHAN 3 3 

3386 

REF 

1 

05,  3127 

6 3377 

1 

AD 

RNGDl  NI  T 

0387 

REF 

1 7 

LAST 

2m 

05  ,3130 

54  110 

f) 

TS 

f»  ADMflDE  S 

0388 

RFF 

2 

LAST 

177 

C 5 , 3 1 3 1 

2 4733 

1 

STARTSB1  CAF 

P OS  MAX 

>3  89 

REF 

1 

05,  3 132 

54  C 26 

1 

TS 

TI  ME  3 

0390 

RFF 

1 

05,31  33 

6 7760 

l 

AD 

MINUS  2 

3391 

REF 

A 

LAST 

166 

05,  3134 

54  C27 

0 

TS 

TI  ME4 

0392 

RFF 

1 

05,3  135 

6 7761 

o 

AD 

NEGONE 

0 39  3 

REF 

1 

05,3136 

54  030 

0 

TS 

i I M E5 

L AST 

~ cMc 

339^ 

REF 

2 

L 0 AN  K6 

0395 

RFF 

3 

LAST 

222 

05  ,3143 

54  00  3 

0 

TS 

EBANK 

0396 

RFF 

19 

LA  ST 

225 

0 c , 3 1 4 1 

4 4737 

l 

CS 

BIT13 

-'3961 

RFF 

2 

LAST 

218 

0 5,  3 142 

7 1262 

1 

MA  SK 

®:  SF  LAG  s 

0357 

REF 

3 

LAST 

226 

05,3143 

55' 262 

1 

TS 

R CS  FLAGS 

3357  1 

REF 

3 

LAST 

226 

C 5,  3144 

2 4 733 

1 

CAF 

POSMAX 

1)3972 

REF 

1 

05,3145 

55  '466 

0 

TS 

T6NE  XT 

0 397  3 

€5,3146 

0 0006 

1 

EXT  END 

3 39  7 A 

RFF 

2 

L AST 

219 

05, 3 1 47 

0 3 013 

0 

WAND 

CH AN1 3 

0398 

RFF 

13 

LAST 

222 

05  ,3150 

3 4755 

1 

CAF 

Z FRO 

0399 

REF 

1 

C5,2  151 

55' 465 

0 

TS 

NXT6  ADR 

0400 

REF 

3 

LAST 

134 

05,  3152 

55*472 

0 

TS 

NE  XTP 

0401 

P EF 

1 

05,3153 

4 **751 

1 

CS 

ACCS  OK  AY 

3432 

RFF 

4 

L AST 

219 

C c,  3 154 

7 0111 

1 

MASK 

DAPBPCLS 

0403 

REF 

5 

LAST 

226 

05,3155 

54  111 

1 

TS 

DAPBOOL  S 

0404 

05,3156 

C 0006 

1 

EXT  END 

3 43  5 

REF 

1 

0 5,  3 157 

2 3 36  1 

0 

DC  A 

IDLEADR 

0406 

RFF 

2 

LAST 

159 

05  ,3160 

53*  264 

l 

OX  C H 

T 5 A DP 

3436  1 

REF 

I 

C 5,  3161 

4 C 1 C 7 

0 

CS 

F LGWRD11 

04062 

REF 

1 

0 5,  3 162 

7 4735 

0 

MASK 

LRBYRI  T 

04063 

05,3163 

0 0006 

1 

EXTEND 

343635 

REF 

2 

L AST 

223 

C 5,  3164 

1 3 174 

1 

BZF 

ST  ART  SB2 

04064 

PFF 

10 

L AST 

160 

05  ,3165 

24  006 

1 

INCR 

BRANK 

04065 

REF 

2 

LA  ST 

154 

E 7 , 1477 

FBANK= 

ST  ILBADH 

04  066 

REF 

3 

LAST 

226 

05,  3 166 

11*677 

1 

CC  S 

STI  LBADH 
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SET  POINTER  SO  NF  XT  20MS  DCWNPUPT  WILL 
CAUSE  THE  CURRENT  OOWNLIST  TO  BE 
INTERRUPTED  ANC  START  SENDING  FROM  THE 
BEGINNING  OF  THE  CURRENT  OOWNLIST. 


CAUSE  DAP  IDLER  TO  CALL  1/ACCS 
ZERO  BIT  13 

DISABLE  TIMES  CLOCK.  JUST  IN  CASE  A T6 
RUPT  IS  ALREAOY  I A THE  PRIORITY  CHAIN, 
ENSURE  THAT  IT'S  INPUTS  WILL  RENDER  IT 
INEFFECTUAL. 


SET  T5RUPT  FOR  DAPIDLER  PROGRAM. 

IF  R12  IS  PERM  ITT  FD,  ENSURE  THAT  NEXT 
RADAR  READS  ARE  NCT  USED 

R12  OFF 

SET  EBANK  TO  7 

IF  STI LBADH>G, NEXT  READ  WILL  BE  IGNORED 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L FRESH  START  ANC  RESTART 


0406  7 

05,3167 

1 3171 

1 

TCF 

+2 

040675 

REF 

4 

LAST 

226 

05,  3 170 

' 

0 

I NCR 

STI LBADH 

0406  P 

REF 

2 

LAST 

154 

05,3171 

11*700 

0 

+2  CCS 

ST  ILBADV 

34369 

RFF 

3 

L AST 

226 

C 5,  3172 

1 3174 

1 

TCF 

STARTSB2 

040695 

RFF 

3 

- 1 AST 

221 

05  ,3173 

25  '700 

1 

I NCR 

ST  ILRADV 

0407 

REF 

1 

05,3174 

3 3372 

1 

ST  ART  S 82  CAF 

DCT3000 1 

0AO8 

05,  3 175 

C 0006 

1 

E XTEND 

C409 

PEF 

1C 

LAST 

22  3 

05,31 76 

03  011 

1 

WAND 

DSAl  MOUT 

3415 

REF 

1 

05,  3177 

4 3366 

0 

CS 

OCT320O1 

C4  l 6 

RFF 

18 

LAST 

226 

, 

7 011C 

0 

MASK 

PADMPDES 

0 4 IB 

RFF 

I'l 

LA  ST 

22  7 

0 5 , 3 2 Cl 

54  110 

0 

TS 

R ACMODES 

3419 

REF 

1 

05,  3202 

3 3 370 

0 

CAF 

GC  T2  7470 

0470 

05  ,3203 

0 0006 

1 

EXTEND 

0421 

REF 

17 

LA  ST 

22  2 

05,3204 

C.  3 C12 

1 

WAND 

CHAN12 

AC-422 

A 0423 

34232 

RFF 

2 

l AST 

192 

C 5,  32C5 

A 4750 

0 

C S 

NORRKBI T 

04234 

REF 

6 

LAST 

223 

05  ,3206 

7 0101 

0 

MASK 

FL  AGWRD5 

04236 

REF 

7 

LA  ST 

221 

C5  ,3207 

54  1C  1 

0 

TS 

FL  AGWRC5 

042  3 7 

REF 

1 

05,  3210 

A 4 7 A 1 

0 

C S 

R77FLRI  T 

042  3 8 

REF 

8 

LAST 

221 

05  ,321  1 

7 0101 

0 

MASK 

FLAGWRD5 

34239 

REF 

9 

LAST 

221 

C 5,  3212 

5 A 1C1 

0 

TS 

FLAGWRD5 

0424 

REF 

1 

05,  3213 

3 3371 

1 

CAF 

OS  T7416C 

3425 

05,3214 

C 0006 

l 

EXT  END 

3426 

REF 

3 

l AST 

226 

05,  3215 

C 3 C 1 3 

0 

WAND 

CH  ANl  3 

0427 

REF 

14 

LAST 

88 

05  ,3216 

3 A740 

0 

CAF 

B I T 12 

0428 

0 5 , ? 2 l 7 

C CCC6 

1 

EXTEND 

0429 

RFF 

L AST 

227 

05,  3320 

Cc  C 1 3 

0 

WOR 

CHAN  l3 

043  • 

RFF 

1 

05,3221 

3 4771 

1 

CAF 

OCT  50 

3431 

05,  3222 

C 0006 

1 

EXTEND 

0432 

RFF 

LAST 

2?3 

05,3223 

03  P 14 

1 

WAND 

CHAN  14 

3433 

RFF 

5 

l A ST 

222 

F 3 ,1  400 

E8ANK= 

LST1 

3434 

REF 

1 

05,  3224 

3 5C07 

0 

CAF 

STAR  TFB 

0435 

RFF 

LAST 

226 

05  ,3225 

54  003 

0 

TS 

FBANK 

3436 

R FF 

1 

C5, 

3 4734 

0 

CAF 

NFG1/2 

04*7 

RFF 

6 

LAST 

227 

05, *227 

c5'4C7 

1 

TS 

LST1  +7 

0438 

P FF 

7 

LAST 

221 

05,3230 

55*406 

0 

TS 

LST1  +6 

4 3 9 

REF 

8 

L AST 

221 

05,  3231 

cc  '4C5 

0 

TS 

LST1  +5 

0440 

RFF 

9 

1 AST 

221 

05  ,3232 

5 5 ' 404 

1 

TS 

LST1  +4 

0441 

REF 

1C 

1 A ST 

221 

05,3233 

55*403 

0 

TS 

LST1  +3 

3442 

RFF 

11 

l AST 

221 

05,  3234 

c5 '402 

1 

TS 

LST1  2 
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SET  STILBADH  TO  IGNORE  NEXT  READ 


IF  STILBADV  >0,NEXT  READ  WILL  BE  IGNDREO 
SET  STILBADV  TO  IGNORE  NEXT  READ 


DUPING  SOFTWARE  RESTART,  DO  NOT  OISTUPB 
ENGINE  ON,  OFF  AND  ISS  WARNING. 


DURING  SOFTWARE  RESTART,  DO  NOT  D 1ST  JR  B 
IMU  FLAGS.  (COURSE  ALIGN  ENABLE,  ZERO 
IMU  C DUS  t ENABLE  IMU  COUNTER)  AND  GIMBAL 
TRIM  DRIVES.  LEAVE  RR  LOGKON  FNABLE 
ALONE. 

ENABLE  R25. 


CLEAR  R77FLAG 


DURING  SOFTWARE  RESTART,  DC  NOT  DUS  T J R 8 
TELEMETRY  FLAGS,  RESET  TRAP  FLAGS,  AND 
ENABLE  T6RUPT  FLAG. 


REENABLE  RUPT10  ( RUPT  QUICKLY 
PESUMES  EXCEPT  DUPING  P 64  > 


DURING  SOFTWARE  RESTART,  DO  NOT  DISTURB 
GYRO  ENABLE  OR  THRUST  ENABI  E 


SET  FOR  F 3 

INITIALIZE  WAITLIST  DELTA-TS. 


GAP:  AS  S FMRL  E REVISION  56  IF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


PAGE  228 


L FRESH  START  ANC  RESTART 


9:12  OCT.  21,1970  ZERLAIO  .00  1 

USER'S  PAGE  NC.  11  E3  S3 


443 

0444 


REF  12  LAST  227 
REF  13  LAST  228 


c 5' 4C1  l 
55*400  0 


TS  LST1  +1 

TS  L ST  1 


• 445  REF 
3446  REF 
0447  PFF 

944 8 REF 
3449  RFF 
04  50  REF 

0451  RFF 

0452  REF 

0453  RFF 
3454  REF 

0455  RFF 

0456  REF 
3457  RFF 

0458  REF 

0459  REF 

0460  REF 

0461  REF 
3462  REF 

0 463  RFF 

0464  REF 


1 

2 LAST  22  8 

3 LAST  2? 8 

4 LAST  22  8 

5 LAST  22 8 

6 LAST  228 

7 LAST  228 

8 LAST  ??8 

9 LAST  228 
2 LAST  228 

10  LAST  228 

11  LAST  228 

12  LAST  228 
1?  I A ST  228 

1 4 LAST  228 

15  LAST  228 

16  LAST  228 

17  LAST  228 
IP  LAST  228 


05,3237  4 5247  1 

95,  3240  c 5 ' 4 1 f 1 
05  » 3 24 1 55  *412  0 

05,3242  55 1 41 4 0 

"5,  324  3 5 5 ' 4 1 6 1 

05.3244  55*420  1 

05.3245  c 5*  422  0 

05,  3246  55 '424  0 

05,3247  55'A?6  1 

C 5,  3250  55*  430  0 

05.3251  4 5250  1 

05.3252  55*411  0 

05,  3253  55  *4  1 3 1 

05  ,3254  5 5 ' 4 1 5 l 

05,3255  c 5*  417  0 
05,  3256  5 5 ' 4 2 1 0 

05,3257  55*423  1 

C5,  3260  5 5*425  1 

05.3261  55*427  0 

05.3262  55*431  1 


CS  E NOT  ASK 

TS  LST2 

TS  LST2  ♦ 2 

TS  LST2  +4 

TS  LST2  +6 

TS  LST2  +80 

TS  LST2  +100 

TS  LST2  +120 

TS  1ST?  +140 

TS  LST2  +16  0 

CS  ENOTASK  +1 

TS  LST2  +1 

TS  LST2  +3 

TS  l ST2  +5 

TS  LST2  +7 

TS  LST2  +90 

TS  LST  2 +110 

TS  LST2  <-130 

TS  L ST2  +150 

TS  LST2  +170 


C 4 68 
'469 
3473 
0471 
047? 
3473 


REF  1 4 LAST  226 

REF  1 

REF  2 LAST  228 

REF  3 LAST  22r 

PFF  4 LAST  228 

RFF  5 LAST  228 

REF  6 LAST  228 

RFF  7 LAST  228 

REF  8 LAST  22  8 


0 5,  3 26  3 4 4 755  0 

05  ,3264  54  167  0 

35,3265  54  2C3  1 

05,  3266  5 4 217  1 

05,3267  54  233  1 

06,  ?270  c 4 247  1 

05.3271  54  263  l 

05.3272  54  277  1 

05 , ? 27  3 5 4 31  3 1 


CS  Z FRO  MAKE  ALL  EXECUTIVE  REGISTER  SETS 

TS  PRIORITY  AVAILABLE. 

TS  PRIORITY  +12  D 

TS  PRIORI  TY  +240 

TS  PR  I OR  ITY  +360 

TS  PRIORITY  +480 

TS  PRIORI TY  + 600 

TS  PRIORITY  +720 

TS  PRIORITY  +340 


0474  REF  LO  LAST  218 

0476  REF  1 


05  ,3274  55*310 

05,3275  c 4 C67 


TS  OSKUPTSW 

TS  NEWJOR  SHOWS  NO  ACTIVE  JOBS. 


0476  REF 

0477  REF 
3478  REF 

0479  REF 

0480  REF 
3481  REF 

0482  REF 

0483  REF 

0484  REF 

0485  REF 


2 LAST  228 
1 

3 LAST  220 
1 

4 LAST  228 


05,  3276  3 3365  1 

15,32  77  64  40C  1 

0 5,  330 0 6 3367  0 

05  ,330  1 54  454  0 

05,1302  6 3367  0 

05,  330  3 54  530  0 

05  ,3304  6 3367  0 

05,  33C5  54  6C4  I 

05,  3 lo 6 6 3367  0 

05,3307  54  660  < 


CAF 

TS 

AD 

TS 

AD 

TS 

AD 

TS 

AD 

TS 


VAC  IADRC 

V AC1US  E 
LTHVACA 
VAC2USE 
LTHVACA 
VAC3USE 
l T HVACA 
VAC4USE 
LTHVACA 

V AC5US  E 


MAKE  ALL  VAC  AREAS  AVAILABLE. 


3486 
04  87 


3 

25 


L AST 
LAST 


05,  3 11o  3 4 363  0 

05  ,331  1 54  154  0 DSPDFF 


R 1 ,R  2 ,R  3)  . 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


FRESH  START  AMO  RESTART 


3*89 

REF 

15 

L AST 

227 

05,  3312 

4 4740 

1 

CS 

3 I T1  2 

0*90 

RFF 

26 

LAST 

228 

05  ,3313 

50  154 

1 

INDEX 

MP  AC 

0491 

REF 

22 

LAST 

223 

05,3314 

55' 022 

1 

TS 

DS  PTAB 

0492 

REF 

27 

LAST 

229 

05,  3915 

10  154 

0 

CC  S 

MPAC 

'493 

REF 

1 

05,3316 

1 3311 

0 

TCF 

DS  P OFF 

3494 

RFF 

l 

05,  3317 

55' 323 

0 

TS 

DE  LAYLCC 

049S 

REF 

2 

LAST 

229 

0 5,  3 320 

55*324 

1 

TS 

3E  LA  YLOC 

0496 

REF 

3 

LAST 

229 

05,3321 

55' 325 

0 

TS 

DELAYLOC 

3498 

RFF 

1 

C 5,  3322 

54  C45 

1 

TS 

I NLI NK 

0409 

REF 

7 

LAST 

153 

J5  ,3323 

54  775 

0 

TS 

DSPCNT 

0500 

R EF 

1 

05  ,33  24 

c 5 ' 041 

1 

TS 

C AORSTOR 

0501 

REF 

1 

05, 3325 

55-012 

1 

TS 

RFORF  T 

0502 

RFF 

1 

05  ,3326 

55*014 

1 

TS 

CL  PAS  S 

3533 

REF 

1 

05,  3327 

55' Cll 

1 

TS 

DS  PLCCK 

05^4 

REF 

1 

0 5,  3 330 

55*017 

1 

TS 

MONSAVE 

0505 

REF 

1 

05,3331 

55*  020 

0 

TS 

MCI  NS  AV  El 

3536 

REF 

1 

C 5,  3332 

55  *COO 

1 

TS 

VE  R8REG 

0507 

RFF 

1 

05  ,3333 

5 5 *001 

0 

TS 

NOUNREG 

0 50  8 

REF 

1 

05  ,3334 

55*042 

1 

TS 

DS  PL  1ST 

0509 

REF 

1 

05,  3335 

55*307 

0 

TS 

MARKSTA  T 

0510 

REF 

1 

95  ,3335 

55*043 

0 

TS 

EX  T VB ACT 

3511 

R EF 

2 

1 AST 

215 

C 5,  3337 

55*  3 C 1 

0 

TS 

I MUCADR 

0512 

RFF 

1 

0 5,  3 3^0 

55*302 

0 

TS 

OPTCADR 

0513 

REF 

1 

05,3341 

55*303 

1 

TS 

RADCADR 

3514 

REF 

2 

L AST 

109 

05,  3342 

55*304 

0 

TS 

ATTCAOR 

0515 

REF 

1 

05  ,3343 

5 5 ' 3 1 1 

1 

TS 

L GYRO 

0 516 

REF 

1 

15,3344 

5 4 100 

1 

TS 

FL  AGWRD4 

0517 

REF 

1 

0 5,  3 34  5 

3 4760 

1 

CAF 

NOUTCON 

0518 

RFF 

5 

LAST 

166 

05 ,3346 

55*015 

0 

TS 

NOUT 

3521 

REF 

25 

LAST 

226 

05,  3347 

2 4746 

0 

CAF 

BI  T6 

0522 

REF 

23 

LAST 

220 

05,3350 

7 1300 

1 

MASK 

IMODE  S33 

0573 

REF 

7 

LAST 

220 

05  ,3351 

6 5026 

0 

AD 

IM33  IN  IT 

3524 

REF 

74 

L AST 

229 

05,  3 35  2 

5 5 • 3C0 

1 

TS 

I MODFS33 

0525 

REF 

1 

05  ,3353 

3 3364 

0 

CAF 

L E SC  HK 

0526 

P EF 

2 

LAST 

111 

0 5 , 3 3 c4 

55*  361 

0 

TS 

SELFRET 

0527 

RFF 

1 

05,  3355 

4 4 3 60 

1 

C S 

VI  1 

0 528 

REF 

2 

LAST 

164 

05,3356 

54  776 

0 

TS 

DS  PCOUNT 

3579 

REF 

17 

L AST 

225 

C 5,  3357 

C 0002 

0 

TC. 

0 

0530 

REF 

6 

L AST 

226 

E6 ,1536 

FBANK= 

AC1SQ 

0 531 

R EF 

1 

05  ,3360 

02024 

0 

I OLE  ADR 

2 CADR 

DAP  IDLER 

0531 

REF 

1 

0 5,  3 36  1 

34066 

0 

053? 

05 ,336? 

00435 

0 

ifail  INH 

OCT 

435 

3533 

R EF 

1 

95,  3363 

C 3524 

1 

LONP  1 A SI 

GF  NADR 

D N PH  AS  E 1 

0534 

REF 

1 

05,3364 

03335 

1 

1 ESCHK 

GENADR 

SELFCHK 

9:12  OCT.  21  ,1970  ZERLAID 
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USER  'S  PAGE  MO.  12  E 3 S3 


1 

2 


KI LL  MONI TOR 


MAKE  EXTENOED  VERBS  AVAILABLE 


KILL  INTERFACE  CISPLAYS 


LEAVE  91  T 6 UNCHANGED 

NO  PIP  OR  TM  FAILS. BIT6=0  IN  THIS  WORD. 


SELF  CHECK  GO-TC  REGISTER. 


GAP: 
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9:12  CCT.  21  *1970  Z ERL  A I C .001  PAGE  230 


L FRESH  START  ANO  RESTART 


USER  'S  PAGE  NO.  13  E3  S3 


0535 
o 536 
0 537 


REF 


2 LAST  228 


05,  3365 

35.3366 

05.3367 


CC4C0  C VAflAORC  AORES  VAClUSE 
3200  1 1 OCT  3 200 1 OCT  320C1 
00054  0 LTHVACA  DEC  44 


',538 
0539 
0 540 

054 1 REF 

0542  REF 

0543 
054  4 
0 545 

0546  REF 

0547 
0 54  8 
054  Q 
0550 
0591 

0552 

0553 

0554 

0555 
0 556 


,9,  3 370  27470 

05  ,3371  74160 

05,1372  3CC01 

1 500  7 

1 4756 

05,3373  77755 

05,3174  37411 

05.3375  37000 

2 LAST  18  7 50  26 

05.3376  00450 

05.3377  CC1C2 

0 5,  340')  00000 

05.34C1  00000 

05,  3402  COCOO 

05,  3/, 03  OOCCO 

05,1404  00000 

05.  34C5  CCCCO 

05.3406  00000 

05.3407  00100 


1 OC  T2  74  70  DC  1 27470 

0 OCT 74 1 60  OCT  74160 

0 OC  73  0001  OCT  30001 

STAR  TER  EQ  UAL  S EBANK3 

NUMGRPS  ECU  ALS  FIVE 

0 -ELR  OCT  -22 

1 IM30INIF  OCT  3741  1 

0 I M39  I N!  R OCT  37000 

I M -3  3 1 N I T = PR  I0l6 

0 9,6,4  OCT  450 

1 RMODINIT  OCT  00102 

1 SWINIT  OCT  0 

1 OCT  0 

1 OC  T 3 

1 OCT  0 

1 OCT  0 

1 OCT  C 

1 OCT  C 

0 OCT  00100 


-ERROR  LIGHT  RESET  KEY  CODE. 

INHIBITS  1 MU  FAIL  FCR  5 SEC  ANO  PIP  ISSW 

NC  PIP  OR  TM  FAIL  SIGNALS. 


0557 

0558 
3559 
0560 


0 5,3410 
05,3411 

05,  3412  CCCCO  1 
05, 3413  40000  0 


OC  T 0 

OCT  0 

OCT  0 

OCT  40000 


BI  T 15  = LRBYPASS. 


3 A P : ASSEMBLE  REVISION  56  OF  AGC  PRC  GRAM  ZERLINA  BY  ZOROASTER 


L FP.ESH  START  AND  RESTART 

P0561  PROGRAM  NAPE  GOTOPOOH  ASSEMBLY  SUNDANCE 

<'’662  LOG  SECTION  FRESH  START  AND  RESTART 

R3563  FUNCTIONAL  DESCRIPTION 

R 0564  FLASH  V 37  CN  CS  KY  ?MM  CHANGE  REQUEST  " 

RO  565  INPUT/O  LTPUT  INFORMATION 

R0566  A.  CALLING  SEQUENCE  TC  GOTOPOOH 

*0567  B.  ERASARLE  INITIALIZATION  NONE 

RD  568  C.  OUTPUT  FLASH  V 37  ON  D SK  Y 

R 0565  D.  DEBRIS  L 


RO 570  PROGRAM  ANALYSIS 


R0571  A.  SUBROUTINES  CALLFD  PRIODSPR,  LINUS 

<"57?  B.  NORMAL  FXIT  TCF  F.NCOFJOB 

R3573  C.  ALARM  AND  ABORT  FXITS  NONE 


C 574 

3 575  REF 
3 576 


LAST  40 


6001 

6000 

600  1 


BLOCS  03 
SETLOC  FFTAG5 
BANK 


577 

0578 

0579 
0 580 
3531 


REF 
P EF 
REF 


198 

2?  1 


COUNT*  TS/POO 

60C 1 3 4764  C GOTOPOCH  CAF  OCT33 

6002  54  001  1 TS  L 

60C3  4 0000  0 COM 

60C4  5 2 760  1 OXCH  -PHASE** 


0582  PFF  3 LAST  220 

0583  P EF  1 

05  8 '4 

0585 


6005  0 4635  0 

6006  1CC24  0 

6007  00024  1 DCT24 

6010  00031  0 0CT31 


TC  POSTJUMP 

CADR  GOPCOFIX 

MM  2 C 

MM  25 


3586 

55  87  REF 

0588 


20,  2004 
04,2000 
04  ,2024 


RANK  20 
SETLOC  VERB  37 
BANK 


3539  REF  1 

.590  REF  2 LAST  215 

0591  REF  1 


04  ,2024  0 5527  1 

04,2025  C0311  1 


COUNT*  /POO 
GO  POO  FIX  TC  DOWN  FLAG 

ADRES  XCVINFLG 


0592  REF  3 LAST  231 

0593  REF  1 


04,  2026  C 5527  1 
04,2027  00314  1 


TC  3 0 WNF  LAG 

AORES  JLLAGFLG 


9:12  OCT.  21,1970  ZE P LAI  D .001  PAGE  231 
US  ER  *S  PAGE  NO  . K E3  S3 


4.33S  POT  FOR  GOPDOFIX 


VERB  37  AND  POO  IN  BANK  4. 
ALL  OW  X-A  XI  S OVERRIDE 


INSURE  THAT  ULLAGE  IS  CFF 


3AP:  ASSFMBLF  REVISION  56  OF  AGC  PROGRAM  7 ERL  I NA  BY  ZOROASTER 


9:12  OCT.  21,  1970  ZERLAIO  .001  PAGE 


232 


FRESH  START  AND  RE  START 


JSER'S  PAGE  NO.  15  E3  S3 


05935  PEF 
''■595  REF 
0 59  5 REF 
0596  REF 
, 907 
05  9B 
0599 


LAST  225 


05,2030 
05  , ? 93  l 
C5, 2032 
05  ,2033 
C5 , 2035 
05,  20  35 
05  ,2036 


0 55C7  0 
3 2037  1 
C 5616  1 

20577  1 

1 2031  0 
1 2021  0 
1 2031  0 


TC  CLEARMRK  * 2 R FLEA  SE  MARK  DISPLAY  SYSTEM. 

CAF  V37N99 

TC  BANKCALL 

CADR  GO  FLASH 

TCF  -3 

TC  F -5 

TCF  - 5 


0600 


C5, 2037  11353  0 V37N99  VN  3799 


SAP:  ASSEMRLE  REVISION 

l FRE  SH  START  AND 

P0631  PROGRAM  NAME 

10602  LOG  SECTION 


56  OF  AGC  PROGRAM  Z ERL  If 
RE  START 
V 37 

FRESH  START  AND  RESTART 


RY  ZOROASTER 

ASSEMBLY  SUNDANCE 


9:  12  OCT.  21,1970 
USER  'S  PAGE 


ZERLAI D .001  PAGE 
NO.  16  E 3 S3 


233 


R3633  FUNCTIONAL  DESCRIPTION 


R0606 
10  606 
R3508 
R06C9 
R06IP 
R06 1 1 
10612 
RD613 
RC6U 
10615 
R 3 6 1 6 
R 061 7 
R 0 618 
R06l  n 
1 0620 
RTS21 
R 062  3 
10625 
R3626 
<C  627 
RC  629 
R 0 6 3 1 
1 06  33 
R0636 
RP635 
1 < 6 3 6 
R3637 
R063R 

R 0 6 ^9 

RC661 
1 0663 


1.  CHECK  IF  NEW  PROGRAM  ALLOW  EO.  IF  8IT  1 OF  FL AGW1 D 2( NDDOFL AG ) IS  SET,  AN  ALARM  1520  IS  CALLED. 

2.  CHECK  FOR  VALIDITY  CF  PROGRAM  SELECTED.  IF  AN  INVALID  PROGRAM  IS  SELECTED,  THE  OPERATOR  ERROR  LIGHT  IS 
SET  AND  CURRENT  ACTIVITY,  IF  ANY,  CONTINUES. 

3.  SEPVICER  IS  TERMINATED  IF  IT  HAS  RFEN  RUNNING. 

6.  INSTALL  IS  EXECUTED  TC  AVCID  INTERRUPTING  INTEGRATION. 

c.  TEE  ENGINE  IS  TJRNEC  OFF  AND  THE  DAP  IS  INITIALIZED  FOR  COAST. 

6.  TRACK  AND  UPDATE  FLAGS  APE  SET  TO  ZERO. 

7.  DISPLAY  SYSTEM  IS  RELEASED. 

8.  THE  FOLLOWING  ARE  PERFORMED  FOR  EACH  OF  THE  THREE  CASES. 

A.  PROGRAM  SELECTED  IS  PUO. 

1.  RENDEZVOUS  AND  P25  FLAGS  ARE  RESET.  (KILL  P20  AMD  P25) 

2.  ST  AT  I NT  1 IS  SCHEDULED  BY  SETTING  RESTART  GROUP  2. 

3.  MAJOR  MODE  CO  IS  STCRED  IN  THE  MGDE  REG  I ST  EP  ( MODR  EG  ) . 

6.  SJ  PEREA NK  3 IS  SELECTED. 

5.  NOD  CF  LAG  I S RESET. 

6.  ALL  RESTART  GROUPS  EXCEPT  GROUP  2 ARE  CLEARED.  CONTROL  I ST  R ANS  FERR  ED  TO  RESTART  PROGRAM  (G0PRDG2) 
WHICH  CAJSES  ALL  CURRENT  ACTIVITY  TO  BE  DISCONTINUED  AND  A o MINUTE  INTEGRATION  CYCLE  TO  BE 

INI  TIA  TFD. 

B.  PROGRAM  SELECTFD  IS  P 20  OR  P25. 

1.  IF  THF  CURRENT  MAJOR  MODE  IS  THE  SAME  AS  THE  SELECTED  NEWPROGRAM,  THE  PR  CG  R AM  IS  RE- 1 NI  T l AL I Z ED 
VIA  V 37  Xfc  Q , ALL  RESTART  GROUPS,  EXCEPT  GROUP  6 ARE  CLEAREC. 

2.  IF  THE  CURRENT  MAJOR  MODE  IS  NOT  EQUAL  TO  THE  NF  V>  REQUEST,  A CHECK  IS  MADE  TC  SEE  IF  THF  REQUEST- 
ED MAJOR  MODE  HAS  BFEN  RUNNING  IN  THE  BACKGROUND, 

AND  IF  It  HAS,  NO  NF  W PROGRAM  IS  SCHEDULED,  THE  EXISTING 
P20  OR  P25  IS  RESTARTED  TD  CONTINUE,  AND  ITS  M M IS  SET. 

3.  CONTROL  IS  TRANSFERRED  TC  GCPR0G2 . 

C.  PRO  GP  AM  SELECTED  IS  NEITHER  POC,P20,  NOR  P25 

1.  V37XEQ  IS  SCHECULEC  (AS  A JOB)  BY  SETTING  PESTART  GROUP  6 

2.  ALL  CURRENT  ACTIVITY  EXCEPT  RENDEZVOUS  AND  TRACKING  IS  DISCONTINUED  BY  CLEARING  AIL  RESTART 
GROUPS.  IF  THE  RENDEZVOUS  DR  THF  P25  FLAG  IS  ON,  GROUP  2 IS  NOT  CLEARED,  ALLOWING  THFSE  PROGRAMS 
TO  CONTI  NUE. 


(10566  INPUT/OUTPUT  INFORMATION 


R 0 6 6 5 


CALLING  S EQUENCE 


10666 

10567 

R 066  8 


CONTROL  IS  DIRECTED  TC  V37  BY  THE  VERBFAN 
VFRPFAN  GOFS  TO  C(  VERBTAB+CI  VERB  REG  ) > • 
MMCHANG  EXFCUTES  A TC  POSTJUMP,  CADR 


ROUT INE. 

VERB  3 7 = MMCHANG. 
V 37  . 


R0669 


ERASABLE  I NI  TI  A LI  Z A T I C N NCNE 


RC650 
1 )65l 


DLTPUT 


ASSEMB I E REVISION  56  OF  AGC  PRCGRAM  ZFRL INA  BY  ZOROASTER 
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FPESH  START  AND  RESTART  USER'S  PAGE  NO.  17  E3  S3 

R 065?  NAJCP  MCCE  CHANGE 

3 »65  3 D.  DEBRIS 

MMNIJMRPP,  MPAC  +1,  MINDEX,  BA  SE  TF  MP  + C { PI  NDE  X)  , F L AGWRDO , FLAGWRCl  , FLAGWRD2,  MCOREG,  GOLOC  -1, 

R ’'656  GOLOC,  GOLCC  +1,  GCLCC  +2,  BASETEMP,  -P  HAS  1 2,  P HA  SE  2,  -PHASE* 


R 0 6 * 7 PROGRAM  ANALYSIS 


KC65R  A.  SUBROUTINES  CALLED 

* 659  A I A P M , RE  LOS  P , PINRRNCH,  INTSTALL,  ENGIN0F2,  ALLCOAST,  V37KLFAN,  G3P33G2,  FALTON,  F I NO  VAC  , SUPERSW, 

R0661  DSPMM 


R 0662  B.  NORMAL  EXIT  TC  ENC0FJ08 


30663 


C.  ALARMS  1520  (MAJCP  MCDE  CHANGE  NOT  PERMITTED) 


'664  RFF  1 

r 665  REF  4 LAST 

0666  REF  2 LAST 


0*,  20*0  5*  77*  1 

225  • A ,20*1  3 *355  0 
21 B 0*, 20*2  5*  366  0 


V ?7 


TS  MMNUMRER  SAVE  MAJOR  MODE 

CAF  PR  1030  RFSTAPT  AT  PINBALL  PRIORITY 

TS  PESTREG 


0667  REF  *2 

r 668  REF  26 

3669  PEF  *3 

0670  RFF  1 


LAST  223 
LAST  229 
L AST  22* 


04,20*3 
0* , 2 0** 
r*,  ?C* 5 
0*  ,20*6 


3 1277  1 
7 *7*6  1 
1C  CCO  0 
I 2065  1 


CA  I MODE  S3C  IS  I MU  BE  I NB  INITIALIZED 

MASK  B IT  6 

CCS  A 

TC  F CANTROO 


3 6 7* 
0675 
06  7 6 
r 677 


l AST  216 


, 

. 

0*  ,2051 

. 

C*,  2053 
0*  ,205* 
04,2055 


* C 774  l 
6 2*11  1 
G 0G06  1 
l 2*0*  1 
6 *753  1 
0 0006  1 
1 2*03  0 


CS  MMNUMRER 

AD  3EC70 

EXTEND 

BZF  SFTUP7C 

AD  ONE 

EXTEND 

BZF  SETUP71 


IS  P7D  REQUESTED? 


YES 

IS  P7 1 REQUESTED? 

YES 


0579  PEF 

0679 

0680  REF 


3 L AST  23* 


C4,  2056  3 C77*  0 

0*  ,2057  0 0006  1 

'■*,2060  1 2107  1 


CA  MMNUMBER  IS  NEW  REQUEST  POO 

EXT  END 

BZF  ISSFRVON  Y FS , CHECK  SFPVICFR  STATUS 


06  8 1 
06B2 
0683 
06  S* 
3 685 
0 696 


RFF 

REF 

RFF 

PEF 

RFF 


LAST  17  1 04,  2061  * 0076  1 C S 

04  ,2062  7 *753  0 MASK 

LAST  23*  04,  2063  1C  CCO  0 CCS 

04,206*  1 2072  1 TC  F 

LAST  22*  C*  , 2 065  0 5600  L CANTROO  TC 

04,  2066  01520  1 OCT 


c LAG  WRD  2 
NODOR IT 


: HECK  TAB 
ALARM 
1 520 


NO,  I S NODO  V37  Fl.  AG  SET 


Nfl 


0687  REF 


04,2067  0 4*57  0 V37BA0  TC  R EL  DSP 


RELEASES  DISPLAY  F RCM  ASTRONAUT 


"''88  REF  * I AST  23  1 C*,  2C70  C *635  0 
0589  RFF  1 04,  207  1 51051  0 


TC  POST  JUMP  BRING  BACK  LAST  NORMAL  DISPLAY  IF  THERF 

CADR  PINBRNCH  WAS  ONE.  OTHFR  WISE  DO  AN  FOJ. 


0690  RFF 


04,2072  3 2*76  0 CHECKTAB  CA  N0V37MM 


INDEX  FOR  MM  TABLES. 


TAP: 


ASSEMBLE  RF  VISION  56  OF  AGC  PRCGRAM  ZFRI.INA  RY  ZOROASTER 


FRESH  START  AND  RE  START 


06  91 

RFF 

28 

LAST 

229 

04,2073 

54  155 

1 

AG A I N M M 

TS 

MP  AC  + 1 

0 692 

PFF 

2° 

LAST 

235 

C4 , 2 C 74 

50  155 

0 

NDX 

MP  AC  +1 

3693 

REF 

1 

04,  2075 

3 2445 

c 

CA 

PREMMl 

0694 

RFF 

1 

04  ,2076 

7 6 106 

1 

MASK 

LDW7 

0695 

C 4 , ?C  7 7 

4 CCCO 

0 

COM 

0695 

RFF 

4 

LAST 

234 

04,  2100 

fc  C 774 

0 

AO 

MMNUMBE  R 

069  7 

P.EF 

45 

LAST 

234 

04,2101 

! 0 000 

0 

CCS 

A 

9698 

REF 

30 

l AST 

23  5 

C4,  2 1C  2 

1C  155 

1 

CCS 

MP AC  +1 

0699 

REF 

1 

04 , 2 1C  3 

1 2073 

0 

TCF 

AGAINMM 

0 700 

RFF 

1 

04,2104 

1 2334 

0 

TCF 

V37NONO 

0711 

REF 

31 

l AST 

235 

04,  2105 

2 0155 

0 

CA 

MPAC  +1 

0702 

RFF 

1 

04  ,2106 

54  773 

0 

TS 

M INDEX 

0703 

RFF 

2 

LAST 

19  2 

04,  21C7 

4 0 1C3 

1 

I SSER VUN 

CS 

F LAGWRD7 

0704 

OFF 

1 

0 4,  2 110 

7 4746 

1 

MA  SK 

V37F  LB I T 

0705 

RFF 

46 

LAST 

235 

04,2111 

10  000 

0 

CCS 

A 

3736 

REF 

1 

04,  2112 

1 2136 

0 

TCF 

CANV37 

07061 

RFF 

1 

04  ,2113 

C 4727 

1 

TC 

SUPER  SW 

07062 

04,2114 

0 0004 

0 

INHINT 

0 706  3 

REF 

6 

L AST 

1R  2 

04, 2115 

0 4674 

0 

TC 

I BNKCA  LL 

07064 

PFF 

1 

04  ,2116 

75555 

0 

CAOR 

ENGINDF  1 

3737 

REF 

4 

LAST 

231 

04,  21  17 

C 5 527 

1 

TC 

DOWNFLAG 

0708 

RFF 

1 

04,2120 

00163 

0 

AORES 

AVEGFLAG 

0711 

RFF 

1 

04,2121 

1 5155 

l 

TCF 

ENDOFJGB 

3712 

RFF 

9 

L AST 

224 

04, 2122 

4 OC  74 

0 

V 3 7R  E T 

CS 

FI.  AG WR  nr 

'713 

RFF 

2 

LAST 

191 

04  ,2123 

7 4745 

1 

M ASK 

3NDVZB  I T 

0714 

REF 

47 

1 A ST 

235 

04,2124 

1C  cco 

0 

CCS 

A 

0715 

, ’ 

1 2127 

0 

TCF 

+ 2 

0716 

RFF 

1 

04 ,2126 

1 2134 

1 

TCF 

2.7SPT 

3717 

REF 

10 

L AST 

235 

C4, 2127 

4 C C 74 

0 

CS 

F LAGWROO 

07lR 

RCF 

1 

04,2130 

7 4743 

1 

MASK 

P25FLRI  T 

0719 

RTF 

48 

LA  ST 

235 

C4  ,2  l 3 1 

10  000 

0 

CCS 

A 

3723 

RFF 

l 

04,  2 132 

3 24  CO 

1 

2.  0SD T 

CA 

OC  T3  766  7 

0721 

REF 

14 

LAST 

2?  5 

C4  ,2133 

6 4747 

1 

2.  11SPT 

AD 

P IT5 

0722 

REF 

1 

• 

6 2401 

0 

2. 7SPT 

AD 

0CT40072 

< 723 

PFF 

1 

04, 2135 

0 5 370 

0 

TC 

PH  SCHNGA 

0724 

RFF 

1 5 

1 AST 

228 

04 ,21  36 

3 4755 

1 

CANV37 

CAF 

ZERO 

3725 

04,  2137 

0 C0C6 

1 

EXTEND 

0726 

RFF 

2 

LAST 

222 

0 4,2140 

01  0C7 

l 

WP  ITE 

SUPERRNK 

0727 

REF 

1 

04,2141 

3 2377 

0 

CAF 

KOnAD 

3728 

REF 

1 

C*, 2142 

54  374 

0 

TS 

TF  MPFLSH 

0729 

RCF 

1 

04  ,2143 

0 5364 

0 

TC 

P HA  SCHNG 

0730 

04 ,2144 

00014 

1 

OCT 

14 
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JSER'S  PAGE  MO.  10  E3  S3 


OBTAIN  WHICH  MM  THIS  IS  FOR 


IF  GR,  SEE  IF  ANYMORE  IN  LIST 
YES,  GET  NEXT  ONE 
LAST  T IME  OR  PASSED  MM 


SAVE  INDEX  FOR  LATER 

V 37  FLAG  SET  - I.E.  IS  SERVICER  GOING 


NO 


YES,  TURN  ENGINE  OFF 

NOW  TURN  OFF  THE  AVERAGE  G FLAG  AND 
WAIT  FOR  SFRVICER  TO  RETURN  TO  V37REI. 


IS  P20  GR  P22  RUNNING? 


NO.  CHECK  FOR  P25 
YES.  DO  2.  7SP0T 
IS  P?5  RUNNING? 


ASSEMBLE  RF  VI  SI  ON  56  OF  A6C  PRGCRAP  ZERLINA  BY  ZOROASTER 
FPFSH  START  AM  C RESTART 


73? 
o73T 
07  34 


04,2  145  0 6051  0 


04,  2146 
04,  2147 
04,2150 


77624  l 
2 74  10  1 
77776  1 


ROO  TC 

CALL 

OUNPYAQ  EXIT 


INTPPET 

I NTSTALL 


LAST  235 


TC 

AORES 


I ACT  236 


04,  7 154 


AORE  S 
CAF 


7 LAST  236 
1 

P l AST  236 

1 

9 LAST  236 
1 

1C  LAST  236 


0730 
f 740 
074 1 
0 742 


LAST  236 
LAST  231 
LAST  23  5 


04,  217  1 10  774  1 

04,2172  1 2322  1 


ADRES 

:c  s 

TCF 


DOWN  FLAG 
XGVINFLG 
MMNUMBER 
NtlUVF  AU 


LAST  234 

LAST  104 


04,  2173  C 4457  C POOH 


RE  LDSP 


747 
;'7  4R 
074  0 


RFF 

REF 

RFF 


I A ST  234 
I AST  234 
LAST  236 


04,  2176  0 6011  1 


04,2201  54  076  1 


NODOB  IT 
F LAGWRD2 
FLAGWRD2 


075n 
375  1 
r 752 
0753 


REF  2 LAST  230 
RFF  14  LAST  23  1 


LAST  221 


04  ,2204  4 0000  0 

C4 , 2 205  £2  754  C 


TS 

COM 

OXCH 
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WAIT  FOR  INTEGRATION  TO  FINISH 


RE  SE  T 3-A  XI  S F LAG 


CL  FAN  UP  THE  R12  FLAGWOPD. 

INSURE  THAT  THE  R04F  LAG  IS  CLEAR. 

FLAGWORO  3 BIT  14 
INSURE  MUNFLAG  IS  CLEAR. 

RESET  ABORT  TARGETING  FLAG  I USE 
PARAMETERS  Jl  ANC  KU  I 

ALLOW  X-AXI  S OVFRRIOE. 

IS  THIS  A PCOH  RFOUEST 
NO,  PICK  UP  MEW  PROGRAM 

RELEASE  DISPLAY  SYSTEM 

SET  VARIABLE  RESTART  PRIORITY  FCR 
POO  INTEGRATION. 

CLRAOMOO  DOES  AN  INHINT. 

TURN  OFF  NODOFLAG. 

SET  RESTART  FOR  STATEINT1 


TURN  OFF  P2  0,P2  5,IMU  IN  USE  FLAG 


SAP: 


■ SSEPBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0756 

0757 


FPESH  START  AND 
REF  12  LAST 
REF  1 


3E  START 
236  04,  2210 

04,221 1 


5 4 C 74  0 
3 4755  I 


TS  F LAGWRDO 

CAF  ONLAOPOO 


1758 
075Q 
A0760 
0761 
0761  5 

0761  7 

0762 


REF 
PEF 
R EF 
REF 


7 LAST  223  04,  2212  54  333  0 SEUOOPOO  TS  ONLSTCOD 

4 LAST  223  04  ,2213  55*321  1 TS  AGSWORP 


2 LAST  220 

2 LAST  213 

3 LAST  237 
3 LAST  237 


04,  22  14  t 474  1 0 
04,2215  7 0077  0 

C 4,  2 2 16  fc  4 741  1 
04,2217  54  077  0 


C S NOP 07B I T 

MASK  FLAGWRD3 

AO  NOP07RIT 

TS  FLAGWRD3 


0763  PEF 
3764  PEF 


7 LAST  235  04,2220  0 4674  0 

1 04,2221  40205  1 


TC  1 BNKCALL 

CADR  ALLCOAST 


0765  RFF 

0766  REF 

0767  REF 

0768  REF 


LAST  218 
LAST  2 24 
LAST  237 


04  ,2222 
C 4 , 2223 
14,  2224 
04,2225 


4 4775  1 

5 5 * C 7 1 1 
7 OC  7 5 l 
54  075  1 


CS  OCT  120 

TS  FBANKTEM 

MASK  FLAGWR01 

TS  FLAGWR01 


0769 
1 770 


8 L AST  237  C4,  2226  C 4674  0 

1 04  ,2227  12666  1 


TC  I 8NKCALL 

CAOR  V 3 7KL  FAN 


REF 

REF 

REF 

REF 


6 LAST  236 


9 LAST  237 


04,2220  1C  774  1 
04,2231  1 2240  1 
04  ,2232  0 4674  0 GOMOO 
04, 2233  12663  1 


CCS  MMNIJMBFP 

TC  F RENDVOO 

TC  IBNKCALL 

CADR  POCKLEAN 


0779  RFF 
9*  776  RFF 


LAST  237  04,2234  3 0774  0 
I A ST  224  04  ,2235  5^' 010  0 


CA  MMNUMBHR 

TS  MOOR  EG 


8 LAST  23*, 
1- 


04,  2236  C 46  35  0 GOGOPROG  TC  POSTJUMP 

04,2237  13004  1 CAOR  GUPRDG2 


770  ref 
D78C  REF 
0781 

1782  REF 


23  7 


0 4 , ? 2 4 C 4 1C10  9 
( *»,  224  1 6 2340  1 

04.2242  C 0006  1 

04. 2243  1 2262  1 


RENDVOQ 


CS  MllDREG 

AD  OC T26 

EXTEND 

8ZF  RESET22 


0783  REF  8 L AST 

9784  REF  2 LAST 

1785 

0786  PEF  2 LAST 


2 37  04  ,2  244  4 0 774  1 

237  04,2245  6 2340  1 

04, 2246  C 0006  1 

237  04,2247  1 2262  1 


CS  MMNUMBER 

AD  C1CT26 

F X TEND 

6ZF  R ES  FT  22 


3787  RFF  1 

0788 

0789  REF  1 

1791  REF  3 


04. 5 25 1 0 C 006  l 

i * 74 

04,2253  6 4756  1 


AD  NFG2 

EXTEND 

8ZF  RENDN0C1 

AD  FIVE 


I AST  236 
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USER'S  PAGE  NO.  20  E3  S3 

RENDFLG 


SET  UP  APPROPRIATE  COW NL  1ST  CODE 
(CURRENT  LIST  WILL  8F  COMPLETED  BEFORE 
NEW  ONE  IS  STARTED) 


INSURE  ALLCOAST. 

DOES  A RESTCROB. 

TURN  OFF  TRACK,  UPDATF  FLAGS 


KILL  GROUPS  1 ,3,5,6 


IS  IT  POOH 
NO 

REDUNDANT  EXCEPT  FOR  GROUP  4 


IS  CURRENT  PROGRAM  22 

YES  - CLEAR  RENDEZVOUS  FLAG 

T S NFW  PROGRAM  P22 


IS  NEW  PROGRAM  = p2o  OR  P25 

YES 

25 


ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  2ERLINA  BY  ZOROASTER 


FPPSH  STAPT  AND  RESTART 


2 LAST  237 


0793 

3799 

0795 

0 796 


REF 
R EF 
RFF 
REF 

REF 

REF 

REF 

REF 


236 

?3B 

23fi 

23ft 


04,2256 
C 4,  2257 

04.2260 

04.2261 

04,  2262 
0 4 ,2263 

04.2264 

04. 2265 


3 2336 
7 C C 74 
1C  000 
1 2271 


PESFT22  CS 
MASl 
TS 
TC 


OC  1 7 CO 
FL  AGWR DC 
FLAGWRDO 
: LR  AO  MOO 


OB'  l 
3932 
0 BO  3 


04 ,2266 
04,  2267 
04  ,2270 


2 LAST  235 


C 0006  1 
3 4755  1 
52  754  0 


KILL2  EXTEN 
DC  A 
OXCH 

PTCFI  ll  C 

rs 


04,2273  I 2236  0 


3307 

oaofl 

0 8C  9 
3813 

0911 

<812 

pr13 


REF 

RFF 


LAST  237 


LAST  237 
LAST  238 


04,  22 74 
04,2275 
04  ,2276 
04,  2277 


4 1010  0 
6 6007  0 
0 0006  1 
1 2266  0 


TCF 

RENONOO  CS 
AO 
EXT  END 
BZF 


04  ,2300  6 4756  I 

04,2301  C UCC6  1 
04,  2302  1 2266  0 


AD 


K I LL2 
F IVE 


OH  14 
0 9 15 
fll  6 
917 
0819 
0 819 
0 8 20 
:.B21 
0822 
3823 
0824 


REF 

RFF 

RFF 


2 LAST  23  R 
16  LAST  238 
9 LAST  23  7 


C 4,2303 
04,  23C4 

04.2305 

04.2306 
C4,  2307 
04  ,2313 
04,23  1 1 
04, 2312 
04  ,231  3 
C4,  2314 
04,2315 


3 2336  0 
7 GC7*.  0 
6 0774  0 

4 0000  0 
6 2341  0 
0 0006  1 
1 2316  0 
6 2337  1 
0 0006  1 
1 2216  C 
1 2266  0 


CA  OCT  500 

MASK  FLAGWRDO 

AD  MMNUMBER 

COM 

AO  P2  OREG 

EXTEND 

BZF  ST  AT  QUO 

AD  0CT305 

EXT  END 

BZF  STATQUE 

TCF  KILL2 


0 825 
3326 
0827 


REF 

RFF 

REF 


B LAST  23  B 


04,2316  4 7075  1 

04,  2317  7 4775  1 

04,2320  26  075  1 


STATQUO  CS 


FL  AGWRD1 
0 C-  T 1 2 0 

FL  AGWROl 


R EF 
RFF 


1 C4.2321  1 2232  1 TCF 

3 LAST  238  04,  2322  3 2336  0 NDUVFAU  CAF 
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YES 

NO,  IS  El  THE*  P 20  OR  P25  RUNNING 

YES,  LEAVE  GROUP  2 TO  PICK  UP  P20  0*  P25 

CLFAR  RENDEZVOUS,  P2  6 
AND  I MU  IN  USE  FLAGS 

NO,  KILL  2 

RESTART  POINT  FOP  V37XE0 


P20  OR  P2 5 ON  TOP  CF  P20  OR  P25  - 


IS  IT  2.7  AND  IS  RENDEZVOUS  FLAG  UN 
YES 

IS  IT  25  AND  IS  P25  BIT  ON 
YES,  LEAVF  AS  IS 

SET  TRACKFLAG 

UPOATE  FLAG 


I S P2G  OR  P25  FLAG  SET 


GAP:  ASSFMRLE  REVISION  56  OF  AGC  PROGRAM  2ERLIMA  BY  ZOROASTER 


FRESH  START  AND  RESTART 


SSI? 

0832 

:B33 

0834 


12  LAST  23  6 


C4,  2323 

. 

04,2325 
04,  2326 
04  ,2327 


7 CC74  0 
1C  000  0 
1 2330  1 
C f 5 27  1 
00007  0 


MASK 

CCS 

TCF 


DOWNFLAG 

IMUSE 


0839 

0 840 

3841 
r 842 
0843 
084  4 
0845 


REF  1 
RFF  1 
REF  1 

REF  17  LAST  223 


04,2335 

4750 
04  ,2336 
C 4,  2337 
0 4,  2 3 AO 
04,2341 


C 4364  1 
1 2067  0 


00500  1 
C03C5  1 
00026  0 
00124  0 


V37N3N0  TC 


TCF 


OC  TCOOlO  EQUAL  S 3 I T4 

OCT500  OCT  500 

0CT305  OCT  305 

0CT26  OCT  26 

P20REG  OCT  124 


0846 

0847 

0 848 
084  9 
0850 


RFF 
REF 
REF 
. RFF 


C4» 2 3a  2 
04  ,2343 
04 , 234 A 
04,  2 3a 5 
04  ,2346 


C C C 04  0 
50  773  l 
2 2445  0 
55*057  0 
54  020  1 


V-37XEQ 


I NHI NT 

INDEX  M INDEX 

CAF  PREMM1 

TS  MMTEMP 

TS  CYR 


0832 

0853 
0 3 54 


RFF 

RFF 

PFF 

RFF 


I AST  239 


04.2351 

04. 2352 


3 CC20  0 
7 7737  I 
56*061  0 
54  063  0 


CA 


CY  R 

PR  1037 

PHSPR0T4 

NEWPPIO 


0855 
0866 
0 85  7 
0 858 
0359 


REF 
PFF 
R EF 


? LAST  239 

1 8 LAST  220 
1 

16  LAST  236 


04,2  353 
0 4, 2 354 
04,  2355 
04,2366 
04,  2357 


TS 


B 1 T 8 
LOW  3 


086  0 
0861 
3362 
0863 
0 864 


RFF 

PFF 

RFF 

REF 

REF 


04,2 360 
04,2.361 
04, 2362 
04  ,2363 
04,2364 


50  773  1 
3 2414  1 
55*060  1 
7 4350  1 
26  0C1  1 


INDEX  M INDEX 

CAF  FCADRMM1 

TS  BASETEMP 

MASK  H I 5 

ADS  L 


0866 
0 866 
3967 


RFF 
RFF 
R EF 


16  LAST  171 


'4, 2366 
04,2366 
0 4,  2 3 6 7 


1 < 

6012  0 
4741  1 


CA 


3 A SF  TE  M P 
L OW  10 
B I Til 


04,2370  0 5116  1 
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YES 

NO, RESET  IMUINUSE  FLAG 


OBTAIN  APPROPRIATE  COWNLIST  ADDRESS 


COME  HERE  IF  MM  REQUESTED  DOES  NT  EXIST 


BITS  7 AND  9 


OBTAIN  PRIO,  EBANK,  AND  MM 
SHIFT  RIGHT  TO  BITS  14  - 10 

PRESET  GROUP  4 RESTART  PRIORITY 
STORE  PRI  C FOR  S PV  AC 

OBTAIN  EBANK  - BITS  8,  °,  10  OF  MMTEMP. 


MAKE  BBCON  BY  ACDING  HI5  OF  FC ADR 


OBTAIN  GENADP  PCRTICN  OF  2CADP. 


GAP: 


ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTER 


9:1?  CCT.  21,1970  ZEPI.AIC  .001  PAGE 


2*0 


FRESH  START  A NO  PESTART  USER'S  PAGE  NO.  23  E3  S3 


3869 

REF 

3 

L AST 

239 

0*,  23 7 1 

3 10  57  1 

V37XFQC 

CA 

MMTEMP 

UPON  RETURN  FROM  FINDVAC  PLACE  THE 

0870 

REF 

2 

1 AST 

236 

0*  ,2  372 

7 6 106  1 

MASK 

LHW7 

NFW  MM  IN  MODREG  (THE  LCW  7 BITS  OF 

0871 

REF 

1 

0* » 237  3 

C 5325  C 

TC 

NEWMOCF.A 

PHSPROT  I ) 

0872 

RFF 

3 

LAST 

2 36 

0*,  237* 

C 4457  C 

TC 

PF  LO  SP 

PELFASE  DISPLAY 

r 873 

RFF 

? 

LAST 

235 

0 * , 2 3 75 

0 5155  0 

TC 

ENDOFJOB 

AND  EXIT 

3874 

RFF 

1 

566  I 

NEG  7 

EQUALS 

0CT77770 

' 875 

RFF 

1 

1057 

MMTFMP 

EQUAL  S 

PHSPP0T3 

0876 

P FF 

1 

1060 

BASETEMP 

EQUALS 

TRASE4 

J 877 

RFF 

0*,  2376 

10345  1 

V 3 700 AD 

CADR 

V3  7XE  Q * 1 

878 

R f F 

1 

0*  ,2377 

10150  1 

ROOAO 

CA  CR 

DUMMYAD 

0883 

?4,  74'  0 

37667  1 

OC  T37667 

OCT 

37667 

0881 

0*,  2*01 

40C72  0 

OCT 

40072 

0882 

- , 4 2 

C0700  0 

CCT70O 

OCT 

700 

R 3 8 8 3 

088* 

RFF 

1 

0*  ,2*0  3 

3 6257  l 

SFTUP7  1 

CAF 

THR  EE 

i?  885 

RFF 

18 

LA  ST 

220 

. 

54  002  1 

SETUP70 

TS 

Q 

3886 

0*,  2*05 

0 OOC  6 1 

E XTEND 

0807 

REF 

1 

0*  ,2*C6 

3 2413  0 

DCA 

P70CADR 

0083 

P.EF 

19 

LAST 

2*0 

4,  2*07 

6 CCG2  0 

AO 

0 

0889 

0*,  2*  10 

52  006  0 

DTC9 

0890 

C*  ,2* 1 1 

00106  0 

DEC70 

OEC 

70 

333J 

RFF 

3 

L AST 

15  l 

E7,  1516 

EBANK= 

R 

0892 

REF 

1 

04  ,2*12 

02006  0 

P70CA0R 

2C  ADR 

P 70 

u8P2 

R EF 

1 

04 , 24  1 3 

42067  0 

R0893 

FOR 

VERB 

37  TWO 

TABLES  ARE  MAINTAINED. 

FACH  TABLF  HAS  AN  ENTRY  FOR 

EACH 

3 089* 

major  mopf  that 

GAN 

BE  START  FC 

FRCM  THE 

KEYBOARD, 

. THE  ENTR  I ES  AR  F 

PUT 

R0395 

INTO 

THE 

TABLE 

WITH 

THE  ENTRY 

FOR  THE  HIGHEST  MAJOR  MODE  CCMING  FIRST, 

R 0896 

TC  THE  LOWEST  MAJOR 

MCDE  WHICH 

IS  THE  LAST  ENTRY 

IN  EACH  TABLE. 

R 0897 

THE  FCADRMM 

TABLE  CCA 

TAI AS  THE 

F C ADR  CF 

THE  ST  APT  ING  JOB 

OF 

R >898 

THE 

MAJOR 

MODE. 

FOR  EXAMPLE, 

4 089Q 

FCA0RMM1 

FC  A DR 

P 79 

STAPT  DF  P 79 

A0900 

FCADR 

PR0G1R 

START  OF  P 1 9 

A0901 

FC.ADR 

P01 

START  OF  P 01 

T0OQ2 

NOTE 

THE  FIRST  ENTRY  ML  ST 

PE  LABLEO 

FCADRMMl  . 

R3  99  3 

— 

0906 

REF 

1 

0*  ,2*14 

26207  0 

FCADRMM  1 

FCADR 

P 76 

C 90  7 

R EF 

1 

04 , 2*  I 5 

72647  1 

FCADR 

P75 

0908 

REF 

1 

0*,  24  16 

72457  1 

FCADR 

P 74 

0909 

RFF 

1 

0*  ,2*17 

72225  1 

FCADR 

P 7 3 

3913 

REF 

1 

04, 2420 

72036  1 

FCADR 

P7  2 

0911 

REF 

1 

04,  2421 

71351  0 

FCADR 

LANDJUNK 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  70R0ASTER 


L 

FRF  SH 

START  AND  RESTART 

3912 

R EF 

l 

04,  24  2 2 

64421  1 

FC  ADR 

P63LM 

0913 

RFF 

1 

04,2423 

33310  0 

FC  ADR 

P 57 

0914 

REF 

1 

04,2424 

32067  1 

FC  ADR 

PROG52 

3915 

REF 

1 

04,  24  25 

31421  1 

FC  ADR 

P 5 1 

0916 

REF 

1 

04,2426 

75^37  C 

FCADR 

P47LM 

0917 

R EF 

1 

04,2427 

75411  1 

FC  ADR 

P42  LM 

C9l  B 

REF 

1 

04,  2430 

75271  1 

FC  ADR 

P41LM 

0919 

RFF 

1 

04*2431 

75146  0 

FC  ADR 

P40LM 

0922 

REF 

1 

04,  2432 

72643  0 

FCADR 

P3  5 

092  3 

REF 

1 

4 , 2 4 3 3 

72455  0 

FC  ADR 

P 34 

0924 

REF 

1 

04  ,2434 

72223  1 

FCADR 

P3  3 

0925 

REF 

1 

04,  24  35 

72034  0 

FCADR 

P 32 

0927 

RFF 

1 

. 

72000  1 

FCADR 

P 3 0 

092B 

REF 

1 

04,2437 

5C462  1 

FCADR 

PRCG2  5 

092  9 

REF 

1 

0 4,  2440 

50000  1 

FCADR 

PROG  22 

0930 

REF 

1 

,2441 

51442  1 

FCADR 

PP  0G21 

0931 

REF 

1 

04,  2442 

50000  1 

FCADR 

PRGG20 

0932 

RFF 

1 

04,2443 

60061  0 

FCADR 

P 12LM 

0933 

RFF 

1 

04  ,2444 

77654  0 

FCADR 

PO  6 

R0934 

THE 

PREMM  TABLE  CONTAINS  THE  E-BANK, MAJOR  MODE 

, AND  PR  1 

R0935 

I NFORMATICN, 

IT  IS  IN  THE  FOLLOWING  FORM, 

R0936 

PPP 

P PE  EEM  M MM  MMM 

R 093  7 

WHERE  THE  7 M BITS  CONTAIN  THE  MAJOR  MODE  NUMBER 

R 0938 

3 E BITS 

CC NT  AIN  THE  F-BANK 

NUMBER 

R0939 

5 P BITS 

CONTAIN  THE  PRIORITY  AT  WHICH  THE  . 

R09A0 

TO  BE 

STARTED 

9 0*>4  l 

FOR 

E XAM  Pl.E  , 

AO  9 4? 

PREMMl 

OCT 

67213 

A 0943 

A0944 

A~>  94  5 

OC  T 

25437 

A 0946 

A0947 

R0948 

NCTE  , 

THE 

FIRST  ENTRY  MUST 

EE  L ABEL  ED  PR  EMM  l 

0951 

04,2445 

2 7714  0 PRFMM1 

OCT 

27714 

0952 

04,  2446 

27713  1 

OCT 

2771  3 

l osi 

04  ,2447 

27712  0 

OCT 

27712 

0954 

04,2450 

27711  0 

OCT 

2 771  1 

0955 

04, 2451 

27710  1 

DC  T 

27710 

0956 

04  ,2452 

27704  1 

OCT 

27704 

^957 

C 4,  2453 

27677  1 

OCT 

27677 

0958 

04,2454 

27  271  0 

DCT 

27271 

0959 

04,2455 

27264  1 

OCT 

27264 

3960 

04, 2456 

272(3  0 

OCT 

2 7263 

0961 

04  ,2457 

27657  0 

OCT 

27657 

?:l2  CCT . 21  *1970  Z ERL  A I C .001  PAGE  241 


USER  'S  PAGE  NO.  24 


PRIORITY  33 

E-PANK  5 

MAJOR  MODE  II 

PRIORITY  12 

E-BANK  6 

MAJOR  MODE  31 


MM  76  EBANK  7 
MM  75  EBANK  7 
MM  74  EBANK  7 
MM  73  EBANK  7 
MM  72  EBANK  7 
MM  68  EBANK  7 
MM  63  EBANK  7 
MM  67  FBANK  5 
MM  52  EBANK  5 
MM  51  EBANK  5 
MM  47  EBANK  7 


PRIO  13 
PRIO  13 
PRIC  13 
PRIO  13 
PRIO  13 
PRIO  13 
PRIO  13 
PPI r 13 
PRIO  13 
PRIO  13 
PRIO  13 


GAP: 


ASSF  MBLF  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  RY  ZOROASTER 


FPFSH  START  AND  RESTART 


3962 

”963 

0966 

0967 

0968 
3969 
0970 
0972 
3973 
0976 

0975 

0976 

0977 
3978 

R 0979  NCTE  » 

*0980  

R3981 


06,  2660 
06  ,2661 
06,2662 
06,  2663 
06,2666 
C6, 2665 
06,2666 
06,2667 
0 6,  2670 
06  ,2671 
C6.2672 

94. 2673 

06.2674 


27652  0 
27651  D 
27650  1 
27643  0 
2? 642  1 
27641  l 
27640  0 
27636  1 
27631  0 
27626  0 
27625  0 
27624  1 


04,  2475  270C6  1 

THE  F CL  LOW  I NG  CONSTANT  IS  THE  NUMBER 
THF  ABOVE  IISTS-1(IE,  THE  NUMBER  CF 
THAT  CAN  BE  CALLED  FROM  THE  KEYBnAPO 


OC  T 
OCT 
OCT 
OC  T 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OC  T 
OCT 
OCT 


27652 
27651 
27650 
27643 
27642 
27641 
27640 
27636 
27631 
27626 
27625 
27624 
27  o 14 


2 7006 

OF  ENTRIES  IN  EACH  OF 
MAJOR  MODES  (EXCEPT  POO) 
INUS  ONE) 


0982 


04  ,2476  00030  1 NOV37MM  DEC 


24 


3985 

0986 

0987 
3988 
C 989 
C 990 

0991 

0992 
3993 

0994 

0995 
3996 

0997 

0998 
1001 
1002 
1333 
1 004 
1006 
1337 
1008 

1009 

1010 
1011 
n 12 
1 c 1 3 
1014 
1315 
1016 
10  17 


REF 
RTF 
REF 
REF 
RFF 
REF 
REF 
PFF 
P f:F 
RFF 
REF 
REF 
REF 
REF 
REF 
RFF 
REF 
REF 
REF 
RTF 
RFF 
REF 
PEF 
RFF 
REF 
RFF 


LAST 
LAST 
L AST 
LAST 


I AST 
LAST 
I A ST 
L AST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
I A ST 
L AST 
LA  ST 
LAST 
LAST 


2a  2 
242 


242 
24  2 
242 
2^2 
24? 
242 
24  2 
24  2 
24  2 
242 
242 
24  2 
242 
24  2 
23  5 


, 

0<V,?500 
04,2501 
04,  2502 
04  ,2503 
■ 

04,  2505 
04,2506 
C4,  25C  7 

04.2510 

04.251 1 
C 4,  2512 
04  ,2513 
Oa ,25  14 
04,  25  15 
04  ,25  16 
C 4,  2517 
04,  2 520 
04  ,2521 
04,  2 522 
04  ,2523 
04,2  5 24 
04, 2525 
04  ,2526 
C4,  2527 

4755 

0000 

OOC1 

0002 

0003 


CCCC2  0 
coor 2 : 
00002  0 

0000 2 o 
00002  0 
CCCC4  0 
00CC4  0 
00005  1 
CCCCO  1 
00000  1 

00003  1 
COOO  3 1 
000C3  1 
OOOC'3  1 
OC  OC  2 0 
00002  0 
CCCC2  0 
00002  0 
000C2  0 
C0C02  0 
00005  1 
0000?  0 
OOCO 2 o 

00004  0 
CCOOO  1 


DNLADMM1 


ON  LA  DP  O' i 
CCSTALIL 
AG  SUPDA  T 
RENDEZVL 
CR8MANUL 


AO  RES 
AORES 
A ORES 
AORES 
AORES 
AORES 
ACRE  S 
ACRES 
ADRES 
AORES 
AORES 
ACRE  S 
ADRES 
AORES 
ADRE  S 
ADR  ES 
AORES 
AORES 
ADRES 
ADRES 
AORES 
AORES 
ADRE  S 
A OR  ES 
AORES 


RENDEZVL 
RFNOEZVL 
RENDEZVL 
RENOE  7 VL 
RENDEZVL 
DES  AS  C NT 
Dt  SA  SC  NT 
LU  NR  S A L N 
COSTAL!  L 
COSTALIl 
ORBMANUL 
ORBMANL'L 
ORBMANUL 
ORBMANUL 
PENDfcZ  VL 
RFNOEZVL 
RENDEZVL 
RENDEZVL 
RENDEZVL 
RENDEZVL 
L UNR  SALN 
RENDEZVL 
RENDEZVL 
DESASCNT 
COSTALI  L 
ZERO 
0 
1 
2 
3 
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MM  42  EBANK 
MM  41  EBANK 
MM  40  EBANK 
MM  35  EBANK 
MM  2<*  EBANK 
MM  33  FRANK 
MM  32  EBANK 
MM  V)  EBANK 
MM  25  EBANK 
MM  22  EBANK 
MM  21  EBANK 
MM  20  EBANK 
MM  12  EBANK 
MM  06  EBANK 


7 PRIC  13 
7 PRIG  13 
7 PR  10  13 
7 PRIC  13 
7 PRIO  13 
7 PR  10  13 
7 PRI C 13 
7 PRIO  13 
7 PRIO  13 
7 PRIO  13 
7 PRIO  13 
7 PR  IT  1 3 
7 PRIO  13 
u pr  IQ  13 


E 3 S3 


P76 
P 75 
P 7 4 
P7  3 
P 72 
P68 
P63 
P 57 
P5  2 
P51 
P47 
P42 
P41 
P40 

P35 
P 34 
P3  3 
P 3? 
P3C 
P25 
P 22 
P21 
P20 
P 12 
PO  6 


TAP:  ASSFMP.  LE  REVISION  56  Oh  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


FRESH  START  AND  T E STAR  T 


101R 
1019 
1320 
1021 
10  2 2 


0004 
00C5 
13,  20  26 
13  ,2000 
13,2026 


DESASCNT  = 4 

LUNRSALN  = 5 

BANK  13 
SFTLOC  INTINIT 
BANK 


1023 
1 24 


RFF 

REF 


2 LAST  47  TO  47: 

2 LAST  114  E3.1554 


R1325  THIS  POUT  INF  COES  THE  P33  INTEGRATION 


1026 
10  27 

192  8 

1029 
1)33 
1031 
10  32 
1333 
1034 
10  35 
1 C36 


REF 

RFF 

REF 

RFF 

REF 

REE 


13  ,2026 

12,20.21 

■ . 

1 3 ,2031 
1 ?,  2C32 
1 3,2033 
1 3,2034 
1 3,  2035 
13,2036 
1 . 

13, 2040 


43014  0 
C l A 74  1 
04347  0 
26036  0 
*3014  0 
02756  1 
26036  0 
0 1 4 76  0 
45014  0 
01667  1 
27133  0 


COUNT*  JS/INTIN 
EB  ANK=  RRECTCSM 


STATEUP  SET 


ROE 

V I NT  FLAG 
SURFF  LAG 
POINT 
SET 

RENDWFLG 
on  I NT 
DI  MOFL AG 
CALL 

PREC IFLC 
I N TE  3 R V 


1 C 37 
1)38 
1 C‘39 
1040 
1)41 

1042 

1043 
1 044 
1045 
1 ) 46 

1047 

1048 
1349 
1050 
10  51 

1052 

1053 
13  54 

1055 

1056 
1 357 


REF 

REF 

RFF 

REF 

REF 


RFF 

REF 


LAST 
L AST 
LAST 


24  3 

114 

214 

236 

24  3 


LAST  215 


13,2041 
1 3,  2042 

• 

13.2044 

13. 2045 
13  ,2946 
13,2047 
13,  20  50 
13  ,2051 
13,  2052 
1 3,2053 
13,2054 
13,  20 c 5 
13  ,2056 
13  ,2  05  7 
1 , 

13  ,2061 
13,  2C6  2 
13,  20  63 
13,2064 
1 3,  20  6 5 


71214  0 
C43C7  1 
26063  0 
C 1 5 71  0 
34041  0 
274 1C  1 
4 5 C 1 4 0 
01674  0 
26643  1 
77614  L 
02756  1 
26060  0 
43C 14  0 
01476  0 
01475  0 
45014  0 
01467  0 
27133  0 
7 76  14  1 
01236  1 
26631  1 


BON  DLOAO 

SURFFLAG 
NO-INT 
T ETCSM 
STCALL  TDECl 

INTSTALL 
CLEAR  CALL 

VI  NTF  LAG 
SET  IFLGS 


BOF 


RENDWFLG 
DO  I NT  2 
SET 

DIMOFLAG 
D5  0R9  FL  G 

CALL 

PREC  IFLG 
I NTEGRV 


R 1058 
1059 


THISVINT  IS  CALLFD  PY  MTDTCAV1  ANT2 

L 3, 2C66  43414  1 


THI  SVI  NT  C LEAR  RVC 
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001  PAGE  243 


JS  ER  'S  PAGE  NO  . 26 


E 3 S3 


EXTRAPOLATE  CM  STATE  VECTOR 

A LSC  6X6  W-MATRIX  IF  LM  ON  LUNAR 
SURFACE  AND  W-MATPIX  VALID 
FOR  RENDEZVOUS  NAVIGATION. 


ENGAGFS  4-TIvf  ST  EP  LOGIC  IN  INTEGRATION 
WHEN  MOO  PEG  = C 


EXTRAPOLATE  LM  STATE  VECTOR 

ALSO  9X9  W-MATRIX  IF  W IS  VALID 


D I SENG  AGF  4 TIME  STEP  LOGIC  IN  I NTEG. 


GAP:  ASSEMRIF  REVISION  56  OF  A3C  PROGRAM  7ERLINA  BY  7CROASTFR 

L FPESh  START  AN  0 P FST  A®  T 

1060  PFF  3 LAST  2*3  13,2067  0167*  0 
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L 

RESTART  TABLES  USER'S  PAGE  NO.  1 EO  S3 

P0001 

R 00.02 

RESTART  TABLES 

3 0003 
R3D35 

R 0007 
R0009 
RJDI  0 

3 0012 
R0014 

THERE  APE  TWC  FORMS  OF  PFSTAPT  TABLES  FOR  EACH  GROUP.  THEY  ARE  KNOWN  AS  THE  EVEN  RESTART  TABLES  AND  THE  000 
RESTART  TABLES.  TEE  TOO  TABLES  HAVE  ONLY  ONE  ENTRY  OF  THREE  LOCATIONS  WHILE  THE  EVEN  TABLES  HAVE  TWO  ENTRIES 
EACH  LSI  NG  THREE  LOCATIONS.  TEE  INFORMATION  AS  TO  WHETHER  IT  IS  A JOB,  WAITLIST,  OR  A LONGCALL  IS  GIVEN  BY  THE 
WAY  THINGS  APE  PU1  INTO  THE  TABLES. 

A JOB  HAS  ITS  PRIOPITY  STORED  IN  PRDTTAB  OF  THE  CORRECT  PHASE  SPOT  - A POSITIVE  PRIORITY  INDICATES  A 

FINDVAC  JOB,  A NEGATIVE  PRIORITY  A NOV  AC.  THE  2CA0R  3F  THE  JOB  IS  STORED  IN  THE  CAOR  TAB. 

FOR  EXAMPLE, 

A0015 
400  16 

5.7SP0T  OCT  23000 

2 CAOR  SOMEJOB 

R0017 

A RESTART  OF  GROUP  5 WITH  PHASE  SEVEN  WOULD  THEN  CAUSE  SOMEJOB  TO  BE  RESTARTED  AS  A FINDVAC  WITH  PRIORITY  23. 

4 0019 
A0020 

5.5SPOT  OCT  -2  3000 

2 CAOR  ANY  JOB 

R0021 

3 Ol  23 
ROD  25 
R0027 

HERF  A RESTART  CF  GROUP  5 WITH  PHASE  7 WOULD  CAUSE  ANY J03  TO  BE  RESTARTED  AS  A NOVAC  WITH  PRIORITY  23. 

A LONGCALL  HAS  ITS  GENADR  CF  ITS  2 C ADR  STORCD  NF  GAT  IV  ELY  AND  ITS  PRCDN  STORED  POSITIVELY.  IN  ITS  PRDTTAB  IS 
PIACED  TEE  LOCATION  OF  A DP  REGISTER  THAT  CONTAINS  THE  DELTA  TIME  THAT  LONGCALL  HAD  BEEN  ORIGINALLY  STARTED 

WITH.  EXAMPLE, 

A002R 
AOC  2 0 

4 0030 

3.6SPCT  GENADR  DELTAT 

-GENADR  LONG  TASK 

3BC0N  LONGTASK 

Hi 

OCT  3 1000 

2CAD3  JOBAGAIN 

R 0033 
R3D35 

R 0037 

THIS  WOULD  START  UP  LONGTASK  AT  THE  APPROPRIATE  T I MF,  OR  IMMEDIATELY  IF  THE  TIME  HAD  ALREAOY  PASSED.  IT  SHOULD 

RF  NOTFO  THAT  IP  DELTAT  IS  IN  A SWITCHED  E BANK,  THIS  I NF  OR  M A TO  I N SHOULD  BF  IN  THE  BBC  CN  OFT  HE  2CADP  OF  THE 

TASK.  FROM  ABCVF  , WE  SEE  THAT  THE  SECOND  PART  OF  THIS  PHASE  WOULD  BE  STAR  TF  D AS  A JOB  WITH  A PRIORITY  OF  31. 

R003O 

R 0 0 4 1 

R 0043 

RD  345 
ROC  4 7 
R0049 

WAITLIST  CALLS  ARE  IDENTIFIED  BY  THE  FACT  THAT  THEIR  2 CAOR  IS  ST  CR  ED  NEGATIVELY.  IF  PRDTTAB  OF  THE  PHASE  SPOT 

IS  POSITIVE,  THEN  IT  CONTAINS  TFF  OELTA  T IMF , IF  PRDTTAB  IS  NEGATIVE  THEN  IT  IS  THE  -GENADR  OF  AN  ERASABLE 
LOCATION  CONTAINING  THE  DELTA  TIME,  THAT  IS,  THE  TIME  IS  STORED  INDIRECTLY.  IT  SHOULD  BE  NOTED  AS  ABOVE,  THAT 

IF  IFF  TIME  IS  STORED  INOIRFCTIY,  1HF  BBC  ON  MUST  CONTAIN  THE  NECESSARY  F BANK  INFORMATION  IF  APPLICABLE.  WITH 
WAITLIST  WF  HAVE  CNF  FURTHER  OPTION,  IF  -0  IS  STORED  IN  RROTTAB,  IT  WILL  CAUSE  AN  IMMEDIATE  RESTART  OF  THE 

TASK.  EXAMPLES, 

A0050 

4 0051 

OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATE  RESTART 

-2CADR  ATASK  OF  THE  TASK  : A TA  SK  : 

A33R? 

40053 

4 00  54 
A3D55 

DEC  200  IF  THE  TIME  OF  THE  2 SECONDS  SINCE  DUMMY 

-2CADR  DUMMY  WAS  PUT  ON  WAITLIST  IS  UP,  IT  WILL  BEGIN 

IN  ID  MS,  OTHERWISE  IT  WI  1 L BEGIN  WHEN 

IT  NORMALLY  WOULD  HAVE  BEGUN. 

GAP: 
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L RESTART  TABLES 
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-GENADR  DT  IME  WHERE  OT  IME  CONTAINS  THE  DELTA  TIME 

-2CA09  TASKTASK  OTHERWISE  THIS  IS  AS  ABOVE 
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07,  2031  6 6752  0 MKVACFND  AD 

07,2032  5 5 ' 3 C7  0 TS 


TWO 

MARKST  AT 


9 933 
0 14 
0035 


C7,  2023 
17  ,2036 
07,2035 


2 6755  1 
51*307  1 
53*777  0 


CAF  ZERO 

INDEX  MARK  STA  T 
TS  9 -1 


0036 

0037 
9933 
0039 
00  39 


RFF 

RFF 

REF 

RFF 

RFF 


L AST 
LA  SI 
LAST 


187 

218 

251 


07,  20  36  3 5C  2 5 0 

07,2037  0 5105  0 

F 7,  1551 

07,2060  C2C63  0 
C7 ,?  061  16067  1 


CAF  PR  I Ol 5 

TC  FINDVAC 

F BANK=  XYMARK 
2CA0R  GFTDAT 


96 

0061 


REF 


07,  206  2 C OOC.  3 1 
07  ,2063  1 6631  0 


RFLINT 

TCF  SWR  E TURN 


9:12  CCT.  21,1970  ZERLAIC  .001  PAGE  251 
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SEE  IF  AOTMARK  BUSY 
MARK  SYSTEM  BUSY-DO  ALARM 


SE F IF  EXT.  VERB  WCRKING 


YF  S -ABORT 


NO-DISALLOW  SOME  EXTENDED  VERB  ACTION 
6IT2  RESET  IN  ENDMARK 
LOOK  FOR  A VAC  AREA-DC  ABORT  IF 
NONE  AVAILABLE 


ALL  VAC  AREAS  OCCUPIED  - ABORT. 

STORE  VAC  A DT  IN  LOW  9 OF  MARKSTAT 

ZERO  IN  VACUSE  REG  TO  SHOW  VAC  OCCUPIED 


SFT  UP  JOB  FOR  GE  TDA  T 


'.AP : 


ASSEP8LF  REVISION  56  )F  AG  C PROGRAM  Z ERL  IN  A BY  ZOROASTER 


0^42  REF 
00422  PFF 
0043 


? I AST  25  1 
2 LAST  251 


07,  2044 
jl  ,2145 
C 7 , 2046 


52  134  0 MK ABOR T 
0 5717  0 
31211  1 


0 XC  H B UF  2 

TC  BA  I LOUT  1 

XT  31211 


0044 

0045 

3 3 46 

004  7 
00  4 8 
004  9 
n050 
3351 
0052 


PFF 

PFF 

REF 

RFF 

REF 


RFF 

RFF 

RFF 


25  1 
251 


LAST  251 
LAST  252 

LAST  234 
LAST  2 37 


07,  2047 
37,7  050 
0 7,  2C5  1 
07  ,2052 
07,2053 
0 7,  2054 
07 ,2055 
C 7,  2 C 5 6 
07,2057 


3 4755  1 
57'3C7  1 
7 5CC4  1 
li  OOC  - 
£0  000  1 
54  CCO  0 
3 4753  1 
C 4674  0 
17664  n 


MKR FL  FAS 


CAF 
XCH 
MA  SK 
CCS 
I NDEX 
TS 
CAF 
TC 

C A DR 


ZERO 

MARKST  AT 

L0W9 

A 

A 

0 

3NF 

I BNKC  ALL 

300DFN0 


9:12  OCT*  21  ,1970  ZEPLAID  ,001  PAGE  252 
USER  'S  °AGE  NO.  2 E7  S3 

CONFLICT  WITH  E XTFNDFO  VERB 

S FT  MARKSTAT  TO  ZERO 
PICK  UP  VAC  AREA  ACR 

SHCW  MKVAC  AREA  AVAILABLE 

GO  WAKE  UP  CALLING  JOB 


GAP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


AOTMARK 


00521  RFF 

00522  PFF 
3352  3 RFF 
0053  RFF 
00531  RFF 
005 -T  2 REF 


LAST  252 
LAST  2S1 
LAST  224 
LAST  252 
I A ST 
L AST 


, 

37,2061 
07,  2062 
07  ,2063 
07,2064 
07,  2065 


3 4755  1 
55'043  0 
0 6UC 1 0 

4 1307  0 
7 4740  1 
27*307  0 


225 

253 


KILL  AOT  CAF 
TS 
TC 

GET  OAT  CS 

MASK 
AO  S 


ZERO 
EXTV  RACT 
GOTOPOOH 
MARK  STAT 
RIT12 
MARK  STA  T 


O1"1 533  REF  I 

3 3 54  REF  10  I AST  232 

0055  REF  2 LAST  214 


C7  ,2066 
3 7,  2CA7 
07,2070 


3 2330  0 
0 4616  1 
20334  1 


CAF  V01N71 

TC  BANKCALL 

CADR  GOMARKF 


0056  RFF 

0057  PEF 
OC  58  RFF 


2 LAST  251 


1 

1 


TCF  KILL  AOT 

TCF  OOOAT 


07  »2C 73  1 2063 


ENTERDAT  TCF  GETDAT 


0069 

0070 
0071 
3372 
007  3 


REF 

REF 


1 

4 LAST 

15  L AST 
4 LAST 


07,2074  2 7756  1 

239  07,  2075  7 0 734  0 

0 7,2076  C C006  1 

170  07, 2C77  7 4743  1 

251  07  ,2100  55 ' 55 1 0 


DOCAT 


CAF  H1GH9 

MASK  AOTCOOE 

EXTEND 
MP  81  T9 

TS  XYMARK 


00  74 

0075  PFF 


LAST  25  3 


37,2101  C 0006  1 
07,  2102  ( 2f  f 3 C 


EXTEND 

BZMF  GETDAT 


0076  REF  1 

3377 

0078  REF  1 


07,2103  6 5661  0 

07,  2 1 C 4 C OC C 6 1 
07,2105  1 2107  1 


AD  NEG7 

E XTEND 

8ZF  CODE  7 


00785  RFF 


37 , ? 1 06  1 2123 


TCF  C0DE1T06 


3 3 70 
0080 
0081 


REF  1 

REF  11  LAST  253 
REF  3 (AST  253 


07,  2107  3 233  1 1 CODE  7 

37,2110  0 4616  1 

C7  » 2 1 1 1 20334  l 


CAF  V06N87* 

TC  RANKCALL 

CADR  GOMARKF 


0082  REF  ? LAST 

0083 

3384  REF  2 LAST 

00  841 

0085  REF  2 LAST 

0086  PEF  1 

0087 

3305  REF  20  LAST 

0096  REF  1 


25  3 
263 


11C 


253 


07. 2112  1 2060  1 

07.2113  1 2115  1 

07.2114  1 21C7  1 

07.2115  C 0006  1 

07.2116  2 1345  1 

07. 2117  50  120  1 

07  ,2120  52  011  0 

07,  2121  2 4755  1 

07,2122  1 2137  1 


TCF  KILLAOT 

TCF  +2 

TCF  C0DE7 

EXTEND 
DC  A AZ 

INDEX  FIXLDC 

OX  CH  8 0 

CAF  ZERC 

TCF  CUASCODE 


0097  REF 
3398  RFF 
009*3  REF 
0100 


LAST  253 


.37  ,2125 
07,2126 


51*551  1 
3 1411  1 
5C  120  1 
64  Cll  0 


CCDE1TC6 


INDEX 

CA 

INDEX 

TS 


XYMARK 
AO  TEL  -1 
F I XL  DC 
9 D 


oioi 


REF  6 LAST  25  3 


07,  2 127  6 1 *651 


1NDFX  XYMARK 


9:  12  OCT.  21,1070  ZERLAID  .001  PAGE  253 


USER’S  PAGE  NO.  3 F7  S3 


TERMINATE  AOT  M AR  K- A LLOW  F XT  VERB 

SFT  8 I T 1 2 TC  DISCOURAGE  MARKRUPT 
R IT  12  RESET  AT  GFTMARK 


DISPLAY  DETENT  AND  STAR  CODE 


V34-D0ES  GOTOPOOH 

V33 -PROCEEO-US  E THIS  STAR  FOR  MARKS 
ENTFR-REDI SPLAY  STAR  CODE 


PICK  DETENT  CODE  FROM  BITS7-9  OF  AOTCOOE 
AND  SEE  IF  CODE  1 TC  6 


STORE  DETENT 


C FAS  CALIBRATION  CCCE-NO  GOOD  HERE 
SEE  I F DETENT  7 FOR  COA  S 


CODE  7,  COAS  SIGHTING,  GET  OPTIC  AXIS 
AZ  AND  EL  OF  SIGHTING  DEVICE  FROM  ASTRO 


V34-D0ES  GOTOPOOH 
PROCEFD 

ON  ENTER,  RECYCLE 

PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 

STORE  IN  8D  AND  «=0  OF  LOCAL  VAC. 
PACKJP  SYSTEM  TO  RE  USED 
7ER0  APPARENT  ROTATION 

INDEX  AOT  POSITION  BY  DET  CODE 


STORE  ELEVATION  IN  VAC  +9D 


I NDEX  DET  CODE  1 ,2  OR  3 


GAP: 


ASSEMRLF  OR/ISION  S<>  QF  AGC  PROGRAM  7FKLINA  BY  ZOROASTER 


L AOTHARK 


01  2 PEF 
Olp3  REF 
G 10  A 


2 


LAST 

LAST 


77,  2 130 

37. 2131 

37.2132 


2 l A C 3 1 
50  120  1 
54  010  1 


CA  AOTAZ  -1 

INDEX  = I XLOC 
TS  80 


3 1.  5 

oioft 

r 107 

Ol 

01 C 9 

7113 


REF 
R EF 
REF 


3 l AST  254 

4 LAST  254 

5 LAST  254 


07,  2 133  3 1 4C  5 1 

17.2  134  C 0006  1 

07.2  135  E 0120  1 

07,  2 136  20  QlO  1 

07  ,213.7  50  120  1 

07, 2140  54  C 1 2 0 


CA  AOTAZ  «-1 

EXTEND 

INDEX  FIXLO'C 
M SU  83 

COASCOCE  INDEX  F IXLOC 
TS  1 0 D 


''111  REF 


LAST  23  6 


07,2141  0 6C5 1 0 


INTPRF  T 


9:12  CCT.  21,1970  ZEPLAIC  .001 


PAGE  254 


USER'S  PAGE  NO.  4 E7  S3 


STORE  AZIMUTH  IN  VAC+8D 


COMPENSATION  FCR  APPAR  FNT  ROTATION  OF 
AOT  FIEin  OF  VIEW  IN  LEFT  AND  RIGTHT 
DETENTS  IS  STORED  IN  VAC  *1CD  IN  SP 
PRECISION  ONES  COMPLEMENT 

ROT  ANGLE 


COMPUTE  X AND  Y PLANE  VFCTORS 


f 3AP:  ASSEMBLE  KF  VI  SION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZQRGAST  ER 


9:12  OCT.  21,  1970  Z ER  LA  I D .001  PAGE  255 


L AGTMARK 


USER'S  PAGE  NC. 


E7  S3 


J 112  THE  OPTAXIS  SUBROUTINE  COMPUTES  TEE  X AND  Y MARK  PLANE  VECS  ANO 

R 0 1 1 3 AND  ROTATES  THEM  THRU  THE  A P F AREN  T FIELD  OF  VIEW  ROTATION  UNIQUE  TO  AOT 

PCll'.  C FT  AX  IS  USES  CANS  TO  COMPUTE  TEE  OPTIC  AXIS 

T 1 - 115  INPUT-AZIMUTH  ANGLE  IN  SINGLE  PREC  AT  CCU  SCALE  IN  8D  CF  JOB  VAC 
R3116  EL  FV  AT  ION  ANCLE  IV  SINGLE  PREC  AT  CDU  SCALE  IN  90  OF  JOe  VAC 

R '117  RCTATION  ANGLE  IN  SINGLE  PREC  IS  COMP  SCALED  BY  P I IN  10D  OF  VAC 

R011R  OUTPUT-OPTIC  AXIS  VFC  IN  NB  CCCRDS  IN  SCAXIS 
R3119  X-MARK  PLANE  1/4VEC  IN  NB  COORDS  AT  1 BO  OF  JOB  VAC 

* 0120  Y-MARK  PLANE  1/4VEC  IN  NB  COORCS  AT  120  OF  JOB  VAC 


0 123 
3 124 
0125 
0 126 
0127 
< 12R 
3 129 

0130 
C 131 
3132 
Cl  33 
0 134 
0135 
013  7 
3138 
01381 
0 139 
3 1 AO 
0 1 A l 
0 142 
0H3 


RFF 


RFF 

REF 

REF 


I AST  127 


07,  2142 
'7,21 43 
07,2144 
3 7,  ? 145 
07  ,2146 
07,214  7 
0 7,  2150 
07  ,?  I 5 1 
07,  2 152 
07,2  1 53 
0 7,2154 
C 7,  2 155 
07  ,2156 
C 7 ,2157 
07, 2 160 
07  ,2161 
C 7,  2162 

07.2163 

07.2164 
0 7,  2 1 6 6 
07  ,2  166 
07,2167 
07,  2170 


77624  1 
10530  p 
7(3535  0 
C0C13  0 
73406  l 
71525  0 
74206  0 
00023  0 
74325  0 
0000 1 0 
00031  0 
45445  0 
63762  1 
65361  0 
00031  0 
53361  0 
CCC23  0 
77626  0 
53754  1 
24007  0 
02715  0 
77776  1 
1 2202  1 


OP  TA  XI 


CALL  GO  COMPUTE  OA  ANO  X AND  Y PLANE  VECS 

DA  NB 

SLOAD  SRI  LOAD  APP  ROTATION  IN  ONES  COMP 

1 0D  RESCALE  BY  2PI 

PUSH  SIN  I/2SI  N(  ROT)  0-1 

POOL  COS 

PUSH  VXSC  1/2C0S  ( ROT ) 2-3 

1BD 

POOL  VXSC  1/4C0S  (ROT  )UYP  4-9 

0 

24  D 1/4SIN(R0T)UXP 

RVSU  STADR  UP  4-9 

STOOL  1 2D  YPNB=1/4(C0S(  ROT)  UYP-SI  N(ROT)  UXP) 

VXSC  POOL  UP  2-3  UP  0-1  FOR  EXCHANGE 

240  1/4C0S  (ROT)UXP  PUSH  0-5 

VXSC  VAD  1/4SI N ( RD  T)  UYP 

l 9 D UP  0-5 

STADR 

STOVL  18  C XPNB=  l/4<  CO  S(  ROT  IUXP+SI  N(  PCITI  UYP) 

IC6ZER0S  INITIALIZE  AV  E STAR  VEC  ACCUMULATOR 

STORF  STARAD  +6 

EXIT 

TCF  3ETMKS 


GAP:  ASSEMBLE  REV  IS  ION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L APTMAPK 

RU44  THE  OANB  SUBROUTINE  COMPUTES  THF  OPTIC  AXIS  OF  THE  SIGHTING  INSTRUMENT 
Rt'U5  F PCM  AZIMUTH  ANC  FLFVATTON  INPUT  FROM  THE  ASTRONAUT. 

*01*6  INPUT-  AZIMUTH  ANGLE  IN  SINGLE  FREC  2 S COMP  i\  80  OF  JOB  VAC 

RM*7  ELEVATION  ANGLE  IN  SINGLE  PREC  2S  COMP  IN  9D  OF  VAC 

R0148  OLTPLT-OPTIC  AXIS  IN  NB  CCCFCS.  IN  SCAXIS 

Rf*l4<J  X-PLANF  1 / 2 VF  r IN  NB  COCROS  AT  240  OF  VAC 

Rnl  5C  Y-PLANE  1/2VEC  IN  Ne  COORDS  AT  1 8D  OF  VAC 


01501 

31532  REF 
01504 


05,3414 
C4, 2CC0 
•'*4,2530 


BANK  05 
SETLCC  ACTMARK2 
BANK 


01506  REF 


COUNT*  tt/MARK 


r is 2 

'*153 
Ol  54 

01  55 
2156 
015  7 
0 15B 

2 158  l 
<150 
0160 
Cl6l 

C 162 
2163 
r 1 64 

0 165 
2166 
0167 
' 168 

1 160 

0 1 70 
2171 
0172 
0 173 
2174 
C 175 

0 176 

01  77 
0178 
2179 
Ol  80 
0181 


P FF 

PEF 

RFF 

REF 

P.EF 

RFF 

RFF 

REF 

RFF 


2 


2 


5 


6 


3 


LAST  127 

I AST  15 

LAST  256 

LAST  255 

LAST  256 

LAST  256 

LAST  256 

LAST  256 


04, 2530 
J 4 ,2531 
04,2522 
04, 2533 
04  ,2534 
C 4,  2535 
0 4,2536 
V,  ,2537 
'A,  2540 

>4  ,2541 

04,254  2 
04, 2543 
04  ,2544 
04,  2 5 A 5 
2 A , 2 5 A 6 
OA  ,2  5A7 
) 4 , 2550 
OA  ,2551 
CA  ,2552 
04, 2553 
04  ,2554 

04. 2555 

04.2556 
04  ,2557 
04, 2560 
04  ,2561 
04 ,2562 
04,  2563 
04  ,2564 
OA, 2565 
04,2  566 
OA  ,2  567 


440G1  0 
00001  0 
02736  1 
A 7 1 3 5 0 

00012  1 
21560  1 
714G6  0 
73525  1 
77626  0 
60012  l 
00011  1 
7762A  0 
21560  1 
71AC6  0 
0C025  0 
73525  1 
57AC6  1 
1A027  1 
2 AOO  7 0 
14023  0 
7?405  0 
COCCI  0 
17767  1 
72405  0 
77626  0 
500C6  1 
00023  C 
5 3435  0 
03765  0 
CCC31  0 
77650  1 
02736  1 


OA  NB 


SETPD  STQ 
0 

GCTP 

SLOAD  RTR 
90 

CDU  LOG  I C 
PUSH  COS 
POOL  SIN 
STADR 

STOOL  SCAXIS 
90 

R T8 

CDULOGIC 
PUSH  COS 
STORE  20D 
POOL  S IN 
PUSH  DCOMP 
STOOL  2 2D 

I 06  ZEROS 
STOOL  180 
OMP  SL  1 
0 

STOOL  SC  A XI  S +2 
OMP  SL1 
STAOR 

STOVL  SCAXIS  + A 
18  D 

VXV  UNIT 

S C AX  IS 
STORE  2 A 0 
GOTO 

GCTR 


: 1 2 CCT.  21,1970 


ZERI  A I C 


PAGE 


256 


. I 


USER  • S PAGE  NO.  6 


E7  S3 


STORF  RFTURN 
PICK  UP  SP  ELV 

1/2C3SI  EL  V)  PO  0-  1 

OA  X = l/2S! N(F  LV) 

PICK  UP  AZ  SP 


STORE  UYP(Y)  2 0-21 
1 /2C0SI  AZ  ) PO  2-3 
PUSH  1 / 2 S INIAZ  ) A -5 
STORF  UYP(Z)  22-23 


STORE  UYP(X)  18-19  UP  A -5 


0AY  = 1/2C0S(  ELV)  SI  NIAZ) 
UP  2-3 
UP  C-1 

OAZ  =1/2C  0S(  FLVICOS  (AZ) 
LOAD  UYP  VFC 

UXP  VEC  = UYP  X OA 
STORE  JXP 


HP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L A CT  MA  RK 

PC  1 82  SURFSTAR  COMPUTES  A STAR  VECTOR  IN  SM  COORDINATES  FDR  LUNAR 

R9  1B3  SURFACE  ALIGNMENT  AND  EXITS  TO  AVEIT  TO  AVERAGE  STAR  VECTORS. 

R3 1 84  GIVEN  X-MARK  PLANE  1/4  VEC  IN  NB  AT  1 8D  OF  LOCAL  VAC 

*0185  Y-MAP.K  PLANE  1/4  VFC  IN  Ne  AT  12D  OF  LOCAL  VAC. 

R 18  6 CURSOR  SP  2C0MP  AT  POSITION  1 OF  INDEXED  MARKVAC 


ROl  87 

SPIRAL  S P 

2 COMP  AT  POSIT  HIM 

3 OF  INDFXED  MARKVA 

R 0188 

CDUY, 

,Z,X  A 

T POSITIONS 

0,2  ,4 

CF 

INDEX  ED 

MARKVAC 

D1R9 

15,  20 CO 

BANK 

15 

Ql  90 

REF 

1 

1 -■  , 

setlo: 

P 50S 

0191 

15,2000 

BANK 

D 1 92 

REF 

) 

COUNT* 

t i /R59 

01921 

15  ,2000 

77773 

1 

SUREST  AR 

VLOAD* 

0 1°  2 2 

15.20C1 

00001 

0 

9 »1 

01  9?  3 

REF 

4 

L AST 

io  2 

15, 2Q0  2 

GC  766 

0 

STORE 

CDUSPOT 

0193 

15  ,2 

47133 

0 

SLOAD* 

PTB 

D 1 94 

15,  20 C 4 

00CC2 

0 

1 tl 

01  95 

REF 

3 

LAST 

256 

15,2005 

21560 

1 

COULOGIC 

0196 

15,2006 

00031 

0 

STORE 

24  C 

D 1 96  1 

15,  2 OC 7 

77654 

0 

BZE 

01962 

REF 

1 

15  ,2010 

16  17  1 

1 

YZCHK 

C 197 

15,2011 

7 140  6 

c 

JUSTZY 

PUSH 

COS 

01  98 

15,  2o  12 

73^25 

1 

PDDL 

SI  N 

0199 

15  ,2013 

65361 

0 

VXSC 

PDDL 

D2DD 

15,  20  14 

0CC23 

0 

1 8D 

0201 

15,2015 

52361 

1 

VXSC 

VSU 

0 2011 

15,2016 

00015 

0 

L2D 

0202 

15, 2017 

47256 

0 

UNI  T 

VXV 

0203 

RFF 

8 

LAST 

256 

, ? 

(3765 

0 

SC  A X I S 

0204 

15,2021 

41456 

0 

UNIT 

PUSH 

0205 

15,  2022 

47133 

0 

SLOAD* 

RTB 

0206 

15  ,2023 

00004 

0 

3,  1 

D2D7 

REF 

4 

LAST 

257 

15, 2024 

21560 

1 

CDULCGI C 

02  08 

15,2925 

COC33 

1 

STORE 

2 6D 

0 209 

15,2026 

43225 

0 

DSU 

DAC 

0210 

15,  2C 2 7 

C0C31 

0 

240 

0211 

RFF 

1 

15  ,2030 

32047 

0 

ABOUTONE 

0212 

15,2031 

7 760  5 

1 

QMP 

0213 

REF 

1 

15,  2q  3 2 

32474 

1 

Dpi  /12 

C21 4 

15  ,2033 

00033 

1 

STORE 

26  D 

D 2 1 5 

15,  2034 

74356 

1 

SI  N 

VXSC 

0216 

15,2035 

65372 

1 

VSL  l 

PDDL 

0217 

15  ,2036 

00033 

1 

26  D 

3218 

15,  2037 

7 4 346 

0 

COS 

VXSC 

0219 

REF 

9 

1 AST 

257 

1 ,2040 

03765 

0 

SC  A X I S 

9220 

15,2941 

53372 

1 

VSL1 

VAC 

0221 

15,  2042 

45056 

0 

JUSTHA 

UNI  T 

CA  LL 

022? 

REF 

1 

15  .2043 

4 7671 

1 

TRG*NRSM 

3 2?4 

15, 2944 

34031 

l 

STCALL 

2 4 D 

9225 

REF 

1 

15,2045 

16276 

0 

AVEIT 

PAGE 


257 
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E7  S3 


PUT  X-MARK  CDUS  IN  CDUSPOT  FOR  TRG*NBSM 

PICK  UP  Y ROT 

STORE  CURSOR  FOR  SPIRAL  COMP  (REVS) 

IF  YROT  ZERO-SEE  IF  SRCT  ZERO 

1 / ? C CS  ( Y RCT  J 0-1 

UP  0-1  1/8SI  N<  YROT)  UXP  0-5 

UP  0-5 
UYP 


PICK  UP  SPIRAL 
STORE  SPIRAL  (REVS) 


SEP=  ( 360  + SPIRAL  - CURSOR) /12 
UP  9-5 

1 /2SIN(  SEP)  (UPP  X CA)  0-5 


UP 


0-5 


STAR  VEC  IN  SM 
GO  AVERAGE 


GAP:  ASSFMBIF  REVISION  56  OF  AGC  PROGRAM  ZEPII'IA  RY  ZOROASTER 


1226  If, 2066  37777  1 

(22b  15,2067  37775  0 

227  REF  1 15,2673 

3 22  R 07,2171 

0229  REF  2 LAST  251  07,2000 

r?  30  07,2171 

0231  REF  2 LAST  251  TO  256:  121  121* 

02311  07,2171  53133  0 

3 2 312  C 7,  2 172  CQCC6  0 

02313  REF  1 07,2173  16177  1 

2316  07,2176  52165  0 

3231  5 07,  2175  C0031  0 

02316  REF  1 07  ,2176  320  11  C 

'2317  07,2177  52175  0 

0231  0 REF  10  LAST  257  07,  2200  Cl765  0 

r-2 315  OFF  1 07,2201  32062  0 


ABOUTONE  20EC 


FQUALS  0EG30 
BANK  7 
SFTLOC  AOTMARK 
RANK 

COUNT*  f*/MARK 
SLHAO*  RZF 
3 ,1 

YSZERO 
GOTO 
260 

JUSTZ  Y 
GOTO 

s:axi  s 

JUSTOA 


OLOAO 


12  CCT.  21 


970 


ZERLA1C  .001  PAGE  258 


USER'S  PAGE  NO.  8 E7  S3 

.08333333 

YROT  ZERO  ANO  IF  SRPT  ZERO  FORCE  STAR 
ALONG  OPT  IC  AX  IS 

SRC1T  NOT  ZERO-CONTI  NUE  NORMALLY 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ACTPARK 

3 ^ 23?  THE  GETNKS  ROUTINE  INITIALIZES  TEE  SIGHTING  MARK  PROCEDURE 


7 233 

REF 

21 

1 AST 

253 

07,  220  2 

3 4 7 55 

1 

GE  TMKS 

CAF 

ZERO 

' 234 

REF 

7 

LAST 

253 

07  ,2203 

55  '551 

0 

TS 

XYMARK 

0235 

REF 

2 

LA  ST 

149 

07,2204 

c5*  550 

1 

TS 

MARKCNTP 

02  35 

REF 

2 

LAST 

252 

07,  2205 

3 5004 

0 

CAF 

L0W9 

0237 

REF 

8 

LAST 

25  3 

07,2206 

7 1307 

0 

MASK 

MARKSTAT 

32  38 

REF 

9 

1 AST 

259 

C 7 , 22C  7 

55*  3C7 

u 

TS 

MARKS T AT 

0241 

REF 

1 

07,2210 

3 2613 

1 

CAF 

MK VB  54* 

0242 

PEE 

12 

LAST 

253 

07,221  l 

0 4616 

1 

PASTI T 

TC 

BANKCALL 

3243 

RFF 

1 

C 7 , 2212 

20345 

1 

CADR 

G0MAPK4 

0244 

PEF 

3 

LAST 

253 

07  ,2213 

1 2060 

1 

TC  F 

K ILL AO  T 

0245 

R EE 

1 

07,2214 

1 2216 

1 

TC  F 

MARKCHEX 

0246 

REF 

4 

LAST 

253 

07,  2215 

1 20  E 3 

1 

TCF 

3E  TDAT 

251 

REF 

10 

LAST 

259 

07  ,221  6 

4 1307 

0 

MARKCHEX 

CS 

MARKST  AT 

325? 

RFF 

17 

1 AST 

253 

07,  2217 

1 4740 

1 

MA  SK 

81  T12 

0253 

RFF 

11 

LAST 

259 

07  ,2220 

27 '307 

0 

ADS 

MARKSTAT 

0254 

REF 

3 

LAST 

259 

07,2221 

7 5C04 

1 

MASK 

L0W9 

3255 

REF 

8 

L AST 

259 

07,  2222 

55*551 

0 

TS 

XYMARK 

0256 

RFF 

2? 

LAST 

259 

07  ,2223 

3 4755 

1 

CAF 

ZERO 

02  57 

REF 

2 

1 AST 

149 

07,  2224 

55' 552 

c 

TS 

MKOEX 

0258 

REF 

12 

1 AST 

259 

07,2225 

3 1307 

1 

CA 

MARKSTA  T 

0259 

REF 

1 

07,2226 

7 501  5 

1 

MASK 

PR  103 

3260 

REF 

17 

L AST 

239 

07,  2227 

54  CC1 

1 

TS 

L 

0261 

PEF 

2 

LAST 

259 

07  ,2230 

3 50  15 

0 

CAF 

PR  10  3 

0 26  2 

07,2231 

C 0006 

1 

FX  TEND 

0263 

REF 

8 

1 AST 

223 

07,  2232 

Ofc  COl 

0 

R XOR 

LCHAN 

0264 

07  ,2233 

0 0006 

1 

EX  T EN  D 

3265 

P EF 

1 

C 7,  2234 

1 2241 

0 

BZF 

AVEST  AR 

0266 

REF 

3 

LAST 

259 

07,2235 

1 l '550 

1 

CNTCHK 

CCS 

MARKC NTR 

0267 

07,2236 

1 2240 

1 

TCF 

+2 

3263 

RFF 

1 

C 7,  2237 

1 2225 

c 

TCF 

MKALARM 

0269 

REF 

* 

LAST 

249 

37  ,2240 

55  '550 

1 

TS 

MARKC  NTR 

0 270 

REF 

18 

L A ST 

259 

07,2241 

2 4140 

0 

AVESTAR 

CAF 

BIT1  2 

02  71 

RFF 

3 

LAST 

259 

07,  2242 

27*552 

0 

AD  S 

MKDF  X 

0272 

RFF 

c 

LAST 

2 59 

07,2243 

4 1550 

1 

CS 

MARKC  NTR 

3273 

07,  2244 

( 0CC6 

1 

EXTEND 

0274 

PEF 

3 

LAST 

25  1 

07,2245 

7 6254 

0 

MP 

SI  X 

3275 

REF 

9 

LAST 

259 

07 ,2  246 

4 1551 

0 

CS 

XV  MARK 

3276 

RFF 

18 

L AST 

259 

C 7,  2247 

6 OCOl 

0 

AD 

L 

02  77 

RFF 

6 

LAST 

254 

07  ,2250 

50  120 

1 

INDEX 

F I XL  DC 

0278 

REF 

1 

07,2251 

c 4 046 

1 

TS 

XI 

02  79 

RFF 

7 

LAST 

259 

07, 2252 

3 0120 

1 

CA 

F I XLOC 

0280 

REF 

1 

07  ,2253 

54  166 

1 

TS 

P JSHLOC 

329  1 

REF 

5 

LAST 

254 

C 7,  2254 

C 6C51 

0 

TC 

I NTPRET 
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INITIALIZE  MARK  IC  REGISTER  AND  MARK  CM T 

ZERO  BITS10  TO  15  RETAINING  MKVAC  ADR 

01  SPLAY  VB54  I NI  TI  ALLY 


V 34-DOE  S GOTDPOCH 

V B33-PR0CEED,  GOT  MARKS,  COMPUTE  LOS 
ENTER-RECYCLE  TC  V01N71 


SET  RIT12  TO  DISCOLRAGE  MARKRUPT 


JAM  MARK  VAC  ACR  IN  X Y MARK  FOR  AVESTAR 
SET  MKOEX  ZERO  FOR  LOS  VEC  C-NTR 
SEE  IF  LAST  MK  PARI  COMPLETE 
B I TS10  AND  11 


LAST  PAIR  COM  PL  FT  E-GO  COMPUTE  LOS 
NO  PAIR  SHOWING-SEE  IE  PAIR  IN  HOLD 
PAIR  BUP  I ED- DECREMENT  COUNTER 
NO  PAIR-ALARM 
STORF  DECREMENTED  COUNTER 

INITIALIZE  M<  DEX  FOR  STAR  LOS  COUNTER 
MKDEX  WAS  INITIALIZED  ZERO  IN  MAP KCHEX 


GET  CILI  = - 6 MARKCNTP 
ADD  - MARK  VAC  ACR  SET  IN  M AR<  CHF X 
JAM  - CDU  ADR  OF  X-MARK  IN  XI 
SET  PO  POINTER  Tr  ZERO 


GAP:  ASSEMBLE  REVISION  56  OF  A; 


PROGRAM  ZERLINA  AY  ZOROASTER 


028? 
9 2Q  3 
0284 
A285 
32  86 
0287 
0 ?88 

0289 

0290 
3291 
0292 
A?9  3 
3294 

0295 

0296 

0297 

0298 

3 33  1 
0302 
0 30  3 
0 39  ^ 

030  5 
0 306 

0307 

0308 
0339 

031  0 
3311 
9312 

0313 

0314 

0315 

0316 
3317 

0318 

0319 
3323 

0321 
032? 

0322 


REF  3 LAST  24  3 

REF  1 

REF  5 LAST  257 

PFF  2 LAST  257 

PFF  6 LAST  260 

REF  3 LAST  260 


REF 
R F.F 


LAST  ? 5 5 


LAST  250 
LAST  204 


REF  f LAST  259 

REF  2 LAST  259 

REF  5 LAST  238 

RFF  7 l AST  193 


97,2285 
C 7,  2256 
07,2257 
07,2260 
07,  226  1 
07  ,2262 
C 7 , 2 26  9 
07,  2264 
07,2265 
07,  2266 
07,2267 
07,2270 
07,  227  1 
07,2272 
07,227  I 
07,  2274 
07  ,2275 

C 7,  2276 
07,2277 
C7 ,2300 
C 7 , 23f  1 
07  ,2302 
07,2303 
07,  2304 
07 ,2305 
C7,  2 3C6 
07,2  307 
07,2310 
07,  23  1 1 
07  ,2312 
07,2313 
07,  23  14 
07,2315 
07,  23  16 
07,2317 
07,2320 
07,  232  1 
E7  ,1551 
07,2322 


76614  0 
C4307  1 
320CC  0 
00002  0 
24766  0 
00015  0 
77624  1 
47671  1 
76606  0 
0CC01  0 
24766  0 
00023  0 
7762a  1 
47671  1 
53435  0 
77626  0 
77746  1 

63335  1 
03553  1 
00031  0 
70222  0 
OOOf  1 0 
14031  0 
00001  0 
56225  1 
16615  1 
53361  0 
C2715  0 
00031  0 
02715  0 
02767  0 
77776  1 
11* 550  1 
1 2240  1 
3 4756  1 
C 0004  0 
C 5 2 1 A C 


VXV 
STADR 
STOR  E 


V LOAD* 
SURF  FLAG 
SURF  STAR 

1 , 1 

CDUSPC1T 
1 2D 

TRS*N8  SP 

V LOAD  * 

9 ,1 

2(9  USPD  T 
1 8 0 


PDVL 
MKPE  X 
2 A 0 
V/SC 


STODl  2 A D 


STORE 
STORE 
E XI  T 
CCS 
TCF 

GNPMARKS  CAP 

INHINT 

TC 

EBANK= 
2 C ADR 


PPV 

DPI/8 

VAD 

ST  ARAD  +6 
2 AD 

STARAD  +6 
STARS  AV2 

M ARKCNTR 
AVESTAR  - 
F I VF 

W A I TLI  ST 

XYMARK 

MKRELEAS 


07,2324  C 5503  1 


im 

0326 


REF  11  I AST  234 
REF  2 LAST  ?55 


C 7,  2325 

07.2326 

07.2327 


C 5600  1 
0011 1 0 
1 2202  1 


ALARM 

111 

GET  MKS 


00307  0 V C IN  7 1 
01527  0 V06N87* 
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IF  ON  SURFACF  COMPUTE  V EC  AT  SURFSTAR 

PUT  Y-MARK  CD J S IN  COUSPOT  FOR  TRG*NB  SP 

LOAD  Y-PLANE  VECTOR  IN  NR 

CCNVERT  IT  TO  STABLE  PEPPER 

PUT  X-MARK  CPUS  IN  COUSPOT  FOR  TRG*NBSM 

LOAD  X-PLANE  VECTOR  IN  NR 

CONVERT  IT  TO  STABLE-MEMBER 
UNIT  (X PSM  * YPSM  ) 


N ( NUM  BER  OF  VECS  ) IN  0- 1 
LOAD  CURRENT  VECTOR 


VEC/N 


( N — 1 )/N 

ADD  VEC  TO  PREVIOUSLY  AVERAGED  VECTOR 
( N-1  ) / N AVESTVEC  + VEC/N 
AVERAGE  STAR  VECTCR 


SEC  IF  ANOTHER  MARK  PAIR  IN  MK VAC 
THFRE  I S - GO  GET  IT-DFCREMENT  COUNTER 
NO  MORE  MAR KS-TFRPI  NATE  ACT  PARK 


NOT  A PAIR  TO  PROCESS-DO  GETM<  S 


i AP  : 


ASSEMBLE  REVISION  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L AOTMARK 


P3  3 2 9 MARKRUPT  IS  ENTERED  FROM  INTERUPT  LEAO-IMS  AND  PROCESSES  CHANNEL  U 
RH330  CAUSFD  BY  X,Y  RAP  K OR  MARK  REJECT  OR  BY  THE  RATE  OF  DESCENT  SWITCH 


3334 

0335 

0336 
0 33  7 
0333 
J 339 
03  40 
0341 
3 342 


REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

RFF 


LAST 
L AST 
LAST 
L AST 
LAST 
LA  ST 
I AST 


fl  LAST  211 
4 LAST  14  1 
20  LAST  240 
2 LAST  161 


r 

n ,2334 
C 7,  2335 
07  ,2336 
07,23  37 
07, 2340 
07  ,2341 
C 7,  2 342 
07,2  343 
07,2344 
C 7,  2345 


5 4 C 16 
3 0033 
54  063 
3 0034 
54  064 
2 0032 
54  C 6 5 
0 0006 
2 0C25 
52  062 
56  002 
54  012 


1 

1 

0 

0 

1 

0 

0 

1 

0 

1 

0 

0 


MARKRUPT  TS 
CA 


TS 

CA 

TS 

CA 

TS 

FXTEND 
DC  A 
DXCH 
XCH 
TS 


BANKRUPT 
CDUY 
IT  FMP 3 
CDUZ 
I TEMP  4 
C DUX 
I TEMP 5 

T I ME2 
I TEMP  l 
0 

QRUPT 


034?  REF 
0 344 

0345  REF 

0346 

33465  RFF 


LAST  225 


07.2346  3 4776  0 

07.2347  f CCC6  1 

07,  2350  C 2 0 1 6 1 
07 ,2351  C 0006  1 
07,  2352  6 2355  0 


CAF  3 C T 140 

FXTEND 

RAND  NAVKEYIN 
EX  T EN  D 

8 Z MF  MARKEY? 


3? 4 7 REF 
■3475  RTF 


e LAST  237  07,2353  0 4635  0 

1 07,2354  46501  1 


TC  POSTJUMP 

CADR  DES  CHITS 


33477 

0350 

0351 

0352 


1 9 LAST  259 
13  LAST  259 
54  LAST  252 
B LAST  196 


07, 2355  2 4740 

07  ,2355  7 1307 

C 7 , 2 3 5 7 1 C CCO 

07,  2360  0 53C  1 


0 MARKEY?  CAF 
MASK 
CCS 

0 TC 


B I Tl  2 

MARKSTAT 

A 

RE SUMF 


3353 

3354 

3355 
0 356 
•'35  7 


RFF  14  I A ST  261 
RFF  1 

REF  12  LAST  260 
REF  9 LAST  26  1 


07,2361  11*307  0 

07,  2362  1 2 3 66  1 

07.2363  0 5600  1 

07.2364  00112  C 

07,  2365  0 5301  0 


CCS  MARKSTAT 
TC  F FINDKEY 

TC  ALARM 

OCT  112 

TC  RE  SUMF 


C 358 
3359 

0360 

0361 
3362 


REF  15  LAST  235 

REF  3 LAST  26  1 
REF  55  I A ST  261 
RFF  1 


0 7,2366 
07,  2367 
0 7,2  370 
07,2371 
C 7,  2372 


3 4747  1 
C 00C6  1 
C2  C 16  1 
10  000  0 
1 2453  0 


FINCK  EY 


CAF 

FXTEND 
RAND 
CCS 
TC  F 


B IT  5 

NAVKF  YI  N 
A 

MKRE  J 


0363 
0 364 

0365 

0366 


REF  1R  LAST  239 

REF  4 LAST  261 
RFF  56  LAST  25  1 


07.2373  3 4750  1 

07.2374  C 00C6  1 

0 7,  2375  05  0 16  1 

07  ,2376  1 0 000  0 


CAF  BIT4 

EXTEND 

RAND  NAVKEYIN 
CCS  A 


3367 
0 368 


REF  1 

REF  12  LAST 


C 7,  2377  1 2414  0 

89  07,2400  3 4751  0 


TCF  YMKRUPT 

CAF  B I T 3 
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USER  'S  PAGE  NO.  11  E7  S3 


STORE  CDUS  AMD  T 1 ME  NCW-THEN  S FF  IF 
WF  NEED  THEM 


SEE  IF  ROD  INPUT  HAS  BEEN  MADE 

NO,  MUST  BE  A MARKRUPT 

DF  SCENT  BITS 
DOESN'NT  COME  BACK 

ARE  WE  ASKING  FOR  MARK? 

DONT  WANT  MAPK  OR  MKREJECT-DO  NOTHING 

ARE  MARKS  BEING  ACCEPTED 
THEY  ARE-WHICH  CNF  IS  IT 
MARKS  NOT  BEING  ACCEPTED-DO  ALAPM 

SFF  I F MARK  RE JEC  T 

ITS  A MARK  REJECT 
SFF  IF  Y MARK 


ITS 


MARK 


SFF  IF  X MARK 


GAP: 


ASSEMRLF.  REVISION  56  OF  AGC  PROGRAM  7 ERL  IN  A BY  ZOROASTER 


A OTMA P K 


0369 
( 37r 
' 371 
03  7? 


PEE  5 
REF  57 
REF  1 


LAST  261 
LAST  26  1 


07  • 2*0  1 
C 7,2 402 
07, 24C3 

07, 2404 


0 0006  1 
0 2 0 16  1 
1C  CCO  0 
1 2410  1 


EXTE  NO 

RAND  VAVKEYIN 

CCS  A 

TCF  XMKRLPT 


C 377  RFF  13  LAST  761 
3374 


07,2405  C 5600  1 
C 7,  24C6  CQ113  1 


TC  ALARM 

OC  T 113 


RFF  K 


LAST  261  07,2407  0 5301  0 


TC  RESUME 


''38  3 
3 3R6 

0385 

0386 
L 3 8 7 
C 388 
3 389 
0390 


RCF 

RFF 

PFF 


23  LAST 
14  IASI 
17  LAST 


REF  9 LAST 
REF  15  I A ST 
RFF  17  1 AST 

RFF  11  LAST 


259 
174 

185 

252 

262 

239 

260 


07 ,2412 
07,  24  13 
07,  2414 


7,2415 
C 7,  24  16 
07  ,2417 


3 4742  1 

1 2417  0 
3 4753  1 
54  070  1 

2 47*1  1 
55*^51  0 


X MKRUPT 


YMKRUP  T 


CAF  ZERO 

TS  RUPTRFGl 

CAF  BIT  10 

TCF  *4 

CAF  ONE 

TS  RUPTRFGl 

CAF  BIT11 

TS  XYMARK 


1 


C 25C6 
1 2M3 


C 

0 


TC  MARKTYPE 

TCF  SURF  STOP 


1392 
0393 
0 3°  4 
0 3 95 
1/396 
397 
0 3 98 

0399 

0400 

0401 
040  2 


RFF 
PEF 
RFF 

REF 
RFF 
REF 
PEF 

PFF  17  LAST 


1 6 LAST  262 


07,2422 
07,  2423 

07.2424 

07.2425 
7,  6 

07  ,2427 
07,2430 
07,  243  1 
07 ,2432 
07,  2433 
07,2434 


3 4736  1 
7 13C7  0 
0 0006  1 
1 2436  0 

4 1550  1 
6 4751  0 
C 0CC6  1 

6 2446  0 
25*550  0 
4 7723  1 

7 1307  0 
07,2435  55*307  0 


CAF  BIT14 

MASK  MARKSTAT 

EXTEND 

8 Z F VERIFYMK 

CS  MARKCNTP 

AD  FOUR 

EXTEND 

RZMF  5MKA  LARM 

INCR  MARKCNTR 

CS  P R I 02  3 

MASK  MARKSTAT 

TS  MARKSTAT 


0413 
0404 
0 40  5 
04  06 

0407 

0408 

0409 

0410 


PFF  12  LAST  262 
REF  IP  LAST  262 
REF  58  LAST  262 

REF  1 

RFF  14  LAST  262 


REF  11  t A ST  262 


07,  2436 
07  ,2437 
07,2440 
07,  244  1 
07  ,2442 
0 7,  744  3 
"7,7444 
07,2445 


3 1 5 6 1 1 
7 1307  0 
10  CCO  0 
1 2443  1 
1 2520  0 
C 5600  1 
00114  0 
0 5301  0 


VFR1F YMK 


CA 

MASK 

CCS 

TCF 

TCF 

TC 

OCT 


X YMA  PK 
MARK  STA  T 

+ 2 

VACSTOR 

ALARM 

114 

RESUME 


0411  RFF  1 5 l AST 

0412 

04121  REF  2 LAST 

04122  REF  1 

0413  REF  12  LAST 


26  2 
262 
262 


07,  2446  0 5600  1 5MKAL  ARM  TC 


07  ,2447  00  107  1 OCT 

C7.245C  C 7506  C TC 

07,  245  1 1 2621  1 TCF 

07,2452  0 5301  0 TC 


ALARM 

107 

MARKTY  PE 
0 SPV6N79 
RESUME 
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I TS  A X MARK 

NO  INRITS  IN  CHANNEL  16 


SFT  X MARK  STORE  INCFX  TO  ZERO 


SET  Y MARK  STORE  INDEX  TO  ONE 

SET  MARK  IDENTTFI  ATI  TN 

SEE  IF  SURFACE  MARK 
SURFACE  MARK-JUST  STORE  CDUS 

GOT  A MARK- SEE  IF  MARK  PAIR  MADE 


NOT  A D A TR  , NORMAL  PROCEDURE 

GCT  A PAIR,  SEF  IF  ANOTHER  CAN  BE  MADE 

IF  SO,  INCREMENT  PCI  NTF  R , CLEAR  BITS10.il 

HAVE  FIVF  MARK  PAIPS-OONT  ALLOW  MARK 
OK  FOR  ANOTHER  PAIR,  INCR  PCI  NTF  R 
CLEAR  BITSlO, 11,14  FOR  NFXT  PAIR 


THIS  MARK  NOT  DESIREO 
MAPK  DESIRED  - STORE  CDUS 


RESUME-DISPLAY  UNC  HANGED- WA  I T FOR  ACTION 

ATTEMPTING  TO  MAKE  MORE  THAN  5 M.<  PAIRS 

SEE  IF  SURFACE  MAPK 
I T I S 

DONT  CHANGE  DISPLAY-DO  NOTHING 


A P : ASSEMBLE  REVISICN  56  OF  AGG  PROGRAM  ZERLINA  BY  ZOROASTER 


AOTMARK 


04H  REF  3 LAST  26  2 

04141  REF  1 


07,  2453  0 2506  0 MKREJ 
07,2454  1 2501  0 


TC  MARKTYPF 

TCF  SURFREJ 


3 4 L 4 2 
04 1 5 
0 416 
1417 
OA  1 8 
0419 
0A20 


REF 

REF 

REF 

REF 

REF 


l AST 
LAST 
I AST 


259 

262 

262 


16  LAST  262 


C 7 , 2455 

07.2456 

07.2457 
C 7,  2460 
07  ,2461 
07,2462 


3 501 5 0 
7 1307  0 
10  000  0 
1 24(4  1 
0 5600  1 
C0115 


RFF  13  l.AST  262  07,  2463  0 5301  0 


CAF  PRI03 

MASK  MARKSTAT 
CCS  A 

TCF  REJECT 

TC  ALARM 

OCT  115 

TC  RE  SUME 


0421 

3422 

0423 


1424 

1425 


0426 
0 427 


REF  5 
REF  20 
REF  20 
REF  21 
RFF  21 
RFF  60 
R EF  l 


LAST  234  07,2464 

LAST  26  3 C7,  2465 

LAST  226  07,2466 

LAST  263  07,2467 

I AST  263  07,  2470 

LAST  263  07  ,2471 

07,2472 


4 4355 
7 13C7 

6 47  37 
57' 307 

7 4737 
10  000 
1 24  77 


1 

0 

0 


0 

0 


RF  JFCT 


CS  PR  1030 

MASK  MARKSTAT 

AO  9 I T 1 3 

XCH  MARKSTAT 

MASK  81  T13 

CCS  A 

TCF  REJECT2 


042  8 
042Q 
1430 
04  31 


REF  13  LAST  262 
REF  22  LAST  263 
REF  23  LAST  26  3 
RFF  1 


07.2473  4 1551  0 

07.2474  7 1307  0 

07,  2475  55*  3C7  0 

07,2476  l 2571  1 


RENEWMK 


C S 
MASK 
TS 
TCF 


XYMARK 
MARKST  AT 
MARKSTAT 
REMARK 


0432  REF 
1 437  REF 


LAST  263 


07,2477  4 5015  1 REJECT2  CS 

07, 2500  1 2474  0 TCF 


PR  1 03 
RENEWMK 


'■4331  RTF 
14332 

043  3 3 p EF 
04334  RFF 
14335  REF 


LAST  262 

LAST  263 
L AST  263 


17,2501  11*550  l 

' 7 , 2 5C  2 1 25C4  C 

07,  2503  1 246  1 1 


SURFREJ 


CCS 

TCF 

TCF 


MARKCNTR 

+2 

RE  JALM 


07,2504  55 ' 5 50  1 TS  MARKCNTR 

07,  2505  C 5 3C1  0 TC  RESUME 


9:  12  OCT.  21  ,1970  ZERLAID  .001  PAGE  263 
USER'S  PAGE  NO.  13  E7  S3 

SEE  IF  SURFACE 

SURFACE-JUST  CHECK  MARK  COUNTER 
INFLIGHT-SEE  IF  MARKS  HADE 

MARKS  MADE-REJECT  CNE 

NO  MARK  TO  REJECT-BAD  PROC EDUR E- AL ARM 

DESIRED  ACTION  CISPLAYEC 

ZERO  B I T 1 4,  SHO  W RF  J.  , SEE  IF  MARK  SINCE 
LAST  REJECT 


ANOTHFR  REJECT  SET  BIT  10+11  TO  ZERO 
MARK  MADE  SINCE  REJECT-REJECT  MARK  IN  ID 

GO  REQUEST  NEW  MARK  ACTION 
ON  SECOND  REJECT-DISPLAY  VB53  AGAIN 

IF  MAP  < DECREMENT  COUNTER 


NC  MARKS  TO  REJECT-ALARM 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTFR 


ACTMARK 


RQ435  MARKTYPE  TESTS  TD  SEE  IF  LEM  CN  LUNAR  SURFACE.  IF  IT  IS  RETURN  TO  LCC 


0436  P E F 
•>437  REF 

(343p  REF 
0439  REF 
344^  REF 


1 

1« 

6 I 
21 
22 


[AST  239 
LAST  ?6  3 
LAST  261 
LAST  264 


07,2506  u 0104  0 MARK  TY  PE  CS 


07,  2 5C  7 7 4744  C MASK 

07.2510  10  000  0 CCS 

07.2511  24  002  0 INCR 

C7»  25  12  C CCC 2 0 TC 


FLAGWROR 
B I TP 
A 
0 
0 


04401  REF  24  LAST 
044C ? REF  16  I A ST 


262  07,2613  3 4755  1 SURFSTDR  CAF 

262  07,2614  54  C 70  1 TS 


Z ERO 

RUPTREG1 


04 A m3  PFF 

04404  REF 
"> 44 ■>  5 REF 


24  LAST  263  07,  2515 

5 LAST  263  07,2516 

25  LAST  264  07,2517 


4 13C7  0 
7 5015  1 
27 1 3C  7 0 


CS  MARKSTAT 

MASK  PR  103 
ADS  MARKSTAT 


0441  REF 

0442  RFF 

0443  REF 

0444 

0445  KEF 

0446  RFF 
n 44  7 PFF 
3448 

0449  RFF 
04  50  REF 
0451  REF 
/‘451l  PFF 
3452  REF 

0453  RFF 

0454  REF 
3455 

0456  RTF 
■457  REF 

0458 

0459  REF 
3463  REF 
0461 

04611  REF 
34612  RFF 


1° 

7 

17 


8 

IP 


20 

4 

l 


I AST  ?59 
I A ST  264 
I AST  177 

I AST  261 
LAST  ?39 
I AST  263 

LAST  259 
LAST  259 
LAST  26  4 
LAST  264 
I AST  260 
LAST  26  1 
LAST  264 

LAST  261 
1 A ST  264 

LAST  261 
LAST  264 

LAST  26  3 


07  ,2520 
'•7,25  21 
07, 2522 
07  ,2523 
>7,  2524 
07,2  525 
07 ,2526 
07,  2527 
, 

C 7, 25 31 

07,  2532 
07  ,2533 
07, 2534 
0 7,2  535 
07,2536 
07,  2537 
37  , 2 54  j 
C7, 254  1 

07. 254 2 

07 .2543 
07,  2544 
07,2545 
"7,?546 
07,  2547 


3 5004  0 
7 1307  0 
54  C 7 1 0 
0 0006  1 

2 OC  62  C 
53*562  0 

3 1550  0 
C CC06  1 
7 6254  0 
56  OC 1 0 
6 0071  1 
26  G 70  1 
c 5 * 552  0 
3 G063  1 
50  070  0 
54  COO  0 
3 0064  0 
50  0 70  0 
54  0C2  1 
3 0065  1 
5C  C 70  0 
54  004  1 
C 2506  0 
1 2576  C 


MASK  MARKSTAT 

TS  RUPTRFG2 

EXTENO 

DC  A ITEMP1 

DXCH  TSIGHT 

CA  MARKCNTR 

E XTEND 
MP  SIX 

XCH  L 

AO  P.  UPTREG2 

AOS  RUPTREG1 

TS  MKDEX 

CA  ITEMP3 

INDEX  RUPTREG1 

TS  0 

CA  ITEMP4 

INDEX  RUPTREG1 

TS  2 

CA  IT  EM P 5 

INDEX  RUPTREG1 

TS  4 

TC  MARKTYPE 

TCF  SURF  JOB 


0462 

0463 
C46A 
0465 
3466 

0467 

0468 
3469 


REF  22 
R EF  14 

RFF  27 
PEF  15 
RFF  2p 
RFF  6 
REF  20 


LAST  263 
LAST  26  3 

LAST 
LAST 
l AST 
LAST 
L AST 


07  ,2550 
07,2551 
07,  -5  5 2 
07  ,2553 
0 7,  2554 
"7,2555 
07 ,2556 
07,  2557 


3 4737  0 

6 1551  1 

4 0000  0 

7 1307  0 

6 1551  1 
55*307  0 

7 5015  1 
54  001  1 


264 
264 
26  4 
264 
264 


CAF  BIT13 

AD  X Y MAR K 

COM 

MASK  MARKSTAT 

AD  X Y MARK 

TS  MARKSTAT 

MASK  PR  103 

TS  L 


9:12  OCT.  21 ,1970 


ZERLAIO  .00  1 P AG F 264 


USER'S  PAGE  NO.  14  E7  S3 

SUR  FFL  A G***  - •♦♦TEMPORARY***** 

IP  SURFACE  MARK  REUTNR  TO  L OC  *1 
IF  INFLIGHT  MARK  RETURN  TO  IOC  + 2 

FOR  SURFACE  MARK  ZERO  MARK  KIND  INDEX 

SET  01  T SI  0*11  TO  SHOW  SURFACE  MARK 
FOR  M ARK  C HE  X 


STORE  MARK  VAC  ADR  IN  RUPTREG2 


PICK  UP  M AP.KT  IME 

STORE  LA  ST  MAP  K TI  ME 

6 X MARKCNTR  FOR  STORE  INDEX 


GET  INDEX  FROM  LOW  ORDER  PART 
SET  C DU  STORF  INDEX  TC  MAPKVAC 
INCREMENT  VAC  PICKUP  BY  MARK  FOR  FLIGHT 
STORE  HERE  IN  CASE  OF  SUPFACE  MARK 


STORE  CDUY 


STORE  CDUZ 


CLEAR  RITI3  TO  SHOW  MARK  MADE 
SET  MARK  ID  IN  MARKSTAT 


SEE  IF  X,  Y MARK  MADE 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  ZFRLAID 


,00  1 PAGE  265 


L ACTMARK 


USER*  S PAGE  NC.  15  E7  S3 


0470  RTF  7 LAST 

9471 

0472  REF  9 LAST 

0473  REF  62  LAST 

04  74  R FF  2 LAST 

0475  RFF  29  LAST 

9476  REF  27  LAST 

0477  PFF  30  LAST 

047fl  PFF  3 LAST 


264  07,2560  3 5015  0 

07,  2561  0 OOC  6 1 

259  97,2562  06  001  0 

264  07,2563  1C  COO  C 

263  97,2564  1 2571  1 

26  4 .9  7,2  565  4 13  07  0 

262  07, 2566  7 4736  0 

265  07,2567  27'307  0 

265  07,2570  1 2571  1 


CA  P R 103 

F X TEND 

RXOR  L C HAM 

CCS  A 

TCF  RFMAKK  NOT  PAIR  YFT,  DISPLAY  MARK  ACTION 

CS  MARKSTAT  MARK  PAIR  COMPLETE-SFT  BIT14 

MASK  BIT14 

ADS  MARKSTAT 

TCF  REMARK  GO  OISPLAY  V54 


GAP: 


ASS  EMBLE 


FV1SI3N  St  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


ACT  PARK 


V,B2 
483 
•A  8 A 
04  85 
r ara 
)487 
0488 
04B9 
CABO 


RFF 
REF 
RFF 
REF 
RFF 
P EF 
REF 


27  LAST  234 
f LAST  264 
3 LAST  2*5 1 
3 LAST  198 
16  LAST  ?S4 


C 7,  2572 
07,2573 
0 7,  7 5 74 
7,  2575 
•7, ?576 
: 7,  2577 
F7  ,1  551 
07,2600 
07,  ?6C  1 


0 GGC6  1 
7 4746  1 
55*552  0 
3 5025  0 
C 5C7  2 1 


RF  PARK 


SMRFJCB 


C2603  0 

16C67  1 


CAF  PR  103 
MASK  MARKSTAT 
EXTEND 
MP  BIT6 

TS  MKDEX 

CAF  PP  1015 
TC  NOVAC 

ERANK=  XYMARK 
2 C ADR  C HANG  EV  B 


04  <30 


P EF  15  LAST  263 


07.26C2  C 5301  0 


TC  RFSUMF 


049]  P EF 
04  92  REF 
r 493  RFF 
0494  RFF 
•494  1 PFF 


5 L AST  264 
2 LAST  262 
7 | AST  266 

1 


07,  26C3  C 2506  0 CHANGE  V«  TC 

.7,2604  1 2621  1 TCF 

07.2605  51*552  1 INDEX 

07. 2606  2 2610  1 CAF 


NARKT YPE 
ESPVfcN  75 
MKDEX 
MK  VB  54 


07,2607  0 2211  1 


T r PASTIT 


•(.1436  THE  FOUR  MKVBS  A3  E I NDE  XED- THE  I R ORDER  CANNOT  BE  CHANGED 


06  97 

0498 

0499 

0500 
0 50  1 

0501 

0502 
3503 

0503  1 


07,2610  15507  1 

07,?61 1 15307  1 

07,  26  12  15107  0 

07  ,2613  15507  l 

07.2614  C4COO  0 

07. 2615  COOOO  1 

07  ,2616  00C34  0 

07, 2617  01507  1 

07,2620  01517  0 


MKVR54  VN  5471 

MKVB53  VN  5371 

MKVR52  VN  5271 

MKVB54*  VN  5471 

DPI /R  2 DEC  .125 

0CT34  OCT  34 

V06N71  VN  671 

V0  6N79*  VN  6 79 


9:12  OCT.  21,  1970  ZEPLA10  .001  PAGE  266 
USER'S  PAGE  NC.  16  E7  S3 

BITS  10  AND  11 

SHIFT  MARK  IDS  TO  BE  0 TD  3 FDR  INDEX 
STORE  VERB  INDEX 

ENTER  JOB  TC  CHANGE  DISPLAY  TO 
REOUE  ST  NEXT  ACTI  CN 


SURFACE-DISPLAY  V 06  N 79 

IN  FI  I GHT-p  I C<  UP  MARK  VB  INDEX 

PASTE  UP  NEXT  MK  VEP  P DISPLAY 


MAKE  X OR  Y MARK 
MAK  E Y MARK 
MAKF  X MARK 
MAKE  X OR  Y MARK 


:.AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  OY  ZOROASTER 


L AOTMARK 


P0506 

0505 


PCUTTNF  TC  REQUEST  CURSOR  AN  0 SPIRAL 
REF  1 


MEASUREMENTS 

COUNT  * tt/  R 5 9 


3 506 
0507 
0 50ft 


REF  1 

REF  13  LAST  259 
REF  A LAST  253 


07, 2621  3 2620  1 

07,  2622  0 66  16  1 

07,2623  20336  1 


DSPV6N79  CAF  V06N79* 

TC  RANKCALL 


C ADR  GOMARKF 


3509  REF 

0510  REF 

0511  REF 
05111  RFF 
15112  REF 
35113  REF 
05116  RFF 


6 LAST 
1 

?ft  LAST 
32  l AST 
63  LAST 
1 

3 l AST 


259  07,  2626  1 2060  1 

07  ,2625  1 2633  1 

266  07,2626  2 6766  C 

235  07,  26  27  7 0156  0 

265  07,2630  10  000  0 

07, 2631  1 2637  0 

266  37,2632  1 2621  1 


TC  F KILLAOT 

TCF  S JR  FEND 

CAF  01  T6 

MASK  MP AC 

CCS  A 

TCF  SURF  AG AN 

TCF  DSPV6N79 


512 

0513 

(5131 

3516 


REF 
RFF 
RFF 
R EF 


LAST  265 
L AST  266 
LAST  267 
LAST  267 


'7,2623 
07, 26  36 
07  ,2635 

. 


6 6736  C 

7 1 30  7 0 
6 6736  1 
55' 3C7  0 


SURFEND 


CS 

MA  SK 

AD 

TS 


RIT16 
MAP.KSTA  T 
B IT  16 
MARKST  AT 


0515 
0 516 
? 5 1 7 
051ft 
0519 
05  2 0 


PEF 

REF 


3 LAST  209  07,2637  3 1235  1 

« I AST  266  07,2660  51 ' 552  1 

07,  266  1 56  OCl  1 

2 LAST  21C  37  ,2662  3 1236  1 

9 LA  ST  267  07,2663  5 1*  552  1 

07,  2666  c 6 003  0 


SURFAGAN  CA 

INDEX 


TS 


CURSOR 

MKCFX 

1 


CA  SPIRAL 


INDEX  MKDEX 
TS  3 


■ 521  PEF 
352?  REF 
0523 

0526  PEF 
3525  RFF 

0526  REF 

0527 

052  R REF 
0529 

3 5 33  RFF 

0531  REF 

0532  REF 


36  LAST 
30  L AST 

2 LAST 

12  I AST 
IQ  LAST 

6 LAST 

2 LAST 

13  LAST 

3 I AST 


267 

267 

259 
266 
26  2 

260 

26  2 
257 
260 


C 7 ,2^65  6 1307  0 

07. 2666  7 6736  0 

07.2667  0 0006  1 

37,2650  1 2216  1 

C 7,  265  1 3 1550  0 

07  ,2652  6 6753  1 

07,2653  6 OCCO  C 

07, 2656  6 6756  1 

07.2655  C 0006  1 

07. 2656  f 2666  C 

07.2657  25 ' 5 50  0 

07,2660  1 2205  0 


CS  MARKST  AT 

MASK  B I T 1 6 

EXTEND 

BZF  MARKCHEX 

CA  MARKCNTR 

AD  ONE 

CCM 

AD  F I VF 

EXTEND 

BZMF  5 MKAL ARM 

INCR  MARKCNTR 

TCF  GETMKS  +3 


9:12  QZ  T.  21,1970  ZER  LAI  0 .001  PAGE  257 


JS  ER  'S  PAGE  NO  . 17  E7  S3 


CURSOR-SPIRAL  OISPLAY 


V3 6 -DOES  GOT OPCCFI 

V3 3- PROCEED,  END  MARKING 

IF  V32  (0CT6  0 ) IN  MPAC  DO  RECYCLE 

OTHERWISE  IT  IS  LOAD  VB  ENTER  SO 

RE- 01  SPLAY  V06N79 

VB32-RECYCLE 

ENTER 


SET  BIT  16  TO  SHOW  MARK  FNO 


HOLDS  VAC  AREA  POINTFR  FOR  SURF  MARKING 
STORE  CURSOR  S P 2 CCMP 

STORE  SPIRAL 

IF  BIT  16  SF T- END  MARKING 

THIS  IS  RECYCLE-SFE  IF  5 MARKS  ALREADY 


CANT  RECYCLE-TO  MANY  MAPKS-ALARM 
OF  FOR  RECYCLE-INCP  C CUNT  E R 
GO  OISPLAY  MARK  VB 


SAP: 


A SSRMBLtr  RE  VISION  56  OF  ASC  PROGRAM  ZE  RLI  NA  BY  ZORCAST  ER 


L EXT  ENDED  V ERBS 


00"  1 
303? 
00C3 


REF 


J7  ,2661 

A3,  20C0 
43,2000 


BANK  7 

SETLCC  EXTVERRS 

BANK 


0004  REF 


LAST  203  F5.1737 


FBANK=  OGC 


33"'5  RFF  1 
R 0006  FAN-HIT 


C D UN  T <■  SS/EXTVB 


000  7 
OOOR 


REF  33  LAST 
REF  1 


267 


4 3 , 20C0  5C  154  1 GflFXTVB  INDEX  MPAC 
43,  200  1 0 2002  1 TC  LST2FAN 


0009  REF 
3)13  REF 
A 00  1 1 

0012  RFF 

0013  RFF 

0014  RFF 

3315  REF 
Odfi  RFF 
0017  REF 
3 3 IP  REF 

0019  RTF 

0020  RFF 
0C21  RFF 
0022  REF 
3323  REF 

0024  PFF 

0025  PEF 
3026  RFF 

0027  REF 

0028  REF 
0129  REF 
0030  RFF 
3331  REF 
00-32  RFF 
0033  REF 
3334  REF 

0035  REF 

0036  REF 
3037  RFF 

0038  RFF 

0039  REF 
3043  REF 
0041  REF 
0C42  RFF 

0043  Rf-F 

0044  REF 
A3245 

0046  REF 


43,2002  C 2126  0 
43,  2003  C 2 177  1 


LST2FAN  TC 
TC 


V BZERO 
VBCOARK 


LAST 


I AST 
LAST 
I AST 
LAST 


43, 200 A 
43,  2005 
43,230  6 
43,  20C7 
268  43,2010 

• ' , LI 
43,  20  12 
43  ,2013 
43 ,2014 
268  43,  20  15 

268  43  ,2016 

268  43,  2017 

, 

43  ,2  321 
43,  2022 
43  ,2023 
43  ,2024 
43,  2025 
43  ,2026 
43,  2027 
43,  2030 
43,2031 
43,  2032 
43  ,2033 
43,2034 
43,  2035 

43.2036 

43.2037 
4 3,  2040 
43  ,2041 
43,  2042 
4 3,  204  3 
43  ,2044 


C 2337  1 
0 2675  1 
C 2304  1 
0 2116  0 
0 2116  0 

0 2376  1 
C 3130  0 

1 3004  1 
0 2370  1 
0 2116  0 
0 2370  1 
C 2370  1 
0 2370  1 
0 2410  0 

C 3013  0 
0 2326  1 
C 2331  1 
C 2 147  1 
0 2174  1 
C 2164  0 
0 2167  0 
C 2423  0 
f 2667  1 
0 3220  1 
C 3135  0 
0 3212  0 
0 2334  1 
0 2037  1 VERB69 
0 3723  1 
0 3725  1 
C 3727  0 
0 3731  1 
C 3034  0 


TC  IMIJFINEK 

TC  IMUATTCK 

TC  RRDFSEND 

TC  ALM/ENO 

TC  ALM/FNO 

TC  V 47TX  ACT 

TC  DAFOISP 

TCF  CREWMANU 

TC  GC1L0ADLV 

TC  A L M /E  NO 

TC  G3LOAOLV 

TC  GOLCADLV 

TC  30L0ADL  V 

TC  AL  INTIME 

TC  TRMTRAC  K 

TC  L R ON 

TC  LROFF 

TO  LRP0S2K 

TC  PATEOISP 

TC  DA  PATTER 

TC  TOTATTER 

TC  RO  4 

TC  VB64 

TC  SNUFFOUT 

TC  ATTACHED 

TC  V6  7 

TC  TEROFF 

TC  VERB69 

TC  V70UPDAT 

TC  V7  1UP  DAT 

TC  V7  2UP0AT 

TC  V7  3UP0AT 

TC  ONEDUMP 


43  ,2045 


0 3223 


TC 


DUTSNUFF 


9:12  OCT.  21,  1970  ZERLAID 


001  PAGE 


268 


USER'S  PAGE  NG. 


E3  S3 


VERB-43  IS  IN  MP AC 
FAN  AS  BEFORE. 


V 04  C ZERO  (USED  WITH  NOUN  20  OR  72  ONL  Y1 
V B4 1 COARSE  ALIGN  (USED  WITH  NOUN  20  DR 

72  ONLY ) 

V 842  FINE  AL  IGN  IMU 

VR43  LOAD  I M1J  ATTITUDE  ERROR  MEIERS. 
VH44  TERMINATE  CONTINUOUS  DESIGNATE 
VW5  SPARE 
VB46  SPARE 

VR47  AGS  INITIALIZATION 
VB4 8 LOAD  AZ  P CAT  A 

V849  START  AUTOMATIC  ATT!  TUOF  MANEUVER 
VB50  PLEASE  PERFORM 
VB  5 1 SPARE 

V9  52  PLEASE  MARK  X - RETICLE. 

V B5  3 PLEASE  MARK  Y - RETICLE. 

VB 54  PLEASE  MARK  X OR  Y - RETICLE 
VB55  AL IGN  TIMF 

VB56  TFRMINATE  TRACKING  - P20  + P25 
VB  5 7 PERMIT  LANDING  RADAR  UPCATES 
VR58  INHIBIT  LANDING  RADAR  UPDATES 
VB59  COMMAND  LR  TO  POSITION  2. 

VB  60  DISPLAY  DAP  ESTIMATED  RATES 

V B6 1 DISPLAY  DAP  ATTITUDE  ERROR 
VR6?  DISPLAY  TOTAL  ATTITUDE  ERROR 
VR63  SAMPLE  RADAR  ONCE  PER  SECOND 

V064  CALCU1.  AT  E,  CIS  PL  AY  S-BAND  ANT  ANGLES 
VB  6 5 DISABLE  U,V  JETS  DURING  DPS  BURNS. 
VB66  ATT  ACHED  MOVE  THIS  TO  OTHER  STATE 
VB6 7 W MATRIX  MCNITOR 

VR68  TAKE  OUT  TERRAIN  MODEL  IN  DESCENT 

V 869  FORCE  A HARDWARE  RESTART 
VB7 0 UPDATE  LIFTOFF  TIME. 

VB  7 1 UNIVERSAL  UP  DA  TF  - BLOCK  ADDRESS. 
VR72  UNIVERSAL  UPDATE  - SINGLE  ADDRESS. 
VB73  UPDATE  A GC  TIME  (OCTAL). 

VB  7 4 INITIALIZE  DOWN- TE  LE  MF  TRY  PROGRAM 
FOR  ERASABLE  CUMP. 

VB  75  ENABLE  U,V  JETS  DUPING  DPS  BURNS. 


GAP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L EXTENOEO  VERRS 


3 3 A 7 

0048 

0049 
005  0 
0051 
305? 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
0 0 60 
0061 
00  6 2 
3063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 


PEF  1 
REF  1 
P.EF  1 
R FF  l 
REF  1 
REF  1 
PFF  4 
REF  1 
REF  5 
REF  6 
REF  7 
REF  1 
RFF  1 
REF  I 
REF  1 
RFF  1 
REF  8 
REF  1 
RCF  1 
PFF  5 
REF  9 
REF  6 


LAST  26  8 

LAST  269 
LAST  269 
LAST  26  9 


1 A ST  269 


LAST  268 
LAST  269 
LAST  269 


43,  2046 
43  ,2047 
43,2050 
4.3,  20  5 1 
43,2052 
43,  2053 
43,2054 
■ . 

43,  2Q56 
43  ,2057 
43.2C6C 
4 3,  20  6 1 
4 3 , 2 C62 
4 3,  2C  6 3 

43.2064 

43.2065 
4 3,  2066 
43  ,2067 
43,2070 

, 

43  ,20  72 
43,  2 C 7 3 
43,2074 
, 


0 2773  0 
0 2776  0 
C 2413  0 
0 2623  1 
C 3040  0 
C 3C43  0 
0 2734  0 
0 2 74  4 l 
0 2H6  0 
0 3226  1 
C 2116  0 
0 2116  0 
0 2116  0 
0 2752  0 
0 2761  0 
Cl  3073  0 
0 30  5 3 1 
0 3066  1 
C 2116  C 
0 30  50  1 
C 3205  0 
C 2370  1 
0 2116  0 
0 2370  1 


TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 


R3371  ENO  OF  EXTENDER  VFRB  FAN 


0072 

C073 

0074 

0075 
3375  1 

0075  2 

0076 
3377 

A 0078 


REF  5 LAST  253 
RFF  n LAST  269 
REF  ? 1 AST  229 

RFF  1 

RFF  6*  LAST  267 
REF  11  LAST  269 
REF  l 

RFF  6 LAST  269 


1 1 • 0 4 3 
43,2(77  C 2116 

, i :•  oio< 

43,2101  7 2125 

■ , 

43,2103  0 2116 

, 

43,  2 105  55*043 


0 T E ST  X ACT  CCS 
0 TC 

0 CA 

1 MASK 

0 CCS 
TC 

1 CAF 
0 SETXTACT  TS 


0079  REF  23  LAST  264 

0080  RFF  ?4  LAST  2&R 


3 G0C2  0 

5 4 155  1 


CA 

TS 


00R1  PEF 
33f»2  REF 
0083 

00835  RFF 
33836  REF 


4 LAST  2*1 
1 

? LAST  228 


43,211 0 4 4752  1 

4 3,  2 11  1 C 4154  0 
43,2112  0 2113  0 

43,21  13  1 0 067  1 

43,  2 114  f 5 122  0 


0084 
00  87 


RFF  3*  LAST  ?69  43,2115  0 0155  0 

REF  6 LAST  215  5503 


TC 

TFRMFXTV  EQUALS 
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MINI MP 

NDM  IN  IMP 

R7  7 

P 776  ND 

1.  E MV  EC 

CSMVFC 

V82PERF 

V83PERF 

ALM/END 

VERB85 

ALM/  END 

A L M /E  ND 

ALM/  ENO 
V89PERF 
V90PEP.F 

GOS  HOSUM 
SYSTEST 

W M A TR  XN  G 

ALM/ END 

UPOA  TOFF 

VERB96 

GOLCAOLV 

ALM  /END 
GOLOAOL V 

VB7 6 MINIMUM  IMPULSE  MODE 

VB  7 7 RATE  COMMAND  MODE 

VB78  START  LP  SPURIOUS  RETUPN  TEST 

VB79  TFRMINATE  LR  SPURIOUS  RETURN  TEST 
VBRC  UPDATE  LEM  STATE  VECTOR 

V 08 1 UPDATE  CSM  STATE  VFCTOP 

VB  8 2 REQUEST  ORBIT  PARAM  OISPLAY  (R33) 

VB8  3 REQUEST  REND  PARAM  DISPLAY  (R31) 

VB84  SPARE 

VB  8 5 DISPLAY  RR  LOS  AZ  AND  FLt  V 

VB8  6 SPARE 

VB87  SPARE 

V B 8 8 SPARE 

V Bfl  9 ALIGN  XORZ  LEM  AXIS  ALONG  LOS  ( R 6 3 » 
V890  OUT  OF  PLANE  RENDEZVOUS  DISPLAY 

VB°  1 DISPLAY  BANK  SUM. 

VB9  2 OPERATE  I MU  PERFORMANCE  TEST. 

VB  9 3 CLEAR  RE  ND WF  LG 

VB9  4 SPARE 

VB95  NO  STATE  VECTCP  UPDATE  ALLOWED 

VB96  INTERRUPT  INTEGRATION  AND  GO  TC  POO 

V B9  7 PLEASE  VERIFY  FN  G IN  E FAILURE 

VB  9 8 SPARF 

VR99  PI  EASE  ENABLE  ENGINE 

F X T VB AC T 

ALM/  F ND 
= LAG  WRD4 

OC  24  100 

A 

ARE  EXTENDED  VERBS  BUSY 

YES,  TURN  ON  OPERATOR  l I GMT 

A RF  PRIORITY  DISPLAYS  USING  DS  KY 

ALM  /F  ND 

0CT2S 

F XTVBACT 

Q 

MP  AC  +■  1 

YF  S 

SET  BITS  1,  3,  AND  5 

NO.  SET  FLAG  TO  SHOW  FXT  VERB  DISPLAY 
SYSTEM  BUSY 

TWO 

NVSUB 
+ 1 

NEWJOB 

CHANGl 

BLANK  EVERYTHING  EXCEPT  MM  A NO  VERB 

MP  AC  +1 

ENO  EXT 


ASSEMBLE  REVISION  56  OF  A GC  PROGRAM  Z6RLI  NA  8Y  ZOROASTER 


L EXTENDFC  VERBS 


0088  REF 


7 LAST  2 69 


5503 


FNCtXTVR  EQUALS  ENDEXT 


3391 

009? 

0003 


P EF 
RFF 
RFF 


? I AST 
7 LAST 
? LAST 


239  43,2116 
26 1 43,2117 
234  43,2120 


C 4364  1 A L M/E  NO 
0 4635  0 GOP  IN 
21051  0 


TO  F ALTON 

TC  POSTJUMP 

CACR  P I NBRNCF 


3394 

0095 

0096 
CC  97 


P EF  6 LAST  238 
P EF  l 

REF  12  LAST  269 


4 3,  2 12  1 
43  ,2 122 
43,2123 
43,  2 124 


loio  1 

OC  06  1 
6764  0 
2 116  0 


CHKP0C1H 


0 

1 

0 


CA  MDDREG 

EXTEND 
3ZF  TCQ 

TC  4 L M /E  NO 


00971 


43,2125  24100  0 nf24100  OCT  24100 
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TJRN  ON  OPERATOR  ERROR  LIGHT 


CHECK  FOR  PCO  OP  P00-. 
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7 ERL  A I D 


.00  1 PAGE  271 


L EXTENDED  VERBS 


USER'  S PAGE  NG. 


E5  SA 


3 009B 
RDDD^ 
R010r‘ 

* 0 10  1 
rd  id? 

R C 1 1 ' 3 

RO  10  A 
ROl  05 
10106 


VBZERO  VERB  AC  DESCRIPTION 

1.  REQUIRE  NOUN  20  (ICDU  ANGLES)  OR  NOUN  72  (RCDU  ANGLES). 

2.  FDR  N2  0 , CHECK  IMJCAOR  IN  AN  EFFORT  TO  AVOID  A 121'  RESTART. 
FDR  N7  2,  CHECK  IF  EITHER  RADAR  IS  IN  USE. 

3.  EXECUTE  THE  CCU  ZERO. 

A.  STALL  UNTILL  THE  ZERO  IS  DCNE. 

5.  DCN'T  DIFFERENIATE  BETWEEN  A BAD  OR  GOOD  RETURN. 

6.  EXIT,  RE  -EST  A EL  I SH ING  THE  INTERRUPTED  DISPLAY  (IF  ANY). 


D1JD 
0 111 
D 112 
D 1 1 3 
01131 
1 1 A 


REF  1 
REF  1 
REF  1 

REF  IA  LAST  257 
REF  2 LAST  215 


A3, 2126  C 2 2c2 
A3, 2127  f 2131 
A 3, 2 13"  0 2 1A0 

A 3,  2 1 2 1 0 2A0A 

A3, 2132  U A616 
A3,  2133  16661 


0 VBZFRO  TC 

TC 

0 TC 

0 IMU7ER0K  TC 

1 TC 

1 CADR 


OP/I  NERT 

IMUZEROK  RFTURN  HERE  IF  NOUN  = ICDIJI20) 

RRZEROK  RETURN  HERE  IF  NOUN  = RCDIJI  72) 

CKMODCAD 

BANKCALL  KEYBOARD  REQ  FOR  I SS  CDUZERO 

I MUZERC 


'115  REF  15  I AST  27  1 
0116  REF  2 LAST  215 
D 117 


A 3,  2 1 3A  C A616  1 
A3, 2135  17715  1 

A3,  2 136  C 2 137  0 


TC  3ANKCAL!  STALI 

CADR  IMUSTALL 

TC  ♦ 1 


Oil  R 

REF  1 

A3, 2137 

0 2117  1 

TC 

GOP  IN 

0120 

R FF  1 

A 3 , 2 1AC 

C 2 6 A 6 1 

PR7ER0K  TC 

RDRUSECK 

012  '2 

REF  1 6 LAST  27  1 

A 3,  2 1 A 1 

0 Afc  1 6 1 

TC 

BANKCA  LL 

0121 

RFF  1 

A 3 , 2 l A 2 

5233A  1 

CADR 

RRZER  0 

I MU7FK0 


? 122 
■ 123 
0 1 2A 
D 125 


REF  17  I AST  271 
REF  1 

REF  2 LAST  27  1 


A3,  2 l A 3 
A3, 2 1AA 
A3 ,21A5 
A3,  2 1 A6 


C A616  1 
17713  1 
1 21A6  1 
C 2117  1 


P WAI  TK 


TC  BANKCALL 

CADR  RADSTALI 

TCF  +1 

TC  GOPIN 


RRZERO 


R 0 1 2 6 
R"1  127 
k;  129 
3 0130 
RD  131 
R C 1 3 1 1 


LRP0S2K  VEPe  59  DESCRIPTION 

COMMAND  LANDING  RAOAR  TO  POSI  TI  CN  2 

1.  EXIT  WITH  OP  ERROR  IF  SOMEDNF  IS  USING  EITHFR  RADAR. 

2.  ALARM  WITH  CCCE  523  IF  POS  2 IS  NUT  INDICATED  WITHIN 
THE  PRESCRIBED  TIME. 

3.  RE-ESTABLISH  TFE  DISPLAYS. 


132 

RFF 

1 

1 A ST 

?q2 

3 

0103 

0 

LRFCS2K  CA 

FL  ACWRC7 

‘ 132  2 

REF 

1 AST 

7 

A 7 A 7 

0 

MA  SK 

A VEGFBI  T 

13?  A 

A3  ,2151 

0 

0006 

1 

EXTEND 

'1326 

R EF 

1 

A3 ,2152 

1 

2161 

1 

BZF 

L RP0S2K1 

rl  3 3 

REF 

3 

L AST 

236 

A3,  2153 

A 

01C7 

0 

C S 

= LGWPDl  1 

i 1332 

REF 

3 

LAST 

236 

A3  ,2  15A 

7 

A735 

0 

MASK 

LRBYB  IT 

1 33 

A 3,  215  5 

C 

0C06 

1 

EXTEND 

013  A 

REF 

13 

l AST 

270 

A 3,  21 56 

1 

2 1 16 

1 

BZF 

ALM/F  ND 

~ 1 3A  I 

REF 

8 

LAST 

270 

A3  ,2157 

C 

A63  5 

0 

TC 

POST  JUMP 

D 13A3 

RFF 

1 

A3,  2 16C 

: 36CA 

0 

CADR 

V59GP63 

013AA 

RFF 

2 

LAST 

271 

A3  ,2161 

0 

26A6 

1 

LRP0S2K1  TC 

RDRUSECK 

AVERAGE  G NOT  ON 


IF  AVE  G ON  AND  NOT  R12-  OPERATOR  ERROR 
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EXTFNDEP  VERBS 


0:12  OCT.  21  ,1970  ZERLAID  .001 
USER  'S  PAGE  NO.  5 


PAGE 
E5  S4 


27  2 


1346  REF 
134  7 PEE 
ft:- 135  V £ 1 


1 P.  I AST  27  1 4,3,  2 162  0 46  16  1 TC  BANKCALL 

1 43,2153  53573  0 CACR  LRP2C0MM  COMMAND  LR  TO  PCS2 

VERB  £1,  01  SPLAY  DAP  ATTITUDE  EP.RCRS  CN  FDA  I ATTITUDE  ERROR  NEEDLES. 


Pi  3 7 
)138 
3139 


PEF 

REF 

REF 


LAST 


I AST 


239 

258 


43,  2164  0 5527  1 OAPATTER  TC 

43,?165  00013  0 AORES 

43,  2 16  6 1 2171  0 TCF 


DOWNF  LAG 
NEEDL  FL  C- 
TOTATTEP  ♦? 


R 0 1 4 V62 


VERE  62,  DISPLAY  TCTAL  ATTITUDE  ERRORS  ON  FDA  I ATTITUDE  ERROR  NEEDLES. 


142  REF 
p 14 I PEF 
01431  REF 
31432  PEF 
0H4  PEF 


4’. 2167  C 5515  0 
LAST  272  43,  2 170  00013  C 

LAST  272  43,21  71  C 5527  1 

43,  2172  COOCO  1 

LAST  271  43,2173  0 2117  1 


TCTATTER  TC  UPFLAG 

AORES  NEED  LF  LG 

+2  TC  DOWNFLAG 

AORES  NEED2FLG 

TC  30PIN 


* 0144  1 V 60 


VERB  60,  DISPLAY  DAP  ESTIMATED  RATES  CN  FDA  I ATTITUDE  ERROR  NEEDLES. 


1443  REF 
01444  RFF 
C 1 44  5 REF 


2 LAST  272 
2 LAST  27? 
4 LAST  272 


43,  2174 
43  ,2  175 
43,  2176 


0 5515  C 
00000  1 
C 2117  1 


RATEOI  SP 


TC 

AORES 

TC 


UPFLAG 
NEED2FLG 
GOPI  N 


R 1 4 5 
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EXTENDED  VERBS 
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PM  48 
R 0 1 49 

R 0 1 5 1 
ROl  52 
R 0153 
RD  154 
R0l5c 
R 0156 
RT.  167 

RC15R 
R 0 168 
RM69 
R 0 1 70 
Rt  1 71 
RC  172 
R 0 1 7 3 
RD  1 7 4 
R0175 
RO  17  5 5 
RD  1 76 
R 0178 
R 179 
ROl  BO 
R C 1 01 
RD  18  2 

R D 184 
*0  185 
RD  1 36 


VBCOAPK  VERB  41  DESCRIPTION 

C CAR  SE  ALIGN  I ML  GR  RADAR 

1.  REQUIRE  V 1 UN  2C  OR  NOUN  72  OR  TURN  ON  OPERATOR  ERROR. 

2.  RECUIRE  FXT  VERe  DISPLAY  SYS  AVAILABLE  OR  TURN  ON  OPERATOR  ERROR  LIGHT  AND  GO  TO  PINBRNCH. 
CASE  1 NOUN  20  ( I CDU  ANGLES) 

T.  SET  EXT  V ER  8 DISPLAY  ACTIVE  FLAG. 

4.  DISPLAY  FLASHING  V25.N22  (LOAD  NEW  ICDU  ANGLES). 

RESPONSES 

A.  TERMINATE 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM 
P.  PROCEED 

1 . COARSE  ALIGN  TO  T HF  FXISTING  THFTAD'S  ( IC0RK2). 

C.  ENTER 

1.  COARSE  ALIGN  TO  THE  LOADED  THETAD'S  (IC0RK2). 

IC0RK2 

1.  RE-DT  SPLAY  VERB  41. 

2.  EXECUTE  IMUCOARS  ( IMU  COARSE  ALIGN). 

3.  EXECUTF  IMSTALL  ( A LLCW  TIME  FOR  DATA  TRANSFER). 

4.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

CASE  2 NOUN  72  ( PCDU  ANGLES) 

EXI1  WITH  OP  LRRCR  IF  SOMEONE  IS  USING  EITHER  RACAD. 

5.  DISPLAY  FLASHING  V24.N73  (LOAD  NEW  RR  TR  UNI  ON  ANGLE  ANO  NEW  SHAFT  ANGLE). 

RE  SPCNSES 

A.  TERMINATE 

1.  RELEASE  EXT  VERB  DISPLAY  SYS. 

B.  PRCCEEO  CR  ENTER 

1.  EXECUTF  A LR  LOKON  (ASK  OPERATOR  FOR  LCCK-CN  REQUIREMENTS). 

2 . RE-OIS  PL  AY  VERB  41  . 

3.  SCHEDULE  RRDESK2  WITH  PRIORITY  20. 

4.  RELEASE  FXT  VERB  DISPLAY  SYS. 


R 01  87 


AURLCKON 


10  188 
' B9 
R 0190 
RMR4 


R0196 
Rl  195  1 
RM962 
R 0 1 96 
ROl  97 
Cl9R 


D 2D  D 
R02G1 


F FF 
RFF 
RFF 


1.  FLASH  VC 4 M 12  R 1 = 0C006  R2  = 00002 
RES  PONS  ES 

A.  TERMINATE 

B.  PROCEED 

1 . RESET  LOCK-DM  SW  ITCH 

2.  SET  CCNTINLOUS  DESIGNATE  FLAG 

M DISABLE  R 25 

C.  V2?  E 1 F,  Rl  = 00001,  PROCEEO 
1.  SET  LCCK-CN  SWITCH 

2 I AST  27  1 43,2177  C 2202  0 VBCOARK  TC  OP/INERT 

1 43,2200  C 2213  0 TC  IMUCOARK  RETURN  HERF  IE  NOUN  = ICDU(20! 

43.  22C1  C 2235  1 TC  RROESNBK  RETURN  HERE  IF  N'OU  N = RCDU(72) 

RETURNS  TC  L U IF  IMU  OR  L+2  IF  RR. 


0 20  2 RFF 

02 03  REF 

0204 


2 LAST  238  43,2202  4 6007  1 OP/INERT  CS 

2 I AST  229  43,  220  3 fc  100  1 1 AO 


OCT24 

NOUNRFG 


43  ,2?04  0 0006  l 


FXT  END 


ASSEMBLE  REVISION  56 
EXTENDFD  VERBS 

RFF  2 LAST  270 


0207 

325H 

0209 


PFF 

RFF 


1 


OF  AGC  PR  CGP  A M ZERLINA  PY  ZOROASTER 


43,  2205  1 6 7 5.4  r 


LAST  163  43,2210  1 6751  0 


TCO 

RR  1HUDI  F 


0 2 10 

■>211 
213 
0 2!  A 

0215 

0216 
3 217 
021fi 
0219 


LAST  271  43,2211  0 2116  0 


RFF 
R FF 
REF 


19  LAST  272 


43,2212 
43  ,2213 
42 ,2214 
43,  22  IS 
43,2216 
43,  2217 

43.2220 

43 .2221 


77713  1 

0 2404  0 
C 2C76  1 
2 2233  1 
C 4616  1 

20334  1 
C 5503  1 

1 2222  0 


ALM/  END 
-52 

CKMODCAD 
TESTX  ACT 
VN  LOOT.  DU 
R ANKCALL 
GCXDSPF 
TERME  XT V 
+ 1 


D2n 
0 221 
22? 


PFF 

REF 

REF 


20  LAST  274 


43,  7222 
43  ,2223 
43 ,2224 


3 22  34  0 

0 46  16  1 
2C621  0 


I C OR  K 2 CAF 


I MUCOAR V 
BANKCALL 
EX  CSPRET 


3225 
0 226 
1227 
322ft 


PEF 

REF 

PEF 

PFF 


2 l AST  274 


43,  2227 
43  ,2230 
43,2231 
43,  2232 


C 46 1 6 1 
17715  1 
D 5503  1 
[ 6 5C  3 1 


BANKCALL 
IMUSTALL 
ENDEXTVB 
ENDE  XTVB 
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ILI  EGAL  . 

THF  I MU 

COARSE  ALIGN  FROM  KEYBOARD. 
CALL  FOR  THFTAC  LOAD 


RF-OTSPLAY  COARSE  ALIGN  VERB. 

CALL  MODE  SWITCHING  PRCC- 

STALL 


GAP:  ASSEMRLE  REVISION  56  OF  AGC.  PROGRAM  7ERLINA  BY  ZOROASTER 


I EXTENDED  VERBS 


DESIGNATE  TO  DESIRED  GINBAl  ANGLES. 


0232  REF  3 LAST 
0234  REF  2 LAST 
D239  REF  1 
02391  REF  1 
0239?  RFF  1 
32393 

C 2394  RFF  20  LAST 
023°5  RFF  21  LAST 


27  1 43,  2235  C 

274  43,2236  0 

43,  2237  4 

4742 

4735 

4 3,  2 240  0 

227  43  ,2241  7 

275  43,  2242  5' 


2646  1 RRDESNBK 
2 C76  1 
6G2  1 0 

REFT  AG 3 
REFTAG4 

0004  0 
0 110  0 

^ 110  0 


TC  R DR  USE  C K 

TC  T EST X ACT 

CS  BITlO+15 

= DESIGBfT 

= CDESBIT 

INHINT 

MASS  RADMODES 

TS  RADMODES 


243 
1 244 
1245 

0246 

0247 


REF  1 

REF  23  LAST  274 

REF  2 LAST  274 

REF  2 LAST  274 


43.2243  3 2262  0 

43.2244  C 4616  1 

43,  2245  20334  1 

43  ,2246  0 55C3  1 

43,2247  1 2243  1 


CAF  VNLDRCOU 

TC  RANKCALL 

CADR  GOXDSPF 

TC  TERM  EXTV 

TCF  -4 


02  4 R REF  24  LAST  275 

0249  REF  1 


4 3,  2 250  0 461 6 1 

43,2251  46000  0 


TC  RANKCALL 

CADR  AURLOKON 


3 253  REF  1 

f,25l  RFF  25  LAST  ?75 


0252  RFF 


LAST  274 


43,  2252  2 2234  0 

43.2253  0 4616  1 

43.2254  20621  0 


CAF  OPTCOARV 

TC  BANKCALL 

CADR  EX  CS  PR  FT 


253  PEE 
.254  RFF 

0255  PEF 
^256  REF 

0256  RFF 


1 

3 LAST  251 
7 LAST  24  7 
1 
1 


43, 22R5  3 4736  1 

43  ,2256  0 5 105  0 

E7, 1456 

43, 2257  02263  1 

43,2260  66107  1 


CAF  PRIU20 

TC  FINDVAC 

EBANK=  LOS  C CU NT 
2C  ADR  RRDESK2 


3257 


REF  3 LAST  275 


43,  2261  1 5503  0 


TCF  TERMFXTV 


P EF 


2 l A ST  274 


06111  0 


VNLDRCCU  VN  2473 

CPTCQARV  EQUALS  IMUCOARV 


0260  REF  26  LAST  275 

0261  RFF  1 


43,  22fc3  0 46 1 6 1 RRDESK2 

43,2264  52466  1 


TC 

CADR 


BANKCALL 

RRDESNB 


3 262 

' 3 f»2  1 RFF 
C 26?  2 REF 
32623  RFF 

02624  RFF 

02625  REF 

02626 

'.2  62  7 RFF 
3253  REF 

0264  REF 

0265 

3266  REF 


66 
6 7 

10 

27 

2 


LAST  22B 
LAST  264 
LAST  269 
I AST  275 
LAST  275 

LAST  275 
I AST  275 
LAST  ?7  1 

L AST  246 


4 3 , ? ? 6 6 
43,2267 
4 3,  2 270 
43  ,2271 
43,2772 
43,  2273 
43 ,2274 
43,  2275 
43,2276 
43  ,2277 

4 3,  2 300 


7 5004  1 
10  COO  G 
50  000  1 
54  CCO  0 
4 0000  0 
26  167  0 
C 4616  1 
17713  1 
C 2301  1 
0 51550 


TC  +1 

CA  PRIORITY 

MASK  L0W9 

CCS  A 

INDEX  A 

TS  A 

COM 

ADS  PRIORITY 

TC  BANKCALL 

CADR  RADSTALL 

TC  +2 

TC  ENDOF  JOB 


9:12  CCT.  21,1970  ZERLAIC  .00 1 PAGE  275 
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TERMINATE  PRESENT  DESIGNATION. 

RE  LI  NT  DONE  IN  GOXDSPF 
RESET  CONTINUOUS  DESIGNATE  BIT  AND 
DESIGNATION  IN  PROGRESS  BIT 

ASK  FOR  GIMBAL  ANGLFS. 

V33 

ASK  OP  FOR  LOCK  ON  PEQU IRFMENTS . 

RE-OISPLAY  OJR  OWN  VERB 


FREES  0 IS  PI  AY  . 


DIFFERENT  NOJNS. 


CUMMY  NEEDED  SINCE  UESRETRN  OOFS  INCR 


RELEASE  THIS  JOBS  VAC  AREA. 

INSURE  ENDOF JOR  DOES  A NOVAC  END  (BZMF). 

WAIT  FUR  COMPLETION  OF  DESIGNATE 

BADEND-NO  LOCKON  OK  OUT  OF  LIMITS 
GOODF  ND-LOCKON  ACHIEVED 


GAP:  ASSEMBLE  REVISION1  56  OF  AGC  PROGRAM  ZERLINA  OY  7 OP  UA  STE  R 


L EXTENDED  VERBS 


0 267  RTF 
j74R 

C 269  REF 


LAST  263 
LAST  275 


43.2301  C 560C  1 
43,  2302  CO  50  3 1 
43,2303  C 5155  0 


TC  ALARM 

'fT  503 

TC  ENDDFJOB 


0272  REF 
327? 

02731  RFF 
2 7?  7 PEF 
027??5  RFF 
027326  RFF 
2733  KCF 
C 2 7 3 4 P.EF 
*2735  RFF 
32 736  REF 
02737  REF 
-2738  PFF 
32771  PEF 
02773  REF 
'2774  REF 
2 775  °EF 
0278  RFF 
3279  PEF 

0280  RFF 
02312 

3 2 P 1 4 REF 

0281  6 

02818  REF 


LAST 

LAST 

LAST 


27  2 
276 


23  LAST  276 


2 LAST  103 
68  LAST  275 
1 


28  LAST  27  5 
3 LAST  215 
1 

3 L AST  23fl 
2 LAST  276 

29  LAST  276 

4 LAST  276 
15  LAST  272 


1 


43,2306 
43,  23C7 
43  ,2  U j 
43 ,23  1 1 
4736 


4741 
43,  23  1 2 
4 3,  231  3 
43  ,2314 
4-,  7-15 
43  ,2316 
43,231  7 
43,  2320 
43  ,2321 
A3, 2222 
43,  2323 
43,2325 
4 3,  2325 
7722 
23,2000 
. 

23  .PHOT- 


IC 110  0 
1 2117  0 
1 2117  0 
1 2210  0 
4 0110  0 
7 7722  C 


1C  COO  0 
1 2320  0 
3 4777  1 
C 4616  1 
01736  1 
0 2310  1 

0 6011  1 
3 4777  1 
C 4616  1 
Cl  73 6 1 
0 5527  1 
CO  126  1 


P PDF  SEND  CCS 
TCP 
TCF 
TCF 

RFMODCHX  CS 

MASK 

REFTAGl  = 
REFTAG2  = 

CCS 

TCF 

CAF 

TC 

CADR 

TC 

NDRF  MODE  TC 
CAF 
TC 

CADR 

TC 

Al) RE  S 
BIT  146  11  = 

BANK 
SF  TLC1C 
BANK 
COUNT* 


P ADMCOES 
30PI  N 
GOPIN 
+ 1 

PADMODE  S 
BIT146U 
PE  MOHR  I T 
REPDSB  IT 
A 

NORE  MODE 
IS  EC 

RANKCALL 
DELA YJOR 
P EMODCHK 
C LR AD  MOD 
IS  EC 

BANKCALL 
3c  LA  YJOR 
DflW NFL  AG 
NGRRMCN 
PR  1022 
23 

E XTVBl 
* $/  EX  TV  8 


0282  REF 

0283  RFF 
3284  RFF 

0285  RFF 

0286  REF 
32B62  REF 


1 

2 I A ST  105 
5 I AST  269 
1 

5 l A ST  264 
2 I AST  276 


23,  2000  C 4645  1 
23  ,2001  55-1  12  0 

23,  2002  3 47  52  0 

23, 2003  55' 051  C 

. 

23.  20C5  5 5 ' 050  1 


AURLOKON 


TC 

TS 

CAF 

TS 

CAF 

TS 


MAKECADR 

DESRET 

TWC 

OPTI  ON X + l 
S IX 

OPTI GNX 


02864  REF 
32866  RFF 
(2868  RFF 
02869  RFF 
3287 
0288 

0289  REF 
3293  REF 
0291  REF 


1 

30  FAST  276 
1 

8 LAST  270 


13  LAST  261 


6 LAST  276 


23  ,2006  3 2037  1 

23,2007  C 4616  1 
23,  20  10  20353  0 

23  ,7011  1 5503  0 

23. 2012  1 2C17  1 

23.2013  1 2006  1 

23  ,2314  3 4751  0 

23,  2015  C 5475  1 
23  ,2016  0 5155  0 


CAF  V 0 4N  12  72 

TC  BANKCALL 

CAD3  30MARKFR 

TCF  FNOEXT 

TCF  +5 

TCF  - 5 

CAF  B IT  3 

TC  BLANKET 

TC  EN  DOF  JOR 


CA  OPTIONX  +1 

MA SK  8 I T2 


9:12  CCT  ■ 21,1970  ZERLAID  .00  1 PAGE  276 


USER'S  PAGE  NC.  o E5  S4 

TURN  ON  ALARM  LIGHT  -503  CES  IGNAT  E FAIL 


TFPMINATE  CONTINUOUS  DESIGNATE  ONLY 

CHECK  FOR  REMODE  CR  RFPCS1TI0N 


NO 

YES-  WAIT  1 SECOND  AND  CHECK  AGAIN 


ENABLE  R 25  GTMBAI  MONITOR 


OPTION  CODE  FOR  V04N12 


R 2 


V 34 
V33 
V32 


0000  1 


LOCK-ON 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


EXTENDED  VFRHS 


02  94 
02  95 
0296 
3297 
02  98 


REF 

RFF 

REF 

REF 

RFF 


LAST  272 


23,2021 
23,  20  2 2 
23 ,2  023 
23,  2024 
23,2^25 


1C  CCO 
1 2026 

0 5515 
00012 

1 20  34  ■ 


ADRE  S 
TCF 


NOLOKON 
JPFLAG 
LOKONSW 
AURLKON 1 


02992 

02991 

0302 

0303 
3334 
030  5 
0306 


RFF 

RFF 

REF 

REF 

RFF 

REF 


LA  ST 
L AST 
LAST 


27  7 
276 


23  ,2026 
23,  2027 
23  ,2030 
23,  20?  1 

. 

23,2033 
23,  2034 

23.2035 

23.2036 


0 5527  1 
00C12  1 
0 5515  0 
C 02 ( 4 1 

0 551  5 0 
00126  1 

C CCC  3 1 
3 1112  1 

1 4640  0 


NCLOKCN  TC 


DOW  NFL  AG 

LOKONSW 

JPFLAG 

CDESFLAG 

UPFLAG 

NORRMON 

DESRET 
BANK JUMP 


03  067 
03068 
33069 


i • 

• , 

43  ,2  326 
276: 


BANK  43 
SETLIi:  EXTVFRBS 
BANK 

COUNT*  SS/EXTV6 


0307  * REF 

0 30P  *RFF 
03  ro  * REF 


277  43,2326 

• . 

276  4 3,  2 


i 55  15  0 L RON 
C0254  1 

D 2117  1 


UP  FLAG 
LRINH 
30PI  N 


' 34?  RFF 
3343  REF 
034305  RFF 


LAST 

LAST 

LAST 


277  43,2331 

277  43,  2 332 

277  43,2333 


C 5527  1 LROFF  TC  DOWNFLAG 

C0254  1 ADRES  LRINH 

0 2117  1 TC  SOPIN 


0 3431  *P  F F 
33432  RFF 
0344  REF 


LAST  277  43,2334 

4 3 , 2 335 
LAST  277  43,2336 


0 5515  0 TERCFF 
00023  0 

1 2117  0 


TC  JPFLAG 

ADRES  NO TE RF  LG 
TCF  GOP  IN 


LAST  268 


EBANK=  OGC 


9:12  CCT.  21,1970  Z ERL  A I D 
USER'S  PAGE  NC.  10 


PAGE  277 


.00  1 

E5  S4 


IF  NT  LOCK-ON,  SET  BITI5  0F  3 A DM3DE  S TO 
INDICATE  THAT  CCNT  INUOUS  DESIGNATION  IS 
WANTED  (TO  BE  TERMINATED  BY  V44.) 

SET  NO  RR  ANGLE  MONITOR  FLAG. 

(DISABLE  R 2 5 RR  G I MB  A L MONITOR  IN  T4RUPT 


PERMIT  INCORPORATION  CF  LR  DATA  V57 


INHIBIT  INCORPORATION  OF  LR  DATA  V58 


TURN  OFF  TFRRAIN  MODEL  V68 


GAP: 


ASS  EMftL  £ REVISION  56  OF  AGC  PROGRAM  ZFOLINA  8Y  ZOROASTER 
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L 

P0346 
R)U7 
1 C 34 8 
RD350 
R0351 
1 0352 
HD  353 
R ' 354 
RO  355 
RD  156 
1 357 

R035R 
R0T59 
< 0360 
RD  35  1 
RO  362 


EXTFNDFO  VE«PS 


USER'S  PAGE  NC. 


1 1 


E?  S 4 


TMUFINFK  VERB  42  OESCRIPTICN 

FINE  ALIGN  IMU 

1.  RECUIRE  EXT  V EH 6 CISPLAY  AVAILABLE  AND  SET  BUSY  FLAG  OR  TURN  ON  3PER  ERROR  AND  GO  TO  PINBRNCH. 

2.  OISPLAY  : LA  SH I NG  V25  ,N93.  ...  LOAD  OELTA  GY  RC  ANGLES.... 

PESPCNS  ES 

A.  TERMINATE 

1.  TFIEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  PROCEED  OR  ENTER 

1.  Rfc-OI  SFLAY  VERB  42 

7.  FXECUTE  IMIJFINF  (IHUFIVE  ALIGN  MODE  SWITCHING). 

3.  EXECUTE  I MUST  ALL  (ALLOW  FOR  DATA  TRANSFER) 

A.  FAMED 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  GCOC 

1.  LXECLTE  IMUPULSE  (TORQUE  I RIGS). 

2.  EX  E CUT  F IMUSTALL  AND  RELEASE  F XT  VERB  OISPLAY  SYSTFM. 


0 364 
0365 
0 366 
D 3 6 7 

(368 

0 360 
D37D 


REF 

REF 

REF 

REF 

REF 

REF 


27  e 
775 
275 


43,2337 

4 3,  2360 
43,7341 
4 3,  2342 

43.2343 

43.2344 


0 2404  0 
C 2076  1 
3 2366  0 
C 4616  1 
20334  1 
5503  1 


I MUFI NEK  TC 


43,  2365  0 2366  1 


CKMODCAC 
TE  STXAf  T 
VNLODGYR 
BANKCALL 
GOXDSPF 
T ERMEXTV 
♦ 1 


PROCEED  WITHOUT  A LOAC 


0371 

0372 
03  73 


REF 
R EF 
REF 


LAST 

LAST 


43  ,2346 
43,2347 
43,  235C 


3 2367  1 
C 4616  1 
20621  0 


IMUFINEV 
BANKCALL 
E XD  SPRF T 


RE-DISPLAY  OUR  OWN  VERB 


LAST  778 


CALL  MODE  SWITCH  PROG 


0376 
D 377 
.'3  78 


REF 

REF 

REF 


3 LAST  274 


43  ,2353  0 4616  1 

43,?R54  17715  1 

43,  2355  C 5503  1 


BANKCALL 
IMUSTALL 
ENDE  XTVR 


HIBFRNA  TI  ON 


0379 

D33D 

0381 


REF 

REF 

REF 


35  LAST  278 


43,2356  3 2365  0 

4 3,  2357  C 4616  1 
43,2360  17270  1 


L GY  ROB  IN 
BANKCALL 
I M UP  UL  SF 


PINBALL  LEFT  COMMANDS  IN  OGC  REG  I ST5RS 


G 38  2 
D 38  3 

0384 

0385 


REF 

RFF 

PEF 

REF 


LA  ST 
I AST 
LAST 
LAST 


278 

278 


43,2361  0 4616  1 

4 3,  2362  177  15  1 

43  ,2363  0 5503  1 

43,2364  C 5503  1 


TC 


BANKCALL 
I MLSTALL 
ENDEXTVR 
ENDEXTVG 


WAIT  FDR  PULSES  TO  GET  OUT. 


03  86 
0 38  7 
D 388 
RO  389 
RO  390 


43,  2365  C2  737  0 

43,2366  06335  1 

43,  2367  124CO  0 

VERB  50 

AND  OTHER  PLEASE 


LGYROBIN  ECADR 
VNLODGYR  VN 
IMLFINEV  VN 
CESCRIPT  TON 


OGC 

2593 

4200 


GAP  : 


ASSEMBLF  RE  VI  SI  CN  56  OF  AGf.  FR  C GRAM  ZERLINA  PY  ZORCASTER 
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EXT  ENDEC  V EPPS 


USER'S  PAGE  NC. 


1 2 


F5  S 4 


R 0391 
RO  39  2 
R03  93 
3 0395 
RD396 

03  98 

0 399 

7400 
0401 
0432 
0403 
0 404 
R3495 


REF  1 
REF  1 


REF 

RFF 

REF 


OC  SGRCTF  ING  V ERBS 

PLEASE  PERFORM,  PARK,  CALIBRATE,  ETC. 

1.  PRESSING  ENTER  ON  DSKY  INDICATES  REQUESTED  ACTION  HAS  BEEN  PERFORMED,  ANC  THE  PROGRAM  DOES  THE 
SAME  RECALL  t S A CCMPLETEC  LOAC. 

2.  THE  EXECUTION  OF  A VERB  33  (PROCEED  WITHOUT  DATA)  INDICATES  THE  REQUESTED  ACTION  IS  NOT  DESIRED. 


40,2000  SBANK=  PINSUPER 

43,2370  0 4433  1 GCLOADLV  TC  FLASHOFF 


I AST  235 
LAST  27  1 


43,  237  1 

• 

4 3,  2373 
43,  2 374 
43,2375 


4 20  1 0 
0 0006  1 
Cl  CC7  1 
0 4635  0 
62021  0 


VEPR  <*7  - AGS  INITIALIZATION  - R47. 


CAF  PINSUPBT 

EXTEND 

WRITE  SUPEROAK 
TC  POSTJUMP 

CADR  L0ADLV1 


FOR  LOAD  L VI  AND  SHCWSUN  CADR'S. 


SEE  LCG  SECTION  AGS  IMf  I AL  I Z AT  ION  FOR  OTHER  PERTINENT  REMARKS. 


0 40  7 
04  08 

0409 
D4n 
0411 
04  11 
3412 


REF 
REF 
REF 
R FF 
REF 
REF 
RFF 


LAST  278 


LAST  276 


43,2376 
43,  2377 
43  ,2400 
F 6,  1771 

43 . 2401 

43.2402 
43,  2 4C  3 


C 2076 
2 4740 
0 5105 

0 200  5 i 
64066 
C 5155 


TC  T ESTX  ACT 

CAF  PRI04 
TC  FINDVAC 

F BA  NK=  AGS  K 
2C  ADR  AGSINIT 


NO  OTHER  EXTVERB. 


TC 


ENDOF  JCB 


0413 

0414 

0415 

0416 


27  4 
274 


4 1 t24(  4 

» , • 

43,2407 


CKMODCAD  CA  MODECADR 

EXTEND 
8 7 F TC  Q 

TC  ALM/END 


15 


SOMEBODY  IS  USING  MODECADR  SO  EXIT 


GAP  : ASSEMBLE  REVISION  St>  OF  AGC  PROGRAM  ZFRLINA  8Y  ZOROASTER 
L EXTCNOET  VERBS 


9:12  OCT.  21,1070  ZEPLAID 
USER'S  PAGE  NC.  13 


.001  PAGE 
E5  S4 


PD417 
R0  41  8 
R04  1 9 
< 042* 
R3421 
ROA22 
i <424 


ALINTIME  VE 0 8 5 5 DESCRIPTION 

REQUIRE  POC  CR  FCC-. 

1.  SET  EXT  VERB  DISPLAY  BUSY  FLAG. 

2.  DISPLAY  FLASHING  V25.N24  (LOAD  DELTA  TIME  FOR  AGC  CLOCK. 

3.  REQUIRE  EXECLTION  OF  VERB  23. 

4.  ACC  DELTA  TIME,  RECEIVED  FROM  INPUT  REGISTER,  TO  THE  COMPUTER  TIME. 

5.  RELEASE  EXT  VERB  DISPLAY  SYSTEM 


4,28 
DA  26 
*•27 


REF  5 LAST  279 
REF  10  LAST  2 79 
REF  1 


A3,2AlO  0 2076  1 
A3  ,?A 1 1 0 4635  0 

A3, 2 A 1 2 fc ACC?  1 


ALIN  TIME 


TC 

TC 

C AO  R 


TE  STXAC  T 
POSTJUMP 
P33 


NO  ROOM  IN  A3 


0A2  8 

0A29  REF 
3 A33 

0A31  PEF 


2 LAST 

1 


A2 , 2002 

- . 

A 2,  2CC  2 


8ANK  A 2 
SETLOC  S BAND 
BANK 

COUNT*  ♦ S/R  3 3 


-4.3?  REF 
OA  3 3 REF 
0A3A  RFF 
3 435  PEF 
( A36  RFF 
0 A 3 7 RFF 
3A3B  RFF 
0A39  RFF 
04 AC  REF 
OA  A 1 

0AA2  FCF 
3 A ? REF 


37  LAST  278 
A LAST  278 
9 LAST  276 

10  I AST  280 
1 

36  LAST  269 

1 

11  LAST  280 


A2  ,200A 
A2,  20C 5 
A 2,  201-6 
A2  ,2007 
A?,  201C 
A2 ,20  11 
A? ,2012 
A 2,  20  13 
A2  , 20  1 A 
A2, 2015 


3 5C21  1 

0 5 1 A6  1 
3 20  3 A 1 
C A616  1 

2033A  1 
C 55C3  1 
C 55C3  1 
A 2033  1 
fc  015A  1 
0 0006  1 

1 2016  0 
C 5503  1 


CAF  PR  1 07 

TC  PRIOCHNG 

CAF  VNLOODT 

TC  BANKCALL 

CADR  GOXDSPF 

TC  ENDEXT 

TC  E NOE  XT 

CS  DEC  23 

AD  MP  AC 

E XTENO 

BZF  JP OAT  IME 

TC  ENDEXT 


TERM  INATE 
PROCEED 

DATA  IN  OR  RF  SEQUE  NCE  < UMI  KFLY) 
RECALL  LEFT  V FR B IN  MPAC 

GO  AHfcAO  WITH  UPDATE  ONLY  IF  RECALL 
WITH  V 23  (DATA  IN  > . 


r 1 A A ** 
0AA5 
?AA6 
r 4 A 7 
AAR 
04  A 9 
0A50 
3451 


RFF 

REF 

RFF 

D r f 

REF 

REF 

RFF 


25 

37 
21 

38 
2 

39 


LAST  26  A 
LAST  280 
LAST  254 
LAST  261 
LAST  280 
LAST  ID  3 
LAST  280 


42.2016 

42.2017 
42,  2020 
4 2 , 2 0 2 1 
42,2022 
4 2,  20  2 3 
42  ,2^24 
42,  2025 


0 COCA  0 
3 4755  1 
54  156  1 
5 A 001  1 
c.  2 C25  1 
?2  155  1 
53*051  0 
2 C 155  1 


UPOATIME  INHINT 

CAF  ZERO 

TS  MPAC  +2 

TS  L 

DXCH  TIME2 

DXCH  MPAC 

OX  CH  DSPTEM2  +1 

DAS  MPAC 


DELTA  TIME  IS  IN  DSPTEM1,  +1. 

NEEDED  F CR  TP  AGREE 

ZERO  T 1 + 2 WHILE  ALIGNING. 


INCREMENT 


0452 
<453 
3 A5A 
0455 
' A 56 


REF  1 
REF  AO 
REF  10 


REF  12 


LAST 
L AST 

LAST  280 


A2 , 2 1 1 26 
A? ,2027 
42,  20  30 
A2  ,2031 
A2 ,2032 


20  C2 5 1 
0 0003  1 
C 5 50  3 1 


280 

280 


TC 

DX  CH 
OAS 
PEL  IN T 
UPDT  MEND  TC 


TP  AG RE  E 
MPAC 
TI  ME 2 

ENCEXT 


FORCE  SIGN  AGREEMENT. 
NEW  CLOCK. 


0457 


42,  20  33  COO 27 


DEC  2 3 DEC 


23 


V 23 


0458 


42  ,2034  06230  0 VNLCDOT  VN 


2 5 24 


V25N24  FOR  LOAD  DELTA  TIME 


3 A3  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


EXTENDED  VERBS 


PO'4  5 9 


SET  UP  FOR  RAC  £R  SAMPLING. 


0460 

1461 

0462 


REF 


42  ,2035 

3 LAST  277  4 3,  2000 

43  ,2413 


BANK  42 
SETLOC  E X T VERB  S 
BANK 


'463  REF 


E B ANK=  RSTACK 


■464  REF 


COUNT*  Si  /R 0477 


465 
) 4 66 
0467 
0 468 


0470 
0 471 
04  72 


REF  4 
REF  1 
REF  70 
REF  16 
REF  8 
REF  1 
REF  1 


LAST  2 77 
LAST  279 
LAST  277 


43,2413  0 2646  1 

43,  24  14  2 C C 7 7 1 

43  ,2415  7 4743  l 

43 ,2416  10  000  0 

43,  24  17  0 2 116  C 

43  ,2420  0 5515  0 

43,2421  CO 1 1 7 C 
43,  2422  1 2427  C 


R7  7 


TC  RDRUSECK 

CA  F LAGWRD3 

MASK  R04FLB  IT 

CCS  A 

TC  ALM/END 

TC  UP  FLAG 

ADRES  R77FLAG 

TC  F R04Z 


' 473 

0474 

0475 


RFF 

REF 

REF 

REF 


LAST 
L AST 
l AST 
LA  ST 


281 
280 
28  1 
236 


43  ,2423 
43,  2424 
43  ,2425 


0 2646  1 R04 

C 2C76  1 
0 5515  0 
0006  3 1 


TC  RDRUSECK 

TC  TESTXACT 

T C UP  EL  A G 

ADRES  R04FLAG 


0477  RFF 

0478  PFF 

3479  REF 

0480  RFF 

0481  RFF 
1482  REF 
0483  REF 


LAST 


LAST 


227 


280 


43,  2427 
43  ,2430 
4 3,  24  3 1 
4 3,2  432 

» . t 

43,  2434 
43,2435 


2 4 74  1 
54  003 

2 2644 
5 5 •770 

3 4755 
ec  ' 767 
55*566 


1 R04Z 
0 
0 

1 

1 

1 

1 


CAF  FBANK4 

TS  FRANK 

CAF  1SEC+1 

TS  RSAMPDT 

CAE  ZERO 

TS  RTSTLOC 

TS  RFAILCNT 


D484 
< 485 
•486 
1497 
04  88 
->48Q 
■'490 
0491 

0 49  2 


REF  1 

RFF  24  LAST  27  6 
REF  2K  LAST  28  1 
REF  2 LAST  281 

RFF  4 LAST  226 
PLF  26  LAST  291 


4 3,  24  37 

43.2440 

43. 2441 

43.2442 
43,3443 
43,  2444 
43  ,2445 
43 , 2446 


C CCC4 
< 2645 
7 0110 
54  110 
3 2645 
C 0006 
C 2 C 3 3 
26  110 
C 0003 


c 

0 

0 

0 

1 

1 

0 

0 


INHINT 

CS  1RP0SCAL 

MASK  RADMODES 

TS  RADMCDES 

CAF  LRPOSCAL 

EXT  END 

RAND  CHAN33 

ADS  RADMODES 

RELINT 


04  93 
0494 
1495 
04  96 


REF  5 
PFF  2 
REF  71 
REF  1 


LAST  28  1 
LAST  28  1 
LAST  281 


43,  2447 
43,2450 
43,  245  1 
43,2452 


4 ocn  0 
7 4743  1 
1C  CCC  0 
1 260  1 0 


CS  F LAG  WRD  3 

MASK  R34FLBIT 

CCS  A 

TCF  R04K 


'>497 

1498 

0499 


RFF  11  1 A ST 

REF  4 L AST 
RFF  14  LAST 


267  43,2453 

276  4 3,  24  54 

276  43  ,2455 


3 4753  1 
55*051  C 
3 4751  0 RO  4 A 


CAF  ONE 

TS  OPTIONX  +-1 

CAF  R I T 3 


9:12  OCT.  21,  1970  Z ER  LA  ID  .001  PAGE  281 


US  ER  * S PAGE  NO . U 


E 5 S 4 


... 


TRY  TU  AVOID  THF  1210. 
IS  R14  RUNNING? 


TRY  TO  AVOID  THF  1210. 


SET  R04FLAG  FIR  ALAPMS 


SAMPLE  ONCE  PER  SECOND 


ZERO  BAD  SAMPLE  COUNTER 


I NI  TI  A L I ZE 

B I T9  L R RANGE  LOW  SCALF  =0 

HITS  IK  POS  1 =0 

0IT3  RR  RANGE  LCW  SCALF  =0 


CHECK  R04FLAG  R04  =1  P77  =0 


< 


INDICATES  RENDEZVOUS  DESIRED 


< 


* 

1 


OPTION  CODE  FOR  VC4N12 


;ap: 

L 

0500 

0501 

053? 

0503 

0 504 

05)5 

050  6 

9 50  7 

0505 

0500 

0510 

0511 

0512 

05  13 

051  A 

0 515 

( 51  6 

0 5 1 7 

0515 

051  9 

05  70 

0521 

052? 

9 52  3 

0524- 

0 5?  5 

0 526 

0527 

9528 

0529 

0530 

>531 

0532 

0533 

0534 

0535 

9 536 

0537 

0537 

0538 

0539 

0 54(' 


ASSEMBLE  REVISION 


OF  AGC  PROGRAM  ZERL  INA  BY  Z 03  OA  STEF 


9:  12  QC  T.  21  *1970  ZFRLAID  .001  PAGF  282 


F XTFNDEO  VE° P S 


USER  *S  PAGE  NO. 


REF 

RFF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 


5 LAST  28  1 


LA  ST 
L AST 
LAST 


281 

276 

279 


43,  2456 
43  ,2457 

42,  246C 

43.2461 

43.2462 
4 J , 2 4 6 3 
43  ,2464 
43  » ?465 

43,  2466 
43  ,2467 


55*050  1 
3 2641  0 
C 4616  1 
20353  0 
1 2607  0 
1 2470  1 
1 2457  l 
Q 4751  C 
C 5475  1 
C 5155  0 


CAF 

TC 

C ADR 

TCF 

TCF 

TCF 

CAF 

TC 

TC 


OPTI  ONX 
VD4N  12X 
BANKCALL 
30MARKFR 
R94EN0 
♦ 5 

R04A  +2 
BIT3 
3LANKE  T 
EN  00  F JOB 


LAST  282 


s AV  E DES  IREP  OPT  ION 


RFF 
RFF 
RFF 
R EF 
REF 


LAST 
L AST 
I AST 


27b 
282 
28  1 


43,  2476 


3 6254  1 
7 1764  1 
10  009  0 
1 2603  1 
5 c ' 76  6 0 


CAF 
MA  SK 
CCS 
TCF 


RR  OR  IR  DESIRED 


REF 

RFF 

REF 


22  LAST  276 
5 LAST  2p  1 


43,2477 
43,  250C 
4 3,2  501 
43  ,2502 
43,  2503 


3 4752  0 
C 0006  1 
02  033  0 
0 0006  1 
1 2514  1 


CAF  B I T 2 

EXTEND 

RAND  CHAN  33 

EXT  END 

BZF  R04C 


IS  RR  AUTO  MODE  DISCRETE  PRESENT 


REF 
R EF 
REF 
RFF 
RFF 
REF 
REF 


I A ST  103 


I AST 
I AST 
LAST 


28  2 
259 
282 


43  ,2504 
43,2505 
43,  2 5C  6 
43,2  507 
43,  2510 
43,2511 
43  ,2512 
43,  251  3 


3 2643  1 
5 5 ' 044  1 
3 2642  0 

0 4616  1 
20345  1 

1 2607  0 
1 2477  0 
1 25C4  0 


CAF 

TS 

CAF 

TC 

CADR 

TCF 

TCF 

TCF 


20  1R  G 4 

DSPTEMl 

V5CN25X 

PANKCALL 

G0MARK4 

R 04END 

R0  4B 


REQUEST  SELECTION  CF  RR  AUTO  RODE 


RFF 

REF 


LAST 

LAST 

LAST 


257 

227 


. 

(3 • 515 
43,  25  16 


3 4736  1 
C CCC6  1 
C 5 012  1 


CAF  RIT14 
EXTEND 

WOR  CHAN  12 


ENABLE  RR  AUTO  TRACKER 


FOR  SEQUENT  1AL  STORAGE 


REF 

REF 

RFF 

REF 


43.2521 
• 

43. 2522 
43  ,2523 
43 ,2524 


02050  0 
32104  0 
C 0003  1 


TC  WAI  TLI  ST 

EBANK=  RSTACK 
2CADR  RAD  SAMP 


CHECK  R04FLAG 


AP  : 


iSSE  MBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  RY  ZOROASTER 


9:  12  O:  T.  21,1970  ZERLAI  D 


001  PAGE  283 


EXTENDED  VERBS 


USER  'S  PAGE  MO.  16 


S4 


054 1 REF  73  LAST  28  2 

0542  RFF  10  LAST  277 


43, 2527  10  OCO  0 

43,2530  1 2117  0 


CC  S A 

TCF  GOP  I N R 77 


3543  REF 
0544  RFF 
6545  RFF 
3546  RFF 


LAST  282  43,  2531 

LAST  28?  43,2532 

LAST  283  43,2533 

43,  2534 


1 

1 

0 

0 


CAF  SI  X RR  OR  LR 

MASK  RTSTDEX 

CCS  A 

TCF  R04LR  LR 


0547  REF 

0548  RFF 
054-3  RFF 
0550  REF 
3551 

0552  REF 


1 

40  LAST 
5 LAST 
3 LA  ST 


43,2535  3 2635  0 

282  42,2536  C 4616  1 

267  43,  2537  20334  1 

28?  43,2  540  1 ?o07  0 

43,  254  1 1 2543  0 

43,2542  1 2535  1 


R04RR 


CAF  V16N72 

TC  BANKCALL 

CADR  30MARKF 

TCF  R04END 

IFF  +2 

TCF  R04RR 


DISPLAY  RR  CDU  ANGLES  (1/SEC) 

R1  + XXX.  XX  DEG  TRUNNION 

R2  + XXX. XX  DFG  SHAFT 

V 34  R 3 BLANK 

V33 

V32 


0653 
3 554 
0555 
3 55  6 
0557 
0568 


RFF  1 

RFF  4l  I AST  283 

REF  6 l A ST  283 

REF  4 I AST  283 

REF  1 

RFF  2 LAST  283 


43.2543  3 2636  0 

43. 2544  0 46 1 6 1 

43  ,2545  20334  1 

43,  2546  1 2607  0 

43,  2547  1 2565  1 

43,2550  1 2535  1 


CAF  V16N79 

TC  BANKCALL 

CADR  G3MARKF 

TCF  R04ENO 

TCF  R04Y 

TCF  R04RR 


DISPLAY  RR  RANGE  AND  RANGE  RATE  (1/SE3) 
R1  + - XXX  .XX  NM  RANGE 

R 2 +-  XXXXX.  FPS  RANGE  RATE 

V 34  R 3 BLANK 

V33 

V 32 


3569  RFF 
0560  REF 
G 56 1 RFF 

0562  REF 

0563 

3564  REF 


1 

4?  LAST  283 
7 LAST  283 
5 LAST  283 

2 LAST  283 


43,  255  1 2 2637  1 

43  ,2652  (1  46  16  1 

43,2553  20334  1 

43,  2554  1 2607  0 

43  ,2555  1 2557  0 

43,  2556  1 2551  C 


RC4LR 


CAF  V16N66  DISPLAY  LR  RANGE  ANO  POSITION  (1/SEC) 

TC  BANKCALL  R1  ♦-  XXXXX.  FT  LR  RANGE 

CADR  GOMARKF  R2  + OOCOX.  POS.  NO. 

TCF  R04END  V34  R3  BLANK 

TCF  +2  V 3 3 

TCF  R04LR  V 32 


0566 
0 56h 
3567 
0568 
0 569 
0570 


REF  1 

RFF  43  LAST  283 

REF  8 LAST  283 

REF  6 LAST  293 

REF  2 LAST  283 

RFF  3 LAST  2b3 


43,2557  3 2640  1 

4 3,2  560  0 4616  1 

43,  256  1 20334  1 

43  ,2562  1 26C 7 0 

4 2,2563  1 2 5 6 5 1 

43,  2564  1 25  51  C 


CAF 

TC 

CADR 

TCF 

TCF 

TCF 


V 16N67 

BANKCALL 

GOMARKF 

R04END 

R04Y 

R 04 LR 


DJ  SPLAY  LR  V=  LX  , VELY  , 
R 1 +-  XXXXX. 

R2  4-  XXXXX. 
V 34  R 3 jfcj=  XXXXX. 

V 33 
V32 


VFLZ  (1/SEC) 
FPS  LR  V(X) 

FPS  LP  V ( Y ) 

FPS  LR  VIZ) 


05  73 

r 574 
3 576 

0576 

0677 

0578 

0579 
3 582 
05  83 
0 584 


REF 

RFF 

RFF 

REF 

REF 

REF 

REF 

REF 

REF 

KEF 


PEF 

RFF 


27 
2 

44 

1 

2 

3 

28 
2 
2 

12 

7 


L AST 
LAST 
LA  ST 
LAST 
LAST 
LAST 
LAST 


28  1 
283 

281 
29  3 
283 
2p  1 
28  2 
29  1 
28? 


4 3,  2 566 
43,2567 
43,2  570 
43,  257  1 
43  ,257? 
43,2573 
4 3,  2 57  4 
43  ,2575 
43,  2576 
43,2577 
43,2600 


0 46  16  1 
01735  1 

2 2644  0 
55*77'  1 

? 4755  1 
55  * 767  1 

1 1*  766  0 
4 4753  0 
6 4752  0 
1 2471  0 


R04Y 


CAF  7FR0 

TS  RSAMPDT 

TC  BANKC  ALL 

CADR  2SECDELY 

CAF  1SEC+1 

TS  RSAMPDT 

CAF  ZERO 

TS  RTSTLOC 

CCS  RTSTRASE 

CS  ONE 

AD  TWO 

TCF  R0  4X  -1 


TO  TERMINATE  SAMPLING 


WAIT  FOR  I AST  RAOARUPT 
SAMPLE  ONCE  PER  S ECCNC 

FOR  STORING  R ESUL  TS 

CHECK  WHICH  RADAR  HAO  BEEN  SAMPLED 
WAS  LR 
WA  S RR 


3595  REF 


4 3,  260  1 3 4766  1 R04K 


CAF  2 50M  S+ 1 


SAMPLE  4 LR  COMPONENTS  PER  SECOND. 


GAP: 


ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZFKLINA  BY  ZOROASTER 


L EXTENOEO  VERBS 


' 586  REF 


I A ST  283 


'♦3,2602  55 ' 770  1 


TS  RSAMPDT 


05  87 
0 5 88 
3 589 
05  90 
0591 
3592 
0593 
' 596 
0595 


REF  8 LAST 
REF  3 LAST 
PFF  8 LAST 
REF  2 LAST 
REF  29  LAST 
REF  5 LAST 
REF  20  LAST 
REF  55  LAST 
REF  5 LAST 


28  3 63,  260  3 3 6752  0 

283  63,2606  55*766  0 
283  A3,  2605  3 62 56  I 

28 2 63,2606  I 2520  n 

283  63,2607  3 6755  1 

286  63,  26  10  55*770  1 
266  63,261  l 3 6766  I 

283  63,2612  C 6616  1 

276  63,  26  13  Ol7  3fe  1 


R CAL  CAF  TWO 

TS  R T ST  BAS  E 

CAF  SIX 

TCF  R 06C  +6 

R06  END  CAF  ZERO 

TS  RSAMPDT 

CAF  B I T 8 

TC  BANKCALL 

CAD8  DE  LA  Y JOB 


0596 
3 5 97 
0598 
0 599 


0602 


REF  32 

REF  19 

REF  1 8 
RFF  3 

REF  13 


LAST  282 

I AST  282 

LAST  277 
LAST  281 

280 


63,  2615 
63,2616 
63  ,2617 

, 

63  ,2621 


63,  2622 


C 0006  0 
6 6736  C 
0 C 006  1 
03  01?  1 

0 5527  1 
00063  1 


C 55C3  1 


LAST 


INHINT 

CS  BIT16 
EXTEND 

WAND  CHAN1? 


TC  DOWNFLAG 

ADRES  RD6FLAG 


TC  ENDEXT 


0603  REF 
0606  RFF 
3635  PEF 

0606  REF 

0607  REF 
0600  REF 
0609  REF 


2 

6 

30 

6 

2° 

66 

6 


L AST 
LAST 
LA  ST 
L AST 
LAST 


281 
28  6 
28  A 
267 
28  6 
286 


63,2623  3 6761  1 R77F.ND  CAF 


63 ,2  626  56  OOl  o ' TS 

63. 2625  3 6755  1 CAF 

63.2626  55 '770  1 TS 

63.2627  2 6766  0 CAF 

6-3,  26  30  0 66  16  1 TC 

63  ,2631  01736  1 CAOR 


EBANK6 
FRANK 
ZERO 
R SAMP D T 
BIT6 

3ANKCA  LL 
DEL  AY  JOB 


0612 


REF  19  LAST  286 
RFF  2 LAST  291 
RfcF  11  LAST  2 83 


62, 2632  C 5527  1 
63,263^  00117  G 

63,2636  1 211  7 0 


TC  DOWNFLAG 

AORES  R77FLAG 
TCF  GOPIN 


3 6 13 
0616 
3615 
0616 
0617 
36  18 
061  g 
0620 

3621  RFF 
0622 


43,  26  35  06  1 10  0 

63  ,2636  06116  0 

63,2627  C 6 l C2  0 
63,  2660  06103  1 

63  ,2.661  01016  0 

63,  2662  16631  1 

63,2  663  00201  1 

63  ,2664  00145  1 

4 7 66 

43  ,2  645  C0644  0 


V 1 6N7  ? 

V 16N78 
VI  6N66 

V 1 fcN  6 7 
V04N12X 
V50N25X 
20  1R  0 4 
lSEC+1 
250MS+  1 


VN  1672 

VN  1678 

VN  1666 

VN  1667 

VN  4 12 

VN  5025 

OCT  OC  201 

DEC  10  1 

EQUALS  CALLCODE 


LRPOSCAL  OCT 


444 


9:12  OCT.  21,  1970  ZERLAID  .00 1 PAGE  284 
USER'S  PAGE  NC.  17  F4  S4 


FOR  LR  BASE  = 2,  MAX  = 3 


ZERO  RSAMPDT 

TC  TERMI  NAT  E S AMPL  ING 

WAIT  1.28  SECONDS  FCR  PCSSI  RLE 

PENCING  RUPT . 


CISABLE  RR  AJTO  TRACKER 


SIGNAL  END  TIF  R04. 

TO  TERMINATE  SAMPLING 

WAIT  320  MS  FOR  POSSIBLE 
PE  NO  ING  RUPT. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL.  IN  A BY  ZOROASTER 


L FXTENDFD  VERBS 


3627 

REF 

10 

L AST 

271 

63, 2666 

3 0 10  1 

1 

RDRUSEC  K 

CA 

EL  AGWRD5 

r6.?R 

REF 

? 

LAST 

227 

63  ,2667 

7 6761 

0 

MASK 

R 77FLB  I T 

0629 

REF 

75 

LAST 

283 

63,2650 

1C  CCQ 

0 

CCS 

A 

0630 

REF 

17 

LAST 

2fi  1 

63,  2^5  1 

0 2 116 

0 

TC 

ALM/E  ND 

0631 

PFF 

6 

LAST 

27  1 

63,2652 

6 0103 

1 

CS 

FLAGWR07 

363? 

RFF 

2 

1 AST 

235 

63,  2653 

7 6766 

1 

MASK 

V37FLBIT 

0633 

REF 

76 

LAST 

285 

63,2656 

10  000 

0 

CCS 

A 

0636 

REF 

1 

63,2655 

1 2662 

0 

TCF 

CHECK  RR 

3635 

REF 

6 

L AST 

27  1 

63,  2656 

3 010  7 

1 

CA 

FLGWRD1  1 

0636 

RFF 

6 

LAST 

271 

63  ,2657 

7 6735 

0 

MASK 

LRBYB IT 

3637 

63,2660 

C 0006 

l 

EXTEND 

063b 

REF 

1 8 

L AST 

2ft  5 

6-3,  2661 

1 2116 

1 

B 7 F 

ALM/END 

0639 

RFF 

« 

LAST 

238 

63  ,2662 

6 0075 

1 

CHECK  RR 

CS 

FL  AGWRD1 

3 66  3 

REF 

1 

62,  2663 

7 6767 

0 

MASK 

TRACKBIT 

064  1 

REF 

77 

LAST 

28  5 

63,2666 

1C  OOT) 

0 

CCS 

A 

366?. 

REF 

?6 

LAST 

269 

63  ,2665 

C 0002 

0 

TC 

0 

3663 

REF 

19 

L AST 

285 

63,  2666 

C 2116 

0 

TC 

ALM/END 

0653 

REF 

3 

LAST 

277  TO 

28 C : 

53  267* 

COUNT* 

**/E  XTVB 

3655 

REF 

J 

LA  ST 

2ft  1 

63,2667 

C 2C76 

1 

VB66 

TC 

TESTX  ACT 

0656 

REF 

2 

LAST 

2 79 

6-1,  ?670 

- 6 1 60 

0 

CAF 

PRI06 

0657 

REF 

5 

LAST 

27  9 

63,2671 

C 5105 

0 

TC 

F INDVAC 

3658 

REF 

3 

LAST 

120 

E 6,  1571 

F B A N K = 

A L PH  AS  B 

065  9 

RFF 

1 

63,2672 

03616 

1 

2CADR 

SBANOAN  T 

0659 

REF 

1 

63  ,2673 

66106 

0 

3660 

REF 

9 

L AST 

282 

62,  2676 

C 5 155 

0 

TC 

FNDCFJCB 

9:12  CCT.  21  ,1970  ZEPLAIC  .001  PAGE  285 


USER  ‘S  PAGE  NO.  18  F 6 S6 

IS  R77  RUNNING? 


YES. 

IS  SERVICER  RUNNING  AND  HENCE  POSSIBLY 
R12  US  ING  THE  LR? 

NO 

YES,  IS  R12  ON? 

BI  T 15 

YFS 

IS  THE  TRACK  FLAG  SET  AND  HENCE  POSSIBLY 
P20  US  ING  T HE  RR? 

NOT  ALLOWED  DURING  P20 
P22  OR  P25  , ( R65  ) 


IF  DISPLAY  SYS.  NOT  BUSY,  MAKE  IT  BUSY. 


CALC.  ,01  SPLAY  S-BAND  ANTENNA  ANGLES. 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERl  IMA 

L EXTENDED  VFRRS 


9:12  CCT.  21  .1970  ZERLAIT  .001  PAGE  2 8o 
USER  •$  PAGE  NO.  19  E 4 S4 


PD661 
R 0662 
Rl'663 
R066A 
3 •:  665 
R 0666 
R 0667 


IMUATTC<  VED  8 A"  DESCRIPTION 

L C AC  I MU  ATT  ITU  CE  ERRCR  METERS 

1.  REQUIRE  PCC  CR  FRCSH  START. 

2.  REQUIRE  COARSE  ALIGN  ENABLE  AMD  ZERO  ICDU  PITS  OFF. 

3.  REQUIRE  THAT  NEEDLES  BE  OFF. 

A.  RF  DUE  ST  L FAO  IF  N?2  (VALES  Tn  Rf  DISPLAYED). 

5.  CN  PROCEED  OR  ENTER  RE-DISPLAY  V A3  AND  SEND  PULSES. 


066B 

D66R 

0670 

r;  6 7 1 

06  72 
0673 


RFF  1 

REF  3 LAST 


A3, 2675  C 2121  1 IMUATTCK  TC 


REF 

REF 

REF 


LAST 

LAST 

LAST 


2fl  5 
285 


A3, 2676 
A?  ,2677 
A3.27C0 
4 3,  1 

43.2  7C2 


2 47(3  1 
0 0006  1 
C 2 C 1 2 0 
10  000  0 
1 2116  1 


C HK  POOH 
RI  TSAf.5 


CAF 

FXTEND 
RAND  CHAM  2 

CC  S A 
TCF  ALM/END 


LOAD  IMU  ATT.  EPROR  METERS 


NOT  ALLOWED  IF  IMU  COARSE  OR  IMU  ZERO  ON 


D 6 74 
667*5 
0676 
D677 
0678 
• 79 
068f 


2 LAST  2R6 


RTF  21  LAST 


286 

28  5 


A3,  2703 
A3 , 2 704 
A3 ,2  705 
■ 

A3 ,2707 
A3 ,2710 
A 3,  5711 


3 A355  0 
0 0006  1 

06  031  0 

7 A355  1 
C 0006  1 
1 2712  0 
1 2116  1 


CAF  BI  T 1 3 -1  A 

EXTEND 

RX  OR  CHAN31 

MASK  B I T 1 3- 1 A 

EXTEND 

37  F +2 

TC  F A L M /F.  NO 


A3, 2712  C 2076  1 


TC 


TFSTXACT 


368  2 
'1683 
0684 
D6R5 
0686 

0687 

0688 
0688 
D690 
06  91 
0692 
3693 
069A 

0695 

0696 
0696 
3697 


RFF 

RFF 

RFF 

RFF 

PEF 

REF 

RFF 

RFF 

REF 

REF 

REF 

RCF 

RFF 

REF 

REF 


LAST 

LAST 

LAST 

LA  ST 
L AST 
LAST 
I A ST 


236 

27  8 


286 
28A 
282 
20  2 


A3,  2713 
43,2714 
A3, 2715 
A 3,  2716 
A3  ,2717 
A3, 2720 
43, 2721 
43  ,2722 
43,  2723 
43,2724 
A3  ,2725 
43,  2726 
43  ,2727 
0 321 
43,  2730 
43,2  731 
42,  2732 


2 2233  1 
f A6  16  l 
20334  1 
C 5 50  3 1 
0 2720  0 
2 2733  1 
0 46 1 6 1 
20621  0 
2 A7A6  0 
0 0006  1 
05  012  1 
2 4752  0 

0 5214  0 

02035  0 
64100  1 

1 55C3  0 


CAF 

TC 

CACR 

CAF 

EXTEND 

WOR 

CAF 

rc 

EBANK= 
2C  ADR 

TCF 


V NLOOCDU 
BANKCALL 
GOX  OS  P F 
FNDE  XT 
+ 1 

V43K 

3 A NKC  ALL 
EX  DS  PR  FT 
BI  T6 

CHAN12 

TWO 

WA ITL I ST 
THET  AD 
A TTC  K2 

ENDEXT 


REDISPLAY  OUP  VERB. 


FNABLE  ERROR  COUNTERS. 

PUT  OUT  COMMANDS  I N . 32  SECONDS. 


C 698 
(609 
D7DD 


■ . 

. 

42,  20  35 


BANK  A 2 

SETLOC  PINBALL3 
BANK 


SOMETHING  IN  R *2. 


COUNT  * **/FXTVR 
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0702 
0 70  3 
D7D4 
0705 
0700 
D7D7 

0708 

0709 

0710 

0711 


PEE 

REF 

REF 

REF 

REF 

REF 

REF 

PFF 

RFF 


LAST 

LAST 

LAST 


LAST 
LA  ST 
L AST 
LA  ST 


2R  5 
28  6 
286 


2R7 
IRC 
28  7 
2R6 


42,  2035  3 4752  c 

42  ,2036  54  002  1 

42,  2027  5 C OCO  1 

42,2040  3 0321  1 

42  ,2041  r 0006  1 
42,  2042  7 2053  1 

42  ,2043  50  002  0 

42,2044  ffc  050  1 
42,  2045  10  002  1 

42  ,2046  1 2036  1 


CAF  TWO 
TS  0 

INDEX  A 
CA  THETAD 

EXT  END 

MP  ATTSCALE 

INDEX  Q 
XCH  CDUXCMD 
CC  S Q 

TCF  ATT  CK  2 +1 


PUT  OUT  COMMANCS. 

CDU  WILL  LIMIT  EXCESS  DATA. 


0712  REF 

0713 

7 14  REF 
3713  REF 


6 LAST  227 
4 LAST  246 


42, 2047  3 7752  0 

42,3050  C OOC 6 l 
42,2051  05  014  1 

42,  2052  1 ‘2?2  1 


CAF  13,14,15 

FXTEND 

WOR  CHAN14 

TCF  TASKOVER  LEAVE  ERROR  COUNTERS  ENABLED. 


> 716 


42  ,2053  03146 


ATTSCALE  DEC 


D 


. 1 


REF  4 LAST  28  1 


BANK  7 
SETLO:  EXTVERBS 


r 719 


43,2733 


RANK 


3720  RFF  4 LAST  285  TO  286: 


303* 


COUNT*  $$/FXTVR 


0721 
R'  722 
R072J 
30724 
R 3 7 25 
R0726 
ir  727 
R372R 
R 0729 
R 0 7 30 
R07  3 1 
3 07  32 
RD733 
R '734 
30735 
R 3 7 3 6 
ft  0 737 
<39738 


43  ,2733  12600  l V43K  VN  4300 

VR2PERF  VER3  82  DESCRIPTION 

RECJEST  GRBIT  PARAMETERS  OISPLAY  ( R 30 ) 

AVERAGE  G IS  CFF  : 

FLASH  DISPLAY  V°4NC6.  R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
TP  BE  UPCATED.  INITIAL  CHOICE  IS  THIS  SHIP  (32=1).  ASTRONAUT 
CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EQ  1. 

SELECTED  STATE  VECTOR  LPUATED  BY  THISPREC  (OTHPREC). 

CALIS  SR30.1  (WHICH  CALLS  T FFCONMLI  + TFFRP/RA)  TD  CALCULATE 
RPER  (PERIGEE  RADILS),  RAPO  ( APCGEE  RADIUS),  HP  ER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAO  OR  LUNAR  LANDING  SITE),  HAPO  (APOGEF 
HEIGHT  AS  A3CVE)  , T PE  R (TIME  TO  PERIGEE),  TFF  (TIME  TO 
INTFRSFCT  TOO  <F  T ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

FLASH  MONITOR  V16N44  (HAPO,  HP  ER , TFF). TFF  IS  -59M59S  IF  IT  WAS 
NOT  C0MPLTA3LF,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 
ASTRONAUT  HAS  OPTION  TO  MONITOR  TPER  RY  KEYING  IN  N 32  E. 
DISPLAY  IS  IN  HM$,  IS  NFGATIVF  (AS  WAS  TFF),  AND  INCREMENTS 
ONCE  PER  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -59M59S. 


R073 9 2 . IF  AVERAGE  G IS  CN: 

3 0740  CALIS  SP30.1  APPPTX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 

ft  3 7 4 ) FOR  THIS  VEHICLE.  V E2  DOE  S NOT  0 1 STURB  STATE  VECTOR.  RESULTS 

CF  SR3  .1  APO,  RPER,  HAPO,  HP  ER  , TPER,  TFF. 

3 0 743  FLASH  MONITOR  VI  6N44  (HAPC,  H PE  <3  » TFF). 

RD744  IF  MO  C E IS  PH,  THFN  CALL  DELRSPL  S3  ASTRONAUT  CAN  MONITOR 

R 0 74 5 RESULTS  BY  N50E.  SPLASH  COMPUTATION  DONE  ONCE  PER  TWO  SECS. 


JAP: 


ASSEMBLE  REVISION  56  CF  AGC  PftCCRAH  ZERLINA  flY  ZOROASTER 
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L EXTENDED  VERBS 


07*6  REF 


LAST  286  93,  2739  0 2C76 


V92PERF 


TE  STXAC  T 


USFR'S  PAGE  NO.  21  E9  S9 


074  7 PFF 
779*  REF 
07*9 

0750  REF 
?751  REF 


I A ST  280 

l asi  280 


93,2735 
*3,  2726 
93,2737 
*3,2  79  <o 
9 3,  2 791 


C 0006  1 
3 2793  n 
C 5176  1 


CAF  PR  107  LESS  THAN  LAMBERT.  R3G,V82 

TO  PRI  OCHNG 

EXTEND 

OCA  VR2C0N 

TC  SUPDXCHZ  V82CALL  IN  DIFF  SUPER0ANK  FROM  V 8 2P  ER  F 


>752 
1 7 8 3 
0751 


REF 

REF 

REF 


2 I AST  120  E9  ,1707 

1 *2,2192 

1 93,  279-3 


EBAN<=  HAPO 

C3292  0 V82CON  2 C ADR  V82  CALL 

9*1C9  1 


1 75 

K-  758 

R0756 
1 757 
R[)  78p 


R 0759 
R0760 
R076 1 


V3R3PERF  VERB  83  DESCRIPTION 

REQUEST  RENDEZVOLS  PARAMETER  DISPLAY  ( R 31 ) 
1 . S ET  EXT  VERB  CISPLAY  BUSY  FLAG. 

2.  SCHEDULE  R31CALL  WI  TH  PRIORITY  5. 

A.  DISPLAY 

Rl  RANGE 
R 2 RANGE  RATE 
R3  THETA 


0762 


PEE  10  LAST  288 


93,2799  C 2076  1 V83PERF  TC 


T FSTX ACT 


D76B 
0 769 

0765 
3 766 

0766 
'767 


REF 
REF 
R EF 
PEE 
REF 
REF 


10  LAST  295 


93,  2795  3 9752  0 

93  ,2796  0 5219  0 

£7 ,1611 

9 3,  2797  C 37  39  1 
93,2750  60107  1 

93,  2751  C 51  55  0 


CAF  RI  T2 

TC  WAITLIST 

EBANK=  TSTRT 
2CA0R  R31CA1L 


TC  ENDCFJCB 


R 0768  VERB  89  DESCRIPTICN  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  (R63) 

3 0769  CAIIED  BY  VFR  B 89  ENTER  DURING  POO.  PRIG  10  USED.  CALCULATES  AND 
RD/7  f IS  DL  AYS  FINAL  FCAI  BALL  ANGLES  TCI  POINT  L M + X OP  +?  AXIS  AT  CSM. 


; .'771  1.  KEY  IN  V 89  E CNLY  IF  IN  PRCG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 

K 0 772  EXIT  R63,  OTHERWISE  CONTINUE. 


R0773  2 . IF  IN  POO,  CG  I MU  STATUS  CFECK  ROUTINE  (R02B0TH).  IF  I MU  ON  AND  ITS 

*"779  ORIFNTATION  KNCWN  TC  LGC , CONTINUE. 

RD  775  3.  FLASH  DISPLAY  V 09  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 

R)776  RE  POINTED  AT  CSM.  INITIAL  CFCICE  IS  PREFERRED  ( +Z  ) AXIS  ( R 2=  1 ) . 

R 0 77 7 ASTRONAUT  CAN  CHANGE  TO  H-  X)  AXIS  I R2  NCT  = 1 ) BY  V 22  E 2 E.  CONTINUE 

R0778  AFTER  KEYING  IN  PROCEED. 


*"779  9.  ROTH  VEHICLE  STATE  VECTORS  UPCATEO  BY  CCNIC  EOS. 

R0780  5 . HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  ANO 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


L EXTENDER  VERBS 


< ' 7 R 1 HALF  MAGNITUDE  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  DOOY  COORDINATES) 

R}  7 9 2 PREPARED  FOP  VECPOINT. 


'<783  6.  G I MB  AL  ANCLES  FROM  VECPCINT  I 3 A NS  FORME  0 INTO  F DA  I PALL  ANGLES  BY 

R 0 7 8 A BALI.  ANGS.  FLASH  DISPLAY  V D6  N 19  AND  AWAIT  RESPONSE. 


R0785 
< 0786 
RD78  T 


RFCYfLE  - RETURN  TO  STEP  A. 

TER  MI  NATE  - EXIT  R63. 

PROCEED  - RESET  3A  XI  SFLG  AND  CALL 


R60LEM  FOR  ATTITUDE  MANEUVER. 


"788  RFF  2 

0789  REF  11 

D790  REF  1 

0791  FEE  6 

079?  REF  3 

0793  PF.F  1 

0793  RFF  1 

3796  REF  11 


LAST 

LAST 


LAST 
I A ST 


LAST 


286 

28 


285 

120 


288 


43,?752  0 2 121  1 VR9PERF  TC  CHKPOOH 


63,2753  C 2076  1 
43,  2754  E 4737  0 
43  ,2755  0 5105  0 

F 4, 1 577 

43,  2756  02024  0 

43  » 1 75  7 54104  0 

63,  2760  C 5155  0 


TC  T ESTX  ACT 

CAF  PRIOlO 
TC  FINOVAC 

E BA  NK=  RONE 
2CADR  V89CALI. 

TC  ENDOFJCB 


R 0795 
> 796 
RD  797 
R 0798 
R0799 


R0800 
1 0801 
RD33? 
R0803 
3 0 806 


V90PERF  VERB  90  DESCRIPTION 

REQUEST  RcMOfcZVFLS  OUT-OF-PLANF  DISPLAY  (R36) 

1.  SET  EXT  VFRB  DISPLAY  BUSY  FLAG. 

?.  SCHEDU LT  R36  CALL  WITH  PRIORITY  10 
A . DI  SPLA  Y 

TIME  OF  EVENT  - HOURS  , MINUTES  , SECONDS 
Y OUT-OF-PLANE  POSITION  - NAUTICAL  MILES 
YOG  T OUT-OF-PLANE  VELOCITY  - FEE  T/SFCCND 
PS  I ANCLE  PTW  LINE  OF  SIGHT  AND  FORWARD 

OIRFCTICN  VECTOR  IN  HORIZONTAL  PLANE  - DEGREES 


DBD5 

0805  1 

0805? 

08053 

08055 

D9D6 

0807 

0808 
D 939 

0809 

0810 
811 

<0812 
RDBl  3 


RFF 

RFF 

PFF 

REF 

REF 

REF 

RFF 

REF 


LAST 
LAST 
L AST 
LAST 
I A ST 


12  LAST  289 


63,  276  1 
63 ,2762 
63,  2763 
6 3,  2766 
63,2765 
6?,  2766 
63  ,2767 
E 7,1661 
6 3,  2770 
63  ,277  1 
6 3,  2772 
VERB  76 
MI  NI  MUM  I MPULSF 
1 . SET  M IN  IMUM 


289 

288 

239 

250 


6 0 10  3 1 

7 6766  1 
C 0CC6  1 
1 2116  1 
C 2076  1 
3 5021  1 

0 5105  0 

C 2t 50  0 
101C7  0 

1 5155  1 

MCCE 

IMPULSE  RHC 


V SOPER  F CS  FLAG  WRD7 

MASK  V37FLBIT 

EXTEND 

37  F A L M/E  NO 

TC  T ESTX  ACT 

CAF  PRI07 

TC  FINDVAC 

EBANK=  TIG 

2CADR  R 3 6 

TCF  ENDOFJCR 

DE SCR  IP  TION 

MODE  FLAG  TO  1. 


0814 
<-  8 15 

08l6 


REF  10  LAST  29  1 
RFF  1 

RFF  12  LAST  284 


43.2773  G 5515  I MINIMP 

43.2774  ^ C 3C3  1 

4 3,  2775  1 21  17  0 


TC  UP  FLAG 

ADRES  PULSEFLf 
TCF  30PTN 


12  OCT.  21,  1970  ZEPLAID  .00  1 PAGE  289 
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AVERAGE  G ON:  1 LL  EAGLE 
R36  ,V90 


SFT  PULSES  = 1 (MIN.  IMPULSE  MODE) 


RETURN  VIA  PI  NBRNCF 
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EXTENDFD  VERBS 


USER  • S PAGE  NC.  23  FA  SA 


ft  81  7 
ft  ib'p 
I ' 819 
R3821 


NOMINIMP  VERB  77  DESCRIPTION 

P AT  F COMMAND  MO  C E 

1.  SET  MI  M MUR  IMPULSE  RHC  MODE  FLAG  TC  3.  (ZERO  INDICATES  NOT  MINIMUM  IMPULSE  MODE.). 

2.  MOVE  CTUX.CO  LY.CDUZ  INTO  CDUXD  tCOUYD  ,CDUZO. 


08  22 
' 823 
■>8235 
' 82A 


11  LAST  252 


A3  ,2775  r 5527  1 NOMINIMP  TC  03  WN  FL  A G 

A3, 2777  00303  1 ADRES  PULSEFLG 

A3,  3000  C 0C04  0 INHI NT 

A3  ,3001  C A67A  C TC  IBNKCALL 

A3»  3CC2  A015A  0 CADR  7ATTFRCR 

A 3,  3003  C 21 1 7 1 TC  30PI  N 


SFT  PULSES  = ^ I NOT  MINIMUM  IMPULSE  MODE 


GA 3 : ASSEMBLE  RF  VI  SION  56  OF  AGC  PROGRAM  ZERLINA  I3Y  7CROAST  ER 


9:12  OCT.  21,  1970  Z ER  LA  I D 


PAGE 


291 


L EXT  ENDEC  VERBS 


. 001 


USER'S  PAGE  NC.  24 


F4  S 4 


... 


P 0827 
R 0828 
R082  9 
1 0 830 
R3931 
R0832 


C R EVuMA  NU  VERB  49  CESCRIPTION 

START  AUTOMATIC  ATTITUDE  MANEUVER 

1.  REGUIRE  PROGRAM  00  ACTIVE. 

2.  SET  FXT  VERB  DISPLAY  BUSY  FLAG. 

3.  SCHEDULE  R62DISP  HI  TH  PRIORITY  10. 

4.  RFLEASE  EXT  VERB  DISPLAY. 


R 0 8 3 3 
R3  8 34 
1 (835 


R0836 
R 0 8 3 7 
T 0838 
R3839 
R084  1 
1 :l  842 
ROB  43 


R fc  2D  l SP 

1.  DISPLAY  FLASHING  V06.N22. 

RE  SPf  NSES 

A.  TFRMINATF 

1.  GO  TO  GOTOPOOH. 

B.  PROCEED 

1.  SFT  3AXISFLG  TO  INDICATE  MANEUVER  IS  SPECIFIED  BY  3 AXIS. 

2.  EXECUTE  R60LEM  (ATTITUDE  MANEUVER). 

:.  ENTER 

1.  REPEAT  FLASHING  V06.N22. 


0844 

0845 


REF  3 LAST  289 
REF  13  LAST  289 


43  ,3004  0 2121  1 CREWMANU  TC  CHKPOOH 

43,  3005  C 2C76  1 TC  TE  STX  ACT 


DEMAND  POO 


084  6 
(847 
0843 
0849 


RFF 

REF 

REF 

REF 

REF 


2 

8 


2 

1 

1 

13 


LAST 
I AST 
LAST 


289 

289 

139 


LAST  299 


43.3006  3 4737  0 

43 .3007  C 51 05  0 
E6 , 1675 

43  ,3010  02103  1 

43, mn  46106  1 
43,  30  12  C 5 155  0 


CAF  PRI010 
TC  FINCVAC 

E BANK=  BCDU 
2CADR  R62DISP 

TC  END  OF  JOB 


}AP:  ASSFMBLF  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZQ9UASTER 

L EXTENDED  VERBS 


o:12  02T.  21  »1 970  ZERLAID  .001  PAGE 
USER  *S  3 AGF  NO.  25  t*  S4 


292 


PJH51 
< f 852 
R0853 


T RMT  PAfK 


VERB  56  DESCRIPTION 

TF  RMI  NATE  TRACKING  ( F23  AND  P?5  ) . 

1.  KNOCK  DOWN  RENDEZVOUS,  TRACK,  AND  UPDATE  FLAGS. 

2.  REQUIRE  P20  CR  P25  NOT  RUNNING  ALONE  OR  GO  TO  G GTOPOOH  (RFQUEST  PROGRAM  00). 

3.  SCHEDULE  V56TCVAC  WITH  PRICRITY  30. 


P'.  957 
R •'  8 58 
RO  860 

R3961 


V 56TQ VAC 

1.  EXECUTE  INTSTALL  (IF  INTEGRATION  IS  RUNNING,  STALL  UNTIL  IT  I S F I NI  SHE  D.  ) . 
3.  ZERO  GROUP  2 TC  HALT  P2D. 

3.  TRANSFER  CONTROL  TO  GOPROG  2 (SOFTWARE  RF  STAR  T)  . 


f n^?_ 
7 963 
086  A 
0865 


PFF  1 

RFF  18  LAST  239 
REF  1 A LAST  29C 


43,3013  3 3033 

43,  3014  7 C C 74 

43.3015  C 0006 

43.3016  1 2117 


1 TRMTRACK  CA 

0 MASK 

1 FXTFND 

0 BZF 


P ITS9  4-7  IS 

F L AG  W R DO 

GOP  IN  NO 


PEND  HR  P 2 5 FLAG  ON 


3365 
( 367 


REF  21  LAST 
RFF  1 


290  43,  30  17  0 “27  1 

43  ,3020  00010  0 


TC  DOWN  FLAG 

AORES  RNDV7FLG 


0868  REF  22  LAST  292 

1869  REF  1 


43,3021  C c 5 27 
43,  3022  0G006 


1 TC  DOWNFLAC 

1 ADRES  P25FLAG 


f 87C 
3971 


REF  23  LAST 
REF  1 


292  43,3023  0 5527  1 

43,  3024  C 0 0 3 7 0 


TC  DOWNFLAC  ENSURE  SEARCH  FLAG  IS  OFF 

ADRES  S RGHCPTN 


i 872 

087? 
3 87'- 
* 875 


REF  15  LAST 


285  43  ,3025  3 4747  I 

285  43  ,3  02  6 7 G07  5 1 

43, 3027  C 0006  1 

2 92  43,3030  1 2117  0 


CA  TRACKBIT  IS  TRACK  FLAG  CN? 

MASK  FLACWRD1 
E XTEND 

BZF  GDP  IN 


REF  11  LAST  280 
PFF  1 


43,  3031  C 4635  0 
43,  303?  64054  I 


TC  POST  JUMP 

CADR  TRMTRAK1 


0879 


43,3033  00500  1 BITS9+7  OCT 


500 


REF 


3 LAST  280  42,  2000 

42  ,2054 


SETLOC  SB  AND  BANK  42 

BANK 


0881 

0882 
0883 
7394 
J8B5 
0 8 86 
7 98  7 

0890 

0891 


*REF 
* RFF 


2 LAST  286  TO  287: 

6 LAST  259  42,  2054 

42,2055 

1 42,  2C56 

1 42,2057 
42  ,2060 

2 LAST  239  42,  2Cfc1 

3 LAST  243  42  ,2062 

42 ,206  3 


15  15* 

C 6051  0 
43014  0 
CC  670  0 
00672  1 
45014  0 
CO  26  7 1 
27410  1 
77776  1 


COUNT*  St/EXTVB 

I NTPRE  T 
CLEAR 
UPDATFLG 
TR  ACKFLG 
CALL 
I MUSE 
INTSTALL 


CLEAR  UPDAT  E FLAG 
CLEAR  TRACK  FLAG 


DDNT  INTERRUPT  INTEGRATION 


0892 


LAST  2.35  42,  2064  0 5364  0 


PH  A SCHNG 


GAP:  ASSEMBLE  REVISION  56  OF  A GC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT • 21  ,1970  ZFRLAI C 


.00  1 PAGE  293 


L EXTENDED  VERBS 


USER'S  PAGE  NC.  26 


66  S6 


0893 


A 2 , 206 5 C0002  0 


OCT 


KILL  GROUP  2 TO  HALT  P2C  ACTIVITY 


089'+ 
0 895 
9896 


REF  12 
REF  1 


LAST  290 


62,  2066 
62  ,2067 
62,  2C70 


0 0006  0 
0 6676  0 
60166  1 


INHINT 

TC  IBNKCALL  ZERO  THF  COMMANDED  RATFS  TO  STOP 

CADR  STCPRATE  MANEUVER 


0897  REF  13  LAST  293 

0898  REF  1 


62  ,2071  0 6676  0 

62,2072  60115  0 


TC  IBNKCALL 

CADR  REST  ORDB 


0899  REF 


LAST  276  62,  2073  C 60 1 1 


TC  C LRAD  MOD  CLEAR  BITS  10  +15  OF  PADMOCES. 


0900 
9 91)  1 

0902 

0903 
3936 


PEP  LAST  286 

REF  22  LAST  286 
REF  12  LAST  2°2 
REF  2 LAST  237 


6 2 ,2  076 
62,  2C75 
62,2076 
62 ,2  C 77 
62,  2100 


6 6736  0 
C CC06  1 
03  C 1 2 1 
C 6635  0 
13C06  1 


CS  B IT  1 6 DISABLE  LOCKON 

E XTEND 

WAND  CHAN12 

TC  POSTJUMP 

CADR  G0PRCG2  C AUS  E R EST  APT  . 


3 ( 905 
R0906 
R09G7 
1 0908 
R 3 9 39 


CNF  PUMP  VERB  76  DESCRIPTION 

INITIALIZE  DOWN-TELEMETRY  PROGRAM  F OR  ERASARLE  MEMORY  OUMP. 

1.  SET  FXT  VERB  DISPLAY  BUSY  FLAG. 

2.  REPLACE  CURRENT  DCWNLIST  WITH  ERASABLE  MEMORY. 

3.  RELEASE  EXT  VERB  DISPLAY. 


091  REF 
0911 


LAST  287  63,2000 

63,3036 


SETLOC  FXTVFRBS 
BANK 


3912  RFF  5 LAST  287  TO  2g2: 


65  368* 


COUNT*  ii  /C  XTVB 


09 1 8 

0916  PEF 

0915  REF 

0916  REF 


3 LAST  226 
16  LAST  292 


63,3036 
6 3,  3035 
63,3  936 


EHA\JK=  630 

3 3 C 3 7 0 DNEDUMP  CAF  LDNDUMFI 

56  335  0 TS  (3NTMG0T0 

0 2117  1 TC  GOP  1 N 


3917  REF  2 I AST  268 

0918  RFF  1 


63,  3936 

6 3 , 3 n 37  03723 


V76  EOLALS  DNFDUMP 

LDNDUMPI  RFMADR  DN DUMP  I 


R 09 1 9 
R092C 

T 0921 


LEMVEC  VERB  RC 

IJ  PDAT  E LEM  ST  AT  E V ECTOP 
RESET  VFHUFFIC  TO  0 


DESCRIPTION 


l iff 


26  I AST  292  63,  3060  C 5527  1 LFMVEC 

1 ,3061 


TC  DOWNFLAG 

ADRES  V EH  UP  FL  G 


V3  80  - VEHUPFLG  DCWN  INDICATES  LEM 


0926 
R9925 
? ' >926 
R 0927 


PEF 


CSMVFC  VERB  3 1 

UPDATE  CSM  STATE  VECTCR 
SET  VEHUPFLG  TO  1 


DESCRIPTION 


NGUPDOWN 


0928  RFF 


LAST  289 


63,3063  0 5515  0 CSMVEC 


TC 


UPFLAG 


3 F AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


ASSEMBLE  R FV  IS  ION  5' 
EXTENDED  VERBS 
RFF 


LAST  ?Q  3 
LAST  ?9 3 


ADRES  VEHUPFLG 


0932  PEF  17  LAST  29  3 43t3C47  1 i1l7  0 TC  F 

* 0933  IJPDATCFF  VERBIS  DESCRIPTION 

R9  9 39  INHIBIT  STATE  VECTOR  UPDATES  BY  I NC  OR  P 

RC935  SET  NOUPFLAG  TO  I 


RFF  18  LAST  294  43,3052  0 2 117  1 


9:12  CCT.  21  ,1970 


Z FPL  A 1 C . 1 


PAGE  294 


USER  » S PAGE  NO.  27  El  S4 

VB  B 1 - VEHUPFLG  UP  INDICATES  CSM 

r 


VB  Q5  SET  NOUPFLAG 


GAP:  ASSf-MBLF  REVISION  56  OF  A3G  PROGRAM  ZERLINA  BY  ZOROASTER 

L EXTENDED  VERBS 


9:12  OCT.  21,  1970  ZERLAIO  .001 
USER'S  PAGE  NG.  28 


PAGE 
El  SA 


295 


3 0939 
R D 9 A ? 
R09A1 
3 0 9 A 2 
39A3 


PFF 


SYSTFST  VERB  92  DESCRIPTION 

OPERATE  IMIJ  PERFORMANCE  TEST. 

1.  REQUIRE  PROGRAM  00  OR  TURN  ON  OPERATOR  ERROR. 

?.  SE  T F XT  VERB  BISY  F LAG. 

I AST  131  E5,  1 4 17  E8ANK=  OPLACE 


09AA  RFF 


A LAST  291 


A3  , 3053  0 2121  1 SYSTEST  TC 


CHKPOOH 


OEMAND  POO 


0°A  A 2 
09AAA 
<9AAt 
3 9 A A 8 
0 9A5 


23 

1A 


282  A3, 3C  5 A < CC77  J 

237  A3,  3,,  5s  7 A7A1  C 

A3 ,3 C56  C 0006  1 
289  A3,  30  5 7 1 2 116  1 

291  A3  ,3060  0 2076  1 


CS  F L AG  W R 03  DO  NOT  ALLOW  P07  IN  FLIGHT 

MASK  N0PC7BIT  IF  FLAG  IS  SET,  TURN  ON  OE  LITE  AND  EXIT 

EXT  END 

BZF  ALM/END 

TC  TEST XAC  T 


C9A6  REF 
f 9A  7 REF 
09AR  PEF 
39AQ  PEF 
0950  REF 
0950  RFF 
3 951  RFF 


2 LAST 
9 I AST 

3 LAST 
1 

1 

1 

1A  l.  AST 


29  1 


A 3,  30  6 2 
E 5 , l A 1 7 
’7,  20C0 
A 3,  .30  63 
A3  , 3 06A 
A3,  3C6  5 


3 7722  1 
0 5 IQ  5 0 


02002  1 
76  065  0 
C 5155  0 


CAF  PRI022 
TC  FIND  VAC 

EB AN  K=  OP  LAC  F 
SBANK=  I MUSIJPER 
2CA0R  REDO 

TC  ENOOFJCB 


R 0952  VERB  93 


CLFAR  RENDWFLC,  CAUSES  W-MATRIX  TO  BE  R E-  IN  I T I AL  I Z F 0 . 


0953 
095  A 
0955 
39  5b 


RFF  1 

REF  11  LAST  285 
RFF  12  LAST  295 


A 3 , 3C  6 fc  C OCCA  0 
A3,  3067  A A 7 5 3 0 
A3 , 3 C 7 0 7 0101  0 

A3,  3 C 7 l 5A  IC1  0 


WMATRXNG  INHINT 


RENDWBI  T 
FLAGWRD5 
F LAGWR05 


0957  RFF  19  LAST  29A 


A?  ,3  72  0 2117 


0958  RFF 


A3 , 3C73 


GOSHOSUM  EQUALS  SHOWSUM 


0959  REF 

0960  REF 
3961  REF 

0962  REF 

0963  RFF 
396A  REF 
0965  REF 
C 966  REF 

0967  REF 

0968  RFF 
3969  REF 


3 

1 


LAST  79  5 
LAST  295 
LAST  289 
LAST  288 

LAST  111 

I A ST  219 

LAST  229 


A3,  3f  7 3 
A3, 30  7 A 
A3,  3 C 7 5 
A3, 3076 
A3, 3077 
A 3,  3100 
A3  ,3  li,l 
A3  ,3  102 
A 3,  3 10  3 
A3  ,3  1 0 A 
A3,  3 I C 5 


0 2121  1 
C 2 C76  1 
3 5021  1 
0 51A6  1 
3 A753  1 
55*376  0 
3 A755  1 
55' 362  0 
2 3 2AA  0 
55' 361  0 
C 3521  1 


SHOWSUM 


TC  CHKPOOH 

TC  T EST  X ACT 

CAF  PRIG7 

TC  PRIOCHNG 

CAF  S+l 

TS  SKEEP6 

CAF  S+ZERO 

TS  SMCDE 

CA  SELFADRS 

TS  SEE  FRET 

TC  STSHOSUM 


ALLOW  OTHER  CHAR  INS  • 


* SHOWSUM  OPT  I CK 

* TURN  OFF  SEL  F-CHECK 


* ENTER  ROPFCHK 


0970  REF  2 LAST  111 

0971  REF  2 LAST  111 

3972  REF  1 


0973  PEF  A 1 1 AST  280 

097A  REF  1 


A3, 3 106 
A3  ,3107 
A3,  31io 
A3  ,31 1 l 
A3, 3112 


23*372 

23*373 

2 32a  3 
5 A 156 

3 3123 


3 SDISPLAY  LXCH  SKEFP2 

1 LXCH  SKEEP3 

1 NOKILL  CA  ADRSl 

1 TS  M P AC  +2 

1 CA  VNCON 


BANK  tf  FOR  01  SPLAY 
BUGGER  WORD  FOR  DISPLAY 


0 53  1 


GA«»:  ASSEMBLE  REVISION  56  OF  AGC  PRCCRAM  ZERLINA  BY  ZCRCASTER 


L EXT  ENDER  V ER BS 


0975  PFF  46 

0976  ^ F F 6 

0977 

0978  PFF  1 

3979  RFF  1 

0980  PFF  2 

0981  REF  2 


D9B?  RFF  16 

0983 

09H4  RFF  3 

0985 

0986  RFF  2 

)997  RFF  2 


LAST  286  43  ,3113 

IflST  296  4 ? , ? 1 1 4 

43,  ? 1 15 
43,3116 
43,  3 1 17 
LAST  295  43,  31  20 

LAST  111  43,3121 


LAST  286  43,3122 

43  ,3123 

LAST  295  43,3124 

43,  3125 
LAST  229  43  ,3126 

I AST  295  43,  3127 


0 46 16  1 
2C334  l 
C 2 120  1 
0 3632  0 
C 3 1 1C  1 
3 3244  O 
55 ' 371  1 


0 55C 3 1 

01201  0 VNCON 

3 1376  1 ENDSUMS 
C 0006  1 

1 3335  0 
C 3521  1 


TC  BANKCALL 

CADR  GOXDSPF 

TC  ♦ 3 

TC  NXTBNK 

TC  NOKILL 

CA  SELFAORS 

TS  SKEEP1 


TC  ENDEXT 

VN  501 

CA  SKEEP6 

EXTEND 

BZF  SELFCHK 
TC  ST  SH  OS  UR 


12  OCT.  21,  1970  ZERLAIt)  .001  PAGE 
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* ROPECHK,  START  SELFCHK  AGAIN. 

* START  S HOWS  U M AGAIN. 


)AP:  ASSFMGLE  PEVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L EXTENDED  VFRBS 


9:  12  03  T.  21  ,1  970  ZERLAI  D 
USER  *S  PAGE  NO.  3C 


• Or  1 


PAGE 
E5  S4 
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PD 988  CAPCISP  VERB  48  DESCRIPTION 

R 0 989  I TAD  AUTG  PI  LCT  CAT  A 

RC  990  1.  REQUIRE  EXT  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG. 

R9991  2.  FX  ECUT  E CAPO  AT  A1 , CAP  DATA  2,  AND  DAPDATA  3. 

R 0992  3.  RELEASE  EXT  VERe  CISPLAY  SYSTEM. 

RD993  KFY 

R 099 4 THE  FOLLOWING  IS  A KEY  TO  THE  5 DIGITS  OF  THE  DAP  DATA  CODE  (N46I 


RC99S 
R0996 
R 0 99  7 
R0998 


DIGIT  A 


- VEHICLE  CONFIGURATION 

1 - LM  ALONE,  ASCENT 

2 - LM  ALCNE , DESCENT 

3 - CSM  AND  LM  DOCKED 


R 0999 
R 1000 
R 1 ? ' l 
R 100  2 
R IOC  3 


DIGIT  B 


- ACCELERATION  CODE 
C - 2 JF  T TRANSLATI CN , 
1 - 2 JFT  TRANSLATION, 
2-4  JET  TRANSL  AT  ION , 
3 - 4 J5  T TRANSLA  Tl  CN  , 


RC  S 
RC  S 
RCS 
RC  S 


SYSTEM  A PREFERRED 

SYSTEM  B PREFERRED 

SYSTFM  A PREFERRED  (NOT  MEANINGFUL) 

SYSTFM  B PREFERRED  (NOT  MEANINGFUL  I 


Rl 004  CIGIT 

R 1005 

R1006 


- ACA  SCALING 

0 - F I NF 

1 - NORMAL 


R 1 007  DIGIT  D - DEA  Of?  AND 
R 1008  C - 0.  3 DEG 

Rl 30 9 1 - i.o  DEG 

R 1010  2 - 5.0  CEG 

R lnll  ( 3 - 5.  0 DEG  BY  DEFALLT) 


R1312  CIGIT  F 
R 1013 
R 1 0 1 4 
R1015 
R 1016 


■ MANEUVER  P AT  E 
C - C • 2 DEG/SEC 
l - ( . 5 DEG/SEC 
2-2.0  DEG/SEC 
3 -10.  0 DEG/SEC 


1317 
1018 
10  19 
1 0.2  0 
1021 
1)22 

1023 

1024 


REF 

REF 

RFF 

REF 

RFF 


29  5 
295 
29  5 
29  3 


43,  3 13n 
43  ,3131 
43,3  132 
4 3,  3 133 
♦3  ,31  14 
34,  2 C 6 0 
1 , 

20  ,2004 


C 2c  7 6 1 
3 50  21  1 
0 5146  1 
0 46 35  0 
40C04  1 


DA  PD  ISP  TC 
CAF 
TC 
TC 


TE  ST  X AC  T 
PR  ID  7 
PRIOCHNG 
POSTJUMP 
DAPDATA 1 


CADR 
BANK  34 
SETLOC  LOADDAP 
BANK 


1025 

1026 


REF 

REF 


COUNT*  $*/R03 
S 8AN<=  LDWSUPER 


R 0 3 


FOR  SUBSEQUENT  LOW  2CADR'  S. 


1027  REF  1 

1028  REF  6 LAST  226 


20,2 0 C 4 

2C,  200  5 


2114  1 DAPDATA1 
0111  1 


CAF  BOCLSMSK 
MASK  DAPBOOLS 


SET  DISPLAY  ACCORDING  TO  DAP830L  S BITS. 
LM 


GAP:  ASSFMBLF  REVISION  6fc  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L FXTFNDFD  VERBS 


10  ?o 
1 r,3  T 
1031 
1 32 
13  3 
1034 
10  35 
1^36 
1037 
1 38 
1 U39 
13  4? 
1 04  1 
1 4? 
1343 
1 A A 


1 ' 46 
1047 
1340 
1 0 40 
In  50 

1351 
105? 
1 053 


REF  1 
REF  5 
REF  ? 
REF  BO 
REF  34 
PFF  ? 
REF  3 
REF  3 

REF  1 
REF  4 
RFF  l 
PFF  5 
REF  1 
PFF  5G 
RFF  1 
REF  17 
RFF  1 
REF  1 
REF  1 
REF  3 
RFF  1* 
REF  23 
RFF  6 
R EF  1 


LAST 
LAST 
l AST 
LAST 
I A ST 
I AST 
LAST 


LAST 
LAST 
l AST 
I A ST 


LAST 
I A ST 
I AST 
LAST 


2C,2<3C6  f c ' 340  0 
223  20,  2007  4 0 106  1 

220  20,2010  7 4737  1 

287  20, 2011  1C  CCO  0 

203  20,2012  3 4736  1 

208  20,201?  27*340  f 

29  8 20,  20  14  : 1 • 340  1 


286  20,2015 

20,  2C16 
23,  20  17 
208  20,2020 
20, 2021 
298  20,20 22 

20,2023 
296  2o  , 20  24 
20  ,2025 
296  20,2026 

20 , 20  27 
20,2030 
20,  2031 
282  20,2032 

295  20,2033 

264  20, 2o  34 

209  20  ,2035 

20, 2036 


7 4355  1 
C CCC6  1 
1 20  34  0 
31*340  1 
7 2113  1 
55*340  0 
3 2112  1 
C 4616  1 
20353  0 
1 55C3  C 
1 20  37  0 
1 2014  1 
3 6254  1 

0 5475  1 

1 5 155  1 
3 4737  0 
27*  34^  0 
1 2021  1 


TS 

C S 

MASK 

CCS 

CAF 

ADS 

CHKDATA1  CAE 
MASK 
EXTEND 
3ZF 
CAE 

MSKDATRl  MASK 
TS 
CAF 
TC 

CADR 

TCF 

TC  F 

TCF 

CAF 

TC 

TCF 

FORCEUNE  CAF 
ADS 
TCF 


DAPDATR1 
FLGWRD  10 
APS  FLBIT 
A 

B I T 14 
DAPDATR1 
DAPDATRl 
P IT  13-  14 

c ORCF  ONE 
DAPOAT  R 1 
DSPLYMSK 
DAP  DA  TR  1 
V01 N46 
3ANKCALL 
GO X DSP  FR 
ENDEXT 
3PDAT1 
CHK  DAT  A 1 
RE  VC  NT 
BLANKET 
ENCOFJOB 
B I T 1 3 
DAPDATR  1 
MSKDATRl 


1 054 

IG‘55  REF 
1356  PFF 

1057  REF 

1058  REF 
1 059  REF 

1060  REF 

1061  RFF 

1062  RFF 

1063  RFF 
1164  RFF 

1065  RFF 

1066  REF 
1 67  REF 

1068  RFF 

1069  PC-F 

1070  RFF 

1071  REF 
1372  REF 

1073  RFF 

1074  RFF 
1076  RFF 
1076  REF 
1377  REF 


22 

7 
35 
Pi 

23 

8 


24 
3 

7 

25 

8 
2 

83 


I A S T 298 
LAST  298 
LAST  28C 
LAST  298 
LAST  298 
LAST  298 
I AST  298 
LAST  298 
LAST  298 
l AST  298 
I AST  298 
LAST  298 

LAST  297 
LAST  298 
LAST  298 
LAST  298 
LAST  29  7 
LAST  298 
LAST  298 
l AST  29  8 
LAST  298 
LAST  212 


20,2037 
20,204  0 
20,  204  1 
20  ,2042 
20,2  04  3 
20,  20  44 
23  ,2045 
20, 2046 

20  > 20  47 

20.2050 

20. 2051 
20  ,2052 
2 0,2  053 
20,  2054 
2 3 ,>0  65 
2C, 2056 
20,  20  57 
20,2060 
20,  2C 1 1 
20  ,2062 
20,2063 
2(i,  20  64 
23  ,2065 
20, 2C66 


0 0004  0 
4 4737  1 
7 9 1C  6 1 
54  001  1 
4 1340  0 
7 4736  0 
10  000  0 

3 4737  C 
6 0001  0 
54  106  1 

4 1340  0 
7 4355  1 
10  000  0 
4 4737  1 

6 2114  1 

7 1340  0 
54  001  1 
4 2114  0 
7 0111  1 
6 0001  0 
54  111  l 
7 4737  1 
10  000  0 
31*  32  7 0 


CS  APS  FLBIT 

MASK  FLGWRDlO 

TS  I 

CS  DAPDATRl 

MA  SK  B I Tl  4 

CCS  A 

CAF  APSFLRIT 

AD  L 

TS  FL  GW  R 0 10 

CS  DAPDATRl 

MASK  BIT13-14 

CCS  A 

CS  CSMDOCKD 

AD  BOOLSMSK 

MASK  DAPDATRl 

TS  L 

CS  BOOLSMSK 

MASK  DAP800LS 

AD  L 

TS  DAPBOOLS 

MASK  OSMDOCKD 

CCS  A 

CAF 


CSMMASS 


9:12  CCT.  21,1970  2 ERL  AID  .00  1 PAGE  298 
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LM 

SET  BIT  14  TO  BF  COMPLEMENT  OF  APS  FLAG. 


IF  BITS  13  AND  14  ARE  BOTH  7ER0,  FORCE 
A ONE  INTO  BIT  13. 

ENSURE  THAT  NO  ILLEGAL  BITS  SET  BY  CREW. 

LM 


V 34  E TERMINATF 
V33E  PROCPFn 

E NEW  DATA  CHECK  AND  REDISPLAY 

BITS  2 £ 3:  BLANKS  R2  E p3. 


INHINT  FOR  SETTING  OF  FLAG  BITS  AND  MASS 
ON  BASIS  OF  DISPLAYED  OAPDATRl. 

SET  APSFLAG  TO  RF  COMPLEMENT  OF  BIT  14. 


SET  BITS  OF  DAPBOOLS  ON  BASIS  OF  DISPLAY 
MASK  OUT  CSMDOCKO  (BIT  13)  UNLESS  BOTH 
13  AND  14  ARE  SET. 


LOAD  MASS  IN  ACCORCANOE  WITH  CSMDOCKD. 
MASS  IS  USUALLY  ALREADY  OKAY,  SO  DO 
NOT  TOUCH  ITS  LOW-ORDER  PART. 


r,  ap 


ASSEMRI  F REVISION  56  OF  AGC  PROGRAM  ZFRI.INA  BY  ZOROASTER 


I FXTENDED  VERBS 


10  78 
1 3 79 
1 080 
1C8  1 
138? 
1083 
10  84 

1085 

1086 
1387 


1089 

1393 

1091 

1092 

1093 

1094 
1395 
1 .196 


RFF 

REF 

RFF 

RFF 


LAST 
I AST 
LAST 


’’1  1 
107 
298 


REF  20  LAST  224 
REF  11  LAST  2g2 
REF  12  LAST  299 

RFF  13  I AST  299 
REF  21  LAST  299 
REF  14  LAST  299 
RFF  10  LAST  299 
REF  2 LAST  240 

REF  2 LAST  219 
REF  14  LAST  297 
REF  1 


20. 2070 

20.2071 
20,2  0 72 

■ 

20  ,2074 
20,2075 
’ , 2|  7 6 
20  ,2077 
2C,  2100 
20,  2101 
20,2 1 02 
• 

2 0 ,2  104 
20,2  105 
20,  2106 
20,2107 
20,  2110 
20,  2n  i 


30  111  0 
7 4741  0 
C 0006  1 
1 210  1 1 
4 4735  0 
7 0075  1 
54  0 75  1 
1 2104  1 
4 0C7 5 1 
7 4735  0 
26  C 7 5 1 
3 0111  0 
7 6257  0 
6 0000  1 
65' 322  1 
C 4635  0 
02214  1 


AO  LEMMASS 

TS  MASS 

CAF  3APBU0LS 

MASK  ACC40R2X 

E XTEND 
BZ  F +5 

CS  BIT15 

MASK  - LAG  WRD 1 

TS  FLAGWPD1 

TCF  +4 

CS  F LAG WRD  1 

MASK  HIT  1 5 

ADS  FLAGWRD1 

CA  DAP800L  S 

MASK  THREE 

D0U3LE 

TS  R AT  E IN  DX 

TC  POSTJUMP 

CADR  STIKLOAD 


1097 
1 398 

1099 

1100 

1 1 01  REF 

1102 


l AST 


20, 2113 
20  ,2114 
01  ,2  ? 14 

44  0 1,  2000 

91  ,2214 


00256  0 
23133  C 
13133  1 


V01N46  VN  3 1 46 

OSPLYMSK  OCT  33133 

BOOLSMSK  OCT  13133 

BANK  31 

SETLOC  LOADDAPl 
BANK 


1 133  REF  2 LAST  44  TO 


44: 


2*  COUNT*  $t/R03 


1136  RFF 

1107  RFF 

1108  REF 

1109  PFF 

1110  RFF 

1111  RFF 

1112  REF 

1113  RFF 

1114  RFF 

1115  RFF 

1116  RFF 

1117 

1118 

1119  RFF 

1120 

1121  RFF 

1122  REF 

1123  RFF 

1124  REF 


3 

7 

2 

l 

1 1 
84 
1 
1 
3 
l 
3 
3 
12 


LAST 
LA  ST 
L AST 


I A ST 
LAST 


I AST 

L AST 
LAST 
LA  ST 


LAST 


L AST 
LA  ST 


284 

219 

299 
29  8 


299 

219 

298 

299 


299 


29  9 
?99 


01  ,2215 
E6,  1444 
31  ,2216 
J 1.2217 
01.  ?220 
01  ,2221 
U, 2222 

0 1,  2223 
31  ,2224 
: l,  2225 
0 1 ,2226 

01  ,2227 

0 1,  2230 
31  ,2231 
01,  22  22 

1, 0233 

01  ,2234 
01, 2235 
01  ,2236 
01  ,2237 


3 5015  0 
54  C03  0 


3 4745  0 
7 0111  1 
10  000  0 
3 2343  1 

6 2344  0 
CF*444  0 
3 2346  1 
5 c 1 4 76  1 
3 4737  0 

7 0111  1 
C 0CC6  1 
1 2240  l 
3 1444  1 
C 0CC6  1 
7 2345  0 
E 5 '444  0 
3 2347  0 
55*476  1 


ST  IKLOAP  CAF 
TS 

EBANK= 

CA 

MASK 

DC  S 

CA 

AO 

TS 

CA 

TS 

CA 

MASK 
E XTEND 
BZ  F 
CA 

EXTEND 

MP 

TS 

CA 

TS 


F BANK  6 
EBANK 
STIKSENS 
9 HC  SCALE 

daprcols 

A 

NORMAL 
F I NF 

STI  KSFNS 
-0  . 6 (1/  S 
-R ATEDP 
CSMDOCKD 
DAPBOOLS 

+7 

STI KSENS 
1/  10 

STI KSENS 
-0.  30 /S 
-R  AT  FOB 
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2 OR  4 J FT  X- TRANS  LATI ON 
(BIT  ACC40R2X  = 1 FOR  4 JETS) 


CLEAR  NJTSFLAG  TO  0 FOR  4 JETS 


SET  NJTSFLAG  TO  1 FCR  2 JFTS 


SELECT  DESIPFD  KALCMANU  AUTOMATIC 
MANEJVER  RATE 

RATEINDX  HAS  TC  BE  C,2,4,6  SINCE  RATES 
ARE  DP 


SET  STICK  SENSITIVITY  TO  CORRESPOND  TO  A 
MAXIMUM  COMMANDED  RATE  (AT  42  COlAJTS)  UF 
20  D/S ( NORMAL ) OR  4 D/S(FINEJ,  SCALED 
AT  45  D/S. 


LM-ONIY  BREAKOUT  LEVEL  IS  .6  D/S. 

IF  CSM-OOCKED,  DIVIDE  STICK  SENSITIVITY 
BY  13.  NORMAL  SCALING  IS  THEN  2 3/S  AN3 
FI  NF  SCALING  IS  0 .4  C/S 
BRANCH  IF  CSM  IS  NOT  DOCKED. 


CSM-DOCKED  BREAKOUT  LEVEL  IS  .3  D/S. 


34°  : ASSFMRI.F  RE  VI  SIGN  56  OF  AGC  PRCGP 


ZERLINA  BY  ZOROASTER 


L EXT  ENDEC  VERBS 


1125 


01  ,224 0 0 0003 


R EL  INT 


1127 

1128 
1123 
113. 

1131 

1132 

1133 

1134 

I 1 35 

I I 36 
1 1 37 

1 1.38 


PFF  2 
REF  1 
REF  1 
REF  1 
REF  16 
REF  4 
REF  16 

RFF  14 
REF  2 
REF  1 8 


LAST  23  8 
LAST  298 


LAST  282 
I.  AST  2'» 8 
LAST  258 

LAST  293 
LAST  293 
LAST  298 


3 1,  2242 
01  ,2243 

01. 2244 

01.2245 

01 .2246 
01,  2247 
01  ,2250 
01,2251 
j 1,  2252 
0 1 ,2253 
01,  2254 
0 1,  2255 


3 2341  C 
C 46 1 & 1 
20353  0 
1 2252  1 
1 2256  0 

1 2241  0 

2 4751  C 

0 5475  1 

1 5155  1 
0 0CC4  0 

0 4674  0 
40115  0 

1 55C3  0 


DA  PD  AT  A2  CAF  V0647 

TC  BANKCAI.L 

CADR  GOXDSPFR 

TC  F FNDR0  3 

TC  F DAP0AT2 

TCF  DAP  DAT  A2 

CAF  01 T3 

TC  BLANKET 

TCF  ENCOFJCB 

ENDR03  INHINT 

TC  IBNKC  ALL 

CADR  RESTORDR 

TCF  ENDEXT 


1143 
1141 
l 142 

1143 

1144 

1145 

1146 
1 147 
1 1 43 
1149 
1 150 
1 161 
1 152 
1153 
1 1 54 
1155 

I 156 

1157 

1158 

I I 59 
1 160 
1161 
1162 


RFF 

REF 

RFF 

REF 

REF 

RFF 

RFF 

PEF 

REF 

P.FF 

RFF 

RFF 

REF 

REF 

REF 

RFF 

PEF 
R E F 


1 

R 


10 

4 

15 

3 


I AST 
I AST 
LAST 


last 

LAST 

LAST 

LAST 


LAST 

LAST 
LAST 
I AST 

LAST 

LAST 

LAST 


298 

298 

299 


299 

30  0 
2>9 
299 


298 

330 

300 

390 

299 

330 
30  0 


Cl,  2257 
01  ,2260 
01 ,2261 

1, 

.31  ,2263 
11 ,2264 

0 1,  2265 

01  ,2266 
01,  2267 
01,2270 
01  ,2271 
01,  2272 
91  ,2273 
01,2274 
0 1,  2275 

0 1 ,2276 
01, 2277 

1,231 

01  ,2301 
01,  2302 

. 

01,2304 
0 1,  230  5 


10  000  0 

3 2 000  0 

6 200 1 1 

6 1326  1 
C CCC6  1 
A 2241  1 
30  111  0 

7 4737  1 
0 0006  1 
1 2277  0 

4 4 74  1 0 
6 1327  0 
C CC06  1 
6 2241  1 
3 1 ' 327  0 
6 1 326  1 
22  007  0 
53'  246  1 
C 0004  0 
0 4674  0 

40115  0 
0 0003  1 


DAPDAT?  C.S 

MA  SK 

CCS 

CA 

AD 

AD 

FX  TEND 

RZMF 

CAE 

MASK 

EXTEND 

BZF 

C S 

AO 

EXTEND 

BZMF 

CAE 

LENA  LONE  AD 

ZL 

DXCH 
I NHI NT 
TC 

CADR 

RELINT 


FLGWRC10 
APSFLBI  T 
A 

MINLMD 
MINMI  NLM 
L EMMA  SS 

3 A PD  A TA  2 
DAPBOOLS 
CSMDCCKD 

L EMALONE 
MI  NCSM 
C SMMA  SS 

DA  PDA  TA  2 

CSMMASS 

LEMM4SS 

MASS 

IBNKCAL  L 
RESTORDR 


I 164 

I I 65 
1 166 
1157 
1168 

1169 

1170 

1171 


REF  10 
PEF  6 

REF  19 
REF  I 
PFF  52 
REF  * 
RFF  20 
REF  1 


LAST  300 
LAST  30  0 

1 AST  300 

LAST  330 
LAST  30C 
LAST  330 


01  ,2  306 
01,  2307 

01.2310 

01.2311 

01. 2312 
)1  ,?313 
01,2314 
0 1,2  315 
31  ,2316 


4 0106  1 
7 4737  1 
0 0006  1 
1 5503  0 
: 2342  0 
0 4616  1 
20353  r, 

0 550  3 1 

1 2323  0 


DAPDAT  A3  CS 

MASK 

EXTEND 

BZF 

CAF 

TC 

CADR 

TC 

TCF 


FI  GW  R 0 1 9 
APSFLBIT 

ENDEXT 
VC6N48 
RANKCALL 
GOX OS  PER 
ENDE  XT 
DP  DAT  3 


9:  12  OCT.  21,  1970  ZEPLAID.^oi  PAGE  300 


USER'S  PAGE  NC.  33  Efe  S3 

PROCEED  TO  NOUN  47,  MASS  ICAD, 


V 3 4 E TFDMINATE.  FIRST  SET  DB , DO  1/ACCS 
V33F  PROCEED 

LOAD  NFw  DATA  AND  RFCYCLE 
BLANKS  R3 

LM 


DOES  RELINT 

DETERMINE  STAGE  FROM  APSFLAG 


LFMMASS  MUST  BF  GREATER  THAN  EMPTY  L FM 
ASK  FOR  NEW  MASSES 


SKIP  TEST  ON  CSMMASS  IF  NOT  DOCKED. 
TEST  CS  M MASS 

CSMMASS  MUST  BE  GREATER  THAN  EMPTY  CSM 
ASK  FOR  NEW  MASSES 

DOCKED:  MASS  = CSMMASS  + LEMMASS 

LEM  ALONE:  MASS  = LFMMASS 


SET  DtADBANK  AND  COMPUTE  MOMENTS  OF 
INERT  I A. 

PROCEED  TO  NOUN  48  (OR  END). 

END  ROUTINE  IF  LEM  HAS  STAGED, 

DISPLAY  TRIM  ANGLES  AND  REQUEST  RESPONSE 

V 33E  G3  DO  TRIM  (WAITLTST  TO  TRI  MG  I MB) 


CAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L EXTFNDFO  VERBS 


1172 

1173  REF 

1174  REF 

1175  REF 

1176  RFF 

1177  REF 

1178  RFF 

1179  RFF 

1179  REF 

1180  RFF 

1181  REF 

1182  REF 

1183  REF 

1184  REF 

1185  RFF 

1186  RFF 

1187  RFF 

1188  REF 

1189  REF 


17 

5 

17 

18 
1 1 


1 8 
1 

53 

1 

21 

22 

23 

3 

6 

in 


LAST  30C 
I AST  30  0 

LAST  300 
LAST  1 87 
LAST  288 


LAST  301 

LAST  300 

LAST  300 
LAST  301 
LAST  301 
I AST  27-3 
LAST  301 
LAST  301 


0 1,2317 

01  ,2  120 
01,  2321 
91,2322 
01  ,2323 
0 1,  2324 
F6  ,140  1 
01,2325 

0 1,  2326 

01  ,2327 
01, 2330 

0 1,  2331 

01  ,2332 
C 1,  2333 
01  ,2334 

. 

■ 1,  2 3 36 

91  ,2337 
0 1,  2340 


1 2312  1 
3 4751  0 
C 5475  1 
1 5155  1 
3 4753  1 
0 6 2 14  0 


03216  1 
56066  1 
1 5155  1 
3 234?  0 
0 4616  1 
20361  1 
0 5503  1 
0 550  3 l 
0 5 503  1 
3 6C0  7 0 

0 5475  1 

1 5155  1 


DPDAT3 


TCF  - 5 

CAF  8 IT  3 
TC  BLANKET 

TCF  FNDOFJOB 
CAF  B IT  1 
TC  WAITLIST 

EBANK=  ROLL  TIME 
2 C ADR  T R I MG  I MB 


TCF  ENOOFJOH 

TPIMOONE  CAF  V50N48 

TC  BANKCALL 

CADR  GDMARK3R 

TC  E NOE  XT 

TC  ENDEXT 

TC  ENDEXT 

CAF  OC 324 

TC  BLANKET 

TCF  ENDOFJCR 


1 1 90 
1 191 


01,2341  C 1457  0 V0647  VN 
01  ,2  342  Cl  460  1 V06N48  VN 


C 647 
0 6 48 


1 192 


REF  2 L AST  300  Ql,  2 342 


V 5 ON  4 8 = V06N4  8 


1193 
A 1 194 

1195 

1196 

1197 

1198 


01  ,2343  25101  0 NORMAL  DEC 


.660214 


1,  ? 344 
01  ,2345 
0 1,  2 146 
01,2347 


05220  1 FINE 
03146  1 1/10 

77445  1 -C.60/S 

77622  1 -0  .30/ S 


OEC  .165054 

DEC  . 1 

DEC  -218 

OEC  -109 


9:12  OCT.  21,1970  ZERLAI  0 .001  PAGE  301 


USER'S  PAGE  NO.  34  E6  S3 

LOAD  NEW  DATA  AND  RECYCLE 
BLANK  R3 


DOES  A RELINT 

TRIM  IS  FINISHED:  PLEASF  TERMINATE  R9  3 
V3 4 E TERMINAT  E 

BIT5  TO  CHANGE  TO  PERFORM,  3 TO  BLANK  R3 


NORMAL  SCALING  IS  20  D/S 
FI NF  STICK  SCALING  (4  D/S ) . 
FACTOR  FOR  CSM-DOCKEO  SCALING 


SAP:  ASSEMBLE  REVISION  56  GF  AGC  PROGRAM  ZERL INA  BY  ZOKn ASTEF 


L EXTENDED  VFRB S 


Pllqq  V FR  P 66.  VFhICl.ES  ARE  ATT  ACFEC  . MOVE  THIS  VEHICLE  STA  TF  VECTOR  TO 

R 1 200  C1THFR  VEHICLE  STATE  VECTOR. 

R1291  USE  SUBROUTINE  GEN  TR  AN  . 


120? 

1 20  3 REF 
120A 


LAST  29  3 


07  ,2661 
A3  ,2000 
A 3,  3135 


BANK  7 
SFTLOC  EXTVERHS 
BANK 


1205  PEE 

1206  PFF 


6 LAST  293  TO  297  : 65  A33* 

1 E 3,  1626 


COUNT*  *t/EXTVG 
FBANK=  RRECTHIS 


1207 

120H 
1 209 
121 
121  1 
1212 
1213 


REF  2 LAST 
REF  1 

REF  2 A LAST 
REF  3 LAST 
REF  10  LAST 
RFF  2 LAST 


PSA  A3, 3135 
A3  ,31  36 
A3,  3137 
2°5  A3  ,31 AO 
291  43 , 3 14 1 

295  43,  3 I42 

302  E3  ,1626 


A ' 10  A 0 
7 A 74  A 0 
C C0C6  1 
1 2116  1 
? A 73 7 0 
C 5 1C5  C 


ATTACHED  CS 

MASK 
E XTEND 
BZF 
CAF 
TC 

EBANK= 


ALM/END 
PR  101'' 

F 1 ND  VAC 
3R  ECTHIS 


121  A 

1214 

1215 


REF 

RFF 

RFF 


?C  LAST  301 


S3,  ? 1A3  C31A6  1 
A 3,  3 I44  66103  0 
A3 , 3 1 A5  0 5155  0 


2CADP  ATTACHIT 
TC  ENCOPJOB 


1216 
121  7 
121R 
121o 
1220 
1221 
1222 
1223 
l 22A 

1225 

1226 
1227 
122B 
1229 


REF 
R FF 

RFF 
R FF 


RFF 

RFF 

REF 

RFF 

REF 


7 L AST 
A LA  ST 

1 

1 

2 LAST 

l 

1 

3 LAST 
1 


29  2 


292 


30  2 


302 


S3,  1 1 '•  • 
A3 ,3 1 A7 
A3 ,3150 

43,3151 

A3  ,3152 
A 3 , 3 1 5 3 
A3, 315A 
A3  ,3155 
A3,  3156 
A3  ,3  157 


A3  , 3 1 6C 
A3,  3 1 6 1 
A3  ,3162 
A3,  3163 


C 605  1 
7762A 
274  10 
S 30  1 A 


0A063 
CA3CA 
671  c7 
776  1 S 
CS263 
77776 
3 3203 
0 5555 
01626 
C155A 


0 

1 

1 

0 

0 

1 

0 

1 

1 

1 

0 

1 

1 

1 


ATTACHI  T TC  I NTPRET 

CALL 

INTSTALL 
SFT  3 ON 

MOONOTH 
MOONTHIS 
+ 3 

CLEAR 

MOCNCTH 

EXIT 

CAF  DCT51 
TC  3ENTRAN 

ADRES  RRECTHIS 
AORES  RRECTOTH 


1230 

1231  RFF 

1232 

1233  RFF 
123A 

1235  REF 

1236  RFF 
1 237 


fl  LAST  302 
1 

2 I AST  116 


A 3,  3 1 6A  C 0GC3  1 
A3, 3165  0 6051  0 

A3, 3166  7762A  1 

A3  ,3167  26757  0 

A3  ,3170  A515A  0 

A3,  3 17 1 0 2Q 30  0 

A3  ,3172  241  1 A 1 

A3,  3 173  77776  1 


RELINT 

TT  I NTPRET 

CALL 

PTOALEM 
LX  A, 2 CALL 
PBOD  Y 
S V OWN  1 

EXIT 


1238  RFF 


A3.317A  3 320 A 


CAF  TC  P I N AD 


9:12  OCT.  21,1070  ZERLAI  0 .001 
USER'S  PAGE  NO.  35 


PAGE 
E 6 S3 


302 


TURN  ON  OE  AND  EXIT  IF  SUPFFLAG  SET. 


OUR  STA  TF  VFCTOP  INTO  OTHER  VIA  GENTRAN 


UPDATE  R-OTHER,  V-CTHER 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9 :L2  CCT.  21  »1  97 U 


ZERLAIC  .001  PAGE  303 


L EXTENDED  VERBS 


USER  • S PAGE  NO.  36 


1239 

1240 
124  L 
1242 


REF  8 
REF  1 
REF  15 
REF  1 


I AST  259 
LAST  299 


43,  3175 
43,3176 
43  ,3177 
43,  3 200 


0 4635  0 
27421  C 


INDEX  FIXLCC 
TS  OPRET 

TC  POSTJUMP 

E. ADR  INTWAKE  FREE  INTEGRATION  ANC  EXIT. 


1243 

1244  REF 


LAST  270 


43  ,3201  77634  0 TCPIN  P.TB 

43,  3202  2 1 C 5 1 0 


PI NBRNCH 


1245 

1246  REF 


43,3203 
43  ,3204 


00051  0 OCT  5 1 OCT  51 

67201  0 TC  PI  NAD  CADR  TCPIN 


R1  247 


VERB  96  SET  OU  IT  FL  AG  TO  STOP  INTEGRATION. 


R 1248 
R 1240 
Rl  2 50 


GC  TO  V3  7 WITH  ZERO  TC  CAUSE  POO. 

STATE1NT  WILL  CHECK  CLI  TF  LAG  AND  SKIP  1ST  PASS, 

THUS  ALLOWING  A 10  MINUTE  PERIOD  WITHOUT  INTEGRATION. 


E3  S4 


13  LAST 
1 


2°4  43,3205  0 5515  0 VERB96 

43, 3206  C0221  0 


TC  JPFLAG 

ADRFS  GUI  TF  LAG 


0U1TFLAG  WILL  CAUSE  INTEGRATION  TO  EXIT 
AT  NEXT  T IMEST  EP 


1253  RFF  31  LAST  204 

1254  RFF  16  l A ST  303 

1255  REF  1 


43  ,3207  3 4755  1 

43.3210  0 4635  0 

43. 3211  10040  1 


C.AF  ZERO 

TC  POSTJUMP 

CADR  V3  7 GO  TO  POO 


VERB  67 


P I SPLAY  OF  W MATRI  X 


1 258 
1259 
1263 
1261 
1262 
1262 
1 263 


RFF  17  LAST 
REF  2 LAST 
RFF  11  LAST 
RFF  2 LAST 
REF  1 
REF  1 

RFF  21  LAST 


2Q  7 43,3212 

236  43,3213 

302  43,  3214 

118  E4 , 1 57  1 
43  ,3215 
43,  7 2 16 
302  43  ,3217 


0 2076  1 V67 

3 5017  1 
C 51C5  0 


02007  1 
6 2c  64  1 
0 51  55  0 


TC  TESTXAC.  T 

CAF  PR  105 
TC  FINDVAC 

EBANK=  WWPOS 
2CA0R  V57  CALL 

TC  ENDOFJOB 


R 1264  VERB  65 


DISABLE  U,V  JETS  DURING  DPS  BURNS 


1265 

1266 
1 267 


REF  U LAST  303 
RTF  1 

RFF  20  LAST  2^5 


43,^22C  0 c 5 1 c 0 

43,3221  0U115  1 

43,  7222  C 2 117  1 


SNUFFOUT 


AORES 

TC 


UPFLAG 
SNUFFER 
GOPI  N 


0 1 268  VERB  75 


ENABLE  U,V  JFTS  CURING  CPS  BURNS 


1 26Q 
12  70 
1271 
R 1 2 7 2 


REF 

RFF 

REF 

VERR 


I A ST 
LAST 
LAST 


294  43,3223  C 5527  1 OUTSNUFF 

30  3 4 3,  3224  00  1 1 5 1 

? 3 43,3225  02117  1 

DISPLAY  R « LDS  AZIMUTH  AND  E LF  VA 


TC 

ADRE 

TC 

TI  ON. 


S 


DOWNFLAG 
SN  UF  F F R 
GOP  I N 


R 1 2 73 
3 1275 


AZIMUTH  IS  THE  ANGLE  BETWEEN  THE  LOS  AND  THE  X-Z  NB  PLANE,  0-90  DEG  IN  THE  +Y  HEMISPHERE, 
360  - 270  DEG  IN  THE  -V  HE  MI  SPHF  RF . 


SAP:  ASSEMBLE  REVISION  56  QF  AGO  PROGRAM  ZERLINA  8Y  ZOROASTER 


9:  12  OCT.  21,  197?  ZERLAIl) 


001  PAGE  304 


L 

« 1276 


EXT  EMC  FT  VERBS  USER'S 

ELEVATION  IS  THE  ANCLE  BETWEEN  ♦ ZN8  AND  THE  PROJECTION  OF  THE  LOS  INTO  THE 


PAGE  NO.  37 
X-Z  PLANE,  0 


E3  S4 

360  ABOUT  +Y . 


Ii?S 
1280 
1 28  1 


R EF 
REF 
RFF 
REF 


LAST 
L AST 
LAST 


m 

303 


A3, 3227 
42,  3230 


C 2C76  1 
C 4635  0 
62CC0  0 


VERB  85 


EBANK=  RR-AZ 
t:  TE  STXAC  T 

TC  POST  JUMP 

CADR  OSPRRLCS 


1282  REF 

1283 


SETLOC  PINBALL2 
BANK 


1 28  A REF 


COUNT*  St/FXTVB 


1285 

1286 

1287 

1288 
1 288 
1289 


1290 

1291 

1292 

1293 
12  94 


1 295 

1 296 


RFF 
RFF 
REF 
REF 
P EE 
RFF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 


3 

1? 

3 

1 

1 
3 
5 
1 

54 

3 

1 

2 


IASI 
I A S T 
LAST 


L AST 
I AST 

LAST 
1 A ST 


I.A  ST 
LAST 


I 

3 3 
30  4 


285 

297 

3 i 
282 

304 
30  A 


A I , 200  l 
E 4,  1571 
41  ,2JL  2 
A 1,  2<->.  3 
4 1 , 200  4 
,1  ,2005 
A 1,  20C6 
41  ,2007 
41  ,2010 
4 1,  2n  1 1 
41  ,2012 
A 1,  2013 


02000  0 
eciOA  l 
3 4 740  0 
0 5146  1 
2 2C 1 7 0 
0 46  16  1 
20353  0 
0 5574  1 
0 557A  1 
C 5574  1 


CSPRRLOS 


CAF  P R IP  5 

TC  FINCVAC 

CBANK=  RR-AZ 

? C ADR  RRLOSDSP 

r A F PR  I 04 

TC  PR  IOCHNC 

CAF  V16N56 

TC  BANKCAL1. 

CADR  GO MARK  FR 

TC  B50FF 

TC  B50FF 

TC  B5  OFF 


12  97 
12«8 
1 299 


RFF  18 
REF  7 
REF  2? 


LAST  301 
I AST  301 
LAST  303 


41,2014 
41  ,2  1 5 
A 1,  2016 


3 4751  0 
0 5475  1 
0 c 155  0 


CAF  3 I T 3 

TC  BLANKET 

TC  FNDOFJOP 


12992 


41  ,2017  04070  1 V16N56  VN  1656 


1 2 9°  5 REF 
12996 


SFTLCC  PINFAIL1 
BANK 


1 30' 
1331 
13f>2 
130  3 
1 3.14 
1 3 CS 
1 306 
13  07 
1308 
1 339 

1310 

1311 

1312 

1313 


REF  5 LAST  210 

REF  42  LAST  295 

RFF  9 LAST  302 

RFF  1 


P EF  1 


40  ,2000 
4 C , 2001 
40,2002 

. . 

4 C,  2004 
. ,2005 
AO , 2006 

• , 

4L  ,20  10 

AC, 2011 

40. 2012 

40.2013 
AO, 20  1 A 
40  ,2015 


0 0006  1 
- CC36  1 
52  155  1 
0 6051  0 
77624  1 
46065  0 
0GCC1  0 
1 4C  C 7 0 
06520  0 
24011  1 
Of  007  0 
77656  1 
COOC7  0 
77641  1 


STORE 

STODL 


STCVL 


UNIT 

STORE 

DOT 


CDUT 
MPAC 
I NT  PR  FT 

RRNBMPAC 

3D 

6D 

HI6ZER0S 

BD 

60 

6D 


GET  RR  LOS  I N BODY  AXI  S. 
UNIT  I OS 


UNIT  OF  LOS  PROJ  IN  X-Z  PLANE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


EXTFNOFO  VERBS 


1 3 1 A 

REF 

3 

LAST 

37 

AC,  2016 

C 6 5 1 2 

1 

UNI  T7 

1315 

PCF 

1 

AO  ,2017 

2A0  21 

1 

STOVL 

COSTH 

1316 

REF 

3 

LA  ST 

37 

AO , 2020 

06516 

0 

UNITX 

1317 

AO , 20  2 1 

7 7 F A 1 

1 

DOT 

13l« 

AO  ,2322 

C0007 

0 

60 

131Q 

R EF 

1 

AO, 2023 

3AC23 

1 

STCALL 

S 1 NT  H 

132:. 

REF 

1 

AO,  20  2a 

A7  3 1 6 

0 

A R C TP  I G 

1321 

AO  ,2025 

A32AA 

1 

BPL 

OAD 

1322 

AO, 2026 

60C30 

1 

+ 2 

1323 

REF 

1 

AG,  20  27 

06  526 

c 

3PP0SMAX 

132A 

REF 

1 

AO  ,2 030 

2617A 

1 

STOVL 

RR-EL  EV 

1325 

AO, 2031 

cccci 

0 

OD 

1326 

AO  ,2032 

776A1 

1 

DOT 

1327 

RFF 

2 

LAST 

37 

AO, 2033 

06  51A 

1 

UNITY 

1328 

REF 

2 

LAST 

30  5 

AO,  20  3a 

2AC  2 3 

0 

STO  VL 

SI  NTH 

1329 

AO  ,2035 

00001 

0 

OD 

1330 

AC, 2036 

7 7 f A 1 

1 

DOT 

1331 

AO, 20 37 

00007 

0 

60 

1332 

REF 

2 

LAST 

305 

AO ,2  DAO 

3A021 

0 

STCALL 

COSTH 

1333 

REF 

2 

L AST 

30  5 

AO, 20 A 1 

A 73 1 6 

0 

ARCTRIG 

133A 

A0.20A2 

A32AA 

1 

BPL 

DAD 

1 335 

AO  ,2  0A3 

6C0A5 

0 

♦2 

1336 

REF 

2 

L AST 

305 

A 0 , 20  A A 

06526 

0 

DPPOSMAX 

1337 

REF 

A 

LAST 

30A 

AO  ,2045 

02172 

1 

STORE 

RR-A7 

1338 

AO , 20A6 

77776 

1 

EXIT 

1336 

REF 

3 

LAST 

276 

AO,  20A7 

3 A777 

1 

CA 

1 SEC 

1 3AO 

REF 

55 

LAST 

3CA 

AO  ,2050 

C A616 

1 

TC 

BANKCALL 

13A1 

REF 

7 

1 AST 

28  A 

AO,  2051 

01736 

1 

C ADR 

DE  LAY  JCB 

1 3A2 

REF 

16 

L AS  T 

26  1 

AO , 2052 

3 A7A7 

1 

r a 

3 I T 5 

1 3A  3 

RFF 

7 

LAST 

269 

AO, 2 053 

7 1 0A3 

0 

MASK 

EXTV  BACT 

1 3 AA 

REF 

86 

L AST 

300 

AO, 2054 

10  000 

0 

CC  S 

A 

13A5 

REF 

2 

LAST 

30  A 

AO  ,2055 

0 2000 

0 

TC 

RRLOSDSP 

1 3A6 

R EF 

2A 

LA  ST 

301 

AO, 2056 

C 55C3 

1 

TC 

ENDEXT 
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USER  *S  PAGE  NO.  38  E A S A 

160 

18  0 

INSURE  DISPLAY  OF  0 - 360  OEG. 
INTRODUCES  AN  ERROR  CF  B-28  REVS. 


INSURE  DISPLAY  OF  0^360  DEG. 
INTRODUCES  AN  ERPCR  OF  H-28  REVS. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  8V  ZOROASTER 

l P!  NBALL  NCUN  T APL  ES 

’1000  THE  F0L1  OWI NG  REFERS  TO  THE  NCLN  TABLES 


9:  12  OCT  . 21, 1970  ZERL 
USFR'  S PAGE  NC. 


ID  -001  PAGE  JU6 
1 ED  S9 


R-13?1  COMPONENT  CODE  NUMBER  INTERPRE  TA  TI DN 


lior? 
RID3? 
RlOOA 
1 1005 
R1D0S 
R 100  7 


ocnoc 

0000  l 

cool  0 

X 1XXX 
1XXXX 

END  CF  CCMFCNENT  CCCE  NUMBERS 


1 COMPONENT 
? COMPONENT 
3 COMPONENT 

B IT9  = 1 . CECI MAL  ONLY 
BITS  = 1.  NO  LOAD 


R 1008  SF  ROUTINE  CODE  NUMBER 


I ME  R PRE  TATI  ON 


Rl  OOQ 
1 1010 
R ID  11 
R 1 01 2 
1 1013 
Rl  D 19 
W 1015 
R 1016 
R 1 0 1 7 
1 10  IB 
R 1319 
R 1 0.2  C 
< 13  21 
R1022 
R 10?2  1 
R 10222 
R 1 022  3 
1 1022  9 
RID  22  5 
Rl  ',.22  6 
1 1023 


GOOCO  TCTAL  CNLY 

000C1  STRAIGHT  FRACTIONAL 

O0O1O  C Dll  DEGREES  (XXX.  XX) 

0001  l AR1THMET  IC  SF 

00  K'l  ARITHDP1  0 L T(  MLL  T B Y 2 E X PI  4 AT  END)  I N ( S T R A I G FT  1 

00101  ARITH  DP  2 OUT  ( ST.RA  IGHT  ) I NC  SL  7 AT  END) 

CCU  ' LANDING  RADAR  POSIT  ICN  UOOOOX) 

001 11  ARITH  DP  3 OUT  I SL  7 AT  END)  IN  ( STRAIGHT) 

OlOO^  WHOLE  HOURS  TN  R 1,  WFCLP  MINUTES  (MOD  60)  IN  R2, 

SECONDS  ( MCO  60)  OXX.XX  IN  R3  . ***  ALARMS  IF  USED  WITH  OCTAL 
0 100  l MINUTES  (MOD  60)  IN  0ID2,  03  BLANK,  SECONDS  (MOD  60)  IN  DA  D5 
LIMITS  TO  59  059  IF  MAG  EXCEEDS  THIS  VALUE. 

ALARMS  IF  USED  WITH  OCTAL  ********  IN  (ALARM) 

0 10  10  ARITH  OP  9 OUT  (S  TP  A IGHT)  IN  ( SL  3 AT  END) 

01  01  l ARITH1  SF  CUT  ( MULT  PY  2EXP19  AT  END)  IN  ( STR  A IGHT  ) 

0 1 100  2 INTEGERS  IN  D 10  2 , D9D5.  D3  BLANK. 

ALARMS  IF  USED  WITH  OCTAL  ********  IN  (ALARM) 
C11CI  360-CQU  DEGREES  (XXX. XX) 

01113  PR  RANGE  15  BIT  MAG  TO  DP,  THEN  SCAIE  *******  IN  (ALARM) 

01111  RR  RANGE  RATE  15  BIT  MAG  TO  DP,  THEN  SCALE  *******  IN  (ALARM) 

END  OF  SF  ROUTINF  CODE  NUMBERS 


Rl  329  SF  CONSTANT  CODE  NUMBER  INTERPRETATION 


< 1025  00000 

R1026 

Rl 0265  00000 

1 1027  00001 

Rl  3 28  00.0  10 

R 1029  00010 

R 10  30  0C011 

R 1 03 1 00 1<'0 

11032  C0101 

R 1 032  1 00  lr  l 


WHGLF  USE  ARITH 

OP  TIME  SEC  (XXX.  XX  SEC)  USE  APITHOPl 
LR  POSITION  (+0000X)  USE  LP  POSITION 

SPARE 

CDl  DEGPEES  USE  COU  DEGREES 

360  —CCU  DEGREES  USE  360-C  DU  DEGR  EF  S 

DP  DEGREES  (90)  XX. XXX  DEG  USE  AR  IT  HDP3 
DP  DEGREES  (360)  XXX. XX  OF  G USF  ARITHDP9 
CEGREES  (180)  XXX. XX  DEG  USE  ARITH 
OPTICAL  TRACKER  AZIMUTH  ANGLE  (XXX  .XX  DEG) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L PINBALI  NOUN  TABLES 
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U 322 
R 1 3 34 
R 1 0 3 5 
3 10351 
R 1 3 37 
R 10371 
R 10  3R 
Rl  03  9 
3 1040 
R 1 r 4 1 
R 1 042 
1 10  4 3 
Rl  344 
R 10  45 
RIO  46 
R1347 
l 1045 
R 1 04  9 
R 1 050 
3 1051 
R 1 ? 52 
R 1053 
R IP  54 
Rl  0 55 
3 1056 
R 1 057 
R 1 0 5 8 
3 1059 
R13SD 
R 1060  1 
R 106  1 
Rl36l(  1 
3 106102  1 1 001 
R106103  11010 
K 1 06 1 04  11011 
3 106105  11100 
Rl  36  106  11101 
R 106107*1111  0 
R 106 1C  8* 

P 1 062  FNO  OF  SF  CONSTANT  CODF  NUMBERS 


01000 

01001 

oioio 

cion 

onoo 

Olid 

oino 

oim 


100  i ) 


icon 


101C0 

i i - 

10110 

10111 

1 1000 


USE  ARITHDP1 

WEIGHT2  (XXXXX.  LBS)  USE  ARITHl 

POS  IT  ION 5 (XXX. XX  NAUTICAL  MILES) 

USE  ARITH0P3 

POSITION4  (XXXX.  X NAUTICAL  MILES) 

USE  AR  I THDP  3 

VF  L0C I T Y2  (XXXXX.  FT/SEC)  USE  ARITHDP4 

VEL  001  T Y 3 ( XXXX.  X FT/SEC)  USE  ARITHDP3 

ELEVATION  CEGREES  (89  .999MAX  ) USE  ARITH 
RENDEZVOUS  RADAR  RANGE  (XXX. XX  NAUT  MI) 
USE  RR  RANGE 

RENDEZVOUS  RADAR  RANGE  RAT E (X X XX  .X FT / S EC 
USE  RR  RANGE  RATE 

LANDING  RADAR  AL T I TU DE ( XX X X X . FEE T ) 

USE  ARITHDP1 

INITIAL  /FINAL  AL  TI  TUDt  ( XXXXX.  FEE  T) 

USE  AR  ITHDP  1 

ALTITUDE  RATE!  XXXXX.  FT/SFC)  USE  ARITH 

FORWARD/LATERAL  VELOCITY!  XXX  X X.  FE  E T/SEC  ) 
USE  AR  ITH 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

XXXXX  .DEG/SEC  USE  AR  I TH 

LANDING  RADAR  VF  Lx  ( XXX  X X . FE  ET/ S EC  ) 

USE  ARITHl)  Pi 

LANOING  RACAR  V EL Y ( XX X X X . FEET/ S EC  ) 

USE  ARITHDP1 

LANDING  RADAR  VELZ  ( XXXXX.  FEE  T/SEC  ) 

US  E AR  ITHDP  I 

P0SITI0N7  (XXXX.  X NAUT  MI)  USE  ARITHCP4 
TRIM  DEGPEES2  (XXX. XX  DEG  I USE  ARITH 
CCMPUTED  ALTITUDE  (XXXXX.  FEET) 

USE  A Rl  THDPl 

DP  DEGREES  (XXXX  .X  DEG) 

POST  TI0N9  ( XXXXX.  FT  ) 

VEL0CITY4  (XXXX.X  FT/SEC) 

RAC  I A NS  (XX. XXX  RACIANS) 

VEL0CITY5  (XXXX.X  FT/SEC) 

CCMPUTED  ALTITUDE  2 (XXXXX 


USE  ARITHPP3 

USE  ARITHDP3 
USE  A R I THPP2 
USE  AR  IT  HOP  4 
USE  ARITH0P3 
FEET  ) 

USE  ARITHDP3 


3 1063 
Rl  064 
R 1 065 
3 10  66 
R1067 


CCTAL  LCACS  PLACE  *0  INTO  MAJOR  0 ART  , DATA  INTO  MINOR  PART. 
OCTAL  DISPLAYS  SHOW  MINOR  PART  CNLY. 

TC  GET  AT  eOT  H MAJOR  AND  MINOR  PARTS  ( IN  OCTAL),  USE  NOUN  Ol. 


( IG6B  A NOUN  MAY  RF  DECLAPED  :OECINAL  CNLY:  BY  MAKING  BIT4=1  OF  ITS  COMPONENT 


SAP  : 
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PAGE 


308 


S:  12  o;  T.  2 1 » 1970  ZERLAI  0 .0C1 
L PINBALL  NOUN  TABLES  USER'S  PAGE  NO . 3 EO  S* 


1 r 5P  CODE  NU  V B F R • IF  THIS  NOUN  IS  USFO  WITH  ANY  DC  TAl  DISPLAY  VERB,  OR  IF 
Tl07o  DATA  IS  LOAPFO  IN  CCTAL,  IT  ALARMS. 


R 1 } 7 1 IN  LOADING  AN  : HOURS,  MINUTES,  SECONDS:  NOUN,  ALL  3 WORDS  MUST  BF 
0 1(  7?  LCAOFO,  CR  ALARM. 

<1  7T  ALARM  IF  AN  ATTEMPT  IS  MADE  TC  LOAD  :SPLIT  MI  MJT  FS  / S ECONDS : (MMRSS  ) . 

R1D7A  THIS  IS  USED  FOR  DISPLAY  ONLY. 


GAP:  ASSEMDLF  REVISION  56  GF  AGC  PRCGP  AM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  2 1 » 1970  ZERLAID 


001  PAGE 


30  9 


L PINBALL  NOUN  TABLES  USER'S  PAGE  MC.  4 EO  S4 

PK  75  THE  FCLLCWI NG  ROUTINES  ARE  FOR  REACING  THE  NOUN  TABLES  AM  0 THE  SF  TABLES 

R 10 76  (WHICH  ARE  IN  A SEPARATE  BANK  FRCP  THE  REST  OF  PINBALL).  THESE  READING 

R1U77  POUTINES  ARE  IN  THE  SAME  BANK  AS  THE  TABLES.  THEY  ARE  CALLED  BY  DXCH  Z. 


R 1 r 78  LODNNTAB  loads  nnadtep  with  the  nnadtab  ENTRY,  NNTYPTEM  WITH  THE 

R)  '79  NNTYPTA3  FNTRY.  IF  THE  N T UN  IS  MIXED,  IDAD1TEM  IS  LOADED  WITH  THE  FIRST 

R 1 080  IDAOOTAB  FNTRY,  I C AD2  T EM  T F E SECOND  I0ADDTA8  ENTRY,  IDAD3TEM  THE  THIRD 
* 10  8 l I DADD  TAB  ENTRY,  RUTMXTEM  WITH  THE  RUT  NX  T AB  ENTRY.  MIXBR  IS  SET  FOR 

R1D82  MIXFO  OR  NORMAL  NOUN. 


1200 

1200  2 RFF 
123  03 
12005  REF 

1201  REF 
1 2o?  RFF 
1203  RFF 
1 23  A REF 

1205  REF 

1206  REF 
1237  RFF 

1208  REF 

1209  RFF 

1210 

1211  REF 

1212  RFF 

1213  REF 
121 A REF 

1215  REF 

1216  REF 

1217  REF 

1218  REF 
1 2 1Q  RFF 
1223  REF 

1221  RFF 

1222  REF 

1223  RFF 
122A  PFF 

1225  RFF 

1226 

1227  RFF 

1228  REF 

1229  RFF 

1230  rff 


2 LA  ST 

1 

1 

3 LAST 
1 

1 

A LAST 
1 
1 

5 LAST 
l 


13  LAST 

1 

1 

1 1 L AST 

2 LAST 
6 LAST 
1 

1 

2 L AST 
2 l AST 

28  LAST 
87  L AST 

1 

1 

29  LAST 
2 L AST 
2 LAST 
1 


286 


•36  ,3271 
A2  ,2  000 
A2,  210  1 


27  3 


309 


30  9 


283 


28  7 


309 
30  9 


239 
309 
287 
30  5 


309 
30  9 
309 


A 2,  2 1 C 1 

A 2,  2 10 2 
42  ,2103 
A 2,  2 IGA 
A 2 ,2105 
A2  ,2106 

. - r 

A2  ,2110 
4 2,  2111 
A2, 2112 
42  ,211  3 
42,  2 1 14 
A2  ,2115 
42  ,211  6 
42,  2 1 17 
42  ,2120 
4 2,2121 
42,  212? 
42,2123 
42,  2124 
42  ,2125 
42,2126 
42,  2127 
42  ,2130 
42,2131 
42,  2132 

42.2133 

42. 2134 
42  ,2  135 
42  ,2136 


52  152  0 
51*001  1 
3 215?  0 
54  146  0 

5 1 '00  1 1 

3 2316  1 

1 4 7 1 

4 1001  0 
f 4771  1 
C 00C6  1 

6 2117  1 
3 4753  1 
54  1A0  0 
C 2135  1 

2 4752  0 
54  140  0 
51'CCl  1 

3 3C72  1 
54  153  1 
3 5C 1 2 1 

7 0146  0 
54  002  1 
5C  OCO  1 
3 2656  0 
54  150  1 
C 0006  1 

5 0002  0 
3 2660  0 
52  152  0 
52  006  0 


BANK  6 
SETLOC  PINBALL3 
BANK 

COUNT  * SS/NOUNS 

LODNNTAB  DXCH  IDAD2TEM  SAVE  RETURN  INFU  IN  IDAD2TEM,  IDAD3TEM. 

INDEX  NOUNRFG 
CAF  NNADTAB 
TS  NNADTEM 

INDEX  NDUNREG 
CAF  NNTYPTAB 
TS  NNTYPTEM 

CS  NDUNREG 

AD  MIXC-CN 

FXTEND 

BZMF  LODMIXNN  NOUN  NUMBER  G/E  FIRST  MIXED  NOUN 

CAF  ONE  NOUN  NUMBER  If  FIRST  MIXED  NOUN 

TS  MIXBR  NORMAL.  +1  INTO  MIXBR. 

TC  LODNLV 

LODMIXNN  CAF  TWO  MIXED.  *■ 2 INTO  MIX8R. 

TS  M 1XBR 

INDEX  NOUNREG 

CAF  3 UTMXTAB  -40D  FIRST  MIXED  NOUN  = 40. 

TS  RJTMXTEM 

CAF  LOwtO 
MASK  NNADTEM 
TS  Q 

INDEX  A 
CAF  IDADDTAB 
TS  IDAD1TEM 

E XTFNO 
INDEX  0 

OCA  IDADDTAB  *■ 

LODNLV  DXCH  I 0AD2TEM 
DXCH  Z 


LOAD  I DAD  IT  EM  WITH  FIRST  IOADDTAB  ENTRY 


LOAD  IDA02TEM  WITH  2ND  IDADDTAB  ENTRY 
LOAD  IDAD3TCM  WITH  3R0  IOACOTAB  ENTRY. 
PUT  RE  TURN  I NF  C I NTC  A,  L. 


1231 
1 12^2 


REF  2 LAST  227 
GTSFOLT  LOADS  SFTrppi 


4?7  1 M I XCDN  = 0CT50 

SFTEMF2  WITH  THE  DP  S FOUT  AB  ENTRIES. 


(DEC  40) 


1233  REF 


SFTEMP1 


2 X ( S FCONUV  ) ARRIVES  INSFTEMPl. 


42,  2137  52  124  1 GTSFOUT  DXCH 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  76  R LI NA  BY  ZCROAST6P 


L PINBALL  MCtIN  T Aei  ES 


12  35 

1236 

1237 

1238 


RFF 
F i F 
PFF 
REF 


88  L AST  3ng 
1 

2 LAST  309 
2 LAST  3f>9 


42,2140  C 0006  1 
42* 2141  5 COCO  1 

^2  ,2142  3 2561  1 

42,2143  52  124  1 

42,  2144  52  006  0 


SFCCM 


EXT  END 
INDEX  A 
OCA  SFOUTAB 
DXCH  SFTEMP1 
DXCH  7 


« 1239  GTSFIN  LOADS  SF  TEMPI,  SFTEMP2  WITH  THE  DP  SFINTAB  ENTRIES. 


lit, 

124? 

1243 

1244 


REF  3 1 AST  310 

RFF  89  IASI  310 
REF  1 
REF  1 


42, 2145  52  124  1 

42  * ? 1 46  r 0f06  1 
42,2147  5 OOOO  1 

42,  2 150  2 24 1 3 1 

42  ,2151  1 2143  1 


r.  T SF  I N 


DXCH  SET  EH  pi 

EXTEND 

INDEX  A 

DC  A SFINTAB 

TCF  SFCDM 


140  2 
1433 

1404 

1405  REF 
IVOS  REF 
1407  RTF 

1438  REF 
A 14081 

A 14082 

1439  REF 

1410  REF 

1411 

1412  REF 

1413  REF 
A14131 

1 4 1 4 PFF 

1415  REF 
A1415  1 

141  6 

1417  PEF 
1 4 1 8 

1419  REF 
1423 

1421  REF 

1422  REF 

1423  RFF 

1424 

1425  REF 

1426  PEF 
A 14261 

1427  REF 

1428  REF 


3 LAST 

4 LAST 
1 

l 


42,2  1 52  00000  1 

42.2153  40000  0 

42. 2154  40000  0 

42  ,2155  40000  0 

282  4 2 , ? 156  C1C44  0 

313  42,  2 157  01044  0 

42,2160  01143  0 

42,  2161  C10C2  1 


NNADTAR  OCT 
OCT 
OC  T 
OCT 
ECADR 
ECA33 
ECADR 
ECADR 


00000 

40000 

40000 

40000 

DSPTEM1 
3 SPTF  Ml 
OPT  1 ON  1 

X REG 


2 LAST  111  42,2162 

5 L A S 1 218  42  ,2163 

42,2164 

3 LAST  205  42,  2165 

7 LAST  282  42,2166 


01363  0 
00375  0 
77776  1 

03633  1 
01050  0 


ECAOR  ALMCAOP 
ECADR  FAILREG 
OCT  77776 

ECADR  TC  SI 
ECADR  OPT  I ONX 


3 LAST  205  42,2167  01774  l 

4 LAST  214  42  ,2170  01050  0 


ECADR  T2DH 
ECADR  DSPTEMX 


8 

10 


LAST  310 


LAST  261 
LAST  206 
LAST  287 

LAST  2«C 
LAST  310 


42  ,2  171  77777  0 

42.2172  01050  0 

42. 2173  00000  1 

42  ,21  74  02335  0 

42.2175  COOOO  1 

42.2176  00032  0 

42  ,2  1 77  00037  0 

42,  2200  00321  1 

42  ,2201  00000  l 

42,2202  C1C50  C 

42,  2203  01044  0 


OCT  77777 
ECADR  DSPTEMX 
OC  T 00000 
ECADR  FDA  IX 
OCT  00000 
ECADR  CDUX 
ECADR  PIPAX 
ECADR  THETAD 
OCT  00000 
ECADR  0SPTEM2 
ECADR  3SPTEM1 


6 LAST  310  42,2204  C1C44  0 
4 LAST  295  42,2205  01362  1 


ECADR  DSPTEM1 
ECADR  SMODE 
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USER' S PAGE  NT.  5 


f:  s 4 


2 X I S FCONU  M > ARRIVES  IN  SFTEMP  1 . 


NN  NORMAL  NOUNS 

00  Nn T IN  USE 

01  SPECIFY  MACHINE  ADDRESS  (FRACTIONAL) 

02  SPECIFY  MACHINE  ADORFSS  (WHOLE) 

03  SPECIFY  MACHINE  ADDRESS  (DEGREES) 

04  ANGULAR  EPROP/D  IFFFR  encf 

05  ANGULAR  EP R CR/ C I FF ER ENC E 

06  OPTION  CODE 

07  ECADR  OF  WORO  TO  BE  MODIFIED 
ONES  FOR  BITS  TC  BF  MODIFIED 

1 TO  SET  OR  0 TO  RESET  SELECTED  BITS 

08  ALARM  OATA 

09  ALARM  CODE  S 

I CHANNEL  TO  BE  SPECIFIED 

II  TIG  OF  CS1  (HRS, MIN, SEC  ) 

12  OPTION  CODE 

(USED  BY  EXTENDED  VFRBS  ONLY) 

13  TIG  OF  C PH  (HRS  , MI  N, SEC) 

14  CHECKLIST 

(US  FD  BY  EXT  ENDED  V ERBS  ONLY) 

15  INCREMENT  MACHINE  ADDRESS 

16  TIME  OF  EVENT  ( HR  S , M IN  , SEC  ) 

17  SPARE 

18  AUTO  MANEUVER  BALL  ANGLES 

1 9 SPARE 

20  I CD  U ANGLES 

21  P IPAS 

22  NEW  I CDU  ANGLES 

23  SPARE 

24  DELTA  TIME  FOP  AGC  CLOC  K ( HR  S,  M I N , SEC  ) 

25  CHECKLIST 

(USED  WITH  PLEASE  PERFORM  ONLY) 

2 6 PR  10/ DEL  AY,  ADR  ES  , BBCON 
27  SELF  TEST  ON/OFF  SWITCH 
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16?9 

H30 
16  31 
163? 
1633 
1636 

1635 

1636 

1637 

1638 

1 639 
1 663 
R166'  1 


REF 

REF 

REF 

RFF 

REF 

RFF 

RFF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


289 

310 
26  8 
280 
205 
209 


6 2 » 2 2C6 

■ 

62  ,2210 
62,  22  1 1 
62  ,2212 
62,2213 
62,  2216 
62  ,2215 
62, 2216 
62,2217 
62,2220 
62,  2221 


END  GF  NNACTAB  FQR  NORMAL  NOUNS 


C C 0 C D 1 
00000  l 
00000  1 

or  coo  1 

02133  1 
C 3661  0 
0 1066  0 
03653  0 
0CC26  1 
03635  1 
01516  1 
00000  1 


OCT 

OCT 

EC  A OR 

ECADR 

EG  ADR 

ECADR 

ECADR 

ECADR 

ECADR 

OCT 


00000 

00000 

0 

o 

- TP  FP 
TIC 

3 SPTEM1 
TTOGO 
T I ME2 
T TP  I 
T ET 
00000 


A 1 6602 
1661 
A 166  1 1 
A l 66  1 2 
1662 
A 16621 
1663 
A 16631 
A 1663? 
1666 
A 16661 
A l 666  2 
1 665 
A 16651 
A 1 665  2 
1665 
A 16661 
A 1 66  6 2 
166  7 
1668 
A 1 6 681 
1669 
A 1 66  5 1 
1 65C 
A 1650  1 
A16532 

1651 

1652 
Al 6 52  1 

16  53 
1656 
1 655 
A 1655  1 
A 1 658  2 
1 6 5B 


62,  2222  66000  0 


OC  T 66000 


62,2223  02003  0 

6 2,  2 2 26  26006  1 

62,  2225  26011  1 

66016 

62,2227  66017  0 


OCT  02003 

OCT  26006 

OCT  26011 

OCT  66016 

OCT  66017 


62  ,2230  00022  1 
62  ,2231  22025  0 


OCT  00022 
OCT  22025 


62  ,2232  22030 


OCT  22030 


62,  2233  26C33 


OCT  26033 


62  ,2236  00000  1 OCT  0 

62,2235  ? ? 06 1 1 OCT  ?2061 


62  ,2236  00066  1 

*■?»  !37  COCOO  1 


OCT  00066 
OCT  00000 
OCT  26052 


62,2261  26055  1 


OCT  26C55 
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28  SPARE 

29  SPARE 

30  SPARE 

31  SPARE 

32  TIME  TO  PERIGEE  (HRS, MI  N,  SEC) 

33  TIME  OF  IGNITION  ( HR  S,  M INI  SFC  > 

36  TIME  OF  FVENT  ( HRS  , M IN  ,S  EC  ) 

35  TIME  TO  GO  TO  EVENT  ( HR  S , MI  N , SEC  ) 

35  TIME  OF  AGC  CLOCK  ( HR  S , M IN,  SEC  ) 

37  TIG  OF  T PI  (HRS  , MI  N,  SEC) 

38  TIME  OF  STATE  BEING  INTEGRATED 

39  SPARE 


NN  MIXED  NOUNS 

60  TIME  TO  IGNITION/CUTOFF 
VG 

DELT  A V (ACCUMULATED  ) 

61  TARGET  AZIMUTH 

ELEVATION 

62  APOGEE 
PERIGEE 

OELTA  V (REQUIRED) 

63  LATITUDE 
LONG  I TUBE 
ALT  ITUDE 

66  APOGEE 
PER  I GFE 
TFF 

65  MARKS 

TTI  OF  NEXT  BURN 
MGA 

66  AUTOPILOT  CONFIGURATION 

67  l EM  WE IGHT 
CSM  WEIGHT 

68  GIMBAL  PITCH  TRIM 
GIMBAL  ROl  L TR  IM 

69  DELTA  R 
DELTA  V 

RADAR  DATA  SCUPCE  COOE 

50  SPARE 

51  S-BAND  ANTENNA  PITCH 

Y AW 

52  CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

53  SPARE 
56  RANGE 

RANGE  RATE 
THET  A 

55  NO.  OF  APSIDAL  CROSSINGS 


ZOROA  STE  R 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERL  IMA  BY 

L P I NR  A LI  NCUN  TABLES 


A145«  1 
A 1 4582 
1459 
AU5Q1 
I 46  ' 
1461 
A14A1  1 
4 1461 2 
14S2 
146  3 * 

4 1463  1 
A14632 
1 464 
A 1 464  1 
A 1 4 64  2 

1465 
A1 465  1 
A 146  52 

1466  * 
A 1 466  1 

A 14662 

1467 
A 1 467 1 
A 14672 

1468 

4 14681 

1470 
Al 4 70 1 

1471 
Al 471  1 
A14712 

1472  * 
A 1 472  1 

4 14722  * 

1473 
Al 4 73 1 
4 14732 

1474 

1475 

1476 
A 1 476  1 

1477 
A 14771 

1478 

4 14781 
A 1 478  2 

1479 

4 1479  l 
A 1 479  2 

1480 


42  ,2242  02060  0 


OCT  02060 


42  ,2243  OOOCD  1 
42, 2244  24066  1 


OCT  00000 
OCT  24066 


42,  2245  24C71  1 OCT  24C71 

42,2246  640740  OCT  64C74 


42  ,2247  64077  0 
42,2250  64102  0 


OCT  64077 

OCT  6410  2 


42,2251  64  105 


OCT 


54108 


42,  2252 


64110  0 


64110 


42,  2253 
42  ,2254 
42  ,2255 


24113  1 
62116  0 
04121  1 


OC  T 
OCT 
OCT 


2411  3 
52116 
04121 


42,2256  64124  1 


OCT 

OCT 


64124 


42,  2260 
42,  2261 
42  ,2262 

42  ,2263 

42,  2264 


04132  0 
04  135  1 
02140  0 

02143  0 

64  146  0 


OC  T 
OCT 
OCT 

OCT 

OC  T 


04132 
C 4 13  5 
0 2140 

02143 

64146 


42,  2265  641  51  0 


24154 
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ELEV  AT  ION  ANGLE 
CENTRAL  ANGLE 

56  RR  LOS  AZIMUTH 

ELFV  AT  ION 

57  SPARE 

58  PERIGEE  ALT 
DELTA  V TP  I 
DELTA  V TP F 

59  CELT  A VELOCITY  LOS 

60  FORWARD  VELOCITY  - L PD  ANGLE 
ALT  ITUDE  PATE 

COMPUTED  ALT  ITUDE 

61  TIME  TO  G3  IN  BRAKING  PHASE 
T IME  TO  IGN  IT  ION 

CROSS  RANGE  DISTANCE 

62  ABSOLUTE  VALUE  OF  VELOCITY 
T I PE  TQ  IGNIT  TCN 

DELTA  V (ACCUMULATED) 

63  LR  ALTITUDE  MINUS  COMPUTED  ALTITUDE 
ALTITUDE  RAT  E 

COMPUTED  AL  TI  TUDE 

64  TIME  LEFT  FOP  RFDES  I GNAT  IQN-LPD  ANGLE 
ALTI  TUDE  PATE 

COMPUTED  ALTITUDE 

65  SAMPLED  AGC  TIME  ( HRS , M IN, S EC ) 
(FETCHED  I N I NTFRRUPTI 

66  LR  RANGE 

POS IT  ION 

67  LRVX 
l RVY 
LRVZ 

68  SM  Z-AYIS  RANGE  TO  LANDING  SITE 
TIME  TO  GO  IN  E RAKING  PHASE 
ABSOLUTE  VALUE  CF  VELOCITY 

69  LANDING  SITE  CORRECTION,  Z-COMPONENT 

LANDING  SITE  CORRECTION,  Y -COMPUN  FNT 

LANDING  SITE  CORRECTION,  X-C  OMPGNE  NT 

70  AOT  DETENT  CODE/ STAR  CODE 

71  AOT  DETENT  CODE/STAR  CODE 

72  RR  360  - TRUNNION  ANGLE 

SHAFT  ANGIE 

73  NF  W RR  360  - TRUNNION  ANGLE 

SHAFT  AN  GIF 

74  TI  ME  TO  IGNIT  ION 
YAWAF  TER  VEHICLE  RI  SE 
PITCH  AFTER  VEHICLE  RISE 

75  DELTA  ALTITUDE  CDH 

DELTA  TIME  (CDH-CSI  OR  TPI-CDH) 

DELTA  TIME  (TPI-CCH  OR  TPI-NOMTPI) 

76  DESIRED  HORIZONTAL  VELOCITY 


ZOROASTER 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7 ERL  INI  A BY 

L PINBALL  NOUN  TABLES 


A1480  1 
A 1 4802 

1481 
A 1 4 8 1 1 

1482 
A 1 43  2 1 
414822 

1483 
A14R31 
4 14832 

1484 
Al4  84  1 

1485 

1486 

H87 

1488 
148  9 
1 490 
140  1 

A1491  1 

1492 

1493 

4 1 493 1 
4 14Q32 
1 494 
4 14941 
4 1494  2 
1 495 
4 14951 
A 1 495  2 
1 4 96 
4 1496  1 
A 1496? 

1497 

1498 
Al  4 98 1 
4 1498? 

1499 
1 500 
1501 
153  2 
1 5C3 

A 1 50  3 1 
415032 
1 1504 


42,2267  62157  C 

42.2270  64162  0 

42.2271  24165  0 


42  ,2272  02170  0 

42  ,2273  24173  1 

42,  2274  24176  1 

42,  2275  24201  1 

42  ,2276  24?  04  1 

42,  2277  24/C7  1 

42  ,2300  24212  0 

42 ,2301  02215  0 

42  ,2302  24220  l 

42,  2303  24223  l 


42,  2304  2 A 2 26  1 


42, 2305  04221  C 


42,  2306  04234  0 


42  ,2307  04237  l) 
42  ,23  10  64242  l 


42,  23  11  CCCOO  1 

42,  2312  OOCCO  1 

42  ,2313  04253  1 

42,  2314  C4256  1 

42  ,2315  24261  1 


END  OF  NNAO  TAB  FOR  MIXED  NCUNS 


OCT  62157 

OCT  64162 

OCT  24165 


OCT  02170 

OCT  24173 

OCT  2 4176 

OCT  2420 1 

OCT  24204 

OCT  242c  7 

OCT  24212 

OCT  02215 

OCT  24220 

OCT  2 4 223 


OCT  24226 


OCT  04231 

OCT  04234 


OCT  04237 
OCT  5424? 


OCT  0 

OCT  0 

OCT  : 4253 

OCT  C4256 

OCT  24261 


A133? 
1 801 
1802 


42,2116  OOCOO  1 NNTYPTAB  OCT 
42  ,231  7 04040  1 OCT 


00000 
3 40  40 


9:12  OCT.  21  ,1970  Z ER  LA  ID  .001  PAGE  313 
USER  *S  PAGE  NO.  8 E 0 S4 


77 

78 


79 


80 

81 

82 

83 

84 

85 

86 

87 

88 
89 


DESIRED  RADIAL  VELOCITY 
CROSS-RANGE  01  STANCE 
T IME  TO  ENGINE  CUTOFF 
VELOCITY  NORMAL  TO  C$M  PLANE 
RR  RANGE 

RANGE  RAT  E 
TI  ME  FROM  IGMTI  ON 
CURSOR  ANGLE 
SPIRAL  ANGLE 
POSI  TT  ON  C ODE 
DATA  INDICATOR 
OMEGA 

OELTA  V (LV) 

DELT  A V (LV  ) 

DELTA  V (BODY) 

DELTA  V (OTHER  VEHICLE) 

VG  (BODY  ) 

VS  ( LV) 

BACKUP  OPTICS  LOS  AZIMUTH 

EL  EVAT  ION 

HALF  UNIT  SUN  OR  PLANET  VECTOR 
LANDMARK  L AT  ITUOE 

LONG  I TUDG /2 
AL  TI TUDE 


90  Y 

Y DOT 
PS  I 

91  ALTITUDE 
VELOCI TY 

FLIGHT  PATH  ANGLE 

92  PC  T FTP(  1 C . 5 KLB  ) AT  PRESENT  THRUST 
ALTITUDE  RATE 

COMPUT  ED  ALT  ITUCE 

93  DELTA  GYRO  ANGLES 
9 4V  GX  ( ROD  Y ) 

ALTITUDE  RATE 
COMPUTED  AL  TI  TUDE 

95  SPARE 

96  SPARE 

97  SYSTEM  TEST  INPUTS 

98  SYSTEM  TEST  RESULTS 

99  RMS  IN  POSI  TI  ON 
RMS  IN  VELOCITY 
RMS  IN  BIAS 


NN  NORMAL  NOUNS 

00  NOT  IN  USE 

01  3C0MP  FRACTIONAL 


',AP:  ASSEMBLE  RF  VI  SI  ON  56  CF  AGC  PRCGPAM  ZFPl  INA  BY  ZOROASTER 

PINRAI.L  NOUN  TABLES 
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1803 
180  9 
1835 
1806 
1 PC  7 
1 808 
1809 


1812 
18  13 

1819 
1815 
1 81  6 
1817 
1318 
iRlo 

1820 
1921 
1822 
1823 
1 R?9 

1825 

1826 

1827 

1828 
1829 
l 830 

1831 

1832 

1833 
1939 
1 835 

1836 

1837 
1 838 
1839 
1 890 

< 18901 


92,2320  09190  0 

92  ,2  321  C91  0?  0 

92,  2322  005C9  0 

92  ,2323  00509  0 

92.2329  09CC0  0 

92,  2325  09000  0 

92,2326  09000  0 

92,  2327  C9CC0  0 

92.2330  OQGGC  1 

42.2331  24400  0 

42,  2 332  02CC0  0 

42  ,2333  24400  0 

42,2334  09140  0 

42,  2335  00000  1 

42  .2336  24400  0 

42, 2337  CCCCO  1 

42,2340  04102  0 

42,2  341  OOOOf  1 

42,  2 342  04  102  0 

42  ,2343  04140  0 

42  ,2344  04102  0 

42,  2345  COOCO  1 

42  ,2346  24400  0 

42,  2347  C4140  0 

42,2350  04000  0 

42  ,2351  00140  1 

42,  2352  COOCO  1 

42  ,2353  00000  1 

42.2354  COCCO  1 

42. 2355  OCOCO  1 

42  ,2356  24400  0 

42,  2357  24400  0 

42,2  360  24400  0 

42.2361  24400  0 

42. 2362  24400  0 

42  ,2363  24400  0 

42.2364  24400  C 

42.2365  00000  1 

END  OF  NN1YPTAB  FOR  NCRVAL  NCUNS 


OCT  0414C 

OCT  391C2 

OCT  GO  504 

OCT  00504 

OCT  D4G0O 

OC  T 04000 

OCT  D4000 

OCT  04000 

OCT  OOOGO 

OCT  244CC 

OCT  02000 

OCT  24400 

oct  r 4 1 40 

DC  T 00000 

OCT  24400 

OC  T 0 

OCT  C 4102 

OCT  00000 

OCT  09102 

OCT  04140 

OCT  04102 

DC  T 00000 

OCT  24400 

OCT  T4140 

OCT  04000 

OCT  00  140 

OCT  OOCGO 

OCT  00000 

oct  o 

DC  T 0 

OCT  24400 

OCT  24400 

OCT  24400 

OCT  2440C 

OCT  24400 

OCT  24400 

OCT  24400 

DC  T 00000 


02  3C0MP 

03  3CDMP 

04  1C0MP 

05  1C0MP 

06  3C0MP 
r>7  ^CCHP 

08  3C0MP 

09  3 COMP 
It  1C0MP 

11  3CDMP 

12  2 C C M P 

13  3C0MP 

14  3C0MP 

15  1C0MP 

16  3C0MP 

17 

18  3C0MP 
1° 

20  3C0MP 

21  3C0MP 

22  3C0MP 

23 

24  3C0MP 

25  3 COMP 

26  3C0MP 

27  1C0MP 

28 
2Q 

30  SPARE 

31  SPARF 

32  3C0MP 

33  3 COM P 

34  3C0MP 

35  3C0MP 

36  3 COMP 

37  3C0MP 

38  3CUMP 

39 


WHOLE 

C DU  DFGREFS 
DPDEG  (360  ) 
DPDEG  (360 
OCTAL  ONLY 
OCTAL  ONLY 
OCTAL  ONLY 
OCTAL  ONLY 
OCTAL  ONLY 
HMS  (DEC  ONLY  1 
OCTAL  ONLY 
HMS  ( DFC  CNLY) 
WFOL  E 
OCTAL  ONLY 
HMS  (DEC  ONLY) 
SP  AR  E 
CPU  DEG 
SPARE 

CCU  DEGREES 
WHOLE 

CDJ  CEGPEES 
SPARE 

HMS  (DEC  ONLY! 

rl  K1L  E 

OCTAL  ONLY 

WHOLE 

S PARE 

SPARE 


HMS  (DEC  ONLY) 
HMS  ( DFC  ONLY  ) 
HMS  (DFC  CNLY) 
HMS  (DEC  ONLY) 
HMS  (CEC  ONLY) 
HMS  (DEC  CNLY) 
HMS  ( DEC  ONL  Y ) 
SPARE 


A 1 4 43  2 

1841 

A 18411 

1842 

1843 

A 18431 
1 844 
A 18441 
1945 


42,2366  24500  1 

42,  2367  CO  5 4 2 1 

42  ,2370  24410  1 

4 2,  23  71  2020  4 0 

42, 2372  C0410  1 


OCT  24500 

OCT  00542 
OCT  24410 

OCT  20204 


NN  M IX  ED  NOUNS 

40  3C0MP  MI  N/  SEC  , VEL3,  V EL3 

(ND  LOAD,  DEC  ONLY) 

4 1 2 COMP  CDJ  DEG,  ELEV  DEG 

42  XOMP  POS 4 , P0S4,  VEL3 

(DEC  ONLY) 

43  3C0MP  DPDEG  (360  1 , CPDEG  (36D  1 , P0S4 

(DEC  ONLY) 

44  3 COMP  P0S4 » P0S4,  M IN/SEC 


00410 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 

L PINBALL  NOUN  TABLES 


A 19451 
1346 
Al846l 
1847 
19  48 
\ 1 0 A 8 1 

1849 
A18491 

1850 

418*0  l 
1 851 
1 B 5? 

A1  352  1 
1853 
18  54 
1 855 
A 18551 
1358 
A18581 
18  59 

1860 

A 18601 

1861 
M861  1 

1862 
41862  1 
1 863  * 

4 18631 
1964 
4 18641 

1865 
A1 8651 

1866  * 
A 1 366  1 * 

1 867 
4 18671 

1968 

1969 
A 1869  1 

1 870 
1P71  * 

A 1 87  1 1 

1872 

4 18721 

1873 

1874 

1875 

1876 

1877 
41877  1 


42f  2373  10G00  0 

42  ,2  3 74  00000  1 

42,  2375  C 0 3C  6 1 

42  ,2376  01367  1 

42  ,2377  00507  0 


OCT  10000 

OCT  C'OOOO 

OC  T 00306 

OCT  01367 

OCT  00  50  7 


, » 01  000  1 

42  ,2401  0C204  1 


OCT  0 

OCT  00204 


42  ,2402  00004  0 

42  ,2403  00000  1 

4 2t  240 4 10507  1 


OCT  00004 
OCT  00000 

OCT  10507 


42, 24C5  10200  1 


OCT  10200 


42  ,2406  00204  1 

42, 24C7  COOOO  1 

42  ,2410  24510  0 

42  ,2411  24512  1 

42,  24  12  75640  1 

42. 2413  54CC0  0 

42.2414  24012  1 

42  ,2415  60530  1 

42,  2416  60500  l 

42,  241  7 CCOOO  1 

, 

42,  2421  53223  1 

42  ,242?  24026  0 

42,  2423  61430  1 


OCT  00  20  4 

OCT  00000 

OCT  24510 

OCT  24512 

OCT  75640 

OCT  54000 

OCT  24012 

OCT  60  530 

OCT  60500 

OCT  00000 

OCT  00016 

OC  T 53223 

OCT  240  26 

OCT  61430 


42,  2424  COCCO  1 

42  ,2425  00000  1 

42,2426  101  1 i 

42,  2427  COl02  1 

42  ,2430  10200  1 


OC  T 0 

OCT  0 

OCT  00102 

OC  I 00102 

OCT  10  200 
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EO  S4 


48  2C0MP 

49  3C0MP 

50 

51  2C0MP 

52  1C0MP 

53 

54  3C0MP 

55  3 COMP 

56  2C0MP 

57 

58  3C0MP 

59  3C0MP 

60  3C0MP 

6 1 3 COMP 

62  3C0MP 

63  3C0MP 

64  3C.0MP 

65  3 COMP 

66  2C0MP 


69  3CQMP 

70  3 COMP 

71  3C0MP 

72  2C0MP 

73  2C0MP 

74  3C0MP 


0 POE  G ( 360) 


DPOEG (361  I 


(NO  LOAD,  DEC  ONLY) 

WHOLE,  M IN/  SEC,  DPDEG(360> 

(NO  LOAD,  DEC  ONLY) 

OCTAL  ONLY 
WEIGHT2  FCR  EACH 
(DFC  ONLY) 

TRIM  0EG2  FOR  EACH 
(DEC  CNLY) 

P0S5,  VEL3,  WHOLE 
( DEC  ONLY  ) 

SPARE 

DPDEG( 360) , 

(DEC  CNLY ) 

DPDEG  (360) 

SPAR  E 

PCS5,  V EL3  , 

(DEC  ONLY) 

WHOLE,  DP  DEG(  360  >,  DPDEG(  360> 
(DEC  CNLY) 

DPDEG(  360)  , D POE G ( 360) 

S PARE 
(DEC  ONLY) 

P0S4,  V EL  3,  VCL 
(DEC  ONLY) 

VEL  3 FOR  EACH 
( DFC  ONLY  ) 

2INT,  VEL5  , C CMP  ALT  2 
(DEC  ONLY) 

M IN/  SEC,  M IN/  S EC,  Pl)S7 
( NO  LCAD , DEC  ONLY) 

VEL  3,  M IN/SEC,  VEL  3 
( NO  LCAC,  CEC  ONLY ) 

COMP  ALT,  VEL3,  COMP  ALT 
(NO  L 0 AO,  DEC  ONLY) 

2 INT  , VF  L3  , C CMP  ALT 
(NO  LOAD,  DEC  ONLY) 

HMS  (CEC  ONLY  ) 

LANDING  RADAR  ALT,  POSITION 
(NO  LOAD,  DEC  ONLY) 

LANDING  RACAR  VEL  X , Y,  Z 
P0S7,  MI  N/SFC  , VEL3 
(NO  LOAD,  DEC  ONLY  ) 

COMP  ALT,  C CMP  ALT,  COMP  ALT 
(DEC  ONLY) 

OCTAL  ONLY  FOR  FACH 

OCTAL  CNLY  FCR  EACH 

360-CDU  DEG,  CDU  DEG 

3 60  -CCU  CEG,  CDII  DEG 

MIN/SFC  , DPqE§(360)  ,DPDEG(360) 

(NO  LOAD,  DEC  ONI  Y > 


GAP:  ASSFMRLE  REVISION  56  OF  A3C  PR  CGR A M ZERLINA  RY  ZCROAST  ER 

L PINBALL  NOUN  TABLES 


1878 
A1 378  1 
1 879 
\ 18701 
1 383 
A 18801 
18R1 
A 1 8 8 1 1 
1882 
418821 
1 883 

1884 
A1R34  1 

1885 
A 18851 

1 886 
4 18861 
I 887 
4 1 887  1 
1888 
A1999  1 
1 889 
A 1889  1 
1 890 
1 891 
A 1 99  1 2 
1892 
4 189?  1 
1 R 9 3 
4 18931 
1894 
1 895 
1896 
1397 
1 898 
1899 
1 930 

1901 

1902 
41902 1 
3 1 903 


42,2431  00010  0 

4 2,  2432  20512  0 

42. 2433  CC5C0  1 

42.2434  00654  0 

42  ,2435  00102  1 

42. 2436  C020C  0 

42.2437  24512  1 

42  ,2440  24512  1 

42,  244  1 24512  1 

42, 2442  24512  1 


42,2443  24512  1 


42,2444  24512  1 


42,  2445 
42  ,2446 

42,  2447 

42,  245C 


00 10  2 1 

OOOGO  1 

16143  0 
1C5C7  1 


42,2451  10450  1 

42,  2452  60500  1 

42  ,2453  06143  1 

42. 2454  6C512  1 

42.2455  00000  1 

4?  ,2456  00000  1 

42,  2457  COOOO  1 

. 

42,2461  71572  1 


ENO  OF  NNTYPTAR  FOR  NIXFD  NCUAS 


OCT  03010 

DC  T 20512 

OCT  00500 

OCT  00654 

OCT  DC1G2 

OCT  00200 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  0C102 

OCT  0 

OCT  16143 

OCT  1 05C7 

OCT  10450 

OC  T 60500 

OCT  06143 

OCT  60512 

OCT  0 

OCT  0 

OCT  00000 

OCT  COOOO 

OCT  71572 


2233 

22  c 1 
220? 
2233 
220  4 
220  5 
2206 


42. 2462 

42.2463 
42  ,2464 
42,  2465 
4?  ,2466 
42  ,2467 
42,  2470 


0CC06  1 
03240  1 
00000  1 
CCCCO  1 

ocoor  i 
COOOO  1 
1C7C7  0 


SF  INTAR 


OCT  03006 
OCT  03240 
OCT  00000 
OC  T COOOO 
OCT  00000 
OCT  33003 
OC  T 1 0707 
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USER'S  PAGE  NC.  11  E3  S4 


75  3C0MP 

76  3C0MP 

77  2 COMP 

78  3C0MP 

79  3C0MP 

80  2C0MP 

81  3CDMP 

82  3C0MP 

83  3C0MP 

84  3 COMP 

85  3C0MP 

86  3C0MP 

87  2C0MP 

88  3CDMP 

89  3C0MP 
9f.  3 COMP 

91  3C0MP 

92  3C0MP 

93  3CDMP 

94  3 COMP 

95 

96 

97  3 C OM  P 

98  3S0MP 

99  3C0MP 


PPS4,  MIN/SEC,  M1N/SEC 
(N3  LOAD,  OEC  ONLY  ) 

VEL3  , VEL3  , PCS4 
( OEC  ONLY) 

MIN/SEC,  V EL  3 

(NO  LOAD,  DEC  ONLY) 

RR  RANGE,  RP  RANGE  3 A TF  , M/S 
(NO  LCAC,  CFC  ONLY ) 

CDU  DEG,  CD  U DEG,  WHOLE 
( DEC  ONI Y ) 

WHOLE,  DPDEG  (361  ) 

VFL 3 FOR  EACH 
( DEC  CNLY  ) 

VEL3  FOR  EACH 
(CEC  ONLY) 

V FL3  FOR  EACH 
( DEC  ONLY) 

VFL  3 FOR  EACH 
(DFC  CNLY) 

VEL  3 FOR  EACH 
(DEC  CNLY  ) 

VFL3  FOR  EACH 
(DEC  ONLY) 

CDU  DEG  FOR  EACH 
FRAC  FOR  EACH 
(DEC  ONLY ) 

DPDEGI90),  DPDEG  (93  ) , P0S5 
(DEC  ONLY) 

PCS 5 , V EL3,  CPDFG<  360 ) 

(DFC  ONLY) 

POS  4,  VEL  2,  OPDEG(  360) 

WHOLE,  V EL3 , COMP  ALT 
DPDEG ( 90)  FOR  EACH 

V EL  3 , V EL  3,  COMP  ALT 
SPARE 

SPAR  E 

WHOLE  FOR  EACF 
WHOLE,  FRAC,  WHOLE 
POS  9 , V EL  4,  RADIANS 
(DEC  ONLY) 


WHOLE,  DP  T IME  (S  EC  ) 
SPARE 


CDU  DEGREES,  360-CDU  DEGREES 
(SFCONS  IN  DEGINSFJ 
DP  DEGREES  (90) 


GAP: 


ASS  EMBLE 
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L PI  NR  All  NCUN  TABLES 


USER'S  PAGE  NC-.  12  EO  S4 


220  7 

42,2471 

C3435 

0 

OCT 

03435 

UPPEO  BY  1 

2 2 08 

42,  2472 

130  70 

1 

OC  T 

13070 

OP  DEGREES  (360HP0INT  eETWN  BITS 

2209 

42,2473 

34345 

1 

OCT 

34345 

UPPED  BY  l 

2210 

42,  2474 

C0CC5 

1 

OC  T 

00005 

OEGREES  <180  ) 

2211 

42,2475 

21616 

0 

OCT 

21616 

2212 

42  ,2476 

26113 

0 

OCT 

26  113 

WEIGHT2 

2213 

42,  2477 

31713 

0 

OCT 

31  713 

2214 

42  ,2500 

00070 

0 

OCT 

00070 

POSI  TI  ON 5 

2215 

42  ,2501 

20460 

1 

OCT 

20460 

221  fo 

42,  2502 

0 1C  6 5 

0 

OC  T 

01  065 

P0S1TI0N4 

2217 

42  ,2503 

05740 

1 

OCT 

05740 

2218 

42, 25C4 

11414 

0 

OCT 

11414 

V EL  OC  IT  Y 2 (POINT  BFTWN  BITS 

2219 

42,  2505 

31463 

1 

OCT 

31463 

2220 

42  ,2506 

07475 

0 

OCT 

07475 

VELOC  ITY3 

2221 

42, 25C7 

1605  1 

1 

OCT 

1 6051 

2222 

42  ,2  510 

0000  1 

0 

OCT 

oocoi 

ELE  VA  TI  ON  DEGREES 

2223 

42  ,251  1 

03434 

1 

OCT 

03434 

2224 

42,  25  12 

00047 

1 

OC  T 

00047 

RE  NOF  ZV  CUS  RADAR  RANGE 

2225 

42  ,2513 

21135 

0 

OCT 

21135 

2226 

42, 2514 

77766 

0 

OCT 

77766 

RENDEZVOUS  RADAR  RANGE  RATE 

2 22  7 

42,  2515 

5G711 

0 

OC  T 

50711 

2228 

42  ,251  6 

00005 

l 

2 DEC* 

.9267840599  E5 

R-  28  * LANDING  RAPAP  ALTITUDE 

2220 

42, 2517 

25CC6 

0 

2230 

42,  2520 

00C02 

0 

OCT 

0000? 

INITIAL/FINAL  ALTITUDE 

2231 

42,2521 

23224 

1 

OCT 

23224 

2232 

42,  2522 

COG  14 

1 

OCT 

00014 

ALTITUDE  RATE 

2233 

42  ,2523 

06500 

1 

OCT 

06500 

2235 

42,2524 

00001 

0 

2 DEC* 

1 .79500987  E4 

B' 

-28  * FORWAPD/L  ATtRAl  VELOCITY 

2235 

42,  2525 

02c36 

1 

2236 

42  ,2526 

04256 

1 

OCT 

04256 

ROT  HAND  CONT  ANGLE  RATE 

2237 

42,  2 527 

C 7C71 

0 

OCT 

07071 

223r 

42,  2530 

77766 

0 

2DEC* 

- 1.  552795030 

E 5 

R-28  * LANDING  PA  OAR  VF  LX 

2238 

42  ,2531 

60557 

0 

2240 

42,  2532 

CCCC5 

1 

2DEC* 

. 825C825087 

E5 

6-28  * LANDING  RADAR  V FLY 

224C 

42  ,2533 

01114 

1 

2242 

42  ,2534 

00007 

0 

2 DEC* 

1 .153668673 

F5 

B-28  * LANDING  RADAR  VFLZ 

2242 

42,  25  35 

01247 

1 

2244 

42  ,2536 

04324 

0 

OCT 

04324 

POSI  TI3N7 

2245 

42,  2 5 37 

276CC 

1 

OCT 

27600 

2246 

42,  2540 

00036 

1 

OC  T 

(0036 

TRIM  0EGREFS2 

2247 

42  ,2541 

2 0440 

0 

OCT 

20440 

2248 

42,  2542 

00C35 

1 

OC  T 

00035 

COMPUTED  ALTITUDE 

2240 

42  ,2543 

30400 

0 

OCT 

30400 

2250 

42  ,2544 

23420 

0 

OCT 

23420 

DP  DEGREES 

2251 

42,  2545 

oocco 

1 

OCT 

ooooo 

2252 

42  ,2  546 

0 1670 

1 

2DEC 

3 048  C B-  19 

POSITION  9 

2252 

42,2547 

2CCC0 

0 

2253 

42,  2550 

07  47  5 

0 

2DPC 

30.48  B-7 

VEL0CITY4 

2253 

42,2551 

16051 

1 

2254 

42,  2552 

14400 

0 

2DEC 

100  B-8 

RACI ANS 

2254 

42,  2553 

00000 

1 

11-12  ) 


11-  12) 


GAP:  ASSEMBLE 


REV  IS  IUN  56  OF  AGC  PROGRAM  ZERL  IMA  BY  Z0  = 
PINBALL  NOUN  TABLES 


2256 
2266 
A 2290 


42,  2554 

42.2555 

42.2556 
42,  2557 


36365  1 
30244  0 
35610  0 
GOOOO  1 


2300 

2301 

2302 
233  3 
236  4 


230  5 
2336 
2307 
230  A 
23(9 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 
23?r 

2321 

2322 

2323 

2324 

2325 

2326 


2328 

2339 

2331 

2332 
23  3 3 


2334 

2334 

2 3.36 

2337 
2330 

2338 
2340 
2343 
2342 
2342 


42,2560 
42,  256  1 
42  ,2562 
4?,  2563 
42,  2564 
42  ,2565 
42,  2566 
42  ,2567 
42  ,2  5 70 
42,  2571 
42  ,2572 
42,  257  3 
42,  2574 
42  ,2575 
42,  2576 
42  ,2577 
42  ,2600 
42,  2601 
42  ,2602 
, 

42,  2604 
42  ,2605 
42,  26C6 
42  ,2607 
42  ,261  0 
42,  261  1 
42  ,2612 
42, 2613 

42  ,2615 
42,  26  16 
42  ,2617 
4?  ,2620 
4 2,  26  21 
42  ,2622 
42,  2623 
4 2,  26  2 4 
42  ,2625 
42,  2626 
42  ,2627 
42,2630 
42,  2fc  3 1 
42  ,2632 
42,  2623 


00000  1 
COOCO  1 
00000  1 
00000  1 
C C 7 1 4 0 
31463  1 
13412  1 
07534  1 
05605  1 
C3656  1 
0OC01  0 
16170  0 
C 04  4 1 0 

34306  0 
07176  0 
21603  1 

15340  1 
15340  1 
01C31  1 
21032  0 
34631  1 
23146  0 
00636  1 
14552  C 
74552  0 
7C3C7  1 
C5520  0 
15312  0 
14226  1 
31757  0 
02476  0 
0 5531  i 
351  52  1 
21203  0 
000C7  0 
13  734  0 
74477  C 
50643  0 
06265  0 
16004  1 
04426  0 
21433  1 


SFOUTAB 
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USER  'S  PAGE  NO.  13  EC  S4 


2DEC 

.3048 

E2  B-5 

V EL  OC  IT  Y 5 

2 DEC 

.3048 

E5  B-15 

COMPUTED  ALTITUDE  2 

END  OF  SFINTAR 

OCT 

05174 

WHOLE,  OP  T IME  (SEC  ) 

OC  T 

13261 

OCT 

00000 

SPARE 

OCT 

00000 

oct 

00000 

COU  DEGREFS,  ^60-CDU  DEGREES 

OCT 

00000 

(SFCONS  IN  OEGOUTSF  , 36C-CDU0) 

OC  T 

00714 

CP  DEGREES  (90)  (POINT  RETWN  BITS 

7-8) 

OCT 

31463 

OCT 

13412 

DP  DEGREES  (360) 

OC  T 

07534 

OCT 

05605 

OEGREE  S (180) 

OCT 

03656 

OC  T 

00001 

WF1  GHT2 

OCT 

16  170 

OCT 

00441 

POS IT  1 0N5 

OCT 

343C6 

OCT 

07176 

POS  IT  I0N4  (POINT  RETWN  BITS 

7-  8) 

OC  T 

21603 

OCT 

15  340 

VELOCI TY2 

OCT 

1 5340 

o:t 

01031 

VEL0CITY3  (PCINT  BET WN  BITS 

7-R  ) 

OCT 

21032 

OC  T 

34631 

ELEVATION  CEGREFS 

OCT 

23146 

OCT 

00636 

RENDEZVOUS  RADAR  RANGE 

OC  T 

14552 

OCT 

74552 

RENDEZVOUS  RADAR  RANGE  RATE 

OCT 

70307 

20EC 

1 . 079 

F-5  814 

LANDING  R AD  AR  ALTITUDE 

OC  T 

14226 

INITIAL/ FINAL  ALTITUDE 

OCT 

31757 

OCT 

02476 

ALT  ITUDE  RATE 

OC  T 

05531 

2 DEC 

5 .571 

E-5  B 14 

FnRWARD/lATF^AL  VELOCITY 

OC  T 

00007 

ROT  HANO  CONT  ANGLE  RATE 

OCT 

13734 

20EC 

-. 6440 

E-5  Bl  4 

LANDING  RAOAR  VELX 

2 DEC 

1 .212 

F-5  B]  4 

LANDING  RADAR  VEI  Y 

2 DEC 

.8668 

F-5  B 1 4 

LANDING  RADA*  VELZ 

GAP: 

ASSEMBLE 

REVISION  56  OF  A3C  PROGRAM  ZERLINA 

BY  ZOROASTER 

L 

P INB  ALL 

NOUN  TABLES 

2 344 

42  ,2634 

34772  1 

OCT 

34772 

2345 

42,  2(35 

C7C16  1 

OCT 

37016 

2346 

4 2,  26  36 

01C30  0 

OC  T 

01030 

2347 

42  ,2637 

33675  0 

OCT 

33675 

23  AH 

4 2,  26  40 

CIC46  1 

OCT 

Cl  046 

2 349 

42  ,2641 

15700  1 

OCT 

1 5700 

2350 

4?  ,2642 

00321  1 

OCT 

00321 

2351 

42,  2643 

267C6  1 

OCT 

26706 

2352 

42  ,2644 

04231  0 

2 DEC 

17  .20  10499  [ 

2352 

42,  2(46 

274C0  0 

2353 

42,  2646 

01031  1 

2D  EC 

. 032808369 

23 

4?  ,2647 

2354 

42,  26  5 C 

12172  0 

2DEC~*" 

2354 

42  ,2661 

34  122  1 

_ — ■ — 

2355 

42,2652 

00206  0 

V 2 DEC* 

3 .280839896 

2355 

42,  2653 

142C6  0 

2356 

42  ,2654 

00211  0 

2 DEC* 

3 . 280  H 39  8Q  6 

2356 

* 

42,  ?(  55 

23360  0 

A2  3 90 

A 2400 

24)1 

PEE 

o 

L AST 

311 

42,  2656 

03«53 

0 

IDADDTAR  ECADR 

T TOGO 

2402 

PEF 

1 

42  ,2657 

03663 

1 

ECADR 

V GD  ISP 

240  3 

REF 

3 

LAST 

20  7 

42,2660 

C35C7 

0 

ECADR 

DVTGTAL 

2 404 

PEF 

8 

LAST 

31  1 

42,  266  1 

0 1044 

0 

ECADR 

) SPTE  Ml 

2405 

REF 

9 

LAST 

319 

42  ,2662 

01045 

1 

FC  ADR 

DSPTEM1  +1 

74)6 

42,  2663 

OOCCO 

1 

OCT 

0 

2407 

RFF 

3 

LAST 

288 

42,7664 

023C7 

1 

ECADR 

HAPO 

240  8 

RFF 

1 

42  ,2665 

02311 

0 

ECADR 

HP  F.R 

?409 

PEF 

3 

L AST 

319 

42, 2666 

03663 

1 

ECADR 

VGD  I SP 

2410 

RFF 

2 

LAST 

106 

42  ,2667 

01117 

1 

ECADR 

L AT 

241 1 

RFF 

2 

LAST 

10  fc 

42,267C 

01121 

1 

ECADR 

L ONG 

2 412 

REF 

2 

LAST 

1)6 

42,  267  1 

01123 

0 

ECADR 

ALT 

2413 

PEF 

2 

LAST 

117 

42  ,267 ? 

02112 

1 

ECADR 

HAPOX 

2 A 1 4 

REF 

1 

42,  2673 

02114 

1 

ECADR 

H PE  R X 

241? 

RFF 

2 

LAST 

118 

42,2674 

02131 

0 

EC  ADR 

TFF 

2416 

RFF 

6 

LA  ST 

24  8 

42 ,2675 

03462 

1 

ECADR 

T RKMKCNT 

2 A 1 7 

REF 

1( 

L AST 

3 1 Q 

42,  2676 

03453 

0 

ECADR 

TTOGO 

2418 

RFF 

1 

42  ,2677 

C 2243 

0 

ECADR 

+MGA 

2419 

REF 

10 

LAST 

29  8 

42.27CC 

C 1 340 

1 

ECADR 

DA  PDAT  R1 

242c 

42, 2701 

OOCOO 

1 

DC  T 

0 

2421 

42  ,2  7C2 

00000 

1 

OCT 

0 

?42? 

REF 

n 

1 AST 

100 

47,  27C3 

01326 

1 

FCADR 

LFMMASS 

2423 

RFF 

10 

LAST 

300 

42,2704 

01327 

0 

FC  ADR 

CSMMASS 

2424 

47  ,2  705 

00000 

1 

GCT 

0 

2425 

REF 

1 

42,  7706 

03002 

0 

ECADR 

PI  TTI  ME 

2426 

RFF 

2 

LAST 

301 

42  ,2707 

03001 

0 

ECADR 

ROLLT  IMF 

2427 

42,2710 

CCCCO 

1 

OCT 

0 
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USER'S  PAGE  NC.  14  60  S4 

POSI  TI  DM  7 
TRIM  DEGREES2 
COMPUTED  ALTITUDE 
DP  DEGREES 
5.-7  POSITION  9 
VELOCI  TY4 


E-2  B-2  * 


F - 5 B 8 * 

END  OF 


VELOCITY5 
COMPUTED  ALTITUDE 
SFOUTAB 


2 


NN  SF  CONSTANT 


SF  ROUTINE 


AO  MIN/SEC  M/S 

AO  VEL3  DP3 

40  V EL  3 DP  3 

A 1 CDU  DEG  CDJ 

A 1 FL  EV  DEG  ARTH 

Al  SPARE  COMPONENT 

A2  POSA  DP3 

42  POSA  DP  3 

42  VEL3  DP  3 

43  DPDEG  ( 360)  D PA 

43  DPDEGI360)  DP* 

43  POSA  DP3 

44  PDS4  ()P3 

AA  POSA  DP  3 

44  MIN/SEC  M/S 

45  WHOLE  ARTH 

45  MIN/SFC  M/S 

45  DPDEG  ( 360)  D PA 

46  OCTAL  ONLY  QCT 

46  SPARF  COMPONENT 

46  SPARE  COMPONENT 

A 7 WEIGHT2  ARTHl 

47  WEIGHT2  ARTHl 

47  SPARE  COMPONENT 

A8  TRIM  DEG2  ARTH 

48  TRIM  DEG  2 ARTH 

48  SPARE  COMPONENT 


GAP: 


iSSF.MBLfc  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCAST  ER 


L PINBALL  NOUN  T ABl  ES 


2428  REF 

2429  PEF 

2430  PEF 
7431 

2432 

2433 

2484  REF 

2435  REF 

2436 

2437  PFF 

2438 

2430 

2443 

2441 

2442 

2443  REF 

2444  PFF 

2445  PEF 

2446  REF 
244  7 PFF 
2448  PEF 
2446  REF 

2450  REF 

2451 

2452 

2453 
24  54 

2455  PFF 

2454  REF 

2457  RFF 

2458  REF 

2450  REF 
2460  PFF 
2 461  X'Rf.F 
2462  * REF 

246  3 *R  EF 

2464  RFF 

2465  REF 

2466  REF 

2467  RFF 

2468  REF 

2469  REF 

2470  * REF 

2471  REF 

2472  * R EF 

2473  REF 

2474  REF 

2475  REF 

2476  PEF 

2477  REF 


2 

2 

1 

2 


2 

5 

2 


4 
7 
1 
2 
3 

5 
2 
2 
2 

11 

2 

2 

12 


3 
2 
6 

4 
3 
2 


LAST  320 
LAST  Hi 


I A ST  285 
LAST  120 


L AST  1 1 8 
LAST  118 

LAST  2p  5 
LAST  265 
LAST  2<.  5 
LAST  3 Ci  5 
LAST  305 


LAST  145 
I.  AST  145 
LAST  205 

LAST  320 
LAST  320 
LAST  164 
LAST  I65 
LAST  156 
LAST  151 
LAST  319 
LAST  126 
L AS  T 15  1 
LAST  3 20 
LAST  319 
LAST  2D  7 
LAST  151 
LAST  151 
LAST  320 
LAST  320 
LAST  320 
LAST  214 
LAST  320 


42  ,?7l  1 

42. 2712 

42.2713 
42  ,2714 
42, 2715 
42  ,2716 
42,27  17 
42,  2720 
42,2721 
42,  2722 
42,2  723 
47  ,2  724 
42, 2725 
42  ,2726 
42,2727 
42,  2730 
42,3731 
42,  2732 

■ 

42 ,2734 
42,  2735 

42 .2736 

47.2737 
4 274 
42  ,2741 
42, 7742 
42, 2 74  3 
42  ,2744 
42,  2745 
4?  ,2746 
42,2747 
42,  2750 
42,2751 
42,  7 7 6 2 
42,2753 
42  ,7  754 
42, 2755 
42  ,2756 

• 

42,  2760 
42  ,2761 
42,  2762 
42,2763 
42  ,2764 
42, 2765 
42  ,2766 
47,2767 
42,  2770 
42  ,2771 
42, 2772 


G 1353  0 
00000  1 
COGOO  1 
00000  1 
02171  1 
02173  0 
COOOO  1 
C l 7 53  1 
00000  1 
00000  1 
COOOO  1 
00000  1 
OOGCO  1 

0221?  0 

02215  0 
G7217  1 
03466  0 
02247  1 
03620  0 
02171  1 
C2173  0 
OOOOO  1 
00000  1 
CCOOO  1 
OOOOO  1 
03605  1 
03675  0 
02340  l 
02273  0 
02275  0 
02277  1 
C 3666  1 
03734  1 
03736  O 
03475  1 
0 3453  0 
C2602  1 
0-34  7 1 0 
03453  0 
035C7  0 
03664  0 
03473  1 
03632  0 
C 3666  1 
C 34  73  1 
03632  0 
00013  0 
00013  0 


ECAOR  R 220  ISP 
EC  ADR  R22DISP  +2 
ECAOR  WHCHREAD 

OCT  0 
OCT  0 

OCT  0 
ECAOR  ALPHAS  B 
EC  AO?  BETA  SB 
OCT  0 
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80  ARTH,  OP  8 

8 1 0P3 , 0P3,  ORB  < 
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PAGE 


. 00 1 
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L PINBALL  NOUN  TABLES 


USER'  S PAGE  NO.  L9 


2893 
2899 
? 895 
2896 
? 397 
7898 
2899 

2850 

2851 
2952 
2853 
7859 

2855  ♦ 

2856 

2857 

2858 
2850 
?960 

K 2 870  FNO  CF  RUT  MX  T AB 


92,3219  16397  0 OCT 

92,  3215  16397  0 OCT 

92.3216  16397  0 OCT 

97.3217  16397  0 OCT 

9 2,  322 Q 16397  0 OCT 

92  ,3221  00107  l OCT 

92,3222  C2C91  0 OCT 

92,  3223  10397  0 DC  T 

92,3229  29399  1 OCT 

92,  3225  295C7  0 OCT 

92.3226  10393  1 OCT 

97.3227  16397  0 OCT 

92,  3230  10397  0 OCT 

92  ,3231  00000  1 OCT 

92,3222  OOCCO  1 CCT 

92,  3233  06  193  1 DC  T 

92,3239  06093  0 OCT 

92,  3235  29297  0 OCT 


16397  82  OP  3,  0P3,  OP  3 

16397  83  OPJ,  0P3 , 0P3 

16397  89  0P3 , 0 P3 , 0 P3 

16397  85  DP  3,  OP  3,  OP  3 

16397  06  DP3,  0P3  , 0P3 

00102  87  COU,  cnu 

37091  88  FRAC  FOR  FACE 

10397  89  DP3,  0P3  , 0P1 

29  399  90  DPI,  OP  3,  OP  9 

29507  9 1 DP3 , 0P9 , 0P9 

10393  92  ARTH  , DP3  , 0 PI 

16397  93  DR  3,  0P3,  OP  3 

10397  99  DP3  , 0P3  , DPI 

0 95  SPARF 

0 96  SPARE 

06193  97  ARTH,  ARTH,  ARTH 

36093  98  ARTH,  FRAC,  ARTH 

29297  90  0P3,  DP2,  0P9 


AST 


2871 


REF 


297 


. 


S OANK=  LOWSUPER 
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9:12  OCT  . 21,19  70  Z ERL  A 10 


PAGt  325 


I LEM  GEOMETRY 


USER'S  PAG  F NC. 


60  S? 


C00  1 

000101  REF 
000102 


23,2041 
13,  2000 
13  ,2070 


BANK  23 
SETLOC  LEMGEOM 
BANK 


000  l 5 
0002 


LA  ST 
LAST 


S B ANK=  LOWSUPFP 
E B A NK  = XSM 


< 0500  Tl'ESr  TWO  ROUTINES  CCMPUTE  TE  E ACTUAL  STATE  VECTOR  FOR  LM,CSM  BY  ACDING 

R)5‘M  THE  COMIC  R,V  AMO  TEC  OE  V IA  T ION  SR  , V.  THE  STATE  VECTORS  ARE  CONVERTED  TO 

R 0502  METERS  B-29  ANC  METCPS/CSEC  F-7  AND  STORED  APPROPRIATELY  IN  RN,VN  OR 

<050  3 R-OTHER  , V-OTHER  FOR  D OWNLI  N K.  THE  ROUTINES  NAMES  ARE  SWITCHED  IN  THE 

R05D4  OTHFR  V EHICL  ES  COMPUTER. 


<0505  INPL1 

R 3 5 0 6 STATE  VECTOR  IN  TEMPORARY  STORAGE  AREA 

R0506 1 IF  STATE  VECTOR  IS  SCALED  POS  R27  AND  VEL  B5 

<0  506  2 SF  T X 2 TO  +2 

R 3 5 0 6 3 IF  STATE  VECTOR  IS  SCALED  POS  B2S  AND  VEL  B7 

R05C64  SET  X2  TO  0 


R0507  OUTPUT 

R350R  R (T  > IN  RN,  V(T)  IN  VN,  T IN  PIPTIME 

< 0509  OR 

R0510  RIT)  IN  R-OTHEP,  V(TI  IN  V-CTHEP  (T  IS  DEFINED  BY  T-OTHER) 


r 5 1 06  RFF 
0511 

35112  REF 

0 511  3 

0511  4 

0512  REF 
051  3 

3514 

0515  REF 
0 516 

3517  RFF 

051 8 REF 

0519 
052c 

0521  REF 
3522 
05  23 

0524  RFF 
3525  REF 

0526  RFF 

0527 


2 I AST  113 

2 LAST  113 

4 LAST  20  1 
2 LAST  113 

2 LAST  113 


4 LAST  201 
6 LAST  311 
? LAST  201 


13,2079 

13,  207  1 
13  ,2072 
13  ,2773 
13,  2074 
13  .2075 
13,  -rn' 
13,2077 
13  ,2100 
13,  2 1C  1 

13.2102 

13.2103 
13,  2 1C  4 
13 ,2105 
13,  2106 
13,2107 

13,211. 
13,  21  1 1 
13  ,2112 
1 ,2  11’ 


43414  1 
04756  1 
26073  1 
53775  1 
0 15  21  Q 
57605  0 
53655  l 
01535  0 
57576  l 
25220  0 
('1527  0 
53257  I 
57602  1 
01543  1 
77657  0 
57576  1 
15226  0 
C 1 5 1 7 0 
C 1234  0 
77616  0 


SVDWN? 


COUNT*  it/GEOM 
BOF  RVQ 

AVEMI  DSW 
+ 1 

VLCAD  VS  L * 

TDELTAV 
0 -7,  2 
VAD  VS  L* 

RCV 

0,2 

STUVL  RN 

TNUV 

VSL*  VAD 

0 -4,2 
VCV 

VSL* 

0,  2 

STOOL  VN 

TFT 

STORE  PIPTIME 
RVQ 


SW=  1=  A VE TOM  ID  DOING  W-MATRIX  INTEG. 


GAP: 


ASSEMBLE  REVISION  56  OF  AGO  PROGRA  M ZFRLINA  BY  ZOROASTER 


L L FM  GEOMETRY 


52  B 

3 529  PEF 

053C 

0531 

1532  REF 
0533 

534  RFF 

0535  REF 

0536 
1537 

0538  REF 
0 5 39 
1543 

0541  PEF 
1542 


3 


6 


LAST 

L AST 

LA  ST 
L ACT 

LAST 


LAST 


325 

325 

20  C 
325 

325 


200 


13  ,2114 
1?,  2115 
13,211  6 
13,2117 

12,  212C 
13  ,2121 
13,2122 

13,  2 123 
13  ,2124 
13,  2125 
13,2126 
1 3 ,21  27 
13,  2130 
13,2131 
13,2122 


53775  1 
C 1 52 1 0 
57605  3 
53655  1 
01535  0 
57576  1 
25716  0 
C 1 5 2 7 0 
53257  1 
57602  1 
01543  1 
77657  0 
57576  1 
C 1 724  1 
77616  0 


SVCWM1  VLOAD  VSL* 

TOELT  AV 
0 -7,  2 
VAC  VS  L# 

RCV 

0,  2 

STCVL  R-OTHER 
TNUV 

VSL  * VAD 

D -4  ,2 
v:  V 

VSL* 

0,2 

STORE  V-OTHER 
RVQ 


9:  12  OCT  . 21,  1970  Z6RLAI0 
USER'S  PAGE  NC.  2 


,001  PAGE  326 

E5  S3  * 

4 

4 

4 

4 

4 

4 

4 

4 

4 


1 

i 

I 

< 

< 

< 


( 
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L f M GECMF  TRY 


USER'S  PAGE  NO.  3 E5  S3 


P3649  THE  FOLLOWING  ROUTINE  TAKES  A HALF  UNIT  TARGET  VECTOR  REFERRED  TO  NAV  BASE  COORDINATES  AMO  FINDS  BOTH 

R 0 6 5 1 Cl  MBA  L ORIENTATIONS  AT  WHICH  TEE  RR  MIGHT  SIGHT  THE  TARGET.  THE  GIMBAL  ANGLES  : OR  RE  SPO  NDI  NG  TO  THE  PRESENT  MODE 

* 1 65  i ARE  LEFT  IN  MODE  A AND  THOSE  WHICH  WOULD  BE  USED  AFTER  A P EMODE  IN  MODEB.  THIS  ROUTINE  ASSUMES  MODE  I IS  TRUNNION 

R?655  ANGLE  LESS  THAN  90  PEGS  IN  ARS  VALLE  WITH  ARBITRARY  SHAFT,  WITH  A CORRESPONDING  DEFINITION  FOR  MODE  2.  MODE 
R 0657  SELECTION  AND  LIMIT  CHECKING  APE  CCNE  ELSEWHERE. 


R 0658  THF  MODE  1 C ONF I G LR  A T I C N IS  CALCULATED  FROM  THE  VECTOR  AND  THEN  MODE  2 IS  FOUND  USING  THE  RELATIONS 

K0660  S (2  ) = IRO  + S ( 1 ) 

R 0661  T(  2)  = 18C  - Til) 


R06610  1 


THE  VECTOR  ARRIVES  IN  MP  AC 


WHERE 


TRG*$MNB  OR 


SMNB*  WI LL  HAVF  LFFT  IT. 


0662 
D 662  5 

0663 

0664 
3 665 
0666 

0667  REF 
3 668 


13.2133  000  A I 1 

13.2134  57545  1 

1 3,  2 1 35  00043  0 

13.2136  67401  0 

13.2137  CCCC1  0 

L 3,  2 1 40  44206  0 

13,2141  24005  1 

13,  2 142  14005  1 


32D 
DCOMP 
34D 
SETPD  AS  IN 
0 

PUSH  BDSU 

LODPHAL  F 
STOOL  4 


RR  ANGLES  STORE 
DLCAD 


SINCE  WE  WILL  FIND  THE  MODE  1 SHAFT 
ANGLE  LATER,  WE  CAN  FIND  THE  MODE  1 
TRUNNION  BY  SIMPLY  TAKING  THE  ARC  SI  N OF 
THF  Y COMPONENT,  THE  AS  IN  GIVING  AN 
ANSWER  WHOSE  ABS  VAL  IS  LESS  THAN  90  DEG 

MODE  2 TRUNNION  TO  4. 


0669 
06  70 

0671 

0672 
3673 

0674 

0675 
.3  676 

0677 

0678 

0679 

0680 
3681 
06  82 


REF 


REF 


REF 

REF 


R EF 
REF 


3 LAST 

1 

1 

3 LA  ST 

3 LAST 
3 LAST 


256 


30  5 


30  5 
3C5 


13.2143  24007  0 

13.2144  24C43  C 

13,  2145  00041  1 

13  ,2146  41056  1 

13,  2 147  52412  1 

13,2150  1 4 C 4 1 1 

13  ,21  51  00041  1 

1 2162  £ 4 142  0 

13  ,2153  00051  0 

13,2  154  14023  0 

1 3,  2 155  0CC45  0 

13  ,2156  77742  0 

13,2167  34021  C 

13,2160  47316  0 


LU6ZFPn  S 
STOVl  34 D 
320 

UN  IT  BOVB 

LUNDLSCH 
STODI  320 
32D 

SRI  ST  C 

S 2 

STCOL  SINTH 

3 60 

SRI 

STCALL  COSTIH 

ARC  TRIG 


UNIT  THE  PROJECTION  OF  THF  VECTOR 
I N THE  X-Z  PLANE 

IF  OVERFLOW, TARGET  VECTOR  IS  ALONG  Y 
CALL  FOR  MANEUVER  UNLESS  DN  LUNAR  SURF 
PROJECTION  VECTOR. 


USE  ARCTRIG  SINCE  SHAFT  COULD  BF  AR3 . 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


L LEM  GEOMETRY 


1633 

0684 

0685 
06  86 
r 687 
1688 

0689 

0690 
1691 

0692 

0693 
0696 


PFF 


REF 

RFF 


REF 

PEF 


2 LAST  327 

1 

2 LAST  105 

2 LAST  3?  8 
1 


13  ,2162 
13,2163 
13,  21fc4 
13,2165 
1 ?,  2166 
13,2167 
13  ,21  70 
13,  2 17  1 
13  ,2172 
1 3,2173 
13, 2 174 


432C6  1 
240  0 5 1 
2400  7 0 
000C5  1 
77634  0 
21617  l 
25111  1 
00001  0 
77634  C 
21617  1 
01107  r 
77776  1 


PUSH 
STOVL 
RTB 
STOVL 
R TR 


0 AO 

LOOP  HALF 

S 

4 

2 VI  ST02S 
MODER 
0 


2V  1ST02S 
STORE  MOOEA 
F XI  T 


0655 

1696 

0697 

069R 


PFF  27  LAST  281 
RFF  1 

REF  90  LAST  3lQ 


13,2175  4 0110  0 

l 3,  2176  7 4740  1 

13,2177  10  CCO  0 

13,2200  1 2204  1 


CS  9ADM0DES 

MASK  ANTEN8IT 

CCS  A 

TCF  +4 


0699  REF 

0700  RFF 

0701  REF 


2 LAST  328  13,  220  1 5 3§fc  7 1 

3 LAST  328  13  ,2202  53*1  1 1 0 

3 LAST  326  13,22C3  52* 1C7  1 


DXCH  MOOEA 
OXCH  MODES 
OX  CH  MOCCA 


0702  REF  10  LAST  304 

'703 

1794  REF  2 LAST  327 


13,  2204  C 6C c 1 G 
13,2205  77650  1 
13,  2206  00C51  0 


TC  INTPRFT 

GOTO 

S2 


9:12  CCT.  21  ,1570  ZEPLAIC  .0.1  PAGE 


3 26 


USER  'S  RAGE  NO.  4 E 5 S3 

MODE  1 SHAFT  TO  2. 

FIND  M3DE  2 CDU  ANGLE  S. 

MODE  1 ANGLES  TG  MODE  A. 

SWAP  M1DEA  ANO  MODES  IF  RR  IN  MODE  2. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 
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L LEM  GEOME  TRY 


USER  'S  PAGE  NO.  5 E5  S3 


P 0 7 7 5 
R07C  6 
R 0 707 


GIVEN  RR  TRUNNION  AND  SHAFT  (T,S)  IN  TANGNB  ,+ 1 ,F  I NO  THE  ASSOCIATED 
1 1 Nr  OF  SIGHT  IN  N SV  CASE  AXES.  THE  HALF  UNIT  VECTOR,  . 5(  SIN  ( S)  CO  S(  T)  , 
-SIN(  T)  , COSI  S)  COS(  T)  ) IS  LEFT  IN  MPAC  AND  32D. 


37072  REF 
07074 


23,  2000 
23  ,2041 


SETLOC  INFLIGHT 
RANK 


07076  REF 


COUNT*  *S/GECM 


0709 

0709  REF 
37391  REF 

0710 

0711 
371? 

0713 


23,  204  1 

4 LAST  206  23  ,2042 

5 LAST  257  23,  2C43 

23,2044 
2 3 ,2  045 
23,  2046 
23  ,2047 


47135  0 
03 753  0 
21560  1 
41401  1 
00001  0 
57556  0 
140  43  0 


RRNB 


SLOAD  R TR 

TANGNB 

CDULOGIC 

SETPD  PUSH  TRUNNION  ANGLE  TO  0 

D 

SIN  DC  CMP 

STOOL  34D  Y COMPONENT 


0714 

0715 

0716 
3717 
D7l  ft 


f'71Q 

3723 

0721 


REF 

REF 


5 LAST 

6 LAST 


23,2050 
23,  2051 
329  23  ,2052 

329  23,  2C53 

23,20  54 
23,2055 
23,  2056 
23  ,2057 


41546  0 
4 7 1 3 5 0 
03754  1 
21560  1 

71406  0 RRNB 1 
72405  0 
COCOl  0 
14045  0 


COS  PUSH  .5  COS  IT  ) TO  0 

SLOAD  RTB 

TANGNB  +1 
CDULOGIC 

PUSH  COS  SHAFT  ANGLE  TO  2 

DMP  SL1 
0 

STOOL  36D  Z COMPONENT 


Ml 

0724 

3725 

0726 


23  ,206?  24041  1 

23.2C63  CQC41  1 

23,2064  77616  0 


SIN  DMP 
SL  1 

STOVL  320 
3 2 D 

R VO 


1 0727  THIS  ENTRY  TO  RRNB  REQUIRES  THE  TRUNNION  AND  SHAFT  ANGLES  IN  MPAC  AND  MP  AC  +1  RESPECTIVELY 


3729 

07291  PEE  43  LAST  3f'4 

A0729? 

0730 

0731  REF  7 LAST  329 

373? 

0733 

0734 
3735 

0736 

0737 
073ft 

0730  REF  9 LAST  329 

0740 

0741  REF  1 


23,  2065  14025  0 RRNRMp/vc  STOOL  2 OD 

>3  ,206<  155  0 mpac 


23,  2067  40234  0 

23,2070  21560  l 

23,  2C71  CCCC1  0 

23,2072  73406  l 

23,2  C73  77676  0 

23, 2C74  14043  0 

23  ,2075  41546  0 

23  ,2076  471  35  0 

23,  2077  00026  0 

• 1 

23,  2 1C  l 77650  1 

23,2102  46C54  1 


3 TB  SE  TPD 

CDULOGIC 

0 

PUSH  SIN 
DCOMP 

STCOL  340 
COS  0 USH 
SLCAD  RTB 
210 

CDULOGIC 

GOTO 


SAVE  SHAFT  CfXJ  IN  21  . 

SET  MODE  TO  DP.  (THE  PRFCFEOING  STORE 
MAY  BE  DP,  TP  OR  VECTOR  . ) 


TRUNNION  ANGLE  TP  0 

Y COMPONENT 
. 5C0SI  T)  TO  0 
PICK  UP  CCU  *S  . 


RRNB  l 


GAP:  ASSEMH16  REV  IS  UN  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 
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L IMU  COMPENSATION  PACKAGE 


07,  266  1 
06,2000 


BANK  7 
SETLO:  IMUCOMP 


000102 


06,3271 


BANK 


3D?  ? REF 


E3, 1460 


E H A NK  = N BO  X 


0100 
0 1 1 2 
'.113 


114 


PFF 
R EF 
REF 
REF 


1 

1 

8 LAST  299 


06.3271  2 3537  0 1/FIPA 

06. 3272  56  003  1 

06  ,3273  54  163  1 


COUNT*  *S/ICOMP 
CAF  LGCOMP 
XCH  EBANK 

TS  MODE 


3115  P EF  l 

0116 
0 117 

3118  REF  1 


06,  3274  11*477  0 

06.3275  l 3300  0 

06.3276  1 3300  0 

06,  3277  1 336  1 1 


CCS  GCCMPSW 

TCF  + 3 

TCF  +2 

TCF  IRIG1 


0119 
0 1 20 


REF  4 LAST  262 
REF  10  I A ST  126 


06.3300  3 4751  0 l/PTPAl  CAF 

06.3301  54  132  0 TS 


FO  UR 
BUF  +2 


0121  REF  11  LAST 

L 1 22  RFF  1 

3123 

0124  RFF  12  LAST 

D 1 25  RFF  1 

3 1 26  REF  30  LAST 


33  1 06,  3302  50  132  1 

06.3303  3 1453  1 

06. 3304  C 0C06  l 

53 1 6,  3305  s ■:  1 3 2 l 

06  ,3306  7 0324  0 

309  C6,  3307  54  CC 2 1 


INDEX  3UF  +2 
CA  PIPASCF 

F XTEND 

INDEX  9UF  +2 
MP  DELVX 

TS  0 


012  7 
0 12R 
0129 
013-' 
? 131 


PEF  26 

RFF  31 
RFF  13 
REF  2 


LAST  298 

LAST  286 
LAST  331 
LAST  331 


06  ,3  310 
r ^ , 3 ? 1 1 

. 

06,331  3 
C 6,  ?3  14 


3 0001  0 
C 00C6  1 
7 4746  1 
5 C 132  1 
54  325  1 


CA  1 

EXTEND 
MP  B I T6 

INDEX  BUF  +2 

TS  DELVX  +1 


132 
' 133 
1 1 34 
0136 
0 136 


REF  31  LAST  331 

RFF  32  LAST  331 
RCF  14  LAST  331 
REF  ? LAST  331 


06.3315  3 OOC  2 0 

06.3316  C 0006  1 

06,  33  17  7 4746  1 

.16  ,3320  5:  132  1 

06,3321  20  325  1 


CA  Q 

EXT  END 
MP  BIT6 

INDEX  BUF  +2 

DAS  DELVX 


01  37 
0138 
1139 
01  4 0 
0 141 

0142 

0143 
0 144 


*R  EF  21 
PEF  16 
P FF  4 


LAST  33  1 


LAST  17  1 

LAST  284 
LAST  331 
LAST  331 


06. 3322  50  132  1 

76.3323  4 145?  1 

C6, 3324  C C006  1 
06,  3 32  5 7 1C74  1 

06,3326  C 0006  1 
06,  3327  7 4744  0 

06.3330  50  132  1 

36.3331  20  325  1 


INDEX  BUF  + 2 
CS  P I PA  B I AS 

EXTEND 

MP  1 /PI  PAD T 

EXT  END 
MP  BI  T 8 

INDEX  BUF  +2 
DAS  DELVX 


0145  REF  17  LAST  331 

0146  PFF  1 

7147  REF  1 


06,  3 332  10  132  0 

0 6,33  33  6 7761  0 

06, 3334  1 3301  1 


CCS  BUF  +2 

AD  NEG 1 

TCF  1/PIPA1  +1 


9:12  CCT.  21,1970 


ZERLAIC 


.001  PAGE  331 


USER  • S PAGF  NO. 


EO  S3 


SAVE  EBANK  OF  CALLING  PROGRAM 

PYPASS  IF  GCOMPSW  NFGATIVE 

RETURN 

PI  PAZ  , PI  PAY,  PI  PAX 

(P.P.M.)  X 21-91 

( PP  ) X 21+14)  NOW  (PIPA  PULSES)  X 2(  + 5) 
SAVE  MAJOR  PART 

MI  NOR  PART 

SCALE  2 1 + 9)  SHIFT  RIGHT  9 
FRACTIONAL  PIPA  PULSES  SCALED  2(  + l4) 
MAJOR  PART 

SCALE  2 ( +o  ) S FI  FT  R IGHT  ° 

(PIPA I ) + ( P I P A I ) 1 SFE  ) 

(PIPA  PUL  SES)  /(CS)  X 21-31  * 

(CS)  X 2 ( +8 ) NOW  (PIPA  PULSES)  X 2(+5)* 
SCALE  2(+o>  SHIFT  RIGHT  7 
( P I PA  I ) + (PIPAD(SFE)  - (BIASHOELTAT) 


PI  PAZ,  PI  PAY,  PIPAX 


GAP:  ASSEMBLE  REVISION  56  OE  A3C  PRCGRAM  ZERLINA  8Y  ZGRGASTER  9:12  OCT  . 21,  1970  ZERLAIO  .0C1  PAGE  332 

L I MU  COMPENSATION  PACKAGE  USER'S  PAGE  NC.  2 E3  S3 


0148 


06,3335  13  336  0 


NODP 


LESS  THAN  7E*0  IMPOSSIBLE 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 

L I MU  CCMPFNSATIGN  PACKAGE 


'148  1 R 
1482  REF 


01483  RFF 

3148  A PEF 

01485  RFF 

01486  REF 

>1487  REF 
01488  REF 


D14R9  PEF 

OHO  RFF 
01491  REF 


LAST  331 


06  ,3340  C 3364 


06,3343  0 3401  1 


06, 3346  C 3416  1 


LAST  333 


I RIGCOMP  TS  GCOMPSW 

TS  3 UF 


TC  IR  IGX 


r.  S NBDX 

TC  3RIFTSUB 


T C I R I GY 


r.  S NBDY 

TC  DRIFTSUR 


TC  IRIGZ 

CA  VJRDZ 

TC  DRIFTSUP 


31492  PEF 

01493 

01494  PEF 


LAST  333 
LAST  331 


06,  335  1 
06  ,0352 

. 


1 1 ' 4 7 7 0 
1 3354  1 
1 3361  l 


CCS  SC  OMP  SVt 

TCF  +2 

TC  F IR1G1 


01495  REF 

01496  RFF 
31497  REF 
01498  PEF 
01498  PEF 


1 

4 LAST  266 
3 LAST  333 
1 


0 6,  3354  3 5031  C 

06,3355  C 5072  1 
E3,  1460 

06  ,3356  03515  0 

06,3357  14063  1 


'A  PR  I 0 2 1 

TC  NOV  AC 

EBANK=  NBDX 
2CA0R  l /GYRO 


01499 

0150  REF 

01501  RFF 

01502  REF 


2 LAST  331 
9 LAST  331 
2 LAST  25  1 


0 6,  3 360 
06  ,3361 
06,  3362 
06, 3363 


C 0C03  1 
3 0163  0 
54  CC3  0 
1 4631  0 


3FL  INT 

IRIG1  CA  MODE 
TS  F BANK 

TCF  SWRF.TUPN 


9:12  OCT.  21,  1970  ZERLA10  .00  1 PAGE  333 

USER'S  PAGE  NC.  3 E3  S3 

INDICATE  COMMANDS  2 PULSES  OR  LESS. 

INDEX  COUNTER  . I R I C-X  , IR  I GY  , IRIGZ. 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  PULSES  >/(CS>  X 2(-5> 

-(  NBDX)  (DELTAT)  (GYRC  PULSES)  X 2(+14) 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  PULSES)/  (CS)  X 2 (-5) 

-(NBDY)  (DELTAT)  (GYRO  PULSES)  X 2I+14) 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  P1JLSF  S)  / (CS)  X 2 ( -5  ) 

+ (NBDZ  ) ( DELTAT  ) (GYRO  PULSES)  X 2(+14) 


ARE  GY  RQ  COMMANDS  GREATER  THAN  2 PULSES 
YES  SEND  OUT  GYRO  TORQUING  COMMANDS. 

NC  RETURN 


PR  T 0 GREATFP  THAN  SERVICER 
SEND  OUT  GYRO  TORQUING  COMMANDS. 


RESTORE  CALI ER  S FBANK 


AP:  ASSFPBL6  REVISION  56  OF  AGC  PROGRAM  ZERL  IMA  BY  ZOROASTER 


9:12  OCT.  21  ,1970  7 ER  LA  I D .001 


PAGE  339 


1*1)  COMPENSATION  PACKAGE  USER'S  PAGE  NO.  9 E3  S3 


0151 

06, 3369 

C OCC 6 

1 

IRIGX 

E XTEND 

151  1 

RFF 

99 

1 AST 

329 

06  ,3365 

22  156 

0 

OX  CH 

M P AC  +2 

SAVE  Q 

1512 

06,3366 

C CCC6 

1 

EXTEND 

C-1  52 

REF 

5 

LAST 

331 

7 

9 0325 

1 

OC  S 

DELVX 

( PI  PA  PULSES1  X 2 (+19  ) 

0153 

REF 

95 

LAST 

339 

06,3370 

52  155 

1 

DXCH 

MP  AC 

0159 

P EF 

l 

06,  3371 

2 1963 

1 

CA 

ADI  AX 

(C.YPn  PUl  S FS  )/  (P  IP  A PULSFJ  X 2(-6> 

0155 

REF 

1 

, 

0 3933 

0 

TC 

3C0MP  SUB 

-(  ADIAX)  ( PI  PAX)  (GYRC  PU LS FS  1 X 

2 ( + 14  I 

0156 

06,3373 

C 0006 

1 

EXT  END 

0157 

P EF 

1 

06,  1379 

9 032  7 

0 

OC  S 

DE  LVY 

(PIPA  PULSES  > X 2 ( +19  ) 

C l 58 

REF 

96 

LAST 

339 

06  ,3375 

52  155 

1 

DXCH 

M P AC 

0 159 

P EF 

1 

06,3376 

4 1966 

0 

cs 

A DSP  AX 

(GYPO  PULSFS)/ (PIP  A PUL  SF  1 X 2(-6! 

0160 

REF 

2 

L AST 

339 

06, 3377 

0 39  3 3 

0 

t: 

3 3 OMP SUB 

+ ( ADSRAX  1 (PIPAY)  (GYRO  PULSES)  X 

2( +14) 

A 0 1 60  3 

AD  1 6"1  4 

DCS 

DELVZ 

*** 

(PIPA  PULSES  ) X 2 ( + 1 4 ) 

A 0 1 60  5 

OXCH 

M P AC 

AO  169  6 

CA 

ADOAX 

(GYRO  PULSES  ) / ( P I PA  PULSE!  X 2(-6) 

A 1 1 ‘ 7 

TC 

GCOMPSU0 

-(ADOAX  ) (PI  PAZ)  (GYRO  PULSES)  X 

2 ( +14) 

0161 

REF 

97 

LAST 

339 

0 0156 

06  , 390  0 

0 

L +2 

C163 

C 6 , 39C1 

C CCC6 

1 

IRIGY 

EXTEND 

0 1631 

R EF 

98 

L AST 

339 

?6,  ? 9C  2 

22  156 

o 

OXCH 

MP  AC  +2 

SAVE  0 

’ 

06,3903 

0 0006 

l 

EXTEND 

0 169 

RFF 

2 

LAST 

339 

06,3909 

9 0327 

0 

DCS 

DELVY 

(P  IPA  PULSES  I X 2(  +14) 

0165 

REF 

99 

L AST 

339 

06,  390  5 

c2  155 

1 

D XCH 

MP  AC 

1 ( 

RFF 

1 

■ ,3906 

3 1^*69 

0 

CA 

A D I A Y 

(GYRO  PULSE  S)  /(  PI  PA  PULSE)  X 2 (-6) 

* 

0167 

RFF 

3 

LAST 

339 

06, 39C7 

C 3933 

c 

TC 

GC0RPSU8 

-(ACIAY  ) (P  I PAY  ) (GYRO  PULSES)  X 

2(+  14) 

0168 

06,  39  10 

C 0006 

1 

E XTEND 

0169 

RFF 

1 

06  ,3911 

9 0331 

1 

DCS 

DELVZ 

(PIPA  PUL  SF  SI  X 2(  +14) 

0170 

REF 

5C 

1 

LAST 

339 

0 6,  3912 

52  155 

1 

DXCH 

MP.AC 

C 1 71 

PEF 

06,  3913 

9 1967 

1 

CS 

ADSPA  Y 

(GYRO  PULSFS) /(  PIPA  PULSF)  X 2 ( -6  I 

* 

0 172 

RFF 

9 

LAST 

339 

06 ,3919 

0 3933 

0 

TC 

GCOMPSU  R 

+ ( ADSRAY  HP  PAZ  ) (GYRO  PULSES)  X 

2(+ 14) 

AO  172  3 

EXTEND 

*** 

A 0 1 7 2 9 

DCS 

DELVX 

*** 

(PIPA  PULSE  S)  X 2 (+  1 4) 

AO  172  5 

DXCH 

MP  AC 

A>  17?  6 

CA 

ADOA  Y 

(GYRO  PULSFS) / (PT FA  PULSE!  X 2(-6) 

* 

A 01727 

TC 

GCOMPSUR 

-(AD3AY)  (P  IPAX)  (GYRO  PULSES)  X 

2(+  14) 

0173 

REF 

51 

L AST 

339 

Cfc, 3915 

C 0156 

0 

TC 

MP AC  +2 

' 175 

06  ,3916 

C OOC  6 

1 

IRIGZ 

EXTEND 

• 175  1 

RFF 

52 

I.A  ST 

339 

06,391 7 

22  156 

0 

QXCH 

MP  AC  +2 

SAVE  0 

01752 

06,  39  20 

C 0006 

1 

E XTEND 

1 7'. 

RFF 

3 

LAST 

339 

36  ,3921 

9 0 32  7 

0 

DCS 

DELVY 

(t>IPA  PULSES)  X 2(  + 1 4) 

0177 

REF 

53 

LAST 

339 

06,  3 422 

1 2 155 

1 

DXCH 

MPAC 

01  78 

RFF 

1 

06,  3 923 

3 1970 

0 

CA 

AD  SR  A 7 

(GYRO  PULSES) /(  PIPA  PULSE)  X 2 ( -6  ) 

* 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


9:12  (XT  . 21  ,1970  Z ERL  A I C .301  PAGE  335 


I MU  f.OMPFNSATI  CN  PACKAGE 


USER  • S PAGE  NO.  5 E3  S3 


3179  REF 


LAST  33  A 


06, 3424  C 3433  C 


TC  GCOMPSUB  -( ACSRAZ  ) (P  IPAY  ) (GYRO  PULSES)  X 2(+l4) 


0180 
? 1 « 1 
1 8 2 

0183 

0184 


REF  2 
PFF  54 
REF  1 
REF  6 


LAST  334 
LAST  334 

LAST  335 


06.3425 

06.3426 
06,  34  27 
06 ,3430 
06,3421 


0 0006  1 
4 0331  1 
52  155  1 
3 1465  1 
C 3433  0 


EXTEND 

DCS  DELVZ  (PIPA  PULSES)  X 21  + 14) 

DXCH  MPAC 

CA  AO  1 A 7 (GYRO  P UL  SE  S)  / ( P I P A PULSE)  X 2 ( -6  I * 

TC  GCOMPSUB  -(ACIAZ)  (P  IPAZ  ) (GYRO  PULSES)  X 2(  + l4) 


A0 184  3 
A 01044 

AO  1 9 4 5 
A'  1846 
A ' 1847 


EXTEND  +** 

DCS  DELVX  ***  (PIPA  PULSE)  X 2(  + 14) 

DXCH  MPAC  *** 

CS  ADOAZ  ***  (GYRO  P UL  SE  S)  / ( PI  P A PULSE)  X 2 (-6)  * 

TC  GCOMPSUR  ***  +UDOAZJ  (PIPAX)  (GYRO  PULSES)  X 2(  + l4) 


REF  55  LAST  335  06,  3432  G 0156  0 


MPAC  +2 


0185 


JAP:  ASSEMBLE  REVISION 


OF  AGC  PROGRAM  ZEPLINA  BY  7QRO ASTER 


L IMIJ  COMPENSATION  PACKAGE 


01  99 
0200 
32)  1 

02  02 


REF  5S  LAST  335 

REF  57  LAST  336 
RFF  17  LAST  99 


06,3*33  56  154  1 

06,3434  C 0006  1 
Cfc,  3425  7 Cl  54  0 

06,3436  52  123  0 


GCOWP  SU3  XCH  MPAC 

EXT  END 
MP  MPAC 

OXCH  VBUF 


02C5 
0 206 
02  07 
020  R 


REF  5B  LAST  336 

REF  59  LAST  336 
REF  27  LAST  331 
REF  32  LAST  30  3 
PCF  IP,  LAST  336 


06,3437  3 0155  0 

,344  ( 0061 

06,344  1 7 0154  0 

C6.3442  54  CC1  1 

06. 3443  3 4755  1 

06.3444  20  123  0 


CA  MPAC  +1 

E XTEND 
MP  MPAC 

TS  L 

CAF  ZERO 

DAS  V8UF 


3239 

0210 

: 211 
C212 
r 213 


REF  19 

REF  16 
RCF  1 9 
REF  3 


LAST  336 

LAST  253 
I AST  333 
LA  ST  113 


06,  3445 
06  ,3446 
06,3447 
04, 3450 
06  ,3451 


5 0122  0 
0 0006  1 
7 4743  l 
50  120  0 
21*4  72  0 


CA  VBUF 

EXTEND 
MP  BIT9 

INDEX  3 UF 

DAS  GCOMP 


L 216 
1217 
0218 
0 219 

0220 


REF  20 

REF  17 
PFF  ?R 
PFF  33 
RFF  20 
REF  4 


LAST  336 

LAST  33  6 
LAST  336 
LAST  336 
LAST  336 
LAST  336 


06,  3452 

06.3453 

06.3454 
06,  3455 

06 .3456 

06.3457 
06,  3460 


2 0123  1 
0 00C6  1 
7 4743  1 
54  CCl  1 

3 4755  1 
CC  1 30  C 
21*472  0 


CA  VBUF  +1 

EXTEND 
MP  BIT9 

TS  L 

CAF  ZERO 

INDEX  BUF 

DAS  320MP 


221 


PEF  32  LAST  331 


06,3461 


C 0002  0 


TC 
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USER'S  PAGF  NO.  6 E3  S3 

APIA  OR  ADSRA  COEFFICIENT  APRIVES  IN  A 
CIMPAC)  = (PIPA  PULSES!  X 2(+l4) 

(GYRO  PULSES  )/  (P  IPA  PULSE)  X 2(-6>  * 

NOW  = (GYRO  PULSES)  X 2 ( + 8 I * 


MINOR  ° Ao  T PIPA  PULSES 
APIA  OR  AOSPA 


NOW  = (GYRO  PULSES)  X 2(4-8)  * 

PARTIAL  RESULT  - MAJOR 

SCALE  2 ( +6  ) SHIFT  RIGHT  6 * 

RESULT  = (GYRO  PULSES)  X 2 (+14) 

H I ( ADI  A) (PIPAI  ) OR  HI ( AD SRA)  ( PI PAl  ) 

PARTIAL  RESULT  - M INOR 

SCALE  2(+6)  SHIFT  RIGHT  6 * 


RFSULT  = (GYRO  PULSES)  X 2(+l4) 

( ADI  A)  ( PI  PAI  ) CR  ( ADSPA  ) (P  IP  A I ) 


SSEMRLE  RFVISION  56  CF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


G Ap:  A 


L IMU  COMPENSATION  PACKAGF 


C222 
0 223 


RFF  21  LAST  336 


06  ,3462  0 0006  1 DRIFTSUB  EXTEND 

06,3463  22  131  1 QXCH  BU F +1 


0224 

0225  RFF 

0226  RFF 

0227 

0228  * RFF 
022°  REF 
0230  RFF 


3 LAST 
60  LAST 

33  LAST 
22  LAST 
5 L AST 


33  1 
336 

33  1 
33  7 
336 


06 , 3464 
06,  3465 
06,3466 
06,  3467 
06,  3470 
C6.3471 
C 6,  3472 


2?  155  0 
C CCC6  1 
7 4746  1 
50  130  0 
21*472  0 


EXTEND 

MP  1/PI  PAD 

LX  CH  MPAC  +1 

EXTEND 
MP  31 T6 

INDEX  BUF 

DAS  GCOMP 


0231  REF  61 

0232 

0233  * R EF  34 

0234  REF  29 

0235  REF  34 

0236  RfF  23 

"237  RFF  6 


LAST 

LAST 
LAST 
LAST 
L AST 
LAST 


337 

337 

336 

336 
317 

337 


06  ,3473  3 0 155  0 

• 

06,  3475  7 4746  1 

06.3476  54  001  1 

06. 3477  2 4755  1 

06.3500  50  130  0 

06.3501  2 1 ' 4 72  0 


CA  MPAC  +1 

EXTEND 
MP  B I T6 

TS  L 

CAF  ZERO 

INDEX  3UF 

DAS  GCOMP 


323R 
r 2 39 
0 240 
1)241 
0242 
3243 
0244 


REF  12 
PFF  24 
RFF  25 
REF  91 
RFF  7 

REF  26 


LAST  30  9 
LAST  337 
LAST  337 
LAST  3?a 
LAST  337 

LAST  337 


06,  350  2 
06  ,3503 

■ 

06,  350  5 
06,3506 
06,  3507 
06,3510 


3 4752  0 
6 0130  0 
56  130  C 
50  000  1 
11*471  0 
1 3511  0 
0 0131  1 


DRF  T SUB  2 CAF  TWO 

AD  BUF 

X CF  BUF 

INDEX  A 

CCS  GCOMP 

TCF  +2 

TC  BUF  + 1 


0245  RFF  1 

0 246  RFF  92  LAST  337 

0247  REF  4 LAST  333 

0248  RFF  27  LAST  337 


06,3511  7 3561  1 

06, ? 5 12  10  OCO  C 

06  ,3513  55  '477  C 

06,3514  C 0131  l 


MASK  COMPCHK 

CC  S A 

TS  GCOMP SW 

TC  BUF  +1 


9:  12  OCT.  21,1970  ZERLAID  .001  PAGE  337 


USER'S  PAGE  ISC.  7 E3  S3 


CIA)  = NBD  (GYRO  PULSESJ/ICS)  X 2(  - 5) 

(CS)  X 2 1 + 8)  NOW  (GYRO  PULSES)  X 2 1+3) 
SAVE  FOR  FRACTIONAL  COMPENSATION 

SCALE  21+11)  SHIFT  RIGHT  9 

HI  (NBD)  IDELT  AT  ) (GYRO  PULSES)  X 2(  + l4) 

NOW  MINOR  PART 

SCALE  2 ( + 11 ) SHIFT  RIGHT  9 


ADO  IN  FRACTIONAL  CCMPFNSATION 

(NBD  ) ( OELTAT  ) (GYRO  PULSES)  X 2(+14) 

PI  PAX  , PIPAY,  PIPAZ 


ARF  GYRO  COMMANDS  1 PULSE  OR  GREATER 

YES 

NO 


DEC  - I 

ARE  GYRO  COMMANDS  GPEATEP  THAN  2 PULSES 

YES  - SET  GCOMPSK  POSITIVF 

NCI 


GAP: 


ASSEMBLE  REVISION  ^6  OF  AGC  PRCGRAM  ZERLINA  BY  7 OR  OASTER 


L IMU  COMPENSATION  PACKAGE 


024Q  RFF  5 LAST  331 
3253  REF  2R  LAST  337 


06,3515  3 4751  0 l/GYRQ  CAF 

CF,35l6  54  130  1 TS 


FOUR 

BUF 


C‘2  51 
026? 

0253 

0254 
3255 
0256 


RFF  20 
REF  8 

REF  22 
REF  30 
REF  9 


LAST  338 
LAST  337 

LAST  331 
LAST  338 
LAST  338 


06  ,3517 
Cfc , 36  20 
36,  352  1 
06  ,3522 
Cfc,  3623 
06,  3524 


50  130  0 
3 1472  1 
0 0006  1 
7 4744  0 
5 C 13C  0 
55 ' 472  0 


INOEX  RUF 
CA  GCCMP 

E X TEND 
MP  B IT  8 

INDEX  BUF 
TS  GCOMP 


.257 

3258 

o?59 

0260 

J2&1 

0262 

1263 


PC  F 35  LAST  337 
RFF  31  I AST  338 
REF  10  LAST  338 

REF  23  LAST  33a 
REF  32  LAST  33P 
REF  11  LAST  330 


06,3525  3 4755  1 

06,  3 5 26  60  130  0 

06,3527  57*471  1 

06.3530  C 0CC6  1 

06. 3531  7 4144  C 

06,353?  50  130  0 

06, 3633  21*472  0 


CAF  ZERO 
INDEX  RIJF 
XCH  GCOMP 
EXTEND 
MP  BI  T 8 

INDEX  BUF 
DAS  GCCMP 


26  4 
0265 
3266 
r 267 


REF  33  LAST  338 
REF  2 LAST  331 
REF  2 LAST  33  3 
REF  12  LAST  338 


06.3534  10  130  1 CCS  RUF 

06.3535  6 7761  0 AD  NEG1 

06,  3536  1 2'16  1 TCF  1 /G  YP.O  + 1 

06  ,3537  01471  1 LGCOMP  EC  ADR  GCOMP 


3 268  REF  2 

0269  RFF  56 

0270  REF  2 

3271  REF  57 

0272  PFF  6 

0273  PFF  23 


LAST  331  C6 

LAST  3C5  06 

LAST  278  06 

LAST  J38 

LAST  278  05 

LAST  304  06 


, 3640  3 3537  C 

, 3541  C 46  16  1 
,3542  17270  1 

, 3543  C 46  16  1 
,3544  17715  1 

, 3545  1 6155  1 


CAF  LGCOMP 

TC  BANKCALL 

C ADR  IMUPULSE 

TC  BANKCALL 

CADR  IMUSTAIL 

TCF  ENDOFjne 


0274  REF  6 LAST  338 

0275  PEE  34  LAST  338 


06,  3546  3 47  5 1 0 GCOMP  1 CAF 

06,3547  54  130  1 TS 


FOUR 

BUF 


32  74 
02  77 
0 278 
3279 
0280 
: 281 


REF  ^5 
REF  13 

RFF  24 
REF  36 
REF  14 


LAST  338 
LAST  33  8 

LAST  338 
LAST  338 
I A ST  338 


06,  3550 
06,3551 
06,355? 
C6, 3553 
06  ,3554 
06  ,3555 


5 C 130  0 
3 1472  1 
C 0006  1 
7 4744  0 
50  130  0 
23' 472  1 


I NDEX 
CA 

EXTEND 

MP 

INDEX 
LX  CH 


BUF 

GCOMP  + 1 

BI  T 8 
BUF 

GCOMP  +1 


3284 

0285 

0286 


REF  24  LAST  338 


36,  3556 
06,3557 
Of,  3560 

06.3561 

06.3562 


10  130  1 
6 7761  0 
1 3547  0 
77776  1 
1 5155  1 


TCF 

DEC 

TCF 


3 UF 
NFG  1 
GCOMPl 
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USER*  S PAGE  KG.  R E3  S3 

PIPAZ,  PIPAY,  PIPAX 

SCALE  3 YP  0 COMMANDS  FOR  IMUPULSE 
FRACTIONAL  PUl  S ES 

SHIFT  RIGHT  7 

FRACTIONAL  PULSES  SCALED 

SET  GCOMP  = 0 FOR  OA  S INSTRUCTION 

GYRO  PULSES 

SHI  FT  RIGHT  7 

ADC  THESE  TO  FRACTIONAL  PULSES  ABOVE 
PIPAZ  , PI  PAY,  PI  PAX 

LESS  THAN  Zt?0  IMPOSSIBLE 

CALL  GYRO  TORQUING  ROUTINE 

WAIT  FOR  PULSES  TC  GET  CUT 
T EMPORAPY 

PIPAZ,  PIPAY,  PIPAX 

RESCAl  E 

SHIFT  MINOR  PART  LEFT  7 - MAJOR  PART  = 0 
BITS  8-14  OF  MINOR  PART  WEREt.=  0 
PI  PAZ,  PI  PAY,  PIPAX 


LESS  THAN  ZERO  IMPOSSIBLE 


A=>  : 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY 


IMU  COMPENSATION  PACKAGE 


02  87 
0288 
0 289 
0290 


RFF  25  LAST  338 


06,3563 
06*3564 
06,  3565 
06  ,3566 


1 3567  1 
l 5155  1 


0290O5 
02  901  REF 

02902  REF 

02903  REF 
02909 


LAST 

LAST 

LAST 


236 

339 

339 


06,3567 
96,  357C 
06,3571 
06,  3572 

• 


f 0CC4  P 
10  C 7 6 1 
1 5155  1 
1 6155  1 
1 3574  0 


0 290  5 RFF  3 
9290  6 REF  25 

02907  REF  4 

02908 
0291 


LA  ST 
I.  AST 
LAST 


06,3  5 74 
06, 3575 
06  ,3576 
C 6 , 3577 

, 


3 P 1 04  1 
7 4744  0 
54  141  1 
C CC06  1 
1 3fcO  3 0 


0293 
0 294 
9295 
0296* 
0297 
02  98 

0299 


R EF 
REF 
RFF 


5 LAST  339 


9399  REF  30  LAST 


0391 


REF  31  LAST 


339 
33  7 
339 


96  ,3603 
)6  , 4 

06,  3605 
06  ,3606 

. 

06,  3610 
06  ,3611 
06,  3612 
'16,3613 


3 0025  0 
57*074  0 
C 0003  1 

4 0000  0 
6 1074  0 
6 4736  1 
6 4736  1 
56  CC1  0 
56  001  0 


0302 

9393  REF 
0304  REF 


262 

336 


06,3614 
06,  36  15 
06  ,3616 


0 0006  1 
7 4742  0 
52  125  0 


0Vi2  RFF  6 LAST 
03043  REF  38  LAST 


C 6 , 36  1 7 
0 6,  36  20 
06,3621 


0305 

0306 

0307 


RFF  22 
REF  62 


339 

337 


96,  C CCCb  1 

06,  <6*5  3 0 1/5  1 

06,3626  52  155  1 


m 


LAST  333 


im 


ASTER 


CCS  SCOMPSW 

TCP  +3 

TCF  +2 

TCP  ENDOFJOB 


I NHINT 

CCS  c LAG  WRD  2 

TCF  ENDOFJOB 

TCF  ENDOFJCB 

TCF  + 1 


C A F L A GW  R 08 

MASK  31  T8 

TS  T EM  1 

EXTEND 
BZF  +3 


TC  I BNKCALL 

CAI9R  PI  PAS  R +3 


CA  TIM  El 

XCh  1/PIPACT 

REL  INT 
COM 

AO  1/PIPADT 

AO  HALF 

AD  HALF 

XCH  L 

XCH  L 


EXTEND 

MP  RITlO 

DXCH  VBUF  +2 

CA  ZERO 

TS  3C0MPSW 

TS  BUF 

CCS  TEMl 

TC  IRIGX 


FXTEND 
DC  A 
OX  CH 


VB  LF 
MP  AC 


+ 2 


NBOX 

FBI  ASSUB 


CCS 

TC 


12  OCT.  21,  1970  ZERLAID  .001  PAGE  339 
USER'S  PAGE  NO.  9 E3  S3 

BYPASS  IF  GCOMPSW  NEGATIVE 


PRFREAD  T3RUPT  MAY  COINCIOE 


IF  SURFACE  F.AG  IS  SET,  SET  TEMl 
POSITIVE  SO  THAT  TEE  ACCELERATION  TERMS 
WI  LL  BE  COMPENSATED. 

APE  WE  ON  THE  SURFACE 


ON  THE  SURFACE 

READ  PIPAS,  BUT  DC  NOT  SCALE  THEM 


(C  S)  X 21+14) 
PREVIOJS  TIME 


PRESENT  TIME  - PP  EV  IOUS  TIME 
CCRRECT  FOR  POSSIBLE  TIM61  TICK 

IF  TIMF1  DID  NOT  TICK,  REMOVE  RESULTING 
OVERFLOW. 

CCA)  = DELTAT  (CS)  X 21  + 14) 

SHIFT  RIGHT  5 


INDICATE  COMMANDS  2 PULSES  OR  LESS. 
INOEX  X,  Y,  Z. 

IF  SURFACE  FLAG  IS  SET, 

COMPENSATE  ACCELERATION  TERMS. 


DFLTAT  NOW  SCALED  (CS)  X 21  + 19) 


(GYRO  PULSES  )/(CS)  X 2(-S> 

-(  NBOX)  (DELTA  T)  (GYRC  PULSES)  X 2 (+14  ) 


IF  SURFACE  FLAG  IS  SET, 
COMPENSATE  ACCELERATION  TERMS. 


GAP: 


ASSEMBLE  REVISION  5 6 OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


l I MU  COMPENSATION  PACKAGF 


o3  n 

0315 
;-3i6 
C31  7 


PFF  23  LAST  339 
REF  63  LAST  339 
REF  2 LAST  333 
PFF  2 LAST  339 


06,3633  C CCC6  I 
06,  3*3a  A 0 12S  0 
06,3635  52  155  1 

C 6,  36  36  2 l A 6 1 0 

06,3637  C 3652  0 


EXTEND 

DC  S VB  UF  + 2 

OXCH  MP  AC 

CA  NBDY 

TC  FB1ASSUB 


7 LAST  339  06,3660  10  141  1 
2 LAST  333  06,  36Al  0 3Al6  1 


CCS  T EMI 

TC  IRIGZ 


031  8 

319  PFF  24  LAST 

0320  PEF  64  LAST 

0321  REF  2 LAST 

3322  RFF  3 LAST 


06  ,3642  0 0006  1 

, 36  A3  4.  0125  0 

340  06,3644  52  155  1 

333  06,3645  4 1462  1 

34Q  06, 36A6  C 3652  0 


FXT  END 

DCS  VBUF  +2 

DXCH  MP  AC 

CS  NBDZ 

TC  FBI  ASSUB 


0323  RFF  7 LAST  33«  06,3647  11*477  0 

0324  RFF  3 LAST  33P  C6,3650  1 3515  1 

03?S  RFF  2R  I AST  339  06,3651  1 5155  1 


CCS  GCDMPSW 

TC  F 1/GYRO 

TC  F FNDOFJOR 


9:12  CCT.  21,1970  ZEPLA1D  .00  1 PAGE  340 
USER'S  PAGF  NC.  1C  £3  S3 


DEL  TAT  SCALED  ICS)  X 21+19) 

(GYRO  PJLS  ES  )/  ( CS  ) X 2 ( - S » 

-(N8DY)  (OELTAT)  (GYRC  PULSES)  X 21+14) 


IE  SURFACE  FLAG  IS  SFT, 

C CM  FENS  AT  E ACCELERATION  TERMS 


DELTAT  SCALFO  ICS)  X 2 ( +1 9 ) 

( GYRO  PULSE  S)/(CS)  X 2(-5) 

+ IN8DZ)  (DELTAT  ) (GYRO  PULSES)  X 2(+lA) 


ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 
YES 


GAP:  ASSEMBLE  REVISION  56  OF  AGf.  PROGRAM  ZERLINA  BY  ZOROASTE3 


I MU  COMPENSATION  PACKAGE 


326  REF  33  LAST  336 

0327  RFF  30  LAST  339 


06,  3652  56  GC2  0 F8IASSUR  XCH 
06  ,3653  54  13)  0 TS 


0 

8UF 


+ 1 


0320  REF 

0329 

0330  RFF 
>331  RFF 
0332  RFF 


34 


65 

40 

15 


LAST  341 

LAST  340 
LAST  34  1 
LAST  338 


06. 3654  2 0C02  0 

06.3655  0 0GC6  1 

06.3656  7 01  54  0 

06,  36  57  5C  130  0 
06,3660  21'472  0 


CA  0 

EXTEND 
Mp  MP  AC 

INDEX  BUF 

DAS  GCOMP 


333 
0334 
r 3 35 
) 3 36 
0337 

3338 

3339 


REF  35 

RFF  66 
R EF  32 
REF  37 
REF  41 
RFF  16 


I A ST  34  1 

LAST  341 
LAST  339 
LAST  339 
LAST  341 
LAST  341 


06, 3662 
06  ,3663 
06, 3664 
06,  3665 

06.3666 

06. 3667 


2 CCC2  0 
C 0006  1 
7 0155  1 
54  C01  1 

3 4755  1 
50  130  0 
21*472  0 


r a o 

E XTEND 

MP  MP  AC  +1 

TS  L 

CAF  ZERO 
INDEX  BUF 
DAS  GC  CMP 


034n  RFF 


06,357  l 35C  2 


TCF  DR  FT  SUB  2 


0341  RFF  5R  LAST  338 
0341  1 RFF  1 


C 4616  1 LA  STB  I A S TC 
17244  0 C ADR 


BANKCALL 
PI  PUSE  1 


0 3412  RFF  0 LAST  34  C 

9342 
0 343 

0344  REF  29  LAST  340 


C 6, 3673 
C 6,  3674 
06  ,3675 
06,3676 


0 

0 

0 

1 


CCS  GCOMPSW 

TCF  +3 

TCF  +2 

TCF  ENOOF JOB 


03441  RFF 

03442  RFF 
33443  RCF 


LAST  339 
LAST  30  2 
LAST  340 


96, 3677 
06,3700 
C 6,  37C1 


2 0104  1 
7 4744  0 
54  141  1 


GA  FLAGWPD8 

MASK  SURFFBIT 
TS  TE  Ml 


145 
J46 
9 347 
0348 
0 349 


REF 

REF 


LAST  339 


, ■ I 

. r 

06,  9 70  4 
6 ,3701 
06,3706 


3 7730  1 
57*074  0 

4 OCOO  0 
6 1234  0 
1 3610  1 


CAF  PR  1 0 3 1 

XCH  1/PIPADT 
COM 

AD  PIPTIMF  + 

TCF  NBC2 


0350  REF 

0351  RFF 
335?  RFF 


LAST  338 
LAST  333 
l AST  333 


06,  370  7 
06,3  710 
06,  271  1 


3 3537  0 
56  003  1 
54  163  1 


GCOMP Z FR 


L3C0MP 

FBANK 

MODE 


0353 
3 354 

0355 

0356 
9357 
03  5 R 
0 359 


REF 

RFF 

REF 

REF 

REF 

RFF 

REF 


LAST 
LAST 
L AST 
LAST 
LAST 
LAST 
LAST 


341 
34  1 

34  1 
341 
34  1 
34  1 
341 


06 ,3712 

• ■ 

06, 3714 

06  ,3715 

. 7 i 

06,  371  7 
06,3720 


3 4755  1 
55*  477  0 
55*471  C 
55*472  0 
55*473  1 
55*474  0 
55*475  1 


CAF  ZERO 

TS  GCOMPSW 

TS  GCOMP 

TS  GCOMP  +1 

TS  GC  CMP  +2 

TS  GCOMP  + 3 

TS  GCOMP  -*4 
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USER  *S  3 AGE  NO.  11  E 3 S3 


NBC  SCALED  (GYRO  PULSES  )/(CS)  X 2(-5> 

DEL  TAT  SCALED  (CS)  X 21  + 19) 

HI(  NBD)  (DELTAT)  (GYRO  PULSES)  X 2(+14) 
NOW  FRACTIONAL  PART 


(NBC)  (DELTAT  ) (GYRO  PULSES)  X 2(  + l4) 

CHECK  MAGNITUDE  OF  COMPENSATION 


IF  SURFACE  FLAG  IS  SET,  SET  T FM1 
POSITIVE  SO  THAT  THE  ACCF  LE  PA  TI  ON  TERMS 
W ILL  BE  COMPENS  AT  ED. 


2 SECONDS  SCALED  (CS)  X 2 ( +8  ) 


ROUTINF  TO  7 FR  C GCOMP  BEFORE  FIRST 
CALL  TO  1/PIPA 


AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  8Y  ZOROASTER 


9:  1 2 OCT.  21*  1970  ZFRLAJD  .001 


PAGE  392 


IMU  COMPENSATION  PACKAGE 
0360  REF  22  LAST  391  06,3721  55'976  1 

J 36 1 REF  3 LAST  333  06,3722  1 3361  1 


JS  FR’S  PAGE  NO.  12 

TS  GCOMP  +5 

TCF  IRIG1  RESTORE  EBAN<  AND  RETURN 


E 3 S3 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZUROASTER 


9:12  CCT.  21  ,1970  ZERLAID  .001 


PAGE  343 


L 

« 1 3 . USER  'S  PAGE  Nfl.  1 EC  S3 

PD010 

R0011 

R0012 

SUBPOUT  INE  MAM  E:  V89CALL 

MCD  NO:  0 CATE:  9 JAN  1968 

MOD  BY:  DIGITAL  DE  VE  L 3R0LP  LCG  SECTION:  R63 

ROOl  3 

FUNCTIONAL  DESCRIPTION: 

R Of  14 
R3315 

CALLED  BY  VERB  89  ENTER  DURING  POO.  PPIO  10  USED.  CALCULATES  AND 

DISPLAYS  FINAL  FDAI  BALL  ANGLES  TO  POINT  I.M  + X OR  +Z  AXIS  AT  CSN. 

ROD  16 

R 0017 

1.  KEY  IN  V 89  E ONLY  IF  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 

F XI  T R 6 3,  OTHERWISE  CONTINUE. 

ROOl  R 

R 0019 

2.  IF  IN  POC  , DO  IMJ  STATUS  CHECK  ROUTINE  (8Q2B0TH).  IF  I MU  ON  AND  ITS 

ORIFNTATION  KNOWN  TC  LGC , CONTINUE. 

•0323 

R0UZ1 

R 0022 
R0D23 

3.  FLASH  DISPLAY  V C4  N C6.  R2  INDICATES  kHICH  SPACECRAFT  AXIS  IS  1C 

8F  POINTED  AT  CS  M . INITIAL  CHOICE  IS  PRFFERRFD  (+7)  AXIS  ( R 2=  1)  . 

ASTRONAUT  CAN  CHANGE  TO  (+X)  AXIS  ( R?  NOT  =11  BY  V 22  E 2 E.  CONTINUE 

AFT  ER  KEY  ING  IN  PROCEED. 

R 0024 

4.  BOTH  VEHICLE  STATE  VECTORS  UPCATED  BY  CONIC  EQS  . 

ROC  25 
R0026 

R 0027 

5.  HALF  MAGNITUDE  INI  T I.OS  VECTOR  (IN  STABLE  MEMBER  COORDINATES!  AND 

HALF  MAGNITUDE  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  BOD  Y C ODRO I NA  TE  S) 

PREPARED  FOR  VECPOINT. 

RO  3 25 
rooZo 

6.  GIMBAI.  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  FDAI  BALL  ANGLES  BY 

BALLANGS.  FLASH  DISPLAY  V 06  N 18  AND  AWAIT  RESPONSE. 

? 00  30 
R3031 

R 00  32 

7.  RECYCLE  - RETURN  TO  STEP  4. 

T ERM  IN  AT  E - EX  IT  R63  . 

PROCEFD  - RESET  3AXISFLG  AND  CALL  R60LEM  FOR  ATTITUDE  MANEUVER. 

R00.33 

CALLING  SEQUENCE:  V 89  E. 

R 0034 

R 00  35 

SUBROUTINES  CALLEC:  CHKPOOH,  R02BOTH,  GOXDSPF,  CSMCONIC,  LFMCONIC, 

VECPOINT,  FALLANGS,  R60LEM. 

R03  36 

NORMAL  EXIT  MODES:  TC  ENDEXT 

R 003  7 
R0038 
ROO^O 

ALARMS:  1.  OPERATOR  ERRDR  IF  NCT  IN  POO. 

?.  PROGRAM  ALARM  IF  I ML  IS  OFF. 

3.  PROGRAM  ALARM  IF  IMU  ORIENTATION  IS  UNKNOWN. 

R 0040 

OUTPUT:  NONE 

R3341 

ERASABLE  INITIALIZATION  REQUIRED:  NMNF 

R0042 

DEBRIS:  0PTI0N1,  +1,  TDEC1,  POINTVSM,  SCAXIS,  CPHI,  C THETA , CPSI, 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  Z URQA  S TER 

L R 63 

RDD43  3AXTSFLG. 


9:12  CCT.  21  .1970  Z ERL  A I C 
USFR *S  PAGE  NO.  2 


.001  PAGE  J44 
EO  S3 


0044  REF 

0045 

0046  REF 

0047 


LAST  289 


F4 , 1577 
32,2217 
26, 2000 
26  ,2024 


E RANK=  RONE 
BANK  32 
SFTLnC  8AWLANGS 
BANK 


3348  REF 

0049  REF 

0050  REF 
3351  REF 

0052  RFF 

0053  REF 

0054  REF 

0055  RFF 
3356  REF 

0057  REF 

0058  REF 
3359 

0060 

0061  REF 

0062 

0063  REF 
33635  REF 

0064  REF 

0065  REF 
3366  REF 

0067 

0068  REF 

0069  REF 

0070  REF 
3371  REF 
0072  REF 
00  7 3 

3374  REF 

0075  REF 

0076 

0077  RFF 
00771  REF 
337B  REF 

0079 

0080  REF 
3381  REF 
0082 

0083  REF 

0084  REF 

0085 

3385  REF 


1 

59  LAST  341 
1 

3 LAST  299 

8 LAST  310 
14  LAST  309 

9 LAST  344 
1 

60  I AST  344 
2 LAST  232 

25  LAST  305 


11  LAST  328 
2 LAST  214 


4 LAST  243 


5 LAST  344 
2 LAST  344 
5 LAST  344 


6 LAST  344 
2 LAST  344 

7 LAST  216 
1 


10  LAST  344 
15  LAST  344 

1 

12  LAST  344 
4 LAST  305 


26.2024 

26.2025 

26,  2o  26 

26  ,2027 

■ 

24,  20  31 
26,2032 
26,  20 2 3 

26.2034 

26.2035 
26,  20  36 

26  ,2037 

26.2049 
' 

26  ,2042 
26,  2043 
26,2044 
2 6 ,2  045 
26,  2 54  6 
26  ,2047 

26.2050 
26,  20  51 
26  ,20  52 

26. 2053 

26.2054 

26.2055 

26. 2056 
26  ,2057 
26,2060 
26,  2o 6 1 
26  ,206 2 
26,  2C63 

26.2064 

26.2065 
26,  2C66 
26  ,206 7 
26,2070 
26,  2071 
26  ,2072 
26,  2C73 


( 4616  1 
11241  0 
3 6257  1 
55'050  1 

3 4153  1 
55  *05  1 0 
32121  1 
C 4616  1 

20477  1 
C 5503  1 
0 2C40  1 

0 2032  1 
C 6C51  C 

<3234  C 
21555  1 
14124  0 
C2176  0 
34041  0 
27 065  1 

77775  1 
00001  0 
16200  1 

C2176  0 
34C41  0 
27077  l 
52375  1 
C2200  1 
00001  0 
47121  0 
01732  0 
21710  1 
C3773  1 

77776  1 

4 1051  0 
6 4153  1 
0 0006  1 

1 2115  1 
0 6051  0 

77775  1 
C6516  0 


V89CALL 


V99RFCL 


AL  INF  X 


COUNT*  TS/R63 
TC  BANKCALL 

CADK  R02  80T  H 
CAF  THREE 
TS  DPT  ION  X 

CAF  ONE 
T S UP  TI  ON  X < 

CAF  VB04N12 
Tf  BANKCALL 

CADR  GOFLASH 
TC  ENDEXT 

TC  +2 

TC  - 5 

TC  INTPRET 

R TB  DAD 

LOAOT  IMF 
DPI  MI  N 

STORE  T START  82 
STCALL  T DEC  1 

C SMC  CN I C 

VL  HAD 

RATT 
STODL  RONF 

T STAR T 82 
STCALL  TDEC1 

LEMCONIC 
V L GAO  VSU 
RONE 
RATT 

MX  V RTB 

R r F SMMA  T 
NORMIJN  IT 
STORF  POINTVSM 
EXIT 

CS  OPTIONX  ■ 

AD  ONE 

EXTEND 

BZF  AL INEZ 
TC  INTPRFT 

VLOAD 

UNI  TX 


IMU  STATUS  CHECK.  RETURNS  IF  ORIENTATION 
KNOWN.  ALARMS  IF  NOT. 

ALLCW  ASTRONAUT  TC  SELECT  DESIRED 
TRACKI  NG  ATTI  TUDE  AXI  S. 


V 0 4 VJ 


12 


T ERM  INAT  E 
PROCEED 

DATA  IN.  OPTIONl+l  = 1 FOR  Z AXIS 
= 2 FDR  X A XI  S 


READ  PRE  SENT  TI  MF 


SAVE  TIME  FOR  LEMCCNIC  CALL 
STORE  TIME  FDR  CSMCONIC  CALL 
CSM  STATE  VECTOR  UPCATE 
C SMCONIC  LFFT  R VFCTOR  IN  RATT 


SAVE  FOR  LINE  OF  SIGHT  (LOS)  COMPUTATION 

STORE  TIME  FOR  LEMCONIC  CALL 
LFM  STATF  VECTOR  UPDATE 
CSM  POSITION  - LEM  POSITION  = LOS 
LCS  VECTOR  LEFT  IN  MPAC 

( RE  FS  MM  AT  X LOS).  TRANSFORMS  LOS  FROM 
REFERFNCE  COORO  TO  STAB  MFMB  COORD. 

STORE  LOS  FOR  VECPOINT  CALL 

1 FOR  Z AXIS.  2 FOR  X A XI  S. 


X AXIS  ALIGNMENT 
REAC  ( .5,  D , D ) 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


L R63 


0087  REF  11 

3 3 9 3 REF  1 

00P9  REF  1 

0090 

33935  REF  61 

0091  REF  1 

00«2  REF  1 

0093  RFF  62 

0094  REF  3 

3395  REF  26 

0096 

0097  REF  1 

3398  REF  27 

0099  REF  2 

0 IOC  REF  6 3 

0101  REF  1 

0102  REF  27 


LAST 


L AST 


L AST 
LAST 
LAST 


L AST 
LAST 
LAST 

LA  ST 


258 


344 


345 
344 
34  4 


30  3 
236 
345 

345 


26,2074  37765  1 

26, 2C75  56040  0 

26.2076  00322  1 

26.2077  77776  1 

2 6,  2 1 C 0 C 4616  1 
26  ,2  10  1 54274  1 

26,2102  3 2122  1 

26,  2 lo  3 0 46  16  1 

26  ,2104  20477  1 

26,  2 105  C 55C3  1 
26,2106  0 2110  0 
26,2107  0 2040  1 

26,2110  C 5527  1 
26  ,2  l 11  00124  0 

26.2112  C 4616  1 

26. 2113  54125  0 

26 .2114  1 5 5 l 3 0 


VO 9 CAL  LI  S T CALL 


STOKE 
FX  IT 
TC 

CA  OR 
CAF 
TC 

CADR 

TC 


TC 

TC 

ADPES 

TC 

C ADR 
TCF 


S C AX  IS 
VECPOI  NT 
C PH  I 

BANKCALL 
BALL  ANGS 
V BO  6 N 1 ft 
BANKCALL 
CO  FLASH 
ENDEXT 
+ 2 

V89RECI 

OOWNFLAG 

3AXISFLG 

BANKCALL 

R60LEM 

FNDEXT 


31?3 
01  04 

0 10  5 
3136 


REF  13  LAST  344 

RFF  4 LAST  3C5 
REF  1 


26,  21  1 5 
26,2116 
26,211 7 
26,  2120 


C 6C51  0 
52175  0 
0651?  1 
54C74  0 


A LI  NE  Z 


TC  INTPRET 

VLOAO  GOTO 
'JNITZ 
V89CALL1 


01014  0 VR04N12  VN  412 

L 1 422  1 VBC6N18  VN  051B 
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USER'  S PAGE  NO.  3 E4  S3 

STORE  SELECTEO  ALIGNMENT  AXIS 

PUTS  DESIRED  GIM  AMG  (OG,  IG»  MG  > IN  TMPAC 

STORE  GIMBAL  ANGLES  FOR  8 ALL  ANGS  CALL. 


PUTS  DESIRED  BALL  ANGLES  IN  FDAIX,Y,Z 
V 06  N 18 

NOUN  18  REFERS  TO  FDAIX,Y,Z 

T EPMINAT  E 
PROCEED 
RECYCL  E 

RESET  3 4X  IS  FLAG 
RE  SET  31  T6  FLAG  WORD  5 

PERFORMS  LEM  MANEUVER  TO  ALIGN  SELECTED 
SPACECRAFT  AX  I S TO  CSM. 

TERMINATE  R 63 


Z AXIS  ALIGNMENT 
READ  (0,  0,  .5) 


GAP: 


ASSEMBLE  REVISION  56  3F  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 
PA  3 


9:12  OCT.  21,1970  ZERLAID  .OC  1 PAGE  3*6 
USER*  S PAGE  NC.  * E**  S3 


0 If  P 5 
i10R5 


00000  1 DPI  MIN  2 DEC  5000 
13560  0 
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ROOO  2 
ROCO* 


MOO  2 DATE  5/1/67 

PROGRAM  OESCR  I PT  ION 


BY  0 ON  KEENE 


*0004  KALCMANU  IS  A ROUTINE  WHICF  GENERATES  COMMANDS  FOR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE  SPACECRAFT 

PD3D6  CURING  FRFE  FALL.  IT  IS  DESIGNED  TO  MANEUVER  THE  SPACECRAFT  FROM  ITS  INITIAL  ORI  ENT  AT  I ON  T 0 S OME  DESIREO 

R f) 0 0.8  CRIENTATICN  SPECIFIED  BY  THE  FPCGRAM  WHICH  CALLS  KALCMANU,  AVOIDING  GIMBAL  LOCK  IN  THE  PROCESS.  IN  THE 

R00  10  MOD  2 VERSION,  THIS  DESIRFD  ATTITUDE  IS  SPECIFIED  BY  A SET  OF  THREE  COMMANDED  COU  ANGLES  STORED  AS  2S  COMPLEMENT 

ROOl  2 SINGLE  PRECISION  ANGIES  IN  THF  THREE  CONSECUTIVE  LOCATIONS,  CPHI,  CTHETA,  CPSI,  WHERE 


*0<  14  CPHI  = CGMMANDEO  CUTER  GIMEAL  ANGLE 

R 0 0 1 5 CTHETA  = COMMANDED  INNER  GIMBAL  ANGLE 

R0016  CPSI  = COMM  ANCEC  MIOCLE  CIMEAL  ANGLE 


* DO  1 7 WHEN  POINTING  A SPACECRAFT  AXIS  (E.I.  X,  Y,  7,  THE  AOT  , THRUST  AXIS,  ETC)  THE  SUBROUTINE  VECPOINT  MAY  BE 

R)J1R  USED  TO  GFNERATF  THIS  SET  OF  OF  SIRED  CDU  ANGLFS  (SEE  DESCRIPTION  IN  RM>  > 

R 0021  WI  TH  THIS  INFORMATION  KALCMANU  DETERMINES  THE  DIRECTION  DF  THF  SINGLF  EQUIVALENT  ROTATION  (CCF  ALSO  U)  ANO  THE 
R0023  MAGNITUDE  OF  THE  RUTATION  (AM)  TO  BRING  THF  S/C  FROM  ITS  INITIAL  ORIENTATION  TO  ITS  FINAL  ORIENTATION. 

R0C25  THIS  DIRECTION  REMAINS  FIXED  GOTH  IN  INERTIAL  COORDINATES  ANO  IN  COMMANDED  S/C  AXES  THROUGHOUT  THF 

* 002  7 

R00?8  MANEUVER.  ONCE  COF  ANO  AM  H A VF  BEEN  DETERMINED,  KALCMANU  THEN  EXAMINES  THE  MANEUVER  TO  SEE  IF  IT  WILL  BRING 

R0030 

* 0031  THE  S/C  THROUGH  GIMBAL  LOCK.  IF  SO,  COF  ANC  AM  ARE  READJUSTED  SO  THAT  THE  S/C  WILL  JUST  SKIM  THE  GIMBAL 

R)333  LCCK  ZONE  AND  ALIGN  THF  X-AXIS.  IN  GENERAL  A FINAL  YAW  ABOUT  X WI  I L RE  NECESSARY  TO  CGMPLETE  THE  MANEUVER. 

ROO35  NEEDLESS  TO  SAY,  NEITHER  THE  INITIAL  NOP  THE  FINAL  ORIENTATION  CAN  BE  IN  GIMBAL  LOCK. 

R0037 

RD.^a  FOR  PROPER  ATTITUDE  CONTROL  THE  DIGITAL  AUTOPILOT  MUST  BE  GIVEN  AN  ATTITUDE  REFERENCE  WHICH  IT  CAN  TRACK. 

*004'  KALCMANU  ODES  THIS  BY  GENERATING  A REFERENCE  OF  DESIRED  GIMBAL  ANGLES  (CDUXO,  CDUYD,  'OUZO)  WHICH  ARE  UPDATED 

R0042  EVERY  ONE  SECOND  DURING  THE  MANEUVER.  TO  ACHIEVE  A SMOOTHER  SECUFNCE  OF  COMMANDS  BETW  EFN  SUCCESSIVE  UPDATES, 
R0044  THE  PROGRAM  ALSO  GENERATES  A SET  OF  INCREMENTAL  CDU  ANGLES  ( DE  LDCD  U)  TO  BE  ADDED  TO  COU  DESIRED  BY  THE  DIGITAL 

*'»04*  AUTOPILOT.  KALCMANU  ALSO  C A LCL  L AT  E S THF  COMPONENT  MANEUVER  RATES  (OMEGAPO,  DM  EGAQD , OMEGARO  ) , WHICH  CAN 

R 0049  BE  DETFRMINEC  SIMPLY  BY  MULTIPLYING  COF  BY  SOME  SCALAR  (ARATE)  CORRESPONDING  TO  THE  DESIRED  RGT  AT  I GNAL  PATE. 
R0051 

RD^52  AUTOMATIC  MANEUVERS  ARE  T IMFD  WITH  THE  HELP  OF  WAITLIST  SO  THAT  AFTER  A SPECIFIED  INTERVAL  THE  Y AND  Z 

*0054  DESIRED  RATES  ARE  SET  Til  /ERT  /NO  THE  DESIRED  CDU  ANGLES  (CDUYD,  CDUZD)  ARE  SET  EOUAL  TO  THE  FINAL  DESIRED  COU 
R 005  6 ANGLES  (CTHETA,  CPSI).  IF  ANY  YAW  REMAINS  DUF  TO  Gl  MBAL  LCCK  AVOIDANCE,  THE  FINAL  YAW  MANFUVFR  IS 

«O0S8  CALCULATFO  AND  THE  CESIRFD  YAW  RATE  SET  TO  SOME  FIXED  VALUF  (ROLLRATF  = ♦ OR  - 2 DEGREFS  PER  SEC). 

* )D6  ' IN  THIS  CASE  ONLY  AN  INCREMENTAL  CCIJX  ANGLE  (DELFROLL)  IS  SUPPLIED  TO  THE  DAP.  AT  THF  END  OF  THE  YAW 

lO  ‘ 2 MANEUVER  OR  IN  THE  EVENT  THAT  THERE  WAS  NO  FINAI  YAW,  CDUXO  IS  SET  EOUAL  TO  CPHI  AND  THE  X-AXIS  DESIRED 

ROC 64  PATE  SET  TC  ZFRO.  THUS,  UPCN  COMPLETION  OF  THE  MANEUVER  THE  S/C  WILL  FINISH  UP  IN  A LIMIT  CYCLF  ABOUT  THE 

R0066  DESIRED  FINAL  GIMBAL  ANGLES. 


R0067  PROGRAM  LGGIC  FLOW 

*0  *8  KALCMANU  IS  CALLED  AS  A HIGH  PRIORITY  JOB  WITH  ENT  RY  POINTS  AT  KALCMAN?  AND  VECPOINT.  IT  FIRST  PICKS 

RDJ7:  UP  THE  CURRENT  CDU  ANGLES  T'J  RF  L SED  AS  THE  BASIS  FOR  ALL  COMPUTATIONS  INVOLVING  THE  INITIAL  S/C  ORIENTATION. 
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1 QC72 
RD57A 

IT  THEN  DETERMINES  THE  DIRECTION  COSINE  MATRICES  RELATING  BOTH  THE  IN  IT  I AI  AND  FINAL  S/C  ORIENTATION  TO  STABLE 

R 00  76 
ROC  78 
ROC  80 

MEMBER  AXES  (MIS,  RFSJ.  IT  ALS  C COMPUTES  THE  MATRIX  RELATING  FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  (MFI).  THE 
ANGLE  OF  ROTATION  (AM)  IS  THEN  EXTRACTED  FROM  THIS  MATRIX,  AND  TESTS  ARE  MADE  TO  DETERMINE  IF 

1 0001 

R)082 

A)  AM  LESS  THAN  .25  DFGRFFS  ( M INANG ) 

R)  AM  GREATER  THAN  170  DEGREES  (MAXAN5) 

R0083 
10085 
RD  587 

IF  A w LESS  THAN  .25  CEGREES,  NO  COMPLICATED  AUTOMATIC  MANE  UVE 1 1 MG  IS  NECE  SSARY.  THE  REF  CRE  WE  CAN  SIMPLY 
SET  CDU  DE  SI  H ED  EQUAL  TO  THE  FINAL  CDU  DESIRED  ANGLES  AND  TERMINATE  THE  JOB. 

ROCflfl 

IF  AM  IS  GREATER  THAN  .25  CEGPEFS  BUT  LESS  THAN  170  DEGREES,  THE  AXES  OF  THE  SINGLE  E CUI  VALENT  ROTATION 

R0090 

RD031 

10C93 

R0095 

(COE)  IS  EXTRACTED  FROM  THE  SKEW  SYMMETRIC  COMPONENTS  OF  ME  I . * * 

IF  AM  GREATER  THAN  L70  DEGREES  AN  ALTERNATE  M ET  HD  D EMPLOYING  THE  SYMMETRIC  PA1  T DF  MFI  (MFISYM)  IS  USED 

R 0096 

TC  DFTFRMINE  CCF. 

10097 
RD  599 

R 0101 
RO  1^3 
R0105 

THE  PROGRAM  THEN  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTED  WILL  BRING  THE  S/C  THROUGH  GIMBAL  LOCK.  IF 

SO,  A NEW  MANEUVER  IS  CALCULATED  WHICH  WILL  JUST  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALIGN  THE  S/C  X-AXIS.  THIS 

ME  TH  CD  ASSURES  THAT  THE  ADCITICNAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  BE  KEPT  TO  A MI  NI  MUM.  SINCE  A FINAL 

P AXIS  YAW  WILL  BE  NECF  SSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOR  THF  COMPUTATION  OF  THIS  FINAL 
YAW. 

1 0106 
R01D3 

AS  STATED  PREVICUSLY  K A LC  M A NU  GENERATES  A SEQUENCE  OF  DESIRED  GIMBAL  ANGLES  WHICH  ARE  UPDATED  EVERY 

ROHO 

10112 

SECOND.  THIS  IS  ACCOMPLISHED  eY  A SMALL  POTATION  OF  THE  DESIRED  S/C  FRAME  ABOUT  THE  VECTCR  CCF.  THE  NEW 
DESIRED  REFERENCE  MATRIX  IS  THEN, 

R5113 

R 0 1 1 A 
RO  115 

MIS  = MS  DEL 

N+l  N 

ROl  16 

1 011  7 

WHERE  DEL  IS  THE  MATRIX  C ORR  ES  PCNC I NG  TO  THIS  SMALL  ROTATION.  THE  NEW  C DU  ANGLES  CAN  THEN  BE  EXTRACTED 

R 0 1 1 9 
R0120 

FRCM  MIS. 

10  121 
10123 

R 0 1 2 5 

RO  1 27 
ROl  2 9 
10131 

AT  THE  BEGINNING  OF  THE  MANEUVER  THE  AUTOPILOT  DESIRED  RATES  (OMEGAPD,  OMEGAQD , DMEGARD)  AND  THE 

MANEUVER  TIMINGS  ARE  ESTABLISHED.  ON  THF  FIRST  PASS  AND  ON  ALL  SUBSEQUENT  UPDATES  THE  CCU  T ES  I RED 

ANGLES  ARE  LOACED  WITH  THE  AFPPCPPIATF  VALUES  AMD  THE  INCREMENTAL  CDU  ANGLES  ARE.  COMPUTED.  THE  AGC  CLOCKS 
(TIMF1  AND  TIME  2)  ARE  THAN  CHECKED  TO  SEE  IE  THE  MANEUVER  WILL  TERMINATE  BEFORE  THE  NEXT  UPOATE.  IF 

NCT , KALCMANU  CALLS  FOR  ANOTHER  UPDATE  (RUN  ASA  JOB  WITH  PRIORITY  TBD)  IN  ONE  SECOND.  ANY  DELAYS  IN  THIS 
CALLING  SEQUENCE  ARE  AUT  C M AT  I C A L LY  COMPENSATED  IN  CALLING  FOR  THE  NEXT  UPDATE. 

RO  1 33 
R013a 
101  36 

RO  1 38 

IF  IT  IS  FOUND  THAT  THE  MANEUVER  IS  TO  TERMINATE  BEFORE  THE  NEXT  UPOATE  A ROUTINE  IS  CALLED  (AS  A WAIT- 
LIST TASK)  TO  STOP  THE  MANEUVER  AT  THE  APPROPRIATE  TIME  AS  EXPLAINED  ABOVE. 
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*0139  CALLING  SEQUENCE 

RjH'  IN  ORDER  TO  PERFORM  A K ALCMANU  SUPERVISED  MANEUVER,  THE  COMMANDED  GI  MBAL  ANGLES  MUST  eE  PRECOMPUTED  AND 

STOPFO  IN  LOCATIONS  C PH  I , CThCTA,  CPS  I . THE  USER:S  PROGRAM  MUST  THEN  CLEAR  STATE  SWITCH  NO  33  TO  ALLOW  THE 
R01A4  ATTITUDE  MANEUVER  ROUTINE  TO  PERFORM  ANY  FINAL  P-AXI  S YAW  INCURRED  PY  AVOIDING  GIMBAL  LOCK.  THF  MANEUVER  IS 
R ul  46  THEN  INITIATED  BY  ESTABLISHING  TEE  FOLLOWING  EXECUTIVE  JOB 


10  147  « 

R3148  CAF  PR  10  XX 

R 0 1 49 

R 0 1 50  INHINT 

H0 1 51  TC  FINDVAC 

R0152  ?C  ADR  KALCMAN3 

R0153  RELINT 


R015A  THE  USE  P:  S PROGRAM  MAY  EITHER  CONTINUE  OR  WAIT  FDR  THE  TERMINATION  OF  THE  MANEUVER.  IF  THE  USER  WISHES  TO 
*0156  WAIT,  HE  MAY  PUT  HIS  JOB  TC  SLEEP  WITH  THE  FOLLCWING  INSTRUCTIONS 


RM57  L 

R0I58  L+l 

RC159  L+2 

RD 1 60  L +3 


TC  BANKCALL 

CACR  ATTS1ALL 

(BAD  RETURN) 

(GOOD  RFTURN) 


*0161  UPON  COMPLETION  OF  THF  MANFUVER,  THE  PROGRAM  WILL  BE  AWAKENEO  AT  L + ? IF  THE  MANEUVER  WAS  COMPLETED 

RM63  SUCCESSEUI  LY,  OR  AT  L + 2 IF  THE  MANEUVER  WAS  ABORTED.  THIS  ABORT  WOULD  OCCUR  IF  THE  INITIAL  OR  FINAL  ATTITUDE 

R Ol 65  WAS  IN  GIMPAL  LCCK. 


’ 0166  ***NOTA  BENE***  IT  IS  ASSlMfO  THAT  THE  DESIRED  MANEUVERING  RATE  (0.5,  2,  f,  V,  DEG/SEC  > HAS  BEF  N SELECTED  BY 
R)1S«  KFYPnARD  rNT  R Y PRIOR  TO  THF  EXECUTION  OF  KALCMANU. 

R 0169  IT  IS  ALSO  ASSUMES  THAT  THE  AUTOPILOT  IS  IN  THE  AUTO  MODE.  IF  THF  MODE  SWITCH  IS  CHANGED  DURING  THE 

R 0 17  1 MANEUVER,  KALCMANU  WILL  TERMINATE  VIA  GOODEND  WITHIN  l SECOND  SO  THAT  R60  MAY  REQUEST  A TRIM  DF  THF  S/C  ATTITUDE 

R0173  TEIS  IS  THE  ONLY  MEANS  FOR  MANUALLY  TERMINATING  A KALCMANU  SUPERVISED  MANEUVER. 

*0175  SUBROUTINES 


KALCMANU  USES  A NUMBER  OF  INTERPRETIVE  SUBROUTINES  WHICH  MAY  BF  OF  GENERAL  INTEREST.  SINCE  THESE  ROUTINES 
' '78  WERE  PROGRAMMER  EXCLUSIVELY  TOR  KALCMANU,  THEY  ARE  NUT,  «S  YET,  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PROGRAMS. 

10180 

RD181  MXM  3 

RO 182  


Rl'lflT  THIS  SUBROUTINE  MULTIPLIES  TWC  3X3  MATRICES  AND  LEAVES  THE  RESUIT  IN  THE  FIRST  18  LOCATIONS  OF  THE  PUSH 

R 01  85  DOWN  L 1ST,  I . G . , 


1 1 86 
RO  1 87 
R0l8» 
1 ( 189 
RD193 
R 0 1 9 1 
1 1 19? 


(M  M f ) 

( 0 1 2) 
( ) 

( M M M ) 

(3  5) 

( ) 

(M  M M ) 
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R 193 

( 6 7 8 ) 

R0194 
RllRS 
* 1 99 

INDEX  REGISTER  X 1 MUST  BE  LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  ECR  Ml,  AND  X2  MUST  BE 

R01  9*3 

R0201 

1 0203 

LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M? . THE  ROOT  INF  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH 

DCWN  LIST.  THE  FIRST  ELEMENT  OF  THE  MATRIX  APPEARS  IN  PDO.  PUSH  UP  FOR  M . 

8 

R3205 

R0206 

1 0207 

TPANS POS 

R32D8 

R 0210 
R0211 
R3212 

THIS  ROUTINE  TRANSPOSES  A 3x3  MATRIX  AND  LEAVES  THE  RESULT  IN  THE  PUSH  DOWN  LIST,  I.E., 

* * T 

M = Ml 

* 0213 
RD215 

INDEX  REGISTER  XI  MUST  CCNT  A T A THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml.  PUSH  UP  FOR  THE  F I P ST  AND  SUB- 

R021  6 
10218 

SEQUENT  COMPONENTS  OF  M.  THIS  SUBROUTINE  ALSO  USES  THE  FIRST  2C  LOCATIONS  OF  THE  PUSH  DCWN  LIST. 

R0219 

R ' 22 

CDU  TO  CCM 

R 0 22 1 
R0221 
1022  5 

THIS  SUBROUTINE  CONVERTS  THREE  CDU  ANGLES  IN  T(MPAC)  TO  A DIRECTION  COSINE  MATRIX  (SCALED  BY  2)  1 EL  A TING 

THE  CORRESPONDING  S/C  ORIENTATIONS  TO  THE  STABLE  MEMBER  FRAME.  THE  FORMULAS  FOR  THIS  CONVERSION  ARE 

R 0 2 2 6 

R 0227 

M = COSY  COSZ 

0 

1 0 228 
RD229 

M = -COSY  SINZ  CCSX  + S I NY  S I NX 

1 

R 0230 
R0231 

N = COSY  SINZ  S INX  4 S INY  COSX 

2 

R0232 

1 0233 

M = S INZ 

3 

R 3 234 
P0235 

M = COSZ  COSX 

10236 

R3237 

M = -COSZ  ST  NX 

5 

R 0238 

RO  239 

M = -SINY  COSZ 

fc 

110240 

1 0241 

M = SINY  SINZ  COSX  + COSY  SINX 

7 
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R024? 

7 0243 

P = -S  INY  SINZ  SINX  + COSY  CO  SX 

8 

RD244 

R 02  45 

7 3246 

WHERE  X = OUTER  G1MBAL  ANGLE 

Y = INNER  GIM8AL  AN  a E 

7 = PIDDLE  CIPEAL  ANGLE 

RD247 

THE  INTERPRETATION  OF  THIS  MATRIX  IS  AS  FOLLOWS 

7 0248 
RO  250 
R3251 

7 0252 

IF  A , A , A REPRESENT  THE  COMPONENTS  OF  A VECTOR  IN  S/C  AXES  THEN  THE  COMPONENTS  OF  THE  SAME  VECTOR  IN 

X Y Z 

STABLE  MEMBER  AXES  (B  , B , R ) ARE 

X Y Z 

R 3253 
R0254 

7 '255 
P.7256 

( 8 ) (A  ) 

( X ) ( X ) 

I ) ( ) 

( ) * ( > 

R0257 

R 0 2 5 8 
R3  2 59 

( e > = m (a  > 

( Y)  ( Y) 

( ) ( ) 

7 0260 
R0261 

(8  ) (ft  ) 

( l ) ( Z) 

R02&2 

70264 

THE  SUBROUTINE  WILL  STORE  THIS  MATRIX  IN  SEQUENTIAL  LOCATIONS  OF  ERASABLE  MEMORY  AS  SPECIFIED  BY  THE  CALLING 

R3266 

R 0268 

PROGRAM.  TO  DO  THIS  THE  CALLING  PROGRAM  MLST  FIRST  LOAD  X2  WITH  THE  COMPLEMENT  CF  THE  STARTING  ADDRESS  FOR  M. 

RO  269 

K 0 2 7 1 

INTERNALLY,  THE  ROUTINE  ISES  THE  FIRST  16  LOCATIONS  OF  THE  PUSH  DOWN  l 1ST,  ALSO  STEP  REGISTER  SI  AND  INDEX 
REGISTER  X 2 • 

7 027? 

R 0 2 7 7 
<70274 

DC  M TO  CD  U 

70276 

R3278 

THIS  ROUTINF  FXTRACTS  THE  CDU  ANGLES  FROM  A DIRECTION  COSINE  MATRIX  <P!  SCALED  BY  2)  RELATING  S/C  AXIS  TO 

R 0280 

RO  28? 
R0284 

STABLE  PEMEER  AXES.  XI  MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M.  THE  SUBROUTINE  LEAVES  THE 
CORRESPONDING  GIMBAL  AN3LFS  IN  V(PPAC)  AS  DOUBLE  PRECISION  1:S  COMPLEMENT  ANGLES  SCALED  BY  2P I . THE  FORMULAS 

FCR  THIS  CONVERSION  ARE 

70285 

R 02  86 

Z = ARCSIN  (P  ) 

3 

R 02  8 7 

7 : 288 

Y = ARCS  IN  ( -M  /COSZ  ) 

6 

RO  289 

R 0290 

IF  M IS  NEGATIVE,  Y IS  REPLACED  BY  PI  SGN  Y - Y 

0 
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R ' 2 9 1 X = ARCS  IN  (-M  /COSZ) 

R 0292  5 


R^2 93  IF  M IS  NEGATIVE  X I S REPLACED  BY  PI  SGN  X - X 

R 02  9A  A 


* 0295  THIS  ROUTINE  DOFS  NOT  SET  TEE  PUSH  DOWN  POINTER,  BUT  USES  THE  NEXT  P LOCATIONS  DF  THE  PUSH  DOWN  LIST  AND 

RT297  RETURNS  THE  POINTER  TO  ITS  ORIGINAL  SETTING.  THIS  PROCEDURE  ALLOWS  THE  CALLEP  TO  STORE  THE  MATRIX  AT  THE  TOP  OF 
RC?99  THE  PUSH  OCWN  LIST. 
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*0300  DELCOMP 

ft!)  3}  1 


R 0302  * 

R03G3  THIS  ROUTINE  COMPUTES  THE  DIRECTION  CCSINE  MATRIX  (DEL)  RELATING  ON 

R030A 

*1306  IS  ROTATEO  WITH  RESPECT  TO  TEE  FIRST  eY  AN  ANGLE,  A,  ABO  IT  A UNIT  VECTOR,  U.  THE  FORMULA  FOR  THIS  MATRIX  IS 

RD3DR 

R0309  * * — T * 

* 310  DEL  = I CCSA  ♦ LU  (1-COSA)  ♦ V S I NA 

R3311  X 


R 0312  WHERE 
R 0 31  3 
R03 1 A 


* C 315 
R ) 3 ] 6 
R031  7 

* 0318 
R3319 
R 0 32r' 
R0321 
R0322 

* 0323 
R032A 
R0325 


■T 


UU 


2 


( U 
( X 
( 

( 

(U  u 
( Y X 


( U U 
( Z X 


U U U U ) 

X Y X 7 ) 


U U U ) 

Y Y 7) 


2 ) 

L U U ) 

Z Y Z ) 


* 0326 
R3327 
R 032  8 


* '.'329 
RD333 
RG331 
» 0 33? 
RD333 


(0 

( 

* ( 

V = (U 
X ( z 

( 

( - U 
( Y 


-U 

2 

0 


U 


X 


U 

Y 

-U 


0 
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RO  334 
R3335 

R 0336 

U = UNIT  ROTATION  VECTOR  RESOLVED  INTO  S/C  AXES 

A - RCTATICN  ANGLE 

RD  337 

R033e 

THE  INTERPRETATION  OF  DEL  IS  AS  FOLLOWS 

R 0 33Q 
R3341 

IF  A , A , A REPRESENT  THE  CCMPONENT  OF  A VECTOR  IN  THE  ROT  AT  FD  FRAME,  THEN  THE  COMPONENTS  OF  THE  SAME 

X Y l 

*0342  VEC.TCR  IN  THF  CRIGINAL  S/C  AXES  ( E , B , B ) ARE 
RC343  X Y Z 


03  4 A 

R 0345 
R0346 

R C 347 

R 034B 
R3349 

( B ) ( A ) 

(X)  (X) 

( ) * ( ) 

(e  ) = CEL  (A  ) 

I Y)  ( Y) 

( ) ( ) 

R035P 

R0351 

(B  ) (A  ) 

( Z ) ( Z) 

R0352 

R 0354 

THE  ROUTINE  WILL  STORE  THIS  MATRIX  (SCALED  UNITY)  IN  SEQUENTIAL  LOCATICNS  OF  ERASABLE  MEMORY  BEG  INN  IN  G rl  IT  H 

R0356 
R03  5 8 

R 0360 

THE  LOCATION  CALLED  DEL.  IN  CEDE  P TO  USE  THE  ROLTINF,  THE  CALLING  PROGRAM  MUST  FIRST  STOP  F U (A  HALF  UNIT 

DOUBLE  PRECISION  VECTOR)  IN  TEE  SET  OF  ERASABLE  LOCATIONS  BEGINNING  WITH  THE  ADDRESS  CALLFO  COF.  THE  ANGLE.  A, 
MUST  THEN  BE  LOADED  INTO  CIMP/C). 

< 

R 0363 

INTERNALLY,  TEE  PROGRAM  ALSO  USES  THE  FIRST  1C  LOCATIONS  OF  THE  PUSH  DCWN  LIST. 

R 0 364 
R3365 

PEAOCDUK 

R 0366 

R D 368 

THIS  BASIC  LANGUAGE  SURFCUTINE  LOADS  T(MPAC)  WITH  THE  THPFE  CDU  ANGLES. 

R0369 

R 0 370 

SIGNMPAC 

P3371 

R 0373 

THIS  IS  A BASIC  LANGUAGF  SLRROUTI NE  WHICH  LIMITS  THE  MAGNITUDE  OF  D(MPAC)  TO  + OR  - DPOSMAX  ON  OVERFLOW. 

RO  374 

PROGRAM  STORAGE  ALLOCATICN 

R0375 

R 0376 

R 3 377 

1)  FIXED  MEMORY  1050  WORDS 

2)  FRASA8LE  MFMCPY  98 

3)  STATE  SWITCHFS  3 

GAP: 
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< '378 

4)  FLAGS  1 

RD379 

JOB  PRIORITIES 

RC380 
. 38 1 

1)  KALCMANU  TBD 

2)  ONE  SECOND  UPDATE  TBD 

R0382 

SUMMAPY  OF  STATE  SWITCHES  AND  FLAGWOROS  USED  BY  KALCMANU. 

1 0383 
R3384 

STATE  FLAGWRD  2 SETTING  MEANING 

SW  ITCH  NO.  BIT  NO  . 

3 0385 
RO  386 
R03  88 
< 0390 

21  14  0 MANEUVER  WENT  THROUGH  GIMBAL  LOCK 

1 MANEUVER  DID  NOT  GO  THROUGH  C-TMBAL  LOCK 

R03  Q1 
RC3g2 
< 0393 

32  13  0 CONTINUE  UPDATE  PROCESS 

1 START  UPDAT  E PROCESS 

R3394 

R 0396 

33  12  0 PERFORM  FINAL  P-AXIS  YAW  IF  REQUIRED 

1 IGNORE  ANY  FINAL  P-AXIS  YAW 

R 0 398 

R 3 3 9 9 

R 0400 

34  110  SIGNAL  END  OF  KALCMANU 

1 KALCMANU  IN  PROCESS  USER  MUST  SET  SWITCH  BFFORE  INITIATING 

R04D2 

o INTERNAL  TO  KALCMANL 

R 04  03 

SUGGESTIONS  FCR  PROGRAM  INTEGRATION 

R0404 

THE  FOLLOWING  VARIABLES  SHCULD  BE  ASSIGNEC  TO  UNSWITCH  ERASABLE 

R 0405 
l 0406 
R04C7 

R 0408 
* 0409 
RD413 

R 0 4 1 1 
RD412 
R3413 

C PH  I 

CTHETA 

CPSI 

POINTVSM  45 

SCAXIS  +5 

DEL  OCOU 

DEL  DC DU  1 

DELDCDU2 

R AT  F INDX 

<0414 

THE  FOLLOWING  SUBROUTINES  MAY  BE  PUT  IN  A DIFFERENT  BANK 

^3^15 


MXM  3 
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L ATTITUDE  MANEUVER  ROUTINE 


9:12  OCT.  21,  1970  ZERLAID 
USER'  S PAGE  NO.  9 


.001  PAGE 
ED  S3 


355 


* '416 
R ) A 1 7 
RO«flR 
10419 


TRANSFCS 
SI  GNMPAC 
READCCUK 
COUTODC  P 


GAP:  ASSEMBLE  REVISION  56  3 F AGC  PROGRAM  ZfcRIINA  BY  ZOROASTER 
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PEE  1 


I r . " 5 
22,  2000 
22  ,2004 


0427 

042  8 
342? 
G4  3r 
0431 
3 437 

043  8 
>439 

0440 

0441 
3442 

0443 

0444 
3 44  5 

0446 

0447 

0448 
3449 

0450 

0451 
3 452 

0453 

0454 

0455 

0456 
3457 
0458 
045^ 
3460 
0461 
0 462 

0463 

0464 
3465 

0466 

0467 
3 468 

0469 

0470 

0471 

0472 


REF 

REF 

REF 

REF 

REF 


REF 

RFF 

REF 

REF 


LAST  291 


LAST 

LAST 


BANK  15 
SETLO:  KA  LC  MON  1 
8ANK 

FB ANK=  BCOU 


LAST 

LAST 

LAST 
LAST 
L AST 


LAST 
L AST 


356 

356 

139 

356 

356 


356 

356 


22  ,2304 
22,  2f’C5 
22,2006 
22,2007 
22, 2ulO 
22  ,2011 
2?  ,201 2 
22,  20  13 
22  ,2014 

22. 2015 

22.2016 
22  ,2017 
22, 2020 
22  ,2021 
22  ,2022 

22.2023 
22,  2024 
22,202  5 
22,2026 
22,  2027 
2?  ,2030 
22,2031 
2 2,  20  3 2 
22  ,2033 

22. 2024 
22,2035 
22  ,2036 
22, 2037 
22  ,2040 
2? , 2C4  1 
22,  2042 
2?  ,2043 
22, 2C44 

22.2045 

22.2046 
22,  2C4  7 
22  ,2050 
22,2051 
22,  2052 
22  ,2053 


0 6051  0 
77634  O 
44403  0 
032  76  1 
51535  0 
00324  1 
51025  1 
04403  1 
44724  0 
72364  0 
03245  1 
C3276  1 
77624  1 
444  10  1 

72364  0 
02221  1 
C0322  1 
77624  1 
44410  1 
45160  1 
03245  1 
44326  C 
45575  1 
50460  0 
77626  0 
50466  0 
77626  0 
74474  0 
75  160  1 
03302  C 
02221  1 
77624  l 
44312  1 
45575  1 
51541  0 
77626  0 
51547  0 
77626  C 
75555  0 
45001  1 


COLNT* 
KALCMAN3  TC 
RTR 


CALL 

AXC,2 

CALL 
AXC  ,1 


VLOAD 
STOVL 
STADR 
STflVL 
ST  ADR 
STCRE 
AXC,  1 


CALL 

VLOAD 
STOVL 
STADR 
STOVL 
STADR 
STORE 
S ETPD 


READCDUK 
BC  DU 
ABS 
CP  SI 
BPL 

LOCKANGL 
TOOBADF 
T L CAD 
MI  S 
BC  DU 


C PHI 

COUTOCCM 

CALL 

M IS 

TRANS POS 
STADR 

T M IS  +120 

TMI  S +6 

T MI  S 
AXC,  2 
TM  IS 
MF  S 

MX  M3 
STADR 
MFI  + 1 2D 


9:12  CCT.  21,1970 


ZERL  AIC 
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USER  ' S PAGE  NC.  10 


EO  S3 


COMPLEMENT  ANGLES  IN  THE  THP.EF  SUCCESSIVE 


PICK  UP  THE  CURRFNT  CDU  ANGLES  AND 
COMPJTF  THF  MATRIX  FROM  INITIAL  S/Z 
A XES  TO  E INA  L S/C  AXES 
STORE  INITIAL  S/C  ANGLES 
CHECK  THE  MAGNITUCE  OF  THE  DESIRED 
MIDDLE  GIMRAI  ANGLE 

IE  GREATER  THAN  70  DFG  ABORT  MANEUVER 


COMPUTE  THE  TRANSFORMATION  FROM  INITIAL 
S/C  AXES  TO  STABLE  MEMBER  AXES 

PREPARE  TO  CALCULATE  ARRAY  MF  S 

MIS  ANO  MFS  ARRAYS  fALCULATFD  $2 


TMIS  = TRANS  POSE  (MIS  ) SCALED  BY  2 


MFI  = TMIS  MFS  (SCALEC  BY  4) 
TRANSPOSE  MFI  I N PD  LI  ST 
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0473 

22,  2054 

OOC  23 

0 

18D 

0474 

REF 

1 

22,2055 

44335 

1 

T RNSPSPD 

0475 

22,  2056 

45575 

L 

VLOAD 

STADR 

04  76 

REF 

1 

22,2057 

50460 

0 

STOVL 

TMFI  +12D 

0477 

22  ,2060 

77626 

0 

ST  ADR 

0478 

REF 

2 

L AST 

357 

22, 2C6  1 

50466 

c 

STCVL 

TMFI  +6 

0479 

22  ,2062 

77626 

0 

STADR 

0480 

REF 

3 

LA  ST 

357 

22 ,2063 

74474 

0 

STCRE 

TMFI 

R0481 

R 048? 

CALC  ULA  TE  COF  SKEW  , 

AND  PFISYP 

R °4  83 

04  84 

22,  2064 

45  245 

1 

DLOAD 

DSU 

0485 

REF 

4 

LAST 

35  7 

22  ,2065 

03305 

1 

TMFI  +2 

3496 

REF 

4 

L AST 

356 

22,  2C66 

C2224 

1 

MFI  +2 

0487 

22  ,2067 

45325 

1 

POOL 

DSU 

0488 

RFF 

5 

LA  ST 

357 

22  ,2070 

02226 

0 

MFI  +4 

3499 

REF 

5 

1 AST 

357 

22,  207  1 

0 3 3c  7 

c 

TMFI  +4 

0490 

22  ,2072 

45325 

1 

POOL 

DSU 

049  1 

REF 

6 

LA  ST 

357 

22  ,2C73 

03315 

0 

TMFI  +10C 

04  92 

REF 

6 

L AST 

35  7 

22, 2074 

02234 

0 

MFI  + 1 OD 

0493 

22  ,2075 

77666 

1 

V DEF 

D 49  4 

REF 

4 

LAST 

139 

22,  2 C 7 6 

02325 

0 

STCRE 

COFSKEW 

R 0496 

R 04  96 

CALC  ULA 

TF  AM  AND  PRCCEED  ACCCRCING  TO 

ITS  MAGNITUDE 

RD  497 

0498 

22  ,2077 

43345 

1 

DLOAD 

DAD 

0499 

RFF 

7 

LAST 

357 

22  ,2100 

02222 

1 

MFI 

3530 

REF 

8 

L AST 

357 

22,  2 10  1 

02242 

1 

MFI  +1 60 

0501 

22  ,2102 

43225 

0 

DSU 

DAD 

0502 

REF 

2 

LAST 

37 

22,  2 1 C 3 

C651C 

0 

DP1/4TH 

0503 

REF 

9 

LAST 

357 

72,  2104 

02222 

0 

MFI  4-  8D 

0504 

REF 

2 

LAST 

139 

22  ,2105 

03333 

1 

STOKE 

CAM 

3535 

22,  2106 

77726 

1 

ARCCOS 

0506 

RFF 

1 

22  ,2107 

03335 

1 

STORE 

AM 

0507 

22  ,2110 

51025 

1 

DSU 

BPL 

3508 

RFF 

1 

22,  2 1 1 1 

04  263 

0 

MI  NANG 

0509 

REF 

1 

22  ,2112 

44117 

0 

CHECKMAX 

0510 

22,  2113 

77751 

1 

TLOAD 

0511 

REF 

3 

LAST 

356 

22, 2114 

00322 

1 

C PHI 

0512 

REF 

9 

LA  ST 

209 

22  ,2115 

37235 

1 

ST  CAL  L 

CDUXD 

3513 

RFF 

1 

22,  2116 

44742 

c 

TOCBADI 

0514 

22  ,2117 

45345 

1 

CHECKMAX  DLOAD 

DSU 

05)5 

R EF 

2 

LA  ST 

357 

22,2120 

03335 

1 

AM 

05 1 6 

RFF 

1 

22,  2121 

04265 

0 

MA  XA  NG 

051  7 

22  ,2122 

77244 

0 

BPL 

VLOAD 

3519 

RFF 

1 

22,  2123 

44  131 

1 

ALTCALC 

0519 

REF 

5 

LAST 

357 

22,?124 

03325 

0 

COF  SKEW 

0520 

22,2125 

77656 

1 

UNIT 

352) 

REF 

1 

22,  2126 

02270 

1 

STORE 

COF 

9:  12  QZ  T.  21 ,1970  ZER  LAI  U 


PAGE  357 


.001 


USER'S  PAGE  NO  . 11 


TMFI  = TRANSPOSE  (MFD  SCALED  BY  4 


CALCULATE  C OF  SCALED  BY  2/S  INI  AM) 


EQUALS  MFISKEW 


CAM  = IMF  IO+MF  I4+MF  I 8-  1)  / 2 HALF  SCALE 
AM=ARCCOS(CAM)  (AP  SCALED  BY  2) 


MANEJVER  LESS  THAN  .25  DEGREES 
GO  DIRECTLY  INTO  ATTITUDE  HOLD 
ABOUT  COMMANDED  ANGLE  S 
STOP  RATE  AND  EXIT 


UNIT 
COF  SKEW 


COF  IS  THE  MANEUVER  AXIS 


GAP : 
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052? 

22,2127 

77650 

1 

GOTO 

3523 

PFF 

1 

22,  2120 

A A 7 A A 

0 

LOCSKIRT 

22  ,2131 

5 3375 

o 

ALTCALC 

VLOAD 

VAD 

0 525 

P-EF 

10 

LA  ST 

357 

22,2132 

C2222 

1 

MF  I 

0526 

PFF 

7 

LAST 

357 

22,  2 133 

C23C3 

1 

TMFI 

'>52  7 

2? ,21 3A 

77762 

1 

VSR  1 

3528 

REF 

1 

22,  2 135 

27303 

1 

STCVL 

MFISYM 

0529 

REF 

1 1 

LAST 

358 

22,2136 

02230 

1 

MF  I +6 

0530 

22  ,2137 

7AA55 

0 

VAD 

VS  R 1 

0531 

REF 

8 

L AST 

358 

22,  2 1 AO 

C 3 3 1 1 

1 

TMFI  +6 

'53? 

REF 

2 

LAST 

358 

22  ,2  1 A l 

27311 

1 

STOVL 

MFISYM  +6 

0 533 

REF 

1 2 

LA  ST 

358 

22  , ? 1A? 

02236 

l 

MF  I + 12D 

053A 

22,  2 1 A 3 

7 A A 5 5 

0 

VAD 

VSR  1 

0535 

REF 

9 

LAST 

358 

22  ,2 1 A A 

0331  7 

1 

TMFI  +120 

0536 

P OF 

3 

LAST 

358 

22, 21A5 

C3317 

1 

STCRE 

MFISYM  +12  D 

R 053  7 

3 0538 

R0539 

r ai  n ii  at  i 

E COF 

R 0 5An 

05A1 

22  ,21 A6 

705A5 

1 

DLOAD 

SRI 

35  A2 

REF 

3 

LAST 

357 

22,  2 1 A 7 

C 3 3 3 3 

1 

CAM 

05A3 

22  ,2150 

A5325 

1 

POOL 

DSU 

05AA 

REF 

1 

2 2,  ? 1 . 1 

C 6 5 1 6 

c 

DPHALF 

05A5 

REF 

A 

LAST 

358 

22,  2 152 

0 3333 

1 

CAM 

5 4 6 

22  ,2153 

652  OA 

1 

BOV  8 

PDCL 

05A7 

REF 

1 

22,  215A 

2 167A 

1 

SIGNMPAC 

0 5A8 

REF 

A 

LAST- 

358 

22  ,2155 

03323 

0 

MFISYM  +16D 

OSAO 

22  ,21  56 

56225 

1 

nsu 

ODV 

0550 

22,  2157 

OCOO  1 

0 

0 

0551 

22  ,2160 

00003 

1 

2 

*552 

22,  2161 

6 5366 

1 

SORT 

POOL 

0553 

REF 

5 

LAST 

358 

22,  2162 

03313 

0 

MF  I SYM  + 8D 

055A 

22,2163 

56225 

1 

DSU 

DDV 

0555 

22, 216A 

cccci 

0 

0 

0556 

22  ,2  165 

000C3 

1 

2 

0557 

22,2166 

65366 

1 

S QRT 

PDCL 

0558 

REF 

6 

L AST 

358 

22,  2167 

03303 

1 

MF  I SYM 

0559 

22  ,2170 

56225 

1 

DSU 

DDV 

0560 

22,  2171 

CCC01 

0 

0 

0561 

22,  2 172 

00C03 

1 

2 

0 56? 

22 ,21 73 

55566 

1 

SORT 

VDEF 

0563 

22,  2 1 7A 

776  56 

1 

UNI  T 

0 56A 

REF 

2 

LAST 

357 

22,2175 

03270 

1 

STORE 

COF 

RO  565 

RO  566 

CET  ERM  INF 

LARGEST 

COF  AMO  ADJUST  ACCORDINGLY 

< '567 

056  8 

22, 2176 

A53A5 

1 

COFMAXGO 

DLOAD 

DSU 

0569 

RFF 

3 

LAST 

358 

22, 2 177 

0 32  70 

1 

COF 

0570 

REF 

A 

LAST 

358 

22 ,2200 

0327? 

0 

COF  +2 

0571 

22,  22C1 

7 1 2 AO 

1 

BMN 

OLCAD 

SEE  IF  MANEUVER  GOES  THRU  GIMBAL  LOCK 
IF  AM  GREATER  THAN  170  DEGREES 


MFJSYM=  (MFI+TMFI  )/2  SCALED  BY  A 


PD C CAM 


SA 


P 02  1 


CAM 


$2 


COFZ  = SORT  IMF  ISYM8-CAM  )/  1-CAM  > 

$ ROOT  2 

COFY  = SQRT(MFISVMA-CAM)/(  1-CAM)  SR00T2 

CO  F X = SQRTIMF  I SYM-CAM) /(  1-CAM)  SR00T2 


COFY  G COFX 
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0572 

REF 

1 

22  ,2202 

44211 

0 

C0MP12 

3 573 

REF 

5 

L AST 

358 

22,  2203 

03270 

1 

COF 

0574 

22  ,2204 

50025 

0 

DSU 

BMN 

0 575 

REF 

6 

LA  ST 

359 

22 ,2205 

03274 

0 

COF  +4 

05  76 

REF 

1 

22,  2206 

44266 

0 

ME  TH  OD  3 

0577 

22  ,2207 

77650 

1 

GOTO 

3578 

R EF 

1 

22, 2210 

44242 

0 

METHCD1 

057*5 

22,2211 

45  345 

1 

COMP  12 

OLOAO 

DSU 

0580 

PFF 

7 

LAST 

359 

22,2212 

032  72 

0 

COF  +2 

3581 

RFF 

8 

L AST 

359 

22,  22  13 

02  274 

0 

COF  +4 

0582 

22  ,2214 

77640 

0 

BMN 

0583 

R EF 

2 

LA  ST 

359 

22  ,2215 

44266 

0 

MET  H003 

0584 

22,  22  16 

5 1145 

0 

METHOD  2 

DLOAD 

3 P L 

0585 

REF 

6 

LAST 

35  7 

22  ,2217 

03327 

1 

COFSKEW  +2 

3586 

REF 

1 

22,  2220 

44224 

c 

U2P0S 

0587 

22,2221 

57575 

1 

VLOAD 

VCOMP 

0 58R 

REF 

9 

LAST 

359 

22  ,2222 

C32  70 

1 

COF 

3599 

REF 

10 

L AST 

359 

22,  2223 

03270 

1 

STORE 

COF 

0590 

22  ,2224 

51145 

0 

U2P0S 

DLOAD 

RPL 

0591 

REF 

7 

LA  ST 

358 

22 ,2225 

03305 

1 

MFISYM  +2 

05  92 

REF 

1 

22,  2226 

*<222 

1 

OK  U21 

0593 

22  ,2227 

57545 

1 

OLOAD 

DCOMP 

3534 

REF 

1 1 

LAST 

359 

22, 2230 

03270 

1 

COF 

0595 

REF 

12 

LAST 

359 

32,2231 

03270 

1 

STORE 

COF 

0 596 

22  ,2232 

51145 

0 

0KU21 

OLOAD 

BPL 

3597 

REF 

8 

L AST 

359 

22,  2233 

0 3 :•  1 a 

0 

MF  I SYM  +1  OD 

0598 

RFF 

2 

LAST 

358 

22  ,2234 

44744 

0 

LOCSK  IR  T 

0599 

22 ,2235 

57545 

1 

DLOAD 

DCOMP 

0600 

REF 

13 

L AST 

359 

22, 2236 

C 3 2 74 

0 

COF  +4 

0601 

REF 

14 

LAST 

359 

22  ,2237 

03274 

0 

STORE 

COF  +4 

3632 

22, 2240 

77650 

1 

GOTO 

0603 

REF 

3 

L AST 

359 

22,2241 

44744 

0 

LOC  SKIRT 

0604 

22  ,2242 

51  145 

0 

METH0D1 

OLOAD 

BPL 

3535 

REF 

7 

L AST 

359 

22,  2243 

C2325 

0 

COFSKEW 

0606 

REF 

1 

22  ,2244 

44250 

0 

U1P0S 

0607 

22 ,2245 

57575 

1 

VLOAD 

VCOMP 

0608 

REF 

1 5 

L AST 

359 

22, 2246 

03270 

1 

COF 

060  9 

REF 

1 A 

LAST 

359 

22  ,2247 

03270 

1 

STORE 

COF 

3610 

22,  2250 

51145 

0 

U1P0S 

DLOAD 

BPL 

0611 

REF 

9 

LAST 

359 

22,2251 

03305 

1 

MF 1 SYM  + 2 

0612 

RFF 

1 

22  ,2252 

44256 

0 

OKU  12 

3613 

22,  2253 

57  545 

1 

DLOAD 

DC  CMP 

0614 

REF 

17 

LAST 

359 

22  ,2254 

03272 

0 

COF  +2 

0615 

REF 

18 

L A ST 

359 

22,2255 

032  72 

0 

STORE 

COF  +2 

06H 

22, 2256 

5 1 145 

0 

DK  U 1 2 

OLOAD 

3PL 

061  7 

RFF 

10 

LAST 

359 

22  ,2257 

03307 

0 

MFISYM  +4 

3619 

REF 

4 

LAST 

359 

22,  2260 

44744 

0 

LOCSKI  RT 

06 1 9 

22,?2  61 

57545 

1 

DLOAD 

DCOMP 

0620 

REF 

19 

LAST 

359 

22  ,2262 

03274 

0 

COF  +4 
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COF  Z G COFX  OR  COFY 
COFX  G COFY  OR  COFZ 

COF  7 G COFY  OR  COFX 

COFY  MAX 
UY 


UX  IJY 

SIGN  OF  UX  OPPOSITE  TO  UY 

UY  UZ 

S IGN  OF  UZ  OPPOSI  TE  TO  UY 


COFX  MAX 
UX 


UX  UY 

SIGN  OF  UY  OPPOSITE  TC  UX 

UX  UZ 


SIGN  OF  UZ  OPPOSITE  TC  UY 


',4?:  ASSEMBLE  REVISION  56  OF  AGC  PRCGPAM  ZERLINA  BY  ZOROASTER 


ATT  ITIJOE  MANEUVER  ROUTINE 


0621  REF 
062? 

3623  REF 
0624 

C 625  REF 

0626  REF 

0627 

3S2B  REF 

0629  REF 

0630 

3631  RFF 
063?  RFF 

0633 

0634  REF 

0635  REF 
3636 

C 63  7 REF 
063fi  REF 

3639 

0640  REF 

0641  REF 

0642 

0643  REF 


20  LAST 

5 LAST 

fi  LA  ST 
1 

21  LAST 

22  LAST 

11  LAST 
1 

23  LAST 

24  LAST 

12  LAST 

6 LAST 

25  LAST 

26  LAST 

7 LAST 


359  22,2263 

22  ,2  ? 64 
359  22,  2265 

2?  ,??66 

359  22,2267 
22, 2270 
22  ,2271 

360  22,  2272 

360  22,2273 

22 ,2274 

359  22,  2275 
22  ,2276 
2?  ,2277 

360  22,  2300 

360  22,2301 

22,  2302 
360  22,2  303 

36C  22  ,2304 

22,  2305 
360  22  ,2306 

360  22,2307 

22,  23  10 
360  22  ,2311 


03274  0 
77650  l 
44744  0 

51  145  0 MET  HOC 3 

03331  0 

44274  0 

57575  1 

03270  1 

C3270  1 

51145  0 U3  FOS 
C 3 3C  7 0 
44302  0 
57545  1 
03270  1 
03270  1 
51  145  0 0KL31 

03315  0 
44744  0 
57545  1 
03272  0 
03272  0 
77650  1 
44744  0 


STORE  COF  *4 
GOTO 

LOCSKI  RT 
CLOAD  BPL 

COFSKEW  *4 
U3P0S 
VLOAO  V COMP 
COE 

STORE  COF 
□LOAD  BPL 

ME  I SYM  +4 
3KU31 
DLCAD  DCOMP 
C OF 

STORE  COF 
D LOAD  BPL 

MFI SYM  ♦ 10D 
LOCSK  TRT 
D LOAD  DCOMP 
COF  +2 
STORE  COF  *2 
GO  TO 

LOCSK  IRT 
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360 


USER'S  PAGE  MO.  U E6  S3 

C OF  Z MAX 
UZ 

UX  UZ 

SIGN  OF  UX  OPPOSITE  TO  UZ 

UY  IZ 

SIGN  OF  UY  OPPOSI  TE  TO  UZ 


G AP:  ASSEMBLE  REVISION  56  OF  AGC  FROG  F AM  2ERLINA  BY  ZOROASTER 


L ATTITUCE  MANEUVER  ROUT  IV  F 


R 0644  MATRIX  OPERATIONS 


645  12.22C7 

0646  REF  1 22,  2000 

0647  22.2312 


BANK  13 
SETLO:  KALCM0N2 
RANK 


3 648  REF  6 LAST  356  Efc,  1675 


E BANK=  BCDU 


0649 

0650 

0651 
0 6 52 
3653 

0654 

0655 
1656 

0657 

0658 
065  9 
066C 


22  ,2312  76601  1 
22,2313  COCCI  0 
22,  23  14  0000  1 0 

22  ,2315  62  70  3 1 

22,  2316  77776  1 

22,  2 3i  7 00007  0 

22,2320  62703  1 

22,  2321  77776  1 

22  ,2322  00015  0 

22,2323  41503  1 

22,  2324  77776  1 

22  ,2325  77616  0 


MX  M3 


SETPD  VLOAD* 
0 

0,1 

VXM*  P OVL  * 

0 ,2 
6,  1 

V X M*  P OV  L * 
0,2 
120,  1 

VXM*  PUSH 

0,2 

RVO 


R D 5 6 1 
R 066  2 
0663 
3664 

0665 

0666 
3667 
• 668 
0669 
06  70 
0671 
3672 

0673 

0674 

0675 

0676 
3677 
0678 
C6  79 
3683 
0681 
0682 
06  83 
06  84 
3685 
06  86 
0687 
3638 


RETURN  WITH  MlXM2  IN  PD  LIST 


RFF  9 LAST 
REF  10  LAST 
RFF  11  LAST 
REF  12  LAST 
REF  13  LAST 
REF  14  LAST 
REF  15  LAST 
REF  16  LAST 
REF  17  LAST 


303 

361 

36  1 

361 
361 
361 
36  1 
361 
361 


22,2326  76601  1 

22,  2327  00CC1  0 

22  ,2330  00001  0 

22  ,2331  62713  0 

22,  2332  0CCC7  0 

22.2333  00015  0 

22. 2334  776C6  1 

22. 2335  77776  1 

22.2336  50  120  1 

22,  2337  c 2 C 1 3 1 
22  ,2340  50  120  1 

22,2341  52  017  0 

22,  2342  5C  120  1 
22  ,2343  52  013  1 

22,  2344  5 C 120  l 

32,  2 345  52  015  1 

22,2346  50  120  1 

22,  2347  52  CC  5 0 

22  ,2350  50  120  1 

22,2351  52  015  1 

22,  2352  5C  120  1 
22  ,2353  52  003  0 

22,  2354  5 C 120  l 

22,2  355  52  007  1 

22.2356  50  120  1 

22. 2357  52  003  0 


TRANS  POS  SETPD 

POVL* 


PUSH 

TRNSPSPD  EXIT 
INDEX 
OXCH 
INDEX 
DXCH 
INDEX 
DXCH 
I NO  EX 
DXCH 
INOEX 
D XCH 
INOEX 
DXCH 
1NDE  X 
DXCH 
I NO  EX 
DXCH 
INDEX 
DXCH 


V LOAD* 
0 

0,  1 
PDVL* 
6,1 
1 2D,  1 


F IXLOC 
12 

F I XL  OC 
16 

FI  XLOC 
12 

FIXLCC 

14 

F IXLOC 

F I XLOC 

1 4 

FI  XLOC 
? 

F I X LCC 
6 

F IXLOC 

2 
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MXM3  MULTIPLIES  2 3X3  MATRICES 
AND  LEAVES  RESULT  IN  PD  LIST 
AND  MPAC 


TRANSPOS  TRANSPOSES  A 3X3  MATRIX 
AND  LEAVES  RESULT  IN  PD  LIST 
MATPI  X ADDRESS  I N XPl 


MATRIX  IN  PO 

ENTER  WITH  MATRIX  AT  0 IN  PD  LIST 


< 


GAP:  ASSEMRLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


l ATTITUOE  MANEUVER  ROUTINE 


3689  RFF  15  LAST  356 
3S33 


f 6051  0 
77616  0 


TC  INTPRET 

RVQ 


0691 

^69?  REF 
0693 


LAST 


356 


15,2053 
22,2000 
22,  2362 


BANK  15 
SETLOC  KALCMCM 
BANK 


0696  RFF  7 LAST  36  1 E6,1675 


EBAN  K=  BC  DU 


■>676 
0696 
7 696 
3676 
R 0697 


GIMBAL  LOCK 


22. 2362  C0C13  0 

22.2363  13563  0 

22  ,2  3 64  17070  0 

22,  2365  3*3*3  1 

COAST  ANTS 


MI  NANG 
RAX  ANG 


20  EC 
2 DFC 


3.  00069376 
3 .47  2222222 


R069R  D = MGA  CORRESPONDING  TO  GI  MBAL  LCCK  = 60  DEGREES 

Ri)6 99  NGl  = BUFFFP  ANGLF  (TO  AVOIO  DIVISIONS  BY  ZERO)  = 2 DEGREES 


0700 
3733 

0701 
0 701 
3772 

0702 
0 70  3 

0703 


0704 
3734 

0705 
0 70  6 
3776 

R 0707 


22,2366  15666  0 SC  2 DEC 

22,  2367  20443  0 

22,2  370  33555  l K3S1  2DEC 

22  ,2371  01  106  1 

22,  2372  67777  1 K4  2DFC 

22  ,2373  77777  0 

22  ,2374  04000  0 K4SQ  2 DEC 

22,  2375  00000  1 

22  ,2376  00216  1 S NGL  CD  2 DEC 

22,  2 377  36323  0 

22,2  400  1777  3 1 CNGI.  20EC 

22  ,2401  00057  0 


22,  2402  14344  1 LOCKANGL  DEC 

I NTERPRETI  VF  SUBROUTINF  TO  RF  AC  TFE  CDU  ANGLES 


.4330 15 
. 86603 
-.25 
.125 
.008725 
. 499695 
. 388889 


07^'rl 
07<  9 
0710 
3711 
0712 


RFF  9 LAST 
REF  67  LAST 


REF  9 LAST  310 
RFF  1 


22 , 24C 3 2 0034  0 

22,  2404  64  156  1 

22  ,2405  f 0006  1 
22, 24C6  2 0033  1 

22,2407  1 6510  1 


RE ADCDUK 


CA  C DU  Z 

TS  MP  AC  *2 

EX  T EN  D 

DC A C DUX 

TC  F TLOAD  +6 


0 7 13 
3 7 1 4 

0715 

0716 
07^7 
0718 
37  19 
07  20 
0721 
3722 


RTF 


REF 


9 L AST 


329 


22,  24  1 1 
22  ,2412 
22,  2M3 
22,  24  14 
22 ,241 5 
22,  24  16 
22  ,2417 
22  ,2420 
22,  2421 


00051  0 
CCCC1  C 
00010  0 
77601 
coco  1 0 

47133  0 
00013  0 
21560  1 


CDUTODCM  AXT  ,1  SSP 
OC  T 3 
S 1 

OCT  1 
STORE  7 
SET  PD 

0 

LOOPS  IN  SLOAD*  R TB 

1 0 D,  1 
COULOGIC 
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= SIN  ( 0)  *2 

= SIN(O)  SI 

= -COS (0)  S2 

= COS (0 ) COS ( D ) $2 

= SIN  ( NGL ) CO  S( D ) $2 

COS(NGL)  $2 

= 70  DEGREES 

LOAD  T(MPAC)  WITH  CDU  ANGLES 

AND  CHANGE  MODE  TO  TRIPLE  PRECISION 


SET  X R 1 , Si,  AND  PD  FOR  LOOP 


GAP:  AS  S E MR  L E REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  70R0ASTER 


I ATTI  TUOF  MANEUVER  ROUTINE 


0723 

072 

0725 

3726 

0727 

0728  REF 
3720 

0730 

0731 

0732 

0733 
0 734 

0735 

0736 
3 737 
0738 
0 7 39 
3740 

0741 

0742 
074  3 
0744 
3745 
0746 
0 747 

0748 

0749 

0750 

0751 

0752 
3753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 
076? 

0 763 

0764 

0765 

0766 

0767 

0768 
3769 

0770 

0771 

0772 


Sip 

22  ,2424 
22,  2425 
22,2  42  6 
22  ,2427 
22, 2430 
22  ,2431 
22 ,2432 
22,  24  3 3 
2?  ,2434 
22,  2435 
22,2436 
22  ,2437 
22,  2440 
22  ,2441 
22,2442 
22,  2443 
22  ,2444 
22,  2445 
22,  2 446 
22  ,2447 
22,  2450 
22  ,2451 
22,2452 
22,  2453 
22  ,2454 
22,  2455 
22,2456 
22  ,2457 
22, 2460 
22  ,2461 
22 , 2462 
22,  2463 
22  ,2464 
22,  2465 
22,2466 
22  ,2467 
22,  2470 
22  ,2471 
22 ,2472 
22,  2473 
22  ,2474 
22,  2475 
22,?476 
22  ,2477 
22,  25CC 
22  ,2501 
22 ,2502 
22,  2503 


0CQ13  0 
65-56  1 
00013  0 
41546  C 
71300  1 
44417  0 
CCCC7  0 
72405  0 
00013  0 
1000  1 1 
41345  0 
CCCC5  1 
00001  0 
41325  0 
0C007  0 
00011  1 
72405  0 
COCO  3 1 
72421  0 
CCG l 5 0 
10003  0 

41345  0 
CCGC3  1 
00005  1 
41325  0 
00CC7  0 
0C011  1 
724C5  0 
0C001  0 
72415  1 
00017  1 
10005  0 
77745  1 
00011  1 
10C07  1 
77745  l 
00013  0 
72405  0 

CCCC3  1 

iron  o 

41345  C 
CCC 1 3 ^ 
00001  0 
72476  1 
1 C 0 1 3 1 
41345  0 
CCCC5  1 
00013  0 
72476  1 
10015  1 


STORF  IOC 
SIN  POOL 
100 

COS  PUSH 
T I X , 1 0 LOAD 

LOOPS  IN 

6 

DM  P SL  1 

1 0 D 

STORE  0,2 
OLOAD  DMP 
4 

0 

POOL  DMP 
6 

8D 

DMP  S LI 

2 

BOSU  SL  1 

120 

STORE  2,2 

DLOAO  OMP 

2 

PDOL  DMP 
6 

OD 

OMP  S LI 
0 

DAD  SL1 
140 

STORE  4,  2 
OLOAO 

80 

STORE  6,2 
DLOAO 

100 

DMP  SL1 

2 

STOKE  80,2 
OLCAO  OMP 
100 

0 

OCOMP  S LI 
STORE  100,2 
OLOAD  OMP 

100 

OCCMP  SL1 
STORE  120,2 
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LOAD  PO  W ITH  0 SIN  (PHI  > 

2 COS (PHI) 

4 SI  N ( THETA) 

6 COS  (THETA) 

8 SIN(PSI) 

10  COSIPSI  ) 


CC=COS  (THETA)  COSIPSI  ) 


( P 06  S IN ( THETA  ) S I N ( PHI  ) ) 


C1=-C0S(  THETA)  SIN(  PSI ) CCS  ( PHI  ) 


( PD7  COS (PHI )SIN(THETA  ) ) SCALED  4 


C 2=C0S(  THE  TA)  SI  M PSI  ) SI  M PHI  ) 

C 3=  SIN(PSI  ) 


C 4=C0  S(  PSI  ) COS  ( PH  I ) 


C5=-C0S(  PSI  ) SI  N(  PHI  ) 


C6  = -S  I N(THETA)  CCS(PSI  ) 
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77  » 
774 
0775 
■>776 
777 
9 778 
5779 
0 780 
0781 
078? 
0783 
5784 
■785 
0 786 
787 
0788 
0 789 
‘790 
0 791 


22,  2 SC  5 
22  ,2506 
22,  25C7 
22, 2510 
2?  ,2511 
22,  2512 
22  ,2513 
22,25  14 
22,  25  15 
22  ,2516 
22,  2517 
2?,?  520 
22  ,2521 
22,  2522 
22  ,2523 
22 ,2524 
22,  2525 
22,2526 


77145  1 
724C5  0 
00011  1 
*1225  0 
00007  0 
OfOOl  0 
72415  1 
77626  0 
67760  1 
77745  1 
72405  0 
CCC11  1 
41325  0 
00007  0 
C0C03  1 
72425  1 
77626  0 
67756  1 
77616  0 


OLCAD 

(5MP  SL1  (PUSH  UP  7) 

8 D 

POOL  OMP  (PC7  CDS  (PEI  >S  IN  (THFT  A >S  INC  PS  I ) ) SCALE4 

6 
0 

HAD  SLl  ( PUSH  UP  1 > 

ST  ADR  C 7=C0  S(  PHI  ) SI  N(  THE  TA)  SIMPSII 

STORE  140,2  +COS  (THETA)SIN(PFI  > 

DLOAD 

OMP  SLl  (PUSH  UP  6) 

80 

POOL  OMP  ( P 06  SI  N ( THETA  )SI  N(  PHI  ) SI  N ( PS  I ) ) SCALE4 

6 
2 

OSU  SLl  (PUSH  UP  6) 

STAOR 

STORE  160,2  CR=-S!  N(THETA)  SIN(PFI)S  IN  ( PS  l ) 

RVQ  +COS(THETA)COS(PHI  ) 


R3792 


CALCULAT  ION  OF 


THE  MATR1  X DEI 


90793 
? n 704 


SCAI  ED  1 


R079S 

7C796  WHERE  U IS  A UNIT  VECTOR  (CP  SCALEO  2)  ALONG  THE  AXIS  OF  ROTATION. 

R 0798  A IS  THE  ANGLE  OF  ROTATION  (DP  SCALEO  2) 

R 0799 

7 0800  UPON  ENTRY  THE  STARTING  ACCRFSS  CF  IJ  IS  f.OF,  ANO  A IS  IN  MPAC 


5 3 5 1 
0802 
080  3 

0804 

0805 
0306 

0807 

0808 
0959 


RFF  2 LAST  358 
REF  2 LAST  358 


22,  2527 
22  ,2530 
22,2531 
22,  2532 
22  ,2533 
22,  25?4 
22,2  535 
22  ,2536 
22,  2537 


41401  1 
00001  0 
*5356  1 
41546  C 
65302  0 
41021  1 
06516  0 
21674  1 
77725  1 


DELCOMD  SETPO  PUSH 

0 

SIN  PDDL 

COS  PUSH 

SR2  PDOL 

BO  SU  BOVB 

OPHALF 
S IGNMPAC 

POOL 


MPAC  CONTAINS 

POO  = S IN  ( A ) 
P02  = COS  (A) 
PP  2 = COS(A) 


THE  ANGLE  A 


PD4  = 1 -COS  (A  ) 


R OR  1 0 CCMPUTE  THE  C T AGC  N A L CCMFCNEf'TS  OF  DFL 


0811 
081  2 
0813 
5814 
08 1 5 
0816 
3817 


REF  27  LAST  360  22,2540  03270  1 

22,  254  1 * 1316  C 

22  ,2542  00005  1 

22, 2543  52415  0 

22,2  544  00003  1 

22  ,2  545  77604  0 

REF  3 LAST  364  22,  2546  21674  1 


COF 

OSO  OMP 

4 

DAO  SL3 

2 

BOVB 


SI  G NM  P AC 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 


ATTITUDE  MANEUVER  ROUTINE 


08  18 
3819 
0820 
0821 
0822 
0823 
3 8 24 

0825 

0826 
3827 
0828 

0829 

0830 

0831 
3832 
083  3 
0834 


28  LAST  364 


PEF 

RFF 

RFF 


LAST 
LAST 
L AST 


364 

365 


365 

365 


22,2547 
22,  2550 
22  ,2551 
22  ,2552 
22,  2553 
22  ,2554 
22,  2555 
22,2  556 
22  ,2557 
22, 2560 
22  ,256  i 
22 ,2562 
. 

22  ,2564 
22,  2565 
22,2  566 
22 ,2567 


16222  1 
03272  0 
41316  0 
00005  1 
52415  0 
00C03  1 
77604  0 
21674  1 
16232  0 
03274  0 
41316  0 
000C5  1 
c 2 4 1 S 0 
00003  1 
776C4  0 
21674  1 
02242  1 


STOOL  KEL 

COF  +2 
DSQ  DMP 

4 

DAO  SL3 

2 

B 0 VB 

SIGNMPAC 
STOOL  KEL  +80 
COF  +4 
DSO  DMP 

DA  D SL  3 

2 

BOVB 

SIGNMPAC 
STORE  KEL  +160 


R3835  COMPUTE  THE  OFF  DIAGONAL  TERMS  OF  DEL 


0836 
0 8 37 
0038 
0839 
3843 

0841 

0842 
3043 

0844 

0845 

0846 

0847 
3848 
0849 
0650 
3851 

0852 

0853 

0854 

0855 
3856 

0857 

0858 
3859 
0860 
0861 
0862 
0863 
3864 
( 865 


RFF  32  LAST  365 


LAST  365 


REF  33  LAST  365 


REF  34  LAST  365 


REF  35  LAST  365 


22  ,2573 
• 

22,  2872 
22 ,2573 
22,  2574 
22,2575 
22  ,2576 
22, 2577 
22  ,2600 
22 ,2601 
22,  2602 
22  ,2603 
22,  2 6C4 
22,  2605 
22  ,2606 
22,  2 6C 7 
22  ,2610 
22,2611 
22,  26  12 
2 ? ,2613 

22. 2614 

22.2615 
22  ,2616 
22, 2617 
22  ,2620 
22 ,2621 
22,  2622 
72  ,2623 
22,  2624 
22,2625 


41345  0 
03270  l 
02272  0 
72405  0 
C0CC5  1 
41325  0 
03274  0 
00C01  0 
43206  1 
00007  0 
41112  0 
21674  1 
16230  l 
62421  l 
77604  0 
21674  1 
16224  1 
03270  1 

a 1 2c  5 0 

03274  0 
0CCC5  1 
65352  0 
03272  0 
4 1405  0 
00001  0 
62415  0 
0C0C7  0 
77604  0 
21(74  1 
16226  0 


DMP 

PDDL 

PUSH 

SL  2 

STCOL 

BDSU 

ROVB 

STOOL 

DMP 

SL  1 
DMP 
□ AC 
80  V B 

STOOL 


OMP 

COF 

:0F  +2 
SL  1 

3 MP 
COF  +4 
0 

OAD 

6 

BOVB 

S IGNMPAC 
KEL  +6 
SL  2 

SIGNMPAC 
KEL  +2 
COF 

3 MP 

COF  +4 

4 

PDDL 
COF  +2 
PUSH 


SIGNMPAC 
KEL  +4 


9:1  2 OCT.  21,  1970  Z ERL  AID  .00  1 PAGE  365 
USER*  S PAGE  NG.  19  E6  S3 

UX  UX  ( 1-COS  I A ) ) +COSIA)  $1 

UY  UY ( l-COSIA  ) ) +COSIA  ) $1 

UZ  UZ<  l-COSIA  ) ) +COSI  A ) $1 

D6  UX  UY  (1-COS  A)  $ 4 

D 8 UZ  SI  N A $ 4 

06  UX  UZ  (1-COS  A I S 4 

08  UY  SIN!  A) 


UX  UZ  ( l-COSI  A ) )+UY  SIMA) 
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.301  PAGE 


366 


4 


L ATTITUDE  MANEUVER  ROUTINE 


USER • S PAGE  NO.  20  E6  S3 


4 


;8AB 

3869 

0870 

871 

087? 
f 873 
387A 
0875 
0 8 76 
3377 
0R78 
''8  70 
0080 
0881 
308? 
0883 
88', 
3895 
0886 
088  7 


REF 

PFF 

PFF 

REF 


PFF 


REF 

REF 


REF 

PFF 


9 LAST 
7 L AST 

36  LAST 

37  LAST 


38  LAST 


10  LAST 
8 LAST 


11  LAST 
9 LAST 


2 2 * ? 6 2 7 
365  22  ,2630 

365  22,  2631 

365  22  ,2632 
22,2623 

366  22,  263a 
22  ,2635 
22,  2626 

356  22,2637 

22 ,26A0 
22,  26  A 1 
22  ,26A2 
22 ,26*3 
22,  26 A A 
366  22  ,2665 

366  22,  2 1 A6 

22.2  6A7 
22  ,2650 
366  22,  2651 

366  22  ,2652 

22 , 2653 


2167A  1 

16236  1 
03272  0 
A12C5  C 
0 3 2 7A  o 
00005  1 
65352  0 
03270  1 
A1A05  0 
OCOCl  C 
62A15  0 
00007  0 
776CA  0 
2167A  1 
1 6240  0 
62A21  1 
77604  0 
2 1 6 7 A 1 
0223A  0 
77616  0 


9DSU  SL2 
80V9 

S IGNMPAC 

STCOL  KEL  ♦ 1 2 D UX  UZ  ( 1 -CCS  ( A ) J -UY  S IN  ( A ) 

CDF  +2 
DMP  OMP 

:of  + A 

SL1  POOL  D6  UY  UZ  H-COS(AJ) 

:of 

DPP  PUSH  08  UX  S INI  A I 

0 

DAD  SL  2 

6 

80  V3 

S IGNMPAC 

STOOL  KEL  +140  UY  UZ(1-C0S(A>>  +UX  S IN  ( A ) 

80  SU  SL  2 

BOV  B 

SI  GNMPAG 

STORE  KEL  +100  UY  UZ  Il-COS(AI)  -UX  SIMA) 

RVQ 


4 

* 

e 

« 

4 

4 

4 

« 


R0888  CIRECTICN  COSINE  MATRIX  TO  C DU  ANGLE  ROUTINE 

3 0889  XI  CONTAINS  THE  CCFPLEMFNT  OF  THE  STARTING  ADDRESS  FOR  MATRIX  (SCALED  2)  i 

R TB90  LEAVES  CDIJ  ANGLES  SCALED  2P  I IN  V(MPAC) 

R 0891  CCS(MGA)  WILL  BF  LEFT  IN  SI  (SCALED  1) 


ROHO?  THE  DIRECTION  COSINE  MATRIX  RELATING  S/C  AXES  TO  STABLE  MEMBER  AXES  CAN  BE  WRITTEN  AS*** 


K089A 
3 0895 
R C 896 
R 0897 
3 089B 
R3899 
R 0900 
30901 
R090? 
R 0903 
3 090  A 
R3935 
R 0906 
R0907 
R0908 
3 0909 
RD913 
ROOl  1 


C =COS  (T  HETA  )COS  ( PS  I » 

0 

C =-COS(  THETA  » SI  N(  PSI  ICO  S(PHI  ) + SI  ( TH  ETA  ) S I N(  PH  I ) 

1 

C =COS(THETA)  SI  N(  FSI  ) SIN(PHI  ) + S N (T  NET  A ) COS  ( PHI  ) 
2 

C =SI N(PS  I ) 

3 

C = COS  (PS  I ICO  S(  PHI  ) 

C =-COS(  P SI  ) SI  N(  PHI  ) 

5 

C =—  S I N ( THETA ) COS (PSI) 

6 

C =S  I N (T  H ET  A )S  I N ( PS  T ) COS  (PHI)  +C0  S THE  TA  ) S I N ( PH  I ) 

7 

C =-SIN(THETA)  SIN(P  SI  )SIN( PHI  >+C0  ( TH E TA ) C OS ( PHI  ) 

8 


4 

4 

4 

4 

4 

4 


t 


( 


4 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


ATTITUOE  MANFUVFP  ROUTINE 


RD912 

WHERE 

PHI  = 

OGA 

R 09  l 3 

THETA 

= IGA 

R09  14 

PSI  = 

MG  A 

0915 

22,  2654 

67543 

1 

DCMTOCOU 

DLOAD* 

ARC  SI  N 

0916 

22  ,2655 

00007 

0 

< , 1 

3 9 17 

22,  2656 

714C6 

0 

PUSH 

COS 

091  B 

2 2,2657 

41152 

l 

SL  1 

3 0 VB 

0919 

REF 

12 

LAST 

366 

22,2660 

21674 

1 

S IGNMPAC 

3923 

REF 

2 

l AST 

36  2 

22, 2661 

COC  5 1 

C 

STORE 

si 

0921 

22  ,2662 

57543 

1 

OLO AD* 

DCDMP 

0922 

22 ,2663 

00015 

0 

1 2 D,1 

0923 

22, 2664 

6747  1 

1 

OD  V 

ARC  SI  N 

0924 

REF 

3 

LAST 

367 

22  ,2665 

00051 

0 

S 1 

3925 

22, 2666 

51123 

0 

PDOL* 

BPL 

0926 

22,2667 

000C1 

0 

0,  1 

0927 

RFF 

1 

22  ,2  67C 

44702 

1 

OKT HFT  A 

3928 

22, 7671 

57545 

1 

D LOAD 

DCGMP 

0929 

22  ,2672 

43244 

1 

BPL 

DAD 

0930 

REF 

1 

22 ,2673 

44677 

1 

SUHALFA 

0931 

REF 

3 

LAST 

36  4 

22,  2674 

065  16 

0 

DPHALF 

C 932 

22  ,2675 

77650 

l 

GOTO 

3 9 33 

REF 

l 

22, 2676 

44701 

l 

C Al CPHI 

C934 

22,2677 

77625 

0 

SUHAL  FA 

DSU 

0935 

REF 

4 

LAST 

367 

22  ,2700 

06516 

0 

DPHALF 

3936 

22,  2 7C  1 

77606 

1 

C A LC  PH  I 

PUSH 

0937 

22  ,2702 

57543 

1 

OKTHET  A 

DLOAD* 

DCOMP 

0938 

22 ,2701 

00013 

0 

100,1 

093  9 

22,  2704 

67471 

1 

nn  v 

ARC  SI  N 

0940 

REF 

LAST 

367 

22  ,2705 

00051 

0 

S 1 

394  1 

22,  27C6 

51123 

c 

POOL* 

PPL 

0942 

22,  2 707 

00011 

1 

80,  1 

0943 

REF 

l 

22  ,2  710 

44722 

0 

OK  PHI 

394A 

22, 2711 

57  545 

1 

D LOAD 

DCOVP 

0945 

22  ,2712 

43244 

1 

BPL 

DAD 

0946 

REF 

1 

22,2713 

4471  7 

0 

SUHAL  FAP 

C94  7 

REF 

5 

L AST 

367 

22, 2714 

C 6 5 1 6 

0 

9PHALF 

0948 

22  ,2715 

77650 

1 

GOTO 

3949 

P EF 

l 

22,  2716 

44723 

1 

VECCFANG 

0950 

22,2  717 

52025 

1 

SUHAL  FAP 

DSU 

GOTO 

0951 

REF 

6 

LAST 

36  7 

22  ,2720 

06516 

0 

DP  HAL  F 

3952 

RFF 

2 

L AST 

367 

2 2,  2721 

44723 

1 

VE  COFANG 

0953 

22  ,2722 

77745 

1 

OK  PHI 

OLD  AD 

0954 

22,2723 

43466 

1 

VECCFANG 

VDEF 

RVQ 

: 1 2 CCT.  21  ,1970  ZEPLAIC  .001 
USER  'S  PAGE  NO.  21 


PAGE  367 
E6  S3 


PO  +0 


PS  I 


PO  +2  THETA 

MUST  CHECK  THE  SIGN  CF  CDS  (T HFT  A) 
TO  DETERMINE  THE  PROPER  QUADRANT 


PUSH  DOWN  PHI 


PUSH  UP  PHI 


PUSH  UP  PHI 


'-./VP: 


ASSEMBLE  REVISION  56  OF  a; 


PROGRAM  ZERLINA  BY  ZCROASTER 


9:12  OCT  . 21,  1970  ZERLAID  .001  PAGE 


366 


L ATTITUDE  MANEUVER  POUTTNE 


USER'S  PAGE  NO.  22  E6  S3 


’0955  ROITINES  FOP  TERMIAATING  THE  AUTOMATIC  MANEUVER  ANC  RETURNING  TO  USER 


3956 

0957 

0958 


PEE  1R  LAST  276 


22, 2724 
22, ’72  5 
22  ,2726 


77776  1 
C 56 CO  1 
00401  1 


TOOBAOE 


EXl  T 

TC 

OCT 


A LAP  M 
2 0 40  1 


3959  REF 


22,  2727  1 2732 


TC  F NOGO 


REF  64 
R EF  2 


LAST  345  22  ,2730  C 46  16  1 
LAST  290  22,2731  4C154  0 


TC  BANKCALL 

CADR  ZATTERCR 


0962 

0963 


PFF  65  LAST 
REF  2 LAST 


368  22,  2732 

293  22,2733 


C 4616  1 NO  GO 
40166  1 


TC  BANKCALL 

CADR  ST  OPR  AT  F 


3964  REF  13 

0965 

0966  REF  12 

0967  REF  P 

0968  P EF  1 

3968  REF  1 

0969  REF  30 


LAST  337 

1 A ST  30  1 
L AS  T 36  2 

LAST  34  1 


22, 2734 
22  ,2735 
22,2 726 
E6,  1675 
22,2737 
22,  2 7 40 
22,2741 


3 4752  C 

0 0004  0 
C 521-4  0 

03234  1 
44C66  1 

1 5155  1 


CAr  TWO 
IN  H INT 

TC  WAITLIST 

FB ANK  = 3C0U 
2CA0R  GOODMANU 

TCF  ENDOF  JOB 


0970 

3971  REF 


L AST  368 


77776  1 TCC8A0I  EX  IT 
1 27  32  1 TCF 


OC  NOT  ZERO  ATTITUCE  ERRORS 

ZERO  ATT  ITU  DE  FRRORS 

STOP  RATES 

ALL  RE  TUP  NS  ARE  NCW  MADE  VIA  GOCDEND 


NOGO 


GAP: 

L 

3301 

0002 

3003 

P000A 

< 0005 

0006 

0007 

0008 

333  3 

0010 

00  1 1 

0012 

0013 

A0D14 

0015 

00  16 

33  17 

0018 

00  IP 

0020 

0021 

3322 

0023 

00  24 

3325 

0026 

0027 

0028 

1 0020 

R0030 

0031 

3031 

333? 

0032 

0033 

003  3 

0034 

3334 

00-35 

0035 

A3  3 36 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 
GIMBAL  LOCK  AVOIOANCF 


9:  12  CCT.  21  ,1970  ZEP.LAIC 
USER  *S  PAGE  NO.  1 


.001  PAGE 
EO  S3 


369 


1 5,  205C 


BANK 


15 


REF  3 LAST  362  22  ,2000 

22,2144 


SETLOC  KALCM0N1 
BANK 


OF  TFC  TI  NG  G!  PR  A L LCC  K 

REF  1 22,2744  LOC  SK I R T E QUA  LS  NGGIMLCC 


REF  1 

REF  3 
R EF  1 

REF  1 


REF  2 
RFF  39 
REF  1 
RFF  3 

REF  1 
REF  3 


REF  1 

REF  l 
REF  1 


22,2744  77614  1 NOGIMLOG  SET 


22  ,2  745 
22, 2746 
22  ,2747 
22,2750 
22,  2751 
22  ,2752 


0 1 C 7 4 
70740  0 
01322  0 
04772  1 
4 500  2 1 
44527  1 


CALCMAN3 
DLCAD* 
RATEINOX 
AR AT  E , 1 
CALL 
DEL COMP 


22,2753  74343  0 DLOAD*  VXSC 

LAST  369  22,2754  04772  1 ARATE,  1 

LAST  366  22,  2755  03270  1 C OF 

22  ,2756  17325  0 STOOL  BRATE 

LAST  357  22,2757  03335  1 AM 

22,  2760  55605  1 DMP  00  V* 

22  ,2761  05002  0 ANGLTIME 

LAST  369  22,2762  C4772  1 ARATE, 1 

22,2  763  77661  0 SR 

22  ,2764  20606  0 5 

22,  2765  C 3 333  1 STORE  TM 

2?  ,2766  77614  1 S FT  GO 

22,2767  01035  0 CALCMAN2 

22,  2770  45010  1 NFWANGL  +1 

THE  FOUR  SELECTABLE  FREE  FALL  MANEUVER  RATES  SELECTED  BY 
LOADING  RATFIN3X  KITH  0,2, 4, 6,  RESPECTIVELY 


CHOOSE  THE  DESIRED  MANEUVER  RATE 
FROM  A L 1ST  OF  FOUR 

COMPUTE  THE  INCREMENTAL  ROTATION  MATRIX 
DEL  CORRESPONDING  TO  A 1 SEC  ROTATION 
ABOUT  COF 


COMPONENT  MANEUVER  RATES  45  DEG/SEC 


MANEUVER  EXECUTION  TIME  S CAL  EO  AS  T2 

C (DFF)  = CONTINUE  MANEUVER 
11  ON)  = ST  APT  MANEUVER 


22,2771  00221  0 ARATE  2DEC 

22,2  772  2^-255  0 

22,  2773  CO 5 54  0 20EC 

22  ,2774  02660  0 

22,2775  02660  0 2 DEC 

22,  2776  1 33C  1 1 

22  ,2777  16161  0 2 DEC 

22, 30C0  3C707  1 


22,  3001  00003  I ANGLTIME  2DEC 

22  ,300?  04000  0 


.0088888888  = 0.2  DEG/SEC  f 22.5  DEG/SEC 

. 0222222222  = 0 .5  DEG/SEC  S 22.5  DEG/SEC 

.0888888888  = 2.0  DEG/SEC  S 22.5  DEG/SEC 

.4444444444  = io.  0 DEG/SEC  * 22.5  DEG/SEC 

.0001907349  = 100B-19  FUDGE  FACTOR  TO  CONVERT 


MANEUVER  ANGLE  TO  MANEUVER  TIME 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L KALCMANU  STFERING 

RPOOl  GENERATION  OF  STEERING  COMMANDS  FfR  DIGITAL  AUTCPILCT  FREE  FALL  MANI 


rooo3  new  commands  will  eE  gfneratec  evfry  one  second  during  the  maneuver 


00'  4 REF 


E6.1706 


E6ANK=  TTEMP 


3305 
0006 
00C7 
OOOH 
0009 
33  ID 
0011 
00  12 
3313 
0014 
OC  15 
0016 
0017 
3 318 
ooiq 
* > 
3321 
0022 
00  23 

0024 

0025 
3326 
002  7 
002B 
3329 

0030 

0031 

0032 

0033 
3334 

0035 

0036 
3337 
0038 
00  39 


RFF  66  LAST 
PFF  1 
REF  S3  LAST 
RFF  3 LAST 
PFF  16  LAST 

RFF  6 LAST 
REF  10  LAST 

REF  2 LAST 

REF  7 LAST 


REF  8 LAST 

RFF  9 LAST 

REF  10  LAST 

R FF  1 

REF  1 

RFF  1 

RFF  2 LAST 

REF  1 

RFF  14  LAST 

PFF  l 

RFF  2 LAST 

PFF  9 LAST 

REF  -3  LAST 

REF  2 LAST 

REF  4 LAST 


368  22.  3CC3 

22  ,3004 
137  22,3005 

368  22,  3006 

362  22  ,3007 

22,  3010 
356  22,  3011 

366  22  ,3012 

22,  3013 
356  22,3014 

22  ,3015 
37.'.  22,30  16 

22  ,3017 
370  22,  3020 

22,  3021 
370  22,3022 

22, 3023 
370  22  ,3024 

22  ,3025 
22,  3026 
22  ,3027 

22. 3030 

22. 3031 
36  9 22,3  032 

22, 3033 
368  22  ,3034 

72 ,3035 
370  22,  30  36 

368  22  ,3037 
22, 3040 

370  22,3041 

370  22,3042 

22,  3043 

369  22  ,2000 
22  ,3044 


C 46 1 6 1 
54270  0 
1C  000  0 
1 273 C C 
c 6051  0 
T516C  1 
03245  1 
02221  1 
77624  1 
44312  1 
45575  1 
50515  0 
77626  0 
50523  0 
77626  0 
74531  0 
45160  1 
03245  1 
44654  0 
77634  0 
21602  0 
C33C3  1 
77414  0 
01215  0 
45122  1 
3 4752  0 
55*261  1 
51*261  0 
3 1675  1 
C 0CC6  1 
5 1261  0 
21*70 2 1 
C CC06  1 


NFWDELHI  TC 

CA0R 
CCS 
TC  F 

NEWANGL  TC 

A XC  ,1 


CALL 

VLCAO 
STn  VL 
ST  ADR 
STCVL 
STADR 
STCRE 
AXC  ,1 


R TR 


RANKCALL 
I S ITAUTO 
A 

N0G0  -2 
INTPRFT 
AXC, 2 
MI  S 
KEL 

M XM  3 
ST  ADR 
MI  S *•  12n 

MI  S +6  D 

MIS 
CALL 
M IS 

DCMTOCDU 


V lSTn2S 
STCRE  NCDU 
RONCLR  EXIT 

C ALCMAN2 
MANUSTAT 
CAP  TWO 

I NCROCDU  TS  SPNDX 
INDEX  SPNDX 
CA  BCDU 

FXTFND 

INDEX  SPNDX 
MSU  NCCU 
E X TEND 

SETLOC  < AL  CMON  I 
BANK 


0040 

0041 
3042 
004  3 
0044 
3345 

0046 

0047 


R EF  16 


REF  4 
REF  1 
RFF  5 


LAST  370 
LAST  344 

LAST  370 
LAST  370 


22,  3044 
22  ,3345 
22, 3046 
22,  3047 
22 ,3C50 
22,  3C5  1 
22  ,3052 
22 , 3053 


7 2121  1 
10  000  0 
6 4753  1 
1 3051  1 

4 0000  0 

5 1*26  1 0 
55 '637  0 
51*  261  0 


MP  3T/TAU 

CCS  A 
AD  ONE 

TC  F + 2 
COM 

INDEX  SPNDX 
TS  DEL DC DU 

INDEX  SPNDX 


9:12  OCT.  21,1970  ZEPLAIO 


,00  1 PAGE  370 


USER'S  PAGE  NC. 


EO  S3 


FRS 


CHECK  FOR  AUTO  STABILIZATION 
ONL  Y 


COMPUTE  THE  NEW  MATRIX  FROM  S/C  TO 
STABLF  MEMRF3  AXES 


CALCULATE  NEW  DES I RFC  CPU  ANGIES 


PICK  UP  THF  NEW  CDU  ANGLES  FROM  MATRIX 

NEW  CDJ  ANGLES 

TO  START  MANEUVER 

+ 0 OTHER  W I SF 

INF  TI  AL  CDU  ANGLE  S 
OR  PREVIOUS  DESIRED  CDU  ANGIES 


CONVERT  TO  2S  COMPLEMENT 


ANGLE  INCREMFNTS  TC  BE  ADDED  TO 
CDUXO,  COUYD,  CDU7C  EVERY  TENTH  SECOND 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L K AL  CM  ANU  STEERING 


0048 

004Q 

0050 

0051 
30  5? 

0053 

0054 


PfF 

REF 

REF 

RFF 

REF 

REF 

RFF 


3 LAST  370 

6 LAST  370 
10  LAST  370 

7 LAST  371 
10  LAST  357 

8 LAST  371 


22  ,3054  3 1702  0 

2 2 , 3 0 5 5 5 1*261  0 

22,  3056  57 ' 675  1 

22,3057  51*261  0 

, 55*634  0 

22.3061  11*261  1 

22.3062  1 3035  0 


CA 

I NDEX 

XCH 

INDEX 

TS 

CCS 

TCF 


NCDU 
SPNDX 
3CDU 
S PNDX 
C DU  XD 
SPNDX 


I NCR  DC  DU 


3 3 55 


22,  3063  C 0003  1 


RELINT 


10056  COMPARE  PRESENT  TINE  WITH  TINE  TO  TERMINATE  MANEUVER 


0057 

0058 
00  5^ 
0060 
0061 
00  62 
0063 

0063 

0064 

0065 


REF  1 
RFF  1 
PFF  17 

RFF  13 
REF  2 
PEF  1 
RFF  1 

REF  31 


LAST  37C 

LAST  368 
LAST  370 

LAST  368 


mu 

22,3066 
22,  3067 
22  ,3070 
E 6 , 1706 
22,  3071 
22  ,3072 
22,  3C73 
22,  30  74 


C 3C75  0 
1 3170  0 
3 4753  1 
C 0004  0 

0 5214  0 

03213  1 
44066  1 
( C0C3  1 

1 5155  1 


TMANUCH  K TC  TINECHK 

TCF  CONTMANU 
CAF  ONE 
MANUSTAL  I NHI  NT 

TC  WAITLIST 

E I?  ANK=  TTEMP 
2CADR  MANUSTOP 

RE  LI  NT 

TCF  ENOOFJOB 


0066 

0067  REF 

0068  REF 

0069 

0070  RFF 

0071  REF 

0072  REF 

0073  REF 

0074 

0075  RFF 

0076  REF 

0077  REF 

0078  REF 

0079 

0 OHO  RFF 
0081 

0082  RFF 

0083  REF 

0084  REF 

0085  REF 


12  LAST  311 
3 LAST  371 

2 LAST  369 
A LAST  371 
5 LAST  371 
36  LAST  34  1 


6 LAST  371 
37  LAST  371 
1 


1 


2 LAST  371 

38  LAST  37  1 

39  LAST  371 

40  LAST  371 


22, 3 C 76 
22  ,3077 
22 , 3 1 CO 
22,  3 1o  1 
22  ,3  1C2 
22,  3 1C3 

22. 3104 

22.3105 
22,  3 1 C 6 
22  ,3107 
22 ,3  110 
?2,  3111 
22  ,3112 

■ 

22,  3ii4 

22.3115 

22. 3116 
22  ,3117 

22 ,3  120 


C 0006  1 
4 0025  1 
53*707  1 
C 0006  1 
2 1723  1 
21*  70  7 1 
11*706  C 
C 0002  0 
1 3107  0 
1 2117  1 
11*707  1 
C 0002  0 
1 2113  0 
4 0000  0 
t 3166  0 
C 0006  1 
6 3117  0 
24  CC 2 0 
24  OC  2 0 
C 0002  0 


TINECHK  EXTEND 

OCS  TI  ME2 

DXCH  TTEMP 

EXTEND 

DC  A TM 

DAS  TTEMP 

CCS  TTEMP 

TC  0 

TCF  +2 

TCF  2 NDRE  TRN 

CCS  TTEMP  +1 

TC  0 

TCF  MANUOFF 

COM 

MANUOFF  AD  ONES  E K +1 

EXTEND 

3 ZMF  2NCRETRN 

I NCR  0 

2N0RETRN  INCR  0 

TC  0 


0086 


22,  3 12  1 02  146 


DT/TAU  DEC 


0087 

3388 

0089  REF  13  LAST  371 


22,312?  77776  l 

22,  3 123  C CCC6  1 
22,3124  3 ( 025  0 


MAMJSTAT  EXIT 

EXTEND 
DC  A 


TIME2 


12  OCT.  21,1970  ZERLAID  .001  PAGE  371 
USER'S  PAGE  NC.  2 E6  S3 

BY  LEM  DAP 


LOOP  FDR  THREE  AXES 


FND  MAJOR  PART  OF  MANEUVER  WITHIN  1 SEC 
UNDER  WAITLIST  CALL  TC  NANUSTOP 


IN  ITIAL  IZAT  I3N  ROUTINE 
FOR  AUTOMATIC  MANEUVERS 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


KALE  HA NU  STEERING 


3000  REF 
009] 

0092  REF 

0093  REF 

0094 

3395  PFF 

0096  REF 

0097 

3393  REF 

0099  PFF 
0 ICO  REF 

0101  PFF 

0102  PFF 
3133 

OU'4 

0105 

3136 

OIT7  RFF 

010R 

0109  REF 

0110  PEF 
Dill 

0112  RFF 

3113  RTF 

3114  PFF 
0115  PFF 
3 116  RFF 
0117  REF 


3 LAST 

2 LAST 
6 LAST 

15  LAST 

2 LAST 

2 LAST 
95  LAST 

2 LAST 

3 L AST 
5 LAST 


3 LAST 

3 LAST 

4 LAST 
A LAST 

5 L AST 
l 

6 LA  ST 

1 


2 2*3126 
371  22  ,3  127 

172  22,  3 13o 

22  ,3131 

371  22,3132 

139  22,  ^13  3 

22,3134 
139  22, 3l?5 

370  22  ,3136 

369  22,3137 

37  2 22,  3 140 

l • 141 

22,  3142 
22,  ’143 
22,3144 
22,  3145 
22  ,3146 
22  ,3  147 

372  22,  3 150 

372  22  ,3151 

22,  3152 
372  22,  31  53 

137  22,31  54 

372  22,  3 155 

22  ,3156 
372  22,3157 

22, 3160 


21*733  0 
C (006  1 
4 2166  1 
21*733  C 
C 0004  0 
2 415?  0 
55 ' 7C0  0 
6 0000  1 
55*701  1 
50  000  1 
2 1724  l 
<=  1*700  1 
55*642  l 
C 0006  l 

6 3145  1 

4 0000  o 
C CCC6  1 

7 7167  0 
C 0006  1 

5 1 70 1 0 
7 1724  0 
( CCC6  1 
5 1700  1 
1 1 • 530  1 
51*700  1 
55*274  0 
11' 7C0  C 
1 3133  1 


OAS  T M 
EXTEND 

DCS  ONESEK 
OA  S TM 
INHINT 
CAF  TWO 

RATER  IAS  TS  KSPNDX 

DOUBLE 

TS  KDPNDX 

INDEX  A 
CA  RRATE 

INDEX  KSPNDX 
TS  3ME0APD 

EXTEND 
87  MF  ♦ 2 
COM 

F X TE  NO 

MP  BIASO.ALE 
EXTEND 

INDEX  KO  PND  X 
MP  BRATE 

EXTEND 

INDEX  KSPNDX 
OV  1J  AGC 

INDEX  KSPNDX 
TS  DFLPEROR 

CCS  KSPNDX 
TCF  PATFBIAS 


012° 
3 121 
0122 
0 123 


RFF  9 LAST  730 

RFF  7 LAST  372 

RFF  1 

REF  2 LAST  371 


22.3161  3 0025  0 

22. 3162  6 3166  0 

22.3163  57*705  1 

22.3164  1 3034  1 


CA  TIME1 

AD  (INFS  E K +1 

XCH  NEXTIMF 

TCF  1NCRCCDU 


22,  3 165 
22  ,7  166 


00000  1 ONESEK  DEC 
00144  0 DEC 


0126 


22,3167  75777 


RI ASC ALE  OCT  75777 


0127 

0128 
, 129 
0130 
0 131 
3132 
0133 

0 174 

0135 

0136 
3137 

0 1 3 7 


RFF  10  LAST  37  2 
REF  2 LAST  772 
RFF  Q6  LAST  372 
RFF  1R  LAST  371 
REF  1 
HEF  1 


REF  14  LAST  37  1 
REF  7 LAST  371 
R FF  1 
RFF  1 


22,  3 170  4 0025  1 

22  ,31  71  6 1 705  1 

22. 3172  1C  000  0 

22.3173  6 4753  1 

22  ,31  74  1 3177  1 

22,  3 175  6 4735  1 

22  ,3176  4 0000  0 

22  ,3  177  C 0004  0 
22,  3200  C c 2 1 4 0 
E6  ,1706 

22, 3201  03206  0 
22,  3202  44066  1 


CONTMANU  C S Tl  ME  1 

AD  NEXT IME 

CCS  A 

AD  ONE 

TCF  MANUCALL 

AD  NEGMAX 

COM 

MANUCALL  INHINT 

TC  WAITLIST 


ERANK=  TTEMP 
2CADR  UPDTCALL 


9:12  CCT.  21  ,1970  ZEPLAIC  .301  PAGE  37  2 
USER  *S  PAGE  NO.  3 E6  S3 

TM  + T3  MANEUVER  COMPLETION  TIME 

(TM+T3)  -1 


STORE  MANEUVER  R AT  F IN 
0MEGAP3 , OMEGAQD,  OMEGARD 

COMPUTE  ATTITUDE  ERRCR 
OFFSET  = ( WX  IABSI  WX1 /2A  JX 
WHEPE  A JX  = 2-JET  ACC  EL  EP  AT  ION 
= - 1/16 


= A J X $ 90  DEG/SEC-SFC 
$ 180  DEG 


= -1/16 

RESFT  FOP  NEXT  OCDU  UPDATE 


CALL  FOR  NEXT  UPDATE  VIA  WAITLIST 


SAP:  ASSEMOLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


KALCMANU  STEERING 


113H 
ll  3 9 
0 140 


REF 

REF 

REF 


LAST 

LAST 

LAST 


37  2 
372 
371 


22,  3 2C3 

22.3204 

22.3205 


3 3166  0 
27*705  0 
1 5155  1 


CAF  ONESEK  +1 

ADS  NEXTIME 

TCF  EN  OOF JOB 


3141 

014? 

0143 
0H4 

0144 
31A5 


REF 

REF 

REF 

PFF 

REF 

REF 


LAST  287 


22,  3?06 
22  ,3207 
E 6,  17C6 
22,  3 2 10 
22,3211 
22,  3212 


03003  l 
44066  1 
C 5272  0 


UP  DTC  ALL  CAF  PRI026 

TC  FINOVAC 

ER A NK=  TTEMP 
2CADR  NEWDELHI 

TC 


TASKOVEP 
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USER  » S PAGE  NO.  4 E6  S3 

INCREMENT  TIME  FOR  NEXT  UPOATE 

SATELLITE  PROGRAM  TO  CALL  FOR  UPOATE 
OF  STEERING  COMMANDS 


» A P : 


ASSFMBLE  REVISION  56  OF  AGC  PRCC-RAM  ZERLINA  8Y  ZOROASTER 


L KALCMANU  STEERING 


POHfr  ROUTINE  FOR  TERMINATING  AUTOMATIC  MANEUVERS 


■ 14  7 RFF 
31AM  PEE 

0149  REF 

ISO  prF 

3151  REF 
152  RFF 
‘153  RFF 
rl5'+  REF 
0155  RFF 
3156  REF 
0157  RFF 

0150  RFF 
3159  REF 
0160  RFF 

161  REF 
3 1 62  PFF 
0163  REF 
3164  REF 
G 16  5 RFF 


3 

1 

2 


1 1 
AO 
6 
2 
2 

1 

2 


LAST  36 1 
LAST  202 


LAST  2C2 

LAST  356 
LAST  210 

LAST  210 
LAST  357 
LAST  37  1 
LAST  374 
LAST  372 
LAST  370 
LAST  372 

LAST  239 


22,3213 
22,  32  14 

22. 3215 

22.3216 
22,  32  17 
22  ,3229 
22,3221 
22,  3222 
22,3223 
22,  3224 

22.3225 

22 .3226 
22,  3227 
22  ,3230 
22,3221 
22,  3232 
22  ,3233 
22,  3234 
22  ,3235 


3 4755  1 
55*641  1 
55 ' 644  1 
55'  2 76  1 
5 5 ' 64C  0 
55*643  0 
55*275  1 
3 0323  0 
55' 636  1 
3 C322  l 
55 '635  1 
3 0321  1 
55*624  0 
3 4755  1 
55*642  1 
55*637  O 
55' 274  0 
3 1306  0 
54  063  0 


MANUSTCP  CAF 
TS 
TS 
TS 
TS 
TS 
TS 
CA 
TS 
CA 
TS 

E NOROLL  CA 
TS 
CAF 
TS 
TS 
TS 

GOOD  MA  NU  CA 
TS 


ZERO 

OE  LDC0U2 
OMEGARD 
OFLREROR 
3 E LDCDUl 
DM  EGAQD 
DELGEROR 

:psi 

couzd 

CTHETA 

rnuYD 
CPHI 
CDUXD 
ZERO 
OMEGA  PD 
3EL0CDU 
DELPEROR 
ATTPRI 0 
NEWPP  IU 


CA  ZERO 

OXCH  ATTCADR 


0168  RFF  2 LAST  239 
3159  REF  6 LAST  373 


22,3240  C 5116  1 
22,  3241  C 5272  0 


TC  SPVAC 

TC  TASKCVER 


9:12  0:  T.  21 , 1Q7C  ZFRLAID  .001 
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USER  *S  PAGE  NO.  5 E6  S3 


ZERO  MANEUVER  RATES 


SFT  DESIRED  G I MBA  L ANC-LFS  TO 
DESIRED  FINAL  G I MB  A l ANGLES 


NO  FINAL  YAW 


I.E.  MANEUVFP  DIO  NOT  GO  THRU 
GIMBAL  LOCK  ORIGINALLY 

RESTORE  USERS  PRIG 


ZERO  ATTCADP 


ETURN  TO  USE  9 


ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
SYSTEM  TEST  STANDARD  LEAD  INS 


OGC  2 
000  3 
0DD4 

0005 

RDDD6 

R 0007 

R 0008 
RDDlO 


REF 

REF 


33,2031 

>4  »2  ( 

0 A, 2570 


BANK  33 
SETLOC  E/PROG 
BANK 


9:12  CCT.  21  ,1970  Z ERL  A I C .001 
USER  * S PAGE  NO.  1 


PAGE  375 
EO  S3 


COUNT  * * S/P  0 7 

SPECIAL  PROGRAMS  TO  EASE  THE  PANGS  OF  ERASABLE  MEMORY  PROGRAMS. 
FOR  DOING  BANKCALLS  FROM  AND  RETURNING  TO  ERASA8LF. 


HOWEVER,  SWITCHING  BETWEEN  S3  AND  S4 


30011  THE  CALLING  SEQUENCE  IS: 


ADD  1 2 
A 0013 
A 00  1 A 
ADD  15 
A OC 1 5 
AGO  17 


TC  BANKCALL 

CAD*  E /B  KC ALL 

C ADR  ROUTINE  WHERE  YOU  WANT  TO  GO  IN  FIXED. 

RETURN  HERE  FROM  DISPLAY  TERMINATE,  BAD  STALL  OR  TC  Q. 
RETURN  HFRE  FROM  DISPLAY  PROCEED  OR  GOOD  RETUPN  FROM  STALL. 
RETURN  HERE  FPCM  CIS  PLAY  ENTER  OR  RECYCLE. 


ROOlB  THIS  ROUTINE  REQUIRES  TWO  ERASARLES  (ERUF2,  *1)  IN  UNSWITCHED  WHICH  ARE  UNSHARED  BY  INTERRUPTS  ANO 

30020  OTHFR  EMEMORY  PROGRAMS. 

RDD21  A + L ARE  PRESERVED  THROLGH  RANKCALL  AND  E/B  KC  ALL* 


0^2? 

0023 

DD24 

0025 

0025 

002  7 
002  8 
D D 29 

003  0 
A 00  3 1 

DD3? 

0033 

0034 

0035 

0036 
D D 3 7 


REF 

RFF 

RFF 

REF 

RFF 

REF 

PFF 


3 LAST  252  )4 , 2 570  52  134  o F/8KCALL  OXCH 


' , r 1 53 • 1 67  1 

2 LAST  375  04,  2572  2*'l66  1 INCR 

11  LAST  226  04,2573  3 0006  1 CA 

3 LAST  305  04,2574  7 5012  C MASK 

3 LAST  375  94,  2575  27*  167  1 ADS 

5 LAST  375  04,2576  51*166  1 NDX 

04, 2577  2*7777  0 CA 

04,2600  0 4622  0 TC 


BUF2 
FBU  F2 
EBUF2 
BBANK 
LOWIO 
r 3 UF  2 
ERUF2 
0 -1 
SWC.AL  L 


REF  5 LAST 

REF  6 LAST 

REF  7 LAST 


04,  260  1 
04  ,2602 
’75  D4.26C3 

375  04,  2604 

375  04,2605 

0 4,  2606 


C 2605  0 
C 2604  1 
25* 166  1 
25*166  1 
53*167  I E/SW 
e-2  C C 6 0 


TC  +4 

TC  +2 

INCR  FBUF2 
INCR  ERUF2 
DXCH  F8UF2 
OTCB 


SAVF  A , L AND  GET  DP  RETURN. 

SAVE  DP  RETU3N. 

RETURN  +1  BECAUSE  CCUHLE  CADR. 

GET  CURRENT  EHANK.  ( SBANK  SOMEDAY) 
FORM  BRCON.  (WAS  FPANK  ) 

GET  CADR  (IF  POUT  IN  E. 

GO  TO  ROUTINE,  SETTING  G TC  SWRETURN 
AND  RESTOR IMG  A ♦ L. 

TX  G,  V 3*,  CP  BAD  STALL  RETURN. 
PROCEED  OR  GOOD  STALL  RETURN. 

ENTER  OR  RECYCLE  RETURN. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PPCGRAP  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  ZERLAIO  .C"1  PAGE  37d 


L SYSTEP  TEST  STANCARC  L E AO  INS 


USER’  S PAGE  NC.  2 E5  S3 


>0038  E/CALL 


FOP  CALLING  A FIXED  ME PORY  INTERPRETIVE  SUBROUTINE  FROM  ERASABLE  AND  RETURNING  TO  ERASABLE. 


R3  3 4' 

ACC41 
A004? 
A3r  *3 
A 0044 


ThF  CALLING  SEQUENCE  IS... 


RTB 

F/CALL 

CAOR  ROUTINE  THE  I NT  E R PR  ET  I V F SU  BROUT  IN  E Y Oil  WANT. 

RETURNS  HERF  IN  INTERPRETIVE. 


3345 
Of  46 
0047 
334f> 


0049 

0050 

0051 

0052 
3353 
0054 


0055 

3056 


PFF 

RFF 

REF 

RFF 

REF 

REF 

PEF 


REF 

REF 


34 

35 

36 
8 

17 

9 

10 

18 


LAST 
LAST 
L AST 
LAST 
LA  ST 
LAST 


l AST 

L AST 
L AST 


04, 2607 
341  04,2610 

376  04,2611 

376  04,  26  12 
376  04  ,26  13 

375  04,2614 

370  34,2615 

04 ,2616 

376  04,  2617 
04,2620 

376  04,2621 

376  04,  2622 


22  164  1 
50  00  1 0 
3 0001  O 
24  COl  0 
24  001  0 
53’ 167  1 
C 6C  5 1 C 
77624  1 
C l 1 66  1 
77776  1 
23*  167  0 
1 6053  0 


F /CALL 


LXCH  LOC 
INDEX  L 
CA  L 

I NCR  L 
INCR  L 
OXCH  EBUF2 
TC  INTPRET 

CALL 


EBUF2 

F X I T 

LXCH  EBUF2  +1 
TCF  INTPRET  +2 


AORES  -1  OF  CADR. 

CAOR  IN  A. 

RE  TURN  ADPF  S I N L. 
STORE  C A CP  ANO  RETURN  . 


INDIRECTLY  Ex  ECUT  E ROUT  INF  . IT  MUST 
LFAVF  VIA  P VO  OR  F CUI  V ALFNT. 

PICK  UP  RETURN. 

SFT  LOC  ANO  RETURN  TO  CALLER. 


TAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLIMA  BY  ZOROASTER 


9:12  GST.  21  ,1970  Z ER  LAI  U .001 
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SYSTEM  TEST  STANDARD  LEAD  INS 

PD.  57  F/ JORWAK  FOR  WAKING  UP  ERASABLE  MEMORY  J08  S. 


USER  'S  PAGE  NO.  3 E 5 S3 


R 00  58 


THIS  ROUTINE  MUST  BE  CALLfC  IN  INTERRUPT  OR  WITH  INTERRUPTS  INHIBITED. 


RD35D 


THE  CALLING  SEQUENCE  IS: 


A 0061 
A 00  62 
ADD63 
AD06A 
A0065 
A0066 
A 0067 
AD  D 68 
A 0069 
A •’.0  70 


INHINT 


CA  WAKEADR  ADDRESS  OF  SLEEPING  JOB 

TC  IBNKCALL 

CADR  F / JOB  ViA  K 

. RETURNS  HERE 


IF  YOU  DID  AN  INHINT. 


DD71 

0072  REF  2 LAST  375 

0073 


3 3,  20  3 1 
OA  ,2000 
OA, 2623 


BANK  33 
SETLOC  E/PROG 
BANK 


007A 


REF  2 LAST  375  TO  377: 


27* 


COUNT*  f*/P07 


00  75 
D076 
0077 
00  78 
DO  79 


REF  1 

REF  18  LAST  262 

REF  1 

REF  ? LAST  376 

REF  2 LAST  155 


0A.2623  0 5137  1 

OA,  26 2 A <■  A 7A  1 0 
OA  ,2625  50  06A  0 

OA  , 2 62 6 26  16A  0 

06,  2627  0 OC  7 2 1 


E/ JORWAK 


TC 

CS 

NDX 

AOS 

TC 


JORWAK  E ARRIVE  IWTH  AORES  IN  A. 

B I Til 
LOCCTR 

LOG  KNOCK  FIXED  MEMORY  BIT  OUT  DF  AU3ES. 

RUPTREG3  RETURN 


JAP: 

RDD:  1 
<000? 
R3D03 


ASSEMBIE  REVISION  56  OF 

IMU  performance  tests 

NAMF-  IMU  PERFORMANCE 
DATE-  MARCH  20»1967 
RY-  SYSTEM  TEST  GROUP 


AbC  PROGRAM  ZERL  INA  BY  ZOROASTER 
2 

TESTS  ; 

8 fc  4-  6 9 C C EXT.  1274 


9:12  OJT.  21  ,1970  ZFRLAID 
USER  'S  PAGE  NO.  1 


.0:1 
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R00P4  MCDNC. - ZEPC 

<0005  FUNCTIONAL  DESCRIPTION 

R030-  POSITIONING  ROUTINES  FOR  THE  IMU  PERFORMANCE  TESTS  AS  WELL  AS  SOME  OF 
R00r-7  THF  TESTS  THFMSFLVES.  FOR  A CFSCRIPTION  OF  THESE  SUBROUTINES  AND  THE 
ROODS  OPERATING  PROCEDURES  (TYPICALLY)  SFE  STG  MEMO  685 . THEOR  ET  I C AL  RFF.  E-1973 


0009 

0010 

REF 

2 

LAST 

*5 

3 2,  20  31 
37,?  '"GO 

BANK  33 

SETLOC  I MU  2 

3 0 11 

1 7,  ?<:  C 2 

BANK 

0012 

RFF 

? 

LAST 

1 31 

E5  , 1 A 1 6 

FRANK  = 

: PnSITON 

0012  1 

RFF 

2 

LAST 

A 5 TO 

A 5 : 

2 

2* 

COUNT' 

* St/ PC-7 

0012  2 

REF 

1 

3 7,  200  2 

0 '322 

1 

REDO 

TC 

NE  MMQDE X 

0012  A 

00007 

0 

MM 

07 

GFOI  MUTT 

I MU  ZF  R R 

0022 

RFF 

A2 

LAST 

374 

37,7005 

3 47  55 

1 

IMUBACK 

CA 

7 E RO 

0023 

REF 

2 

LA  ST 

131 

37.20C6 

55*  A1A 

0 

TS 

NOXCTR 

002A 

RFF 

1 

37,  2007 

5 5 ' 4 40 

1 

TS 

TGRQNDX 

0025 

REF 

2 

LAST 

378 

37,?  )10 

55* AA1 

0 

TS 

TORQNOX  +1 

3325  1 

REF 

1 

37, 2011 

55' 576 

0 

TS 

OVFLOWCK 

0026 

RFF 

1 

37,2012 

3 4361 

1 

NR  POS  PL 

C A 

DEC  17 

0027 

RFF 

1 

37,2013 

55*571 

1 

TS 

ZERONDX 

3329 

REF 

1 

37,  20  14 

2 2 A 76 

0 

CA 

XNBADR 

0029 

RFF 

1 

37  ,2015 

0 2367 

1 

TC 

ZEROING 

0030 

REF 

3 

LAST 

339 

’7 ,?CI« 

I-  4736 

l 

CA 

HALF 

0031 

REF 

1 

37,  20  17 

55*664 

0 

TS 

XNB 

003? 

RFF 

19 

LAST 

376 

37,7020 

0 6051 

0 

GUESS 

TC 

INTPRET 

3333 

37,  2 021 

625A5 

1 

LA  TAZCHK 

D LOAD 

SL2 

003  A 

RFF 

2 

LAST 

131 

37,2022 

024C3 

1 

L A TI TUDE 

0035 

REF 

13 

LAST 

322 

3 7 , 2 02  3 

1 5046 

1 

STOOL 

DSPTEM1  +1 

3336 

REF 

2 

L AST 

131 

37,  202A 

02401 

0 

AZI  MUTH 

0037 

37  ,2025 

77A3A 

1 

RTB 

FX  IT 

00  38 

RFF 

l 

37,7026 

21  576 

0 

1 ST02  S 

0039 

RFF 

68 

L AST 

36  2 

37,  20  27 

56  154 

1 

XCH 

MP  AC 

0040 

REF 

1A 

LAST 

378 

. 

55 ' 044 

1 

TS 

DSPTEM  1 

3 3 A 1 

REF 

1 

37,  2031 

3 2473 

0 

CAF 

V NO  64 1 

00A2 

RFF 

67 

LAST 

370 

37,2032 

0 4616 

1 

TC 

BANKC  ALL 

0 0 A 3 

RFF 

A 

LAST 

34  5 

37,?o33 

20477 

1 

CADR 

GOFL  AS  E 

33  AA 

REF 

1 

3 7,  20  34 

C 2270 

0 

TC 

FNDTE  ST1 

0045 

37  ,2035 

0 20  37 

l 

TC 

+ 2 

00A6 

37,2036 

0 2031 

1 

TC 

-5 

RAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZFRIINA  BY  ZCROASTER 


L I MJ  PERFORMANCE  TESTS  2 


0067 

RFF 

20 

LAST 

378 

37  ,2037 

0 6051 

0 

TC 

INTPRET 

006  8 

17 , 2040 

47135 

0 

SI.  CAD 

RTB 

004  9 

REF 

15 

LAST 

378 

37,  204  1 

01045 

1 

3 SP  TE  M 1 

0050 

REF 

10 

LAST 

362 

37  ,2042 

21560 

1 

COULOGIC 

0051 

REF 

3 

LAST 

378 

37,  204  3 

0 2 4 C 1 

0 

STORE 

AZI MUTH 

0052 

37,2044 

60535 

1 

SLOAO 

SR  2 

0053 

RFF 

16 

LAST 

379 

37,2045 

01046 

1 

OS  PT  EMI  ♦] 

D D 56 

REF 

3 

LAST 

378 

37, 2046 

02403 

1 

STORE 

L ATI TUDE 

0055 

37  ,2047 

57546 

1 

COS 

OCOMP 

0056 

37,2050 

77752 

1 

SL1 

0057 

REF 

1 

37,  20  5 1 

164  37 

0 

STOOL 

WA  NG  I 

0058 

RFF 

4 

LAST 

379 

37  ,2052 

02403 

1 

L AT  ITU OE 

3059 

37, 2C53 

72556 

1 

SI  N 

S LI 

0060 

REF 

1 

37,20  54 

16435 

l 

STOOL 

WANGO 

0061 

REF 

4 

LA  ST 

379 

37,2055 

02401 

0 

AZIMUTH 

3362 

3 7,  2056 

73406 

1 

PUSH 

SI  N 

0063 

REF 

1 

37  ,2057 

02675 

1 

STORE 

YNR  +2 

0066 

R EF 

1 

37,2060 

16705 

1 

STOOL 

7NB  +4 

0065 

37,  206  1 

77746 

1 

COS 

0066 

REF 

2 

LAST 

379 

37  ,2062 

02677 

0 

STORE 

YNB  +4 

3367 

37,  2C63 

77676 

0 

OCOMP 

0068 

REF 

2 

LAST 

379 

37,2064 

36703 

0 

PUSGMBL 

STCALL 

l 

006« 

REF 

l 

37,2065 

47351 

0 

CALCGA 

3373 

37,  2C66 

77776 

1 

E XI  T 

0071 

REF 

68 

LAST 

378 

37  ,2067 

0 46  16 

1 

TC 

BANKCALL 

007? 

RFF 

2 

LAST 

274 

37,2070 

16745 

0 

CADR 

IMUCOARS 

0073 

PEF 

36 

1.  AST 

298 

3 7,  20  7 1 

3 4736 

1 

CAF 

31  Tl4 

0076 

REF 

8 

LAST 

295 

37  ,2072 

7 0077 

0 

MASK 

FI  AGWR03 

3375 

37,  2C73 

C CCC6 

1 

EXTE  NO 

0076 

37,2074 

1 2076 

0 

8 7 F 

+ 2 

0077 

REF 

3 

LA  ST 

378 

37,2075 

25*414 

1 

I NCR 

NOXCTR 

3378 

REF 

28 

L AST 

345 

27,  2C76 

C 5 5 27 

1 

TC 

DOWNF  l AG 

0079 

REF 

2 

LAST 

236 

37  ,2077 

00056 

1 

A ORES 

GLOKFA  IL 

0080 

REF 

1 

37,2100 

0 2315 

1 

TC 

IMUSLLLG 

0081 

RFF 

4 

L AST 

379 

37, 210  1 

1 1 *4  14 

0 

CC  S 

NO  XC  TR 

0082 

REF 

1 

37,2102 

0 2126 

0 

TC 

P IPACHK 

3 3 84 

REF 

l 

37,  2 1 C 3 

C 2320 

1 

TC 

FI M MUDD 

0085 

37,2104 

0 0006 

l 

FXTEND 

00  85  1 

REF 

1 

37,2105 

3 1575 

1 

OCA 

PERFOL  AY 

39852 

REF 

1 

37,  2 1 C 6 

C 5310 

0 

TC 

LONGCALL 

008525 

REF 

3 

LAST 

378 

ES  ,1416 

EB ANK  = 

POSITON 

0085  3 

REF 

1 

37,2107 

02113 

0 

2CA0R 

GOEST  IMS 

00853 

RFF 

1 

37,  2 1 in 

76C65 

0 

00854 

REF 

1 

37  ,2111 

3 2116 

0 

CA 

EST  ICADR 

33855 

REF 

1 

37,  2 112 

C 5133 

0 

TC 

JC8SLEEP 

00856 

REF 

2 

LAST 

379 

37,2113 

3 2116 

0 

G3EST  IMS 

CA 

F.  STIC  ADR 

00857 

RFF 

2 

LAST 

377 

37,2114 

0 5137 

1 

TC 

JOBW  AK  E 

33858 

REF 

7 

L AST 

374 

3 7,  2 115 

C 5 272 

0 

TC 

TASKCVER 

00859 

REF 

1 

37  ,2116 

76500 

0 

EST  ICACR 

CADR 

ESTIMS 

0086 

R EF 

43 

LA  ST 

378 

37,2117 

3 4755 

1 

TORQUE 

CA 

7ER0 
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IF  BIT14  SET,  GIMBAL  LOCK 


+ 1 IF  IN  GIMBAL  L OC  K , OTHE R WI  SE  0 

RE  SET  GI  MBAL  LOCK  FLAG 

IF  CNE  GO  AND  OC  A PTPA  TEST  ONL i 
ALIGN  AND  MEASLRE  VERTICAL  PI  PA  RATE 


DELAY  WHILE  SUSPENSION  STAOILI/FS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


L IMU  PERFORMANCE  TESTS  2 


OC  87 
0088 
0089 
CO  90 
■mi 
0062 


PEF  7 LAST  322 

RFF  1 

PEF  e LAST  330 

RFF  4 LAST  379 

RFF  ? LAST  131 

RFF  1 


37,212'  55  '0  47 

37,2121  3 15C4 

37,  2 122  5 5 'C 50 

37.2123  51*416 

27.2124  55*420 

37.2125  f 2457 


TS  DSPTEM2 

CA  DRIFT! 

TS  0SPTFM2  + 

INDEX  P OS  IT  ON 

TS  SOUTHOR  - 

TC  SHOW 


0093 

3334 

0095 

0096 

0097 

RFF 

RFF 

PEF 

REF 

5 

1 

2 

1 

LA  ST 

LA  ST 

379 

378 

37 ,2130 
37,2121 
37,  2 132 

51*414 

0 2 130 

0 2447 

2 4361 
c 5 • 476 

1 

l 

1 

PI  PACHK  INOEX 

TC 

TC 

CA 

TS 

NOX  CTR 
♦ 1 

EAR  T HR  * 
DEC17 
3ATAPL  +4 

0098 

REF 

1 

37  ,2133 

3 2474 

1 

CA 

I E C 5 8 

3393 

REF 

2 

LAST 

131 

37,  2134 

55' 412 

0 

TS 

LENGTHCT 

OtQjQ 

REF 

19 

LAST 

37  2 

37,2135 

3 4753 

1 

CA 

ONE 

0 10  1 

RFF 

1 

37,21 36 

55' 537 

0 

TS 

RESUl  TCT 

31-2 

PEF 

44 

L AST 

379 

37,  2137 

3 47  5 5 

1 

CA 

ZERC 

0103 

RFF 

2 

LAST 

131 

37  ,2140 

5 1 '4 15 

0 

INOEX 

P IP  INOF  X 

0 104 

RFF 

5 

LA  ST 

310 

3 7,214  1 

c 4 037 

1 

TS 

PI  PAX 

01  (5 

RFF 

2 

L AST 

390 

37,  2142 

55*472 

0 

TS 

0 A TA  P L 

0106 

REF 

l 

37  ,2143 

0 2332 

1 

TC 

CHECKG 

3107 

2 7,  2 144 

C 0004 

0 

I NHI  NT 

0108 

PEF 

16 

LAST 

37  2 

37,  2145 

3 4752 

0 

CAF 

TWO 

0 109 

RFF 

1 

37,2146 

0 52  04 

1 

TC 

T W IDOL  F 

3 113 

RFF 

L AST 

37  5 

E 5,  1642 

E BANK  = 

XSM 

0111 

PEF 

1 

37  ,2  147 

02151 

0 

AORES 

P IPA  TA  SK 

C 112 

REF 

33 

LA  ST 

373 

37,2150 

C 5155 

0 

TC 

ENDOFJOB 

0113 

0114  RFF 
3114  REF 
0H6 

0117  RFF 
TUB  RFF 
ni  l Q RFF 

0120  RFF 

0121  REF 
012?  REF 
3123  RFF 

0124  RFF 

0125  RFF 
3125  RFF 

0126  REF 


3 LAST  380 

4 LAST  380 


19  LAST  339 
2 LAST  380 

5 LAST  380 
2 LAST  3flO 
2 LAST  275 

14  IAST  373 

6 LAST  380 
l 

1 

R LAST  379 


37,  2 1 S 1 C 0006  1 
37  ,2152  27*412  0 

37,  2 153  3 1412  1 

37,21  54  C 0006  1 
37,2155  6 2161  0 

37,  2 1 56  3 4742  1 

37,2157  0 5204  1 

E5  , 1642 

37,  2 160  0/15  1 0 

37  ,216  1 3 4736  1 

37,  2 162  C 5 1 C 5 0 
E5 , 1 642 

37  ,2163  02166  1 

37,  2 164  76065  0 

37  ,2165  0 5272  0 


PIP  A TASK  F X TEND 

DIM  LENGTHDT 
CA  LENGTHCT 

EXTEND 

87MF  STARTPIP 
CAF  RITlO 
TC  TWIODLF 
EBANK=  XSM 
AORES  PIPATASK 
STARTPIP  CAF  PR  1020 
TC  FINDVAC. 

EBANK=  XSM 
2 G ADR  PIPJOBB 

TC  TASKOVER 


0127  REF 

0128 

0129  RFF 
3133  RFF 


6 LAST 

2 LAST 
5 LAST 


3RD 

380 

380 


37,2170 
37,  2171 


6 2 170 
0 2447 
2 1412 


0 

1 


PI  PJOBB 


TC 

TC 

CA 


NDXCTR 
♦ 1 

FARTHR* 

LENGTHCT 
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P IPA  TEST 

ALLOW  PIP  COUNTER  TO  OVERFLOW  17  TIMES 
IN  THE  ALLOTED  TIME  INTFRVAl 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERIINA  BY  ZOROASTER 


L I MU  PERFORMANCE  TESTS  2 


0131 

37,217? 

C 0006 

1 

EXT  ENO 

) 132 

3 7,  2173 

6 2175 

0 

BZMF 

+ 2 

0133 

REF 

34 

LAST 

390 

37,2174 

0 5155 

0 

TC 

ENDDF JOB 

0 134 

RFF 

7 

LA  ST 

267 

37,2175 

3 4756 

1 

CA 

FIV  E 

3 135 

REF 

2 

L AST 

390 

37,  2 1 76 

55*537 

0 

TS 

R E SUL  TC  T 

0136 

REF 

2 

LAST 

380 

37  ,2177 

0 2332 

I 

TC 

C HECK  G 

0 137 

REF 

3 

LA  ST 

38C 

37,2200 

11‘ 473 

1 

CCS 

DAT  A P L +1 

013  8 

37,  220  1 

0 2205 

1 

TC 

4 4 

0139 

REF 

l 

37,221  2 

0 5 7C6 

0 

TC 

CCS  HOL E 

3140 

REF 

4 

LAST 

381 

17,  22C3 

4 14  76 

l 

C S 

DAT  APL  +4 

Ol4  1 

REF 

5 

LAST 

38  1 

37,2204 

55*476 

1 

TS 

DATAPL  +4 

0 142 

37,2205 

C 0006 

1 

EXT  END 

0143 

RFF 

6 

L AST 

381 

37,  22C6 

4 1473 

1 

DCS 

DATAPL 

0144 

REF 

7 

LAST 

381 

37  ,2207 

21*477 

0 

DAS 

OATAPL  +4 

3 145 

REF 

21 

LAST 

379 

37,2210 

C 6C  51 

0 

TC 

INTPRET 

0146 

37, 2211 

45  345 

1 

D LOAD 

D SU 

0147 

REF 

8 

LAST 

381 

37  ,221? 

02501 

1 

DATAPL  +6 

3148 

REF 

9 

LAST 

38  1 

27,  22  13 

G2475 

0 

DATAPL  +2 

Ol  49 

37,2214 

45044 

0 

8PL 

:all 

0 150 

RFF 

1 

37,2215 

76217 

1 

A INGOT N 

3151 

REF 

1 

37,  22  16 

76  27  5 

0 

OVEPFFI  X 

0 152 

37  ,2217 

56325 

0 

AINGOTN 

P DDL 

DDV 

0 153 

REF 

10 

LAST 

381 

37,2220 

02477 

1 

DATAPL  44 

0154 

37, 2221 

47C75 

0 

DMPR 

R TB 

0155 

REF 

1 

37  ,2222 

37056 

0 

DEC585 

3156 

REF 

l 

27, 2223 

21574 

1 

SGNAGREE 

Ol  5 7 

RFF 

9 

LAST 

380 

97,2224 

01050 

0 

STORE 

DSPTFM2 

0158 

37,2225 

77776 

1 

EX  IT 

3159 

REF 

7 

L AST 

380 

37,  2226 

11*414 

0 

CC  S 

NDXCTR 

0160 

REF 

1 

37  ,2227 

0 230  1 

l 

TC 

CO AAL IGN 

~ 161 

REF 

2 

LAST 

380 

37,2230 

0 2457 

0 

TC 

SHOW 

OT'62 

RFF 

1 

37,  2231 

2 2 47  1 

1 

VER  TDR FT 

CA 

3 990DEC 

0163 

RFF 

6 

LAST 

390 

37  ,2232 

55*412 

0 

TS 

L ENGTHOT 

3164 

R EF 

5 

LAST 

380 

37,  2233 

51*416 

0 

I NDEX 

PCSI TCN 

0165 

RFF 

3 

LAST 

3 no 

37,2234 

4 1417 

0 

CS 

SOUTHDR  -2 

0 166 

REF 

l 

37,2235 

55*442 

0 

TS 

DP IFTT 

3166  1 

RFF 

3 

L AST 

380 

37,  2236 

11*415 

1 

CC  S 

PI  PI  NDEX 

01662 

REF 

1 

37  ,2237 

1 2245 

1 

TC  F 

PON  4 

0 1663 

REF 

17 

LA  ST 

305 

37,2240 

< 4747 

0 

PCN? 

CS 

BIT5 

01664 

REF 

1 

37,  2 24  1 

27*565 

1 

ADS 

ERCOMP  +2 

0 1 66  5 

REF 

18 

LAST 

381 

37  ,224? 

3 4747 

1 

CA 

B IT  5 

31666 

REF 

2 

LAST 

38  1 

37, 2243 

27' 567 

0 

ADS 

ERCOMP  44 

0166  7 

RFF 

1 

37,2244 

1 225  1 

1 

TC  F 

PON 

0 166  8 

REF 

15 

LAST 

381 

37,2245 

4 4 74  7 

0 

PCN4 

CS 

B IT  5 

31669 

REF 

3 

L AST 

38  1 

37,  2246 

27*565 

1 

ADS 

FRCOMP  42 

016691 

REF 

2 ' 

1 AST 

381 

37  ,2247 

3 4747 

1 

CA 

PI  T5 

0 16692 

REF 

4 

LAST 

381 

37,2250 

27*  563 

] 

ADS 

ERCOMP 

Ol  6 7 

REF 

3 

L AST 

380 

37, 2251 

0 2447 

1 

PON 

TC 

FAR  THR * 
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DEC  585  HAS  BEEN  REDEFINED  FOR  LEM 

TAKE  PLATFORM  OUT  CF  GIMBAL  LOCK 
ABOUT  1 HCUP  VERTICAL  CR I FT  TEST 


OFFSET  PLATFORM  TC  MISS  PIP  DEAD-ZONES 
Z UP  IN  POS  4 
X UP 


GAP:  ASSEMBLE  REVISION  56  3F  AGL  PROGRAM  7ERLINA  0Y  ZOROASTER 


L I mu  PERFORMANCE  TESTS  2 


0168  RFF 
Cl  69  RFF 
0170  REF 
3171  PEF 
Cl  7?  RFF 
ri7T  RFF 
M74  PEF 
0176  RFF 
Cl  76  REF 
Cl  77  PEF 
-178  PEF 
3179  REF 

0180  RFF 

0181  RFF 


55  LAST  380 

2 LAST  131 

3 LAST  382 

4 LAST  226 

3 LAST  378 

4 I AST  382 
10  LAST  362 

2 LAST  131 

2 LAST  379 
1 

10  LAST  381 
46  I AST  382 

11  LAST  382 

3 LAST  381 


17,  225  3 
37,22  54 
37,  3255 

37.2256 

37.2257 
37, 2260 
37  ,2261 
37,2262 
17,  2263 
37,2264 
’7,  ?266 
37  ,2266 
37,2267 


3 4755  l 
5 5 '404  1 
5 5 ' 405  0 
3 4733  1 
55 ' 440  1 
55*441  O 

2 0032  0 
55*413  l 
C 2 5C0  C 
? 150  2 1 
55*050  1 

3 4755  1 
55 '047  1 
0 2457  0 


GUESS! 


VALM  I S 


CA  ZERO 

TS  EP  VECTOR 

TS  ERVECTOR  * 1 

CAF  POSMAX 

TS  TDRQNDX 

TS  TORQNPX  *1 

CA  :dux 

ts  losvfc 

TC  E ST  I MS 

CA  DR  I F TO 

TS  HSPTEM2  +1 

CA  7FR0 

TS  DSPTFM2 

TC  SHOW 


Gl82 
f 183 
) 184 
Ol  85 
0186 


REF  29  LAST  379 
RFF  3 LAST  ?0  2 
REF  47  LAST  382 
PEF  2 LAST  240 
RFF  28  LAST  345 


37,  ? 270  0 : 5 2 7 1 EMDTFSTl  TC 


37 ,2271  00007  0 AORES 

37,  2272  4 4755  0 C S 

37.2273  0 5325  0 TC 

37.2274  C 5503  l TC 


DOWNF  LAG 
I MUSE 
ZERC 

NEWMODEA 

ENDEXT 
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ALLOW  ONLY  SOUTH  GYRO  EARTH  RATE  COMPENS 


GAP:  ASSEMBLE  REVISION  56  OF  A! 


PROGRAM  ZERLINA  BY  ZOROASTER 


I MJ  PERFORMANCE  T ESTS  2 


'187 

37,2275 

43215 

0 

CVERFF  IX 

DAD 

DAD 

3 188 

REF 

3 

L AST 

30  5 

37,  2 276 

C 6 52  6 

0 

DPPCSMAX 

0189 

REF 

1 

37,2277 

37064 

l 

□NEDPP 

0 190 

37,2300 

77616 

0 

RVQ 

3171 

37,  2301 

0 0006 

1 

COAAL  IGN 

E XTEND 

0192 

REF 

2 

LAST 

378 

37  ,2302 

23*571 

0 

QXCH 

Z ERDNDX 

0 193 

REF 

48 

LAST 

382 

3 7 , 23C  3 

3 4 7 55 

1 

CA 

ZERO 

Ol  94 

REF 

1 1 

LAST 

310 

37,  2 30 A 

5 A 321 

0 

TS 

the  tad 

0195 

REF 

12 

LAST 

383 

37  , 2 30 5 

5 A 322 

0 

TS 

THETAD  + 

3196 

REF 

13 

LAST 

383 

37,  23C6 

5 A 323 

1 

TS 

TH  FT  AD  +' 

0197 

REF 

69 

LAST 

379 

37,2307 

0 A6  16 

1 

TC 

HANKCALL 

0198 

RFF 

3 

LAST 

379 

37,2  310 

167A5 

0 

CADR 

IMUCOARS 

3199 

REF 

7C 

L AST 

383 

37,  231  1 

0 4fcl6 

1 

ALIGNC  OA 

TC 

6ANKCALL 

0200 

REF 

7 

LAST 

338 

37  ,23  12 

17715 

l 

CADR 

IMUSTALL 

0 201 

REF 

1 

37,2213 

C 3CA7 

l 

TC. 

S0PERR2 

0202 

REF 

3 

LAST 

3fl  3 

37, 2314 

0 1571 

0 

TC 

Z FROND  X 

020  3 

37,231 5 

C 0006 

1 

I MUSLLLG 

EXTEND 

3234 

PEF 

A 

L AST 

383 

3 7,  23  16 

23*571 

0 

QXCH 

ZERONDX 

0205 

REF 

1 

37  ,2  317 

0 2311 

0 

TC 

AL I GNCOA 

0 206 

37,2320 

C 000  6 

1 

FI  M MUOO 

EXTEND 

02  07 

REF 

5 

LAST 

38  3 

37, 2321 

23*571 

0 

0 XCH 

ZERONDX 

0208 

REF 

71 

LAST 

383 

37  ,2322 

0 4616 

1 

TC 

BANKCALL 

3239 

REF 

2 

LAST 

278 

37,  2323 

17155 

0 

CADR 

I MUFI  NE 

0210 

REF 

2 

LAST 

38  3 

37,2  32 A 

0 2311 

0 

TC 

A L I G NC  CIA 

0211 

37,2  325 

0 0006 

l 

I MUZERR 

EXT  END 

9212 

REF 

6 

L AST 

383 

37, 2326 

• 

0 

QXCH 

ZERONDX 

0213 

REF 

72 

LAST 

383 

37  ,2327 

0 46  16 

1 

TC 

BANKCALL 

0 2 1 A 

REF 

3 

1 A ST 

271 

37,23  30 

16661 
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VXM 

OLOAD 

STOOL 

STORE 


SEOCOMPS 
♦ 2 

NCRMLCP 
RANKCAIL 
1/PIPA 
I NTPPET 


I NT V AL 
Si 

DEL  VX 
VS  LI 
XSM 
DCOMP 
MP  AC  +-3 
DP  IPA  Y 
MP  AC  +5 
OP! PA  7 


008237 
3332  4 

0082  5 
00826 
DD827  RFF 
0082  8 

00829  REF 

0083 

0084  REF 
3395  REF 
0086 

0087 

3389  RFF 

0089 

0090  REF 

0091 

0092  RFF 
3393 

0094  REF 

0095  REF 


I AST 


LA  ST 


L AST 


LAST 


390 


39  V 


388 


390 


>7,2620 
■‘7,  2621 
37,?622 
37,2623 
’7,  26  24 
37  ,?6?S 
37,2626 
1 7 , 2627 
37  ,2630 
97,  263  1 
37,  ?63 2 
37,2633 
3 7,  2634 
37  ,2635 
37,2626 
37, 2637 
37  ,2640 
37,  26  41 

37.2642 

37.2643 


76001  1 
CCCC1  0 
QC'  010  0 
57535  0 
C 2 E 6 3 0 
77640  0 
76772  1 
E0135  0 
02532  1 
76644  C 
72174  0 
00014  1 
C2444  1 
62143  0 
02243  0 
77775  1 
12  545  0 
661C4  1 
76635  0 
02444  1 


S ETPD 

S LC AD 
0MN 

ALCGKK  SLOAD 

ALKCG  A XT  , 2 

ALKCG2  OL  D AD* 

DEC 
STCIRfc 
TI  X ,2 


AXT  , 1 

0 

eo 

DCOMP 

GECCCMPS 

PERFERAS 
BMN 
ALT  IMS 
ALFLT3 
L XA  , 1 
1 2D 
ALXl  S 
1VCP  , 1 

ALFDK  +1440,1 
-2 

ALDK  +100,2 
SX  A,1 

ALKCG  2 
ALX  IS 


LOADS  SLOPES  AND  TIME  CONSTANTS  AT  RQST 


)1)H 
01  :>75 
0 1^8 

0109 

0110 


H13 
7 114 
011  5 
0116 


REF 

PEF 


RFF 

RFF 


2 


LAST  390 


I AST  390 


37, 2644 
37  ,2645 

37.2646 

37. 2647 
37  ,2650 
37,  26  5 1 
.37,2652 
37,2653 
37,  2654 
37  ,2655 
37,2656 


77770  1 A LF  L T 3 
I I 

41343  0 OELMLP 
0 2 e 5 3 0 
37100  1 
43661  1 
21212  0 
02501  1 
C6  50  1 C 
40725  0 
37102  0 


A XT,  1 

80 

DL  C AO*  DMP 

DPI  PAY  +80 ,1 
P IPASC 
SLR  8DSU* 

9D 

INTY  +8  D,  1 
STORE  I NT Y +80,1 

POOL  DMP* 

VELSC 


REF 


GAP 


ASSfMRl.G  RE  VI  SIGN  56  CF  AGC  PROGRAM  ZERLINA  BY 


L IMU  PERFORMANCE  TFSTS  A 


0117 

REF 

1 

37  ,2657 

02521 

0 

7 118 

27,2660 

77732 

1 

0119 

37,  266  1 

4 5 4 25 

0 

0120 

REF 

1 

37  ,2662 

71216 

1 

3121 

REF 

2 

LAST 

39  1 

37,  2663 

C 6 5 6 3 

1 

0122 

37,2664 

77  100 

0 

0 123 

REF 

1 

37  ,2665 

76646 

1 

0 124 

37,  2666 

CGCC4 

0 

0125 

37  ,2667 

56743 

1 

0 126 

REF 

2 

LAST 

132 

37,2670 

7 6 324 

0 

0127 

REF 

2 

L AST 

390 

37, 2671 

7 6 240 

0 

128 

REF 

3 

LAST 

391 

37  ,2672 

12453 

0 

3129 

37,  2673 

77104 

1 

013  0 

REF 

1 

37,  2674 

76667 

1 

8 131 

37,2675 

00010 

0 

3132 

27,  2676 

66140 

1 

C 1 33 

RFF 

1 

37  ,2677 

02445 

0 

o 1 34 

R EF 

2 

LA  ST 

391 

37,2700 

02445 

0 

01-35 

37,  270  1 

56743 

1 

0136 

RFF 

4 

LAST 

391 

• 

02450 

1 

3137 

REF 

3 

LAST 

39  1 

37,  27C2 

7 6216 

0 

013r 

37,  2704 

77613 

0 

0 139 

REF 

3 

LAST 

390 

37,2  705 

75276 

0 

3140 

REF 

4 

L AST 

391 

3 7,  27C6 

12501 

0 

0141 

37  ,2707 

42743 

1 

0 142 

REF 

8 

LAST 

391 

37,2710 

7 6314 

0 

0H3 

RFF 

3 

L AST 

3o  1 

37, 2711 

76230 

1 

0144 

REF 

6 

1 AST 

391 

37  ,2712 

12463 

0 

3145 

37, 2713 

42673 

0 

Ql  46 

REF 

LAST 

39  1 

37,2714 

75216 

0 

0 147 

RFF 

5 

LAST 

3Q  1 

37,2715 

75266 

1 

3148 

RFF 

6 

L AST 

39  1 

37,  2716 

12511 

1 

0149 

37  ,2717 

40743 

0 

0150 

REF 

1 

37,2720 

37105 

1 

Ol5l 

REF 

5 

L AST 

39  1 

37, 2721 

752  16 

0 

0152 

37  ,2722 

42  77? 

0 

3153 

REF 

2 

LAST 

39  1 

37,  2723 

75256 

1 

01  54 

REF 

3 

LAST 

39  1 

37,2724 

12521 

1 

0 155 

37,2725 

76104 

0 

3156 

REF 

1 

37,  2726 

76676 

1 

0157 

37  ,2727 

00010 

0 

AL  ILP 


ALKI.P 


0 158 

Olso  REF 
160  PFF 
1161 

'162  REF 

0 163 

0164  REF 


1 

A LAST  I'M 


2 LAST  120 


37,  27  31  02523  1 

37,2732  02521  0 

3 7 , 27  33  5C523  C 

37.273A  02531  l 

37,2735  76521  0 

37,  2736  C2CC1  1 


LCCSE 


9:  12  OCT.  21,1070  ZERLAID  .001  PAGE  391 
USER'S  PAGE  NQ.  5 E5  S3 


VLAUN  +8D , 1 

SL2R 

OSU  STADR 
STORE  DEL  M +80,1 
STORE  DELM  +lf>n,1 
T I X , 1 A XT, 2 
OELMLP 


OL 0 AO*  DMPP* 

AL  K +A  ,2 
A LOK  + 4 ,2 
STORE  ALK  +A, 2 
TI  X ,2  AX  T ,2 
A L I LP 
80 

LXC  » 1 S X A , 1 
CMPX1 
CMPX1 

OLOAD*  DMPR* 

ALK  +1,  1 
DELM  +80,2 

0 A 0* 

INTY  +8 D,  2 
STORE  I NT Y +80,2 
OLOAD*  OAO* 

ALK  +120,2 
ALOK  +120  ,2 
STORE  ALK  +120,2 
OMPR*  OAO* 

OE  LM  + 80 , 2 
INTY  + 16C,  2 
STORF  I NT Y +160,2 
CL  OAO*  DMP* 

ALSK  +1  ,1 
3E  LM  +80  ,2 
SL1R  OAO* 

VLAUN  +80,2 
STORE  VLAUN  +80,2 
T IX  ,2  AXT  , 1 
ALKLP 
80 


CLOAD*  POOL* 

ACCWD  +80,1 
VLAUN  +80,  1 
POOL*  VOEF 

POSNV  ♦ 80,  1 
MX V VS  LI 

TPANSM1 


GAP:  ASSFHBIE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  &v  ZOROASTER 


L I MO  PERFORMANCE  TESTS  4 


0 165 

0166  PEF  71  LAST 

167  REF  2 LAST 

0168 

r.Uq  PEF  72  LAST 

0170  PEF  5 LAST 

0171 

0172  REF  73  LAST 

0173  REF  2 LAST 

3174 

0175  REF  1 


37,2737  77745  1 

190  17, 2741  C 155 

391  37  ,2741  G6531  C 

3 7 , 2 74  2 77745  1 

3o2  77,  274  3 COUC  0 

391  37,2744  06521  1 

17,  '7'. c 7 7 745  1 

392  77,?  746  00162  1 

391  37,2747  C6523  0 

37,  2750  77700  C 

37  ,2751  76730  1 


OLOAD 

MPAC 

STORE  POSNV  *80 
DLCAO 

MPAC  +3 

STflRF  VI  AUN  +80 

OLOAD 

MPAC  +5 

STORE  ACCWC  +PC 

TI  X,1 

LOOSE 


' 1 76 
01  77 
' 1 78 
. 1 7Q 
.180 

0 lft  1 
3 IB? 

■ 183 
r 184 

0185 

01  86 
3187 
01  88 
0189 
7 190 

191 


REF 

PEF 


PEF 


PEF 


2 


L AST 


259 


37.2754 

37. 2755 
37,2  756 
37,2757 
37,  2760 
37  ,2761 
37,2762 
17,  2763 

37  ,2764 
37,  2765 

37.2766 

37.2767 
37,  2770 
37  ,2771 


76174  1 
0CC06  1 
00002  0 
57343  1 
02503  0 
37110  0 
77722  0 
734C6  1 
56072  1 
00C46  0 
10021  0 

77745  1 

77746  1 
10027  0 
777C4  1 
76  T 5 5 1 


BOOP 


AX  T ,2  AXT.l 


0 L CAD*  OMPR 

ANG  X + 2,  1 

GEORGEJ 

SR2R 

PUSH  SIN 

SL3R  X AO  , 1 

Xl 

STORE  160,2 

OLOAD 

COS 

STORE  220,2 

TI  X ,2 

RDOP 


lo? 

0193 

0194 
3195 

1 96 


PEF 

REF 

REF 

RFF 


11  LAST  34  1 


37,2772  77776  1 PERFERAS  EXIT 

37,  2773  2 5Cl6  0 CA  EBANK7 

37,2774  54  003  0 TS  EBANK 

E 7,  14CC  E B ANK=  ATIGINC 

37,  2 775  0 14C0  1 TC  ATIGINC 


3 0 197 


CAUTION 


RD198  THE  ERASABLE  PROGRAM  THAT  DOFS  THE  CALCULATIONS  MUST  BE  t OAOED 
R0199  BEFORE  ANY  ATTEMPT  IS  MADE  TC  RUN  THE  IMU  PERFORMANCE  TEST 


019Q5 

0290 

0291 
3292 

02  93 
0294 

3 295 
0296 


REF 

REF 

REF 

REF 


REF 

RFF 

REF 


8 

2 

6 


LAST 
LAST 
LAST 
L AST 


11  LAST  382 
3 LAST  382 


F 5, 14C0 

37. 2776  11*412  0 

37.2777  0 3034  0 
17, 30CC  11*440  1 

37.3001  1 3003  0 

37.3002  C 3005  1 

37. 3003  2 0032  0 

37  ,3304  55 ‘4  14  0 


AZ  IMUTH 
LENG  THOT 
SLEEPI E 
TORCNDX 
+ 2 

S ETU  PERI 
CDUX 

LOSVEC  +1 


9:1?  OCT.  21,197. 


ZEPL  AID  -Of  1 PAGE 


392 


USER*  S PAGE  NC.  6 


E5  S3 


EVALUATE  SINES  AND  Cl,  S INFS 


COSINES 


GOTO  ERASABLE  TO  CALCULATE  CNLY  TO  RET  N 


FOR  TROUBLFSHOCTI  NG  VD  POSNS  2*4 


>AP : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


9:12  OCT.  21  ,1970  ZERLAID  .001  PAGE 


39  3 


I MU  PERFORMANCE  TESTS  A 


USER  *S  PAGF  Nn.  7 E5  S3 


0297 

RFF 

25 

L AST 

390 

37,  3005 

C 60  51 

0 

02  9B 

3 7 ,3006 

653A5 

0 

0299 

P.EF 

1 

37,3007 

02473 

0 

0300 

REF 

1 

37,  30  10 

0 2a  7 7 

1 

0301 

37  ,3011 

55525 

0 

033  2 

REF 

2 

LAST 

39  2 

37, 3012 

C25C1 

1 

03  03 

37,  3013 

74276 

1 

0 30  A 

REF 

2 

LAST 

392 

37 ,301A 

37110 

0 

0305 

37,  3015 

7452  1 

1 

0306 

REF 

1A 

LAST 

390 

37  ,30  16 

0 2643 

1 

0307 

REF 

11 

LA  ST 

3B6 

37  ,3017 

02  740 

0 

030B 

37,  30  20 

7/776 

1 

0309 

REF 

1 

37 ,3021 

3 2475 

0 

3310 

REF 

75 

LAST 

390 

• 

C 4616 

1 

0311 

RFF 

3 

L AST 

338 

37,3023 

17270 

1 

0312 

PE  F 

3 

LAST 

3e5 

37,3024 

0 2315 

1 

3313 

REF 

7 

L AST 

392 

37,  3025 

11*440 

1 

0314 

REF 

1 

37  ,3026 

0 2263 

1 

0315 

REF 

26 

LA  ST 

393 

37,3027 

C 6051 

0 

03151 

17,  30  30 

77624 

1 

03152 

REF 

2 

LAST 

3P3 

37  ,0031 

76401 

0 

33153 

37,  3032 

77776 

1 

0316 

RFF 

1 

3 7,  3033 

C 2117 

l 

0 317 

RFF 

LA  ST 

392 

37,3034 

55*412 

0 

3310 

RFF 

8 

L AST 

39  3 

37,  30  35 

11*440 

1 

0319 

RFF 

A 

LAST 

381 

37  ,3036 

0 2447 

1 

0320 

RFF 

35 

LAST 

3P1 

37,3037 

C 5155 

0 

0321 

RFF 

1 

37, 3040 

3 5014 

1 

0321  1 

PFF 

12 

LAST 

392 

37,3041 

54  003 

0 

33212 

RFF 

21 

L AST 

389 

37, 3C4  2 

2 4 7 5 3 

1 

321  3 

RFF 

3 

LAST 

389 

37  ,3043 

55*576 

0 

03214 

REF 

19 

LAST 

368 

37,3044 

0 5600 

l 

0322 

37,  3045 

0 1 6C0 

0 

323 

RFF 

3 

LAST 

386 

3 7 ,3046 

0 2270 

0 

3324 

REF 

1 

37, 3047 

2 3054 

0 

0325 

REF 

2 

LAST 

186 

37,  30  50 

C 574  5 

1 

0330 

REF 

30 

LAST 

382 

3 7 1 3 C51 

0 5527 

1 

3331 

RFF 

4 

L AST 

382 

37,  3052 

C0CC7 

0 

0332 

REF 

36 

LAST 

393 

37  ,3053 

C 5155 

0 

SETUPERl  TC 

DLDAD 


POOL 

VCOMP 

MXV 

STCRE 

EXIT 


CA 

TC 

C ADR 
TC 

GEOSTR  T4  CC  S 
TC 
TC 

CALL 

EXI  T 
TC 


SI.EEPIE  TS 
CC  S 
TC 
TC 


SOME ERR  3 CA 
TS 
CA 
TS 
TC 
OC  T 
TC 

SOME  R R2  CAF 
TC 
TC 

AORE  S 
TC 


I NTPRF  T 
P DDL 
ANGZ 
ANGY 
V DEF 
A NGX 


V X SC 

GEORGEJ 

VSR1 

XSM 

OGC 


OGCPL 
BANKC At L 
I M UP  UL  SF 
IMUSLLLG 
TORQNDX 
VALM  I S 
INTPRET 

EPTHRVSE 


TORQUE 


L ENGTHOT 
TORQNDX 
FAR  THR * 
END OF  JOE 


E BANK  5 
F BANK 
ONE 

OVFLOWCK 
AL  ARM 
UOC 

FNDTEST  1 
OC  T 1 60 1 
VARALARM 

DOWN  FI.  AG 
I MUSE 
FNDOFJOR 


ANGLES  FROM  DRIFT  TEST  ONLY 


ONLY  POSITIVE  IF  IN  VERTICAL  DRIFT  TEST 


TFST  NOT  OVER-DECREMENT  LENGTHOT 
ARE  WE  DOING  V FRT  CR  I FT 


STOP  ALLOOP  F R CM  CALLING  ITSELF 


. 33  3 
03  3 A 
0335 
?33S 


37, 30  5 A 
37,  3055 
3 7,?  056 
37,  3C57 


C16C1  1 0CT16O1  OCT 

C6  200  0 DEC  5 R S OC T 
OOOOL-  I SCHZEROS  ?DEC 
CCOCO  1 


01601 

06200 

.0000000" 


3200  6+14  CRDER  IS  IMPORTANT 


ASSf  MH1  E 3E  VI  SI'IN  5b  OF 


AG-  PROGRAM  7ERLINA  0Y 


ZCRQAST6R 


L FMU  PERFORMANCE  TESTS  A 


336 
3336 
'33  7 
-33R 
333 


37,3C6P 
37,  3C6  1 
37,  3c  62 
3 7,3  J6 3 
3 7,  3C64 


OOOOO  1 
CCCCO  1 
OCCCO  1 

OOOOC  1 CNEOPP 
COCCI  0 


2 OEC  .00000000 


OCT  OOCOO 
OCT  OOOOC 
OCT  00001 


0 340 
0 341 
0 3 A 2 

0343 
3 344 

0344 
' 045 
2345 


37  ,3065 
37,3066 
37,  3067 
37,3070 
3 7,  3C71 

37.3072 

37.3073 
37,  3o  74 


- < f 4 

C0CC2  0 
0022 0 1 
77776  1 
35730  0 
00035  l 
10317  0 
17550  1 


INTV  AL  OCT  4 

OCT  2 

DEC  144 

DEC  -1 

SniPLY  ?DEC  .93505870 


2 DEC  .26266423 


0346 

'347  PEF 

0348 

0348 

3349 

0 340 

0 350 

3353 

0351 

0351 


37,38  75 
LAST  390  37,  3C76 

37,  3077 
37,3100 
3 7,  31CI 
37  ,3  10? 
37,31 C3 
37, 3104 
37  ,3105 
37.31C6 


00115  1 77TECMI 
01643  0 ALXXXZ 
04133  l PIPASC 
02265  1 

57223  0 VELSC 
66451  1 
05427  0 ALSK 
12577  1 
77567  0 
442C2  1 


DEC  77 
GENADR  A LX  IS  -1 
2DEC  . 13055869 

20EC  -.  52223476 

2 OEC  . 1 732993 1 

2CEC  - . OC  835  370 


0352 
0352 
3353 
0 353 


37,31  7 2*576 

37,3110  14066 

37,  - 1 1 1 23C73 

37  ,3112  11773 


1 GEORGE  J 20EC 
1 

1 GEORGE K 20 EC 


. 63661877 
.5973701  3 


9:12  OCT.  21,  1970  ZERLAID 
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E5  S3 


ORDER  IS  IMPORTANT 


INITIAL  GAINS  FOR  PIP  OUTPUTS 
INITIAL  GAINS/4  FOR  ERECTION  ANGLES 


5 1 2/99 D .402 

SSWAY  VEl  GAIN  X 980.  4C2/4096 


SSWAY  ACCEL  G A I N 


980.  402  /40«6 


PAGE  395 
EG  S3 

ROOOl  PROG  RAP  NAME  - KEY  eO  AR  C ANC  CISPLAY  PROGRAM 

3 0002  MOD  NO  - A DATE  - 27  APRIL  1967  ASSEMBLY  - PINDANCE  REV  IB 

RDD03  MCD  eY  - FILENE 

ROOD**  LCG  SECTION  - PINBALL  GAME  PUT  T C NS  AND  LIGHTS 


R0009  FUNCTIONAL  DESCRIPTION- 

THE  K FY  BO  AR  C AND  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXECUTIVE 
*0011  CONTROL  AND  PROCESSES  I NFORM  AT  I C N EXCHANGED  BETWEEN  THE  A GC  AND  THE 

RDD12  COMPUTER  OP  FR  A TOR  . THF  INPUTS  TO  THE  PROGRAM  ARE  FROM  THE  KEYBOARD, 

R0013  FRCP  INTERNAL  PROGRAMS,  ANC  FROM  THE  UPLINK. 

*0014  THF  LANGUAGE  OF  C C MMtJN  I C AT  IC  N WITH  THF  PROGRAM  IS  A PAIR  OF  WORDS 

HDD  1 5 KNOWN  AS  VERB  AND  NOUN.  EACH  OF  THESE  IS  REPRESENTED  BY  A 2 CHARACTER 
16  DECIMAL  NUMBER.  THE  VERB  COPE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN,  THF 
R 0 0 1 7 NOUN  CODE  INDICATES  TO  WHAT  THIS  ACTICN  IS  APPLIED.  NOUNS  USUALLY 

ROClR  PEFER  TO  A GROUP  OF  FRASABLE  REGISTERS. 


> A P : ASSEMBLE  REVISION  5b  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21,  1970  ZERLAID  .001 

PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  1 


3 0020 
R3321 
R0027. 
3 OC  ?3 
RDD24 
ROC25 


VERBS  A PF  GROUPED  I NT C DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 
UPDATED  ONCF  PER  SECOND),  SPECIAL  FUNCTIONS,  AND  EXTENDED  VERBS  (THESE 
ARE  CUTS  I OE  OF  THE  DOMAIN  OF  PINBALL  AND  CAN  BE  FOUND  UNDER  LOG  SFCTJON 
: F XTENDED  VERBS:!. 


A LIST  OF  VFRRS  AND  N'lUMS  IS  GIVEN  IN  LOG  SECTION  : A SSEMRL  Y AND 
OPERATION  INFORMATION:. 


R0026  CALL ING  SFQUENCES- 
RQ02 7 KFYRCARD: 

3 0028  f ACH  DEPRESSION  OF  A KFYBCARC  BUTTON  ACTIVATES  INTERRUPT  K EYRUPT  1 

RD'?9  AND  PLACES  T F F «S  BIT  KEY  CODE  INTO  CHANNEL  1 5.  KEYRUPTl  PLACTS  THE  KEY 
R0°30  CCDE  INTO  VPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 
R0031  PROGRAM  (AT  :C  HAR  I N : ) , AND  E XEC  L TE  S A RESUME. 

POO  3 2 UPLINK: 

3 0033  EACH  WORD  RECEIVED  BY  THF  UPLINK  ACTIVATFS  INTERRUPT  JPRUPT  WHICH 

K T D 3 4 PLACFS  THF  5 BIT  KEY  CODE  INTO  MPAC  , ENTERS  AN  FXECUTIVE  REQUEST  FOP  THE 

R0035  KEYBOARD  AND  DISPLAY  PROGRAM  ( AT : C FAR  IN : ) ANO  EXECUTES  A RESUME. 

39036  INTERNAL  PROGRAMS: 

INTFRNAL  PROGRAMS  CALL  PINBALL  AT  :NVSUB:  WITH  THE  DESIRFD  VFRO/NOUN 
R Of  38  CODE  IN  A (LOW  7 BUS  FOR  NCl'N,  NEXT  7 BITS  FOR  VERB).  DETAILS 

DESCRIBED  ON  REMARKS  CARDS  JLST  BEFORE  tNVSUR:  AND  : NVS  SKA  IT  : (S  EF 
RO 04 6 SYMBOL  TABLE  FOR  PAGE  NJMBERS). 


30C45  NORMAL  F XI  T MODE  S- 


RDD46 
R 0046 C 5 
ROC  46  1 


IF 


PIN8AIL  WAS  CALLED  8>  EXTFRNAL  ACTION,  THERE  ARE 
l)  ALL  HUT  (2),  (3),  ANC  (4)  EXIT  DIRECTLY  TO 
?)  EXTENDED  VERBS  GC  TC  THF  EXTENDED  VERB  FAN 


FOUR  EXITS: 
EVDOFJOB  . 

AS  PART  OF  THF 
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1004615 
R 00562 
R 0056  3 
1 004635 
R33464 
ROC  465 
R 00 46 6 
R33467 
1 0046  P 
R0C469 


USER'S  PAGE  NO. 


v IT  H PRIORITY  30000  . IT  IS  THF 
EXTENDED  VERB  CALLED  TO  EVENTUALLY 
CHANGE  PRIORITY  (IF  NECESSARY)  AND  DO  AN  ENDOF  JOB. 

ALSO  PINPALI  IS  A NCVAC  JOB.  6RANK  SET  FOP  COMMON. 

7)  VERB  37.  CHANGE  OF  PROGRAM  (MAJOR  MODE ) CALLS  :V37:  IN  THE 
SERVICE  ROUTINES  AS  PART  OF  THE  PINBALL  EXEC  JOB  WITH  PPIO 
’0000.  THF  NEW  PRLGRAM  CODE  ( MAJCR  MOOE)  IS  LEFT  IN  A. 

.)  K FY  RELEASE  BUTTON  CALLS  : P I NRRNCH  : IN  THF  DISPLAY  INTERFACE 
ROUTINES  AS  PART  CF  THE  PINBALL  EXEC  JOB  WITH  PR  10  3000C  IF 
THE  KEY  RE  LEA  SE  LIGHT  IS  OFF  AND  :CAORSTOR:  IS  NCT  +0. 


'.7  IF  PINBALL  WAS  GALLED  BY  INTERNAL  PROGRAMS,  EXIT  FROM  PINBALL  IS  PACK 

l 'i  4H  JO  CALLING.  ROUTINF.  DETAILS  DESCRIBED  IN  REMARKS  CARDS  JUST  BEFORE 
R3049  : NVSU  P:  AND  :NVSBWAIT:  (SEE  SYMBOL  TABLE  FOR  PAGE  NUMBERS). 

R 0050  ALARM  OR  ABORT  EXIT  MCPES  - 

R3051  EXTERNAL  INITIATION: 

IF  SCMF  IMPROPER  SEQUENCE  OF  KEY  CODES  IS  DETECTED,  THF  OPERATOR 
10053  ERROR  LIGHT  IS  TUPNEO  ON  AND  EXIT  IS  TO  : ENDOF JCB: . 

R335*.  INTERNAL  PROGRAM  INITIATION: 

R 0055  IF  AN  II  LEGAL  V/N  CGMB  I NAT  I G N IS  ATTEMPTED,  AN  ABORT  IS  CAUSED 

ROC  56  (WITH  OCTAL  C15C1). 

R00561  IF  A S F CON  C ATTEMPT  IS  MADE  TO  GO  TO  SLEEP  IN  PINBALL,  AN  ABORT  IS 

1 00562  CAUSED  (WITH  OCTAL  01206).  THERE  ARE  TWO  WAYS  TO  GO  TO  SLEEP  IN  PINBALL: 
R33563  II  FNDIOLE  OR  PATAWAIT. 

R 0046  4 2)  NVSPKAIT,  PRFNVBSY,  OR  NVSUBUSY. 


INFORMATION  TO  BE  SENT  TO  THE  DISPLAY  PANEL  IS  LEFT  IN  THE  : DS  PT  AB : 
BUFFERS  REGISTERS  (UNDER  EXEC  CONTROL).  : DSPDUT : (A  PART  OF  T4PUPT) 
HANDLES  THF  PLACING  OF  THE  iCSPTAB:  I NF  OP  MAT  I C N INTO  OUTPUT  CHANNEL  10 
IN  INTERRUPT. 


R 0064  ERASABLE  INITIALIZATION- 

KOf  65  FRESH  START  AND  RESTART  INITIALIZE  THE  NECESSARY  E REGISTERS  FOR 

R0D66  PINBALL  IN  :ST  ARTSIJ  B:  . REGISTERS  ARE:  D SP  TAB  BUFFER,  CADRSTOR, 

10^7  REQRFT,  CLPASS.  DSPLCCK,  MCNSAVE,  M0NSAVE1,  VERBRFG,  NOUNREG,  DSPLIST, 

R3  3 6R  DSPCOUNT,  NOUT . 


R 0069  A COMPLETE  LIST  OF  ALL  THE  ERASAeLES  (BOTH  RESERVED  AND  TEMPORARIES)  FOR 
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R0071  THE  FOLLOWING  ARE  OF  GENERAL  INTEPEST- 


R0074  NV SUB  CALLING  POINT  FOR  INTERNAL  USE  OF  PINBAIL. 

R0^75  OF  R ELATED  . INTFREST  NVSRWAIT 

R 00 7 ft  NVSU8USY 

R0077  PRFNVBSY 


OSPMM  ROUT  I N E RY  WHICH  AN  INTERNAL  PROGRAM  MAY  DlSPIAY  A OECIMAI 
K . 8 5 2 PROGRAM  CllOE  MAJOR  MODE)  IN  THE  PROGRAM  (MAJOR  MOOEt  LIGHTS. 

?0O«S25  (DSPMM  DOES  NOT  01  SPLAY  DIRECTLY  BUT  ENTERS  EXEC  REQUEST 

RDDRS27  FOR  OSPMMJB  WITH  PRIO  3Q000  ANO  RETURNS  TO  CALLER.) 


BLANKSUB 


ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  BLANK  ANV 
COMBINATION  OF  THF  DISPLAY  REGISTERS  Rl  , R?  , R3 . 


ROCRAl 
R00H62 
R0nflft3 
R OOBM. 


MONITOR  VERBS  FOR  PFRIOOIC  ( 1 PER  SEC)  DISPLAY. 

PLEASE  PERF  CRM , PLFASF  MARK  SITUATIONS 

REMARKS  DESCRIBING  HOW  AN  INTERNAL  ROUTINE  SHOULD  HANDLE 
TFFSF  SITUATIONS  CAN  BE  FOUND  JUST  BEFORF  :NVSUB  : (SEE 
SYMBOL  TABLE  FCR  PAGE  NUMBER). 


*<('7  UR  THF*  TA  I L S A B CU  T CPFPATICN  OF  THE  KEYROARC  AND  DISPLAY  SYST  H * 

R'j'Jl  PROGRAM,  SEF  THF  MISSION  DL  AN  A NO  /OR  MIT/IL  E -2  1 29 
R0092  DESCRIBING  KEYeOARC  AND  DISPLAY  OPERATION  FOR  278. 


THE  FOLLOWING  QLDTATION  IS  PRCV10E0  THPCUGH  THE  COURTESY  OF  THE  AUTHORS. 


AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
A NO  LIGHTS 

R0153  CHRISTIAN  EAR  CAN  ENDURFTO  HEAR.:: 

< ISA  HENRY  6,  ACT  2,  SCENE  A 
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R ' 1 5 5 THE  FOLLOWING  ASSIGNMENTS  FOP  PINBALL  ARF  MADE  FLSEWHERF 


Ri  156 


PF  SERVED  FOR  PINBALL  EXECUTIVE 


ACT  ION 


R 1 6 7 
R r 16« 

< 0159 
R 3 1 6 0 
R ' 16  1 

< * 16? 
R3161 
R016A 
R01  65 
RC-166 
L 167 
R315B 
R0169 
RO  17* 
R3171 
< 0172 
r:  173 
R017A 
<0175 
R7176 
RO  17  7 
RO  17B 
R0179 
<01795 
RO  1 HO 
ROlfll 
<01B2 
RO  1B3 

R 0 18  A 
R 9 1 fl  5 
RO  1 86 
<0187 
RO  1 BR 
ROl  B9 
<0190 
R0191 


DSPCOUNT  ERASE 
CECBRNCH  FRASE 
VERBREG  ERASE 
NOJNRFG  FRASE 
XRFG  ERASE 

YREG  ERASE 

7RFG  FRASE 

XPFGLP  FRASE 
YREGLP  ERASE 
HITFMOUT  = 


Y REGLP 


ZREGI.P  ERASF 
LCTEMOUT  = ZREGLP 


DISPLAY  POSITION  INDICATOR 

+ CEC,  - DEC,  OCT  INDICATOR 

VERB  COCE 

NOLN  CODE 

PI  INPUT  BUFFER 

«?  I NPUT  BUFFER 

R 3 INPUT  HUFFEP 

LT  PART  OF  X R EG  IFOR  DEC  CONV  ONLY) 
LO  PART  OF  YREG  (FOR  DEC  CCNV  CNLY) 
TEMP  FOR  0 1 SPLAY  OF  HR  S » MIN,  SEC 
MUST  = LOT  EMO'JT  - 1 . 

Ln  PART  OF  7 REG  (FOR  OEC  CCNV  CNLY) 
TFMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 
MUST  = HITEMOUT+1 . 


MODRFG  ERASE 
DSPLOCK  ERASF 
REQRET  ERASE 
LTADSTAT  FRASE 
CLPASS  FRASE 
NCUT  ERASF 

NCUNC ADR  ERASE 
MON  SAVE  FRASE 
MENS  AV  El  ERASE 
MON  SAVE?  ERASE 
OSP  TAB  ERASE 
C AD  PS  TCP  FRASE 
NV07FM  ERASE 


♦ 1 ?U 


NVHNKTEM  ERASE 


VERBSAVE  ERASE 
D SPLI  ST  FRASF 
EXTVHACT  REASE 
D S PTE  Ml  FRASE  +2 

DSPTEM2  ERASE  *2 

END  OF  FPASA6LES  RESERVED  FD 


MODE  CODE 

KFY  BOARD/SU  BROUT  IN  E CALL  INTERLOCK 

RETURN  REGISTER  FUR  LOAD 

STATUS  INDICATOR  FOR  LOAOTST 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  FOR  DSPTAB 

MACHINE  C ADR  FOR  NOUN 

N/V  C COE  FCR  MONITOR.  (=  M0NSAVE1-1) 

NOUNCADR  FOR  MON  1 TOR  ( MA  T3  S)  =M0NSAV6  +1 

NV  MONOPT  OPTIONS 

C-10, DISPLAY  PANEL  BUFF  EP.  1 1 -1  3 , C RELAYS 
END  I OLE  STORAGE 

NVSUB  ST CR AGE  FOR  CALLING  ADDRESS 

ML  ST  = NVBNKTFM-1 

NVSUB  STORAGE  FOR  CALLING  BANK 

ML  ST  = NVQTEM+1 

NEFDFD  FOR  RECYCLE 

WAITING  REG  FOR  OSP  SYST  INTFKNAE  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIMF) 
BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  OEG  ) 

R PINBALL  EXECUTIVE  ACTION 


R 01 92 


TEMPORARIES  FOR  PINBALL  EXECUTIVE  ACTION 


5AP:  ASSEMBLE  REVISION  56  CF  AGO  PROGRAM  7.  ERL  IN  A BY  ZOROASTER 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 


P.Ol  9-3 
> 1 94 

R3I95 


C S EX  IT 
F XI  TEM 
BLANKRET 


I NT  8 1 5 ♦ 
I NTR15+ 
INTB  lc  + 


RETURN  FOR 
RETURN  FOR 
RETURN  FOR 


OSP  IN 

SCALE  FACTOR  ROUTINE  SELECT 
2BLANK 


R 01 96  WRORFT 
VO  197  WORE  T 
RD 198  CECRET 
R019Q  21/22REG 


I NT B IT  I ^ 
INTRI  T15 
INTBIT15 
INTB  IT15 


RETURN  FOR  5BLANK 
RETURN  FOR  OSPWD 
RETURN  FOR  PUTCOMIDEC  LOAD) 
TEMP  FOR  CHAR  IN 


R070"  UPOATRFT 
R02n1  CHAR 
R 0202  ERCNT 
RD2D3  DECOUNT 


POLISH  RETURN  FOR  UPDATNN , UPDATVR 

POLISH  TEMP  FOR  CHAR  IN 

POLISH  COUNTER  FOR  ERROR  LIGHT  RESET 

POLISH  COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 


R 0204  SGNCN 
R 0 20  5 NOUNTFM  = 

R0206  CISTFM 
R02O7  DEC  TF  M 


veuF 

vn  of 

VBUF 

VBUF 


TEMP  FOR  + ON 
C CENTER  FOR  MIXN.CUN  FETCH 
COUNTER  FOR  OCTAL  DISPLAY  VERBS 
COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS  I 


R02DR  SCNOFF 

R 0?  0°  NVTEMP 

TC210  SFTEMPl  = 

R1211  H IT  EM  IN  = 

R 021 2 

R0213  CODE 

R02 1 4 SFTEMP2  = 

RD215  LO TF  MI  N = 

RO  ? 1 6 

R02  1 7 MI  X TF  MP  = 

R021B  SIGNRET  = 


VBUF  +1 

VBUF  +1 

VBUF  +1 

VB  UF  t 2 

VBUF  +2 

VBUF  +2 

v eu  F + 3 

VBUF  f 3 


TEMP  FOR  +■  ON 
TEMP  FOR  NVSUR 

STGPAGE  FOR  SF  CONST  HI  P ART  ( = S FT  EMP2  - 1 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = LOT  EM  IN- 1. 

FOR  DSPI  N 

STORAGE  FOR  SF  CONST  LO  PAR  T(  =SF  TE  MP  1+ 1 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MIST  = HI  TFMI  N+L  . 

FOR  MIXNOUN  DATA 
RETURN  FOR  ON 


R0219 
R 0220 


ALSO  MIXTEMP  + 1 

ENTRET 

WOCNT 

INRFL 

DSP  MM  TEM  = 
MIXBR 


= VRUF+4,  MIX  TEMP+  2 = VBUF+5. 

DCTINC  EXIT  FROM  ENTER 

DOTRFT  CHAR  COUNTER  FOR  DSPWD 

COTRET  INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  ) 

MATINC  DSFCQUNT  SAVE  FOR  DS  PMM 

MATINC  INDICATOR  FOR  VI  XEO  OP  NORMAL  NOUN 


R022  7 
» 02 2 B 
R5229 


T EM2 
D SMAG 
IOADDTFM 


TE  M2 
TEM  2 


FX  EC  T EMP 

RE  L ADDRESS  FOR  DSPIN 


EXEC  TEMP 

MAGNITUDE  STORE  FOR  DSPIN 
MIXNOUN  INDIRECT  ADDRESS  STORAGE 


R 0230  TF  M3  FRASE 

RD231  COUNT  = TF  M3 


FX  EC  T EMP 
FCR  DSPI  N 
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.001  PAGE 
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*00 


R 0232 
R 0 2 3 ^ 
R023a 
3 ' 235 
R0236 
Rfl237 
1 023R 


TEM4  ERASE 

LSTPTR  = TEMA 

RELRET  = T EM4 

FPFPRET  = TEM4 

DSP  WOP  ET  = TEMA 

SFPSCRFT  = T FRA 

SEPMNRE  T = TEM4 


EX  EC  T EMP 

LIST  POINTER  FOR  GRA0USY 
RETURN  FOP  PEL  DSP 
RETURN  FOR  FREEOSP 
RETURN  FOR  DSPSIGN 
RETURN  FOR  SEP  SEC 
RETURN  FOR  SEPMIN 


R323Q  TEH5  ERASE 

R0240  NCUNADD  = TEM5 


EXCC  TEMP 

TEMP  STORAGF  FOP  NOUN  ADDRESS 


Rf’241  NNAOTEM  ERASE 
RC2A2  NNTYPTFM  FRASE 
1 0 2 A 3 I DAO  1 TF  M ERASE 
R3244 

PP2A5  IDAD2TFP  ERASE 
TP  246 

R3247  I rAD3T  EM  ERASE 

R02AB 

R02A9  RUTMXTEM  ERASE 

RC25C  END  OF  TEMPORARIES  FQR  PINRALL 


TEMP  FCR  NOUN  ADDRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPF  TABLE  ENTRY 

TEMP  FOR  INDIO  ADRFSS  TABLE  ENTRY(MIXNN) 

ML  ST  = I0AD2TEM-1,  = I DAD  3 TE  M-2  • 

TEMP  FOR  INDIR  AOTESS  TABLE  FNTRY(MIXNN) 
ML  ST  = IDADlTEN+1,  = I DAD3T  EM-1  . 

TEMP  FOR  INDIR  ADRFSS  TABLE  ENTRY!  MIXNN) 
MUST  = ICAC1TEM  + 2,  = I DAD2TEM  + 1 . 

TEMP  FCR  SF  ROUT  TABLE  ENTRYIMIXNN  ONLY) 
EXECUTIVE  ACTION 


T 025'»l  ADDITIONAL  TEMPORARIES  FOR  PINeALL  EXECUTIVE  ACTION 

RD2502  MPAC,  THRU  MPAC  +6 
R 0 250  3 OUE  , +1  , + 2 
R 0 250 4 BUF  2,  +1,  +2 
RD25T6  MPTFMP 
10250  7 ADDRWD 

R025O9  ENO  OF  ADDITIONAL  TEMPS  FOR  PINBALL  E XFC  ACTION 


R0251  RESERVED  FOR  PINPALL  INTERRUPT  ACTION 


?0?5? 
RD  253 
A 02  54 
R02  55 


DSPCNT  ERASE  COUNTER  FOR  OS  POUT 

UPLOCK  ERASE  BITl  = UPLINK  INTERLOCK  (ACTIVATED  BY 

ENO  OF  ERASABLES  RESERVED  FOR  PINBALL  INTERRUPT  ACTION 


RECEPTION  OF  A BAD  MESSAGE  IN  UPLINK) 


R02B6  TEMPORARIES  FOR  PINeALL  INTERRUPT  ACTION 


< 0 257 
R325R 
R 0259 
R026O 


KEYTEMPI  = WAI7F  XI  T TEMP  FCR  KEYRUPT, 

DSRUPTEM  = WA  I TEX  IT  TEMP  FOR  D SPOUT 

KEYTFMP2  = RUPTACN  TEMP  FOR  KEYRUPT, 

END  OF  TEMPORARIES  FOR  PINBALL  INTERRUPT  ACTION' 


UPRUPT 

UPRUPT 
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3 0261  THE  INPLT  COOES  ASSUMED  FOR  THE  KEYBOARC  ARE, 


R3262  0 

R0263  1 0000  1 

10264  9 01001 

RO  265  VERB  1000 1 

R0266  EPRCR  RES10010 

RO 267  K FY  RL  SF  11001 

R0268  + 11010 

1 0269  - 11011 

R02  76  ENTER  11100 

R0271  CLEAR  11113 

1 0272  NOUN  11111 
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RD273 
FI 02 74 
RO  27  5 
RD  2 76 
1 0277 
R0278 

R f)2  79 
10  280 
RD2P  1 

R02R2 
R0283 
R02  84 


OUTPUT  FORMAT  FUR  DISPLAY  PANEL.  SET  OUTC  TO 
A-S  SELECT  A R E LAY  WOP  0 . THIS  DETERMINES  WHICH 
FNEPGIZED. 

0 FOR  SPECIAL  RELAYS  SUCH  AS  SIGNS  ETC. 

C-S  5 RIT  RELAY  COOE  FOR  LEFT  CHAR  OF  PAIR  SELECTED  BY  RELAYWORO 
D-S  5 8IT  RELAY  CODE  FOR  RIGHTCHAR  OF  PAIR  SELECTED  BY  RFI  AYWCRD. 

THE  PANEL  APPEARS  AS  FOLLOWS, 


MO  1 
VC1 
R1D1 
R 2D  1 
R3  Dl 


MD2 
VD2  (VERB) 
R1C2  R1D3 
R 2D  2 R 2D  3 
R3  D2  R3n3 


N D 1 
°1  D4 
R2D4 
R3D4 


ND  2 
F1C5 
R 2D  5 
P 3D  5 


(MAJCR  MODE) 
( NUUN) 

(Rl  ) 

( R? ) 

(R  3) 


1 0286 
RD296 
R 02  87 
10288 
R)  29  9 
R 0290 
10  291 
RD  292 
R 0293 
RO  294 
RD20S 
1 0296 


MO  1 
MD2 
VD  1 
V 02 
ND  l 
ND  2 
Rl  01 
R1D2 
P 1 D 3 

Rl  04 
R 10  5 


THE  SE  I S GI  VEN 

5 R 2D  1 11 

4 R2  D2  10 

3 R203  7 

2 R2D4  6 

1 R2C5  5 

0 1 3D  1 4 

6 R3D2  3 

5 R3D3  2 

4 R 3D  4 l 

3 R3  05  0 


WITHIN  CUM  PUT  AT  ION  ONLl 


RD297  THERE  IS  AN  11  REGISTER  TABLE  (DSPTA8)  FOR  THE  DISPLAY  PANEL. 


1 02S8 

R0299 

RD3DD 
1 1 

R039? 

R03c3 


DSPTAB  P.ELAYWD 
P EL  ADD 

ii:  ion 

6 1010 

8 100  l 

7 1000 


BITS  10-6 


MO  1 
V Dl 
ND  1 


( 25) 
(23  I 
(21  ) 


BITS  5-1 

MO 2 ( 2/,) 

VC?  (22) 
NO  2 (20) 

R ID  l ( 16) 
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R 9 39<*  6 
R0305  5 

1 0 306  5 

R9337  3 

Rr  300  2 

R0309  1 

R9  3 1 0 G 
1 031 1 


0 111 
nl  lo 
C10L 
100 
0011 
C01C 
00  1 
0000 


*R  1 
-R1 
♦•R2 
-R  2 


NO 


♦-P  3 


3 

RE  LAYWORO 


P 102  ( 15) 
RIO  (I'M 
P2C1  (111 
R 20  3 ( 7 ) 
P2C5  (5) 

R 30  2 ( 3 1 
R 30  A ( 1 ) 


R 193  (1A) 
R 10  5 (12) 
R2D2  (19) 
R 20  A (A) 

R 30 1 (A) 
R3D3  (2) 

R 30  5 (0) 


3 '>31 A 
R1315 
R 1 3 1 6 
R.  317 
R3313 


T Hf  5 R IT  OUTPUT 

BLANK  00303 

I 101 

1 noon 

2 1 1001 

3 11011 

A 01111 


PEI  AY  C:i.9E  S ARE  : 


R0310  5 

RP  320  6 

R)321  7 

R 0 322  8 

Rr  323  *3 


11110 
1 1 lO- 
li'  1 1 
11101 
11111 


R03231 


OUTPUT  BITS  US  EO  BY  PINBALL: 


< 3232 
PT3233 
R n 323 A 


KEY  RELEASE  LIGHT  - E I T 5 OF  CHANNEL  11 

VERB/NOUN  FLASH  - B I T A OF  CHANNEL  11 

OPERArOR  ERROR  LIGHT  - BIT  7 OF  CHANNEL  11 
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P 032 4 START  CF  EXECUTIVE  SECTION  OF  PINBALL 


0 32  5 

032501  REF 
032502 


40  *2  05  7 
LAST  304  4C,20C0 

40  ,2057 


BANK  40 
SETLCC  PINRALLl 
8ANK 


•3258  REF 
03 3 0 REF 
033)  PEF 
D 332  PEF 

03321  REF 

03322 

3332  3 REF 
03324  RTF 
33325  PFF 

03  32  6 

03327  REF 
D 33  ? 8 REF 

0333  RF  F 

0334  PEF 
0 335  REF 

0336 

0337  REF 
033fl  REF 
0339  REF 
D34D  REF 

0341  RFF 

0342  REF 

0343  RFF 

0344  PFF 

0345  PFF 

0346  RFF 

0347  RIF 

0348  PEF 

0349  REF 

0350  REF 

0351  REF 

0352  RFF 
0 353  RFF 

0354  PEF 

0355  PEF 

0356  REF 
03  5 7 REF 

0358  RFF 

0359  REF 

0360  RFF 

0361  RFF 

0362  REF 

0363  RFF 


2.\  LAST  39  3 
2 LAST  229 
1 

2 LAST  229 

1 

1 

74  LAST  392 

2 LAST  403 
1 

75  LAST  40  3 

1 

90  LAST  389 

1 

1 

2 LAST  403 

3 LAST  40  3 

4 LAST  40  3 

5 LAST  403 

6 LAST  40  3 

7 LAST  403 
1 

2 LAST  40  3 

2 LAST  403 

3 LAST  403 

4 LAST  40  3 

5 LAST  403 

6 LAST  40  3 

7 LAST  403 
P LAST  403 


8 LAST  403 

0 LAST  40  3 

10  LAST  403 

11  LAST  40  3 

12  LAST  403 

13  LAST  403 

1 


40,  20  57 

■ ■ 

40,  206  l 

40.2062 

40.2063 

40. 2064 
4C  ,2065 
40.2C66 
40,  20  6 7 
40  ,20  70 

■ . 

40,2  072 
40.2C73 
4C, 2C74 
40  ,2075 

40.2076 

40. 2077 
40,2100 
4 C , 2 1 C 1 
40,2102 
4 C , ? 1 03 
4 C,  2 1 C4 
40  ,2105 
4C.21C6 
40, 2107 

' I 

40, 2111 
40 , 2 11  2 
40,2113 
4C,  2 114 
40  ,2115 
• , H 6 
40  , 2 1 17 
40  ,2120 
4C, 2121 
40,212 2 
40,212  3 
iC,  2124 
40  ,2125 
4C , 2 126 
40, 2127 
4f  ,2130 


: 4753  1 
57'01]  0 
5 4 115  0 
11*041  1 
0 2065  0 

0 2072  0 
4 2136  0 
6 0154  1 
0 0006  1 

1 207?  1 
C 4374  0 
56  154  1 
54  117  1 
5 C CCC  1 
0 2076  1 
0 3465  0 
0 2155  1 
0 2155  1 
C 2155  1 
C 2155  l 
0 2155  1 
0 2155  1 
0 2155  1 
C 2141  1 
0 2141  1 
0 3465  0 
C 3465  0 
0 3465  0 
C 3465  0 
C 3465  0 
0 3464  0 
0 2153  1 
0 2343  1 
0 3643  0 
C 3465  0 
0 3465  0 
0 3465  0 
C 3465  0 
0 3465  0 
0 3465  0 
0 3521  1 
C 2376  l 


CHAR  IN 


CHAR  IN  2 


COUNT*  *$/PIN 
CAF  ONE 

XCH  DSPLOCK 

TS  2 1/22REG 

CCS  C ADR  STOP 

TC  +2 

TC  CHARIN2 

CS  ELRCODE 1 

AD  MP  AC 

E X TEND 

BZF  CHARTN2 

TC  RELDSPCN 

XCH  MPAC 

TS  CHAR 

I NDE  X A 

TC  +1 

TC  CHARALRM 

TC  N UM 

TC  NUM 

TC  NUM 

TC  NUM 

T C NU  M 

TC  NUN 

TC  NUM 

TC  89TEST 

TC  89TEST 

TC  CHARALRM 

TC  CHARALPN 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  NUM  -2 

TC  VERB 

TC  ERROR 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CH  ARAL  PM 

TC  CHARALRM 

TC  CHARALRM 

TC  VBRELDSP 

TC  POSGN 


BLOCK  DI SPLAY  SYST 

MAKE  OSP  SYST  BUSY,  RUT  SAVE  OLD 

Cl  DSPLOCK)  FUR  EPROP  LIGHT  RESET. 

ALL  KEYS  EXCEPT  ER  TURN  ON  KR  LITE  IF 
CADRSTOR  IS  FULL.  THIS  REMINDS  OPERATOR 
TO  P.E-ESTABLISH  A FLASHING  CISPLAY 
WHICH  HE  HAS  OBSCURED  WITH  DISPLAYS  OF 
HIS  OWN  (SEE  PEMAPKS  PRECEDING  ROUTINE 
VBRELOSP)  . 


INPUT  CODE  FUNCTI  CN 

0 
1 

2 


6 
7 
10 
11 
12 
1 3 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 


0 

VERB 

ERROR  LIGHT  RESET 


KEY  PEI  EASE 


9:  12  0:  T.  21*1470 


Z EP  LAI  0 


404 


JAP:  ASSEMBLE  REVISION  ?6  OF  AGO  PRCCPAM  ZERLINA  RY  ZOROASTER 

L PINBALL  GAME  RIJTTONSANR  LIGHTS 


US  ER  *S  PAGE  NO  . 


.001  PAGE 
1C  EG  S4 


3365 
cH  7 
0368 


P.EF  14  LAST  AO  3 
RFF  1 
REF  1 


a:  ,2132 
AC, 2123 
AG  , ? 1 3* 
AO, 2135 


0 22(3 
0 2137 
C 3 A65 
C 2A56 
C 2357 


0 

0 

c 

1 


TC  NEGSGN 

TC  ENT  FR  J MP 

TC  CHARALRP 

TC  CLEAR 

TC  NOUN 


35 

36 

37 


ENTER 

CLEAR 

NOUN 


33685 

0 364  REF  IP  LAST  334 

0370  PFF  1 


AO , 2 1 3a  00022  1 
A 0,2  13 7 0 A635  ') 

AC , 2 l AC  62C22  0 


FLRC00E1  OCT  22 

ENTERJMP  TC  POST  JUMP 

CARR  ENTER 


0371  RFF  3 

O 372 
3 37  3 

37A  RFF  37 

0 375  RFF  38 

C376  REF  A 

0377  RFF  1 

0378  RFF  100 

0379  RFF  9 

0380  REF  15 


LAST  229 


LAST  393 
LAST  AHA 
L AST  34 A 

LAST  AO  3 
LAST  AO  3 
LAST  AOA 


4r  , 2 1 4 1 
AO , ? l A2 
AC,  2 l A3 
40  ,2  144 
40,2145 
4 ( ,2146 
AO  ,2 1 A7 
AC , 2 1 5 C 
AO, 2 1 51 
40,2152 


If  776  0 
0 2146  0 
C 2146  C 
( 5155  0 
C 5155  0 
3 6 2 e 7 1 
7 3777  1 
1C  OCO  0 
0 2155  l 
C 3465  0 


iTFST  CCS  DSPmUNT 

TC  +4  + 

TC  +3  +0 

TC  ENDOFJOB  - BLOCK  DATA  IN  IF  DSPCCUNT  IS  - 

TC  FNDOFJ  OR  -0 

CAF  THREF 

MASK  DECBRNC  H 

CCS  A 

TC  NUM  IF  DECBRNCH  I S + , 8 CR  9 OK 

TC  CHARALKM  IF  DECBRNCH  IS  +0,  REJECT  8 OR  9 


OR  -0 


R03P1  NUM  ASSFMRLFS  OCTAL  3 BITS  AT  A TIME.  FOR  DECIMAL  IT  CONVERTS  INCOMING 
R03R2  UURD  AS  A FRACTION,  KEEPING  FESULTS  TO  DP. 

R 1 1 3 fl  3 OCTAL  RESULTS  ARE  LEFT  IN  XREG , YREG , CR  ZREG.  HI  PART  OF  DEC  IN  X REG, 

Rf>3  84  YPEG,  Z PEC  • THE  LGW  PARTS  IN  XREGLP,  YREGLP,  OR  ZREGLP  ) 

T 0 3 8 5 DECBRNCH  IS  L6F-T  AT  +0  FOR  CCT,  +1  FOR  + CEC,  +2  FOR  - DF  C . 

R 3 386  IF  DSPCOUNT  k AS  LEFT  NO  MORF  DATA  IS  ACCEPTED. 


r 387 

TTflH 

3 339 

0390 

0391 
C3  92 
C 39  3 
3394 
C 595 
0396 
3397 
0398 

03  99 
0400 
040  1 
3432 
0403 
0 40  A 

04  05 
0406 


RFF  54  LAST 
RFF  2 LAST 
REF  4 LAST 


REF  39  LAST 

REF  J 
REF  2 LAST 

REF  55  LAST 

PFF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  1 

REF  1 

RFF  5 LAST 

RFF  1 

REF  1 

REF  5 LAST 


389  40  ,2153 

403  40,2154 

434  40,2155 

AC1  ,2156 
AC, 2157 
40, 2160 

404  4C  ,2 1 61 
40, 2162 

229  4C  ,2 163 
404  40,2164 

40  4 40,  2 16  5 

40  ,2166 
404  40,  2 16  7 

16  3 40,  2170 

40,21 71 
AC, 2172 
AOA  40,2173 
40,2174 
4C,  2175 
404  40,2176 


3 4755  1 
54  117  1 
1C  776  0 NUM 
0 2162  0 
C 2162  0 
0 2161  0 
0 5155  0 
C 2313  1 
11*014  1 
3 4755  1 
55*0  14  1 
0 2167  0 
50  117  0 
3 4066  0 
7 4346  0 
54  124  1 
3 0776  1 
54  143  0 
0 3353  1 
3 6257  1 


CAF  7 ERO 

TS  CHAR 

CCS  DSPCUUNT 

TC  +4  + 

TC  +3  +0 

TC  +1  -BLOCK  DATA  IN  IF  DSPCOUNT  IS  - 

TC  ENCOFJOB  -0 

TC  GETINREL 

CCS  CLPASS  IF  CLPASS  I S ♦-  OR  +0,  MAKE  IT  +C. 

CAF  ZERO 

TS  CLPASS 

TC  +1 

INDEX  CHAR 

CAF  RELTAB 

M AS  K l OW  5 

TS  CODE 

CA  DSPCOUNT 

TS  COUNT 

TC  9 SPIN 

CAF  THRFE 


AP  : 


ASSEMBLF  REVISION  56  OF  AGC  PRfCRAM  ZERLINA  BY  ZOROASTER 


PINBALL  GAME  BUTTONS  ANO  LIGHTS 


0407  REF 
040  8 REF 
D 4 D 9 PEF 
04l0  RFF 
0 A 1 1 REF 
DAI  2 RFF 
OAl 3 RFF 
0 A 1 A REF 
OAl 5 REF 
OAl 6 REF 
D A I 7 REF 
OA 1 8 RFF 
OA1R  REF 
0420  REF 
0A2 1 RCF 
0422  REF 
r A 2 3 RFF 
OA2A  REF 
9425  RFF 
0426  RFF 
0.427  RTF 
) 428  REF 
0429  PEF 
C A31'  REF 
0431  REF 
0A32  RFF 
943^  REF 
04-34  RFF 
0435  RFF 
*'436 

0 A3  7 PEF 

0438  REF 
043a  RFF 
OAAO  RFF 
JAM  REF 
044?  REF 
44  * REF 
9 4 A A REF 
0444 2 RFF 
AAA  3 RFF 
0444 A PEF 
0445  RFF 
D 446  REF 
044  7 

0AA8  REF 
*•4481  REF 

04482  REF 

04483  RFF 
0448A  REF 
0449  REF 


2 LAST 
101  LAST 


2 I AST 
1 

2 LAST 

3 LAST 

4 L AST 
4 LAST 
1 

2 LAST 

3 LAST 

76  L AST 
56  LAST 

77  LAST 

4 L AST 
1 

78  LAST 

5 LAST 

79  LAST 

2 L AST 

80  LAST 
1 

3 L AST 

4 LAST 

6 I AST 
4 LAST 
1 


6 L AST 
3 LAST 

102  I AST 
2 LAST 

7 LAST 
2 L AST 

76  LAST 
1 
1 

23  LAST 
5 LAST 


2 LAST 
2 L AST 
6 LAST 
5 LAST 
fil  LAST 
1 


40  4 
404 


229 

4C5 
4C5 
40  5 
404 

40  5 
4 5 
40  3 

404 
40  5 
228 

40  5 

40  6 

4C5 
40  5 

405 

40  5 
405 
40  4 
40  5 


40  4 
4C5 
40  5 
40  5 
4(5 
40  5 
3<J3 


403 
40  5 

405 
40  4 
405 
4(5 
40  5 


40,2200 
40,  22C  1 
40,2202 

. 

4C»  2 2C4 
40  ,2205 

• • 

40,  2207 

. 

40,  221  I 

40.2212 

40.2213 

40. 2214 
40  ,2215 

40 .2216 

40. 2217 

, 

40. 2221 

40.2222 

40.2223 
4C» 2224 
40  ,2  2 25 

40.2226 

40. 2227 
40  ,2230 

40. 2231 

40.2232 

40.2233 
40,  2234 
40  ,2235 

40.2236 

40. 2237 
4 , »4 
40,  224  1 
40,2  2 42 
40,2243 
40,  2 244 
40  ,2245 
40,2246 
40  , 2 24  7 
40  ,2250 
40, 2251 
40,22  52 

40.2253 

40. 2254 
40  ,2  255 

. 

40, 2257 

• , " 


7 0777  1 
1C  000  0 
C 2212  1 
50  137  1 
57*  000  0 
54  C 22  0 

4 0022  0 

5 0022  0 
56  022  1 

6 0117  0 
C 2227  1 
50  137  l 

5 7*  000  0 
54  1=4  0 
3 4755  1 
54  155  1 

3 43£3  0 

0 7321  0 
56  155  0 

6 0117  0 
54  155  1 
C 2227  1 
26  154  0 
C 2245  C 
50  137  1 
55' 000  1 

4 (776  C 
50  137  1 

6 2304  1 
C OOC6  1 

1 2237  1 
C 2301  l 

3 6257  1 

7 0777  1 
1C  (CO  0 
0 2245  0 

4 C776  0 
C 2302  1 
0 4616  1 

60250  0 
0 2243  0 
4 4753  0 
6 0137  1 
C 0006  l 
6 2243  0 
C 2313  1 
50  137  l 
3 1000  0 
54  155  1 
0 7115  0 


MA  SK 

CCS 

TC 

INDEX 

X CH 

TS 

CS 

CS 

XCH 

AO 

TC 

DEC  TIB  IN  INDEX 
XCH 
TS 
CAF 
TS 
CAF 
TC 
XCH 
AO 
TS 
TC 
ADS 
TC 

ENDNMTST  INDEX 
TS 
CS 

INOEX 

AO 

F X TE  NO 

BZF 

TC. 

ENDNUM  CAF 
MASK 
CCS 
TC 

ENDALL  CS 
TC 

DECCENO  TC 

CADR 

TC 

CECEND  CS 
AD 

EXTEND 

BZMF 

TC 

INDEX 

CA 

TS 

TC 


DECBRNCH 

A 

DECTOBI  N 
I NREL 

V FRRREG 
CYL 

CYL 
CYL 
C YL 
CHAR 

E NO ART ST 
I NRF  L 

V ERBREG 
MR  AC 
ZERO 

MP  AC 
TEN 

SHORTMP 
M P AC 
CHAR 
MP  AC 

ENDNMTST 
MP  AC 
DECCEND 
INREL 
V ER BP  EG 
DSPCCUNT 
I NREL 
CR  IT  CON 

ENDNUM 

MORNUM 

THREE 

DECBRNCH 

A 

OECCEND 
DS  PCOUNT 
MORNUM 
8ANKCALL 
DECEND 
ENDALL 
ONE 
I NREL 

FN  DAL  L 
GE  TI  NREL 
INREL 
V ERBREG 
MP AC  +1 
DMP 


+ 1 

*1 


+ 1 


9:12  OCT.  21,1970  ZFRLAID  .001  PAGE  405 


USER'S  PAGE  NO.  11  FO  S4 

+ 0,  OCTAL.  +1,  + DEC.  +2,  - DEC. 

+ 0 OCTAL 


SUM  X 2 EX  P-14  IN  MPAC 


10  X 2EXP-14 

10SIIM  X 2FXP-28  IN  MPAC,  MPAC+1 


NO  OF 

OF  MUST  BF  5TH  CHAR 


-0,  OSPC  OUNT  = CRI  TC  ON 
- , DS PC OUNT  G/  CR  ITCON 


BLOCK  NUMIN  BY  PLACING  DSPCOUNT 
NEGAT  IVELY 


IF  INR  EL  = ' , l(  VBPFG  ,NNRFG)  , LEAVE  WHOLE 


IF  INRFL  = 2,  3, 4(R1,R2,R3)  .CONVERT  TOFRAC 


* 


i A P : ASSEMBLE  REVISIGN  56  OF  AGC  PROGRAM  2ERL  INA  BY  ZOROASTER 
PINBALL  GAME  BUTTONS  AND  LICHTS 


9=12  OCT.  21, 1070  ZEPLAI0.001  PAGE 
USER'S  PAGE  NO.  12  EC  SO 


006 


AGO  5 
051 
505? 
r053 
'050 
>055 
( 056 
r 057 
00  5 8 
0050 
D06D 
robi 
0 062 
5063 
0060 
0 065 
f066 
067 
3068 
0066 


REF  1 
REF  7 
REF  0 
REF  103 

REF  1 

REF  82 
REF  33 
PFF  80 
RFF  7 
REF  1 
RFF  85 
REF  8 
REF  6 
REF  3 
PFF  8 
REF  6 
REF  00 


00,2261 
LAST  005  00,  2262 

LAST  055  00,2263 

LAST  005  0C.2  2 60 

00,  2265 
00  ,2266 
00,2  26  7 
LAST  00  5 00,2  270 

LAST  036  00,2271 

LAST  006  00,  2272 

LAST  03  5 03,22  73 

OG ,2270 
LAST  006  OC,  2 27  5 

LAST  006  00  ,2276 

LAST  005  00,2277 

LAST  33  3 00,  2 300 

LAST  005  00,2307 

LAST  006  0C.23C2 

LAST  03  0 00,2  303 


02311  0 
3 6257  1 
7 0777  1 
5 C 000  1 
0 2265  1 
0 2272  1 
0 0006  1 
0 0156  1 
52  156  1 

5 6 156  0 +DECSGN 

50  137  1 

55*003  1 

56.  16  5 0 

50  137  1 

56'00 0 1 

C 0631  1 

10  776  0 MORNIIM 
50  776  C 
0 5155  0 


ACRES  OECON 
CAF  THREE 
MASK  OECBRNCH 
INDEX  A 
TC  *-0 
TC  +OECSGN 

EXTEND 

DCS  MPAC  +1 
DXF.H  «PAC  +1 
XCH  MP  AC  +-2 
INDFX  INRFL 
TS  XREGLP  -2 

XCH  M P AC  +1 
INDEX  INREL 
TS  VERBREC- 

TC  SWRE  TURN 

CCS  OSPCOUNT 
TS  DS  PC  CUNT 

TC  ENDOFJOB 


MULT  SUM  X 2EXP-28  IN  MPAC,  MPAC+l  BY 
2EXP  10/ ICE  XP5.  GI  VESl  SUM/ IGF  XP5)  X2EX P-1 4 
IN  MP  AC,  *1  , +2  . 


- CASE 


DEC  RF  MEN  T OSOCOLWT 


i 07n 
7071 
00  72 
1.(073 
00  70 


OC.23CO  CO 02 2 
00,  2305  OOC  20 
00,2306  00012 

00 , 2 3C  7 CCCC5 
00,  2 310  00000 


1 CRITCCN  OCT 

0 OCT 

1 OCT 

1 OCT 

1 OC  T 


(DEC  18  1 
(DEC  IS  I 
(DEC  10) 


00  ,2311  C5170  0 CECON  2 DEC  E- 5 8 10  2EXP  1 0/ 1 OE  XP  5 = . 16380  DEC 

00, 2’12  13261  0 


800  76  GETINREL  GETS  PROPER  CAT  A REC  R FL  ADDRESS  FOR  CURRENT  C (OSPCOUNT)  AND 

<0477  PUTS  IN  INTO  INREL.  +0  VFRBRCG,  l NCUNREG , 2 X REG,  3 Y R EG,  0 ZREG. 


078 
10  79 
00  80 
0081 


REF  10  LAST  036 
RFF  1 

REF  9 LAST  006 
RFF  03  LAST  386 


00,  23 1 3 5C  776  1 
00  ,2  3 10  3 ?31 7 0 

00,  2315  50  137  0 

00, 2316  0 C002  0 


3 SPCOUNT 
INREITAB 
I NREL 
0 


(A  TEMP,  REG) 


008? 
3083 
f 080 
0085 
00  86 
0087 
308  8 
0 89 
0 090 
3091 
0092 


00,231  7 COOOO 
• . ' ’ - GOC04 

00  ,2321  00000 

00,2322  00000 

00,2323  00000 

00,2320  00003 

00,  2325  CCC03 
00,2  ^2  6 00003 

00,2327  00003 

00, 2330  C0CC3 
00  ,2331  00002 


0 INRELTAB  OCT 
0 OC  T 

0 OCT 

0 OCT 

0 OC  T 

1 OCT 

1 OCT 

1 OCT 

1 OCT 

1 OCT 

0 OCT 


3 

3 

3 

3 

3 

2 


R305  (OSPCOUNT 

R3  CO 

R 30  3 

R3D2 

R3D1 

R 2D  5 

R2  DO 

R 2D  3 

R 2(3? 

R2D1 
R 10  5 


= 0) 

= (1  > 

= ( 2) 

= ( 3) 

= (0  ) 

= ( 5) 

= (6  ) 

= ( 7 ) 

= ( RD) 

= (9  C ) 
= ( 1 GO) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:  12  OCT.  21  ,1970  ZERLAID 


.OOL  PAGE 


40  7 


PINBALL  GAMF  BUTTONS  AND  LIGHTS 


USER  *S  PAGE  NO.  13  F 0 S4 


0 49  3 

0494 

0495 
04  96 

0497  RFF 
049B 
04  99 
0 500 
0 531 


LAST  38  1 


40, 2332 
40  ,2333 
40,2324 
4(  , 2335 
4^,2336 
• 0,  2337 

40.2340 

40.2341 
40,  2 34  2 


COOO 2 0 
00002  0 
C0CC2  0 
00002  0 
0 5706  0 
CCCC1  0 
OOOC  1 0 
00000  1 
OOCOO  1 


OC  T 
OCT 
OCT 
OC  T 


OCT 
OCT 
OCT 
OC  T 


2 Rl  04  =(110) 

2 R IP  3 = { 1 2D) 

2 R1D2  = ( 12D ) 

2 RID  1 =(140 

CCS  HOL  F NO  DSP  CO  UNT  NUMBER  = 1 5D 

1 N02  =(16D> 

1 NDl  =(  1 7D) 

VD2  =(  1PD) 

0 VDl  =(19D) 


0502 

0503 

0504 

0505 
3506 
CSr.7 


0508 

3509 

0510 

''511 

0^12 


A USD 
3514 

0515 

0516 
3517 

0518 


REF 

REF 

PEE 

RFF 

REF 

RFF 

RFF 

REF 

RFF 

REF 
RTF 
REF 
REF 
R TF 


57  LAST  405 
7 LAST  406 
2 LAST  229 

11  LAST  406 

1 

24  LAST  405 
5 LAST  406 

58  LAST  407 
2 LAST  229 


41  LAST  406 
59  LAST  407 
7 LAST  309 
2 1 AST  386 

1 


40,2343  3 4755 

4C , 2344  55' COO 

40. 2345  3 4360 

40.2346  54  776 

40,  2347  C 2570 
40  ,2350  3 4753 

40,2351  54  777 

40,  2352  !-  4755 

40  ,2353  55*01? 

40,  2354  3 421  7 

40, 2355  54  1 36 

40,  2356  C 5155 
40  ,2357  3 4755 

40,2360  55*001 

40,  2 36  1 I-  4 36  1 
40  ,2  362  0 2 346 


1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 


V FRB 


NVCCM 


CAF  ZERO 

TS  VERBPEG 

CAF  VO  1 

TS  DSPCOUNT 

TC  2BLANK 

CAF  ONE 

TS  DECBRNCH 

CAF  ZERO 

TS  REQRET 

CAF  ENDINST 

TS  ENTRET 


0 

1 NOUN 
0 

1 

1 


TC  FNDCFJCB 

CAF  ZERO 

TS  NOUNREG 

CAF  NDl 

TC  NV  COM 


SET  FOR  DEC  V/N  CO  OF 
SET  FOR  ENTPASO 

IF  DS  PAL  ARM  OCCURS  BEFORE  FHST  ENTPASO 
OR  NVSUB,  ENTRET  MUST  ALREADY  BE  SET 
TO  TC  END0FJ3R 


NDl  , OCT  21  (OEC  17 ) 


052  0 
>521 
352? 
"52  3 
■524 

0525 

0526 
1527 
0528 
0 529 


RFF  17 
REF  10 
RFF  18 
REF  6 
REF  4 
REF  60 
REF  5 

RFF  42 


LAST  3RC 
LAST  40  6 
LAST  197 
LAST  407 
L AS  T 40  4 
LAST  407 
LAST  40  7 

LAST  4(7 


40,  2363 
4C  , ? 364 
40,2365 
• . 1 6 ( 
40  ,7  367 
40,2  370 
40,  237  1 
40  ,?377 
40, 2373 
40,2  174 
40,?  375 


C 2435  1 
0 2422  1 
3 475?  0 
5C  137  1 
6 4745  0 
26  777  1 
1 1 *0 14  1 
3 4755  1 
5 5 ' C 1 4 1 
0 2375  1 
0 5155  0 


NEG  SGN 


BOTH  SGN 


FI  XCLPA  S 


TO  SIGNTFST 

TC  -ON 

CAF  TWO 

INDEX  INREL 

AD  B I T 7 

ADS  DECBRNCH 

CCS  CLPASS 

CAF  7 ERO 

TS  CLPASS 

TC  + 1 

TC  ENCCFJOB 


SET  DEC  COMP  BIT  TC  1 (IN  DECBRNCH) 
BIT  5 FOR  R 1,  BIT  4 F CR  R2  , 

BIT  3 FOR  R 3. 

IF  CLPASS  IS  + OP  +0,  MAKE  IT  +3. 


3539 
0531 
9532 
06  3 3 


REF  2 LAST  407 
RFF  1 

REF  26  LAST  4C 7 
REF  1 


40,  2376  C 24  35  1 
40  ,2377  0 2402  0 

4C , 24 CO  ? 4 7 c 3 1 
40,  240  1 0 22fc6  0 


POSGN 


TC  SIGNTFST 

TC.  +0N 

CAF  ONE 

TC  30THSGN 


534 

1536 

0536 


RFF  44  LAST 
REF  3 LAST 
REF  11  LAST 


406  40 ,?402 

40  5 40,  2403 

407  40,2404 


2?  00?  O +0N 
C 2313  1 
50  137  1 


LXCH  0 
TC  GETINREL 

INDEX  INREL 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L PINBALL  GAMF  BUTTONS  A NO  LIGHTS 


9:12  OCT.  21  ,197  C ZERl  A I C 
USER 'S  PAGE  NO.  14 


.001  PAGE 
EO  S4 


408 


05  3 8 REF 
5 J9  1 r F 
3540  PEF 
'•  54 1 REF 
0542  PEF 
r>543  PEF 
0544  PEF 
0544  REF 
0546  RFF 
) 54  7 RTF 
D54R  REF 
054^  RFF 
0 550  REF 

0551  PEF 

0552  RFF 
3553  REF 

0554  RFF 

0555  REF 
3555  RFF 
0557  REF 


26 

1 

61 

2 

2 

1 

IQ 


2 

43 

45 

4 

12 

2 

3 

27 


LAST  4C7 

LAST  407 
LAST  404 
LAST  40  8 

LAST  377 
LAST  40  8 
LAST  408 
LAST  40  8 
LAST  386 
LAST  407 
LAST  40  7 
(AST  407 
LAST  408 
LAST  40  8 
LAST  4Ce 
I AST  408 


4 G»  24C5 

• 

4C.2407 
40 , 24  10 
43 ,2411 
40,241? 
40, 2413 
4 1 241 4 

40. 2415 

40.2416 

40.241 7 
4C,  24  20 
40  ,2421 

■ • 

40, 2 423 

40  ,2424 
40,  2425 

40.2426 

40.2427 
40, 2430 
40  ,2431 


3 2430 
54  123 
6 4753 
54  112 
3 4755 
54  124 

56  123 
C 3435 
3 4741 
54  124 
56  122 
0 34  3 5 
0 0001 
22  CC2 
L 2213 
50  137 
3 2430 
54  122 
6 4753 
5 4 123 
0 24  11 


SGNCDM 


-CN 


CAF  SG NT  AB  -2 

TS  SSNOFF 

AD  ONE 

TS  SGNON 

CAF  Z FRO 

TS  CnDE 

xr.  H S3  NOF  F 

TC  11DSPIN 

CAF  BIT11 

TS  CODE 

XCH  SGNON 

TO  11  0 SP I N 

TC  L 

LX  CH  0 

TC  3ETINREL 

INDEX  INRFL 

CAF  SG  NT  AB  -2 

TS  SGNON 

AD  ONE 

TS  SGNOFF 

TC  SGNCOM 


0558 
055  9 
0560 


40,2432  CCCC5  1 SGNTAB  OCT  5 -PI 

40,  2433  OOCO  3 1 OC T 3 — R? 

40  ,2434  OOOCO  1 OCT  0 -R  3 


?561  RFF  46 

0562  RFF  8 

0563  RFF  7 

0564  RFF  104 

0565  RFF  43 

0 566  RFF  1 

0567  RFF  1 

0568  RFF  1 

0569  REF  2 

0570  RFF  1 

0571  RFF  3 

0572  RFF  44 

( 573  REF  12 

0574 

0575 

0576  REF  47 

0577  RC-F  44 


LAST  40  8 
LAST  406 
LAST  407 
LAST  40  6 
LAST  407 


LAST  40  8 

LAST  408 
LAST  40  8 
LAST  407 


LAST  408 
LAST  40  8 


40, 2435 

. 

40, 2440 
40  ,2441 

40.2442 

40. 2443 

40.2444 
40,  2445 

40 . 2446 

40.2447 
40, 2450 
40  ,245  1 
40,2452 
40,  245  3 
40,2454 
40,  2455 


22  CC2  0 

3 6257  1 

7 r in  1 

10  000  0 

0 5155  0 

4 4317  1 
C 2451  0 
4 4320  0 
C 2451  0 
4 4321  1 

0 2451  0 
C 5155  0 
6 0776  1 
C CCC6  1 

1 2455  0 
0 0002  0 
C 0C01  0 


SIGNTEST  L XCH 
FAR 
MASK 
CC  S 
TC 
CS 
TC 
CS 
TC 
CS 
TC 
TC 

SGNTST1  AD 

EXTEND 

BZF 

TC 

TC 


0 

THREE 

DECORNCH 

A 

EN  DO  F JOB 
R1  D1 
SGNTST1 
R201 
SGNTST1 
R 3D  1 
SGNTST1 
END  OF  JOB 
DSPCOUNT 

+ 2 
0 


ALLOWS  +,-  ONLY  W HEN  DS  PCGUNT  = P 10  1, 

P 20 1 , OR  R3D1.  ALLOWS  CNLY  FIRST  OF 
CONSECJTIVF  +/-  CHARACTERS. 

IF  LOW 2 HITS  OF  PECRRNCH  NOT=  0,  SIGN 
FOR  THIS  WORD  ALREADY  IN.  REJECT. 


NO  MATCH  FOUNO.  SIGN  ILLEGAL 


MATCH  FOUND 
SIGN  LEGAL 


FLEAS  PLANKS  WHICH  PI  , R?  , R3  IS  CURRENT  OR  LAST  TO  HE  0 1 SPL  A YEO  ( P ER  TI NE 
NT  XR  F r » YREGtZRFC.  IS  CLEARED).  SUCCESSIVE  CLEARS  TAKE  CARE  CF  EACH  RX 
L/  RC  UNTIL  R 1 IS  DCNE.  THEN  NC  FURTHER  ACTION 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTER 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 

R05B1  THE  SINGLE  COMPONENT  LOAD  VERBS  ALLOW  ONLY  THE  SINGLE  RC  THAT  IS 
R0582  APPROPRIATE  TO  BF  CLEARFD. 


9:12  CCT.  21,1970  Z ERL  AID  .001  PAGE  409 
USFP  *S  PAGE  NO.  15  EO  S4 


105P3  CLPASS 
R3  584 
R 0 58  5 


•-G  PASSC,  CAN  BE  BACKED  UP 
♦NZ  HIPASS,  CAN  BF  BACKED  UP 
-NZ  PASSC.  , CANNOT  BE  BACKED  UP 


C58B 

9539 

0590 

0591 
9592 

0593 

0594 

05  95 
0556 
9597 

0598 

0599 
963? 
0601 
0602 
0503 
0604 
36?  5 
0604 
0607 
3 53  8 

0609 

0610 
06 1 1 
0612 
3613 

06  K 

0615 
3616 
0617 
0 4 1 8 
06 1 9 
0 620 
3621 
0622 
0623 


REF  13 
PF.F  2p 


REF  29 
RFF  105 
REF  2 
RFF  13 
REF  6 
RFF  1 


KEF  14 
REF  1 
REF  1 
REF  15 
PEF  16 
REF  2 
REF  1 
REF  3 
REF  17 
REF  1 

REF  8 
RFF  77 
REF  1 
REF  2 
PEF  18 
REF  1 
REF  7 
RFF  45 
REF  48 
RFF  1 
REF  2 
RFF  106 
REF  49 
REF  3 
REF  46 
RFF  50 


LAST 
LAST 
LAST 
I AST 
LAST 


LAST 


L AST 
LAST 
LA  ST 

LAST 

LAST 


L AST 
LAST 

L AST 
LA<T 

LAST 
LA  ST 
I AST 


LA  ST 
L AST 
LAST 
LAST 
LAST 
LA  ST 


40  9 


40  6 
4(  8 
4(  7 


409 


409 
409 
4 9 

407 
40  9 


40  7 
405 

439 

409 

439 
40  8 
40  8 

237 

439 

409 

4C7 

439 

409 


40, 2457 
40 ,2460 
40,  246  1 

43.2462 

40.2463 
40,  2464 
40  ,2465 
40,2466 
. , ,67 

43  ,2470 

40. 2471 

40.2472 

40.2473 

40. 2474 
43  ,2475 

40.2476 

43. 2477 
40 ,2  500 
40,  2 5C  1 

• 

40,2503 
4C, 2504 
40  ,2505 
40,2506 
40,  2507 
VO ,251 
40,  25  1 1 
40,2  512 
40,2513 
40,  2514 
4?  ,2515 
40,25  16 
43, 2517 
• 

40, 2521 
40,2  5?2 
40,2523 


0 2462  0 
6 4753  1 
50  000  1 
3 2317  0 
54  137  0 

1 l *0  14  1 
C 2474  1 
0 2471  1 
0 2471  1 

2 0137  l 
0 2516  1 
0 2511  0 
10  137  0 
54  137  0 
C 2516  1 
2 2566  0 
27*012  l 

2 0137  1 
54  125  0 
0 0006  1 
27'CCO  1 
0 46  16  1 

62367  1 

3 0125  1 
54  137  0 
C 2514  0 
25  *C14  3 
0 5155  0 
22  CC 2 0 
0 2527  0 
6 7760  1 
10  000  0 
0 0002  0 
C 57C6  C 
0 5155  0 
C 0002  0 


CLEAR  CCS 
AD 
TC 
AD 

INDEX 

CAF 

TS 

CCS 

TC 

TC 

TC 

CA 

TC 

TC 

CLPASHI  CCS 
TS 
TC 
CAF 
ADS 
CA 
TS 

EXTEND 

01  M 

TC 

CACR 

CA 

TS 

C LEAR  l TC 

INCR 

TC 

CLR5  LXCH 

TC 

LEGAL  T ST  AC 
CC  S 
TC 
TC 
TC 
TC 


DSPCOUNT 
ONE 
+ 2 
ONE 

INRELT  AB 
I NREL 
CLPASS 
CLPASHI 
+ 2 
+ 1 

I NREL 
LEGAL  T ST 
CLEAR1 
INPFL 
INRFL 
LEGALTST 
3 0 UB  L K +2 
PEORFT 
I NRE  I 
MI  XTEMP 

VERBREG 
BANKCALL 
IIPDATVB 
MI  XTE  MP 
INREL 
CLR5 
C LPASS 
ENOOFJOB 
0 

5BLANK  +2 
NEG2 
A 
0 

CCSHCLE 
END  OF  JOB 
0 


DO  NOT  CHANGE  DSPCCUNT  BECAUSE  MAY  LATER 
FAIL  LEGAITST. 

MUST  SET  INREL,  EVEN  FOR  HIPASS. 


+ 0 IF  Ct  PASS  IS  *0  OR  IT  IS  PASSO 


+ 3 TO  - NUMBER.  BACKS  DATA  REQUESTS. 

TEMP  STOPAGE  FOR  I NREL 
CECREMENT  VERB  AND  RE-DISPLAY 

RESTORE  I NR  El 

ONLY  I F C LPASS  IS  * OR  +0 , 

SFT  FOR  HIGHER  PASS. 

US  FS  5 BLANK  BUT  AVOICS  ITS  TC  GET  INR  EL 

LEGAL  INREL  G/  2 

ILLEGAL  INRE  L=  0 ,1 

LEGAL  INRFL  = 2 


R35-24  SPi.ANK  PLANKS  5 THAR  DISPLAY  WORD  IN  Pi,  R 2,  3 R R 3.  IT  ALSO  ZEROES  XREG , 
P 0625  YPFG  , OP  ZRFG.  PLACE  ANY  ♦ CS  PCCUNT  NUMBER  FOR  PERTINENT  PC  INTO  DSPCOUNT 
R 0626  DSPCOUNT  IS  LEFT  SET  TO  LEFT  KST  DSP  NUMB  FOR  RC  JUST  BLANKEO. 


G&P: 

L 

0627 

3S29 

0629 

0630 

3631 

063? 

0633 

06^6 

0635 

3636 

06  37 

0 6 3fl 

06  39 

0660 

066  l 

06  6? 

0663 

0666 

0665 

0666 

0667 

0669 

0 660 

065  0 

0651 

.365? 

0653 

0656 

0655 

0656 

0657 

0658 

0659 

3660 

0661 

0662 

0663 

0666 

3665 

0666 

0667 

?668 

0669 

0670 

06  71 


ASSEMBLE  REVISION  66  OF  ACC  PROGRAM  ZERLINA  BY  ZCRCASTER 


9:12  OCT.  21.  1970  ZEPLAIO  .001  PAGE  610 


PINBALL  GAME  BUTTONS  ANO  LIGHTS 


PFF 

16 

LAST 

609 

6 r ,2526 

56  776 

0 

TS 

RCF 

51 

LAST 

60  9 

60, 2525 

22  CC2 

0 

5BLANK 

LXCH 

REF 

5 

LAST 

60  8 

60,2526 

C 2313 

1 

TC 

RFF 

62 

LAST 

6C8 

60,2527 

3 6755 

1 

CAF 

REF 

19 

1 AST 

609 

60,  2530 

50  137 

1 

1 NOE  X 

RFF 

9 

L AST 

609 

60  ,?9B1 

55'OOn 

1 

TS 

REF 

20 

LAST 

6 10 

60,253? 

CC  137 

l 

INDEX 

PFF 

2 

LAST 

636 

60, 2533 

5 5 '003 

1 

TS 

REF 

6 

LAST 

608 

60  ,2536 

56  126 

1 

TS 

REF 

21 

LAST 

610 

60,  25  35 

5C  137 

1 

I NDEX 

RFF 

1 9 

LAST 

63  7 

60,2536 

6 6765 

l 

CS 

RFF 

R 

LAST 

608 

60,2537 

7 0777 

1 

MASK 

RFF 

1 

60, 2560 

7 2567 

0 

MASK 

RFF 

9 

LAST 

610 

6 3 ,2561 

56  777 

1 

TS 

REF 

22 

LAST 

61C 

60,2562 

5 C 137 

1 

INDEX 

PFF 

1 

60, 2563 

3 2557 

1 

CAF 

RFF 

2 

LAST 

606 

60  ,2566 

56  163 

0 

TS 

REF 

2 

LAST 

60  6 

60,  2565 

C 3353 

1 

TC 

RFF 

23 

LAST 

610 

60,2566 

50  137 

l 

5RLANK  1 

INDEX 

PFF 

2 

LA  ST 

609 

60,2567 

3 2562 

1 

CAF 

REF 

15 

L AST 

610 

6 C , 2550 

5 6 776 

0 

TS 

RCF 

2 

(AST 

607 

60  ,255  l 

0 2570 

l 

TC 

REF 

18 

LA  ST 

607 

60,2552 

6 6752 

1 

CS 

PFF 

16 

LAST 

6 10 

60, 2553 

26  776 

0 

AOS 

RFF 

3 

LAST 

6 10 

60  ,2556 

C 2570 

1 

TC 

R EF 

26 

LAST 

610 

60,  2555 

5 C 137 

1 

I NDEX 

REF 

2 

LAST 

63  8 

60,2556 

3 6315 

1 

CAF 

RFF 

17 

LAST 

610 

60,2557 

56  776 

0 

TS 

RFF 

65 

L AST 

608 

60, 2560 

0 0001 

0 

TC 

60  ,256  1 

000  16 

0 

S INBL ANK 

OCT 

60,2562 

C0CC5 

1 

OCT 

60,  2563 

0C006 

0 

OC  T 

60,2566 

00015 

0 

ROUPLK 

OCT 

60,  2565 

C0C11 

1 

OCT 

- . ' 

00003 

l 

OCT 

USER'S  PAGE  NC.  16  EO  S6 

OS  PCOUNT  NEEDED  FOR  BLANKSUB 

0 

GE  TINREL 

ZERO 

INREL 

VERRREG  7FP0  X,  Y,  7 REG. 

I NR  EL 

XRFGLP  -2 
CODE 

INRFL  ZERO  PERTINENT  DEC  COMP  PIT. 

B I T 7 PROTEC  T OTHEPS 

OECBRNCF 

BRNCHCON  ZERO  LOW  2 BITS. 

DECRRNCH 

INREL 

SINBLANK  -2  BLANK  ISOLATED  CHAR  SEPARATELY 

COU  NT 
ns  PI  N 
INRFL 

DOUBLK  -2 
DSPCOUNT 
2BLANK 
TWO 

3 SPCOLNT 
2BLANK 
I NRFL 

BlDl  -2 

DSPCOUNT  SET  DSPCOUNT  TO  LEFT  MOST  DSP  NUMBER 

L OF  REG.  JUST  BLANK  EC 


16  DEC  16 

5 

15  DEC  13 

11  CEC  9 


60,2567 


77776  O BRNCMCCN  OCT 


77776 


2 BL  ANK  BLANKS  TWO  THAR.  PLACE  OSP  NUMBER  OF  I EF  T CHAR  OF  THE  PAIR  INTO 
0 SPCOLNT.  THIS  NUMRFR  IS  LFFT  I A CS  PCOUNT 


PFF  1 

REF  2 
REF  23 


LAST  610 

LAST  610 
LAST  229 


60,  2 570 
60,2  571 

60.2572 

60. 2573 
60  , ? 5 7 A 

60.2575 

60. 2576 
60  ,2577 


3 C 776  1 
56  021  0 
6 2603  1 
C 0CC6  0 
50  021  1 
c7 ' 022  0 
C COO 6 1 
6 2601  1 


2 B LANK 


CA  DS  PC.  CUNT 

TS  SR 

CS  OLANKCON 

I NHI NT 
INDEX  SR 

XCH  DSPTAB 

F X TEND 
BZMF  +2 


IF  OLD  CONTENTS  NOUT  OK 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  MO.  17 


EO  S4 


0673 

0674 
D 6 75 
r 6 7*. 


REF  6 LAST  229 
REF  52  LAST  410 


40. 2600 

40.2601 
40, 26C2 
40,2603 


25*015  1 
0 0003  1 
C 00C2  0 
04000  0 


I NCR  NOUT  IF  CLO  CONTENTS  +, 

REL  INT  IF  NO  UT  OK 

TC  0 

RLANKCON  OCT  4000 


+1  TC  NOUT 


• CGI  PAGE  <*12 
63  S4 

5 677  ENTER  PASS  C IS  THE  EXFCUTE  FLNCTICN.  HIGHER  TROER  ENTERS  ARE  TO  LOAD 
R3A7H  DATA.  THE  SIGN  OF  REQRET  DETERMINES  THE  PASS,  + FOR  PASS  0,-  FOR  HIGHER 
7 6 70  PASSES. 


ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZEPLINA  BY  ZCRC ASTER 
PINBALL  GAME  BUTTCNS  AND  LIGHTS 


9:  12  CCT  . 21,  1970  ZERLAID 
USER'  S PAGE  NC.  IP 


J AR  • MACHINE  GAOr  TO  3E  SPECIFIED  (MCTBS)  NCUNS  DESTRF  AN  RCADR  TO  I?E  LOADED 
1)681  WHEN  USED  W ITH  LOAD  VP*BS,  MONITOR  V^'PS,  OR  01  SPLAy  VERBS  I C xr  E n t 

: '6R2  VERB  = FIXEO  MEMORY  DISPLAY,  WHICH  REQUIRES  AN  FCADR  ) . 


68  3 „ 

1 RFF 

068302 


2 


LAST  3 0 4 


41, 202C 
1,  2ft  f,  r 

41  ,2020 


BANK  41 
SETLO:  PINBALL2 
BANK 


36835  PEF  1 

0684  REF  1 

0685  RFF  l 

A0686 


. 1 , 2 ? 
<*1,2021 


COUNT*  St /PIN 
0 3606-  G NVSUD8  TC  NVSUB1 

C 3045  C L0ADLV1  TC  LOAOLV 


STANDARD  LEAD  INS.  DON'T  MOVE. 
END  OF  STANDARC  L E AC  INS. 


G 6 8 7 REF 
3688  RFF 
< 689  RFF 
0 690  RFF 
3691  REF 

0692  REF 

0693  REF 
06  94 

0695  REF 
3696  REF 
0697 

C 698  PEF 
3599  REF 
0700  RFF 
070  1 REF 

0702 

0703  RFF 
3 70  A REF 

0705  REF 

0706  REF 
3 737 

0708  REF 

0709  REF 
G7l 0 PEF 
0711  REF 


63  LAST  A10 
6 LAST  AO 9 
2 LAST  AO  7 
2 LAST  AO  7 
A LAST  AO  9 
1 

2 LAST  A 12 


5 LAST  A 12 


9 LAST  AC  9 
10  LAST  A10 
l C 7 LAST  A09 

2 LAST  A12 
19  LAST  A10 
1 

2 LAST  A12 

6 LAST  A 1 2 

7 LAST  A 1 2 
2 LAST  279 

8 LAST  A12 


A l,  2023 
A 1,2024 
A 1 ,2025 
41,  2026 

’ , 

A 1 , 20  30 

n , 2 31 

A 1,2 032 
41,  2'J33 
A 1 , 203A 
A 1 ,2035 
Al,  2036 
41  ,2 037 
41,2940 
4 1,  20  A 1 
41  ,2042 
Al,  2C A 3 
41,2044 
Al  ,2  :45 
Al,  2 046 
Al  ,2047 
41,2050 
41,  2051 
Al  ,205  2 


3 4217  1 
54  136  1 
1 1 ■ C 1 2 1 

0 2062  1 
C 2C62  1 

0 2032  1 
3 2060  0 

6 l C 1 2 0 
C 0006  1 

1 20A7  1 
3 t 2 5 7 1 

7 0777  1 
10  000  0 
0 204  3 1 
0 2047  0 
1C  776  0 
0 2053  0 
C 2053  0 
C 2C47  0 
A 1012  1 
5 5 ' 01 2 I 
0 A A 33  1 
0 1012  0 


ENTER  CAE  ZERO 

TS  C L PASS 

CAF  ENDINST 

TS  FNTPFT 

CCS  REQRET 

TC  ENTPASO 

TC  F NT  PASO 

TC  ♦ l 

ENT PAS  HI  CAF  MMADREF 

AD  RFQRC-T 

EXTEND 

RZF  ACCEPTW  D 

CAF  THREE 

MASK  DECBRNC  H 

CCS  A 

TC  +2 

TC  ACCEPTWD 

CCS  DSPCOUNT 

TC  L T 5 

TC  LT  5 

TC  +1 

ACCEPTWD  CS  REQRET 

TS  REQRET 

TC  c LA  SHOFF 

TC  REQRET 


IF  +,  PASS  0 
IF  +,  PASS  0 
IF  -,  NOT  PASS  0 

IF  L/  2 CHAR  IN  FOR  MM  CODE,  ALARM 
AND  RFCYCLEIDFCIDE  AT  MMCHANG  + 1 ) . 

IF  DEC,  L/5  CHAR  IN  FOR  DATA  MUST  BE 
SCALED  (DECEND);  IF  5 CHAP  IN,  DATA 
HAS  ALREADY  BEEN  SCALED.  ANY  NUMBER 
CF  DECIMAL  CHARACTERS  APE  ACCFPT  ABL  E .S  CR 
OCTAL.  ANY  NUMBER  OF  CHAR  OK. 


5 CHAR  IN  (OSPCGUNT  IS  -) 

6 CHAR  I N ( DSPCOUNT  I S -I 

SET  REQRET  +. 


RFF 

RFF 


LAST 
LAST 
LAST 
L AST 


496 
409 
40  5 


A 1 , 20  6 3 
Al  , 2054 
Al  ,2055 
Al,  2056 


54  154  0 
0 4616  1 
60254  1 


L T 5 


CAF  ZERO 

TS  MP AC 

TC  BANKCALL 

f.  ADR  DECEND  +4 


GAP:  ASSEMBLE  REVISION  56  Of-  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L PINBALL  GAME  BUTTONS  AND  LICHTS 


07113 

RFF 

3 

LA  ST 

A12 

Al  ,2057 

0 2 047 

0 

TC 

ACCEPTW  D 

0 712 

REF 

3 

L AST 

A 1 2 

0 136 

EN  TE  XI  T 

= 

ENTRE  T 

0713 

REF 

1 

Al  ,2060 

03A71 

0 

MM ADREF 

ADR  ES 

MMCHANG  h 

D 7 1 A 

Al,  2C61 

0CC3A 

0 

LOWVERB 

DEC 

? 8 

0715 

REF 

65 

LAST 

A12 

A 1,2062 

3 A755 

1 

ENTPASO 

CAF 

ZERO 

0 716 

REF 

11 

L A ST 

A 1 2 

Al  ,2063 

5 A 777 

1 

TS 

DECBRNCH 

0 7 17 

REF 

3 

l AST 

AO  7 

Al,  206A 

A A 360 

1 

CS 

VD 1 

071  a 

RFF 

20 

LAST 

A 1 2 

>1  ,2065 

54  776 

c 

TS 

DSPCOUNT 

071° 

P FF 

10 

1 A ST 

A10 

A 1 , 2 0 6 6 

A 10C0 

1 

TE  STV8 

CS 

VERBREC 

0720 

REF 

1 

A 1, 2067 

55 '040 

0 

TS 

VERR  SA  VE 

0721 

RFF 

1 

Al  ,20  70 

6 2061 

1 

AD 

LOW  VERB 

D72? 

Al, 2C  7 1 

C OCC 6 

1 

EXTEND 

072  3 

RFF 

1 

A 1 , 20  72 

6 2160 

l 

BZMF 

VFRRFAN 

07  2 A 

Al  ,2 C 73 

G 0006 

1 

TEST  NN 

EXT  END 

3 725 

RFF 

1 

A 1 , 2 C74 

2 2 1 A 1 

1 

f)CA 

LODNNLCC 

7 

0726 

REF 

3 

LAST 

310 

Al  ,207^ 

52  006 

0 

OXCH 

0727 

RFF 

3 

LAST 

309 

Al ,2076 

50  1 AO 

1 

INDEX 

MIX0R 

072  8 

A 1,  2077 

C 2C77 

0 

TC 

+ 0 

0729 

Al  ,2100 

0 2102 

0 

TC 

+ 2 

D 7 3D 

P EF 

1 

A 1 , ? 1 C l 

C 22A6 

c 

TC 

Ml  XNCUN 

0731 

RFF 

LAST 

3D9 

Al,  210? 

10  146 

0 

CCS 

NNADTE  M 

0732 

REF 

2 

LAST 

A1  3 

Al  ,2103 

0 2156 

1 

TC 

VERBFAN  - 

3733 

RFF 

1 

Al,  21CA 

C 2AC0 

1 

TC 

GODSPALM 

0734 

REF 

1 

Al  ,2105 

0 2 111 

1 

TC 

REQADD 

0 7 35 

P FF 

1 

Al  ,2106 

25*016 

l 

I NCR 

NOUNCADR 

■ 736 

RFF 

1 

A 1,  2107 

0 A 3 1 1 

0 

TC 

S:  TNADD 

■■737 

REF 

1 

A 1,2110 

0 21A5 

0 

TC 

INTMCTRS 

3 7 35 

REF 

22 

LAST 

299 

Al,  2111 

3 A 73  5 

1 

REQADD 

CAF 

BI  T15 

0739 

RFF 

9 

LAST 

A 1 2 

A 1 , 2 1 1 2 

55  »C1A 

1 

TS 

: lpa  ss 

07  AO 

RFF 

3 

LAST 

Al  2 

A 1 , 2 1 1 3 

A A217 

0 

CS 

END  INST 

D 7 A l 

RFF 

1 

Al,  21  1A 

6 0136 

0 

AD 

ENTEXI  T 

07A2 

Al  ,2115 

0 OOC  6 

1 

EXTEND 

- 743 

A 1 , 2 1 16 

l 2120 

1 

BZF 

+2 

07  A'. 

REF 

2 

L AST 

A 1 3 

A 1,  2 1 17 

0 2143 

0 

TC 

I NTMC  TB  S 

07A5 

RFF 

1 

Al  ,2120 

0 2336 

0 

TC 

R EQDAT  7 

3 7A6 

REF 

12 

LAST 

Al  3 

Al, 2121 

1C  777 

1 

CCS 

DECBRNCH 

07^7 

RFF 

1 

Al ,212? 

0 A1A5 

0 

TC 

A L MC  YC  L E 

07A8 

REF 

A 

LAST 

A 1 3 

Al  ,2123 

A 4360 

1 

CS 

V D 1 

37A9 

REF 

21 

L AST 

All 

A 1,  2 12A 

5 A 776 

0 

TS 

DSPCOUNT 

0750 

REF 

3 

LAST 

A03 

Al  ,2125 

11  '041 

1 

CCS 

CADR  STOP 

0751 

Al  ,2126 

0 2131 

0 

TC 

♦3 

0752 

REF 

1 

Al,  2127 

C 2132 

0 

TC 

USFADD 

0753 

A 1 ,2130 

0 2131 

0 

TC 

♦ 1 

375A 

RFF 

l 

A l,  2 131 

C AA27 

1 

TC 

F L ASH CN 

0755 

RFF 

1 

A 1, 2 l 32 

5 7 1 004 

1 

USEADD 

XCH 

Z REG 

0 756 

REF 

1 

Al  ,2133 

0 4303 

0 

TC 

SET  MCA  DR 

D757 

Al,  213a 

C 0C06 

1 

E X TE  ND 
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ASSUMES  TC  REDMM  AT  MMCHAN3. 


LOWER  VEPB  THAT  AVOIDS  NOUN  TFST. 

NOUN  VERB  SUB  ENTERS  HERE 

8LGCK  FURTHER  MUM  CHAR,  SO  THAT  STRAY 
CHAR  DO  NOT  SET  INTO  VERB  OR  NOUN  LT S 
IF  VERB  IS  G/E  LOWVB,  SKIP  NOUN  TEST. 
SAVE  VERB  FOR  POSSIBLE  RECYCLE. 
LOWVERB  - VB 

VEP  B G/E  LOWVE RB 
VERB  L/  LOWVERB 

SWITCH  RANKS  TO  NOUN  TABLE  READING 
ROUTI  NE. 


NORMAL 
MIX  ED 
NORMAL 

NORMAL  IF  + 

NOT  IN  USE  IF  +0 

SPECIFY  MACHINE  CADR  IF  - 

AUGMENT  MACHINE  CADR  IF  -0 

ECADR  FROM  NOUNCADR.  SETS  EB,  NOJNAOU. 

SET  CL  PASS  FOR  PASSC  ONLY 

TFST  IF  REACHED  HERE  FROM  INTERNAL  OR 
FROM  EXTERNAL 

EXTERNAL  MACH  CAOP  TO  RF  SPFCIFIEO 

FXTERNAL  MACH  CADR  TO  BE  SPECIFIED 
ALARM  AND  RECYCLE  IF  DECIMAL  USED 
FOR  MCTBS. 

OCTAL  USED  OK 
BLOCK  NUM  CHAR  IN 

EXTERNAL  MCTBS  DISPLAY  WIIL  LEAVE  FLASH 
ON  IF  ENDIDLF  NOT  = +0  . 


ECAOR  INTO  NOUNCADR.  SET  FB,  NOUNADD. 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZEPLINA  BY  ZOROASTER 


L PINBALL  GAPE  EUTTCNS  ANT  LIGHTS 


1758  RFF 
j 759  PFF 
0760  REF 


2 LAST 
4 LAST 

3 LAST 


41  ,2137 


3 2151 
c2  CC6 
0 2160 


OCA  LOONNLOC 

DXCH  Z 
TC  VERDEAN 


'761 

762 


P EF  2 2 LAST 
PFF  1 


RFF 


41  ,2141 


E BA  NK  = OS  FC CUNT 
0?  1 C 1 0 LOONNIOC  2CA0R  LOONNTAR 
64101  0 


3763 


41,2142  77772  0 NEG  5 OCT  77772 


0764 
765 
< 766 
1 1 76  7 
3 76  8 
1 1 760 
'770 
3771 
J772 
.3  77  3 
0774 


REF 
RFF 
R C F 
RFF 

REF 

PFF 

RFF 

RFF 

REF 

REF 


LAST 
LA  ST 
L AST 
LAST 


413 

38  1 
41  3 

4 1 4 

40  8 
4 1 4 

41  3 


,2143 
,2  144 
, ? 145 
,2146 
, 2147 
, 2 1 50 
,2151 
,2  152 
,2153 
,2  154 
,2155 


3 156  ' 

C 43C3  0 

4 4756  0 

6 1000  0 
C QC06  1 
1 2160  0 
3 4321  0 
54  776  0 
3 11'  1 

0 3435  0 
0 2 IfcO  1 


1NTMCT9S  C A 


E XTEND 

RZF 

CAF 


M P AC  * 
SETNCAOP 
F I VE 
V ERBREG 

VERRFAN 

R3D1 

0 S PC  CUN  T 
NOUNCADR 
DSPOCTWD 
VERBFAN 


0775  RFF  30 

3 7 7''  RFF  3 

0777  RFF  1 

1778  RFF  12 

3779  REF  108 

0780  RFF  31 

0781 

0782  REF  1 

' 783  P EF  98 
3784  REF  4 

0785  REF  19 

0786  REF  1 

3788 


LAST  409 
I A S T 4 14 

LAST  414 
I AST  412 
I AST  414 


LAST  414 
LAST  240 
LAST  434 


,2156 
,2  157 
,2160 
,2161 
, 2 Tfc 2 
,2163 
,2  164 
,2165 
,2166 
, 2167 
,2170 
,21  71 
,2  172 


6 4753  1 
C 4303  0 
4 2172  0 
6 1000  0 
1C  COO  0 
6 4753  l 
C 2166  1 
0 21730 
54  154  0 
0 4457  0 
0 4635  0 
66000  1 
CCC50  1 


VFRBFAN  CS 


ONE 

SETNCAOR 
L S T2C  ON 
V ERBREG 
A 

ONE 

+2 

V9  F A ND I P 
MP  AC 
RELDSP 
POST  JUMP 
GOEXTVR 
40 


0790 

0791 
079? 


REF  13  LAST  414 
RFF  1 

REF  2 LAST  2 77 


41  ,2173 
4 1,2 174 
4 1,  2 175 


51  *000  0 
3 2176  0 
0 4640  1 


V BFAND  IR 


INDEX 

CAF 

TC 


VERBREG 
VERBT  AB 
BA  NK JUMP 


0793 
3 794 

0795 

0796 
3797 
0798 

1 799 
0800 
0801 
393? 


PFF 
R EF 
RFF 
RFF 
RFF 
RFF 
P FF 
REF 
RFF 
REF 


LAST 


LAST 
I AST 


41  3 


414 

414 


41.2176  62400  1 

41.2177  62414  1 

41.2200  62422  1 

41.2201  62427  1 

4 1,  ?2o2  62407  0 

41  ,2203  62402  0 

4 1 , 2 2 C 4 62  5 c2  1 

41,  2205  61026  1 

41,2206  62400  1 

41,  22C7  62400  1 


VFPRT  A8 


CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CACR 

CADT 

CACR 

CADR 


GODS  PALM 
DSPA 
3 SPB 
DS  PC 
D SPAB 
DSPABC 
DECDSP 
3 SP3PDEC 
GODS  PALM 
GODS  PALM 
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SWITCH  BANS S TO  NOUN  TABLE  READING 
POUTI NE. 


INTERNAL  MACH  CAPR  TO  RF  SPFCIPIFO. 
ECAPR  INTO  NOUN CADR  • SET  FR,  NOUNADD. 
NVSUB  CALL  LEFT  CACP  IN  MPAC+2  FUR  MACH 
CADR  TO  BE  SPECIFIED. 

DON'T  DISPLAY  C ADR  IF  VB  = 05. 

V 8 NOT  = 05.  DISPLAY  CACR. 


FC  APR  INTO  NO'JNCADR  • SETS  EP,  NOUNADD. 

VERB-LST  2C0N 

VERB  G/  LST2C0N 

VE  PR  L/  LST2C0N 

RELEASE  DISPLAY  SYST 

GO  TO  30EXTVB  WITH  VR-4C  IN  MPAC. 

FIRST  LIST?  VERB  1 EXT  ENDED  V ER  R J 


VBOO  ILLEGAL 

VB0 1 DISPLAY  OCT  CCMP  1 (Rl> 

VB  02  DISPLAY  OCT  CCMP  2 C R 1 > 

V BO  3 DISPLAY  OCT  COMP  3 (Rl) 

VB04  DISPLAY  QCT  CCMP  1,2  (R1.R2  1 

V805  DISPLAY  OCT  COMP  1,2,3  (R1,R2,P3) 

VBf  6 CECIMAL  OISPL  AY 

VB07  DP  DECIMAL  DISPLAY  IR1.R21 

V BO  8 SPARE 

VB09  SPARE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PR  OGRAM  ZERLINA  BY  ZOROASTER 


L PINBALL  GAP F EUTTCNS  AND  l IGFTS 


0 80  3 PEF 
D804  REF 

0805  REF 

0806  RFF 

0807  REF 

0808  REF 
383P  REF 

0810  RFF 

0811  RFF 
381?  RFF 
0813  REF 
00 l A REF 

0815  REF 

0816  RFF 
3817  REF 
0818  REF 
0 8 1 R PFF 
3823  REF 

A 0 821 

0822  RFF 

0823  RFF 

0824  PEF 
03?*  REF 
0826  RFF 
‘827  REF 
3329  RFF 
1829  PFF 

0830  RFF 

0831  RFF 

0832  RFF 
3933  REF 


2 

3 


LAST  415 
LAST  415 
LAST  415 
LAST  415 
LAST  415 
LAST  4 1 5 
LAST  414 
LAST  415 
LAST  415 


LAST  415 


41,2210  61451  0 

41,  2211  6 3 3C  2 0 

41  ,2212  63302  0 

41,2213  A 3302  0 

4 1,  22  14  63302  0 

41,2215  63302  0 

4 1,  2216  63302  0 

41,2217  63302  0 

41,2220  62400  1 

41,  222  1 62400  1 

41  ,2222  62400  1 

4)  ,2223  63002  0 

41,  2224  63013  0 

41  ,2225  63030  1 

4 1,  2226  62753  1 

41,2227  62647  0 

41.2230  6240C  1 

41.2231  6 3428  1 


CAOR  DS  PAL  ARM 
CADR  MOM  TGR 
CAOR  MONITOR 
CAOR  MONITOR 
CADR  MONITOR 
CAOR  MONITOR 
CADR  MONITOR 
CADR  MONITOR 
CADR  GODS  PALM 
CADR  GODS PALM 
CADR  GDDSPALM 
CACR  ALOAC 
CADR  3 LOAD 
CADR  CLOAD 
CADR  AB  LOAD 
CADR  ABC  LOAD 
CADR  GODS  PALM 
CADR  DSPFMEM 


° LAST  415 

10  LAST  4 15 

1 

1 

1 

1 

1 

1 

1 

2 LAST  413 

11  LAST  415 

12  LAST  415 


41  ,2232 
41, 2233 
41  ,2  334 
4 1,  2 235 
41,??36 
41  ,2237 
41,  2240 
41  ,2241 
4 1,2242 
4 1,  2243 
4 1 ,2244 
41,  2 26  5 


62400  1 
62600  1 

63526  0 REQEXLOC 

63552  0 

61516  1 

61473  0 

61501  1 

63653  1 

12464  1 

63470  1 

62400  1 

62400  1 


CADR  GOOSPALM 
CAOR  30DSPALM 
CADR  VBRQFXEC 
CADR  V8RQWAIT 
CADR  VBRCSEQ 
CADR  VBPROC 
CADR  VBTERM 
CADR  VBTSTITS 
CAOR  S L API 
CADR  MMCHANG 
CADR  GDDSPALM 
CADR  GODS  PALM 


R 083  i 


THF  LIST?  VEP3FAN  IS  LOCATED  IN  THF  EXTENDED  VERB  B AN< 
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V B 1 0 SPARE 

VB11  MONITOR  OCT  CCMP  1 (Rl) 

V8  12  MONITOR  OCT  CCMP  2 (PI) 

V B 1 3 MONITOR  OCT  COMP  3 (Rl) 

VR14  MONITOR  OCT  CCMP  1,2  (R1,R2> 

VB  15  MON  I TOR  OC  T COMP  1 ,2 ,3  ( Kl  ,R2  ,R3 ) 

V Rl  6 MONITOR  OECIMAI 

VB  1 7 MONITOR  DP  DEC  ( Rl  , R2  ) 

VB18  SPARE 
VBl  9 SPARE 
VR20  SPARE 

VB21  LOAD  COMP  1 (Rl) 

VB22  LOAD  COMP  2 ( R2  ) 

VB  2 3 LOAD  COMP  3 (R3) 

V 02  4 LOAD  COMP  1,2  (Rl,R2) 

VB25  LOAD  COMP  1,2,3  (P1,R2,R31 
VB26  SPARE 

V R? 7 FIXED  MEMORY  DISPLAY 
THE  FOLLOWING  VFPBS  MAKE  NO  NOUN  TEST 
VB28  SPARE 
VB29  SPARE 

VB  30  REQUEST  EXEC  UTI  VE 

V 83  1 REQUEST  WAITL  1ST 
VB32  RESEQUENCE 

VR3 3 PROCEED  WITHOUT  DATA 

VB3 4 TEPMINATE  CURRENT  TEST  OR  LOAD  R EQ 

VB  3 5 TEST  LIGHTS 

VR36  FRESH  START 

VB37  CHANGE  MAJCR  MODE 

VB  38  SPARE 

V B3  Q SPARE 


ASSEMBLE  REVISION  56  OF  AGC  PRC GR AM  ZERLINA  BY  ZOROASTE& 
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PINBALL  GAMF  BUTTONS  ANO  LIGHTS 


USER'S  PAGE  NO.  22 


EC  S* 


P «3S  NNADTAB  CONTAINS  A RELATIVE  ACCPFSS,  I DADDRFL  I IN  LOR  1C  BITS),  REFERRING 
* 836  T r WHfpt  3 CONSErLTIVc  AOORESSES  A*5  E STrRFC  (IN  IDADDTA8). 

H-B37  VIXNCUN  GETS  CATA  ANO  STORES  IN  MI  XTEMP  ,+  1 ,♦  2.  IT  SETS  NOUNAOO  FCR 
R083R  VIXTFWP. 


'■  R 30  p EF 

08*0 

08*1  REF 

09*2 

08*3 

08**  PFF 
38*5  RFF 

08*6 

08*7 

08*9  REF 
08*0  REF 
3953  PFF 

085 1 RFF 

0852  REF 
3853  REF 
085*  REF 

855  PFF 
40855 
A -85  7 
3858  REF 

0859  REF 

0860  REF 
3361  REF 
0862  REF 
3863  REF 
086*  REF 
0865  RFF 
3866 

••867  RFF 
0 868 

3869  RFF 

0870  REF 

0871  REF 


* LAST  *13 
13  LAST  *15 

9 LAST  28* 
l*  LAST  *1* 


6 LAST  *1* 
19  | A ST  *10 

l 
1 


2 LAST  *16 
2 LAST  309 
1 


1 

2 LAST  *16 

3 LAST  *16 
3 LAST  163 
1 

109  LAST  *1* 

2 LAST  *16 

3 LAST  *16 
l 

7 LAST  *16 


*1,22*6  10  _1  * 6 0 MT  XNCIJN  CCS 


*1,2  2*7  C 22  0 1 TC 

*1  ,2250  0 2*00  1 TC 

*1,  2251  C 2253  1 TC 

*1,2252  C 2253  1 TC 

*1,2253  * 625*  0 CS 

*1, 225*  6 10C0  0 AO 

*1  ,2255  0 0006  1 EXTEND 

*1  , 7256  6 2260  1 BZMF 

*1,  2257  0 2 IfcO  1 TC 

*1,2263  3 *752  0 CAF 

* 1,  226  1 c. 1 117  1 MI  XNN1  TS 

*1,2262  6 2305  0 AO 

*1  ,2263  5*  1*5  O TS 

*1,  226*  50  117  0 I NOE  X 

*1  ,2265  3 0150  0 CA 

41,2266  5*  122  1 TS 


NNAOTEM 
+ 4 

GODSPALM 
*2 
* 1 
S IX 

VERBREG 


+2 

VERBFAN 

TWO 

OF  C RUNT 
MI  XAO 
NOUNAOO 
OECOUNT 
I DAO  ITEM 
NOUNT  EM 


*1,  2267  C 3 1 C*  l 
*1,2270  0 2306  0 

*1  ,2271  C 22  73  0 
*1,  2272  2*  122  0 

*1  ,2273  3 0122  0 Ml 

*1  ,227*  7 *356  1 

*1,  2275  0 42  13  1 

*1  ,2276  50  000  1 

41, 2277  3 CCOO  1 

*1,?  300  50  1*5  l 

*1  ,2301  56  000  1 

* 1 , 2 3 C 2 1C  117  1 
*1  ,2303  0 2261  0 

*1  ,230*  0 2160  1 


TC  SF  RUT  MIX 

TC  DPTEST 

TC  MIXNN2 

I NCR  NOUNTEM 

INN2  CA  NOUNTEM 

MASK  L OWl 1 

TC  SETEBANK 

INDEX  A 

CA  0 

INDEX  NOUNAOO 

XCH  0 

CCS  OECOUNT 

TC  MIXNN1 

TC  VERBFAN 


+ IN  USE 
+ p NOT  IN  USE 
- IN  JSE 
-0  IN  USF 


VERB  L/E  6 

AVCIO  MIXNCUN  SWAP  IF  V8  NOT  = DISPLAY 


SET  NOUNAOO  TO  MIXTFMP  + K 

GET  IOAODTAB  ENTRY  FCP  COMPONENT  K 

or  NOUN. 

TEST  FOR  OP  (FOR  OCT  DISPLAY).  IF  SO,  GET 
MINOR  PAR  T ONL Y. 

GET  SF  ROUT  NUMBER  IN  A 

NO  DP 

OP  GET  MINOR  PART 

ESURK  (NO  OP)  OR  ( E SURK  ) + 1 FOR  OP 

SET  FRANK,  LEAVE  EAORES  IN  A. 

PICK  UP  C(ESUBK)  NOT  DP 

OR  Cl  ( ES  U 9K  ) + 1 ) FOR  OP  MINOR  PART 

STORE  IN  MIXTEM  + K 


0872  PFF 


LAST  *39  *1,2305 


0 12  5 1 M I XA  0 


TC 


MI  XTF  MP 


R 0873  DPTEST 
R 3 8 7 * 

R0875 


ENTER  WI  TH  SF  ROUT  N L M 8 F R IN  A. 
RETURNS  T(1  LM  IF  NO  OP. 

RETURNS  TC  L +2  IF  DP. 


1 1 fl  7 6 
3 877 
0878 
0979 


REF  110  LAST  *16 

REF  53  LAST  *11 
RFF  5*  LAST  416 


*1  ,2306  50  000  1 

*1,  ?3C7  1 2310  0 

<♦1  ,2310  0 0002  0 

*1,  7311  C C002  0 


DPTEST 


INCEX  A 

TC  F +1 

TC  0 

TC  0 


OCTAL  ONLY  NO  OP 
FRACT  NO  DP 
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417 


0880 
DBR1 
08B2 
0883 
3 884 
0RB5 
9886 


0887 

0888 
3888  1 
08882 
3 888  3 
38  8 8 4 
0888  5 
0 889 
0890 


REF 

REF 

RFF 

REF 

RFF 

REF 

RFF 

RFF 

REF 

REF 

REF 

RFF 

REF 


60 

61 

62 

69 

64 

65 


LAST  417 
I AST  4 1 7 
LAST  417 
LAST  417 
LAST  4 1 7 
LAST  417 
LAST  417 
LAST  417 
LAST  417 
LAST  417 
LAST  417 
LAST  417 


4 1,  2 313 

41.2314 

41.2315 

4 1 . 2316 
41  ,2317 
4 1,2120 
4 1,  232  1 
41  ,2322 
4 1,  2323 
41,2324 
41  ,2  12  5 
4 1,  2326 
41  ,2  327 
4 1 » 2 3 2 u 
4 1,  233  1 


0 0002  0 
C CCC2  0 
1 2330  1 
1 2330  1 
G 0 002  0 
1 2330  1 
C 0CC2  0 
0 0002  0 
1 2330  1 
C CCC?  0 
0 0002  0 
0 0002  0 
0 0002  0 
0 0002  0 
5C  GC2  0 
r oooi  o 


TC  0 DEG  NO  DP 

TC  0 ARITH  NO  DP 

TC F DP  TE  ST  1 OPIOUT 

TCF  DPTEST1  DP20UT 

TC  0 LR  PCS  OUT  NO  OP  (DATA  IN  CHANNEL  33) 

TCF  DP  TE  ST  1 DP30UT 

TC  Q HMS  NO  DP 

TC  0 M/S  NO  DP 

TCF  DPTEST1  DP40UT 

TC  0 ARITHl  MO  DP 

TC  0 21 N TOUT  NO  DP  TO  GF  T HI  PART  IN  MPAC 

TC  0 360-CDJ  NO  OP 

TC  0 RRANG OUT  NO  OP 

TC  0 RRDOTOUT  NO  OP 

DPTEST1  INDEX  Q 

TC  1 RETURN  TO  L+2 


0891 
139? 
0893 
0 894 
D899 

0896 

0897 

0898 

0899 
D9DD 

0901 

0902 


RFF  3 
REF  1 
RFF  2 
RFF  2 
RFF  3 
REF  24 
REF  66 
REF  Q 
RFF  7° 
RFF  ? 
RFF  ? 
REF  2 


LAST  410 

LAST 
LAST 
I AST 
LAST 
LA  ST 
LAST 
LAST 
l AS! 

LAST 
LA  ST 


4 l,  2 323 
41,2334 
41  ,2  335 
4 1,  2 3 36 
41  ,2337 
4 1,2340 
41,  234  1 
41  ,2342 
41,  2343 
41,2344 
41  ,2345 


3 4317  0 
1 2337  0 
3 4 320  1 
1 2337  0 

3 4321  0 
54  776  0 

4 CC02  1 
' 1 ' 

0 4616  1 
6C525  0 
0 4427  1 
0 0136  0 


408 

417 
4 1 4 
414 
417 
412 

412 

4<  9 

413 
41  3 


RECDATX  CAF  R101 

TCF  REQCOM 

REQDATY  CAF  R 2D  1 

TCF  RFQCOM 

RE00AT7  CAF  R 3d  1 

REQCOM  TS  DSPCOUNT 

CS  0 

TS  RF  ORE  T 

TC  BANKCALL 

CADR  5BLANK 

TC  FLASHON 

ENDRQD AT  TC  FNT  EX  IT 


D 93 3 RFF 
0904  RFF 
0005  REF 
0906 

C 907  REF 
D9D3  REF 

0909  RFF 

0910  RFF 
3911  REF 
<912  RTF 
0913  REF 
09l  4 RFF 
0915  RFF 
3916  RFF 

0917  RFF 

0918  RFF 


3 LAST  414 
5 LAST  414 
5 LAST  416 
3?  LAST  414 
1 

2 LAST  417 

3 LAST  417 

4 LAST  414 
3 LAST  40  7 

25  LAST  417 
9 LAST  417 


4 1,  2346 
41  ,>347 
4 1,  2350 

4 1,  2351 

41  ,2352 
41,  2353 
41  ,2354 
41  ,2355 
41,  2356 
41  ,2357 
4 1,  2 36r 
4 1,  236  1 
41,2362 
4 1,  2363 

41.2364 

41 .2365 


' 

56  002  0 

54  117  L 

0 0CC6  1 
3 2141  1 
52  CC6  0 
10  146  0 
6 4753  1 

1 2361  0 
1 2362  0 
1 2362  0 

0 4 30  3 0 
3 4361  1 
54  776  C 
3 1001  l 

1 2374  l 


U P C AT  NN 


TS 

XCF 

TS 

EX  TEND 
dca 
n xch 

CCS 

AD 

TCF 

TCF 

TCF 

TC 

CAF 

TS 

CA 

TCF 


NOUNRFG 

Q 

UPDATPET 

L ODNNLOC 
Z 

NN AD  TEM 
ONE 

PUTADD 
PUTADD  +1 
PUTADD  *1 

SE  TNCADR 
ND1 

DSPCOUNT 

NOUNREG 

JPDAT1 


SWITCH  BANKS  TO  NO  LN  TABLE  READING 
ROUTINE. 

NORMAL 

MCTBS  DflNT  CHANGE  NOUNADD 
MCTBI  DONT  CHANGE  NOIJNAOD 
ECADR  INTO  NOUNCAPR.  SETS  ER,  NOJNADD. 


0919 

0920 


REF  15  LAST  4 1 6 
RFF  68  LAST  417 


4 1,  2366 
41  ,2367 


55'OCO  1 TS 

56  G02  0 UPDATV8  XCF 


VERRREG 

0 
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0921 

09 22 
) 923 
09?  9 
f 9 25 
:-9  2b 
0927 


PCF 
P FF 
REF 
PFF 
FFF 
OFF 
REF 


2 LAST 
5 LAST 

26  LAST 
16  LAST 
20  LAST 
1 

3 L AST 


9l7  1,  2370 

913  91,2  371 

917  9 1,  2372 

917  91,2373 

919  91,2179 

91, 2375 

91  8 91  ,2376 


59  117  1 
3 9360  0 
£9  776  0 
3 10CC  0 

0 9635  0 IJPDAT1 
61350  O 
0 0117  0 


TS  UPOATRET 

CAF  VD1 

TS  DS  PC OUNT 

CA  VFRBREG 

TC  POSTJUMP 

CAOR  GOVNUPDT 

TC  UPOATRET 


0928 

092  9 
0930 


REF  2 l A ST  913 

RFF  21  LAST  918 
RL'F  2 LAST  915 


91,2377 

91,2900 
91  ,2901 


C 9195  C GFIALMCYC  TC 

0 9635  0 GHDSPALM  TC 
61951  0 CADR 


ALMCYCIE 

POSTJIJMP 
DS  PAL  ARM 
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EO  S9 


CAM  T USE  SWCALL  TO  GO  TO  0 SPDE  C VN  , SI  MCE 
UPOATVR  CAM  ITSELF  BE  CALLED  BY  SWCALL. 


N EF  CEO  BECAUSE  BANK  J UMP  CANT  HANDLE  F /F  . 
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PAGE 


.001 


4 1 9 


I PINBALL  GAME  BIJTTCNS  ANO  LIGhTS 


USER  • S PAGE  NC.  25 


EO  S4 


P0931  NOLN  TABLES 

1*0932  NOUN  CORE  L/40  , NORMAL  NOUN  CASE.  NOUN  CODE  G /E  40,  MIXED  NOUN  CASE. 

10931  FOP  NORMAL  CASE,  NNAD TAB  CONTAINS  ONE  ECAOR  FOR  EACH  NOUN. 

RD9’4  +i  INDICATES  NOUN  NOT  USED.  - ENTRY  INDICATES  MACHINE  CAORIE  CP  P>  TC 

R 093  5 BE  SPECTFIED.  -1  INDICATFS  CHANNEL  TO  BE  SPECIFIED.  -0  INDICATES  AUGMENT 

10936  OF  LAST  MACHINE  SADR  SUPPLIED. 


P 1 9 3 7 FOR  MIX  EC  CASF,  NNADT  A 8 CONTAINS  ONE  INDIRECT  ADORE  SSI  I DA  DDRE  L ) IN  LOW 

*0938  10  BITS,  AND  THE  CCMRCNENT  CCOF  NUMBER  IN  THE  HIGH  5 BITS. 


R 19  39  NNTYPTAB  IS  A PACKED  TABLE  DF  THE  FORM  MMMMMNNNNNPPPPP. 


R 094  FOR  THF  NORMAL  CASE,  M-S  ARE  THE  COMPONENT  COOE  NUMBER. 
*0941  N-S  ARE  THE  SF  ROUTINE  CODE  NUMBER. 


RO  942 


P-S  ARF  THE  SF  CONSTANT  CODE  NUMBER. 


R 0943 

R 09*,*. 

R0945 
* 0946 
RD947 
R 094  B 


MI  XED 


CASF.M-S  APE  THF  SF  CCNSTANT3  CODE  NUMBER 
N-S  ARE  THE  SF  CONSTANT?  CODE  NUMBER 
P-S  ARE  THE  SF  CONST  ANTI  CODE  NUMBER 

N-S  ARE  THE  SF  C C N ST  ANT2  CODE  NUMBER 

P-S  ARE  THE  SF  CON  STAN  T 1 CODE  NLMBFR 

P-S  ARE  THE  SF  CONST  AMT  l CODE  NUMBER 


3 COMPONENT  CASE 


2 COMPONENT  CASE 
1 COMPONENT  CASF 


R 0949  THFRF  IS  ALSO  AN  INDIRECT  ADORESS  T AB  LE  ( I D ADDT  AR ) FOR  MIXED  CASE  ONLY. 

RD9  5'1  EACH  ENTRY  CONTAINS  ONE  FCADR  . IDADDREL  IS  THE  RELATIVE  ADDRESS  OT 

*0951  THE  FIRST  OF  THESE  ENTRIES. 

R 0 9 5 2 THEPE  IS  ONE  ENTRY  IN  THIS  TABLE  FOR  EACH  COMPONENT  OF  A MIXED  NCUN 

R0953  THEY  ARE  LIST  ED  IN  ORDER  OF  ASCENDING  K. 


*0954  THERE  ! S ALSO  A SCALE  FACTOR  RCLTI  NE  NUNBFR  TABLE!  RUT  MX  T AB  ) FOR  MIXED 

RD955  CASF  ONLY.  THERE  IS  ON  F FNTRY  PER  MIXED  NOUN.  THF  FORM  IS, 

R C 95  6 CCCCQRFRRRSSSSS 

RC957  0-S  ARE  THE  SF  ROUTINE  3 CODE  N'LMBER  3 COMPONENT  CASE 

R095B  P-S  ARE  THE  SF  ROUTINE  2 CODE  NUMBER 

*C9BQ  S-  S APF  THF  SF  ROUTINE  1 CCOE  NUMBER 

R 39 6 ' R-S  ARE  THE  SF  ROUTINF  2 CODE  NUMBER  2 COMPONENT  CASE 

R C‘96 1 S-S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 


° 6 2 IN  OCTAL  DISPIAY  AND  LOAD  ( CC  T C<*  DEC)  VFRRS,  EXCLUDE  USE  OF  VERBS  WHOSE 

R59^3  COMPONENT  NUMBER  IS  GREATER  THAN  THf  NUMBER  DF  COMPONENTS  IN  NOUN. 

* 0964  (ALL  MACHINE  ADDRESS  TC  HE  SPECIFIED  NOUNS  ARE  1 COMPON  EMT  . ) 


IN  MULTI-COMPONENT  LOAD  VERBS  NO  MIXING  OF  OCTAL  AND  DECIMAL  DATA 
C CM  PC  NE  NT  WORDS  IS  ALLOW  FO.  AL  ARM  IF  VIOLATION. 


*,.969  IN  DECIMAL  LOADS  HE  DATA,  5 Nl MER1  CAL  CHARACTERS  MUST  BF  KEYED  IN 
RD97D  BEFORE  EACH  ENTER.  IF  NOT  , ALARM. 
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P0971 
3972 
0973 
097  A 
097=: 
C976 
3977 
097R 
979 
3 980 
0981 
3982 
0983 
19*/. 

3985 

0986 

0987 

0988 

0989 

0991 
099  2 
3993 

0994 

0995 

0996 

0997 
3998 

0999 

1000 
1331 
1002 

1003 

1004 

1005 
1336 

1007 

1008 
1339 
1010 
1 1 1 
1012 


PEE 

REF 

PEF 

REF 

PFF 

RFF 

REF 

RFF 

HEF 

RFF 

REF 

PEF 

PFF 

REF 

RFF 

REF 

PFF 

RFF 

PFF 

REF 

REF 

REF 

RFF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 
L AST 
LAST 
1 AST 


L AST 
LAST 
LA  ST 


34  l 
417 
420 
420 


LAST 
LAST 
LAST 
LA  ST 
L AST 
LAST 
LA  ST 
L AST 


43  LAST  420 
1 

1 

5 LAST  420 

44  LAST  420 
1 

34  l AST  420 
1 

6 LAST  420 


420 

420 

420 


LAST  4 18 
LAST  416 


420 
417 
4 1 8 
420 
4 20 
414 
420 
420 


4 1 » 240 2 
Vl  »24C  3 
41,  24C4 

t,  » 

41  ,2406 
41,  2407 
.1  ,2411' 
VI  ,2411 

V 1,  24  12 
71  ,2413 
4 1 , 24  1 4 

4 1,2415 
41  ,2416 
41,  2417 

♦ 1 ,24  20 
VI  ,2421 
41,  2422 
.1  ,2423 
4 l,  2424 

V 1,2425 
41  ,2  426 
4 1,  2427 
.1  ,2430 
41  , 24  ? 1 

V 1,  24  32 
.1  ,2433 
4 1,  24  24 
. 1 , 2 43  5 
.1  ,2436 
41,  2437 
► 1 ,2440 

* 1 ,244  1 
. 1,  2442 
1 ,2443 
i 1,  244  4 

1,  2445 
1 ,2446 
1 1*  2447 
1 ,2450 
1 ,245  1 
1,  2452 


4 4752  1 
t 2453  1 
5C  145  1 
4 0002  l 
56  132  1 
4 4753  0 
0 2453  l 
50  145  1 
4 QOCl  1 
56  131  1 
C 2472  1 
0 2515  l 
50  145  1 
4 0.000  0 
56  133  0 
0 2434  0 
4 4753  C 
0 2466  1 
5C  145  1 
4 0001  l 
0 2420  0 
4 4752  1 
0 2466  1 
50  145  1 
4 0002  1 
C 2420  0 
4 4752  1 
6 1000  0 
1 0 000  0 
0 2442  1 
0 0136  0 
0 2442  1 
54  122  1 
50  000  1 

3 431  7 0 
54  776  0 
50  122  0 

4 Cl  30  1 
0 34  35  0 
56  122  0 
0 2436  1 


OS  f>COM  1 
DSPR 


0SPCHM2  CS 


DSPCQM  3 fS 


TWO 

COMPTEST 

NCUNAOD 

1 

RU  F 4 

ONE 

COMP TF ST 
NOUNADD 
1 

RUF  4 

OFCTFST 

TSTFOROP 

NOUNADO 

0 

RUF 

0SPC0M2 

ONE 

DCOMPTST 

NOUNADD 

1 

OS  PC0M1 
TWC 

DCOMPTST 

NOUNAOO 

2 

OSPCOM  1 

two 

VFRBPEG 


31  STEM 
A 

R1  01 

3 SPCUUNT 

DISTEM 

6UF 

D SPOC  TWO 
DISTEM 
3SPCOM2  42 


3 1013 
R 1 3 1 4 

T0 1 6 

10  17 
1322 
1023 
10  24 


IS 


PEF 

RFF 

REF 

REF 

REF 


41 , 2453 
41  ,2454 
4 1,  2455 
41  ,2456 
41  ,2457 


COMPTEST  TS 

LX  CH 

COMPTSTl  TC 


GETCOMP 
L E FT 5 
THREE 
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.OC  1 


4 20 
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A B C A6  ABC 
-1  -0  41  42  43 

40  40  4n  +1  + 2 


I N A 

IN  A AFTER  CCS 


40  ,41  ,4?  I NT 0 CIST  EM 


- VERB  COMP 


NOUN  COMP 
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1025 
10  26 
1 02  7 
1028 
13  29 
1030 


RFF  5 
RFF  113 
RFF  46 
RFF  4 
REF  14 
RTF  47 


LAST 
LAST 
LAST 
LAST 
L AST 
LAST 


420 
4 1 0 
409 


41  ,2460 
41,2461 
41,  2462 
41  ,2  463 

41. 2464 

41.2465 


6 3123  l 
1C  CCO  C 
0 OCOl  0 
0 5706  0 
C 2400  1 
0 OOC1  0 


NDCMPTST  TC 


K1031  DC.OMPTST  ALAIMS  IF  DECIMAL  CM Y BIT  (BIT4  CF  COMP  CCDE  NUMBER)  = 1 
'-1  32  ir  NOT , FT  PERFORMS  REGULAR  COMPTEST. 

1033  RFF  6 LAST  421  41  ,2466  54  123  0 DCOMPTST  TS  SFTEMP1 

1334  REF  7(  LAST  420  41,2467  22  002  0 

1035  RFF  2 LAST  420  4 1,  2470  0 2472  1 

1036  REF  1 41  ,2471  0 2455  1 


1337 
1038 
10  39 
1 040 
1041 
1342 
1043 


RFF 

REF 

REF 


LAST 
LAST 
L AST 
LAST 
LAST 


4 2C 
379 
421 
42  1 


41,  2472 
41  ,2473 
i 1 ,74  7 4 
4 1,  2475 
41  ,2476 
41,  2477 


7 4736 
10  000 
2400  1 


MP  AC 
GETCOMP 
31  T 14 


RFF  90  LAST  421  41,2500  0 0156  0 


1044 
13  45 
1046 
1 '6  7 
1 P4R 
1049 


KEF  71 
REF  3 
RFF  38 
REF  115 


I A ST 
I.  AST 
LAST 
LAST 
LAST 
LA  ST 


421 
421 
4 1 8 


41  ,2501 
4 1 , 2502 
41  ,2503 
41,  25C4 
4 1 , 25(  5 
41  ,2  5 06 


22  002  0 
C 2544  0 
7 4736  0 
1C  COO  0 
0 4145  0 
0 0001  0 


DCTSTCYC  LX  CH 
TC 

MASK 

CCS 


R 10  51 

If  5? 
1 053 
1054 
1 355 

1056 

1057 


NOUNTEST  ALARMS  IF 
I F NOT,  I T RETURNS. 
RFF  7?  LAST  4?  I 
RFF  4 LAST  42  1 
REF  116  LAST  421 
REF  49  I AST  42  1 
REF  5G  LAST  421 
REF  16  LAST  42  1 


MO-LOAD  BIT  ( 0 I T 5 OF  COMP  CODE  N UMBER ) = 1. 


41,2507 
41,  2510 
41  ,2511 
4 1,  2512 

41.2513 

41.2514 


22  CC2  0 
0 2544  0 
10  000  f 
C CC01  0 
0 00C1  0 
0 2400  1 


NCUNTEST  LX  CH 


0 

3E  TCOMP 


L 

l 

GODS  PALM 


1358 
1 C 59 
1060 
1i  61 
106? 
M63 
10  64 
l 65 


REF  73 
REF  6 
RFF  35 

REF  1 
REF  4 


LAST  421 
LAST  417 
LAST  420 


LAST  413 


4 1 , 25  15 
41  ,2516 
4 1,  2 5 17 
. l , 1 c 2 . 
4 1 ,2521 
41,  2522 
4 1 ,.523 
41  ,2524 


22  002  0 
3 0146  1 
6 4753  1 

0 0006  l 

1 2533  1 
5C  140  1 
r 2523  1 
0 2526  l 


TSTF3RDP 


LXCH  0 

CA  NNADTEM 

AD  ONE 

EXTEND 

BZF  C HANGS  P 

I NDE  X Ml  XBR 
Tf  +0 

TC  ♦ 2 
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NOUN  CDMP  - VERB  CCMP 

NOUN  COMP  G/  VERB  COMP 

NOUN  COMP  1/  VERB  CCMP 
NOUN  COMP  = VERB  CCMP 


- VE^B  COMP 


ALARMS  IF  DEC  CNI  Y BIT  = 1 (BIT4  OF  COMP 
CODE  NUMBER).  RETURNS  IF  NOT. 


ALARMS  AND  RECYCLES  IF  OEC  ONLY  BIT  = 1 
( BIT4  CF  COMP  COOE  NUMBER).  RETURNS 
IF  NOT.  USED  BY  LOAD  VERBS. 


TEST  FOR  OP. 
IF  NNAQTEM  = 


IF  SO,  GET  MINOR  PART  ONLY. 
-1,  CHANNEl  TO  BE  SPECIFIED 


NOR  MAL 


iAP  : 


SSFM8I.E  REVISION  56  CF  AGO.  PR  C G c AM  ZEPLINA  RY  ZOROASTER 


PINPALL  GAME  PUT  TON  S AND  LIGHT' 


1066 
'^7 
1 168 
1069 
1 37) 
1071 


PFF  SI  LAST  421 
REF  1 

REF  2 LAST  4l6 
PFF  S?  LAST  4?2 
REF  P LAST  420 
RFF  S3  LAST  422 


41  ,2525 
4 1,2526 
',1,  2527 
A l ,2530 
4 1,  2531 
*1 ,2532 


0 0001  0 
C 3 C 76  C 
0 2306  C 
0 0001  0 
24  1 A 5 1 
0 000 1 0 


TC 

TC 

TC 

TC 

I NCR 
TC 


L 

SFRUTNCP 
3PTE  ST 
L 

NCUNADO 


1 73  1 
1073  7 
1 07A 
1C  75 
1376 


PEF  3 
PEF  6 

PFF  117 


RFF  IIP 
REF  3 


LA  ST 
LAST 


A 2 1 


A22 

420 


A 1,  25^4 
41  ,2535 
4 1,  2 c 36 
41,  2537 
A 1 ,2  5A0 
41,  2541 


0 0006  l 
c CCCO  1 

00  000  1 
4 0000  0 

1 2420  1 


CHANOSP 


CA 

MA  SK 
EX  T EN  D 
INDEX 

R FAO 

CS 

TCF 


NOUNCACR 

L0W9 


K77  PEF  2 LAST  309 
1078  RFF  7 | A ST  421 


41  ,2542  CO  147  0 COMPICK  ADPES  NNTYPTEM 

A 1 , 25  A3  C C 146  1 AORES  NNADTEM 


1080 

1)81 

1082 

1083 
1 084 


REF  S 
PFF  1 
REF  119 


REF  4 
REF  74 


LAST  42  1 
LAST  A 22 

LAST  239 
LAST  42  1 


41,  2544  50  140  1 GETCDMP 

41  ,7  545  3 2541  0 

4 l,  2546  5 C COO  1 

41 ,2547  3 0000  1 

41  ,2550  7 4350  1 

4 1 , 255  1 0 OCO 2 0 


I NDE  X 
CAF 
I NDEX 


1085 
1 386 
1 Ofl7 
1088 
1)39 
1000 
1091 
1 

1093 
1 394 

1095 

1096 
1397 
1098 
10  99 

1 103 
1101 
1102 
1 1 03 
1 104 
1135 
1106 


P EF 
RFF 
PFF 
RFF 
i l f 
PFF 

REF 

RFF 

REF 

PEF 

RFF 

PFF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 


5 

2 

11 


120 


LAST 
LAST 
L AST 
LA  ST 


42  1 
420 

420 


LAST  422 
LAST  422 


2 LAST  422 

2 LAST  310 

3 LAST  422 
1 

66  LAST  413 

91  LAST  421 

92  LAST  422 
5 LAST  422 

5 LAST  420 
28  LAST  420 

6 LAST  422 
3 LAST  422 

93  LAST  422 


, 

4 1, 2554 
41  ,2555 
41,  2556 
41  ,2557 
>1  ,2  560 
4 1,  256  1 
41  ,2562 
41,  2563 
41,  2564 
41  ,2565 
41,  2566 
41  ,2567 
41  ,2570 
4 1,  257  1 
41  ,2572 
4 1,  2 573 
4 1,  2574 
41  ,2575 
41,  2576 
41  ,2577 


0 2 54 A 0 
f A 33 1 1 
7 6257  0 
54  117  1 
54  122  1 
6 0145  1 
5G  000  1 
4 QCOO  0 
50  122  0 
57 1 C C2  1 
1C  122  1 
C 2556  0 
3 4755  1 
54  155  1 
54  156  1 
50  117  0 

3 4317  0 
c 4 776  0 
50  117  0 

4 1002  0 
54  154  0 
0 3117  0 


CECCSP  TC  GETCOMP 

TC  LEFTS 

MASK  THREE 
TS  DECOUNT 

DSPDCGET  TS  DECTEM 

AD  NOUNADD 

INOEX  A 
C S 0 
INDEX  DECT  EM 
XCH  X REG 
CCS  DECTEM 
TC  DSPDCGET 
DSPDCPLT  CAF  ZERC 

TS  M p AC  +1 

TS  MP  AC  +2 

INDEX  DECOUNT 
CAF  R1DI 
TS  D S PC CU NT 

INDEX  DECOUNT 
CS  X R EG 

TS  MPAC 

TC  SFCONUM 
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USER'S  PAGE  NG.  28  EC  S4 

MI  XEO  CASE  ALREADY  HANOI  ED  IN  M1XN0UN 

NO  DP 

DP  E +1  INTO  NOUN  ADO  FOR  MINOR  PART. 


NGRMAL  MIXED 

AORES  NNTYPTEM  AORES  NNADTEM 

C ( NNTYPTF  M)  C ( NNADT  EMI 

GET  HIS  DF  NNTYPTA81N0RM1DF  NNADTAB(MIX) 


COMP  NUMBER  INTO  DECOUNT 
PICKS  UP  DATA 

DFCTEM  1C.  OMP  0 , 2CCMP  +1,  3C0MP  +2 


CANT  USE  BUF  SINCE  DMP  USES  IT. 

MORE  TD  GET 
DISPLAYS  DATA 

DECOUNT  1C  OMP  +D  , 2C0MP  +1,  3 COMP  +2 


2 X(  SF  CON  NUMB  ) IN  A 


GAP:  ASSEMBLE  REVISION  56  OE  AGC  PROGRAM  ZERl  INA  BY  ZOROASTER 


PINBALL  GAME  BUTTGNS  AND  LIGHTS 


1107 

REF 

7 

L AST 

42  1 

41, 2600 

54  123 

0 

TS 

SF  TEMPI 

1108 

41  ,2601 

0 0006 

1 

EXTEND 

1 109 

P EE 

1 

41,2602 

3 26  14 

0 

DC  A 

GTSFOUT  L 

1 1 1 r, 

REF 

6 

LAST 

4 1 7 

4 1,  260  3 

c 2 0C6 

0 

nxcn 

7 

1111 

REF 

6 

LAST 

422 

41  ,2604 

50  140 

1 

INDEX 

MIXBR 

1 112 

41,  26C5 

C 26C5 

0 

TC 

+ 0 

1113 

REF 

1 

4 1,  2606 

0 261  1 

0 

TC 

D SP  SF  NOR 

1114 

RFF 

2 

LAST 

416 

41  ,2607 

0 3104 

1 

TC 

S FRUTM  IX 

1115 

PFF 

1 

4 1,  26  10 

C 2624 

0 

TC 

DECDSP3 

1116 

RFF 

2 

LAST 

422 

41  ,261 1 

0 30  76 

0 

ns  PSFNOR 

TC 

SFRUTNOR 

1117 

REF 

2 

LA  ST 

473 

41  ,76  1? 

C 7 624 

0 

TC 

DECDSP3 

1118 

REF 

29 

LAST 

422 

0776 

EBANK= 

0 SPCOLNT 

llin 

RFF 

1 

41  ,2613 

02137 

0 

GTSFflUTL 

2 C ADR 

GTSFOUT 

1119 

RFF 

l 

4 1,  2614 

6 4 l C 1 

0 

1120 

RFF 

RC 

LAST 

41  7 

41,2615 

0 *616 

l 

DSPDC  END 

TC 

RANKCALL 

1121 

REF 

1 

41  ,2616 

61263 

1 

CADR 

OS  POECWO 

1122 

RFF 

7 

L AST 

422 

4 1,2617 

1C  117 

1 

CCS 

DECOUNT 

1123 

41  ,2620 

0 2622 

0 

TC 

+ 2 

1124 

REF 

4 

LA  ST 

42  0 

41  ,2621 

0 0136 

0 

TC 

ENT  EX  IT 

1125 

RFF 

B 

L AST 

42  3 

4 1, 26  2 2 

54  1 1 7 

1 

TS 

TF COUNT 

1126 

REF 

1 

41  ,2623 

0 2566 

0 

TC 

DSPDCPUT 

RFF 

,21 

LAST 

422 

41, 2624 

CC  CCO 

1 

DFCDSP3 

I NDE  X 

A 

1 128 

RFF 

41 ,2625 

3 2 627 

0 

CAF 

SFOUTABR 

1129 

RFF 

3 

LAST 

414 

41  ,2676 

C 4640 

1 

TC 

BANKJUMP 

1 1 33 

REF 

1 

4 1,  2627 

6 1447 

1 

SFOUTABR 

CAOR 

PREDSPAL 

1131 

RFF 

1 

41  ,2630 

62615 

1 

CADR 

DSP  Of  END 

1132 

RFF 

1 

41  ,7631 

60604 

0 

CADR 

DEGCUJTS  F 

1 133 

PFF 

1 

4 1,  2632 

60726 

1 

CADR 

ft  R TO  1 T SF 

1134 

RFF 

1 

41  ,2633 

60737 

1 

CADR 

DP  10UTSF 

1 135 

PFF 

1 

41, 2634 

6(744 

0 

CADR 

DP2  OUTS  F 

1136 

REF 

1 

41,  2635 

6 C 6 2 4 

1 

CADR 

LRPOSOUT 

1137 

PFF 

1 

41  ,2636 

6(746 

1 

CAOR 

0P3CUTSF 

1 1 33 

REF 

1 

4 1,  2637 

6 5236 

0 

CADR 

HMSGUT 

l 139 

PFF 

1 

41,2440 

6531  1 

1 

CADR 

M/SOUT 

1 140 

RFF 

2 

LA  ST 

423 

41 ,2641 

6C74* 

0 

CADR 

DP2  0UTSF 

1 143  1 

RFF 

1 

4 1,  2642 

60  7 3-3 

0 

CADR 

AROUTl  SF 

11402 

RFF 

1 

41  ,2643 

60761 

1 

CAOR 

2 INTOUT 

11403 

REF 

1 

4 1,  2644 

6C6  12 

l 

CADR 

360-CDUC 

11*04 

REF 

1 

41,  2645 

60634 

0 

CADR 

RRANGOUT 

1 1404 

RFF 

l 

41  ,2  646 

60651 

0 

CADR 

RRDOT OUT 

1141 

41,  2647 

F NDR  TOUT 

EQUALS 
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USER  *S  PAGE  NO.  29  F 0 S4 


SWITCH  BANKS  TO  SE  CONSTANT  TABLE 
READING  ROUT  IN  E . 

LOADS  SFTFMP1,  SFTFMP2. 


ALL  SF  OUT  ROUTINES  END  HERE 


MORE  TO  D I SPLAY 


iLARM  IF  DEC  DISP  WITH  OCTAL  ONLY  NOUN 


GAP: 


ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZCROAST ER 


p:12  OCT.  2 U 1970  ZERLAIO  .001  PAGE  424 


L PINBALL  GAME  BUTTONS  AMD  LICFTS  USER'S  PAGE  NC.  30  ED  S4 

’.1142  THE  FOLLOWING  IS  ATYPICAL  SF  ROUTINE  . IT  USES  MPAC.  LEAVFS  RFSU 

R1143  LTS  IN  MPAC,  MPAC* l . FNOS  WITH  TC  DSPDCEND 


1144  REF  2 LAST  410  40,2604  SETLOC  BLANKCON  >1 

11445  REF  2 LAST  403  TO  412:  34  1 341*  COUNT*  tS/PIN 

’1145  CFCTUTSF  STALES  BY  . Ip  THF  LOW  U BITS  OF  ANGLE  , ADDING  ,ie  FOR 

<1146  NUMBERS  IN  THE  NEGATIVE  (AGC)  RANGE. 


SET  INDEX  FOP  FULL  SCALF 

NO  AUGMENT  NEEDED  (SFTEMPl  AND  2 ARE  0) 
SET  AU3MFNTER  ACCORDING  TC  CIMPAC  +2) 


r 1 1 5 7 360-CDUS  COMPUTES  366  - COU  ANGLE  IN  MPAC,  STORFS  RESULT  IN  MPAC  AND 
<11521  GOES  TO  OFGOUTSF. 


1140 

1 1 5 ' 
1151 
1151  1 


REF 

REF 

REF 


m 


k . ! 6C4 
40  t 7 40  5 
, 

. 

40  ,2610 
40,2611 


3 4755  1 
54  156  1 

0 2701  0 
C 2611  0 
G 2674  0 
0 2712  1 


DEGOUT  SF  CAF 


ZERO 

MPAC  ♦ 
F IX  RANGE 


\\m 


i 


L AST 


0 .76  14  C 360-CDL0  TC  360-CDU 

C 2604  ! TC  3EGC1UTSF 


11524  RFF  95  | AST  424 

1 1525  REF  6 L AS!  386 

11526 

1 1527  REF  1 

1152  0 RFF  96  LAST  424 

1 1 5?  5 HFF  36  LAST  42  1 

l 1529 1 REF  97  LAST  424 

1 15292  RFF  75  LAST  422 


40,2614  3 01  54  1 360-CDU  CA  MPAC 

40,  2615  7 4733  0 MASK  POSMAX  IF  ANGLE  IS  0 OR  180  DEGREES,  DO  NOTHING 

40  ,2616  0 0006  1 EXTEND 

40,2617  1 2623  0 8ZF  350-CDUE 

40,2620  4 0154  0 CS  MPAC  COMPUTE  360  DEGREES  MINUS  ANGLE 

40  ,2621  6 4753  1 AD  ONF 

40.262 2 54  154  C TS  MPAC 

40.2623  C 0002  0 360-CDUE  TC  0 


<1153  LRPQSOUT  DISPLAYS  +0,1, 2, OR  3 (WHCLE)  FOR  CHANNEL  33,  PITS  7-6=  11, K, 
PI  154  :■!,•  RFSPECT  IV  EL  Y. 


1 156 

1157 

1158 

1150 

1160 

1161 

116? 


REF  6 LAST  282 

REF  20  LAST  380 

RFF  12  LAST  422 
RFF  98  LAST  424 
REF  2 I AST  423 


4 ,2624  0 0006  l 

40,2625  00  033  1 

40,  2626  0 0006  1 

40  ,2627  7 4742  0 

40,  2630  4 CCCO  0 

41  , 2671  7 6257  C 

40,263?  54  154  0 

4C, 2633  0 2726  C 


LRPnSOUT  EXTEND 
READ 
E XTEND 
MP 
COM 
MASK 
TS 
TC 


CHAN33 

BIT  10 

THREE 

MPAC 

APTOUTSF 


BITS  7-6  TD  BITS  2-1 


0 1 S PL  AY  AS  WHOLE 


R 1 1 63  RRANGCUT  AND  RRCOTCUT  CCNVERT  RR  RANGE  ANC  RANGE  RATE  FROM  SP  15  BIT 
R 1 1633  MAGNITUDE  TO  DP  AND  THEN  SCALE  FOR  OF  SPLAY. 


11636  REF  1 

11639  RFF  28  LAST  328 

11543  REF  19  LAST  304 


40,26  34  0 26  64  1 RR  ANGO  UT  TC  PRSPTODP 

4 0 ,2635  4 OUO  0 CS  RADMODES 

40,  2636  7 4751  1 MASK  BI  T3 


CONVERT  TC  DP. 

BIT  3 DF  FLAG12  = HI  SCALE 


GAP:  ASSEMBLE  REVISION  5.6  OF  AGG  PROGRAM  ZERLINA  BY  ZOROASTER 


L PINBALL  GAME  BUTTONS  AND  L I 0 FT  S 


11646  REF 
11649  REF 
11653  REF 
11666  REF 
11660  PFF 
1 1 66  7 REF 
11666  REF 
11660  RFF 
11673  RFF 
11676  RFF 


172  LAST 
1 

99  LAST 

123  LAST 

124  LAST 

125  LAST 
100  LAST 

2 LAST 
8 LA  ST 


423  40,2637 
4 C , 2640 

424  40  ,2641 

426  40,2642 

425  40,2fc43 

425  40  ,2644 

425  4C, 2645 

405  40,  2646 

423  40,2647 

4C, 2650 


1C  000  0 
C 2646  1 
52  155  1 
2C  om  L 
20  00 1 1 
20  001  1 
52  155  1 
0 7115  0 
00123  1 
C 2740  0 


CCS  A 

TC  SC  ALE  LC 

DXCH  MPAC 

DAS  A 

DA  S A 

OAS  A 

DXCH  MPAC 

SCALELO  TC  DMP 

AORES  SFTEMP1 

TC  Li  4 /OUT 


11679  PFF 
1 1683 

11636  REF 
11685  RFF 
1169  REF 
1 1 6 9 1 RFF 

11692  RFF 
116921  REF 

11693  REF 
1 1696 
11696 


2 LAST 
1 

101  LAST 
6 LAST 
2 LAST 
1°2  LAST 
103  L AST 
2 LAST 


425 
40  5 
40  5 
425 
425 
42  5 


40  ,2651 

. 

40, 26  5 3 
43  ,2654 

40. 2655 

40. 2656 

40.2657 

• . 

40  ,2661 
40  ,266? 

• . t ; 


0 2664  l 
0 000  6 1 
4 2663  1 
20  155  1 
3 4363  0 
C 7321  0 
52  156  1 
52  155  1 
0 2646  1 
00001  0 
01150  1 


RR COT OUT 


TC  RP  SP TO DP 

EXTFND 

DCS  3IASR00T 

OAS  MPAC 

CAF  TEN 

TC  SHORTMP 

OX  CH  MPAC  +1 

DXCH  MPAC 

TC  SCALELO 

2 DEC  17.000 


11713 
11716 
1 1719 
1 172  3 
11726 
1 1729 


REF  1 05 
REF  1C6 

PFF  19 
REF  107 
REF  76 


LA  ST 
I AST 
LAST 
LAST 


424 

425 
4?5 
425 

301 

425 

424 


40 ,2664 
40,  2665 

40.2666 

40.2667 

, 

40  ,2671 
40,2672 
40,  26  7 3 


3 4733 
7 0164 
54  155 
3 0154 

6 Of  00 

7 4753 
6 4 154 
C 0002 


0 


1 

0 

0 

0 


RRSPTOCP  CAF  POSMAX 
MASK  MPAC 

TS  MPAC  + 1 

CA  MPAC 

OOUBLE 
MASK  B I T 1 

TS  MPAC 

TC  0 


1 1 75 
1 1 76 
1 177 
1 178 


REF  108  LAST 
RFF  1 

REF  o LAST 
REF  77  LAST 


425 

425 
42  5 


40,2674  C 0(06  1 
40,  2675  5 015,,  0 

40.2676  3 2723  0 

40.2677  52  124  1 

. ' 


SFTAIJG 


EXTEND 

INDEX  MPAC  +2 
DC  A DEGTAB 

DXCH  SFTEMP1 
TC  0 


1180 
11  pi 
1182 
1133 
1184 
11R5 
1 1 86 
1187 


RFF  79  LAST  425 


REF  23  LAST  413 
REF  110  LAST  425 
RFF  111  LAST  425 
REF  8C  LAST  42  5 


■ 

• 0, 27C2 
40,  2703 
. . 704 
4C,  27C5 
40,2706 

40,  2 7 10 
40  ,2711 


10  154  0 
C 00C2  0 
0 0002  0 
1 2705  0 
4 4735  0 
7 0154  0 
54  154  0 
5C  002  O 
0 000  1 0 


FIXRANGE  CCS 


MPAC 
Q 
Q 
♦ 1 

HI  T15 
MPAC 
MPAC 
0 


1188 
1 1 89 


REF  112  LAST  425 


40.2712  C C0C6  1 DEGCOM 

40. 2713  6 0156  0 


EXTEND 

INDEX  MPAC  4-2 
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USER'  S PAGE  NC.  ?1  EO  S4 


DATA  IS  IN  LO  SCALE. 

DATA  IS  I N HI  SCALE,  MP  BY  8. 


SCALE  FOR  DISPLAY, 

AND  GO  T 0 ARIT  HDP 1 . 

CONVERT  TO  DP. 

SUBTRACT  RIAS  CF  17000  COUNTS. 

MULTIPLY  DATA  BY  TEN  TO  DISPLAY  TENTHS 
FPS  - (ATTEMPT  TC  MULTIPLY  DISPLAY 

SF  BY  TFN  PRODUCED  SF  GREATER 
THAN  16383) 

SCA  LE  FOR  D I SPLAY. 


CONVERT  SP  15  BIT  MAG  TO  D P. 


LOADS  SFTEMP1  AND  SF  TE  MP  2 WITH  THE 
OP  AUGMENT  EP  CONSTANT 


IF  MPAC  I S ♦ RETURN  TO  L+l 
IF  MPAC  IS  - RETURN  TO  L +2  AFTER 
MASKING  OUT  THE  SIC-N  BIT 


LOADS  MULT  IPL  I ER 
ADDS  AIJGMENTER. 


DOES  SHORTMP,  AND 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTEl 


PINBALL  GAME  BUTTONS  ANO  LIGHTS 


1190 
1 1 ol 
119? 
1193 
1 1 94 
1 19  5 


REF  3 
PFF  IP 
RFF  114 
PFF  1 


LA  ST 
LAST 
LAST 
LAST 
LAST 


425 
42  5 
425 


4C  » 2 7 14  2 2723  r 

40.2715  52  155  1 

40.2716  0 7321  0 

4C, 2717  52  124  1 

40 , 2 7?0  20  155  1 

40 , 2 7?  1 0 2731  0 


OCA  OEGTAB 

DXCH  MP  AC 

TC  SHORT  MP 

OXCH  SFTEMP1 

OAS  MPAC 

TO  SCOUTENO 


1196 
1 197 
1 19B 


40,  2722  056C5 

43  ,^7?  3 03656 

4 f , 2724  16314 
40,27  25  3 14  6 3 


1 

1 

C 


OCT 

OCT 

nc  T 


03656 

16314 

31463 


PFF  11  LAST  426 
REF  115  LAST  426 
RFF  1 

RFF  22  LAST  41 R 
REF  2 LAST  42  3 


40.2726  52  124  1 ART  OUTS  F OXCH 

40. 2727  52  155  1 DXCH 

40 ,2733  C 4415  0 TC 

40.2731  0 4635  O SCOUTENO  TC 

40.2732  fc26 15  1 CAOR 


S FT  EMP  1 
MPAC 

PR  SHR  TMp 
POSTJUMP 
3 SPOCFNO 


12051  RFF  12  LAST 
12352  REF  116  LAST 

12053  RFF  2 LAST 

12054  REF  2 LAST 


426 
426 
42  5 


40  ,2733  52  124  1 AROUT 1 S F OXCH 

40,2734  52  155  l OXCH 

40,2  735  0 44  15  0 TC 

40,2736  0 2740  0 TC 


SFTFMP  L 
MPAC 

PR  SHR  TMP 
L 14/ OUT 


1236 
1 2<  7 
120  9 
12  og 
12  K 


REF  1 

RFF  117  LAST  42  6 
RFF  IIP  LAST  426 
REF  119  LAST  426 
PFF  2 LAST  426 


40,2737  C 2752  0 
40  ,?  743  56  156  0 

40.2741  56  155  0 

40. 2742  54  154  0 

40  ,2743  C 2731  O 


OPlOUTSF  TC 
L14/0UT  XCH 
XCH 
TS 
TC 


OPUUT 

MPAC  *2 

MPAC  +1 

MPAC 

SCOUTENO 


2 l AST  426 

3 IASI  42  6 


40,  2744 
40  ,2745 


C 2752  C 0P20UTSF  TC 
0 2731  0 Tf 


OPOUT 

SCOUTENO 


1214 

1215 

1216 


REF  3 LAST  426 

RFF  10  LAST  4l6 

REF  1 

REF  4 LAST  426 


40,2746  f 275? 
40, ?747  3 6254 

40 ,2750  0 3210 

40,  27  51  C 2731 


0 DP3FUTSF  TC 

1 CAF 

1 TC 

0 TC 


OPOUT 
SI  X 

T PLEFTN 
SCOUTENO 


12165  RFF  120  LAST  426 


MPAC  +6  = MPAC  +6 


UU 

1219 

1223 

1221 

1222 


REF  81  LAST 
RFF  1 
REF  1 
PFF  2 LAST 
RFF  3 LAST 
REF  13  LAST 


425  40,2752 

40,  37  5 3 
40  ,2754 
2B0  40,2755 

425  40,2756 

426  40,2757 


56  002  0 OP CUT 

54  162  a 

0 3004  0 

C 7271  1 

C 7115  0 

00123  1 


XCH  0 

TS  MPAC  + 6 

TC  REAOLO 

TC  T PAG  REE 

TC  3 MP 

ADRES  S FT  EMP  1 


9:12  GOT.  21,1970  2 ERL  A I C 

USER  • S PAGE  NC.  32 


.00  1 PAGE  426 
EC  S4 


ADJUSTED  ANGLE  IN  A 


HI  PART  OF  .18 

LOW  PART  OF  .18 

HI  PART  OF  .45 

(0  PART  OF  .45 


ASSUMES  POINT  AT  LEFT  OF  OP  SFCON 
IF  CIA)  = -0,  SHORTMP  FAILS  TC  GIVE  -0 . 


ASSUMES  POINT  BETWEEN  HI  ANO  LO  PARTS  OF 
CP  SFCON.  SHIFTS  RESULTS  LEFT  14,  BY 
TAKING  RESULTS  FRCN  MPAC+It  MPAC +2. 


SCALES  MPAC,  MPAC  +1  BY  DP  SCALE  FACTOR 
IN  SFT6MP1,  SFTEMP2.  THEN  SCALE  RESULT 
BY  B14. 


SCALES  MPAC.  , MPAC  +1  BY  DP  SCALE  FACT33 


ASSUMES  POINT  BETWEFN  BITS  7-ft  OF  HIGH 
LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1 . 
SHI  FT  LEFT  7. 


USE  MPAC  +-6  INSTEAD  OF  FVF I NO 

GFT  FRESH  DATA  FOR  BOTH  HI  AND  LO. 
MAKE  DP  OAT  A AGREE 


S A=>  : 


ASSFMRLF  REVISION  56  OF  AGC  PROGRAM  7FRLINA  BY  ZOROASTER 


P INRAIL  GAME  BUTTONS  ANO  LIGHTS 


122  3 RFF  2 LAST  426  40,2760  0 0 162  I TC  MPAC+6 

3 1 2 ?3  I THE  FOLLOWING  ROUTINE  DISPLAYS  TWC  CONTIGUCUS  SP  POSIT  IVF  INTFGERS 
R 1 2232  AS  TWO  POSITIVE  OEC  IMAL  INTEGERS  IN  RXD  1-R  XD  2 ANO  RX04-RX05  (RXD3  IS 
p 12233  BLANKED).  THE  INTEGER  IN  THE  LOWER  NUMBERED  AODRESS  IS  DISPLAYED  IN 
R 12234  R XD 1-R  XD 2 . 


1223s  REF 
1223  51*  R EF 
122352* 
122353* 
1223  54*R  FF 
1 22  3 5 5 *REF 
122356* 

12235  7*P  EF 

12236  * P F F 
1223  7 *RFF 
1223  71  REF 
122372  REF 
122373  REF 
122374  REF 
122375  RFF 
172376  RFF 
122377  RFF 
122378  REF 
127379  REF 


2 LAST 

122  LAST 

2 LA  ST 

123  LAST 
1 

13  LAST 
9 LAST 
6 LAST 
3C  L AST 
2 LAST 

124  LAST 

2 L AST 
23  LAST 

3 LAST 


4 1 7 
426 


40  7 
427 


407 

427 

424 
423 
422 
42  3 

426 

427 
427 
42  6 
426 


40, 276  1 
40  ,27  62 
40, 2763 
4C  , 2764 

40.2765 

40. 2766 
40  ,2  767 
40  ,2  770 
40, 2771 
40  ,2772 

40.2773 

40. 2774 
40,2  775 

40. 2776 

40.2777 
40,3000 
40 , 3r  0 1 
40  ,3(j<'2 

■ . 


o 2;25  1 
4 0154  0 
C C0C6  1 
6 2770  0 

0 2422  1 
4 C 154  0 

1 2772  0 
C 240?  0 

3 0154  1 
0 3337  0 

4 6257  0 
50  117  0 
6 4317  0 
54  776  0 
0 3004  0 
3 0155  0 
0 3337  0 
C 4635  0 

62617  0 


2INT3UT 


+ 4 
+3 


TC  5BLANK 

CS  M P AC 

EXTEND 
BZMF  +4 

T C -ON 

CS  MPAC 

TCP  +3 

TC  +0N 

CA  MPAC 

TC  DSPDECVN 

CS  THREE 

INDEX  RECOUNT 

AD  R1D1 

TS  DSPCOUNT 

TC  RFADLO 

CA  MPAC  +1 

TC  DSPDECVN 

TC  POSTJUMP 

CA  OR  DSPDCEND  +2 


R 1 2 ? 4 READLC  PICKS  UP  FRESH  DATA  FOR  BOTH  HI  AND  L3  ANO  LEAVES  IT  IN 

< 1225  MPAC,  MPAC+1.  THIS  IS  NEE  DEO  FCR  T I MF  DISPLAY.  FT  ZEROES  MPAC+2,  BUT 

R1226  COES  NOT  FORCE  TPACREE. 


1227 
I2  2B 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 
123B 
1230 
1240 


124  1 
1242 


REF  B2  LAST  426 
REF  6 LAST  99 
REF  7 LAST  423 

P EF  1 

REF  If  LAST  427 
REF  3 LAST  416 
RFF  4 LAST  416 
REF  2 LAST  416 

RFF  126  LAST  4?S 

REF  125  LAST  427 
REF  6fl  LAST  424 
RFF  126  LAST  42  7 
REF  7 I AST  427 


40  ,3004 
4C  ,3  0C5 

. 

40  ,3007 
4C, 3010 
40,  30  1 1 
40,301? 
40, 3013 
40  ,3014 
4 > ,3  >1  5 
40,  70  1 6 
40  ,30  17 
40, 3020 
40,  30  21 
40 ,3022 
4C, 3023 


56  OC 2 0 
54  144  1 
50  140  1 
0 3007  0 
C 3C24  1 
50  117  0 
3 9150  0 
7 4356  1 
0 4313  1 
0 0006  1 
5 0000  1 
3 COC 1 0 
52  155  1 
3 4755  1 
54  ]56  1 
C C144  0 


READLO 


RE  ADL01 


XCH 

TS 

INDE  X 

TC 

TC 

INDEX 

CA 

MASK 

TC 

tXT  END 

I NDE  X 

OCA 

D XCH 

CAF 

TS 

TC 


0 

TEM4 
MI  XBR 
+0 

ROLONOR 
DECOUNT 
I DAD  IT  EM 
L OWl  1 
SFTFBANK 


D 

MPAC 

ZERO 

MPAC 

TEM4 


1 243  REF  1C  I AST  422 

1244  RFF  1 


40  ,3^24  3 ' 145 

40,3925  0 3015 


l RCLONOR  CA 
0 ENDP.DLO  TC 


NOUNADD 

READL01 


9:12  OCT.  21,  1 97C  ZEPLAIO  .001  PAGE  427 


USER'S  PAGE  NO.  33  EO  S4 


TC  BLANK  RXD3 

FIRST  TURN  UN  THE  APPROPRIATE  SIGN 


RXD4 

GET  2ND  INTEGER 

DISPLAY  2ND  INTEGER  ILIKF  VERB  AND  N3UN  ) 


GET  IDADDTAB  ENTRY  FDR  COMP  K OF  NOUN. 
E SUBK 

SET  EH  , LEAVE  EADRES  I N A. 

MIXED  NORMAL 

C ( E SUBK)  cm 

CUE  SUBKI+l) 


E 


CIE+l) 


GAP  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZGRC4STER 
L PINRALL  GAME  BUTTONS  ANO  LICHTS 


1245 

124501  REF  3 LAST  309 
1 245C2 


42  » ? 2 3 A 

■ • 

42,  T 2 36 


BANK  42 
SETLCC  PINRALL3 
9 ANK 


9:12  OCT.  21,  1970  ZFRLAID 
USER'S  PAGE  NG.  34 


.001 


PAGE  42  8 
E3  S4 


12455  REF 

1246  REF 

1247  REF 

1248  REF 

1249  REF 
A 1250 

1251  PEF 
1 2s2  REF 
1253  REF 
1294  RFF 

1255  REF 

1256  RFF 

1257  RFF 

1258  RFF 

1259  RFF 
1240  RFF 

1261  REF 

1262  RFF 

1263  RFF 
A 1264 

1265  REF 

1266  PFF 

1267  REF 

1268  REF 

1269 

1270  REF 

1271  PEF 

1272  RFF 

1273  REF 
A 1 2 74 

1275  REF 
1275  RFF 

1277  RFF 

1278  RFF 

1279  REF 


1 

8 1 I AST  42  3 
3 LAST  427 
3 LAST  42  6 


42,  3236  C 4616  1 
42,3237  6inr-4  1 

42.3240  C 7271  1 

42.3241  0 3425  1 


HMSOUT 


COUNT  * SS/P IN 
T r BANKfALl 

CADR  TEADLO 

TC  T P AGREE 

TC  SEPSECNR 


31 

82 


LAST 

LAST 
I AST 
LAST 
LAST 


LAST 

LAST 

IAST 

LAST 


. 

4 2,  3 24  3 
417  42,3244 

427  42,  3245 

428  42,3246 

423  42,3247 

42,  3250 
42  ,3251 

427  42,3252 
4 2,  3 26  3 

428  42,3254 

428  42,  3255 

426  42,3256 


C 7115  C 
03277  0 

3 4321  0 
54  776  C 
0 4616  1 
61263  1 
0 3443  1 
3 330  1 0 
56  154  1 
55'CC6  1 
3 3302  0 
56  155  C 
O <,415  0 


TC  DMP 

AORES  SFC0N2 

CAF  8301 

TS  OS  PC  CUM 

TC  RANKCALL 

CAOR  DSPCfcCWC 

TC  SFPMIN 

CAF  MINE0N2 

XCH  MP  AC 

TS  HI  TF  MOUT 

CAF  MINCGN2  + 1 

XCH  MPAC  +1 

TC  PRSHRTMP 


3 LAST  417 
32  LAST  428 
83  LAST  4?_e 

3 LAST  428 

1 

129  LAST  42  8 
2 LAST  428 

4 LAST  42  8 


42,  3257  3 4 320  1 

4?  ,3260  54  776  0 

42,3261  C 4616  1 
42,  3262  61263  1 

42  ,3263  f 0006  1 
42,  3264  3 33C 6 1 

42.3265  52  155  1 

42.3266  3 1006  0 

42. 3267  0 4415  0 


CAF  R201 

TS  DSPCOUMT 

TC  BANK  C.  ALL 

CAOR  DSPDECWD 

EX  T FN  D 

OCA  HRCGN1 

OXCH  MPAC 

CA  HITEMOUT 

TC  PRSHRTMP 


7 LAST  4?7 
33  LAST  4.?8 
84  LAST  428 

4 LAST  428 

5 LAST  423 


42,3270  3 4317 

42,  3271  54  776 

42,3272  C 4616 
42,  3273  61263 

42,3274  0 0136 


CAF  PI  01 

TS  3SPC0UNT 

TC  RANKCALL 

CAOR  DSPOECWD 

TC  ENTEXIT 


READ  FRESH  OAT  A FOR  HI  ANO  10  INTO 
MPAC+1. 

MAKE  OP  DATA  AGP  EE 
LEAVE  FRACT  S EC/6C  IN  MPAC,  MPAC+l. 
WHOLE  MIN  IN  RIT13  CF  LCTFMOUT  ANO 
USE  ONI  Y FRACT  SEC/60  MOO  60 
MULT  0Y  .06 

GIVES  CENTI-SEC /10E  XP5  MOO  60 


M»AC, 


.LEAVE 

ABOVF 


0 1 SPLAY  SEC  MOD  60 

REMCVE  REST  PF  SECCNCS 

IFAVE  FRACT  M1N/6C  IN  MPAC+-1.  LFAVF 

WHOLE  HOURS  IN  MPAC. 

SAVF  WHOLE  HOURS. 


USE  ONLY  FRACT  M IN/60  MOO  60 

IF  CIA)  = -0,  SH  OR  T MP  FAILS  TO  GIVE  . 

MUl  T BY  .0006 

GIVFS  MIN/10EXP5  MCO  60 

DISPLAY  MIN  MOD  60 

MINUTES,  SECONDS  HAVE  BEEN  REMOVED 


USE  WHOLE  HOURS 

IF  C ( A ) = -0,  SHORTMP  FAILS  TO  GIVE  -0. 
MULT  BY  . 16384 
GIVES  HOURS/ K'EXP  5 

USE  REGULAR  DSPOECWD,  WITH  ROUND  OFF. 


I !8 
1 233 
1281 
128? 

1283 

1284 
1 23  5 
1286 
1287 
1 287 


4 2,  2 276 
42  ,3277 
42,3300 
42,  3 3o  1 
♦ . I 
4 2,  3 30  3 

42.3304 

42 .3305 
42,  3 306 


25660  0 
1-174  2 1 
01727  1 
r 1 2 1 7 1 
00011  1 
3?445  r 
02 1 04  0 
10422  1 
05174  0 
12261  0 


SEC0N1  2 DEC*  1 .666666666  E-4  B12*  2EXP  12/6000 


SEC0N2  OCT  01727 

OCT  01217 

M INCU.N  2 OCT  00011 

OCT  32445 

MI  NC  ONI  OCT  02104 

OCT  10422 

H RC  ONI  2 DEC  .16384 


,06  FOR  SECONDS  DI  SPLAY 
0006  FOR  MINUTES  C1SLPAY 
.366. .66  UPPED  BY  2FXP-28 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


PINRALL  GAMF  ElJTTCNS  AND  LIGHTS 


1290 

1291 

12  92 
129  0 
l 29  4 

1295 

1296 

1297 

1298 
1 299 

13  00 

1301 
1 3D? 
1303 
1 30  A 
1 305 
1306 
1 3D7 
1308 
1300 
1 3 ID 

1311 

1312 

1319 
1 31 A 

1315 

1316 

1317 
1 31« 
1310 

1320 

1321 
A 1 322 

1323 

132a 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 
133A 
1335 


I A ST 
LAST 
LAST 
LAST 


REF  1 
R FF  1 
REF  127 
R FF  l 
REF  2 
REF  3 
RFF  1 ? 1 

REF  A 
REF  1 
RFF  128 
REF  2 
REF  5 
RFF  6 
REF  132 
REF  l 
REF  1 
REF  2 
REF  133 
REF  3 
REF  13A 
REF  1 
RFF  2 
RFF  135 
REF  A 
REF  1 
REF  1 

REF  1 
RFF  A 
REF 
REF 
REF 
R EF 
RFF 
REF 
REF 
REF 
RFF 
REF 
REF 


LAST 

LAST 

LAST 


L AST 
LAST 
LAST 
LAST 
LA  ST 


I.A  ST 
1 AST 
LAST 
LAST 

LAST 
L AST 
LAST 


LAST 
LAST 
L AS1 


LAST 
LAST 
LAST 
L AST 
LAST 
L AST 


A28 

A2fi 

A28 


A29 
a2q 
A2  9 


A29 
A?  9 
A29 
A29 
A29 


A26 

A27 
A2  8 
A29 

A27 
A 10 
A20 
A27 
A28 
AlO 
A29 


A?  ,331 l 
12,  > ! l 1 
A 2,  3 3l  3 
A2  ,331 A 
A2, 3315 
A2  ,3316 
.2  ,33  17 
A 2,  3 3 20 
42  ,332  1 
A 2,  3322 
A 2,  3323 
t2»3  124 
42,  3325 
• , ■ 

A?  ,3327 

A 2,  3330 
A 2 ,333  1 
A2,  3 332 

A 2,  3 393 

A 2 , 3 3 3 A 
A2,  3335 
A 2 ,3336 
A2,3337 
42,  3340 
A 2 , 33A 1 
42,  33A2 
A2.33A3 
A2  »33AA 
42,  33A5 
A2  , 3 3A6 
A 2 ,3347 
42, 3350 

42,  3351 

42.3352 

42.3353 
A2, 3 3SA 
42  ,3  355 
42,3356 
42,  3 357 
42,3360 
42,  336  1 

42.3362 

42 .3363 
42,  3364 
42  ,3365 


0 4616  1 
610CA  1 
C 7271  1 
10  154  0 

C 3217  1 
0 3350  1 
6 3 AO  5 0 
10  000  0 
0 3334  0 
C 2350  1 
0 3350  l 
10  155  1 
C 3327  1 
0 3350  l 
6 3 AO  6 0 
10  000  0 
0 333*  0 
C 3350  1 
0 335 C 1 
10  154  0 
3 3410  1 
0 3345  0 
A 3 A 10  o 
54  1540 
A 3A1 1 1 

5 A 155  1 
3 3407  l 
0 3426  1 
54  1 54  0 
3 V,  11  0 
0 3342  l 
C 34  12  0 

3 3AC3  0 
0 7 121  0 
A 6257  0 
26  776  0 
0 4616  l 
61317  C 
2 4755  1 
54  124  1 
A 4752  1 
50  117  0 

6 4317  0 
c A 1 A -3  0 
0 46  16  l 


M/SNJ9M  TC 


9:12  OCT.  21,1970  ZEPLAID  .00  1 PAGE  429 
USER'  S PAGE  NO.  35  ED  SA 

00000 

00062  .5  SEC 


BANKCALL 
RF  AD  10 
TPAGRFE 
MP  AC 
+ 2 

M/SNDRM 
M/ S CONI 
4 

M/ SI  IM  IT 
M/S  NORM 
M/SNORM 
M P AC  +1 
+ 2 

M/SNORM 

M/SCDN2 

4 

M/SL  IM  IT 
M/SNCPM 
M/SNORM 
MP  AC 
M/SCCN3 
+L  IM  IT 
M/SC0N3 
MPAC 

M/SCDN3  +1 
MPAC  +1 

NORMADR 

5 EPS  ECNR  +1 
MPAC 

M /SCON  3 +1 
L IMITCCM 
SE  PSFC 

HI SECON 

SHORTMP 

THREE 

DSPCOUNT 

BANKCALL 

DSP0C2NR 

ZERO 

CODE 

TWC 

DEC.OUNT 
R1  Cl 
COUNT 
BANKCALL 


READ  FRESH  OATA  FOR  HI  ANO  LO  INTO  MPAC, 
MPAC+1  • 

MAKE  DP  DATA  AGREE 

IF  MAG  OF  (MPAC,  MPAC+1)  G/  59  M 59  S, 
DISPLAY  59B59,  WITH  PROPER  SIGN. 

MPAC  = +0.  L/  59M5  6.  5S 

- HI  PART  OF  ( 59M  5 8.  5S ) +1  FDR  CCS 
MAG  OF  MPAC  - HI  PART  OF  (59M58.5S) 

G/  59M5  8.  5S 

ORIGINAL  MPAC  = -0  . L / 59M58.5S 
L/  59M58.5S 

MAG  OF  MPAC  = HI  PART  OF  59M58.  5S 

MPAC+1  = +0.  L/  59M59.5S 

- LO  PART  DF  (59M5P.5S)  +1  FDR  CCS 
MAG  OF  MPAC+i  - LO  PART  OF  (59M58.5S) 

G/  59M5  8.  5S 

ORIGINAL  MPAC  + 1 = -0.  L/  59M58.5S 
L/  59M58.  5S 

- 59M58.5S  LIMIT 

MPAC  CANNOT  BE  ♦/ - 0 AT  THIS  POINT. 

FORCE  MPAC,  MPAC+1  TO  + /-  59M59.5S 

WILL  DISPLAY  59M?9S  IN  CSPOECNR 


SET  RETURN  TO  M/SNCPM+1. 


LEAVE  FRACT  SEC/60  IN  MPAC, MPAC  + 1.  LEAVE 

WHDLF  MIN  IN  B I T 1 3 OF  LOTE  MOUT  AND  ABOVE 

USE  ONLY  FRACT  S FC/60  MOD  60 

MULT  BY  .6  + 2EXP-14 

GIVES  SEC/  100  MOD  60 

DSPCOUNT  ALREADY  SET  TO  RX  Cl 

DISPLAY  SEC  MOD  60  IN  DAD5. 


RXD3 

BLANK  MIDDLE  CHAR 


~.AP : 

L 

1336 

1337 

1338 

1 33o 

1 340 

1341 

1 342 

1343 

1 34** 

1 345 

1 346 

1347 

1348 

l?5? 

1351 

1352 

1353 

1 354 

1355 

1 356 

1 367 

1350 

1 350 

1360 

1361 

136  2 

1 it  3 

1364 

1365 

1 366 

1 367 

1368 

1360 

1370 

1371 

137? 

1373 

1374 

1375 

1376 

1377 

1378 

1 370 

1380 


ASSEMBLE  REVISION  5o  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21  1 1 970 


ZFRLA10  .001  PAGE 


430 


PINBALL  GAME  R LT  TON  S A NO  LIGHTS 


USER  'S  ° A G6  NO.  36  EO  S4 


RFF  3 
RFF  2 
REF  136 

REF  1 
RFF  137 
REF  12 
RFF  0 
REF  35 
PFF  88 
REF  7 
RFF  2c 
RFF  4 


L AST  4 10 
LAST  428 
1 A ST  429 


LAST  430 
LAST  429 
I AST  429 
L AST  A 2 9 
LAST  429 
LAST  429 
LAST  427 
LAST  427 


4 2,  3 366 
42  ,3367 
42,3370 
42,  3 37  1 
4?  ,3  3 72 
42,  3373 

42.3374 

42.3375 
42,  3376 
42  ,3377 
42.34C0 
4 2,  340  1 
42 ,3402 


61353  0 
C 3443  1 
56  155  0 
C 00C6  1 
7 3404  0 
52  155  l 
50  117  0 
3 4317  0 
54  776  0 
0 46  16  1 
61317  0 
C 4635  0 
62617  0 


C ADR  DSPIN 

Tf  SEPMIN  REMOVE  REST  OF  SECONDS 

XCH  MPAC  +1  LEAVE  FRACT  M IN/60  IN  MPAC+1 

FXTEND  USE  CNLY  FRACT  MlN/60  POD  60 

MP  HIMINCON  MULT  BY  .6  + 2E  XP-  7 

D XCH  MPAC  GIVES  MIN/1D3  MOO  60 

INDEX  DECOUNT 

CAF  R1  Cl  RXD1 

TS  DSPCOLNT 

Tf  RANKCALL  DISPLAY  MI  N MOD  6C  IN  D102. 

CADR  DSPDC2NR 

TC  POST  JUMP 

CADR  OS P DC  END  +2 


42,  3403  23147  1 HI  SECON  OC 1 23147 
42,3404  23346  l HIMINCON  OCT  23346 


.6  + 2 EX  P -1 4 
. 6 + 2F  XP-7 


RFF 


7 LAST  42  9 


42 ,3  405 
42,  3406 
42  ,3407 
42,  3 4 1 C 

4 2,  34  1 1 


77753  0 

03351  0 
CCC25  0 
37016  l 


P/  SC  CM 
M/SCDN  2 
NOPMAOR 
M/SC0N3 


OCT  7775? 

OCT  41126 

ADRES  M/SNORM  +1 

OCT  D0P25 

OCT  37016 


- HI  PART  OF  ( 5QM  58.  5S)  + 1 

- LC  PART  OF  (59M58.5S1  + 1 

59 M 59. 5S 


REF  1 ?8  LAST  430 
REF  1 

REF  2 LAST  430 


PEF  1 

RFF  1 3°  LAST  430 
REF  3 LAST  429 

REF  2 l AST  430 
REF  1 

RFF  83  LAST  427 
RFF  1 

RFF  5 LAST  428 
REF  1 

RFF  140  LAST  430 
RFF  3 (AST  428 
PFF  1 

PEF  2 LAST  430 
RFF  7C  LAST  429 
RFF  141  LAST  430 
RFF  142  LAST  430 
RFF  1 43  LAST  *30 
REF  2 LAST  430 


4 2,  3413 
42 ,3414 
42,  1 4 1 5 
42,  34  16 
4 2 ,34  17 
. 

42,  3421 
42,3422 
4 2,  3423 
42  ,34  24 
42,3425 
42,  3426 
42  ,3427 
42,  343C 
42,  3431 
42,3432 
42,  3433 
42  ,3434 
42,3435 

4 2,  3 4 36 
42  ,3437 
42,  3440 
42,  3441 
42  ,3442 


1 3422  1 
1 3416  0 
0 0006  1 

4 3310  1 
2C  155  1 
1 3425  0 
C 0006  1 
3 ’310  0 
I 3420  0 
56  00?  0 
54  144  1 
C 7115  0 

C 3275  1 
0 00C6  1 
3 0155  0 
5 3 ' CC 7 0 
0 4404  0 
0 4404  0 
3 4755  1 
56  156  0 
56  1550 

5 6 154  1 
0 0144  0 


SEPSEC  CCS  MPAC  +1 

TC F pn  SEC 

TC  F PO  SEC 

TC  F +1 

E XTEND 

DCS  RNDCON  -1 

SEPSEC1  DAS  MPAC 

TC  F SEPSEC  NR 

PCSEC  EXTEND 

DC  A PNDCCN  -1 

TCF  SEPSEC1 

SF  PS  EC  NR  XCH  0 

TS  SEP  SC  RET 

TC  DMP 

ADRES  SECGN1 

FXTEND 
DC  A MPAC 

D XCH  HI  TCMOUT 

TC  TPSL1 

TC  TPSL1 

CAF  ZERO 

XCH  MPAC  +2 

XCH  MPAC  +1 

XCH  MPAC 

TC  SEPSCRET 


IF  +,  ROUND  3 Y ADDING  .5  SEC 
IF  RCUND  BY  SUBTRACTING  .5  SEC 
FINDS  TIME  IN  PPAC,  KPAC+1 
ROUNDS  OFF  RY  */-  .5  SEC 
LEAVES  WHCLE  MIN  IN  R1T13  OF 
l OTEMOUT  AND  ABOVF. 

LEAVES  FRACT  SEC/60  IN  MPAC,  MPAC+1. 


THIS  ENTRY  AVOIDS  ROUNDING  RY  .5  SEC 
MUL  T BY  26  XP  12/6000 

GIVES  FRACT  SEC/60  IN  RIT12  0F  MPAC+1 
AND  RF LOW. 

SAVE  MINUTES  AND  HOURS 


GIVES  FRACT  SEC/60  IN  MPAC+l,  MPAC+2. 
LEAVE  FRACT  SEC /6C  IN  MPAC,  MPAC+l. 


GAP:  ASSFMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


9:  L2  OCT.  21,  1970  ZFRLAID  .001  PAGE  431 


PTNRAII  GAME  BUTTONS  AVO  LIGHTS 


USER'S  PAGE  NC.  37  FO  S4 


13RI 

1382 

1383 

1384 

1385 
13  86 
1387 
1 388 

A 1389 


1 3°0 
13  91 


139? 

1393 

13 


REF  84  LAST  430 
REF  1 
REF  1 

REF  20  LAST  424 

REF  24  LAST  298 
REF  144  LAST  430 


42  ,3443  56  002  0 

42.3444  54  144  1 

42.3445  3 1007  1 

42  ,3446  0 0006  1 

42,  3447  7 4751  1 

42,  3450  C 00C6  1 
42,3451  7 4737  1 

42,  3452  22  155  0 


S E PM  I N 


XCH  0 

TS  SEPMNRET 

CA  LOTEMOU7 

EXT  END 

MP  0 1 T3 

EXTEND 

MP  B IT  13 

LXCH  MPAC  +1 


REF  4 LAST  430 

RFF  145  L AST  43  1 

REF  6 LAST  430 

REF  1 

REF  2 LAST  43  1 


42,34  53  3 IOC  6 0 

4 2,  34  5 4 5 4 154  0 

42  ,3455  0 71  15  0 

42,  ^ 4 56  03303  l 

42,  3457  0 0144  0 


CA  HITEMOUT 

TS  MPAC 

TC  OMP 

ADRES  MI  NC  CM 
ENDSPMIN  TC  SEPMNRET 


FINDS  WHOLE  MINUTFS  IN  RIT1  3 
OF  LOTEMOUT  AND  ABOVE. 

REMOVES  REST  OF  SECONCS. 

LEAVES  FRACT  MIN/fcC  IN  MPAC+1. 
LEAVES  WHOLE  HOURS  IN  MPAC. 

SR  12,  THROW  AWAY  LP. 

SR  2,  TAKE  FROM  LP.  = SL  12. 

THIS  FORCES  BITS  12-1  TO  0 IF  ♦, 
FORCE  S B I TS  12-1  TCI  IF-. 


HULT  BY  1/15 

GIVES  FRACT  M IN/60  IN  MPAC  + 1. 
GIVES  WHOLE  HOURS  IN  MPAC. 


3 1305  THIS  IS  A SPFCIA|  PURPOSE  VERB  FOR  DISPLAYING  A DOUBLE  PRECISION  AGC 

RI  3 9 6 WORD  AS  1'  DEC  IMAL  DIGITS  ON  THE  AGC  DISPLAY  PAN  FI  . IT  TAN  BE  USED  WITH 

R 1397  ANY  NOON,  EXCEPT  MIXED  NCUNS.  IT  DISPLAYS  THE  CONTENTS 

R 1398  OF  THE  REGISTFR  NOUNADO  IS  PCINTING  TC  . IF  USED  WITH  NOUNS  WHICH  ARE 

R1399  INHERENTLY  NCT  DP  SUCH  AS  THE  C DJ  COUNTERS  THE  DISPLAY  WILL  BE  GARBAGE. 

3 1400  DISPLAY  IS  IN  Rl  AND  82  ONLY  WITH  THF  SIGN  IN  R1  . 


1431  REF 


■ . 


SETLOC  ENDRDLG  +1 


14U1  5 
140? 
14  03 

1404 

1405 

1406 


I4n7 
1408 
140  9 
1410 
1 4 1 1 

1412 

1413 
1 4 1 4 


1415 

1416 


REF 

REF 

RFF 
R E F 
RFF 
RFF 
RFF 
RFF 
RFF 
REF 


424  TO 
427 


3 LAST  418 
11  LAST  42  7 

146  LAST  431 
10  l A ST  430 
36  l AST  430 
71  LAST  430 

147  LAST  43  1 
5 LAST  429 


6 LAST  428 


428  : 

4<J  ,3^26 
40,  3n  2 7 
40 ,3030 
4 0,  3)31 
40 , 30  32 
40,3033 
4i'f  3034 
4f  ,3035 
40,3036 
40,  3f)37 
40 ,3940 
4C,  3041 
4!  , 304  2 
4C,3043 
40,  3(  44 


146  487* 

5 C 140  1 
0 ‘>2  7 1 

0 3032  0 
C 3451  1 
0 0006  l 
5 0145  1 

2 CCCl  0 
52  155  l 

3 4317  0 
c 4 776  C 
3 4755  ] 
54  156  1 
0 7/71  1 
0 3324  1 
C r 1 36  C 


COUNT*  $f/P  IN 
DSPOPDEC  INDEX  MIX8R 
TC  +0 

TC  +2 

TC  DS  PAL  ARM 

EXTEND 

INDEX  NOUNADD 
DC  A 0 
OXCH  MPAC 
CAF  Rl  D1 
TS  DSPCOUNT 

CAF  ZERO 
TS  MPAC  +2 

TC  TPAGREF 

TC  DS  P2 DEC 

ENDDPDEC  TC  ENTEXIT 


NORMAL  NOUN 


GAP:  ASSEMBLE  REVISION  5c  .IF  AGC  PROGRAM  ZfcPLINA  RY  ZOROASTER  9:12  OCT.  21,1970  ZERLA1D  .00  1 PAGE  432 

L PI  NBALl  GAVE  BUTTONS  ANC  LIGHTS  USER'S  PAGE  NC.  38  EO  S4 

R1417  LOAD  VCPBS  IF  ALARM  CCNOITICN  IS  OETECTEC  OUP  ING  EXECUTE. 

Pl^To  CHECK  FAIL  LIGHT  IS  TURNED  ON  AND  FNDOFJOB.  IF  A l A 7 u CONDITION  IS 
<1419  DETECTED  IHiRI  NG  ENTER  CE  CAT  A , CHECK  FAIL  IS  TURNED  ON  AND  IT  RCCYCLFS 
R1A?>  TP  EXECUTE  OF  ORIGINAL  LIAO  VERB.  RECYCLE  CAUSED  BY  1)  DECIMAL  MACHINE 

<1921  CARP  2 J MIXTURE  OF  OCT AL/ CE C IM AL  OATA  3)  OCTAL  RATA  INTO  DECIMAL 

<14??  ONLY  NOUN  4)  DEC  DATA  I N TC  CC  T CHY  NCUN  SI  RAT  A TOC  LARGE  FOR  SCALE 
R 1 4 ? 3 6)  FEWER  THAN  3 DATA  W3  3 D S LOADED  FOR  HRS,  MIN,  SEC  ND  UN.  8 1 2 ) - ( ft ) ALARM 

RI4?4  AND  RFC  YCL  F OCCUR  AT  FINAL  EATER  CF  SET.  (1)  ALARM  AND  RECYCLE  OCCUR  AT 

R 1425  ENTER  OF  CADR  . 


1426  PFF  1 


4 1,  2ft47 


SETLOC  ENDRTOUT 


14265  REF  ? LAST 

1427  REF  24  I AST 

1428  REF  1 LAST 

1429  REF  1 

1434  REF  1 

1431  REF  ? LAST 

143?  REF  1 

1433  REF  1 

1434  REF  3 LAST 

1435  REF  1 

1436  REF  1 

1437  PFF  4 LAST 

1 43R  RFF  2 LAST 


412  TO  424:  4f  7 4'  7*  COUNT*  **/P  IN 

429  41,2647  4 4752  1 AeCLDAO  C S TWC 


42:  4 1,  2650  0 2453  l 

41,2651  C !507  1 
41, ?6  5?  3 3056  1 

409  41 ,2653  ( 2366 

41  ,2  654  0 ? 33  2 1 

4 1 , 2fc55  2 3c  5 7 0 

432  41  ,2656  0 2366  0 

4 1,  26  57  C 2334  1 

41,  2660  2 30  60  l 

432  41  ,2661  C 2366  0 

41  3 41,  2662  C 2336  0 


TC  COMP  TEST 

TC  NOUNTEST 

CAF  VBSP1LD 

TC  UP  PA  T VB  -l 

TC  REQDATX 

CAF  V3SP2LO 

TC  JPDATVB  -l 

TC  RECDATY 

CAF  VBSP3LD 

TC  JPDATVB  -1 

TC  RE  CD  AT? 


TEST  IF  NOUN  CAN  BE  LOADFO. 


14  39 

1440 

1441 


1442  REF 

1443  RFF 

1444  RFF 

1445  RFF 

1446  REF 
1 447 

144ft  RFF 
1 44  9 RFF 

1450  RFF 

1451 

1452  RFF 

1453  REF 

1454  REF 
1 455 

1454,  l PFF 
1 455P2  PEF 
145503 
145504 
1455G5  RFF 


11  LAST  426 
1 


4 LAST  417 
7 LAST  423 
72  LAST  43  1 
1 

12  I AST  431 


27  LAST  424 

2 LAST  432 

13  LAST  432 

25  LAST  43  2 

3 LAST  432 

14  I AST  432 

2 LAST  161 
If  LAST  4 17 


2 LAST  412 


4 1 ,>664 

4 1,  2665 

■ 

41, 2667 
4 1,  2670 
41  ,2671 
4 1,  2672 
41  ,2673 
41  ,2  674 
41,  2675 
41  ,2676 
4 1,  2677 

41  ,27C1 
* 1,  2702 
41  ,2703 
41  ,2704 
41,  2 70  5 
4 1 ,2706 
41,  27C7 
4 1,  27  10 


4 6254  0 
0 30fcl  0 
0 0006  1 
3 2141  1 
52  CC6  0 
3 4755  1 
C 3145  1 

5 C 145  1 
54  000  0 

3 4753  1 
C 3145  1 
50  145  1 
54  CC1  1 
2 475?  0 

0 3145  1 
50  145  1 
54  002  1 

4 4757  1 

6 1001  1 
0 0006  1 

1 2711  C 
0 3045  0 


PUTXY  l 


TC  ALLDC/nf. 

F X TEND 

DC A LODNNLOC 

DXCH  Z 

CAF  ZERO 

TC  PUT  COM 

INDEX  NOUNADD 

TS  0 

CAF  ONE 

TC  PUTCOM 

INDEX  NOUNADD 
TS  1 

CAF  TWO 

TC  PUTCOM 

INDEX  NOUNADD 

TS  2 

CS  SEVEN 

AO  NOUNREG 

EX  T EN  D 
RZF  +2 

TC  I.UAOLV 


TFST  THAT  THE  3 DATA  WORDS  LOAOET  ARE 
ALL  DEC  OR  All  OFT  . 


SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUT  INE  . 

X COMP 


Y COMP 


Z FOMP 


IF  NOUN  7 HAS  JUST  H FEN  LOADED,  SET 
FLAG  BITS  AS  SPECIFIED. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


PINBALL  G A ME  BIJTTCNS  ANO  LICFTS 


1 45506 
145508  RFF 
14551  RFF 
145512 
145514  REF 


4 1,  2711 
41,  2712 
41  ,2  713 
4 1,  2714 
41  ,2715 


CC04  0 
4763  0 
1002  1 
CCC6  1 
2725  0 


o:  T 30 
X REG 


14552  REF 
145522 
14552/.  RFF 
145526  RFF 
1 455  28  REF 


15  LAST  43  2 


LAST 
LA  ST 
L AST 


422 

432 

433 


41 ,2720  50  145  1 

4 1,  2 72  1 3 CCCC  1 

41,  2722  c 4 CC1  1 
41  ,2723  3 4753  1 

41, 2724  55*002  0 


INDEX  NOUNADD 


14553  RFF 
14553? 
145534  REF 


41  ,2 725  6 4361  1 

4 1 ,2726  0 O C 06  1 

41,2727  1 275  1 1 


CHAN  BITS  AO  DCT21 

FX  T END 

BZF  3ITSOFF2 


145536  RFF 
145638 
14554  RFF 


LAST  413 


. 

. 

41,  27  32 


1004  1 
CCC6  1 
2740  0 


CA  Z REG 
E XTEND 

8ZMF  3ITS0FF 


145542  PFF 
145544 
145546  REF 
1455  48 
14555  REF 


41  ,2733 
41,  2734 
41  ,2735 
41  ,2736 
4 1,  2737 


3 1003  C 
C CCC6  1 
5 100  2 1 
05  000  1 

1 2744  C 


CA 

E XTEND 
INDEX 
WOR 
TCF 


Y R EG 

XR  EG 

D 

3 1 TSOFFl 


14555?  PEF 
145553 
145554  REF 
145556 


433 

433 


41  ,2740 
■ 

41,  2742 
41  ,2  743 


4 1003  1 
C CCC6  1 

5 1002  1 
03  000  1 


0TTSOFF  CS 


EXTEND 
I NDE  > 
WAND 


YRFG 


XREG 

0 


1 455  5 R RFF  9 
14556  RFF  129 
145562  RFF  ? 


4 1 , 2744 
41 ,’745 
41 ,2746 


1 1 ' C 0 2 

10  000  i 

1 2751 


81 TSOFF 1 CC  S 
CCS 
TCF 


XREG 

0ITSOFF2 


If*  LAST  433 


41 ,2752 


31  TSOFF’  RELINT 


LOADL  V 


14565 
1457 
14  58 
14  59 
1 460 
1461 


RFF 

RFF 

RFF 

PEF 

REF 

RFF 


I A ST 
I.  AST 
LAST 
LAST 
LAST 
LAST 


432 

432 

432 

432 


4 763 
41,  2753 
41  ,2  754 
41,2755 
4 1 , 2756 
41  ,2757 


4 4753  0 
0 2453  1 
C 2507  1 
2 3056  1 
C 2366  0 


B ITS4.ES 
ONF 

COMPTF  ST 
NOUNTEST 
V3  SP  1LD 
JPDATVB  -1 


9:12  CCT.  21,1970  ZERLAID  .001  PAGE 


433 


USER'S  PAGE  NO.  39  EO  S4 


IS  IT  A CHANNEL  (30  CP  UNDER) 


YE  S 


FC  ADR  OF  ERAS  ABL  E CELL 
1 SET  FRANK,  NOUNAOD 


RAKE  IT  LOOK  LIKE  A CHANNEL  FOR  A WHILE 

D CM  TOUCH  CHAN7  (SUPERBANK) 

R3  IS  ZERO  FOR  OFF,  NCNZERC  FOR  ON 


WAS  IT  REALLY  A CHANNEL 

YES 


TEST  IF  NOUN  CAN  BE  LOADED 


SAP: 


ASSEMBLE  REVISION  56  OF  A6C  PKfCPAV  ZERL  INA  BY 


1*62 
1463 
1 '-.S'* 
146*5 
1 A 66 
1 *57 
1 468 

1 4 69 

1 4 70 
1 A 7 1 
147? 
1 4?  3 
1 A 7 A 
1475 
1 A 76 
1 A77 
1 A 7B 
1479 


PINBALL  GAMF  BUTTONS  AND  LIGHTS 


REF  2 LAST  A32 

PEF  2 LAST  432 

REF  6 LAST  A33 

RFF  2 LAST  432 

RFF  o LAST  4 1 A 

RFF  2 l AST  432 


REF  5 LAST  432 
PEF  8 LAST  432 
PEF  73  LAST  A32 
RFF  4 LAST  A 3 2 
RFF  17  LAST  433 

RFF  40  l AST  433 
REF  5 LAST  434 
RFF  IP  LAST  A 3 A 

REE  4 LAST  433 


41,  2760 
41  ,2761 
41,  2762 
41 ,2763 
41  ,2  764 
4 1,  2?as 
41  ,?  766 
4 1,  2 767 
4 1 , 7 77l 
41  ,2771 
41,  2772 
41  ,2773 
41  ,2  774 
4 1, 2775 
41  ,2776 
4 1 ,2777 
4 1,  3000 
41 »30C1 


C 2232  1 

3 3057  0 
C 2366  0 
0 2334  1 

4 4756  0 

0 3061  0 

0 0006  1 
? 2141  1 
52  OC 6 0 
3 A755  1 
C 3145  1 
5 n 145  1 
54  000  0 
2 47  5 3 1 
0 3145  1 
SC  145  1 
54  0C1  1 
0 3 04  5 0 


PUTXY 


1431 
1 A 87 
14  83 
1434 

1485 

1486 

1487 

1488 
1499 


REF 

RFF 

PEF 

RFF 

REF 

REF 

RFF 


3 


9 

74 

6 

19 


L AST 

I A ST 
I AST 
LAST 
LAST 
LAST 

I AST 


434 

4 34 
434 
434 
434 
434 

434 


41,  3' i C 2 C 2332  1 
41,3003  0 C u06  1 

41  ,3004  3 2141  1 

41,  3005  5 2 roe  0 

41  ,3006  3 4755  1 

41, 30C7  C 3145  1 
4 1,  30  10  50  1 45  1 

41  ,301 1 54  000  0 

A 1,  3012  0 3CA5  C 


ALOAD 


IA90 
1491 
14  93 
1494 
1436 
14  96 
1407 
1 498 

1499 

1500 

1501 

1502 

1503 


RFF 

REF 

REF 

RFF 

REF 

REF 
PFF 
REF 
R FF 
PFF 

RFF 


4 I 
5 
24 
10 


7 

1 

42 

7 

20 

6 


LAST  434 
LAST  433 
LAST  425 
LAST  413 
LAST  434 

I A ST  434 
L AST  4 34 
LAST  434 
LAST  434 
L AST  434 

LAST  434 


41  ,3013 
41  ,3014 
4 1,  30  15 
41  ,3016 
41,  3^17 
4 1,  30  2(i 
41  ,3921 
41,  3022 
41  ,3023 
41  ,3024 
4 1,  30  25 
41  ,3026 
41,  3027 


4 4753  0 
0 2453  1 

2 4735  1 
55*014  1 
C 2334  l 
C 0006  l 

3 2141  1 
52  CC6  0 
3 4753  1 
C 2145  1 
50  1 4 5 1 
54  001  1 
C 3045  0 


BLOAD 


1504 
150  5 
1537 

1508 

1509 
1 51  0 
1511 


RFF 

RFF 

REF 

RFF 

REF 


LAST 
L A ST 
L AST 
LAST 
L A ST 


432 
43  4 
434 
434 


41  ,3  031 
4 1,  30  22 
41  ,3033 
4 1 ,3034 
41,  3035 
41  ,3036 


2 4735  1 
5 5 '0  14  1 
C 2336  0 

0 0006  1 

3 2141  l 


CLOAD 


9:12  O;  T.  21,1970 


ZFPIAI  C 


PAGE  434 


.001 

USER'S  PAGE  NO.  4C  EC  S4 


TC  REODATX 

CAF  VBSP2LD 

TC  UPDATVB  -1 

TC  PEODATY 

CS  FIVE 

TC  A L LPC  /Of 

FX T END 

OCA  LODNNLCC 

OXCH  Z 

CAF  ZERO 

TC  PUTCOM 

INDEX  NOUNADD 

TS  0 

CAF  ONE 

TC  PUTCOM 

INDEX  NOUNADD 

TS  1 

TC  LDAOLV 

TC  RE  GO  ATX 

EXTEND 

OCA  LOONNLOC  SWITCH  BANS S TO  NOUN  TABLE  PEADING 

DXCH  Z ROUTINE. 

CAF  7 FRO  X COMP 

TC  PUT  C CM 

INDEX  NOUNADD 

TS  0 

TC  LOADLV 


CS  ONE 

TC  COMPTEST 

CAF  3 1 Tl 5 SET  CLPASS  FOR  PASSO  ONLY 

TS  CLPASS 

TC  REGDATY 

EXTEND 

OCA  LOONNinr.  SWITCH  BANKS  TO  NO  IN  TABLE  READING 

DXCH  7 ROUTINE. 

CAF  ONE 

TC  PUTCOM 

INDEX  NOUNADD 

TS  1 

TC  LOADLV 


CS  TWO 

TC  COMPTEST 

CAF  81  Tl  5 SET  CLPASS  FOR  PASSO  ONLY 

TS  CLPASS 

TC.  REQDATZ 

E XTENO 

CCA  LODNNLOC  SWITCH  BANKS  TO  NOUN  TABLE  READING 


TEST  THAT  THE  2 DATA  WORDS  LOADED  ARE 
ALL  DEC  OR  AIL  OCT. 

SWITCH  BANKS  TO  NOUN  TABLE  PEADING 
ROUTI  NE. 

X COMP 


Y CC«P 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


PINBAIl  GAME  RUTTONSANP  LIGHTS 


1512  REF  11  LAST 

1513  REF  27  LAST 

15K  REF  8 LAST 

1 5 1 5 REF  21  LAST 

1516 

1517  REF  7 LAST 


434  41,  30-37  c 2 006 

434  41 ,3040  3 4752 

434  4 1,  3041  C 3145 

434  41,3042  50  145 

41  ,3043  54  002 

434  41, 3044  C 3C45 


DXCH  Z 

CAF  TWO 

TC  PUTCCM 

INDEX  NinUNADO 

TS  2 

TC  LCAOIV 


11 

1520 

1521 
15215 

1522 

1523 

1524 

1525 


1 I F 
REF 
PFF 
REF 
RFF 
REF 
REF 
REF 


75 
13 

76 
1 

5 

6 

37 

25 

1 


LA  ST 
L AST 


LAST 
LAST 
LAST 
L AST 


434  41  ,3045  3 4755 

M3  41,3046  54  777 

435  41,  30  47  4 47  5 5 

41  ,305C  55*013 

414  4 1,  3051  C 4457 

4 18  4 1,  3q5  2 4 43  60 

431  41,3053  54  776 

430  41,305*  C 4635 

41  ,3055  61607 


1 

C 

0 

0 

1 

0 

0 

1 


LOACLV 


CAF 

TS 

C S 

TS 

TC 

CS 

TS 

TC 

CADK 


1 ERO 

OECBRNC  H 
ZERO 
LOADSTAT 
RELDSP 
VO  1 

DSPCOUNT 
PUST JUMP 
RECAL  TST 


IW 


4 1 , 3f  c 6 
41, 3057 
41  ,3060 


CCC25  0 VRSPILC  DEC 

00026  0 VR  SP  2l  0 DEC 

00027  1 VBSP3LC  OEC 


21 

22 

23 


1529 

1530 

1531 

1532 

1533 


1 534 

1535 

1536 
1 *37 
1538 
1530 
154? 
1541 


RFF  13 
REF  14 
REF  3 
RFF  4 
REF  5 
REF  1 30 


l AST 
L AST 
LAST 
I AST 
LAST 
I AST 


REF  85  LAST 
RFF  14  LAST 


REF  4 I AST 
REF  86  LAST 


435 

410 

435 


435 

433 


431 

435 


42  1 
435 


41, 1C  6 l 5 4 117 
41  ,3062  4 0777 

41  ,3063  54  021 

4 1,  3064  4 0C2  1 

41 ,3065  4 0021 

4 1 , 3 G 6 6 10  r c 0 

41,  30  67  1 3C  7 1 

41  ,3070  0 0002 

41, 3C71  6 0117 

41  ,3072  0 00C6 

41,3073  1 3075 

41,  3074  C 4 1 4 5 
41  ,3075  0 0002 


1 

1 

0 

0 

0 

0 

C 

0 

0 

1 

1 

0 

0 


ALLOC  /CC 


GOO 


DECOUNI 

OECBRNCH 

SR 

SR 

SR 

+ 2 
0 

DECOUNT 

+2 


TC  ALMCYC  LF 

TC  0 


1544 

1544 

1566 


RFF  87  LAST  435 

RFF  1 

REF  1 

REF  3 1 AST  422 

RFF  1 

RFF  2 LAST  435 


41,  30* 
41,3^77 

• I, 


41,  31CI 
41  ,3102 
41  » 31 C3 


56  CC2 
54  114 
3 434  7 
7 C 147 
0 4322 
0 0114 


0 

1 

C 

1 

D 

0 


SFRUTNOR  XCH  Q 

TS  EXITEM 

CAF  M I 05 

MASK  NNTYPTEM 
TC  RIGHT5 

TC  EX  IT  FM 


1 5*8 

1549 
1 55: 

1551 

1552 

1553 


REF  B8  LAST  435 
PFF  3 LAST  635 
RFF  15  LAST  435 
REF  1 

REF  55  LAST  433 
RFF  16  LAST  435 


>1,3  104 
41  ,3105 
41,  ? 1C6 
4 1,  3 If  7 
41  ,3110 
4 1,  3111 


56  C02  0 
54  114  1 
5C  117  0 
3 3136  C 
54  001  1 
5C  117  0 


SFRUTM  IX 


XCH  0 

TS  EX  ITEM 

I N'OE X UE COUNT 
CAF  DISPLACE 
TS  L 

INDEX  DECCUNT 


9:12  OCT.  21,1970  ZEPLAID  .001 
US  ER  'S  PAGE  NO  • 41 

ROUTI  NE. 


PAGE  435 
EO  S4 


RELEASE  FOP  PRIORITY  DISPLAY  PROBLEM. 

TO  BLOCK  NUMERICAL  CHARACTERS  AND 
CLEARS  AFTER  A COMPLETFO  LOAD 
AFTER  COMPLETEC  LOAD,  GO  TO  RECALTST 
TO  SEE  IF  THERE  IS  RECALL  FROM  ENOIDLE. 

V 02  1 = ALOAC 
VB22  = 8L0AD 
VB  2 3 = CLOAD 


TESTS  THAT  DATA  WORDS  LOADED  ARE  EITHER 
ALL  DEC  OR  ALL  OCT.  ALARMS  IF  NOT. 


SHIFTED  RIGHT  2 

DEC  COMP  BITS  IN  LOW  3 

SOME  ONES  IN  LOW  3 

ALL  ZEROS.  ALL  OCTAL.  OK 

DEC  COMP  = 7 FOR  3 COMP,  =6  FOP.  2CJMP 

(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCS) 

MUST  MATCH  6 FOR  3C0MP,  5 FOR  2C0MP. 

ALARM  AND  RECYCLE. 

ALL  RE  OUT  RED  ARE  DEC.  OK 


GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 
CANT  USE  L FOR  RETURN.  TSTFORDP  USES  L. 


SF  ROUT INE  NUMBER  IN  A 

GETS  SF  ROUT  I NE  NUMBER  FOR  M IX  EO  CASE 


PUT  TC  GOQ,  TC  RIGHTS,  OR  Tf  L EFT  5 IN  L 


GAP:  ASSEMBLE  REVISION  56  OF  A3:  PRCGRAM  ZERIINA  BY  ZQPQASTtR 


9:12  OCT  • 2 I*  1 Q70  Z FPL  A 10  .00  1 


PAGE  436 


L PINBALL  GAPE  BJTTCNS  ANO  L I C-ETS 


USER*  S PAGF  NC.  42  E3  S4 


1554 

1555 

1556 

1557 
Pi  558 

1 559 


REF  2 LAST  404 

PFF  2 LAST  309 

REF  56  LAST  435 

CO  TC  GO0(CEfnUNr=0  ), 
PFF  4 LAST  435 


41,311?  3 4346  1 

41,3  1 13  7 0153  1 

41  ,3114  50  001  0 

41.3115  t CCCO  1 

on  rc  P IGHT  SIDE CO UN T= 1 ) , 

41.3116  0 0114  o SFRFT1 


CAF  LOWS 

MASK  PUTMXTEM 

INDEX  L 

TC  0 

00  TC  LEFTS!  DECO  UN  T = 2)  • 
TC  EX  IT  FM 


L0W5,  M 105,  OR  HI  5 IN  A 

GFT  H 15  , VIOS,  CR  LCW5  OF  RUTMXTAB  ENTRY 


SF  ROUTT  NE  NUMBFR  IN  A 


1562 

1563 
1 564 
1565 
1 566 

1567 

1568 
1 569 

1570 

1571 
1 57? 

P.  1573 
15  74 
1575 


F FF 
P.EF 
REF 


LAST  435 
LAST  436 
LAST  431 


RFF  1 

PFF  17  LAST  435 
RFF  2 LAST  435 
RFF  57  LAST  436 
PFF  18  I AST  43fc 
RFF  3 LAST  436 
RFF  4 LAST  435 
REF  58  LAST  436 


DO  TC  GOQ  ( OEC  0 UN  T=0) 
PFF  6 LAST  436 


,3117 
, 3 1 2C 
,3121 
, 3122 
,3123 
,1124 
, 3 125 
,3126 
, 3127 
, 3 130 

,3131 

,3122 

,3133 


56  CC2  f SFCONU 
54  114  1 
5C  140  1 
C -122  0 
C 3141  0 
50  117  0 
• 3136  0 
54  001  1 
SC  117  0 
3 4346  1 
7 0147  1 
SC  CC1  0 
0 0000  1 
TC  P IGH  T5  ( DEC  OUMT  =1  ) , 
3 134  6 0000  1 SFRET 

3135  0 0114  0 


XCH  0 
TS  EXITCM 

INDEX  MIXBR 
TC  +0 

TC  CONUMNOR 

INDEX  RECOUNT 
CAF  D I SPLACE 
TS  L 
INDEX  DEC  CUNT 
CAF  LOW  5 
MASK  NNTYPTFM 
I NDE  X L 
TC  0 

OC  TC  LEFT 5 (DEC0UNT=2 ) 
D0U3LE 

TC  EX  ITEM 


GETS  2X(  SF  CONSTANT  NUMBFR) 


NORMAL  NOIJN 

MIXED  NOUN 

PUT  TC  GOQ,  TC  RIGHTS,  OR  TC  LEFT5  IN  L 


2 X ( SF  CONSTANT  N'JMeER  ) IN  A 


1576 

1577 

1578 


REF 

RFF 

REF 


? LAST  436 
3 LAST  422 


41,3140 


C 3C75  0 01  SPLACF  TC 

0 4322  0 TC 

C 4331  1 TC 


GOQ 
0 IGHT 5 
LEFT  5 


1579 

1580 

1581 

1582 


REF 


l AST  436 
I AST  436 

LAST  436 


4 1 , 1 14  1 
41  ,3 142 
41  , ■»  143 
4 1,3  144 


3 4346  1 

7 0147  1 
£ CCOO  1 
0 0 1 1 4 0 


CONUMNOR  CAF 
MASK 


DOUBLE 

TC 


L0W5 

NNTYPTEM 
E XI  TF  M 


NORMAL  NOUN  ALWAYS  GETS  LOW  5 OF 
NNTYPTAB  FOR  SF  CONUM. 

2 X ( SF  CONSTANT  NUMBEP ) IN  A 


I 883 
1 584 

158  5 

1586 

1587 

1588 

1589 
15  90 

1591 

1592 

159  3 
1594 
1 595 
1596 

8 15  97 
1598 


RFF  19  l A ST  436  41  ,3145  54  11  7 1 

PFF  or  I AST  436  4 1,  3146  56  0C2  0 

RFF  1 41  ,3147  54  115  0 

RFF  77  LAST  435  41,3150  3 4755  1 

REF  3 LAST  427  4 1 , 3 T 5 T 54  U2  0 

REF  26  LAST  436  41,3152  50  117  0 

RFF  3 LAST  41C  41,3153  57'CCS  0 

RFF  1 4 8 LAST  43  1 4 1,  3 154  54  1 55  1 

RFF  21  LAST  436  41,3155  50  117  0 

RFF  10  LAST  433  4 1,  3 156  57'0C2  1 

REF  149  LAST  436  41,3157  54  154  0 

REF  1C  LAST  436  41  ,3160  50  140  l 

4 1,  3161  0 3 1 6 1 1 

RFF  1 41  ,3 162  C 3207  1 

I F MIXNOUN,  PLACE  ADDRESS  FOR  COMPONENT 
REF  22  LAST  436  41,  3163  50  117  0 


PUT  COM  TS 
XCH 
TS 
CAF 
TS 

INDEX 

XCH 

TS 

INDEX 

XCH 

TS 

INDEX 

TC 

TC 

K INTO  NOUNADD, 
INDEX 


DECOUNT 

Q 

DECR  FT 
ZERO 
MPAC+6 
DECOUNT 
X REGLP 
MPAC  + 1 
DE  COUNT 
XREG 
MPAC 
MIX  RR 
+ 0 

PUTNORM  NORMAL  NOUN 

SET  EBANK  BITS. 

RECOUNT  GET  IDAODTAB  ENTRY  FOR  COMPONENT 


K 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERL  INA  BY  ZOROASTER 


L PINBALL  GAMF  BUTTONS  AND  LIGHTS 


1599 
1 600 
160  1 
160? 
1603 
160  A 

1605 

1606 
161)7 
1608 
160  9 
1S1D 

A 1611 
A 1612 
A1  61  3 
l 6 1 A 

1615 

1616 
1617 
1610 
1610 
1620 


REF  A 
P.FF  5 
PEF  6 

REF  23 
REF  22 
PEF  15 
REF  1 
REF  1 
RFF  3 
RFF  3 
RFF  1 


LAST  A 27 
LAST  A27 
LAST  A33 

LAST  A36 
LAST  A 35 
LAST  A35 


LAST  A?  3 
I AST  A22 


4 1,  3 1 6 A 
61,3165 
41  ,3166 
Al,  3167 
Al  ,3170 
Al, 3171 
41,  3172 
41  ,31 73 
41,  3174 
41,3175 
,1  ,31  76 
4 1,3  177 


3 C 1 50  0 
7 4356  1 
0 4303  0 
0 0006  1 
60  117  0 
* A 1 A 5 C 
1C  777  1 
0 32 A A 0 
C 2501  1 
0 3 10  A 1 
0 ? 306  0 
C 3225  1 


CA 

MASK 

TC 

F XTEND 

SU 

TS 

CC  S 

TC 

TC 

TC 

TC 

TC 


I DADlTEM 
LOW  1 1 
S ETNCADR 

DECO  UN T 
NOUNACO 
OECBRNCH 
P JT  DECS  F 
DCTSTCYC 
SFRUTMT X 
DPT  EST 
P UTC0M2 


RFF  23  LAST  A37 
REF  ?A  LAST  437 
RFF  2a  LAST  437 
RFF  78  I AST  A36 
RFF  25  LAST  A37 

REF  2 LAST  A37 


41  ,3200  2 A 1A5  1 

41,  3201  3 Cl 4 5 l 

41,32  ? 26  117  1 

Al  ,3203  3 4755  1 

Al,  3204  50  1 17  0 

Al  ,3205  5 3 ' 777  0 

41,3206  0 3225  1 


PUTGPCQM 


IN  CR 
CA 
AOS 
CAF 
I NDE  X 
TS 
TC 


NOUNAOD 
NOUNADO 
OECOUNT 
Z FRO 
OECOUNT 
0 

PUTCDM? 


1621  RFF 

1622  REF 

1623  REF 
162a  RFF 

1625  RFF 

1626  RFF 

1627  RFF 

1628  REF 

1629  REF 

1630  PEF 


2 LAST  413 
16  LAST  437 
2 LAST  437 

2 LAST  A 3 7 

3 LAST  A?  3 
A LAST  43  7 
3 LAST  437 

75  LAST  43  7 
26  LAST  437 


4 1,3  207  C A3 11 

41.3210  10  777 

41.3211  C 32AA 

41.3212  0 250  1 

41.3213  0 3076 

A 1,  32  14  C 2206 
41  ,3215  0 3221 

4 1 , 1 2 1 6 3 4755 

4 1,  32  17  54  1 17 

41  ,3220  C 3200 


0 PUTNORM  TC 

1 CCS 

0 TC 

1 TC 

0 TC 

0 TC 
TC 

1 CAF 

1 TS 

0 TC 


SE  TNADO 
OECBRNCH 
PUTOECS  F 
DC  TSTC  YC 
S FRUTNOR 
OP  TEST 
PUTC0M2  - 
ZERO 
DECOUNT 
PJTOPCOM 


1633 
16  34 

1635 

1636 


8 

A3 


422 
4 34 


RFF  1 

RFF  15C  I AST  436 
RFF  2 LAST  436 


41,  3221  2 F 1 46 

41.3222  6 4753 

41 .3223  C 0006 

41,  3 224  1 3231 

41  ,3225  56  154 

41,3226  0 0115 


1 

1 

1 

0 


CA  NNAOTEM 

AD  ONE 

EXT  END 

3 ZF  CHAMCAD 
PUT  COM  2 XCF  M P AC 

TC  DECRET 


1637  PFE  38  LAST  435 

1638  PFF  1 

1638  RFF  1 


0776 
41  ,3227 
41,  3230 


EB A NK=  0 SPCOLNT 

02145  0 GTS  F INL  C 2 C A DR  GTS  FIN 
f 4 1 C l 0 


1639  REF 
16301  RFF 
16  39  2 

16303  RFF 


LAST  432  41,3231  4 4757  1 

LAST  4 22  41  ,3232  6 1016  1 

41,3233  0 00C6  1 

LAST  435  4 L ,3234  1 3045  1 


CHANLOAD 


CS  SEVEN 

AD  NOUNC-ADR 

E XTEND 

BZF  LDADLV 
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USFR  ' S PAGE  NO.  43  EO  S4 

OF  NOUN . 

( EC  ADR ) SURK  FOR  CURRENT  COMP  OF  NOUN 
ECADR  INTO  N3UNCADR.  SETS  EB,  NOUNADD. 
C(NCUNAOO)  IN  A UPCN  PFTURN 
PLACE  (ESUPK)-K  I N T C NOUNAOD 


+ OEC 
+0  OCTAL 

TEST  IF  OEC  ONLY  BIT  - 1.  IF  SO, 

ALARM  AND  R EC  YC  LF  . IF  NOT,  CONTINUE. 

NO  OP 

TEST  FOR  DP  SCALE  F CR  CCT  LOAD.  IF  SO, 
+ ' INTO  MAJOR  PART.  SET  NOUNADO  FOR 
LOADING  OCTAL  WORD  INTO  MINOR  PART. 

OP  (ESUBKJ-K+l  OR  F+l 
NOJNAOO  NOW  S FT  FOR  MINOR  PART 
( E SLS  K)  + 1 OP  F«-l  I NTC  DECCUNT 
NOUNADO  SET  FOR  MINOR  PART 

ZERO  MAJOR  PAR  TIE  SUBK  CR  E) 


ECADR  E R CM  NOUNCACR.  SETS  ER,  NOUNADD. 

♦ CEC 
+ C OCTAL 

TEST  IF  DEC  ONLY  BIT  = l.  IF  SO, 

ALARM  ANO  RECYCLE.  IF  NOT,  CONTINUE. 

NO  OP 
DP 


IF  NNAOTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 


DON  T LOAD  CHAN  7.  (IT 


SUPERRANK  J 


GAP : 


ASSEMBLE  REVISION  66  OF  AGC 
PINBALL  GAME  BUTTONS  AND 


PROGRAM  ZERL  INA  BY  ZOROASTER 
LICHTS 


9:12  OCT.  21  ,1970  ZERLAIO 
USER  *S  ’AGE  NO.  A A 


1 ‘■394 
1 6A0 
16  A 1 
1/SAl  1 
1 6A 1 2 
1642 
16A1 


&TF  7 
REF  151 

REF  152 

REF  9 


LAST  A37 
I A ST  42? 
LAST  A3  7 

LAST  A3  fl 

LAST  Al7 


A 1,  3235 
A 1 ,3236 
A 1 i '23  7 
A 1 , 3 2A0 
A 1 ,32A1 
AI,  32A2 
A 1 , 0 2 A 3 


ioi6  i 
7 500 A 1 
56  1 5 A 1 
C 0C06  1 
5 015A  1 
Cl  CCO  0 
0 3CA5  C 


CA  NOUNC.AOR 

MASK  L0W9 
XCF  MPAC 
E XTEND 
INDEX  MPAC 
WRITE  9 
TC  LOAD  L V 


R 16AA 


PUTDECSF 


FINrS  Ml  XBR  AND  DFCCLNT 


STILL  SET  FROM  PUTCCM 


1 648 
1 6A6 
16A7 
1 6 48 
16A9 
165:- 

1 651 

1652 

1653 
165A 
1655 


I AST  A22 
LAST  A26 


REF  1 

PFF  1?  LAST  A35 
REF  11  l AST  A3fc 


RFF  1 

REF  A LAST  A37 

REF  1 

REF  A LAST  A37 


41  , 3 2A5 
< 1 ,32A6 
A 1,  ?2A7 
Al  ,325  ' 
A 1 , 7 251 
Al ,3252 
A 1 , 3 ? 5 3 
Al,  3264 
Al  ,3255 
Al  ,3256 


r 3117  0 
5 A 123  0 
C CCC6  1 
3 3230  0 
52  006  n 
eC  1 AO  1 
O 3252  1 
0 3256  0 
C 310A  1 
0 3257  1 
C 3 076  0 


P1JTDECSF  TC 
TS 

FXTEND 

OCA 

DXCH 

I NDEX 

TC 

TC 

TC 

TC 

PUTSF NCR  TC 


SF  C QNUM 
SFTEMP  1 

3 TSF  I NLC 
7 

MI  XBP 
♦ 0 

PUTS  FNOR 
SF  RUT  MI  X 
PUTDC  SF  2 
SFRUTNOR 


?X (SF  CON  NUMB)  IN  A 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
REARING  ROUTINE. 

LOADS  SFTEMP  l , SF  TE MP  2. 


1656  REF 

1657  PFF 

1658  REF 

1659  REF 
A 1660 

1661  RFF 

1662  REF 

1663  REF 
1 66A  PFF 

1665  REF 

1666  RFF 

1667  PFF 

1668  REF 

1669  RFF 

1671  RFF 

16711  REF 

16712  RFF 
1 6 71  A RFF 
16715  PFF 
1 6 7l  6 REF 

1672 


131  LAST  a3  5 
1 

A LAST  A2  3 

1 


1 

1 

1 

A I AST  A 3 1 
2 LAST  A3p 
1 

5 LAST  A 38 


6 LAST  A3a 
? LAST  A3S 

7 LAST  A 3 8 

8 LAST  A38 


Al,  3257 
Al ,3260 
A 1 , 3 2 61 
Al,  3262 

Al,  3263 
',1  ,3  26A 
Al  ,3265 
Al,  3266 
Al  ,3267 
Al, 3270 
Al,  ■>271 
Al  ,3272 
Al,  3273 
Al  ,3 27A 
Al  ,3275 
Al,  3 276 
Al  ,3277 
Al,  3300 
A 1 , 3 30  1 
Al  ,3302 


50  ''CO  1 
3 3262  1 
C A 6 AO  1 
62377  0 

6 1 1 A 3 0 
610A5  l 
61133  1 
61151  0 
61176  0 
6 1 A 5 1 0 
61  1 51  0 

65A60  0 
6 1 A 5 1 0 
61203  1 
611A6  0 
6 1 A 5 1 0 
610A5  1 
61  A 51  0 
61 A 5 1 0 


PUTDCSF2  INDEX  ft 

CAF  SFINTABP 

TC  BANKJUMP 

SFINTABR  CAD*  30ALMCYC 


CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CARR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

ENDRUTIN  EQUALS 


PI NRCUND 
DEG  IN  SF 
ARTHINS  F 
3 P I N SF 
DP  IMS  F 2 
DS PAL  ARM 
3 P I NSF 
HMS  IN 

dspalarm 

DP  IN  SF  A 
ART  INIS  F 
3 SPA  LAPP 
DEG  INS  F 
DS  PALAPM 
3 SPA  LA  R M 


SWITCH  BANKS  FOR  FXPANSHION  ROOM 
ALARM  ANO  RECYCLE  IF  DEC  LOAD 
WITH  OCTAL  ONLY  NOUN. 


LRPOSOJT  C ANT  BF  LOADEO. 
SAME  AS  ARITHPP1 

MIN/SEC  CANT  BE  LOADED. 


2 I NT  OUT  C ANT  BE  LCADEC. 
TESTS  ft  T F NO  FOR  3 6C-C0U 
RRANGOUT  CANT  BE  LOADED. 
RROOTOUT  CANT  RE  LCADEO. 


R1673  SCALE  FACTORS  FOP  THOSE  ROUTINES  NEEDING  THEM  ARE  AVAILABLE  IN  SFTE  MPl  . 

R 1 674  ALL  SFI  N R CUT  I NFS  USF  MPAC  MPAC  + 1 . LEAVE  RESULT  IN  A.  END  WITH  TC  DFCPET 


3AP:  ASSEMBLE  FFVISION  5 6 GF  AGC  PRC  C-PAM  ZERLINA  RY  ZOROASTER 


l P1N8ALL  GAME  BUTTONS  AND  LIGHTS 


1675 

REF 

1 

40,  30  4 5 

SE  TLOC 

ENDDPDEC  *] 

16755 

RFF 

4 

LAST 

431  TO 

432: 

15  502* 

COUNT  * 

$4/ PIN 

il  575 

DEG 

INS  F 

A PPL  I C S loOO/lBO  = 5.  c 

555M  1C) 

5. 43434(8) 

1677 

PEF 

7 

LAST 

431 

40,3045 

0 7115 

0 

OEGIMSF 

TC 

DMP 

1678 

RFF 

1 

• T 

03131 

1 

ADRES 

DEGC0N1 

I 679 

REF 

153 

L AST 

438 

40,3047 

10  155 

1 

CC  S 

MPAC  +1 

1680 

RFF 

20 

LAST 

408 

4l  , ^050 

3 4741 

1 

CAF 

BIT11 

1 681 

4 ( , 1051 

C 3C53 

1 

TC 

+2 

16  82 

RC-F 

21 

LAST 

439 

40 , 30  5 2 

l 414  1 

0 

C S 

81  Til 

1683 

RFF 

154 

LAST 

439 

4(  , '053 

6 0155 

0 

AO 

MPAC  +1 

1 534 

RCF 

1 

4C,  3C54 

C 2222 

0 

TC 

2 ROUND  +2 

168  5 

RFF 

3 

LAST 

430 

40  ,3055 

0 4404 

0 

TC 

TP  SL  1 

1686 

RFF 

4 

LAST 

439 

40,3056 

r 44C4 

0 

DEGI  NS  F2 

TC 

TPSL1 

1687 

PEF 

1 

40, 30  57 

C 3 23  1 

1 

TC 

TE  STDF  LF 

1688 

RFF 

5 

LAST 

439 

40  ,3060 

0 4404 

0 

TC 

T P SL  1 

1689 

R EF 

156 

LAST 

439 

t C , C 6 1 

1C  154 

0 

CCS 

MPAC 

1690 

RFF 

1 

. 

0 30  66 

1 

TC 

SIGNF  I X 

1691 

REF 

2 

LAST 

439 

40,3063 

0 3066 

1 

TC 

S IGNFIX 

1692 

40,  3064 

4 COCO 

0 

COM 

1693 

REF 

] 56 

LAST 

439 

40  ,3065 

54  154 

0 

TS 

WP  AC 

1694 

RFF 

4 

LA  ST 

436 

. , 3 < - 

10  162 

0 

SIGNFIX 

CCS 

MPAC+6 

1 695 

REF 

1 

40, 3067 

C 3 125 

1 

TC 

SSNTOl 

1696 

PFF 

1 

40  ,3070 

0 3100 

0 

TC 

ENDSCALE 

1697 

REF 

167 

LAST 

439 

. 

1C  154 

0 

CCS 

MPAC 

1698 

RFF 

5 

LAS1 

^2  1 

40  , 30  7? 

C 5 706 

0 

TC 

::  SHOLE 

1699 

PFF 

1 

40,3073 

C 3123 

1 

TC 

NEG18C 

1 70D 

74 

C 3C75 

0 

TC 

+ 1 

1701 

PEF 

158 

LAST 

439 

40  ,3075 

56  154 

1 

XCH 

MPAC 

1702 

RFF 

8 

LA  ST 

425 

40  ,3076 

7 4733 

0 

MASK 

POSMAX 

1703 

REF 

159 

LAST 

439 

40, 30  77 

54  154 

0 

TS 

MPAC 

1 704 

RFF 

12 

LAST 

438 

40  ,3  100 

50  140 

1 

ENDS  CAL  E 

INDEX 

M IXBR 

1 716  0 5 

■ ,3101 

C 3101 

1 

TC 

+ 0 

1704  1 

40,  3102 

C 31C5 

0 

TC 

+ 3 

17042 

REF 

1 

4 C, 31 03 

0 3115 

1 

TC 

S FM  IX  CAL 

1704  3 

4 C, 3 1 C4 

C 3 106 

0 

MI  XB AC K 

TC 

♦ 2 

1704  4 

REF 

1 

40  ,3  105 

0 3120 

1 

TC 

SFNORCAL 

1705 

R FF 

132 

LAST 

438 

4 C , 1 IC6 

4 0000 

0 

NTRRACK 

CS 

A 

1 705  1 

RFF 

24 

L AST 

28  8 

40,  3 10  7 

6 4752 

c 

AD 

8 I T2 

1 7052 

■ , 1 1 

0 0006 

1 

EXTEND 

1735  3 

, 3111 

1 3113 

0 

BZF 

♦ 2 

17054 

RFF 

2 

1 AST 

424 

40, 3i 12 

0 2614 

0 

TC 

360-CDU 

17055 

RFF 

26 

1 AST 

435 

40,3113 

0 4635 

0 

F NOS  CALI 

TC 

POSTJUMP 

1 7156 

REF 

* 

L AST 

437 

40,  3 1 1 4 

63225 

1 

CADR 

PUTC0M2 

17057 

RFF 

89 

LAST 

430 

40  ,3115 

0 4616 

1 

SFMIXCAL 

TC 

RANKCALL 

1 70  5 e 

REF 

5 

1 A ST 

438 

4C  , ? 1 16 

6UC4 

1 

CADR 

S F RUT  MIX 

1 705  9 

PEF 

1 

40, 3 117 

C 3 104 

1 

TC 

MI  XBAC  K 
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USER'S  PAGE  NO.  45  FO  S4 


SF  ROUTINE  FOR  DEC  DEGREES 
MULT  BY  5.5  5(  101  X2E  XP- 3 

THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 
LEFT  3,  AND  CAUSES  360.  00  TO  OF/UF 
WHEN  SHIFTED  LEFT  AND  ALARM. 


LEFT  1 
LEFT  2 

RETURNS  IF  N3  OF/UF  (LFFT3) 

I E+  , GO  TO  SIGNFIX 
IF  +0,  GO  TO  SIGNFIX 
IF  - , USE  -MAGNITUDE  +1 
IF  -0.  USE  +0 

IF  OVERFLOW 

NO  OVERFLDW/UNDERFLOW 

IF  UF  FORCE  SIGN  TO  0 EXCEPT  - 180 


IF  ROUTINE  NO.  IS  NOT  CDU  DEGREES, 
THEN  THIS  IS  360  - CDU  DEGREES 
AND  ANGLE  IN  MPAC  MUST  BF  REPLACED 
BY  360  DEGREES  MINUS  ITSELF. 


gap: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  RY  ZOROASTER 


L PINBALL  GAME  BUT  TENS  AND  LI  GETS 


170^91  PEF  GO  LAST 
170592  PEF  5 LAST 
L705S3  PEF  I 


* ) .3122  C 3106 


1 

C 

0 


PANKCALL 

SFRUTNOR 

NORBACK 


L AST  A 39  40,  312  3 A A?33  0 
I AST  439  AT  ,3 1 2 A 0 3077  1 


NFG180  CS  PDSMAX 

TC  FNDSCALE  -1 


'708  REF  16f  LAST  A3  G 

1 7C  ° PFF  1 C LAST  AAC 

1710  PFF  133  LAST  439 

1711  PFF  3 LAST  AAO 


AO, 3125  A 0154  C SGNT01 
AO,  3 126  7 A 7 3 3 0 

AO  ,312  7 A OOOC  0 
AO,  3130  C 3077  1 


CS  MP AC 

MASK  PGSMAX 

CS  A 

TC  FNDSCALE  -1 


1 712 
1712 


AO,  3131  26161  0 DEGCON  l 20EC  5.  555555555 

AO, 3132  307C7  1 


1 7 1 ^ 

1716 

1717 
1 71  8 


1710 
17  23 
1721 


172? 

1723 

1724 

1725 


PFF 

RFF 

PFF 

RFF 

RFF 


PFF 

RFF 

RFF 

PFF 

PEF 


B 
15 
16  1 

162 

163 

2 


2 


L AST  439 
LAST  A3  8 
LAST  44  fl 
LAST  A A3 
LAST  AAO 

I AST  438 
LAST  435 
I AST  430 
LAST  A3  9 


4C, 3133 
A j ,3  134 
A 'i , 3 13  5 
AO  ,3  136 
AO  , 3 1 3 7 
40,  3 1 A C 
AO,  3141 
4P ,?  142 
AO,  3 1A3 
A?  ,3  1AA 
AO  ,3145 


C 7115  0 
00123  1 
56  1 c 6 0 
c 6 155  n 
56  154  1 
C CCC6  1 
1 3143  0 
0 4145  0 
C 3220  1 
0 3231  1 
0 3113  1 


AP  TH  I NSF  TC  DM  P 

ADPES  SFTEMP1 

XCH  MP  AC  +2 

XCH  Mp  AC  + 1 

XCH  MPAC 

EXTEND 

8ZF  3 I NROUND 

TC  ALMCYCLE 

BT  NROUND  TC  2 ROUND 

TC  TESTOFUF 

TC  ENOS  CAL  1 


1 725 1 PFF 

17252  RFF 

17253  REF 


I AST  440 
LAST  440 
LAST  440 


40,3  146 
AC  ,3147 
AO,  3150 


0 7115  0 
00123  1 
C 3143  l 


3 MP 

S FTFMP1 
B I KRCUND 


1739 

1740 

1741 
1 742 
1 743 
1 744 
1745 
1 746 
17  4 7 
1 748 
1 749 

1750 

1751 
176? 
17  5 3 
1 754 

1755 

1756 


RFF  10  LAST  440 
RFF  17  LAST  44  0 
RFF  164  l AST  440 


RFF  165  I AST  4A0 
RFF  BO  LAST  437 
RFF  166  LAST  440 
RFF  3 l AST  440 
RFF  3 I AST  440 
RFF  13  LAST  439 


REF  1 

RFF  27  LAST  437 
RFF  25  LAST  437 
RFF  91  LasT  436 
RFF  167  LAST  AAO 
RFF  92  LAST  AAO 


40.3151  0 7115  0 

40.3152  00] 2 3 1 

40. 3153  56  156  O 

4"  ,3154  6 0000  1 

v , 3155  5 4 1 5 l 

. ' - : 1 
40,3157  6 0155  0 

40,  3160  C 3222  0 
40  ,3161  0 3231  1 

AC, 3162  5 C 140  1 

40,  3 163  0 3 1(3  0 

40  ,3164  0 31 74  0 

40, 3165  3 0117  0 

40,  3 166  6 0145  l 

40,3167  54  002  1 

40, 3170  56  1550 

AO  ,3171  50  002  C 

40,31 72  54  001  1 


DP  INS  F 


DP  INC3M 


TC  DM  P 

AORES  SFTEMP1 

XCH  MPAC  +2 

OOUBL  E 

TS  MPAC  +2 

CAF  ZERO 

AD  MPAC  +1 

TC  2 ROUND  +2 

TC  TESTOFUF 

INDEX  MIXBR 

TC  +0 

TC  DP  INDRM 

CA  DECOUNT 

AD  NOUNADD 

TS  0 

XCH  MPAC  +1 

INDEX  0 

TS  1 


9:12  CCT.  21,1970 


ZERLAIC  .00  1 


PAGE  440 


USFP  * S PAGE  NC.  46  EC  S4 


IF  OF  FORCE  S IGN  TO  1 


SCALES  *pac,  3-1  BY  SFTEMPl,  S FT  FMP  2. 
ASSUMES  POINT  0F  TWEE  N HI  AND  IP  PARTS 
OF  SFCON.  SHIFTS  RESULTS  LFFT  BY  14. 

(BY  TAKING  RESULTS  FROM  MPAC  + 1,  MPAC+2 ) 


TOO  LARGE  A LOAD.  ALARM  ANO  RECYCLE. 


RETURNS  IF  NO  OF/UF 

SCALES  MPAC,  *1  BY  SFTEMPl,  S FT  EMP2 . 
ROUNDS  MPAC+1  INTO  MPAC. 


SCALES  MPAC,  MPAC  +1  RY  SFTEMPl, 

SET  FMP  2 . STORES  LOW  PAPT  OF  RESULT 
IN  (E  SUBK)  +1  CR  F+l 


RETURNS  IF  NO  OF/UF 


MIX  EONOUN 
MI  XED 
E SUBK 


E 


NORMAL 


PLACE  LOW  PART  IN 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  ZCRQASTER 


9:  12  OCT.  21,  1970  ZEPLAIO  .001  PAGE  441 


GAP  : 


PINBALL 
REF  2 


GAME  BUTTONS  AND  LIGHTS 

LAST  440  AO  ,3173  0 3113 

I AST  440  40,3174  3 4755 

40,3175  0 3166 


1 

l 

0 


OP  I NORM 


TC 

CAF 

TC 


ENOSCAL  l 

ZERO 

DPINCOM 


USER'S  PAGE  NC.  47  EC  S4 

(E  SUB  K)  +1  MIXED 
E +1  NORMAL 


1 76  1 

1762 

1763 
1 764 


REF 

REF 

REF 


LAST 
L AST 
LAST 


432 

426 

438 


40,31 76 
40,  3 177 

■ • 

4 C , 320  1 
40,  3 2Q  2 


0 711.5  0 DPINSF2 
001^3  1 
3 6254  1 
C 3210  1 
0 3153  0 


TC  OMP 

ADRES  SF  TEMPI 
CAF  SIX 

TC  TP  LE  FT  N 

TC  3 P I N SF  +2 


1 765 
1 766 
1767 
t 768 
1769 


REF 

REF 

REF 

REF 

REF 


LAST 
L AST 
LAST 
I A ST 
l AST 


44  1 
44  1 
435 
44  1 


4 C,  32 03 
40,  32C4 
40  ,3705 
40,3206 
4o,  3 207 


3 4752  0 
0 32  10  1 
0 3 1 5 3 0 


TC  DM  P 

ADRES  SFTEMP1 
CAF  TWO 

TC  TPLFFTN 

TC  3 P I N SF 


ASSUMES  POINT  BETWEEN  PITS  11-12  OF  HIGH 
PART  OF  SF  CONST.  0PINSF2  SHIFTS  RESULTS 
LEFT  BY  3,  POUNDS  MPAC+2  INTO  MPAC+1  . 
SHIFT  LEFT  3. 


1770 

1771 
177? 

1773 

1774 

1775 
1 776 
1777 


RFF  93  LAST  440 
REF  1 

RFF  94  LAST  441 
REF  20  LAST  441 
REF  6 LAST  439 
RFF  21  LAST  441 
REF  1 

REF  2 LAST  44  1 


40  ,3210  56  002 

40. 321 1 c4  ] 24 

40.3212  56  002 

4-i,321  3 54  123 

40,  3214  C 4404 

. 

4^’,1?16  C 3213 
40,  3 2 17  0 0124 


0 TPLEFTN  X CP 

1 TS 
XCH 

0 LFFTNCCM  TS 
0 TC 

0 CCS 

1 TC 
TC 


Q 

SFTEMP2 

Q 

S FT  EMP1 
TPSLl 
SFTFMP  1 
LEFT  NCOM 
SF  TF  MP  2 


SHI  FT  S MP  AC  , -M  , +2  LEF  T N. 
TO  +1  FOR  OF,  -1  FOP  UF. 
CALL  WITH  N-l  IN  A. 

L3DP  T IMF  .37  MSFC. 


SE  TS  OVF  I ND 


1778 
1 779 

1 780 

1781 
178? 


1783 
1 784 
1 785 
1786 


RFF  168 

RFF  169 
REF  55 
RFF  I7r 
REF  171 
REF  96 
REF  5 
PFF  57 


LAST  440 

I AST  441 
LAST  441 
LAST  44  1 
LAST  441 
[AST  44  1 
LAST  439 
I A ST  441 


40.3220  56  155  o 

40. 3221  6 CCCO  1 

4(  ,3222  54  155  1 

40.3223  0 0002  0 

40. 3224  6 0164  1 

40  ,3225  54  1 54  0 

46,  3226  C CCC2  0 
40 , 3227  64  162  0 

40,3230  0 0002  0 


2 RCUND 


2RNCEND 


XCH  MP  AC  +1 

DOUBLE 

TS  MP  AC  +1 

TC  0 

AD  MP AC 

TS  MP  AC 

TC  Q 

TS  MPAC  + 6 

TC  Q 


IF  MPAC  + 1 DDES  NOT  OF /UF 

IF  MPAC  OOFS  NOT  OF/IJF 


17  37 
1788 
1 789 
1790 


REF  6 LAST  44  1 

REF  6 LAST  440 

REF  9°  LAST  44] 

RFF  7 LAST  44  1 


I TO  162 
40  ,3  232  C 4145 
49, ) ??3  C CCC2 
40,  3 2 34  0 4 1 4 5 


9 TFSTGFLF  CCS 
0 TC 

0 TC 

0 TC 


MP AC+6 
ALMC  YCLE 
0 

A L MC  YC  LF 


RETURNS  IF  NO  OF/UF 
OF  ALARM  AND  RECYCLE. 

UF  ALARM  AND  PFCYCLF. 


1791  ref 


• . 


SETLOC  FNDSPMIN  +1 


17915  REF 


2 LAST  428  TO 


431: 


146  1 46* 


COUNT*  ft /PIN 


GAP: 


ASSEMBLE  REV  IS  ION  56  OF  ASS  PROGRAM  7ERLINA  BY 


L PINBALL  GAMF  BUTTONS  AN n | IC-FTS 


179? 
1793 
1 794 
17Q5 
1 795 
1 797 
1 799 
1 799 
1800 
1 801 
1802 
1 BO  3 
1 804 
1 R05 
1906 
1 807 
1808 
1809 

18 1C 
1811 
1 Ol  2 
1813 
181A 

1fll5 
1816 
1917 
1818 
18  1*^ 
1820 
1821 
192? 

1823 

1824 
1928 
1826 
1827 
1 82h 

18?9 

13  30 
1831 
183’ 
1933 
1834 
18  35 
1836 
1 037 
1038 

1839 

1840 
194  1 


REF  1 
REF  1 
RCF  82 
RFF  17? 
RFF  1 
RFF  173 
REF  2 
REF  174 
RTF  5 
R FF  1 
RFF  175 
RFF  1 
REF  3 
REF  ? 
RFF  176 
RFF  1* 
RFF  2 
P EF  2 
REF  1 
RFF  l 
REF  177 


LAST  44 1 
LAST  441 

LAST  442 
LAST  442 
LAST  44  2 
LAST  4?  9 

I AST  442 

LAST  433 
LAST  1 D 3 
I AST  442 
I AST  442 
I AST  442 
LAST  442 


LAST  442 


REF  1 

RFF  2 LAST  442 


RFF  R 
RFF  3 
RFF  ? 
REF  1 78 
REF  15 
REF  3 
REF  3 
REF  1 
RFF  2 
RFF  3 
REF  170 


LAST  44  1 
1 A ST  433 
LAST  103 
LAST  442 
LAST  442 
L AST  442 
LAST  442 

LAST  44  2 
LAST  442 
LAST  442 


REF  9 LAST  442 
PFF  93  LAST  442 
RFF  IPO  LAST  442 
REF  6 LAST  43  1 
REF  191  LAST  442 
REF  ?6  LAST  440 

REF  27  LAST  439 
REF  10  LAST  438 


4?  ,3460 
42,  - 1 

42  ,3462 
42,3463 
42,  3464 
42,3465 
42,  3466 
■ . 

42  ,3470 
42, 3471 
42  ,3472 
4? ,3473 
42,  3474 
4?  ,3475 
4 2,  3416 
42,3477 
, 

42,  3 50  1 

t . 

i . 

42,  3504 
42  ,3505 
4 2,  35C6 
42,  3507 
42,3510 
42,  351  1 
42 ,3512 
42  ,3513 
4 2,  35  14 
42  ,3515 
42, 3516 
42,  3517 
42  ,3520 
4 2,  35  ?1 
42  ,3522 
42  ,3523 
42,3524 
42  ,3525 
42,  3526 
42,  3527 
42  ,3530 
42,  353  1 
42  ,3532 
42,3533 
42,  3534 
42  ,3535 
42,  3536 
4 2,  35  37 
42  ,3  540 
42,  354  1 


0 7115  0 
03542  1 
C 3551  C 
3 4755  1 
54  156  1 
3 3544  1 
54  154  0 
3 3545  0 
56  155  P 
C 7321  0 
C 3562  O 
52  156  1 
52  124  1 

3 1 CC3  0 
23*006  0 
52  155  1 
0 7115  0 

03542  l 
C 3551  C 

4 3647  0 

0 3567  0 
56  155  0 
C 0006  1 
7 3546  1 
2C  124  1 
0 0006  1 

1 3515  1 
C 4 1 4 5 0 

3 1 DO  4 1 

2 3 * 0 C 7 1 
52  155  1 
C 7115  0 

C 354 2 1 
0 3551  0 

4 3550  0 

0 3567  0 
52  124  1 
2C  155  1 
C 0006  1 

1 3532  1 
C 4 1 4 5 0 

3 4755  1 
54  156  1 
C 7271  1 
52  155  1 
5 C 145  l 
52  CC1  1 
C 4635  0 

63045  0 
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USER'S  PAGE  NC.  48  ED  S4 

TC  ALL3CEC  IF  ALL  3 WORDS  WFRE  NOT  LOADED,  ALARM. 

TC  OMP  X REG , XREGLP  (=HOURS)  W ERE  ALREADY  PUT 

AORES  WHOLfcCOM  INTO  MPAC , NPAC+1. 

TC  RNO/TST  ROUND  OFF  TO  W HOI  E HRS  IN  HPAC  + 1. 

:af  zero  alarm  if  mpac  non  zero  <g/  15393  ). 

TS  MPAC  ♦ ? 

CAF  HRCON 

TS  MPAC 

CAF  HRCON  +1 

XCH  MPAC  +1 

TC  SHORTMP 

TC  MPACTST  ALARM  IF  MPAC  NON  ZERO  ( G/  745) 

OXCH  MPAC  +1  STCRE  HOURS  CONTRIBUTION 

DXCH  HIT  EM  IN 

CA  Y REG  PUT  Y REG,  Y REGLP  INTO  MPAC,  +1. 

L XCH  YREGLP 

DXCH  MPAC 

Tf  OMP 

AORES  WHOLECON 

TC  RNC/TST  ROUND  nFF  TO  WHOLE  MIN  IN  MPAC  + 1 

CS  59M1N  ALARM  IF  MPAC  NON  ZERO  (G/163B3) 

TC  SIZETST  ALARM  IF  MPAC+1  G/  55MI  N 

XCH  MPAC  +1 

EXTEND 

MP  MINCON  LEAVES  MINUTES  CONTRIBUTION  IN  A , L 

OAS  HITEMIN  ADD  IN  MINUTES  CONTRIBUTION 

EXTEND  IF  THIS  DAS  OVERFLOWS,  0/  745HR.39MIN 

R7F  +2 

TC  ALMCYCLE 

CA  7REG  PUT  ZREG , Z RES  LP  INTO  MPAC,  +1. 

LXCH  Z REGLP 

DXCH  MPAC 

TC  DMP 

AORES  WHCLECCN 

TC  RND/TST  ROUND  OFF  TO  WHCLF  CENTI-SEC  IN  MPAC+I 

CS  59  .99  S EC  ALARM  IF  MPAC  NON  ZERO  (G/163.83  SFC  > 

TC  SIZETST  ALARM  IF  MPAC  + I G/59.99  SEC 

DXCH  H IT  EM  IN  ADD  IN  SECONDS  CONTRIBUTION 

OAS  MPAC  IF  THIS  OAS  OVERFLOWS, 

FXTENO  G/  745  HR,  39  MIN,  14.55  SEC. 

BZF  +2 

TC  ALMCYCIF  ALARM  AND  RECYCLE 

CAF  ZERO 

TS  MPAC  +2 

TC  TPAGREE 

DXCH  MPAC 

INDEX  NOUNADD 

DXCH  0 

TC  POSTJUMP 

CADR  LOAD  L V 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21,1370  ZERIAIO  .00  1 PAGE  4*3 


L 

PI NRALl 

GAME 

BUTTONS  AND  LI  FFT  S 

USER*  S PAGE  NO.  49  EO  S4 

1842 

42,3542 

00006 

1 

WHCLECCN 

OCT 

0 0006 

( 10  EXP  5/  2EXP  14I2E  XP  14 

18  43 

42,  3643 

03240 

1 

OC  T 

03240 

1844 

42  ,3544 

00025 

0 

HRCON 

OCT 

00025 

1 HOUR  IN  CENTI-SEC 

1845 

42,3545 

3 7 L CO 

1 

OCT 

37100 

1846 

42,  3546 

1 3560 

0 

M IN CON 

OC  T 

13560 

1 MINUTE  IN  CENTI-SEC 

1 R47 

42,3547 

00073 

0 

59M1N 

ncT 

00073 

59  AS  WHOLE 

1 348 

42,  3550 

13557 

1 

59.  99  SEC 

OCT 

13557 

5999  CENTI-SEC 

1 840 

REF 

182 

LAST 

442 

42,3551 

56  156 

0 

R NO/TST 

XCH 

MP  AC  + 2 

ROUNDS  MPAC  + 2 INTO  MPAC  + 1 . 

18  50 

i . 

6 0000 

1 

DOU  BL  E 

ALARMS  IF  MPA:  NOT  0 

1851 

REF 

183 

L AST 

44  3 

4 2,  3553 

54  156 

1 

TS 

MPAC  +2 

1852 

RFF 

84 

LAST 

442 

• 

3 4755 

1 

CAF 

ZERO 

1 853 

REF 

184 

LAST 

443 

42,  3555 

6 0155 

0 

AD 

MPAC  +1 

1 854 

REF 

105 

LAST 

44  3 

42,  3556 

54  155 

1 

TS 

MPAC  +1 

185  5 

RFF 

f 5 

LA  ST 

44  3 

42,3557 

3 4755 

1 

CAF 

Z FRO 

1956 

REF 

186 

L AST 

443 

42,  3660 

6 Cl  54 

1 

AD 

MPAC 

CANT  OV  FLOW 

1857 

RFF 

187 

LAST 

443 

. 

56  154 

1 

XCH 

MPAC 

1858 

REF 

188 

LA  ST 

443 

42  ,3562 

10  154 

0 

MPACTST 

CCS 

MPAC 

alarm  if  mpa:  non  zero 

1 889 

RFF 

10 

L AST 

44  2 

42,  3563 

0 A 1 4 5 

0 

TC 

4 L MC  YC  LE 

ALARM  AND  RFCYCLE. 

1 860 

RFF 

99 

LAST 

441 

42  ,3564 

0 0002 

0 

TC 

Q 

1961 

RFF 

1 1 

l AST 

443 

42,  3565 

C A l 4 5 

0 

TC 

ALMCYCLE 

ALARM  AND  R FCYCL  E . 

1 862 

RFF 

LAST 

44  3 

42,  3566 

0 0002 

0 

t: 

0 

1863 

RFF 

189 

LAST 

443 

42,3567 

54  156 

1 

SI  ZETST 

TS 

MPAC  +2 

CALLED  WITH  - CON  IN  A 

1 364 

REF 

19C 

1 AST 

443 

42, 3570 

10  155 

1 

CC  s 

MPAC  +1 

GET  MAG  OF  MPAC+1 

1865 

RFF 

44 

LAST 

437 

42  ,3571 

6 t753 

1 

AD 

ONE 

1866 

42,3572 

1 3574 

c 

TCF 

+2 

1 867 

REF 

45 

LAST 

44  3 

42, 3573 

6 4753 

1 

AD 

ONE 

1868 

RFF 

191 

LAST 

44  3 

42 ,3574 

6 0156 

0 

AD 

MPAC  +2 

1869 

42,  3575 

C 0CC6 

1 

EXTEND 

MAG  OF  MPAC+1  - CON 

1 870 

42,  3576 

6 3600 

1 

BZMF 

+ 2 

1871 

REF 

12 

1 AST 

443 

42  ,3577 

0 4145 

0 

TC 

ALMCYCLE 

MAG  OF  MPAC+1  G/  CON.  ALARM  AND  RECYCLE. 

1872 

REF 

10  1 

LAST 

44  3 

42,  3 6C0 

C OC02 

0 

TC 

0 

MAG  OF  MPAC+1  L/=  CON 

R 1 8 73 

ALL  3 DEC 

TF  STS 

THAT 

ALL  3 WCRHS  ARE  LOADED  IN  DEC 

(FOR  HMSIN). 

R 1874 

Al  ARM  IF 

NO  T.( 

TEST 

THA  T BITS 

3,4,5  OF 

DECRRNCH 

ARE  AL 1 

= 1 ) 

1 875 

RFF 

1 

42,  36C  1 

4 3606 

0 

ALL  30EC 

C S 

0: T34RAR 

GET  BITS  3,4,5  IN  A 

1876 

REF 

17 

LAST 

437 

42,3602 

7 0777 

l 

MASK 

DECRRNCH 

GET  BITS  3,4,5  nF  DEC.BRNCH  IN  A 

1877 

RFF 

2 

LAST 

443 

42,  3603 

6 3606 

1 

AD 

OCT  34  BAR 

BITS  3,4,5  OF  OECBRNCH  MUST  ALL  = 1 

1 878 

RFF 

1 34 

LAST 

440 

42,3604 

10  000 

0 

CCS 

A 

1879 

REF 

1 

■ . 

C 3611 

1 

TC 

FORCEV25 

1389 

42,  3606 

7 7 74  3 

1 

OCT34RAR 

OC  T 

77743 

1881 

REF 

2 

LAST 

443 

42  ,3607 

0 3611 

1 

TC 

F0RC.EV25 

1882 

RFF 

102 

1 A SI 

443 

■ 

C CCO? 

0 

TC 

Q 

18825 

REF 

2 

LAST 

216 

42,  ?6  1 1 

4 6C10 

l 

FORCE  V25 

C S 

n:  T31 

FORCE  VERB  25  TO  BE  EXECUTED  BY  RECYCLE 

18826 

RFF 

2 

LAST 

413 

42 ,3612 

55*040 

0 

TS 

V ERBS  AV  E 

IN  CASE  OPERATOR  EXECUTED  A LOWER  LOAD 

« 


A»:  ASSEMBLE  REVISION  Rto  OF  AGC  PROGRAM  ZERL  IN  A BY  ZOROASTER 


9:  12  OCT.  21,  1970  1 ER  LA  I D .001 


PAGE  444 


PINBALL  GAME  BUTTONS  AVD  LIGHTS  USER'S  PAGE  NO.  5C  EC  S4 

18R?7  REF  13  LAST  443  42,3613  0 4145  0 TC  ALMCYCLE  VERB.  ALARM  A NO  RECYCLE. 

I HR  3 42  ,3614  ENDHMSS  EQUALS 


GAP:  ASSEMBLE  RFVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  CCT.  21  ,1970  ZERLAIC  .011  PAGE  945 

L PINBALL  GAMF  BUTTCNS  ANO  LIGHTS  USER'S  PAGE  NO.  51  EO  S4 

P 1 884  MONITOR  ALLOWS  OTHER  KEYBOARD  ACTIVITY.  IT  IS  ENDED  BY  VERB  TEPMINATF, 

K'lR85  VERB  TRCCEFn  WITHOUT  DATA,  VERB  RESEOUENCE, 

3 188*  ANOTHER  MONITOR,  OR  ANY  NVSUB  CALL  THAT  PASSES  THE  DSPLOCK  (PROVIDED 
W15861  THAT  THE  OPERATOR  FAS  SOMEHOW  ALLOWED  THE  ENDING  OF  A MONITOR  WHICH 
R 18862  HE  HAS  INITIATED  THROUGH  THE  KEY  BCARC)  . 


K 1 387  MONITOR  ACTION  IS  SUSPENDED,  BUT  NOT  ENDED,  BY  ANY  KEYBOARD  ACTICN, 

RlBBB  FXCFPT  FRRCR  LIGHT  RESET.  IT  BEGINS  AGAIN  WHEN  KEY  RELEASE  IS  PFRFDRMED. 

3 1889  MONITOR  SAVES  THF  NOUN  AND  APPRCPPIATE  DISPLAY  VERB  IN  MONSAVE.  IT  SAVES 
R139T  NOUNCADR  IN  MflN'SAVEl,  IF  NOUN  = MACHINE  CAOP  TO  BE  SPECIFIED.  BIT  1 5 Or 

‘ 1891  MfNSAVF]  IS  THC  KILL  MCNITCR  SIGNAL  (KILLER  BIT).  BIT  14  OF  M0NSAVC1 

r IH91I  INDICATES  THF  CURRENT  MONITOR  WAS  EXTERNALLY  INITIATED  (EXTERNAL 
R10912  MCN  I TOP  BIT).  IT  IS  TURNED  OFF  BY  RE  L DSP  AND  KILMONON. 


*139?  MONSAVF  INDICATES  IF  MCNITCR  IS  CM+=ON,  +0  = OFF) 

R1  993  IF  MONSAVE  IS  +,  MONITOR  ENTERS  NO  RFOUEST,  B LT  TURNS  KILLER  BIT  CFF. 

R 1 894  IF  MONSAVF  IS  +D , MONITOR  ENTERS  REQUEST  AND  TURNS  KtLLF»  BIT  OFF. 


3 1895  NVSUB  (IF  FXTFRNAL  MONITOR  BIT  IS  CFF),  VB=PRCCEED  WITHOUT  DATA, 

R1396  V B=  RES  EQU  ENCE,  AND  V R=  T ER  M IN  A TE  TURN  KILL  MONITOR  BIT  ON. 


<1897  IF  KILIER  BIT  IS  CN,  MC NR  EC  ENTERS  MO  FURTHER  REQUESTS,  7 EROS  MONSAVF 
•1998  AND  MON  SAVE  1 (TURNING  OFF  KILLER  BIT  AND  EXTERNAL  MONITOR  RIT>. 


R 1 8QO  MCNITCR  DCS  ENT  TEST  FOR  MATBS  SINCE  NVSUB  CAN  HANDLE  INTERNAL  MATBS  NOW 
1900  REF  1 41  ,3302  SETLOC  ENDRUT  IN 


19005  REF  3 

1901  REF  1 

1902  REF  6 

1903  RFF  192 
19031  RFF  7 
1 9 D 3 ? RFF  4 

19033  RFF  135 

19034  RFF  1 

19035 

19036  REF  ? 

19037  REF  ?® 
1 9038  RFF  1 03 
190381  RFF  86 
1 5D382  R EF  1 

1904  RFF  3 

1905  RFF  IB 

1906  RFF  4 

1907  RFF  5 

1908  PFF  6 

1909  RFF  7 

1910  REF  11 
19  11  REF  194 
1912  REF  87 


LAST  432  TO 

IAST  438 
LAST  443 
LAST  431 
LAST  413 
LAST  44  3 


LAST  445 
LAST  421 
LAST  445 
LAST  443 

LAST  240 
LAST  420 
LAST  436 
LAST  4r  5 
(AST  445 
LAST  445 
LAST  432 
LAST  445 
LAST  445 


439: 

41  ,3302 
41.33C 3 
41,  3304 
41  ,3305 
41,  33C6 
41,3307 
41,3310 
,1,  1311 
41  ,3312 
41,3313 
41,  13  14 
41  , 3315 
41,  3316 
41,3317 
41  ,3320 
4 1,  ■’32  1 
41  ,3322 
41,  >323 
4 1,  3324 
41  ,3325 

41. 3326 

41.3327 


283  690* 

4 3311  0 
7 1 C 1 6 0 
54  155  1 

4 0136  1 

6 4217  l 
10  000  0 
0 3317  1 

60000  1 
( 3317  1 

2 4736  1 
26  1 5 5 1 

3 4755  1 

5 5 ' C2  1 1 

3 6106  0 

7 1000  1 
0 4331  1 
54  022  0 

4 CC22  C 
56  022  1 

6 1001  1 
54  154  0 
3 4755  1 


MONITOR 
MON  IT  1 

B I T 15/14 

MON  IT  2 


COUNT*  <WPIN 

CS  B IT  15/14 

MASK  NOUNCADR 

TS  MPAC  * 

CS  ENTEXIT 

AD  ENDINST 

CCS  A 

TC  M0NIT2 

OCT  60000 

TC  M0NIT2 

CAF  BITI4 

ADS  MPAC  +1 

CAF  7 F.R  0 

TS  M0NSAVF2 

CAF  LOW  7 

MASK  VERBREG 

TC  LEFT5 

TS  CYL 

CS  CYL 

XCH  : YL 

AD  NOUNREG 

TS  MPAC 

CAF  ZERO 


TEMP  STORAGE 


EXTERNALLY  INI  T I AT  ED  MON  I TOR  , 
SET  81 T 14  FOR  M0NSAVE1 . 

ZERO  NVMONOPT  OPT  IONS 


T EMP  STORAGE 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZEPLINA  BY  ZOROA  STER 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


1015 

1016 

101  7 
1 <>1  P 
1 gi  o 
10? ' 
1021 
1°?2 
10?3 
1023 
1026 
1 925 

102  6 

1°27 


PEF 


REF 

R6F 

PEF 

REF 

PFF 

REF 

PFF 

PEF 


PEF 


2 


A 6 
15 
3° 


l AST  40  3 
LAST  413 


LAST  2?0 

LAST  443 
LAST  372 
LAST  437 


I A ST  445 
LAST  446 

I A ST  413 


41  ,3331 
41 ,3332 
4 1,  3 33  3 
41  ,3  334 
4 1,  3 1 3 5 
V 1,  3 136 
41  ,3337 
4 1,  3340 
0776 
41  ,3341 
41,  1342 
41  ,3343 
4 1,  3344 
4 1,  1145 
41  ,3346 


5 5 • C 1 1 1 
11*041  1 
C 3334  0 
0 4502  1 
C 0004  0 
11' 017  1 
0 1143  0 
3 4753  1 
C 5214  0 

03347  1 

6 2 101  0 
52  155  i 
5 3*  C ? 0 0 
C C003  1 
0 0136  0 


TS  PSPLCCK 

CCS  C A DP  STOP 

TC  +2 

TC  RELDSPl 

INHINT 

CCS  MONSAVF 

TC  *■ 5 

CAF  ONE 

TC  WAITLIST 

E9ANK=  DSPCOUNT 

? C ADR  MONREQ 

OXCH  MPAC 

DXCH  MONSAVE 

RELINT 

TC  ENT  RET 


19  23 

1929 

1930 

1931 

1932 

1933 
1 934 

1935 

1936 

1937 
1937 
1 93  8 
1939 
1 94) 
1941 

1941 

1942 


REF  1 

REF  2 LAST  229 


PEF  1 

PFF  2 LAST  446 
RTF  1 

RFF  16  LAST  446 
PEF  40  LAST  44  6 
REF  2 LAST  446 

REF  2 LAST  It  4 
PFF  5 LAST  333 
PEF  41  LAST  446 
REF  1 
PEF  1 

REF  11  LAST  389 


1,  1 347  L 4400  1 MONRF  Q TC  I.ODSAMPT 


41  ,3350  11  '020  0 

<1,3351  C 3355  1 
41,1152  C 1355  1 
41  ,3353  0 3366  1 

4 1,  -354  0 3366  1 

41,3355  3 3372  1 

41  ,1356  0 5214  0 

0776 

41  ,3357  03347  1 

41,3360  62 l Cl  0 

4 1,  3161  * <355  0 

41 .3362  0 5072  1 
C 77  6 

41.3363  03373  0 

41.3364  62101  C 

41,  ^36  5 C 5 272  0 


CCS  M0NSAVE1 
TC  +4 

TC  * 1 

TC  KILLMON 

TC  K I LLMON 

CAF  MONDEL 
TC  WAITLIST 

E BANK=  DSPCOUNT 
2CA0R  MONREQ 

CAF  ZHRPRIO 
TC  NOVAC 

EBANK=  D S PC  CUNT 
2CADR  MONDO 

TC  TASKCVEP 


1943 

1944 
1 945 

1946 

1947 


REF  88  LAST  445 
RFF  4 LAST  446 
REF  3 LAST  446 
REF  12  LAST  446 


41  ,3366 
41 , 33fc7 
,1,  3 3 7( 
41 ,3371 
4 1,  3372 


5 5 ' 0 2 0 0 
C 5272  0 
CC144  0 


K I LI  MON 


MONDE  L 


CAF 

TS 

TS 

TC 

OCT 


ZERO 
MCNS  AVE 
MONSA  VE  1 
1 ASKOVER 
1 44 


194  8 
1949 

195  ; 

1951 
1 952 
195  3 
1954 


RFF  4 LAST  446 


PEF  47  LAST  409 
REF  48  LAST  446 
REF  4 LAST  446 
RFF  1 


41  ,33  74 
41, 3375 
41  ,3376 
41, 3377 
41,  3400 
41  ,3401 


1 1*020  0 
C 3400  0 
C 3400  0 
0 5155  0 
C 5155  0 
11*011  1 
0 3423  1 


MONDO 


CCS 

TC 

TC 

TC 

TC 

CC  S 

TC 


MON  SAVE  1 
♦■3 

EN  DO  F JOB 
FNDOF  JOB 
DSPLOC  K 
MONBUSY 


: 1 2 CC  T.  21  ,1970  Z ERL  A I C .0.1  PAGE  446 


USER  * S PAGE  NO.  52  EC  S4 

+0  INTO  CSPLOCK  SC  MONITOR  CAN  RUN. 

TURN  OFF  KP  LITE  IF  CADRSTOR  AND  CSPL  1ST 
ARE  BOTH  EMPTY.  (LITE  COMES  ON  IF  NEW 
MONITOR  IS  KEY  EC  IN  OVER  OL  C MONITOR.) 


IF  MEINS  AVE  WAS  +,  NO  RECUEST 
IF  M3NSAVE  WA  S C , REQUEST  MONREQ 


PLACE  MONITOR  VERB  AND  NOUN  INTO  MONSAVE 
ZERO  THE  KILL  MONITOR  PIT 
SET  UP  EXTERNAL  MCMTCR  BIT 


CALLED  BY  WAITLIST 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  b5 
IF  KILLER  BIT  = 0,  ENTEP  REQUESTS 

IF  KILLER  BIT  = C,  ENTER  REQUESTS 

IF  KILLFR  BIT  = 1,  NO  REQUESTS 

IF  KILLFR  BIT  = 1,  NO  REQUESTS 

ENTER  WAITLIST  REQUEST  FOR  MONREQ 


ENTER  EXEC  REQUEST  FOR  MONDO 


ZERO  MONSAVE  AND  TURN  KILLER  BIT  OFF 

TURN  OFF  KILL  MONITOR  BIT. 

TURN  OFF  EXTERNAL  MONITOR  BIT. 

FOP  1 SEC  MONITOR  INTERVALS 


CALLED  BY  EXEC 

IF  KILLER  BIT  = 0,  CONTINUE 

IF  KI  LLFR  BIT  = 0 , CONT  INU  E 

IN  CASE  TERMINATE  CAMF  SINCE  LAST  MONREQ 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 


NVSUB  IS  BUSY 
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PIMBALl  CAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NO.  53  EC  S4 


1 955 
1956 
1958 

1960 

1961 

1962 

1963 
19  64 

1965 

1966 

1967 
1 968 
19  69 
1 97C 
1971 


RTF  5 I A ST 

REF  1 

PEF  1 

REF  6 LAST 

REF  1 

PEF  1 

REF  2 LAST 

REF  19  LAST 

RFF  1 

PEF  6 LAST 

RFF  2 LAST 

RFF  5 LAST 

REF  196  LAST 

REF  1 


647 


447 

445 

446 

445 

446 
4*.  6 


41 , 34C2 
41 , 34C3 
4 1 » 34C4 
41  .3405 
41  ,3404 
4 1 , 340  7 
41  ,3410 
41,  3411 
4 1 1 3412 
41 ,3413 
41,  34 1 4 
41  ,3415 
41  ,'>4  16 
4 1 , 74  17 
41 ,3420 


3 6106  0 
7 1017  1 
0 2346  1 
3 4144  1 
7 1017  1 
fc  3421  0 
54  023  1 

2 CC23  0 
5 5 ' 000  1 

3 3422  0 
54  136  1 

4 3311  0 
7 1020  0 
54  156  1 
0 2073  1 


ENCMONCO 


CAF 

MASK 

TC 

CAF 

MASK 

AO 

TS 

CA 

TS 

CAF 

TS 

CS 

MASK 

TS 

TC 


L 0 W 7 
MONS  AV  E 

UPDATNN  -1  PLACE  NCUN  INTO  NOUNREG  AND  DISPLAY  IT 

M ID7 

MONSAVE  CHANGE  MONITOR  VERB  TO  DISPLAY  VERB 

MONRFF  -OEClD,  STARTING  IN  BITS 

EDOP  RIGHT  7 

E D CP 
VERBRFG 

M0N8ACK  SET  RETURN  TO  PASTEVH  AFTFR  DATA  DISPLAY 

ENTRFT 
R I T 15/14 

M0NSAVE1  PUT  ECADR  INTO  MPAC  +2.  INTMCTBS  WILL 

MPAC  +2  DISPLAY  IT  AND  SET  NOUNCADR,  MOUNADO, 

TESTNN  EBANK. 


197? 


4 124 


BLGCK  2 


197201  REF 
1972C? 


4000 

4124 


setld:  ff tag 8 

RANK 


1974 
1 975 

1976 

1977 
1 978 
1978? 
107B  3 
197832 

1978  33 
197835 
197838 
19784 

1 9785 

19786 

19787 


PFF 

p r c 

I - r 


REF 

REF 

REF 

PFF 

RFF 

REF 

RFF 

RFF 

REF 
R I F 

REF 


1 

2 LAST  447 
2 LAST  445 


1 

7 LAST  44  7 
'3  I A ST  447 
4 LAST  447 
91  LAST  440 
7 I A ST  434 
89  I AST  446 
1C  LAST  417 
3 LAST  447 
1 


49  L AST  446 


4124  3 4144  1 

4125  7 1021  1 

4126  0 0006  1 

4127  1 4131  1 
412C  C 4132  0 

41 31  3 1 C 17  0 

4132  54  023  1 

4133  3 CO 2 3 0 

4 134  0 46  16  l 

6135  62366  0 

4136  2 47  c 5 1 

4137  55*012  1 

4140  ? Lf?l  0 

4141  0 4255  1 

4142  0 4143  0 

4143  C 5155  0 


COUNT* 

PASTEVR  CAF 
MASK 
E XTFND 
BZ  F 
TC 
CA 

PASTEOPT  TS 
CA 
TC 
CADR 
CAF 
TS 
CA 
TC 
TC 

END  PASTE  TC. 


if /PI N 
M ID7 
MONSAVE? 

+2 

PASTEOPT 
MONSAVE 
EDOP 
EDCP 
RANKCALL 
UPDATVB  -1 
ZERO 
REGRET 
MONS AVE2 
BLANK  SUB 
+ 1 

ENDOF  JCB 


NVMONOPT  PAST  E OPT  ION 


PASTE  PLEASE  VERB  FOR  NVMONOPT 

PASTE  MONITOR  VERB  - PASTE  GPTION  IS  „ 

R I GHT  7 

PLACE  MONITOR  VERB  OR  PLEASE  VERB  INTO 
VERBREG  AND  DI  SPLAY  I T. 

ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
RE  EXECUTED  8Y  OPERATOR. 

PROCESS  NVMONOPT  BLANK  CPTION  IF  ANY 


1979 


4144  37600  0 M I C7 


OCT  37600 


1980  PEF 
19805  REF 

1981 

1 9R  ? REF 


1 41,3421 

4 LAST  44?  TO  447: 

41,3421 

1 4 1,  3422 


79  769* 

75377  0 MCNREF 
C4124  1 MONBACK 


SETLUC  E NOMCNDC 
COUNT*  «f/PIN 
OCT  75377 
AORES  PASTFVB 


-DEC1C,  STARTING  IN  BI  TR 


1083 

1984 


RF'F  ? LAST  403 
PFF  50  LAST  44  7 


41  ,^42?  0 4374  0 MONPIISY  TC 
41  ,3424  0 5 155  0 TC 


9 ELDSPON 
ENDOFJOB 


TURN  KEY  RELEASE  LIGHT 


ASSEMRLP  REVISION  56  OF  AGC  PRCGRA*  26KLI  NA  BY  7CROAST  EP 


9:12  OCT.  21,  1970  ZERLA10 


0C1 


PAGE  998 


L PINBALL  GAMP  BUTTONS  A'JD  LIGHTS  USER’S  PAGF  NO.  59  EO  S9 

3 19PS  DSPFMFM  15  LSED  TC  DISPLAY  (IN  CCT  AL  ) ANY  FIXEC  PFGISTEP. 

K1*>86  IT  IS  USED  S I T H NOUN  = MACHINE  CAOR  TD  RE  SPECIFIED.  THE  FCAUR  OF  THF 
Rl987  DESIRED  LOCATION  IS  THEN  PUNCFEQ  IN.  IT  HANOLES  F/F  I FCADR  900C-7777) 


J 19871  FOR  BANKS  L/F  ?7,  THIS  IS  FNC  Lf  H. 

R19872  FOP  PANKS  G/ E ?n,  TFT  THIRD  COMPONENT  OF  NOUN  26  (PRIO,  ADRES,  BBCON) 
-'19073  VLSI  RF  PPELfACEO  WITH  TIP  D FS  I PF  C SU  P ER  0 ANK  BITS  (PITS  5,6,7). 

R 19879  V 2 IN  2 6 SHOULD  3E  LSED. 


Rl  9875  SUMMARY 
3 19876  FOR  RANKS  L/F  27, 
R 1 9 87  7 FOR  HANKS  G/F  30, 


V27N9 1 F( FCADP )F 
V2  3N  26E  I SUPER  81  TS)  E V2 7N01 E I FCADR)  E 


1 988 

1989 
1909  1 
1 989  2 

1990 
1 9Ql 

1992 

1993 


REF  11  LAST 
RFF  92  LAST 
REF  17  LAST 
RTF  59  | AST 

REF  7 LAST 
RFF  1 

RFF  3 LAST 
REF  51  LAST 


91,3925 
91  ,^9?o 

9 1,  39  27 
91  ,T93D 
91,3931 
91,  3932 


91,  3939 


3 9317  3 
59  776  0 
3 1096  1 
59  001  1 
3 1016  1 
0 9651  1 


DSP  FM  EM  CAF 


91  ,3433  0 3435  0 


r 6 1 55  0 END  SPF 


R ID  1 IF  F/F,  OATACALL  USES  BANK  02  OR  C'3. 

OS  PC OU NT 

DSPTEMl  *2  SUPERBANK  HITS  WERE  PR  ELn AOEO  INTO 

I 3RD  C OMPONF  NT  OF  NCUN  26. 

MOUNCACR  ORIGINAL  FCADR  LDAOEO  STILL  IN  NOUNCADR. 

SUPDACAL  CALL  WITH  FCADR  IN  A,  SUPERBITS  IN  L. 

DS  POCTWO 
ENDOF  JCR 
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P19<>4  WORD  OISPI.AY  ROUTINES 


9:12  CCT.  2 1 » 1 97  0 ZERLAIC 
USER  *S  PAGE  NO.  55 


. I PAGE 
EO  S4 


449 


1995  REF 
10955  RFF 

1996  REF 

1997  REF 

1998  REF 

1 999 
2000 

2 D ? I REF 
2002  RFF 
200  3 REF 

2004  REF 

2005  REF 

2006  RFF 

2007  REF 

2008  PEF 


A LAST  440 
5 LAST  439  10 
10-3  LAST  44  3 
1 

197  LAST  447 


47  I AST  446 
19P  LAST  449 
3 LAST  427 

199  LAST  449 

200  LAST  449 

2 I AST  449 

3 LAST  427 
3 LAST  449 


4C  ,3235 

441  : 120  622* 

40, 3235  56  CC2  0 

40  ,3236  54  144  1 

40, 3237  1C  154  9 
4C , 3240  C 3250  0 
40,3241  0 3250  0 

4 C , 3 24  2 6 4753  1 

40  ,3243  54  154  0 

40.3244  0 2422  1 

40. 3245  4 0155  1 

40.3246  54  155  1 
4C, 3247  C 0144  0 
40,  3 250  C 24 C2  0 
40,3251  C 0144  0 


DSP  SI  GN 


SETLOC  TESTOFUF  +4 
COUNT*  t S/P  IN 
XCH  0 

TS  DSPWDRET 

CCS  MPAC 

TC  + RD 

TC  +7 

AD  ONE 

TS  MPAC 

TC  -ON 

CS  MPAC  +1 

TS  MPAC  +1 

TC  DSPWDRET 

TC  +UN 

TC  DSPWCRET 


2039 

2010  PEF  1 

2011  REF  201  LAST  449 

2012 
2013 
2D  1 4 

2015  REF  1 

2016  RFF  20  2 LAST  449 

2317  REF  104  LAST  449 


40,  3252  C 0006  1 DSPRND  EXTEND 


40  ,3253  3 3316  0 OCA 

40,3254  20  155  1 DAS 

40,  3255  C 0006  1 E XTE^ 

40  ,3256  1 3262  0 BZ  F 

4C,  3257  C CCC6  l E XTFf 

40.3260  3 4733  1 OCA 

40.3261  52  155  1 DXCH 

40. 3262  C CCC2  0 TC 


ROUND  BY  5 EX  P-6 

DECROUND  - 1 
MPAC 

+4 

3P0SMA  X 
MPAC 
0 


20 1 R D SPOFCWD  CCNVFRTS  C(  M FAC  , MPAC+I)  INTO  A SIGN  AND  5 CHAR  DECIMAL 

R2019  STARTING  IN  L DC  SPECIFIED  IN  DSPCCLNT.  IT  ROUNDS  HY  5 EXP-6. 


2020 
2021 
2 D 2? 
2023 
20  24 
2325 
2026 
20  27 
2 0?  8 
2029 
23  30 
2031 
20  32 
2337 
2034 
20  3 5 
20‘,S 
2037 
2D  38 


RFF  105 
REF  1 
REF  1 
REF  1 
REF  7 
REF  1 
RFF  1 
REF  6 
REF  203 
RFF  3 
REF  5 
REF  6 
RFF  90 
REF  204 
REF  205 
RFF  206 
REF  43 
REF  4 
REF  136 


LAST  449 


LAST  338 


LAST  442 
LAST  449 
I A ST  404 
LAST  436 
LAST  42  9 
LAST  447 
L AST  449 
I A ST  44  9 
I A ST  449 
LAST  448 
LAST  429 
LAST  44  5 


40. 3263 

40.3264 

40,3266 

• , 

40, 3270 
43  ,3271 
40 , ? 272 
40, 3273 
• • !74 
40, 7275 

40.3276 

40.3277 
40, 3300 
4C  ,330  I 

, 

40. 330 3 

40.3304 
4C,  ’ 3C 5 


56  CC 2 0 
54  115  0 
C 3235  0 
0 3252  1 
3 4751  0 

6 4 137  0 
3 4363  0 
C 7321  0 
50  154  1 
3 4066  C 

7 4346  0 
54  124  1 
3 4755  1 
56  156  0 
66  155  0 
c 4 I c4  C 
56  776  1 
54  143  0 
1C  COO  0 


DSP  DEC  WD  XCH 
TS 
TC 
TC 
CAF 

0SPDCWD1  IS 
CAF 
TC 

TRAC  El  INDEX 
CAF 
MASK 
TS 
CAF 
XCH 
XCH 
TS 
XCH 

TR  AC  El S TS 
CCS 


0 

WORET 

DSPSIGN 

DSPRND 

FOUR 

WDCNT 

B INCC1N 

SHCRTMP 

MPAC 

RELT  AB 

L0W5 

CODE 

ZERO 

MPAC  +2 

MPAC  ♦ 1 

MPAC 

D SPCOUNT 
COU  NT 


CFCREMENT  DSPCCUNT  EXCFPT  AT  +0 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L PINBALL  GAME  BUT  T CNS  AND  L I OFT  S 


9:  12  OCT.  21»  1970  ZERLAID  .GOl  PAGE 
USER’ S PAGE  NC.  56  ED  S4 


A SC- 


20  39 
2 DAD 
2091 
20  92 
2r  43 
2'  49 
2145 


REF 
RFF 
REF 
R FF 
RFF 
P FF 
RFF 


44 


2 

1 

7 

45 

2 


LAST  449 
I AST  430 
LAST  449 

LAST  435 
LAST  450 
I AST  449 


4 F.  » 33  C6  54  776  0 
4C»  33C7  C 3353  1 
4C ,3  3 1 C 1C  137  0 
4 C » 3 3 1 1 C 327P  1 
40,  3 3 12  4 4 3(0  1 

40  1 3 3 1 3 5 4 776  0 

40, 3314  C 0115  1 


TS  DS  P COUNT 

TC  DSPIN 

CCS  KDCNT 

TC  DSPDCWD1 

C S VO  1 

TS  PSPCOUNT 

TC  WD  RET 


2 046 
2^47 


40.3315  GOOOG  1 DC  T OGOGO 

40.3316  02476  0 OECROUND  OCT  r 2476 


R?D4P 
R 2 649 


CSPPECNP  COMVEPTS  Cl  MPAF.MPAC+I)  INTO  A SIGN  A NO  5 CHAP  DECIMAL 
S T A R T I NO  IN  I DC  SPECIFIED  IN  CSFCCUNT.  IT  COES  NOT  ROUND 


A 20  5 • 
A2051 
A 2052 
A 2 '»  5 3 


DSFDECNR  XCH 


0 

WDRF  T 
DSPS  IGN 
DSPDC.Wm  -1 


R 2 054  DSP0C2  NR  CCNVFRTS  f|  MPAC.MPAC-U)  INTO  A SIGN  AND  2 CHAR  DECIMAL 

3 2C55  STARTING  IN  LOC  SPECIFIED  IN  DSFCCLNT.  IT  DOES  NOT  ROJND 


20  56 
20  57 
20  5B 

2059 

2060 


REF  106 
RFF  3 
P EF  2 
RFF  4 ft 
REF  2 


LAST  449  40,  1 3 1 7 56  002  0 DSPDC  2NR  XCH 


i • ,33  54  115  T S 

LAST  449  40,3321  C 3235  0 TC 

LAST  449  40,3322  3 4153  1 CAF 

LAST  450  40,3323  0 3270  1 TC 


0 

WDR  FT 
DSPS  IGN 
DNF 

0SPDCWD1 


R2061  DSP'OEC  CONVERTS  C(MPAC)  AND  CIMPAC+l)  INTO  A SIGN  AND  1C  CHAR  DECIMAL 
R2062  STARTINO,  IN  THE  LOC  SPECIFIED  IN  CSPCOUNT  . 


-R  2 OFF 
+ R2  OFF 


R2D74  CS  PDECV  N DISPLAYS  0(A)  UPON  FNTRY  AS  A ? CHAR  DECIMAL  BEGINNING  IN  THE 
R2075  DSP  LCC  SPECIFIED  IN  DSPCOIINT. 

3 2t  76  CIA)  SHPUI  D BF  IN  FORM  N X 2EXP-14. 

R2D77  DISPLAY  CONVERSION. 


20  6 3 
2 064 

2065 

2066 
2067 
20  68 

2069 

2070 
20  71 

2072 

2073 


RFF 

RFF 

RFF 

REF 

REF 

REF 

REF 

RFF 

RFF 


LA  ST 
L AST 
LAST 
I AST 
LAST 
(AST 
L AST 
I AST 
LA  ST 
L AST 


45  C 
450 
449 
449 
429 
408 

449 

450 
450 
428 


40, 33 £4 

, 

tt  ,3326 
40,  7327 

. 

40,3331 
$0,  3332 
40  ,3333 
40,3334 

» , 


DSP2DEC  XCH 


3 4755  1 
54  124  1 
3 6257  1 
0 3435  0 
3 4751  0 
0 3435  0 
0 3235  0 
3 4320  1 


40  ,3336  0 327C  1 ENC20FC  TC 


WORE  T 
ZERO 
CODE 
THREE 
11  DSP  IN 
FOUR 
1 1DSP  IN 
DSPS  IGN 
R 2d  1 

DSPDCWD  1 


THIS  IS  SCALED  TO  FORM  N/100  BEFORF 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L PINPALL  GAME  BUTTONS  AND  L I CFTS 


20  78 

20 79  REF  1 

2080  RFF  207  LAST 

20  R I REF  52  LAST 

2082  RFF  208  LAST 

2083  RFF  10B  LAST 

2DR4  REF  5 1 AST 

2085  REF  3 LAST 


AO, 3337  0 0006  ] 

AO,  ? 3 AO  7 33a  7 0 

A'-9  A0.33A1  22  15A  1 

A5«j  40,3  3A  2 2 4755  l 

AS  1 40 , 3 3a  3 c*  155  1 

A50  AC  , 3 3 A A 56  OC?  0 

A 50  AO, 33A5  54  115  0 

A 30  AO, 3 346  0 3322  1 


DSPDECVN  EXTEND 
MP 

LXCH 

CAF 

TS 

XCH 

TS 

TC 


VNDSPCCN 
M P AC 
ZERO 

MPAC  ♦ 1 
0 

WDRET 

3SPDC  2NR  +-3 


20  86 


A 0 , 3 3 A 7 


002AA  0 VNDSPCON  OCT 


OC  2AA 


2087 

2088 
2089 


REF  3 L AST  A27 
REF  28  LAST  AA2 
REF  2 LAST  A17 


AO,  3 350  C 3337  0 
AO, 3 35  1 0 A635  0 

AO, 3352  62376  1 


GO  VN  UP  D T TC 
TC 


0 SPDFC  VN 
POSTJUMP 


CADR  U PD  AT  1 +2 


2090 


AO,  3 353 


FN  DEC  VN  EQUALS 


2091 
2091  5 
R2CR2 
R 209  3 


REF  1 A1 ,3A35 

REF  s LAST  A A7  TO  AA9 : 12  781* 

nSPCCTWO  DISPLAYS  C ( A ) UPON  FNTRY  AS  A 5 
CHAR  SPFCIFIbl)  IN  DSPCOUNT.  IT  STCPS  AFTF 


SETLOC  ENDS  PF  +1 
C CUNT*  S*/PIN 

CFAR  nCT  STARTING  IN  THE  DSP 
» 5 CHAR  HAVE  PFEN  DISPLAYED. 


2094 

2095 

2096 
2 097 


2008 

2099 

2100 
21i  1 
2 1 0 2 

2103 

2104 

2105 
2 10  6 

2107 

2108 
2100 
211c. 
2111 
21  12 
2113 
2116 
21  is 
2116 
211  7 
2 1 1 fl 


REF 

REF 

RFF 

REF 

RFF 

REF 

REF 

RTF 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

RFF 

RFF 

RFF 

REF 

RFF 

REF 

RFF 

REF 


8 

109 
6 
AO 
A 6 

3 LAST 
9 LAST 
1C  LAST 
11  LAST 
137  LAST 


138  LAST 
A L AST 
6 LAST 
8 IAST 
A 7 I AST 
5 LA  ST 
130  i AST 
A 8 LAST 
2°  LAST 
1 

A l A ST 


8 LAST 
AO  LAST 


LAST 
LAST 
l AST 
LAST 
I AST 
L AST 


A 5 1 
A45 
A50 
A50 
450 
A 5 1 
A5  1 
45  l 
AA  9 

A51 
AA9 
449 
A50 
A5  1 

449 
AS  1 
A51 
A51 

A5  1 

450 

451 


Al,  3435 
A l , 3 A36 
Al,  3 A 3 7 
4 1,3440 
-,1  , 3 A A 1 
A 1,  3442 
41  ,3443 
A 1 , 3 A A A 
41 , 34.45 
4 1 ,3446 
4 1,  3447 
41  ,345., 
Al  ,345  l 
A 1,  345  2 
Al  ,345  3 
Al,  3 A 5 A 
A 1,  3455 
41,3456 
41,  3457 
41  ,3460 
Al ,3461 
Al,  3462 
41  ,3463 
Al,  3 A6A 
A 1,  3465 
Al  ,3466 


5 A 022  0 
56  002  0 
5 A 115  0 
3 47 36  1 
26  776  0 
3 Al 5 1 0 
5 A 137  0 
A C C 22  0 
A 0022  0 
A 00 22  0 
A 0000  0 
7 47  57  1 
50  000  1 
? 4066  0 
7 4346  0 
54  12 A 1 
56  776  1 
54  1 A3  0 
1C  COO  0 
54  776  0 
0 4635  0 
6 lA  A 3 0 
10  137  0 
C 3 A A3  1 
A 4360  1 
54  776  0 


DSPDCTWD  TS 
XCH 
TS 
CAF 
ADS 
CAF 

WDAGAIN  TS 
CS 

cs 

CS 
C s 

MASK 

I NDEX 

CAF 

MASK 

TS 

XCH 

TS 

CCS 

TS 

TC 

CADR 

OCT  BACK  CCS 
TC 

DSPLV  CS 
TS 


C YL 
0 

WDRET 
3 I T 1 A 
DS  P COUNT 
FOUR 
WDCNT 
CYL 
C YL 
CYL 
A 

OSPMSK 

A 

PE  LTAB 

LDW5 

CODE 

DSPCOUNT 

COUNT 

A 

DSPCOUNT 
POST  JUMP 
3 SPOC  TI  N 
WDCNT 
WD AG Al N 
VD  1 

DS  PC  CUNT 


9:12  OCT.  21,  1970  ZERLAID  .00  1 PAGE  451 
USER*  S PAGE  NO.  57  ED  SA 

MULT  BY  .01 

TAKE  RESULTS  FROM  L.  (MULT  BY  2 EX  PI  4 J . 

NO  SIGN,  NO  ROUND,  2 CHAR 
.0  1 ROUNDEO  UP 

THIS  IS  NOT  FOR  GENERAL  USE.  REALLY  PART 
OF  OPDATVB. 


MUST  USE  S AM  C RETURN  AS  DSP  2Q  IT  . 
TO  BLANK  SIGNS 


CECREMENT  DSPCQJNT  EXCEPT  AT  +C 


TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS, 
AND  SIGNS  AFTER  A COMPLETED  01  SPLAY. 


« 


SA»:  ASSEMBLE  REVISION  So  OF  ASC  PPCGPAM  ZERLINA  BY  ZOROASTER 


PINBALL  GAME  BUTTONS  AN 3 LIGHTS 

2120  PFF  7 LAST  451  41,3467  0 0115 

2121  RFF  4 1 A ST  437  4757 


TC  WDRFT 

DSPRSK  = SEVEN 


»2135  FOP  CSPIM  PLAGE  V 25  OCT  INTO  COUNT,  5 RTT  PFLAY  CODE  INTO  COOE.  BOTH 

3 2 1 36  ARE  OESTPOYFO.  IF  BIT14  CG  C CUNT  IS  1,  SIGN  IS  RLANKED  WITH  LEFT  CHAR. 

»2M  7 FOR  0 SP  INI  PI  ACE  0.1  INTO  BI  Til  OF  COOE,  2 INTO  COUNT,  RF  L ADDRESS  OF 

K21.3B  DSPTAB  ENTRY  INTO  CSREL. 


213*3  REF 


40,3353 


SETLOC  ENCECVN 


2140  RFF 

2141  P.EF 

2142  REF 

2143  PFF 
214*  RFF 

2145  REF 

2146  PFF 

2147  REF 

2148  PFF 
2140  PFF 
2153 

2151  RFF 

2152  RFF 

2153  PEF 

2154  REF 

2155  RFF 

2156  PFF 

2157  REF 

2158  REF 

2159  PEF 

2160  REF 
A2  1 61 

A 2162 
2163 

216*  RFF 

2165  REF 

2166 

2167  PEF 

2168  REF 

2169  REF 

2170  REF 

2171  REF 

2172 

2173  REF 
217* 

2175  PFF 

2176  REF 


LAST 
I AST 
I AST 
LAST 

L AST 
LAST 
LA  ST 


9 LAST 
1 

10  l A ST 
41  I AST 

8 LAST 
1*1  LAST 

29  L AST 
49  LAST 

9 l AST 


2 LAST 
2*  LAST 


6 LAST 
50  LAST 
1 

10  LAST 
1 

11  LAST 


11  LAST 


449  TO  45  1: 

45  1 40  ,3353 

*0,335* 
4^  1 40,  3355 

65  1 40  ,3356 

435  40,  3357 

452  40,3360 

40,3361 
425  *0,  3362 

45  2 40  ,3363 

451  40,3364 
40, 3365 
43  ,3366 

*51  4C, 3367 

40, 3 370 

452  40,3371 

45  1 *0,  3372 

45  2 40  ,3  37  3 

452  40,3374 

46  1 40,  3375 

450  40  ,3376 

452  40,3377 


*0, 3* CO 
452  40,3401 

410  40,3402 

40,  3403 
439  40  ,3404 

452  *C  , 3 *0  5 
40, 3406 
452  40,3407 

*0, 3410 
40,  34  1 1 
452  *0,3412 

40,  3413 
40  ,3414 
452  40,3415 


78  700* 

56  00  2 0 DSP  IN 
54  114  1 
3 4346  1 
7 0143  0 
54  C21  0 
56  021  1 
54  141  1 
3 4753  1 
7 0143  0 
1C  OOC  0 
0 3367  0 
0 3377  1 
56  124  0 
0 4340  1 
54  124  1 
? 4736  1 
7 0143  0 
10  000  0 
3 4752  0 
6 4753  1 
54  143  0 


C CCC4  0 
50  14  1 0 
11' 022  1 

0 3405  0 
C 5706  0 

6 4753  1 
54  142  1 
50  143  1 

7 3431  0 
0 0006  1 
60  124  0 
C 0006  1 

1 3427  1 
5 C 143  1 


D SPI  N 1 


DFRNT 


COUNT*  fS/PIN 

XCH  0 

TS  DS  EX  IT 

OAF  L0W5 

MASK  COUNT 

TS  SR 

XCH  SR 

TS  DS  R EL 

CAF  BITl 

MASK  COUNT 

CCS  A 

TC  +2 

TC  PSP  INI  -1 

XCH  CODE 

TC  SLEFT5 

TS  COOE 

CAF  HI  Tl 4 

MASK  COUNT 

CCS  A 

CAF  TWO 

AD  ONE 

TS  COUNT 


I NH1  NT 

INDEX  0 SP  EL 
CCS  DSPTAB 
TC  +2 

TC  CCSHOLE 

AD  ONE 

TS  DSMAG 

INDEX  COUNT 
MASK  DS  PS  K 
EXTEND 
SU  COOE 

EXTE  ND 
BZF  OSLV 
INDEX  COUNT 


9:12  PC  T.  21,  1970  ZEKLAIP  .001 
US  ER ' S PAGE  NO . 58 


PAGE 
EO  S 4 


452 


CANT  USE  L FOR  RETURN,  SINCE  MANY  OF  THE 
ROUTINES  CALLING  DSP  IN  USE  L AS  RETURN. 


LEFT  IF  CCU NT  IS  OCD 
RIGHT  IF  COUNT  IS  EVEN 

OOES  NOT  USE  CYL 


BI  Tl*  = 1 , BLANK  S IGN 
BIT  14  = 0,  LEAVE  SIGN  ALONE 
INTO  COUNT  FOP  RIGHT 
♦1  INTO  COUNT  FOP  LEFT (SIGN  LEFT  ALONE) 
+ 3 INTO  COUNT  FOR  LEF  T(  TO  RLANK  SIGN) 


SAME 


GAP:  ASSFMPLE  REVISION  56  OF  AGC  PRCGRAM  2 ERL  I N A BY  ZOROASTER 


9:  12  OCT.  21,  197C  ZFPLAIO  .001  PAGE  453 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NC.  59  EO  S4 


2177 

2178 

2179 

2180 
2181 
2182 
2183 
2 1 8 A 

2185 

2186 
2197 


REF  2 
REF  2 
REF  12 
RFF  142 
REF  3 
REF  25 


RFF  2 
REF  7 

REF  2 


LAST  452 
LAST  452 
LAST  45  2 
LAST  452 
I AST  452 
LAST  452 

I AST  452 
LAST  411 

LAST  45  2 


40  ,3416 
40,3417 

40. 3420 

40 .3421 

■ , 

40.3423 

40.3424 

40. 3425 
40  ,3426 
40,3427 
40,  3430 


4 3431  0 
7 C 1 4 2 l 
6 0124  0 
4 0000  0 
5C  141  0 
57*022  0 
C 0006  1 
6 3427  0 
25*015  1 
C 0003  1 
0 0114  0 


OS  LV 


CS  DSMSK 

MASK  OS  RAG 

ao  :ode 

CS  A 

INDEX  OSREL 

XCH  OSPTAD 
EXT  END 
RZMF  DSLV 

IN  CR  NOUT 

RE  LINT 

TC  0 SE  XI  T 


MASK  WITH  7774C,76C37, 75777,  OR  74037 


CS  PT  AB  ENTRY  W AS  - 
DSP  TAB  ENTRY  WAS  + 


2188 
2189 
2 1 90 

2 1 Q 1 


40  ,3431 
40,  3432 
40,  34  3 3 
40,3434 


0 003 7 0 
C 1 740  0 
C2000  0 
03740  1 


OSMSK 


OCT  37 

OCT  1740 

OCT  2000 

OCT  3740 


K2192  FOR  11DSPIN,  PUT  R EL  ADDRESSSOF  OSPTAB  ENTRY  INTO  A,  1 IN  RI  Tl  1 OR  C IN 
R 2 1 93  B!  TL  1 OF  CODE. 


21‘>4  REF  4 LAST  453 

2195  REF  3p  I AST  452 

2196  RFF  12  LAST  45 2 

2197  REF  111  I AST  452 

2198  RFF  3 LAST  453 

2190  REF  2 LAST  452 


40 ,343  7 
40, 3440 

, 

. 


54  141  1 
3 4752  0 
54  143  0 
56  002  0 
54  114  1 
C 3400  0 


110SPIN  TS  OSREL 

:af  TWO 

TS  COUNT 

XCH  0 

TS  0 SE  XI  T 

TC  DSP  INI 


MUST  USE  SAME  RETURN  AS  DSP  IN 


?2DT 
2201 
22n2 
2 2 o3 


RFF  5 L AST  450 

REF  5 LAST  438 

REF  1 


40,3443  C 3353  1 
40  ,3444  3 3446  1 

40. 3445  C 4640  l 

40. 3446  63463  Q 


OSPDC  TIN 

ENOSPDC  T 


TC  3 SPIN 

CAF  +2 

TC  BANKJUPF 

C ADR  OCTBACK 


SO  OSPOCTWO  OOFS  NT  USE  SWOALL 


3 2 ?'  4 0 SPA  LAP  M FINOS  TO  N V SL'BENO  IN  ENTRET  F CR  NVSUB  INITIATED  ROUTINES. 

R22T5  ABORT  K ITH  ^ 1 50  1 . 

R22  6 OSPALAPM  FINOS  TC  ENCOFJCB  IN  ENTRET  FOR  KEYBOARD  IN  IT  I AT  ED  RO  UTINE  S. 
R 2207  00  TC  ENTRET. 


22075  RFF  9 

22076  RFF  50 
2 23  9 RFF  1 
2209  RFF  8 
22in 

2211  REF  16 

22111  PEE  1 

22112  PCF  9 

22113 
2211  4 


LAST  45  1 
1 A ST  451 

1 AST  44  5 

L AST  404 

LAST  453 


40, 3*47 
4 ,3450 
4C , 3451 

40. 3452 

40.3453 
4C, 3454 
40  ,3455 
4C ,8456 
40, 3457 
40  ,3460 


4 4360  1 
54  776  0 
4 3472  1 
6 0136  0 
C 0006  l 
1 34,67  0 
4 3471  l 
6 0136  0 
C OOC  6 1 
1 3462  0 


PREOSPAL  CS  VO  1 

TS  DSPCOUNT 

OSPALARM  CS  NVSRENDL 

AD  ENTEXIT 

EXT  END 

BZF  CHARALPP  +2 
CS  MONADR 

AD  ENTEXIT 

E X TEND 
BZF  4-2 


IF  THI  S I S A MOM  TCR,  Kill  IT 


< 

< 

« 

< 

4 

4 

« 

4 

4 

4 

4 

4 

4 


4 


4 


4 

4 

4 

4 


4 


4 


AP: 


ASS6  P6LH  REVISION 


OF  AGO  PROGRAM  ZERLINA  BY  ZOKO ASTER 


9:  12  0;T.  21.1970  ZERLAIO  . 0C1 


PAGE  45* 


L PINBALL  GAME 

22115  PEF 

22116  REF 

22117  REF 

221 1 R 

2212 
2213 
2216 
2217 
22171 
22  1 R 


BUTTONS  AND  LI  GHTS 

G 3465  C 
C 6206  0 
C 6 36.6  1 
0 6126  1 
0 6366  1 
r f 155  c 
C 5ft  5 3 l 
215C1  0 
0*124  1 
0 


TC  CHARALRM 

TC  K I LMONON 

TC  FALTON 

TC  PASTEVB 

CHARALRM  TC  FALTON 

TC  ENDOF  JOB 

tc  pnoono 

OCT  21501 

MONADR  GENADR  PASTEVB 

NVSBENOL  TC  NVSUBEND 


1 7 LAST  653 


RFF 
P F F 
RFF 
RFF 


l AST 
LAST 
LAST 
L AST 
LAST 


770 
66  7 
656 


60,  346  1 
60  ,3667 
6C,  J463 
• , 66 
• r> 
6C, 3466 
43  ,3467 
6 - , 3670 
, 

40  ,3672 


USER'S  P AG  F NO.  6C  EC  S6 


PUT  MONITOR  VFRR  BACK  IN  VER8PFG 
NOT  NVSUR  INITIATED.  TURN  ON  OPR  ERROR 


R 22 1 9 AlMCYCl  E TURNS  ON  CHECK  FA  II  LIGHT,  RFDI  SPLAYS  THE  ORIGINAL  VERB  THAT 
R 222''  WAS  FXFfUTFr,  AMI  RECYCLES  TO  EXECUTE  T HF  ORIGINAL  VFRB/NOIJN  COMBINATION 

R 2721  THAT  WAS  LAST  E X£C  LIE  J . LSEO  F f R RAO  OATA  DURING  LOAD  VERBS  AND  BY 

R2222  VCTI3S.  ALSO  HY  VM  CHAN  G IF  2 NUMERICAL  CHAR  AC  TF  R S WERE  NOT  PUNCHED  IN 
3 2223  FOR  MM  CODE. 


2226  5 
2225 
2223 
2229 
22  30 

2231 

2232 

2233 


RFF 

RFF 

PEF 

REF 

RTF 

RFF 

RFF 

REF 

REF 


3 LAST  667  6165 

2 LAST  667  TO  647: 

5 LAST  456  6165 

3 I AST  663  6 166 

11  LAST  647  6167 

E?  LAST  667  6150 

P LAST  667  6 1 5 1 

30  LAST  651  6 L57 

2 LAST  606  6153 


17  17 

C 6366  1 
6 1C60  0 
55*012  1 
C 6616  1 

62366  0 

0 6635  0 
62C22  0 


SETLOC  MI  07 

COUNT*  *•  $ / P I N 

ALMCYCLE  TC  FALTON 

CS  VERRSAVE 

TS  PEQRET 

TC  BANKCALL 

C ADR  UPOATVB 

TC  POSTJUMP 

ENDALM  CAOR  ENTER 


TURN  ON  CHECK  FAIL  LIGHT. 

GET  ORIGINAL  VERB  THAT  WAS  EXECUTED 
SET  FOR  FNTPASC 

PJTS  ORIGINAL  VERB  INTO  VFRRRFG  AND 
DISPLAYS  IT  IN  VEPe  LIGHTS. 


R223P  MMCHANG  USFS  NOIJN  DISPLAY  UNTIL  ENTER.  THEN  IT  USES  MODE  DISP. 

3 2235  IT  GOES  TO  MOOROUT  WITH  THE  NEW  M M CODE  IN  A,  BUT  NOT  DISPLAYED  IN 

R2236  MM  L IGHTS . 

R 2237  IT  DEMANDS  2 NUMERICAL  CHARACTERS  BE  PUNCHED  IN  FOR  NEW  MM  CODE. 

R223R  IF  NOT,  IT  RECYCLES. 


223q 
22395 
2 763 
A 2 24  1 
A 226? 
2263 
2266 

2265 

2266 
2267 
2 76B 
2269 
22  50 

2251 

2252 


RFF 

RFF 

PEF 


1 4 1 , 3470 

6 LAST  451  TC  452  : 

1 41, 3470 


SF  TLOC  9 SPLV  +3 

27  808*  COUNT*  *$/PIN 

C 3512  1 MMCHANG  TC  RF  QMM 


REF  21 
PEF  51 


REF  14 
REF  93 
RFF  12 
PEF  2C9 
RFF  4 
REF  52 


LAST  381 
LAST  453 


LAST  444 
LAST  451 
LAST  445 
LAST  451 
LAST  417 
LAST  454 


41,  9471 
41  ,3472 
41,3473 
41,  3474 
41  ,3475 

41. 3476 

41 .3477 
41  ,3500 
4 1,  35C  1 
41  ,3502 


:•  4 74  7 1 
6 0776  1 
C CCC6  1 
1 3476  0 
0 4145  0 
3 4755  1 
57  *00  1 1 
54  154  0 

3 4361  1 

54  776  0 


CAF  BI  T5 

AO  DSPCOUNT 

EXTEND 
3ZF  +2 

TC  ALMCYCLE 

CAF  ZFRO 

XCH  N 0 UN  R EG 

TS  MP  AC 

CAF  N0 1 

TS  OSPCOUN  T 


ENTPASHI  ASSUMES  THE  TC  REOMM  AT  MMCHANG 
IF  THIS  MOVES  AT  ALL,  MUST  CHANGE 
MMADREF  AT  FNTPASHI. 

CCT20  = ND2. 

DSPCOUNT  MUST  = -ND2. 

DEMAND  THAT  2 NUM  CHAR  WERE  PUNCHED  IN. 


DSPCOUNT  NO  T=  -ND2.  ALARM  AND  RECYCLE. 
DSPCOUNT  = -ND2. 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS 


2 253 

2254 

2255 

2256 

2257 
2 ? 5 R 
2?5<) 


PFF 

OFF 

PEF 

PFF 

RFF 

REF 

REF 


93 

10 

2 10 
31 


L AST 
LA  ST 
LAST 
LAST 
LAST 
L AST 


454  41,  3503  0 46l6  1 

410  41  ,3504  60570  0 

453  4 1 » 3 5C 5 4 4360  1 

454  4 1,  3506  54  776  0 

454  41,3507  3 0154  l 

454  4 l,  3510  C 4635  0 

41,3511  10040  1 


TC  BANKCALL 

CA  OR  2BLANK 

CS  VD1 

TS  3SPC0UNT 

CA  MP  AC 

TC  POST  JUMP 

CAOR  MODROUTR 


2260 

2261 

226? 

2263 

2264 


2265 

2266 

2267 

2268 

2269 

2270 
227  1 
2272 


PEF 

REF 

PEF 

REF 

REF 

PEF 

REF 

PEF 

REF 

REF 

RFF 


12  LAST 
5 LAST 

54  LAST 
94  LAST 

13  I AST 

94  1 AST 

5 LAST 
3 L AST 
51  LAST 
18  I AST 
12  LAST 


454 

454 

455 
454 

454 

455 
455 
4 1 7 

452 
443 

453 


04 ,2040 

4 1,  35  12  4 OCO 2 1 

41  ,3513  5 5' 0 1 2 1 

4 l,  3514  2 4361  1 

4 1. 3515  54  776  0 

41.3516  3 4755  1 

4 1,  35  17  55*001  0 

41  ,3523  0 46  16  1 

41,3531  60570  0 

4 1,3552  0 44  57  1 

41,3523  3 4753  1 

4 1,  35  24  54  7 77  1 

4 1 , 3525  C 0136  0 


MQ0R0UT8  = 
PFQMM  CS 
TS 
CAF 
TS 
CAF 
TS 
TC 

CADR 

TC 

CAF 

TS 

t: 


V37 

0 

R FOR  FT 
ND1 

DSPCOUNT 

ZERO 

NOUNREG 

BANKCALL 

2 BLANK 

F LA  SHON 

ONE 

DECBRNCH 
ENTE  XI  T 


R 227  T VBPOEXFC  EN  TFR  S R EQ  UF  S F TO  EXEC  F CR  ANY  AOORESS  WITH  ANY  PRIORITY. 

'<227^  IT  00  ES  ENOOFJOB  AFTER  EM  TER  ING  REQUFST.  DISPLAY  SYST  IS  RELEASED. 

R2275  IT  ASSUMES  NOUN  26  HAS  BEEN  PRELCAOED  WITH 

<2274  COMPONENT  l PR  I OR  I T Y(  B [ T S IC-14)  BIT1=0  F CR  NCVAC,  BIT1=1  FOR  FINDVAC 

R2277  COMPONF NT  2 JOB  ADRES  (12  BIT  ) 

1 2278  COMPONF  NT  3 BRCCN 


iiJS 
228  1 
2?  82 

2283 

2284 

2285 

2286 
2?  97 
2288 
2289 
2293 
2291 
226? 

2293 

2294 

2295 
22  96 


REF  21 
PEF  18 
RFF  143 
REF  1 
REF  1 
REF  211 
RFF  22 
REF  IQ 
REF  21? 
RFF  6 
RFF  5 
REF  213 


L AST 
LAST 
l A ST 


LA  ST 
L AST 
I AST 
l AST 
LAST 
LAST 
1 AST 


455 

455 

455 

455 

435 

44  5 

45  5 


REF  20  LAST  455 
RFF  214  LAST  455 
PFF  215  LAST  455 

RFF  216  LAST  455 


4 1,  3526 
41 , 3527 

41,  3531 

41 .3532 

41.3533 
4 1,  3534 
41  ,3535 
41, 

41 , 3537 
41  ,3  540 
4 1,  354  1 
41  ,3542 
41  ,3  543 
41, 3544 
41  ,3545 
4 1,  3546 
4 1,  3547 


3 4753  1 
7 If  44  1 
10  000  0 
0 3550  1 

3 4351  l 
f4  154  0 

4 4753  0 
7 1044  1 
54  160  1 
0 4457  0 
3 4217  1 
54  157  0 
0 0006  1 
? 1046  1 

156  1 
3 0160  0 
C CCC4  0 
0 0154  1 


CAF 

MASK 

CCS 


REQUFSTC  TC 


EXTEND 
DC  A 
DXCH 


SE  T VAC 
TCNO VAC 
MP  AC 
91  T 1 
DS  PT  EM  1 
MPAC 
R EL  DSP 
ENDINST 
MPAC 

DS  PT  EMI 

MPAC 

MPAC 
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USER  *S  PAGE  NO.  61  E 0 S4 


BLOCK  NUM  CHAR  IN 


GO  THRU  STANDARD  LCC. 


SET  FOR  DEC 


IF  BITl  = 1 , EINDV  AC 
IF  BITl  = 0,  NOVAC 

TC  NOVAC  OR  TC  FINDVAC  INTO  MPAC 


PRIO  INTO  MPAC  +4  AS  A TEMP 


TC  ENDOF  JOB  INTO  MPAC+3 

JOB  ADRES  INTO  MP  AC+  1 
BBC  ON  I NT  0 MPAC+2 
PRIO  IN  A 


GAP: 
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56 


PINBALL  GAME  RUT  TENS  AND  LIGHTS 


USER'S  PAGE  NO.  62  EC  S4 


PEE  1 
REF  1 


41*  3550  3 4354  1 SE  TVAC  CAF  TCFINOVC 

41,3551  0 3533  l TC  REQEXl 


R 2299  VRROWAIT  ENTFR  S RfcQLF  ST  TO  WAITLIST  FOR  ANY  ADDRESS  WITH  ANY  DELAY. 
P?3V  IT  CPES  ENDCIFJOB  AFTER  ENTERING  REOUF  ST.DI  SPL  A Y SYST  IS  RELEASED. 

R 2301  IT  ASSURES  NOUN  26  HAS  RFFN  FPELOADEC  WITH 

P.23  2 COMPONENT  1 DELAY  (M1W  3 1 T S » 

R2303  CCPPCNFNT  ? TASK  ACRES  (12  e IT  ) 

1 2304  COMPONENT  3 BBCON 


2305 

2306 
230  7 
2308 


RFF  1 
°rF  217 
PEF  21 
REF  1 


4 1 , "552 
I AST  455  41  ,5553 

LAST  45  5 41,3554 

41,  3555 


3 4352  1 VBRQWAI T CAP 

54  154  0 TS 

3 1 C44  0 CA 

0 35  36  1 ENORQWT  TC 


TCWAI  T 
MPAC 
DSPTEM1 
R E 0 UE  S TC  - l 


TC  WA  I TLI  ST  I NTP  MPAC 
T IME  DELAY 


12309  REQUFSTC  WILL  PUT  TASK  ADRES  INTC  MPAC+1  , BBCON  INTO  MPAC +2, 

R 9 3 1 TC  FNOOFJOH  INTO  MP  AC*-  3.  IT  WILL  TA  Kc  TIME  DELAY  OUT  OF  MPAC+4  AND 

R2  3 1 1 LFAVF  IT  IN  A,  INHINT  ANO  TC  MPAC. 


2312  PEF 
23125  RFF 

2313  PEF 

2314  REF 

2315  RFF 

2316  RFF 

2317  RCF 

2318  PEF 


2 I A ST  453 
7 LAST  452  TO 
52  LAST  455 
2 LAST  435 

2 LAST  45  4 
7 LAST  455 

3 LAST  412 
2 LAST  435 


40,3473 

454: 

40  ,3473 
4C, 3474 
40,  3475 

40.3476 

40. 3477 
40  ,7 500 


80  780* 

3 4753  1 VPPROC 
5 5 1 C 1 3 0 
0 4204  0 
0 4457  0 
C 4433  1 
0 3607  0 


SETLOC  NVSBFNCL 
COUNT*  $ $/P  I N 
CAF  ONE 

TS  LOADSTAT 

TC  KILMONON 

TC  R EL  DSP 

TC  FLASHOFF 

TC  RFCALTST 


PROCEED  WI  TH3UT  DATA 
TURN  ON  KILL  MONITOR  BIT 


SEE  IF  THERF  IS  ANY  RECALL  FROM  ENDIDLE 


53 

2 


4C.35C1  4 4153  C VBTERM  CS 
40,  350  2 0 34  74  0 TC 


ONE 

V8PR0C 


TERM  VERB  SETS  LOACSTAT  NEG 


4C  ,3  504  6 3520  0 


LAST  455 


123?  1 PROCKFY  PERFORMS  THE  SAME  FUNCTION  AS  VBPRCC.  IT  MUST  BE  CALL  EC  UNDER 
R 2 3 2 < 2 EXECUTIVE  CONTROL,  WITH  CHRPRIO. 

232033  RFF  20  LAST  447  40  ,3503  4 1000  1 PROCK  EY  CS 

2320  36 
23204 
2 3204  3 I 
232? 

2320 
232053  I 

23206 

23207 
2 320  8 
2 3209 


RFF 

RFF 

REF 

PEF 

RFF 

RFF 


L AST 
LAST 
L AST 
LAST 
L A ST 
L AST 


40,  350  5 
40  ,3506 
4C, 35C7 
40, 3510 
■ 

40,  3512 
4C  ,35  13 
. 

tO,  35  1 5 


C 0CG6  1 
26  OCO  0 
C CC06  l 
1 3465  1 

3 4755  1 
55*012  1 

4 4360  1 
54  776  0 
0 3473  I 


AD 

EXTEND 

DIM 

EXTEND 

R7F 

PRGCKEY 1 CAF 
TS 
CS 


CHARALRM 

ZERO 

REQRFT 

VD1 

DSPCOUNT 

VBPROC 


DONT  ALLOW  PROCEED  DURING  LOAD. 
DEC  22 


SET  RE3RET  FDR  ENTER  PASS  0. 

BLOCK  NUMERICAL  CHARACTERS,  SIGNS, 


CLEAR 


ENDIDLE  AT  SAME  LINE  AS  FINAL  ENTER  OF  LOAD  (L+3). 


1 2321 


VBRFSEQ  WAKES 


3 A P : ASSEMRLE  REVISION  56  CF  AGC  PROGRAM  ZERL  INA  OY  ZOROASTER 
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L 

PINRALL  GAMF  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  63  EG  S* 

R2322 

3 2323 
R232* 

(MAIN  USE  IS  INTENCEC  AS  RESPONSE  TO  INTERNALLY  INITIATED  FLASHING 

DISPLAYS  IN  ENDIDLE.  SHOULO  NOT  PE  USED  WITH  LOAO  VERBS,  PLEASE  PERFORM, 

OR  PLEASE  MARK  VERBS  BECAUSE  THEY  ALREADY  USE  L+  3 IN  ANOTHER  CONTEXT.) 

2325 

2326 

PFF  96  1 AST  *56  *0  ,3516  * *755  0 V PRES  FQ  CS  ZERO  MAKE  IT  LOOK  LIKE  DATA  IN. 

REF  * LAST  *56  *0,35  17  C 3*7*  G TC  VBPRGC  +1 

23265 

*0,3520  00026  0 VBSP2LD*  DEC  22  VB22  = BLOAD 

3 2327 

R2  32R 

FLASH  IS  TURNED  OFF  BY  PROCEEC  MTHCUT  DATA,  TERMINATE,  RESEQUENCE, 

END  OF  LOAD. 

GAP:  ASSEMBLE  RE  VI  SI CN  56  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTER 
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PAGE 


L PIMBALI  GAME  RUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  64  EO  S4 

P2329  KFY  RELEASE  POUT  INE 

1233'  THIS  ROLTINE  ALWAYS  TURNS  CFF  TFF  UPACT  LIGHT  AND  ALWAYS  CLEARS  DSPLOCK  . 

R2331  TL-F  HlfFEST  PRIORITY  FUNCTION  OF  THE  KEY  RELEASE  BUTTON  IS  THF 
R 233?  UNSUSPFNniNG  CF  A SUSRFNDEC  PEN  IT  FR  WHICH  WAS  EXTERNALLY  INITIATED. 

P2333  this  FUNCTION  IS  ACCCMPUSHED  BY  CLEARING  DSPLOCK  AND  TURNING  OFF 

P2334  TFF  KFY  R El  PAS  F L I GET  IF  BOTH  DSPI  1ST  AND  CADR  S TO II  ARE  EMPTY. 


12335  IF  NO  SLCH  MrNI  TOR  EXISTS,  TFFN  RELDSP  IS  EXECUTED  TO  CLEAR  DSPLOCK 
R2336  AND  THF  EX  TFF'  NAL  MON  I Til  BIT  CFREFING  THE  DISPLAY  SYSTEM  F CR  INTERNAL 

R 2 3 7 7 USF)  , TURN  OFF  THF  KFY  RFLFASE  LIGHT,  AND  WAKE  UP  ANY  JOB  IN  DSPI  I ST. 


< 2338  IN  ADDITION  IF  THERE  ISA  JOP  IN  ENDIOLE,  THEN  CONTROL  IS  TRANSFERRED 

P.2  3 3 7 TO  PINBPNCH  (IN  DISPLAY  INTER  FACE  ROUTINE)  TD  RF-EXECUTE  THE  SERIES  OF 

R233Q1  N VS  UR  CALLS  ETC.  THAT  PRFCFDEC  THE  FNOICIF  CALL  STILL  AWAITING  RESPONSE. 
R ? 34P  THIS  FEATURE  IS  INTENDED  FOR  l SE  WHEN  THE  OPERATOR  HAS  BEEN  RECUESTED  TO 

R2341  RFSPCNP  Tr  SCMF  INTERNAL  ACTION  TEAT  USED  END  IDI  E , BUT  HF  HAS  WRITTFN 

12342  OVER  THE  INFORMATICN  CN  THE  CISFLAY  PANEL  BY  SOME  DISPLAYS  OF  HIS  OWN 

R2343  INITIATION  WHICH  DO  NOT  SERVE  AS  RESPONSES.  HITTING  KFY  RLSE  WILL 

R 2 344  RE-ESTAPLISH  TEE  DISPLAYS  TO  TEE  STATE  THEY  WERE  IN  BEFORE  HE  OBSCURED 

R 2345  THEM,  SO  THAT  HE  CAN  SEE  THE  WAITING  REQUEST.  THIS  WORKS  ONLY  FOR 

R2346  INTERNAL  PROGRAMS  TEAT  USED  ENDIOLE  THROUGH  MARGARETS  01  SPLAY 
1 2347  SUBPOLTIMFS. 


2350 

2351 
235? 
2353 
2 354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

236? 

2363 

2364 

2365 

2366 
2366  1 


REF  21 

REF  II 
REF  2 
RFF  42 
RTF  6 
REF  145 
RFF  1 
REF  8 
REF  c 


RFF  53 
REF  3? 
REF  4 
RFF  97 
RFF  5 
RFF  6 
REF  54 
REF  2 
RFF  55 


LAST  431 

LAST  227 
I AST  40  3 
LAST  452 
LAST  447 
LAST  456 

l AST  456 
LAST  446 

LAST  454 
LAST  455 
LAST  303 
LAST  457 
LAST  446 
LAST  458 
LAST  458 
I A ST  446 
LAST  4 5 fl 


40  , 35  22 

40.3523 

40. 3524 
40  ,3525 
40,3526 
40,  3527 
40  ,3530 
40, 3531 
40,  3532 

40.3533 

40. 3534 
40  ,3535 
40,3536 
40, 7537 
4r:  ,3  540 
4C»  354  l 
40,3  542 

40.3543 

40. 3544 


4 4751  1 
0 0006  l 
03  011  1 
1C  115  0 
3 4736  1 
7 1020  0 
10  000  0 
G 3537  0 
C 4^.57  C 
11*041  1 
0 3535  1 
C 5155  0 
0 4635  0 
21051  0 
3 4755  1 
55*011  I 
11*041  1 
0 5155  0 
0 4502  1 
C 5155  0 


VBRELDSP  CS 

EXTEND 

WAND 

CC  S 

CAF 

MASK 

GC  S 

TC 

TSTLTS4  TC 
CCS 
TC 
TC 
TC 

CADR 

UNSUSPEN  OAF 
TS 
CCS 
TC 
TC 
TC 


BI  T3 

DS  ALMOUT 
21  /22RFG 
B I T 1 4 
MONS  AVE1 
A 

JNSUSPEN 
PE  LDSP 
O ADRSTOR 
+ 2 

ENDOF JCB 
POSTJUMP 
PINBRNCH 
7ER0 
DSPLOCK 
f ADRSTOR 
ENDOF  JOB 
R El.  OS  PI 
ENDCF JCB 


TURN  OFF  UP  AC  T L I TE 
CLD  DSPLOCK 

EXTERNAL  MONITOR  BIT  ( EMB ) 

OLD  DSPLOCK  AND  EMB  BOTH  1 , UNSUSPEND. 
NOT  UNSUSPENDING  EXTERNAL  M0NITD1, 
RELEASE  Cl  SPLAY  SYSTEM  AND 
DD  RF-FSTABIISH  IF  CAORSTOR  IS  FULL. 


EXTERNAL  MONITOR  IS  SUSPENDED, 

JUST  UNSUSPEND  IT  BY  CLEARING  DSPLOCK. 
TURN  KEY  RELEASE  LIGHT  OFF  IF  BOTH 
CADRSTOR  AND  DSPLIST  ARE  EMPTY. 


2367 


40  ,3545 


ENCRELOS  EQUALS 
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L 

PINBALL  GAME  RUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  65  EO  S9 

P23  6 8 

* 2369 
R237D 

R 2 3 7 0 1 

NV SUB  IS  USEP  FOR  SUR  ROUTINE  CALLS  FROM  WITHIN  COMPUTER.  IT  CAN  BE 

USED  TO  CALI  THE  COMBINATION  CF  ANY  DISPLAY,  LOAO,  OR  MONITOR  VERR 

TOGETHER  WITH  AMY  NOUN  AVAILABLE  TO  THE  KEYBOARD. 

PLACE  0 VVVVVVVNNNNNNN  INTO  A. 

1 2 37  1 7 V-S  ARE  THE  7 BIT  VERB  CODE.  N-S  ARE  THE  7 R IT  NOUN  CODE 


R23703 

R 237'"  A 

R 2370 5 

IF  NVSUP  IS  CALLEO  WITH  THE  FOLLOWING  NEGATIVE  NUMBERS  (RATHER  THAN  THE 

VERB- N CL N COOE 1 IN  A,  THEN  TEF  CISPLAY  IS  ELANKED  AS  FOLLDWS- 
-A  FULL  BLANK,  -3  LEAVE  MODE,  -2  LEAVE  MCDE  AND  VERB,  -l  BLANK  R-S  ONLY 

R2371 

3 2372 

NVSUR  CAN  RE  USED  WITH  MACH  CACP  TO  BF  SPEC  BY  PLACING  THF  CADP  INTO 

MPAC+2  RFFORF  THF  STANDARD  NVSLP  CALL. 

R2373 

R237* 

3 2375 
R2376 

R 2 377 

NVSUB  RETURN S TO  2+  CALLING  LOC  AFTER  PERFORMING  TASK,  IF  DISPLAY 

SYSTEM  IS  AVAILABLE.  THE  NEW  NOUN  AND  VERB  CODES  ARE  DISPLAYED. 

IT  V : S =r,  THE  NEW  NOUN  : ODE  Ic  DISPLAYED  CNLY  ( P ETU  RN  WITH  NO  FURTHFR 

ACTION).  IF  N'-S  =0 , THE  NEW  VFR  B CODF  IS  DISPLAYED  ONL  Y(  R E TUR  N WITH  NO 

FURTHFR  ACTION). 

R 2 378 
R.2379 

3 2 3RD 
R23R1 

IT  RETURNS  TP  1+  CALLING  LOC  WITHOUT  PERFORMING  TASK,  IF  DISPLAY 

SYS  T F M IS  PLCCKEO  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

IT  POrs  TC  ABORT  (WITH  OCT  01501)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 

ALARM  CONDITION  RFFORE  RETU3N  TO  CALLFR. 

R 2 382 
R23R3 

R230'* 

3 2385 
R23R6 

R2  3 87 

3 2388 

THE  DISPLAY  SYSTEM  IS  BLOCKED  EY  THE  DEPRESSION  OF  ANY 

KFY,  FXCFPT  ERROR  LIGHT  RESET 

H IS  RELEASED  BY  THF  KEY  RELEASE  BUTTON,  ALL  EXTENDED  VERBS, 

PROCEED  WITHOUT  DATA,  TERMINATE,  RESEQUENCE,  INITIALIZE  EXECUTIVE, 

RECALL  PART  OF  RECAITST  IF  ENDIDLE  WAS  USED, 

VB  = REQUEST  EXECUTIVE,  Vfl  = REQUEST  WAITLIST, 

MONITOR  SFT  UP. 

R23BP  1 
R23R82 

THE  DISPLAY  SYSTEM  IS  ALSO  BLOCKED  BY  THE  EXTERNAL  MONITOR  BIT,  WHICH 

INDICATES  AN  FXTFRMLLY  INITIATED  MON  IT  OP  IS  RUNNING  (SEF  MONITOR) 

R23R9 

R23891 

A NVSUB  CALL  THAT  PASSES  DSPLCCK  AND  THE  EXTFRNAL  MONITOR  PIT  ENDS  OLD 

MONITOR. 

3 2390 
R239  1 

D SP  LOC  K IS  THE  INTERLOCK  FCR  LSE  CF  KEYBOARO  AND  DISPLAY  SYSTEM  WHICH 

LOCKS  OUT  INTERN'AI  USE  WHENEVER  IHC^h  IS  EXTERNAL  KEYBOARD  ACTICN. 

R 2391  ! 

R 2 39 i 2 
R23  9l 3 

3 23<U4 

R 239  15 
r2  3o1 6 

3 239  1 7 

NVSUB  SHOULD  “F  USFC  TWICE  IN  SUCCESSION  FOR  rPLEASE  PERFORM:  SITUATIONS 
(SIMILARLY  FOR  PLEASF  MARK).  FIRST  PLACE  THE  CODED  NUMBER  FOR  WHAT 

ACTION  IS  DESIRED  CF  OPERATOP  INTO  THE  REGISTERS  REFERRED  TO  RY  THE 
rCHFCKLIST:  NOUN,  GO  TC  NVSUB  WITH  A DISPLAY  VERB  AND  THF  CHECKLIST: 

NOUN.  GO  TO  NVSUB  AGAIN  WITH  THF  :PLFA  SE  PERFORM:  VERB  AND  ZERCS  IN  THF 

LOW  7 BITS.  THIS  : PASTES  IP:  TEE  rPLEASE  PERFORM:  VERB  INTO  THE  VFRB 

LIGHTS. 

R23918 

NVMONOPT  IS  AN  ENTRY  SIMILAR  TO  NVSUB,  BUT  REQUIRING  AN  ADDITIONAL 

GAP: 
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l 219181  PARAMETER  IN  L.  IT  SHOLL)  BE  LSEO  CNLY  WITH  A MONITOR  VERB-NOUN  COOE  IN 
R2391 8 2 A.  AFTFP  EACH  MONITOR  DISPLAY  A *PLE  A SE*  VFPB  WILL  BE  PASTED  IN  THE  VERR 
R 2391 83  LIGHTS  CP  DATA  WILL  BE  BLANKEC  (CP  ROTH)  ACCORCING  TO  THE  OPTIONS 
R2’.f'l  SPECIFIED  IN  L . IF  BITS  R-  1 4 CF  L ARE  OTHER  THAN  ZERO,  THEN  THEY  WILL 
»2T9l85  BF  INTFRP°ElEr  AS  A VERB  COCF  AND  PASTED  IN  THE  VERB  LIGHTS.  (THIS  VFRB 
CODE  SHOUID  DESIGNATE  CNF  CF  TH  F *PlFASE*  VFRRS.)  IF  HITS  1-3  OF  L ARE 
R2391  P7  CTHFR  THAN  ZERO,  THEN  THFY  WILl  OF  USFD  TO  BLANK  OATA  BY  BEING  FEC  TO 
R 2 3°  1 BR  BLANKSUB.  IF  NVMONCPT  IS  US  EC  WITH  A VERB  OTHER  THAN  A MONITOR  VERB, 

1 239 1 85  THE  PARAMETER  IN  L HAS  NO  EFFECT. 


P2I92  NVSUB  IN  FIXED— FIXEO  PLACES  ^CALLING  L DC  INTO  NVQTEM,  TC  NVSU9END  INTO 
» 2393  ENTRFT.  (THIS  WILL  R^STr^F  OlC  CALLING  BANK  BITS) 


2394  RFF 


SETLCC  ENOALM  +1 


23045  REF  3 

2395 

2396  RFF  1 

2397  RFF  43 

23971  REF  7 

23972  REF  6 

23973  RFF  146 

23974  RFF  113 

2398  RFF  56 

2399  RTF  114 
2439  REF  l 
24001  REF  4 
240  1 REF  3 
2402  RFF  1 


LAST  454  TO 


LAST  458 
LAST  458 
LAST  458 
LAST  45  B 
LAST  455 
LAST  456 
LAST  460 

LAST  447 
I AST  456 


454:  7 24* 

4154  22  007  0 

6 1 55  c4  123  0 

4156  3 4736  1 

4157  7 1020  0 

4 160  6 1011  0 

4161  10  000  0 

4162  C 0CC2  0 

4163  3 4753  1 

41  64  6 0002  0 

4 165  55*036  1 

4 L66  23 '0  2 1 0 

4167  C 42C4  C 
4 170  2 4 50  1 0 


COUNT* 

NVSU9  LX  CH 
NVMONOPT  TS 
CAF 
MASK 
AO 
CCS 
TC 
CAF 

NVSBCOM  AD 
TS 

LXCH 

TC 

N V SUBCOM  CAF 


ti/PIN 

7 ZERO  NVMONOPT  OPTIONS 

NVTEMP 

RIT14 

M0NSAVE1  EXTERNAL  MONITOR  BIT 

3 SPLOC  K 

A 

0 DSP  SYST  BLOCKED.  RET  TD  1*  CALLING  L DC 

ONE  DSP  SYST  AVAILABLE 

0 

NVQTEM  2+  CALLING  LOC  I NT  C NVQTEM 

M0NSAVE2  STORE  NVMONOPT  CPTI  CNS 

KILMGNCN  TURN  ON  KILL  MONITOR  BIT 

NVSBRBNK 


24'  3 REF 

2433] 

24032  REF 
2404  RFF 
24741  REF 
2404? 

2404  3 REF 
2415  RFF 

2406  REF 

2407  RFF 


12  LAST  375 

4 LAST  279 

1 

? L AST  279 

5 LAST  460 
1 

56  LAST  456 
2 LAST  412 


41  71  56  1 06  1 

4172  C 00C6  1 

4173  04  007  1 

41 74  55' 097  0 

4175  2 4 2C  1 0 

6176  0 0006  1 

4177  Cl  007  1 
4 200  0 20  20  1 

0776 

42C1  62 1 C 1 0 


XCH 

EXTEND 

ROR 

TS 

CAF 

EXTEND 

WRITE 

TC 

EBANK= 
NVSBRBNK  BBC  CN 


BBANK 

SUPERBNK 
NV  BNKT  FM 
PI  NSUPBT 


S AV  E 


OLD  SUPER  R IT  S 


SUPERBNK 

NVSUBB  GO  TO  NVSUB1  THRU  STANDARD  LOC 

DSPCOUNT 

NVSUB1 


2 4071  RFF 


2 LAST  460 


4201 


P INSUPBT 


NVSBRBNK  CONTAINS  THF  PINBALL  SUPERBITS. 


4202  53*037  n NVSUBENO  DX  CH 

4 20  3 0 5 176  1 TC 


NV  QT  EM 
SUPDXCHZ 


NVBNKTEM  MUST  = NVOTEM+1 
DTCB  WITH  SUPERBIT  SWITCHING 


2414  RFF 


,3556 


SETLOC  ENDRQWT  +1 


241405  REF  7 LAST  454  TO  456:  54  862*  COUNT*  fS/PIN 

R24H12  BLANKOSP  BLANKS  DISP1AY  ACCORCING  TO  OPTION  NUMBER  IN  NVTEMP  AS  FOLLOWS 
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R 2 4 1 4 1 5 

-4 

FJLL 

BLANK 

, -3 

L EAVE  MODE 

, -2  LEAVE 

MODE  AND 

VERB  , 

2*  14  19 

REF 

5 

LAST 

452 

41 1 3556 

6 4757 

0 

BLANKOSP 

AD 

2414 22 

41  ,3557 

0 0C04 

0 

I NH I NT 

241425 

REF 

13 

L AST 

453 

4 1,  3560 

c 4 124 

1 

TS 

241425 

RFF 

20 

LAST 

261 

41  ,3561 

4 4749 

1 

CS 

24142? 

REF 

14 

LA  ST 

461 

41  ,356? 

50  124 

0 

INDEX 

241435 

RFF 

26 

L AST 

45  3 

41, 3563 

' 

0 

XCH 

241435 

PEF 

147 

LAST 

460 

41  ,3564 

10  000 

0 

CCS 

241*^2 

REF 

8 

LAST 

453 

41, 3565 

25' 015 

1 

I NCR 

241445 

41,  3566 

0 3567 

0 

TC 

24  14  49 

REF 

15 

LA  ST 

461 

41  ,3567 

10  124 

1 

CCS 

241452 

REF 

1 

41, 3570 

C 3560 

1 

TC 

241455 

41  ,3571 

0 0003 

1 

R EL  INT 

241455 

REF 

2 

LA  ST 

460 

41  ,3572 

50  123 

1 

INDEX 

241462 

4 1,  1573 

C 3fcC  0 

1 

TC 

241465 

41  ,3574 

0 3575 

0 

TC 

241469 

REF 

21 

LAST 

456 

41,  3575 

55' CCC 

1 

TS 

24  14  72 

RFF 

1 4 

LAST 

45  5 

4 1,  3576 

55'0C1 

0 

TS 

241475 

RFF 

12 

LA  ST 

434 

41  ,3577 

5 5 ' 01 4 

1 

TS 

241479 

RFF 

1? 

L AST 

45  e 

41,  36C0 

4 4360 

1 

CS 

241482 

RFF 

57 

LAST 

460 

41  ,360  1 

54  776 

0 

TS 

241485 

R E F 

4 

LA  ST 

456 

- ' , 

0 44  33 

1 

TC 

241489 

RFF 

1 

• 1,  ■ 3 

C 3626 

0 

TC 

2415 

REF 

2 

LAST 

46  1 

41  ,3  604 

3 3630 

1 

NVSUB1 

CAF 

2416 

REF 

I AST 

44  7 

4 1,  3605 

54  136 

l 

TS 

24161 

RFF 

3 

1 AST 

461 

41,3  1 > 

10  123 

0 

CCS 

24162 

41  , 3 6C7 

0 3613 

0 

TC 

24163 

REF 

17 

l AST 

42  1 

4 1,  3610 

0 2400 

1 

TC 

24164 

RFF 

2 

LAST 

461 

41  ,3611 

0 3556 

1 

TC 

24165 

R FF 

18 

LA  ST 

46  l 

41,361? 

C 2400 

1 

TC 

2417 

RFF 

5 

LAST 

647 

4 1,  36  13 

3 6106 

0 

CAF 

24 1 B 

REF 

4 

LAST 

46  l 

41,3614 

7 0123 

0 

MASK 

2419 

RFF 

218 

l AST 

456 

41,  3615 

54  1 57 

0 

TS 

2420 

REF 

5 

LAST 

461 

41,3616 

3 0123 

l 

CA 

2422 

RFF 

5 

1 AST 

447 

41  ,361 7 

54  023 

1 

TS 

2423 

REF 

6 

L AST 

461 

4 1,  3620 

3 OC23 

0 

CA 

2424 

REF 

219 

LAST 

461 

41  ,3621 

54  160 

1 

TS 

A 2425 

2 42  6 

RFF 

220 

LAST 

46  1 

1C  157 

0 

CC  S 

242  7 

REF 

1 

41,3623 

0 3631 

0 

TC 

2428 

REF 

221 

1 AST 

461 

41,  3624 

2 C 1 60 

0 

CA 

2429 

RFF 

9 

LAST 

454 

41 ,3625 

0 2366 

0 

TC 

242°  1 

RFF 

58 

1 AST 

458 

41 ,3626 

3 4755 

1 

CAF 

2429? 

RFF 

14 

1 AST 

4 56 

41,  3627 

55*012 

1 

TS 

2430 

RFF 

2 

L AST 

454 

41  ,3630 

0 4202 

0 

ENTS  ET 

TC 

2431 

RFF 

222 

LA  ST 

46  l 

41,3631 

1C  160 

1 

NVSUB2 

CCS 

2432 

41,  3632 

0 3636 

1 

TC 

2433 

RFF 

223 

LAST 

46  1 

11 , 633 

3 0157 

1 

CA 

-1  BLANK  R-S  ONLY 

SEVEN  7, 8, 9, OR  10  (A  HAD  0,1, 2, OR  3) 

CODE  ELANK  SPECIFIED  OSPTABS 

B I T 1 2 
CODE 
0 SP TAB 
A 

NOUT 
+ 1 

CODE 

BLANKOSP  +2 

NVTEMP 
+ 5 

+ 1 NVTFMP  HAS  -4  (NEVER  TOUCH  MODREG) 

VERRREG  -3 

NOUNRFG  -2 

CL  PAS  S -1 

VD 1 

DSP  COUNT 

FLASHOFF  PROTECT  AGAINST  INVISIBLE  FLASH 

ENTSE  T -2  ZEROS  REQRET 


ENTS  FT 
ENTRET 
NVTEMP 


GODSPALM 

BLANKOSP 

GODSPALM 

L0W7 

NVTEMP 

MP AC  +3 

NVTEMP 

EOOP 

E OOP 

MP  AC  +4 

MPAC  ♦ 3 

NV  SUB  2 
MPAC  +4 

UPDATVB  -l 
ZERO 
REQRET 
N V SUB  END 
MPAC  +4 
♦ 4 


IN  BANK 

S ET  RETURN  TO  NVSUBENO 
WHA  T NOW 

NORMA!  NVSJB  CALL  (EXECUTE  VN  OR  PASTF) 
BLANK  DISPLAY  AS  SPECIFIED 


TEMP  FOR  NOUN  (CANT  USE  MPAC.  DSPDECVN 
USES  «P AC,  +1,  +2 

R I GHT  7 

TEMP  FOP  VERB  (CANT  USE  MPAC+1  . DSPDECVN 
USES  MPAC,  +1,  +2). 

TEST  NOUN 

I F NOUN  NOT  +0,  GO  ON 

IF  NOUN  = +0,  DISPLAY  VERB  . THEN  RETURN 
ZERO  REQRET  SO  THAT  PASTFD  VERBS  CAN 
BF  EXECUTED  BY  C P E R AT  0 R . 

TEST  VERB 

IF  VERB  NOT  +0,  GO  ON 


MPAC 


AM : 
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2434 

2435 

2436 
2 A 3 7 


243« 

7439 

244 

2441 

2442 
2*4’ 
?444 
2445 


2446 

2447 

2448 


REF  2 
PFF  3 
REF  224 
RFF  225 
REF  226 
RFF  IT 
RFF  227 
REF  3 
REF  99 
RFF  3 
REF  13 
RFF  15 
PFF  22 P 
REF  229 
REF  3 


LAST  447 
l A ST  461 
LAST  461 
LAST  462 
LAST  462 
LAST  46 1 
LAST  462 
LAST  462 
LAST  46  1 
LAST  456 
I AST  46  1 
LAST  461 
LAST  462 
LAST  46  2 
LAST  412 


4 1 * 3634 
41  ,3635 
4 1,  3626 
41,3637 
4 1 ,3  640 
4 1,  3ft4  1 
41  ,3642 
41,3643 
4 1 , 3644 
41 ,3645 
41,  3646 
41 , 3647 
41,3650 
41,  365  1 
41  ,3652 


0 2346  1 
0 42C2  n 
3 C 1 56  0 

54  161  0 
3 91 60  0 
0 2266  0 
3 0157  1 
C 2346  1 
3 4755  1 
55*013  9 
5 5 ' 01 4 1 

55  T.  12  1 
3 0161  I 
54  156  1 
0 2062  1 


ENCNVS  81  TC 


UPDA  TNN  -l 
NVSUBENC 
MPAC  *2 
MPAC  +5 
MPAC  +4 
UP9ATVB  -1 
MPAC  +3 
U PD AT  NN  -1 
ZERO 
LOAOST  AT 
C L PASS 
R FOP  F T 
MPAC  +5 
MPAC  +2 
ENTPASO 


IF  VERB  = ♦ <?,  DISPLAY  NQJN . THEN  RET  J RN 

TEMP  FOR  MACH  CAOR  TO  BE  SPEC.  (OSPDECVN 
IISES  MPAC  , *1  , +2  I 

IF  BOTH  NOUN  ANO  VERB  NOT  4<lj  OISPLAY 
BOTH  AND  GO  TO  FN  TP  A SO. 


SET  FOR  WAITING  FOR  DATA  CONDITION 
SET  REORF  T FOR  PASS  0. 

RESTORES  MACH  CADP  TO  BE  SPFC  TO  MPAD2 
FCR  USF  IN  INTMCTBS  (IN  ENTPAS3). 


’449  IF  INTERNAL  MATH  r ADP  Tf  3F  SPFCIFIEO,  MPAC+2  WILL  RE  PLACEn  INTC 
P.  245  NCUNCADR  IN  FNT  PASO  (INTMCTBS  ). 


2451  PFF  4 I AST  462  4204 

24515  REF  4 I AST  460  TQ  460: 

A 2452 

2453  RFF  26  LAST  434  4704 

2454  REF  8 LAST  460  4205 

A 2455 

2450  RFF  115  I AST  460  42C6 


SETLOC  NVSUBENC 

24  49*  COUNT*  <$/PIN 

2 4735  1 KI LMONON  CAF  BIT15 

5 5 *0  20  0 TS  MONSA  VF  1 

C 0C02  0 TC  0 


FORCE  BIT  15  OF  M0NSAVE1  TC  1. 

THIS  IS  THE  KILL  MONITOR  BIT. 
TURN  OFF  BIT  14,  TEE  EXTERNAL 
MONITOR  BIT. 


w2459 

3 2460 
R2461 
« 2462 
R2463 


LOADSTAT 


+ 0 I NACT  IVEfWAIT  INC  FOR  CAT  A ) . SET  BY  NVSUB 
+ 1 PROCEED  NO  DATA.  SET  BY  SPECIAL  VFRB 
-1  TERMINATE  SET  BY  SPECIAL  VF RR 
-0  FATA  IN  SET  BY  END  OF  LOAD  ROUTINE 

OR  RESEQUENCE  SC-*  BY  VFRB  32 


R7466 
8 2 467 
R746B 
R2  469 
3 2470 
R2471 
92472 
L 247  3 


L TC  FNDICLE  (FIXEC  FIXED 

RCUTINFS  THAT  REQUEST  LOADS  THRCUGH  NVSUB  SHOULD  USE  ENDIDLE  WhILE 
WAITING  FOR  THE  DATA  TO  BF  LOADED.  FNDIDLF  PUTS  CURRENT  JOB  TC  SLEEP. 
FNOIDLE  CANNCT  PF  CALI. EC  FROM  ERASARLE  OR  F/ F MEMORY, 

SINCE  JOB  SLEFP  AND  JOBWAKF  CAN  HANDLE  CNLY  FIXED  BANKS. 

RECALTST  TESTS  LOADSTAT  AND  WAKES  JOB  UP  TO, 

L+l  FOR  TEPMI  NATE 

L +2  FOR  PROCEED  WITHOUT  DATA 

L *3  FOR  CAT  A IN,  OR  RESEQUENCE 

IT  DOES  NOTHING  IF  LCADSTAT  INCICATES  WAITING  FOR  DATA. 


R2  474 


ENOIDLF  ABORTS  (WITH  CODE  Ol2c6)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP 
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R 2 4 7 5 IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  ENDIDLF  WHEN 
R2',7h  1)  f APRSTOR  NOT=  +0.  THIS  IS  THE  CA  SF  WHERE  THE  CAPACITY  OF  F ND I D LE  IS 
< 2477  EXCEEDED.  ( + -NZ  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 

»?478  2)  OSPI  1ST  NUT  = +0.  THIS  INDICATES  A JOB  IS  ALREADY  ASLEEP  DUE  TO 

R2  A 79  NVSUBUSY  . 


2480  PFF  116  LAST 

2481  REF  1 

2482  REF  1 

2483  RFF  60  LAST 

2 48'+  RFF  4 LAST 

2485  RFF  1 

2486  REF  7 LAST 

24B7  RFF  2 LAST 


46  2 


448 

375 

458 

379 


4207  22  002  0 

42  10  0 4 2 20  0 

4211  C 4224  1 

4212  2 0001  0 

4211  7 50 1 2 0 

4214  6 0004  0 

4215  55' C4 1 1 

4216  0 5133  0 


LX  CH  Q 

TC  I SCADR+O 

TC  ISLIST  + C 

CA  L 

MASK  L0W10 

AD  FBANK 

TS  CADRSTCR 

TC  JOBSLEEP 


ENOI  OLE 


RETURN  ADDRESS  INTO  L. 

ABORT  IF  CADRSTOR  NOT=  +0 

AeORT  I F DSPLI  ST  NCT=  +0 

CONT  SET  DSPLOCK  TO  1 SO  CAN  USE 

FNDIOLE  WITH  NVSUB  INITIATED  MONITOR. 

SAME  STRATEGY  FOR  CADR  AS  MAKECAOR. 


2488  RTF 


I A ST  458 


4217  0 5155  0 


ENDINST  TC 


FNDOFJOB 


PEE  8 I AST  463 

RFF  1 

REF  117  LAST  463 

PEE  2 LAST  463 


4220  11*041  1 

4721  0 4227  1 

4222  C 0CC2  0 
*•223  c 4227  l 


I SCADR  +0 


ZZ  S 
TC 
TC 
TC 


CADRSTOR 
DS  P ABORT 
Q 

DSPABORT 


ABORTS  (CODE  01206)  IF  CADRSTOR  NOT=  +0 . 
RETURNS  IF  CADRSTOR  = +0. 


2493  REF 

2494  RFF 

2495  REF  1 

2496  RFF 

2497 


2 LAST  229 
? LAST  4 6 3 
18  LAST  463 


4224  11 '042  1 

4225  0 4227  1 

4226  0 0002  0 

4227  C 5635  l 

4230  21206  1 


I S LI  ST  + "1  CCS 


DSPABORT  TC 


DS  PL  1ST  ABORTS  (CODE  0 1206)  IF  DSPLIST  ND  T=  + 0. 

DSPABORT  RETURNS  IF  DSPLIST  = *0. 

0 

BAILOUT 

31206 


< '493  JAMTERM  ALLOWS  PROGRAMS  TC  PERFORM  THE  TERMINATE  FUNCTION. 
R2499  IT  DOES  ENDOE JOB . 


2500  RFF 
250! 

25311  PEE 

2501  2 REF 
250  13  RFF 

2502  RFF 

2503  RFF 
7534  RFF 
2505  RFF 


3 LAST  460 

6 LAST  460 
2 I AST  216 
If  LAST  462 
13  LAST  46  1 
58  LAST  461 
33  LAST  458 
2 LAST  4 1 5 


4231  3 420  1 0 

4232  0 0006  1 

4233  Cl  C C 7 1 

4234  3 4242  1 

4235  55*012  1 

4236  4 4360  1 

4237  54  776  0 

4240  C 4635  0 

4241  61501  l 


CAF  PIN  SUP B T 

FXT  END 

WRITE  SUPERBNK 

CAF  34DEC 

TS  REQRET 

C S VD  1 

TS  OSPCOUNT 

TC  POST  JUMP 

CADR  VBTERM 


J A MT  ER  M 


LEAVE  ENTER  S FT  FOR  ENTPASSO. 


2506 


424?  00042  1 340EC 


DEC 


34 


'-••6-7  JAMPPOC  ALLOWS  PROGRAMS  TO  P FRFORM  THE  PROCEED /PROCEED  WITHOUT  DATA 
3 2 8 '8  FUNCTION.  IT  CCFS  E NDCF  JOB. 

2509  REF  4 LAST  463  4243  3 4201  0 JAMPROC  CAF  PI  NSIJPBT 


GAP: 


ASSEMBLE  REVISION  56  OF  AG6  PROGRAM  ZERLINA  BY  ZGROAST  ER 


L PINPALL  GAME  BUTTONS  AND  l I GHT  S 


25151  REF 
251'  2 REF 
25103  PFF 
2511  PFF 
251?  RFF 
2 513  REF 
251 A RFF 


7 LAST  463 
1 

17  I A ST  463 
1 A LAST  A63 
50  LAST  463 
3A  I A ST  A63 
5 LAST  A57 


A2A6 
A?  A7 
4?50 

4251 

4252 
4251 


3 4254  0 
55' 01?  1 

4 4 *60  1 
54  776  0 

0 4635  0 
fc  147  3 0 


EXT  END 

WRITE  SUPERBNK 

OAF  3 3DEC 

TS  REQRFT 

CS  VD1 

ts  nspcnuNT 

TC  POSTJUMP 

CADR  VBPROC 


251  5 


4254  00041  1 33  DEC  DEC  33 


R?532  BLANKSUB  BLANKS  ANY  COMBINATION  OF  Rl,  R?  , R3. 

P2533  CALL  WITH  ELANKING  CODE  IN  A. 

< 2 534  D I T l = 1 BLANKS  Rl»  BIT2  = 1 BLANKS  K2  , RIT3=1  RLANKS  R3  . 

R2535  ANY  COMBINATION  □ F THESE  BITS  IS  ACCEPTED. 


R 2536 


OS  PC  CUN  T IS  PESTOREC  TO  S T AT  F IT  WAS  IN  BEFORE  BLANKSUB  WAS  EXECUTED. 


2541 
2 54  01 


2 540? 

25403 

25404 
A 254  1 

2 541  1 
25412 

2541  3 

2542 

2544 

2545 
25451 
2 5452 

2546 

25461 

25462 

25463 

2547 


PFF 

RFF 

RFF 

REF 


REF 

REF 

RFF 

REF 


PEF 


RFF 

REF 

RFF 

RFF 


RFF 

REF 

RFF 


REF 

RFF 


6 LAST  461 

6 LAST  46  1 
44  LAST  460 

9 I AST  462 

7 LAST  460 
1 4 B LAST  461 
UR  LAST  463 
120  LAST  464 

7 I AST  464 


121  LAST  464 

122  LAST  46*» 
1 

13  LAST  460 

R LAST  464 
46  LAST  420 
5 LAST  463 

9 LAST  464 


4256  54  123  C 

4257  3 4736  1 

426C  7 1 C20  0 

4261  6 1011  0 

4262  10  000  0 

4263  0 0C02  0 

4264  24  002  0 

4265  lO  123  0 

4266  1 4270  1 

4267  C 0CC2  0 

4270  22  002  0 

4271  3 4302  1 

4272  56  CC6  1 

4273  0 OF 06  1 

4274  C4  0 07  1 

4275  52  131  0 

4276  3 4201  0 

4277  C 0CC6  1 

4 300  f.  1 OC  7 l 
4301  0 3545  0 


BLANKSUB  MASK 


SEVEN 
NVTEMP 
BIT  14 
MONS AVF1 
3 SPLOC  K 
A 
0 
0 


CCS  NVTEMP 

TCF  +2 

TC  0 

LXCH  0 

CAF  PLNKBBNK 

XCH  BBANK 

EXTEND 

RDR  SUPERBNK 

D XC  H 3 UF 

CAF  P INSUPBT 

EXTEND 

WRITE  SUPERBNK 

TC  BLNKSUB1 


2548  REF  6f  I AST  464 
25431  RFF  2 LAST  464 

2549 


C776 

4302  6010  1 

4303 


E BA  NK=  DSPCOUNT 
BLNKBBNK  BBCON  BLNKSUB1 
ENDBLFF  EQUALS 


2550 
25505 

2551 
2551  1 


PfF 

RFF 

REF 

REF 


1 40, 3545 

8 LAST  45S  TO  460: 

61  LAST  464  40,1545 
47  LAST  464  40,3546 


SETLO:  ENDRELDS 

42  822*  COUNT*  iS/PIN 

3 C 776  1 RLNKSUB1  CA  DSPCOUNT 

54  132  0 TS  1UF  +2 


9:12  OCT.  21,  19  70  ZERL  AID  .001  PAGE  464 


USER'S  PAGE  NC.  70  ED  S4 


LEAVE  ENTER  SET  FOR  ENTPASSO. 


STCRE  BLANKING  CODE  IN  NVTEMP. 
EXTERNAL  MONITOR  8 IT 


DSP  SYST  BLOCKEC.  RFT  TO  1+  CALL  ING  LOC 

OSP  SYST  A VAI  LABLE 

SET  RETURN  FOP  2+  CALLING  LOC 


NOTHING  TO  eL  ANK  . RFT  TO  2+  CALLING  LOC 
SET  RETURN  FOR  2 + CALLING  LOC 


SAV  E OLD  SUPFRB  ITS. 


SAVE  OLD  DSPCOUNT  FOR  LATER  RESTORATION 


GAP:  ASSFMPIE  RFVISION  56  Of  AGC  PROGRAM  ZERL  IMA  BY  ZOROASTER 


L PINbALL  GAPE  BUTTONS  AND  LIGHTS 


255? 

2553 

2554 

2555 
2555 


2557 

255ft 

2559 

2560 

2561 
256? 
2 563 

2564 

2565 


2566 


REF 

REF 

Pf-F 

RFF 

RFF 

RFF 

REF 

RFF 

REF 

RFF 

REF 

REF 

RFF 

RFF 

RFF 

RFF 


23  LAST  655 
1 

12  LAST  668 

4 LAST  62  7 
25  I AST  639 

2 LAST  665 
* LAST  650 

5 LAST  66  5 
22  LAST  658 

3 LAST  665 

5 LAST  62  8 

6 LAST  665 
6ft  LAST  666 
t?  LAST  666 
60  LAST  665 

3 LAST  660 


60,  3667 
6d,3550 

60.3551 

60. 3552 
60  ,3  553 
60,3556 
60, 3555 
60  ,3556 
60,  355  7 
- ■ 

6 0 ,3561 
60, 3562 
60  ,3563 
60,3566 
60, 3565 
60  , 3 566 


3 6753  1 
0 3567  C 
3 6317  0 
0.  2f26  0 
3 6752  0 
C 3567  0 
3 6320  1 
0 2526  0 
3 6751  0 
0 3567  0 
3 6321  0 
0 2526  0 
3 0132  l 
56  776  C 
52  131  0 
0 5177  0 


CAF  B I T 1 

TC  TESTBIT 

CAF  R1D1 

TC  5 BLANK  -1 

CAF  ft  1 T 2 

TC  TESTBIT 

CAF  3 2D  l 

TC  5RLANK  -1 

CAF  BIT3 

TC  TESTRIT 

CAF  R3C1 

TC  5BLANK  -1 

CA  BUF  +2 

TS  OS  PC  CUNT 

DXCH  3 UF 

TC  SUPDXCHZ  +1 


2567 

25*R 

2569 

2571 

2571 


PEF 

REF 

RFF 

RFF 


8 

1 6°* 
123 
126 


L AST 
L AST 
LAST 
L AST 


666 

666 

666 

<*65 


60,  3567 

60.3570 

60.3571 

60. 3572 
60  ,3573 


7 0123 
10  000 
f 0002 
50  002 
0 0002 


0 

0 

0 

0 

0 


TE  STB  T T 


MASK 

CCS 

TC 

I NOE) 

TC 


257? 


60,3576 


ENCBSUB1  EQUALS 


R 2 5 7 2 0 5 DSRMM  HOES  NET  CIS  PLAY  MUOREC  DIRECTLY.  IT  PUTS  IN  EXEC  REQUEST  WITH 
T 257206  PRIM  30CCC  FOP  OSPMMJB  AND  RFTLRNS  TO  CALLER. 


R257207  IF  MOCREG  CONTAINS  -0,  OSPMMJB  BLANKS  THE  MODE  LIGHTS. 


R 257?  CS  OSPMM  ML  S T BE  IN  BANK  27  CP  LEW  ER,  SO  IT  CAN  BE  CALLED  VIA  BANKCALL  . 


257?  1 

257715  RFF 
257217 


0 7,  2661 
16, 2000 
C 6 ,2  63  0 


BANK  7 

SFTLDC  PINRALL6 

BANK 


257218  REF  1 

25722  PFF  125  LAST 

25723  RFF  230  LAST 
25726 

25725  REF  3 LAST 

25726  PEF  6 LAST 

25727  REF  6-3  LAST 

25728  RFF  1 

25728  RFF  l 
25726* 

25729  RFF  231  LAST 


665 
66  2 


665 


06  ,2630 

v 6, 26 2 1 

0 6,  26  3 2 
)6  ,2633 
G 6 , 26  36 
0776 
06*2635 
C 6,  2636 
•>6  ,2637 
06,2  66  0 


56  002  0 OSPMM 
?6  1 56  0 
0 GCC6  C 
3 6355  0 
C 5C72  1 


03576  1 
6C1C1  1 
0 0003  1 
C 0156  1 


ENDSPMM 


COUNT*  TS/P1N 
XCF  0 

TS  MP  AC 

INHINT 

CAF  CHRPPIO 
TC  NOVAC 

FBANK=  DSPCOUNT 
2C  ADR  OSPMMJB 

R El  INT 
TC  MP  AC 


- 2573 


CSPMM 


PLACE  MAJOR  “ODE  C OOF  INTO  MO  OR  FG 


9:12  CCT.  21,1970  ZERLAIC  .001  PAGE  665 
USER  * S PAGE  NO.  7]  EO  S4 

TEST  B IT  1 . SEE  IF  Rl  TO  BE  BLANKED. 

TEST  BIT  2.  SEE  IF  R2  TO  RE  BLANKED. 

TEST  BIT3.  SEE  IF  R3  TO  BE  BLANKED. 

RESTORE  DSPCOUNT  TC  STATE  IT  HAD 
BEFORE  BL  ANKSUB. 

CALL  L+2  DIRECTLY. 

DTCB  WITH  SUPERBIT  SWITCHING 

NVTEMP  CONTAINS  BLANK  ING  CODE  • 

IF  CJRRENT  BIT  = 1,  RETURN  TD  L+l. 

IF  CURRENT  BIT  =0.  RETURN  TO  L +3  . 


GAP: 


ASSEMBLE  REVISION  5fc  OF  AGC  PROGR, 


ZEPLINA  BY  ZOROASTER 


9:12  CCT.  21,1970 


ZERLAIC  .00  1 PAGE  466 


PINBALL  GAME  RUTTCKS  ANO  LlCFTS 


75735  PEF 


25716 
2 574 
2578 
7576 
2570 

2581 
2 586  1 
7581'? 
25803 

2581 

2582 

2583 


PEF 

REF 

REF 

RFF 

PEF 

»FF 

REF 

RFF 

REF 

RFF 

RFF 


9 LAST  464  TO  465: 

1 40,3574 

64  LAST  465  40,  3575 

1 40  ,3576 

4C  ,3  577 
40, 3600 
40  ,3601 
4C, 36C2 
40,  360  3 
40,3604 
4 C,  3 6C5 
40  ,3606 


270 

460 

451 


LAST 
LAST 
L AST 
LAST 


23  845  * 

3 436?  1 
56  776  1 
54  140  0 

' 

6 4753  1 
C 3337  0 
C 36C4  0 
0 2570  1 
56  140  1 
c 4 776  0 
0 5155  0 


SETLOC  EN0BSUB1 


COUNT* 

CAF 

XCH 


J.F/PI  N 
MO  1 

0 S PC  CUN  T 
DSPMMTFM 

MODREG 

ONE 

DSPCECVN 
+ 2 

2BLANK 
OS  PMMT EM 
OSPCCLNT 
ENOOFJOB 


USER  ' S PAGE  NO. 


GETS  HERE  TH*  u DSPMM 
SAVE  OSPCOUNT 


IF  MODREG  IS  » OR  +0,  01  SPLAY 
IF  MODREG  IS  -NZ,  DO  NOTHING 
IF  MODREG  IS  -0»  BLANK  MM 
RESTFlRE  OSPCOUNT 


*2584  RECALTST  IS  E N TE  3 E 0 DIRECTLY  AFTER  DATA  IS  LOADED  (CP  RESEQUENCE  V FRR  IS 

P.  2 5 h 5 EXECUTED),  TFRMINATF  VERB  IS  FXFCUTED,  OP  PROCEED  WITHOUT  nA  TA  VFRB  IS 

* 2586  EXECUTED.  IT  WAKFS  UP  JOR  THAT  CIC  TC  FNCICLE. 


R 2 5 8 / IF  CACPSTOR  NOT=  +0,  IT  PUTS  *C  INTO  OSPLOC.K,  ANO  TURNS  OFF  KEY  RLS6 
9 2 58  8 LIGHT  IF  OSPIIST  IS  EMPTY  (LFAVFS  KEY  RI.SE  LIGHT  ALONE  IF  NOT  EMPTY). 


? 5flQ  RFF  9 

2590  REF  1 

2591  REF  58 

2592  REF  IOC 

2593  REF  10 

2594 

2595  RFF  3 

2596  REF  4 

2597  REF  1 
2590  PFF  59 
2599  REF  1 
2630  REF  31 

2601  RFF  2 

2602  REF  3 
2633  REF  3 

2604  RFF  4 
26041  RFF  15 
26*42  PEF  6 1 
26043  RFF  22 
26  34  4 RFF  4 
26045  RFF  232 

2605 

2636  RFF  9 
2607  RFF  60 


LAST  463 

LAST  466 
LAST  462 
LAST  466 

L AST  379 
LAST  462 

LAST  466 

LAST  453 
I AST  377 
LAST  377 
L AST  466 
LAST  466 
LAST  461 
I AST  46  3 
LAST  461 
LAST  466 
LAST  465 

LAST  458 
LAST  466 


i . 

40,  36  10 
40  ,3611 
40, 3612 
40, 1613 
40,3614 
4 C , 3 6 1 5 
40  ,3616 
4C,36 17 
40,  3620 
40  ,362  l 
40, 3622 
40,  3623 

40.3624 

40. 3625 
40  ,3626 
40 ,3627 
• ■ . 36  3 

40 .3631 

40. 3632 

40. 3633 

40.3634 
40, 3625 
40  ,3636 


C 5155  0 
3 4755  l 

5 7*041  0 
C 0004  0 
C 5137  1 
1 1 *013  0 
0 3641  1 
0 5155  0 
0 3637  0 
3 4752  0 
50  C64  0 

6 0164  1 
5 C 064  0 
54  164  0 
3 1001  1 
54  OC 1 1 
3 1000  0 
5 C C 64  0 
52  155  1 
0 0003  1 
C 4457  0 
0 5155  0 


RECALTST  CCS 
TC 
TC 

RECAL1  CAF 
XCH 
INHINT 
TC 
CCS 
TC 
TC 
TC 
CAF 

RECAL2  INOEX 
AD 

I NDE  X 

TS 

CA 

TS 

CA 

I NDE  X 
DXCH 
RELINT 
RECAL3  TC 
TC 


CADPSTOR 

RECAL1 

ENDOFJOR 

ZERO 

C ADRSTOR 

JOBWAKE 

LOADSTAT 

DOPROC 

ENDOF  JOB 

DOTERM 

TWO 

LOCC  TR 
LOC 
LCCCTR 
LOC 

NOUNREG 

L 

VERBR  EG 

LOCCTR 

MPAC 

RE  LDSP 

en  nn  fjob 


NORMAL  EXIT  IF  KEYBOARD  INITIATED 


+ PROCEED  ri  ITHOUT  DATA 
PATHALOGICAL  CASE  EXIT 
TERMINATE 

-0  DATA  IN  OR  RESEQUENCE 
LOC  IS  + FOR  BASIC  JOBS 


SAVE  VERB  IN  MPAC,  NOUN  IN  MPAC+1  AT 
TIME  OF  RFSPONSF  TC  END  IDLE  FOR 
POSSIBLE  LATE*  TESTING  BY  JOB  THAT  HAS 
eEEN  W AK  ED  UP . 


2608  REF  Id  I AST  466 

2609  PFF  1 


40,3637  3 4755  l DOTERM  CAF 
40,  3640  0 7623  0 TC 


ZERO 

RECAL2 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  Z ERL  AID  .001  PAGE  467 


L PINBALL  GAME  RUT TC NS  AND  LIGHTS 


REF  56  l AST  466  40,3641  ? 4753  1 DOPROC  CAF 

REF  2 LAST  456  40,3642  C 3623  0 TC 


ONE 

RFCAL2 


USER'S  PAGE  NO.  73  EO  S4 


GAP : ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZEPLINA  BY  ZOROASTER 


9:12  OCT.  21.15  70  ZERLAIO  .001 


PAGE 


566 


5 2612 


PINeALL  CAKE  BUTTONS 

MI  SC E I LANFGLS  SFPVICF 


AND  LIGHTS 

ROUTINES  IN  FIXEC/FIXFC 


USER*  S PAGF  NC.  76  EO  S6 


2615  REF 


SETICC  ENDBLFF 


26135  PFF  6 LAST 
R 26 1 6 SFTNCAPR 


66?  TC  666  : 63  111*  COUNT  * St/P  IN 

F CADR  AP.PIVES  IN  S.  IT  IS  STORED  IN  NOUNCACR.  FRANK  HITS 


Ri  6 1 5 


APE  SET.  E ADPES  IS  DERIVED  AND  PUT  INTO  NOUNADD. 


2616 
2617 
2 6 1 R 
2619 
2623 
2621 


PFF  n LAST  668  6303  55'016  0 S ETNCACR  TS 


RFF  13  LAST  393  63C6  56  CC3  C TS 

RFF  2 LAST  197  6305  7 6357  D MASK 

REF  1 6306  6 5007  0 AD 

REF  27  1 AST  66  2 6 30  7 561650  TS 

REF  126  LAST  665  6313  C 30C2  0 TC 


NOUNCACR 
FRANK 
LOWS 
OCT  1600 
NOUNADD 

a 


STORE  ECADR 
SET  EBANK  BITS 


PUT  E ADRES  1 NT  C NOUNADO 


w ’5?  ’ SFTNADP  GN-TS  F CADR  FROM  NOLNCADP,  SETS  EBANK  PITS,  DERIVES 

R2S23  F ACRFS  AND  PUTS  IT  INTO  NOUNADD. 


NOUNCACR 
SETNCADP  +1 


R 2626  SETEBANK  E CADR  ARRIVES  IN  A.  EBANK  BITS  ARE  SET.  E ADRES  IS 

R 2627  I\  AND  LEFT  F N A. 


262B 

2629 

2639 

263! 


RFF  1 6 
RFF  3 
RFF  2 
RFF  127 


A&8 
66  B 
66B 

668 


6 31  3 56  0C3  0 SETEBANK  TS  EBANK  SET  EBANK  BITS 

6316  7 6357  0 MASK  I OWH 

631  5 6 5CC7  0 AD  OCTUOO  E ACRES  LEFT  IN  A 

6316  0 C 00 2 0 TC  0 


26  32 
2633 
2636 


6317  C 0 C 1 6 0 R1  D1 
6 3 20  OOOll  1 R 2d  1 
6321  00006  0 R3C1 


THFSF  3 CONSTANTS  FORM  A PACKED  TABLE. 
DDNT  SEPAPATF. 


2635  RFF  3 

2636  PEF  6 

2637  REF  5 

2638  RFF  6 

2639  RFF  7 

2660  PEF  P 

2661  REF  12b 


LAST 
LAST 
LA  ST 
L AST 
I AST 
LA  ST 
L AST 


239 
66  8 
660 
668 
66  0 
668 
hi-  h 


6322  56  C20  1 

8323  6 0020  1 

6326  6 0020  1 

6225  6 0C20  1 

6326  6 0020  1 

6327  56  020  0 

6 330  0 OCC  2 0 


RIGHT5 


TS  CYR 

CS  : YR 

CS  CYR 

C S CYR 

CS  T YR 

XCH  CYR 

TC  Q 


2662 

2663 

2666 

2665 

2666 


REF  12  LAST  651 
RFF  13  LAST  668 
RFF  1 6 LAST  668 
PEF  15  LAST  668 
REF  1 6 LAST  668 


6331  56  022  0 

6332  6 CC22  0 

6333  6 0022  0 

6336  6 0022  0 

6335  6 CC22  0 


LEFT5 


TS  CY  L 

CS  CYL 

CS  CYL 

CS  CYL 

CS  CYL 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L PINBAIL  G4MF  PUTTCNS  ANO  LIOFTS 


2667  RFF  17  LAST  668 

2668  REF  129  I AST  668 


6386  56  022  1 

6337  0 0002  0 


XCH  CYL 

TC  0 


2669 
26  50 

2651 

2652 

2653 
2656 


RFF  130  LAST  669 


6360  6 0000  1 

6361  6 0000  1 

6 362  6 OCOO  1 

6363  6 0000  1 

6366  ( CCCO  1 

6 365  0 00C2  0 


SL  EFT  5 


DOURL  E 
DOUBl  E 
00  U3  LE 
DOUBL  E 
DOUBLE 
TC 


Q 


2655 

2656 

2657 


6366  00037  0 L0W5 

6367  01760  0 MI D 5 

6350  76000  0 H F 5 


OCT 
OC  T 
OCT 


1 760 
760G0 


2658 

2659 

2660 
2661 


REF 

RFF 

REF 

REF 


7 LAST  665 
17  LAST  6 6 - 
13  LAST  666 
16  LAST  389 


6351  C 5572  1 
' <52  C »/l6  0 
6353  C 5272  0 
6356  C 5105  0 


TCNOVAC  TC  NOVAC 

TCWAIT  TC  WAITLIST 

TCTSKGVR  TC  TASKOVER 

TCFINDVC  TC  FINDVAC 


266? 


6355  300C0  1 CHRPRIO  OCT  30000 


2663 

2666  PEF 
2665 


LAST  637 


6356  C 3 777  0 LCW11 

6356  B 1 2-  1 

6357  00.377  I LCWP 


OCT  3777 
EO  UAL  S L0W11 
OCT  377 


2 66  7 
2668 
?66Q 


6 3 6C  00023  0 VD  1 

6361  00021  l N'D  1 

6362  00025  0 MD1 


OC  T 
OCT 
OCT 


23 

21 

25 


2670 


6363  00C12 


BINCDN  DEC 


10 


2671  RFF  ?n  LAST  610 

2672 

2673  RFF  12  LAST  658 

2676  RTF  121  LAST  669 


6366  3 6765  0 

6365  C 00C6  1 
6 366  05  Cll  1 

6367  C 000?  0 


FALTON 


CA 

E X TE  N'D 

WOR 

TC 


B IT  7 

DSALMOUT 

Q 


2675  REF  ?1  LAST  669 

2676 

2677  REF  13  LAST  669 

2678  REF  132  L AST  669 


6 37  0 i,  6765  1 FALTOF 

6371  0 0006  1 

6372  03  011  1 

6373  C 0002  0 


CS  BI  T7 

EXTEND 

WAND  OSALMOUT 
TC  0 


2679  REF  22  LAST  656 

2583 

2681  RFF  16  LAST  669 

2682  RFF  133  LAST  669 


6376  3 6767  1 

6375  C CCC6  L 
6 376  0 5 Cll  1 

6377  C 0002  0 


RELOSPON  CAF 

EXTEND 

WOR 

TC 


B IT  5 

DSALMOUT 

q 


9:12  OCT.  2 1 » 1970  Z ERL  A I D 


PAGE 


669 


.00  1 


USER*  S PAGE  NC.  75 


ED  S6 


THFSE  3 CONSTANTS  FORM  A PACKED  TABLE. 
DCNT  SEPARATE. 

MUST  STAY  HERE 


E XFC  PRI  ORI  TY  CF  CHARI  N 


THESE  3 CONSTANTS  FORM  A PACKEO  TABLE. 
DONT  SEPARATE. 

TURN  ON  OPFRATOR  ERROR  LIGHT 
BI  T 7 OF  CHANNFL  1 1 

TURN  OFF  OPFPATCR  ERROR  LIGHT 
BIT  7 OF  CHANNEL  11 

TURN  ON  KEY  3 E L EA  SE  LIGHT 
BI T 5 OF  CHANNF L 1 l 


;af>:  A SSf  MB  LF  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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9:  12  n:T.  21.1M7C  ZERLAIO  .001  PAGE  <.70 
JSER'S  PAGE  NO.  76  EO  S6 


26  97 

2686  PFF  16  LAST  971 

2685  REF  5 LAST  321 

2686  REF  136  I A ST  6*9 


6600  0 0006  l 

6601  3 1025  0 

660  2 52  0 1 6 0 

6603  0 0002  0 


LOOSAMPT 


EXTEND 

DC  A r IME2 

OXCH  SAMP  TIME 
TC  0 


2687 

2688 
2689 
269  7 

2691 

2692 

2693 
2696 
2695 


RFF  233 
PFF  236 
REF  235 
RFF  236 

PFF  135 
RFF  7 
REF  136 


LAST  666 
LAST  67C 
L AST  670 
LAST  670 

I AST  673 
LAST  661 
l AST  670 


6 6 C 6 
660  5 
6606 
6 60  7 
6610 
6611 
6612 
6613 
66  16 


2C  156  1 
6 C 1 56  1 
26  156  0 
56  007  1 

0 000?  0 
56  162  0 
C 00C2  0 


TPSL1 


EXTEND  SHIFTS  MPAC,  *1,  *2  LEFT  1 

OCA  MPAC  +1  LEAVES  OVFINP  SET  TO  +/-  1 FOR  OF/JF 

DAS  MPAC  +1 

AD  MPAC 

AOS  MPAC 

TS  7 TS  A ODES  NOT  CHAN  GF  A ON  OF/UF. 

TC  Q NG  NET  OF/UF 

TS  MPAC +6  MPAC  + 6 SET  TO  + /- 1 FOR  OF/UF 

TC  Q 


•’696  IF  MPAC,  +1  APF  EACH  4NZ  OR  40  AND  C(A)=-r,  S HORTMP  WRONGLY  GIVES  +C. 

1 2697  IF  MPAC,  4 1 ARF  FACH  -N7  OR  -0  AND  C(A)=*~,  SHCRTMP  WRONGLY  GIVFS  +')  . 

R269R  PRSHRTMP  FIXES  FIRST  CASE  ONLY,  8Y  MERELY  TESTING  CIA)  AND  IF  IT  = -0 

R 2 699  SETTING  RESULT  TO  -0. 

R 2701'  (00  NOT  IJSF  PR  SHR  IMP  UNLESS  MPAC,  H ARE  EACH  +NZ  OR  +0,  AS  THEY  APE 

R2701  kHEN  THEY  CONTAIN  TH  E SF  CONSTANTS.) 


2702 
273  3 
2 706 
2 70  5 
2776 
2 707 
2 70  A 

2709 

2710 

2711 


REF  2 LAST  98 
RFF  150  LAST  665 
REF  3 LAST  670 
REF  7 LAST  669 

REF  10?  LAST  666 
REF  2 37  LAST  670 
RFF  238  LAST  670 
REF  239  LAST  670 
RFF  137  L AST  670 


6615  56  135  l 

6616  1C  CCO  0 

6617  3 0135  C 

6620  1 7322  1 

6621  1 66 17  0 

6622  6 6755  0 

6623  56  156  C 

6626  56  155  1 

6625  56  156  1 

6626  C 0002  0 


PRSHRTMP 


TS 

CCS 

C A 

TC.F 

TC  F 

CS 

TS 

TS 

TS 

TC 


MPT  EMP 
A 

M P T EMP  CIA)  +,  DO  REGULAR  SHCRTMP 

S HORTMP  +1  CIA)  +7 , DO  REGULAR  SHORTMP 

-2  CIA)  DO  REGULAR  SHORTMP 

ZERO  CIA)  -o,  FORCE  RESULT  TO  -0  AND  RETURN. 

MPAC 

MPAC  + 1 

MPAC  -*2 

0 


27]  3 
2 716 
2715 


REF  35  LAST  337 

REF  15  LAST  669 
REF  138  LAST  670 


6627  3 6766  0 

6630  C 0006  l 

6631  05011  1 

6632  C 0002  3 


FL  AS  HON 


CAF 

EXTENO 

WOR 

TC 


B ITfc 

D SALMOLT 
0 


TURN  ON  V/N  F LASH 
BIT  6 OF  CHANNEL  11 


2715 
2 717 
27  IR 
2719 


REF  36  LAST  670 

RFF  16  LAST  670 
RFF  13°  LAST  670 


6633  6 6766  1 

<•636  0 0006  1 

6635  03  011  1 

66-36  0 0002  0 


FLASH  OFF 


CS 

EXTEND 

WANO 

TC 


R I T6 

DS  ALMOUT 
0 


TURN  OFF  V/N  FLASH 
BIT  6 OF  CHANNEL  1 1 
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P 27  20. 

INTERNAL  USE  OF  KEYBOARD  AND  DISPLAY  PROGRAM 

I<272 1 
i 2722 
R2723 
R2  72  A 

USER  MUST  SCHETULE  CALLS  TO  NVSUB  SO  THAT  THERE  IS  NO  CONFLICT  OF  USE  OR 

CONFUSION  TO  OPFRATOP.  THE  OLP  CPARLOCK  ( I NT  ERN  AL/  I NT  ERNA  L INTERLOCK) 

HAS  BEEN  REMOVFD  AND  THE  INTERNAL  LSER  NO  LONGER  HAS  THE  PRCTFCTICN  THIS 

CFFERFD. 

R 2725 
R272S 

R 272  7 
R 2728 
R2  72  9 

R 273^ 
R2731 

THFPF  ARE  TWO  RAYS  A JOB  CAN  BE  PUT  TC  SLEEP  BY  THE  KEY  BOARC  + DISPLAY 

PROGRAM.  1)  BY  END  IDLE 

2)  BY  NVSUBUSY 

THE  BASIC  CONVENTION  IS  THAT  CNLY  CNF  JOB  MLL  BE  PERMITTEC  ASLEEP  VIA 

THE  KEYBOARD  + DISPLAY  PROGRAM  AT  A TIME.  IF  A JOB  ATTEMPTS  TO  GO  TO 

SLEEP  RY  MFANS  CF  (1)  OR  (2)  A N C THERE  IS  ALREADY  A JOB  ASLEEP  THAT  WAS 

PUT  TO  SLEEP  BY  (1)  OR  (2),  THEN  AN  ABORT  IS  CAUSED. 

R 27  32 

R 2733 
R2734 

R 2735 
R 2736 

THE  CAIIING  SEQUENCE  FOR  NVSUE  IS 
f.AF  V/N 

L TC  NVSUB 

L+l  RETURN  HERE  IF  CPFRATCR  HAS  I NT  ERV  EN  EC 

1. +2  RETURN  HERE  AFTER  EXECLTICN 

R 2 ?3  7 

R 2738 
R2739 

R2  74D 

R 2741 

A RTUTTNE  CALLED  NVSUPUSY  IS  PROVIDED  (USE  IS  OPTIONAL)  TO  PUT 

YOUR  JOB  TO  SLEEP  LNTIL  THE  CPERATCR  RELEASES  THE  KEYBOARD  + DISPLAY 

SYS  T FM  • NVSURUSY  ALSO  TURNS  ON  THE  KEY  RELEASE  LIGHT. 

NVSLBLSY  CANNOT  PE  CALLED  FRCM  ERASABLE  OR  F/ F MEMORY, 

SINCE  JOB  SLFF  P AND  JOBWAKF  CAN  HANDLE  ONLY  FIXED  BANKS. 

R2  742 
l 2743 
R2744 

R 2 745 

THE  CALL  ING  S EQUENCF  IS 

CAF  WAKFFCADR 

TC  NVSUBUSY 

4 274ft 
K2747 

R 2 748 
K2740 

NVSUPUSY  IS  INTENDED  FOR  USE  WHEN  AN  INTERNAL  PROGRAM  FINOS  THE  OPERATOR 

IS  MS  IK  ThF  K PYBOARD  ♦ DISPLAY  PROGRAM  (BY  'll  S OWN  INI  TIATION).  I T I S 

NOT  INTFNPFD  F CR  USE  WHEN  CNE  INTERNAL  PROGRAM  FINDS  ANOTHER  INTERNAI 

PROGRAM  LSINO  THF  KEYBOARD  + DISPLAY  PROGRAM. 

R 2 7 5 u 

R 2781 

R 2 7 5 ? 

R 2753 
R275^ 
R2  755 

NVSUBUSY  ABORTS  (WITH  CODE  ^12061  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO 

SLFFP  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MAOfc  TO  GO  TO  NVSUBUSY 

WHEN 

1)  DSPLTST  NC  T = +0.  THIS  IS  TFE  CASF  WHERE  THE  CAPACITY  3 F THE  DSPLIST 

IS  EXCEEOED. 

2)  CACPSTOR  NOT  = +0.  THIS  INDICATES  THAT  A JOB  IS  ALREADY  USING 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  ZOROASTER 
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R7756  ENDIDLE.  ( +-N7  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 


2760 

2761 
2 762 


PEF  1 
PFF  14C 


REF 

PFF 

PFF 


C 444 
6 000? 

6 0004 
r 4636  i 
10641 
020C3 


0 PRENVBSY  C S 


NVSU  BUSY  Tf 

CADR 

2K+3  CJC  T 


FRANK 

POSTJUMP 

NVSURSYI 

2003 


9:12  CCT.  21,1970  Z ERL  A I D .00  1 

USER'S  PAGE  NC.  7R  FC  S4 


SPECIAL  ENTRANCE  FCR  ROUTINES  I N FIXED 
BANKS  3NIY  PE  SIRING  THE  FCADR  OF  ( LCC 
FROM  WHICH  THE  Tf  PRENVRSY  WAS  DONE)  -2 
TO  BF  ENTERED. 


SO  IT  WILL  PUT  CALLER  TO  SLEEP 


2763 
27635 

2764 

2769 

2770 

2771 

2772 

2773 

2774 


PEF 
RFF 
KEF 
PFF 
P CF 
PFF 
REF 
REF 


1 A ST 
I AST 
l AST 


465  TO 
466 
463 
46  3 
447 
47? 
463 


04*2641 
466  : 
04,  264  1 
04  ,264? 
04,2643 
0 4,  26  44 
04,2645 
C4,  2646 


54  CCl  1 
0 4220  0 
C 4224  l 
0 4374  0 

3 0001  P 
5 5' 042  1 


1 SCADR+C 

IS  LIST  40 
RE  LD  SPON 


1 LAST  463  04,2647  0 5133  0 EN0NV8SY  TC 


3 7775  NVSHWAIT  TS  A SPFCIAL  ENTRANCE  FCR  ROUTINES  IN  ETXFD  BANKS  ONLY.  IE 
R 2 7 7 6 SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  AND  RETURNS  TO  (+1  (L  = LOC  FROM 

R 2 77  7 WHICH  THE  TC  NVSRWAIT  WAS  CCNE).  IF  SYSTEM  IS  BUSY,  IT  PUTS  CALLING  JOB 

R?  778  TO  SLEEP  WITH  L- 1 GOING  INTO  LIST  FOR  EVENTUAL  WAKING  UP  WHEN  SYSTEM 
R 2779  IS  NCT  BUSY. 


2780 
27805 

2781 
270? 
2783 
27831 
27H3? 
2 7P  3 3 
278  3 4 
2734 

A 2705 

2786 

2787 


6 LAST  468  TO 


1C 


REF 
REF 
RFF 
REF 
RFF  1 5 1 
RFF  1 
RFF  1 


465 

464 

464 

464 

470 


LAST  472 


444  5 
472: 

4445 

4446 

4447 

4450 

4451 

4452 

4453 

4454 


58  209* 

22  007  0 
54  123  0 
3 4736  1 
7 1020  0 
6 1C1  1 0 
10  OCO  0 
1 4455  0 
1 4164  1 


NVSRWAIT  LXCH 


CCS 

TCF 

TCF 


24  002  0 NVS8WT1 


NVTEMP 
3 1 T14 
MONSAVE  1 
DS  PLCCK 


ZERO  NV  MON  OPT  OPTIONS 


EXTERNAL  MONITOR  BIT 


BUSY 

FREE.  NVSUB  WILL  SAVE  L + 1 FOR  RETURN 
AFTER  E XECUTI  ON. 

L+P.  PRENVBSY  WILL  PUT  L- 1 INTO  LIST  AND 
GO  TC  SLEEP. 


1 2788 
R2789 
R 2790 
279  1 
2792 
27921 


RLLOSP  IS  USED  BY  VBPRCC,  VBTERN,  VBRGEXEC,  VBRQWAIT,  VBRELDSP, 
VFRD  DISPATCHER,  VPRESEQ,  RFCALTST. 

PELDSP1  IS  US  EC  RY  MENU  OR  SET  UP,  VBRELDSP. 


RFF  14? 
REF  1 
REF  46 


t AST  472 


4457 

4460 

4461 


56  00? 
c 4 1 44 
4 4736 


RELRET 
B IT14 


S FT  DSPLOCK  TO  +0,  TURN  RELDSP  LIGHT 
OFF  , S E ARCH  DS  PL  1ST 


iAp:  ASSEMBLE  REVISION  Bo  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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27922 

27923 
2 79?** 
2 793 
2794 

? 7 9 5 
27^6 
2797 

2799 

2800 
2801 
2802 
2803 
2904 
2805 
280  7 
2838 
2809 

A2810 
A2fl1 1 
28  12 
29  13 

2814 

2815 

2816 
2817 


REF  11 
REF  12 
RFF  4 


REF  1 
RFF  103 
RFF  5 
REF  4 

REF  23 

REF  17 
RFF  104 
RFF  9 
REF  2 
RFF  H3 
RFF  3 


RFF  6 

REF  2 
REF  105 
REF  If 
RFF  4 


LAST  472 
LAST  473 
LAST  472 


LAST  470 
LAST  473 
LAST  466 

LAST  469 


LAST  470 
L AST  473 
LAST  472 
LAST  472 
LAST  472 
LAST  473 


LAST  473 

LAST  473 
I A ST  473 
LAST  473 
LAST  473 


4462  0 0004  0 

4463  7 LO 20  0 

4464  5 5 ' 02  C C 

4465  1 1*042  l 

4466  0 4470  0 

4467  C 4473  0 

4470  3 4755  l 

4471  57*04?  0 

4472  0 5137  1 

4473  0 0003  1 

4474  * 4747  0 

4475  C C006  1 

4476  C3  011  1 

4477  3 4755  1 

4500  5 5 '0  1 l 1 

45C1  0 0144  0 

4502  56  CO 2 0 

4503  54  144  1 


PEL0SP2 


RFLOSP  1 


INHINT 

MASK  M0NSAVE1 
TS  M0NSAVE1 

CCS  DSPLIST 

TC  +2 

TC  RELDSP2 

CAF  Z FRO 

XCH  DSPLIST 

TC  JOB  WAKE 

RFL  INT 
CS  PITS 

FXTEND 

WANO  DSALMOUT 
CAF  ZERO 

TS  OSPLOCK 

TC  RFLRET 

XCH  Q 

TS  RFLRET 


4504  1 1 ' 042  1 

4505  C 45C7  1 

4506  0 4473  0 

4507  3 4755  1 

45  1()  5 5 '0  1 1 1 

4511  0 0144  0 


CCS  DSPLIST 

TC  + 2 

TC  REL0SP2 

CAF  Z FRO 

TS  OSPLOCK 

TC  RELRET 


2818 


4512 


FNDPINRF  EQUALS 


9:12  O;  T.  21  *1970  ZER  LAI  D .001  PAGE 


473 


USER  'S  PAGE  NO.  79  EC  S4 


TURN  OFF  FXTF.RNAL  MONITOR  BIT 


L 1ST  EMPTY 


TURN  OFF  KEY  R EL  FA  SF  I I GHT 
(RT  T 5 OF  CHANNEL  11  1 


SF T OSPLOCK  TO  +0.  NO  DSPLIST  SEARCH. 
TURN  KEY  RLSF  LIGHT  OFF  IF  DSPLIST  IS 
FMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE  IF 
DSPLI  ST  IS  NOT  EMPTY. 

♦ NOT  EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE 
+ 0 EMPTY.  TURN  CF  F KEY  RLSE  LIGHT 
- NOT  EMPTY.  LEAVE  K FY  RLSE  LIGHT  ALONE 


GAP: 
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r 

- 

- 

r 

r 

r 

r 

' 

r 

' 

i 

* 


P7319 1 
28182 


q:12  CCT.  21,1970  ZEPLAIC  .011 
PINBAll.  GAPE  BUTTCAS  ANO  LIGHTS  USER'S  PAGE  NO.  80 

P INTEST  IS  NEEDE9  FOR  AUTO  CHECK  OF  PINBALL. 

PEF  2 LAST  268  93,2002  P INTEST  EQUALS  LST2FAN 
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7 821 

REF 

1 

A 1 ,3653 

SETLOC 

ENDNVSB  1 +1 

28  21  5 

REF 

8 

LA  ST 

A 60  TO 

A62:  -> 

61  92  3* 

COUNT  * 

Sf/PIN 

1 82  2 

A 1 , 3653 

0 OOOA 

0 

VR  T STL  T S INHINT 

28222 

RFF 

55 

LAST 

A55 

A 1 ,365A 

0 A61  6 

1 

TC 

BANKCALL 

DPP  ERR  IF  NOT  IN  POO 

2 9 22  A 

RFF 

6 

LAST 

29  5 

Al, 3655 

66121 

0 

CADR 

CHKPCCH 

2 823 

RFF 

2a 

LAST 

A6  5 

A 1,  3656 

A A 753 

0 

CS 

B I T 1 

SFT  BIT  1 OF  I MODE  S3  3 

2 82A 

RFF 

25 

LA  ST 

229 

Al  ,3657 

7 1300 

1 

MASK 

IMODLS  33 

TURN  OUT  AN  Y LAMP  S. 

2825 

REF 

25 

L AST 

A75 

<1,  3660 

6 A7  5 3 

1 

AO 

B I Tl 

2826 

RFF 

26 

l AST 

A75 

. 

55*300 

l 

TS 

IM0DES33 

2827 

REF 

1 

Al , 3662 

2 3721 

0 

CAF 

TSTCCN1 

TURN  ON  UPL  INK  ACT  IV  IT 

2828 

• 1 . 

0 OOC 6 

1 

E XTF NO 

V/N  FLASH,  OPE  RAT  CR  ERi 

2829 

RFF 

18 

LAST 

A73 

A 1 ,366A 

0 5 011 

1 

WOR 

DS ALMOUT 

2930 

REF 

1 

Al,  366.5 

3 3722 

0 

CAF 

TSTC  CN2 

TURN  ON  NO  ATT,  GIMRAL 

2831 

RFF 

27 

LAST 

AS  1 

Al, 3666 

' 

1 

TS 

0 SP TAB  MID 

PROG  ALM. 

28911 

REF 

1 

Al  ,3667 

0 6022 

1 

TC 

C.13ST  ALL 

2832 

REF 

21 

L AST 

A2A 

Al,  367 C 

A7A2 

1 

CAF 

BI  Tl  0 

TURN  ON  TEST  ALARM  OJTl 

2833 

Al  ,3671 

0 0006 

1 

EXTEND 

28  3A 

REF 

5 

1 A ST 

227 

Al ,3672 

C5  C 1 3 

0 

WOR 

CHAN13 

2 835 

REF 

6 

L AST 

A25 

Al,  3673 

■ 

0 

CAF 

TEN 

2«76 

REF 

1 

Al »367A 

5 A 117 

1 

TSTLTS1  TS 

ERCNT 

2837 

RFF 

1 

< 1,  3675 

‘ 3717 

1 

C S 

FULLDS  P 

2838 

REF 

2 

LAST 

A75 

A 1,  3676 

50  117 

0 

INDEX 

ERCNT 

2839 

REF 

28 

LAST 

A75 

Al  ,3677 

55*022 

1 

TS 

DS  PT  AB 

2 3 AD 

RFF 

3 

L AST 

A7  5 

Al,  37C0 

1C  117 

1 

CC  S 

E RC  NT 

28A1 

RFF 

1 

Al  ,3701 

C 36  7 A 

1 

TC 

T STL  TS  1 

28A2 

RFF 

1 

A l ,3702 

A 37  20 

0 

CS 

FULL  DS  PI 

28AJ 

PEF 

29 

LAST 

A75 

Al,  3703 

' 

0 

TS 

0 SP  TAB  +1 

TURN  ON  3 PLUS  S IGNS 

28AA 

REF 

3C 

LAST 

A 75 

Al  ,37PA 

55*026 

0 

TS 

OSPTAR  + A 

29A5 

REF 

31 

L AST 

A75 

Al,  77C5 

f 6*C3C 

l 

TS 

D S PT  AB  +6 

2 8A6 

REF 

1 

A 1,  3706 

3 A 760 

1 

CAF 

ELEVEN 

28A7 

RFF 

9 

LAST 

A61 

Al  ,3707 

55*015 

0 

TS 

NOUT 

23A8 

A 1,  3710 

C CCC3 

1 

RE  LI  NT 

28  A9 

RFF 

1 

A l , 3 7 l l 

3 372A 

0 

CAF 

SHOL  TS 

2850 

Al  ,3712 

0 OOOA 

0 

INHINT 

2851 

REF 

18 

L AST 

AS9 

A 1,  3713 

C c i lA 

0 

TC 

WAI  TLI  ST 

2852 

PFF 

32 

LAST 

A75 

1022 

ERAN<= 

DSPTAB 

2853 

PEF 

1 

A 1, 371  A 

C 3725 

1 

2CADR 

TSTLTS2 

2853 

PFF 

1 

Al,  3715 

62102 

0 

235A 

REF 

61 

LAST 

A66 

Al  ,3716 

0 5155 

0 

TC 

ENDOFJOB 

DSPL3CK  IS  LEFT  BUSY  (F 

ACTION)  UNTIL  TSTLTS3  TP  INSURE  THAT 
LIGHTS  TE  ST  WI  LI  RE  SEFN. 


A 1 ,3  71  7 
A 1 , 77  20 


\ 
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A?  860 

41,3721 

CCl  75 

1 

TSTCCM 

CCT 

00175 

A 2861 

286? 

41,  3722 

4C674 

0 

TSTC0N2 

OCT 

40674 

A 2 863 

?B64 

41  ,3723 

0011  5 

l 

TSTC0N3 

OCT 

00115 

A?365 

2866 

41  ,3724 

00764 

1 

SHOLTS 

OCT 

764 

2867 

PEF 

4 

LA  ST 

465 

41,3725 

2 4355 

c 

TSTLTS2 

CAF 

CHRPRIC 

2868 

RFF 

8 

L AST 

4 1,  3726 

0 5C  7 2 

1 

TC 

NO  VAC 

2869 

REF 

33 

LAST 

475 

1022 

ERANK= 

DS  PT  A0 

2973 

REF 

1 

4 1,  3727 

03732 

1 

2CADR 

TSTLTS3 

2870 

PEF 

1 

41,3733 

62  1C  2 

0 

2871 

REF 

14 

LAST 

469 

41,3731 

0 5272 

0 

TC 

T ASKOV  ER 

287? 

REF 

1 

41,  3732 

4 3723 

0 

TSTL  TS  3 

C S 

TSTC0N3 

2873 

41  ,3733 

C 0004 

0 

INHINT 

2874 

41  ,3734 

0 0006 

1 

EXTEND 

2875 

REF 

19 

L AST 

475 

41,  3735 

03  011 

1 

WAND 

D SALMOUT 

28751 

PFF 

2 

LAST 

47  5 

41  ,3736 

0 6022 

1 

TC 

f 13STALL 

?R76 

REF 

22 

LAST 

475 

4 1,  3 7 ’ 7 

4 4742 

0 

CS 

81  T10 

2877 

4 1,  3740 

0 0C06 

1 

EXTEND 

2878 

REF 

6 

LAST 

475 

41  ,3741 

03  013 

0 

WAND 

CHAN  1 3 

2379  J 

REF 

19 

L AST 

261 

4 1,  37  42 

3 47  50 

1 

CAF 

B I T4 

2878? 

41  ,3  743 

0 0006 

l 

EXT  END 

2P78  3 

REF 

2? 

LA  ST 

2 93 

41  ,3  744 

02  012 

0 

RAND 

CHAN12 

2879 

REF 

27 

L AST 

462 

4 1, 3745 

6 4735 

1 

AD 

3 I Tl  5 

2880 

PEF 

34 

LAST 

476 

41  ,7  746 

' 

1 

TS 

DS  PT  AB  +: 

2991 

R EF 

1 

4 1,  3747 

4 3772 

1 

CS 

13-11  ,1 

2882 

PEF 

27 

LAST 

475 

4 1,  3750 

7 13  CO 

1 

MASK 

I MODE  S 3 3 

2883 

RFF 

3 

LAST 

230 

41  ,3751 

6 5026 

0 

AD 

PR  1016 

2884 

REF 

28 

L AST 

476 

4 1,  375? 

5 c 1 3C  C 

1 

TS 

I MCDES33 

2885 

PFF 

1 

41  ,3753 

4 3774 

1 

CS 

DCT5500C 

2886 

REF 

4’ 

LA  ST 

234 

41 ,3754 

7 1277 

0 

MASK 

I MODES30 

2887 

REF 

4 

L AST 

2 6 6 

4 1,  3755 

6 5025 

0 

AD 

PR  I 01 5 

2888 

REF 

44 

LAST 

476 

41  ,3756 

55*277 

0 

TS 

IMODES  30 

29  89 

R EF 

, 1 

* 1,  3 7 57 

4 3773 

c 

r.  s 

PF A1 LS2 

2 090 

PEF 

29 

LAST 

424 

41 ,3760 

7 0110 

0 

MA  SK 

RADMODE  S 

2891 

REF 

3 

LAST 

190 

41 ,3761 

6 4745 

0 

AD 

RC DU  FRIT 

2992 

RFF 

30 

L AST 

476 

41,  3/6  2 

5*  HO 

0 

TS 

RADMODES 

2893 

41  ,3763 

0 0003 

1 

REL  INT 

2894 

RFF 

96 

LA  ST 

475 

41,3764 

C 4616 

1 

TC 

BANKCALL 

2 895 

REF 

1 

41, 3765 

10630 

0 

C ADR 

D SPMM 

.00  1 

EO  S4 


UPLINK  ACTIVITY,  TEMP,  KEY  RISE, 

V/N  FLASH,  OPERATOR  ERROR. 

CS  PT  AB  + 1 1 C BITS  3, 4, 5, 6, 8, 9.  LR  LITES, 
NO  ATT,  GIMBAL  LOCK,  TRACKER,  PROG  AIM. 
CHAN  11  BITS  If  ?,  4,  7. 

UPLINK  ACTIVITY,  TEMP,  OPERATOR  ERROR. 

5 SEC 


CALLEC  RY  W A IT  L 1ST 


CALLED  BY  EXECUTIVE 

TURN  OFF  UPLINK  ACTIVITY,  TEMP, 
OPERATOR  ERROR. 

TURN  OFF  TEST  ALARM  OUTBIT 


MAKE  NO  ATT  FOLLOW  BIT  4 OF  CHANNEL  12 
(NO  ATT  LIGHT  ON  IF  IN  CCARSE  ALIGN) 

TURN  OFF  AUTO,  HCLC,  FREE,  SPARE, 

GIMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 
SET  BITS  TO  IN  0 IC  ATE  ALL  LAMPS  OUT.  TEST 
LIGHTS  COMPLETE. 


15003. 


REDISPLAY  C(MODRFG) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 


o:12  GCT . 21,1970  ZERLAIC  .00  1 PAGE  677 
USER'S  PAGE  NO.  83  EO  S6 


2896  REF 
2 897  PEE 
2898  RFF 
2399  REF 
29f>1 
290? 

2903 

2906 


6 LAST  660 
5 LAST  66  1 
36  LAST  672 


61, 37<S7 
61  ,3  770 
61,  3771 

61.3772 

61 .3773 
61,  3776 
61  ,3775 


0 6633  1 
0 6635  0 
61531  1 
1600  1 1 
00330  1 
55000  1 


TC  KILMONCN 

TC  = LASH  OFF 

TC  POSTJUMP 

CAOR  TSTLTS6 

13-11,1  OCT  1600 1 

RFAILS2  OCT  330 

OC  T 5 5000  OC  T 55000 

ENOP  INS  2 EQUALS 


TURN  ON  KILL  MONITOR  BIT. 

TURN  OFF  V/N  FLASH. 

DOES  R EL  DSP  AND  GOES  TO  PINHRNCH  IF 
FNOIDLE  IS  AWAITING  OPERATOR  RESPONSE. 

RADAR  CDU  AND  DATA  F A T I FLAGS. 


GAi  : ASSEMBLE  REVISION  56  OF  AGC  PRCGRA"  ZFRLINA  BY  ZCRQASTcR 


l PINBALL  G4»»E  BUTTCNS  AND  L ICFTS 


0 ?QC5  ERROR  LIGHT  PE  SE  T ( R SE  T ) TL  R f>  S CFF  , 

RZ^'6  1 1 PI  INK  ACTIVITY,  AUTO,  K3L  D . FREE,  OPERATOR  ERROR, 

R 290  7 PP.OG  ALW,  TRACKER  FAIL. 

K?Q08  LEAVFS  GIMBAL  LOCK  A NO  NO  ATT  ALCNE. 

R2RTO  IT  AISP  ZEROES  THE  : T FS  T ALARM:  OUT  BIT,  WHICH  TURNS  OFF  STB  Y,RF  START. 

R 291  I T Al  SO  SETS  :CAUTICN  RESET:  TC  1. 

R291 1 IT  ALSO  FORCES  PIT  12  OF  ALL  OSPTAB  ENTRIES  TO  1. 


•2912  REF 

291 2 5 REF 

2913  REF 

2914  RFF 

2915 

2 9l  5 RFF 
2917 

2911  REF 

2919  RFF 

2920  RFF 

2921  REF 

2922  RFF 

2923  REF 
2q7%  RFF 

2925  RFF 

2926  RFF 

2927  PE  F 

2928  REF 

2929  REF 

2930  RFF 


2 LAST  466 

If  LAST  466  TO 

3 I AST  458 
11  LAST  473 

23  LAST  476 

2C  I AST  47  6 
1 

35  LAST  476 
2R  I AST  476 

36  LAST  478 

4 LAST  476 

29  |.AST  476 

5 | A ST  47  8 

30  LAST  47  8 

24  LAST  478 

45  LAST  476 
26  LAST  478 

46  LAST  479 


4.  , 3643 
468  : 

. 3 ' . n 

40  ,3644 
. . £4! 
40,  3646 
40 ,3647 
40, 3650 
4C.3651 
, 

4C, 3653 
40  ,3654 

40.3655 

40. 3656 

40 .3657 
4C, 3660 

40. 3661 

40 . 3662 

40. 3 663 
40  ,3664 


39  884* 

56  115  1 

5 5 ’0  1 1 1 

C CCC4  0 
3 4742  1 

0 0006  1 

C 5 oil  1 

3 3732  1 
7 103  5 1 

6 4735  1 
55*035  1 

4 5C26  1 

7 13C0  1 

6 5026  0 
55*300  1 
4 4742  0 

7 1277  0 
6 4742  1 
55*277  0 


FRROP 


SFTLOC  30PR0C  • 

CCUNT*  FS/PIN 

XCH  21/22  REG 

TS  OSPI OCK 

INHINT 

CAF  3 I Tl 0 

EX  T EM  0 

WOR  DSALMCUT 

CAF  3L+NPATT 

MASK  PSPTAR  ♦ 

AD  8 1 Tl  5 

TS  DSP  TAB  + 

CS  PRI016 

"■'A  SK  IMODFS33 

AO  PR  1016 

TS  IM0DES33 

CS  EJIT10 

MASK  I MODES  30 

AD  BITlO 

TS  IM0DES3C 


♦ 2 


1 1 D 
l ID 


29->l 

2932 

2933 

2934 


R EF  1 

RFF  31  LAST  476 
REF  4 LAST  476 
REF  32  LAST  478 


40 , >665  4 3731  C 

40,  3ofi6  7 0 1 1n  0 
40  ,3667  6 4745  0 

40, 367C  54  110  0 


CS 

MA  SK 

AO 

TS 


RFAILS 
P.  AD  MODE  S 
RCDUFB  IT 
RADMCDES 


2934  1 RFF  3 I AST 

2935  RFF  26  I.  A ST 

2936 

2937  REF  7 I AST 

2938  REF  1 

2939 

2940  RFF  21  LAST 

2941  RFF  2 LAST 

2 94  2 REF  4 LAST 

29  4 3 

2 944  REF  5 LAST 

2945  RFF  37  LAST 

20  46  RFF  57  LAST 

2 94  7 RFF  1 

2948  RFF  5P  LAST 

2949  RFF  152  LAST 


476 


478 

449 

475 

47  8 
478 
467 

478 

472 


. 

4-1,367? 
40, 3673 

. 

40,3675 
tO,  >76 
4C  ,3677 
40,  3 7C0 
40, 3701 
4 C ,3  702 
4C,  37C3 

40.3704 

40.3705 
40,  B 706 
40  ,3707 
40, 3710 


0 6022  1 
4 4 74  2 O 
C 0006  1 

03  013  0 

4 3730  l 
C 0006  1 
C 3 011  1 
2 4363  0 
54  117  1 
C 0004  0 

5 C 117  0 
1 1*022  1 

6 4753  1 
0 3713  1 
6 4753  1 
4 rcco  0 


T S TAB 


ERMI  NUS 


E XTENO 

WAND 

CAF 


INHINT 
I NDE  X 
CCS 


3 13STALL 
BITlO 


CHAN  13 
ERCON 

DS  ALMOUT 
BI  NCC-N 
ERCNT 

E RC  NT 
DSP  TAR 
ONE 

F R PL  US 
DM  E 
A 


« 


9:12  OCT.  21,  1970  Z ERL  A ID 
USER' S PAGE  NC.  84 


.0C1  PAGE 
ED  S4 


f 


R FS  T ORE  ORIGINAL  C ( CS  PL  OCK  ) . THUS  ERROR 
tIGHT  RFSFT  LEAVES  DSPLCCK  UNCHANGED. 

TURN  ON  : C AUT  I ON  RESET:  OIJTBIT 

8IT1D  CHAN  11 

LCAVE  GIMBAL  LOCK  AND  NC  ATT  INTACT, 
TURNING  OFF  AUTO,  HOLD,  FREE, 

FROG  ALARM,  ANC  TRACKER. 

RESET  FAIL  BITS  WHICH  GENERATE  PROG 
ALARM  SO  THAT  IF  THE  FAILURE  SI  ILL 
EXISTS,  THF  ALARM  WILL  C OMF  BACK. 


TJRIM  3 F F : T ES  T A I ARM:  OUTBIT. 


TURN  OFF  UPLINK  ACTIVITY, 
OPFRATOR  ERROR. 

(DEC  10 ) 

ERCNT  = COUNT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  It  RLI  NA  BY  ZOROASTER 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


2 952  REF  153 

2953  PFF  2 

2954  REF  154 

2955  RFF  6 

2956  RFF  3e 

2957 

2958  REF  7 

2959  REF  1 

296P  RFF  lOf. 
2961  PFF  fc 

29611  REF  7 
296?  RFF  ? 

296?  P E F 62 


LAST  478 
I A ST  475 
I AST  479 
LAST  478 
LAST  478 

LAST  479 

LAST  47  3 
I A ST  310 
LAST  479 
LAST  111 
LAST  475 


4C , 3 712 
4C, 371 3 

40.3714 

40. 3715 
40  ,3716 
40,37  17 
40,  37  20 
40  ,3721 

40. 3722 

40. 3723 

40.3724 

40. 3725 
40  ,3726 
40,3  72  7 


4 0000  0 
7 3 733  1 
4 OCOO  0 
50  117  0 
c 5 ' 022  1 
0 0003  1 
10  117  1 
C 37C l 1 
3 4 755  1 
54  375  1 
5 4 276  1 
55*357  0 
0 5155  C 


ERPLIJS 


ER  COM 


MASK  NOT B IT  1 2 

TC  FRCOM 

CS  A 

MASK  NOT  BIT  12 

C S A 

INDEX  ERCNT 

TS  OSPTAB 

RFLINT 
CCS  ERCNT 

TC  TSTAB  +1 

C A F ZERO 

TS  FAILREG 

TS  F A I LREG  +1 

TS  S FA  IL 

TC  ENOOFJOB 


2 964 
A 2965 

2966 

2966  5 

2967 


40,  3730  00 1C4  1 ER  CON  OCT  1 04 

40,3731  00330  1 RFAILS  OCT  330 

40,3  732  00050  I GL+NDATT  OCT  00050 

40,3733  73777  I NCTBIT 12  OCT  73777 


2968 


40,37  34  ENDPINSl  EQUALS 


2969  REF 


LAST  325  30,2000 


S B ANK=  L3WSUPER 


9:12  OCT.  21,  1970  ZERLAID  .001  PAGE  479 


USER'S  PAGE  NC.  85  E3  S4 


MIGHT  WANT  TO  RESET  CLPASS,  DFCBRNCH, 
FTC  . 


CHAN  11  BITS  3 ,7. 

UPLINK  ACTIVITY,  AND  OPFPATOR  ERROR. 
RAOAP  CDU  AND  DATA  FAIL  FLAGS- 
NO  ATT  ANO  G 1 MB  A L LOCK  LAMPS 


343  : 
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L 

R6(*,P62  USER'S  PAGE  NO.  1 El  S? 

30100 

HOD  NO:  C CATE:  1 HAY  196  8 

R31DI 

MOD  BY:  DIGITAL  DEVEL  GROUP  LOG  SECTION  R60.R62 

POlC? 

FUNCTIONAL  OESCRJPTICN: 

* 0 10  3 
RD134 

C A l l ED  AC  A GENERAL  SUBROUTINE  TO  MANEUVE  R THE  LH  TC  A SPECIFIED 

ATT  ITUOE. 

R 010  5 
pr  106 

1.  IF  THE  3-AXIS  FLAG  IS  NCT  SET  TFF  FINAL  CDU  ANGLES  ARF 

CALCULATEH  (VCCPOJNT). 

R0107 

2.  TEE  F C A I HALL  ANGLES  (NGUN  18)  APE  CALCULATED  (BALLANGS). 

R 0108 

3.  REOUFST  FLASHING  DISPLAY  V50  N18  PLEASE  PERFORM  AUTO  MANEUVER. 

P 3 1 09 
Ron  o 

A.  IF  PRIORITY  DISPLAY  FLAG  I'  SET  DO  A PHASECHANGF.  THEN  AWAIT 

ASTRONAUT  RESPCNSF. 

R0  111 

5.  DISPLAY  RESPONSE  RETURNS: 

R0112 

A.  ENTER  - RESET  T-AX  IS  FLAG  AND  RETURN  TO  CLIENT. 

R 113 

1 l " 

ROl  15 

R.  TCPPINATE  - I y IN  POO  GC  TC  STEP  5A.  OTHERWISE  CHECK  IE  R61  IS 

THF  C AILING  PROGRAM.  IF  IN  R61  AN  EXIT  IS  MADE  TO  G0T0V56.  IF 

NCT  IN  P61  AN  EXIT  IS  CONE  VIA  GOTOPOOH. 

RO  116 

C.  PROCEED  - CONTINUE  WITH  PROGRAM  AT  STEP  6. 

RO 1 1 7 

1 C 1 1 8 

6.  IF  TEE  3- ax  IS  FLAG  IS  NOT  SFT , THE  FINAL  CDU  ANGLES  ARE  CALCULATED 
( VEC  PHI  NT)  . 

R 3 1 1 9 

7.  THE  FDA  I BALL  ANGLES  (NOUN  IE)  ARE  CALCULATED  (BALLANGS). 

R012- 

8.  IF  THF  G+N  SWITCH  IS  NOT  SFT  GO  BACK  TO  STEP  3. 

RO  12  1 

9.  IF  THF  ALTO  SWITCH  IS  NOT  SET  GC  BACK  TC  STEP  3. 

R3  1 22 

10.  NONFLASHINC-  DISPLAY  V06N  18  I FDA  I ANGLES). 

R 0 123 

11.  DO  A PHASECHANGF. 

RD12A 

12.  DO  A MANEUVER  CALCULATION  AND  ICDU  DRIVE  ROUTINE  TO  ACHIEVE  FINAL 

R-  125 
RO  126 

GIMBAL  ANGLES  (GCMANUR). 

13.  at  run  or  manelvfr  go  to  stfp  3. 

9)127 

R f 128 
RO  1 29 

IF  SATISFACTORY  MANEUVER  STEP  5A  EXITS  RAO. 

FOP  FURTHER  ADJUSTMENT  OF  THE  VEHICLE  ATTITUDE  ABOUT  THE 

DESIRED  VECTOR,  THE  ROLTINE  MAY  BE  PERFORMED  AGAIN  STARTING  AT 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCASTER 


L R60.R62 

1013  STEP  5C. 


R > 131  CALLING  SFOUFNCE:  TC  BANKCALL 
R 0 132  CACP  R60LEN 


R 0 133  ERA  SARI  E I N I T I A L I 7 A TI  ON  RE  QUI  RE  0 

RC 1 3 A 


SC  A XI  S » POINTVSM  (FOR  VECPOINT) 
3AXI  SFL  G. 


SUBROUTI  NF  S 

NORMAL  EXIT 


CALLED:  VFCPCINT,  EA|_LANGS,  C0PERF2R,  L1NJS,  GODSPER, 
GOMAN  UR i DOUNFLAG,  PHA  SCHNG  , UPFLAG 


NODES:  CAE  TEMPR60  (CALLERS  RETURN  ADDRESS) 
TC  BANKJLNF 


R31  3R 
R0140 
IO  1 A 1 


ALARMS:  NONE 
nfTPLT:  NONF 

DEBRIS:  CPHI,  C THE  TA , CP  SI,  3AXISFLG,  TBASE2 


0H2 

■I  A3  RFF 
3144 


3A , 2C  60 
26,2000 
26, 2125 


BANK  3A 
SETLCC  MANUVER 
BANK 


01A5  REF 


1 163 


E8ANK=  TEMPR6C 


REF 

RFF 

REF 


1 

2 LAST  276  26,  2 125  0 4645 
2 LAST  48  1 26,2126  55'163 


COUNT*  * $ / RO 6 

1 R60LFM  TC  MAKECADP 

0 TS  TFMPR60 


3 1 AO 
<>1  50 
0 151 
0 15? 
'153 

0 15A 

1 155 

'156 
315  7 


REF  1 

RFF  13  | AST  2=» 5 

RFF  155  LAST  479 
REF  1 

RFF  27  LAST  393 

REF  2 LAST  345 
RFF  5 LAST  37  a 


26,2127  2 A 1 A 6 0 RE  0 0 MANN  CAF  3 AX  I S BI T 


26,2130  7 0101  0 

26 ,21  31  1 0 000  0 

26, 2132  12  14C  1 

26  ,2133  C 6051  0 
2 6 , 2 1 3 A 7762A  1 

26. 2135  56040  0 

26.2136  C03P2  1 

26,  2 137  77776  1 


MASK  FLAGWR05 

CCS  A 

TCF  TOBALL 

TC  INTPRET 

CALL 

VFCPOI  NT 
STORE  CPHI 

EXIT 


01571  RFF 
0 1672  RFF 
31673  REF 
- 1 57  A RFF 
^ 158  PEF 
'1585  RFF 
0159  REF 
3163  RFF 


15  LAST 
3 I A ST 
31  LAST 
3 LAST 
c<7  LAST 
2 l AST 
1 

98  LAST 


303 

272 

303 


272 
A 76 
3A5 


AH  1 


26 , 2 1 AO  0 5515  0 
26,2141  00013  0 

26 , 2 1 A 2 C 6 6 2 7 1 
26  ,2  1 A3  00000  1 
2 6 , 2 1 4 A C A616  1 
26 , 2 1 A 5 6 4 27A  1 
26.21A6  3 2262  0 

26, 2 l A 7 0 4616  1 


TOBALL 


TOBALL  A 


TC  UPFLAG 

ADRES  N FE CL  FI  G 
TC  DOUNFLAG 
ADRES  NEEP2F1G 
TO,  BANKCALL 

CADR  3ALLANGS 
CAF  V06N1R 
TC  RANKCALL 


Z ERL  AI  D 


PAGE  A81 


9:  12  OCT  . 21,  1970 


. 001 


USER*  S PAGE  NC. 


e:  S? 


IS  3-AXI  S F LAG  SET 
YES 

TO  COMPUTE  FINAL  ANGLFS 

STORE  FINAL  ANGLES  - C PHI  ,C  THE  T A ,C  PSI 


INSURE  THAT  TOTAL  ATTITUDE  ERRORS  ARE 
DISPLAYED  ON  F DA  1 ERROR  NEEDLES 


TO  CONVERT  ANGLES  TC  FDA  I 


ASSEMBL  F REVISION  56  OF  AC-C  PROGRAM  ZERLINA  BY  ZORCASTEP 


0161 
>152 
0 16  3 
• 166 
>166 
* 166 


RTF 

RFF 

PEF 

RFF 

REF 

RTF 


67  | A ST  679 


26.21 50  20711  l 

26. 2 15 1 G 2250  1 

26.2152  C 2156  1 

26.2153  0 2203  1 

26,  2 156  0 22C  7 0 

26  ,2155  r 5155  0 


G0PERF2R 
P61TE  ST 
R EDDMANC 
ENCMANU1 
:hkli  NUS 
FNDOFJOR 


' 169 
>170 
171 
1 172 
■‘173 
0 1 76 
'176 


PEF  2 LAST  4ftl 
PEF  H LAST  4ftl 
RFF  156  LAST  481 
PEF  1 

RFF  28  LAST  4ftl 


26,2160  10  000  0 
26,2161  1 2167  1 

26  ,2162  0 6051  0 

26,2163  77624  1 

. 

26  ,2165  00322  1 

26, 2166  77776  1 


REOCIMANC  CAF 
MASK 
CCS 
TCF 


01  76 
176  5 
>177 
l 178 
• 179 


RFF  90 
PEF  ? 
REF  1 
REF  157 
RFF  1 


76,2167  0 4616  1 

26,2170  54274  1 

26,  2171  0 2263  1 

16  ,2172  l 
26,2173  1 2146  1 


BANKC.ALL 
BALL ANGS 
G + Ny'A'UTO 


01  AO 
0 181 
> 1ft? 
0103 


RFF  2 
RFF  100 
REF  l 
REF  2 


26,  2174  -•  226?  0 

26,2175  C 4616  1 
26,  2176  2C452  0 

26,2177  0 2207  0 


AU TOMAN V CAF 


V0  6N18 
BANKCALL 
GODS  PR 
CHKLINUS 


LAST  4 ft  2 


17747  0 


i 1 86 
1 ft  7 
188 
0199 

> 19> 


RFF  2 LAST 

RFF  32  LAST 

RFF  3 LAST 

RFF  3 LAST 

REF  6 I AST 


49  2 
481 
345 
481 


26  ,2202  1 2146  1 

26,  2203  C 5 52  7 1 
26  , 2204  l 4 

26,2206  31*163  1 

26,  22C6  C 464C  1 


ENCMAMUV  TCF 
ENDMANU1  TC 

ADRES 

CAE 


TORALLA 
DOWNF  LAG 
3A  XI  SF  LG 
T FMPR60 
BANKJUMP 


0 191 
: L92 

1 193 
1 94 

1196 
. 1 96 
0197 
>198 
' 1 99 


REF  3 LAST 
P EF  1 
REF  158  LAST 
RFF  144  LAST 
PEF  145  LAST 
RFF  240  LAST 
REF  16  I A ST 
RFF  4 LAST 
RFF  1 


673 

482 

47Q 

450 

375 


26  ,2207  4 0 100  1 

26.2210  7 4740  1 

26. 2211  10  000  0 

26  ,2212  0 0002  0 

26. 2213  3 CCC2  0 

26.2214  54  156  1 

26.2215  4 6257  0 

26. 2216  6 0133  0 

26  ,2717  55  '054  0 


CHKL INUS  CS 

MASK 
CC  S 


MPAC  ♦ 2 
T HREE 
RUF2 
TRASE2 


°oW 


LAST  292 


co  m ° 


9:12  OCT.  21,  1970  ZERLAID  .001  PAGE  482 
USER' S PAGE  NC.  3 E2  S3 

DISPLAY  PLEASE  PERFORM  AUTO  MANEUVFR 
PROCEEO 

ENTER  I.E.  FINISHED  WITH  3 60 
TP  CHECK  FGR  PRIORITY  CISPLAYS 

I S 3-AX1  S FLAG  SET 
YES 

TO  COMPUTE  FINAL  ANGLES 
STORE  ANGLES 

TD  CONVERT  ANGLES  TO  FDA  I 
CHECK  AUTC  MODE 

NOT  AUTO,  GO  REREOUEST  AUTO  MANEUVER. 
STATIC  DISPLAY  DURING  AUTO  MANEUVER 

TO  CHECK  FOP.  PRIORITY  DISPLAYS 
PERFORM  MANEUVER  VIA  KALCMANU 

FINISHED  MANEUVFR. 

RESET  3-AXIS  FLAG 


IS  PRIORITY  DISPLAY  FLAG  SET? 
NO  - E XI  T 
SAVE  RETURN 

OBTAIN  LOCATION  FOR  RESTART 
HOLDS  Q OF  LAST  DISPLAY 


GAP:  ASSFMRLF  REVISION  56  0 F AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0232 
02CM 
0 20  A 


PFF  22  LAST  469 
RFF  1 

RFF  241  LAST  482  26,2224  0 0156  0 


BI  T7 
LI  NUS 
M P AC  +2 


RE  LI  NU S CAF 


02  07 
0208 

0209 

0210 


REF  3 
PFF  ] 5 
RFF  1 49 


I AST  482 


26,  2227 
26  ,2230 
31 

36,2232 


7 0075  1 
1C  CCO  C 
1 2245  1 


CAF 

MASK. 

CCS 

TCF 


0211 

1212 

0213 

0214 

0215 

0216 


PFF  3 
REF  19 
PFF  16C 


26,2233 

. 

26  ,2235 
26,2226 
26, 2237 
26,2240 


3 4745  0 
7 C C 74  0 
10  000  0 
C 2242  1 
0 5364  0 
4 0112  1 


CAF 

MASK 

CCS 

TC 


PH  A SCHNG 
40  112 


REF  64 
RFF  5 


I AST  482 
LAST  483 


26, 2241  C 5155  0 


LAST  48  3 
LAST  48  1 


2fi, 2244  C 5155  0 


0224 
1226 
22  6 


PFF 

REF 


LAST  482 
LAST  466 


26,2247  0 1054  1 

26.2250  3 1010  1 

26. 225 1 C 0006  1 

26  ,2252  1 2203  0 


R61TEST  CA 


TBA  SF  2 
MODREG 
ENDMANU 1 


"'227 
0228 
0 2?o 
3233 
0231 


LAST  263 


26, 2253 
26,  2 264, 
26  ,2  255 
26, 2256 
26  ,2257 


3 C1C0  0 
7 4 74  0 1 
C 0006  1 
1 6CC 1 1 
0 6025  0 


MASK 
EXT  END 
BZF 


26  ,2262 


BI  T14+7 

OCT  20  3 
V06N18 


OCT  20100 
OCT  2 03 

06  18 


SUBROUTINE  Tfl  CHECK  FOR  G + N CONTROL,  AUTO  STABILIZATION 


26,  2263  0 QGC6  1 G + N, AUTO  EXTEND 


9:12  CCT.  21  , 1970  ZFRLAIC  .001  PAGE  483 


USEP  • S PAGE  NO.  4 E2  S3 

GO  SET  BITS  FOR  PRIORITY  DISPLAY 

RFSTORE  ORIGINAL  PRIORITY 

DON'T  CONTINUE  R60  UNL  FSS  TRACKFLAG  ON. 

IS  IT  P 20  ? 

YES 

NO,  MUST  BE  P25,  SET  2.11  SPOT 

SF  T 2.7  SPOT  FOR  P20 

SET  PRIO  DISPLAY  FLAG  AFTER  RESTART 

IF  WE  ARE  IN  POO  IT  MUST  BE  V49  DR  V89 
THUS  WE  GO  TO  ENPE  XT  VIA  USER 
ARE  W F IN  R6l  (P2o  OR  P25> 

NO 

YF  S 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZFPLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  ZERLAIO  .00  1 


PAGE  48*. 


USER'S  PAGE  NC. 


'242 
3243 
0244 
024  5 
3246 


LA  ST 
l AST 
LAST 
LAST 


19C 

478 

483 

482 


26  ,2266 
26 • 7267 

26.2270 

26.2271 

26. 2272 


10  000  0 
C CCC2  0 
0 0006  1 
00  031  0 
7 4736  0 


READ 
MA  SK 
CCS 
TC 

ISITAUT7  EXTEND 
RF  AO 
MA  SK 


247  RFF  147  LAST  484  26,2273  0 C002  0 


(+•)  = NOT  IN  AUTO,  ( + 0)  = AQK 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 
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685 


L 

860, R62  USER'S  PAGE  NC.  6 E2  S3 

0 2 AS 
R3269 

PROGRAM  DESCRIPTION  BALLANGS 

MOD  NO.  LOG  SECTION  R60,Rfc2 

R 0250 
RO  251 

WRITTEN  BY  RAMA  M.AIYAWAR 

FUNCTIONAL  DESCRIPTION 

R0252 
l 0251 

COMPUTES  LM  FCAI  BALL  DISPLAY  ANGLES 

CALLING  SEOUFNCE 

RD25A 

R02S5 

TC.  3 ALL  ANG  S 

NORMAL  FX1T  MODF 

10  256 

TC  BALLEXI  T ( SAVED  Q) 

R .257 
P-0258 

R ) 250 
RO  260 

ALARM  OR  EX  IT  MODE  N IL 

SUBROUTINES  CALLED 

CD*TR*G 

ARCT  AN 

10261 

I NPUT 

R 0 262 
R026-1 
10266 

CPH!,CTHFTA,CPSI  ARE  THE  ANGLE  S CORRE  SPONDI  NG  TO  AOG  , AI  G , AMG.  THEY  ARE 

SP,2S  COMPLIMENT  SCALEC  TO  HALF  REVOLUTION. 

OUTPUT 

R'  265 

RC266 

RO  267 

FCAIX,  FCAIY,  rnAIZ  ARE  THF  REOLIRED  BALL  ANGLES  SCALED  TO  HALF  REVOLUTION 

SP,2$  COMPLIMENT. 

THESE  ANGLES  WILL  BE  DISPLAYED  AS  DEGREES  AND  HUNDREDTHS,  IN  THE  ORDER  ROLL,  PITCH,  YAW,  USING  NOUNS  18  G 

R0269 

ERASABLE  INITIALIZATION  RFCUIREC 

1 C.270 

RO  27  1 

CPHI  ,C  THETA  ,CPSI  EACH  A SP  REGISTER 

C EBP  IS 

R 0272 

A ,L,C,MPAC»SINCOU,CCSCOU,PUS  FL  1ST  , EALL  EX  IT 

R02  73 

8 02  75 

NOMENCLATURE:  CPHI,  C THETA,  0 C.PSI  REPRESENT  THE  OUTER,  INNER,  £ MIDCLE  GIMBAL  ANGLES,  RESPECTIVELY;  OR 
EQUIVALENTLY,  CCJX  , CCUY,  f.  CTUZ. 

10  276 

NOTE:  ARCTAN  CHECKS  FOR  OVERFLOW  AND  SHOULD  BE  ABLE  TO  HANDLE  ANY  S IN  GUI  AP  I T I E S . 

027R 

2 70 

PEF  2 LAST  366  26,  200r>  SE  TLOC  BAWLANGS 

26  ,2276  BANK 

SI?? 

0282 

0283 

R FF  1 , . ..  , COUNT*  tt/BALL 

REF  f LAST  68  1 26,  2276  C 6665  1 BALLANGS  TC  MAKECADR 

8 F F 1 26  ,2275  55*337  0 TS  RAL  L EX  IT 

REF  7 LAST  682  26,  2276  3 C321  1 CA  CPHI 

> AP:  ASSEMBLE  Bf  VI  SION  s 6 OF  A5C  PRCGRAM  ZERLIMA  BY  ZGRCASTER 

L R6G  ,R6 2 
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USER' S PAGF  NC.  7 


.001  PAGE 
E2  S3 


48t> 


<2 PA  PFF 
■j2  R5  RFF 
C 2 86  PEF 
'•287  RFF 
3293  REF 


7 LAST  260 
2 I AST  374 

8 LAST  A 86 

9 LAST  374 
9 L AST  486 


26,2277  54  771  1 

26,  2 3C0  3 0222  1 

2f,2301  54  765  1 

26,2302  3 0323  0 

26,  2 3C3  54  76  7 0 


TS  C DUS  POT  +4 

CA  CTHFTA 

TS  CDUSPOT 

CA  CPS  I 

TS  CDUSPOT  +2 


0-289  REF  29  LAST  482 

0 290 

0291 

0292  RFF  1 


26  ,2  304  0 60  51  0 

26 , 2305  45CC1  l 

26,  2306  OGCOl  0 

26,2307  47541  1 


TC  INTPRET 

SETPO  CALL 
00 

CD*TR*G 


1293 

0294  PFF  1 
0 295  RFF  1 


26,2310  4l?45  0 

2b  ,231  1 f C74?  0 

26,2312  0C746  1 


D LOAD 


DM  P 

S INC  DUX 
COSCDUZ 


SIN  (OGA) 
CDS  ( MGA  ) 


02  96 
0297 

D?98  RFF 

0299  RFF 

0300  RFF 
0331 

030?  PFF 
0 30  3 REF 
03r/.  PFF 
0305 

0326  RFF 
C3G7  PEF 

0308 

0309 

0310  PFF 

0311 

0312  PFF 

0313  REF 
3314 

0315  PEF 

0316 

3317  RFF 
0318  RFF 
0310 

C32n  REF 
0 321 

332?  REF 

0323  REF 

0324 
3 3?b 

0326  REF 

0327  RFF 

0328 


4 LAST  327 
? LAST  486 


4 (AST  327 


2 LAST  486 
? LAST  496 


2 LAST  486 
2 LAST  496 

5 LAST  486 

2 LAST  486 

3 L AST  436 

5 LAST  486 
2 LAST  486 


2 LAST  370 
2 LAST  310 


26. 2313 

26 .23 14 
26,  23  1 5 
26,2  316 

' 7 

It,  2 32C 
26  ,2121 
26,2322 
26,  2323 
26  ,2324 
26,  2325 
26,  2 326 
. 

26,  >331 

25  ,2331 
26,2332 

, 

26  ,2334 
26,  2395 
26,  2 93  6 
26,2337 
26,  2340 
26  ,2341 
26,234  2 
26,  2343 
26  ,2344 

56. 2345 

26.2346 

26.2347 
26, 2350 
26  ,?351 
26,2352 
26, 2393 


57552  1 
65336  1 
CC740  1 

14C23  0 
CC746  1 
7 24  C 5 0 
00750  0 

94021  o 
565C6  0 
41325  0 
C C 740  1 
00742  0 
41512  1 
65505  0 
00744  0 
6 5205  0 
0C736  0 
00750  0 
724C5  0 
00744  0 
45425  0 
63756  0 
00736  0 
72405  0 
0C7  5O  0 
45415  0 
43754  0 
26506  0 
55525  0 
77634  0 
21602  0 
02336  0 
77776  1 


STOOL 

DMP 

STCALL 

POOL 


dcomp 

POOL 
SI  NCDU 7 
SI  NTH 

cnscou  z 

SL1 

COSCDUX 
COSTH 
A R C TA  N 

OMP 

SI NCDU  Z 
SI  NCDUX 
PUSH 
POOL 
cn  scniJY 
PDDL 
SI  NCDUY 
COSCDUX 
S LI 

COSCDUY 
ST  ADR 
COSTH 
S INCDUY 
S LI 

COSCDUX 
ST  ADR 
SI  NTH 
ARCTAN 
V DEF 


SCALE 

YAW  = ARC  SI  N(  - SXC  7 ! INTO  0 PD 
(SI  NTH  = 18D  IN  PD  I 
RESCALE 

('COSTH*  16D  IN  PD) 

ROLL  = ARCTAN  ( SZ /CZC  X)  INTO  2 PD 


SXS7  INTO  4 PD 
SXSZCY  INTO  4 PO 

SXS  ZSY  INTO  6 PD 


CX  CY 

PULL  UP  FROM  6 PD 
COSTH  = CXCY  - SXS  ZSY 


CXSY 

PULL  UP  FROM  4 PD 

S I NTH  = CXSY  ♦ SXSZCY 

RETURNS  WITH  D(MPAC)  = PITCH 

PITCH  INTO  2 PO,  ROLL  INTO  MPAC  FROM  2P0 

VDFF  MAKES  V(MPAC)  = ROLL,  PITCH,  YAW 

MODE  IS  TP 


0329  RFF 


2 LAST  4R5  26,2354  3 1337 


ENCBALL  CA 


BALLEX  IT 


AP:  ASSEMBLE  REVISION  56  OF  A GC  PROGRAM  ZERLINA  BY  ZOROASTER 
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R *r,Rf>2 


USER'S  PAGE  NO.  8 E2  S3 


03295  REF  7 LAST  48  2 26,  2355  0 4640  1 


TC  BA  NK JUMP 
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L 

P6C  * P62  USER'S  PAGE  NG.  9 E2  S3 

P 0330 

PROGRAM  OFSCPIPTICN  - VFCPCII'T 

S’, 111 

THIS  INTERPRETIVE  SLRROLTINF  MAY  BE  USED  TO  POINT  A SPACECRAFT  AXIS  IN  A OESIREO  DIRECTION.  THE  AXIS 

T ( i BE  PCI  NT  EC  MUST  APPEAR  AS  A HALF  UNIT  OOUBLF  PRECISION  VECTOR  IN  SUCCESSIVE  LOCATIONS  CF  ERASABLE  MEMORY 

716  BEGINNING  WITH  THE  LOCATION  CALLEO  SCAXIS.  THE  COMPONENTS  OF  THIS  VECTOR  ARE  GIVEN  IN  SPACECRAFT  COORDINATES. 


R)  337 

R 0339 
R0  34  1 
R0343 
■ - 4 5 

R3  366 
R034R 

3 0 350 
K)352 
RC354 
PC  356 
R03  6 R 

3 036*3 
R3362 
R036A 

3 0 366 

THE  DIRECTION  IN  WHICH  THIS  AXIS  IS  TO  BF  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN 

SUfCFSSlVF  LOCATIONS  CF  ERASAELE  MEMORY  BEGINNING  WITH  THE  AODPESS  CALLED  POINTVSM.  THF  COMPONENTS  OF  THIS 
VECTOR  ARE  GIVEN  IN  STABLE  MEMBER  COORDINATES.  WITH  THIS  INFORMATION  VECPOINT  COMPUTES  A SFT  OF  THREE  GIMBAL 
ANGLES  (2S  COMPLEMENT  J CORESPONCING  TO  THE  CROSS-PRODUCT  ROTATION  BE  TWE  EN  SCAXIS  ANO  PCINTVSM  AND  STORES  THEM 

IN  T(MPAC)  BEFORE  RETURNING  7C  THE  CALLER. 

THIS  ROTATION,  HOWEVER,  MAY  BRING  THE  S/C  INTO  GIMBAL  LOCK.  WHEN  POINTING  A VECTOR  IN  THE  Y-Z  PLANE, 

THE  TRANSPONDER  AXIS,  OR  THF  AOT  FOR  THE  LEM,  THE  PROGRAM  WILL  CORRECT  THIS  PROBLEM  BY  ROTATING  THE  CROSS- 
PRODUCT  ATTITUDE  ABOLT  POINTVSM  BY  A FIXED  AMOUNT  SUFFICIENT  TO  ROTATE  THF  DESIRED  S/C  ATTITUDE  OUT  OF  GIMBAL 
LOCK.  IH  THE  AXIS  TO  BE  POINTFD  IS  MORE  THAN  AC.  6 DEGREES  BUT  LESS  THAN  60.5  DEG  FROM  THF  + X (OR-X)  AXIS, 

THF  AD0IT10NAI  ROTATION  TO  AVCIC  GIMAL  LOCK  IS  35  DEGREES.  IF  THE  AXIS  IS  MORE  THAN  60.5  DFGEES  FROM  +X  (OR  -X  ) 
THE  ADDITIONAL  ROTATION  IS  3 c DEGREES.  THE  GIMBAL  ANGLES  CORRESPONDING  TO  THIS  ATTITUDE  ARE  THEN  COMPUTED  AND 
STEREO  AS  2S  CCMPLIMFNT  ANCLES  IN  T(MPAC)  BEFORE  RETURNING  TO  THE  CALIEP. 

WHFN  POINTING  THE  X-AXIS,  OR  THE  THRUST  VECTOR,  OR  ANY  VECTOR  WITHIN  40.6  DEG  OF  THE  X-AXIS,  VECPCINT 
CANNOT  CORRECT  FOR  A CR  D S S-P  ROD  LC  T ROTATION  INTO  GIMBAL  LOCK.  IN  THIS  CASE  A PLATFORM  REALIGNMENT  WOUl  D BE 
RFCUIRFD  TC  POINT  THE  VECTOR  IN  THE  DESIRED  DIRECTION.  AT  PRESENT  NO  INDICATION  IS  GIVEN  F CR  THIS  SITUATION 
FXCEPT  THAT  THE  FINAL  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2  IS  GREATER  THAN  *9  DEGREES. 

R036R 

3 9369 
R03  70 
R03  71 

CALL  IN G S EOUENCE  - 

1 ) LC AO  SCAXIS,  FC I NT VS  M 

2)  :all 

V ECPOINT 

3 0372 

RETURNS  WITH 

RT  373 

R 9 37  4 

3 0 375 

1)  DESIRED  OUTER  GIMBAL  ANGLE  IN  MPAC 

2)  DESIREC  INNER  GIMBAL  ANGLE  IN  MPAC  +1 

3)  OESIRtO  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2 

R0*76 

FRASABLFS  USED  - 

3 ( 377 

R 3378 
RC3  79 

3 0 380 
R33?  1 

R 9382 
R0383 

1)  SCAXIS  6 

2)  POINTVSM  6 

3)  MIS  18 

4)  DEL  18 

5)  COF  6 

6)  VECQTEMP  1 

71  ALL  OF  VAC  AREA  A3 

R03  84 

TOTAL  99 

03  85 

3 386 

REF  1 27,2000  SETLOCVECPT 

27,  2032  HANK 

S ETLOC  V ECPT 
RANK 


GAP:  ASSCMRLE  REVISION  56  OF  AGC  PRGGRAV  ZERLINA  BY  ZOROASTER 


0387  RFF 


3388  REF  11  LAST  37  1 E6,  1675 


COUNT  * SS/VECPT 
E BANK=  8C0U 


03BBC5 
3881 
388 1 5 
0388? 
338825 
038865 
0 880 
3 390 
0391 
0 39  2 

03  93 
0396 
D395 

0396 

0397 

0398 

0399 
0600 
0601 

4 0602 
0633 
0604 
0405 
3436 
0407 

040  8 

0409 

0410 
3411 

0412 

0413 
34)4 
0415 
0 416 

04 1 7 
0418 
3419 

. 

0 4?  1 

04  22 


REF 

RFF 


11  I AST  370 


LAST  489 


1 AST 
LAST 


REF  12  LAST  345 


LAST 
LA  ST 


489 

489 


3 I AST  ?70 


27  ,2032 

. 

27  ,2£35 

27. 2036 

37.2037 

. 

27,  204  1 
27  ,2042 
2 7,204  3 
27, 2044 
27  ,2045 
27,  ?0 46 
27, ?047 
27,2050 
27,  2 C 8 1 
27  ,2052 
. 51 

■ 

27,  2C55 

. 

27,2057 
27, 2060 

27,2062 
27,  2063 
27  ,2064 
27,  2065 
27,20  66 
27,  7 

27,  2 C 70 
27  , ? 07  1 
? 7 » 2 C 72 
27, 2373 
27  ,2074 
? 7,  ?C  75 

27.2076 

27.2077 
27,  2100 


40023  1 
03324  1 
56035  1 
52164  0 
C3245  1 
56046  0 
4002  i 
C3324  1 
56043  0 
47164  1 

03245  1 
*♦4403  0 
34032  1 

44410  1 
61375  1 
0 3773  1 

03246  1 
77656  1 
00035  1 

53435  0 
03765  0 
57400  1 
56170  1 
17270  1 
00045  0 
50025  0 
1*417  0 
66170  1 
50375  0 
03765  0 
0CC35  1 
65552  0 
77624  1 
44627  1 
75160  1 
C3245  1 
02221  1 
77624  1 
<4212  1 


VECPNTl  STO 

VECPNT2  AXC,  2 

VECPOINT  ST  Q 

VECLEAR  AXC, 2 

STORANG 


80V 

VECOT  EMP 
VECPNT2 
GOTO 
MI  S 

STORANG 
BOV 

VE  COTE VP 
VFCLEAR 
RTB 
MI  S 

REA  DC  DU  K 
STCALL  250 

Z 0 UTODCM 
V LOAD  V X M 

POI NTVSM 
M IS 

UNIT 

STORE  2 an 

VXV  UNIT 

SC  A XI  S 
0CV  V COMP 

PI  CKAXI  S 
STOOL  COF 
360 

OSU  3 MN 

DPB-  14 
PI  CKAXIS 
VLOAO  DOT 

SCAX  IS 
2 80 
ARCCOS 

3E  LCOMP 
AXC,  2 
MI  S 
KFL 

MXM3 


423 
3 424 

0425 

0426 
3427 


27  ,2  If  1 
27,2162 
27,  2 Ip  3 
2 7 ,2104 
27,  21CC 


51545  1 
ooor  7 o 
5CC25  0 
14404  1 
56160  0 


ULOAD  ARS 


3 MN 

S INGIMLC 
F I NOG! VP 
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THIS  ENTRY  USES  DESIRED  COUS 

NOT  PRESENT-FNTFP  WITH  CDIJD'S  IN  MPAC 


SAVE  RETURN  ADDRESS 

AND  CLEAR  OVF  I ND 

READ  THE  PRESENT  CCU  ANGLES  AND 
STORE  THEM  IN  PD25,  26,  27 

S/C  AXES  TO  STARLE  VEVBFR  AXES  (MIS) 

RESOLVE  THE  POINTING  DIRECTION  VF  INTO 
INITIAL  S/C  AXES  ( VF  = POI  NTVSM) 


PO  28  29  30  31  3?  33 

TAKE  THE  CROSS  PRODUCT  VF  X VI 

WHERE  VI  = SCAXIS 


CHECK  MAGNITUDE 
OF  CROSS  PROOUCT 
VECTOR,  IF  LESS 
THAN  B- 14  A SSUME 
UNIT  OPER  AT  ION 

INVALID. 


NOW  COMPUTE  THE  TRANSFORMATION  FROM 
FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  MF  I 

COMPUTE  THF  T®  ANS  FORMAT  ION  FROM  FINAL 
S/C  AXES  TO  STABLE  VEMBFR  AXES 
MFS  = MIS  MFI 
(IN  PO  LIST  ) 


MFS6  = S IN  I CPS  I ) *2 

= S I N ( 59  OFG S)  i2 

/CPSI/  LESS  THAN  59  DFGS 


GAP:  ASSEMBLE  Pf  VISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZCROASTER 

L R60,P62 

A 0428 


34?9 

0430  PFF 

0431 

•>432  RFF 

0433  RTF 

0434 
C 4^5 

0436  RFF 
3437 

0438  RFF 

0434 

3440  RFF 
0441  REF 
044? 

0443  RFF 


27,  2 1 C 6 

14  LAST  430  27,2107 

27,2110 

1 27,2111 

2 LAST  48  J 27,2112 

27, 2 113 
27,  2 1 1/, 

15  LAST  499  27,2115 

27,  2116 

1 6 LAST  490  27,21  17 

27,2120 

17  I AST  490  27,  2 121 

18  LAST  490  27  ,2122 

27  ,2123 

1 27,2  124 


51545  1 
03765  0 
51025  1 
14406  0 
56160  0 
77775  1 
77626  0 
53515  0 
77626  0 
50523  0 
77626  0 
50531  C 
03254  1 
57444  1 
56125  1 


OLCAO  ABS 

SCAXIS 
DSU  BPL 

SI  NVFCl 
F INDGIMB 

VLOAO 
STAG  3 

STOVL  WIS  +120 
STAOR 

STOVL  MI S + A 
STAOR 

STOVL  MI  S 

MIS  +6 
BPL  VCOMP 

I G SA  ME  X 


3445 
044  6 
A 0 44  7 
A3  4 48 


REF  15  I AST 
REF  1 


440 


27,2125 
27,  2126 
27,2127 


50035  1 I GS  AM  EX  VXV  BMN 

03765  0 SCAXIS 

56  134  1 U=  SCAXIS 


0449 

0450  REF 

0451  REF 

0452  PFF 
3453 

0454  REF 

0455  RFF 
3456 

0457  REF 
0450 

0459  RFF 

0460  PFF 
3461 

0462  REF 
D463  RFF 
A3  464 

0465 

0466  REF 
04  67 

0468  REF 
3469 

0470  REF 

0471  RFF 
3472 

0 473  REF 

AO  4 74 


I A ST 
L AST 


LAST 
LA  ST 

LAST 


490  27,2121 

499  27,2  132 

27  ,2133 
27,  2134 
490  27,2135 

490  27,2136 

2 7,  2137 
490  27  ,2  L4D 

? 7 , 2 14  1 
27,  2 14  ' 
27 ,2143 
27, 2 14  4 

27.2145 

27.2146 


37270  0 

56137  1 
77775  1 
C3765  0 
03270  1 
5 1545  1 
03765  0 
51025  1 
144 10  1 
5614  7 0 
52145  0 
14414  0 
56151  1 


1 

3 LAST  489 

19  LAST  490 
l?  LAST  489 

4 LAST  499 


27  ,2  147 
27,2150 
27,  215  1 
27  ,2152 

27. 2153 

27.21 54 

27.2155 
27,  2 1 c 6 
27  ,2157 


77745  1 
14412  0 
77624  1 
44527  1 
7 5 1 6 C l 
03245  1 
02221  1 
77624  1 
44312  1 


VLOAO  VCOMP 
S C AX  IS 
STCALL  CUF 

CHEKAX  IS 

U=  SC  A XI  S VLOAO 

SC  A XT  S 
STORE  COF 
CHEKA  XI  S OLOAO  ABS 

SCAXIS 
OSU  BPL 

SI  NVEC  2 
P TCKANG1 
OLOAO  GOTO 

VECANG2 

COMPMFSN 

P1CKANG1  OLOAO 

VECANG1 

COMPMFSN  CALL 

OELCOMP 
AXC  ,1  AX  C ,2 
MI  S 
KEL 

CALL 

MXM3 
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USER*  S PAGE  NO.  11  E6  S3 

I.F.  DESIRED  ATTITUDE  NOT  IN  GIMBAL  LCCK 

CHECK  TO  SEE  IF  ME  ARE  POINTING 
THE  THRUST  AXJ  S 

SI N 49.4  OFGS  $2 

IF  SO,  WF  ARE  TRYING  TO  POINT  IT  INTO 
GIMPAL  LOCK,  ABORT  COULD  GO  HERE 


STORE  MFS  (IN  POL  1ST  ) IN  MIS 


INNER  GIMBAL  AXIS  IN  FINAL  S/C  AXES 
LOCATE  THE  IG  AXIS  DIRECTION  CLOSEST  TO 
FI NAL  X S/C  AX  IS 


FI  NO  THE  SHORTEST  MAY  OF  ROTATING  THE 
S/C  OUT  OF  GIMRAL  LOCK  RY  A ROTATION 
ABOUT  +-  SCAXIS,  I.E.  IF  (IG  (SGN  MFS3  ) 
X SCAXIS  . XF  1 LESS  THAN  ",  U = SCAXIS 
OTHERWISE  U = -SC AX  IS 


ROTATE  ABOUT  -SCAXIS 


ROTATE  ABOUT  + SC  A XI  S 

SEE  IF  WE  ARE  POINTING  THE  AOT 

SI  N 29.5  OEGS  *2 

IT  SO,  ROTATE  5C  DECS  ABOUT  +-  SCAXIS 
IF  NOT,  MUST  BE  POINTING  THE  TRANSPONDER 
OR  SOME  VECTOR  IN  THE  Y , OR  Z PLANE 
IN  THIS  CASE  ROTATE  35  OEGS  TO  GET  OUT 
OF  GIMBAL  LCCK  (V  ECANC-2  $360) 

= 50  OEGS  $ 360 


COMPUTE  THE  DOTATION  ABOUT  SCAXIS  TO 
BRING  MFS  OUT  OF  GIMBAL  LOCK 


COMPUTE  THE  NFW  TRANSFORMATION  FROM 
OESIRED  S/C  A XF  S TO  STABLF  MEMBFR  AXES 
WHICH  WILL  ALIGN  VI  WITH  VF  AND  AVOID 


GAP:  ASSEMBLE  REVISION  66  OF  AGO  PROGRAM  ZERLINA  BY  ZORCASTER 


L R60.R62 


A 0475 
0476 
0'+  77 
9478 
3479 
04  80 
0 481 


27,2160 
27,  21&1 

2 LAST  370  27,2162 

27,  2 163 

3 LAST  486  27,2164 

27,2165 
27,  2 166 

3 LAST  489  27  ,2167 


45160  1 
00000  1 
44654  0 
4C234  0 
216C2  0 
00001  0 
77650  1 
03324  1 


FINDGIM8  AX C , 1 CALL 
0 

DCMTnCOU 
RTB  SETPD 

V 1ST02S 
3 

GOTO 

V ECQTEMP 


'484 
04  88 
0486 
7487 

0488 

0489 
3490 
0491 


REF 


REF 


REF 


19  LAST  490 
1 


4 LAST  491 


27,2170 
27,  2171 

50375 
OCO  35 

0 

1 

27,2172 

03765 

0 

27,  2173 

72240 

1 

27,2174 

5435o 

0 

27,2175 

0003? 

0 

27,  2 176 

77650 

1 

27  ,2  177 

03324 

1 

PICKAXIS  VLOAD 


BMN 


GOTO 


DOT 
2 8D 

S C AX  IS 
TLOAO 
R0T19C 
25  D 


VECOTFMP 


0492 

049’ 

0494 

3498 

04  96 
049  7 
3498 
0499 

0 500 
0501 
0507 
3 3 3 
0504 
0 50  5 
3 53  6 

0507 

0508 

0509 

0510 
3511 
051  2 
3513 
3 614 

0 515 
•516 

1 )5 1 6 
051  7 
3517 
051  8 
0518 
36  19 
051  9 


REF 


RFF 

RFF 

RCF 

RFF 

REF 


RFF 

REF 

REF 

RFF 

RTF 

RFF 

RFF 

RTF 


20  LAST  490 
1 

20  LAST  491 
1 

43  LAST  4«0 


2 LAST  489 
2 LAST  491 

44  LAST  491 
4f  LAST  4Q  1 
2 LAST  491 


3 I AST  491 


26  ,2356 
26,  2356 
26,2357 
26,2360 
26,  236  1 
26  ,2362 

26.2363 

26. 2364 

26.2365 
26,  2366 
26,2367 

26.2370 

26. 2371 
26  ,2772 
26,2773 
26, 2374 
26  ,2375 
26,  2 376 
26,2  377 
26,2  400 
26,  24C1 
26  ,2402 
26, 2403 
26,  240  4 
26  ,2405 

, i 

26,2  40  7 

26.2410 

26. 2411 
2 S ,2412 


47375  0 
03254  l 
06516  0 
47256  0 
03765  C 
4CC56  0 
54400  1 
17270  1 
0CC45  0 
50025  0 
14417  0 
5440C  1 
77775  l 
03270  1 
17270  1 
06516  0 
7765C  1 
56C72  1 
521  75  0 
06516  0 
54374  0 
15555  0 
35172  0 
14113  1 
36376  0 
07 7 Cl  0 
36703  0 
C4  34  3 1 
21616  0 


BANK  35 
SETLO:  MANUVER1 
BANK 

R0T180  VLCAD  VXV 

MI  S +6 
HI CPHAL  F 
UNIT  VXV 

SCA  XIS 
UNIT  BOV 

P I C K X 
STODL  COF 
3 6 D 

DSU  BMN 

DPfi-1  4 
PI  CKX 

VLOAD 

COF 

XROT  S TOOL  COF 

HI  DP  HALF 

GOTO 


PICKX  VLOAD 


SI  NGI MLC  2 DEC 


COMPMATX 

GOTO 

HI  DPHALF 

XROT 

.4285836003 


SINVEC1  2 DEC  .3796356537 


SINVEC2  20EC  . 24621  17800 
VECANG 1 2DFC  . 1 388888889 
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USER'S  PAGE  NO.  12  E6  S3 

GIMRAL  LOCK 

EXTRACT  THE  COMMANDED  CDU  ANGLES  FROM 
THI  S MATR  I X 

CONVFRT  TO  2:S  COMPLEMENT 

RETURN  TO  CALLER 
I F V F X V I = 0,  F 1N0  VF  . VI 


IF  VF  = VI,  CDU  DESIRED  = PRESENT  CDU 
PRF  SENT  CDU  ANGLE  S 


IF  VF,  V I ANT  I P AP  ALL  EL  , It  8 DEG  ROTATION 
IS  RF0U1REP.  Y STARLF  MFMFFP  AXIS  IN 
INITIAL  S/C  AXES. 

FIND  Y (SM)  X X (II 

FIND  UN  I T I VI  X UNI  T ( Y ( S Ml  X XII))) 

I.E.  PICK  A VECTOR  IN  THF  PLANE  OF  XII), 
Y(SM)  PERPENDICULAR  TO  VI 

CHECK  MAGNITUDE 
OF  THIS  VECTOR. 

IF  LESS  THAN  B-  14, 

PICK  X-AXIS. 


PICK  THE  XAXIS  IN  THIS  CASE 


=S  IN ( 59  ) $2 

= SI  N(  49.  4)  *2 

= SI  N(  29.  5)  $2 


= 50  DEGREES 


$360 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZFRL  INA  BY  ZOROASTER 

L P.  60, RE? 


9:12  OCT.  21  .1970  ZFRLAID 
USER  'S  »AGF  NO.  13 


.001  PAGE 
E 6 S3 


*9  2 


052? 
0 520 

0 521 
0522 
0 523 


26,24  13  0 3c 70 

2f>,?414  3*344 

26,2415  Q00OO 
26,  2416  GCOOl 
26,2417  OOPCO 


0 VECANG2  20EC 

0 

1 1 BITOP  OCT 

0 DP  B-  1 4 OCT 

1 OCT 


.C9722222222 

D 

oooci 

30000 


= 35  DEGREES 

KEEP  THIS  BEFORE  DPB(-l4) 


S36D 

#***$***» 


Gap:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZC-RLINA  BY  ZOROASTER 


L R 60  » R62 


PO  524  ROUTINF  FOR  INITIATING  AUTOMATIC  MANEUVER  VIA  KEYBOARD  (V^«9  ) 


05?  5 
0 5?  6 
0527 

05  2 8 


RFF  1 

REF  12  LAST  489 


, 

>3,2000 
2?,  2 1C 2 
E6, 1 675 


BANK  34 
SETLOC  P62 
RANK 

EBANK=  8G0U 


0529  REF  1 
0533  REF  1 


23,  2103 


COUNT*  lt/R6  2 
R620ISP  EQUAL  S R62FLA  SH 


1531 
0532 
05  3 3 
0634 
0535 
r’  536 


RFF  1 
RFF  102 
RFF  6 
RFF  26 
REF  1 
RFF  2 


LAST  482 
LAST  386 
I A ST  382 

LAST  493 


23,2im  3 5010  0 R62FLASH  CAF 


2 3,  2 1 C 4 C 4616  1 TC 

23,  210  5 20477  1 CA[)R 

23,2106  1 5503  0 TCF 

23,  2107  1 2111  0 TCF 

23  ,2110  1 2103  0 TCF 


V06N22 
BANKC ALL 
30FLASH 
ENDEXT 
GOMOVE 
R 62FI  ASH 


AP5-1 R 
0539 
3543 


RFF  17  LAST  483 
REF  4 LAST  482 


23  ,21  11  0 5515  0 GdMOV  E 

23,  2112  C0124  P 


TC  JPFLAG 

AORES  3 AX  I S F Hi 


541  PFF  1 03  LAST  493 

0542  REF  ? LAST  345 


3543  PFF 


L AST  493 


23.2113  0 4616  1 

23.2114  54125  0 

23. 2115  1 5503  c 


TC  BANKCALL 

CADR  R60LEM 
TCF  ENDEXT 


30 
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USER  'S  PAGE  NC.  14 


FLASH  V06N22  AND 
ICOU  ANGLES 

TEPM  INATE 

PROCEED 

ENTFR 

ASTRONAUT  MAY  LOAD  NEW  ICDUS  AT  THIS 
PCI  NT 

SET  FDR  3-AXIS  MANFUVER 


END  RS  2 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERl  IMA  BY  ZOROASTER 
S-BANP  ANTENNA  FOR  LM 

SUBROUTINE  NAPE:  R 05  - S-BANC  ANTENNA  FOR  LM 


9:  12  CCT.  21  ,1970  ZFPLAIC  .001  PAGE  494 
USER  'S  R AGF  NO.  1 EO  S3 


FIJNFTTCNAL  TFSCPIPTICN 


* ?'  A THE  S-BAM)  ANTENNA  ROUTINE,  R05  , COMPUTES  AND  OISPLArS  THE  PITCH  ANO 

R2  3?5  yaw  ANTENNA  CIMRAL  ANGLES  KF0L1RED  TO  POINT  THE  L M STEERABLE  ANTENNA 
R ? 0 1;  6 TCWARO  THE  CFNTFP  CF  TEE  EARTE.  THIS  ROUTINE  IS  SELECTED  BY  THE  A STRO- 
P.?m  H/MJT  VIA  DSKY  ENTRY  DURING  C CASTING  FLIGHT  CR  WHEN  THE  LP  IS  ON  THE  MOON 

R20«1«  SURFACE.  TEE  EARTH  OR  MOON  RFFFRFNCF  COOROINATE  SYSTEM  IS  USED  OE  PE  NO  I NO 

*?C09  ON  WHF  THF  ° THE  LM  IS  ABOUT  TC  ENTER  OR  HAS  ALREACY  ENT  ER  FD  THE  MOON 

R2D1  SPHERE  OF  INFLUENCE,  RESPECTIVELY.  CAN  BE  CALLED  ANY  TIME  EXCEPT  WHEN 

R201  1 ANOTHER  EXTENDED  VERB  IS  IN  USE.  DISPLAY  IS  MEANINGLESS  WITH  IMU  OFF. 

*2011  TO  CAM  SLBRPUTINE,  ASTRONAUT  KEYS  I N V 64  E 

R?M2  SUBROUTINES  CALL ED- 


*20  4 INTPRFT 

R2:<  1 5 LOAHTIME 

R2nl6  LEPCOMC 

*2017  LUNPOS 

R201R  COUTRIG 

R 2019  *SPNB* 

* 2020  BANKCALL 

R2T21  R50FF 

R 2022  FNDOFJOB 

R?p?3  BLANKET 


R2024  RETURNS  WITH 


* F V . 
B 


BO 


R 20? 7 ERASABLES  LSEC 


R20?8  P I TC  HANG 

R2  ■)  2 9 ’YAWANC 

* 2030  R LM 

R2C31  VAC  AREA 


2032 

2033  REF 
2334 


LAST  2Q2 


4 1, 3775 
42 ,2  GUO 
42, 3614 


RANK  41 
SETLOC  S BAND 
BANK 


2035 
20  36 
2039 


PEE  1 

REF  2 LAST 

REF  30  LAST 


486  42,  3614 


SB  A NO  A NT  TC 


WHOCARE  S 
«.$/R05 
I N TPRET 


GAP:  ASSEMBLE  REVISION  56  OF  AGS  PROGRAM  ZERLINA  BY  ZOROASTER 
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L S-8AN0  ANTENNA  FOR  LM 


USFR'  S PAGE  NO.  2 E7  S4 


m 

2042  KFF 

2043  REF 
204*  REF 
2045 

2.146  REF 
2047  REF 
20  48 

2049  REF 

2050  RFF 

2051  REF 

2052 

20  5 3 RFF 
2354 

2055  RFF 

2056  RFF 

■ 57 

205ft  REF 

2059 

2060  REF 

2061 

2362  RFF 
2063 
20  64 

2065 

2066  REF 
2367 

2 f 68  REF 
2069 

2370  REF 

2071  RFF 

2072  REF 

2073 

2074  Pf-F 
2 "'75  REF 

2076  REF 

2077 

237?  RFF 
2079 

208C  RFF 
2 Oftl  REF 

20  82 

2383  REF 
2 OR*  RTF 

2085  RFF 

2086  RFF 

2087 

208ft  REF 
2 089 


5 

6 

2 

1 

1 

3 

1 

3 

1 

2 

1 

2 


ft 

2 

? 


10 


LAST 
I AST 
LAST 


LAST 

LAST 

LAST 

I AST 

L AST 


L AST 

L AST 
LAST 


LAST 

LAST 

l AST 


L AST 


LAST 
LAST 
LAST 
L AST 


I A ST 


42,3615 
42,  36  16 
38  5 42  ,3617 

344  42,  3620 

344  42,  3621 

42,3622 
42,  3623 
42  ,3624 
42  ,3625 
344  4 2,  36  26 

42  ,?6?7 
215  42,  3(30 

42,  3631 
42,3632 
42,  3(33 
1 ? 7 42  ,3634 

42,3635 
42,  3636 
495  42  ,3637 

42,  3(40 
42,  3641 
42  ,3642 
495  42,  3(43 

42  ,3644 
42  ,3645 
42,  3646 
42  ,3647 
4 : , 3650 
344  42,  3651 

42  ,3652 
30  A 42,3(5  3 

120  42,3654 

42 , ft  655 
42,  3656 
42  ,3657 
495  42,  3660 

495  42,  3661 

42 ,3662 
495  42,  36(3 

4?  ,3664 
42  ,3665 
405  42,  3666 

42  ,3667 
495  42,  3670 

495  42,  3671 

495  42,3672 

49  5 4 2,  367  3 

42  ,3674 
405  42  ,3675 

42,  3676 


oooci  0 
21555  1 
3 4 C 4 1 0 
27077  1 
46135  1 
COO  50  1 
65642  1 
77775  1 
00001  0 
16176  0 
CCC15  0 
77624  1 
33660  1 
74375  0 
02723  0 
24001  0 
c 3 3 7 2 1 
02176  0 
77(50  1 
65644  1 
77775  1 

cocci  0 

53401  I 
00001  0 
45076  1 
47535  1 
76521  C 
01732  0 
71206  0 
C6520  0 
02172  l 
26174  1 
77624  1 
47676  0 
16176  0 
02200  1 
45206  1 
02176  0 
77605  1 
25775  0 
16200  1 
41215  1 
02176  0 
25775  0 
26176  0 
C2176  C 
63256  0 
02176  0 
72431  1 


CON  V 3 


CCNV4 
C.ONV  5 


SET  PD  RTB 
OD 

LOADT  IME 
STCALL  TDEC1 

LEMCONIC 
SLTAD  PHIZ 

X2 

C0NV4 

V LOAD 

RA  TT 

STODL  3 L M 
TAT 

CALL 

LUNPOS 
VLOAD  VXSC 
VMODN 
REMDIST 
VSL 1 VAD 
RLM 

GOTO 

30NV5 

VLOAD 

RATT 
SETPD  UNIT 

0 D 

VOOMP  CALL 

CDUTR  IG 
MX  V VS  LI 

REF  SMMA T 
PUSH  DLOAO 

HI 6ZFRCS 
STORE  PITCHANG 
STOVL  YAWANG 
CALL 

*SMNR* 
STODL  RLM 

RLM  +2 
PUSH  DSU 
RLM 

OHP 


1 0VSQRT2 
STODL  RLM  f2 
DAD  DMP 
RLM 

10VSQRT2 
STOVL  RLM 
RLM 

UNIT  PDVL 
RLM 

VPP.OJ  VSL2 


PICK  UP  CURRENT  TIME 

ADVANCE  INTEGRATION  TO  TIME  IN  TDEO  1 
USING  COMIC  INTEGRATION 

X2  =3  EARTH  SPHERE,  X2  =2  MOON  SPHERE 


UNIT  POSITION  VECTOR  FROM  EARTH  TO  MOON 


MEAN  DISTANCE  FROM  FARTH  TO  MOON 


UF  = -UNIT  (RATT)  FART  F SPHERE 

UF  = -UNI  T(  (REM)  (UEM)  + RL)  MOON  SPHERE 

SET  PL  POINTFR  TO  0 

COMPUTE  SINFS  AND  COSINES  OF  CDU  ANGLES 
T P ANS  FORM  RFF.  COORDINATF  SYSTEM  TO 
STABLE  MFMPFR  8-1  X 9-1  X B+l  = fl-1 
80 


ZERO  OJT  ANGLES 


PRE-MULT  IPLY  RLM  BY  (NBSA  ) MATRIX(BO) 


R 


ft-  1 


PROJECTION  CF  R ONTO  LM  X Z PLANE 


GAP:  ASSEMBLE  REVISION  86  OF  AG C PROGRAM  2ERLINA  BY  ZOROASTER 


L S-8AND  ANTENNA  FOP  IP 


2090 

REF 

1 

42,3677 

C6514 

1 

HI  UNITY 

2 091 

■ , ri 

40045 

1 

3 VSU 

3 0 V 

2092 

REF 

1 1 

LAST 

495 

42.3  7C1 

02176 

0 

RLM 

2093 

PEF 

l 

42,  3 77? 

6 57C3 

0 

COVCNV 

2094 

42,  3703 

40C56 

0 

CDVCNV 

UNIT 

90V 

2095 

RFF 

1 

42  ,3  7^4 

65751 

1 

S BANOEX 

2096 

42,  170  5 

47206 

0 

PUSH 

vxv 

2097 

PFF 

1 

42  ,3706 

06512 

1 

HI  UN ITZ 

2.0  98 

42  ,3  707 

57572 

0 

VSL1 

VCOKP 

2 090 

PEF 

12 

1.  AST 

496 

42,  371o 

02176 

0 

STORE 

RLM 

2100 

42  ,3711 

63241 

0 

DOT 

PDVL 

210  1 

P FF 

? 

LAST 

496 

4?,  1712 

065  14 

1 

HI  UNI  TY 

2 1 o2 

PEF 

13 

LAST 

496 

42,  3713 

02176 

0 

RLM 

2103 

42  ,3714 

75246 

0 

ABV  AL 

S IGN 

2 1 , 4 

42, 3715 

7 7736 

0 

A SI  N 

2105 

PEF 

3 

LAST 

495 

4?  ,3716 

26172 

1 

STDVL 

P ITCHANG 

2K-6 

REF 

1 

42 ,3717 

0000  7 

0 

URP 

2107 

4 2,  3 7 20 

5 1041 

0 

DOT 

R PL 

2 1 o f) 

REF 

2 

LAST 

496 

4?  ,3721 

06512 

1 

HIUN  ITZ 

2109 

RFF 

1 

4 2,  3722 

65727 

0 

NOADJUST 

2110 

42,  3723 

45345 

1 

DLOAD 

DSU 

211  1 

REF 

4 

LAST 

491 

42,3724 

06516 

0 

HIDPHALF 

2112 

RFF 

4 

L AST 

496 

42,  3725 

C2172 

1 

PI  TOH  ANf, 

2113 

RFF 

5 

LAST 

496 

42  ,3726 

02172 

1 

STORE 

P ITCHANG 

2114 

42,372  7 

47375 

0 

NC AD JUST 

V LOAD 

VXV 

2115 

PEF 

1 

42,  3730 

00001 

0 

UR 

2116 

RFF 

2 

LAST 

496 

42  ,3731 

00G07 

0 

JRP 

2117 

42,  3732 

77772 

0 

VS  LI 

21  Ip 

REF 

1 4 

LAST 

40  6 

42,  37  33 

1 61  76 

0 

STOOL 

RLM 

21  1R 

RFF 

6 

LAST 

496 

42 ,3734 

02  1 72 

1 

P ITCHANG 

2120 

42,  3735 

74  2 56 

1 

SI  N 

VXSC 

2121 

REF 

3 

I AST 

496 

42  ,3736 

06512 

l 

HIUN  ITZ 

2122 

42  ,3737 

71525 

0 

POOL 

COS 

2123 

PEF 

7 

1 AST 

496 

4 2, 3740 

02  172 

1 

PI  TCHANG 

2124 

42  ,376  1 

52361 

1 

VXSC 

VSU 

2125 

PFF 

l 

42, 3742 

06516 

0 

HI  UNIT X 

2126 

42,  3743 

63241 

0 

DOT 

PDVL 

2127 

RFF 

15 

LAST 

496 

42  ,3744 

02176 

0 

PLM 

2 L 28 

REF 

16 

1 AST 

496 

42, 3745 

C 2 1 76 

0 

RLM 

2129 

42  ,3746 

75246 

0 

A9VAL 

S IGN 

2130 

4?  ,3747 

77736 

0 

AS  IN 

2131 

REF 

2 

L AST 

49  5 

42,  7750 

02  174 

1 

STORE 

YA  WA  NG 

213? 

42  ,3751 

77776 

1 

S BAND  EX 

EX  IT 

2133 

R EF 

8 

LAST 

30  5 

4 2,  37  52 

3 1043 

1 

CA 

EXTVBACT 

21.34 

REF 

34 

I.  AS  T 

47  3 

42,  3753 

7 4747 

0 

M4  SK 

31  T 5 

2135 

42  ,3754 

C 0006 

1 

EXT  END 

2136 

REF 

31 

1 AST 

493 

42,  37  55 

l 5503 

0 

BZF 

ENOEXT 

2 136  2 

RFF 

4 

LAST 

304 

42,3756 

3 50  17 

1 

OAF 

PRIO  5 

21  364 

REF 

7 

LAST 

483 

42,3757 

C 5146 

1 

TC 

PRIOCHNG 

2137 

REF 

1 

42,  3760 

3 3773 

1 

C.AF 

V06N51 
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USER'S  PAGE  NC.  3 E7  S4 

CLEAR  OVERFLOW  INCICATOR  IF  ON 

F XI  T ON  OVERFLOW 

URP  VECTOR  R-1 

UZ  X JRP  = -(URP  X UZ) 

X VEC  R-1 

SGN  ( X.  UY)  UNSCALFD 

AS1NI  (SGN(X  .JY  ) )ABV  (X  ) ) REV  BO 


YES,  -90  TO  +9  0 


Z = (UR  X URP) 

Z VEC  B-l 


(UX  COS  ALPHA)  - ( U7  SIN  ALPHA) 
YAW.  Z 


IS  BI  T5  STILL  ON 
NO 


DISPLAY  ANGLES 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L S-BAND  ANTENNA  FOR  LM 


9:  12 


OCT.  21 ,1970  ZERLAIP 
USER  'S  PAGE  NO.  4 


.001  PAGE 
E7  S4 


497 


2140 

2141 
214  2 
214  3 

2144 

2145 

2146 
214? 

2150 

2151 

2151 

2152 

2153 

2154 


REF  4 
KEF  5 
RFF  66 
RFF  23 
RFF  R 
REF  4 
RFF  8 
REF  2 


LA  ST 
L AST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
LAST 
I AST 


493 
30  4 
304 
497 
48  3 
465 
30  4 
304 
496 
205 


42,3761 
42,  3762 
42  ,3763 
42, 3764 
42,  3765 
42  ,3766 
42, 3767 
42  ,3770 

42 .3771 

42. 3772 
42  ,3773 

42. 3774 

42. 3775 
0000 
COC  6 

30  ,2000 


C 5574  1 
C 5574  1 
C 5155  0 
3 4751  0 
C 5475  1 
3 4740  0 
C 5 146  1 

0 3614  1 
01463  1 
265C1  l 
C7463  1 


BANKCALL 
SO  MAR  KF  R 
B50FF 
R5  CFF 
ENOOF  JOB 
B IT  3 
BLANKET 
PR  104 
PRIOCHNG 
S3AN0A  NT 
0651 

.7071067815 

EQUALS  0 0 
EQUALS  6D 
S BANK  = LOWSUPER 


TEP  MINA TE 

PROCEED 

RECYCLE 

IMMEDIATE  RETURN 
BLANK  R3 


YES,  CONTINUE  DISPLAYING  ANGLES. 
1/SORT  (2) 


END  OF  Z ERL  A ID  .00  1 *** 


ASSEMBLE  PEV  IS  ION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 
RADAR  LEAOIN  RCUT I NES 


0002 
000  3 


BANK  IS 
SETLOC  RRLFADIN 
BANK 


0007 

00r'R 

9999 


PEF  7 I AST  321 

RADAR  SAMPLING  LOOP. 
REF  I 

REF  7 LAST  284 

PEF  IS  LAST  476 


IS,  29  50 
1 S, 2051 
, 


1 1* 770  1 
1 2053  1 
1 5272  1 


FflANK=  PSTACK 


COUNT*  St/RLEAD 
ADSAMP  CCS  PSAMPDT 

TCP  *2 

TCF  TASKCVFP 


0010 
00  12 

0013 

0014 
3015 
OOl  6 
0016 
9317 
OOl  R 

or  ip 
oc2o 
0021 
3322 


RFF 
R EF 
RFF 
RFF 
PEF 
REF 
RFF 
REF 

REF 

RFF 

RFF 

PEF 


48  LAST  484 


LA  ST 
L AST 
LAST 
LAST 


2R3 

284 

2A3 

4^8 


• 

1 5 ,2054 
15,  2055 
15  ,2056 
E 4,  1 571 
15,2057 
1 5 ,2C60 
15,  20t  1 
L 5 ,2062 
15,206  3 
15,  2064 
15  ,2065 
15,  2C66 


C 5204  1 
020  50  0 
2 7725  0 

0 507?  1 

02003  0 
52064  1 
I-  4 7 36  1 
0 0006  1 
7 1767  1 
6 1766  1 
55' 764  1 

1 5272  1 


TC  TWIDDLE 

ADRES  R ACS  AMP 
CAF  PR  I 025 
TC  VOVAC 

E B A NK=  RSTAGK 
2CADR  30RSAMP 

CAF  BIT14 
EXT  EN  0 

MP  RTSTLOC 

AD  RTSTBASE 

TS  RTSTDEX 

TCF  TASKOVFP 


00222 

90223  PEF 
33224 


25,2003 
? 5 ,2  OCO 
25,  2'1  C3 


BANK  25 
SETLOC  DRSAMP 
BANK 


DO  THE  ACTUAL  RADAR  SAMPLE. 


E8ANK=  R STACK 


25,200  3 
25,2004 
2 5,  20C5 


0 2040  1 
C 4616  1 
17713  1 


TC  VARADAR 

TC  BANKCALl 

C AO  R RADSTALL 


002  7 

0028 
93  281 

002  82 
0028? 
00264 


LAST  281  25,2006  25'566  0 


INC  R RFAILCNT 


REF  15 
PFF  3 
PEF  162 


LAST  4R  2 
LAST  285 
LAST  484 


25  ,2007 
25,  20  10 
25  ,291  l 
25,2012 
25,  20  13 


0 0004  0 
2 oinl  i 
7 4741  0 
1C  COO  C 

1 20  30  1 


DGRSAMP2  INHINT 
CA 
MASK 
CCS 
TCF 


LAST 
L AST 
LAST  498 


25  ,2016  5 3 ' 57  2 1 


S AMPLSUM 
RTSTLOC 
R STACK 


9:12  CCT.  21,1670  ZLEMP20S  .93 1 
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USER  • S PAGE  NO.  I EO  S? 


TIMES  NORMAL  ONCE-PFR-SFCOND  SAMPLING. 
♦0  1NSEPTFD  MANUALLY  TERMINATES  TEST. 


FOR  CYCLIC  SAMPLING,  RTSTDEX  = 
R TSTLOC  / 2 + R TSTBASE 

0 FCR  RR,  2 FOR  LP. 


SFLFCTS  VARIAHLE  RACAR  CHANNEL. 


ADVANCE  FAIL  COUNTF.R  BUT  ACCEPT  BAD  DATA 


DON'T  UPOATE  RST  ACK  IF  IN  R77 


GAP:  ASSE  NR  IF  REVISION  56  OF  AGC  PROGRAM  7.ERLINA  BY  ZOROASTER 


RADAR  LEAOIN  ROUTINES 


0 T 3 1 1 

REF 

33 

L AST 

478 

25,  20  17 

3 0 110 

1 

CA 

RADMODE  S 

0031  2 

25  ,2020 

0 0006 

1 

EXTEND 

0031  3 

REF 

7 

1 A ST 

424 

25,2021 

06  033 

1 

RXCR 

CHAN33 

0031  4 

REF 

37 

L AST 

470 

25,  2022 

7 4746 

1 

MA  SK 

B I T6 

0031  5 

25  ,2023 

0 0006 

1 

EXT  END 

33316 

REF 

2 

LAST 

498 

25,  2C24 

1 2C30 

1 

BZF 

R77  I N 

0031  7 

REF 

20 

LAST 

393 

25,2025 

0 5600 

1 

TC 

ALARM 

00318 

25,2026 

00522 

1 

OCT 

522 

3031  9 

REF 

3 

l AST 

4 98 

25,  2027 

2 5 ' 566 

0 

I NCR 

PFAI  LCNT 

003  5 

RFF 

8 

LAST 

498 

25  ,2030 

4 1767 

1 

R77IN 

CS 

3 T STL  or 

0039 

REF 

2 

LA  ST 

282 

• 

6 1765 

1 

AD 

RTSTNAX 

ooa  r 

25,  20  32 

0 0006 

1 

E XTEND 

0041 

25  ,2033 

1 2036 

1 

BZF 

+ 3 

33  4? 

REF 

6 

LAST 

499 

2 5,  2034 

3 1767 

0 

CA 

KTSTLCC 

0043 

REF 

32 

LAST 

466 

25,2035 

6 4752 

0 

AD 

TWO 

0044 

RFF 

7 

LA  ST 

499 

25,2036 

55' 767 

1 

TS 

PTSTLOC 

3345 

RFF 

67 

1 AST 

497 

25,  2037 

1 5155 

1 

TCF 

ENDOFJCB 

R 0056 

VARI ABLE 

RATAR 

DATA 

CALLFR  FCR  CNE  MEASUREMENT 

ONLY  . 

0057 

REF 

59 

LA  ST 

478 

25,2040 

3 47  53 

1 

VARADAR 

CAF 

ONE 

0C58 

RFF 

5 

LAST 

48  2 

25,  204  1 

133 

1 

TS 

3 OF  2 

0059 

REF 

5 

LAST 

498 

25,2042 

51' 764 

0 

INDEX 

RTSTDEX 

3363 

REF 

l 

25,  2043 

? 2C45 

1 

CAF 

PORLOCS 

0061 

RFF 

2 

LAST 

375 

25,2044 

1 4622 

1 

TCF 

SWC  ALL 

0062 

RFF 

1 

25,2045 

53072 

l 

RORLCCS 

CADR 

RRRANGE 

3363 

PCF 

1 

25, 2046 

c 30  70 

0 

CADR 

RRRDOT 

0064 

RFF 

1 

25  ,2047 

53066 

1 

CADR 

LR VEL  X 

0065 

RFF 

1 

25,2050 

5 30  64 

c 

CADR 

LRVFLY 

0066 

REF 

1 

25,  2051 

5 3062 

0 

CADR 

LP  VE  LZ 

0067 

REF 

1 

25,2052 

53060 

1 

CACR 

LR  ALT 
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USER  'S  PAGE  NO.  2 E4  S3 


CYCLE  PTSTLOC 


STORAGE  I S OP 

CONTINUOUS  SAMPLING  AND  2n  TRIES  - GOVE. 


Will  RE  SENT  TO  RAOAR  POUTINE  IN  A BY 
SWC ALL. 

NOT  TOUCHING  0. 


= 0 
=1 

= 2 
= 3 


GAP:  A S St  MB  LF  REVISION  66  OF  AGC  PKCC-FAH  2ERLINA  BY  ZOROASTER 


9:  1?  OCT.  21,  1970  7LFMP2OS.0G1 
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L P20-P25 


USER'S  PAGE  NC. 


EC 


S3 


POOr  1 
ROOO? 
P.333  3 

■ 

R0005 
R00P6 
» ' ' 7 
R333B 
R0009 
3 001' 
R33  1 1 
R "1012 
ROO  I 3 
R00l4 
I OC  1 5 
ROUS 
ROO  7 
3 00  l fl 
ROO  1 9 
R 002n 
' 

R3322 
3 00  23 
R 0 r-  ? 4 

R002S 
3 0026 
10.3  27 
R or  28 
3 00  29 
R3033 
ROO  31 
R 3032 
ROC  3 3 
3 Of  34 
R333S 
R0036 
0037 


PFN0E7VCLS  NAVTGATICN  PROGRAM  20 

PROGRAM  OESCF  IPTFON 

MOO  NO  - 2 

°Y  P.  VOLANTE 

FUNCTWNA!  OF  SCR IPTION 

THE  Pl'RPGSF  CF  THIS  PROGRAM  IS  TC  CONTROL  THE  R EN  DE7V0JS  PAOAR  FR  0M 
STARTUP  THROUGH  ACQUISITION  AND  LOCKON  TO  THE  CSM  AND  TC  UPDATE  EITHER 
THE  L M C<i  CSM  STATE  VECTOR  (AS  SPECIFIED  RY  THE  ASTPONAUT  BY  DSKY  ENTRY) 
ON  IMF  BASIS  OF  THF  RR  TRACKING  CATA. 

CALL  ING  S FQIJCNCE  - 


FL  AGUP 
F LAGOCWN 
BANKCALL 
TASKOVFP 


ASTRONAUT  REQUEST  THROUGH  DSKY  V37E20E 
SUBPOUT  INES  f Al  I FD 

P 2B0TH  (I  MU  STATUS  CHECK) 

GOFLASH  (PINBALL-DISPLAY) 

P23LFM  (MANUAL  ACQUISITION) 

LS2CI  (LOS  OF  TERMI  NATI  CN) 

LS  202  (RANGE  L IM  I T TE  ST  ) 

R6ILFM  (PFEFEPRFC  TRACKINC  ATTITUDE) 

R21LEM  (RP  DESIGNATE)  ENDCF  JOB 

R22LEM1  (CATA  READ)  GOPERFl 

P 31  LF  M (RFNPEZVCUS  PARAMETER  C IS  PI.  AY  ) 

PPIOLAPM  (PRIORITY  DISPLAY) 

NCRMAL  EX  IT  MCCES  - 

P2f  MAY  RF  TERMINATED  IN  T Vv  C V,  AY  S- AST  RON  AUT  SELECTION  OF  I DL  ING 
PROGRAM  (POO)  BY  KEYING  V37ECCF  OR  BY  KEYING  IN  V56E 
ALARM  r R ABORT  FX I T MCDfcS- 

RANGF  GREATER  THAN  400  NM  DISPLAY 
OUTPUT 

TRKMKCNT  = NC  OF  RENDEZVOUS  TRACKING  MARKS  TAKEN  (COUNTER) 
ERASABLE  INITIALIZATION  REQUIRED 
FLAGS  S FT  * RESET 

SRCHCPT  .RNDVZFLG  , ACVCDFLG,  VEPUPFLG,UPCATFLG,TR  ACKFLG, 

DEBR  IS 

CENTRA!  S-A  , Q,  L 


REF 


LAST  497  30,2000 


S R ANK=  LOWSUPER 


FDR  LOd  2CADR  ' S . 


003  8 

0039  RFF 
3343 


3 3f  20  31 
24  ,2000 
24, 2000 


BANK  33 
S ETLOC  P20S 
BANK 


0041  RFF 

0042  RFF 
33421  REF 

0043  RFF 

A A 

004  5 
0046 

3347  RFF 


P LAST  275 
1 

2 LAST  241 

1 


1 


E7.1456 

24,  2000 
24 ,2000 
’4 , 200  1 
24,  200  2 
24  , 20C  3 
24, 20C4 


C 5340  0 
00004  0 
0 5022  1 

26000  0 
C 2752  0 


PROG  22 
PRQG20 


ebank= 

COUNT* 


TC 
OCT 
OC  T 


L Q SC  0 UN  T 
SS/P2  0 
PROG20 
2P  HSC  HNG 

05022 


OCT  26000 

TC  LUNSFCHK 


PRIORITY  26 

CHFCK  IF  ON  LUNAR  SURFACE 


G AP : ASSEMBLE  REVISION  5b  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P25 


004B  RFF  1 

3 3 49  REF  1 

0050  REF  1? 

0051  RFF  3 

335?  REF  60 

0053  REF  1 

0054  REF  1 

0055  REF  106 

0056  REF  1 

3357  RFF  4 

0058  RFF  1 

0050 

3063  REF  61 

0061  RFF  2 

0062 

0063  REF  2 

0064  RFF  1 

3265  REF  107 

0066  REF  7 

OF  67  RFF  5 

33  SB  RFF  1 

0060 

0070  REF  31 

0071 

0072  RFF  1 

3373 

0074  REF  1 

0075 

3376  REF  1 


LAST  493 
LAST  294 
I AST  499 


LAST  498 
LAST  483 


LAST  501 
LAST  501 

LAST  50  1 

LAST  50  1 
LAST  49  3 
LAST  501 


LAST  494 


24,2005 
24, ?0C6 
24, 20C 7 
24,2  91  0 

24,  20  11 
24  ,20  1? 
24,2013 
24,  20  14 
24,2915 
24,  2016 
24,2017 
24  ,7020 
24, 2021 
24  ,2022 
24,2923 
24,  2024 
24,2025 
24,  2026 
24,2027 
24,2030 
24,  2q 3 1 
74  ,2 ° 3 ? 
24,2033 
. 

24  »7U  35 
32, 2217 
37,2000 

37,3113 


C 2007  1 
C 2C36  0 
0 5515  0 
00026  0 

3 4753  1 
55 ' 144  0 
- 4363  C 
0 46  1 6 1 

20634  1 
C 6CC1  0 
0 2021  0 

0 2013  1 

4 4753  C 
6 1144  1 
C CCC6  1 

1 2040  0 
3 2367  1 
C 4(16  1 

20477  1 
0 6001  C 
C 2C  3 3 0 
0 2025  1 
C fcC  51  C 
77(50  1 
77113  1 


ORBCHGO 


ORBCHG  1 


CRPCHG2 


TC  ORBCHGO 

TC  PRCG2  0A 

TC  UP FLAG 

AORES  VEHUPFLC 

CAF  ONE 

TS  OPT  ION  2 

CAF  OCT00012 

TC  8ANKCALL 

CADK  G0PERF4 

TC  GOTCPOCH 

TC  ORBCHG  1 

TC  -5 

CS  ONE 

AD  OPT  ION  2 

EXTEND 

BZF  PR0G20A 

CAF  V06N33* 

TC  BANKCALL 

CAD*  GOFLASH 

TC  GOTOPOOF 

TC  0RBCHG2 

TC  - c 

TC  INTPRET 

GOTO 

DRRCHG3 
BANK  32 

SET LOG  P20S4 

BANK 

COUNT*  t f / P2 0 


0077 

0078  RFF 

0079 

C080  RFF 
33831  RFF 
OORl  REF 

008? 

3383  REF 
C084  RFF 

0085 

0086  RFF 

0087  RFF 
3388 

0089  RFF 

0090 

3391  REF 

0092 

0093  RFF 

0094  RFF 
C095  RFF 


1 

3 

2 

3 

1 

2 

2 


LAST  302 

I A S T 311 
LAST  152 
LAST  40  5 

LAST  244 


L AS  T ?4  3 
LAST  24  3 

LAST  24  3 


LAST  216 
LAST  152 
LAST  495 


37,3113  77624 

37,3  1 14  274K 

17,3115  ?7?45 

37  ,3116  03442 

17,3117  C 366 1 
37,  3120  00041 

37.3121  43014 

37.3122  C 1 674 

37.3123  01673 

37.3124  43014 

37.3125  01676 

37.3126  01675 

37.3127  77624 

37. 3130  27133 

37.3131  77624 

37,1132  11216 

37  ,3133  77775 

37,3134  00017 

37,  3 1 35  17(31 

37  ,3136  00015 


0RBCHG3 


CALL 

1NTST ALL 

DLOAD 

T IG 

STORE  LNCHTM 
STORE  TDEC  1 
CLEAR  CLEAR 

VI  NTFLAG 
IN  TYPFLG 
CLEAR  CLEAR 

91  M<T  LAG 
D60R9FLG 

CALL 


CALL 

VLDAD 


INTFGRV 
G RP2  PC 


STOOL 


RATT1 

R SUB  L 
TAT 
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YES 

NO  - CONT  INUE  W IT  H P20 

SET  VFHUPFLG  - CSM  STATE 

VECTOR  TO  RF  UPDATED 

SET  R2  FOR  OPTION  CSM  WILL  NOT 

CHANGE  PRF  SENT  ORBIT 

DISPLAY  ASSUMED  CSV  ORBIT  OPTION 
T FRMINAT  E 

PROCEED  VALUE  OF  ASSUMED  OPTION  OK 
R 2 LOADED  TH*'J  DSKY 


FLASH  VERB-NOUN  TO  REQUEST  ESTIMATED 

TIME  OF  LAUNCH 

TERM  INATE 

PROCEED  VALUES  OK 

TI  ME  LOADED  THRU  DSKY 


ESTIMATED  LAUNCH  TI  MF 

L M INTEGRATION 
PP.ECI  SI  ON  - ENCKE 

NC  W-MATRI X 


PLANETARY  INERTIAL  ORIENTATION 


SAVE  LM  PCS  IT  I CN 


GAP:  ASSEMBLE  RE  VI  SIGN  56  UF  AGO  PRC'GRAM  ZERLINA  BY  ZOROASTER 

L P20-P25 


0096 

PEF 

8 

l AST 

50  1 

17, 3137 

34C41 

0 

STCALL 

TO  EC  1 

0097 

REF 

5 

LA  ST 

501 

37  ,3  140 

27410 

1 

INTSTALL 

0393 

37,  3 141 

* 3C14 

G 

SET 

CLEAR 

0099 

RFF 

5 

LAST 

50  1 

17, 3142 

01474 

1 

VI  NTF  LAG 

C 100 

RFF 

2 

LA  ST 

501 

37 ,31 43 

Cl  673 

1 

IN'TYPFLG 

■)  l*1 1 

17,  3 144 

43014 

0 

C LEAR 

ROFF 

0102 

REF 

4 

LAST 

501 

17  ,314  5 

01676 

1 

OIMCFLAG 

0 10  3 

P FF 

3 

LA  ST 

24  3 

37,3146 

02756 

1 

RENOWFLG 

01  04 

PEF 

1 

37,  3 14  7 

77153 

0 

NPWMA  TX 

0105 

37  ,3150 

43014 

0 

SET 

SET 

0106 

PEF 

5 

LAST 

502 

37,  3 15  1 

C l 4 76 

0 

0 1 MO  F L AG 

0107 

RFF 

3 

LAST 

50  1 

37,  3157 

Cl  475 

0 

■3  60P  9FLG 

0108 

37,3153 

77624 

1 

NCWMATX  CALL 

0109 

REF 

4 

l AST 

501 

37,  3 1 c4 

27133 

0 

I NTFGRV 

0110 

37  ,3  155 

77624 

1 

CALL 

0 111 

REF 

2 

l A ST 

501 

37,3  156 

11216 

1 

GRP2PC 

0H2 

37,  3157 

77775 

1 

VLOAO 

' 1 1 3 

P FF 

6 

I A ST 

71  6 

17  ,3160 

00025 

0 

V ATT  1 

31  I A 

PEF 

1 

37,  3 161 

25757 

0 

STOVL 

VSUBC 

oils 

RFF 

1 

LAST 

50  1 

37,3162 

000  17 

1 

PATTI 

? 116 

PEF 

1 

37,3163 

GL101 

0 

STCRE 

p.suec 

3117 

17,  3 164 

' 34  35 

0 

VXV 

UNI  T 

0118 

RTF 

2 

LAST 

502 

37  ,3165 

01757 

0 

VSUBC 

')  1 19 

37  ,3  166 

24025 

STOVL 

20  0 

C 1 2 0 

PFF 

3 

L AST 

50  1 

37,  3167 

0 36  3 1 

0 

R SUB  L 

0121 

37  ,3  170 

53435 

0 

VXV 

UN  IT 

3 122 

37, 3171 

CCC25 

0 

20D 

121 

REF 

2 

LAST 

152 

37,  3172 

27637 

0 

STOVL 

UC  SM 

0 124 

RFF 

2 

LAST 

502 

37,31 73 

01  101 

0 

RSUBC 

3125 

37,  3 174 

50256 

0 

UNI  T 

OOT 

0126 

REF 

3 

LAST 

502 

37  ,3175 

03637 

0 

UCSM 

0127 

37,3  176 

77752 

1 

SL1 

0128 

REF 

2 

l AST 

129 

37, 3 177 

02  732 

c 

STORE 

: STH 

0129 

37  ,3200 

44316 

0 

DSQ 

HDSU 

3 13^ 

PFF 

1 

37,  32C  1 

C6  5 1 0 

c 

ONE  P-2 

0131 

37, 3202 

77766 

0 

SORT 

0 132 

REF 

2 

LA  ST 

129 

37,3203 

26730 

1 

STOVL 

S NT  H 

3133 

PFF 

3 

L AST 

50  2 

37,  32C4 

C11C1 

0 

RSUBC 

0134 

REF 

1 

37  ,3205 

26655 

0 

STOVL 

R V EC 

0 135 

REF 

3 

LAST 

502 

37.32C6 

01757 

0 

VSUBC 

01351 

17,  3207 

77676 

0 

VC  (IMP 

0136 

REF 

2 

LAST 

129 

37  ,3210 

02744 

1 

STORE 

V V EC 

3137 

37,  3211 

45C14 

0 

CLEAR 

CALL 

013  8 

REF 

1 

37,  3212 

03666 

1 

RVSW 

0139 

RFF 

1 

37,3213 

24732 

1 

T I MET  HET 

31391 

37,  3214 

77676 

0 

VC  CMP 

0140 

REF 

2 

LAST 

152 

37  ,32  15 

03645 

0 

STORE 

NEWVEL 

0 140  1 

37,3216 

77745 

1 

OLOAD 

01402 

PEF 

1 

37, 3217 

00C37 

0 

T 

01403 

REF 

2 

LAST 

152 

37  ,3220 

27663 

1 

STOVL 

TP.ANSTM 

9:  12  O:  T.  2l»l«7C  ZLFPP20S.O0I  PAGE 
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502 


CSM  INTEGRATION 


rf  MATRIX  VALIO 
NO 

YE  S - SET  EOT  W MA  TP  I X 


CSM  INTEGRATION 


SAVE  CSM  VELOCITY 
SAVF  CSM  POSIT  ION 

COMPUTE  NORMAL  TO  CSM  ORBITAL  PLANE 
NSUB1=UNI  T<  PIC  MI  CROSS  VICM) 

SAVF  NSUBI 

COMPUTE  FST  I MAT  EO  CRB  IT  AL 
PLANE  CHANGE 

UCSM  = UNIT  IRILM)  CROSS  NSUBU 

COMPUTE  ANGLE  BETWEEN  UCSM 
ANO  RSURC 

COS  A = UCSM  DOT  UNIT  (R(CMI) 

SAVt  DOE  TIME-THETA  SUBROUTINE 
COMPUTE  SINE  A 


SAVE  FOR  TIME-  THF  T A SUBROUTINE 
POSITION  OF  CSM  AT  EST  . LAUNCH 
TIME  FOR  TIME-THETA  R-27 
VFLOCITY  OF  CSM  AT  EST.  LAUNCH 

TIME  FOR  TIME  THETA  B-5 


TERMINAL  VELOCITY  CF  CSM 


TRANSFER  TIME 


AP:  ASSF  MRI.E  REVISION  56  CF  AGf.  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  0:T.  21  f 1970  ZLEMP2CS.0C1  PAGE  503 


L P20-P25 


JS  EP  'S  PAGE  NO . A E7  S3 


OH  04 
0141 
31411 
0H2 
143 
3144 
0145 

0 146 

01  W 
014  3 
914  9 
Cl  50 
0151 
D 15? 

C 1 53 

1164 

0155 

01551 

3155 

Cl  57 

1 ISB 
3 163 
0160 
0 161 
0162 
01621 
31622 
0U3 

0 164 
3165 
0166 
0167 

01  6 8 
0169 
3173 
(I  71 
0 172 


REF  3 L AS  T 


PFF  2 LAST 

REF  4 LAST 

REF  3 l AST 


RFF  1 

RFF  3 LAST 

PEF  7 LAST 

PEF  3 LAST 

PFF  0 LAST 

REF  7 LAST 

REF  4 LAST 

PFF  4 1 A ST 

REF  2 I AST 

REF  ? LAST 

REF  ? I A ST 

RFF  1 


RFF  2 LAST 
REF  1 


REF  1CP  LAST 
RFF  3 LAST 


RFF  2 LAST 
PFF  2 LAST 


502  37,  322  1 

37,3222 
37, 1223 
37,  3224 
152  37,3225 

37, 3226 
502  37  ,3227 

37,3230 
40  3 37,  323  1 

37  ,3232 
37,  3233 
37,  3234 
502  37,3235 

27,  3236 
502  37  ,3237 

37,3240 

6:  2 37,  3241 

S.:i  37  ,3242 

325  37,  3243 

53  3 37,  3244 

326  37,3245 

l L 3 37,  3246 

50  3 37  ,3247 

1 1 3 37,3250 

37,  3 251 
37  ,3252 
37, 3253 
37  37,  3?  54 

37 , 3 ? 55 
37,  3256 
37  ,3257 
501  37,3  260 

50  1 37,  3 26  1 

24  ,2036 
500  24,  20C0 

24,2036 
500  TG  501 : 


03645  0 
77646  0 
24C25  0 
00001  0 
03653  1 
5 3435  0 
03631  0 
53435  0 
036  53  1 
76561  1 
CCC25  0 
37665  C 
11216  1 
77624  1 
274 1C  1 
44345  0 
0366  3 1 
03661  0 
25517  C 
03653  1 
01535  0 
2 5 5C  3 0 
03665  1 
35511  1 
27705  0 
45174  1 

CfCC2  0 
26660  0 
77624  1 
27417  U 
77776  1 
0 4616  l 
50C40  0 


30  30* 


NE  WVE  L 

ABVAL 

STOVL  200 
OD 

STORE  NEWPOS 
VXV  UNIT 

R SUBL 

VXV  UNIT 

NE  WPOS 
VX SC  VSL  1 

200 

STCALL  NCSMVEL 
GRP2PC 

CALL 

INTSTALL 
OLOAD  BOSU 

TRANSTM 
LNCHTM 
STCVL  TET 

NEWPOS 
STOKE  RCV 
STQVL  RRECT 

NCSMVEL 
STCALL  VRECT 

Ml  NI RFC  T 
AXT, 2 CALL 
2 

ATOPC  SM 

CALL 

I NTWAKEO 


FX  IT 

TC  BANKCALL 

CADR  PPOC.20A 

BANK  24 
SETLOC  P20S 
HANK 

COUNT*  t$/P?0 


TERMINAL  POSITION  OF  C SM 
COMPUTE  NORMAL  TC  CSM  ORBITAL  PL  AN  F 
NSUR2  = UNITCNEWPCS  CROSS  R ( LM)  ) 
ROTATE  TERMINAL  V EL  INTO  DESIRED 
ORRJTAL  PLANE 

VSURC  = ABVAL  ( Nfc  WVE  L)  * UNIT!  NSUB2 
NEW  CSM  VELOf  I TY 


LAUNCH  TIME  - TRANSFER  TIME 


0 1 74 
0175 
*76 
0177 
0173 
Ol  7<> 
mo 
omi 
( 182 
9 133 
[>1  84 


RFF  105 
REF  2 
RFF  19 
REF  ? 
RFF  ?0 
REF  2 
RFF  21 
RFF  2 
REF  34 
RFF  2 


l AST  4«2 
LAST  4.'i 
IAST  c-3 
LAST  34  4 
LAST  50  1 
LAST  292 
LAST  50  3 
I AST  2 92 
LAST  5 • * 3 
LAST  292 
IAST  593 
LAST  29  2 


2 4,  20  36 
24  ,2037 
24,204 0 
74,  20  4 1 
?4 , 2 042 
24,  204, 3 

24. 2044 

24.2045 
24,  2046 
24,2047 
24, 205C 
24,  2C  5 1 


C 5527  1 
000  26  0 
C 4616  l 
1124,1  0 
C 5515  C 
0CC27  1 
0 5515  0 
09031  0 
0 5515  0 
00010  0 
C 5527  l 
00037  0 


TC  DOWNFLAG 

ACRES  VEHUPFLG 
PRCG?OA  TC  BANKCALL 

CADR  R 0 2B O TH 
TC  JPFLAG 

AORES  UPOATFLG 
TC  UP FLAG 

ACRES  T RACK  FL  G 
TC  UP  FLAG 

AORES  RNOVZFLG 
TC  DOWNFLAG 

ADRES  SRCHOPTN 


RESET  VEHUPFLG-  LM  STATE  VECTOR 
TO  RE  UPDATFP 

SET  UPDATE  FLAG 
SET  TRACK  FLAG 
SET  RENDEZVOUS  F I AG 
INSURE  SEARCH  OPTION  OFF 


GAP:  ASSEMBLE  REVISION  S6  OF  AGC  PROGRAM  ZFPLINA  BY  ZOROASTER 


P2< 


P25 


r185  REF  35 

cIh*  pff  i 

0187  PEF  36 

D1R9  PFF  4 

PIRO  RFF  37 

0190  RFF  3 

Dl9l  PFF  3p 

019?  RFF  1 

C 1 93  REF  5 

Qlo  4 PFF  2? 

01945  PFF  1 

7195  PFF  6 

0196. 

0107  PFF  IF  7 

Cl  98  PEF  1 

0199  RFF  3? 

3230 

n2r.1  rff  6 

020?  REF  « 

3233  REF  l 

0209 

0 20  5 RFF  1 

0?06 

0207  RFF  292 

323R 

0209  RFF  1 

0210  REF  33 

3211 

C212  RFF  1 

0213 

02 1 A REF  1 

0215  RFF  3 

3216 
02162 

02169  RFF  1 

32166  REF  1 

02168 
32169 

0217  REF  3 

0218  REF  2 

3219  RFF  2 

0220 

3221  REF  2 

3222  REF  1 

0223  RFF  9 

0229  REF  l 

02292 

02294  RFF  4 

32246  REF  1 

0225 


LAST  50  3 

LAST  504 
LAST  2«4 
LAST  51-4 
LAST  277 
LAST  534 

LAST  293 
LAST  53  3 

l AST  483 

LAST  479 

LAST  501 

LAST  495 
LAST  502 


LAST  483 

LAST  504 

LAST  320 


L AST  320 
LAST  37 
I AST  3 20 

LAST  504 

LAST  2S0 

LAST  504 


24,2054 
•A,  2 55 
24  ,2056 
’4,2057 
24,  ?0  60 
24  ,2061 
24, 2C62 
24,  20  6 3 
, 

?4,  2C65 

24  ,2066 
24,2067 
24,  20  70 
24,2071 
24,  2572 
24, ? P 73 
24 , 2 C 74 
24,  2C 7 5 

24 .2076 

24.2077 

. 

• 

24,  2102 
f,  2 103 

24.21  34 
24, 21C5 
24  ,2  106 
24,2107 
24, 2110 
24  ,2111 
24, 2112 

74.21  13 

24.2114 

24. 2115 
24  ,2116 
24,2117 
24, 2120 

2<t  ,2121 

24,  ? 1 22 

24.2123 

24.2124 
24,  2 1 2 5 
24  ,2126 
24 ,2127 
24,  2 130 
24  ,2131 
24,  ? 1 3 2 
24,2133 


C 5527  1 

00040  0 
0 5527  l 

CC06  3 1 
0 5527  1 
00126  1 
0 5527  1 

00041  1 
C 6C11  1 
0 5515  0 

00005  1 
C 5364  0 
04022  0 
3 4755  1 
55*462  1 
0 6051  0 
77634  0 
21555  1 
34041  0 
51340  1 
77624  l 
53633  1 
77776  1 
50  154  1 
C 2103  1 
0 2167  0 
C 6C51  0 
e 35  7 5 C 
00025  G 
72441  0 
00017  1 
16216  0 
CCC45  0 
51025  1 
1037?  0 
50142  0 
77745  1 
00045  0 
16214  1 
06520  0 
C2220  0 
43014  0 
00345  0 
50155  0 
04347  0 
50  14  7 0 
51145  0 
02216  0 
5 C 1 4 5 1 
77776  1 


TC  OOHNFLAG 
ADRES  ACMODFLG 
TC  OOWNFLAG 

ACRES  R04FLAG 
TC  OOWNFLAG 

A0R6S  NORRMON 
TC  DU  WNF  LAG 

ADRES  L OSCMFLG 
TC  CLRAOMCO 

TC  1 1 P F LAG 

AORES  FS  PAS  FIG 
P 20Lr  M 1 Tf  PHASCHNG 

OCT  04022 
CAF  ZERO 
TS  MARKCTR 

P20LEM2  TC  INTPRFT 

RTB 

L OAOTI  ME 
ST  CAL  L T DEC  1 

LPS20.  1 

CALL 


I.PS20  .2 

F XI  T 

INDEX  M P AC 
TC  +1 

TC  P20LEMA 

52  6 ALARM  TC  INTPRET 

VLOAO  UNIT 

RRANGE 
DOT  SL1 

VE  LLOS 

STOOL  RRATE 
36  D 

DSU  3 P L 

999  .99NM 
TOCBIG 

DLOAD 

35  D 

526ALRM1  STODL  RANGE 

Z EROVECS 
STORE  RTHETA 
SflFF  3 OFF 

FS  PAS  FLG 
P20LEMC5 
SURFFLAG 
ALRMLT 
DLOAD  3 P L 

RRATE 
E NORN 

F X IT 
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ALSO  MANUAL  ACQUISITION  FLAG  R FSET 

TURN  OFF  R04FLAG  TO  ENSURE  GETTING 
ALARM  521  IF  CANT  READ  RADAR 
ENSURE  R 2 5 GIMBAL  PCMTCR  IS  ENABLED 
(R  FS  FT  NORRMON  FL  AG) 

RESFT  LOS  BFING  COMPUTFO  FLAG 


SET  FIRST  PASS  FLAG  FOP  ALARM 

ZERO  MARK  COUNTER 

LOS  DETERMINATION  ROUTINE 


TFST  RANGE  R/UTINF 


NORMAL  RETURN  WITHIN  400  N M 


RANGE  RATE  FDR  NOUN  54  8-7 
IF  RANGE>999. 99, DI  SPLAY  999.99 


RANGE  FCR  NOUN  54  B-29 

ZERO  THETA  FOR  NOUN  54 

FIRST  PASS 
NC 

ON  LUNAR  SURFACE 
NO 


YES 


GAP:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZORUASIER 


L P20-P25 


3226  REF  7 LAST  504 

0 227 

P 228  RFF  1 

3229  PFF  110  I AST  503 

0230  RFF  2 LAST  482 

0231  REF  1 


24,  2134  C 5364  C 

24.2135  04022  0 

24.2136  3 2373  1 

24,2  137  C,  46  1 6 1 
24,2  143  20452  0 

24,2141  C 2156  1 


TC  PHASCHNG 

OCT  04022 

CAF  V 1 6N5420 

TC  BANKCALL 

CAOR  GDDSPR 

TC  P20LFR5 


02312 

C 231  4 PFF 
32316  RFF 


24,  2 1a  2 

2 LAST  504  24,214? 

1 24,2144 


52145  0 TOOBIG 
10372  0 
50120  1 


DLUAD 


GO  TO 

qqq  .oqsjM 
526 ALRPl 


( 2317 

0 2 3 1 R RFF 


2 I AST  483 


24,2145  77776  1 ENDRN 

24  ,2146  0 6025  0 


EXIT 

T C GOT  OV  56 


23? 

0233 

'234 


0235 

0236 
3237 
o2  3 8 


C 2 39 
3243 
0241 
0 242 
024  3 
0244 


RFF  8 

REF  21 

REF  2 

RFF  39 
REF  3 
RFF  1 
REF  111 
RFF  8 
PFF  1 


LAST  505 

LAST  499 

LAST  505 

LAST  504 
LAST  504 

I AST  505 
LAST  305 


24, 2147 
24  ,2150 

24.2151 

24. 2152 

24.2153 

24. 2154 

24.2155 
24  ,2156 
24,  2 157 
24  ,2160 

24.2161 

24. 2162 

24.2163 


77776  1 
C 5364  0 
C4C22  C 
0 56C0  1 
0C526  0 
C 2156  1 
77776  1 
0 5527  1 
90005  1 
3 2370  1 
C 4616  1 
C 1 7 36  1 
0 2C71  0 


ALRMt.  T EXIT 

TC  PHASCHNG 

OCT  04022 

TC  ALARM 

OCT  526 

TC  P20LEM5 

P20LEMC5  EXIT 

P20LEM5  TC  OOWNFLAC 

ADRES  FSPASFLG 

CAF  5000EC 

TC  BANKCALL 

CADR  DE  LA  Y JOB 

TC  P20LFM2 


REF  112  I AST  50  5 
REF  I 


24. 2164  0 4616  1 

24.2165  20457  0 


P20LEM3  TC 

C ACR 


BANKCALL 
CL  EANDSP 


02465 
024  7 
0248 
3249 
0250 
0 251 
3252 
< 253 
0256 

0255 

0256 
3257 
'.25ft 
0259 
3263 
0261 


REF  2 
REF  1 
PFF  11? 
REF  1 
REF  in 


REF  3 
RFF  9 
REF  16 
REF  4 


REF  1 


LAST  6? 5 
LAST  500 
l A ST  5(  5. 
LAST  505 


LAST  483 
LAST  497 
LAST  48  3 
LAST  483 


24, 2167 
24,21 70 
24,  2171 

24.2172 

24.21 73 

26. 2174 

24.2175 

24.2176 
24,  2 177 
24  ,2200 
24,  2201 

24.2202 

24.2203 
24, 22C4 
24  ,2205 


04022  0 
C 2752  0 
C 2164  0 
0 4616  1 
46  life  0 

0 5366  0 
C 502  2 1 

loooe  o 

3 7726  0 
C 5166  1 
3 007  5 0 
7 676  7 0 
C 0CC6  1 

1 2310  0 


P 2 CL  FM  A 


P20LEMB 


CAOR 

TC 

OCT 


CAF 

TC 

CA 

MASK 
E XTENO 
BZF 


P20LEMB 
PHA  SCHNG 
G 40  22 
LUNSFCHK 
P 20LFM3 
BANKCALL 
R6l LEM 
P HA  SC  HN  G 
05022 
10000 
PR  1026 
PRI CCHNG 
F LAGWRD 1 
TRACKBIT 

P20LEMWT 
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IN  CASE  OF  RESTART 
RE  AC  T1  VATE  DI  SPLAY 

TURN  CN  V 1 6 N54  - C IS  PL  AY 
RANGE  AND  RANGE  PATE 


TURN  ON  ALARM  LIGHT  P20 


WAI  T 5SEC S 


CHECK  LUNAR  SURFACE  FLAG  (P22  FLAG) 


PPEFERRFO  TRACKING  ATTITJOE  ROUTINE 

RESTART  AT  PRIORITY  10  TO  ALLOW  V37 
RECUESTED  PROGRAM  TO  RUN  F IRS  I 
RF  STORE  PRIORI  TY  26 

I S THE  TRACK  FLAG  SET 


BRANCH 


NO  - WAI T FCR  I T TO  BE  SET 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IMA  BY  ZOROASTER 


L P20-P25 


0262 

REF 

26 

L AST 

465 

24,  2206 

2 

4752 

0 

P2CLEM87 

CAF 

31  T2 

9263 

24  ,2207 

0 

0006 

1 

EXTEND 

0 264 

REF 

8 

LA  ST 

499 

14,  '21 

02  033 

C 

RAND 

CHAN33 

02&5 

24, 2211 

0 

0006 

1 

E XTEND 

0266 

RFF 

1 

24  ,2212 

1 

2246 

I 

9ZF 

P20L  FMR3 

3267 

P EF 

4 

L AST 

301 

24, 2213 

4 

6CC  7 

l 

P20LEMB5 

CS 

DCT24 

0268 

REF 

9 

LAST 

49  3 

24,2214 

6 

10  10 

1 

AD 

MD  DR  EG 

0 26  9 

24,2215 

0 

0006 

1 

EXTEND 

0270 

REF 

1 

24,  2216 

1 

2221 

1 

BZF 

P20LFMR6 

0271 

REF 

3 

LAST 

409 

24,2217 

6 

7760 

1 

AC 

NEG2 

0272 

24,2220 

C 

CCC6 

1 

EXTEND 

027T 

REF 

2 

L AST 

506 

24,  222  1 

1 

22  2 1 

1 

BZF 

P 2 OLE  MB  6 

0274 

PFF 

1 

24,2222 

3 

7365 

0 

CAF 

ALRM514 

>275 

P CF 

1 14 

L AST 

50  5 

24,  2223 

C 

4616 

1 

TC 

H ANKCALL 

7- 

RFF 

1 

24,2224 

215A4 

1 

C ADR 

PRIOLARM 

0277 

RFF 

3 

LAST 

505 

24,2225 

C 

6025 

0 

TC 

GOT 0V56 

0278 

REF 

2 

LAST 

505 

24, 2226 

0 

2175 

0 

TC 

P2QLEMB 

0279 

PFF 

3 

1 AST 

506 

24  ,2227 

0 

2175 

0 

TC 

P 20LEMR 

0 

REF 

68 

1 A ST 

4,09 

24,2230 

c 

c 1 5 5 

0 

TC 

FNCCFJCP 

02p1 

PFF 

1 

24, 2231 

23fA 

1 

P 2 01  EMR  6 

CAF 

OC  T20 1 

0282 

PFF 

1 1 5 

LAST 

50  6 

24,2232 

0 

4616 

1 

TC 

BANKC  ALL 

52B3 

REF 

1 

24,  2233 

2C624 

0 

CADR 

G0PERF1 

02  84 

REF 

4 

LAST 

506 

24,2234 

0 

6025 

0 

TC 

5UT0V56 

f>285 

RFF 

6 

1 A ST 

506 

24,2235 

0 

2175 

0 

TC 

P20LEMB 

0286 

RFF 

3 

L AST 

50  5 

2a, 2236 

0 

2752 

0 

TC 

l UN  SFC.HK 

0287 

PEF 

] 

24  ,2237 

0 

2244 

1 

TC 

P 20LEMR2 

0288 

RFF 

1 

, 

C 

3221 

0 

TC 

R23LEM 

0289 

RFF 

23 

LAST 

50  4 

24,  2 2a  1 

0 

5 5 1 5 

c 

P2CLEMB  1 

TC 

UPF LAG 

" I 

PEF 

2 

LAST 

504 

24.22A2 

0004  0 

0 

ACRES 

ACMOOFLG 

0291 

PFF 

6 

1 AST 

50  6 

2 A,  2 243 

c 

2175 

0 

TC 

P20LFM8 

0292 

REF 

6 

1 AST 

454 

24  ,2244 

G 

4364 

1 

P20L  EMB2 

TC 

FAL  TON 

C 29  3 

REF 

6 

LAST 

506 

24,2245 

C 

2175 

0 

TC 

P20LEMB 

02  94 

REF 

34 

LAST 

499 

24, 2246 

4 

0110 

0 

P2CLFMB3 

C S 

8 AD  MODE  S 

0295 

RFF 

1 

24,2247 

7 

4737 

1 

MASK 

RCDUO  8 IT 

0296 

24, 2250 

C 

CC06 

1 

E XTEND 

0297 

RFF 

1 

24  ,2251 

1 

2263 

c 

RZ  F 

P 20LFMB4 

0298 

REF 

5 

LA  ST 

298 

24,2252 

3 

43  55 

0 

CAF 

BIT13-14 

0299 

RFF 

7 

1 AST 

339 

2a,  2253 

1 

OC  7 6 

1 

MA  SK 

F LAG  WRD2 

0300 

2A  ,225A 

0 

0006 

1 

EXTEND 

0301 

R EF 

1 

24,  2255 

L 

2267 

1 

BZF 

P20LEMC3 
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IS  RR  AUTO  MOOE  DISCRETE  PRESENT 


VFS  - 00  AUTOMATIC  ACQUISITION  ( R2 1 ) 

RADAR  NOT  IN  AUTO  CHECK  IF 
MAJOR  MODE  IS  2C 

BRANCH  - YES-OK  TO  DO  PLEASE  PERFORM 


ALSO  CHEC  K FOR  P2? 

BRANCH  - YES  OK  TO  DO  PLEASE  PERFORM 
TRACK  FLAG  SFT-FLASH  PPIORITY  ALARM  514- 
RACAR  GOES  OJT  OF  AUTO  MODE  MHILF  IN  USE 

TERMINATE  EXITS  VIA  V56 
PROCEEO  AND  ENTER  EOT  H GO  BACK 
TO  CHECK  AUTO  MODE  AGAIN 

REQUFST  RR  AI.JTC  MCDF  SELECTION 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROCEED  CHECKS  AUTO  MOOE  DISCRETE  AGAIN 
ENTFR  INDICATES  MANUAL  ACQUISITION  IP  23) 
YES  - R 2 3 NOT  A LI  OViF  0— TURN  TN  OPR  ERROR 
NO  - DO  MANUAL  ACQUISITION 


RETURN  FROM  R?3  - LOCKCN  ACHIEVFD 
SET  MANUAL  FLAG  ANO  GU  BACK  TO  CHECK 
RR  AUTO  MODE 


TURNS  ON  OPERA  T CR  ERRCR  LIGHT  ON  DSKY 
AND  GOES  BACK  TO  CHECK  AUTO  MODF 


APE  RR  CDUS  BEING  ZEROED 


BRANCH  - YE  S - HA  I T 

IS  S EAT  C H OR  MANUAL  ACQUISITION  FLAG  SET 


Z FRO  MEANS  AUTOMATIC  RP  ACQUISTION 


GAP:  ASSEMBLE  RE  VI  SION  56  OF  AGC  PROGRAM  ZE  RLI  NA  BY  ZOROASTER 

L P20-P26 


03'2 

3333 

030'+ 

0 30  5 
3336 


REF 

PFF 

REF 

RFF 

REF 


LAST 
l AST 
LAST 
I AST 
L AST 


505 
50  3 
5C  7 

506 
60  5 


24  ,2256  0 5527  1 

24, 2267  CC037  0 

?4,2260  0 5527  1 

24,2261  00040  0 

24,  2262  C 2310  1 


TC  DOWN  FLAG 

ADRES  SRCHCPTN 
TC  3 0WNFLAG 

AORES  ACMOPFLC 
TC  P2  OLE  MWT 


030  7 
0 


0309 


0310 


RFF  1 

REF  116  LAST  506 

PFF  9 LAST  535 

REF  2 LAST  5C6 


24  ,2263  3 2362 

24,2264  0 4616 

24,  2265  01736 

24,2266  0 2246 


1 P20LFMR4  CAF 
1 TC 

1 CAD* 

0 TC 


250DEC 
BANKCALL 
3E  LA  Y JOB 
P20LFMB3 


3311  REF  34 

0312 

0313  REF  7 

0314  RFF  10 

0315  REF  1 

3316 

0317  REF  11 

0 318 

3319  REF  2C 

0320  REF  4 

0321 

0322  REF  69 

0323  RFF  17 

3324  REF  5 

0326 

0326  REF  1 

3327  RFF  l 


LAST  50  4 

IAST  504 
LAST  504 


LAST  50  5 


LAST  48  3 
LAST  4R3 

IAST  50  6 
LAST  505 
LAST  50  5 


24  ,2270 

24.2271 

24. 2272 
24  ,2273 
24, 2274 
74,22  75 
24  ,2276 
24,  2277 
24,2  300 
> 4 , 23  C 1 
24,  2 30  2 
24  ,2303 
24, 2304 
-4,2  30  5 
24,2306 
24,  23C7 


C 6C 5 1 0 P2CLEMC3 
77634  0 
21555  1 
34041  0 
50374  1 

77776  1 P20LFMC4 

0 5364  0 P20LEMC 
C4U22  0 

2C  C74  1 
7 4745  1 
C 0006  1 

1 6155  1 
30  075  0 
7 '4747  0 
C 0CC6  1 
1 234?  1 

C 27  5 7 0 P2CLEMF 


TC  INTPRET 

RTB 

LOACT  IME 
STC.4LL  TDECl 
UPPSV 

EXI  T 

TC  PHASCHNG 

OCT  34022 

CAF  FLAGWROU 

MASK  PNI0V78IT 

EXTEND 

8 ? F E NO  OF  JOR 

CAE  FLAGWRD1 

MASK  TRACKBIT 

EXTEND 

BZF  PPOLEMC 

TC  R2 1 LF  M 


1 1 3 2 8 REF 
>329  REF 
03  ^ REF 
0331  REF 
333?  RFF 
03  3 3 

•<334  RFF 
>335  REF 
0336 

3337  RFF 


2 


2 

IP 

6 


LAST 
I AST 
LAST 
LAST 
I AST 


24  7 
507 
50  7 


70  (AST  507 
12  LAST  507 


71  LAST  507 


24  ,2310  3 2362  1 

24.2311  C 6204  1 

24. 2312  02322  0 

24.2313  30  075  0 

24,  2314  7 4747  0 

24.2315  0 0006  1 

24.2316  1 6155  1 

24. 2317  0 5364  0 

24  ,2320  40072  0 

24,2321  0 5155  0 


P20LEMWT 


P20LMWT1 


CAF 

TC 

ADRE  S 

CAE 

MASK 

EXTFND 

BZF 

TC 

OCT 

TC 


250  OEC 

TWIDDLE 
P 20LEMC  1 
FL  ACWRC1 
TRACKBI T 

ENDOFJCB 
PHA  SCHNG 
40072 
FNDOF JCR 


f'33R 
0 3 3*3 
330 
0 341 

0 342 

P343 


REF  17  l AST  498 
REF  19  IASI  507 
REF  7 LAST  507 


>4,2  32  3 
24,  2324 
24  ,2325 
24  , >326 
24, 2327 


30  074 
7 4745 
C rcC6 
1 527? 
20  C75 
7 4747 


1 

1 

1 

0 

0 


P20L  EMC  l 


CAE 

MASK 

EXTENO 

BZF 

CAF 

MA  SK 


TASKPVFR 
FL  AGWRD1 
TRAC  KRI  7 


9:12  OCT.  21,  1970  7LEMP2CS.OOL  PAGE  507 
USER'S  PAGE  NC.  8 E7  S3 


RESET  TO  AUTO  MODE 


WAIT  2.5  SECONDS  THEN  GO  TO  RR  DATA  READ 


WAIT  2.5  SECONDS  WHILE  RR  CDUS  ARE  BEING 
ZEPOED-THEN  GO  BACK  AND  CHECK  AGAIN 


IS  THE  RENDEZVCUS 

NO  - FX  IT  P2f 
IS  TRACK  F L A3  SET 

BRANCH- TRACK  FLAG 


FLAG  SET 

(HI  T 5 FLAG  WORD  1 ) 

NOT  ON-WAI  T 15  SECONDS 


USE  INSTEAD  OF  WAITLIST  SINCE  SAKE  BANK 
W A 1 T 2. 5 SECONCS 
IS  TRACK  FI  AG  SET 


NO-EXIT  WITHOUT  DOING  2.7  PHASE  CHANGE 


I S RENDEZVOUS  F LAG  SET 


NO  - EXIT  P20/R22 
IS  TRACK  FLAG  SET 


GAP:  ASSEMBLE  REVISION  56  DF  AGC  PROGRAM  ZERLINA  BY  70R0ASTER 


9:12  OCT  • 21,1970  ZLEMP20S.0<j1 


PAGE  508 


P20- 

.025 

USER  • S PAGE  NO.  9 

F7  S3 

34'- 

24,2330 

C CCC6 

1 

EXTENO 

0 1 4 5 

PEF 

1 

24, 2331 

1 2337 

0 

BZF 

P20LE  MC2 

NO-DONT  SCHEOULE  R22  JOB 

C346 

REF 

4 

LAST 

50  5 

24,2332 

3 7726 

0 

CAE 

PR  1 026 

YES-SCHEDULE  122  JOB  ( RR 

DATA  RE  ADI 

} 347 

PEF 

17 

LAST 

469 

24,  2333 

C 51C5 

c 

TC 

FI  NOV AC 

0348 

REF 

9 

LAST 

500 

67,1456 

ERANK= 

l n sc  n un  t 

o 14Q 

RTF 

1 

’4,2  334 

02713 

0 

2CA0P 

R221  EM42 

33*9 

PFF 

1 

24, 2135 

500  6 7 

0 

0350 

PF.F 

IP 

LAST 

507 

24  ,2336 

0 5272 

0 

TC 

TASKOVFR 

0T51 

REF 

1 

24,2337 

C 523  2 

1 

P2  0LEMC2  TC 

F IXOELAY 

TRACK  FLAG  NOT  SET  , WA  I T 

1 5 SECONDS 

035  2 

24, 2340 

02734 

OEC 

1 500 

AND  CHECK  AGAIN 

'•353 

REF 

3 

LAST 

50  7 

24,2341 

C 2322 

0 

TC 

P20LEMC1 

3 354 

PEF 

1 

24,  2142 

3 2lfl 

0 

P2CLEM0  CAF 

1 500DEC 

0355 

RFF 

7 

LAST 

507 

>4  ,2343 

0 5204 

1 

TC 

TW  IDOL  E 

ViA  l TLI  ST  FOR  1 5 SECONDS 

9 356 

P FF 

1 

24,2344 

02346 

1 

ADRES 

P20L  EMD1 

0357 

PFF 

72 

L AST 

50  7 

24, 2145 

5155 

0 

TC 

END  OF  JOB 

0358 

3159 

0360 

PEF 

RFF 

RFF 

20 

8 

163 

LAST 

1 AST 

L AST 

507 
50  7 
498 

24,2146 
24,  2147 
24,2350 

30  075 

7 4747 

10  000 

0 

0 

0 

P20LEMC1  CAF 
MASK 
CCS 

FL  AGWRD1 
TRACK8TT 

A 

IS  TRACK  FLAG  SF  T 

0361 

RTF 

1 

24,2351 

1 2355 

1 

TCP 

P20L  EMD2 

YES-SCHEDULE  DESIGNATE  JOB 

036? 

REF 

2 

L AST 

508 

24,  2152 

0 5232 

1 

TC 

F I XDELA Y 

NO-WAIT  15  SECONDS 

0363 

24  ,2353 

02734 

1. 

DEC 

15  00 

0 364 

REF 

2 

LA  ST 

50  8 

24,2154 

C 2346 

1 

TC 

P20  LEN01 

U 1 65 

PFF 

5 

LAST 

508 

24,2  355 

3 7726 

0 

P20LEM02  CAF 

PR  I 026 

SCHEDULE  JOB  TO  DO  R2 1 

0 366 

RFF 

IP 

LAST 

5C8 

24 ,2156 

0 5105 

0 

TC 

FINDV  AC 

0367 

REF 

If 

L AST 

50  8 

E7, 1456 

E BANK= 

LOSC  CUNT 

0 368 

RFF 

2 

LAST 

506 

24  ,2157 

02267 

0 

2CADR 

P 20L  EMC  3 

STAPT  AT  PERM.  MEMORY  INTEGRATION 

^368 

24,2360 

50067 

0 

0-1 6 9 

RFF 

19 

1 AST 

508 

24,  2361 

0 <=272 

0 

TC 

TA  SKOVFR 

0370 

24,2362 

00372 

1 

250DEC 

OEC 

250 

3371 

24,  2 3 f 3 

CC526 

C 

alp  M52  5 

ncT 

00526 

Ol  7? 

24,2 164 

00201 

1 

0CT2O  l 

OCT 

00201 

9373 

24,2365 

00514 

1 

ALRM514 

OCT 

514 

0374 

24, 2366 

00074 

1 

MA  XTR I E S 

DEC 

60 

0375  REF 

3 LAST  478  4363 

OCTOOO  12 

EOUAL  S 

R INCON 

0376  REF 

1 LAST  357  23,2507 

CNEB-2 

EQUALS 

DP1/4TH 

03  77 

24, 2367 

0 144  1 

1 

V06N  3 3* 

VN 

0633 

0378 

24  ,2370 

00764 

1 

500  DEC 

DEC 

500 

33782 

24,  2371 

CCC70 

0 

999.  99NM 

20FC 

1P51982  8-29 

03782 

24,2  372 

20447 

1 

0 379 

24  ,2373 

04066 

0 

VI6N5420 

VN 

1654 

rap  : 


SSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY 


L P20-P25 


0380 

r'  38  1 REF 
3382  REF 
0383 

1 3 8 A REF 

C 3 85 

0386  RFF 
3387  RFF 
0388  RFF 
0380 

0390  RFF 
C39I  RFF 
339?  REF 
03  93 

0394  REF 
3395  REF 
0396 

0 39  7 RFF 
03  98 

0399  RFF 
3433 

0401  REF 

0402 

3433  REF 

0404 

0405  PFF 

0406  RFF 
04C7 

3438  REF 

0409  RFF 

0410  RFF 
3411 

0412  RFF 
413  RFF 

0414  RFF 

0415 

3416  REF 

0417  RFF 

0418 

3419  RFF 

0420 

0421  REF 


1 

8 L AST 

2 LAST 

4 LA  ST 
1 

6 LAST 

5 LAST 

1 

4 LAST 

5 LAST 

1 

6 LA  ST 

5 LAST 
4 L AST 

9 L AST 

4 LAST 

7 L AST 

3 LAST 
11  LAST 

6 LA  ST 

6 LAST 
1 


53  3 
24  3 
502 

502 
50  4 
50  2 

503 

502 
502 
533 
50  9 

24  3 
539 

509 
50  7 
509 

509 


509 


24.2375 

24. 2376 
24  ,2377 

24. 2400 

24. 2401 
24,2  402 
24, 24C3 
24  ,2404 
24  ,2  405 
24, 2406 
24  ,2407 

24. 2410 

24.2411 

24.2412 
24,  2413 
24  ,2414 
24,2415 
24,  24  16 
24  ,2417 
24, 2420 
24,2  421 
24  ,? 422 
24,  2423 
24  ,2424 

24 .2425 

24. 2426 
24  ,2427 
24,  243C 
24,? 431 
?4,?432 
24, 2433 
24  ,?434 
24,24  35 
24,  2436 
24  ,2437 
24, 2440 
2 4,2441 
24,2442 
24,  2443 
24  ,2444 
24,2445 


450  20  l 
01755  L 
274  10  1 
77624  1 
26 643  l 
43014  0 
02756  1 
50414  0 
C 1476  0 
43014  0 
0 4 3g  7 1 
50411  0 
01475  0 
77614  1 
0C747  0 
50446  1 
77614  1 
01474  1 
77624  1 
?7 1 33  0 
77624  1 
11216  1 
77624  1 
27410  1 
43145  0 
01571  C 
016-74  0 
77624  1 
26643  1 
34041  O 
27133  0 
77214  0 
04347  0 
502 7*»  0 
0166  1 1 
77742  0 
26343  1 
01667  1 
77742  0 
C2351  1 
77650  1 
01755  1 


UPPSV 


UPPSV5 


UPPSV  l 


UPPSV4 


0*22 

0423  RTF 
3424  REF 

0425 

0426  RFF 
3427 


p LAST  509 
7 I AST  509 

5 LAST  509 


24, 2446 
? 4 ,?447 

24. 2450 

24.2451 

24.2452 

24. 2453 


45014  C 
01674  0 
27133  0 
77624  1 
11216  1 
77624  1 


UPP  SV 3 


1 ASTER 
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USFR'S  PAGE  NC.  10  E7  S3 

STO  CALL  UPDATES  PERMANENT  STATE  VECTORS 

LS21X  TO  PRESENT  TIME 

I NTSTALL 

CALL 

SETIFLGS 

BOF  SET  IF  W-MATRIX  INVALID, OONT  INTEGRATE  IT 

RENCW  FLG 
UPPSVl 

DIMOFLAG  SET  DIMOFLAG  TO  INTEGRATE  H-MATRIX 

BON  SET 

SURFFLAG  IF  CN  LUNAR  SURFACE  W IS  6X6 

UPPSV  5 

D6CR9FLG  OTHERWISE  9X9 

80  F 

VE  HUP  FLG 
UPPSV3 

SET 

V I NT  FLAG 

CALL 

INTEGRV 

CALL  GROUP  2 PHASE  CHANGE 

3RP2PC  TO  PROTECT  INTEGRATION 

CALL 

I NTSTALL 

DLOAD  CLEAR  GET  TF  TC  SM  TO  STORE  IN  TDEC  FOR  LM  I NT . 

T ETCS  M 

VI  N TF  LAG 

CALL  INTEGRATE  OTHER  VEHICLE 

SETIFLGS  WITHOUT  W-MATPIX 

STCALL  TDEC  1 

I NT  EGRV 
BOFF  VLCAD 

SURFFLAG 
P2  0L  FMC4 
RC  VLF  M 

VSR2 

STCVL  L M PCS 
VC  VLE  M 

VSR2 

STORE  LMVEL 
GOTO 

LS21X 


CLEAT  CALL 

V INTFLAG 
I NTEGRV 

CALL 


CALL 


GRP2PC 


GAP:  ASSEMBLE  REVISION  5fc  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L P?'  -p’*; 


U SF  R ' S PAGE  NO.  11  E7  S3 


1428  REF 

G43C  PEF 
431  P FF 
04  32 

433'  P FF 


1C  LAST  5C9 

9 LAST  509 
2 LAST  U4 


24,2454 
>4, 2455 

24.2456 

24.2457 
24,  2460 
24 ,?461 


7 1 i 1 4 0 
01474  1 

f 1 6 4 3 1 
77650  1 

50427  0 


INTST ALL 
SET  OLOAO 

V IN T FLAG 

TETLFM  GET  TETLEM  TO  STORE  IN  TOEC  FOR  C SM  INT. 

GO  TO 

IIPPSV4 


j 4}4  RF.F  11  LAST  508  E7,  1456 

0435  REF  1 


C BA NK=  LOSC  CUNT 
COUNT*  *$/P  22 
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PAGE  511 


L P2  -P25 


USER’S  PAGE  NO.  12 


E?  S3 


3 r 436 
R 3437 
RO^e 

3 04,39 
R34  43 
RO  441 
R 0 4 4 2 
R)  443 
? f'444 
R044  5 
R 044  6 
3 0447 
R3448 
Rr>449 
R04  5P 
R''45l 
< ‘.'4  52 
ft'  453 
R0454 
1 0485 
R3456 
ft  ''457 
R045B 
R34  5? 
3 046- 
R0461 
R 0 4 4 2 
9 0463 

0464 

0465 

0 466 

0457 

0468 

0469 


PROGP A M OE  SCR  I PTI  CN 

PREFERRED  TRACKING  ATTITUDE  PROGRAM  P25 
MOD  NG  - 3 
BY  P.  VGLANTF 
FUNCTIONAL  DESCRIPTION 


THE  PURPOSE  OF  THIS  PROGRAM  IS  TC  COMPUTE  THE  PREFERRED  TRACKING 
ATTITUDE  OF  THE  LM  TO  CONTINUOUSLY  POINT  THE  LM  TRACKING  8 E AC  ON  AT  THE 
C SM  AMD  TO  PERFORM  THE  MANEUVER  TC  THE  PREFERRED  TRACKING  ATTITUDE  AND 
CONTINUOUSLY  MAINTAIN  THIS  ATTITUDE  WITHIN  PRESCRIBED  LIMITS 
CALL  ING  S ECUENCF  - 

ASTRONAUT  RFOUFST  THROUGH  CSKY  V37E25F 
SURROUT  INES  CALL  ED  - 

FLAGUP 
END  OF  JOB 

WAITL I ST 
FI  NOV  AC 


BANKCALL 

R02BOTH  (IMU  STATLS  CHECK) 

R61LFM  (PREF  TPK  ATT  POUT) 

TA  SKOVE  R 

NORMAL  EX  IT  MODES  - 

P--5  M AY  RE  TERMINATED  IN  TWO 
PROGRAM  ( PCO)  BV  KEYING  V37F0CF  CR  eY  KEYING  INV56E 
ALARM  OP  ABORT  EXIT  MODES  - 
NONE 
0 UTP UT 

ERAS  A PL  F INITIALIZATION  REQUIRED 
FLAGS  SET  + RFSFT 


WAYS-ASTRONAUT  SELECTION  OF  IDLING 


NONF 
REE  l? 

REF 

REF  2 LAST  50C 


1 


H,  14  5 6 

24  ,2462 
24, 2 463 
24  ,2464 
24,  2465 


0 5340  0 
00004  0 
05022  1 
26CC0  0 


DC  T 
OCT 
OCT 


LO  SC  CUN  T 
$ S/P  25 
2 PEIS  CENG 


MAKE  GROUP  4 
PRIORITY  26 


I NACT  IV  E (VERB  37  ) 


04  7 0 
0471 
3472 
04  7 3 
( 474 
04  75 
0476 
3 47  7 
('478 
0 479 
3480 
( 481 
C 48? 

0483 

0484 


RFF  H7 
REF  3 
REF  24 
REF  3 
REF  28 
REF  2 
REF  4? 
REF  3 
REF  13 

RFF  2 
PFF  92 

REF  73 
REF  9 


LAST  507 
LAST  503 
L AST  5P6 
LAST  503 
I AST  511 

LAST  29  2 
LAST  507 
LAST  50  3 
LAST  507 

LAST  235 
I AST  246 

LAST  508 
LAST  508 


24,2466 
24,2  467 
24,  2470 

24.2471 

24.2472 

24. 2473 

24 .2474 
24,  7475 

24.2476 

24.2477 
24,  2 5 CO 
24  ,?s<  i 
24.25C2 
24,  250  3 
24 ,2504 


C 46  16  1 
11241  0 
0 5515  C 
00031  0 
C 5515  C 
1 

C 5527  1 
CCC10  0 

0 5364  0 
0402 2 C 

3 4743  0 
7 0074  0 
0 0006  1 

1 5155  1 
3 4747  1 


P25LEM  1 


TC 

CAOR 

TC 

ADR  ES 

TC 

ADRE  S 
TC 

ADRES 

TC 

OCT 

CAE 

MASK 

EXTEND 

BZF 

CAF 


BANKCALL 

R0  280TE 

UPFLAG 

TPACKELG 

UPFLAG 

P 2 5F  LAG 

DOWNFLAG 

RNDVZFLG 

PHASCHNG 

34022 

P25FLBI  T 

STATE 

ENDOF  JOB 
TP  ACKBIT 


IMU  STATUS  CHECK 
SET  TRACK  FLAG 
SET  P25FLAG 


I S P25FLAG  SE  T 

IS  TRACKFLAG  SET? 


3 Ap : 
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ZERLINA  BY  ZOROASTER 


l P 20- P 25 


0485 

0486 
3 437 
C’VBR 
04R9 
3490 

0491 

0492 
0403 
0494 
‘495 
0496 
0 49  7 
)49R 
0499 
0 500 
05  or 
0501 
350? 


PFF  33  LAST 

REF  1 

PFF  7 LAST 

PFF  1 

PFF  118  LAST 

PFF  1 

REF  2 LAST 

PCF  1 

PFF  8 LAST 

°ef  1 

RFF  74  LAST 
REF  1 
RFF  19  LAST 
REF  13  LAST 
RFF  3 LAST 

PFF  20  (AST 


511 

464 
51  l 
247 
508 
51  1 

50  8 

511 

512 

5(  r 


24,  250 5 7 00  7 5 1 

24,2  50  6 C 0006  1 
24.  25C7  1 2515  0 

24,2510  3 4757  0 

?4,?511  55 ' 745  1 

24,  2512  C 4fl6  1 

24.2513  46123  0 

24.2514  C 2476  0 

24. 2515  3 2526  1 

24  ,2516  0 5204  1 

24,  2 c 1 7 r?'  21  C 
24,2  520  0 5155  0 

24,2521  3 5024  1 

24,  2 522  C 5 1 C 5 0 
E7  ,1456 

>4,2523  02476  0 
24,  25  24  5 0 C 6 7 0 
24  ,2525  0 5272  O 

24, 2526  13560  0 


MA  SK 

EXTEND 

OZF 

CAF 

TS 

TC 

CADR 

TC 

P 2 5L M WT 1 CAF 

TC 

AORES 

TC 

P25LEP2  CAF 
TC 

£BANK= 

2CA0R 


STATE  *1 

P2  5 LMWT1 
SE  VFN 
R65CNTP 
HANKCALL 
> 65LEM 
P25L  EMI 
60SCNDS 
TW  IOOL F 
P2  5 LEM2 
F NO  OF  J OR 
PR  1014 
FI NOVAC 
LOSCOUNT 
P251 FM1 


TC  TASKOVER 

60  SC  NO  S DEC  6000 
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USER'S  PAGE  NO.  13  E7  S3 

NO-SKIP  PHASE  CHANGE  ANO  WAIT  1 MINUTE 
CALL  P 65  - FINE  PREFERRED 

TRACKING  ATTITUCE  POUT  INE 

THEN  GO  CHE  C<  FLAGS 

WAIT  ONE  MINUTE  THEN  CHECK  AGAIN 
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P3533 
R0504 
R 0505 
R3536 
R05O7 
R050R 
R353=> 
R 051 0 
R0511 
R0512 
R 0513 
R05  14 
R 0 5 1 5 
R 5 16 
RD517 
1 0518 
R05  1 9 
R0520 
R 052  1 
R1522 
RO  523 
R 5 >A 
R)  525 
R 0 526 
R 0 5 2 7 
R052R 
R 0529 
R7S33 
R0531 

3533 
0534 
. 0535 

053(. 
0537 
3538 
0539 
0 540 
3541 
0 54? 

0543 

0544 

0545 
3 545 
0 547 
0548 
3549 

0550 

0551 

0552 


P20-P25 

PAT  A READ  ROOT  INF  22  (LEM  ) 

PROGRAM  CFSfRI  RT  IGN 
MOD  NO  - 2 
BY  p VOL  ANTE 
FUNCTIONAL  OFSCRIPTICN 

TO  PROCESS  AUTOMATIC  RR  MARK  DATA  TO  UPDATE  THE  STATE  VECTOR  OF  FI  THER 
LM  OR  C SM  AS  DEFINED  IN  THE  FENCEZVOUS  NAVIGATION  PROGRAM  ( P 20  ) 

CALL  ING  SFQIJENCE  - 

TC  BANKCALL 

CAOP  R22LEM 
SUBROUT  INES  CALL  ED  - 

LSP22.1  GOFLASH  WAITLIST 

L SR  22.  2 PRIOLARM  BANKCALL 

LSR22.3  R6  1LEM 

NORMAL  E XI  T MODES- 

R2?  WILL  CONTINUE  TO  REC  YCL  E,  LPDATI NG  STATE  VFCTORS  WITH  RADAR  DATA 
UNTIL  P2r  CF  AS  ES  TC  OPERATE  (RFNCFZVOUS  FLAG  SET  TO  ZERO)  AT  WHICH  TI  PF 
R 22  WI  l I.  TERRI  NATE  SELF. 

ALARM  OR  ABORT  EXIT  MOOES- 
PPICRITY  ALARM 

PRIORITY  ALARM  525  LOS  NOT  WITHIN  3 DEGREE  LIMIT 
OUTPUT 

SFF  OUTPUT  FROM  LSR22.3 
F»ASAB|  E INITIALIZATION  REQUIRED 
SEF  LSR22.1  ,LSR22.2fLS«22.  2 
FLAGS  SET  «-  RESET 
NO  AN  GEL  G 
DEBRIS 

SEE  l SR22.1,LSR22.2,L$P?2.3 
RFF 
RFF 
REF 


USER • S PAGE  NO.  1 4 


2 LAST  150  E7,  1737 

1 

14  LAST  511 


REF 

REF 

REF 

PEE 

REE 


LA  ST 
l AST 
LAST 


512 
511 
51  3 


49  LAST  49Q 
RFF  24  LAST  476 


24, 2527 
24,  25  30 

24.2531 

24. 2532 
24  ,2533 
24,2534 
24,  2535 
24  ,2536 

",  - ■ 7 

24. 2540 

24.2541 

24. 2542 
24  ,2543 

24.2544 

24. 2545 
24  ,2546 
24,  2 5 4 7 
24, 2550 


C 5364  0 
04C22  0 
3 4745  0 
7 C C 74  0 

0 UO 06  1 

1 5155  1 

2 4747  1 
7 0075  1 
C CCC6  1 

1 2722  0 

3 4736  1 
C C0C6  1 

02  012  0 
C 0006  1 

1 2167  1 
3 4752  0 
C 00C6  1 

02  033  0 


EBANK=  LR  S22. 1 > 
COUNT  * *$/R  22 


R22LEM 


TC 


OCT 

CAP 

MASK 

EXTEND 

BZF 

CAE 

MASK 

EXTEND 

BZF 

R22LEM12  CAE 

E XTEND 

RAND 

EXTEND 

BZF 

CAF 

EXTEND 

RAND 


PH  AS  CH  NG 
04022 
RNDV  ZB  IT 
STATE 

ENDOFJOB 
TRAC  KB  I T 
STATE  *1 

R 2 2WAI  T 
BIT  14 


P20LE  MA 
B IT  2 


IS  RENDESVOUS  FLAG  SET? 


NO  WAIT 

IS  RR  AUTO  TRACK  ENABLE  DISCRETE  STI  1 L 
ON  (A  MONITOR  PFPCSITION  BY  R25  CLFAPSIT 


NC  - RETURN  TO  P20 
YES 

IS  RR  AUTO  MODE  DISCRETE  PRESENT 


GAP: 

3553 

055'-. 

0 555 

5556 

0557 

55  9 

0560 

3561 

"562 

0563 

3564 

0565 

0566 

05  5 7 

0568 

0569 

05  70 

0571 

0572 

0573 

"574 

0575 

0576 

?577 

f 5 78 

057Q 

0580 

0581 

058? 

05  83 

0584 

0585 

0586 

0587 

0588 

0589 

0 590 

0591 

0592 

0593 

0594 

0595 

0 596 

0597 

C 59  8 

05  9Q 

0600 
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P20-P25 


USER  • S PAGE  NO.  15  E7  S3 


REF  1 
REF  35 
PFF  2 

REF  2 
RFF  15 

RFF  11o 
RFF  l 
RFF  243 

R EF  1 
REF  1 
PFF  1 
PFF  I2f 
RFF  2 
PFF  5 
RFF  1 

PFF  76 


L AST  50  6 
LAST  506 

LAST  50  8 
LAST  513 

l AST  512 

LAST  50  4 


LAST  514 
LAST  506 
LAST  506 


LAST  513 


34,  ? 552 

24.2553 

24. 2554 
24  ,2555 
? 4 , ?5S6 
24, 2557 
24  ,2560 
24,  256  1 
34,2  562 
24,2563 
2.4,  2 564 
24  ,2565 
>4,2566 
24, 2567 
24  ,2570 
24,  25  7 1 
24,  2 572 
24,2573 
24, 2874 
24  ,2575 
24,2576 


C CCC6  1 
1 2554  0 

0 2213  0 
4 0110  0 
7 4737  l 
C 0006  1 

1 2713  1 
0 5364  0 

CC152  1 
0 4616  1 
64217  1 
5C  154  1 
0 2566  0 
0 2607  1 
C 2275  0 
3 2 746  0 
C 4616  1 
21544  1 
0 6025  0 
f 2577  0 
0 2570  1 
0 5155  0 


RZF 

rc 

cs 

MASK 

EXTEND 

87  F 

TC 

qct 

TC 

CADR 

I NOE  X 

TC 

TC 

TC 

CAF 

TC 

C A OR 

TC 

TC 

TC 

TC 


♦ 2 

P2CLEMB5 
RAOMCOES 
RCOUOB IT 

R22LE  M42 
PHASOHNG 
30152 

8ANKCALL 
LRS22.  1 
MP  AC 
+ 1 

R2  2LEM2 
P2  OLE MC 
ALRM525 
BANKCALL 
PR  I OLA  PM 
GOT  0V56 
R22LEM1 
-5 

ENDOF JOB 


YES  CONTINUE 
NO  - SET  IT 

APE  RR  COUS  BEING  ZEROED 


COUS  BEING  ZEROFC 

IF  A 3 F STAR  T OCCUPS.AN  F XTRA  RADAR 
KEACING  IS  TAKEN, SO  BAD  DATA  ISN'T  USE 3 
YFS  REAP  DATA  + CALCULATE  LOS 
CATA  READ  SUBROUTINE 


NORMAL  RETURN  (GOOO  DATA) 

COULD  NCT  READ  RACAR-TPY  TO  REDES  IGNAT  E 
RR  LOS  NOT  WITHIN  3 DEGREES  1 ALARM) 


TFPMINATE  EXITS  P 20  VIA  V56  CGDING 
PROC  (DISPLAY  DELTA  THETA) 

ENTER  ( I LLE3AL  CPTI  CM 


REF 

REF 

RFF 

REF 

REF 

RFF 

PFF 

RFF 

PFF 

REF 

PFF 

RFF 

REF 

RFF 

RFF 

REF 


P EF 
RFF 
RFF 
P EF 
RFF 
REF 


1 6 LAST  5 1 4 


121  LAST  514 
1 

6 LAST  514 
? LAST  514 
2 LAST  514 
17  LAST  5 1 4 

4 LAST  506 
1 

21  LAST  5C8 
11  I AST  513 

2 LAST  513 
12?  LAST  514 


244  LAST  514 


2 LAST  514 
123  LAST  514 

2 I AST  505 

3 LAST  514 

22  1 AST  5l4 


24,  2577  0 5 364  O 

24,2600  04022  0 

24, 26C 1 3 2747  l 

24,260?  0 4616  1 

24,2603  20510  1 

24,  2 6C4  C 6C 2 5 0 
24  ,2605  0 2607  1 

24,2606  0 2275  0 

24,  2607  0 5 364  0 

24.2610  0402?  0 

24.2611  C 2752  C 

24.2612  0 2627  0 

24.2613  3 0075  0 

24,  ?6 1 4 7 4747  0 

24  ,2615  0 OOC 6 1 

24,26  16  1 2 722  0 

24,2617  C 46 16  1 
24  ,2620  51417  1 

24. 2621  50  154  1 

24.2622  C 2623  1 

24.2623  0 2627  0 

24,  2624  C 4 6 1 6 1 
24  ,2625  46116  0 

24.2626  0 2722  l 

24. 2627  4 0075  1 

24  ,2630  7 4746  1 


R 22L  EM  1 


R 2 2|_  EM  2 


R 2 2l  EM  3 


TC  PHASCHNG 

OCT  34022 

CAF  VO  6 NO  5 

TC  BANKCALL 

CAOR  PPIODSP 

TO  GCTCV56 

TC  R22LEM2 

TC  P20L  EMC 

TC  PHASCHNG 

OCT  34022 

TC  LUNSFCHK 

TC  9 22LFM3 

CA  FLAGWRD1 

MASK  TRACKBIT 

EXTEND 

8ZF  R22WAIT 

TC  BANKCALL 

CAOR  LRS22.2 

INOEX  MP  AC 

TC  + 1 

TC  R22LFM3 

TC  BANKCALL 

CAOR  R 611  FM 

TC  R22WAIT 

CS  "LAG  WRD 1 

MASK  NOUPFBIT 


CISPLAY  DELTA  THETA 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROC  ( OK  CONTI  NUE  ) 

ENT  ER  (RECYCL  E) 


CHECK  IF  ON  LUNAR  SURFACE  ( P 22FL  AG  SET) 
YES-BYPASS  FLAG  CHECKS  AND  LRS22.2 
IS  TRACK  FLAG  SET 


NO  - WAIT 
YFS 

CHECKS  RR  BORE  SI  GUT  WITHIN  30  DEG  OF  + Z 


NORMAL  RETURN!  LOS  WITHIN  30  OF  Z-AXI  S) 


NOT  WITHIN  30  DEG  OF  Z-AXIS 

SHOULD  WE  BYPASS  STATE  VECTOR  UPDATE 

( I S NOUPDATE  FLAG  SE  T?  ) 


SAP  : 
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P ?c-P  25 


0601 

24,  261-1 

0 OOC  6 

1 

E X TEND 

0602 

REF 

3 

LAST 

514 

24  ,2632 

1 2713 

1 

RZF 

P 2 2L  EM  42 

3633 

RFF 

23 

LAST 

514 

24,  2623 

3 CC75 

0 

CA 

F LAGWRD1 

0604 

REF 

1 

24,2634 

7 4745 

1 

MASK 

UPDATB  I T 

06P5 

24  ,2635 

0 0006 

1 

EXTEND 

3 636 

REF 

L AST 

515 

24,  26  36 

1 2713 

1 

BZF 

R22LFM42 

0607 

REF 

6 

LAST 

508 

24  ,26  37 

3 7726 

0 

CAF 

PR  ID  26 

06CB 

REF 

3 

LAST 

236 

24,2640 

55*055 

1 

TS 

PHSPR0T2 

060Q 

PEF 

35 

LAST 

50  7 

24, 2641 

C 6C  5 1 

0 

TC 

INTPRET 

0610 

?<•.  2642 

7765  0 

1 

GOTO 

36  11 

REF 

1 

24,  2643 

54420 

0 

LSR22.3 

0612 

24,2644 

77776 

1 

R22LEM93 

EXIT 

0613 

RFF 

18 

LAST 

514 

24,2645 

C 5364 

0 

TC 

PHASCHNG 

36  J 4 

24, 2646 

04022 

0 

OC  T 

04C22 

061  5 

RFF 

1 

24  ,2647 

1 2706 

0 

TCF 

3 22LEM44 

0616 

24,2650 

77776 

1 

R22LFM96 

EXIT 

0&1  7 

RFF 

108 

L AST 

504 

24,  26  5 1 

3 4755 

1 

CAF 

ZERO 

061  fl 

PEF 

1 

24  ,2652 

55' 746 

1 

TS 

N 49  FLAG 

3619 

PEF 

1° 

1 AST 

515 

24, 2653 

C 5364 

0 

TC 

PHASCHNG 

06  ? 0 

24,2^c4 

04022 

0 

OCT 

0402  2 

0621 

REF 

2 

LAST 

198 

24  ,2655 

3 7727 

1 

CAF 

PR  1027 

3622 

RFF 

10 

L AST 

498 

? 4 , 2656 

C 5072 

1 

TC 

NOVAC 

0623 

RFF 

2 

LAST 

51  5 

E7  ,1746 

EBANK= 

N49FLAG 

0624 

REF 

1 

24,2657 

02727 

1 

2 CAOR 

N49DSP 

0624 

REF 

1 

24, 2660 

50067 

0 

0625 

REF 

36 

LAST 

515 

24  ,2661 

0 6051 

0 

TC 

INTPRET 

3626 

24, 2662 

77735 

0 

SLOAD 

0627 

RFF 

3 

LAST 

515 

24,2  663 

03747 

0 

N 4°F  LAG 

.'628 

24  ,2  664 

50054 

0 

BZE 

BMN 

3629 

24,  2665 

50662 

0 

-3 

0630 

REF 

1 

24  ,2666 

50674 

1 

R 22LEM  7 

06  31 

24,2667 

77650 

1 

GOTO 

0632 

REF 

3 

L AST 

1 49 

74, 2670 

03675 

0 

L3RE  T 

0633 

REF 

3? 

LAST 

4<»  9 

24  ,2671 

4 4752 

1 

V34THN49 

CS 

TWO 

3 6 34 

REF 

4 

LAST 

515 

.24,  2672 

5 5 ' 746 

1 

TS 

N4  9 F 1 AG 

0615 

RFF 

77 

LAST 

5 1 4 

24,2673 

0 5155 

0 

TC 

END  OF  JOB 

0 6 36 

2 4,2  674 

77776 

1 

R22LEM7 

EX  IT 

36  37 

REF 

5 

L AST 

515 

24,  2675 

3 1746 

0 

CA 

N4  9FLAG 

0638 

RFF 

34 

LAST 

51  5 

24  ,2676 

6 4752 

0 

AD 

TWO 

r 6 39 

24,26  77 

C .1006 

1 

EXTEND 

0640 

REF 

1 

, 

1 2527 

1 

BZF 

R22LE  M 

0641 

REF 

37 

LAST 

51  5 

24  ,2701 

0 6051 

0 

TC 

INTPRET 

364? 

24,  27C? 

77  624 

1 

CALL 

0643 

REF 

6 

LAST 

539 

24,2  703 

11216 

1 

3RP2PC 

0644 

24 ,2704 

77650 

1 

GOTO 

3645 

REF 

1 

? 

55433 

0 

ASTOK 

0646 

PEF 

2 

LAST 

504 

24  ,2706 

25  '462 

o 

R22L EM 44 

INCR 

VAP.KCTR 

0647 

R EF 

5 

LA  ST 

51  4 

24 ,2707 

0 2752 

0 

TC 

LUNSFCFK 

0648 

RFF 

1 

24,  27  10 

0 2724 

1 

TC 

P 22LE  M46 
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bran:h-ye  S 
IS  UPDATE  FLAG  SET 


UPDAT  E FLAG  NOT  S FT 
INSURE  HIGH  PRIO  IN  RESTART 


NORMAL  EXIT  FROM  LSR22.3 
PHASE  CHANGE  TO  PROTECT  AGAINST 
CONFLICT  WITH  GRP2PC  ERASEABLE 


SET  N4  9F  L AG  = ZERO  TO  INDICATE 
VOfc  N 49  DISPLAY  HA  SNT  BEEN  ANSWERED 

TO  PROTECT  DISPLAY 
PROTECT  DISPI  AY 


LOOP  TD  CHECK  IF  FLAG 
SETTING  CHANGEC-BRANCH  - NO 
PROCEED 

DISPLAY  ANSWERED  BY  RECYCLE-INCORPORATE 
NEXT  MEASUREMENT 


WAS  ANSWER  TO  CIS  PLAY  PRO  OP  TERM 

BRANCH  - TERM  - TAKE  ANOTHER  RR  READING 


PHASE  CHANGE  A NO 

GO  TO  INCORPORATE  DATA. 

INCREMENT  COUNT  OF  MARKS  INCORPORATED. 
ARE  WE  ON  LUNAR  SUPFACE 
YFS  - WAIT  2 SECONCS 
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L P20-P25 


0649 

P EF 

1C 

LAST 

434 

24,2711 

3 4756 

1 

CA 

FIVE 

0650 

RFF 

1 

24,  27  12 

C 2716 

0 

TC 

’ 2 2LF M4 5 

0651 

REF 

6 

LAST 

515 

24  ,2713 

C 2752 

0 

R2  2LEM42 

TC 

LUNSFCHK 

D652 

PEF 

2 

LAST 

515 

24,  2714 

C 2724 

1 

TC 

R22LEM46 

065  3 

REP 

35 

LAST 

515 

24,2715 

3 4752 

0 

CA 

TWO 

• 5 -• 

RFF 

2 

1 A ST 

C1  2 

24,2716 

55' 745 

1 

R22LEM45 

TS 

R65CNTR 

D 655 

REF 

124 

L AST 

514 

24,  2717 

0 4 6 1 6 

1 

TC 

3 A N KC  A L L 

0656 

RFF 

2 

LAST 

512 

24  ,2720 

46123 

0 

CADR 

R6  5LEM 

D 657 

REF 

2 

LAST 

515 

24,2721 

C 2527 

0 

TC 

R22  LEM 

065  fi 

PEF 

2 

L AST 

538 

24, 2722 

2 275  1 

G 

R 2 2WA  I T 

CAP 

1500DEC 

0659 

P FF 

3 

LAST 

507 

24  ,2  723 

0 2311 

0 

TC 

P20LEMWT 

J66D 

REF 

125 

L AST 

516 

24,  2724 

C 46  1 6 

1 

R 22LF  M46 

TC 

BANKCALL 

0661 

PFF 

■ ' 

LAST 

283 

24  ,2725 

C 1735 

1 

CADR 

2SECUEL Y 

0662 

REF 

3 

l A ST 

51  6 

24,2726 

C 2527 

C 

TC 

R22  LEM 

066^ 

RFF 

1 

24, 2727 

3 27  50 

1 

N 4 5DSP 

CAF 

V06N49NR 

0664 

PFF 

126 

LAST 

516 

24  ,2730 

0 4616 

1 

TC 

B ANKCALL 

3665 

REF 

2 

LAST 

514 

24,  2731 

20510 

1 

CADR 

PR1 ODS P 

0666 

REF 

1 

24,2732 

0 2671 

0 

TC 

V 3 4TL1N  4 5 

3667 

PFF 

62 

LAST 

501 

24,2733 

4 4753 

0 

CS 

ONE 

3668 

REF 

6 

L AST 

515 

24, 2734 

ce  ' 746 

1 

TS 

N49FLAG 

0669 

RFF 

78 

l AST 

51  5 

24  ,2735 

0 5155 

0 

TC 

ENPriFjnfi 

7 

REF 

20 

LA  ST 

51  5 

24,2736 

C 5364 

0 

R22PSTRT 

TC 

PHASCHNC- 

0671 

24,  2737 

00152 

1 

OC  T 

00152 

0672 

REF 

127 

LAST 

516 

24,2740 

C 4616 

1 

TC 

BANKCALL 

■'573 

RFF 

2 

1 AST 

499 

24,  274  1 

53C70 

0 

CADR 

RRRDGT 

0674 

REF 

128 

LAST 

51  6 

24,2742 

C 4616 

1 

TC 

BANKC  ALL 

• 676 

RFF 

4 

LAST 

498 

">4 , 2 743 

1 7713 

1 

CADR 

P ATST  ALL 

3 575 

REF 

3 

1 AST 

514 

24,  2744 

C 2275 

0 

TC 

P2  OLEMC 

0677 

REF 

4 

LAST 

516 

24  ,2745 

0 2527 

0 

TC 

322LEM 

0678 

24, 2746 

CC52S 

0 

ALRM525 

OCT 

00525 

r>679 

24, 2747 

0 140  5 

1 

V06N  05 

VN 

00606 

0680 

24,2750 

01461 

0 

V9  6N49NB 

VN 

00649 

363  1 

24, 2751 

C2734 

0 

15Q0DEC 

DEC 

1500 

R0682 

LUNSFCH  K 

-CLOSED  SUePCUT INE  TO 

CHECK  1 

[F  ON  LUNAR  SURFACE 

( P 22FLAG 1 

R0683 

R E T UP 

NS  TO 

CALLER  +1 

IE  P2  2FLAG 

SET 

R3  684 

TO 

CALLER  + 2 

IF  P22FLAG 

NOT  SET 

0685 

REF 

2 

LAST 

5 1C  TC 

511  : 

0 

0* 

COUNT  * 

«$/  P 22 

3635 

REF 

5 

1 AST 

34  1 

24,  2752 

4 0104 

0 

LUNSFCH  K 

CS 

FLAGWRD8 

0637 

RFF 

3 

LAST 

341 

24,2753 

7 4744 

0 

MASK 

SURFFBI T 

06R8 

REF 

164 

L A ST 

50  8 

24,2754 

10  000 

0 

CCS 

A 

3689 

PEF 

148 

L AST 

484 

24, 2758 

24  OC 2 

0 

1 NCR 

Q 

0690 

RFF 

149 

1 AST 

516 

24  ,2756 

0 f 00  2 

0 

TC 

0 
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USFP  'S  PAGE  NC.  17 


E7  S3 


NPT  ON  LUNAR  SURFACE 
P65C  HUNTER  = 5 

CHECK  IF  ON  LUNAR  SURFACE  I P22F  LAG  SET) 
YES  - WAIT  2 SECONDS 
NO- SET  P65C  OUNTER  = 2 


FINF  PREFFRREO  TRACKING  ATTITUDE 


WAIT  2 SECONDS  AND  TAKE  ANOTHER  MARK 


EXCFSSIVF  STATE  VECTOR  UPDATE  - FLASH 
VERB  35  NOUN  A 9 R 1 =DELT  A R,  R2=DELTA  V 
TERMINATE  - SET  N4  9F  LAG  = -2 
PROCEED  - N49FLAG  = - 1 
RECYCLE  - N49FLAG  = + VALUE 

IF  A RESTART  OCCURS  WHILE  READING  RADAR 
COME  HERE  TO  T AK  F A RANGE-RATE  READING 
WHICH  ISNT  USED  TO  PREVFNT  TAKING  A BAD 
REACING  AMD  TRYING  TO  INCORPORATE  THE 
RAD  DATA 

WAIT  FDR  R F AD  COMPLFTF 

COULD  NOT  READ  RACAR-TRY  TO  REDESIGNATE 
READ  SUCCF  SSFUL-CONTI  NUE  AT  R22 


CHECK  IF  ON  LUNAR.  SURFACE 
IS  SURFFLAG  SET? 

BRANCH  - P22FLAG  SET 
NOT  S FT 
RE  TURN 
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P 691 
R 0692 
R06  93 
R0694 
R 0695 
RD696 
R 0 69  7 
R0698 
R1699 
R 0700 
R0701 
R07f.2 
R 0701 
RD704 
R0705 
R 0706 
R 1 707 
R 0708 
R 0 709 
R0710 
R 07 1 1 
R1712 
R 07  1 3 
R 0 7 1 6 
R3715 
R 0716 
R 717 
R0718 
R 0719 
R0720 
R0721 
0722 
3723 
r-72  A 
0725 
7726 
072  7 
0728 

072Q 

0730 

3731 

0732 

0733 
3734 
• 735 

0736 

0737 

0738 
073° 
074  0 


P20-P25 

RR  RES  IGNAT  E ROUTINE  (R21LEM> 

PROGRAM  OE  SCPI  FT!  CN 
MOO  NO  - 2 
PY  F VOLANTE 
FUNCTIONAL  DtSCRIPTICN 

TC  PCI  N T THE  PENCFZVCUS  RACAR  AT  T HF  CSM  UNTIL  AUTOMATIC  ACQUISITION 
OF  THE  CSM  IS  ACCOMPLISHED  RY  THE  RADAR.  ROUTINE  IS  CALLED  BY  P2  9 . 

CALL  ING  SEQUENCE  - 

TC  RANKCALI. 

CADR  R21LEM 
SUBROUT INES  CALLER  - 
FINDVAC  FLAGUP 

NOV  AC  INTPRET 

WAITLIST  JCBSLEEP 

TASKOVFH  BANKCALL 

NORMAL  EX  IT  MODFS 

WHEN  IOCK-ON  IS  A'GHi  EVFO , BRANCH  WILL  BE  TO  P20  WHERE  R 22  (DATA  READ 
WILL  RE  SELECTED  OR  A NFEO  F CR  A M ANE  UVE  R ( BR  ANCH  TO  P20LFMA) 

ALARM  OR  ABORT  EXIT  MODES- 

PRIORITY  ALAPM  5C3  WHEN  LOCK-CN  H ASN : T BEEN  ACHIEVED  AFTER  30S  ECS  - 
THIS  REQUIRES  ASTRONAUT  INTERFACE-  SELECTION  OF  SEARCH  OPTION  CF 
ACQUISITI CN 
OUTPUT 

SFF  I PS20.1,  RRDESSM 
EPASA8LE  INITIALIZATICN  RECUIPEC 

RP  TAR  GE  T , RA0M03E  S ARE  USED  BY  LPS20.  I AND  RROESSM 
FLAGS  SET  + RFSFT 

LO  SC  MF  LG  LOKCNSW 

OEBR  IS 

SEE  LPS2C  .1  , RRDESSM 
RFF 
REF 
REF 


USER  'S  PAGE  NO. 


ENOOFJCB 
LPS20.  1 
JO  BWAKE 
RADSTALL 


PRIOL  ARM 
PHASCHNG 
FLAG  DOWN 
RRDESSM 


5C  LAST  513 


PFF  25 
REF  7 
R FF  1 
PFF  109 
REF  4 
PC-F  5 
PFF  1 
PFF  21 
RFF  36 
RFF  165 
REF  1 
RFF  29 
RFF  6 
REF  4 
RFF  7 


I AST 
LA  ST 
LAST 

LAST 
L AST 
I AST 

L AST 
LAST 
LAST 
LAST 


515 
321 
517 

46] 
51  4 

516 

478 
51  7 
378 
5 1 7 


E 7 » 1 4 56 

24,2757 
24,2  760 
24, 2761 
24  ,2762 

24 .2763 

24. 2764 
24  ,2765 
24, 2766 
24,2  767 
24 ,2770 
24,  277  1 
24  ,2772 

24.2773 

24. 2774 
24 ,2  275 
24,  2776 
24,  2777 


4 4736  0 
0 0006  1 
C 2 C 1 2 1 
0 2752  0 
0 2770  C 

2 4755  1 
55*  106  0 
55* 1C7  1 
0 3CC0  1 

3 4740  0 
7 0110  0 
1C  000  0 
0 3010  n 

2 4735  1 
55*106  0 

4 4136  0 
55*107  1 


EBANK=  LOSCOUNT 
COUNT*  $ J.  / R2 1 
CS  BI T 14 


REMOVE  RR  SELF  TRACK  FNAHLE 


CAF 
MA  SK 
CCS 


CHAM  2 

LUNSFCHK 

R21LEM5 

ZFRO 

TANG 

TANG  +1 

R 2 ILF  Mfc 

BIT  12 

RADMCDFS 

A 

R2  1 L EH10 
3 I T 1 5 
TANG 
HALF 
TANG  ♦ 1 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRA-  ZERLINA  HY  ZOROASTER 


j7A1 
f 74  2 
743 
3744 
0745 
rv  746 
0 7'*  7 
G74R 
374  9 
0750 
751 
375? 
0753 
0 75A 

0755 

0756 

0757 
75  R 

f 750 
3760 
0761 
■76? 
) 763 
076* 
•765 
0765 
••767 
71  1 
07  69 
0 770 
A3771 
0772 
?773 
077'+ 
0775 
3 776 
0777 

0 778 
3779 
0780 

■'  1 i 
r.  782 
"783 
3 7 BA 

1 7 8 5 
0786 
3 7B7 
07B8 

0789 

0790 


PEF  A3 
PFF  3 
PEF  129 
REF  ? 


RFF 
REF 
RFF 
REF 
RFF 
RFF 
P EF 
REF 

REF 

RFF 

RFF 

RFF 

RFF 

RFF 

RFF 

RFF 

RFF 


I AST 
LAST 
LAST 
L AST 


51  1 
277 
516 
275 


I AST 
LAST 
L AST 
LAST 
LA  ST 
I AST 


AB2 

517 

515 


I AST  50  7 


I AST 
I AST 
LA  ST 
LAST 
L AST 


51  8 
518 
51  ft 
6 

518 


RFF  1 

RFF  1 

PEF  3 LAST  513 

REF  131  LAST  518 

REF  6 LAST  5l8 

RFF  l 

PFF  1 

REF  132  LAST  518 

REF  3 LAST  5lA 

REF  7 LAST  51A 

REF 
REF 
REF 
REF 
RFF 
REF 
REF 
RFF 
P EF 


50  8 
516 
518 

51  8 
51  7 
5 1 6 


21  LAST  516 


24,  3fCC 
2 A, 3001 
2 4,3  0C2 
2 A* 30C3 
2A ,3304 
?4, 3r C5 
2a  , 30C  6 
2 A, 300 7 
2A, 30 1C 
2 a , 3 0 1 1 
24,3012 
2a, 3013 
2A  ,301 A 
24,3015 
2A,  30  16 
2A  , 3?  1 7 
2 A,  3020 

?A, 3021 

24.3022 

24. 3023 
2A  ,302 A 
24,3025 

24,  3026 

2 A ,30?7 
24, 3030 
2a,  30  31 
2 A ,3032 
2 A,  3(  33 
2A  , 303A 
2A  ,3035 

2A  ,3036 
24, 3037 
24,  30  40 
2 A ,3  C41 
2 6,  30 A 7 
2 A ,30A3 
2 4,3  OAA 
24,  3045 
24  ,3046 
26,  3047 
24,  30  50 
24  ,3051 
24, 3052 
2 A ,3053 
2A,305A 
24,  3055 
2 A ,3056 
24,  3057 
24,  30  60 


R21LFM6  TC 


R21LEM2  CAP 


R21LEP3  TC 


C 5527  1 
00012  1 
0 4616  1 
5 24  66  1 
0 3005  1 
C 4616  1 
17713  1 
0 3043  0 
C 5515  0 
00041  1 
3 2366  0 
55*113  1 
3 6257  l 
55’ 456  0 
0 fcC  5 1 0 
43234  0 
21555  1 
11204  1 
3 A 041  0 
51340  1 
77776  l 
0 5516  0 
00012  1 
0 5527  1 
C0126  1 
0 6C51  0 
77624  1 
52364  1 
77776  1 
0 3064  0 

0 2167  0 
C 4616  l 
17713  1 
C 3043  0 
C 3C52  0 
3 3062  0 
0 4616  1 
21544  1 
C 6025  0 
C 3C57  0 
0 2267  0 
C 5155  0 

C 5527  1 R 2 IE  NO 


R21-503  CAF 


00041 
C 2752 
0 2310 

0 3205 
C 5364 
04  02  2 


0 R21SRCH  TC 


OOWNF  LAG 
LOKONSW 
BANKCALL 
RPOESNB 
♦ 1 

BANKCALL 
7 AO  STA  LL 
P 21-  5 J 
U PF  L AG 
LPSCMFLG 
MAX  TP  IES 

of  srnuNT 

T HR  FF 
LOS  CCU  NT 
I N TPRF T 
DAD 

LOAPTI PE 
HALFSEC 
T DEC1 
LPS20.  1 

JPFLAG 
LOKONSW 
OOWNFLAC, 
NORRPCN 
I N TPRF T 

PROESSP 

R21LEMA 

P20LEMA 
BANKCALL 
RAOSTA  LL 
+ 2 

R2 1 E NO 

ALRM503 

BANKCALL 

PRI OLARP 

G0T0V56 

R21SRCH 

P 20LE  MC  3 

ENDOFJOR 

DOWNFLAG 

lOSCMFLG 

LUNSFCHK 

P 2 OLE  MW  T 

R 210  ISP 

PHASCHNG 

0 A02? 
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BAD  HETURN  F33M  DESIGNATE  -ISSUE  ALARM 

EVERY  FOURTH  PASS  THRU  OODFS 
ALLOW  60  PASSES  IAPPROX  45  SECONDS) 

TC  OBSIGNATE  ANC  LCCK  ON 


EXTRAPOLATE  TO  PRESENT  TIME  ♦ .5  SEC. 
I OS  DETERMINATION  ROUTINE 


SET  LOKONSW  TO  RA OAR-ON  DESIRED 


INPUT  (RRTARGET  UPDATED  BY  LPS20.  1) 

DFS  IGNAT  E ROJT  INF 

LOS  NOT  IN  MOOE  2 COVERAGE 

ON  LUNAR  SURFACE 

VEHICLE  MANEUVER  REQUIRED. 

NO  VEHICLE  MANEUVER  REQUIRED 
WAIT  FOR  DESIGNATE  COMPLETE  - LCCKCN  OR 
BADFN D-LOCKON  NOT  ACHIEVED  IN  60  TRIES 
EXIT  ROUTINE  RETURN  TO  P2n  (LOCK-ON  1 
I S SUE  ALARM  50  3 


TERMINATE  EXITS  P 2 C VIA  V56  CODING 
PROC 


RESET  LOSCMFLG 

APE  WE  ON  LUNAR  SURFACE 

YFS  - BYPASS  V 50  N 72  DISPLAY 

PUT  UP  VFRIFY  MAIN  I OBE  LOC  KON  DISPLAY 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P2S 


3791  REF 

0702 

0793 


24,  3C  fc  1 G 3272 

24.3062  005C3 

24.3063  00527 


0 TC 

1 ALRM50  3 OCT 
1 ALRM5  27  OCT 


R24LFM 
00503 
52  7 


779'*  REF 

0795  RFF 

0796  REF 

0797  REF 
0795  REF 
? 7 9 9 REF 

0800  RFF 

0801 

3332  REF 

0803 

0804  REF 
OBG'5  RFF 
0806  RFF 
3807  REF 
0808 

0809  REF 
3313 

0811  REF 
CPI  2 REF 

0813  RFF 

0814  REF 
3315  REF 
0816 

0 P 1 7 REF 
3318  RFF 

0819  RFF 

0820  REF 

0821  REF 

0822  REF 
3823  RFF 

0824  REF 

0825  REF 
3826 

0 82  7 RFF 
C828  REF 

0829 

0830  REF 
3831  REF 
083?  REF 
0833 

3Rl4  PFF 
0835  REF 
>3  36  REF 

0837  REF 

0838  REF 


? LAST  5 18 
2 LAST  143 
28  LAST  518 
4 LAST  535 
46  LAST  518 
4 | AST  518 

40  LAST  518 

9 LAST  518 

1 

2 LAST  143 
17  LAST  518 

3 LAST  518 

2 LAST  518 

1 

80  LAST  518 


41  | AST  519 

5 LAST  519 
1 

6 LAST  519 
1 

3 LAST  519 


4 LAST  519 
42  LAST  519 

3 LAST  519 


4 LAST  519 
16  LAST  519 

2 LAST  507 

29  LAST  519 
2 LAST  2 77 

47  LAST  519 

5 LAST  518 

30  LAST  519 


24,  3064 
24  ,3965 
26,  3C66 
2.4,  3067 
24,3070 
24,  3 C 7 1 
2 6 ,30  72 
24,3073 
24,  3074 
24,3075 
26, 1C  16 
24,  3077 
24 ,3100 
24,  3 1C  1 
24  ,3102 
24,3103 
24,  3 104 
24  ,3105 
24, 31C6 
24,  3107 

24.31 10 

24. 3111 
24  ,3112 
24,3113 
24,  3 1 14 
24  ,3  115 
24, 1116 
24,  3 1 17 
24 ,31 20 
24,  3121 
24  ,3122 
24 ,3123 
24, 3 124 
24  ,3  125 
24,  1126 
24, 3127 
24,3130 
24,  113  1 
24  ,3132 
24  ,7133 
24, 3136 
24  ,3135 
24, 3136 
24,  3137 
24,3140 


2 23(6  0 
55' 423  1 
C 5515  0 
00005  1 
0 5527  ) 
C0C4 1 1 
0 6051  0 
77634  0 
21555  1 
77615  0 
1 12C2  1 
03425  1 
34041  0 
51340  1 
77624  1 
52  3 64  1 
77776  1 
C 3117  0 
0 5155  0 

0 60  3?  0 
52564  1 

C 6C51  0 
430  14  0 
00345  0 
51127  1 
00225  1 
51124  1 

1 1-623  l 
0 3122  0 
C 3171  0 
55*423  l 
0 6051  0 

52165  0 
03425  1 
5 1 C 75  1 
77745  1 
03425  1 
34041  0 
50374  1 
77776  1 
0 c 5 1 5 C 
00264  1 
C c 5 2 7 1 
00012  1 
C 5515  0 


R21L5M4  CAF  MAXTRIES 
TS  REPOSCNT 

TC  UPFLAG 
A ORES  F SPA  SF  LG 
TC  DOWNFLAG 

AO  RES  LCSCMFLG 
TC  INTPRFT 

R21LEM1?  RTfl 

LOAPTI  ME 

R21LEM00  OAD 


TE  NS F C 

STORE  RE  POST M 
ST  CALL  TUEC1 

LPS20.  1 

CALL 

RRDESSM 


F XI  T 

T C R 2 1L  EM  1 3 

TC  FNOOFJCH 

TC  KILL  TASK 

CADR  BEGDES 

TC  1NTPRET 

80  F CLRGO 

FS  PAS  FI.  G 
R 2 1 LF  M8 
FS  P AS  FL  G 
P21  LEM50 

R21LEM  13  CC  S REPOSCNT 

TC  R21LEM7 

TC  R2  ILF  Mil 

R21LEM7  TS  REPOSCNT 

TC  INTPRET 

R 2 1|.EM  50  OLOAO  GOTO 

R EPOST M 
R2  1 LE  MOO 


R21LEM8  OLOAO 


PEPOSTM 
STC ALL  TDECl 
UPPSV 


EXIT 

TC  UPFLAG 

ACRES  COESFLAG 
TC  DOWNFLAG 

ADRES  LOKONSW 
TC  J PEL  AG 


9:12  CC  T.  21,1970 
USER • S PAGE 
SEARCH  ROUT  IN  E 


ZLEMP2GS  .001 
NO.  2 C 


PAGE 
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519 


SFT  IJP  COUNTER  FOP 
60  PASSES  (APPROX  600  SFC  S.  ) 

SET  FIRST  PASS  FLAG 
RESET  LOS  REING 
COMPUTED  FLAG 


TIME  T = T 4 10  SECS. 

SAVE  FOR  LONGCALL  AND  UPPSV 

COMPUTE  LOS  AT  TIMET 


LOS  NOT  IN  M3nE  p COVERAGE 
VEHICLE  MANPJVER  REQUIRED 


FIPST  PASS  THRU  REPOSITION 
NO-GO  TO  CONTINUOUS  DESIGNATE 
YES-RESET  FIRST  PASS  FLAG 

HAVE  WE  TRIED  60  TIMES? 

NO- ADD  10  SFGS.  RFCOMPUTE  LOS 
Y ES-°UT  OUT  ALARM  53o 


SET  RAOMOOES  RIT  15  FOR 
CONTINUOUS  DESIGNATION 


'.A*:  ASSEMBLE  REVISION  56  OF  AGC  PRCGPAM  ZEPLINA  BV  ZQPOAST  6R 


P20-P25 


0839 

PFF 

5 

LAST 

518 

24,3141 

00126 

1 

ADRES 

NORRMON 

0 840 

REF 

i 33 

LAST 

518 

24,3142 

C 4616 

1 

TC 

RANKCALL 

3 3 41 

REF 

3 

L AST 

518 

2 4,  314  3 

52466 

1 

CADR 

RRDESNB 

0842 

24,1144 

0 3145 

1 

TC 

+ 1 

084  3 

R EF 

43 

LA  ST 

515 

24 ,3  145 

C 6051 

0 

TC 

INTPRET 

0R44 

24,  3 146 

44234 

1 

9 TH 

3D  SU 

0845 

REF 

10 

LAST 

519 

24  ,3147 

21555 

1 

L OADT  IUF 

0846 

REF 

5 

l AST 

519 

24,  3 150 

C3425 

1 

RE  POST  M 

C 84  7 

REF 

1 

24,  3151 

034  27 

0 

STORE 

3E  LTATM 

0848 

24,3152 

77776 

1 

EX  IT 

08  4 9 

24,  3 15  3 

( 0CC6 

1 

E XTEND 

ORSO 

RFF 

2 

LAST 

520 

24 ,3 154 

3 1427 

1 

DCA 

DELTA  TM 

0 8 51 

REF 

2 

LA  ST 

379 

24,2  155 

C 5310 

0 

TC 

LONGCALL 

0852 

RFF 

1 6 

L AST 

5 1 8 

E7,  1456 

EBA  NK  = 

LOSCOUNT 

C853 

REF 

1 

24  ,3156 

03161 

1 

2 CADR 

R21LEM9 

0853 

PFF 

1 

24,  3157 

5CC67 

0 

0854 

RFF 

81 

LAST 

519 

24,  3160 

0 5155 

0 

TC 

ENDOF  JOB 

0855 

RFF 

2 

LAST 

519 

24,3161 

0 6032 

0 

R?1  LEM9 

TC 

K II  LT  ASK 

0356 

REF 

1 

24,  3162 

52573 

1 

CADR 

STDESIG 

0857 

PEF 

6 

LAST 

504 

24  ,3163 

0 60  11 

l 

TC 

CLRADMOD 

0 858 

REF 

7 

LAST 

515 

24,3 164 

3 7726 

0 

CAF 

PRI026 

D8F9 

RFF 

20 

L AST 

512 

24, 3 165 

0 5 105 

0 

TC 

F I ND  VAC 

'860 

RFF 

17 

1 AST 

520 

E7 ,1456 

ERANK= 

LOSCOUNT 

086  1 

RFF 

2 

LAST 

517 

24,  3 166 

03010 

0 

2 CADR 

P21I.FM10 

0861 

24,  ’167 

50<  67 

0 

9 862 

REF 

21 

LAST 

512 

24,31 70 

0 5272 

0 

TC 

T ASKOV  ER 

0363 

REF 

1 

24,  3171 

3 32CO 

0 

P.  2 1 LE  M 1 1 

CAF 

ALRM530 

0864 

REF 

1 34 

1 AST 

520 

24  ,3172 

0 46  16 

l 

TC 

BANKCAL1 

0865 

REF 

4 

L A S7 

518 

24,3173 

21544 

1 

CAOR 

PRIOl  ARM 

0866 

REF 

8 

l AST 

518 

24,  3 174 

0 60  2 5 

0 

TT. 

GOTOV56 

0867 

PEF 

9 

LAST 

520 

24  ,3175 

0 6025 

0 

TC 

G0T0V56 

0868 

REF 

10 

LAST 

520 

2 4,  3 176 

C 6C2  5 

0 

TC 

GOT  CVS  6 

0869 

REF 

82 

LAST 

520 

24,  3177 

0 5155 

0 

TC 

ENDOF  JOB 

0 870 

24 , 32  CO 

00530 

I 

ALRMS^O 

OCT 

00  530 

097  1 

24,  32C  1 

COCOO 

1 

TEN  SEC 

2DEC 

1000  B-2  8 

0871 

24  ,3202 

C 1750 

1 

0872 

24,3203 

00000 

1 

HALFSEC 

2 DEC 

50 

0872 

24,  3 20  4 

OOC  6 2 

0 

0873 

REF 

.22 

LAST 

518 

24  ,3205 

0 5364 

0 

R21DISP 

TC 

P HASCHNG 

0874 

24,  32C  6 

C4C22 

0 

OC  T 

94022 

0875 

RFF 

1 

24,  32C  7 

3 3220 

1 

CAF 

VC6N72PV 

0876 

RFF 

1 35 

LAST 

520 

24 ,321 0 

0 4616 

1 

TC 

BANK  CALL 

0877 

RFF 

2 

L AST 

482 

24,  32  1 1 

207  1 1 

1 

CADR 

G0PERF2  R 

0878 

REF 

11 

LAST 

520 

24  ,3212 

0 6025 

0 

TC 

GO  TO  V 56 

0879 

REF 

5 

LA  ST 

518 

24 , 3213 

0 2310 

1 

TC 

P20LEMWT 

0880 

24,  32  14 

C 3 20  7 

1 

TC 

-5 

0881 

REF 

23 

LAST 

483 

24  ,3215 

3 4 74  5 

0 

CAF 

R I T 7 

0 88? 

REF 

2 

LAST 

483 

24,  3216 

C 5475 

1 

TC 

LI  NUS 

0883 

REF 

R3 

LAST 

520 

24, 3217 

0 5155 

0 

TC 

ENDOF  JOB 
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52u 


r.OMPUTF  DELTA  TIME 
FOR  LONGCALL 


ALARM  5 3 J -LCS  NOT  IN  COVERAGE 
AFTER  TRYING  TO  DESIGNATE  FOR 
600  SECS  . 


FLASH  V 50  N 72  - FLEASF  PERFORM  RR 
MAIN  LOBE  LOCKON  VEPIFICATION 

TER  MI  NA  TE  E XI  T S VIA  V 56 
PROCEED  CONTINUES  TO  R22 
FNTER  ILLEGAL 


S FT  BITS  TO  MAKF  THIS  A PRIORITY  DISPLAY 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
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P 20- P 25  USER'S  PAGE  NO.  22  E7  S3 

09RA  2 A,  3 2 2 C O5l0  1 V06N72PV  VN  00672 


» A 3 : ASSEMBLE  RE  VI  SI  ON  56  CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
P20-P25 


•>:  12  0:T.  21,1570  Z LEMP20S.  001 
USER'S  PAGE  NO.  23 


PAGE 
E 7 S3 


522 


P0885 
< '886 
RD887 
Rf BB8 
R9889 
R7R9D 
R0891 
sr  rq-> 
R3B93 
J >854 
R0895 

« 08  64 
* i '867 
R)  998 
R U899 
R:  90' 
R3  99  1 
R 000? 
RD903 
P.  0904 
1 0905 
R39!>6 

0907 

0908 
3999 

0910 

0911 

0912 

0913 
33  14 

0915 

0916 
3917 

0918 

0919 

0920 

0921 
3922 
092  3 
■j9  24 
3925 
0926 
>9  27 

0928 

0929 
3933 
0931 
0032 
3933 
0934 


MANUAL  AC  CUTS  IT  I C N ROUTINE  R23L  EM 
PPOGPAM  OF  SF  PI  PTI  CN 
PCD  NO  - 2 
RY  P VOL ANTE 
FUNCTIONAL  DESCRIPTION 


TC  AC CUt RE  THE  CSM  0Y  MANUAL  OPERATION  OF  THE  RENDEZVOUS  RADAR 
CALL  ING  SEQUENCE  - 

TC  P-23LEM 
SLRPOUTINFS  CALLED 

BANKCALL  R61LEP 

SFTRIN08  GO  PER  F 1 

NOR  MA  L E XI  T MOPE  S - 

IN  RESPONSE  TO  TEE  G0PERF1  .SELECTION  OF  ENTER  WILL  RECYCLE  R23 
.SELECTION  OF  PROC  .9  I L L CONTINUE  R 23 
.SELECTION  CF  TFRM  WILL  TERMINATE  R23 

ALARM  OP  ABORT  FX  IT  MODES  - 
SEE  NORMAL  EXIT  MODES  AHCVF 
OUTPUT 

N.  A. 


EPA  SABLE 
AGHODFI 
FEF  1 
RFF  1 
REF  31 
PFF  6 


I NI  TI  A LI  Z A 7 1 CN  RECUIFEC- 
G MUST  BE  SET  T3  1 (MANUAL  MODE 
1 142 


17  LAST  3 3g 


REF  51 

REF  26 
RTF  1 
REF  136 
REF  2 
REF  1 
REF  1 
REF  1 

REF  2 
REF  7 
R EF  1 
RFF  1 8 
P-EF  4 

REF  48 
RFF  7 
REF  1 


LAST  5 1 7 
LAST  517 


1 AST  522 
LAST  300 


5 19 
522 


24, 3221 
24  ,3222 
24,3223 
24,  3 224 

24.3225 
24, 7226 
24,  3227 
24,3230 
24,  323  1 
24  ,3232 
24,3  233 
24, 3234 
24  ,3235 

24. 3226 
24,  3237 
24,3240 
2 4,  3 24  1 
24  ,3242 
24,3  243 
24,  3244 
24  ,3245 
24,  2246 
24,  3p  4 7 
24  ,2250 

24,  3251 
24  ,3252 


0 5515  0 
00  126  1 
C CCC4  0 
0 4674  0 
40141  1 
C CCC3  1 
3 4736  l 
0 0006  1 
C 5 C 1 2 1 
3 3271  0 
0 4616  1 
20624  0 
0 3262  1 
C 3240  l 
0 3265  0 
C 0004  0 
C 4523  1 
00035  1 
C 3252  1 
0 4674  0 
40115  0 
C CC03  1 
0 5527  1 
00126  1 
C 2241  1 
0 0003  1 


EBAN<=  GENRET 
COUNT  <■  *$/P23 
R2  3LEM  TC  UP  FLAG 

AORES  NORPMON 
INHINT 

TC  13NKCALL 

CADR  SETMINDB 
RF  I I NT 

R23LEM1  CAF  3IT14 
EXT  ENO 

WOR  CM  AM  2 
CAF  DCT205 
TC  BANKCALL 
CADR  GOPEPFl 
TC  R 231  EM  2 

TC  R2  3LEM11 

TC  R23LEM3 

R2  3LEM11  INHINT 

TC  RRLIMCHK 

AORES  CDUT 
TC  OUTOFLIM 

TC  I9NKCALL 

CADR  R ESTORDB 
RE  LI  NT 

TC  9 0WNFLA0 

ADRES  NOPRMON 
TC  P2  OLE  MBl 

OUTOFL  IM  REL  INT 


+P20 


SET  NO  ANGLE  MONITOR  FLAG 

SELECT  MINIMUM  CEACBAND 

FNARLF  TRACKER 


TERMINATE 

PROCEDE 

ENTER-  DO  ANOTHER  PANUVER 

YES  - CHECK  IF  ANTENNA  IS  WITHIN  LIMITS 

NOT  W ITHIN  L IMITS 
RF  STORE  OEATBANO  TC 
ASTRONAUT  SELECTED  VALUE 

CLEAR  NO  ANGLE  MONITOR  FLAG 

RATAR  IS  LOCKED  ON  CONTINUE  IN  P 20 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P 20- P 25 


0935 
09  36 
0937 
093  8 
0939 
390 

0941 

0942 
3943 

0944 

0945 

0946 

0947 


RFF  1 
RFF  137 
REF  5 
REF  2 
RFF  ? 
REF  2 
REF  84 
RFF  49 
RFF  8 
PFF  12 
REF  138 
RFF  3 
RFF  1 


LAST  522 
IAST  520 
LAST  522 
LAST  522 
LAST  522 
LAST  52< 
LAST  522 
LAST  532 
LAST  520 
LAST  *23 
LAST  514 


24,  3253 
24  ,3254 
24,3255 
24,  3 256 
24,3257 
24,  3260 

24.3261 

24.3262 
24,  3263 
24  ,3264 
24, ^265 

24. 3266 

24.3267 


3 3270  1 
0 46  16  I 
21544  1 
C 3262  1 
C 3253  0 
C 3265  0 
0 5155  0 
0 5527  1 
00126  1 
0 6025  0 
C 4616  I 
46H6  0 
0 3227  0 


R2  3LEM2 

R23LEM3 


CAF  0CT501PV 

TC  BANKCALL 

CADR  PRICLARM 

TC  R23LEM2 

TC  OUTOFLIM 

TC  R23LEM3 

TC  ENDOFJOB 

TC  DOWN  FI.  AG 

ADRES  NORRMON 

TC  G0T0V56 

TC  BANKCALL 

CADR  R61LEM 

TC  R23LEM1 


24,  3270  CC5C1  0 OCTSOlPV  OCT  501 
24,3271  00205  0 0CT205  OCT  205 
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ISSUE  ALARM  - RR  ANTENNA  NOT  WITHIN 
L I M IT  S 

TERMINATE  - EXIT  R23  TO  PCO  (GO  TO  POOH) 

PROCEED  ILLEGAL 

RECYCLE-  00  ANOTHER  MANUVFR 


CLEAR  NO  ANGLE  MONITOR  FLAG 


AND  EXIT  VI  A V56 


ZFkLINA  PY  ZCROASTEK 


ASSFMHLF  REVISION  56  OF  AGC  FPfGM 


P0950 
R09M 
10  952 

<0953 

RC956 

R0955 

< 0956 
RD957 
R 09  5? 
R0959 
RD96D 

< 0961 
RC96  2 
P 0963 

< 0966 
P 3 9 65 
R 0966 
R0967 
R3968 

< 0969 
R0970 
R 0971 
<9972 
RD973 
R 0 9 7 6 
<0975 
R7976 
R 0977 
R0978 
R0979 

0980 
D9P  1 

0982 

0983 
0986 

0985 

0986 

0987 
('988 
0989 
099C 
0 991 
0992 
( 995 
0996 

0995 

0996 


P20-P25 

SEARCH  ROUTINE  P26LEP 

PRO  CP  AM  (OESCP.  IPTION 

PCD  NO  - 2 

PY  P.  VOLANTE 

FUNf  T TONAL  DESCRIPTION 

TO  ACQUIRF  THF  CSP  BY  A SEARCH  PATTERN  WHEN  THE  RENDEZVOUS  RAC  AR  HAS 
FAILFT  TO  ACQUIRE  THE  C SM  IN  THE  AUTOMATIC  TRACKING  MODE  AND  TC  ALL  CH 
THE  ASTPCNAur  TO  CCNFIRM  THAT  P F AC  CJ  IS  IT  ION  HAS  NOT  BEEN  BY  SIDFLOBE. 
CALI  ING  SFOUFNCF 

CAF  dr  ionvi 

TC  FI  NO  VAC 

FRANK  = DATAGOOD 

2 C ADP  R26LEM 

SLOROLTI  NF  S CALLED 

FLAGMP  FLAGDOWN  HANKCALL 

R611FV  GOFLASHR  FINCVAC 

FNOOFJOR  NOVAC  LSR26.1 

NORMAL  FX  IT  MODES- 

ASTRONAUT  RESPONSE  TT  DISPLAY  CF  OMEGA  AND  C AT  A GOOD.  HE  CAN  EITHER 
REJECT  RY  TEPMINiTING  (SEARCH  OPTION  AND  RESFLECTING  P20)  OR  ACCEPT  BY 
PROCEEDING  (EXIT  ROUTINE  AND  RETURN  TO  AUTO  MODE  IN  P 20 ) 

ALARM  OR  ABORT  EXIT  PCOES- 
STF  NOPMAI  FX  IT  MODES  ABOVT 
OUTPUT  - 

SFC  OUTPUT  TROM  LSR26.1  * R61 LF P 
ERASABLE  INITIALIZATION  REQUlRtD 
SEE  INPUT  FOR  LSR26.1 
FLAGS  SET  + RESET 
SRCHOPT , ACMOCFLG 


RFF  3 
REF  1 
REF  32 
PEF  6 
REF  50 
REF  5 
PFF  110 
REF  6 
REF  2 
REF  3 
REF  23 


LAST 
LA  ST 
I.  AST 
LAST 
LAST 
LAST 
LAST 
L AST 
L AST 


522 
5C7 

523 
519 
517 
526 
321 


PEF 

RFF 

PEF 


13  LAST  523 


E7,l 733 

26,3272 
26 ,327? 
26, 3276 

26.3275 

24.3276 
26,  3277 
26,3300 
!6,  I 

26.3302 

26.3303 
26,  3 30  6 

. 

26,3306 
26,  3307 
26,3310 


55*736  1 
55*  735  0 
C 5366  0 
06  022  D 
2 3337  0 
0 66  16  L 
2C5C5  C 


EB  ANK=  DATAGOOD 
COUNT*  t $ / R26 
TC  UP  FLAG 

ADRES  SRCHOPTN 
TC  3 0 KNF  LAG 

ADRES  L0SCMFLG 
CAF  ZERO 
TS  DATAGOOD 

TS  OMEGAC 

TS  OMEGAD  +1 
TC  PH  A SC  HN  G 

OCT  060 22 
CAF  V16N80 
TC  DANKCALL 

PR  I CDS  PR 
G0T0V56 
R26ENC 


CADR 

TC 


26,  33  1 1 


P26LFM3 


7 LtMP2<  S.  OC  L 


PAGE 


: 12  OCT.  21, I97C 
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SET  SRCHOPT  TL  AG 

RESET  LOS  BEING  CCMPUTEC  FLAG  TO  MAKE 
SURF  DODF  S DOESN'T  GO  TO  R21 

ZERO  OUT  DATA  INDICATOR 
ZERU  OMEGA  DISPLAY  REGS 
ZERO  OMEGA  CIS  PI  AY  REGS 


PPOCFED  EXIT  R 26  TO  P20LEM1 


- CALL  R61  TO  MANEUVER  S/C 


RECYCLE 


GAP:  ASSEMBLE  REVISION  56  OF  A SC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P2  0 - P2  5 


099R  REF  1 AO 

)99=>  REF  1 

1000  PEF  3 

1001  REF  1 

1 P02  PFF  7 

1003  RFF  1 


LA  ST 
LAST 
LAST 


524 

520 

520 


2a,  33  13 
24  ,3314 

24.3315 

24. 3316 

24.3317 


G 4616  1 
55444  0 

0 6032  0 R24END 
55645  0 

C 6011  1 

1 2065  1 


TC  6ANKCALL 

CADR  LRS24.1 

TC  KILL  TASK 

C ADR  CALL  CGCF 

TC  C LR AP  MOD 

TCF  P 20  L EM l 


1304 

* 005  PEF  1 

1006 

1337  REF  1 


6011 

6000 

6)1  1 


BLOCK  3 
SETLO:  FF  TAG  6 
BANK 

COUNT*  ft  /P24 


lOOB 

1009 

101.0 

1011 
1)12 
Id  3 
13  14 


RFF  2 LAST  275 

RFF  37  LAST  5l7 
RFF  3fl  LAST  525 
RFF  2P  LAST  513 

REF  27  LAST  522 


6011  4 6021  0 

6"12  C 0C04  0 
60  13  7 0 1 10  0 

63  14  54  UO  0 

6015  4 4752  1 

6016  0 0006  1 

6017  03  012  1 


CLRAOMOD  CS 

INHINT 

MASK 


R IT10+15 

RADMODE  S 
R ADMODES 
81  T2 


CHAN12 


REF  150  L AST  5l6 


6020  0 CCC 2 0 


TC 


0 


i i < 

id  p 

1 19 

1)23 


REF 


RFF 


LAST 

AST 


6021 
24, 3320 
24, 2000 
24,332" 
525: 


41000  1 BIT10+15  OCT  41000 

BANK  24 
SETLOC  P20S 
BANK 

22  22*  COUNT*  tt/R24 


1021  PEF  24 

102? 

1 023  RFF  4 

1024  REF  2 

1325  f 1 r 

1 ref 

1027  REF  141 

1325  REF  10 

1029  RFF  Q 

1030  PFF  1 

1031  RFF  142 

1032  RFF  4 

1)33  RFF  111 

1034  RFF  2 

\ 1035 

1336  REF  1 


LAST 

LAST 
LAST 
I AST 

I AST 
L AST 
LAST 

LAST 
l AST 
LAST 
LAST 


524  24  ,3320  0 5364  n R24LFM3  TC 

24,332  1 C4C22  0 flCT 

525  24,  3322  C 6032  0 TC 

525  24,3323  55645  0 CAOP 

525  24,  3324  C 6011  1 TC 

24,3325  3 4774  1 CAF 

525  24  ,3326  0 4616  1 TC 

50  7 24,  3327  0 1736  1 CADR 

51  8 24  ,3330  0 2752  0 TC 

24,3321  C 3334  0 TC 

525  24,  3332  0 46l6  1 TC 

523  24,3333  46116  0 CADR 

524  24,  3334  ? 4755  1 R24LEM4  CAF 

229  24,3335  55‘303  1 TS 


P HA  SC  HN  G 

04022 

K I LLTA  SK 

CALLDG.CH 

CLRAOMOD 
. 5SFC 
BANKCALL 
OF  L AY  JOB 
1 UNSFCHK 
R2  4LEM4 
3ANKCALL 
R 6 1L  EM 
ZFRC 
RADCADR 


24,  3 336  0 3202  0 


TC  R24LEM2 


1037 


24,3337  04120  0 V16N80  VN  01680 
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CLEAR  BITS  10  £ 15  OF  R ADMODES. 

AND  GO  TO  400  MI.  RANGE  CHECK  IN  P20. 


r IS  ABLE  RR  ERROR  COUNTERS 
USER  W ILL  REL  INT 


KILL  WAITLIST  FOR  NEXT  POINT  IN  PATTERN 
CLEAR  BITS  D ■»  15  OF  RAOMOOES 

WAIT  FOR  DESIGNATE  LOOP  TO  DIF 

CHECK  IF  ON  LUNAR  SURFACE 
YFS-OUNT  DO  ATTITUDE  MANEUVER 
CALI  R61  TO  DO  PREFERRED  TRACKING 
ATTI  TUOE  MANFUVFP. 

ZERO  OUT  RACCADR  (WHICH  WAS  SET  BY 
FNDPADAR  WHEN  DESIGNATE  STCPPED)  SO  I HAT 
RRDESSM  WILL  RETURN  TO  CALLER 
AND  GO  BACK  TO  PUT  UP  V 16  NRO  DISPLAY 


SAP: 


ASSENBLF  RFVISICN  5b  CF  AGC  PROGRAM  2 ERL  IN  A BY  ZOROASTER 


L P20-P25 

P1038  PREFFRREC  TRACKING  ATTITJOE  ROUTINE  R 6 iL  EM 

T1039  PROGRAM  OF  SCRI  PTI  CN 

<3  1 0*0  MOD  NO  : 3 DATE  : *-11-67 

R 1 0*1  VCD  9Y  : P VCLANT  6 S CC 


3 1 *2  FUNCTIONAL  DESCRIPTION- 

<31j43  TC  COMPlJTF  THF  PREFERRED  TRACKING  ATTI  TUDF  OF  THE  LM  TP  ENABLE  RR 

Rl'**  TWACKING  OF  THE  CSM  AND  TC  PERFORM  THE  MANEUVER  TO  THE  PREFERRED 
R 19*5  ATTITUDE. 

Rlf*6  CALLING  SFQUENCE- 
3 10*7  TC  BANKCALL 

P.  1 0*  8 CADR  R61LEM 

Rl  *9  SUBROUTINES  CALLEC 
3 105'-  LPS20.  1 VEC  PCI  NT 

R105I  KAI  CMAN3 


R 1 <52 
R 10  53 
p.1?5* 

3 1055 
<3  1 ‘'56 
R 1 r c 7 
3 105R 
Rl  059 
R 10  60 
R 1061 
Rl  ? 62 
3 1063 
R 1 06* 

1 065 
1066 
1067 
106B 
1C  69 

1070 

1071 

1072 
1 C7^ 

10  7* 

1075 

1076 

1077 
1077i  ? 
1077C* 
1 0 7B 

1 f 79 
1080 
1081 


ROJT  INE  (R6r  ) 


NORMAL  EXIT  MOCFS- 

Nf)RwA!  PFTLRN  IS  TO  CALLER  + 1 
ALARM  OR  ABORT  EXIT  MODES- 

TFRHINATE  P20  *■  R6I  BY  PRANCE  INC.  TC  P2  0 E N D IF  BOTH  TRACKFLAG 
RENDEZVOUS  FLAG  ARF  NOT  SET. 

OUTPUT  - 

SFF  OUTPUT  FCP  LPS20.1 
ERASABLE  INITIALIZATION  REOtJII 
C.FNRET  USEC  TC  SAVE  C FOR 
FI  AGS  SET  + RF  SET 
3 AX  IS  FL  0 
OFRR  I S 

SEE  SUBROUT INES 
PFF  1 


ATTITUDE  MANEUVER 
JIKEO 
RETURN 


REF 
RF  F 
RFF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
PFF 
REF 
RFF 
RFF 


IB  I.  AST 
1 

* LAST 
2 LAST 
33  I A ST 


LA  ST 
I AST 
L AST 
LAST 
L AST 
LAST 
LAST 


520 

*B  5 

522 

52* 


526 
526 
52* 
526 
52? 
2C6 
*7  6 


, 

23  ,2116 
E 7,  1*56 

23, 2116 
23,  2 117 
23  ,2120 
23,  2121 

23,  ?1  2 2 

, 

23,  215* 
23  ,2125 
23 ,2 126 

23,  2127 

23  ,2  130 
23,  2121 
23,  ! - 
23,2133 
23,  212* 


0 *6*5  1 R61LFM 
55*1*2  0 
0 5515  0 
C0C2*  1 
0 2150  1 
C *6*5  1 
55*1*2  0 
0 5527  1 
0002*  1 
5 *756  1 
55*073  0 
2 *750  1 
0 0006  1 
02  033  0 
1C  CCC  0 


setlo: 

BANK 
F B A N K = 
COUNT  * 
TC 
TS 


R65LEM  TC 


CA 


TS 

6L01  CAF 

EXTEND 
RANO 
CC  S 


P 61 

LO  SC  C UN  T 
S f/R  61 
MAK  ECADR 
GENRE  T 
JP  FL  AG 
R61FLAG 
R61C+LC2 
MAKECACR 
GENRE  T 
DOWNFL  AG 
R61  FLAG 
31  Tl* 

A GS  CODE 
Rl  T* 

CHAN33 
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SET  R 6 1 FLAG 


RE  SET  R 6 1 F LAG 

RESET  AGS  CODE  WORC  1=20000).  DON'T  USE 
PONGS  DOWNLINKED  RADAR  DATA. 

BYPASS  RADAR  READING  IF  DATA 
GOOD  NOT  PRFSFN'T 
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L 

p2r- 

-P25 

USE  P'S  PAG  F NC.  2 8 E7  S3 

108  ' 

REF 

2 

LAST 

526 

23,2135 

1 2150 

0 

TCF 

R61C+L02 

NO  DATA  GOOD 

1385 

PFF 

143 

L AST 

525 

23,  2136 

0 46  1 6 

1 

TC 

BANKCA  LL 

READ  RR  RANGE  AND  RDOT 

1086 

RFF 

3 

LAST 

516 

23  ,2137 

53070 

0 

CAOR 

RRRDOT 

EVERY  P 65  PASS  (3  TIMES 

10R7 

RFF 

144 

LA  ST 

527 

23,2140 

C 4616 

1 

TC 

BANKCALL 

B F FOR  E FIRST  MARK,  ONCF 

1 088 

PEF 

7 

LAST 

518 

2 3,  214  1 

17713 

1 

C ADR 

RAD  STALL 

DURING  ANY  MAPK  PROCESSING, 

1089 

23,2142 

12  143 

1 

NOOP 

1D9D 

RFF 

145 

LAST 

527 

23,  2143 

C 4616 

1 

TC 

BANKCALL 

1091 

PEF 

2 

LAST 

499 

23,2144 

53072 

1 

CADR 

R R RANGE 

109? 

RTF 

146 

LAST 

527 

23,2145 

C 4616 

1 

TC 

BANKCALL 

1393 

per 

8 

1 AST 

527 

22,  2146 

17713 

1 

CADR 

R AOSTALL 

1094 

23  ,2147 

12  150 

0 

NOOP 

1097 

REF 

12 

LA  ST 

514 

23,2  150 

3 4747 

l 

R61  OLO? 

CAF 

TRACKRIT 

T RACK FL AG 

1098 

REF 

36 

L AST 

513 

23, 2151 

7 0075 

1 

MA  SK 

STATE  +1 

1099 

23  ,2152 

0 0006 

1 

EXT  END 

i no 

REF 

1 

23,  2153 

1 2312 

l 

BZF 

R65WAIT 

NOT  SET 

1 Ini 

REF 

44 

LAST 

520 

23,  3i  54 

0 6 05  1 

0 

P 6 10  +L  0 3 

TC 

INTPPE  T 

1 102 

23  ,2155 

77775 

1 

V LOAD 

1 101 

PEF 

1 AST 

496 

23,  2156 

C6512 

1 

HI  UNI  T 7 

1104 

RFF 

21 

LAST 

491 

23  ,2157 

03765 

0 

STORE 

SC  A X I S 

TRACK  AXIS  UNIT  VFCTOR 

1105 

? 3 , 2 160 

*3234 

0 

R61  LF  Ml 

RTfi 

DAD 

1105 

REF 

11 

L AST 

520 

23,  2161 

: 1555 

1 

LOAD  TI  ME 

EXTRAPOLATE  FORWAPC  TO  CENTER 

lin? 

RFF 

1 

23  ,2  162 

15714 

1 

3SEC0NDS 

SIX  SECOND  PERIOD. 

1 109 

RFF 

15 

LAST 

519 

23,  2163 

34C41 

c 

STCALL 

TDFC1 

1 1 09 

REF 

4 

LAST 

5 1 9 

23,  2164 

51340 

1 

l PS20.  1 

LOS  DETERMINATION  + VEH  ATTITUDE 

1110 

23  ,21  65 

77775 

1 

V LOAD 

1 1 1 1 

RFF 

2 

L AST 

10  5 

23,  2166 

C11C1 

0 

RR TARGET 

1112 

RFF 

3 

LAST 

489 

2 3 ,2167 

03773 

1 

STORE 

PO  IN  TV SM 

1113 

23,7170 

45  034 

1 

RTB 

CALL 

GET  DESIRFD  CDU'S  FOR  VECPNT1 

1114 

PFF 

1 

23,  217  1 

46  320 

1 

RE  ADCDUD 

1115 

PFF 

1 

23  ,2172 

560  32 

0 

VFCPNT  1 

COMPUTES  FINAL  ANGLES  FROM  PRESENT  CDUDS 

1116 

REF 

8 

LAST 

48  5 

23,  2173 

C0322 

l 

STCRE 

C PHI 

STORE  FINAL  ANGLES  - CP  H I , CTHET  A ,CP  S I 

1117 

23,  2174 

77776 

1 

EXIT 

1118 

RFF 

25 

LAST 

525 

23,2175 

C 5364 

0 

TC 

P HAS  C FN  G 

1 119 

23,  2176 

04C22 

0 

OCT 

04022 

1120 

REF 

1 3 

LAST 

527 

?3  ,2177 

3 4747 

1 

CAF 

T9 ACKR  IT 

I S TRACK  FLAG  SET 

1 121 

REF 

24 

LA  ST 

515 

23  ,2200 

7 0075 

1 

MAS  X 

FLAGWROl 

1122 

2 3,  2 20  1 

C OOC 6 

1 

F XTEND 

1 123 

PEF 

2 

LAST 

527 

2 3 ,2202 

l 2312 

1 

BZF 

P65WA  IT 

1 124 

RCF 

147 

LAST 

527 

23,  2203 

C 4616 

1 

TC 

BANKCALL 

1125 

REF 

2 

LAST 

48  2 

2 3,  7 2C  4 

54  2(3 

1 

CADR 

G + N ,A  IJTO 

CHECK  FOR  AUTO  MOOE 

1 126 

RFF 

167 

LA  ST 

526 

23,2205 

10  000 

0 

CCS 

A 

1127 

RFF 

1 

23,  22C6 

C 2300 

0 

TC 

R61C+L04 

NOT  IN  AUTO 

1128 

RFF 

45 

LAST 

52  7 

23  ,2207 

0 605  1 

0 

TC 

INTPRET 

1129 

23  ,2210 

45  175 

0 

VLOAD 

CALL 

1130 

RFF 

3 

L AST 

527 

23, 2211 

oiioi 

0 

RR  TARGET 

1131 

RFF 

1 

23  ,2212 

47653 

1 

CDU*SMNB 

113? 

23,  22  13 

45  345 

1 

D LOAD 

OS  u 

GET  PHI  - ARCCOS  OF  Z-COMPONENT  OF  LOS 

1133 

RFF 

245 

LAST 

5 1 4 

73,  2]  14 

00162 

1 

MPAC  ♦ 5 

1134 

PEF 

1 

73,2215 

06316 

0 

COS 15DEG 

1135 

23,  2216 

77440 

1 

R 6lLE  M2 

BMN 

E XI  T 

BRANCH  - PHI  > 15  DEGREES 
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1136 

1137 

1138 
113Q 
1 1 AO 
1 1 A 1 
1142 

no 

1 144 

1145 
11  46 

1147 

1 1 48 
114Q 

1150 

1151 
1157 

1153 

1154 

1155 

1156 
1 1 57 
1 1 58 
1 1 SO 
1160 
1161 
1162 
1 163 

1164 

1165 

1166 

1167 

1168 
1169 
117- 

1171 

I 172 

1173 

1174 

I I 75 

1176 

1177 

1178 

1179 
1 1 EP 
1181 
1182 
1183 
11  84 
110  5 
1 1 85 


PLF 
RFF 
PEF 
fi  EF 


REF 

PEF 

P.EF 

PEF 

RFF 

RFF 

RFF 

PEF 


REF  lo 

REF  3 
RFF  20 
PEF  2 
PEF  52 
REF  5 
REF  34 
RFF  2 
REF  148 
REF  3 


PEF 

RFF 

REF 


26 


L AST 
LAST 
I A ST 


LAST 
LAST 
LA  ST 
LAST 


21 


REF  53 
REF  3 
RFF  25 
PEF  1 
RFF  168 
RFF  1 
REF  3 

REF  2 
REF  4 
PEF  1 
REF  9 
REF  1 
RFF  85 
R EF 
REF 
REF 
REF 
RFF 


374 

299 

468 


527 

528 
486 
37  4 


10  IASI  52  6 


LAST 
LAST 
LAST 
L AST 
LAST 
l A ST 
L AST 
LA  ST 
LAST 
LAST 

L AST 
LAST 
LA  ST 

LAST 

LAST 

LAST 

1 AST 

l AST 


LAST 
LA  ST 
LAST 
LAST 


522 
368 
528 
5 22 
52b 
49  3 

526 
4 8 3 

527 
40  3 

528 
522 

527 

528 
528 
527 

527 

516 


523 
520 
520 
52  8 


23,221 7 
F6,  1634 
23  ,2220 
23,2221 

2 3,  7222 
23  ,2223 
23,  2224 
2 3,  2225 
23,2226 
23,  2227 
23  ,2230 
E 7,14  56 
23,  223  1 
23  ,2232 
22,2223 
23,  2234 
23  ,22  35 
23,  2236 
23,  2237 
23,2240 

22,  224  1 
23  ,2242 
23,2243 

23,  2244 
23  ,2245 
23,  2246 
23,  2247 
23  ,2250 
23,  2261 
23  ,2252 

23.2253 

23. 2254 
23  ,2255 
23,  ? 256 
23, 2257 
23  ,2260 
23,  2261 
23  ,2262 
23  ,2263 
23,  2264 
23  ,2265 
23,  2266 
23,  2267 
73  ,2270 
23,  227  1 
23  ,2272 

23.2273 

23. 2274 
E7  ,1456 
22,  2375 
2 3,  2 276 


46234  0 

3 5015  C 
54  CC3  C 
C 0CC4  0 
0 0006  1 
3 0322  1 

6 3*635  1 
3 0323  0 
56*636  1 
0 COO  3 1 

3 501 6 0 
54  003  0 
L 2257  -1 
77776  1 
0 0004  0 
C 4674  O 
40154  0 
C 4674  0 
4C141  1 
0 5527  1 
00124  0 
0 cc 15  0 
0C077  1 
C 4616  1 
5412  5 0 
C 0004  0 
C 4674  0 
40115  0 
C 5 36  4 0 
04022  0 
0 5527  1 
CCC77  1 
3 0 0 75  0 

7 4742  0 
10  000  0 
0 2303  0 
11*745  1 
0 2266  1 
0 2303  0 
6 6 ' 145  1 
3 2317  0 
C 5204  1 

02273  0 
0 5155  0 
3 7726  0 
C 6 105  n 


TS 
INHI  NT 
EXT  END 
OCA 
DXCH 
CA 
TS 

RELINT 

FRANK= 

CAF 

TS 

TC 

R61C+L  05  EXIT 

IN  HINT 
TC 

FCADR 


R61 C+L05 
CDUXD 
EBANK6 
FRANK 


TC 

FCADK 


ADRES 

R61C+L06  CA 

MASK 


C PHI 
CDUXD 
CPS  I 
CDUZO 

LOSCOUNT 
EBANK7 
FRANK 
R61C  + L06 


R61C+L2  CAF 


I RNKr ALL 
ZATTFROP 
I BNKC ALL 
SETMI  NDB 
DOWN  FLAG 

3 AX  ISFLG 
UPFLAG 

P DSP  FLAG 
BANKCALL 
R60LEM 

I BNKCALl 
R FSTORDB 
PHASCHNG 

04  022 
DOWNFLAG 
POSPFLAG 
FLAGWRO 1 
R6  1FLBIT 


R6  1C+L4 
R65CNT  R 
06  SEC 
TW  I DOLE 
P6  1 C+  L2 
EN  DOF JOB 
PR  1026 
F I ND VAC 
LOSCOUNT 
R61 C+  LO  1 
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PHI  GRE  10DEG 


REDUCE  ATT  IT  J DE  ERROR 

SET  PRIORITY  DISPLAY  FLAG 


RESET  PRIORITY  DISPLAY  FLAG 


P 6SCNTR 


F XI  T ROUT!  NE 
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L P70-P25 


1188 
11RO 
1 1O0 
11^1 
11^2 
1103 
1 

1 1 OS 
1 106 
1 197 
lion 


R EF 
RFF 
REF 
RFF 
RFF 
RFF 
RFF 
RFF 


RFF 

RFF 

REF 

RFF 


7 


8 

1 

37 


LAST 
LAST 
LAST 
L AST 
LAST 
L A ST 


86  LAST  52p 
3 LAST  520 
37  LAST  477 
6 LAST  520 


. 

23,2301 
23,  23C2 
23  ,23C  3 
23,2304 
23,  2305 
23  ,2306 
23,  23C  7 
23,  23io 
23,2311 
23,  2312 
23  ,2313 


C 5272  0 
0 4-6  16  l 
54274  1 

0 2257  0 
31*142  1 

1 4640  C. 
3 2314  0 
7 0074  0 
C CCC6  1 
1 5155  1 
C 2257  0 
C 4635  0 

50310  0 


TC 

R 6 1F+L  04  TC 

CAOR 

TC 

R61C+L4  CAE 
TC  F 

R 61C+L  1 CAF 
MASK 
EXTEND 
BZF 
TC 

R65WAI  T TC 

CACR 


TASKOVER 
BANKCALL 
BALL  AN GS 
R61C+I.C6 
GENRET 
BANK  JIJR  F 
3 I T7+9PV 
STATE 

ENDOF  JOB 

l * +1 

POST  JURE 
P 20LEMWT 


1100 
1200 
1200 
1231 
12  02 
1203 

1234  RFF 

1205  REF 

1206  PEE 

1207  RC-F 

1208  RFF 
123°  REF 
1210 

1211  RFF 

1212  REF 

1213  RFF 

1214  KEF 

1215 

1216  REF 

1217 

1218  RFF 
1210 


0 I AST  528 

17  LAST  528 
71  LAST  764 

1 4 LAST  528 

15  LAST  5?  ° 

246  LAST  527 

6 LAST  374 

247  L AST  520 
2?  LAST  520 

18  LAST  520 


23,  2 316 
23,2316 
23,  2317 
0024 
23  ,2320 
23,  732  1 
23  ,2322 
?3,23?3 
E6,  1634 
23  ,2324 
23, 2325 
23,  2326 
23,2377 

22,  2330 
73  ,7331 
23  ,233? 

23,  233  3 
23  ,2334 

4512 

4000 

4512 


34602 
Cl  130 


0 0004  0 

2 5 C 1 5 0 
56  003  1 
5 4 0 70  1 


3 1634  1 
54  154  C 
0 0006  1 
3 1636  0 
52  156  1 
3 0070  0 
54  003  0 

0 0003  1 

1 6511  0 


01 T7+9PV  OCT  00500 

CQS15DEG  2DEC  0.  96593  8 

06  SEC  OEC  600 

PHI  EQUALS  20D 

RF ADC DUD  INHINT 

CAF  EBANK6 

XCH  ERANK 

TS  RUPTREG1 

E8ANK  = CDUXO 

CA  CDUXD 

TS  MPAC 

EXTEND 

OCA  CDUYD 

D XCH  MPAC  +1 

CA  RUPTRFG1 

TS  EBANK 

RELINT 
TCF  TMQDE 

BLOCK  02 

SETLOC  RADARFF 

RANK 


REF  21  LAST  528  E7,1456 

REF  1 


ER ANK=  LOS CCU NT 
COUNT*  $1  /RR  SUB 
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TO  CONVERT  ANGLES  TO  FDAI 


EX  IT  P6  l 

IS  RENDEZVOUS  OR  P25FLAG  SET 


NO-EXIT  ROUTINE  AND  PROGRAM. 
YES  EXIT  ROUTINE 


READS  DESIRCD  CDU'S  AND  STORES  IN 
MPAC  TP  EXITS  WITH  MODE  S FT  TO  TP 


GAP:  ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  ZEPLINA  BY  ZOROASTER 

L P20-P25 


9:12  CCT.  21,1970 
USER  *S  PAGE 


ZLEMP2C-S I 
NO.  31 


PAGE  53j 
E?  S3 


Mil 


TEE  FOLLOWING  SUBROUTINE  RFTLRNS  TO  CALLER  ♦ 2 IF  THE  ABSOLUTE  V«LUF  CF  VAl  U6  OF  C(A>  IS 
NFGATIVE  CF  THE  MUMPER  AT  CALLER  +1  . OTHERWISE  IT  RF  TURNS  TO  CALLER  +3.  MAY  BE  CALLED  IN 


GREATER  THAN  THE 
RUPT  OP  UNDER  EXEC. 


122* 

1227 

122« 

1229 


4512  C 
A 5 1 3 (■ 

<♦514  I 
4 515  A 


0006  1 
A 5 1 5 1 

A 5 1 6 0 
CCCO  0 


MAGSUB 


EXTEND 
BZMF  + 2 
TCF  +2 

COM 


123.  PEF  1 5 1 LAST  525 

1231 

1232 

1233  RFF  1 

1234  RFF  3 LAST  274 


A51  7 

4520 

4521 

4522 


50  002  0 
6 0000  I 
C CCC6  1 
6 6753  0 
1 675  1 0 


INDEX  D 
AD  0 

F XTEND 

BZMF  0+2  ABSIA)  <=  CONST  GC  TC  L+3 

TCF  0 + 1 ABSIA  ) > CONST  GO  TO  L+2 
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P20-P25  USER'S  PAGF  NO.  32  E7  S3 

P 1 2 35  PROGRAM  NAME.  RPI.IMCHK  APE  IN  THE  LIMITS  OF  THE  CURRENT  MODE. 

R 1 2 3 7 FUNCTICNAL  DESCRIPTION 

3 12  38  R R L I VC  H K CHECKS  RR  DFSTREO  G I M6  AL  ANGLES  TF  SEE  IF  THEY  ARE  WITHIN 

R1  230  T HE  LIMITS  OF  T I- F CURRENT  MODE.  INITIALLY  THE  DESIRED  TRUNNION  AND 

R124"  SHAFT  ANGLFS  A P F STOREP  IN  IT  E N PI  AND  ITFMP2.  THE  CURRENT  RR 

R12A1  ANTENNAE  MODF  (RAUMODES  BIT  12)  IS  CHECKED  WHICH  IS  = D FOR 
R12A2  MCDE  1 ANP  =1  FOP  MODE  2. 

3 1253  MODE  1 - 1HE  TRUNNION  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
*U255  BETWEEN  -55  AMD  +55  OEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN  LIMITS, 

«1255  THF  SHAFT  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  RETWEFN  -7C  AND  +59  DEGRFF  S. 

3 1 2 4 r If  NOT,  RETURN  T r L +2.  IF  I |\  LIMITS,  RFTUPNTC  L +3. 

R1257  MODE  2 - T HE  SHAFT  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
RI25R  BF  TWEEN  -139  AND  -25  CEGREES.  IF  NCT  , RETURN  TO  L +2.  IF  WITHIN 

*3  1259  LIMITS,  THF  TRUNNION  ANGLE  IS  CHECKED  TC  SEE  IF  IT  IS  BETWEEN  +125 

R125  ’•  AND  -125  (+23?)  DFGRFES.  IF  NCT,  RETURN  TD  L +2.  IF  IN  LIMITS,  RFTURN 
3 1251  TO  L +3. 

R1  252  CALL  INC  SEOUENCE: 

<31  253  L TC  RRLIMFHK  (WITH  INTERRUPT  INHIBITED) 

3 1255  L +1  ADRES  T.S  (DESIRED  TRLNNICN  ANGLE  ADDRESS) 

R125S  FRASAPI  E INITIAI  IZATION  REQUIRED: 

R 12  56  RADMODFS,  MODEA,  MCDFB  (OR  DESIRFC  TRUNNION  AND  SHAFT 

R 1257  ANGLES  ELSEWHERE  IN  CONSECUTIVE  LOCATIONS  - UNSWITCHED  ERASABLE  OR 

R 1 25 8 CURRENT  EPANK  ) . 


3 1259  SUBROLTI  NE  S CALLED.  MAGSUB 
131260  JOBS  OP  TASKS  INITIATED.  NONE 

(31261  ALARMS.  NCNF 

3 1262  F XI  T L + ? (EITHER  OR  BOTH  ANGLES  NPT  WITHIN  LIMITS  OF  CURRENT  MODE) 
R1  263  I + 3 (BOTH  ANGLFS  WITHIN  LIMITS  OF  CURRFNT  MODE) 


1265 

1265  REF  152  LAST  53(1 

1266 
1267 

1263  REF  153  LAST  531 

1269  REF  6 LAST  265 

1270  REF  155  LAST  531 


5523  0 0006  1 

5525  5 0CC2  0 

5525  5 OOCO  1 

5526  3 0001  0 

5 5 2 7 25  CC2  0 

5530  52  062  1 

5531  22  002  0 


RRLIMCHK  EXTEND 
INDEX 
INDE  X 
DCA 
I NCR 
DXCH 
LX  CH 


I TEMP  l 

Q 


LICALLER  +2)  TO  L. 


1273 
12  74 


REF  2 LAST  320 
RFF  39  LAST  525 
RFF  169  I A ST  528 
REF  1 


5532  2 5150  0 

5533  7 0110  0 

4 c ?5  1C  COO  0 
5535  1 555C  1 


CAF  ANTENBIT  SEE  WHICH  MCDE  PR  IS  IN. 

MASK  RADMODFS 

CCS  A 

TC  F MODE  2CH  K 


1275  REF  7 


531  5536  3 0061  0 


CA 


LAST 


ITEMP1 


MODE  1 IS  DEFINFD  A S 


SAP: 


ASSEMBLE  REVISION  5o  OF  AGO  PRCGPAM  ZERl INA  BY  ZOROASTER 


L P?9-P?5 


1276  REF  1 

1277 

1273  REF  64  LAST  472 


4537  C 4512  C 

4540  66161  1 

4541  C 0C01  C 


TC  PAG  SUB 

DEC  -.30555 
TC  L 


1270 
1 280 
1 2 P 1 
1282 
1263 
12  84 


PFF  1 

RFF  3 LAST  96 

PFF  2 LAST  53  2 

REF  65  LAST  532 

RFF  1 


4542  3 4662  1 

4543  6 006?  O 

4544  C 4512  0 

4545  64420  0 

4546  C 0CC1  0 

4547  0 4560  0 


CAF  5.50FGS 

AO  ITEMP? 

TC  MAG  SUB 

DEC  -.35833 

TC  L 

TC  PR  LI MOK 


12P5  PFF  1 

1296  RFF  4 LAST  532 

1287  RFF  3 LAST  532 

1288 

1289  REF  66  LAST  532 


4550  3 4563  0 MC0E2CHK  CAF  82CEC-S 


4551  6 OC 6 2 0 

455?  0 4512  0 

4553  65673  0 

4554  C 0001  0 


AO  ITEMP2 

TC  MAGSUB 

DEC  -.31667 
TC  L 


1200  PFF 

1201  RFF 
1292 


LAST  531  4555  3 0061  0 

LAST  532  4556  C 4512  0 

4557  51615  1 


CA  ITEMP1 

TC  MAGSUB 

DFC  -.69444 


129  3 
1 2^4 


4560  50  001  0 RPLIMCK  I NCEX  L 

4561  0 0001  0 TC  L 


4562  00765  0 5.5CEGS  DEC  .03056 

4563  16450  1 820EGS  DEC  .45556 
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1.  A8S  ( T)  L 55  DECS. 

2.  ABS(S  + 5.5  DFGS)  L 64.5  OEG  S 

(SHAFT  LIMITS  AT  +59,  -7C  DfcGS  ) 


64.  5 OEG  S 

IN  LIMITS. 


MODE  ? IS  DEFINED  AS 

1 . A8S  (T  ) G 125  OEGS  . 

2.  ABS(S  + 82  OEGS)  L 57  DEGS 

(SHAFT  LIMITS  AT  -25,  - 139  DEGS) 


125  DEGS 


TC  1 ) 
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L P2C-P2S 

’ 1207  PROGRAM  NAME.  SETTRKF 
R1  297  FUNCTIONAL  DESCRIPTION. 

R 1 3'  1 SETTRKT  UPDATES  THE  TRACKER  FAIL  LAMP  ON  THE  DSK  Y . 

R 1 31 1 2 INITIALLY  THF  LAMP  TEST  FLAG  (IMCDES33  B I T 1)  IS  CHECKED. 

Rl3r-3  IF  A LAMP  TEST  IS  IN  PROGRESS,  THF  PROGRAM  EXITS  TO  L +1. 

*1304  IF  NO  LAMP  TF  ST  THE  FOLLOWING  IS  CHECKED  SEQUENTIALLY 

R 1 3 3 5 1)  RR  C DU: S RFING  ZEROED,  RR  DDL  OK,  AND  RR  NOT  IN 

Rl3'6  AUTC  MODE  (RAOMOOES  AITS  13,  7,  2). 

<17.  7 ?)  I R VFL  DATA  FAIL  AND  NO  LR  PCS  DATA  (RADMODES  BITS 

R133B  8,5) 

R 1 709  3)  NC  PR  DATA  (RACMOCES  BIT  A) 

R 1 7 1 1 THE  ABSENCE  DF  ALL  THRFE  SI  MUL  TA  NF  CUS  L Y IN  (1),  THE  PRESENCE  OF  BOTH 

R1311  IN  (2),  AND  THE  PRESENCE  OF  (3)  RESUITS  IN  EITHER  THE  TRACKER  FAIL 

<1312  LAMP  (DSPTAR  +11D  BIT  3)  BEING  TURNED  ON  OR  LEFT  ON.  OTHERWISE, 

RI3I7  THE  TRACKER  FAIL  LAMP  IS  TURNED  OFF  OR  IS  LEFT  OFF.  THEREFORE,  THF 
913U  TRACKFR  FAIL  LAMP  IS  TURNEC  ON  IF. 

<1315  A ) RR  CD U FAILED  WITH  RR  IN  ALTC  MODE  ANC  RR  CCU:S  NOT  BEING  ZEROED. 

R 1 7 1 6 P)  N SAMPLES  OF  LR  DATA  COULD  NOT  BE  TAKEN  IN  2n  TRIES  WITH 

R 1 3 1 7 EITHER  THE  AIT  OR  VEL  INFORMfTICN 

3 1318  C)  N SAMPLES  OF  RR  DATA  CQLLD  NCT  BE  OBTAINED  FROM  2N  TRIES 
R1319  W IT  H EITHER  THE  AL 


<13?n  CAL!  I NG  SFQUFNCF: 

R1321  l TC  SETTRKF 


R 1 3 2 ERASABLE  INITIALIZATION  REQUIRED:  IM0DES33,  RADMODES,  D SP  TAB  +110 
<1323  SUBROUTINE S CALLED.  NONE 


R1324  JOBS  OR  TASKS  INITIATED.  NONE 
R 1 325  ALARMS.  TRACKER  FAIL  LAMP 
R 1326  FXIT.  L +1  (ALWAYS) 


132fi 
1 32*7 
133? 
133! 


RFF  2* 
REF  31 
REE  170 
REF  155 


LAST 
LAST 
L AST 
LAST 


47  5 
478 
531 
531 


4564  3 4753  1 

4565  7 1300  1 

4566  10  CCO  0 

4567  C OOC2  0 


SETT3  KF 


MASK 

CCS 

TC 


3 1 T 1 

I MODES  33 

A 

Q 


26 

69 


4570  3 4744  I RRTRKF  CA 

4571  54  L C 1 1 TS 


1 335 
133  6 
1337 


2 

40 


PEF  1 


457  2 

4573 

4574 

4575 


3 4615 
7 C110 
C 00C6 
1 4601 


1 

G 

1 

0 


CAF  13,7,2 
MASK  R ADMCDFS 
EXTEND 

8ZF  TRKFLON 


1338  REF  1 

1330  REF  41  LAST  573 


4576  3 4750  1 RRCHECK  CAF 

4577  7 0 110  0 MASK 


PROATABT 
RADMODF  S 
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. IF  EITHER  : 

HER  THE  ALT  OR  VFL  INFORMATION. 


FD. 

NO  ACTICN  TF  DUPING  LAMP  TEST. 


SEF  IF  CDU  FAI LED. 

CONDITION  3 ABOVE. 

SEF  IF  RR  OAT  A FAILED. 
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I 35'- 
135! 
1352 
1351 
1355 
1 355 


REF  17  1 L AST  e 3? 
REF  7 r | AST  533 
REF  ?5  LAST  579 
REF  7 1 LAST  5l5 

RFF  4.  LAST  279 


56CC  ic  OCO  0 

5601  3 0001  0 

5602  6 1035  0 

5603  7 C0C1  1 

5605  0 0006  1 

66C5  1 6765  C 


TRKFLON 


CCS 

CA 

AO 

MA  SK 
FX  T EN  D 
B7F 


A 

L 

DS  .PT  A 8 
L 

TCC 


+ 1 1 0 


HALF  ADO  DESIRED  AND  PRESENT  STATES. 


NO  CHANGE. 


1 356 
1 357 
1 35P 
l 359 
1 350 

1351 

1352 


RFF  50 

PFF  10 
RFF  11 
RTF  30 
REF  5 1 
RFF  156 


LAST  535 

LAST  26  5 
LAST  550 
LAST  517 
LAST  5 35 
LAST  533 


5606  3 1035  0 

66C7  C 0006  1 

5610  (6  CC  1 C 

5611  7 5733  0 

5612  6 57  35  1 

5613  5e*035  1 

5615  0 0002  0 


FL  IP 


CA  0 SPTAfl  + 110 

EXTENO 

RXOR  LCHAN 

MASK  POSMAX 

AO  0IT15 

TS  0 SP TAB  + 1 1 D 

TC  Q 


CANT  USF  LXCH  OSPTAB  +110  (RESTART  PROB) 


5615 
56  16 


101C2  0 13,7,2  OCT  10102 

ENDRMOOF  EQUALS 


Gftp  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P25 

P 1 3 55  PROGRAM  NAME.  RRTURNON 
R l 356  FUNCTIONAL  DESCRIPTION. 

'135  7 RRTURNON  IS  THF  TURN-ON  SEQUENCE  WHICH,  ALONG  WITH 
3 1 36fl  PR7FROSB,  7FRCS  THE  COU:S  AM)  CETFRMINFS  THE  RR  MODE. 

R1359  INITIALLY,  CONTROL  IS  TRANSFERRED  TO  RR ZER 0 SR  FOR  THE 
*1366  ACTUAL  TURN-rN  SEQUENCE.  UPON  RETURN  THE  PROGRAM 
3 1361  WAITS  1 SECOND  REF  CRE  REMOVING  THE  TURN-CN  FLAG 
*1362  (RAOMOOES  R IT  1 » SO  THE  DEPOSITION  ROUTINF  WON  : T 

R 1 363  INITIATE  PROGRAM  ALARM  06  501.  A CHECK  IS  THFN  MADE 

1:1364  TH  SFF  IT  A PROGRAM  IS  USING  THE  RR  (STATF  RIT  7).  IF 
*1365  SC,  THF  PROGRAM  EXITS  TO  ENDRADAR  SO  THAT  THE  RR  CDU 
3 1 366  FAIL  FLAG  (RADMCDES  RIT  7)  CAN  EE  CHECKED  BEFORE 
R1367  RETURNING  TO  THE  WAITING  PROGRAM.  IF  NOT,  THF  PROGRAM  EXITS 
R136R  TC  TASKCVER. 


R 1 371 


CALLING  SEQUENCE:  WAITLIST  TASK  FRCM  RRAUTCHK  IF  THF  RR  POWER  ON  AUTO 
RIT  (CHAN  33  RIT  2)  CHANGES  TO  0 AND  NO  PROGRAM  WAS  USING 
THE  RP  ISTATE  eiT  7). 


R 1 37  ? ERASABLE  IN  IT  I A l 1 1 A TI  ON  RE  QUI  RE  D : 

P 1 3 73  R ADMODES,  STATE 


31374  SURROLTINF  S CAl  LED.  RRZFRCSP,  FIXDFLAY,  TASKOVER,  ENDRADAR 

R1375  JOBS  OR  TASKS  INITIATED 
R1376  NCNE 


3 1 377  A (ARMS.  NCNE  (SEE  RRZEPOSB) 

R1  378  EXIT.  TASKOVER,  EN  DR  A DA  3 (WAITING  PROGRAM) 

1370  24,3340 

1380  REF  1 ? 5 , 20CC 

1381  25,  2053 


SANK  24 
SETLOC  P20S1 
RANK 


1382 

1383 
13  84 
13P5 
1 386 

1387 

1388 

1389 


22  LAST  5?9 


PEE 

REF 

RFF 


E7  , 


456 


25.2053 

25.2054 
25,  2C  5 5 
25  ,2056 
25,2057 
25,  2060 


C 2062  1 
0 5232  1 
C0144  0 
4 4753  0 
7 0110  0 
110 


RR  TURNON  TC 


OEC 

CS 

MASK 


1300  RFF  23  LAST  5?9  25  ,2061  1 527?  1 


RRZFPOSB 
F I X DEL  AY 
100 

TURNONR T 
RADMODES 
PAD  MODE  S 
TASKOVFR 
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WAIT  l SEC  BEFORE  REMOVING  TURN  ON  FLAG 
SO  A MONITOR  REPOSITION  WONT  ALARM. 


JAP: 


ASSEMBLE  REVISION  56  OF  AGC  PRCGP. 


ZFRLINA  BY  ZOROASTER 


l_  P20-P2  5 

Pl3<?1  FRCGRAM  NAME.  PPZEROSH 

<1392  FUNC  TIONAL  OF  SCRI  PTIQN_ 

° l 3^3  poZFROSB  IS  A CLOSED  SUBROUTINE  TO  ZERO  THE  RP  CDU:S, 

P1394  DETERMINE  THF  PP  WCCF,  ANC  TUFNS  CN  THE  TRACKER  FA  It. 

-1305  | /sup  jp  R CO  UIP  EO . INITIALLY  THE  PR  COU  ZERC  BIT  (CHAN  1? 

P.13o/.  PIT  1)  IS  SFT.  FOLLOWING  A 2p  MILLISECOND  WAIT,  THE  LGC 
<1307  RP  CDL  COUNTFRS  (OPTY,  OPTX)  ARE  SET  = 0 AFTER 

P137-*  WHICH  THE  RR  C DU  ZERO  DISCRETE  (CHAN  12  RIT  1)  IS 

Rl3qo  REMOVED.  A '♦  SECONC  WAIT  IS  SET  TO  AL1  THE  RR  CDlj:  S 
1150  TO  PFPrAT  THE  ACTUAL  TRUNNION  AND  SHAFT  ANGLES.  THE 
RIOl  PP  COU  7FR0  FLAG  (RADMODFS  PIT  1r>  IS  PFMOVFO.  THE 

R14  2 CONTENTS  CF  CPTY  IS  THFN  CHECKFC  TC  SEE  IF  THE  TRUNN  IDN 

R 14  ' ar  i - i I E S5  T1  AN  9(  DEGREE  c.  IF  not,  hi  T 12  or 
pU  4 RAOMOCES  IS  SET  = 1 TO  INDICATE  RR  ANTENNA  MODE  2. 

< 14  5 IF  LESS  THAN  °0  DEGREES,  BIT  12  OF  RAUMOCES  IS  SET  = 0 TO 

R 1 4 0 6 INDICATE  PP  ANTENNA  MODE  l.  SETTRKF  IS  THEN  CALLED  TO 

RIm  7 SEE  IE  THF  TPACKFR  FAIL  LAMP  SH1UI  D BE  TURNED  ON. 


< 1408  CANING  SEQUENCE:  L 11  RRZLRCSB  (F  RCM  PRTURNCN  AND  RR  ZERO ) 
<1'.  EP-ASAPLF  IN1T  IAL  IZATION  REQUIRED: 

R 141  PAOMCDES  (PIT  13  SET),  DSPTAR  -*  1 1 C 


R14H  SURPOUTINES  CALLED.  FJX3ELAY,  MAG  SUB » SFTTRKF 

Rl 4 1 2 JOBS  CP  TASKS  INITIATED. 

<1413  NONF 


1414  Al  ARMS.  TRACKER  FAIL 


R 1 4 1 5 FXIT.  L +1  (ALWAYS) 


141  8 
1410 

142  0 

1421 

1422 


REF  2 | AST  109 

PFF  27  LAST  533 

REF  2p  LAST  525 
RFF  4 LAST  535 


25,  2063 
2 5 ,2064 

25.2065 

25. 2066 
25  ,2067 
25, 2C7C 


tj  0006  1 RRZFROSB  EXTEND 

3 4753  1 CAF 

C 0006  1 EXTEND 

05  012  1 WOR 

0 5232  1 TC 

C0C02  0 DEC 


RRRET 
B I T 1 

:han12 
F IXDELA 
2 


1 423  RFF  1 

1424  PFF 

1425  REF 

1426  REF 

1427 

1 4?  9 REF 
142«  RFF 
1 4 3D 


12  LAST  525 

8 LAST  52  2 
5 LAST  321 

63  LAST  516 

20  LAST  536 

9 LAST  536 


25  ,?'-72 
25,  2C73 
25  ,2074 
25  ,2C75 
25,  2:;76 
25  ,2077 
. 


54  036 
4 4753 
0 0006 
C 3 012 
0 5232 
C 1 7 50 


0 

C 

0 


1 


CAF  ZERO 

TS  f OUT 

TS  CDUS 

CS  ONE 

EXT  END 

WAND  :HAN12 

TC  F IXDELA 

DEC  1000 


RFF 


LAST  514  25,2101  4 4737 


CS 


1431 


RCDUOB  I 


9:12  OC  T . 21,1970  ZLEMP20S. 001 


PAGE  536 


USER'S  PAGE  NO.  37  E7  S3 


BIT  13  OF  RADMODFS  MUST  BE  SET  BEFORE 
COMING  HERE. 

TURN  CN  ZERC  RR  CCU 


REMOVE  ZEROING  RI  T. 


RESET  FAIL  INHIBIT  IN  lO  SECS  - D.281 


REMOVE  ZEROING  IN  PROCESS  BIT 


GAP:  ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


UK 


H3  8 

143^ 
1 44 ' 

1441 

1442 

1443 

1 444 

1445 

1446 


25.21C4  3 0035  1 

25,  2 105  C 45  12  0 
25  ,2106  57777  1 

25, 2 1 C 7 1 2112  0 


REF  113  LAST  536 

REF  3 LAST  521 
REF  46  LAST  537 
REF  1 

REF  47  LAST  537 


25.2110 

25.21 11 
25,  2112 
25  ,2113 

25.2114 

25.2115 


3 4755  1 

1 2113  1 

2 4740  0 
56  110  1 
7 7753  0 
26  110  0 


DEC 

TCF 

CAE 

TCF 

CAF 


PEF  2 LAST  191  25  ,2116  0 4564  1 TC 

REF  3 LAST  536  25,  21  17  C 1212  0 TC 

REF  1 7753  -BIT  12  EQUALS 


ZERO 
+ 2 

ANTENBI T 
R ADMODES 
-BIT12 
RAOMODE  S 

SETTRKF 

RP.RET 

1/8 
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IF  MODE  2. 


TRACKER  LAMP  MIGHT  GO  ON  NOW. 
DONE. 


IN  SPROOT 
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L 

P20-P25  USER'S  PAGE  NC.  3q  E7  S3 

P1447 

0 1 

R1449 
< 145C 
R1451 
Rl45? 

* 1453 
R1  4 54 
R1455 

R 14  56 
RH57 
? 1 4 SR 
R1454 
RH60 

* 1461 
R1462 

R 1461 

R 1464 
Rl  465 

1 1466 
Rl  467 
Rl46« 

T 1 46° 
Rl  47*1 

PROGRAM  NAME  CCRRFPCS 

FUNCTIONAL  Of  SC  R I P T I ON_ 

CCRREPOS  IS  A SEQUENCE  3F  TASKS  TO  DRIVE  THE  RENDEZVOUS  RADAR 

TP  A SAFF  POSITION.  INITIALLY  SETFPECR  IS  CALLEC  WHERE  THE  RR 

FPPPM  COUNTERS  CHAN  12  HIT  21  ARE  ENABLFO  AND  LASTYC«0 

ANO  lASTxr.MO  SET  = r TO  INCICATC  THE  0 1 FFFR  ENC  E BE  TWFEN  THE 

DFSIRFD  STATF  AND  PRFSFNT  S T A T F CF  THE  COMMANDS  . THE  RR 

TURN-ON  FLAG  (RADMODES  BIT  1)  IS  CHECKED  AMD  IF  NOT  PRESENT, 

PROGPA**  ALAPP  0Tr  1 IS  REQUESTEC  BEFORE  CONTINUING.  IN  EITHER 

CASF,  FOLLOWING  A 20  MI  L LI  SECCND  WAI  T THE  PROGRAM  CHECKS  THE  CURRENT 

PR  ANTFNNA  MODE  IRAOMODES  BIT  12).  RRTONLY  IS  THEN  CALLED 

Til  ORTVE  THE  TPUNMCN  ANGLE  TC  0 DEGREES  IF  IN  MODE  l AND  Tn  180 

C E G°  F E S IF  IN  MODE  2.  U°f  N RETLPN,  THE  CURRENT  RR  ANTENNA 

MCDF  I P AOVCDFS  BIT  12)  IS  AGAIN  CHECKED.  RRSONLY  IS  THEN 

CALLED  TO  DRIVE  THE  SHAFT  ANCLE  TC  C OECREES  IF  IN  MODE  1 ANC  TO 
-90  DFGRFES  IF  IN  MODE  2.  IF  DURING  RRTONLY  OR  RRSONLY  A 

PF  MODE  HAS  PFEN  REQUESTED  IRACMCCES  BIT  14  I,  ANC  ALWAYS 
roLLnwING  COMPLETION  OF  RRSONLY,  CCNTRCL  IS  TRANSFERRED  TO 

REPOSRPT.  HERE  THE  REPOSITION  FLAG  IRAOMODES  RIT  11)  IS 

REMOVED.  A CHECK  IS  THEN  MADE  CN  THE  CESIGNATE  FLAG  IRAOMODES 

PIT  l ).  IF  PRESENT,  CONTROL  IS  TRANSFERRED  TO  OEGDE  S.  IF  NOT  PRESENT 

INDICATING  NC  FUPTFER  ANTENNA  C0NTRU1  REQUIRED,  THE  RR  FRROR 

COUNTER  BIT  (CHAN  12  BIT  2)  IS  REMCVED  AND  THE  ROUTINE  EXITS  TO 

T ASKOVFR. 

R 1471 

R 14  72 

R 1 4 7 T 

CALI  INC  SEQUENCE: 

WAITLIST  CALL  FROM  RRGIMGN  IF  TRUNNION  AND  SHAFT  CDU  ANGLES 

NOT  WITHIN  LIMITS  CF  CURRENT  MOCE. 

» 1474 

R 1 4 7 4 

F P A SAB LF  I NI TI ALT ZATI  CN  PECUTPEC: 

R ADMODES 

1 -7s 
l 1477 

SUBRCUT I NES  C A L L E C_ 

PR  TONI  Y,  RRSONLY,  BEGDES  (EXIT) 

Rl  4 78 

1 1474 

JOBS  OR  T ASKS  IN  IT  I AT  ED 

NONE 

R 1 483 

ALARMS-  NONE 

R 1 4 8 1 

EXIT.  TASKOVFP,  BEGDES 

1482 

REF  1 25,2120  0 2147  1 DORREPCS  TC  SETRRECR  SET  UP  RR  CDJ  ERROR  COUNTERS. 

Rl  483 

ALARM  50 1 DELETED  IN  DANCE  279  PER  PCR  97. 

1484 

1485 

REF  6 LAST  536  25,2121  0 5232  1 TC  FIXDELAY 

25,2122  CCCC2  0 DEC  ? 

i4  86 

REF  4 LAST  537  25,  2 123  3 4740  0 CAF  ANTENBIT  MANEUVER  TRUNNION  ANGLE  TG  NOMINAL  POS  . 

AP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P20-P25 


1 4R  7 
HBR 
1489 
1 493 


REF  48 
RFF  172 
REF  21 
RFF  1 


LAST 
L AST 
LAST 


534 


25, 2124 
25,  2 125 
25,2126 
25,  2127 


7 0110  0 
10  000  0 
3 4735  1 
C 2232  0 


MASK  RADMODES 

CCS  A 

CAF  B IT  1 5 

TC  RRTONLY 


1 4*1 1 

1492 

1493 

1494 

1495 


RFF  5 
PEF  49 
REF  173 
REF  5 
P FF  1 


LAST 

LAST 

LAST 


538 

539 
539 
5 17 


25  ,2130  3 4740  0 

25.2121  7 OUC  0 

25. 2122  10  000  0 

25,2133  4 4736  0 

25,  2134  C 2235  1 


CAF  ANTENRIT 

MASK  RADMCOES 

CC  S A 

CS  HALF 

TC  RRSONLY 


1 4 96 
A 149  7 
149R 

1499 

1500 
1 501 
1 502 
1 503 

1504 

1505 
1 506 


REF  3 

REF  50 
REF  51 
REF  2 
REF  174 
RFF  2 
REF  29 

RFF  30 
REF  24 


LAST  276 

LAST  535 
LAST  539 
LAST  275 
LAST  539 
LAST  519 
LAST  525 

LAST  536 
LAST  535 


25,;  135  4 4741  PFPOSRPT  CS  RFPOSRIT 


25,  2 136  7 011 0 0 

25  ,2137  54  110  0 

25,2140  7 4742  0 

25,  214  1 10  000  0 

25.2142  1 2564  0 

25. 2143  4 4752  1 

25.2144  O 0006  1 

25.2145  C3  012  1 

25,  2146  1 5272  1 


MASK  RADMODES 

TS  RADMODES 

MASK  DESIGBIT 

CCS  A 

TCF  REGDFS 

CS  BIT2 

EXTEND 

WAND  CHAN12 

TCF  TASKOVER 


1507 
1 50  R 
1509 
1 510 
1511 


RFF  30  LAST  539 

REF  31  LAST  539 
REF  175  LAST  539 
REF  157  I AST  c34 


25,2150 
25,  ?15  1 
25,2152 
25,  2153 


3 4752 
C COT  6 
0 2 0 12 


10  000 
C COC? 


0 SETRRECR  CAF  B1T2 

1 EXTEND 

0 RAND  C HAN  1 2 

0 CCS  A 

TC  0 


15U 

1515 

1516 

1517 


RFF  9 LAST  209 
RFF  7 LAST  210 
REF  31  LAST  539 

REF  32  LAST  539 
RFF  158  LAST  S3q 


25  ,2  154 

25.2155 

25. 2156 
25  ,2157 
75,  2160 
25,  216  1 


54  112  1 
54  113  0 
3 4752  0 
0 0006  1 
05  C 1 2 1 
C 0CC2  0 


TS  LASTYCMD 

TS  LASTXCMD 

CAF  31 T2 

EXTEND 

WOR  CHAN12 

TC  0 
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0 FOR  MODE  1 AND  180  FOR  MODE  2. 

NO W PUT  SHAFT  IN  RIGHT  POSITION 

-9C  FOR  MODE  2. 

RETURNS  HF RE  FROM  RR1AX1S  IF  REMODE 
REQUESTED  DURING  REPOSITION. 

REMOVE  REPOSITION  e IT  . 

SFE  IF  SOMFONE  IS  WAITING  TO  DESIGNATE. 

IF  NO  FURTHER  ANTENNA  CONTROL  REQUIRED, 
REMOVE  ERROR  COUNTER  ENABLE. 

SET  UP  RR  ERROR  COUNTERS. 

DO  MOT  CLEAP  LAST  COMMAND  IF 
ERROR  COUNTERS  ARE  FNARLED. 


ENABLE  RR  CCJ  ERROR  COUNTERS 


JAP:  ASSEMBLE  REVISION  56  OF  AGC  PROCRAM  Z ERL  IN A BY  ZOROASTER 

L P20-P25 

P151R  PROGRAM  NAME.  R6MOC6 

<1520  FUNC  TICINAL  OF  SC«I  PTI  CN_ 

R1522  PFMO0E  IS  THE  GENERAL  REMOOING  SUBROUTINE.  IT  DRIVES  THF 

R 1 523  TRUNNION  ANGLE  TC  0 OEGPEES  IF  TFF  CURRENT  MOOE  IS  MODE  1, 

<1524  180  OFGRFES  FOR  MODE  2,  THEN  DRIVES  THE  SHAFT  ANGLE  TO  -45 

- 15  25  DEGREES,  AN 0 FINALLY  DRIVES  THE  TRUNNION  ANGLE  TC  - 1 3f  DEGREES, 

R 1 526  TC  PLACE  THE  PR  IN  RODE  2,  -50  CEGREES  FOR  MOCE  1,  BEFORE 

2 1527  INITIATING  2-AXIS  CONTROL.  ALL  RE  M CO  I NG  IS  OCNE  WITH  SINGLE 

Rl  52  P AXIS  ROTATIONS  (RPlAXlS).  INITIALLY  THE  RR  ANTFNNA  MODE  FLAG 
<1626  (PAOMHDES  BIT  1?)  IS  CHECKED.  CCNTPOI.  IS  THEN  TRANSFERRED  TO 
R 1 5 3 RPTONIY  TO  OPlVr  THR  TRUNNION  ANGLE  TO  0 DEGREES  IF  IN  MOOE  1 

R15T1  OP  IRC  DEGREES  IF  IN  MODE  2.  RRSONLY  IS  THEN  CALLED  TO  DRIVE 

<14  3?  THE  SHAFT  ANGIE  TO  -45  DEGREES.  THE  RR  ANTENNA  MCOE  FLAG 

R1533  (RACMCr.ES  R IT  12)  IS  CHECKED  AGAIN.  CONTROL  IS  AGAIN 

R 1 5 3 4 TPANSFEMRFD  TO  RR  TC  N LY  TO  CRlVE  THE  TRUNNION  ANGLE  TO  -130 

3 1 535  DEGREES  TO  PI  ACF  THE  RR  IN  MOOF  ? IF  CURRENTLY  IN  WQDt  1 CR  TO 

Rl5lS  — 5C  DEGREES  IE  IN  MODE  2 TO  PLACE  THF  RR  IN  MOOE  1.  8 MODI  N V 

< 1537  IS  THF  N CALLED  TO  SET  RADMCDES  BIT  1?  TO  INDICATE  THE  NEW 

R153R  RR  ANTFNNA  MODE.  THF  REMDOE  FLAG  (RADMODE S BIT  14) 

p15,3.9  IS  PEMCVED  TC  INDICATE  THAT  REMOOING  IS  COMPLETE.  THE  PROGRAM 

< 1540  THEN  FXITS  TO  STOESIG  TD  BEG  I A 2-AXIS  CCNTPOL. 

R 1 K 4 1 CALL  ING  SEQUENCE: 

< 1542  FROM  BFGDES  WHEN  REMODE  FLAG  (PADMCCES  BIT  14)  IS  SET. 

< 1 543  THIS  FLAG  MAY  BE  SET  IN  RRDESSM  AND  RRDESNB  IF  RRLIMCHK 

R154'*  CETERM INES  THAT  THE  CES  IP.EC  ANGLES  ARE  WITHIN  THE  LIMITS  OF  THE 

< 1545  OTHER  MODE. 


R 1 546  EPASARLF  INITIALIZATION  REQUIRED: 
R 1 547  RAOMCDES 


R1548  SUBROUT  INE  S CALLED 

R1S49  PRT  ONLY , RRSONI  Y , PMOQINV  (ACTUALLY  PART  OF) 


< 1 550  JOBS  OR  TASKS  INITIATED 
R 1 5 6 ] NONE 


R1552  ALARMS.  NCNE 
< 1553  F XI  T_  STDESIG 


1554 
1 555 
1 556 
1 567 
1558 


REF  6 LAST  539 
RFF  52  LAST  539 
REF  176  LAST  53S 
RFF  32  LAST  539 
REF  2 LAST  5 39 


25,  216  2 2 4 740 

25  ,2163  7 QUO 

25,2164  1C  OCO 
25,  2165  2 4735 

25,2166  0 2232 


0 PE  MODE  CAP 
0 MASK 

0 CCS 

1 CAE 

0 TC 


ANTFNBI  T 
8 ADMODES 
A 

B I T 15 
PRT  ONLY 


1659 

1560 


RFF  1 

RFF  2 LAST  539 


25,  2 16  7 3 7752  0 

25,2170  0 2235  1 


CAP  -4  5DEGSR 

TC  RRSONI  Y 
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IVES  SHAFT  TO  -45,  AND  FINALLY  DRIVES 
S DONE  WITH  SINGLE  AXIS  ROTATIONS  (SEE 


DRIVE  TRUNNION  TO  0 ( 180  ) 

(ERROR  COUNTER  ALPEAOY  ENABLED) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


P 20-  P 25 


1561 

PFF 

53 

L AST 

540. 

25,  2 17  1 

8 OHO 

0 

C S 

RADMCDES 

1562 

REF 

7 

LAST 

580 

25  ,2172 

7 4740 

1 

MASK 

ANTENBIT 

156  3 

REF 

177 

LA  ST 

540 

25,2173 

10  000 

0 

CCS 

A 

1564 

REF 

1 

25,  2 174 

• 2223 

0 

CAF 

- 8 CD EG  SR 

1565 

RFF 

1 

25  ,2175 

6 2222 

1 

AD 

-50DEGSR 

1566 

REF 

3 

LAST 

540 

25,  2 176 

C 2232 

0 

TC 

RRTCNLY 

1 5^7 

REF 

54 

LAST 

54  1 

25,2177 

4 0110 

0 

CS 

RADMODE S 

1 56B 

PEF 

8 

LAST 

58  1 

25  ,22 00 

7 4740 

1 

MASK 

ANTENBIT 

1569 

RFF 

178 

L AS! 

54  1 

25,  22CI 

10  COO 

0 

cc  s 

A 

1 57f 

RFF 

33 

LAST 

540 

25  ,2202 

3 4735 

l 

CAF 

B I T 1 5 

1571 

RFF 

LA  ST 

541 

25,2203 

0 2232 

0 

TC 

RRTONL  Y 

1572 

REF 

55 

LAST 

58  1 

25, 2204 

8 OHO 

0 

C S 

RADMODE S 

1573 

RFF 

9 

IASI 

58  1 

25,2205 

7 8780 

1 

MASK 

ANTENBIT 

1574 

RFF 

179 

LAST 

58  l 

25,  22C6 

1C  COO 

0 

CCS 

A 

1575 

REF 

6 

LAST 

539 

25,2207 

4 4736 

0 

CS 

HALF 

1 576 

RFF 

L AST 

54CI 

25,2210 

0 2235 

1 

TC 

P RS  ONLY 

1 577 

REF 

1 

25,  22  1 1 

0 2224 

1 

TC 

R MODI N V 

1578 

REF 

2 

LAST 

276 

26  ,2212 

4 4736 

0 

CS 

R EMOOH  IT 

1 57Q 

PEF 

56 

1 AST 

581 

2 5, 22  1 3 

7 CllO 

0 

MASK 

P ADMCDES 

1500 

RFF 

57 

LAST 

54  1 

25,  22  14 

58  1 10 

0 

TS 

RAD  MODE  S 

1581 

RFF 

3 

LAST 

539 

25,2215 

3 8 78  2 

1 

CAF 

DES  IGP  IT 

1 58? 

REF 

58 

1 AST 

58  l 

25,  2216 

7 0110 

0 

MASK 

PADMODES 

1583 

25  ,2217 

0 0006 

1 

EXTEND 

1584 

REF 

1 

26,?220 

1 3623 

1 

B7F 

RGOODEND 

1 5 R5 

REF 

2 

L AST 

520 

. 

0 2573 

1 

TC 

STDF  SI  G 

1 586 

RFF 

2 

LAST 

287 

7752 

-85  DEGSR 

13,  18,  15 

1587 

25,  2222 

67  C 70 

1 

-5CDEGSR 

DEC 

-.27778 

1588 

25, 2223 

61615 

1 

-80DEGSR 

DEC 

-. 48888 

1589 

REF 

59 

LAST 

58  1 

il:m 

Z2  110 

1 

RMCDI NV 

LX  CH 

P ACMODES 

1593 

REF 

10 

1 AST 

54  1 

- 8 780 

0 

CAF 

ANTENBI T 

1591 

25  ,2226 

0 0006 

1 

EXTEND 

1592 

REF 

11 

LA  ST 

534 

25  ,2227 

C6  001 

0 

RX  OR 

L CHAN 

1593 

RFF 

60 

L AST 

64  1 

25, 2230 

0 

TS 

RADMODES 

1594 

RFF 

159 

1 AST 

539 

25  ,2231 

0 0002 

n 

TC 

0 
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GO  TO  T = -133  (-50 ) . 


GO  TO  T = -lflO  I+C). 

GO  TO  S = -90  (+0  ) . 


END  OF  REMOPE. 


WAS  REMODE  CALLED  DURING  DESIGNATE? 
IRITlO  RAOMCDES  = 1) 

NO-RFTJRN  TO  CALI  FP  WAITING  IN  RAOSTALL 
YES  - RETURN  TC  CESIGNATE 


INVERT  THE  MODE  STATUS. 


> 4P  : A SSL  MB  L6  REVISION  So  OF  AG  C PROGRAM  ZERLINA  HY  ZOROASTER 
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P 1 595  PPCGRAM  NAMES.  RRTCNLY,  RRSCNLY 
' 15°h  FUNCTIONAL  DESCRIPTION. 

R15  97  R PT  ONLY  ANC  RRSONLY  ARC  SUBROUTINES  F'JR  03 1 NG  SINGLE  AXIS 

<159B  RR  MANrLVERS  F f R R ERODE  ANC  FEFCSUION.  IT  DRIVES  TO 

R 1 5 90  WITHIN  1 DEGRFF.  INITIALI  Y,  AT  RP1AX2,  THE  R E M 03  E A NO  REPOSITION 

R 1 60  FLAGS  (RAOMCOES  BITS  H,  11)  APE  CHECKED.  IF  BOTH  FXIST, 

< Iftf'l  Tlir  PROGRAM  FXITS  TORFFOSRPT  I'EE  OCRREPHS).  THIS  INDICATES 

R 1 6 ) 2 THAT  SOMEONE  POSSIBLY  P.  E3  UE  S TED  A DESIGNATE  (RADMODES  BIT  1 C J 

®16f3  WHICH  PFCUIPES  A R FMODE  ( R ADMCCES  BIT  14)  AND  THAT  A 

R 16t>4  REPOSITION  IS  IN  PROGRESS  IRAOMCOFS  BI  T 11).  IF  NONF 

W 1 6 ' 5 OR  ONLY  ONE  OF  THE  FLAGS  EXIST,  REMOOE  DR  REPOSITION,  MAG  SUR 

* 1 60  6 IS  CALLED  TO  SEE  IF  THE  APPRCFPI  ATE  ANGLE  IS  WITHIN  l DEGREE.  IF  YFS » 

<16  7 CONTROL  RETURNS  TO  THE  CALLING  ROUTINE.  IF  NOT,  CONTROL  IS 
RlfcOB  TRANSFERRED  TO  PRUUT  FOR  SINCLE  AXIS  MANEUVERS  WITH  THE  OTHER 

<1600  ANGLE  SET  = C.  FCLLCWINC.  A .5  SECCND  WAIT,  THE  ABOVE  PROCEDURE  IS 

RIGl*  REPFATEC. 


R1611  CALI  I NG  SEQUENCE:  L-l  CAF  * A N C L E * (DESIRED  ANGLE  SCALED  PI) 
R 1 6 1 2 L TC.  RRTONLY  (TRLNNION  ONLY) 

Rl  61 3 RRSCNLY  (SHAFT  ONLY) 

< 1 6 1 4 RRTONLY  IS  CALLED  BY  PRFP0S29; 

R 1 S 1 5 RRTONIY  AND  RRSONLY  ARE  CALLFD  BY  D0PR6P0S  AND  REMODE 


R 1 6 1 6 ERASABLE  I NIT  I AL  I 7 AT  ICN  REQUIRED: 

<1617  C ( A ) = DESIRED  ANGLE,  WADMCDES 


R1618  SUBROUTINES  CALLED. 

<1610  F I XDE LAY,  REPOSRPT,  MAGSUB,  RPCUT 


R 1 6 ’O  JOBS  OR  TASK'  INITIATED. 

RT621  NONE 


< 1622  ALARMS.  NONF 


1623  CX1T  REPQSPPT  ( R FMODE  AND  REPOSITION  FLAGS  PRESENT  - RADMODES 
"14  , 11  J 

< 1625  L+l  (ANGLE  WITHIN  ONE  DEGREE  CR  RR  OUT  OF  AUTC  MODE) 


1626  REE  2 LAST  1Q9 

1627  RFF  114  I AST  537 

1628  PFF  1 


25,2232  5 5 ' 3 1 3 0 RRTONLY 

25  ,2233  3 4755  I 

25,2234  1 2237  l 


TS  RDES 

CAF  ZERO 

TC.F  P.P1  AX  IS 


1629 
1 630 


25,  2235  5 5*313  C RR  S3NL  Y TS 

25,2236  3 4753  1 CAF 


R3E  S 
ONE 


1531  REF 
161? 

1631  RFF 
1634  REE 


4 LAST  517 
1 


2 c»  22  3 7 5 5 ' 3 14  1 

25  ,2240  0 0006  l 

25.2241  23*312  D 

25. 2242  1 2245  1 


RR  1AXI  S 


TS  RRINDEX 

EXTEND 

QXCH  RRRET 
TC  F RR1AX2 


DESIRED  TRUNION  ANGLE. 


SHAFT  COMMANDS  ARE  UNRESOLVFO  SINCE  THIS 
ROUTINE  ENTERED  ONLY  WHEN  T = 0 OR  18*'. 


GAP:  ASSEMBLE  REVISION  56  of  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L P20-P25 


1637 
1 53B 
1639 
1 6 AO 


16A1  RFF  4 

1642 

1643  REF  2 

1644  RFF  10 

1645  REF  5 

1646 

1647  RFF  1 

1641  REF  7? 

1649  RFF  62 

1 65C  RFF  4 

1651  REF  10 

1662  RFF  6 

1653 


1664  RFF  11 
1655  RFF  5 


1656  REF  3 

1657 

1668  RFF  73 

1669  REF  1 

1660  RFF  1 


1661  REF  1 


LAST  538 


LAST  542 

LAST  542 
LAST  537 
LAST  532 


LAST  634 
LAST  543 
LAST  193 
LAST  543 
LAST  537 


LAST  543 
LAST  542 


LAST  543 
LAST  543 


C 6232  1 
OOC 6 2 0 


NXTRR1AX  TC 
DEC 


F 1XDELAY 

50 


26,2245  4 0110  0 

2 6,  2246  7 7722  0 

25  ,2247  0 0006  1 

25,2250  1 2135  0 


CS  PAPMODES 

MASK  PRI  022 
EXTEND 

BZF  REPOSRPT 


25,  2 251  3 1313  1 

25,2252  0 0006  1 

2 6,  2263  6 1314  0 

25.2254  20  C35  C 

25.2255  54  061  1 

25. 2256  0 0006  1 

25  ,2257  7 2276  1 

c4  C C l 1 
25,  226  1 2 01  10  1 

25,2262  7 4752  1 

25,  2263  56  C61  0 

25.2264  0 4512  0 

25.2265  77644  1 


CA  ROES 

EXTEND 

INDEX  RRINOEX 

MSU  20  UT 

TS  ITEMP1 

E XTENO 

MP  RRSPGAIN 

TS  I 

CA  RADMODES 

MASK  AUTOMRIT 

XCH  ITEMP1 

TC  MAGSUB 

DEC  -.00555 


25,  2266  10  Ofcl  1 

25  ,2267  0 1312  0 


CC  S I TEMPI 

TC-  3RRET 


3C.  2270 
2s.  2 271 


2 6,  2773 
25  ,2274 


11*214 
1 2273 
56  001 
5 3 ' 2 5 2 
0 2277 


0 

0 

1 


CCS  RR1NDEX 

TC  F + 2 

XCH  L 

0 XCH  TRUNNCMO 
TC  RROUT 


25,2275  1 2243  1 TC  F NXTRR1AX 

25,  2276  22715  1 D 


1662 


R SPGA  IN  DEC 


59062 
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2 SAMPLES  PER  SECOND. 


IF  SOMEONE  REQUFSTFS  AS  DESIGNATE  WHICH 
REQUIRES  A REMODE  AND  A REPOSITION  IS  IN 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
REMOOE  IMMEDIATELY. 


SAVE  ERROR  SIGNAL. 

TRIES  TO  NULL  .7  CF  ERROR  OVER  NEXT  .5 


STORE  RR-UUT-0  F-AUTO-MOOE  BIT. 

SEE  IF  WITHIN  ONE  DEGREE. 

SCALED  IN  HALF-REVS. 

NC.  IF  PR  CUT  CF  AUTO  MODE,  EXIT. 
RETURN  TO  C Al  I FR. 


COMMAND  FOR  OTHER  AXIS  IS  ZERO. 
SETTING  A TO  0. 


COME  BACK  IN  .5  SECONDS. 
NULL  .7  ERROR  IN  .5  SEC. 


ZFRL IN A BY  ZOROASTER 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM 

L P20-P25 

PI663  PROGRAM  N AM  F_  RROUT 
0 1 665  FUNCTIONAL  DESCRIPTION. 

M 1*6*  P P Oil  T P f f c I VP  S °P  GYRO  C CMMA  M)  S I A TANG,  TANG  *1  IN  RR 

Rl  667  ERRTR  CCUN'TEP  SCALING.  RPOUT  T E FN  LIMITS  THFM  ANO 

> 166»  Gf  NERA  Tc  S CCMMANOS  TO  THE  COL  Tf  AT  JUST  TEE  ERRCR  CCXJNT  EPS 

R1669  TO  THE  OES  IREO  VAIMFS.  INITIALLY  MAGSUB  CHECKS  THE  MAG  NI T (JOE  OF 

THF  CCMMANC  (SHAFT  ON  1ST  PASS)  TO  SEE  IF  IT  IS  GREATER  THAN 
<1671  2 24  PULSES.  IF  NOT,  CONTROL  IS  TRANSFERRED  TC  RRCUTLIM  TO 

RIS72  LIMIT  TEC  COMMAND  TO  OR  - 3B4  PULSES.  THE  DIFFERENCE  IS 

“167?  THFM  CALCULATED  BETWEEN  THE  CESIREC  STATE  AND  THE  PRESENT  STATE  OF 
R 16  7A  TEE  ERROR  CO  UN  TF?  AS  RECORDED  IN  L A STYCMD  AND  L A STX  CMD . 

RT  675  THE  RESULT  IS  STOPEC  IN  jp.TXCMD  (1ST  PASS)  AND  OP  TYCHO  (2ND 

<1676  PASS).  FOLLOW  NG  THF  SECCNC  PASS,  FOR  THE  TRUNNION  COMMAND,  THF 
“ 16  77  OCDUT  AND  QCCUS  ERROR  COUNTER  DRIVE  BITS  (CHAN  14  BITS  12,  11) 

0 1 675  APE  SET.  THIS  PROGRAM  TEEN  EXITS  TO  THE  CALLING  PROGRAM. 


R 167Q 
Rl  6B0 
< 1 6B1  RP  TONLY 


CALLING  SEQUENCE: 

L TC.  RROUT  (WITH  RUPT  INHIBITED)  RROUT  IS  CALLED  BY 
NLY , AND  DODES 


'1632  ERASABLE  INITIALIZATION  RFOUIPFI): 

R 1 6 5 ' TANG,  TANG  <•  1 (CESIRFC  COMMANCS  ),  LASTYCMD,  LASTXCMD 

3 1684  ( 1ST  PASS  = 0)  , RR  ERROR  COUNTER  FNABLF  SET  (CHAN  12  BIT  2). 


RI 655  SUBROUTINES  C AL I F D_ 
P.  16P6  MAGSUB 


R 1 6P  f JOBS  OR  TASKS  INITIATED. 
R • 655  NONE 


< 1689  ALARMS.  NONE 

< 1590  FX  IT.  L+l  (ALWAYS) 


1 4 92 
169  3 

1694 

1695 

1696 
1 697 


P.FF  169  LAST  541 
RFF  65  LAST  542 
REF  5 LAST  532 
RFF  180  LAST  5U 
PFF  2 LAST  54  3 
REF  12  LAST  54  3 


26,2277 
25,2300 
25,  230  1 
25  ,2302 
2 5 , 2 30  3 
25,  2 304 


22  002  0 
3 4753  1 
54  062  1 
5G  000  1 

3 1351  1 
54061  1 


RPOUT  LXCH 
CAF 

RR  OUT  2 TS 

INDEX 

CA 

TS 


Q 

ONE 
I TEMP2 
A 

TRUNNCMC 
I TEMPI 


1698  REF 
16R9 

1700  PEF 


7 LAST  543 

1 


25,2305 
25,  2 3C6 
25,2307 


0 4512  i 
77177 

1 2326  i 


MAGSUB 
-3  04 

RROUTLIM 


170  3 


1 704 


RFF  13  LAST  544 
RFF  6 LAST  544 
RFF  10  LAST  539 


25  ,2312 
25,  23  13 


3 0061  0 
50  C 62  0 
56  112  0 

4 CCCO  0 


SETRRCT R 


CA  ITEMP1 

INDEX  ITEMP2 
XCH  LASTYCMD 

COM 
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PAGE  544 
E7  S3 
IM  ITS  THEM 


SIPED  VALUES.  RUPT  MUST  BE  INHIBITED. 

SAVE  RETURN. 

LOOP  TWICE. 


SAVE  SIGN  OF  COMMAND 


FOR  LIMIT  ING. 


SEE  IF  WI  THIN  LMI  TS. 

LIMIT  COMMAND  TO  MAG  CF  384. 

COUNT  OUT  DIFFERENCE  BETWEEN  DESIRED 
ST  A TF  AND  PRESENT  STATE  AS  RECORDED  IN 
LASTYCMD  AND  LASTXCMD 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P2o-p25 


I 705 
1 70S 
1 707 
170B 


PFF 
P EF 
REF 
RFF 


544 

238 

544 


25  ,2314 
25,  2115 
25,2316 
25,231  7 


6 0061  0 
6 4754  0 
50  062  0 
54  053  0 


AD  ITEMP1 

AD  NEGO 

INDEX  ITEMP2 
TS  CDUTCMD 


1 7 Llf>  RFF 
1710  RFF 


L AST  545 


25, 2320  10  062  1 

25  ,2321  1 2301  0 


CCS  1 TEMP2 
TCF  RR0UT2 


171  3 
17  14 


REF 

REF 

PEF 


m\n 

25  ,2324 
2.5,  2325 


3 5020  0 
C OOCt  1 
05  014  1 
C 0C01  0 


C XTFND 

WDR 

TC 


PR  I 06 
CHAN  14 


1716 

1717 

1718 

1710 

1721 


REF  2 
REF  16 
REF  1 


LAST  64  5 

LAST  545 
LAST  545 


2 5,2326 
25,2  127 
25,  2220 
25  ,2331 
25,2332 
25, 2323 


10  061 
4 2 3 06 
1 2332 
3 2306 
54  061 


RROUTL  IM  CCS 


1 TEMPI 
-RRL  IM  IT 
+ 2 

-RPl  IM  I T 
ITEMP1 

SE  TP RC  TR 
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USER'S  PAGE  NC.  46  E7  S3 

PREVENT  +0  IN  OUT  COUNTER 

PROCESS  BOTH  INPUTS. 

ENABLE  COUNTERS. 

PUT  ON  CD U DRIVES  S AND  T 
RETURN. 

LIMIT  COMMAND  TO  ABS  VAL  OF  384. 


1 


SAP: 


ASSE  “RLE  RE  V I SION  56  OF  AGC  P«CC-P 


ZERL INA  BY  ZORO AST ER 


P 20-P 25 


01721 


BOUT  INF  TC  7ER0  T FE  RR  CCUS  ANO  DETERMINE  THE  ANTENNA  RODE  • 


1 722 
1 7?3 

1724 

1725 


REF  1 
REF  63  LAST 
PEF  1B1  LAST 
REF  1 


25  *2334  3 2363  0 

25,  2 3 ? 5 7 C110  0 

25  ,2336  10  OCO  0 

?5f?337  1 3537  l 


RRZERO  CAF  BIT  1 1 ♦ 1 
MASK  PAORCDES 


CCS  A 

TCF  PADNOOP 


1 726 
172? 
17  25 
1 72o 
1 7 3< 


REF  4 
PEF  64 
REF  5 
RFF  65 


LAST  536 
LAST  5*6 
LAST  5*6 
LAST  546 


25, 2340 
25  ,2  34  1 
25,  2342 
25, 2 14  3 
25,2344 


r cor 4 0 

4 4737  1 
7 C110  0 
6 4 73  7 0 
54  110  0 


INHINT 

CS  RCDUOBIT 

MASK  R ADMCDES 

AD  RCDUOBIT 

TS  PADMODES 


1731 

1732 

1733 

1 734 
1 734 


REF 

PEF 

PEF 

PEF 

RTF 


544  25,  2345  3 47  53  1 

475  25  ,2346  0 5214  0 

535  E 7,1 456 

25,  2347  023f  1 1 

25,2350  52067  1 


CAF  ONE 

TC  WAITLIST 

E B ANK=  l US  COUNT 
2C  ADR  RRZ2 


1735 
1 736 
1737 
1 7 35 
1 739 
1740 
1 74 1 
1742 


PFF 

PEF 

PEF 

REE 

PFF 


PEE 


66  LAST 
5 LAST 
182  LAST 
1 

22  LAST 


56  5 


4 LAST  406 


25,  235  1 4 CUO  0 

25,2  352  7 *,752  1 

25,2353  1C  000  0 
25,  2354  1 22c  7 C 

25  ,2355  0 5600  l 

25  ,2356  00510  0 

25, 2357  C 0003  1 
25  ,2360  1 4631  0 


C S 

MASK 

CCS 

TCF 

TC 

OCT 

ROADBACK  2FLINT 
TCF 


RAOMODES 
A U TOMB  I T 
A 

ROADBACK 

ALARM 

510 

SWKETURN 


2 LAST  535 
1 


25. 2361  0 2C62  1 PRZ2 

25.2362  1 36 14  0 


TC 

TCF 


RRZERCSR 

ENORADAR 


1745 


25,2363  02001 


B I T 1 1 1 OCT  02001 
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JSER'S  PAGE  NO.  47  E7  S3 

SEE  IF  MONITOR  REPOSITION  OR  NOT  IN  AUTO 
IF  SO,  OCNT  RE-ZERC  CDUS . 

(IMMEDIATE  TASK  TO  RGOOOENO). 

SET  FLAG  TO  SHOW  ZEROING  IN  PROGRESS. 


SEE  IF  IN  AUTO  MODE. 

AUTO  DISCRFTF  NCT  PRESENT  - TRYING 

COMMON  TO  TURNON  AND  RRZERO. 


’ AP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


^ : 1 2 OCT.  21,1970  ZLEMP2CS.001  PAGE 


L 

P20-P25  USER'S  PAGE  NC.  48  E7  S3 

3 1 746 

PROGRAM  NAME.  RROESSM  R (HALF-UNIT)  IN  RR  TARGE  T.  REMODES  IF 

R1748 

0 17^0 

K 1750 

R1  75  1 

1 1752 

R 1 7 5 3 

R 1 754 

1 1 755 
R1756 

R 1757 

R 175P 

Rl  759 

* 1760 

R 1 76  1 

R 1 762 

* 1763 

Rl  764 

R 1765 

R 1766 
Rl  767 

1 1768 

R 1769 

Rl  770 

FUNCTIONAL  DESCRIPTION 

THIS  INTERPRETIVE  RCtJTINF  WILL  C FS  I GNAT  E,  IF  DESIRED  ANGLES  ARE 

WITHIN  THE  LIMITS  OF  EITHER  MCOE  , TO  A LI  NE-OF  SIGHT  (LOS)  VECTOR 
(HALF-UNIT)  KNOWN  WITH  RESPECT  TO  THE  STABLE  MEMBER  PRESENT 

ORIENTATION.  INITIALLY  THE  I MJ  CCU:S  ARE  READ  AMD  CONTROL 

TRANSFERRED  TO  SMNB  TO  TRANSFORM  THE  LOS  VECTOR  FROM  STABLE 

MEMBER  TC  NAVIGATION  RASE  COCPCINATFS  (SEE  STG  MEMO  ^699) 

RRANGI.ES  IS  THEN  CALLED  TO  C A LCtiLAT  F THE  RR  GIMRAL  ANGLES, 

TRUNNION  AND  S'hAFT,  FOR  BOTH  THE  PRFSFNT  AND  ALTERNATE  MODF. 

PRL1VCHK  IS  CALLED  TO  SEF  IF  TEE  ANGLES  CALCULATED  FOR  THE 

PRESENT  MODF  ARE  WITHIN  LIMITS.  IF  WITHIN  LIMITS,  THE  RETURN 

LOCATION  IS  INCREMENTED,  INASMUCH  AS  NO  VEHICLE  MANEUVER  IS 

REQUIRED,  BEFORE  EXITING  TC  STARTDES.  IF  NOT  WITHIN  LIMITS  OF  THE 

CURRENT  MODE,  TRYSWS  IS  CALI  ED.  FOLLOWING  INVERTING  OF  THE  RR 

ANTENNA  MCOE  FLAG  ( R ACMODES  BIT  I?),  RRL  IMCHK  IS  CALLED 

TO  SEF  IF  THE  ANGLES  CAICUIATEC  FCR  THE  ALTERNATE  MODE  ARE  WITHIN 

LIMITS.  IF  YES,  TFE  RR  ANTENNA  MODE  F 1 AG  I S AGAI  N I NVE  RTF  D , 

THE  REMODE  FLAG  (RAOMODES  PIT  14)  SET,  AND  THE  RETURN  LOCATION 

INCREMENTED,  TO  INDICATE  NO  VEHICLE  MANEUVER  IS  REQUIREC,  BEFORE 

FX1TING  TO  STARTDES.  IF  TFFSE  ANGLES  ARE  NOT  WITHIN  LIMITS 
nr  THE  ALTERNATE  MCDF  , THE  RR  ANTENNA  MOCE  FLAG  (RADMOOES 

BIT  1?J  IS  INVERTED  BEFORE  RETURNING  DIRECTLY  TO  THE  CALLING  PRCGRAM 

TC  INDICATE  THAT  A VEHICLE  MANEUVER  IS  REQUIRED. 

< 1771 

R 1 7 7 ? 

R 1773 

R 1774 

Rl  775 

CALLING  SFQUFNCE: 

I ST  C ALL  RRTARGET  (LOS  HALF-LNIT  VECTOR  IN  SM  C OCRD I NA  TE  S> 

L+l  RROESSM 

L+?  BASIC  (VEHICLE  MANEUVER  REQUIRED) 

L+3  eASIC  (NO  VEHICLE  MANEUVER  REQUIRED) 

< 1 776 
Rl  777 

ERASABLE  I NI  TI  ALI  Z ATI  CN  RECUIREC: 

RRTARGET,  RADMOOES 

Rl  778 

R 177P 

Rl  780 

SUBROUTINES  CALLED 

RFADCDUS,  SMNB  , PRINGLES,  RRL  IMCHK,  TRYSWS  (ACTUALLY 

PART  OF),  RMODINV 

R 1781 

R 178? 

JCBS  CR  TASKS  INITIATED 

NONE 

Rl  783 

ALARMS.  NONE 

R 1784 

R 1 7 8 ^ 

Rl  7R6 

EXIT  L+  ? (NEITHER  SET  CF  ANGLES  AKF  WITHIN  LIMITS  OF  RELATED  MODE) 

STARfDES  (OF  SIGN  ATE  POSSI  BLF  AT  PRESENT  VEHICLE  A TTI  TUDE  - PE  TU  RNS 

TO  L*3  FROM  STARTDES)  CAN  BE  OONF  IN  PRESENT  VEH  ATTITUDE. 

1788 

1789 

25,2364  43020  1 RROESSM  STO  CLEAR 

REF  4 LAST  277  25,?365  01112  1 OFSRET 

RROESSM  ST  Q 


GAP:  ASSEMBLE  REVISION  So  OF  AGC  PROGRAM  ZFRLINA  8V  ZOROASTER 


L P20-P25 


1790  REF 

1791 

1792  PFF 

1793 

1794  RFF 
I 70S  RFF 


1 


2 


25,2366  00271  0 

25,  2367  7762A  1 

LAST  495  25  ,2370  '*7535  l 

25,2371  ^5175  0 

LAST  527  25,  2372  0 1 10 1 r 

I AST  A9S  25  ,2373  A7676  0 


RRN8SW 

CALL 

CDUTR IG 
V LOAD  CALL 

RR  TAPGE T 
*SMNR  * 


1796 

1797  REF  1 

1 798 


25,  2 376  77626  1 

25.2375  26133  1 

25.2376  77776  1 


CALL 

RR ANGLE S 

EX  IT 


1 79? 
1 fid'' 
1801 
1 8C  2 
1803 
1806 

1805 

1806 
1337 
1808 
1 809 


RFF  3 LOST  522 

REF  6 LAST  328 

RFF  5 LAST  567 

REF  l 

PFF  6 LAST  516 

RFF  6 LAST  516 

REF  1 

REF  1 


25, 2377  C 0006  r 
25  ,2600  0 6523  1 

25,2601  C11C6  1 

25,  260  2 0 2605  1 

25  ,26C3  25 ’ 112  1 

25,  2606  0 2423  0 

25,2605  6 -104  0 

26.2406  7 4744  0 

25. 2407  C 0006  1 

25  ,2610  1 2447  0 

25,2411  C 2452  C 


I NH1  NT 

TC  RPLIMCHK 

AQRES  MODEA 

TC  * 3 

GKCESSM  IN  CP  DESRET 

TC  STARTDES 

CS  FLAGWR08 

MASK  SURFF0IT 

E XTE NO 

BZF  NORDSTAL 

TC  TPYSWS 


1 810 
1811 
lfl  1 2 
1813 
18 

1815 

1816 
1817 
1 81  8 


RFF  7 LAST  548 
REF  5 LAST  548 

RFF  2 LAST  548 
PFF  38  I A ST  529 
REF  7 LAST  513 
PFF  183  LAST  566 
REF  1 

REF  87  LAST  529 


2 5.  ?4  1 2 4 0104  C LUNDESCH  CS  FLAG  WRD  8 


25,2413  7 47*4  0 

26,  24  14  C CCC6  1 
25  ,2*15  l 2*47  0 
25,2416  3 0(74  1 

25,  24  17  7 4745  1 

25  ,2423  10  000  0 

26,  2421  C 2462  0 

25,  2422  1 5155  1 


MASK  SURFFBIT 

E XTE ND 

BZF  NORDSTAL 

CA  STATE 

MASK  R NO  VZBT  T 

CCS  A 

TC  NODESS  M 

TC F ENDOF  JOB 
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COMPUTES  SINES  ANO  COS  INFS,  ORDER  Y Z X 
LOAD  VECTOR  AN  C CALL  TRANSFORMATION 

GET  RR  GIMRAL  ANGLES  IN  PRESENT  ANO 
ALTFRNA  TE  MODE. 


CONFIGURATION  FOR  CURRENT  MODE. 

NOT  I N CURRENT  MCDE 

INCREMENT  SAYS  NO  VEHICLE  MANEUVER  RE  Q. 
SHOW  OFS  IGNAT  E REQUIRED 

CHECK  IF  ON  LUNAR  SURFACE  ( SURFFL AG=P 22F 
BRANCH- YE  S-CA  NNCT  DESIGNATE  IN  MOOE  2 


CVFRFLUW  RETURN  FRCM  RRANC-LFS 
CHECK  IF  ON  LUNAR  SURFACE 

BRANCH- YE  S-RE  TURN  TC  CALLER  - ALARM  527 


TEST  RNDVZFL3. 

NOT  ON  MOON-CALL  FOR  ATTITUDE  MANEUVER 
. . . BUT  NOT  IN  R29. 


iAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P 20- P 25 

Pi  fll  9 PROGRAM  NAM  6_  STAPTOES 
<1621  FUNCTIONAL  DESCRIPTICN 

R132B  STARTDES  IS  ENTERED  WHITn  WE  ARE  READY  TO  BEGIN  DESIGNATION. 

RlR26  PIT  H OF  RADMOCES  IS  ALREADY  SET  IF  A REMODE  IS  REQUIRED. 

3 1R?7  AT  THIS  TIME,  THE  RR  ANTENNA  PAY  BE  IN  A REPOSITION 
R1B29  OPERATION.  IN  THIS  CASE,  IF  A REMODE  IS  REQUIRED  IT  MAY  HAVE 

R 1 830  ALREADY  BEGUN  eUT  IN  ANY  CASE  TEE  REPOSITION  WILL  BE  INTERRUPTED. 

R1R?1  OTHERWISE,  THE  REPOSITION  WILL  BE  COMPLETED  BEFORE  2-AXIS 
RlO-1?  CESIGNATION  BEGINS.  INITIALLY  DESCOUNT  IS  SET  = 60  TO  INDICATE 
3 1833  THAT  3 n SECONDS  WILL  BE  ALLOWED  FCR  THE  RR  DATA  GOOD  INRIT 

P1B3A  (CHAN  33  BIT  A)  IF  LOCX-ON  IS  DESIRED  (STATE  BIT  5).  BIT  10 

Rlfl35  OF  RADMOOFS  IS  SET  TO  SHOW  TEAT  A DESIGNATE  IS  REQUIRED. 

3 IB  36  THE  DEPOSITION  FLAG  (RADMOCES  HIT  11)  IS  CHECKED.  I F S ET , 

RI  337  TEE  PROGRAM  EXITS  TO  L+3  OF  THE  CALLING  PROGRAM  ( SFE  PRDESSM 

R 183)  ANO  RPDFSNB).  THE  PROGRAM  WILL  BEGIN  CES  IGNAT  ING  TO  THE  DESIRED 

RIB30  ANGLES  FOLLOWING  THE  RFPOSITICN  CR  REMODE  IF  CNE  WAS 

RIkaii  R FQiJCST  f n . IF  THE  reposition  FLAG  is  not  sft,  setrrfcr  iscalleo 

R1BA1  WHICH  SETS  THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAM  12  BIT  2) 

R 1 8 A?  AND  SETS  L ASTYCMD  AND  LA  STXCMD  = C TO  INDICATE  THF 

RlHAR  DIFFERENCE  BETWEEN  TFE  PRESENT  AND  DESIREO  STATE  OF  THE  ERROR 
3 IRAA  COUNTERS.  A 20  MILLISECOND  WAITLIST  CAIL  IS  SET  FOR  BEG  CES 

R19A5  AFTER  WHICH  THE  PROGRAM  EXIT'  TO  L+3  OF  THE  CALLING  PROGRAM. 


R1BA6  CALLING  SEQUENCE: 

RIBA7  FROM  RRDESSM  ANO  PRDESNB  WHEN  ANGLES  WITHIN  LIMITS. 

R 1 BAB  ERASABLE  INITIALIZATION  RECUJRFC: 

3 18A9  RADMODE  S,  (SEE  DODES) 


R195D  SUBROUTINES  CALLED. 
R 1 85  1 SETRRFCR,  WAITLIST 


3 185?  JOBS  OR  TASKS  INITIATED 
R1853  “CCOES 


R185A  ALARMS.  NCNF 


TJF  CALLING  PROGRAM  (SEE  RRCESNB) 


1 857 

1858 

1850 

I860 

1B61 

186? 

1863 


REF  6 
REF  67 
REF  A 
REF  68 

REF  A 
RFF  I8A 
REF  1 


LAST 
L AST 
LAST 
LAST 
L AST 
LAST 


5A8 
5 A fe 
5A1 
5A9 
539 
5A8 


2 5 ,2  A?  3 25*  1 12  1 

25,  2 A ? A A Cl  10  0 
2 5 , 2 A?5  7 A7A2  0 

25.2A26  26  110  0 

25,  2 A 27  7 A7A1  0 

25  ,2A30  10  000  0 

25.2A31  l 2A37  1 


ST  ADJOES 


INCR  OESRET 

CS  RADMOOES 

MASK  DESIGBIT 

ADS  R ACMOCES 

MASK  REPOSBIT 

CCS  A 

TCF  DESRETRN 


1 86A 


REF  2 LAST  538 


25,  2a  32  0 2 1 A 7 1 


t:  setrrecr 
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USER'S  PAGE  NO.  5C  F7  S3 

STCRED  AS  A HALF-UNIT  VECTOR  IN  RRT  AR  GET 

CKON  IS  DESIREO.  BIT1A  OF  RADMODES  IS 
OR  REPOSITION  OPERATION.  IN  THIS 
THE  REPOSITION  WILL  BE  INTERRUPTED. 

GINS  . 


SEE  IH  REPOSITIONING  IN  PROGRESS. 
ECTR  ALREAOY  SET  UP. 


SET  UP  ERROR  COUNTERS 


GAP:  ASSEMBLE  REVISION  65  OF  AGf.  PROGRAM  7EPLINA  BY  ZOROASTER 


1867 

1868 
1068 


PEF 

RFF 

REF 

REF 


L AST 
LAST 
LAST 
L AST 


516 
566 
56  6 
539 


25,  2*  33 

' , ■ • 

E 7 ,1656 
25,  2635 
25  ,2636 


CAF  TWC 

t:  WAITIIST 

EBANK=  LOS  COUNT 
2CADR  RPGOES 


1869 
1 871 
1871 
137? 
1 873 
1876 
1 375 
1876 


3 LAST  525 


56  9 
550 
529 


25  ,2661 
25,  2662 
25,  266? 

?5,?666 

25,  266  5 
25  ,2666 


3 1 3C3  0 
C OCC 6 1 
1 2663  l 
f 5155  0 

C C003  1 
25*112  1 
3 1112  1 


660  0 


OtSRET 
DESRET 
RANK  JUMP 


1377 
^8  78 
1 879 


I A ST 
LAST 
LAST 


56  2 
580 

550 


25,2667 
25,  2650 
25,2651 


3 6756  1 
5 5 • 3o  3 1 
l 2663  1 


NOROSTAL  CAF  ZERO 

TS  R A DC  ADR 

TCF  OESRTRN 


9:1?  CCT.  21  ,1970  ZLEMP20S.001  PAGE  550 


USER  *S  PAGE  NO.  51  E7  S3 


FIRST  PASS  THRU  DESIGNATE 

YE  S SE  T E XI  T 
NO 


?pR0  P A DC  A CP  TO  WIPE  OUT  ANYONE 
WAITING  IN  RADSTALL  SINCE  WE  ARE  NCW 
RETURNING  TO  P2C  AND  MAY  DO  NEW  RADSTALL 


GAP:  ASSEMBLE  REVISION  56  OF  ACC.  PRCGRAM  ZERLINA  BY  ZOROASTER 


L P20-P2B 

'?  18 BO  SEF  IF  RRDESSM  CAN  BE  ACCCMPLISHEO  AFTER  A REMODE. 


1 9 ■:«  1 
1882 
18*3 


REF 


1884  RFF 


LAST  54 1 
1 AST  548 
I AST  328 
LAST  54  8 


25, 2452 
25  ,2453 
26,2464 
25,  2455 


0 2224  1 

0 4523  1 
Cl  1 1 0 0 

1 2462  1 


TR  YSWS 


TC  R MODI  N V 

TC  RRLIMCHK 

ADRES  MCCEB 

TC F NODE  SSM 


1885 

138* 

1887 


PFF 

RFF 

RFF 


LAST 
L AS  1 
LAST 


25,2456 
25,  2467 
2 5 ,2460 


C 2224  1 
2 4736  1 

26  no  0 


TC  RMODINV 

CAF  REMODBIT 

ADS  RADMODE  S 


1888  PFF 


25,2461  1 2403  0 


TCF  OK  DESS  8 


1 889 

1890 

1891 


REF 

REF 

REF 


LAST  551 
LAST  550 
I AST  548 


25,  2462  0 2224  1 NUDES  SM 

25,2463  25*112  1 

25,  2464  1 2447  0 


TC  R MOD  I N V 

I NCR  DESRET 
TCF  NOROSTAL 


189? 


25,2465  00074 


MAXTRYS  DEC  60 
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INGTE  RUPT  INHIBIT) 

TRY  DIFFERENT  MCDE . 

VFHICLE  MANEUVER  REQUIRED. 


RESET  BITI2 

SET  FLAG  FOR  REMOOE. 


RE-INVERT  MCDE  AND  RETURN 
TO  CALLER  +2 


m 


&SSFMRLE  REVISION  56  CF  AGC  FRCGP  AM  ZER  LINA  BY  ZOROASTER 
P20-P25 


1900 

noi 

190? 

1903 

1 904 
1905 


REF  54  LAST  528 

RFF  6 LAST  524 

REF  1 

REF  2 LAST  5l8 


P FF 
RFF 
REF 


25,2470  C 5527  1 


25.2471 

25.2472 
25,  247  1 
25  ,2474 
25,2475 
25,  2476 
25,2477 


00041  1 
3 24  65  1 
65*113  1 
C 0004  0 
C 2531  1 
01106  1 
1 2514  1 


DOWNFLAG 
LOSCMFLG 
MAXT  RYS 
OE  SCOUNT 

RRLIMNB 
TA  MS 
TRYSWN 


1336 
1907 
1 908 
1 9D9 
1910 


RFF 

REF 

REF 


25,  2 5C0 
25, 2501 
55?  25,250? 

329  25,  2503 

527  25  ,2504 


C CCC3  1 
0 00C6  1 
3 1107  0 
53*753  0 
0 6051  0 


RE  LI  NT 
EXTEND 
OCA  TANG 

DXCH  T A NGN  8 
TC  INTPRET 


25,2505  77624  1 

25,  2506  46041  0 

LAST  54  R 25  ,2507  Oil"!  0 


CALL 


1916 

1717 

1918 

1919 
1 92  ( 
1921 


RFF 

RFF 
R EF 
REF 
RFF 


I AST 
LAST 
LA  ST 
LAST 


25,2512 
1 1 

25  ,2514 
25,25  15 
25,  25  16 

25  ,2517 


C 0004  0 
1 2424  0 
C 2224  1 

0 2531  1 
01106  1 

1 2524  1 


STAHTOFS 
RMOOINV 
RRL IMNR 
TA  NG 
NOOESNB 


PFF 

REF 

REF 

REF 


LAST 
I AST 
LAST 


25. 2520 

25.2521 
25  ,2522 
25, 2523 


C 2224  1 
3 47  36  1 
26  110  0 
1 2500  1 


TC  RMOOINV 

CAF  REMOOBIT 

AOS  RAOMOOES 

TCF  OKOESNB 


1926 

1027 

1 92  R 

1920 

1933 


25  ,2524 
25,2525 

, 

25  ,2527 
25,  2530 


2 224  1 
C 5600  1 
005C2  0 
0 6011  1 
0 5155  0 


TC  RMOOINV 

TC  ALARM 

OCT  502 

TC  CLRADMOD 

TC  ENDOFJCB 


1931 

193? 

1933 

1934 


RFF  161  LAST  544 
REF  162  LAST  55  2 


25,2531 
25  ,253? 
25, 2533 
25  ,2534 


50  002  0 
3 3C0C  1 
24  002  0 
0 0006  1 
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MOTION).  ENTER  WITH  OESIRFC  ANGLES  IN 


RES  FT  FLAG  TO  PREVENT  DODES  FROM  GOING 
RACK  TO  R21 

SET  TIME  LIMIT  COUNTER 

FOR  OES  I GNAT F 

SEE  IF  CURRENT  MORE  OK. 

CO  SPECIAL  V 4 1 LIMIT  CHECK 

SEE  IF  IN  OTHER  MODE. 


GET  LOS  IN  NB  COOROS. 


SEF  IF  OTHER  MODE  WILL  00. 
DO  SPECIAL  V41  LIMIT  CHECK 

NOT  POSSI  Bl  F. 


CALL  FOR  REMOOE. 


REINVERT  MODE  BIT. 
RAO  INPUT  ANGLES. 


AVO  10  53  3 ALARM  . 


THIS  ROUTINE  IS  IDENTICAL  TO  RRLIMCHK 
EXCEPT  THAT  THE  MODE  1 SHAFT  LOWER 
LIMIT  IS  -85  INSTEAD  OF  -70  DEGREES 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  3Y  ZOROASTER 


P 20- P 25 


1935 

1936 

1937 
1 93  fl 


REF  185 

REF  17 
RFF  163 


LAST  549 

LAST  545 
LAST  552 


25,2535 
25  ,2576 
25  ,2537 
25, 2540 


5 COCO  1 
3 0C01  0 
52  Ofc2  1 
22  002  0 


INDEX  A 
OCA  C 
DXCH  ITEMP1 
L XCH  0 


I 939 
1940 

1 04I 


194? 

1943 

1944 

1945 
1 946 


PCF  11 
REF  7 1 
REF  186 
REF  2 
REF  18 
REF  8 


LAST 
LAST 
LAST 
LAST 
L AST 
LAST 


54  1 

552 

553 
531 

55  3 


25,2541  ? 4740  0 

25, 254?  701100 

25.2543  10  000  0 

25.2544  1 4550  1 

25,  2545  CCd  0 
25  ,2546  C 4512  0 
2 c , 2 5 4 7 66161  1 

25, 2550  0 0001  0 


CAF  ANTENBIT 

MASK  RADMCDES 
CCS  A 

TCF  M0DE2CHK 

CA  I TEMPI 

TC  MAGSU8 

DEC  -.30555 

TC  L 


1947  REF 
1 948 

1949  RFF 

1950  RFF 

1951  RFF 

1952 

1953  REF 

1954  REF 

1955  RFF 

1956  PEF 


LAST  545 


LAST  532 
LAST  553 

LAST  553 
LAST  532 


25,2551  3 0062 

25,  2552  C OC 06 
25, 2553  6 2561 

25  ,2  554  6 4562 

2 5,  2 5 5 5 C 4512 
25  ,2556  64420 

25,2557  c 0001 
25,  256t,  0 4560 

25  ,2561  6 2563 

25, 2562  1 2555 


0 

l 

1 

1 

0 

0 

0 

c 

0 

l 


CA 

EXTEND 
87.  MF 
AD 

SHAF  TL1  M TC 
DEC 
TC 
TC 

NEGSHAFT  AD 
TCF 


IT  EMP2 

NE  G SHAF T 
5 .50FGS 
MAG  SUB 
- .35833 
I 

MR  LI  MOK 
20  .5DEGS 
SH  AFTLI  M 


1957 


25,2563 


03512 


20  .50FGS  DEC 


11389 
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REAC  GIMBAL  ANGLES  INTO  ITEMP  STORAGE 

LICALLER  +2 ) T C L 

SFE  WHICH  MODE  RR  I S I N. 

MODE  2 CAN  USE  RRLIMCHK  CODING 

MODE  1 I S DEE  I NED  AS 

1 . ABS  (T  1 I 55  OFGS 

2 SHAFT  LIMITS  AT  +59  , -85  DEGS 

LOAD  SHAFT  ANGLE 

IF  NEGATIVE  SHAFT  ANGLE,  ADD  20.5  DEGS 


64.  5 DEGREE  S 
NOT  IN  L IMITS 
I N LI MITS 

MAKE  NEGATIVE  SHAFT  LIMIT  -85  DEGREES 


GAP: 
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Pi  958 

PROGRAM  N AMF_  8FGCES 

l 1959 
P195  7 

R 1961 
ft  196? 

ftl  963 

* 1 964 
R1965 
ft  1966 

* 1967 
Rl  96ft 

R 1969 

R 1970 
P.19  71 
ft  197? 
Rl  973 
Rl974 
< 1975 
Rl  976 

R 197  7 
« 1978 
Rl  979 
ft  1980 
R19R1 
ft  1 98? 
ft  1983 
R1985 

FUNCTIONAL  DESCRIPTION. 

PFGDFS  CHFCKS  VARIOUS  DESIGNATE  REQUESTS  AND  REQUESTS  THF 

ACTUAL  RR  DFSI GNAT If  N . INITIALLY  A CHECK  IS  HADE  TO  SEE  IF  A 
ft  FMH  OF  (RAOMODES  ^TT  151  IS  PFCLESTED  CR  IN  PROGRESS.  IF  SO, 
rCNTBOL  IS  TRANSFERRED  TO  STDESIG  AFTER  ROUTINE  REMODE  IS 

EXECUTED.  IF  NO  PE  MODE  * STDESIG  IS  IMMEDIATELY  CALLED  WHERE 

FIRST  T Ht  REPOSITION  FLAG  ( R ADMODE  £ BIT  11)  IS  CHECKED.  IF 

PRESENT,  THE  DESIGNATE  FLAG  ( R A CMC  DfcS  BIT  10)  IS  REMOVED 

AFTER  WHICH  THE  PROGRAM  EXITS  TC  ROBADEND.  IF  THE  REPOSITION 

FI  AG  IS  NUT  PRESENT*  THF  CONTINUOUS  DFSIGNATF  FLAG  (RAOMODES 

RIT  15)  IS  CHECKED.  IF  PRFSENT,  CN  FXFCUTIVE  CALL  IS  IMMEDIATELY 

MADE  FOR  DODFS  AFTER  WHICH  A .5  SECCND  WAIT  IS  INITIATED  REFCRE 

REPEATING  AT  STDESIG.  IF  THF  RR  S EARCH  ROUTINE  ( LR  S25.  1 ) I S OE  SI  G NA  TI  NG 

TP  A NF  W POINT  (NEWPTFLG  S FT  ) THE  CURRENT  DESIGNATE  TASK  IS  TERMINATED. 

IF  CONTINUOUS  OFSIGNATE  IS  NOT  WAN  Tt  D * THE  DESIGNATE  FLAG  ( R ADNCOES 

PIT  1rt  IS  CHECKED.  IF  NOT  PRESENT,  THF  PROGRAM  EXITS  TO  FNDRADAR  TO 

CHECK  P“  COU  FAIL  BEFORE  RETURNING  TO  THE  CALLING  PROGRAM.  IF  DESIGNATE 

IS  STILL  REQUIRED,  DESCDUNT  IS  CHECKED  TO  SEE  IF  THE  30  SECONDS  HAS 

EXPIRED  BEFORE  RECEIVING  TFE  Pf  DATA  GOOC  (CHAN  23  BIT  6) 

SIGNAL.  IF  OUT  flp  TIME,  PROGRAM  ALARM  00503  IS  REQUESTED,  THE 

RR  AIJTO  TRACKER  ENABLE  ANO  RR  ERROR  COUNTER  ENABLE 
(THAN  12  PITS  16,2)  BITS  REMCVFC,  AND  THE  DESIGNATE  F|  A G 

IRAOMODES  BIT  10)  REMOVED  BEFORE  EXITING  TO  RDBADEND.  IF 

TIME  HAS  NOT  EXPIRED,  DESCOUNT  IS  DECREMENTED,  THE 

EXECUTIVE  CALL  MADE  FOR  DODES,  AND  A .5  SECOND  WAIT  INITIATED 

BEFORE  REPEATING  THIS  PROCEOUftE  AT  STDESIG. 

R 1985 
ft  1986 
Rl  987 
ft  1988 

CALLING  SEQUENCE: 

W'A  ITL  1ST  CALL  FROM  STAR  TOES 

TCF  BEGDES  FROM  DORREPOS 

TC  STDESIG  RETURNING*  FPCM  REMCCE 

R 1 9 ft  9 
R1990 

ERASABLE  INITIALIZATION  REQUIRED: 

DE SC  CUNT  * RAD  VCDES 

ft  1991 

K 1 99  2 

SUBROUTINES  CALLED. 

ENDPACAR,  FINDVAC 

R 1993 

JC8S  CR  TASKS  INITIATED.  CODES 

R 1995 

Rl  995 

Al  ARMS  PROGRAM  ALARM  00503  ( 30  SECONDS  HAVE  EXPIRED)  WITH  NO  RR  DATA 

GOOO  (CHAN  33  BIT  6)  RECEIVEC  WEEN  LOCK-ON  (STATE  BIT  5)  WAS  REQUESTFP. 

ft  1998 

R 1 997 

R 1998 

F XI  T TASKOVER  (SEARCH  PATTERN  DESIGNATING  TC  NEW  POINT) 

ENDRADAR  (NO  DESIGNATE  - RAOMODES  BIT  10) 

ROBADEND  (REPOSITION  OR  39  SECONDS  CXPIRFD) 

1999 

REF  72  LAST  553  25,2565  5 0110  0 BEGOES  CS  RAOMODES 

GAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P25 


2000 
21  0 I 
2002 
2003 
2334 
2005 


PEF  5 LAST  55? 

REF  187  LAST  553 

PFF  3 LAST  54  1 

REF  1 

REF  8 LAST  543 


25  ,2565  7 4736  0 

25.2566  1C  CCO  0 

25.2567  0 2573  1 

25,2570  0 2162  0 

25,  2571  C 5232  1 
25,2572  00062  0 


MASK  REMODBIT 

CCS  A 

TC  STDESIG 

TC  REMOOE 

OE  SLOOP  TC  FIXDELAY 

DEC  50 


2006  REF  5 I AST  549 

2 30  7 RRF  73  LAST  554 

20C8  RFF  188  LAST  555 

2009  P.  EF  1 


25.2573  3 4741 

25. 2574  7 OllO 
, 1 

25,2576  1 2614 


1 STDESIG  CAF 
MASK 
CCS 

1 TCF 


REPOS  B IT 
RADMODES 

BACOES 


2 010 
2011 
2312 
201  3 


REF  74 

REF  1 


LAST  555 


25, 2577 
25,2600 
25,  26C1 
25,2602 


10  110  0 
1 2603  1 
1 2 6C3  1 
l 2620  0 


CCS  RADMODES 

TCF  +3 

TCF  +2 

TCF  MOREDFS  «- 


2016 

2017 


RFF  75 
REF  5 
RFF  189 
PEF  2 


LA  ST 
L AST 
LA  ST 
LAST 


555 

549 

555 

546 


25  ,?6C3  4 0110  0 

25. 2604  7 474 2 0 

25.2605  10  000  0 

25, 26C6  1 3614  0 


CS  RADMOOES 

MASK  OF  SI  GRIT 

CCS  A 

TCF  ENDRAOAP 


2i1o  REF 
2019  REF 


3 LAST  552  25,2607  Ilf  113  1 
2 LAST  555  25,2610  1 2617  1 


STDES  I G 1 CCS  3E  SC  OUNT 

TCF  MOR60ES 


23  23 
2021 
20  22 

2023 

2024 
2325 

2026 
2027 
2228 
2029 
20  30 
203C 


RFF 
PEF 
PFF 
P EF 

REF 
REF 
REF 
PEF 
P EF 
RE-F 


LAST 
I.  AST 
I AST 
LAST 


5?  9 
550 


25,  26  11 
25  ,2612 
25  ,26  13 

",  H 

75  ,2615 

• 

25,2617 
75,2620 
25,  262  1 
E7  ,1456 
25,2622 
. - 


4 2625  0 
0 OOC'6  1 

03  012  1 

0 5527  1 
00271  0 

1 3630  0 


55*113 
3 7 72  6 
0 5105 


C S B 1 4+  B2 

FXTEND 

WAND  CHAN12 

TC  00  WNF  LAG 

ADRES  DESIGFLG 

TCF  RDBADEND 


1 MDREDES  TS 


CAF 


OE  SCOUNT 
PR  102 6 
TC  F I ND  VAC 

EBANK=  LOSCOUNT 
2CA0P  DODES 


2031 


25,2624  1 2571  1 


2*>3? 


25,  2625  2CCC2 


814+82  OCT  20002 
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2 SAMPLES  PER  SECOND. 


S EF  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 
OUT  UF  BOUNDS.  IF  SC,  THIS  81  T SHOWS  A 
PFPOS  IT  ION  TO  BE  IN  PROGRESS. 


SEE  IF  CONTINUOUS  CES  IGNAT  E WANTED. 

IF  SO,  DONT  CHECK  RIT  10  TO  SEE  IF  IN 
LIMITS  BUT  GO  RIGHT  TO  FINDVAC  ENTRY. 


IF  NON— CONT  INUOUS,  SEE  IF  END  OF 
PROBLEM  (OATA  GOOD  IF  LOCK -ON  WANTEO  DR 
WITHIN  LIMITS  IF  NOT!  . IF  SO,  EXIT  AFTER 
CHECK  ING  RR  COU  FA  IL  . 


SEE  IF  THE  TINE  LIMIT  HAS  EXPIRED 


IF  CUT  OF  TIME,  REMOVE  ECR  ENABLE  ♦ TRK R 


UPDATE  GYRO  TDROIJE  COMMANDS, 
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*20  33 

PPDGRAM  NAME_  DODE S 

R2?34 

*2035 

R 2£  36 

R 2 0 3 7 

I 2'  38 
R2  j39 
R204C 

* 20  4 I 
R2  j4? 

? 2043 

R2(j45 

T 2:A6 

R2D47 

R 2048 

R ?r4o 
R2D53 

I 2051 
R2052 
R2053 

* 2054 
R2355 

R 20  56 
K2057 
R2358 
< 2059 
R2061 

R 2 06 1 

* 2C6 2 
R2363 

R 2064 

R 20  65 

R2  066 

* 206  7 
R2D6B 

R 2069 

R 20  70 
R2D71 

FUNCTIONAL  DESCRIPTION. 

OI'OES  CALC  IJ1  ATE  S A 60  REQUESTS  ISSUANCE  OF  RR  GYRO  TOROUE 

COMMANDS.  INITIALLY  THE  r UR  RF  NT  RR  CDU  ANGLES  ARE  STORED  AND 

TFF  LOS  HALF-UNIT  VECTOR  TRANSFORMED  FROM  STA0IF  MEMBER  TO 

NAVIGATION  RASE  COCROINATFS  VIA  SMNP  IF  NECESSARY.  THE 

SHAFT  ANC  TRUNNION  COMMANOS  ARE  THEN  CALCIJLATEO  AS  FOLLOWS. 

♦-  SHAFT  = LOS  . (COS  IS),  C,  -SIN  IS))  ( DOT  PRODUCT) 

-TRUNNION  = LOS  . 1 SIN  f T)  SIN  (S)  ( CCS  (T),  SIN  (T  ) COS  (S  ) ) 

THF  SIGN  OF  THE  SHAFT  COMMAND  IS  THEN  REVERSED  IF  IN  MODE  2 
(RADMnnES  BIT  12)  BECAUSE  A FFLAY  IN  THE  RR  REVFRSFS  THF 

POLARITY  OF  THF  COMMAND.  AT  RRSCALUP  F ACH  COMMANO  IS 

SCALEO  AND  IF  EITHER,  OR  BOT  F , OF  THF  COMMANDS  IS  GREATFR  THAN 
.5  DEGREES,  MPAC  +1  IS  SET  PCSITIVE.  IF  A CONTINUOUS  DESIGNATE 
(RACMOCES  HIT  15)  IS  DESIRED  AND  THE  SEARCH  ROUTINE  IS  NCT  OPERATING, 

THF  RR  AIJTC  TRACKER  ENABLE  PIT  (CHAN  12  BIT  14)  IS  CL  EAR  FD  AND  PROIJT 

CALLED  TO  PUT  OUT  THF  COMMANDS  PPrVIOED  NC  RFPCSITICN  (PADMOCES  BIT  11) 

IS  IN  PROGRESS.  IF  A CONTINUOUS  DESIGNATE  AND  THE  SEARCH  ROUTINE  IS 

OPERATING  (SP.CHOPT  FLAG  SET)  THE  TRACK  ENABLE  IS  NOT  CLEARED.  IF  NO 

CONTINUOUS  DESIGNATE  AND  BOTH  COMMANDS  ARE  NOT  LESS  THAN  .5  DEGREES  AS 

INDICATED  BY  MPAC  +1,  TFF  PR  AUTU  TRACKER  ENABLE  SIT  (CHAN  12  BIT  14)  IS 

CLFARED  AND  RR  CUT  CALLED  TC  PL  T OUT  THE  COMMANDS  PHOVIDEO  N0  RFPOSITION 
(PACMnOFS  BIT  11)  IS  IN  PROGRESS.  IF  BOTH  COMMANDS  ARE  LESS  THAN  .5 

DEGREES  AS  INDICATED  BY  MPAC+1,  TEE  RR  AUTO  TRACKER  ENABLE  BIT 
(CHAN  12  BIT  14)  IS  CLEARED  AND  RRGUT  CALLED  TC  PUT  OUT  THE 

COMMANDS  PROVIOED  NO  REPOSITION  ( RADMODE  S BIT  ID  IS  IN 

PROGRESS.  IF  BOTH  CCMMANOS  APE  LESS  THAN  .5  DEGREES,  THE 

LOCK-ON  FLAG  (STATE  BIT  5)  IS  CHECKED.  IF  NOT  PRESENT,  THE 

DFSIGNATF  FLAG  (RACMOCES  PIT  10)  IS  CLEARED,  THF  RR  ERROR 

COUNTER  ENABLE  BIT  (CHAN  12  GIT  2)  IS  CLEARED,  AND  ENDOFJOB 

CALLED.  IF  LOCK-ON  IS  DESIRED,  THE  RR  AUTO  TRACKER  (CHAN  12 

BIT  14)  IS  ENABLED  FOLLOWED  eY  A CHECK  OF  THE  RECEIPT  DF  THE 

RR  DATA  GOOD  (CHAN  33  RIT  4)  SIGNAL.  IF  RR  DATA  GOOD 

PRESENT,  TFF  DESIGNATE  FLAG  ( RADMODE  S BIT  10)  IS  CLEARED, 

THF  RR  FRROP  COUNTER  FNARLF  eiT  (CHAN  1?  PIT  2)  IS  CLEARED, 

ANC  ENDOFJOB  CALLED.  IF  RR  DATA  GOOD  IS  NOT  PRESENT,  RROUT 

IS  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDEO  NO  REPOSITION 
(PADMODES  RIT  111  IS  IN  PROGRESS  AFTER  WHICH  THE  JOB  IS  TERMINATED 

VIA  ENDOFJOB. 

R 2072 

R 207  3 

CALLING  SEQUENCE: 

EXFCUTIVE  CALL  EVERY  .5  SECONDS  F PC  M BEGDES. 

R2  074 

1 2075 
R2D76 

ERASABLE  INITIALIZATION  REQUIRED: 

RETARGET  (HALF-UNI  T I.CS  VECTFR  IN  EITHER  SM  OR  NB  COORDINATES), 

L OK 0 NSW  (STATE  81 T 51,  RRNBSW  (STATE  BIT  6),  RADMODES 

R 2C  77 
R2078 

SUBROUTINES  CALLEC. 

PFADCDUS,  SMNB  , : D ULOG  I C , MAG  SUB,  RROUT 

GAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  BY  ZO 

L P2B-P25 


R20B1 

1 20ft? 

2DR3 
2 08% 
20  85 

2086 

20R7 
2088 
2 0B9 

2090 

2091 

2092 

2093 
2099 

2095 

2096 

2097 

2098 

2099 


ALARMS.  NONE 
F XI  T_  E NO  OF  JOB  (ALWAYS) 


RFF  11  LAST  543 
RIF  U LAST  552 

REF 


REF 

REF 

REF 

RFF 

REF 

*REF 


L AST 
LAST 


25,  2626 
25,  2027 
25,2630 


C 00C6  1 
3 0036  1 
53'107  1 


L AST  552  25,  2ft 3 1 0 6051  0 


552 

552 


25  ,2632 
■ 

, 

. 

25,  2636 

. 

25  ,2640 
25,  264  1 

, 

25,264  3 
25, 2644 
25  ,2645 
25,  2646 


77201  1 
00001  0 
oiici  o 

74214  0 
00311  I 
52647  0 
01  765  1 
63372  1 
01757  0 
52361  0 
13057  1 
45056  0 
47653  1 


21  > 
21(3 
2134 

2105 

2106 

2107 

2108 
2139 
2H 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 
2119 
2127 
2121 
212? 
2123 


RFF 


12  LAST  557 


RFF  11  LAST  379 


LAST  557 


■ 

2 5 ,2650 
25,  265  1 

. 

2 5 , 26  5 3 
25,  2654 
25  ,2655 

25,  2657 
25  ,2660 
2 c,  2661 
25  ,2662 
25,2663 

. 

25  ,2665 
2 c,  2666 

, 

25.2670 

25. 2671 
25  ,2672 
25,2673 
25, ?674 


1404  1 1 

oiiio  o 
41434  1 
21560  1 
65356  1 
4 1546  C 
65205  0 
CCC41  1 
0TC45  0 
44205  0 
0CCC1  0 
77626  0 
76667  1 

*7135  0 
01107  0 
21560  1 
71406  0 
73525  I 
412C6  0 

or  e 3 i 
65352  0 
00CC5  1 


9:  12  OCT.  21,  1970  ZLFMP20S.001  PAGE 
USEP'S  PAGE  NC.  58  E7  S3 


557 


EXTEND 

DCA  :dut 

DXCH  TANG 

TC  INTPRET 

SETPD  VLOAO 

0 

PR  TAROF  T 
BON  VXSC 

PRNBSW 

OON13RD  TARGET  IN  NAV-BASE  COORDINATES 

MLOSV  MULTIPLY  UNIT  LOS  BY  MAGNITUDE 

VSLl  PD  VL 

LOSVEL 

VXSC  VAD  ADD  ONE  SECOND  R EL  AT  I VF  VELOCITY  TO  LOS 

HZ  TOMS 
UNIT  CALL 

CDU*SMNB 


STOOL  3 2D 

T ANG  *1 

RTI3  PUSH  SHAFT  COMMAND  = V ( 320) . (COS  (S  ),  0, 

f.DULOGIC  (-SIN(Sl). 

SIN  POOL  SIN(S)  TO  0 AND  COS(S)  TO  2. 

COS  PUSH 

DMP  POOL 

32  D 

3 60 

DMP  BDSU 

0 

STADR 

STORE  TANG  +1  SHAFT  COMMAND 

SLOAP  RTB 

TANG 
CDULCGI C 

push  :os  ensiT)  to  4. 

POOL  SIN 

PUSH  DMP  SIN  IT  ) TO  6 . 

2 

S LI  PDCL  DEFINE  VECTOR  U = ( S I N ( T)  SI  N ( S)  ) 

4 (COS  (T  ) > 
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558 


m 
2126 
2127 
21  2p 
2129 


25, 2^76 
25  ,26  11 
25,7 7CC 
2%  270  1 
75  ,7702 


*•132  5 
00CC7 
0C  001 
55552 
7 7 9 A 1 
00091 


0 

0 

0 

c 

0 


PCCL  DM P ( S IN  ( T1C0  SI  S>  ) 

6 

0 

SL1  VDEF 

DOT  EXIT  DOT  IJ  WITH  LOS  TO  GET  TRUNNION  COMMAND. 

3?0 
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HU 


CONVERT  THIS  TO  A 


2 1 3A  REF 

2135 

2136  REF 

2137  REF 

2138  REF 

2139  REF 
21  A3 

2 HI 

2142  REF 
21  A3 

2 1 AA  REF 
2 1 A 5 

2 1 A 6 REF 
2 1 A 7 REF 
2 1 Afl  RFF 


2A8  LAST  529 


3 LAST  5AA 
76  LAST  555 
22  LAST  517 


15  LAST  557 

16  LAST  559 

2 LAST  559 
1 

Afl  LAST  557 


25,  2 70 A 
25  ,2705 

25.2706 

25. 2707 
25,2710 
25,  2711 

25.2712 

25.2713 
25,  27  1A 
25  ,2715 
25,2716 
25,  27  17 
25,?720 
25,  272  1 


A 015A  0 
0 0006  1 
7 3053  0 
55*351  0 
A 0 1 10  0 
7 A7A0  1 
C 0006  1 
1 27  15  1 
3 1107  0 
1 2716  1 
A 1107  1 
C C0C6  1 
7 3053  0 
55*352  0 
C 6C51  C 


♦■3 


E XTEND 

MP 

TS 

C S 

MASK 

F X TE  NO 

BZF 

CA 

TCF 

CS 

EXTEND 

MP 

TS 

TC 


MP  AC 

RDESGA IN 
TRUNNCMD 
RAO  MODE  S 
BIT  12 

♦ 3 

T ANG  +1 

♦ 2 

TANG  +1 

R3E  SGAI  N 
S HA  FTC  MO 
I NTPRFT 


DOT  WAS  NEGATIVE  OF  OESIRED  ANGLE. 

SCALING  ON  INPUT  ANGLE  WAS  A RADIANS. 
TRUNNION  COMMAND  FOP  RROUT 
A RFLAY  IN  THE  PR  REVERSES  POLARITY  OF 
THE  SHAFT  COMMANDS  IN  MOOE  2 SO  THAT  A 
POSITIVE  TOROJE  APPLIED  TO  THE  SHAFT 
GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 
SHAFT  ANGIE.  COMPENSATE  FOR  THIS  SWITCH 
RY  CHANGING  THE  POLARITY  OF  OUR  COMMANO. 


SCALING  ON  INPUT  ANGLE  WAS  A RADIANS. 
SHAFT  COMMANO  FOR  RROUT 


21A9 

2150 

2151 

2 152 

2153 
215A 

2155 

2156 

2157 

215*  RFF 

2159 

2160 

2161  RFF 
' 1 ' * 

2163  RFF 


A LAST  557 


7 LAST  557 


25.2722  A13A5  0 

25.2723  00003  1 

25,  272a  000C5  1 

25  ,2725  65352  0 

25,2726  (5276  1 

25,  2727  00001  0 

25  ,2730  7 2 AO 5 0 

25,  2731  CCCC5  1 

25,  2732  A 3066  0 

25,2733  00311  1 

25,  273A  52737  0 

25,2735  7762A  1 

25  ,2736  A7700  0 

25,  2737  7 7 A A 1 0 

25  »?  7A3  01101  0 


DLOAD  OMP 
2 

SL  l POOL 
DCOMP  POOL 

0 

DM  P SL1 
A 

VOEF  30N 

RRNBSW 
+ 3 

CALL 

*NBSM* 
DOT  F XI  T 

RR  TAR  GET 


COS (S  ) . 

COS  (T  ). 

7 COMPONENT  OF  UR R. 

Y COMPONENT  = -SIN(T). 

SI  N(S) . 

COS  (T  ) . 

FORM  URR  IN  NB  AXES. 

BYPASS  NB  SM  CONVERSION  IN  VERB  Al. 


GET  URR  IN  SM  AXES. 

GET  COSINF  OF  ANGLE  RETWEFN  RR  AND  LOS. 


2166 

2167 

2168 


2169 
2 173 
2171 


REF  1 

REF  2 A9  LAST  55^ 
REF  250  LAST  550 
RFF  1 1 6 LAST  550 

REF  67  LAST  5A6 
REF  251  LAST  559 


25,  2 7 A 2 
25.27A3 
25,  2 7 A A 
25.2745 
25.2  7A6 
2 5,  27A7 
25  ,2750 


20  155  1 
1C  15A  0 
3 A755  I 
1 2750  0 
3 A 7 5 3 1 
5 A 155  1 


EXTEND 

DCS  C0S1/20G 
DAS  MPAC. 

CCS  MPAC 

CA  ZERO 

TCF  +2 

CA  ONE 

TS  MPAC  +1 


DIFFERENCE  OF  COSINES,  SCALED  R-2. 

IF  COS  ERROR  BIGGER,  FPRPR  IS  SMALLER. 

ZERO  I<=  RR  IS  POINTED  CK,  ONE  IF  NOT. 


CAP: 

L 

P2 1 7? 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY 
P20-P25 

SEE  IF  TRACKER  SHOULC  BE  ENABLED  OR 


ZOROASTER 

01 SA9LE0. 


2179  REF  77 

2174  REF  1 

2175  RFF  2 

2176  RFF  l 

2177  PFF  252 

2178  RfF  1 

2179  REF  39 

2 1 83  PEF  1 

2181  RFF  190 

218?  PEF  1 


LAST 
LAST 
L AST 
LA  ST 
LAST 


689 

560 


559 

548 

555 


26,  2752  1 2755 

25.2753  1 2755 

25.2754  1 3 005 

26.2755  1C  155 

25  ,2756  1 2766 

?5 ,2  757  4 CC74 

25,2760  7 4747 

25  ,2  761  16  COO 

25,  2762  1 2773 


0 

0 

0 

0 

1 

0 

0 

0 

0 


CCS  RAUMODES 

TCF  SIGNLCHK 

TCF  SIGNLCHK 

TCF  DORROUT 

SIGNLCHK  CCS  MPAC  +1 

TCF  0 GOO  DC  HK 

CS  STATE 

MASK  L OKONB I T 

CCS  A 

TCF  PROFS  DUN 


2193 

2184 

2195 


REF  53  LAST 
RFF  34  LAST 


. 

25,2764 
2C,  2765 


3 4736 
0 0006 
C 5 C 1 2 


CAF  3 I T 14 

EXTEND 

WOR  CHAM  2 


2186 
21  97 
2188 
2189 
21  77 


REF  21  LAST 

PEF  11  LAST 
REF  191  LAST 
REF  2 LAST 


526  26,2764 

’ 6 , ^ 76  7 
526  25, 2770 

56C  25  ,2771 

560  25,  2772 


3 4750  1 DGOODCFK  CAF  PIT4 

0 0006  1 EXTEND 

C 5 033  0 RAND  2HAN33 

10  000  0 CCS  A 

1 3CC5  0 TCF  DORROUT 


21  91 
2102 

2193 

2194 


RFF  ?8  LAST  494 
RFF  78  LAST  560 

REF  79  LAST  560 


26 , ’773 
25  ,’774 
25, 2775 
25  ,2776 


4 4742  0 PRDESDUN  CS  8IT10 

7 9110  0 MASK  RADMOOES 

C 0004  C I NHINT 

54  110  0 TS  RADMOOES 


2195 

2105 

2197 

2198 
21oo 
2200 


PEF  56  LAST  555 
RFF  7 LAST  552 
REF  32  LAST  539 

PEF  35  LAST  560 
REF  90  LAST  552 


25,2777  C 6527  1 
, I 1 

25.31C1  4 4752  1 

25,  39C2  C CCC6  1 
25,  3003  03  C 12  1 

25,3  )04  1 5155  1 


TC  DOWNFLAG 

A 9®  c S LOSCMFLG 
CS  BIT  2 

FXTEND 

WAND  CHAN  12 

TCF  ENDUFJOB 


2291 
2202 
220  3 

2204 

2205 
2236 
2207 


2208 

2239 

2210 

2211 

2212 

2213 

2214 

2215 


PEF  8 LAST  506 

PEF  l 

PEF  1 

REF  49  LAST  559 

RFF  8 LAST  559 

RFF  2 LAST  557 


REF  3 LAST  557 
REF  2 LAST  557 


REF  9 LAST  560 


35,3005  - OC 7 6 0 DORROUT  CA  F L AO WR  02 


25,3006  7 7724  0 

2 5 , 30 C 7 C CCC6  1 
25,  30  10  1 3G 27  0 

25.3011  0 6051  0 

25.3012  14375  0 

25.3013  01101  0 

25.3014  01765  1 

25. 3015  41572  1 

25  ,3016  74375  0 

25,3017  01167  0 

25,  30  20  13057  1 

25,3021  53362  0 

25,  3022  17656  1 

25,  3023  151C1  0 


MASK  R I T 1 2,  14 
EXTEND 

BZF  NO  TP  20 
TC  INTPRFT 

VL  CAD  VXSC 

RR  TARGET 
ML  OSV 

VSLl  PUSH 
VLOAD  VXSC 

LOSVEL 
MC  TOMS 
VSR  l V A 0 
UNI  T 

STOOL  RR  TARGE  T 
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IF  CONTINUOUS  DESIGNATE  WANTED,  PUT  OUT 
COMMANDS  WITHOUT  CHECKING  MAGNITUDE  OF 
ERROR  SIGNALS 

SEE  IF  BOTH  AXES  WERE  WITHIN  .5  DEGS. 

IF  WITHIN  LIMITS  AND  NO  LOCK-DN  WANTED, 
PROBLEM  IS  FINISHER. 


ENABLE  THE  TRACKER. 


SEF  IF  DATA  GOOD  RECEIVED  YET 


WHFM  PROBLEM  DONF,  PFMOVF  BIT  1 SO  NEXT 
WAITLIST  TASK  WE  WILL  GO  TO  RGDODEND. 


RESET  LOSCMFLG  TO  PP  EVENT  A 

RFC  CMPUTATI  ON  CF  ICS  AFTEP  DATA  GOOD 

TURN  OFF  ENABLE  PR  ERROR  COUNTFR 


WITH  EC  TR  0 I SABLEO  . 

IF  BOTH  LOSCMFLAG  AND  SEARCH  FI  AG  APE 
ZERO,  BYPASS  VELOCITY  ADJUSTMENT  TO  LOS 


MULTIPLY  UNIT  LOS  BY  MAGNITUDE 


ADD  . 5 SEC.  OF  VELCFI  TY 
TO  LOS  VECTOR 


STORE  VELOCITY -CORRECTED  LOS  (UNIT) 


GAP:  ASSFMBLF  REVISION  56  OF  AGC  PROGRAM  ZERL  IMA  BY  ZOROASTER 


9:12  CCT.  21,1970  ZLEMP20S  -0  3 1 PAGE  56  1 


2218 

2219 

2220 
2221 
2222 
2223 


rff  ao 

REF  6 
REF  192 
RFF  2 


LAST 
LAST 
L AST 
LAST 


5S0 

555 

560 


2 5,  302 A 

• 

25.3026 

25. 3027 
25  ,3030 

. 

25, 3032 
25  ,3033 


CCC45  0 
01765  1 
77776  1 
C CCC4  0 
A 0110  0 
7 <,741  0 
10  ocn  0 
0 2277  1 


STORE 
EX  IT 
I NHI  NT 


USER'S  PAGE  NO.  62  E7  S3 

AND  STORE  MAGNITUDE 


2226 

2227 

2228 
222Q 

2230 

2231 

2232 
22  33 
2234 
22  35 
2236 


REF  9 LAST  560 
RFF  1 

REF  9 1 I AST  560 
REF  26  LAST  555 
REF  l 

RFF  5 LAST  525 
REF  2 LAST  555 

REF  4 LAST  38  3 
REF  3 LAST  383 
REF  150  LAST  529 
RFF  1 


25, 3034 
25,  30 35 

25.3036 

25. 3037 
25  ,3040 
25,3041 
2 5,  30  4 2 
25,3043 
25,  3044 
25, 3045 
2 5,3  046 
25,  3C47 
25  ,3050 


3 C C 76  0 
7 4740  1 
0 0006  1 
1 5155  1 
11 '456  0 
0 305  1 0 
0 6032  0 
52573  1 
C CCC3  1 
10  067  l 
C 5122  0 
C 4616  1 
5 1C  14  0 


CA  FLAGWRD2 

MASK  L 0 SC  MB  I T IF  LOSCMFLG  NOT  SET,  DON'T  TEST 

EXTEND  LOS  COUNTER 

BZF  ENDOFJOB 

CCS  LOSCOUNT  TEST  LOS  COUNTER  TC  SEE  IF  TIME  TO  GET 

TC  OODESEND  A NEW  LOS 

TC  KILLTASK  YFS  - KILL  TASK  WHICH  SCHEDULES  DODES 

CAOR  DESLODP  +2 
RE  LI  NT 

CCS  NEW  JOB 

TC  CHANG  I 

TC  BANKCALL 

CAOR  R21LEM2 


RFF  27  LAST  56  1 
RFF  92  LAST  56  1 


0 

0 


DCDESENO  TS 
TC 


LOSCCUNT 
ENDUF  JOB 


2239 

2240  RFF 
224  1 

2241 

2242 
2242 


25.3053 
7724 

25.3054 

25.3055 
25,  3C  c 6 
25  ,3057 


21  122  0 PDESGAIN  DEC  .53624  TRIES  TO  NULL  .5  ERROR  IN 

BI  712,14  EQUALS  PRI 02c  OCT  24333 

07777  l GC1S1/2DG  2D  EC  . 999961923  B-2  COSINE  OF  0.5  DEGREES. 

33005  1 

CC31C  0 MC.  TOMS  20EC  100  8-13 

00000  1 


5 SEC. 


JAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 

L P20-P  25 

P2 2(t?  RADAR  READ  INITIALIZATION 
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PAGE  562 
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< 2244  THE  FOLLOWING  ROUTINES  WLST  EE  CALLED  BY  BANKCALL 


mi 


PEF 

REF 


REF 

RFF 


LAST  562 


LAST  562 

LAST  5S  2 


25t3C62 
-5*  306  j 


LAST  562  25,3064  f 3074  1 LRVFLY 


25,3066  ( 3074  1 LRVELX 


I N I TPEAO 
17 

I N IT  RE  AD 
16 


LAST  562 


25,  3C 72  C 3C74  1 RP.RANSF  TC 


2?  57 
??50 

2259 

2260 
2261 


2262 
2263 
2 264 
2265 


REF  164  LAST  553 
PEF  1 

REF  24  LAST  497 
REF  1 

REF  15  LAST  470 
REF  2 LAST  562 


2 5,  3C75 
25  ,3076 
25 ,3  C 77 

25. 3 lOO 
25  ,3101 

26. 3 IC2 
25,  3 103 
25,3104 


C 0004  0 
50  CC2  0 
3 0000  1 
C 3106  0 
3 4751  0 
55*105  0 
C CCC6  1 
3 0025  0 
2 1 ' 1 05  0 


I M T RE  AD  INHINT 
I NDE  X 
CA 
TC 
CA 
TS 

EXTEND 

OCA 

DAS 


0 

0 

PRERADAR 
81  T 3 

T IMEHOLD 

TI  ME  2 
T I ME  HOI  C 


MIDPOINT  OF  3 F AD  IS  ABOUT  40  MS  AFTER 
ST  APT  OF  READ 


2266 


RFF  2 LAST  546 


25,  3 1C5  1 2357  0 


TCF  ROAORACK 


2267 

2268 

2269 

2270 

2271 
227? 


RFF  1 

REF  117  LAST  559 

REF  1 

REF  3 LAST  4C0 

PFF  4 LAST  562 

REF  3 LAST  562 


26  ,3106 
25, 31C7 
25, 3 1 10 


25,3111 
2 5,  3 I 12 
25,3113 


55*110  1 
55*100  0 
55' 101  1 
55*104  1 


PRERADAR 


TS  RADUSE 

CA  ZERL 

TS  NSAMP 

TS  S AMPLSUM 

TS  SARPLSUM  +1 

TS  T1MFH0LD 


INDICATE  RADAR  READ  ROUTINES  IN  USE. 


2273  REF  1 

2274 

2275  REF  12  LAST  560 

2276  REF  1 


25  ,31 14 
25,  3 115 
25  ,3116 
25,3117 


3 3134  1 
C CCC6  1 
02  033  0 
55*112  0 


CA  DG8  ITS 

E XTE ND 

RAND  CHAN  3 3 
TS  01.  CAT  AGO 


22761  REF  2 LAST  56  2 

22762  PEF  81  LAST  561 


25,  3120  * I'  134  0 

25  ,3121  7 0110  0 


CS  DGBITS  RESET  DATA  GOOD  BITS  OF  RADMODES 

MASK  RADMODES 


3AP:  ASSE  ER  LE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P 20- P 25 


22763  RFF  82  LAST  56  2 


25, 3122 


110  0 


2277  RFF 

2278 

2279  REF 


LAST  478 


25,3123 
2 5,  ->12A 
25, 3125 


A 3061  1 
C CCC6  1 
03  013  0 


TS  RAOMODE S 

CS  ALLREAD 

E XTE ND 

WAND  : HAN  13 


REF  23  LAST  529 


0 0006  1 
22  C 70  0 


EXT  END 

QXCH  RUPTREG1 


2282 
2283 
22  84 


REF 

REF 

REF 


2285  RFF 


2A 


L AST 
LA  ST 

LAST 


562  25  ,3130  3 1077  0 

528  25,2131  C A67A  0 

25,  ? 1 32  36000  1 

. 


CA  RADUSE 

TC  I BNKCALL 

CADR  RADSTART 

TC  RUPTREG1 


2286 
22  87 
2288 
?2RP 


2 5,  3 1 3 A C 0 2 3 0 0 DGBITS  OCT  230 

25.3135  0 )0  IA  1 VRITS  OCT  1A 

25.3136  00016  0 OCT  16 

25,  3 137  00015  0 OC  T 15 


2290 

22ql 

2292 

22q3 


RFF 


25 


LAST 


LAST 


285 


539 


26.31AH  A 0107  0 
25,  3 U l 741420 
25,  3 1a 2 0 0006  1 

25.31A3  1 5272  1 


R12REAC 


MASK 

EXTEND 

BZF 


T ASKOV  ER 


2296  RFF 

2297  RFF 

2298  kEF 
2290  *PFF 

22991  *RFF 

22992  «PEF 

22993  'RFF 
22993  0 RFF 
2299 A *ref 


2 I.  AST 
1 

2 LAST 
13  LAST 

2 LAST 

3 LAST 
21  LAST 

2 LAST 


26  LAST 


20  8 

562 
AA  1 
562 
AA  3 
550 
119 


563 


2 5 , 3 1 A 5 
25  ,31A6 
25,  3 1 A 7 
25,3150 
2 c,  3151 
2 5,  3 152 
FA  ,1  6A3 
25,  3 163 
25  ,3154 
25,3155 


5 1 'A62  0 
3 3135  0 
C 3106  0 

2 62 5 A 1 
55*110  1 

3 6C10  0 
0 52 1 A 0 


C 3570  0 
7606A  1 
C 5272  0 


INDEX  VSELECT 
CA  VI  I I 

TC  PRERADAR 

:a  SI  X 

TS  N S AMP 

CAF  0CT31 
TC  WAITLIST 

ERANK=  LRTIME 
2CADR  RDGIMS 

TC 


TASKOVER 
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CLEAR  AL1  RADAR  PITS  PRIOR  TO  READ 


POSITION  OF  DATA  GOOD  BITS 
VSE I EG  T = 0 BEFORE  X READ 
VS  El  ECT  = 1 BEFORE  7 READ 
VSELECT  = 2 BEFORE  Y R E AO 


IN  CHANNEL 


33 


IF  NOLRREAD  FLAG  IS  SET  , BYPASS  R 12 


RADAR  RUPT  USES  THIS  FOR  R12  READ 
SET  UP  RDGIMS  FOR  MIDPOINT  OF  LR  READ 


GAP:  ASSEMBLE  Kb  VISION  56  OF  A~,C.  PROGRAM  ZE  RLl  NA  BY  ZORCASTER 


P20  -P25 

PAOAR  RUPT  READER  (R20) 


2306 

P.307 

Z i'  8 
230P 
2 31 

2311 

2312 


REF 
PE  F 


2 LA  ST 
15  LAST 


41  : 3 3*  COUNT*  St/RRUPT 

F 7,  1453  E BA  NK  = TTCGC 

25  ,3156  C 0006  1 RADAREAD  EXTEND 

25,31 57  C4  0 07  1 ROR  SUPFRBNK 

25,3160  54  Olfc  1 TS  3ANKRUPT 

25  ,3161  C 0006  1 EXTENO 

2C,  3162  22  012  1 QXCH  QRUPT 


2313 

2314 

2315 

2316 


LAST  512 
LAST  563 


25,3163 

■ 

25,  3165 
\\  ,3166 


3 4757  0 
0 0006  1 

C 2 G 1 3 1 
55*332  0 


CA  SEVEN 

EXT  END 

RAND  CHAN13 
TS  RAORITS 


mi 


II;!  1? 


231  0 
2 323 
2 321 


RFF 
R EF 
RTF 


321 

563 


25,3171  3 0046  0 

25,  3 1 72  51*  332  1 

25,3173  55 '327  1 


R NR  AD 
RAPBITS 
3NRRANGF  -1 


2324 

2325 
2 326 
2327 


RFF  16  LAST  266 


25  ,3176 
25,  3177 

25,3201 


5 5 ' 07  7 1 
C 56CC  1 
00520  0 
0 5301  0 


BA QRUPT  TS 


RADUSE 

ALARM 

520 

RESUME 


232R 
232'? 
23  30 
2331 


■ 

1 , 

25,3204 
25,  3205 


6257  0 
1332  1 
0006  1 

3272  0 


WHICHPAO  C S 


THRFE 
P.A0B1TS 

EXTENO 

BZMF  RENDKAD 


2332 

233? 

2334 

2335 


4 0101  0 LANDRAO 


RFF 

RFF 


25  ,3206 

25,  3?07  7 4741  0 

25,  3 210  0 C006  1 

25,3211  1 3252  0 

25,  3212  4 4757  1 


CS  FLAGWRD5 

MASK  R7  7FLBIT 

EXTEND 

BZF  R77EX1T 
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DATA  AND  UPDATES  THE  APPROPRIATE 


CDNT1  NUA  TI  ON  OF  INTERRUPT  LFAD-IN. 
SJPFRBNK  MUST  BE  SAVED  BECAUSE  S UP  T 
MAY  EXIT  VIA  T ASKOVER. 


READ  ANO  STORE  RADAR  SELECT  BITS 


IF  RADAR  SELECT  BITS  APE  ZERO,  ALARM 
WI  THOUT  READI  NG  DATA 

STORE  RAW  DATA  FOR  DOWNLINK. 

IF  RADUSE  IS  ZERO,  THIS  IS  A BAD  RUPT 


IF  ^ ADB  IT  S IS  LESS  THAN  THREE, 

THF  RENDEZVOUS  RADAR  IS  BEING  READ. 

THE  LANDING  RADAR  IS  BEING  READ 
IF  R77  IS  PUNNING,  EXIT  HF  RE 


IF  RADRITS  IS  SEVEN,  THE  LANDING 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P25 


2337  REF 
233B 

2330  REF 


4 LAST  564 
1 


25,3213 
25,  3 2 14 
25 ,3215 


6 133? 
G 0006 
1 3266 


AO  RAOBITS 

E XTEND 

8ZF  LRHEIGHT 


ffj? 

234? 

2343 

234'-, 

2345 

2346 

2347 
?34fl 
2 340 


PEF  12 
RFF  2 
REF  1 
REF  5 
REF  77 
REF  3 

RFF  2 fl 
REF  0 
REF  5 


534 

56  4 


LAST  264 
LAST  553 
LAST  565 

LAST  536 
LAST  264 
LAST  562 


25,3220 
25,  322  1 

25.3222 

25.3223 
25,  3 224 
25  ,3225 
25,3226 
25,  3227 


2 4733  1 
7 0046  1 
6 2000  0 
64  064  1 
54  001  1 

3 0 046  0 
6 0000  1 
7 4753  0 
54  C 63  0 
2 1*101  1 


LRSPEFO 


CA  POSMAX 

MASK  RNRAO 

AD  LVELBIAS 

TS  I T E MP4 

TS  L 

CA  RNRAO 

OOURLE 
MASK  RIT] 

TS  ITEMP3 

OAS  SA  PPL  SUM 


235 
? 35 1 
2352 


2353 
23  54 


2355 

2356 
2 35  7 


235A 

2350 

2360 


2361 

2362 


RFF 
R i F 
RFF 

REF 

REF 

RFF 

RFF 

REF 

REF 

REF 

REF 

RFF 


?7  LAST  533 
19  LAST  553 
3 I AST  562 

13  LAST  562 

2 LAST  562 
?0  LAST  565 

78  I AST  565 
21  LAST  565 

3 LAST  565 

79  LAST  565 
193  LAST  561 


25,3230  3 4744  1 

25,  ’ 2 3 L 64  C61  1 

25.3232  3 3134  1 

25.3233  0 0006  1 

25,  3234  C 2 C33  0 
25  ,3235  57  * 1 12  1 

25,3236  7 0061  1 

>5,  2237  64  001  1 

25  ,3240  3 0061  0 

25, ’241  7 111?  0 

25. 3242  6 CCOl  0 

25.3243  10  000  0 

25,  3244  1 3255  1 


CA 

DGCHEC K TS 
0GCHFCK2  CA 

EXTEND 

RANO 

XCH 

MASK 

TS 

CA 

MASK 

AO 

CCS 

TCF 


BITfi 
I TEMPI 
OGBI  TS 

CHAN33 
3L OATAGD 
IT  EMP1 
L 

IT  EMP  1 
OLOAT  AGO 
L 
A 

BAORAO 


2363  PE  F 3 LAST  563 

2 364  RFF  1 


11 '110  1 noti'DR AD  CCS  N SAMP 

l 3402  0 TCF  PI  2 EX  IT 


3 6 

2366 


236  7 


REF  10 
RFF  6 
REF  1 


LAST  565 
LAST  565 


25,  3 247 
25,3250 
25,  3 ?5  l 


52  G64  1 
53' 1 Cl  1 
C 3647  1 


0 XCH  I TFMP3 
OX  CH  SAMPLSUM 

TC  RAOLITES 


2368  RFF  118  LAST  562 

?36Q  RFF  5 LAST  564 

2370  RFF  ? LAST  54 1 


25. 3252 

25.3253 

25. 3254 


3 4755  1 P77FXIT 
5 5 ' 077  1 
C 3621  1 


C A 
TS 
TC 


ZERO 
R ADUSE 
RG  000  END 


2371 
? 371  5 
2 372 


RFF 

PFF 

RFF 


83 

22 

R4 


LAST  63  55  ,3255  - 11  ( 

L A SI  565  55,  3256  ? 0611 

LAST  565  25,3257  26  1 lf>  0 


RACPAD 


CS 

MASK 

AOS 


0 AOMOOES 

1 TEMPI 
RADMODE S 


2375  RFF  2 LAST  565 

2376  PFF  119  LAST  565 


25  ,3262  0 3647 

25,  3263  3 4755 


1 TC 

1 RRRAOEND  CA 


P.AOL  ITES 
ZERO 


9:12  OCT.  21,  1970  ZL  EMP20S  .00  1 PAGE  565 


USER*  S PAGE  NO.  66  E7  S3 

RAOAR  AL  ITUOE  IS  BEING  READ 

OECOOE  THE  15  BIT  READING  ANO 
SUBTRACT  THE  BIAS. 


ACCUMULATE  THE  REACING 
VOIOCITY  DATA  GOOD  BIT 

UPDATE  THF  STATUS  CF  THF  DATA  GOOD  BITS 


OLO  STATUS 

CURRENT  STATUS 

BOTH  SHOULD  BE  ZERO 
DATA  GOCD  NCT  PRFS  ENT 

TEST  FOR  R 1 2 

STORE  DATA  FOR  CALLING  ROUTINE 
UPDATE  OSKY  l IGHTS  . 

ZERO  RADUSE 


UPDATE  RAOMODFS  BIT  ONLY  IF  3 A TA  BAD 

TEST  FDR  R 1 2 

UPOATF  OSKY  LIGHTS 
ZFRO  RADUSE 


GAP:  ASSFMRLE  RFVISICJN  56  OF  AGC  PROGRAM  ZERLlNA  BY  ZCRCAST  6R 


9:12  (JCI.  21,  1970  ZLEMP20S.001  PAGE 


566 


L P20-P25 


USER'S  PAGE  NG.  67  E7  S3 


6 LAST  565  25  ,3264  55'C77  1 
2 IAST  555  25, 3265  C 3626  0 


TS  RADUSE 

TC  RDBAOEND  -2 


23  70 
?3Rf> 
? 33  1 
2382 


RET  25  LAST  496 
PFF  ?3  LAST  565 
REF  18  LAST  136 
REF  1 


25,3264  3 47A7  1 LRHEIGHT  CA 

75,3267  54  061  1 TS 

25,  3270  3 4743  0 CA 

25  ,3271  0 3315  0 TC 


HI  T5 
IT  FMP1 
3 I T9 
SCAL  EC HK 


DATA  GOOD  BIT  FOR  ALTITUDE 
LO  SCALE  BIT  FCR  LR 


Ilf? 

2385 


REF  1 6 LAST  564 
RFF  2 LAST  321 


C CCC6  1 RENDRAG  EXTEND 
3 1454  0 DC  A TTOGO 

53*27?  0 OX  CH  TTOTIG 


LOAD  TI ME  TO  TIG 
FOR  R 65  PADAR  READING. 


?rB67 

2388 
2 189 


REF  7 LAST  561 
RTF  85  LAST  555 
RFF  154  LAST  565 
REF  1 


25,  3275  2 4741  1 

25.3276  7 J 1 10  0 

25.3277  10  COO  0 

25,  3 300  1 32(3  1 


CA  REPOSBJT  MAKE  SURE  ANTENNA  HAS  NOT 

MASK  RADMUDES  GONE  OUT  OF  LIMITS. 

CCS  A 

TCF  PP8ADFN0 


2390  RFF  86  LAST  566 

2391  REF  5 LAST  478 

2 392  REF  1 95  LAST  566 

2393  RFF  2 LAST  566 


25  ,3301  4 lit  0 

25, 33C2  7 4745  1 

25,  3303  10  COO  0 

25,3304  1 3263  1 


CS  RADMODES  BE  SURE  RR  CDU  HASN'T  FAILED. 

MASK  RCOUFBIT 

CCS  A 

TCF  RR8ACENC 


2394  PFF  22 

2395  REF  24 


LAST  560  25,  3305  2 4750 
LAST  566  25  ,3306  54  061 


1 CA  RI  T4  DATA  GOOD  BIT  FOP  RP 

1 TS  ITFMP1 


2398 

2399 

? 4 00 


REF  29 
RFF  5 
RFF  165 


I AST 
L AST 
LAST 


565 

565 

562 


: 

. 

25,  3 1 1 2 
24,  1 31  1 


54  OC?  1 
C CC06  1 
1 4324  0 


CA  HIT1 

MASK  0 ADBI  TS 
TS  0 

EXTEND 

BZF  RADIN 


TEST  FOR  RANGE  OR  RANGE  RATE 
SAVE  FOR  LATER  TESTING 
IF  ROOT,  READ  DATA 


240  1 
24  V 

2403 

2404 

2405 

2406 
2 43  7 
24' . fl 


RFF 

REF 

RFF 


LAST 
I AST 
LAST 


RFF  1 4 LAST 
REF  fll  LAST 
REF  196  LAST 
RFF  1 


562 
57  5 
566 


565 

566 
566 


75,3314 
25,  7 3 15 
25  ,3316 
25, 3317 

25, 3320 


25,3321 
25,  3 322 
25,3323 


3 0110  1 
C 0C06  1 
06  033  1 


7 0001  1 
1C  COO  0 
0 3363  1 


CA  BIT  3 

SCALFCMK  TS  L 

CA  RADMODES 

EXTEND 

R XOR  CHAN33 

MASK  L 

CCS  A 

TC  SCALCHNG 


LO  SCAL  EBIT  FOP  RR. 

TF  ST  THE  SCALE  BIT  SPECIFIED  IN  L 
TO  SFE  IF  IT  IS  THE  SMAF  AS  LAST 
TI  ME. 

IF  BIT  IS  THE  SMAE  IN  RADMODES  AND 
CHAN33,  THEN  A WILL  BE  ZERO 
SCALE  CHANGED 


7409  RFF  13  LAST  565 

2419  RFF  4 LAS!  565 

2411  RFF  6 LAST  565 


3 4733  1 
7 0046  1 
54  064  1 


RADI  N 


CA  POSMAX 

MASK  R NR  AD 
TS  ITFMP4 


UNPACK  15  BIT  RADAR  READING 


iili 

2414 

2415 


REF 

RFF 

REF 


5 LAST  566 

30  LAST  566 
11  LAST  565 


25,  ^ ? 2 7 ? CC46  C 

25,  3 3 3(  £ 0000  1 

25,3331  7 4753  0 

25,  3 3 2 2 54  C 63  0 


CA  R NR AO 

00  18  L F 
MASK  R IT  1 

TS  I TE MP3 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L 

P20- 

P?5 

2416 

REF 

166 

LAST 

566 

25,3333 

LO  002 

1 

CCS 

0 

2417 

REF 

1 

25,  3 3 34 

1 -34  1 

0 

TCF 

SCALAO  J 

2413 

25  ,3335 

0 0006 

1 

FXTEND 

2419 

RFF 

1 

25,  I33'l 

4 2CC2 

c 

DCS 

RDCTei  AS 

2420 

RFF 

12 

L AST 

5S6 

25, 3337 

20  C 64 

1 

DA  SAMPL 

DA  S 

I TEMP  3 

2421 

RFF 

1 

25,3340 

1 3232 

0 

TCF 

DGCHECK 2 

2422 

REF 

38 

L AST 

566 

25,  334  1 

3 OHO 

1 

SCALAO  J 

CA 

RAOMCDF S 

2423 

°F  F 

82 

LAST 

566 

25  ,3342 

7 nooi 

1 

MASK 

L 

2424 

25,3343 

C 0006 

1 

EXT  END 

2425 

REF 

2 

L AST 

567 

25, 3344 

1 3232 

0 

H 7 F 

DGCHEC K2 

2426 

REF 

26 

LAST 

566 

25 ,3345 

7 4751 

1 

MASK 

B IT  3 

2427 

25,  3346 

C CCC6 

1 

EXTEND 

2428 

RFF 

1 

25,3347 

1 3356 

0 

BZF 

LRSCK 

2429 

RFF 

13 

LAST 

567 

75,3350 

52  064 

1 

DXCH 

IT  EMP3 

2433 

25,  335  1 

20  001 

1 

D0C1UBL 

24  31 

25  ,3352 

20  00  1 

1 

DOOUBL 

2432 

25,3353 

2 0 0C1 

1 

DDOJRL 

2433 

REF 

14 

L AST 

5S7 

25,  3354 

5 2 064 

1 

DXCH 

I TEMP 3 

2434 

REF 

3 

LAST 

557 

25  ,3  J55 

1 3232 

0 

TCF 

DGCHECK  2 

2435 

2 c , 3356 

C CCC6 

1 

LR  SC  K 

EXTEND 

2 4 3 b 

RFF 

15 

LAST 

567 

25,3357 

3 0064 

0 

DC  A 

I TEMP  3 

2437 

25,3360 

20  001 

1 

DDCUBL 

2438 

25,  3361 

20  CC  1 

1 

DDQUBL 

243« 

RFF 

1 

25  ,3362 

1 3337 

1 

TCF 

DA SAMPL 

2440 

REF 

89 

LAST 

567 

25,3363 

3 C110 

1 

SCALCHNG 

CA 

RAOMODES 

2 44  1 

25,  3364 

0 0006 

1 

EXTEND 

2442 

RFF 

12 

LAST 

54  1 

>5,3365 

C6  001 

RXC1R 

LC  HAN 

2443 

RFF 

90 

LAST 

567 

25,  3366 

54  110 

0 

TS 

RADNCOES 

2 444 

REF 

5 

LAST 

565 

25,3367 

1 1 • 11 

1 

CCS 

N SAMP 

2445 

RFF 

1 

. 

1 3400 

1 

TCF 

P12SCHNG 

2446 

RFF 

35 

L AST 

528 

, 

0 55  15 

0 

TC 

UPFLAG 

2447 

RFF 

1 

25  ,3372 

0£  120 

1 

AORES 

RNGSCFLG 

2443 

REF 

4 

LAST 

565 

25,  3373 

3 3134 

1 

CA 

DC,  BITS 

2449 

25, 7374 

C 0006 

1 

FXTEND 

2450 

RFF 

15 

LAST 

566 

25,3375 

02  033 

0 

RAND 

CHAN33 

2451 

RFF 

4 

L AST 

565 

25,  3376 

c 5 • 112 

0 

TS 

OLD A T AGO 

2452 

RFF 

3 

LAST 

556 

25  ,3377 

1 3263 

1 

TCF 

RRHADEND 

2453 

REF 

6 

LAST 

567 

25,3400 

55'  no 

1 

R12SCHNG 

TS 

NS  AMP 
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USER'S  PAGE  NC.  6B  E7  S3 

TEST  FOR  RR  RANGE  RA  TF  (Q  = 0) 

RANGE  OR  LR  HEIGHT  . TEST  SCAI  E 

RR  RANGE  RATE  - SUBTRACT  BIAS 

TFST  DATA  GOOD 
TEST  SCALE  BIT 


LO  SCALE 


HI 

IF 


- TE  ST  FOR  LR 
= '.THEN  IT  IS  LR 


RESCALE  RR  DATA  TO  LO  SCALING 
MULTIPLY  BY  9. 


RESCALE  LR  DATA  TO  LO  SCALING 
MUL  TI  PLY  BY  5. 


INVERT  SCALE  BIT  IN  R ADMOQES 

TE  ST  FOR  R12 

SET  RNGSCFLG  FCR  LRS24.1 

UPDATE  OATA  GOOD  BITS 


UPDATE  NS  AMP  AND  IGNORE  READING. 


GAP:  ASSF  MB  L6  REVISION  56  OF  AGC  PROGRAM  ZE  RLI  NA  RY  ZOROASTER 


L P2->  -p25 

2454  RFF  1 


25  »340 1 1 3413  0 


TCF  RFADVEL 


2455  REF 

2456 

2457  PCF 


7 LAST 


567 


<5,  3402 
25,  3403 
25.34C4 


55'  IIC  I P-12EXI  T TS  NSAMP 

C C 006  I EXTEND 

1 3444  1 RZF  STORVEL 


2458  REF  1 

2459 

246C  REF  1 


25,  3405  fc  7757  C 
25 ,3406  0 0006  1 

2 5 ,3 4C 7 I 3424  I 


AO  NEG3 

EXTEND 

BZF  STORALT 


2461  RFF 
2 46? 

2463  REF 

2464  REF 

2465 

2466  REF 

2467  RFF 
7468  RFF 

2469  RFF 

2470  REF 


2 LAST  226 
1 

10  LAST  564 

10  L AST  564 
7 LAST  566 
?3  I A ST  563 
2 LAST  56  3 
17  LAST  564 


25,  34  1C 
25,7411 

25,  341  2 

25. 3413 

25.3414 

25. 3415 
25  ,3416 
25,341 7 
25,  3420 
25  ,3421 


6 7761  0 
C 0006  1 
1 3422  1 
4 4757  1 
0 0006  1 
C?  C 1 3 0 
3 1077  0 
0 4674  0 

36C0P  1 
0 5301  0 


R FAOVCL 


RFA0ALT2 


AO  NE50NE 

EXT  END 

BZF  READALT 

r.  s sc  vr  n 

EXTEND 

WAND  CHAM  3 

CA  RADUSE 

TC  IRNKCALl 

CAOR  RADSTART 

TC  RESUME 


iSH 


2 

1 


LAST 


56  3 


2 5,  2422  3 3C61  C READALT  CA 
25,3423  1 3417  1 TCF 


ALLPEAD 
READAl  T? 


25.3424  52  064  1 STCRALT  DXCH  IT EMP3 

25.3425  52*655  1 DXCH  HMEAS 


2475 
?4  76 

2477 

2478 


RFF  9]  LAST  567 
REF  26  LAST  56b 

REF  1 


?5 ,?42&  4 0110  0 

2 c.  3427  7 4747  0 

25,  3430  0 0006  1 

25,3431  1 3441  1 


CS  RADMODES 

MASK  BIT6 
F XTEND 
BZF  HB AD 


'479  REF 
24RC  REF 


1 AST  227 


25, 3432  11*677  1 

25  ,3433  1 3442  1 


CCS  STILBADH 
TCF  HSTILBAD 


2481  REF 

2482  REF 

2483  REF 
? 48  4 REF 
2485  RFF 


fc  LAST  563 
1 

7 LAST  56  8 
3 LAST  565 
2 LAST  568 


25.3434 

25. 3435 

25.3436 
25,  3437 


4 01 C 7 0 
7 4750  0 
26  107  0 

0 3647  1 ALTE  XI  T 

1 3413  0 


CS 

MA  SK 
ADS 
TC 
TCF 


FLGWRD1  1 
3NGEDRI  T 
FLGWRD11 
RADI.!  TES 
READVFL 


2486  REF  37  LAST  550 

?4fl  7 REF  6 LAST  568 

2488  F.EF  1 


25.3441  3 475?  0 

25. 3442  55*677  1 
25  ,3443  l 3437  0 


H 8 AO  CA 

HSTILBAD  TS 
TCF 


TWO 

STI  LBADH 
AL  TEX  IT 


o?  LAST  568 


2s  1445  7 4 744  C 

25,3446  0 0006  1 

25,  3447  1 351  3 1 


STOR VF L 


CS  FADMODFS 

MASK  3 1 T8 
EXTEND 
BZF  VB AD 


9:12  OCT.  21,  1070  ZLEMP20S.001 


PAGE 


568 


USER'S  PAGE  NC.  69  E7  S3 


U PDAT  E NS  AMP 


SET  UP  IR  Al  T ITUDE  READ 


STORE  ALT  I A HMEAS 
TEST  DATA  GOOD 


DATA  GOOD  NOT  PRE  SENT 


IF  DATA  JUST  GCCP.CR  1G  RESTART  JUST 
OCCURRED  , WA  I T 


SET  FLAG  F0RP12. 

(CANNOT  USE  UPFLAG  BFCAUSE  IT  EMP1  IS 
DESTROYED  1 


SET  STILBADH  FOP  FOUR  SECOND  DELAY 


TEST  DATA  GOOD 


DATA  GOCD  NOT  PRESENT 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZFRLINA  B 


4 LAST  227 


2495 

2496 
2 A 97 

2498 

2499 
2 500 
2501 


PEF 
P FF 
REF 
REF 


LAST 

LAST 


25  ,3452 

25,345? 

25. 3454 

25.3455 
25,  3456 
25,3457 
25,3460 


4 0 107  0 
7 4745  1 
2fc  107  0 
11* 462  1 
1 3460  1 
3 4752  0 

5 5 ' 462  1 


LAST  568 
LAST  208 


C CCC6  1 
3 1 6 = 5 n 


LAST  284 
LAST  529 
LAST  563 


250«  * 

25ffll  *R  FF 
25082  *REF 


25, 3470 
75  ,5471 
25,  3472 


0006  1 
1647  0 
2 C 62  1 


LAST 
LAST 
LAST 
l AST 


569 
569 
20  8 


25,3477 

' , 

25,3 5<  i 
E 7,  1772 


24  COfc  1 
24  OCfc  1 
? 4 006  1 


25  ,3502  53 '773  1 


2515 

2516 

2517 

2518 


REF 

REF 


L AST 
LA  ST 
L AST 


565 
568 
56  P 


25,3  5C  7 
25,3510 
25,  3511 
25  ,3512 


3647  1 
4755  1 
c *C77  1 

5 3C1  0 


OASTER 
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PAGE  569 


U SF R ' S PAGE  NC.  70  E7  S3 


CCS 

TCF 

ST  IL8ADV 

V S TI  L B AO 

cs 

MASK 

ADS 

CCS 

TCF 

CA 

rs 

FLGWRD11  DATA  IS  GOnD,  SET  FLAG  FOR  R12 

VELDARIT  (CANNUT  USEUPFLAG  BECAUSE  I TEMP  1 IS 

- LG  WRD  1 1 DESTROYED) 

V SELECT  UPDATE  VSELECT 

+ 2 

TWO 

VS  EL  ECT 

DXCH 

DXCH 

SAMPLSUM  STORE  VFL  DATA  IN  VMEAS 

VMEAS 

EXTEND 

OCA  HMFAS  STORE  H ME  AS  FOR  DOWNLINK 


DXCH 

HMEASDL 

CAF 

TS 

E8ANK= 

FPANK4 

FRANK 

LPT  IME 

E XTFND 

DCA 

OXCH 

l RYCDU 

ITENP1 

CA 

TS 

LR  XCDU 

IT  EMP3 

EXTEND 

OCA 

LR  T IME 

I NCR 

I NC  R 

I NC  R 

EB ANK= 

BBANK 

RBANK 

BBANK 

LRTI  ME Dl 

DXCH 

LRTIMEDL 

DXCH 

D XCH 

ITEMP1 

MG 

CA 

TS 

IT  EMP  3 

AOG 

TC 

CA 

TS 

TC 

RADLITES  UPDATF  D SKY  VE  L LIGHT 

ZERO 

RADUSE 

R E SUM  F 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21  *1970  1 IF  MP2CS.  £><'  1 PAGt  570 


P20-P25 


USER  'S  PAGE  NO.  71  E7  S3 


2519 

252(- 

2521 


REF  39 
PFF  5 
PEF  1 


L AST  559  25,  351-3 

LAST  569  25  ,3516 

25,3515 


3 6752  G VB AO  CA 
55*700  0 VST IL  BAD  TS 
1 3655  1 TCF 


TWO 

ST  ILBAOV 
R12DL 


JAP:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRL  INA  BY  ZOROASTER 
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L P20-P25  USER'S  PAGE  NO.  72  E7  S3 

P252(<  CODING  TO  PROTECT  CFANNEL  13  WILL  RADAR  READ  IS  IN  CRITICAL  PERIOD 


REF 


SETLOC  C13BANK 
BANK 


2 52  R 
2520 
2533 
2531 


REF  167  LAST  567 

REF  6 LAST  386 
PFF  R3  LAST  567 


17,2000 
1 7,2  >C1 
17,  2CC  2 
17  ,2003 


54  002  1 RADSTART  TS  0 

C 0006  1 +1  EXTEND 

CC  00.4  0 READ  LOSCALAR 

54  001  1 TS  L 


READ  PRESENT  T IME 


2537  REF  8 LAST  452 

2533 

2534  REF  38  LAST  499 

2535  REF  9 LAST  571 

2536  PFF  1 


17,2004  7 4346  0 

17,  200  5 4 0000  0 

17,2006  6 4746  0 

1 7,  2CC7  7 4346  0 
17 , 2 ID  55*270  1 


MASK  L0W5  ONLY  THE  LOW  5 BITS  MATTER 

COM 

AD  BIT6  COMPUTE  DELTA  TIME  TO  NEXT  T5  TICK 

MASK  L0W5 

TS  PADDEL 


2537  REF 

2538 

2539  RFF 


4 LAST  506 
3 LAST  568 


1 7,2  'll 
17, 2012 
17  ,2013 


6 7760  1 
C 0006  1 
6 200  1 1 


AD  NEG2  IF  A TICKING  OF  T5  IS  NFAR,  WAIT  UNTIL 

EXTEND  IT  HAS  TICKED.  THE  MAX  DELAY  HERE  WILL 

BZMF  RADSTART  +1  RE  937.  5 MICROSECONDS 


754' 
2541 
2 542 


PEF  168 


RFF  11 


I AST  571 


LAST  568 


17,2014  3 f CC2  0 

17,  2o 15  C 0006  1 
1 7,2016  05  013  0 


CA  0 

EXTEND  IT  IS  SAFE  TO  SET  TEE  ACTIVITY  BIT  NOW 

WOR  CHAN13  BECAUSF  OF  THF  ABO VF  LOOP 


2543  RFF  B 4 LAST  57  1 

2544  PFF  1 

2545  RTF  1 


17,  2017 
17  ,20 2? 
L 7,2',  21 


4 OOCl  1 
55*267  1 
C 4707  0 


C S L 

TS  BADTIMF  SAVE  NEGATIVE  TIME  CF  READ 

TC  ISWRETRN 


2546  RFF 


17,  2022  5 5*266  0 C 13STAL  1 TS 


: 13f  SA  V 


2547  RC-F  23  LAST  566 

2548 

2549  REF  12  LAST  57 1 

2550 

2551  PEF  I 


L 7 , 2 023  3 4750  1 

17, 2024  C OOC6  1 
17,  2 1'  25  02  013  1 

17,2  026  C OOC6  1 
17,  20  2 7 1 2050  1 


CA  BIT  4 

EXTEND 

RAND  CHAN13 
EXT  END 

BZF  TCCSTAL  IF  NO  RADAR  ACTIVITY,  RETURN 


255  2 
2553 
2 554 

2555 

2556 

2557 

2558 


RFF 

REF 

REF 

REF 

REF 


5 LAST  57  1 
2 LAST  571 

7 I AST  54  1 

8 LAST  571 
P5  LAST  571 


1 , 

17,  20  2 2 

17,  ?r<2  4 

17.2035 

17.2036 


12  031  0 
C 0CC6  1 
00  0C4  0 
6 1267  0 
6 4736  1 
6 4736  1 
56  001  0 


CI3SL00P  NOOP 

EXTEND 

READ 

AO 

AD 

AD 

XCH 


LOSCA  LAR 
R ADT  IMF 
HALF 
HALF 


NECESSARY  TO  PREVENT  A TC  TRAP  **<■ 

COMPUTE  DELTA  T SINCE  LAST  RADAR  READ 
CORRCCT  FOP  TIME  OVERFLOW 


2559 

2560 

2561 

2562 


REF 


LAST  571 
LAST  57  1 


17,  2(  • 7 

17,2  040  6 127C  0 

17,2041  C C.CC6  1 
17,  2042  6G  001  0 


CA  90MSCALP 

AD  5 A DDEL 

EXTEND 
SU  L 


SAP:  ASSEMBLE  REV  IS  ION  Sfc  f J F AGO  PROGRAM  ZFPLINA  BY  ZOROASTER 


L P20-P25 


2563 

256'.  REF  2 LAST  6?  1 


17,  204  3 r CCC6  1 
17,  2044  6 2050  0 


E X TE  ND 

97  MF  TCQSTAL 


2565  PCF  1 

2566 

2567  «FF  1 


17.2045  6 2^5A  1 

17. 2046  C CCC6  1 

17.2047  6 20  30  0 


AO  -DTSCALR 

E XTEND 

RZMF  C13SLG0P 


17,  ?')  5 1 
17  ,2fi52 


22  CC2  C TCQSTAL  LXCH 
3 1266  1 CA 

52  005  0 OTCF 


25  7 
257 


J 


17,  2053  CC440  l 90MSC  A LR  GET  440 

1 7 , ? 05 A 77754  l -DTSCALR  DC  T 77754 


2573  REF  2 LAST  525 
25  74 


60C0 
60  2 2 


SETLOC  FFTAG6 
8ANK 


2575  REF  1 

2576  REF  3 I AST  472 

2577  REF  1 


6«22 

6023 

6024 


3 7736  1 Cl' 3S TALL  CAF  PR  1036 

5(  CC4  0 XCH  FRANK 

1 2022  1 TCF  C 13STAL1 
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USER'S  PAGE  NO.  73  E7  S3 

FORBIDDEN  ZONE  IS  PAST,  RFTUKN 

IN  THE  FORBIDDEN  PERIOD,  LOOP  UNTIL  O.K. 
ALL  IS  WELL,  RETURN 

O'*  MILL  IS  EC  IN  SCALAR 
-5.  ^3 75  MS  IN  SCALAR 


PR  1 036  = 36000  = FCAOP  (17,2000 


: 


ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERL INA  BY  ZOROASTER 


P20-P  25 

THIS  ROUTINE  CHANGES  THE  LR  POSITION,  AND  CHECKS  THAT  IT  GOT  THERE 


2570  25,3516 

?580  REF  2 LAST  5-35  25, 20CO 

2 581  25,3516 

25B2  REF  2 LAST  535  TO  566:  579  579* 

2583  25,  3516  C 0006  0 LRP0S2 

2586  RFF  93  LAST  568  25,3517  6 0110  0 

2585  RFF  1 25,^520  7 6766  1 

2586  RFF  96  LAST  57  3 25,  352  1 26  1 10  0 


BANK  25 
SF.TLOC  P 2 0 Si 
BANK 

COUNT*  SS/RSUB 
INHINT 

CS  RADMODES 

MASK  LRPOSBIT 
AOS  8 A I)  MODE  S 


2587 

2588 

2589 

2590 
2501 


RFF 

REF 

RFF 


LAST 
LAST 
L AST 


520 

557 


25  ,3522 
2 5,  3 52  3 
25, 3526 
25,3525 
25,  3526 


3 6765  0 
C ('  C 0 6 1 
02  033  0 
C 0006  1 
1 3537  1 


CAP  BIT7 
EXTEND 

RAND  3 H A N 3 3 

EXTENO 

BZF  PADNCCP 


2592 

2593 
2 5 96 

2595 

2596 
2807 

2598 
2S9B 

2599 


REF 

REF 

REF 

RFF 

RFF 

RFF 

RFF 


LAST 

LAST 


631 

560 


25  ,3527 
, 5,3  = 20 

I 

25,3532 
25,  35  33 
E7, 1656 
25,3536 
25,  3535 
25  ,353b 


3 6737  0 
C 00C6  1 
05  012  1 
3 357?  1 
C 5216  0 

03570  0 
52067  1 
0 2357  1 


CAF  BIT13 
EXTEND 

WOR  C3AN12 
CAF  6$  ECS 
TC  WAITLIST 

EBANK=  LOSCOUNT 
2 C ADR  LRPOSCAN 


TC 


R0AD8ACK 


260? 

2633 

2603 

2606 

?6?8 

2609 

2610 

2611 

>612 

2613 

2616 

2615 


ii\% 


REF  29  LAST  573 
REF  3 LAST  565 


LAST  573 


REF  25  LAST  573 
REF  17  LAST  573 
REF  1 

REF  3 LAST  57  3 
RFF  1 

RFF  26  LAST  573 


mm 

E7  ,1656 
2 e,  356  1 

25.3562 

25.3563 


03623  0 
52067  1 
0 2357  1 


2 5,  3 56  7 
25,3550 
2 5,  n c c 1 

.75,355? 

25,3553 


RADNOOP  CAF  ONE 

Tr  WA  I TLI  ST 

EBANK=  LOSCOUNT 
2C ADR  RGCOOEND 


25,  3566  55*077  1 

28,^565  C.  5232  1 
25,3566  00166  0 


LR PO SN  XT  TS 


--  6165  0 
C 0006  1 
C 2 C33  0 
0 0006  1 
1 3562  1 


SAMPLI  M 
F IXDELAY 
DEC  100 

CAF  31  T7 

EXTEND 

RAND  CHAN33 

EXTENO 

BZF  LASTLRCT 
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573 


US  EP 'S  PAGE  NO . 76 


SHOW  OESIRED  LR  POSITION  IS  2 


SEE  IF  ALREADY  THERE. 


C CM HAND  TO  POSITION  2 

START  SCANNING  FOR  INBIT  AFTER  7 SECS. 


NO  FJRTHFR  ACTION  RFQUESTFO 


SCAN  ONCE  PFR  SECOND  5 TIMFS  MAX  AFTER 
INITIAL  DEL  AY  OF  7 SECONDS. 

SEE  IF  LR  P0S2  IS  CN 

IF  THERE,  WAIT  FINAL  SECOND  FUR  BOUNCE. 
SEE  IF  MAX  TIME  UP. 

IF  TIME  UP,  DISABLE  COMMAND  AND  ALARM. 


GAP:  ASSEMBLE  REVISION  56  OF  AGf.  PROGRAM  ZEPLINA  PY  ZOROASTER 


2 624 
26?  5 
2626 
26?  7 

262R 

2626 

2630 

2631 

2632 
263M 
263A 

2635 

2636 

26  3 7 
263R 

2 63  9 


2 64  0 

?6<.l 

2642 

2643 

2644 

2645 

2646 

2647 
2 64  8 


P20-P25 


PFF 

PFF 


REF 

RTF 


37 

3 

1 


PEF  27 

REF  38 
REF  4 


PFF  10 
PEF  ? 


PFF  15 1 
PFF  1 
PFF  15? 
PFF  9 
REF  1 
REF  1 


REF  25 
PEF  2 


PFF  1 
REF  14 
RFF  2 
REF  54 
PEF  1 
RFF  3r 
PEF  5 


L AST  572  25,  2560  C2  C12  1 
LAST  566  25,3561  1 3630  0 


WAND  CHAM  2 

t:f  oopaoend 


LAST  17 1 


25,3562  3 5000  1 1ASTLR0T  CA 

25,  3563  0 5235  0 TC 


2 SECS 
VAROFLA  Y 


LAST  573 

LAST  574 
LAST  573 


25,  3566 
25,3567 


4 4737  1 
C CCC6  1 
C 2 C12  1 
1 3623  1 


CS  R IT  1 3 

F XTEND 

WAND  : HAN  12 

TCF  R GOOOEND 


25,  357  : 3 4151  0 LRPOSCANCAF 

25  ,3571  1 3544  0 TCF 

25,3572  01130  1 6SECS  OEC 


FOUR 
LPPOSN  XT 
600 


LAST  56  1 

LAST  5 ? 4 
LAST  627 


25,  357  3 
25  ,3574 
25,  3 5 7 5 
25, 3576 
25  ,3577 
25,  3600 


0 46  16  1 LPP2C0MM  TC  BANKCALL 

53516  0 CADK  I RP0S2 

C 4616  1 TC  BANKCALL 

17713  1 C ADR  3ADSTALL 

C 3601  0 TC  LP2ALM 

1 3612  0 TCF  G0P1  NNER 


LAST  564 


LAST  574 


25,3601  0 5600 

’5,3  hr?  C 05 23 
25,  360  3 1 36  12 


1 LP2ALM  TC 
OCT 

0 TCF 


AL  ARM 
523 

30PI  NNER 


LAST  52« 
LAST  569 

LAST  566 
LAST  574 
LAST  560 

LAST  529 
LAST  4 5 8 


25,3604  3 5016  0 

25,  36C  5 54  CC3  0 

F7 , 1427 

? 6 ,3606  3 4733  1 

25,  3607  6 5 '427  0 

25  ,3613  4 4736  0 

25,36  1 1 5 5 ' 43 C 0 

25. 3612  0 4635  0 

25.3613  21051  0 


V59GP6  3 


GDP  INNER 


CA  EBANK7 

TS  CRANK 

EBANK=  RPCRTIMF 

CA  POSMAX 

TS  P.PCRTIME 

CS  BIT14 

TS  RPCRTOSW 

TC  POSTJUMP 

C A DR  P1NBRNCH 
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USER • S PAGE  NO.  75  E7  S3 


WAIT  HO  SECONDS  AFTER  RECEIPT  3F  IN3IT 
TO  WAIT  FOP  ANTENNA  BOUNCE  TQ  OIF  OUT. 


RFMnVE  COMMAND 


GAP:  A S St  MB  LE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


L P20-P25 

P 2649  SEQUENCES  TO  TERMINATE  RR  OPERATIONS. 

RCDUFBIT 
R AO  MODE  S 

RGOOOEND 
R DOAOEND 
ZERO 
RUPTAGN 


2652 

2653 
2 65  A 
2655 
2 6 56 


kEF  6 
REF  05 
RFF  197 
REF  5 
REF  A 
REF  121 
REF  2 


I. A ST 
LAST 
LAST 
LAST 
LAST 
LAST 
L AST 


566 
57  3 
566 
57  A 
57  A 
565 
100 


25  » 36 1 A 
25,  36  15 
25,3616 
25,  3617 

25.3620 

25.3621 
25,  3622 


A 5 0 ENDRAOAR  CAF 
MA  SK 
CCS 
TCF 
TCF 
CS 


7 0110 
10  000  0 
1 3623  1 
1 3630  0 
A A 755  0 
5 A 332  1 


TS 


2657  PFF  AO  LAST  570 

7658  REF  30  LAST  57A 

2659  REF  2 LAST  252 


25  ,3623  3 A752  0 

25, 362A  C A63S  0 
25,  3625  1 1 6 6 A 0 


RGOOOEND 


CAF 

TC 

CADR 


TWO 

POST  JUMP 

3 U ODE  NO 


2660 
266  1 
2 662 
2663 
266A 


PFF  122  LAST  575 
«FF  3 l AST  575 
REF  A 1 LAST  575 
REE  AO  LAST  575 
PEE  1 


25,3626  A A755 
25,  3627  5 A 332 

25.3630  3 A752 

25.3631  0 A63 5 

25,  36  32  1766  1 


0 -2  CS 

1 TS 

0 R DBADEND  CAF 

0 T C 

0 C ADR 


ZERO 

lUIPTAGN 

TWO 

POST  JUMP 
BADEND 


2665 


RFF  19  LAST  56A 


6257 


BIN3  EQUALS  THREE 
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USER'S  PAGE  NC.  76  E7  S3 

PROLOG  TO  CHECK  RR  COU  FAIL  BEFORE  END. 


R GOODEN  D WHEN  NOT  UNDER  WAITLIST  CONTROL 


ROBAOEND  WHEN  NOT  UNDEP  WAITLIST. 


GAR  : 


SSEM01E  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L 

P20-P2S  USER'S  PAGE  NC.  77  E7  S3 

P 2666 
R?667 

PROGRAM  NAME  LPS20.1  VECTOR  EXT  RAFOL  AT  ION  AND  LOS  COMPUTATION 

MOO.  NO.  2'  BY  J.7.  COYNF  SOC  OATF  12-7-56 

R266B 

FUNCTIONAL  DESCRIPTION. 

i 2669 
R267  l 

R 267  3 

1)  EXTRAPOLATE  THE  LEM  AND  C SM  VECTORS  IN'  AOCCRCANCE  WITH  THE  TIME  P E FER  EO  TO  IN  CALLER  + 1. 

2)  COMPUTES  THE  LOS  VECTOR  TO  THE  C SM , CONVERTS  IT  TO  STABLE  MEMBER  COORDINATES  AND  STORES  IT  IN  RRT  AR  GET  . 

3)  COMPUTES  THE  MAGNITUDE  CF  THE  LCS  VECTOR  AN  C STORES  IT  IN  MLOSV 

R ?6  7 A 
R2  675 

CALLING  SEQUENCE  CALL 

L PS20.  1 

1 2676 

SLOROL'TI  NFS  CALLED. 

R?S77 

L EMPREC, CSMPREC 

R 267B 

NCRMAL  EX  I T_  RFTJRN  TO  CALLER  + 2 

R267Q 

FRROR  EXITS.  NONE 

R26BO 

ALARMS.  NGNE 

* 26R1 

OUTPUT. 

R2692 

R 268  3 

R 2689 

LCS  VECTOR  (hALF  UNIT)  IN  SM  COORDINATES  STORED  IN  RRTARGET 

MAGNITUDE  CF  THE  LCS  VECTOR  (METERS  SCALED  G-29)  STORED  IN  MSLOV 

RRNBSW  CLEAREO 

R26B5 

INITIAL  I ZED  FR  AS  CABLE 

i 2686 
R26B7 

TDEf  1 ML  S T CONTAIN  THE  TIME  FCF  EXTRAPOLATION 

SEF  ORBITAL  INTEGRATION  POUT  INF 

R 2688 

DEBRI  S_ 

R 2689 

MP AC  DESTROYED  BY  THIS  ROLTI  NE 

269  r 

2691 

2692 

2 3,  2 1 ?5  BANK  23 

R CF  A LAST  525  29,2000  S FTLOC  P20S 

29,3390  BANK 

GAP:  ASSEMBLE  RFVISIUN  5b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L P20-P25 


USER'  S PAGE  NO.  78  E7  S3 


2693  REF 


COUNT*  $$/LPS20 


2694 

2698  REF 

2696  RFF 

2697  REF 

2698 

2699  REF 

2700  REF 

2701 

2732  REF 
2?t  3 

2704  RFF 

2705  REF 

2706  REF 

2707  RCF 

2708  RFF 

2709  RFF 
2713  RFF 

2711 

2712  REF 

2713  RFF 
2713?  REF 
27  14 

2715  REF 

2716 

2717  REF 

2718  RFF 

2719  REF 
27 2D  RFF 
2721  RFF 
272? 

2723  RFF 
27232  RCF 
27234  REF 

2724  REF 

2725 

2726  REF 

2727 

2728 

2720  ref 

2730 

2731  RFF 
273?  REF 

2733 

2734  RFF 

2735 

2736  REF 

2737  REF 

2738 


3 LAST  509 
8 LAST  56C 
1 

7 LAST  509 
1 


3 LAST  495 

5 LAST  405 
2 LAST  509 
1 

2 LAST  5C9 

5 LAST  50  1 
16  LAST  527 

2 LAST  344 

2 LAST  577 

3 l AST  577 

2 LAST  504 

9 LAST  495 

6 LAST  561 

3 LAST  56 1 
50  LAST  560 

4 LAST  560 
6 LAST  577 

3 LAST  577 

4 LAST  511 
1 

2 LAST  504 


1 


10  LAST  577 
1?  LAST  550 

4 LAST  56  1 


5 LAST  559 
4 LAST  577 


24,334  1 
24,3342 
2/.,  3 34  3 
24  ,3344 
24,3345 
24,  3 346 
2 4,3  347 
2 4,  3350 
24,  3 3 <= ! 
24,3352 
24,  3353 
24  ,3354 

24.3355 

24. 3356 
? 4 ,3357 
24,  3360 
24,  3361 
24,3362 
24,  3363 

24 .3364 

24.3365 

34. 3366 
24  ,3367 
24,  33  70 
24,  2 37  1 
24,3372 
24,  ^373 
24  ,3374 
24  ,33  75 
24,  3 176 
24  ,3377 
24,  34CP 
24,  340  1 
24,340? 
24, 34C3 
24  ,3404 
24,3405 

. 

2 4 ,-407 
24, 3410 
24,  24II 
?4 ,3412 
24,  3413 
24  ,3414 
24,3415 
24,  34  16 
0024 


01343  1 
51347  0 
77614  1 
C43C7  1 
51357  1 
77624  1 
27C77  l 

77775  1 
00001  0 
2634 3 1 
C00C7  0 
16351  1 
00015  0 
34041  0 
27C65  1 
c23  75  1 
0C007  0 
C 23c  1 1 

000  17  1 
76521  0 
01732  0 

77776  1 
C 6C32  0 

52573  1 
C 6051  0 
28757  0 

00001  0 
4 305  1 1 
02343  1 
00350  1 
c 1 4 C 5 1 
00025  0 
54204  0 
57735  1 
20212  1 
41056  1 
50  1C4  1 
76521  0 
C 1 73?  0 
151C1  0 
00048  0 
C 1 76  5 1 
776  14  1 
00231  1 
OH55  1 


LPS20.  1 STQ  BGFF 
L S 2 1 X 
LOSCMFLG 
l MI  NT 

BON 

SURFFLAG 
: SMI  N T 

LMINT  CALL 

LF  MCCNIC 

VLOAD 

RATT 

STOVL  LM  PCS 
VATT 

STCDL  LMVEL 
TA  T 

CSMINT  ST  CALL  T0EC1 

CSMCGNIC 
VLOAD  VSU 
V ATT 
LMVEL 

STORE  VELLOS 
MXV  VS  LI 

REF  SMMAT 

EX  IT 

TC  KILLTASK 

: ADR  3 E SLOOP  + 

TC  I NT  PR  FT 

STOVL  LOSVEL 
RATT 
VSU  BOFF 
LMPOS 
RNOVZFLG 
NOTSHI FT 
STORE  RRANGE 
BOV  B VSL 

TCDANZ1G 

90 

NCTSHIFT  UNIT  BOVB 

526ALARM 
MXV  VSL 1 

PCFSKMAT 
STOOL  RR  TARGET 
360 

STORE  ML  CSV 
CL  R GO 

PRNBSW 
LS21  X 


RR  AN  G F EQUALS  20  0 


LOSCMFLG  = 0 MEANS  Nn  T CALLED  BY  P21 
SO  CALL  LEMCONIC  TO  GET  LM  STATE 
IF  IN  R 2 1 A AO  Q A LUNAR  SURFACE 
DON  *T  CALL  LEMCONIC 


EXTPAPOL  ATE  L EM 

SAVE  LM  POS  IT  ION  8-?9 
SAV  F LM  V El  OCITY  B- 7 

EXTRAPOL  AT  E CSM 

COMPUTE  RELATIVE  VFLGCITY  V(CSM)  - V(LM) 


KILL  THE  TAS<  WHICH  CALLS  OOOES  SINCE 
STORING  INTO  ERASE  ABLES  DODFS  USES 


RANGF  FOR  POSSIBLE  ALARM  B-29 


IF  OVERFLOW  , RANGE  MUST  BF  GREATER 
THAN  4 00  N.  M. 

CONVERT  TO  STABLE  MEMBER 

SAVE  MAGNITUOE  OF  LOS  VECTOR  FOR 
VFLCCITY  CORRECTION  IN  CES  IGNAT  E 


AM:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 

P 20-P  25 
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USER'S  PAGE  NO.  79  E7  S3 


27385 


30  16 


VELL3S  EQUALS  1 AD 


GAP : 


A S SF  MB  LG  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCASTER 
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L P20  -p25 


PROGRAM  NAME  : LP  S20 . 2 4L  0 N . M.  RANGE  CHECK 
MOO.  NO  . 2 BY  J.O.  COYNE  SOC  DATE  12-7-66 


USER'S  PAGE  NC.  80  E7  S3 


R2  740  FUNCTICNAL  DESCRIPT  ICN_ 

*2 741  COMPARES  THF  MAGNITUDE  OF  THE  LCS  VECTOR  TC  400  NM 

R2742  CALL  ING  SEQUENCE  CALL 

R2743  LFS20.2 

R2744  SUBROUTINES  CALLED.  NONE 

R^  745  NORMAL  FX  I T _ RETURN  TO  CALLER  +1,  MPAC  EQ  0 (RANGE  4G0NM  OR  LESS.) 

R 2746  ERROR  F XI  T S _ RETURN  TO  CALLFR  +1,  MPAC  EQ  1 (RANGE  GREATER  THAN  400  NM  I 

R2  74  7 ALARMS.  NONE 
* 2748  0 L TP  LT  _ NONE 


R2  749  INITIALIZED  ERAS  FABLE. 

R 2 7 5'  PD  I 360  MUST  CONTAIN  THE  MAGNITUDE  OF  THE  VECTOR 
R 275 1 DEBR  IS 

R2  752  MPAC  DESTROY  E D BY  THIS  ROUTINE 


2753  PET- 

2754 

2755  REF 


LAST  573  3 5 ,2 OCO 

25,  3623 


S ETLOC  P20S  I 
BANK 

COUNT*  TT/LPS2C 


2 756 
?757 

2758 

2759 

2760 

2761 

2762 
276’ 


2764 

2765 


REF 

PFF 

REF 

RFF 

RFF 


5 L AST 


577 


26,  3 6 ?4 
25  ,3635 
25,3636 
25,  3637 
25  ,3640 
ic,  364  1 

25,  3642 
25,3643 

26,  3644 


13646  1 
77644  1 

5 3642  1 
43535  0 

06  e2G  C 
43535  0 
13645  1 
CCCC1  0 


LPS20.2 


TO  FA* 
ONF /SP 


DLOAD  DSU 

MLOSV 

FHNM 

RPL 

TOFAR 

SLOAO  RVQ 

ZEPC/S  P 
SLOAD  PVQ 

ONE/SP 
DEC  1 


MAGNITUDE  OF  LCS 
OVER  400NM 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGR6M  ZERLINA  BY  ZOROASTER 
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L P2o  -P2s  USER'S  PAGE  NO.  81  E7  S3 

2766  25,3665  26667  0 FHNP  20EC  760800  B-20  600  NAUTICAL  MILES  IN  METERS  B-20 

2766  25, 3666  CGCOO  1 
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P2G-P25  JSER'S  PAGE  NO.  82  E7  S3 

P2  767 
l 2768 

PROGRAM  NAME:  LRS22.1  (RATA  REAC  SUBROUTINE  1) 

MOO.  NO.:  1 RY:  P.  VOLANTE  SDC  DATE:  11-15-66 

R2  769 

FUNCTIONAL  DESCRIPTION 

3 2770 

R 277  ? 
R2  776 

1)  HEADS  RENDEZVOUS  RADAR  RANGE  ANC  R ANG  E-RAT  E ,T  RUN  ION  AND  SHAFT  ANGLES, THREE  CDU  VALUES  ANP  TIME.  CONVERTS  THIS 
DATA  AND  LEAVES  IT  FOR  THE  MEASLREMENT  INCORPORATION  ROUTINE  (LSR22.3).  CHECKS  FOR  THE  RR  DATA  COOO  DISCRETE, FDR 
PP  REFCSITICN  ANO  PR  CCU  FAIL 

3 2775 

2)  COMPARES  RADAR  LOS  WITH  LOS  COMPUTED  FRCM  STATE  VECTORS  TO  SEE  IF  THEY  ARE  WITHIN  THREE  DEGREES 

R2777 

CALLING  SFOUENCE:  RANKCALL  FOR  LRS22.  1 

R 2778 

SL8R0LTINE  S C ALLFD  : 

R 27  79 
R278C 

3 2781 
R2782 

R 278  3 

RRR  DOT  LPS20.  1 

RRRANGE  RANKCALL 

RADSTALL  COULCGIC 

PRNB  SMNH 

NORMAL  EXIT:  RETURN  TO  C AL  L FR  «1  WITH  MPAC  S FT  TO  +0 

R 2 7 8 6 

ERROR  EXITS:  RETURN  TO  CALLER+1  WITH  ERROR  CODE  STORED  IN  MPAC  AS  FOLLOWS: 

R2786 

3 2788 

Cm  1 -ERROR  EXIT  1-RR  DATA  Ntl  GOOD  I NO  RR  DATA  GOOD  DISCRETE  OR  RR  CDU  FAIL  CR  RH  REPOSITION) 

)00f  2-E  RPOR  EXIT  2-RR  LOS  NOT  WITHIN  THREE  DEGREES  OF  l OS  COMPUTED  FROM  STATF  VECTORS 

R2792 

R 2792 

Al  ARMS:  521-CCULD  NOT  HEAD  RADAR  DATA  (RR  DATA  GOOD  DISCRFTE  NOT  PRESENT  BEFORE  AND  AFTER  READING  THE  RADAR) 
(THIS  ALARM  IS  ISSUED  BY  THE  FACAREAC  SUBROUTINE  WHICH  IS  ENTERED  FROM  A RADARUPT) 

R 27^6 
R2796 

OUTPUT:  RRLOSVFC-  THE  FP  LI  NF-CF -SIGH  T VECTOR  (LSFD  BY  LRS22.2I-A  HALF-UNIT  VECTOR 

RM-  THE  RR  RANGE  REAOINC(TO  THE  CSM)  OP,  IN  METERS  SCALED  B^29(  USED  BY  LRS22.2  ANC  LRS22  .3  ) 

1 2798 

ALL  QF  THE  F CLLCWI  NG  OUTPITS  ARE  USED  BY  LRS22.3: 

R2799 

R 2801 

R 280  2 
R2-803 
l 2806 

R LOT"-  THf  RR  P ANGE-K  ATE  READING, DP,  IN  METERS  PF  R CFN  T I SECOND  , SCALED  8-7 

RRTRLN-RF  TRIIMCN  ANCLF  , GP,  IN  REV OLUT  IONS,  S CAL  ED  8 f 

RR  SHAF  T-3R  SHAFT  ANGLE, DP, IN  PE  VC  LLT I CNS  , S C AL  E D BO 

AIC,AMC,AOG-THF  CCU  ANCLES, THREE  SP  WORDS 

MK  TI  ME  -THE  TIME  OF  TEE  RR  P E AD  I NG,  CP  , IN  CENTISECONDS 

R2P05 

FRASABLE  INITIAL  I7ATI0N  REQUIRED: 

R 2806 

R NRAD , THF  RACAR  READ  COUNTER  FPCM  WHICH  IS  OBT  A IN  ED: 

GAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZERL  INA  8Y  ZOROASTER 


<3=12  OCT.  21.1970  ZLEHP21  S.00 1 


PAGfc  582 


P 20- ° 25 


USER  *S  3 A GF  NO.  83  E 7 S3 


R7R37  1 )PR  RANGE  SGALEO  9.38  FT.  PER  BIT  ON  THE  L 3 W SCALF  AND  75.04  FT.  PER  BIT  ON  THE  HIGH  SCALE 

R 2809  2 ) P P RANGE  PATE.SCALFO  .6278  FT. /SEC.  PER  BIT 


R2P10  THE  COW  ANGLES  FROM  C ) UX,  COL  V.CDU7  ANO  T I ME1  A NO  T1  ME2 


R2811  DEBRIS:  LRS22  .IX  , A.  L,  C,  PUS  HL  1ST 


28  1 2 

2P13  REF 

2814 

2815  REF 


2 L AST 

2 LA  ST 


4* 


BANK  32 
SETLOC  LRS22 
RANK 

COUNT*  SI/LRS22 


2820 

2821 

2822 

2823 

2824 

2825 
2926 
2 82  7 


2828 
292R 
28  30 

2831 

2832 

2833 

2834 


I EF 
REF 
REF 
REF 

REF 

REF 
HF  F 
REF 
REF 
PEF 
i r F 

PFF 

PEF 

REF 
REF 
P EF 


3 
57 

2 

27 

18 

87 
1 

96 

88 
57 

153 

4 

154 
10 

1 


LAST 
LAST 
I AST 
LAST 


552 
51  3 
560 
567 


LAST  573 
I AST  57  1 


LAST  575 
LAST  58  2 
LAST  582 


LAST  574 
LAST  527 
LAST  58  2 
LAST  574 


32,  22  17 
32,2220 
72,  2221 
32,722? 

32.2223 
22,  2224 
32  ,2225 
12  ,2226 
3 2,  2227 
32  ,2230 
32,  223  1 
32,  2232 
32  ,2233 

72. 2224 
32  ,2235 

32.2236 

32. 2237 
32  ,2240 
32, 2241 


G 4645  1 
55 ' 737  1 
r 5527  1 
00120  1 
C 0004  0 

3 4751  0 
0 0006  1 
C 2 033  0 
c4  CC 1 1 

4 4751  1 
7 C110  0 
6 OCCl  0 
54  110  0 
C CCC3  1 
0 4616  1 

53070  0 

0 46 1 6 1 
17713  1 

1 2402  1 


LRS22.1  TC  MA  KEC  ADR 

TS  LRS22.1X 

TC  DOWNFLAG 

AORES  RMGSCFLG 

INHINT 

CAF  B I T3 

EXTEND 

RAND  CHAN33 

TS  L 

CS  RRPSHIT 

MASK  R ADMCDES 

AD  L 

TS  RACMOCES 

RE  LI  NT 

RE ADP DDT  TC  BANKCALL 

C ADR  RRRDOT 

TC  BANKCALL 

CADR  RADSTALl. 

TCF  EREXIT1 


GET  KR  RANGE  SCALE 
F°  OM  CHANNEL  33  PI  T 3 


READ  RANGE-PATE  I ONE  SAMPLE) 

WAIT  FOR  DATA  READ  COMPLETION 
COULD  NOT  READ  RADAP-EPPOR  EXIT 


28?5 

2836 

2837 

2838 

2839 

2840 

2841 

2842 
2 84? 
2844 
2945 

2846 

2847 
2 84  8 
284R 
2953 


PEF  4 
REF  253 
REF  R 
REF  3 


REF  6 
RFF  254 
REF  12 
RTF  255 

PEF  16 
REF  256 

REF  12 
RFF  17 


LAST  562 
LAST  560 
LAST  569 
LAST  150 

LAST  261 
LAST  582 
LAST  39  2 
LAST  582 

LAST  562 
I A ST  582 

LAST  557 
LAST  555 


32 .2243 

32. 2244 
32  ,2245 
32,2246 
12,  2247 
32  ,2250 
3 2»  ?251 
32,  2252 
32,2253 
32,  2254 
32  ,2255 
12,2256 
32,  2257 
32  ,2260 
32, 2261 


C COO 4 0 
53*  1G5  0 
52  1 6 2 0 
53*101  1 
5 2*  3 4 7 C 
0 0006  1 
3 0034  0 
52  160  1 
3 0C32  0 
54  156  1 
C C0C6  1 
3 0025  0 
52  155  1 
C C006  1 
3 C 0 36  1 
53' 1C7  1 


INHINT 

DXCH  TIMEHOLD 
DXCH  M P AC  +5 

DXCH  SAMPL SUM 
DXCH  RDCTMSAV 
E X TEND 
OCA  COUY 

DXCH  MP  AC.  +3 

CA  COUX 

TS  MP  AC  +2 

E XTEND 

DC. A T IMF  2 

DXCH  MP AC 

E XTEND 
DC  A CDUT 

DXCH  TANG 


NO  INTERRUPTS  WHILE  REAOING  TIME  AND  CCU 
SET  MARK  TIME  EQUAL  TO  THE  MI0-P3INT 
TEMP  BUFFER  FOR  DOWNLINK 
SAVE  RANGE-RATE  READING 


SAVE  ICDU  ANGLES 

TEMP  BUFFER  FOR  DOWNLINK 

TEMP  BUFFER  FOR  DOWNLINK 

SA  VE  TI  ME 

SAVE  TIME  OF  COY  READINGS  IN  MPAC 
SAVE  TR  UN  I ON  AND  SHAFT  ANGLES  FOR  RRNB 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PKCGRAM  ZERLINA  BY  ZGROAST  EE 


I P20-P25 


2851 

235 2 REF 
2 853  REF 
2854  RFF 
2355  RFF 

2856  RFF 

2857 

? 85  8 

2850  RFF 

2367  RTF 
2861  RTF 
286?  RFF 

2863  RFF 

2864  RFF 

2865 

2866  RFF 

2867  RFF 

2368  PFF 
2flf SQ  REJF 
286902  RFF 
.206904  RFF 
2869C6  »FF 
286RC8  REF 
28691  RFF 
286912  RFF 
?87->  PFF 

2871 

2872  REF 

2873 

2874 

2876  REF 

2876  RFF 

2877 

2878  RFF 

2879  RFF 

2880  PFF 
2381 

2882  RFF 
28  R 3 REF 

2884  REF 

2885  RFF 
2386 

2887  PFF 
2889  RFF 
2990  REF 

2891  REF 

2892 

2893  REF 

2894  RFF 
2896 


156  LAST  582 
3 LAST  527 
156  LAST  583 
11  LAST  582 


7 LAST  564 

4 LAST  20  6 
257  LAST  582 

3 LAST  206 

25P  LAST  583 

5 LAST  569 

18  LAST  58  2 
7 LAST  55? 
259  LAST  583 

6 LAST  569 
2 LAST  86 

2 LAST  582 
198  LAST  575 

15  LAST  574 
1 

3 LAST  526 
51  LAST  577 


4 LAST  582 


2 LAST  150 

1°  LAST  583 

13  LAST  557 
2 LAST  15C 

20  LAST  583 

14  LAST  58  3 
2 LAST  150 
9 LAST  582 


2 LAST  150 

2 LAST  552 

3 LAST  150 

17  LAST  577 

5 LAST  527 


32  ,2262 
32,  2263 
32,  2264 
32  ,2265 
32,  2266 
32  ,2267 
32 ,2?  70 
32,  227  1 
32  ,2272 
32,  2273 
12,  >74 

32,2275 
32,  2276 
32  ,2277 
32  ,2300 
32,  2 3(.  1 
32  ,2302 
32,  23C3 
32,  2304 
32  ,2305 
32,  2 3C6 
32  ,2307 
32  ,2  31  0 
32,  231  1 


32,  2 314 
32  ,2  315 
22,  2316 
32  ,2317 
32 ,2320 
32,  2 3 2 1 
32  ,2322 
32,  2 323 
32,  2324 
32  ,2  325 
32,  2326 
32  ,2327 
32,2330 
32,  2 3 3 1 
32  ,2332 
22,  2322 

32,  2 3 34 

32  ,2335 
32,  2 *36 
32  ,2  3 37 
32  ,2  34.-) 
32,  234  1 
32  ,?  t4? 
32,  2343 


0 0U03  1 
C 4616  1 
53  C 72  1 
C 4616  1 
17713  1 
0 2376  1 
C 0004  0 
0 COO 6 1 
3 1331  1 

5 3*761  1 
c2  162  0 
53* 755  C 
52  160  1 
53*460  0 
C OOC  6 1 

3 11C  7 0 
53*753  0 
2 Cl  56  0 
55*461  1 

4 0110  0 
7 4 7 M 1 
10  000  0 
2 4733  1 

6 7750  1 
55'  073  0 
i.  6(251 

14025  0 
C3747  0 
c?2(1  C 
202  17  1 
24002  C 
0375  1 1 
47135  0 
1 lli7 
2156C  1 
03734  1 
47135  0 
OHIO  0 
21  560  1 
17726  C 
01 101  0 
t 64C5  0 
24CG4  0 
37757  0 
4 6 C 4 1 0 
17741  0 
00025  0 
34041  0 
51340  1 
77776  1 


R EL  INT 

TC  BANKf.  ALL 

CADR  PR  RANGE 

TC  BANKCALL 

C ADR  P AOS T A L l 

TC  CHEXERR 

INHINT 
E XTENO 

OCA  DNRRANGE 

OXC.H  RANG  ROOT 

0 XC  H MPAC  *c 
OXCH  MKT  IMF 
OXCH  MPAC  +3 
OXCH  A I G 
EXTENO 
OCA  TANG 
OXC.H  TANCNB 
CA  MPAC  *2 

TS  AOG 
CS  FLGWRD12 

MASK  PRRSBI  T 
CCS  A 
CA  POSMAX 

AO  -BIT14 
TS  AGSCODE 

TC  INTPRET 

STOOL  200 

RDOTMSAV 
SL  OMPR 

1 40 

PDOTCONV 
STORE  RDOTM 
SLOAD  RTB 
TANG 
COULOGIC 
STORE  RRTRtlN 
SLOAD  RTB 

TANG  +1 
C0UL0G1C 

S Tool  rp  shaft 

SAMPLSUM 
OMP  SL2R. 

PANGCONV 
ST  CAL  L RM 


PRNB 

STOOL  RR80RSIT 
200 

STCAI  L TOEC 1 

IPS  20.1 

EXI  T 
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READ  RR  RANGE  (ONE  SAMPLE) 

WAIT  FOR  R E AO  COMPLETE 

CHECK  FOR  ERRORS  DURING  RF  AO 

COPY  CYCLE  FDR  MARK  OA  TA  ON  ODWNLINK 

RANGE, RANGE  RATE  (RAW  DATA) 


MARK  TIME 

COUY,  CDUZ 

PRESERVE  TANG 

TRUNNION  AND  SHAFT  ANGLES 

COUX 

IS  RR  READING  HIGH  SCALE 


NO-  LOrf  SCALE  (SET  CONFIG)  AGSCDDE  = 1 7777 
YFS-  HI  SCALE  (SET  CONFIG)  AGS  CO  0E=57  77  7 

SFT  AGS  CODE  WORO 

SAVE  TIME  OF  COU  PE  AO  I NGS  IN  20  0 

CONVERT  RODT  UNITS  ANO  SCALING 

START  WITH  RF  AC  I NG  SCALED  8-28,  -.6278 

F T.  /SECOND  PF  R BF  T 

END  WITH  METERS/C  ENT  [SECOND,  B-7 


GET  TPJNION  ANGLE 

CONVERT  TO  DP  ONF  S COMP.  IN  REVOLUTIONS 
AND  SAVE  FDR  TM I ROUTINE  ( l SR22.  3) 

01  TTO  FOR  SHAF  T ANGLE 


CONVERT  UNITS  AND  SCAL  ING  OF  RANGE 
PFP  HIT,  FND  WITH  MFTE RS, SCALED  -29 

COMPUTE  RADAR  LOS  USING  RRNB 
AND  SAVE 

GET  STATE  VECTOR  LCS  AT  TIME  OF  COU  READ 


GAP:  ASSFMBLF  < F V I SION  56  OF 


PROGRAM  ZERLINA  BY  ZGRGAST ER 


L P2C-P25 


28*56 
29  >7 
2898 
?89« 

2903 
2<»01 
2*50  2 
2 903 

2904 
? 90S 
2 906 
2007 
2999 
2909 
29 1C 
2o11 
2912 


PFF  6 
PEF  10 
REF  3 

PEF  11 
PFF  7 
PFF  1? 
R EF  52 

REF  11 
PEF  1 

RFF  4 


REF  22 

PFF  1 
REF  1 


LAST  983 
LAST  486 
LAST  208 
LAST  984 
I AST  983 
LAST  904 
LAST  983 

LAST  577 


LAST  9P3 


LAST  456 


37,  2349 

32.2346 

32.2347 
32,  2354 
3?  ,2351 
32  ,235? 
32,  2 353 
32  ,2  354 
? 2,  2 355 
32,  2356 
32  ,2357 
3 2,  7 360 
32  ,236  1 
32  ,2362 
32,  2 36  3 
32  ,2364 


3 1457  0 
54  765  1 
3 146C  1 
54  767  0 
:•  1 4 6 1 0 
54  771  1 
0 60 C1  0 
45175  0 
01101  0 
47656  1 
77641  1 
03741  0 
6*552  0 
0 1045  l 
5C025  0 
2 4 4 C 6 0 
64371  0 


CA  A IG 

TS  C DUS  POT 

CA  AMG 

TS  C DUS  POT  *2 

CA  AOG 

TS  OPUSPOT  ♦ 4 

TC  INTPRET 

VL0A3  CALL 

RRTARGET 
T RG*  S MNB 

DOT 

RRBORS  IT 
SL 1 ACOS 

STORE  USPTEM1 

DSU  BMN 

THRFEDEG 
NORMEX  IT 


2913 
2<j1  4 

2915 

2916 


REF  33 
PFF  260 

REF  l 


LAST  560 
LAST  583 


32,  2365 

32.2366 

32.2367 
32,  2 370 


77776  1 
3 4752  0 
54  154  0 
1 2274  1 


EXI  T 

CAE  9 I T 2 

TS  MP  AC 

TC  F OUT22.1 


2°  1 7 
29  IP 
2 91  9 
292C 

2921 

2922 

2923 

2924 

2925 


PEF  123  LAST 
RFF  26  1 LAST 
RFF  4 LAST 
RFF  10  LAST 
RFF  17  LAST 
RFF  1 
REF  190  LaST 
RFF  1 


575 

584 

582 
550 
564 

583 


32, 2372 
3 2,  2 37  3 
32  , 2 3 74 
32,  2375 
32,2376 
32  ,23  77 
32, 2400 
32  ,2401 


77776  1 
2 4755  l 
5 *-  154  0 
31*737  0 
C 4640  l 
30  101  1 
7 474?  0 
1C  CCO  0 
1 2235  0 


NflRMFX  IT  FX  IT 

CAF  ZERO 

TS  MPAC 

0UT22.1  CAE  LRS22.1X 

TC  BANK  JUMP 

CHFXERR  CAF  FLAGWPD5 

MASK  RNGSCBIT 

CCS  A 

TCF  READRDOT 


2926  RFF  21  LAST  566 

2927  PEF  262  LAST  584 

2928  PFF  2 LAST  5P4 

2 929 

2g2o 


3 2,  240  3 
32  ,2404 

32. 2405 

32.2406 


3 4753  1 FREXIT1  CA 
5 4 154  0 TS 

0 2374  0 TC 

C 02 1 0 1 THRFEDEG  2 DEC 
21042  1 


BIT1 
MPAC 
OUT  22 . 1 
.008333333 
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USER'S  PAGE  NO.  85  E7  S3 

STORE  IMU  C DU  ANGLES  AT  MARKTIMF 
IN  CDJSPnT  FOR  TRG*SMNB 


LOAO  VECTOR  ANC  CALL  TRANSFORMATION 

ROTATE  LOS  AT  MAP.KT1MF  FPC1M  S*  TO  NB . 
DOT  WITH  RAOAP  LOS  T 0 GET  ANGLE 

RETWEEN  THEM 

STORE  FOR  POSSIBLE  DISPLAY 
IS  IT  LESS  THAN  3 DEGREES 

YES-NORMAL  EXIT 


ERROR  EX  IT  2 
SET  FRROR  CODE 


NORMAL  EXIT- SET  MPAC  EQUAL  7 EP  O 

EXIT  FROM  LRS22.1 

CHECK  IF  RANGE  SCALE  CHANGED 
YES- TAKE  ANOTHER  READING 

SET  ERROR  CODE 


THREE  OEGREFS,  S CAL  ED  REVS, BO 


JAP:  ASSFMRLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 
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P20-P25  USER'S  PAGE  NO.  86  E7  S3 

P2931  PROGRAM  NAME  - LRS22.2  (OATA  READ  SUBROUTINE  2) 

3 2932  MOO.  NO.  : 1 BY  : P VC  LAM  E SDC  OAT  E A- 1 1-67 

R293T  FUNCTIONAL  OESCRIPTION- 

R 2934  2)  CHECKS  IF  THE  RR  LOS  (I.F.  THE  RADAR  BORESIGHT  VECTOR)  IS  WITHIN  30  DEGREES  OF  THE  L M +Z  AXIS 


R 2936  CALI  IMG  SEQUENCE-  BANKCALL  F CR  LRS22.2 


SUBROUTINES  CALLED:  G + N,  AUTO  SETMAXOB 

NORMAL  EXIT  - RETURN  TC  CALLER  MTh  MPAC  SET  TO  +0  (VIA  SW  RETURN  ) 


R2939  ERROR  EXIT  - RETURN  TO  CALLER  MTH  MPAC  SET  TO  OOOOl  -RADAR  LOS  NOT  WITHIN  30  OEGREES  CF  LM  +Z  AXIS 


R2941  ALAPMS  - NGNE  IN  THE  AUTO  MOOfc 


R2943  FRASABLF  INITIALIZATION  REQUIRED  - 

' 944  RRLOSVFC  - THE  RR  L IN  E-C  F-S  I GHT  V EC  TOR- A HALF  UNIT  VECTOR  COMPUTED  BY  LRS22.1 

3 2946  RM  - RR  RANGE,  MFTFRS  8-29  , FRCM  LRS22.1 

R2947.  BIT  14  CHANNEL  31  - INDICATES  AUTOPILOT  IS  IN  AUTO  MODE 


R29AR  DEBP  1 S - A,L,C  MPAC  -PUSHLIST  ANO  PUSHLOC  ARE  NOT  CHANGED  BY  THIS  ROUTINE 


ft) 

2952 

2953 

2954 
A 29  55 

2956 
2°57 
A .?  9 5 8 
A2qsq 

2960 

2961 

2962 
2q63 
2 964 

2965 

2966 

2967 


REF  5 

REF  8 
RFF  5 
REF  53 


REF  5 


RFF  1 
RFF  1 

REF  32 
REF  263 
PEF  1 


I AST  576 

LAST  5B2 
LAST  584 
LAST  584 


LAST  5B4 


LAST  584 
LAST  584 


24, 20CQ 
24,  341 7 

24,3417  0 4645  1 

24,  3420  c5'737  1 

24  ,34  21  0 6051  0 

24,  3422  6 5545  C 

24,3423  03745  1 


24,3424  50025  0 

24,  ^425  T1441  0 

24  ,3425  51433  1 

24,T4?7  77776  1 

24, T«3o  3 4753  1 
24.T43L  54  154  0 

24, 3432  1 3436  1 

24,  3433  77776  1 


LRS22  .2 


3QDEGC HK 


OK  EX  IT 


SETLOC  P20S 
BANK 

TC  MAKECACR 

TS  LR  S22. 1 X 

TC  INTPRET 

OLOAD  AC  OS 

RRBORSIT  +4 


OSU  BMN 

30DEG 
D < F X T T 

EX  I T 

CAF  B I Tl 

TS  MPAC 

TCF  0UT22.2 

EXIT 


CHECK  IF  RR  LOS  IS  WITHIN  30  DEG  OF 
THE  SPACECRAFT  *Z  AXIS 
by  taking  ap:cos  OF  Z-COMP.  OF  THE  RR 
LOS  VECTOR,  A HALF  UNIT  VFCTOR 
IN  NAV  BASE  AXES) 


NORMAL  FXIT-WI  THIN  30  PEG. 
ERROR  EXIT-N3T  WITHIN  3C  DEG. 
SFT  ERROR  CCDE  IN  MPAC 


NORMAL  EXIT-SET  MPAC  = ZFPC 
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2963 

2969 

297i. 

297] 


RCF  124  LAST  SPA 
REF  264  LAST  58 S 
KEF  fc  I AST  565 
PEF  11  LAST  5B4 


?4, 3424 

24. 3435 

24.3436 

24. 3437 


2 4755  1 
54  154  0 
31*737  0 
0 4640  1 


CAF  ZERC 

TS  VPAC 

CUT22.2  CAE  LRS22.1X 

TC  BANK  JUMP 


247? 

2472 


24  ,344.; 
24,  344  1 


C 2525  1 300EG  20EC  .083333333  THIRTY  OEGREE  S , SCA  LEO  REVS, BO 

12525  0 
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L 

P20-P25  USER'S  PAGE  NO.  88  F7  S3 

P2973 

R 2975 

R 2977 

R2  079 

PROGRAM  NAME  - LSR22.3  DATE  - 29  MAY  l9t>7 

MOD.  NO  3 LOG  SECTION  - P20-25 

MOD.  BY  - DANFORTH  ASSEMBLY  LEMP20S  REV  10 

T 2980 

FUNCTIONAL  DESCRIPTICN 

R298  l 

R2  983 

3 2985 

THIS  ROUTINE  COMPUTES  THE  B- VEC  TOR  S ANO  DELTA  Q FOR  EACH  OF  THE  QUANTITIES  MEASURED  BY  THE  RENDEZVOUS 

RADAR.  (RANGE, RANGE  RATE, SHAFT  AMD  TRUNNION  ANGLFS).  THE  ROUTINE  CALLS  TH F INC0RP1  AND  INC0PP2  ROUTINES 

WHICH  COMPUTE  THE  DEVIATIONS  AND  CCRRECT  THE  STATE  VECTOR. 

R2986 

K 2«R7 

R 29  89 
R2  991 

3 2993 
TR?935 
R2997 

CALL  ING  S EQIIENCF 

TIMS  RCl.TTNF  IS  RAPT  OF  P.  PENCE7V01JS  NAVIGATION  FOR  THE  LM  COMPUTER  U NLY.  THF  ROUTINE  IS  FNTFRED  FROM 

R 221  FM  ONLY  AND  RETURNS  DIRECTLY  TC  R22  LEM  FOLLOWING  SUCCESSFUL  INCORPORATION  OF  MEASURED  DATA.  IF  THE 
CCMPUTEC  STATE  VECTOR  DEVIATIONS  EXC-EEl)  THF  MAXIMUM  PERMITTED.  THE  ROUTINE  RETURNS  TO  R22LEM  TO  DISPLAY 

THE  DEVIATIONS.  IF  THE  ASTRONAUT  ACCEPTS  TEE  DATA  R22L  EM  RETURNS  TO  L SR  22.  3 TO  INCORPORATE  THE 

DEVIATIONS  INTO  THE  STATE  VECTOR.  IF  THE  ASTRONAUT  REJECTS  THE  DEVIATIONS,  NO  MORE  MEASUREMENTS  ARE 
PROCESSED  FOR  THIS  M ARK  , I . F . , R22L  EM  GETS  THF  NF  XT  .MARK. 

R 2998 
R299Q 

R 3C'0r 
' )l  1 

R3|  ' 

SUBROUTINES  CALLED 

WLINIT  LGCUPDTE  INTEGRV  INC0RP1  ARCTAN 

GETULC  RARARANG  INCCRP2  NBS  N INTSTALL 

R 3003 

R30i 

R3005 

R 30C6 
R3D?7 
r ior  a 

R 3009 

OUTPUT 

CORRECTED  LM  OR  C SM  STATE  VFCTOR  (PERMANENT) 

NUMBER  OF  MARKS  I NCCRPOR AT  EC  IN  MARKC.TR 

MAGNITUDE  OF  POSITION  DEVIATION  (FOR  CISPLAY)  IN  R22DISP  METERS  B-29 

MAGNITUDE  OF  VELOCITY  DEVIATION  (FOR  DISPLAY)  IN  R22DISP  + ? M/CSEC  B-7 

UPDATED  W-MATRIX 

R3olO 

R 3011 

R 3 0 1 2 
r<  3i-i  3 

3 3>.  1 4 
R3315 

R 30  1 6 
R30  17 

R 3 3 1 8 
? 3019 

R 302° 
R3f)21 

R 3022 
R3323 

R 3024 

FRASAHLF  INITIALIZATION  REQUIRED 

LM  AND  C SM  STATE  VECTORS 

W-MATR  IX 

MARK  T IMF  IN  MKT  IMF 

RADAR  RANG.E  IN  RM  METERS  P-29 

RANGE  RATE  IN  ROOTM  METERS/CSFS  B-7 

SHAFT  ANGLE  IN  RRSHAFT  REVS. 80 

TRUNNION  ANGLE  IN  RRTRLN  REVS.  BO 

GIMBAL  ANGLES  INNER  IN  A I G 

MIDDLE  IN  AMG 

OUTER  IN  ACG 

REFSMMAT 

R F ND  WF  LG 

noangfl G 

VEHUPFLG 

R 39?5 

R 3 02  6 

R 3027 

DFRR  IS 

PIISHL  1ST  — ALL 

MX,  MiY,  mz  (VECTCRS) 

C F AGC  PROGRAM  7ERLINA  9Y  ZOROASTER 


TAP:  ASSEMBLE  REVISION  jb 

L P20-P25 

R30?R  ULCtRX  7 »S  I NT  F ET  A » LGRET  • POPET,  PVFCT3P, W.  IND,  X78T 


30?9 


' i 
■ 

26*2420 


SANK  13 
SFTLOC  P2  0S3 
RANK 


RFF 

REF 

PFF 

REF 

PFF 

REF 


30  32 

3033 

3034 

3035 
3 rib 
3037 
3338 

3039 

3040 
304  1 
304? 

3343 
3044 
3C  4 5 REF  10 

3346  REF  4 

3047 

3048 

3049 

3050 
3351 
3052 
30  53 
33  54 
3955 
30  56 

3057 

3058 
335-7 
3060 
30  61 
336? 

3063 
30  64 
3 065 
3066 
3367 

3068 

3069 
3373 
3071 
307? 

3 073 
3074 


REF 

REF 


30  LAST  573 
1 

7 LAST  515 

8 LAST  577 


PFF 

RFF 

REF 

RFF 

RFF 

REF 


LAST  588 
LAST  58  8 


13  LAST  588 


E 7,  1456 

26  ,2420 
26,  2<2l 
26,  2422 

26,2423 
26,  2424 
26  ,2425 
26,2426 
»6,  5427 
26  ,2430 


2 6,  24  34 
26  ,2435 
26,2436 
26,  24  37 
26  ,2440 
26,  244  1 
26,  244? 
26,2443 
26,  ? 4 6 4 
26  ,2445 
26  ,2446 
26, 2447 
26  ,? 4 50 

26. 2451 

26. 2452 

26.2453 
26,  2454 
26  ,2455 
26  ,2456 
26,  2457 
26  ,2460 
26,  2461 

26. 2462 

26.2463 
26,  2464 

26.2465 

26.2466 

26. 2467 
26  ,2470 


77624  1 
11216  1 
43014  0 
C4307  l 
”202  1 
02466  l 
45014  o 
0 C 7 4 7 0 
5446?  0 
27410  1 
45014  0 
Cl  674  0 
26643  1 
77624  l 
”?44  0 
77624  1 
11216  1 
77624  1 
2 7410  1 
43014  0 
C 1676  1 
02756  1 
c 44 52  0 
4 30  1 4 0 
01476  0 
C 1 4 7 5 0 
43014  0 
01474  1 
C 167  3 1 
45014  0 
01472  1 
”244  0 
77650  1 
54512  0 
77624  1 
27410  1 
45014  0 
01474  1 
26643  1 
77624  1 
55244  0 


EBANK= 
CO  IN  T* 
CALL 


CALL 

CALL 

CALL 

CLEAR 


NOTWCSM  SFT 


SET 

GOTO 

CALL 

SET 

CALL 


GRP2  PC 
SE  T 

SURFFLAG 

LSR22.4 

DMENFLG 

CALL 

VF  H UPF  LG 
DOLFP 
I NTST ALL 
:a  LL 

V 1 NT  FLAG 
SET1FLGS 

INTGRCAL 

GRP2PC 

I NTSTAIL 
POFF 

D I ROFLAG 
R ENDWFLG 
NOTWCSM 
SE  T 

0 IMP  FL  A G 
06  0R9FLG 
C LFAR 

V I NT  FLAG 
I NTYPFLG 
CALL 

STATEFLG 

1 NTGRF.AL 

MARKTEST 

INTST ALL 
CALL 

V INTFLAG 
SET  IFL  GS 

INTGRCAL 
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ARE  WE  ON  LINAR  SURFACE 
YES 


LM  PRECISION  INTEGRATION 


CSK  WITH  W-RAT  RIX 


INTEGRAT ION 


TAP: 


'SSENBLE  REVISION  36  OF  AGC  PRCC-R AM  7ERLINA  BY  ZOROASTER 


L P20-P25 


3075 

3f  76  REF  9 

3 D 77 

3C78  REF  14 

3079 

3080  RFF  9 

3081  PEF  6 

3082  PEF  1 

3083 

3CB4  RFF  10 

3385  REF  6 

3086 

3087  REF  A 

3389  REF  13 

30R9 

3090  REF  2 

3091  PEF  A 

3092 

3393  REF  7 

3094  REF  1 

3095  REF  1 

3396 

3097  PEF  9 

3098  REF  1 

3099  REF  125 

3100  REF  5 

3131  REF  157 

31 C 2 REF  3 

3103  RFF  54 

31 

3105 

310  6 RFF  2 

3 1 07  REF  1 

3108 

3109 

311  f 

3111  PEF  2 

3112  REF  10 

3113 
3 1 1 A 

3115  RFF  3 

3116 

3117  REF  l 

3118 

3119 

3120  REF  1 

3121 

3122 

3123  RFF  1 

312A 


LAST 

LAST 

LAST 
I AST 


I AST 
LAST 

LAST 
L AST 

LA  ST 
LAST 

LAST 


L AST 


L AST 
LAST 
LAST 
LAST 
LAST 


LA  ST 


LA  ST 
L AST 


L AST 


5R8 

588 

588 

588 


59  9 
588 

588 

598 

588 

588 

50  9 


588 

586 

528 

583 

516 

585 


37 


1A9 

509 


320 


26, 2A7  1 
26  ,?A72 
26,  2A73 

26. 2474 

26.2475 
26, 2A76 
26  ,?  A77 
26,2500 
26,  250  1 
26  ,2502 
2 6,  2 50  3 
26,  250a 
26,2505 
26,  2506 
26  ,2507 

26.2510 

26. 2511 
26  ,2512 
26,25  13 
26 , 2 51 A 
26  ,251  5 
26,  2516 
26  ,251  7 

26.2520 

26. 2521 
26  ,2522 
26,  2523 
26,  2 52 A 
26,2525 
26, 7526 
26  ,2527 
26,2530 
26,  2 53  1 

26  ,253 2 
26, 2533 
26,  25  ?A 

26.2535 

26. 2536 
26  ,7537 
26  ,?  540 
2fi , 254  1 
26  ,25A2 
26,  2 c A3 
26, 2544 
26  ,7  5A5 

. 

26,7547 
>6,25* 
26,  255  1 
26  ,2552 


7762A  1 
11216  1 
77624  1 
2 7410  1 
43014  0 
C 1 6 76  1 
02756  1 
54504  1 
<3014  0 
01476  0 
C 1 4 75  0 
A3014  0 
01673  1 
Cl 67 A 0 
A5C 14  0 
0 1 A 72  1 
5 5 2 4 A 0 
A501A  0 
C2716  0 
5A5  16  1 
5525?  0 
7 7 A 1 A 0 
OA  307  1 
5 A 526  1 
2 A 7 5 5 1 
55' 7A5  1 
C A616  1 
A6123  0 
C 6051  0 

4 2 1 7 A 1 
00000  1 
0A30A  1 

5 A 5 3 4 1 
7^714  0 
CCCC2  0 
A513A  0 
0372C  1 
11216  1 
66170  1 
00001  0 
01353  0 
54335  0 
Cl  773  0 
206  35  0 
77634  0 
21615  0 
00025  0 
7762A  1 
“ 335  1 
57  A 1 A 1 


NOTWL  FM 


MARKT  FST 


RANSEBQ 


GRP2PC 

1 NTSTA  LL 
BOFF 

01  NOFLAG 
R ENDWFLG 
NOTWL  EM 
SE  T 

OIMi  FLAG 
06  CR9FLG 
CLFAR 
INTYPFLG 
VI  NTFLAG 
CALL 

STATEFLC 
I NTGRCAL 
CALI 

RENDWFLG 
RANGEBO 
W L IN  IT 
E XI  T 

SUR  FFLAG 

RANGFB01 

ZERO 

P65CNTR 

BANKCALL 

R 65LEM 

1 NT  PR FT 
BON 

0 

LMOONFLC- 
SE  TX2 

2 

GALL 
S CA1  S HFT 
GRP2PC 
SXA,  1 

1 

WHCHRFAD 

SR 

P V AR  MI  N 
280 

T PMCDE 
200 

GE  TULC 
VCOMP 


CALL 
CALL 
CLEAR 

SE  T 

CLEAR 

SET 

SON 

BON 

CA 
TS 
TC 

CAOR 
TC 

A X T ,2 

INfR,  2 
SFTX2  SXA, 2 

AXT , 1 

SLOAD 

RT  0 

STORE 

CALL 

BON 
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LN  WITH  W-NATRIX  INTEGRATION 


HAS  W-MATRIX  BEEN  INVALIDATED 
HAS  W-MATRIX  BEEN  INVALIDATED 

YF.S-REIN  I TIAL  IZE 

OON'T  CALL  R55  IF  ON  SURFACE 


CLEAR  X 2 

IS  MOON  SPHFRF  OF  INFLUFNCF 

YES.  STORE  ZERO  IN  SC  AL  S HFT  REGISTER 


O-MOON.  2-EARTH 

STORE  RANGE  COOE  (II  FCR  R3  IN'  NOUN  49 

GET  SINGLE  PRECISION  R VAR  MI  N (8-12) 
SHIFT  TO  TRIPLE  PRECISION  (8-40) 


ANO  SAVE  IN  20  0 

BEGIN  COMPUTING  THE  R-VFC  TOR  S.DEL  TAC 

B-VECTORS  FOR  RANGE 

BO,  COMP.  IF  LN  BEING  CORRECTED 


JAP: 

3125 

3126 

3127 

312rt 

3120 

3133 

3131 

3132 

3133 

31  36 

31  35 

3136 

3137 

3138 

31  3y 

3160 

31'.l 

316? 

3163 

3166 

3165 

3166 

3167 

3168 

3169 

3 1 50 

3151 

3152 

3153 

3156 

3155 

3156 

3157 

31  58 

315Q 

3160 

3161 

3162 

-3163 

3166 

3165 

3166 

3167 

3168 

3160 

3173 

3171 

317? 

3173 
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2l.EHP2GS.Det  PAGE 


596 


P 20-P 25 


USER'S  ° AGE  NO.  01  6 7 S3 


PFF 

REF 

RFF 

PFF 

REF 


REF 


RFF 


RFF 

PFF 


PFF 

REF 

RFF 

REF 

REF 


7 L AST 

2 LAST 

3 LAST 
3 LAST 
6 I AST 


3 LAST 


2 LAST 


3 LAST 


2 L AST 
2 LAST 


3 LAST 


5R  8 

160 

506 

5°0 

500 


583 


169 


3«2 


589 

130 


500 


26  ,?55^ 
26,2555 
26,  2556 

26,2557 
26,  2560 

26,2561 
26f?562 
2 6,  2 56  3 
26  ,2566 
2 6 ,2  565 
2 6, 2566 
26  ,2567 
26,  ! 57 
26,  257  1 
26,257? 
26, 2573 
26  ,2576 
26,2575 
26,  2576 
26  ,2577 
. 

26,  260  1 
26,2602 
26,  260-5 
26  ,2606 

26.2605 

26. 2606 
26  ,2607 
26, 2610 

. 

26,261  2 

. 

26  ,2616 


27525  0 
06520  r 
03533  1 
17561  1 

00095  0 
66257  1 
56176  0 
03757  1 
77657  0 
c6  c 7 6 1 
17567  1 
CCC95  0 
63501  C 
00067  1 
c ?6C5  1 
01767  0 
20577  0 
53657  0 
206C1  1 
571  76  0 
67C57  0 
571  76  0 
21615  0 
02707  0 
76276  C 
OCO 2 5 0 
72260  1 
56613  1 
0002  5 0 
02  707  0 
77629  1 
559C3  0 


OOK 


VEHUPF  LG 
+ 1 

STCVL  BVECTOR 
ZEROVEf.  S 

STORE  PVECTOR  *6  B1 

STGOl  BVECTOR  +1 2 n P? 

360 

SRR*  RDSU 

2,2  SHIFT  FROM  EARTH/MCON  SPHERE  TO  B-29 

RM  PM  - (MAGNITUDE  RCSH-RLH) 

SLR* 

2,2  SHIFT  TC  EARTH/MnON  SPHERE 

STOOL  DEL  T AO  EARTH  8-29.  MOON  R-27 

3 6 D RLC  8-2Q/B-27 

NORM  3 SQ  NORMALIZE  AND  SQUARE 

X 1 

OMF  SR* 

RANGEVAP  MULTIPLY  BY  R A NGF  V AR  ( B1  2 1 THEN 

3 -2,1  UNN03MALIZE 

SP*  SR* 

3 , 1 
0 ,2 

SR  * R TR 

0, 2 

TPMODE 

STORE  VARIANCE  B-90 

DCQMP  TAD 

2 OD  B-6D 

8MN  Tl  OAO 

QOK 

20D  B-90 

STORE  VARIANCE 

CALL 

l GCUPDTF 


REF  9 LAST  589 
REF  11  LAST  589 
REF  2 LAST  589 


RFF  R I AST  590 


26,  26  16 
26,2617 
26,  2620 
26,2621 
26,2622 
26,  ?623 
26  ,2629 
26,2625 
26 , 26  26 
26,2627 

26. 2630 

26.2631 

26.2632 
26, 2623 


45131  0 
01359  1 
00002  0 
11216  1 
77629  1 
55335  1 
5 3725  1 
00095  0 
572C2  0 
29095  0 
57919  l 
CC7C7  1 
59632  1 
77761  1 
CCC95  0 


SSP  CALL 

WHCHREAO 

DEC  2 STORE  R-RATE  CODE  (2)  FOR  R3  IN  NOUN  99 

GRP2PC 

CALL  B- VEC  TOR  ,DF  LTAQ  FOR  RANGE  RATE 

GETULC 

POD L SR*  GET  RLC  SCALED  0-29/ B-27 

360  AND  SHIFT  TO  B-23 

3 -9  ,2 

STOVL  3 6D  THEN  STORE  BACK  IN  36D 

BON  V.COMP  Bl,  COMP.  IF  LM  BEING  CORRECTED 

VEHUPFLG 
+ 1 

VXSC 

360 


el  = RLC  (B-29/B-22) 
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31 7 A REF 

3175  PFF 

3176 

3177 

3178  RFF 

3179 

3180  REF 

3181 
3132 

3183  REF 

3184 

3185 

3186 

3187 
3183 

3189 

3190  RFF 

3191  RFF 

3 1 q2 

3193  RFF 

3194 

3195 

3196 

3107  REF 

3198  RFF 

3199 

3200 

3201  RFF 

3202 

3203 

3204  REF 

3?r  5 

3206 

3207 

3208 

32  9 REF 
3213 

3211 

3212 

3213  PFF 

3214 

3215 

3216 

3217  PFF 

3218  RFF 

321° 

3220  REF 

3221  REF 

3222 

3223 


2 

1 


fc 


9 


LAST  5QC 


LAST  509 


LAST  590 


LAST  59  1 

LAST  591 

LAST  583 

LAST  590 


LAST  590 


LAST  591 
LAST  590 

LAST  591 
LAST  59  1 


26,  2635 
26  ,2636 
26,26  37 

. 

25  ,2641 

26. 264 2 

26. 2643 

26  ,2b44 
26, 2645 
26  ,2646 
26  ,2647 

• 

26  ,2651 
26,  26  52 
26,  26  5 3 

26.2654 

26. 2655 

26.2656 

26.2657 
26,  2660 
26  ,2661 
26,2662 

26. 2663 

26.2664 
26,  2665 
26, 2666 
26,2667 
2ft,  267C 

26 .2671 

26.2672 
26,  2473 
26,2674 
26,  2675 

26. 2676 

26.2677 
26,  2700 
26  ,2  70  1 
26,270? 
26,  2703 
26  ,2704 
26,  27C5 
26,  2706 
26,2  70  7 
26,  2 71  ; 
26  ,?7H 
26,271? 
26,  27  13 
2ft  ,2714 
26, 2715 


C 16  53  0 
53257  1 
c7170  0 
(1667  1 
53715  1 
C16C1  1 
571  70  0 
52255  1 

0 1 6 1 5 1 
50315  0 

00001  0 
000C7  0 
53606  1 
c6174  0 
5 7316  l 
01771  l 
C27C7  0 
54335  0 
01774  1 
20621  0 
00031  0 
50C25  C 
02707  0 
54670  l 
77745  1 
00031  0 
02  7<  7 6 
60545  C 
53725  1 
C 3751  1 
56577  1 
77625  0 
77675  0 
00045  0 
27547  1 
CCCC1  0 
47235  0 
574  14  1 
0C7C7  1 
54705  1 
77657  C 
57200  1 
27525  0 
C6520  0 
00025  0 
2754  1 1 
03525  0 
60246  1 
CCC25  C 


VO  K 


STCVL  RV  ECTOR  46 
NUVIEM 
VSR  * VAO 
6 ,2 

v:  VLE  M 
POVL  VSR* 

NUVCSM 

6,2 

V AO  VSU 

VC  VCSM 
P DVL  00  T 
3 

6 

PUSH  SRR* 

2 ,2 

DSQ  DMPR 

RAT  EVAR 

STORE  VARI ANCE 
SLOAO  SR 

V V ARM  IN 
1 6D 

STnRE  ?4D 
OSU  RMN 

VARI  ANCE 

V OK 

0 LOAD 

240 

STORE  VARIANCE 
0 LOAD  SR2 
POOL  SLR* 

RDCTM 

0 -1,2 

OSU 

DMPR 

3 60 

STCVL  DFLTAQ 

0 

VXV  VXV 

BON  V COMP 

VFHUPF  I.G 
41 

VSR* 

0 -2,2 

STOVL  RV  ECT  OR 
ZERCVECS 
STORE  200 
STOVL  RVECTOR  412D 
n VEC  TOR 
ARVAL  NORM 
200 


SHIFT  FOR  EAPTH/MOON  SPHFRF 
EARTH  0-7.  MOON  B-5 
VL  TO  PO  6 

SHIFT  FOR  EAR  T H/MOCN  SPHERE 


VC  - VL  = VLC  TC  PD6 


ROOT  R-R/R-6  TO  P 0 1 2 

SHIFT  FROM  EARTH/MOUN  SPHERE  TO  B- 8 

RDfl  T*  * 2 B-l  6 X RATFVAR  Bl  2 


C-  FT  SINGLE  PRECISION  WARM  I N (B4121 
SHIFT  TO  OP  ( B -A  ) 

AND  SAVE  IN  ?40 

IS  MIN.  VARIANCE  > COMPUTFO  VARIANCE 
BRANCH  - MO 

YES  - USE  MINIMUM  VARIANCE 


ROOT ( POl 2 ) FROM  6-8/ B-6 
TO  3- 10/8- P 

SHIFT  TO  EARTH/MOON  SPHFRE 
8-7  TO  B-l  0/6-8 


ft- 3 3 

NOW  GET  BO 

( ULC  X VLC)  X ULC 

BO,  COMP.  IF  LM  PEING  CORRECTED 


SCALED  B-5 


ZERO  OUT  20  TO  25  IN  PUSHIIST 


LOAD  Bi  , GET  MAGNITUDE  AND  NORMALIZE 
SHIFT  COUNT  IN  200 


GAP: 

L 

3224 

3226 

3226 

3227 

322° 

32?Q 

323P 

3231 

3232 

3231 

323  a 

3235 

3236 

3237 

323P 

3?3o 

324' 

3241 

3242 

3243 

3244 

3245 

3?46 

3247 

324ft 

3249 

3253 

3251 

32  52 

3253 

3254 

3255 

3256 

3257 

325ft 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3266 

3269 

327" 

3271 

3272 
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PAGE  592 


P20-P25 


USER'S  PAGE  NC.  93  E7  S3 


REF 


REF 

RFr 

REF 

PFF 

REF 

REF 

PEF 

REF 


PFF 

REF 

PEF 

REF 


10 

I 1 
1? 


LAST 


LAST 

LAST 
I AST 


LAST 

LAST 


LAST 


I AST 

L AST 
LAST 
LA  ST 


26  ,2716 

591  26,  2717 

26.2  720 
26,2721 
26,  2722 
26  ,2723 

26.2724 

26. 2725 
26  ,2726 
26, 2727 
76,  2?  3n 

76.2  731 
26, 2732 
26  ,2733 

592  26,2734 
26,  27 ?5 

592  26,2736 

59?  26,7737 

'■  , 274 

26  ,2741 
592  26,  2742 

59  1 26,  2743 

76  ,2744 
26,  2745 
592  26  ,2746 

3 6,2  74  7 
26, 2750 
26  ,2751 
26,  2 7 c 2 
59  1 26,  2753 

26  ,2754 
590  26,  2755 

592  26,2756 

590  26,2757 


51575  1 
C3533  1 
71301  0 
00027  1 
00027  1 
50025  0 

o id ?c  < 

54731  0 
52150  1 
CCC26  0 
5 4 73  3 1 
77750  0 
0CC24  1 
53775  1 
03525  0 
20  2d  o 
27525  0 
03533  1 
77657  0 
20201  0 
17533  1 
03647  1 
77657  0 
2C2C1  0 
03547  1 
53745  1 
00C45  C 
20200  1 
41316  0 
0 2707  0 
47012  1 
21615  0 
36707  1 
55403  0 


VLOAO  ABVAL 

BVFCTCR  +60  LOAD  Pi  , GET  MAGNITUDE  AND  NORMALIZE 

NORM  3LUA0 

220  SHIFT  COUNT  IN  22D 

220  FINO  WHICH  SHIFT  IS  SMALLER 

OSU  BMN  BRANCH-  pn  HAS  SMALLER  SHIFT  COUNT 

200 
VO  K 1 

LXA,  1 GOTO 

220  LOAD  X2  WITH  THE  SMALLER  SHIFT  COUNT 

V0K2 

VPK1  LX  A , 1 

2 OD 

V OK 2 VLOAD  VSL*  THEN  ADJUST  B0,B1,0EITAC  AND  VARIANCE 

P.VELTOR  WITH  THIS  SHIFT  COUNT 

C ,1 

STOVL  BV ECTOR 

B VECTOR  +6 

VSL* 

0,  1 

STOOL  BVECTOR  +6 
3E  LTAO 

SL* 

0,1 

STORE  DEL  TAQ 

DLOAD  SL*  GET  RLC  AND  ADJUST  FDR  SCALE  SHIFT 

3 6D 

0 -1,1 

OSO  nMP  MULTIPLY  RL  C**2  BY  VARIANCE 

VAR  I ANCE 

SL4  RTB  SHIFT  TO  CONFORM  TO  8 VEC  TOR  S AND  0EL1AQ 

TPMODE 

STC  ALL  VARIANCE  ANO  STORE  TP  VARIANCE 

LGCUPDTE 


REF  12 

REF  lo 
REF  ) 
REF  7 
RFF  1 
REF  17 
PEF  8 
PEF  13 
REF  4 
PEF  14 
RFF  P 
RFF  15 
REF  55 


LAST  590 
LAST  589 
I AST  584 

LAST  569 
LAST  59  2 
LAST  584 
LAST  5H4 
LAST  592 
LAST  5P4 
L AST  592 
LAST  599 


26,  27 6r'  776  24  1 

26.2761  11216  1 

26. 2762  77414  0 

26. 2763  043C7  1 

26.2764  55200  0 

E7,  14  5 7 

26.2765  3 3334  0 

26,2  766  54  006  0 

26,  2767  3 1457  0 

26  ,2779  54  765  1 

26,  277  1 3 1460  1 

26. 2772  54  767  0 

26.2773  3 1461  0 

26,  2774  54  77  1 1 

26  ,2775  0 605  1 0 


CALL 

GRP2PC 

BON  EXIT  ARE  ANGLES  TO  BE  DONE 

SURFF  LAG 

RENCENC  NO 

E BANK=  A I G 

MXMYMZ  CAF  AIGHANK 

TS  BBANK 

CA  A I G YES,  COMPUTE  MX,  MY,  MZ 

TS  C DUS POT 

CA  A MG 

TS  CDUSPOT  *2 

CA  AOG 

TS  CDUSPOT  +4  GIM0L  ANGLFS  NCW  IN  CDUSPOT  FOR  T R G*N  HSM 

TC  INTPP-FT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L P20-P25 


3273 

3274  REF 

3275  REF 

3276 

3277  RFF 
3273  REF 

3279  RFF 

3280 

3231  PEF 

3282 

3283  REF 

3284  RFF 
3265  REF 

3286 

3287  REF 

3288 

3259  REF 

3290  RFF 

3291  REF 

3292 

3293  REF 
32  94 

3295  REF 

3296 

3297  REF 

3298  REF 

3299  REF 
3333 

3301  RFF 
330?  REF 
3303  REF 
3 304 

3335  REF 
3 306  RFF 
3307 
3’3« 

3309  REF 

3310 

3311 

3312 

3313  RFF 

3314 

3315  RFF 

3316  RFF 

3317 

3318  REF 

3319 

3320 

3321  REF 

3322 


4 

11 

2 

3 

2 

12 

2 

5 

3 

13 

2 


5 

2 


3 


2 

6 


10 


LAST  344 
LAST  260 

LAST  577 
LAST  149 

LAST  3j  5 

LAST  559 

LAST  593 
LAST  149 
LAST  345 

LAST  59  3 

IAST  593 
LAST  149 


LAST  590_ 

LAST  1 49 

LAST  593 
LAST  486 
LAST  593 

LAST  593 
LAST  486 
LAST  496 

L AST  583 

LAST  209 

LAST  149 

LAST  592 
LAST  59  3 

LAST  593 

LAST  59  1 


26, 2776 
26  ,2777 
2 6 , 3oOO 
26,  300  1 
26 ,300? 
26,  3GC3 
26,  3004 
26,3005 
26,  3006 
26  ,3Cf>7 
26,3010 
26,  30  1 1 
26  ,3012 
26,  30  1 3 
26,  30  1 4 
26,3015 
26,  3C16 
26  ,3017 
26,3020 
26,  30  2 1 
26  ,?022 
26,  3 >-  .?  3 
26,  30  24 
26 , 3 0?  5 
26, 3026 
26  ,3027 
26,3030 
26,  30  31 
. 

26,  3027 
26,  30  34 
26,3035 
26,  3036 
26,3037 
26,3040 
26 , 3 ; 4 1 
26  ,3042 
26, 3043 
26,  3044 
26,7045 
26,  3046 
? 6 ,3047 
26,3050 
26,  305  1 
26  ,3062 
26, 3C53 
26,  3n  54 

26.3055 

26. 3056 
26  ,3067 


45175  0 
06516  0 
47671  1 
765C5  0 
01732  0 
27677  1 
06514  1 
77624  1 
477C0  0 
76505  0 
01732  0 
27705  0 
06512  1 
77624  1 
47700  0 
76505  0 
C 1 732  C 
37713  0 
55363  1 
77331  0 
01354  1 
C '>  L C 3 1 
03724  0 
72441  0 
C3677  1 
24023  0 
03724  0 
7244  1 0 
03713  1 
34021  C 
26506  C 
41221  0 
C 3736  C 
15443  0 
4147?  0 
52545  1 
01701  0 
44257  1 
c 6 1 76  l 
53605  1 
03722  0 
2160  1 0 
2 7547  1 
0 3724  0 
76435  1 
C37C5  0 
77656  1 
57414  1 

0C747  0 
55060  1 


SHAFT  RO 


STCVL 

CALL 

VXM 

STO  VL 

CALL 

VXM 

STCAI  L 

SSP 

DEC 

DOT 

STOVL 

DOT 

STCALL 

8DSU 


CALL 
UN  ITX 
TRG*NBSM 
VSL 1 

R EFSMMAT 

MX 


UNI  TY 

5 NBSM* 

VSL  1 
KEFSMMAT 


*NBS,M* 

VS  L 1 

RFFSMMAT 

MZ 

RADARANG 
VLOAI) 
WHCHR  EAD 


ST  CVL 
VXV 


S INTH 
ULC 
SL  1 

MZ 

C OSTH 

ARCTAN 

UMP 

RRSHAFT 
2P  1/8 
PUSH 
SL  3 
X 789 
BDSU 
0.2 
SRR* 

P X 7 
0,  1 

DELTAQ 
ULC 
VSL  1 

MY 


UNIT 

BCFF  V COMP 

VEHUPFLG 
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PAGE  593 


USER  'S  PAGE  NO.  «4 


E 7 S3 


STORE  SHAFT  CODE  (3)  FOR  R3  IN  NOUN  49 


1 8D 


16  D 


SHIFT  FROM  —5/  — 3 TO  BO 


SHIFT  TO  FARTH/MCON  SPHERE 
EARTH  B-29.  MOON  R-27 


BO,  CO«P  . IF  C SM  PEING  CORRECTED 


9:12  CCT.  21 


97  0 


2 LFMP20S  .00  1 PAGE  594 
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L P 20-P25 


USER  'S  PAGE  NO.  95 


E7  S3 


1329 

3325 

3326 

3327 

3329 
3 329 

3330 

3331 

3332 

3333 
33  39 
3335 
3316 

3 3 3 y 
3338 
330 
339' 

3391 

3392 

3393 
3399 

3 395 

3396 

3197 


REF  19  L AST 
PFF  5 I AST 
REF  15  LAST 
PFF  16  I AST 
PFF  3 LAST 


REF  17  LAST 

PFF  1 

RFF  1 

REF  9 LAST 


REF  5 I AST 


PFF  9 LAST 

RFF  5 LAST 

REF  3 L AST 


592 

591 

599 

509 

503 


59  9 


599 


592 

592 

592 


2 e, 1C€C  27525  0 

26  ,3061  06521  0 

2&.3C62  03533  1 

26,  306-3  1759  1 1 

26,3069  03722  0 

26, it 6 5 ‘3657  C 

2 c 7 7 

26,3067  56176  1 

26, 3C7C  C 359  1 1 

26  ,1071  77735  0 

26 , 3 C 72  02  C 1 1 0 

26,  3073  91215  1 

26  ,3079  15990 

26, 3C75  037 22  0 

26,  3C76  91257  1 

26,3C77  21601  0 

26,  3 1C C C 3722  0 

26,3101  53657  0 

26,31  02  20577  0 

26, 3 1o  3 57  176  0 

26  ,3109  97057  0 

26,  3 1C  5 571  76  0 

26,  3 106  2 161  5 0 

26,1107  36707  1 

26, 3 1 10  559C  3 0 


STCVL  BVECTOR 
Z EROVEC  S 

STCRE  BVECTOR  *6 
STOOL  BVECTOR  + 12q 

axz 

SR*  SRP*  SHIFT  FROM  FARTh/MOON  SPHFRF  TO 

0 -2,1 

0,2 

STCRE  BVECTCR  *120 

SLOAO 

SHAFTVAR 
DAO  3 MP 

1MUVAP  R AD  ** 2 B 12 

RX  Z 

SftR  * 3 MP 

0,1  SHIFT  TO  FARTH/MOON  SPHERE 

RXZ 

SR*  SR* 

0 -2  ,1 

0,2 

SR*  RTB 

0 ,2 

TPMODF  STORE  VARIANCE  TRIPLE  PRECISION 

STCAI  L V AR  IANCF  R-40 

LGCUPDTE 


B-  25 


3348 

3349 

335: 

3351 


3359 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 
1363 
3 364 

3365 

3366 

3367 

3368 

3369 
33  7'.' 
3371 


REF  13  LAST 

RFF  ? LAST 

PFF  6 LAST 
RFF  5 LAST 

PFF  4 LAST 

REF  6 I AST 
REF  11  LAST 

RFF  18  LAST 
REF  6 LAST 
REF  19  LAST 
REF  20  LAST 
PFF  6 LAST 

REF  21  LAST 


26  ,31  1 1 

592  26,3112 

26, 3113 

593  26,3114 
26,  3 1 1 5 

593  26,  3 1 16 

26,3117 
593  26,3120 

26  ,3121 

593  26,3122 
26,  3123 

594  26,3124 
26,3125 

59  3 26,  3 126 

26,3127 
594  26,  3 130 

594  25,3131 

554  26,3132 

594  26,  3 133 

594  26  ,3134 

26, ? 

26. 3136 

26.31 37 
594  26,3140 


77624  1 
11216  1 

7 76  24  1 TR  UN 80 
55363  1 
77331  0 
01354  1 
00004  0 
03724  0 
76435  l 
03795  0 
76435  1 
03724  0 
57414  1 
OC747  0 
55130  0 
27525  0 
06520  0 
03533  1 
17541  1 
03722  0 
53657  0 
2C577  0 
56176  1 
03543  0 


CALL 

CALL 

SSP 

DEC 

VXV 

VXV 

BOFF 

STOVL 

STORE 

STGDL 

SR* 

STORE 


GRP2  PC 
R A DAP  AN G 

VLCAD  STORE  TRUNNION  CODE  (4)  FOR  R3  IN  N49 

WHCHREAO 
4 

ULC 
VSL  1 
MY 

VSL  1 (ULC  X MY)  X 

ULC 

VCCMP  BD , COMP.  IF 

VE  H UPF  LG 

*1 

BVFCTOR 
Z EROVEC S 
BVECTOR  +6 
BVECTOR  +1  2 D 
ft  XZ 

SRR*  SHIFT  FROM  EARTH/MOON  SPHERE  TU  B- 25 

0 -2,1 

0,2 

BVECTOR  +1 4 D 


ULC 

CSM  BFING  CORRECTED 
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L 

P20- 

•P25 

USER'  S PAGE  NO.  96  E7 

3372 

26,3141 

77735  0 

S LOAD 

337? 

P FF 

I 

26,  3 142 

C2012  0 

TRUNVAR 

337* 

2to, 3143 

41215  1 

DAD 

DMP 

3375 

PFF 

2 

LAST 

594 

26,3144 

15440  0 

I MUV  AR 

33  76 

PEF 

7 

L AST 

594 

26,  3145 

c 3722  0 

P.XZ 

3377 

26  ,3146 

41257  1 

SRP.* 

DMP 

3378 

26,31  47 

21601  0 

0,1 

SHIFT  TO  EARTH/MOON  SPHFRE 

3379 

REF 

8 

L AST 

59  5 

. 

0 3722  0 

R XZ 

3 380 

26  ,3151 

53657  ? 

SR* 

SR  * 

338  1 

. 1 

2C577  0 

0 -2,1 

33p2 

26, 3153 

571  76  0 

0 , 2 

3383 

. I • 

47057  0 

SR* 

RT  B 

338* 

26,  3 155 

57176  0 

0,2 

3385 

REF 

5 

LAST 

594 

. 

21615  0 

TPMODE 

STORE  VARIANCE  TRIPLE  PRECISION 

3386 

PEF 

10 

LAST 

594 

26,31 57 

16707  0 

STODL 

VARIANCE 

3387 

PEF 

2 

LAST 

149 

26,  3 160 

03732  1 

SI  NTHF  TA 

33R8 

26  ,3161 

44336  1 

AS  IN 

BDSU 

SIN  THETA  IN  PD6 

3389 

PFF 

3 

LAST 

583 

26,  3162 

C3734  1 

RRTRUN 

3390 

, 

56405  0 

DMP 

SL3P 

3391 

PFF 

2 

LAST 

593 

. 

15443  0 

2 P 1/8 

339? 

26,  3165 

52525  1 

POOL 

SL3 

3393 

RFF 

4 

LAST 

593 

,3  1 • 

01703  1 

X 7 89  +2 

33Q* 

26,3167 

44257  1 

SRP* 

BDSU 

SHIFT  FROM  -5/-3  TO  BO 

3395 

lb,  17 

56176  1 

0,2 

3396 

>6,3171 

53605  1 

OMP 

SRR  * 

3397 

REF 

9 

LAST 

59  5 

26,  3172 

C3722  0 

RX  Z 

3398 

. 1 ' 

21601  0 

0 , 1 

3399 

RFF 

7 

LAST 

593 

26,3174 

37547  0 

ST  CALL 

DELT AO 

EARTH  B-29.  MOON  B-27 

34DD 

PEF 

4 

L AST 

59  4 

26,  3175 

c 5 4C  3 0 

LGCUPOTE 

340 1 

26,3176 

77624  1 

CALL 

340? 

REF 

14 

LAST 

594 

26,3  177 

11216  1 

GRP2PC 

3403 

26 , 3 200 

77650  1 RENOEND 

GO  TO 

3404 

PEF 

l 

. 

50644  1 

R22LEM93 

R34D5 

FUNCTIONAL  DESCRIPTION 

R 34  Oft 

LSR22.4 

IS  THE 

ENT  PY 

TO  PERFORM  LUNAR  SUPFACF  NAVIGATION  FOR  THE  LM 

3 3407 

C.OMPUTF  R 

DNl  V. 

THI  5 

ROUTINE  CCNPUTFS  THE  R-VECTORS  AND 

DFLTA  0 FOR 

RANGE 

R34D8 

AND 

RANGE  RATE 

MEASURED  BY  TEE 

RENDEZVOUS  RADAR 

R 340  9 

SUBROUTINES  CALUED 

R 3 4 1 1 ' 

INSTALl 

LGC 

IP3TF 

I NCORPl 

KP-TO-R 

R301 

INTFGRV 

GFTULC 

1NC0RP  2 

* 3412  OUTPUT 

R3413  CORRECTED  CSM  STATE  VECTOR  (PERMANENT) 

R34H  NUMBER  OF  “ARKS  INCORPORATE!:  IN  “APKCTR 

T3A15  MAGNITUDE  CF  PDSITirN  OEVTATICN  (FOR  DISPLAY)  IN  R22DISP 

R3416  MAGNITUDE  OF  VELOCITY  DFVIATION  (FOR  DISPLAY)  IN  R220ISP 

R3417  UPDATED  W-MATPIX 


METERS  8-79 
+2  M/CSEC  P-7 
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P20-P25 

R3418  ERASAeLF  INITIALIZATION  PFQUIREO 

R3419  LM  ANO  CSP  STATE  VFO.TCPS 

R 34?  W-MATRIX 

R3«21  MARK  T IME  IN  MKT  IMF 

1 342?  P.AOAR  RANGF  IN  PF  vFTrPS  e-?9 

R3423  RANGF  <ATC  jn  ROOTM  MnFRS/CSEC  R- 7 

r3a2<v  VFHIJPFIG 


^ APE 
34?  7 
3428 
3 42  9 
34  3C 
343! 

3432 
343? 

3434 

3435 

3436 
34^7 

3433 
3430 
3440 
344  1 
344? 
3 44  T 

3444 

3445 

3446 

3447 
344  8 
3440 


REF  15 

REF  3 
REF  1 4 

REF  5 

RFF  15 

RFF  2 
REF  16 

REF  3 
RFF  1 

RFF  7 
REF  11 

PEF  1 5 
RFF  5 

REF  6 

REF  2 


LAST  589 

LAST  589 
LAST  589 

LAST  589 

LAST  595 

LAST  588 
LAST  596 

LAST  515 

LAST  589 
LAST  589 

LAST  596 
LAST  599 

LAST  596 

LAST  589 


2f-,  32C  3 

26  ,3  ?04 

26,3205 
26,  3 206 
26  ,3207 
26,  3210 
26 , 7 2 11 
26 , 3 ? 1 2 
26,  3213 
26  ,3>14 

26.3215 

26. 3216 
26  ,3217 
26, 3220 
26,  2221 
26,3222 
26,  3223 

26. 3224 

26. 3225 

26. 3226 
26  ,3227 

26.3230 

26. 3231 
26  ,3232 


274  10  1 
43014  0 
01472  1 

0U74  0 
77624  1 
c 5244  0 
77624  ] 
11216  1 
45C14  0 
02666  0 
274  10  1 
46U5  0 
0346?  0 
55233  0 
43014  0 
01675  1 
C 1 4 7 6 C 
43014  0 
014  74  ] 
0 1673  1 
77624  1 
55244  0 
77650  1 
54516  1 


LSR22.4 


CALL 

SET 

CALL 

CALL 

C LEAR 

OLflAD 

C LC  A ? 

SET 

CAl  L 
GQ  TO 


I NTSTALL 
CL  FAP 
ST  ATEFLC 
VI  NTF  LAG 

I NTGRCAL 

GPP2PC 
CALL 
DMENFL  G 
INTST ALL 
9-11  Z 
MARKCTR 
I NITWMX6 
SET 

06  PRO  FI  G 
DI  PC  F LAG 
CL  FAR 
V INT  FLAG 
I NTYPF  LG 

INTGRCAL 

RANGEBQ 


3450 

3451  RFF 

3452 

3453  REF 

3454  RTF 

3455 

3456  RFF 

3457 

34  68  PEF 


2 LAST  589 

16  LAST  596 

6 LAST  58  B 

7 LAST  596 

3 LAST  596 


26, 32?3  77624 

26.3234  55253 

26.3235  45014 

26,  3226  0 1474 

26,3237  26643 

26,3240  77624 

26,  ?24  1 6 6244 

26,3242  77650 

26,  3243  54516 


1 I N1  TWMX6  CALL 

0 

0 SET 


1 CALL 

0 

1 GOTO 

1 


WLINI T 
CALL 

VI  NTF  LAG 
SET  IFLGS 

I NTGRCAL 

PANGEBC 


R 3 45°  THIS  ROUTINE  CLEARS  RFINAL  (CP)  ANO  CALLS  INTEGRV 


3460 

3461 

3462 


PEF 

RFF 


LAST  583 


26,3244  71  ? 2 0 l INTGRCAL  ST  Q DLOAC 

26,  3245  03675  0 IGRET 

26  ,3?46  03755  0 mkTIME 
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USER'S  PAGE  NO.  97 


E7  S3 


CALL  TO  GET  LM  POS  + V EL  IN  REF  COORD. 


SET  MATRIX  SIZE  TC  6X6  FOR  INCORP 
IS  THIS  FIRST  TIME  THROUGH 
YES.  INTT  IAL  IZE  6X6  W-MATP  IX 


INI  TIALIZE  W-  MA  TP  I X 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


L P 20- P 7 5 


3463 

3464 
1465 
■*£.66 


REF  1 8 LAST  583 
RFF  8 LAST  509 

REF  2 LAST  506 


26, 3247  34041  0 

26  ,3250  27133  j 

26.3251  77650  1 

26. 3252  03675  0 


STCALL  TDEC1 

INTEGR  V 

GOTO 

IGRE  T 


ALL  W THEN  SFTT  ING 


3469  RFF  4 

3470 

3471  PFF  1 

347 2 RFF  18 

3473  REF  1 

3474  RFF  1 

3475  REF  126 

3476  REF  2 

3477  RFF  5 

347R  RFF  3 

3470 

3480  PFF  2 

3481  REF  19 

3482  REF  56 

3483 

3434  REF  11 

3485  REF  1 

3486  RFF  2 

3487 

3488  RFF  1 

348Q 

3490  RFF  1 

3401 

3492 

3493  REF  6 

34 04  RFF  7 

3495  REF  8 

3496 

3497  RTF  12 

3498  RFF  1 

3400  ref  1 

3533 

3501  REF  1 

350  2 

3533  PFF  1 

3504  RFF  O 

350  5 PEF  10 

3506  RFF  11 

35C7 

3508  REF  1 

*50Q  RFF  12 

3510 


LAST  131 


LAST  592 


LAST  589 
LAST  597 
LAST  597 
LAST  507 

LAST  592 
LAST  597 
LAST  59  2 

LAST  592 


LAST  120 


LAST  597 
LAST  507 
LAST  59  7 

LAST  597 


LAST  597 
LAST  597 
LAST  59  7 


LAST  597 


26.3253 

26. 3254 
26  ,3255 
26 , ^ 256 
26, 3257 
26,3260 
26,  3261 

26.3262 

26.3263 

26. 3264 

26.3265 

26.3266 
26,  3267 

' ,2  '7 

26,  3271 

26.3272 

26.3273 

26. 3274 
2<  , 3 2 7 r 
26,3276 
26,  3277 
26  ,3  300 
26, 33CI 

26,  3 302 

■ 

26, 3304 
26  ,3305 
26,3306 
26,  3 307 
26  ,3310 
26,  3311 
26,  3312 
26,331 3 
26,  3314 
26  ,3715 
26,33  16 
26,  3 ? 1 7 
’ . 

26, 3321 

26,  3322 

. 


77776  1 
■ 3233  1 
54  006  0 
3 3441  0 
54  130  1 
3 4755  1 
5 C 130  0 
55*400  0 
in  130  1 
0 3257  1 
3 3334  0 
54  CC6  0 
0 6C5  1 0 
67214  1 
043C7  1 
55276  1 
02001  1 
17650  1 
55300  1 
77735  0 
02007  1 
77661  0 
2C6C6  0 
C24C1  0 
02411  1 
02421  1 
67214  1 
04307  1 
55213  0 
02002  1 
176 5C  1 
55315  0 
77735  0 
C2C10  1 
02511  0 
02521  0 
02521  1 
77735  0 
C2CC3  0 
02621  0 
77735  0 


EBANK=  W 
WLINIT  EXIT 

CAF  WBANK 

TS  RRANK 

CAF  WSIZE 

TS  W.  IND 

CAF  ZERO 

INOEX  W.  I NO 

TS  W 

CCS  W.INO 

TC  -5 

CAF  AIGRANK 

TS  BBANK 

TC  INTPRFT 

BON  SLOAD 

SURFFLAG 
WL  SRFPOS 
W R ENDPOS 

GOTO 


WPOSTORE 

WLSRFPCS  SLOAD 

WSORF  POS 

WPGSTORF  SR 


STORE  W 

STORE  W +8  D 
STORE  K + 1 6D 
BON  SLOAO 

SURFFLAG 
WL  SRF  VFL 
WP  ENDVEL 

GOTO 

KVFLSTOR 

WLSRFVEL  SLOAD 

WSURFVEL 

WV  EL  ST  OR  STORE  W + 720 
STORE  W +80  D 
STORE  W +880 
SLOAD 

WSHAFT 

STORF  W +1440 
S LOAD 
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USER  *S  PAGE  NO.  98 


E7  S3 


RESTORE  FBANK  7 


IF  ON  LUNAR  SUR  FAC  E , I NI  T I A LI  ZE  WITH 
WSURFPOS  AND  WSURFVEL  INSTEAD  OF 
W«  END  POS  AND  WP  ENDVEL 


SHIFT  TO  B-  19  SCALE 


',Ap:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2 FPL  IN  A PY  ZOROASTER 


P2P-P2S 


3511 

351? 
3513 
351  A 
3515 

351  5 
3517 


PEF 

PEF 

pF  F 
PFF 


13  LAST 

8 LAST 
ft  LAST 


26, 33?ft  0200ft  1 

5p7  26,3325  02631  1 

26,  3326  6621ft  0 

589  26  ,3327  0?ft76  0 

596  26,3330  03ft63  O 

26,3331  OOOCO  1 

26  ,3332  77616  0 


WTRUN 

STORE  W +152C 
SET  SSP 

R ENOWFLG 

MARKC.TR 

0 

RVQ 


35?  > 
3521 


REF  1ft  LAST  598 

PFT  3 LAST  536 

RFF  9 L A S 1 592 

RFF  2 LAST  515 


E7  ,1  ft57 
26,  3H^ 


E BANK=  W 

5ft065  C WB  AN<  3BC0N  WLINIT 
EBANK=  A I G 

5 ftC  6 7 1 ATGRANK  8BC0N  ISR22.3 


R 352?  GETULC 


R 3523  THIS  SUBROUTINE  COMPUTES  THE  RELATIVE  POSITION  VFCTOR  BETWEEN  TEE  OS  M 

R 3 5 ? ft  ANC  T F F L V , I^AVlNC  T HF  UNIT  VFCTnp  IN  THF  PUSHLJST  A NO  MPAC  AND  THF 

3 3575  MAGNI  TUOF  IN  360. 


m 

3528 

3529 

3536 

3531 

353? 

3533 

353ft 

3535 

3536 
35^7 

3538 

3539 
35ftf 
35ft  I 
35ft  7 
35  A3 
3 5ft  ft 
35ft  5 
3 5ft  6 
35ft  7 

R35ft9 


REF  1 

RFF  3 1 AST 

REF  2 LAST 

RFF  1 

PEF  1 

REF  1 

RFF  7 LAST 

REF  8 LAST 

RACARANG 


559 


5C9 


59ft 


598 


, 

26,333  7 
26,  3 3ftO 
26  , 3 3ft 1 

?6,33ft2 
26,  3 3ft  3 
26  ,33ftft 
26,  3 3ft  5 
26,  3 3/,6 
7 6,3  3ft  7 
26,  3350 
26  ,?  35  1 
26,3352 
, 5 ' 

26  ,335ft 
26,  3 355 
26,  3 356 
26,3357 
26, 7360 
26 ,336  1 
26,3362 


772CI  1 
G00C1  0 
01 6ft5  1 
7775ft  1 

03720  1 
53257  1 
57165  1 
01661  1 
53715  1 
01573  1 
57165  1 
52255  1 
016C7  1 
ft  1 ft  3 ft  1 
51706  0 
1 77?ft  0 
0CCft5  0 
77657  0 
20201  0 
2ftCft5  C 
0 37  2ft  0 
77616  0 


GETULO  SETPD 

LXA,2 

VSR* 

PO  VL 

VAO 

RTB 

STOOL 

SL* 

STOVL 

RVQ 


VLCAO 

C 

DELT  AL  EM 

SCAL  SHF  T 
VAD 
90  ,2 
R C VL EM 
VS  P* 

DELTAC  SM 
9 0,  ? 

VSU 

R C VC  SM 

PUSH 

NORMUNXl 

JLC 

360 


0,  1 
-3  60 
ULC 


3 35ft9  THIS  SUBROUTINE  COMPUTES  SINTFETA  = -ULC  COT  MY 

R355  i RXZ  = (SORT  ( l-SINTHE  TA**  2)  ) RLC 

R3551  OUTPUT 

3 355?  ULC  IN  ULC,  POO 

R3553  RLC  IN  PC360 

R 3 55ft  SIN  THETA  IN  SINTHETA  AND  P 06 
R 3555  RXZ  NORM  IN  RXZ  IN  IN  XI) 


9:  12  OO  T.  21,  1 97C 


ZLEMP20S.U01 


PAGE 


590 


USEP'S  PAGF  NO.  99  E5  S3 

SET  RENDWFLG  - W-MATRIX  VALID 
SET  MARK  COUNTER  EQUAL  ZERO 


LOAD  X?  WITH  SCALE  SHIFT 
SHIFT  FOR  FARTH/MCCN  SPFFRE 

SHIFT  FOR  FA3 TH/MOON  SPHERF 

USE  NORMUN  IT  TO  PRESERVE  ACCURACY 

ADJUST  MAGNITUDE  FROM  NORMUNIT 
ULC  IN  PD?  AND  MPAC,  RLC  IN  360 


: 


SSF  MR  LE  REVISION  56  CF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 
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L P20-P25 


USER'S  P AG F NC.  100 


3558 

3555 

3560 

3561 

3562 

3563 
3 564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 
357*. 
3575 
3 576 
35  7 7 

3578 

3579 
358r 
3581 
3 5 8? 
3583 
3534 

3585 

3586 

3587 

3588 
8589 

3590 

3591 

3592 

3593 
3596 

3595 

3596 

3597 

3598 

3599 

3600 
3633 
36(1 
360? 

3602 

3603 


R FF 
PFF 

REF 

RFF 

REF 

RFF 

RFF 

REF 

R FF 
REF 

REF 

RFF 

RFF 

PFF 

REF 

RFF 

R EF 
RFF 

REF 

REF 

REF 

PFF 

REF 


RFF 


2 

3 


4 

10 

3 


1 

3 

4 


1 


1 
6 

2 


31 


LAST  149 
LAST  590 

LAST  594 

LAST  595 

LAST  508 

LAST  590 
LAST  595 

1 AST  599 

LAST  515 

LAST  130 

LAST  598 

LAST  320 
LAST  599 

LAST  599 

I A ST  599 

LAST  599 
LAST  599 

LAST  599 

LAST  588 


26,3364 
26,  3365 
26  ,3366 
26,  3367 
26,  3 370 
26,3171 
26, 3372 
26  ,3373 

26.3374 

26. 3375 
26  ,3376 
26,  3377 
26,  ■’400 

26.3401 

26. 3402 
26  ,3403 
26,3404 
26,  340  5 
26  ,3406 
26,  34C7 
26,  34 10 
26,3411 
26,  ’412 
26  ,3413 
26,3414 
26,  34  15 

. 

26,  34  17 
26,  34  20 
26,3421 
26,  3422 
26  ,3423 
26,3424 
76,  34  25 
26  ,3426 
■ 

26,  34  30 
26  ,3431 
26,343? 
26, 3433 
26  ,3434 
26, 3435 
26,  34  36 
26  ,3437 
26, 3440 
26  ,3441 
26,3442 
26,  344  3 
E7 ,1456 


0 367  5 0 
“.  335  1 
50276  1 
C37C5  0 
41  5 72  1 
03732  1 
44316  0 
06510  0 
41366  1 
0CC45  0 
60352  0 
0C047  1 
03722  0 
77650  1 
0367*  0 
45020  1 
03675  0 
46527  0 
51  575  1 
C2673  1 
53754  1 
0372C  1 
56174  0 
24317  1 
0266  5 0 

5 3646  0 
56174  0 
0C315  0 
54335  0 
02005  0 
2C613  1 
50025  0 
00315  9 
506 5C  1 
45335  0 
02C06  C 
00317  1 
77640  0 
50650  1 
77624  1 
46741  1 
7765C  1 
036  75  0 
00103  0 
C 3 3 7 0 0 
1 1 

21103  1 

36652  0 


R A CAR AN G 


LGCUPDTF 


AS  TO* 


I Pi  IV  A R 
WS  IZE 

2 pi  /a 


STQ  CALL 
RORET 
3E  TULC 
V COMP  DOT 
MY 

SL1R  PUSH  SIN  THETA  TO  P06 

STORE  S INTHETA 
OSO  BO  SIJ 

DP  I/4TH  1 - ( SI  N THE  TA } **  2 

SORT  !)MP 

3 60 

SL1  NORM 

XI  SET  SHIFT  COUNTER  IN  X 1 

STORE  RXZ 

GOTO  EXIT 

RDRFT 

STQ  CAIL 
l GRET 
I NC  OR  Pi 
VLOAO  ABVAL 

DELTAX  +6 
L XA  , 2 SR  R * 

SCALSFFT  0-M0L1N.  2-EA^TH 

2,2  SET  VEL  DISPLAY  TO  R-7 

STOVL  R 220ISP  +2 
DELTAX 
ABVAL  SRR* 

2,2  SET  PD S DISPLAY  TO  B-?9 

STORE  R22DISP 
SLOAO  SR 

R MAX 
100 

OSU  BMN 

R22DISP 

R22LEM96  GO  DISPLAY 

SLOAO  OSU 
V MAX 

R22DISP+2  WAX  MINUS  VEL.  DEVIATION 

BMN 

R22LEM96  GO  OISPLAY 

CALL 

INC0RP2 

GOTO 

LGRF  T 

2 CEC  E-6  812  RAD**2 

DEC  161 

2 DEC  3 .141592653  B-2 

EBANK=  LDSCOUNT 


b 5 S3 


SAP:  AS.Ff-P.L6  RFVISICN  S o OF  AC.C  P»  C GRAM  ZEPL1NA  HY  ZOROASTER 


5:12  OS!.  21,1070  ZIFHP21  S.OOl  PAGE  SCO 
USER'S  PAGE  NO.  101  E?  S3 


CATE  1-15-67 

R36D6  FUNCTIONAL  (RESCRIPT  ION 

R 3607  OPIVES  THE  PENCF7VCUS  RADAR  IN  A HEXAGONAL  SEARCH  PATTERN  ABOUT  THE  LOS  TO  THE  CSW  (COMPUTED  FRCP  THE  CSM  AND  LM 
R360O  STATE  V6C  TOP  S ) CHECKINS  : OR  THE  DATA  GOOD  DISCRETE  AND  MONITORING  THE  ANCLE  BETWEEN  THE  CACAR  B03ESIGHT  AND  THE 

R3  6 1 1 LM  *Z  AXIS.  IE  THIS  ANGLE  EXCEECS  30  DEGREES  THE  PREFERRED  TRACKING  ATTITUDE  ROUTINE  IS  CALLEC  TO  PERFORM  AN 

3 3613  ATTITUDE  MANEUVER. 

R3S 1 4 CALLING  SEQUENCE  - RANKCALL  FOR  LR  S24.  1 


R 361  5 SUBRCIJTI  NES  CAI  L^C 


am 

3 361  R 
R361? 
R362  . 


L EMC ON  I C 
CSM  CONIC 
JOBDELAY 
WAITLIST 
PRNH 


R61LE  M 
RRDESSM 
FLAGDCWN 
FLAG  UP 
EANKCALl 


TO  FNDOFJOB  WHEN  THE  SEARCH  FLAG  (SRCHCPT)  IS  NOT  SET 


3 3673 
R 3 S ?4 
R 3625 


DATAGOCD  (SP)-FCR  DISPLAY  IN  F!  - OOOO'1  IN  C IC  AT  ES  NO  LOCKON 

11111  INDICATES  LOCKON  ACHIEVFD 

C MEG  AO  (S  P)  -FOR  DISPIAY  IN  R2-  ANGLE  BETWEEN  PR  BORESIGHT  VECTOR  AND  THE  SPACECRAFT 


3 3627 
R3628 
R 362R 
R 3630 


ERASABLE  INITIALIZATION  REQUIRED 
SEARCH  FLAG  MUST  RE  SET 

LM  AND  CSM  STATE  VECTORS  ANT  RE  FS  MM  AT  MATRIX 


R 3 6 3 1 
3 3632 
R3633 
R363A 
3 3635 


RLMSRCH 
V XP  L M 
LO  SDESRD 
DAT AGOOO 
MPAC 


UXVECT 
UYVEG T 
NSRCHPNT 
CM  EC-AD 
P U SH  L I ST 


3636 

3637 
363B 

3639 

3640 


PEF  I 
REF  127 
R EF  2 
PFF  55 


LAST 

LAST 

LAST 


597 
14  8 
574 


26. 3446 

26.3447 


3 4755  1 
c-  5 ' 736  0 
3 4736  1 
0 0006  1 


COUNT*  J.S/LP-S24 
CAF  ZERO 

TS  NSRCHPNT 

CAF  3 I T 14 

EXTEND 


TAP  : 


AS  SE  M3  LF  RFVISIGN  ^b  OF  AGC  PROGRAM  ZERL INA  BY 


L P20-P25 


3691 

REF 

39 

LAST 

576 

26, 3650 

C 5 C 1 2 

1 

3662 

RFF 

1 

26,3651 

3 6736 

1 

3S63 

P.EF 

1( 

L AST 

561 

26,  36  5 2 

7 CC  76 

1 

3 666 

26,3653 

0 0006 

1 

3665 

REF 

93 

LAST 

561 

, 

1 5155 

1 

3666 

REF 

1 

26, 3655 

2 3715 

1 

3667 

26  ,3656 

0 0006 

0 

3568 

RFF 

26 

LAST 

573 

26,  3657 

C 5216 

0 

3 66Q 

REF 

32 

LAST 

599 

E7, 1656 

3650 

REF 

3 

LAST 

52  5 

26,3660 

03665 

0 

3550 

26,  3661 

56C67 

1 

3651 

26  ,366? 

0 0003 

1 

3652 

RFF 

S 8 

LAST 

582 

26 ,3663 

6 0110 

0 

3653 

RFF 

6 

1-  AST 

555 

26, 3666 

7 6736 

0 

3656 

26  ,3665 

0 0006 

1 

3655 

RFF 

96 

LAST 

60  i 

26, 3666 

1 5155 

1 

3656 

REF 

57 

LAST 

597 

26, 3667 

0 6C51 

0 

3657 

26,3670 

63236 

0 

3668 

REF 

12 

L AST 

527 

26,  367  1 

21555 

1 

3659 

REF 

1 

26  ,3672 

15717 

1 

3660 

RFF 

1 5 

LA  ST 

597 

26,3673 

36061 

0 

3661 

REF 

L AST 

577 

26, 3676 

2 7C:  7 7 

1 

3662 

26  ,3675 

77775 

1 

3663 

REF 

7 

LAST 

577 

26,  3676 

COCCI 

0 

3666 

RFF 

6 

LAST 

152 

26,  3677 

27676 

0 

3665 

REF 

3 

LA  ST 

577 

26,3500 

00007 

0 

3666 

RFF 

l 

26,  3501 

17760 

1 

3667 

RFF 

6 

LAST 

577 

26  ,3502 

00015 

0 

3668 

REF 

20 

LA  ST 

601 

26,3503 

36061 

0 

3669 

PEF 

3 

LAST 

577 

26,  3506 

27C65 

1 

3670 

2h  ,3505 

52375 

1 

3671 

REF 

8 

LAST 

6C  1 

26, 3506 

CC0C1 

0 

3672 

RFF 

6 

LAST 

60  1 

26,  350  7 

03676 

0 

3673 

26,3510 

77656 

1 

3679 

REF 

2 

L AST 

168 

26,  3511 

27712 

0 

3675 

RFF 

6 

LAST 

601 

26  ,3512 

00007 

0 

3676 

26,351  3 

67256 

0 

3677 

REF 

Q 

L AST 

60  1 

26,  35  16 

00 00 1 

0 

3678 

26  ,3515 

77656 

1 

3679 

REF 

2 

LAST 

168 

26,  3516 

C37C6 

1 

3680 

26,  35  17 

52  3 75 

1 

3681 

RFF 

5 

LAST 

601 

26,3520 

00007 

0 

358? 

REF 

2 

L AST 

60  1 

26,  352  1 

C 3760 

1 

3683 

, 

76521 

0 

3686 

RFF 

16 

LAST 

553 

26,3523 

0173? 

0 

3685 

REF 

3 

L AST 

60  1 

26, 3526 

03760 

1 

3686 

26  ,3525 

53135 

0 
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WOR  :HAN12 

CAF  S RCHOBIT  CHECK  IF  SEARCH  STILL  REQUESTED 

MASK  FLAGWRD2  (SRCHOPT  FL  AC  S ET  ) 

FXTEND 

BZF  ENDOFJ OB  NO-TERM  INATE  JOB 


CAF  6SEC0ND  S SCHEOULE  TASK  TC  CHIVE  RADAR  TO  NEXT  PT  . 

INHINT 

TC  WAITLIST  IN  6 SECONDS 

F3ANK=  LOSCOUNT 
2 C ADR  CALI  DGCH 


RELINT 

CS  PADMODES  IS  REMODE  IN  PROGRESS 

MASK  REMUDRIT 

EXTEND 

BZF  FNDOFJOR  Y FS  - WAIT  SIX  SECONDS 

TC  INTPRET 


RTB  DAC 

LOADTI MF 
1.5SEC  S 

1 STCALL  TDEC1 

LE  MC  ONI  C 

VLOAD 

KATT 

STOVL  RLMSRCH 
V ATT 

STCDL  SAVLFMV 
TAT 

STCALL  T0EC1 

C SMC  ONI  C 
VLOAD  VSU 
PATT 
RLMSRCH 

UNIT 

STOVL  LOSDESRD 
VATT 


UNIT  VXV 
RA  TT 

UN  IT 

STORE  VXRCM 
VLOAD  VSU 
V ATT 
SAVLEMV 
VXV  VSL  1 

REFSMMAT 
STORE  SAVLFMV 
SLOAD  BZE 


COMPUTE  LOS  AT  PRESENT  TIME  +1.5  SEC. 


EXTRAPOLATC  LM  STATE  VECTOR 


SAVE  I EM  POSITION 

SAVE  LEM  VELOCITY 

EXTRAPOLATE  CSM  STATE  VECTOR 
EXTRAPOLATE  CSM  STATE  VECTOR 
LOS  VECTOR  = R(CSMI-RILM) 


STORE  DES  IRED  LCS 

COMPUTE  UNIT(VICM)  CPCSS  RICH)  J 


CONVERT  FROM  PFFFRFNCE  TO  STABLE  MEMBER 

VLC  = V ICSM)  - V (LM) 

CHECK  IF  N=  0 


CAP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLlNA  BY  ZOROASTER 


L P2C-P25 


3687 

3688 
3639 
3690 

369  1 
369? 
3693 
36  9 A 

36  95 

3696 

3697 

3698 

3699 
3733 

370  1 
37f  ? 
3793 
3709 
3705 
3 7‘  - £ 
3707 

7 8 
37T  O 

37  1 n 
3 711 

3712 

3713 
3 71A 
37  1 6 
3716 

371  7 

3718 

3719 

3720 

3721 

3722 

3723 
37?8 

3725 

3726 

3727 
3 7?  fl 

A37?Q 
3 73 1 • 
3731 
373? 
3733 
3739 


RFF 

PFF 


RFF 

PFF 


REF 

REF 

REF 

RFF 

PEF 

RFF 

PEF 

P EF 
REF 

PEF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

KEF 

RFF 


REF 

PFF 


? 

2 

2 

9 


3 


15 

12 


l AST  600 


LAST  198 
LAST  198 


LAST  60? 
I AST  602 


LAST  6?  2 

I AST  602 
LAST  6?  2 

LAST  60  2 
LAST  602 
1 A ST  60  2 

LAST  692 
LAST  602 

LAST  60? 


LAST  601 

LAST  60  1 

LAST  589 
LAST  601 
LAST  577 


I AST  577 
LAST  577 


26. 3526 

26.3527 
352 

. 

26.3532 

26. 3533 
26  ,3539 

26.3535 

26. 3536 
26  ,3537 
2 • . 3 c 9 • 
26, 3591 
26,359? 
26, 3583 
26  ,3589 
26,3585 
26 , -3  586 
26  ,3597 
26, 3550 

. 

26,3552 
26,  3 c 5 3 
26  ,3559 
?6f 3555 
26, 3556 
26  ,3557 
26,  3560 
. 

26 ,356? 
26,  3563 
26  ,3568 

26.3565 

26. 3566 
26  ,3567 
26,  3570 
56,  3571 

26.3572 

56. 3573 
26  ,3578 

26.3575 

26. 3576 
26  ,3577 


0 3737  1 
55690  0 
53025  0 
15713  0 
55625  0 

77775  1 
0372C  1 
29015  0 
0 3726  1 
0CC23  9 
77761  1 
1S7C7  r 
27720  1 
0GC15  0 
53361  C 
065  16  0 
0 37  5f  1 
77656  1 
27720  1 
00015  0 
77761  1 
1S7C7  0 
27726  1 
00023  0 
52361  1 
06516  0 
C 3 726  1 
77656  1 
03726  1 
53361  0 
15711  1 
0 3712  0 
68256  1 
0173?  0 
77772  0 
25101  0 
03790  1 
C 1 7 5 7 0 

77776  1 
C 0009  0 
C 6032  0 

52573  1 


OFFCALC 


CONTDFSG 


N SRCHPNT 
OESGLOS 
OSU  BZfc 

ONE  OCT 
CALCXY 

VLOAD 

UXVECT 

STCVL  UXVFCTPR 
UYVCC  T 

STORE  JYVECTPR 
VX  SC 

SI N600EG 
STCVL  JXVECT 

UXVECTPP 
VXSC  VAO 

COS60 DEG 
UXVEC  T 

UN  IT 

STCVL  UXVECT 

UXVFC  TPR 

VXSC 

SI  N600EG 
STCVL  UYVFCT 

UYVECTPR 
VXSC  VSU 

C0S6CDEG 

UYVECT 

UNIT 

STCRE  'JYVECT 
VXSC  VAI) 

DFFSTFAC 
LOSDESRO 
UNIT  M X V 

REFSMMAT 

VSL1 

STCVL  PP  TARGET 
S AVL  EMV 
STORE  LCSVEL 
EX  IT 
INHINT 

TC  KILL  TASK 

C A OR  DESLDOP  +2 


REF  2 
RFF  99 
REF  3 
PEF  100 
R FF  58 


LAST  27  5 
LAST  601 
L AST  60  2 

1 a 1 

LAST  601 


26, 3600 
26,36C1 
26,  3602 
26  ,360  3 
26,3609 


8 8735  0 
7 0110  0 
6 8735  1 
58  110  0 
0 6051  0 


CON  TOE  S2 


CS  CDESBIT 

MASK  RADMODES 

AO  COESBIT 

TS  RADMODES 

TC  INTPRET 


3 735 


26,  3605 


77628  1 


CALL 


1 : 1 2 OCT.  21,1970  Z LE  “P2C-S.  001 


PAGE  602 


USER’S  PAGE  NO.  103  F7  S3 


YES-DESIGNATE  ALONG  LOS 
IS  N=  1 

YE  S-CALCULATE  X AND  Y AXES  CF 
SEARCH  PATTERN  COORDINATE  SYSTEM 
NO-ROTATE  X -Y  AXES  TO  NEXT  SEARCH  POINT 

SAVE  ORIGINAL  X AND  Y VECTORS 
UXPPI  ME  = ORIGINAL  UX 
UYPRIME  = ORIGINAL  UY 

UX  =(COS  6DUXPP  + ( SI  N 601UYPP 


UY=  (-SI  N60)  UXPR  4(CCS  6f)UYPR 


OFFSET  VECTOR  = K (UY  ) 

LOS  VECTOR  OFFSET  VECTOR  DEFINES 
DESIRED  POINT  IN  S EARC H P A TTERN 

CONVFRT  TO  STABLE  MEMBER  COORDINATES 


KILI  ANY  PRESENTLY  HAITI  ISTEC  TASK 
WHICH  WOULD  DESIGNATE  Tfl  THF  LAST 
POINT  IN  THF  PATTERN 

SET  BIT  15  OF  RADMODES  TO  INDICATE 
A CONTINUOUS  DESIGNATE  WANTED. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTE 


L P20-P25 


3736  REF 


LAST  519  26.36C6  5236^ 


RRCESSN 


3737 

3738  PFF 

3739  RFF 


2 LAST 


6P  3 


26,3607  77776  1 

26  ,3610  0 3677  1 

26,  36  11  C 3677  1 


EXIT 

TC  l IMALAKM 

TC  LI  PAL  ARM 


A 3 74  0 
A 3741 

3742 

3743 

3744 
3 74  5 

3746 

3747 

3748 
3740 

3750 

3751 

3752 


RFF  13 
RFF  8 
REF  59 

REF  3 

REF  3 
RFF  55 


LAST  582 
LAST  583 
LAST  60  2 

LAST  583 

LAST  1 4 fl 
LAST  601 


26,  36  12 
26  ,3613 
26, 3614 
26,  36  15 
26,3616 
26,  3617 

26.3623 
26,3621 
26, 36  2 2 
26  ,3623 

26.3624 


f 0006  1 
3 0036  1 
5 3' 153  0 
0 6051  0 
77624  1 
46C41  0 
65545  0 
00045  0 
03735  0 
77776  1 
0 5155  0 


OMEGCALC  EXTEND 
OCA 
DXCH 


CDUT 
TANGNB 
I NTPRE  T 


RRNB 
DI-OAD  ACDS 
36  0 

STORF  DMEGOISP 
EX  IT 

TC  ENDOFJOB 


9:12  OCT.  21,1970  ZLEMP20S.0d  PAGE  603 


USER'S  PAGE  NO.  1 04  E7  S3 

DESIGNATE  RADAR  TO  RR  TARGET  VECTOR 

LOS  NOT  IN  MODE  2 COVERAGE  (P22) 
VEHICLE  MANEJVER  REQUIRED  ( P 2c  > 


COMPUTE  OMFGA, ANGLE  RETWEEN  RR  LOS  AND 
SPACECRAFT  +Z  AXIS 


OMFGA  IS  ARCCOSINE  CF  Z-CCMPONENT  OF 
VECTOR  COMPUTED  BY  RRNB  IlEET  AT  32D) 
STORE  FOR  DISPLAY  IN  R2 


ASSEMBLE  REVISION  56  0 F AGC  PKGGRAM  ZFRLINA  BY  ZOROASTER 


P20-P25 

CALCULATF  > A NO  y VFCTORS  FOR  SEARCH  PATTERN  CFORDINATE  SYSTEM 


l75<. 
3755 
37  56 

3757 

3758 

3759 

3760 

3761 

3762 

3763 
3766 


,, 

• 

26f  3677 

26  ,3630 
26,3631 
26,  3632 
, 

26, 36  34 
26,  1635 

. 

26,  36  37 


67375  0 
03  704  1 
C3112  0 
77656  l 
27720  1 
C3712  0 
53435  0 
03720  1 
0.3  72  6 1 
7765C  1 
55563  1 


VXV 
VXRCM 
l OSPFSRP 

UXVECT 
lo sag SRD 
JN  IT 
UXVECT 
UYVEC  T 

OFFCALC 


3765 

3766 
3 76  7 

3768 

3769 


REF 

KEF 


16,364 

, 

26,  364  2 

26.3643 

26. 3644 


64375  I 
03712  C 

01732  C 
52172  1 
55571  1 


DESGLOS  VLOAD 


*»  XV 

LOSHESRO 
REF SMMA  T 
GOTO 

COMDESG 


’770 

3771 

377? 

3773 

3774 
177* 

3776 

3777 

3777 

3778 


KEF 

REF 

REF 

REF 

PEF 

PEF 

KEF 


LAST 

LAST 
LAST 
LAS  I 
LAST 


26.3645 

26.3646 
26,  1647 
26  ,3650 

I 

26,  3652 
F 7 , 1 675 
26,  3653 
26,  1654 
26  ,3655 


30  "74  1 
7 4745  1 
C 0C06  1 
1 5272  1 


03656  1 
54067  1 
C 5272  0 


TALI  OGCH  CAE  FI  AGWRPC 
MASK  RNDVZBIT 
EXTEND 

8ZF  TASKUVER 
CAF  PRIC25 
TO  F I ND  VAC 

FBANK=  RIMSRCH 
2 C ADR  OATGDCHK 


TC 


T ASKOVER 


>7  76 

3780 

3781 
3 782 

3783 

3784 
3 785 

3786 

3787 

3788 
378Q 


PEF 

PEF 

RFF 

RFF 
REF 
P EF 


24  L AST 
19  LAST 


LAST  525 


26, 3656 
26  ,3657 
26, 3660 
26,  366  1 
26,3662 
26,  3663 
2 6,  3664 
. 

26,  3666 
26  ,3667 
26,3670 


4 7 50  1 

0 0006  l 
C 2 C 33  0 
C 0G06  1 

1 3671  0 
4 6254  0 
6 1 736  1 
C 0006  1 
1 3444  1 
25 ' 736  1 
1 3446  0 


PATGOCHK  CAF  PI  T4 

EXTEND 

RAND  CHAN33 
E XTEND 

8ZF  STOP  FIS 


CS 


SIX 


AO  NSRCHPNT 

EXTEND 

RZF  IRS24.1 

IN  CR  NSRCHPNT 

TCF  CHKSRCH 


STORElS  CAF 


9:12  CCT.  21,1970  ZLEMP20S.0Gl  PAGE 
USFR'S  PAGE  NC.  105  67  S3 


604 


UX  = (VLM  X RLH  IX  LOS 

IIY  = LOS  X UX 


WHEN  N = 0, DESIGNATE  ALCNG  LOS 

CONVERT  L CS  FRCP  REFERENCE  TO  SM  COORDS 


IS  RENDEZVOUS  FLAG  SET 


NO-EXI  T R 24 

YES  -SCHEDULE  JOB  TO  DRIVE  RADAR  TO  NEXT 
POINT  IN  SEARCH  PATTERN 


CHECK  IF  DATA  G COD  DISCRETE  PRESENT 


YES-  GO  TO  STORE  11111  FOR  DISPLAY  IN  R1 
I S N GREATER  THAN  6 

YES  - RESET  N = 0 AND  START  AROUND  AGAIN 
NO-  SET  N = Nf  1 AN  GO  TO 
NEXT  POINT  IN  PATTERN 


STORE  lllll  FOR  DISPLAY  IN  R1 


SAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P20-P25 


3792 

3793 

3794 
3785 


PFF  8 LAST  602 
REF  5 LAST  602 
REF  96  LAST  603 


26. 3673  C 0CC4  0 

26.3674  0 6032  0 

26,  3675  52573  1 

16,3676  r 5155  0 


INHINT 

TC  KILLTASK 

CADR  DE  SLOOP  +2 
TC  ENDOFJOR 


3 706  PEF 
3 797 
379B 

3799  KEF 
3 BOO  REF 
3801  REF 


26  LAST  574 


9 LAST  605 
4 LAST  631 
57  LAST  605 


26, 3700 
26,3  7C1 
26,  37C2 


26.3703 

26.3704 


C 0004  0 
C 6032  0 
55645  0 
0 5155  0 


LI  PAL  A RM  TC 
DC  T 
IN  HINT 
TC 

CADR 

TC 


ALARM 

527 

KI  LLTASK 

callogch 

ENOOFJQP 


3803 

3804 

3805 
3336 
3807 
3804 
339R 
3 8C4 
38  10 
3810 

A 3811 
A3012 
3 813 

3814 
3914 

3815 

3816 
3 Ol  7 

3818 

3819 

3820 

3821 

3822 

3823 
38  24 
3R2* 


REF 


REF 

REF 

REF 


REF 

REF 

REF 

REF 


7 LAST  367 


26,  3705 
26  ,3706 
26 , 37C7 
23,  25  15 

0014 
0022 
0014 
'6,371 
26,  371  1 
26  ,3712 
26,371 3 
26,  37  14 


25547  0 ALL  IS  DEC  11111 

33555  1 S I N60  DEG  2 DEC  .86603 

Cl  1 06  1 

CD S60DEG  = OPHALF 

UXVFCTPR  FQUALS  1 2D 

LYVECTPR  FQUALS  1RD 

RLMUNIT  FQUALS  1 2D 

01642  0 OFFSTFAC  2 DEC  0.05678 
11045  0 

0000  1 0 ONEOCT  OCT  noOOl 

OOOCO  1 3 SFCONDS  2 DEC  300 

00454  1 


3 LAST  495 
3 LAST  23  1 


4 LAST  465 
? LAST  494 
2 LAST  268 


26, 371 5 

. 

26,  37  1 7 

23  ,2517 
46  16 
6000 

6025 

60  25 

6026 
6027 

57 , 1471 

6030 

6031 


Cl  1 30  l 
0000"  1 
CC226  1 


0 0006  1 
3 6031  0 
I 5176  0 

03013  0 
66  1C  7 1 


6 SECONDS  DEC  60C 
1.5SECS  2 DEC  150 

ZERO/SP  EQUALS  HI6ZER0S 
BLOCK  02 
SE  TLC:  F F TAG  5 
BANK 

CCUNT * $t/P20 
GO  TO  V 56  EXTEND 

OCA  VB56CADP 
TC  F SUPDXCHZ 
EBANK  = WHOCARES 
V856  CA0R  2 CADR  T KMT  RACK 


9:12  OCT.  21,1970  ZLEMP20S.001  PAGE  605 


USER'S  PAGF  NO.  1r6  E7  S3 


DELETE  DESIGNATE  TASK  FROM 
WAITL  1ST  US  1NG  KILLT  ASK 


ISSUE  ALARM  527-LOS  MOT  IN  M 3 D 1 2 

COVERAGE  IN  P22  OR  VEHICLE  MANEUVER 

REQUIRED  IN  P20 

KILl  WAITL  ISr  CALL  FOR  NEXT 

POINT  IN  SF  ARC.  H PATTERN 


( 2DEC  .50) 
PREVIOUS 


TANGENT  OF  3.25  DEGREES 

*4**  NO  TP  — HE  SF  TWC  CONSTANTS  MUST  4*** 
****  BF  IN  THIS  OPDFP  BFCAUSF  **** 


*444  ONEOCT  NEEDS  A LOWER  ORDER 
4*4*  WORD  OF  ZEROES 


P20  TFRMINATFS  BY  GnT(lV56  INSTFADOF 
GOTOPOOH 


GAP:  ASSFMBLE  REVISION  5 6 11 F AGC  PROGRAM  ZERLINA  8 Y ZOROASTER 


P2Q-P25 

W-MATP  1 V MON!  TOR 


PFF 

REF 


1 


3 1,  2l(,7 
31  ,2000 
2 1»  2C07 


rniiNT*  i 4 /f  x tvr 


3330  PEF 


3331 
383? 
38  3 3 
3 83  4 

3835 

3836 
38^7 
3838 
39'*9 

3840 
38  A 1 
3 8 42 
384  3 
3344 
3 84  5 

3846 

3847 

3848 
3840 
3 85  0 
3851 
335? 

3853 

3854 
3955 

3856 

3857 

3858 
3850 
3960 

3861 

3862 
3963 
3864 


LAST  323 
PFF  60  LAST  60  3 
PFF  1 


REF  4 LAST 
REF  5 LAST 
PEF  l 
PFF  1 58  LAST 
PEF  7 LAST 
REF  32  LAST 
REF  1 
PFF  1 


I AST 


LAST 
LAST 
1 AST 
I AST 


RFF  1 1 
REF  170 
PFF  1 7 1 
P-EF  fc 
RCF  17? 

REF  7 
REF  PO  LAST 
REF  173  LAST 
REF  1 
PEF  200  LAST 

RFF  1 

RFF  36  l AST 

REF  1 


516 
572 
606 
6C6 
6(  6 
606 
582 
606 


F4,l  571 

, 

31  ,2010 
31  ,2  01  1 

3 1,  2o  12 
3 1 ,2013 
31, 2014 
3 1,  2p  15 
31  ,2016 
31,  2017 
31  ,20  20 
31  ,2  02  1 
3 1,  20  22 
31  ,2  023 
3 1,  2124 
31,  20  25 
31 ,2026 
31,  2027 
31  ,20  30 
31  ,203  1 
3 1 , 20  3 2 
31  ,?033 
31,  2034 
31,  20  35 
3.1,2  036 
3 1,  2037 
31  ,?04i' 
31  ,204  1 
31,  2t  42 
31  ,2043 
3 1,  2044 
3 1,  20  45 
31  ,2046 
3 1,  2047 
3 1 ,2050 


0 6C c 1 0 
77624  1 
62120  0 
77776  1 

0 0006  1 
3 1572  0 

5 • 

0 0006  1 
3 1574  0 
53 ’602  0 
0 0006  1 
3 1576  1 
53'6C4  0 
3 2143  C 
C 4616  1 
20334  1 

1 5503  0 
1 2032  0 
1 2024  1 
22  007  0 

3 4756  1 
54  CC2  1 
50  0C2  0 

4 1571  1 
50  CC2  0 

6 1577  f 
26  001  l 
10  00  2 1 
1 2034  0 
22  COO  1 
C 0006  1 
1 2 051  n 
C 5516  0 

00160  0 


EBANK=  rfrfPOS 

1 N TPPET 
V6  7WW 


EXIT 

EXTEND 

OCA 

DXCH 

EXT  ENO 

OCA 

OXCH 

EXTEND 

OCA 

DXCH 

V06N99DS  CAP 
TC 

CADR 
TCF 
TC  F 
TCF 

V6N99PR3  ZL 


CA 

N99L(inp  TS 


HWBI A S 
W W 8 IAS  +6 
V06N99 

BANKCALL 
GOXDSPF 
F NOE  X T 
V6N99PR0 
V06N99DS 

F IVE 


1 NOE  X 

AO 

AOS 

CC  S 

TCF 

LXCH 

EXTEND 

BZF 

TC 

A ORES 


V06N9933 

UPFLAG 

V67FLAG 


3865 
3 866 
3867 
1368 
3 869 
3870 


REF  61  LAST  6G6 
LAST  606 
LAST  636 


RFF  2 
REF  33 


31,2051 

3 1 ,2053 
31,  2054 

31,  2055 
31  ,2056 


C 6C51  0 
77414  0 
03707  1 
6 2 C 56  0 
1 55  03  0 
77745  1 


9:12  OCT • 21,1970 
USER'S  PAGE 


ZLFMP20S.0v  1 
NC.  107 


PAGE  b06 
E7  S3 


SAVE  THE  PRESENT  N 59  VALUES  FOR 
COMPARISON  AFTER  TEE  DISPLAY 


THF  SUM  OF  ALL  CIFFERENCES  MUST  BE  ZERO 


'•AP:  A SSI-  MR  Lt  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


l P20-P25 


3B73 

3876 
3875 
387* 

3877 
3373 

3879 

3880 
393  1 
3RR2 

3881 
3886 

3885 

3886 

3887 

3888 
3983 
3 890 

389  1 
3392 
3893 
3896 
3995 
3896 
3 897 
3898 
389Q 
390> 
3901 

390  2 
3933 
3906 
3 905 

3906 

3907 
39^9 
300  9 

3910 

391 1 

3912 

3913 
3916 

3915 

3916 
3«1  7 

3918 

3919 

3920 


RFF 


PFF 

REF 


REF 

PFF 


RFF 

RFF 

REF 

IFF 

RFF 


REF 

REF 

RFF 
RE  F 

REF 


REF 

REF 

REF 

REF 

REF 

RFF 

PEF 


RFF 


R LAST 

6 LAST 
6 L AST 


13  LAST 


3 LAST 


2 LAST 
1 

2 l AST 
2 L AST 

2 LAST 

2 L AST 

9 LA  ST 
36  L AST 

5 LAST 

3 LAST 
17  LAST 

6 L AST 

7 LAST 
9 LAST 

6 LAST 

7 L AST 


15  LAST 


606 

606 

636 


597 


597 


59  7 


597 


597 

598 

59  7 

598 

606 

385 


60  6 
596 

390 

596 
60  7 
607 
607 


598 


11  ,1060 
2 1,  2061 
31  ,2062 
31  ,2063 
31,  20  66 
31  ,2065 
3 1,  2066 
31,  20  67 
31  ,2070 
? 1,  2C7  1 
31  ,2072 
31  ,2C73 
3 1,  2076 
31  ,2075 
3 1 , 2C  76 
3 1,  2077 
31  ,2100 
31,  2 1C  1 
n, 2ii  * 
31  ,2103 
2 1,  2 1C6 
31  ,2105 
31 ,21 06 
31,  2107 
31  ,2 1 10 

2 1,  211  l 

3 1,  2 112 
31  ,211  3 
3 1,  2116 
31  ,21  15 
31  ,2116 
31,  2117 
31  ,2  120 
3 1,  2 121 
31,  2122 
31  ,2123 
31,  2126 
31  ,2125 
31  ,2126 
31,  2127 
31  ,213; 

3 1,  2131 
31,  2132 
31  ,2138 
3 1,  2 176 
31  ,2136 
31  ,2136 
31,  2137 
31  ,2160 


16L01  0 
02176  1 
16003  1 
02176  C 
77661  0 
2C213  0 
C0005  1 
72016  1 
C6307  1 
6210  2 0 
00000  l 
72130  0 
02000  0 
CCCC2  0 
52130  1 
02001  1 
62 1 10  0 
66150  0 
00000  1 
C2C06  0 
66150  0 
00C02  0 
020C7  1 
66150  0 
CCCC6  0 
02003  0 
77730  0 
02C02  1 
77616  0 
02676  1 
1 5503  0 
600  20  1 
00C51  0 
62123  0 
65016  0 
03667  0 
27610  1 
71331  G 
00051  0 
00006  1 
C652C  0 
02172  1 
02176  1 
02176  0 
77770  l 
00066  1 
67573  f 
02667  0 


V67SURF 


V67CLRF 


V67WW 


NXPOSVEL 


SL6 

STCOL 

STOOL 

SL 

STORE 

BON 


SX  A,  1 

CL  EAR 

TCF 

STQ 


CLEAR 


SSP 

OEC 

STORE 
STORE 
STORE 
AXT , 1 
DEC 

VLOAD* 


WWPOS 
SL  1 
OD 

WWVEL 
2 0 

WWBt A S 

100 

60 

LX  A,  1 

SURFFLAG 

V67SURF 

OD 

I.  XA  ,1 
WR  ENDPOS 
2D 

GOTO 
WRENDVEL 
V67CLRF 
SXA  , 1 
OD 

WSUPFPCS 
SXA,  1 
2 D 

W SURF VF  L 
SXA,  1 
60 

WTRUN 

WSHAFT 

EXIT 

RENCWFLC- 
F NOE  XT 
ROV 
S2 


CALL 

V67FLAG 

INTSTALl 

DLOAO 

Si 

6 

7ER0VECS 
WWPOS 
WWVEL 
WWRI  AS 

56 

VSQ 

W +560,  1 


9:  12  OCT.  21,  1970  ZLEMP20S.001  PAGE  607 


USER'S  PAGE  NO.  108  E6  S3 


SHIFT  FROM  NOUN  SCALING  ( B — 5 ) TO 
INT  ERNAL  SCAL  ING  (B+5  > 


cap: 


ASSEMBLE  REVISION 


OF  AGO  PROGRAM  ZEKLINA  BY  2UKOASTEP 


P20-P75 


3921 

392?  RFF 
3923 


31,  2141 
31  ,2  14? 
3 1,  214  3 


776  60  1 
6900?  0 
C 1 543  1 


VG6N99 


GO  TO 

AOOPOS 
VN  0699 


3974  PEF 
TO?* 


30,2000 
V )«2 


SETLO:  VB67A 
BANK 


3926  PFF 


COUNT*  St/FXTVP 


3927 

39?B 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 
3 94  0 
3941 
394? 

3943 

3944 

3945 

3946 

3947 
3 94  P 

3949 

3950 

3951 

3 95? 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 


PFF 

PFF 

REF 

l 1 1 
PFF 

PFF 

REF 

REF 

PFF 


R FF 
P I F 

RFF 

PFF 

REF 


PCF 

REF 

RFF 

PfcF 

PFF 

PFF 

REF 


RTF 

REF 

PEF 

REF 


19  LAST  6C7 
11  LAST  6C  8 

16  LAST  6C7 

6 LAST  6C7 

7 LAST  60  8 

17  LAST  6f8 

8 LAST  607 

9 LAST  608 


10  LAST  608 

8 LAST  608 

9 LAST  608 
12  LAST  60  8 


13  LAST  6(8 


4 LAST  383 

14  LAST  608 

10  LAST  608 

11  LAST  608 

15  LAST  608 


2 LAST  608 
It  LAST  608 

6 LAST  607 
2 LAST  303 


. 

' , 

30  ,2005 
' . 

30,  2 u',7 

. 

30,  20  11 
30  ,2312 
30,2013 
30,  20  14 
• 

30, 2016 
30  , 20 1 7 
, 

3C,  ? 02 1 

30  ,2022 

, 

30,  2o  24 
33  ,2025 
30, 7026 
30,  70  27 

' . 

. 

31  ,2032 
30,2 333 
3(>,  2..  3 4 
33  ,2035 

. 

30 , 2o  37 

. 

30,  2 0 4 1 
30  ,7042 
30 , ? 343 
30,  20  44 
30  ,2045 
30, 2046 

3u,  2047 

3C, 2351 

. 

30,2053 


0217?  1 
C.  2 1 7 2 1 
47573  0 

C2555  C 
77615  0 
02174  1 
C2174  1 
47573  0 
02643  1 
77615  0 
02176  0 
02176  0 
755  CO  0 
62137  O 
77661  0 
206  13  1 
16176  0 
02174  1 
77766  0 
16174  l 
02172  1 
77766  0 
C 2 1 7 2 1 
52000  0 
60035  l 
60042  1 
77745  1 
C6526  C 
02172  l 
C2174  1 
02176  0 
45345  1 
02172  1 
200  60  0 
71240  1 
6CC51  0 
20C60  0 
0217?  1 
66150  0 

00051  0 

00052  0 


ACCPOS 


V67XXX 


OAO 

WWPOS 
STORE  WWPOS 
VL O AD*  VSQ 

W +1080,1 

DAD 


WWV  EL 
STORE  WWVEL 
VL  OAO*  VSQ 

W +1620,1 

DAO 

WW  B IAS 
STORE  WWB1AS 
T I X , 1 SORT 

NX  POSV  EL 
SR 


100 

STOOL  WWRIAS 
WWVF  L 

SORT 

STCOl  WWVEL 
WWPOS 


SORT 

STORE  WWPOS 
80V  GOTO 


+2 


V67XXX 

OLOAO 


STORE  WWPOS 
STORE  WWVEL 
STCRF  WWRIAS 
OLOAO  OSU 

WWPOS 
F T 59999 
BMN  OLOAO 
+ 3 

F T 59995 
STCRE  WWPOS 
L XA  , 1 S X A , 1 

S2 

QPRET 


9:1?  OCT.  21,1970  I LE  MP20S.  l»('l 


PAGE  SOB 


USER'S  PAGF  NO-  109  F4  S3 


SHIFT  FROM  INTFRNAL  SCALING  (H  + 5)  TO 
NOUN  SCALING  (B-5) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  FRCGPAM  ZFRLINA  RY  ZOROASTER 

L P20-P25 


5:  12  OCT.  21*  197C 
USER'S  PAGE 


7 LEHP20S.  001 
NC.  110 


PAGE 
EA  S3 


609 


3969 

3970 

3971 


RFF  41  LAST  575 
REF  2 LAST  3q  3 


30  ,2054  77776  l 

1 1 . 2 « r> 

30 1.  20  56  274  21  0 


FX  IT 

TO.  POSTJUMP 

CADR  INTWAKE 


397? 

397? 


30  *?0  5 7 01670  l FT99999  2 DEC 

30, 2060  17CC0  1 


30479  B - 19 


SAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


PR97R 
3974 
39  75 
3 076 
3977 


25,3647 

3 LAST  564  25.2QCO 

25,  3647 

3 LAST  56*  TO  573:  272 


COUNT*  *$/RRUPT 


397ft  REF  33  LAST  6"!  E 7,  1*56 


E B A NK=  LOST  CU NT 


19  79 
3980 
39R  1 
39R? 

3983 

3986 

3985 


RFF  27 
RTF  27 
PFF  201 
RFF  69 


RFF 

RFF 


LAST 
LAST 
L AST 
LAST 


568 

569 
60  6 
573 


25,  3647  * 4747  • PAULITES  CS 

25,3650  6 0061  0 AD 

, ,51  1 0<  0 0 

25,365?  4 4753  r 


LAST  264 

LAST  606 


25,3553  1 3703  1 


25,  3654  T 4570  0 


25,3655  54  065  0 FLIGHT 


CC  S 

CS 

TCF 

TCF 


RR  TR  KF 
IT  EMP5 
HLITE 


3988  PFF  1 25,3660  3 4747  1 CA  L R ALT  B IT 

3789  PFF  H I LAST  60  2 25,  366  1 7 OllO  o BOTHLITS  MASK  RADFCDES 

3990  RFF  ?02  LAST  610  25,3662  10  000  0 CCS  A 

3991  REF  1 25,3663  1 3675  1 TCF  ONL  IT  ES 


3 992 

3993 

3994 
3 995 

3996 

3997 

3998 

3999 


RFF  20 3 
RFF  2 


6 10 
610 


25, 3664 

. 

? 5,  <666 
25,  3667 
25,3670 

25,  367  1 
25  ,367? 
2 5,3673 


C 000  6 1 
22  066  1 
C 4602  1 


F LORD  11 
IT  EMP5 
HFLSHRIT 


E XTE ND 

QXCH  ITFMP6 
TC  TRKFLON 


LAST  6l0  25,  3674  C 0066  1 


4001 

4332 

4003 

4006 


LAST 
LAST 
LAST 
1 AST 


610 

610 

610 

610 


25,3675 

5, 

>5,3677 

25,3700 


50  065  1 
4 4753  0 
7 0 1C7  0 
54  107  0 


ONLITES  INDEX 


400  7 
4008 
4 1 09 
4313 

401  1 


REF 

RFF 

REF 

REF 

RFF 


91  LAST  610 
1 

8 LAST  610 


, ' 1 

25  ,3702 

. 

25,  3704 
25  ,3705 
25,  3 7C6 
25, 3707 


2 CCOl  C 

1 3671  0 
E4  065  0 

2 4751  0 
54  0C1  1 
2 4744  1 
1 3661  1 


L IT1T 
ITEMP5 
VLI  TF 


9:12  OIT.  21  ,1970  7.  LEMP2GS.0C  1 


PAGE 


61. 


USER  'S  PAGE  NO.  Ill  E4  S3 


ZERO  I TEMP  5 FOR  H INDE  X 


GAP:  ASSEMRIE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,  1970  ZLEMP20S.001  PAGE  611 
USER'S  PAGE  NC.  112  E7  S3 


Of*  FNO  OF  Z LEMP20S.  I 01 


GAP:  ASSFMRLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 

L P3r  , p?7 

P 00  23  PROGRAM  DESCRIPTION  P30  DATE  3-6-67 

R3‘<A  MC0.1  PY  PAMA  A IY AW AR 

8 0025  FUNCTIONAL  OF  SCR!  PTI  CN 

R0n?6  ACCEPT  ASTRONAUT  INPUTS  OF  TIG.DELVILV) 

R*  77  TAIL  I MU  STATUS  CFFCK  ROUTINE  (Pf'2) 

0 1 SPLAY  TI  MF  TC  GC,  APOGEE,  PERIGEE,  CELVIMAGI,  MGA 
R3329  RFCUFST  BURN  PROGRAM 


9:12  OCT.  21,  1970  16HP3GS  .1(5  PAGE  612 
USER’S  PAGE  MC.  1 E3  S 3 


P 0030  CALLING  SECUENCE  VIA  JOB  FPCF  V 37 

R0031  FYIT  VIA  V37  CALL  OR  TO  3070FCCFI  ( V34E I 

R0032  SUBRCUTINE  CAL  LS -FLAG-IP,  ° F AS  CFN  G,  BANKCALL,  ENOOFJOB,  GOF  LA  SH  , G OF  LA  SHR 

33  GCPCRF3P,  IMFPET,  BLANKET,  GCTOPOCH,  R02BUTH,  S 30 . 1, 

R))34  TTG/N35,  MIDGIM,  01  SPMGA 

R0A35  ERAS ABLF  INITIALIZATION^  STATE  VECTOR 


VTIG,  PTIG,  OELVSIN,  DELVSAB,  DELVSLV,  HAPO, 


DEBP  IS-  A,  (,  PPAC  , PUSH  LI  ST 


00382 
OC  383 
3339  A 

0039 

0040 
0 '-1 

0041  I 
33412 


PFF 


1 


REF  2 LAST  319 
PFF  1 

PFF  37  LAST  606 
REF  3 LAST  50  3 
RFF  3 B LAST  612 


REF 


LAST  511 


32,  2407 
35,2000 
35  .20CG 
FA, 1643 


35  ,2002  0 5515  0 

35,  20C  3 CCC31  0 


BANK  32 
SFTLOG  P30S 
BANK 

E BA  NK=  ♦ MG  A 
COUNT*  <f/P30 
TC  UP FL  AG 

AORES  UPOATFLG 
TC  JP  FL  AG 

AORES  TRACKFLG 


SET  UPDATE  FLAG 
SET  TRACK  FLAG 


CAF 


35,2006  3 3644  1 

35  ,2  )07  C 3627  1 


TC 


0057 

005  8 
01-59 
3363 

- • i 

006  7 
3)675 

00676 

00677 
0068 


REF  58  LAST 


PFF 


REF 


LAST 


1 


1 


35,  20  10  C 5527  1 


RFF  62  LAST  606 
REF  1 

PFF  6 | AST  612 


35  ,20  14 
35  ,2015 
35,  20  16 
35  ,2017 

35,  2020 


70060  0 
43014  0 
GC470  1 
C 1067  1 
77776  l 


TC.  DOWNF  LAG 

AORES  UPOATFLG 

TC  INTPRET 

CALL 

S 30  . 1 

SET  SET 

UPOA  TF  LG 
XDELVFLG 

EXIT 


35 , 20  2 1 3 2033  C P ARAM  30  CAF  V06N42 


RES  FT  UP  CATE  FLAG 


APOGEE ,PFR  IGEE  .DELTA  V 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL1NA  BY  7CROASTER 


3069 

0070 
Or.  71 
3372 
0''  74 

0075 

0076 

0077 


P30.P37 
PEE  3 
REF  63 


*PEF 

REF 

REF 


LAST  612 
LAST  612 


1 


35,  2022  0 3627  1 

35,2023  0 6051  0 

S5, 

35,  2025  C 1 C 7 1 0 
35  ,2026  77624  1 

35,2027  73523  1 

3'5,2o  30  776  50  1 

35  ,2031  72026  0 


TC 


TC 


SET 

REVN1645  CALL 

GOTO 


VNPOCH 
INTPRET 
FI NALFLG 
VN1645 
REVN1645 


VN 


9:12  OCT.  21  ,1970  LEMP30S 


105  PAGE  613 


USER  ' S PAGE  NO.  2 


E 4 S3 


COMES  HERE  ON  RECYCLE  RESPONSE 


-.API  A S SE  PB  LE  REVISION  60  OF  AGC  PPfGRAM  ZERL1NA  BV  ZOROASTER 


PO 105  PROGRAF  DESCRIPTION  S30.1 


C AT  E 9N0V66 


R 1 36 

R0107 

< 01GB 
R313P 

R 0 1 1 
Rf  111 
R)  1 1 2 
<011  3 
R^llA 
R-  11s 
<0  116 
P.7 1 1 7 
R0118 

< 1 1« 
R?12i 
R0121 
R 12  2 
R 123 
<124 
R 1 2F 
r')126 
<127 
R3  123 
R012R 
R 0 1 30 
R3  1 3-*  1 
<0131 

B 9 1 3 1 1 
R0132 
<0133 
R j 1 34 
R 1 15 
136 
R1  1 <7 
< 0138 


MOO  NO  1 LOG  SECTION  P3C.P37 

MCO  BY  R IPt  A1YAWAR  ** 

FLNCTIPNAL  DFSCRIPTICN 

PASEO  ON  STORED  TARGET  PAP  A me  TF  P SI  P OF  IG  NI  TI  ONI  RTI  G1  , V OF 
1GNI  TTCN(VTIG)  «T  IME  OF  IGNITION  ( T IG  I),  COMPUTE  PERIGEE  AL  TI  TOO 
APPGFE  ALTITUDE  AND  OELTAV  PFCUI  R60I0ELVS  IN). 

CALL  ING  SEQUENCE 
L CALL 
L ♦ 1 S 30.  I 

NCRPAI  FX  IT  MODF 

AT  L+2  OP  CALLING  SEQUENCE  (GCTP  L+2) 

SUBROUTINES  CALLED 
LFPPREC 
PER  I APO 

ALARM  OR  ABORT  EXIT  MOOES 
NCNF 

FP  A SABI  E INITIALIZATION  REQUIRED 

TIG  TIME  OF  ICNITION  DP  B2BCS 

DELVSLV  SPECIFIED  CELTA-V  IN  LOCAL  VERT. 

COORDS.  OF  ACTIVE  VEHICLE  AT 


T IPE  OF  IGNIT  ION 


VECTOR  3 + 7 METERS/CS 


OUTPUT 


RTIC  POSITION  AT  TIG  VC 

VTIG  VELOCITY  AT  TIG  V F 

PDL  4D  APOGEE  ALTITLDE  OF 

MAPI'  APOGEE  ALTITUDE  OP 

PDL  «D  PERIGFF  ALTITUDE  DP 

HPFR  PERIGEE  ALTITUDE  OP 

DELVSIN  SPECIFIED  CELTA-V  IN  INERTIAL 
COORD.  CF  ACTIVE  VEHICLE  AT 
TIME  OF  IGNITION  VECTOR  B+ 7 

OELVSAQ  MAG.  OF  DELVSIN  VECTOR  R+7 

OF  BP  I S 0 TEMP  TFMP.  ERASABLE 

OP  RET,  MPAC 
PL  SH  LI  ST 


B+29  PETERS 

8+29  METERS/CS 

6+29  K , B+27  METERS. 

R+  29  ME  TER  S 

B +2°  M , B + 27  METERS. 

R +2 9 METERS 


3139 


1 14? 
614  3 
3 144 


REF 

REF 

RFF 

PEF 


I AST  501 
LAST  6.91 
LAST  214 


34, 2060 
34  ,2061 
34,206  2 
14,  29  6 3 
34  ,2064 


71220  1 
03632  0 
0 34  42  0 
34041  0 
27056  1 


COUNT*  S*/S30S 

STQ  DLOAD 
.3  TEMP 
TIG 

STCALL  TDECl 

L FMPREC 


67175  0 


VLCAD  SXA.2 


12  OCT.  21,  1970  LEMP30S  .105  PAGE  6l<* 
USER'S  PAGF  NG.  3 E4  S3 


TIME  IGNITION  SCALED  AT  2I+28JCS 
LEM 


ENCKF  ROUTINE  FOP 


GAP:  ASSEMBLE  REVISION  56  OF  A3G  PROGRAM  ZERLINA  BY  ZOROASTER 

L P30,p37 


0150  REF 
0153 

>154  REF 

0155  RFF 

0156  REF 

0158 

0159  RFF 
>160 

0161 

01611  REF 

>162 

0163  RFF 
P 166 
01  65 

1166  RCF 
>167  REF 
Ol  68 
0169 

> 17>  REF 

0172 

6173  REF 
Ol  76  PEF 
0175 

>176  REF 
0177  PEF 
01771 

>178  REF 
01781 

>1782  REF 
017822 
017024  REF 
■'1783  REF 
01784 
0 1785 
>1786  REF 

01787 

01788  REF 
C 1 79  RTF 
0180  REF 


10 

1 

2 

3 

6 

2 

3 


2 


6 

2 

4 

3 


2 

2 

6 

2 


LAST  601 
LAST  146 

LAST  147 
LAST  601 
I A ST  146 

LAST  615 


LAST  128 
LAST  615 


LAST  615 
LAST  205 


LAST  615 

LAST  146 
LAST  6 1 5 

LAST  615 
LAST  6 1 5 


LAST  319 


LAST  615 

LAST  615 
LAST  319 
LAST  614 


34,2066 
34,  2C67 
34.207:) 

34 , ? C 71 
34, 2 C 72 
34  ,2  0 73 
34 ,2074 
34,  20  7 5 
34  ,2076 
34,  ?C  77 

34.21 00 

34.2101 
34,  2 102 
34  ,2103 
34  ,2104 
>4,210  5 
34  ,2106 
34, 2 1C  7 
34,211  ' 
34,2111 
34, 21  12 
34  ,2113 
34 ,2114 
34,  2 115 
34  ,2116 
24, 2117 
34,2120 
34  ,?121 
34, 2122 
34  ,2123 

34 .2124 

34. 2125 
34  ,2126 
34,  2 127 
34,2130 
34  ,2131 
34, 2132 
34  ,2133 
34,2124 
34,  2 115 
34  ,2136 


00001  0 
C2777  1 
03642  1 
5 7456  1 
27656  1 
00007  0 
03650  1 
5 34  35  0 
03642  1 
66CC1  0 
00<  0 1 ( 
02776  0 
47206  0 
03656  1 
63372  1 
63315  0 
03656  1 
C 34  34  1 
765  05  0 
00001  0 
03656  1 
77646  0 
27664  0 
03642  1 
53315  0 
C 36  50  1 
03656  1 
77624  1 
46237  1 
77624  1 
46447  1 
77624  1 
45636  0 
16312  0 
C0005  1 
77624  1 
46447  1 
77624  1 
45636  0 
26310  0 
0363?  '• 


STORE 

UNIT 

STCVL 

STORE 

VXV 

SE  T PD 


PUSH 

VS  LI 
PD  VL 


VXM 

STORE 
A AVAL 
STCVL 

POVL 

CALL 
CALL 
CALL 
ST  CO  l 
CALL 
CALL 
STEAL  L 


RATT 
RT  X2 
PT1G 

V COMP 
OE  LVS I N 
VATT 

VT  IG 
UNI  T 
RT  IG 
SX  A,1 
0 

RT  X 1 
VXV 

PEL  V S IN 
PDVL 
P>  VL 
OELVS  IN 
13 F LVS  LV 
VSL  1 
0 

DE  LVS I N 

OELVS A8 
R TIG 

V AO 
VT  I G 

DE  LV  SI N 

PE  RI  APCl 

SHIFTRl 

MAXCHK 
H PE  R 
4D 

SHI  FTRl 

MAXCHK 

HAPO 

3TFMP 


9:12  OCT.  21,  1970  L EMP  30S 
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USER*  S PAGE  NC.  4 E4  S3 


RADIUS  VECTOR  AT  IGMTICN  TIME 

ZRF/LV  IN  OELVS  IN  STALFO  AT  2 
VELOCITY  VECTOR  AT  TIG,  SCALED  2(7)  M/CS 


YRF/LV  POL  0 SCAL  EC  AT  2 


YRF/LV  POL  6 SCALED  AT  2 
ZRF/LV  POL  120  SCALED  AT  2 


DELTAV  IN  INERT.  CCOR.  SCALED  TO  B+7M/CS 

DELTA  V MAG. 

(FOR  PFRIAPC) 

VRE0UI3E0  = VTIG  + OELVS!  N (FOR  PERIAPOJ 


RESCALE  IF  NEEDED 

LIMIT  DISPLAY  TO  9999  .9  N.  MI. 

PERIGEE  ALT  2(29)  METERS,  Fin  DISPLAY 


RESCALE  IF  NEEDED 

LIMIT  DISPLAY  TO  9999.  9 N.  MI. 

APOGEE  ALT  2(29)  METERS,  FOR  DISPLAY 


5SSH 


ASSFMHLF  REVISION  5o  OF  AGO  FRCGRAM  ZERL  INA  BY  ZOPOASTEP 
P 32-P  35»  P72-P75 

CCFILIPTIC  SEQUENCE  INITIATION  (CS  I ) PROGPAMS  ( P 32  AND  P72) 

MOD  NO  -1  LOG  SECTION  - F32-P35  « P72-P75 

MCD  PY  WHITE. P DATE  1JJNE67 
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*0013  plppose 


RD.'IA  (1)  TO  CALCULATE  PARADE  TER  S A SSOC  I A TED  WITH  THE  FOLLOWING 

*»  CONCENT  K 1 C FLIGHT  PLAN  MANEUVERS  - THE  CO-ELLIPTIC  SEQUENCE 


* 0 j 1 6 


INITIATION  ICSII  MMNFLVEP  ANO  THE  CONSTANT  DCLT  A ALTITUCE 


RDD17 


(COH)  M AN  FUVF*  . 


(?) 


TC  CALCULATE  TFESE  PARAMETERS  RASED  UPON  MANEUVER  DATA 
APPROVED  AM)  KEYED  INTO  THE  DSKY  BY  THE  ASTPONAUT. 


P0020 
* 0 ?1 
RD3?? 


( J > TO  DISPLAY  TO  THE  ASTPHNAUT  AND  THF  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THF  CENCFNTRIC  FLIGNT  PLAN  MANFJVFRS  FOR 
APPROVAL  RY  THF  A STRONA  L T /GROUND. 


R0.23  (4)  TE  STORE  TFE  CS  I TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 

* 00  24  THRUSTING  PROGRAM. 


R0025  ASSUMPT IONS 


* Of  ?N 
R3727 
R002  8 

* 


AT  A SELECTED  TPI  TIME  THE  LINE  OF  SIGHT 
AND  PASSIVE  Vf  H I CL  F S IS  SELECTED  TO  BE  A 
FRCM  TEE  HORIZONTAL  PLANE  DEFINEO  BY  THE 
PCSI  TI  ON. 


8ETWEFN  THE  ACTIVE 
PRESCRIBED  ANGLE  (F) 
ACTIVE  VEHICLE 


RDO?T  (21  THF  TIME  BETWEEN  C SI  IGNITION  AND  CDH  IGNITION  MUST  RF 

R 003'  COMPUTE  C TO  eF  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 


R 0 C 3 1 


COMPLETION  OF  THF  PROGRAM. 


R0032 
* Of  33 
RD.'34 


(3)  THE  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  MUST  RE 
COMPUTED  TO  BE  GREATER  THAN  ID  MINUTES  FOR  SUCCESSFUL 
COMPLETION  i IF  THF  PROGRAM. 


ROD  3 5 
*0036 


CDH  DELTA  V IS  SELECTED  TO  MINIMIZE  THE  VARIATION  OF  THF 
ALTITUDE  DIFFERENCE  BETWEEN  THF  CEBITS. 


RD337 

00 


R003R5 


(G  ) CS  I BURN  IS  OFFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V IS  IN  THE 
HORIZONTAL  PLANF  DEFINED  RY  THF  ACTIVE  VFHICLE  POSITION  AT  CS! 
IGNITION. 


R 003.9  (6)  THF  FERICENTER  ALTITUDE  OF  THE  ORBIT  FOLLOWING  C SI  AND  COH 

*004'  MUST  RF  GREATER  THAN  35  ,000  FT  (LUNAR  ORRIT)  OP  8S  NM  (EARTH 


R3  341 


ORBIT)  FOP  SUCCESSUL  COMPLETION  OF  HIS  PROGRAM. 


R 0042 
RDT  O 


(7)  THE  CSI  ANT  CDH  MANEUVERS  ARE  ORIGINALLY 
PARALLEL  TO  THE  PLANE  OF  THE  CSM  CRBIT. 


ASSUMED  TO  BE 
HOWEVER  CREW 


GAP:  ASSFMBLF  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZQRCAST  £R 

L P3?-P35,  P72-P7S 


9:12  UCT.  2 1»  1970  1EMP30S 
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R 0066  MOD!  F If.  ATI  CN  OF  CELT/  V ( LV  ) COMPONENTS  MAY  RESULT  IN  AN 

RO  '.5  OUT-OF-PLANE  C SI  MANEUVER. 


R0066  (ft)  STATE  VECTOR  JPCATES  BY  P?7  AR  F OISALLOHEO  DURING  AUTOMATIC 

*0067  STATE  VECTOR  UPDATING  INITIATED  BY  P??  (SEE  ASSUMPTION  10). 


RUU^fl 
R0069 
R 00  50 

P0(  51 


(9)  COM  PUT  FO  VARIABLES  MAY  BE  STORFO  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPABILITIES  ARE  NORMALLY  LIMITED 
ONLY  TO  THC  PARAMETERS  FCR  ONE  THRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FCR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEOUFNCFS. 


R 005? 
RDU53 
R0P56 
* 00  55 
R3D56 
R 0057 
R005B 
R0059 


(lo)  THE  RFNDFZVCUS  RAOAP  MAY  OR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 
OP  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  PAOAR  USE  IS 
DESIRED  TEE  RACAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  CF  P2C.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
All!  (IMAT  ICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AND  UPDATE  FI  ACS  (SEE  P?f  ) . THE  RENDEZVOUS  TRACKING 
MARK  COUNTER  IS  ZERCED  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 


1 0060  (ID  THE  I SS  NEED  NOT  BF  CN  TC  COMPLETE  THIS  PROGRAM. 

(12)  TFF  OPERATION  OF  THE  PROGRAM  UTILI7ES  THE  FOLLOWING  FLAGS  - 

RC'062  ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 

<*0063  DOING  RENDE7V0LS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 

ftCCA'.  CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 

*0065  EACH  RENDEZVOUS  PRE-THRUST ING  PRCGRAM. 


R3?66 
■ 1 

R006B 


FINAI  FI  AG  - SELECTS  FINAL  PROGRAM  01  SPLAYS  AFTER  CREW  HAS 
COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

c y:  le. 


R006O 
1 00  70 
RD?7l 

R0072 


EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEERING  RFCUIREC  FCR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING  PROGRAM  SELECTEO  AFTER  COMPLETION  CF  THIS 
PROGRAM. 


T 00 73 
R3  3 7 6 

R 0075 

ROD  76 

K0077 

1 Olio 


(13)  IT  IS  N CRM  ALLY  REQURED  THAT  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR  TO 
A THRUST  ING  MANEUVER  . 

(16)  THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSK  Y ENTRY  - 
P 32  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

P72  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

I NPUT 


R)1  11 


( 1 ) TCS  I 


T IMF  DF  THE  C SI  MANEUVER 


GAP:  ASSEMBLE  REVISION  56  HP  A?,C  PROGRAM  ZERLINA  BY  ZOROASTER 


L P32-P35  , P72-P75 


> 3112  12)  NN 

R ? 1 1 3 
RC  1 1 4 

Rf  115  ( 3)  PL F V 

R01H  (/•  ) TTPI 

30130  OUTPUT 


NUMBER  CP  A F SI  0 A L CROSSINGS  THRU  WHICH  THE  ACTIVE 

VEHIC.E  ORBIT  CAN  BE  AOVANCEO  TO  OBTAIN  THE  C OH 

MANEUVER  rCINT 

DESIRED  LCS  ANGLE  AT  TPI 

TIME  OP  TLE  TPI  MANEUVER 


R313J  (1)  TRKMKCNT  NUMBER  OP  MARK c 

R'  132  (2)  TTCGO  T [ME  TO  GO 

3 133  I 31  +VGA  MIDDLE  G!  MEAL  ANGLE 

R3134  (A)  DIFFALT  DELTA  AL  T I TLOE  ATCDH 

V 135  (5)  T 1 T C TP  CEITA  TIME  FFCM  CS  I TO  CDH 

R " 136  (6)  T2TOT3  DELTA  TI  MF  FRCM  CDH  TC  TPI 

R3137  17)  DELVLVC  DELTA  VELOCITY  AT  CSI  - LOCAL  VERTICAL  COORDINATES 

R 1 38  (8)  DELVLVC  DELTA  VELCCITY  AT  CCH  - LOCAL  VERTICAL  COORDINATES 


R3139  DOWNLINK 


P013«1 
1 ■ 13Q2 
R3  1393 
Rni 3«A 
R • 1 30  5 
R.  1 396 
3 0 1 397 
R 3 1 398 
R 0 1 3 99 
3 0 1 AO 

R 0 1 A l l 


(1)  T CS  I TIME  OF  TFE  CSI  MANEUVFR 

(2)  1C  HI  I TIME  OF  THE  CDH  MANEUVER 

(3)  TTPI  TIME  OF  THE  TPI  MANEUVER 

IA)  TIC  T I WE  OF  TPF  CSI  MANEUVFR 

( * ) DFl  VFC  T I DELTA  VELCCITY  AT  CSI  - REFERENCE  COORDINATES 
16)  DEI  V EFT  2 OFLTA  VFLOClTY  AT  CDH  - REFERENCE  COORDINATES 

(7)  01FFALT  DELTA  ALTITUDE  AT  CDH 

(8)  NN  NUMBER  OF  APSIOAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 

VEHICLE  OP  6 IT  CAN  BE  ADVANCED  TO  OBTAIN  THE  CDH 
MANEUVER  PCI  NT 

(9)  El  FV  OES 13  ED  LOS  ANGLE  AT  TPI 


R f l AO 2 COMMON  I CA  T I CN  TO  THRUSTING  PFCGPANS 


TIME  OF  THF  CSI  MANEUVER 

POSITION  OF  ACTIVE  VEHICLE  AT  CSI  - BFFORF  ROTATION 
INTO  PLANE  CF  PASSIVE  VEHICLE 

VELOCITY  OF  ACTIVE  VEHICLE  AT  C SE  - BFFCRE  PCTATICN 
INTO  PLANE  CF  PASSIVE  VEHICLE 

DELTA  VELCCITY  AT  CSI  - REFERENCE  COORDINATES 

MAGNITUDE  OF  DELTA  VELOCITY  AT  CSI 

SFT  TO  INriCATE  EXTFP-NAL  DELTA  V VG  COMPUTATION 


130153  SUBROUTINES  USED 

<30151  AVFLAGA 

3 >152  AVFLAGP 

R3  152  5 P2OFLG0N 

R 0 1 53  VARALARM 

R0I5A  BANKCALL 

R3  1 55  GOFLASH 

3 0156  GOTOPOOII 


MCI*.  3 (1  ) TIG 

R0141  A (2  ) RT  I G 

3 0 1 40  5 

R 3 1 43 6 (3)  V TIG 

R 0 1 4r  7 

RO  140  B f 4)  DEI  V SI  N 

RD  1 439  (5  ) DEL  VSAB 

3 0141  (61  XOFLVFLG 
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}AP:  ASSFPBLE  REVISION  36  CF  AGC  PRCC-RAM  Z ERL  INA  BY  ZOROASTER 


P32-P35,  P72-P75 


R01562 
301564 
R015  7 
R0158 
3 '159 
R0163 
R0161 
RO  16? 

R 3 1 6 3 
3 0164 
R0169 
R 0 1 6 6 


VNPOOH 
GOF  LASHR 
BLANKET 
FNDCF  JOB 
SF  I FT  TPU 
ACV  ANCF 
1 MI  NT 
PA  SSI  VE 
CSI/ A 
S32/33.  1 
D ISO  VLVC 
VN1645 


0 400 

0 4.11  REF  1 

0402 

0 40  3 REF  1 

0404  REF  1 

0500  REF  1 

0 50  2 PEF  1 

0503  REF  1 

0 50  30  5 

353306  PFF  1 

0503 f 7 PFF  3 

05031  REF  1 

05  03  2 

05033  REF  2 

35334 

05035  RFF  3 

0 50  3 e 

35339  REF  1 

0504  REF  265 

0 504  1 REF  3 

05042  PFF  1 

0514  3 RFF  159 

35344  REF  8 

05045  RFF  6 

0 5046 

3535  RFF  1 

05051  PFF  2 

0506  REF  3 

05061  RFF  4 

05062  PFF  5 

3537  REF  1 

0500  REF  4 

0 50  80  1 PEF  64 

35380? 

0508C3  PEF  6 

050804 

050805  REF  1 


I AST  320 


LAST  145 
LAST  619 


LAST  586 
LAST  393 

LAST 
LAST 
L AST 


LAST  615 
LAST  320 
L AST  310 
LAST  619 

LAST  613 
LAST  613 

LAST  619 


35,  ?C  CO 
35  ,2r 34 
F7, 14  7 • 

35  ,20  34 
35,  ?035 
15,2036 
35  ,2037 
15, 

35,204  1 

. 

3S,  2043 
35  ,20  44 

35. 204 5 

35.2046 
3 5 ,2  4 7 
35,  ?05C 
35  ,2051 
35,2052 
3 5,  20  5 3 
35  ,2  54 
3 5,  20  5 5 
35,  20  56 
3 5 , ? C57 
35, 206C 
35  ,206  l 
35,2062 
35,  3063 
35  ,2064 
3C,  2065 

35.20  66 
35,?  767 
35,  ?C70 
35  ,2'  71 

35.21  72 
35,  2073 


0 2354  1 
C 2C37  1 
C 2361  l 
0 0006  1 

2 2425  0 
53*621  1 
0 20  60  0 

77734  1 
03613  0 
77740  1 
03613  0 
77533  1 
32430  1 

3 0154  1 
C 5745  1 
3 5106  1 
C 4616  1 

2C477  1 
C 6001  0 
C 2053  0 
C 2366  0 
3 2424  1 
5 5*  4 67  1 
55*633  1 
' 

3 ?4 1 5 C 
0 3627  1 
0 6051  0 
57545  1 
03634  0 
71240  1 
72120  1 


606 
5(  l 

50  1 


P32 
P 7 2 

P32STRT 

AIMXI  TA 
ALMXI  T 


P 3 2/P  72a 


VN0611 


RANK  35 

SE  TLOC  CSI  /CDII 

BANK 

E B ANK=  SUBEX  IT 
COUNT*  S1./P3272 
TC  AVFLAGA 

TC  P3  2STRT 

TC  A VF  LAG  P 

EXTEND 

DC  A P30ZERC 
OXCH  EFNTANG 
TC  P32/P72A 

SXA  ,2 

CS  IALRM 

LXC  ,1 

: SI  ALRM 
S LCAD*  FX  IT 

ALARP/TB 
C A HP AC 

TC  V ARAL  AP. P 

CAE  V05N09 

TC  BANK CAL L 
CADR  ©OF  LASH 

TC  30T0P00H 
TC  -4 

TC  P2  OF  LG  CN 

CAP  P30ZERO 

TS  NN  +1 

T S TC  SI 

TS  T CS I +1 

CAF  V06N11 

TC  VNPOOH 

TC  I NT  P R FT 

D LCAD  DCOMP 

TC  S I 

BMN  DLOAO 

VNC655 
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GAP: 


ASSEMBLE  RFVISIDN  56  3F  AGO  PROGRAM  ZFRLINA  BY  ZOROASTER 


L P32-P35,  P72-P75 


0 50806  REF 
05 C 807  RFF 
G5C8CE  REF 
355809 
05081  «FF 
05"R  1 1 
0538 1 2 PFF 
050813  REF 
0 5081 A 
050815 
050816  PFF 
050817  PfF 
050818  PFF 

0508  19  PFF 
05J82  REF 
050821 
050822  PCF 
050823  PFF 
05082 A 
050825  PFF 
050826 

0509  PFF 

0510  PEF 

0511  RFF 

0512  RFF 

0513 

0514 

0518  PFF 
C5l 9 RFF 
05?n  RFF 

0521 

0522  RFF 
0 52  3 REF 
0524  RFF 
052  5 

0526  RFF 

0527 

0528 

0529  REF 

0530 

0531  RFF 

0532  REF 

0533 

0534  PEF 

0535  RFF 
0 5 36 

0537  PFF 

0538 

0539  PFF 

0540 


LAST  510 

I AST  614 


2 LAST  502 
2 LAST  145 


2 LAST  502 

3 l AST  50  2 
6 LAST  608 
2 LAST  129 


7 LAST  6 1 9 


161  LAST  619 
9 LAST  619 
7 LAST  619 


1 

5 LAST  619 
65  LAST  61 Q 

8 LAST  620 
11  LAST  614 
1 


3 LAST  148 

2 LAST  145 

o LAST  620 

4 LAST  211 


35,  2.  7 5 

35.20  76 

36,  2C77 
35.2100 

35.21  01 

35,  2 1 C 2 
35  ,2  103 
35.21C4 

36,  2 10  5 
35  ,2106 
35,  2107 

35.2110 

35.2111 
35,  2 112 
J5  ,2  113 
35,7114 
35, 21  15 
35  ,2116 
35,  2117 

35.2120 

35.2121 
35,  2122 
35  ,2123 
35 ,2  124 
35,  2125 
35  ,2126 
35,  2127 

35.2130 

35.2131 
35,  2 13  2 
35  ,2133 

35.2134 

35.2135 
35  ,2136 
35,  2137 
35,2 140 
35  ,2141 
35,  2142 
35  ,2143 
35,2144 
35,  2145 
35  ,2146 
16,  2 147 
3 5,21  50 
35,2151 
35,  2152 
35,2153 
35,2  164 
35,  2155 


01643  1 
3404  1 0 
46401  0 
53775  1 
C3536  1 
57176  0 
26655  0 
03544  1 
4 30  5 7 1 
c 7 1 76  C 
C 3466  0 
16744  1 
06526  0 
36756  0 
25557  i 
77615  0 

< 3 c 74  1 

03634  0 
77776  1 
C 2065  0 
77776  1 
3 3641  1 
C 4616  1 
20477  1 
C 6001  0 
C 2127  1 
0 2121  1 
3 3640  0 
0 3627  1 
r 6051  o 
77745  1 
03634  0 
37442  1 
20GCO  0 
77624  1 
71C76  0 
77201  1 
00001  0 
C 3506  1 
65315  0 
03500  1 
C3£34  0 
65325  0 
C3636  1 
33647  1 
45006  0 
73404  0 
77624  1 
46433  1 
77624  1 


TETLEM 
STCALL  TOE  0 1 

PRECSET 
VLCAO  VSR* 

RAC  T3 

0, 7 

STCVI  RVEC 
VAC  T3 
VSR*  SET 
0,2 
RVSW 
STOOL  VVEO. 

DPPOSMA X 
STCALL  ROES  IREC 
T 1 ME  RAD 

DAO 

T0EC2 

STDRF  TC  SI 
FX  IT 

TC  V NO  6 1 1 

VN0655  EXIT 

CAF  V06N55 

TC  BANKCALL 

0 A DR  GOFLASH 
TC  GOTOPOOH 

TC  *2 

TC  -5 

CAF  V06N37 

TC  VNPODH 

TC  INTPRET 

D LOAD 

TC  S I 

STCALL  TIG 

SE  LFO  TMU 

P32/P72B  CALL 

ADVANCE 
SETPO  VLOAO 

OD 

VPASSl 
PDVL  PDOL 

R PASS  1 
TC  SI 

POOL  POOL 

T T PI 
TWOPI 
PUSH  CALL 

I NTI  NT 

CALL 

PASS  IVE 

CALL 
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GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLl-NA  BY  ZOROASTER 


L P32-P35,  P72-P75 


REF 

0543  REF 
3544  PEF 
0545  PFF 
0 546 

3547  REF 
0548  RFF 
0 540 

0550  RFF 
0551.  REF 
3 55? 

0553  RFF 
0 554  REF 
3555 

0556  PFF 
3557  REF 
055  8 

< 550  PFF 
3560  RFF 

0561  REF 

0562 

3563  PFF 
0566  RFF 
l;  567  REF 
05671  PFF 
0 5672  REF 
0568  REF 
0560 
05691 

0572  REF 

0573 

05731  REF 

05732  REF 

0574  RFF 

0575 

0576  RFF 


2 LAST  613 

1 

6 LAST  612 

3 t AST  321 

4 LAST  621 


2 LAST  32  1 

3 LAST  621 

? LAST  621 


6 LAST  620 
66  LAST  620 

3 LAST  20 e 
1 

4 [AST  621 
2 LAST  119 

2 LAST  119 

3 LAST  20  5 


5 LAST  620 

1 

2 LAST  613 


if, ’Hi? 

35  ,2160 
35,  2161 
35,2  162 
35,2163 
3 5,  2 164 
35  ,2165 
35,2166 
35,  2167 
35  ,2170 
35,  2171 

35.2172 

35.2173 
35,  2 174 
35  ,2  175 
35,2  176 
35, 2 177 
35 ,2200 
35,  22C1 
35,2202 
35  ,2.7  03 
3 5,  2 3 C4 
35  ,2  205 
35,2206 
35,  2 207 
35  ,2210 
35,  2 2 1 1 

35.2212 

35.2213 
3 5,  22  14 
35  ,2215 
35,2216 
35,  ?2  17 
35 ,222C 
*5,  7221 
35,2222 


70173  0 

4 30  14  0 
01311  0 
72163  0 
00470  1 
77745  1 
C 2 2 4 4 1 
02244  1 
51025  1 
22427  1 
72165  0 
77745  1 
02246  0 
02246  C 

5 1 C 2 5 1 
32427  1 
72173  1 
77776  1 

3 2417  l 

C 3627  1 

0 6051  0 
45175  0 
C2260  1 
71160  0 
26260  1 
02202  1 
26274  1 
02266  1 
45170  0 
01522  0 
72375  0 
77745  l 
03636  1 
27640  1 
73523  1 
T 76  50  1 
72136  0 


P 3 2/p  7 2c  BON 


P32/P72D  ULTAD 


P32/P72F  STORE 
OSU 


V LOAD 

STCVL 

STOVL 

A XT  , 1 

VN 

DLOAD 

STfALL 

GOTO 


CS  I/A 
SF  T 

F INAL  FL G 
P3  2 / P7  2 0 
UPOATFLC. 

T 1 T0T2 
T 1T0T2 
BPL 
60MI  N 
P32/P72E 

T2TOT3 
T2T0T3 
BPL 
60MIN 
P32/P7?  F 

V06N75 
VNPOOH 
1 NTPRE  T 
CALL 

OE  LVEET1 
S32/33. 1 
DELVFET1 
RAC  T2 
FACT  1 
DE  LVEFT2 
CALL 
0682 
DI SDVLVC 

TTPI 
TTPI  0 
V N 1645 


P32/P72B 
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ASSEMBLE  REVISION  5b  Of  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
P 22-P  35,  P12-P7S 

CONST  ANT  CFLTA  HEIGHT  (CDH)  PROGRAMS  (P33  AND  P73) 

MOD  NO  -1  LOG  SECTION  - F32-F35,  P72-P75 

POO  BY  WHITE.P  DATE  1 J UNF  fc  7 

FURPCSF 

I L)  TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  CONSTANT  DELTA 
Al  T ITUDE  MANEUVER  ( CDH  > . 

(?)  TC  CALCULATE  THESE  PARAMETERS  BASED  UPON  M AN  EUV  FR  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 

(3)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  CCH  MANEUVER  FOR  APPROVAL  BY  THE 
AST  RONAUT /GRU  UN  O. 


9:12  O:  T.  21,1970  LG  PP3C  S .ICS  PAGE  522 
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(/♦)  TC  STOPE  TEE  CDH  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THP  L STING  PROGRAM. 


Rl  023  ASSUMPTIONS 

M r2U  (1)  THIS  PROGRAM  IS  BASED  UPCN  PREVIOUS  COMPlETlON  OF  THE 

R1Y?«?  CO-ELLIPTi:  SEQUENCE  INITIATION  ( C SI  ) PROGRAM  (P32/P72). 

Rlc2fe  THFRFORF  - 


1 1027 
RI32B 

R 10  29 


R 10  30 


AT  A SELECTEC  TPI  TIME 
BETWEEN  THE  ACTIVE  AND 
A PRFSCRlPFC  A A Cl F (E> 


( NCW  IN 
PA  SSI  VE 
(NOW  IN 


STORAGE)  THE  LINE  OF  SIGHT 
VEHICLES  WAS  SELECTED  TO  BE 
STORAGE)  FROM  THF 


HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 


THF  TIME  BETWEEN  CS  I IGNITION  AND  CDH  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTFS. 


RID  33 
Rlo3', 


THF  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  WAS 
COMPUTEC  TO  PE  GREATER  THAN  10  MINUTFS. 


K 1035  (D)  TH'  VARIATION  CF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 

R1I)3(S  ORBITS  WAS  MINMIZEO. 


3 1037 
Rl  338 


(E) 


CSI  BURN  WAS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DFLTA  V WAS 
IN  THE  HORIZONTAL  PLANE  DEFINED  BY  ACTIVE  VEHICLE 


R 10385 


PGS  IT  ION  AT  CS  I IGN  IT  ION  . 


(F)  THE  PERICENTER  ALTITUDES  CF  THE  CRBITS  FOLLOWING  CSI  AND 
CDH  W FR  E COMPUTED  TO  BE  GREATER  THAN  35,00c  FT  FOR  LUNAR 
CRBIT  OR  85  NM  FCF  EARTH  ORPIT. 


(G)  THE  CSI  AND  CDH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THF  PASSIVE  VEHICLE  ORBIT.  HOWE  VF  R , CREW 
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RHH 

Rl045 

MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULT  EO 

IN  AN  CUT-OF-PLANE  MANEUVER. 

< 1046 

R l D 4 7 

(2)  STATE  VECTOR  LPD  A TF  $ RY  P2  7 ARE  DISALLOWEC  DURING  AUTOMATIC 

STATE  VECTOR  UPDATING  INITIATED  BY  P 20  (SEE  ASSUMPTION  4). 

R 1048 
111  CAP 
R 1 050 

R 1051 

(3)  COMPUTED  VAR1ABLFS  MAY  PE  STORED  FOR  LATER  VERIFICATION  BY 

THE  GROUND.  THF  SF  STORAGE  CApABILITES  ARE  NORMALLY  LIMITED 

CNLY  TC  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 

FXCEPT  FCR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEOJENCES. 

RIDS? 

R 1053 

R 1054 
R 1 0 5 5 

1 1056 
RIO  57 
Rl  05R 

R 105° 

(4)  THF  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  RF  USED  TO  UPDATF  THE  LM 

CP  C.SM  STATE  VECTORS  FOP  THIS  PROGRAM.  IT  RADAR  USE  IS 

DESIRED  THE  RADAR  VAS  TURNED  ON  AND  LOCKED  ON  THE  CS  M RY 

PR  FV  10  J S SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 

AUTOMATICALLY  A P PR  CX  I M AT  F LY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 

TRACK  AND  UPDATE  FLAGS  ( SEF  P20).  THE  RENDEZVOUS  TRACKING 

MARK  COUNTER  IS  ZEROED  eY  THE  SELECTION  OF  P 20  AND  AFTFR  EACH 

THPLSTING  MANEUVER. 

R136D 

(5)  THF  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

R 1061 

(6)  THF  CPE  RATI  CN  OF  TEE  FRCGRAM  UTILIZES  THF  FOLLOWING  FLAGS  - 

R 1 6 2 

R 1 06? 

1 1064 
R1065 

ACTIVE  VFGICLE  FLAG  - DESIGNATES  THE  VEHICIE  WHICH  IS 

COING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 

CALCULATES  THF  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 

EACH  RENDEZVOUS  PRO- THR  USTI  NG  PROGRAM. 

0 1066 

R IP*  7 

R 1 0 6 B 

FINAL  FLAG  - SELFCTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 

COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

CYCLE. 

R 1 069 
R1D7D 
R1071 

R 107? 

EXTERNAL  DELTA  V STEEF'INC  FLAG  - DESIGNATES  THE  TYPE  OF 

STEERING  REQUIRED  FOP  FXFCUTION  OF  THIS  MANFLIVF R PY  THE 

THRUSTING  PROGRAM  S FL  FCT  ED  AFTER  COMPLETION  OF  THIS 

PROGRAM. 

R1  D 73 

R 1(74 

(7)  IT  IS  NORMALLY  REQUIREO  THAT  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR  TO 

A THRUSTING  MANEUVER. 

R 1 075 

(8)  THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DS  KY  ENTRY  - 

Rl  076 

P33  IF  THIS  VEEICLE  IS  ACTIVE  VEHICLF. 

R 1077 

P 73  IF  THIS  VFHICLE  IS  PASSIVE  VEHICLF. 

Rl  1 ' 

INPUT 

mil 

(1)  TTPIO  TIME  OF  TEE  TPI  MANEUVER  - SAVED  FROM  P32/P72 
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91112 

U 113 

(2)  El  FV  CESIREO  LOS  ANGLE  AT  TPI  - SAVED  FROM  P32/P72 

(3)  TC OH  TF«F  OF  TEE  CCH  MANEUVER 

R1133 

OUTPUT 

R 11  31 

R 1 13? 
R1133 
t 1139 
31135 
Rll  36 
* 1137 

ID  TPKMKCNT  NUMBER  OF  MARKS 

(2)  TTOGO  TIMF  TO  G C 

(3)  *M f A MIOOLE  GIMBAL  ANGLE 

(9)  DIET  ALT  DELTA  ALTITUDE  AT  CCH 

(5)  T2IOT3  DELTA  TIME  FROM  CDH  TO  COMPUTED  TPI 

(6)  NCMTFI  DELTA  TIME  FROM  NOMINAL  TPI  TO  COMPUTED  TPI 

(7)  OELVLVC  DELTA  VELTCITY  AT  CDH  - LOCAL  VERTICAL  COORDINATES 

R1139 

CCMNL  INK 

-'11391 

(11  T CDH  TIME  OF  TFF  CDF  MANEUVER 

R 11T6?  (?)  TTP  I TIME  OF  THE  TPI  MANEUVER 


R11363 

1 11399 

R 1 1 39  5 

R 1 1 3 9 6 

1 1190  2 

(7)  TIC  TIMF  OF  TFF  CDH  MANEUVER 

(9)  0FLVEET2  DELTA  VFLCCITY  AT  COH  - REFERENCE  COORDINATES 
(51  DIFFALT  DFL  TA  ALTITUDE  AT  CDH 
(6)  ELEV  CESIREO  LOS  ANGLE  AT  TPI 

COMMUNICATION  TO  THRU  STING  PROGRAMS 

R 1 1 9 ' 3 

R 1190  9 

R 1 1 90 5 

R 1 1906 
1119.  7 

R 1 1 9'j  8 
Rl  1 909 

3 1191 

(1)  TIG  TIME  OF  THF  CDH  MA NEUVFR 

(21  RTIG  PCS  IT  I CN  CF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 

INTO  PLANE  CF  PASSIVE  VEHICLE 

(3)  VTIG  VELOCITY  OF  ACTIVE  VEHICLE  AT  COH  - BEFORE  ROTATION 

INTO  PLANE  OF  PASSIVE  VEHICLE 

(91  DElVSlM  DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

(5)  DEI  VS  AR  MAGNITUDE  OF  DELTA  VELOCITY  AT  COH 

(61  XOL-LVFLG  SET  TO  INDICATE  EXTERNAL  DELTA  V VG  COMPUTATION 

Rl  1 5 

SUBROUT  INES  US  EO 

3 1151 

Rl  15? 
Rll 52 5 

R 1153 

Rl  1 59 

K 1 1 5S 

R 11  56 

Rl  157 

R 1158 

R 1 159 

R 1 1 6< 

3 1161 
R1162 

R 1163 

R 1 169 

Rl  166 

A VF  LAGA 

AVFLAGP 
p20  FLGCN 

VNPOOH 

SELECTMU 

ADVANCE 

CDHMVR 

INT  INT3P 

AC  TI  VE 

PASSIVE 

§£3/39.1 

A LA  R M 

B ANK  C Al  L 

GCFL ASH 

GO TOPOOH 

S32/33.1 

GAP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L P32-P35,  P72-P75 

R 1 16  7 VN 1645 


1499  REF  1 

1500  REF  2 

153?  REF  1 

1503  RFF  2 

1505  REF  2 

15351  PEF  1 

1506  REF  7 

1507  REF  67 

1 50fl 

15081  REF  2 

15382  REF  6 

1509  PEF  A 

1510  REF  12 

1511  PEF  2 

1512 

1513  RFF  2 

15H 

1515  PFF  1 

1516 
1 51  7 

1518  PEF  3 

1519 

1520  REF  3 

1521  REF  1 

152? 

1523  RFF  1 

1524 
1 5?5 

1526  PEF  2 

1527 

1528  REF  2 

1529  RFF  2 

1539 

1531  REF  2 

153? 

153?  REF  3 

1534  PEF  1 

1536  REF  1 

1536  RFF  1 

1537 

1 53R  REF  1 

1539  RFF  27 

1 540 

1 54 1 PFF  2 

154?  REF  161 

1543  PEF  10 

1544  PFF  8 

1545 


LAST  619 

I AST  6 1 9 
LAST  615 

LAST  621 
LAST  621 

LAST  621 
LAST  621 
LAST  310 
LAST  620 
LAST  620 

LAST  620 


LAST  620 
LAST  621 


LAST  145 

LAST  145 
LAST  625 

LAST  620 

LAST  6 1 9 


LAST  605 

LAST  6 19 
LAST  62C 
I AST  62C 
LAST  620 


35  ,2723 

. 

35, 2 2? 5 
35,2226 
35,  2227 
35  ,2230 
35  ,2 ? 3 1 
35, 2232 
35  ,2233 

35. 2234 

35. 2235 
35  ,2236 
35,  2237 
35  ,2240 
35,7241 
35,  2242 

35  ,2243 
35,  2244 
IE  , ' >45 

36,7746 
3 c . 2247 

36  ,2250 
35  ,2251 

. 

35  ,2753 
3 5,  2 7 54 

15. 2255 

35.2256 

35. 2257 
35  ,226'! 
35,2261 
35,  2 26  2 
35  ,2263 
35,  2264 
35,  2265 
35,2266 
35,  2267 
35  ,2270 

35.2271 

35. 2272 
35  ,2273 

35. 2274 

35. 2275 
35,2776 
35, 2277 
3 5 ,2  300 
35 ,2  3 Cl 


C 7354  1 
C 2226  C 
0 2361  1 
0 2366  0 
3 2416  0 
0 3627  1 
C - 51  0 
77745  1 
03640  0 
17636  1 
C1775  0 
37442  1 
SOCCO  C 
77624  1 
71C76  0 
77624  1 
71213  1 
772C1  1 
GCC01  0 
03544  1 
45115  0 
0 2 30  2 1 
71151  1 
77624  1 
46423  0 
772C1  1 
00C01  0 
C 353C  1 
45115  0 
03522  l 
71151  1 
77624  1 
46433  l 
<3145  0 
32425  0 
03460  0 
36310  C 
72702  1 
77454  1 
723c  7 0 
0 5600  1 
CC611  1 
3 50C 6 1 
0 4616  1 
2C477  1 
0 6001  0 
0 2303  0 


COUNT*  *S/P3373 
P33  TC  AVFLAGA 

TC  P33/P73A 

P 7 3 TC  AVFLAGP 

P33/P73A  TC  P20FLG0N 

CAF  V06N13 

TC  VNPOOH 

TC  INTPRET 

DLOAD 


TTP  10 

STOOL  TT  PI 


TC  DH 

ST  CALL  T [G 

SF  LEr.TKU 

P33/P73B  CALL 

AOVANCE 


CALL 


COHMVR 

SETPD  VLCAD 
00 

V ACT  3 

PD VL  CALL 

PACT2 
INT  INT3P 

CALL 


ACT  IV  F 
SFTPD  VLCAD 
00 

VPASS2 
PO  VL  CALL 

PP  ASS2 

INT  INT3P 


CALL 


PASS  IVE 
DLOAU  SET 

P 30ZERO 
ITSW  ICH 
STCALL  NOMTPI 

S 33/34, 1 
BZE  EX  IT 

P 33 /P  73c 
TC  ALARM 

OC  T 611 

CAF  V05N09 

TC  BANK  CALL 

CADR  GOFLASH 

TC  GOTOPOOH 

TC  +2 
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P 32- 

4. 

P 7 2- 

P 7 5 

1596 

RFF 

2 

LAST 

62  5 

35,2302 

0 2226  0 

TC 

P 3 3/P  7 3A 

154  7 

RFF 

68 

LAST 

625 

35  ,2  303 

0 6051  0 

TC 

INTPRET 

1598 

35, 23C4 

77745  1 

0 LOAD 

154  9 

RFF 

4 

LAST 

625 

35  ,2305 

32425  0 

P 3GZER0 

156r 

REF 

2 

L A ST 

625 

35,2306 

C2310  1 

STORE 

NCRTPI 

1 5Sl 

35, 2307 

4 30 14  0 

P 33/P  73c  80N 

SF  T 

1 55? 

RFF 

3 

LAST 

621 

35  ,2310 

4 1311  0 

F INAL  FL  G 

1553 

REF 

1 

35,  23  1 1 

72313  0 

P3  3/  P7  3D 

1 554 

REF 

7 

LAST 

621 

35,  2312 

00470  1 

UPOATF  LG 

1557 

35,2313 

43345  1 

P33/P730  OLOAO 

DAD 

1553 

RFF 

3 

L AST 

626 

35,  231  4 

C2310  1 

NCRTPI 

1 559 

RFF 

7 

1 AST 

62  5 

35  ,2315 

03636  1 

TTP  I 

1560 

RFF 

8 

LA  ST 

626 

35,2316 

03636  1 

STORE 

TTPI 

1561 

15,  2317 

7 76  25  0 

0 SU 

1562 

REF 

5 

1 AST 

62  5 

35  ,2320 

C 1 775  0 

TCDH 

1 563 

35, 2321 

51C25  1 

P33/P73E  OSU 

R PL 

1 564 

RFF 

3 

LAST 

62  1 

35, 2322 

32427  1 

- « f 

1565 

RFF 

1 

35,2  323 

72  321  1 

P33/P73F 

1566 

35,  2324 

77615  0 

0 AO 

1 567 

RFF 

4 

1 AST 

626 

35  ,2325 

32427  1 

60M  IN 

1568 

REF 

5 

LA  ST 

621 

35,2326 

16244  1 

STOOL 

T1T0T2 

1569 

REF 

9 

L AST 

626 

is, 2327 

0 3 £ 3 6 1 

TTPI 

15  70 

35  ,2330 

41425  1 

OSU 

PUSH 

1571 

RFF 

3 

LAST 

625 

35, 2331 

C3640  0 

TT  PIO 

1672 

15, 2332 

45246  0 

P33/P73F  ABS 

1 SU 

1573 

PFF 

5 

LAST 

626 

35,2333 

32427  1 

60MIN 

1574 

35, 2334 

43244  1 

BPL 

DAD 

1575 

PEF 

1 

35  ,2  335 

72332  0 

P 33/P  73F 

15751 

RFF 

6 

LAST 

626 

35  ,2336 

32427  1 

63  M IN 

15753 

. 

45565  0 

SIGN 

STADR 

1 5755 

REF 

4 

LAST 

621 

35  ,2340 

75531  1 

STORE 

T 2T0T 3 

1574 

35,  2341 

77776  1 

EXIT 

1577 

RFF 

2 

LAST 

621 

35,  2 38  2 

3 2417  1 

CAF 

V06N75 

1578 

RFF 

P 

LAST 

62  5 

35  ,2  343 

0 3627  1 

TC 

VNPODH 

1479 

REF 

69 

L AST 

626 

35, 2344 

C 6C  5 1 0 

TC 

I NTPRET 

1 580 

35  ,2345 

45175  0 

VLOAO 

CALL 

1581 

P EF 

4 

L A ST 

621 

35  ,2346 

02266  1 

DELVEET2 

1584 

RFF 

2 

1 AST 

621 

35,  234  7 

71160  0 

S32/33.  1 

1585 

REF 

5 

LAST 

626 

35  ,2350 

36266  0 

ST  CAL  L 

DEL V E ET  2 

1539 

PEF 

3 

LAST 

621 

35,  235  1 

73523  1 

VN1645 

1590 

3 5,  2352 

77650  1 

GOTO 

1591 

RFF 

1 

35,2353 

72240  1 

P33/P73B 
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P 3800  AVFLAGA/P 


R 38  50  SUBROUTINES  USED 


UPFLAG 
0 C V»NF 


Hoi 

390  2 

3903 

3904 

REF 

RCF 

PFF 

RFF 

2 

39 

1 

3 

LAST 

IAST 

LAST 

6l9 

612 

627 

mm 

35,2356 
15,  2357 
35  ,2360 

C 0006 
23*470 
C 5515 
CCC50 
0 1470 

1 

0 

0 

1 

0 

A VF  LAG  A 

EXTEND 
QXC  H 

TC 

AORES 

TC 

SURE  XI  T 

J PFLAG 
AVFLAG 

SUB  E X I T 

3905 

35,2361 

C 0006 

l 

AVFLAGP 

EXTEND 

3 906 

PFF 

4 

L AST 

627 

35,  23*2 

22*470 

0 

QXCH 

SURE  XI  T 

3907 

REF 

59 

LAST 

612 

35 , ? 36  3 

C 5527 

l 

TC 

DOWNFLAG 

3933 

REF 

2 

LAST 

627 

3 5,  2364 

CCC50 

l 

ADRES 

AVFLAG 

3909 
3909  1 

REF 

5 

LAST 

627 

35. 2365 

35.2366 

0 1470 
C 0006 

0 

1 

P20FLG0N 

TC 

EXT  END 

SUBE  XI  T 

3939  2 

REF 

6 

L AST 

627 

35,  2367 

2 2 *4  70 

0 

QXCH 

SUBEXI T 

39093 

REF 

40 

LAST 

62  7 

35  ,2370 

0 5515 

0 

TC 

UPFLAG 

39  10 

r EF 

e 

LA  ST 

626 

35,2371 

00027 

1 

ACRES 

U P DAT  FL  G 

3 9101 

RFF 

41 

L AST 

627 

35, 2372 

0 5515 

c 

TC 

UPF LAG 

391.  2 

RCF 

5 

1 A ST 

612 

35  ,2373 

00031 

0 

ADR  ES 

TRACKFLG 

3911 

RFF 

7 

l AST 

627 

35,  2374 

C 1470 

0 

TC 

SU8EX  I T 
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AVFLAG  = LEM 


AVFLAG  = CSM 


SET  J PD  AT  FL  G 
SET  TRACKFLG 


, AP:  ASSEMBLE  REVISION  >6  OF  AGC  PROGRAM  ZERLlNA  BY  ZOROASTER 


L P 32-P35  ( P72-P75 

P4S3?  OISOVLVr.  , 


R4650  SUBROUTINES  USED 


< 4651  S 32/33.  X 

R4&5?  VNPOOF* 


4700  REF  II 
A 70  I 

WO  2 RFF  2 
47021  RFF  1 
UV'2? 

47023  reF  12 

47024 
473241 

470  2 42  PEF  1 

470 2 5 PFF  13 
'♦71?  6 

4703  REF  2 
4 71’  4 REF  0 

4705  REF  70 

4706 

4707  PEF  3 


LAST  322 
LAST  144 

LAST  628 

LAST  628 

LAST  628 
I AST  626 
LAST  626 

LAST  628 


35,2  376 
35,  2 377 
35  ,2400 
3 5,  24 r l 
35,  240 ? 
. 

35,  24C4 
35  ,?4C5 

35.2406 

35. 2407 
35  ,2410 
35,  2‘  1 I 

35. 2412 

35.2413 
35,  24  14 


0346  3 0 
71200  0 
64375  1 
034  34  1 

00001  0 
66172  0 
03615  0 
03434  1 
77776  1 
3 1615  1 
C 3627  1 
C 6C51  0 
77650  1 
03463  0 


CISDVLVC  STORE  DELVLVC 
STC  CALL 

NORME  X 
S 32/ 33 . X 
VLOAD  MX  V 

3E  LVLVC 
OD 

VSLl  SX A ,1 

VFRBNO UN 
STORE  OELVLVC. 

F XI  T 

CA  V FRBNOUN 

TC  VNPOOH 

TC  INTPRET 

GOTO 

NCRMEX 


12  GCT.  21,1970  LEMP30S 
U SF R ' S PAGE  NO.  13 


.105  PAGE 
E 7 S3 


628 


, 4P: 


ASSENRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  8Y  ZOROASTER 


P?2-  P35,  PT2-P75 
P4900  CONSTANTS 


49P? 
'+903 
491  A 

4914 

4915 
4915 
4915 
4915 
49  17 
4917 

491  Q 
4923 
4 9?  1 
492? 

4923 

4924 

4925 


35  ,?415 
35, 2417 
35  ,2 420 
35,  2421 
35,  2422 
35  ,2423 
3 c,  2424 
35  ,2425 
35,2426 
35,  24  27 
35  ,2430 
35, 2431 
35,  2432 
35  ,2433 
35,  24  ^ 4 
35  ,2435 
35  ,2436 


01413  0 VC6N 1 1 
01415  0 VQ6N1  3 
C 1 5 1 3 1 VC6N75 
77776  1 SN359  + 

62460  l 

17777  0 CS359  + 

37776  0 

CCCCO  1 P30ZER0 
OOOCO  l 

00025  0 60 PI N 

37100  1 

00600  1 AL  ARM/ T 8 
CC6C1  0 
006  02  0 
00603  1 
C06C4  0 

00605  1 

00606  1 


VN  0611 

VN  0613 

VN  0675 

2 DEC.  -.00000660  1 

2DEC  +.499999992 

2DFC  0 

2 DEC  360000 

OCT  00600 

OCT  0060  L 

OCT  00602 

OCT  00603 

OCT  00604 

OCT  00605 

OCT  00606 


9:12  CCT.  21  ,1970  LEMP30S  .125  PAGE  629 


USER  *S  PAGF  MO. 


.AP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  ZERLINA  0Y  ZOROASTER 


L P32-P35  » P72-P75 

PMOOO  f SI  /A 

R5150  SUBflBUT-INES  USED 


<515- 
R51  53 
R515A 

< 5155 
R5156 
R5I57 
R 5150 
«5l5^ 

< 51  60 


VET  SHIT  T 
T TMFTHFT 
PERI APr 
SHIF  TR1 
INT  I NT  2C 
C CH^VP 
P F°  I API  1 
INT  INT 
AC  TI  VE 


5401  RFF  T 

5 402 

54?3  PFF  P 

5 AC  A REF  1 

5413 

5 A 1 3 

541  A 

54)4 

5415 

5415 

54  16 

5 416 

54  17 

5417 

541  fl 

541  B 

5419 

5419 
5421 

5420 

5421 

5421 

5422 

5422 

5423 

5423 

5424 

5424 

5425 

5425 

5426 
5426 

5500 

5501  PEF  1 
5532  REF  1 


AST 


627 


34, 2137 
34,  2000 
34  ,2137 
P7,  1470 


34,2137  00000 

34,  2 140  UCC20 
34,2141  OC  003 
34,  2 142  34661 

34,  2143  OC  60  6 

34,2144  04467 

34,  2145  f C 60  1 

34  ,2146  33216 

34,2147  10000 

34,  2T51 

34  ,2151  00000 

34,2152  fCCCl 
34,  2 153  OOOC4 

34.2154  31566 

34.2155  COOCO 

34.2156  01177 

34.2157  00002 

34,  2160  2.73  11 

34  ,2161  77754 

34,2162  57611 

34,2  163  00000 

34  ,2164  12326 

34,  2165  C 01 1 6 

34,2166  00730 

34  ,2167  00000 

34,  2170  06433 

34  ,2171  000C3 

34,2172  25140 

34,  2173  43014 

34.2174  03260 

34.2175  C3C61 


0 

1 

1 

l 

0 

0 

1 

0 


0 

0 

0 

1 

1 

0 

1 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

0 

0 

0 


LGCPMX 
IN  ITST 
OVMA  XI 

0 VMA  X2 

1 DPB2 

1 0PP2B 
PM  INE 
EPSI  L N 1 
NI CKFLDP 
FIFPSDP 
PM  INM 
DE  LMA  XI 
ONETHTH 
TM  IN 
CSI/A 


BANK  34 

setlo;  :si/cdhi 

BANK 

FBANK=  SURE  XI T 
COUNT*  $f/CSI 
2 DEC  16 

2 OEC  .03048  B-7 

2DFC  3.0480  B-7 

2d  EC  3.C1A4  72  B-7 
2.  DEC  1 .0  R-2 
2 DEC  1 

2DEC  157420  B- 29 

20EC  . 0003048  B-7 

2 DEC  .021336  B-7 

2DEC  - . 15240C  B-7 

20FC  10668  R-29 

2 DEC  .6096000  8-7 

2 DEC  .0001  B-3 

2DEC  60000 

CLEAR  SF  T 

S 32  . IF  1 
S3  2 . 1 F2 


LEMP3CS 


1C5  PAGE 


9:12  CCT.  21,1970 

USER  'S  PAGE  NC.  15 


6 3C 

E7  S3 


INI  TI  Al  HELD V = 10  FPS 
MAXIMUM  nvi  = 1000  FPS 
Q89  FPS 


85  NM  - MUST  BE  8 WTRDS  BEFORE  PMINM 
.1  FPS 

7 FPS  (CHANGED  FROM  .05  FPS) 

50  FPS 

35000  FT  - MUST  BF  8 WORDS  AFTER  PM  INE 
230  FPS 

10  MIN 

INITIALIZE  INDICATORS 

DVT  1 HAS  EXCEEDED  MAX  INDICATOR 

FIRST  PASS  FOR  NFWTON  ITERATION  INDICATR 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY 


L P32-P35  , P72-P75 


5503 

5534 

5505 

5506 
5537 
550fi 
5500 
551  0 

5511 

5512 
551  3 

5514 

5515 

5516 

5517 

5518 
551  9 

5520 

5521 
552? 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 
554? 
5543 
5546 

5545 

5546 

5567 

5568 
5540 
555  0 

5551 

5552 


RFF 

P-EF 

REF 

RFF 

REF 


REF 


REF 

PEF 

RFF 

RFF 

RFF 

RFF 

RFF 


REF 


RFF 


RFF 

REF 

PCF 

REF 

RFF 

PEF 

REF 

REF 


REF 


3 


2 


6 


1 


3 


? 


3 

1 

2 

2 

1 

3 

1 


LAST  626 
LAST  619 

LAST  621 

LAST  49  5 

LAST  599 
LAST  63  1 

LAST  63  1 


LAST  631 
l AST  122 

LAST  16R 
l AST  14  5 
LAST  145 
LAST  631 
LAST  63  1 


34,  2177 
34,2200 
34  ,22C1 
34,  22 C2 
34  ,2  203 
34,2204 
34,  2205 
34  ,2206 
34,  22C  7 
34,  22  1o 

34.2211 

34. 2212 
34  ,2213 
34,2214 
34,  22  15 
34  ,2216 
34,  2217 
34,  2220 
34  ,2221 
34, 2222 
34  ,2223 
34  ,222 4 
34, 2225 
34  ,2226 
34,  2227 

34. 2230 

34.2231 
36,  2232 
34  ,2233 
34  ,2234 
34, 2235 
34  ,2236 
3 4,  22 2 7 

34. 2240 

34.2241 
34,  2242 
36  ,2263 
34 ,2.264 
34, 2245 
34  ,2246 
34,  ?247 

34. 2250 

34.2251 

34. 2252 
34  ,2253 
34  ,2254 
34, 2255 
34  ,2256 
34, 2257 


43014  0 
03262  1 
03063  1 
77745  1 
22425  C 
03606  1 
03614  1 
7 7 20  1 1 
00001  0 
C2274  1 
41446  1 
70501  1 
C0C50  1 
51515  1 
03552  0 
“.30  1 0 
Of  047  1 
53664  0 
00  046  0 
57175  0 
4121S  1 

3C  150  C 
65301 
COG 4 7 1 
02312  0 
56342  1 
7 54  57  0 
2017?  1 

5351s  0 

02274  1 
47315  0 

02252  0 

77656  1 
72441  0 
0347?  0 
45421  1 
6Q2C  3 0 
30  142  0 
03612  1 
4-3345  1 
03606  1 
20152  1 
0 3606  1 
77025  0 
30  140  1 
(7006  1 
77644  1 
71C56  1 
776C1  0 
CCCC1  0 


CSI  /R 


CS1  /3  1 


CS  1/  B? 


9:12  OCT.  21,  1970  L EMP  30S  . 105  PAGE  631 
USER'  S PAGE  NC.  16  E7  S3 


S3  2. 1 F3  A 

5 3 2.  IF  3B 

OLOAD 

P30ZERC 
STORE  I nOPCT 
STORE  CSIALRM 
SFTPD  VLOAD 
DO 

RACT1 

ARVAL  PUSH 
NORM  SRI 

X2 

POVL  ARVAL 
RPASS3 
NORM  BOO  V 
X 1 

X SU  ,2  SR* 

X 1 

1,  2 

0 AO  OMP 

1DPB2 

NORM  POOL 

XI 

R T MU 

SRI  1)0  V 

SL  * SQRT 

0 -7,  1 
POVL  UNIT 

RACT1 
POVL  VXV 

UPl 

UN  IT 

DOT  S LI 

VAC  T 1 
BDSU  STAOR 

STCOL  HE  L VC  SI 
IN  I T ST 

STORE  OELDV 

DLOAO  0 AD 

LQOPCT 
10PR28 
STORE  LOOPCT 

DSU  AXT.2 

LOCPMX 

6 

RPL 

SC  NO  SOL 

SETPD 

00 


00=  1 ST  2 PASSES  2N0  CYCLE  Ol=FIPST  CYCLE 
1 Q=2ND  CYCLE  11=50FPS  STAGE  2ND  CYCLE 


RAI 


PA1/RP3 


(1  ♦ (RAl/  RP3  ) ) R A 1 


B29  PL02D 
R29-N2+  8 1 PL  040 

B I PL  D 20 
B 2 

B?9  +82=  B 3 1 PL  COD 
PLC2D 

B 3r-B  3 1=  R 7 PL  OOO 
B7 

PL  02D 


UMITIURP1  X UVP1  X UKA1)  = UH1 
VA1  . UHl  H 7 

PLOOD 

10  FPS 

IF  LDOPCT  = 16 


GAP:  ASSFH8LF  RFVI  SI-IN  56  GF 

L p32 -P35 , P72-P75 


PRCGRAW  ZERLINA  BY  ZOROASTER 


5553 

555'* 

5555 

5556 

5557 

555ft 
555ft 
55  AC* 
5561 
556? 
5563 
556* 

5565 

5566 

5567 

5568 
556ft 

5570 

5571 

5572 

5573 
55  7'. 

5575 

5576 

5577 
557fl 

5579 

5580 

5581 
55  ft? 

5583 

5584 

5585 

5586 

5587 

5588 
558ft 
55  ftO 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 
5630 

5600  C 1 
560002 


PFF 

REF 


REF 

REF 

REF 

PFF 

REF 

REF 

REF 

PFF 

REF 

RFF 

RFF 

RFF 

PEF 

RFF 


2 L AST  630 
2 LAST  631 


2 LAST  631 


2 LAST  631 

3 LAST  632 


3 LAST  632 


5 LAST  632 

6 LAST  632 


5 LAST  631 
4 I AST  631 


3 LAST  631 

1 

2 LAST  146 
1 

4 LAST  62  C 


3 LAST  615 


3 LAST  6 15 
I 

4 L AST  619 


34  ,2260 
34t2261 
34, 2262 
34  ,2263 
34,  226  4 
*4 ,2265 
34  ,2266 
34, 2267 
34  ,2270 
34, 2271 
34,  2272 
84 , ? ? 73 
34,  2274 
, 

34  ,2276 
34, 7277 
34  ,2300 
34,2301 

34,  2302 
34  ,2303 
24, 23C4 

34 , 2306 
24, 23C7 
34  ,2310 
34,231  l 
34, 2312 
34  ,2313 
34, 2214 

34. 2315 

34.2316 
34,  2 2 1 7 
34  ,2320 
34,23?  1 
3*. , 2322 
34  ,2323 
24, 2224 
34, 2325 
34  ,2326 
34, ?327 
34  ,2330 
34,233  1 
3a, 2332 
34  ,2333 
24, 2324 
34,  2 3.35 
34  ,2336 
34,  2 22  7 
34  ,2340 
34  ,?34  1 


51545  1 
C3574  1 
5CC2  5 0 
30144  0 

7C304  1 

43174  1 

OOOC7  0 
0 3300  1 
71056  1 
4 3 C 1 4 C 
0 3342  1 
70276  0 
033C3  1 
71056  1 
71214  0 
03060  1 
30  146  1 
77765  O 
C 3 5 7 4 1 
03574  1 
41575  0 
C22  74  1 

63? 56  0 
C2252  0 
53435  0 
76  561  I 
03574  1 
02260  1 
4CC55  C 
03472  0 
70317  0 
37566  0 
46437  0 
26744  1 
7 7 6 1 4 1 
03466  0 
26655  0 
32421  1 
36730  0 
24732  1 
72142  0 
0 ?77  6 0 
27604  1 
46347  0 
77624  1 
46447  1 
17602  0 
03621  1 
52054  1 
70343  1 


□LOAD 

OSU 


CSI/H22  SET 


ABS 

DE  LVCS1 

3HN 

DV  MAX  1 
C SI  /B23 
PON 
7 

S32.1F1 

SCNDSQL 

BON 

S32.  IF  3A 
OS  I/R2? 
S3  2.  1 F 3 B 
SC  NO  SOL 
DLGAD 
S32.1F1 
PVMAX2 


DE  LVC  SI 
STORE  DELVCSI 
CSI/B23  VLOAD  PUSH 
RACT1 

UNIT  P OV  L 
UPl 

VXV  UNIT 
VXSC  VS  LI 

0 E L VC  SI 

STORt  DEL V EFT  1 
VAD  8 0V 

VAC  T1 

rs  I/B23D 

C SI  /B  2 30  STC ALL  VACT4 

V EC  SHI F T 
STOVL  VV  EC 


STOVL 
ST  CALL 
SR  l 
S TC  A L L 
CALL 
STODL 
BZE 


RVSW 
RVEC 
SN  359+ 

S NT  H 
TI  PE  THF  T 
I XA,  1 
RTX1 
8 ft  F PA  1 
PER  IAPO 

SHIFTR  1 
POST  CS  I 
CENTANG 

GOTO 


+2 


63^ 


9:12  OCT.  21,  1970  L EMP  3CS 
USER'S  PAGE  NO.  17 


105  PAGE 
E7  S3 


FLAG  3 NFO  3 


UNI  T ( UR P 1 X UVPI  X URA1)  = UH1 


ALSO  CSTH 


GAP  : 


SSEMBLE  REVISION  56  OF  AGC  FRCGF  AM  ZFRLINA  BY 


L P32-P35,  P72-P75 


5600 C 3 RFF 

5600  C A 
560005  REF 

5601 

5632  RFF 

5603  REF 

5604 

5605  REF 

5606  REF 
560  7 

6609  RFF 

5610 

5611  RFF 

5612  RFF 
5513 

5614 

5615 

5616 

5617  RFF 
551? 

56l«  REF 

5620  RFF 

5621 

5622  RFF 

5623 

5624  P E F 

5625 

5626 

5627  RFF 

5628  RFF 

5629 

563'  REF 

5631 

563? 

5633 

5634  RFF 
5636  RFF 
5636 

6537  REF 

5638  RFF 

5639  REF 

5640 

5641 

5642  REF 

5643 

5644  RFF 
5545 

5646 

5647  REF 


8 


6 

3 


1 

3 

2 


2 

3 


7 


2 


3 


LAST  129 
LAST  633 

LAST  632 

I A ST  631 

LAST  63  2 
LAST  632 


LAST  63  3 
LAS!  129 

LAST  631 

LAST  120 

LAST  633 
LAST  633 

LAST  633 

LAST  37 

I AST  633 
LAST  633 
LAST  146 

LAST  621 
LAST  633 

LAST  631 


34  ,2343 
34, 2344 
34  ,2345 
34,  2 346 
34,  234  7 
34  ,2350 
34, 7351 
34  ,2352 

34.2353 

34. 2354 
34  ,2355 
?4,  2356 
34,  2 357 
34,2360 
34,  236  1 
34  ,236? 
34  ,7363 
34, 2364 
34  ,2365 
24, 2366 
34,  2 36  7 
34 ,2  3 7C 
7 4,  237  1 
34  ,2372 
34  ,2  373 
34,  23 74 
34  ,2375 

74. 2376 

34. 2377 
34  ,2400 
24, 24C 1 
34  ,2402 
34,2403 
34,  240 4 
34 ,2405 
34,  2406 
34,  240  7 

34.2410 

34. 2411 
34  ,2412 
34,2413 
34,  24  U 
34  ,2415 
74,  2416 
34, 2417 
34  ,2420 
34, 2421 
34  ,2422 
34  ,2423 


7' >452  0 
77745  1 
02752  0 
50025  0 
3C170  l 
70452  0 
45145  0 
C0C4  1 1 
46447  1 
60201  1 
OOCC  3 1 
00047  1 
50315  0 
02274  1 
03566  1 
56246  1 
07003  1 
45257  0 

2q2o  1 0 

30160  0 
71240  1 
70452  0 
C2  740  0 
46312  0 
30  150  0 
14017  1 
02210  1 
56342  1 
41325  0 
C?  740  0 
C0041  1 
77624  1 
46447  1 
7 2412  0 
41266  1 
52414  1 
C4343  1 
70410  0 
5 0315  0 
C2274  1 
03566  1 
0 3617  1 
77646  0 
41301  U 
CCC50  1 
5 3660  l 
00047  1 

20 2C4  0 
140  15  0 
3 24  25  0 


CS  1/83 


9:  12  OCT.  21,  197C  LEMP30S 
USER'S  PAGE  NG.  18 


105  PAGE  633 
E7  S3 


C IRCL 

DLOAD 

e:c 

OSU  BMN 

ONFTHTH 
CIRC  L 

OLOAD  CALL 
Rl 

SHIFTR  1 
SE.TPD  NORM 
20 
X ] 

PD VL  DOT  PL  r 40 

3ACT1 
V ACT  4 
ABS  DDV 

C 20  I/RDOTV/I/Rl  B36-B29  = 87 

SL*  DSU 

0,1 

N ICKELOP 
BMN  ULCAD 

: IRC  L 
P 

SL2  DSU 

1DP  B 2 

S T DDL  14D 

2 T SR  1 /MU 

SP1  DDV  ( 1/R30TMU1  /Rl  B-16-B29  = 8-45  PL02D 

POOL  DMP 

P 

Rl 

CALL 

SHIFTR 1 
SL4  SL1 

SORT  3 MP  ( ( P/MUj**.5)/Rl  B14+B-45  = B-3 1 PL  0 2D 

BD  FF  SL  3 

CMCGNFLG 

: si  /ft  3 

PDVL  DOT 

PACTl 
VACT4 
STORE  ROOTV 

AB  S 

NORM  DMP  ( (P/MU)**.  5MD0TV/R1  PL02D 

X2 

XSU.l  SL*  B-3 1 + B36  -03  = B2 

X 2 
3,1 
1 2D 

P30ZER0 


STOOL 


ASSEMBLE  REVISION  St,  FF  AGC  PROGRAM  ZEAL  I N A pv  ZOl 


L P32-P35,  P7?-P75 


5648 

564** 

5650 

5651  RFF 
555?  RFF 

565  3 

5654  RFF 

5655  RFF 

5656 

5657  RFF 

5658  RFF 
S6SQ 

5560  RFF 

5661  RFF 

5662  RFF 
5563 

5664  RFF 

5665  RFF 

5666 

5667  RFF 
5568 

566  ° PFF 
5670 

56  71 

567?  REF 

5673 

5574 

5675  REF 

5676  RFF 

5677 

5678 
5 6 78 

5680  REF 

5681  RFF 

5682 

5683  RFF 

5684 

5685 

5686  REF 
5537 

5688 

5689  P-FF 

5690  RFF 

5691 

569?  REF 
5 69.3  RFF 
5694  RFF 
56?5  RFF 
569  6 REF 
5697 


3 

2 


2 

2 


LAST  632 
LAST  633 

LAST  633 
LAST  633 

L A SI  632 
LAST  6 32 

LAST  632 
LAST  6 32 
LAST  632 

LAST  634 


I A ST  63 2 

LAST  634 


I AST  633 


LAST  619 
LAST  634 


LAST  620 
LAST  626 

LAST  6?6 


LAST  632 


LAST  634 
LAST  634 


I AST  6?5 
LAST  615 

LAST  620 


34  ,2424 
2 4 » ? £ 2 s 
34, 2426 
34  ,2427 
34,  2430 
34 , ?43 l 

34.2432 

34. 2433 
34  ,2434 

34.2435 

34. 2436 
34  ,2437 
3 4,  2440 
34,  2441 

34.2442 

34. 2443 
3<*  ,2444 

. 

34, 2446 
34  ,2 447 

34. 2450 

34. 2451 

34 .2452 

34. 2453 
34  ,2454 
34,2455 
34,  2456 
34  ,2457 
34,  ?4 6 C 
34,  246  1 
34,7462 
74, 2463 
34  ,2464 

34.2465 

34. 2466 
34  ,2 467 

34. 2470 
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636 


639 

639 

636 


36,  30  16 
36 ,3017 
36,3020 
36,  3021 
36 ,3022 
36,  3023 
36,  30  26 
36,3025 
36,  3026 
36  ,3027 
36  ,3030 
36,  303  1 
36  ,3032 
36, 3033 
36,  30  36 

36.3035 

36. 3036 
36  ,3037 
3 6 ,3060 
36,  306  1 
36  ,3062 

3063 
36,  3066 

36.3065 
36,  3066 
36  ,3067 
36 ,3050 
36,  30  5 1 
36  ,3052 
36,  3053 
36,  30  56 
36,3055 
36,  3C56 
36  ,3057 

, 

36,  306  1 
36  ,3062 
36, 3063 
36,  3066 

34.3065 
34,  3C  6 6 
34  ,->067 
34,3070 
34,  307  1 
36  ,3c 7? 
34,  3C73 
34,  30  74 
34,3075 


70245  0 
77  145  1 
C36C2  0 
OC  OC  2 0 
77750  0 
C?  776  0 
50C23  0 
30152  1 
71C56  1 
71374  1 

00003  1 
0 3604  0 
50023  0 
30152  1 
71056  1 
45345  1 
01775  0 
03634  0 
02244  1 
45374  0 
OOOC4  0 
30172  0 
77C40  0 
71056  1 
CCCC5  1 
65345  1 
03636  1 
01775  0 
02246  0 
c 1025  1 
30172  0 
72157  1 

4 3 C 1 4 0 

03302  0 
72045  0 
03343  o 
72045  0 
71334  0 
03613  0 
32425  0 
4 3C 1 4 0 
03260  0 
03061  0 
43014  C 
03262  1 
C3263  0 
3 76C6  0 
70205  1 


CS  1/SOL  ULOAD 


STORE 
A XT, 2 


CSI  /m 

A XT,  2 
POSTCS  I 


PTX1 

3MN 

PMINE  -2 
SC  ND  SOL 
OLOAO 
3 

PQSTCDH 

RMN 

PMI  NE  -2 
SC  ND  SOL 
OSU 
TCOH 
TO  S I 
Tl T0T2 

3 SU 

4 

T MI  N 
A XT,  2 

5 CNOSOL 


OLOAO  DSU 
TTPI 
TCOH 

STORE  T2T0T3 
OSU  R PL 

TMI  N 

P32/P72C 

SC  NO  SOL  RON  8 OFF 

S 32.  1F3A 
AL  MX  IT 
S32.  1 F 3r 
AL  MX  IT 

SXA  ,2  OLCAO 

C SI  ALPM 
P3C ZERO 
CLEAR  SET 

S32.1F1 
S32  .1  F2 
CLEAR  CLEAR 

S32. 1F3A 
S32.1F3R 
STCALL  LOOPCT 
CS  I/B 


9:  12  OCT.  21  ,1970  LFMP3CS 
USER  'S  3 A GE  NO.  24 


.105  PAGE  639 
E7  S3 


'.SO:  ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P32-P35,  p 7 2-  P 7 5 

PSOOO  AOVANCF 


3 60S-  SUBROUTINES  USED 


R61S1  PRECSET 

R605?  OTTATF 


6^01  REF  9 

6 1 C 2 P F F 13 

6133  1 I 

sir  a ref  2 

6105 

61055  PFF  2 

6106  REF  2 

6107  REF  A 

6 1 F fl  RFF  5 

6 1 0<J  PFF  5 

sin  ref  a 

6111  REF  A 

6112 

6113  REF  6 

611  A 

6 1 IS  RFF  6 

6116  PF-F  7 

6117  REF  5 

6118  REF  1 

6 1 1 9 PFT  7 

6126  RFF  10 

6121  RFF  6 

6122  REF  A 

6123  REF  2 

612a  REF  2 

6125  PFF  A 

6126  REF  10 


LAST  630 
LAST  625 
LAST  620 
LAST  620 


l AST  612 
LAST  636 
LAST  635 
LAST  63a 
LAST  636 
LAST  635 
LAST  635 

I AST  6A0 

LAST  635 
I AST  636 
LAST  615 

I AST  635 
LAST  63A 
LAST  635 
I AST  615 
LAST  6A0 
LAST  634 
LAST  632 
l AST  6A0 


34  , 3076 
3 A,  30  77 
3 A ,3100 
3 A,  3 IT  1 
3A,  3[C? 
3A  ,3  1 03 
3 A,  3 1 C A 
3 A ,3  1C  5 
JA  ,3 106 
3A,  3 1c  7 
34,3110 
3A, 3111 
3A,  Til? 

3 A , 3 1 1 3 
3A,  3 1 1 A 
3A  ,3115 
3A  , 3116 
3A,  3117 
3A  ,3120 
3 A,  3121 
3a,  3122 
3A  ,3123 
3A,  3 1 2 A 
3A  ,3125 
3A  ,3126 
3A, 3127 

3A  ,3130 

1A,  3131 


03AA?  0 
3ACA1  C 
A6A01  0 
772 1 A 0 
01067  1 
0356C  1 
03c3f  l 
275C6  1 
0355?  0 
C 3522  1 
035G0  1 
A 72  56  0 
C 3506  1 
77656  1 
26  25  2 0 
0 3536  1 
37 642  0 
71132  1 
02302  1 
26274  1 
C3544  1 
37650  0 
71132  1 
03514  1 


3747?  1 
03A70  1 


ADVANCE 


STQ  DLOAD 

SU3F  XI  T 
T IF 

STCALL  TDEC1 

PPEC  SET 
SET  VLOAD 

XDELVFLG 
VPASS3 
STORE  VPASS2 
STOVL  VPASSl 
R P ASS  3 
STORE  R P ASS? 
STORE  RPASS1 
UNIT  VXV 

VPASSl 

UN  IT 

STOVL  U PI 

RAC  T3 

STCALL  RT IG 

ROTATE 

STORE  RACT? 
STOVL  PACT  1 
VACT3 

STCALL  VTIG 

ROTATE 
STORE  VACT2 
STCALL  VACT1 

SUBEXIT 


12  OCT.  21,1070  LFKP30S  .105  PAGE  640 
JSFR'S  PAGF  NO.  25  E7  S3 


GAP:  ASSCMBIE  REV1SIUN  56  OF  A3C  PROGRAM  7ERLINA  BY  ZOROASTER 


9:12  QCT.  21,  1970  L EMP30S 


L P32-P35,  P72-P75  USER'S  PAGE  NC.  26 

P 6200  ROTATE  


63  00 
6301 

5302 

5303 


6 39  4 

6305 

6306 


67(  7 


PEE 

PEE 


7 LAST  640 

8 LAST  6^1 


34,  3 1.12  4 1 4C 6 0 

34,3133  74241  0 

34,  3 1 34  02252  0 

34,3l  35  02252  0 

34.3136  51352  1 

34. 3137  63256  0 

34,3140  74246  1 

34,3  14  1 43572  f 


ROTATE  PUSH  PUSH 
DOT  VXSC 
UP1 
UP  1 

VSL2  BVSU 
UNIT  POVL 
ABVAL  V X SC 
VSL1  RVQ 


.105  PAGE  64 1 
E7  S3 


GAP:  ASSEMBLE  REVISION  56  OF  AGC.  PROGRAM  ZEKLINA  BY  ZCUOASTER 


L P32-P35,  P72-P75 

P73D3  INTINTNA 


7 100 
710  1 

7102 

7103 
71  04 

7105 

7106 
717 
7lfB 
7160 

7110 

7111 

7112 

7113 


P.CF 

RFF 

PFF 

REF 

PFF 

RFF 

RFF 

PFF 


12 

1r 

3 

3 

1 1 


LA  ST 
L AST 

LAST 

LAST 

LAST 
LA  ST 

LAST 

LAST 


36,3142  65325 

639  36,3143  03636 

636  36,3164  C1775 

34  ,3  1 45  4 1525 

635  36,  Z 166  33647 

3a,  3 1a  7 77650 

635  JA , 3 1 50  73404 

34,  3151  65325 

6A?  34,3152  01775 

636  34,3153  03636 

34,  3 15A  A 1*2*= 

639  3A.3155  32A25 

2 A , 3 1 5 6 7 7 6 5 C 

6A  2 3a,  3 157  73404 


INT  INT  2C  POOL 

0 

0 

0 POOL 

1 

1 GOTO 

0 

0 INT!  N T 3p  POOL 
0 

1 

POOL 

0 

1 GOTO 

0 


POOL 
t rs  i 
TC  OH 
p JSH 
TWO  PI 


INT  INT 
POOL 
TC  OH 
TT  PI 

P USH 
P30ZERO 

I N TI  N T 


9:12  (XT.  21  ,1970  LEMP3GS 
USER  *S  PAGE  NO.  27 


.135  PAGE  64  2 
E7  S3 


TAP:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P32-P35,  P72-P75 
P7400  S32/33.1  


3 7450  SUBRQUTl  NF  S USED 


R7451 


7500 
7500  1 

75002 

75003 
75354 
75  Ul 


750? 
7533 
7504 
7 50  5 
75051 
7506 
7537 
750R 
750<» 
7513 


REF 

REF 

RFF 

REF 

RFF 

RFF 

REF 


? 

2 


14 


8 

3 


12 


LAST  640 

LAST  621 
LAST  62  8 
LAST  628 

LAST  615 
LAST  615 
LAST  64  3 


34  ,3160 
34 ,3161 
34,  3162 
34  ,3163 
14,  3 16  4 
34,  3165 
34 ,3166 
34, 11(7 
34  ,3170 
34 ,3171 
34,  ‘‘172 
34  ,3173 
34, 3174 
34,  3 1 75 
34,3176 
34,  3177 


760  20 
03470 
01521 
77624 
72375 
776  24 
71200 
61375 

03434 
00001 
77772 
03656 
5 1 4 C6 
2 7664 
77650 
C 34  70 


S 32/ 33 . 1 STO  A XT,  1 

SUBEX  IT 
VN  0681 

CALL 

01 SDVLVC 

CALL 

S 32/  33 .X 
VLOAD  VXK 

OELVL  VC 
OD 

VSL  1 

STDRF  0ELVS1N 
PUSH  ADVAL 
STOVL  OELVSAB 
GOTO 

SUBEXI  T 


0:  12  OCT.  21,  1 9 7C  LFMP30S.1C5  PAGE  643 


US  FP  *S  P AGF  NO  . 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  70RQA  ST6R 


P32-P3 5,  P 7 ?-  P 7 5 


07800  S 32/  33.X 


79f, 

7<J71 

7902 

7908 

7909 
7 9 C 5 

7906 

7907 
79C  8 
7909 
79i  r. 


PFF 


PEF 


PEF 


If 


LAST 


LAST 


L AST 


39  ,3200 
39 ,3201 

69  1 

39  ,3203 
690  3 9,  3 2G9 

39,3  20  5 
39.32C6 
699  39,3207 

39  ,3210 
39 ,3?  11 
39, 3212 


7720  1 1 
00fC7  0 
02252  0 
63276  1 
C2279  1 
5 79  56  1 
97206  C 
C2252  0 
7777?  0 
00001  0 
77616  0 


S 32/  33  .X  SETPD 


VCOMP 

UNIT 

PUSH 

VSL  1 

STCRF 
R VO 


VLOAO 

60 

UPl 

POVL 

RACT1 

v:omp 

vxv 

UPl 

00 


12  OCT.  21  ,1970  LEPP30S 
USER  *S  3 AGE  NO.  29 


.105  PAGE  699 
1 7 S3 


SAP: 


iSSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P 32-P  35 , P72-P75 

CDHMVR 

SUBROUTINES  USEn 


R 8053 


’ 

8101 

319? 

8103 

8104 
3 19  5 
8106 
810  7 
8108 
8100 
3113 
8111 
8112 
3113 

8114 

8115 
8115 
8117 
9119 
Rl  1 9 
8120 
8121 
812? 
8123 
8125 
8125 
9126 

8127 

8128 
9129 

8130 

8131 
81.3? 
8133 
9136 
8135 
8 1 36 
3 1 3 Z 

8138 

8139 

8H0 

8161 


PFF  13  I A ST  46  3 


REF 

RFF 

REF 


L AST  640 
LAST  665 
LAST  502 
LAST  599 


REF  11  LAST  664 


REF 

PEF 

REF 

REF 

RFF 

RFF 


c LAST  640 
3 LAST  634 
6 LAST  634 

5 LAST  634 
5 LAST  634 
9 LAST  634 

2 L A ST  615 


LAST  64  5 


14, 3213 
34  ,3214 
34,  32  1 5 
34,  ’216 
• 

• 

34  ,3221 

34.3222 

34. 3223 
34  ,3224 
34,  3225 
34,  3226 
34,3227 
34,  3 2 2 0 
34  ,3231 
34,323  2 
14,  3233 

. 

34. 3235 

34. 3236 

34.3237 
34,  324C 
34  ,3241 
34,3242 
34,  324-3 
34  ,3244 
3 4,  3 24  5 
34, 3246 
34  ,3247 
34,  3250 

. 

34*3252 

34,  3253 
14,  54 

• 

34. 3256 

34.3257 

34. 3260 

36.3261 

34.3262 
34, 

34  ,3264 


77220  1 
03470  1 
C23C2  1 
534C6  0 
27544  1 
03522  1 
50256  0 
03544  1 
72406  0 
16732  0 
65316  0 
06510  0 
45302  1 
72566  1 
57515  1 
77635  1 
03522  1 
65241  0 
02252  0 
45565  0 
51047  0 
03522  1 
45115  0 
03530  1 
46437  0 
26744  1 
77614  1 
03666  1 
36655  1 
14732  1 
53754  1 
02777  1 
57576  1 
00023  0 
16441  1 
03544  1 
51515  1 

63257  ' 

57576  L 
02302  1 
6 5 246  1 
77625  0 


PUSH 

STOOL 

OSQ 

SR2 

SORT 

POVL 


ST  CALL 
L XA,  2 


VLCJAD 

SU9EX  IT 

RACT2 

UNI  T 

JNV  EC 

RPASS2 

DOT 

UNVEC 

SLl 

C.STH 

POOL 

OP  1/4TH 

DSU 

SLl 

VCOMP 

R PA SS2 

POOL 

UP1 

S r ADR 

S NT  H 

RPASS2 

CALL 

V P ASS  2 
VEC  SHIP 
VVFC 

RVSW 
RV  EC 
TI  METHE 

V SL  * 
RTX2 
C,2 
18  D 
SLl  R 
UNVEC 
A BV  AL 
PDVL 
0,  2 


9:  12  OCT.  21,  1970  LFMP30S.105 


PAGE  645 


USER'S  PAGE  NO.  30 


UR  SUB  A 


OD  = V SUB  PV 

2D  = LENGTH  OF  R SUB  A 


JAP:  ASSEMBLE  REVISION  5o  OF  AGC  PROGRAM  ZERL INA  BY  ZOROASTER 


P 22-P  35, 


P 72-P  75 


8U2 

8143  REF 
9144  REF 
RlA5 

8146  REF 
9 14  7 P FF 

8148 

8 1 AO  P FF 

8150 

8151 
915? 

8153 

8 1 5A  PEF 
3155 

8156 

8157 

8158 
81  50 
3 160 
8 1 6 1 
8162 
3163 

816A  RFF 

8165  PFF 

8166 
8167 
3168 
81  60 
8170 

9171  RFF 

817?  PEF 

8173 

81  7A 

8175 

9176 

Bl  77 

8]78 

3170 

8180  REF 

8181  REF 
9182 

8183 
81  PA 

8lR5  REF 
8186 
3187 
818  8 

8180  PEF 
8190 

8101  REF 


2 

10 


3 


LAST  321 
LAST  129 

LAST  637 
I AST  63  3 

LAST  635 

LAST  6A6 


LAST  6A6 
LAST  631 


L AST  638 
LAST  6A6 


LAST  6A5 
LAST  6A5 


LAST  6A6 

LAST  6A0 
LAST  6A0 


3A, 3265 
3A.3266 
3A,  3267 
34,3270 
3A , 32  71 
lA,  3272 
3A  ,3273 
3A  ,3?7A 
3A, 3275 
3 A ,'■*  2 76 
3 A,  ->277 
3A,  3300 
3A , 3 301 
. 

3 A ,3303 
3 A »330A 
36,  3 305 
3 A ,3306 
3A,  33C7 
3a,  3310 
3 A , 3 3 1 1 
3 A,  3312 
3A  ,3313 
3A,33  1A 

3a, 3315 
3 A ,3316 
3 A,  3317 
3a,  3320 
3A ,3321 
3 A,  23? 2 
3A  ,3323 
3A.332A 

34, ?325 
3A  ,3326 
3 A,  3327 
34,  3330 

34 ,3331 
34,  3 322 
34  ,3333 
34  ,3334 

34, 3335 
34  ,3336 
34,  13  2 7 
34, 33*0 

34 ,3341 
24,  3 3 A 2 
34  ,3343 
34,3344 

3 A,  3345 
34,3346 


C C C 0 3 1 
176(0  1 
C2/42  1 
65301  0 
00047  1 
OOCAl  1 
77624  1 

46  4 47  1 
56  ?6 2 0 
41457  1 
2d74  1 
65225  1 
03600  1 
563C2  0 
£0005  1 
75406  1 
4 1275  1 
0(007  0 
CCC01  0 
65272  0 
00003  1 
6 6 3C  1 0 
4 7 i 
02312  0 
66  342  1 
65257  l 
2C174  1 
0( C05  1 
65301  0 
C OCcC  1 
02312  0 
56342  1 
44257  1 
57604  1 
63525  0 
00011  1 
75421  1 
47315  0 
02252  C> 
03544  1 
74256  0 
00013  0 
74315  0 
0 3544  1 
00011  1 
76455  1 
77626  0 
74  233  O 
77651  0 
03514  1 


02D 

STOOL  DIFFALT 
Kl  A 

NORM  POOL 
XI 
Rl 

CALL 

S H I FT  Rl 
SRlR  ODV 

SL*  PUSH 

0 -5,1 
DSU  POOL 

DIFFALT 
SR2  OOV 

040 

PUSH  SORT 

DMPR  OMP 

060 

000 

SL3R  POD  L 

C 2D 

NORM  POOL 

X 1 

RT  MU 

SR  1 OOV 

SL  * POOL 

0 -5  ,1 
040 

NORM  POOL 

x2 

RTMU 

SRI  ODV 

SI*  30  SU 

0 -6,  2 

POOL  OS  Q 

080 

ROSU  SORT 

PD  VL  VXV 

UP  1 
UNVEC 

UNIT  VXSC 

100 

RD  VL  VXSC 

UNVFC 
080 

VAD  VSLl 

ST  ADR 

STORE  VACT3 

VSU 

V ACT  2 


9:1  OCT.  21,1970  LFRP30S 

.105  PAGE  S45 

US  ER  'S  PAGE  NO  . 31 

E7  S3 

DELTA  H IN  METERS 

B*  29 

2 - R V** /MU 

040 

A SUR  A 

8+29  040 

A SUB  P 

R + 31 

A SJB  P/A  SUB  A 

6*2 

060 

V SUB  AV  METFRS/C  S 

R SUB  A MAGNITUDE  B+2S 

8 + 7 D8D 

2 MU  8+38 

2 MU/R  SU3A A B+14 

100 

ASUBA 

B+29 

2U/R  - U/A  8+14  ( METER  S/C  S)  SO 

100 


B A l-VSU BA 2 ) 100 


S ORT  ( MU  (2/  R SUB  A-1/A  SU 


4P:  ASSF  WBLF  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P’2-pv?,  P 7 2_  P 7 5 


819Q  REF  6 LAST  6?6 
8200  RFF  14  LAST  645 


34,  3347  36  26  6 0 
34,3350  C3470  1 


STCALL  DE  LVEC  T2 
SUBEX  IT 


9:  12  03  T.  21,1970  LEFUgoS  .1.05  PAGE  647 
USER'S  PAGE  NO.  3?  E7  S3 

DELTA  VC DH  - REFERENCE  COORDINATES 


P«2  01 
Kfl2  (-2 


ASSEMBLE  REVISION  56  U^  AGC  PROGRAM  ZERLINA  BY 
P32-P35,  P72-P75 

COMP TOO  

SLBRCUT  I NES  I'S  EC 


35  ,2437 
35,2X0 
35,  2'«?7 


BANK  35 
SETLCC  CS  I/CDH 
BANK 


9209 

8210 
a ? 1 1 

3212 

B213 

8214 

8215 
8210 
3217 
821  fi 
8218 
921Q 
3220 
8221 
8222 
8223 


REF  2 
PFF  128 
PFF  2 


PFF 

REF 

PFF 


1 A ST 
I AST 
LAST 
LAST 

LAST 
I AST 
L AST 


64  8 
600 
15? 
584 


35,2437 
35,2440 
35,  244  1 

35  ,2442 
?5,  2443 

35. 2444 

35.2445 
6 7,  1455 

. 

, • 

35,  2450 
35  ,2451 
35,2452 
15,  2453 
35  ,2454 


02716  0 
74  067  0 
C 5 ?40  0 
40C36  0 
0 50  24  1 
13000  0 
0 1465  1 


ERANK=  RTRN 

COUNT*  SS/P3575 

EXTEND 
OX  CH  PTRN 

OAF  ZERO 

TS  D IS  P DEX 

CAE  BIT2 

INHINT 

TC  W A IT  1 1ST 

E0ANK=  WHICH 

2CA0P  Cl  OK  TASK 

TC  2 PH  SCHNG 

OCT  40036 

OCT  05024 

OCT  13000 

TC  R T R N 


FNC  OF  LEMP3US 


,105  *** 


9:12  OCT.  21,1970  L 6PP30S 
USEP'S  PAGE  NO.  33 


.105  PAGE  648 
E7  S3 


GAP:  ASSEMBLE  RFVISION  ^6  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 

L GROUND  TRACKING  DETERMINATION  FPCGPAM  - P2  1 


9:12  OCT.  21  ,1970  KISSING  .064  PAGE  649 


USER  • S 3 AGE  NO. 


ROOf-2 
1 OOC  3 
R 3 0 j a 
R 0005 
1 0006 
R3337 
R 000  8 
R0009 
( i 

10011 

R3312 

ROCl  3 

1 00)4 
R3015 
i 

Ut  17 
R301R 
ROCl  « 
W 0020 
R(  ■ 21 
10022 
R3323 
R0024 
1 0025 
R3326 
ROC  2 7 
ROC  2fl 
R332Q 
1 0030 
ROOM 
ROC  32 
1 Of  33 
R3  0 34 
R 00  35 
ROC'  36 
R)  0 37 
1 0C3B 
R003° 
ROOAO 
10041 
R 3 3 4 ? 
R0043 
R0044 
RC  045 
1 0046 
R0047 
R004  8 
1 004  9 
R335"' 


GROUND  TRACKING  DETERMINATION  PROGRAM  P21 
PROGRAM  DESCRI  PT  I CN 
MOD  NO  - 1 

MOO  PY  - N.M. NEVILLE 
FUNCTIONAL  DECRIPTION- 

T(  PROVIDE  THE  ASTRONAUT  DETAILS  nF  THE  LM  OR  CSM  GRCUND  TRACK  HI  THOUT 
THE  NTF  D FCR  GROUNC  CCMMU  N IC  AT  I CN  (REQUESTED  BY  DSKY). 

CALI  ING  SEQUENCE  - 

ASTRONAUT  REQUEST  THROUGH  CS  KY  V37E21E 
SUBROIIT  INC  S CALLEO- 


G0PERF4 
CCFI,  ASH 
Till  SPREC 
OTHPRFC 
l AT  -LONG 

NORMAL  F X I T NODFS- 


ASTRCNAUT  REQUEST  TROUGH  DSKY  TO  TERMINATE  PROGRAM  V34E 
ALARM  OR  ABORT  F XI  T MODE  S~ 

NCNF 

OUTPUT  - 


OCTAL  DISPLAY  CF  CPTICN  CODE  ANC  VEHICLE  WHOSE  GROUND  TRACK  I S TO  BE 
COMPUTED 

OPT  ION  CODE  00002 
THI  S 00301 

OTHER  00002 

DECIMAL  DISPLAY  OF  TIME  TO  BE  INTEGRATED  TO  HD  UR  S , MINUTES  , SECONDS 
DECIMAL  DISPLAY  OF  LAT, LONG, ALT 
ERASAHIF  INITIALIZATION  REQUIRED 


AXO  2D  EC  4.  652459653  E-5 

-AYO  2DEC  2.147535898  E-5 

AZC  2 DEC  .775-3206164 

FOR  LUNAR  ORBITS  5C4LM  VECTOR  IS 

504LM  2 CFf  -2  .700343600  F-5 

5C4LM  _2  2 CEC  -7  .514128400  F-4 

504LM  _4  2DEC  _2.5f?198fc4l  E-4 

NONE 

DEBRIS 


RADIANS  %6fl— 69  CONSTANTS" 

RADIANS 

REVOLUTIONS 

NEEDED 

RADIANS 

RADIANS 

RADI  ANS 
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L GPCUNO  TRACKING  DET  E®M  I NAT  ION  PROGRAM  - P21 


* Of  5 1 

RODS?  C FNT  P AL  S-A,  Q,  L 

ROC  53  GTHES-THCSE  USED  PY  THE  ABOVE  LISTED  SUBROUTINES 
ROD 5*  SEE  L EMPPFC.I  A T-LONG 

DJ55  RTF  p L AST  500  3o,  2000  SBANK  = LOWSUPFR 


0056 
3 057 
0058 


REF 


6 LAST  5e5 


3?  1 20  3 1 
24,  2C.C0 
2',,  3^,A2 


BANK  33 
SFTLLX  P20S 
BANK 


0050  RCF  A 
3363  RFF  1 

0061  RFF  70 

0062  REF  3 

0063  REF  35 

0064  RFF  162 
3365  PFF  7 

0066  RFF  0 

0067 
3368 

00682  RCF  120 
00684  REF  23 
00686  REF  24 
0060  PFF  1 
3373  REF  163 

0071  RFF  11 

0072  PEF  1C 
3373 

0074 

00  76  RFF  71 

0076 

0077  RFF  25 
00775  PEF  1 

0078  REF  24 
0070  REF  IP 
3393 

0081  REF  1 

0082  PEF  1 

0083  PEF  17 

0084 

3395  REF  4 

0088 

0087 

3389  RFF  18 
0080 

00Q0  REF  12 
OCOl  REF  6 
0092 

3393  REF  9 
0094 


L A ‘'T  74  7 

LAST  610 
I A ST  501 
LAST  648 
LAST  675 
(AST  50  1 
LAST  625 


LAST  648 
I A ST  584 
LAST  650 

I Ad  650 
LAST  625 
LAST  650 


LAST  628 

LAST  650 

LAST  640 
LAST  607 


L AST  59  6 
LAST  650 


L AST  650 

1 A ST  596 
LAST  596 

I AST  59 7 


E7,l 76? 

24  ,3442 
24,3443 
24,  344  4 
74,3445 
24,  3446 
24,3447 
24  ,3450 
24,  345  1 
24,3452 
14 1 ’ 4 5 1 

24. 3454 

24.3455 
24,  3456 
34,3457 

24.3460 

24. 3461 
74  ,3462 
24  , 3463 
24, 3464 
24  ,3465 

24. 3466 

24. 3467 
74,3470 
24,  3471 
24  ,3472 

24 .3473 

24. 3474 
74  ,3475 
24,  3476 
24, 3*77 

24,3500 
24,  3501 
24  ,7  502 
74 ,3503 
24,  3504 
74  ,3505 
24,  3 5C6 
24,  3507 


3 4753  1 
cc, o 
7 4752  C 
C 4616  1 
7C634  1 
0 6C0  1 0 
0 7452  1 
0 3444  0 
3 4755  1 
5 5 1 C 44  1 
5 5 'C45  C 
3 3631  0 
C 4616  1 
20477  1 
C 6001  0 
C 3463  0 
C 3455  0 
C 6C51  0 
52145  1 
01045  1 
51623  1 
34C4  1 0 
2741C  1 
43014  0 
00304  0 
51511  0 
0U74  C 
7 1"1 53 5 0 
01145  0 
4303G  0 
51502  1 
C 1474  1 
430  14  0 
01676  1 
0 1673  1 
77624  1 
27133  0 
77650  1 


EBANK=  P21TIME 

COUNT*  H/P21 

PR0G21  CAF  ONE 

TS  0PTICN2 

CAF  3 I T2 

TC  BANKCALl 

CAOR  G0PERF4 

TC  GOTOPOriH 

TC  +2 

TC  -5 

CAF  ZERC 

TS  DSPTEM1 

TS  DSPTFM1  + 1 

P21PR0G1  CAF  V6N34 

TC  BANKCALL 

CAOR  GDFLASH 

TC  GOTOPOOH 

TC  +2 

TC  - 5 
TC  T NT  PR  ET 

□ LOAD  3 Z E 

DSPTEM  1 
P21  PPTM 

P21P3DG2  STCALL  TOEC 1 

I NT ST  ALL 
RON  CLEAR 

P 21FLAG 
P21  CONT 
VINTF  LAG 
SLOAO  SRI 

OPTI  CN2 
BHIZ  SET 
+ 2 

VI  NTFLAG 
CLEAR  CLEAP 

D I MO  FL  AC 
I NTYPF  LG 

CALL 

I NTEGRV 

GOTO 
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F CP  LGW  2CA0R*  S . 


ASSUMED  VEHICLE  IS  l u , R2  = OOCOl 
OPTI  ON  2 


TFRMT  NA  TF 

PROCEED  VALUE  OF  ASSUMED  VEHICLE  OK 

R2  LOAOED  THROUGH  CSKY 

INI  TIAL  TI  ME  = PRE  SENT  TI  ME 


L nA 0 DESIRED  TIME  DF  LAT-IONG. 


TERM 

PROCEED  VALUES  OK 

TIME  LOADED  THROUGH  OSKY 


INTEG  TO  TIME  SPFC  IF  IED  IN  T DEC  1 


ON RECYCLE  USING  BASE  VECTD3 

CFF— 1ST  PASS  CALL  BASE  VECTOR 


ZERO—  THIS  VEHICLE  ( LM) 
CNF  — OTHER  VFHICLF(CM) 


PRECI  SI  ON 

CALCJL  AT  E 
-AND 


GAP:  ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L GROUND  TRACKING  PE  TE  R MI  NAT  I C A PROGRAM  - P2  1 


0095 

REF 

1 

2 A,  3 610 

515  32 

1 

P21VS AVE 

009ft 

2A, 361 I 

77775 

1 

P21C3NT 

VL  HAD 

0097 

REF 

2 

LAST 

152 

24,3512 

03676 

0 

P21  BASER 

0099 

REF 

5 

1 AST 

503 

2 A,  35  13 

255  35 

0 

STDVL 

RC  V 

0C99 

REF 

2 

1 AST 

152 

2A  ,3514 

0 370  A 

1 

P 2 IRA  SEV 

oion 

REF 

LAST 

326 

2A , 3 6 15 

155A3 

1 

STOOL 

VCV 

oloi 

REF 

5 

LAST 

650 

2a,  3516 

0 3763 

0 

P 21TI  ME 

0102 

REF 

8 

LAST 

50  3 

2A  ,3517 

01517 

0 

STORE 

T ET 

0103 

2 A,  3620 

A3C1A 

0 

CLEAR 

CLEAR 

01  CV 

PFF 

13 

LAST 

650 

i,  521 

01676 

1 

DI  MCE  LAC 

0K>5 

RFF 

1 

2A  ,3522 

00263 

0 

MOONFL AG 

0 106 

2 A,  3523 

52135 

0 

SLOAD 

BZF 

I 7 

RFF 

1 

2A  ,3 52A 

0 1 163 

1 

P 210R  IG 

010  8 

2A ,3  5 25 

M c3'- 

0 

+3 

0109 

2 A,  3526 

7 7 ( 1 A 

1 

SET 

r 110 

REF 

2 

LA  ST 

651 

2A ,3527 

00063 

1 

MOONFL AG 

0 111 

2A,  36  30 

7762A 

1 

+ 3 

CALL 

■112 

RFF 

1 

?A,  3 531 

27106 

0 

I NTFGR VS 

0 113 

?A  ,3  532 

777A5 

1 

P21VS  AVE 

DLOAD 

0 1 1 A 

RFF 

7 

L AST 

60  1 

2A, 3533 

COO  1 5 

0 

TAT 

0115 

REF 

6 

LAST 

651 

2A  ,3 53A 

27763 

0 

STOVL 

P 21TIME 

0 lift 

RFF 

A 

1 A ST 

502 

2 A ,3 5 35 

00017 

1 

P.ATTl 

01  1 7 

REF 

3 

L AST 

651 

2a, 3536 

27676 

0 

STO  VI 

P 2 1 BA  SFR 

0118 

RFF 

7 

LAST 

502 

2A  ,3537 

00025 

0 

VATT  1 

0119 

REF 

3 

LAST 

ft  5 1 

2 A,  3 6 AO 

037CA 

l 

STORE 

P21  BASFV 

01 1 91 

34,3541 

536A6 

0 

ABVAL 

SL* 

' 1 192 

2 A ,3  5A2 

57576 

1 

0,2 

3 1193 

REF 

3 

l AST 

32  2 

2 A,  35A  3 

27  712 

0 

STOVL 

P21  VEL 

Olio/, 

RFF 

11 

1 AST 

615 

2A ,3  5AA 

00001 

0 

RATT 

• 1195 

2 A, 3 545 

50256 

0 

UNIT 

DOT 

1196 

RFF 

9 

L AST 

635 

2a,  3 5A6 

00007 

0 

VA  TT 

01197 

? A ,35A7 

67A71 

1 

DOV 

AS  IN 

0 1 1 9 H 

REF 

- 

LAST 

661 

2A, 355C 

03712 

0 

P21VEL 

01  1 90 

REF 

3 

1 AST 

32  2 

2A, 3551 

037 1** 

0 

STO?  E 

P21SAM 

0 120 

2A  ,355? 

6733A 

1 

SX  A, 2 

St  OAO 

0 121 

RFF 

2 

L AST 

661 

2 A, 3563 

C 11 6 2 

0 

P21 CRIG 

0122 

RFF 

5 

LAST 

650 

2 A ,3 55A 

011A5 

0 

OP  T ION  2 

0123 

7 A ,355*; 

A61A2 

1 

SRI 

BHIZ 

012a 

2A, 3556 

5 1 c6  1 

1 

♦ 3 

f.  126 

2A  ,3557 

77650 

1 

GOTO 

0126 

2A, 3560 

51  56A 

1 

♦ A 

012  7 

2a,  3561 

776  1A 

L 

♦ 3 

BON 

0 12H 

REF 

1 A 

LAST 

607 

2A.3562 

0A307 

1 

SURFFL  AG 

0129 

RFF 

1 

2 A, 3563 

51566 

0 

P21DSP 

0130 

7761A 

1 

♦4 

SET 

•>  131 

REF 

2 

LAST 

650 

?A , 3 565 

0006** 

0 

P21  FI  AG 

132 

2a, 3566 

6.721A 

1 

P 2 iDSP 

CLEA? 

SLOAD 

0133 

RFF 

1 

2A  ,3567 

0 1663 

0 

L JNAFLAG 

0 13A 

REF 

R 

LAST 

6A6 

2A,  357C 

CCC50 

1 

X2 

0135 

2A, 3571 

A3C5A 

1 

B7E 

SET 
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-SAVE  BASE  VECTnP 

RECYCLE-- INTEG  FROM  BASE  VECTOR 
— PCS 


— T IME 


ZFRO=  EART  H 
2 = MOON 


SAVE  CURRENT  BASEVECTOR 
"TIME 

— PCS  B— 2 9 OR  B-2  7 
— VEL  B-0  7 OR  B-0  5 

V EL/  FOR  N9 1 OISP 

U(R)  . V 
IKR).U(V) 

SIN-1  UIRJ.UIVI  , —90  TC  £90 
0 = E ART  H 


GENERATE  DISPLAY  DATA 


GAP:  ASSEMBLE  RFVI5I0N  5o  OF  AGC  PROGRAM  7 FPL  I N A BY  ZOROASTER 


L GROUND  TRACKING  OETFRMI  NAT  I Ch  FPCGPAH  - P?  1 


Cl  A3 
3 1*4 
nH*2 


r 144  3 
31445 

0145 

0 146 

OH  7 

01  48 
3149 
Ol5f- 
0 151 
3 15? 

< 153 

0 154 
OT  55 

01  56 
■*157 
01572 
0 1574 
3 1576 
PI  58 
0 158 
015D 


0160 
3 1632 
C 14  02 


PEE  2 

PFF  12 
PFF  2 
P FF  P 

PEF  1 
REF  l 

PEF  1 
PFF  ? 

R FF  1 
REF  1 64 
PFF  IP 
PFF  11 
REF  12 
R FF  72 

REF  7 
REF  1 
RFF  26 

PEF  1 

REF  13 
REF  1 


LAST  651 

I AST  651 
LAST  116 
LAST  651 


I AST  3 22 


LAST  650 
LAST  650 
LAST  650 
LAST  652 
LAST  650 

LAST  651 

LAST  650 


LAST  601 


24,  3572 
24,^573 
24,3574 
24,  3575 
24  ,3576 
24 ,3577 
24,  3600 
24  ,3601 
24,  26C2 

24. 3603 

24.3604 
’4, 3oC5 
24  ,3606 
24,3407 
24,  36  10 
?4 ,3611 
24,  3612 

24. 3613 

24.3614 
24,  3615 
24  ,3616 
24,3617 
2a,  36  20 
? 4 ,3621 
24,  3622 

24. 3623 

24 .3624 
24,  3625 
24  ,36  26 
24,3627 
24,  3630 
24  ,3631 
24, 3622 
24,  3633 


61 6 74  0 
01463  l 

77775  l 
CCCC1  0 
16C32  1 
00015  0 
45014  0 
00662  0 
26347  0 
776C5  1 
11633  1 
C1716  1 

77776  l 

2 3630  1 
C 46  1 6 1 

20477  1 
( 6CC1  O 
r 6001  o 

C 6051  0 
43245  1 
03763  0 
11627  1 
01045  1 
77634  0 
c1455  1 
52034  1 
21555  1 
c 1467  0 

00003  1 
26140  0 
01453  1 
01442  1 
00243  1 
32703  1 


*2 

LUNAFLAG 

V LOAD 

RATT 

STOOL  ALPHAV 
TAT 

CLEAR  CALL 

FPAOFL  AC. 
LAT-LCNG 

DMP 

K .0  1 

STCRF  P2 1 ALT 
EX  IT 

CAF  V06N43 
TC  BANKCALl 

CAOR  GO  FLASH 
TC  GCTCPOCH 

TC  GOTOPOOH 

TC  INTPRET 

OLOAD  DAD 

P.  2 IT  IME 

6 00  S EC 

STORE  3SPTEM1 
RTR 


P21 PR0G1 

P21PRTM  RTB  GOTO 

LOACT  IME 
P2 1 PR0G2 

600SEC  2CFC  60000 


V C 6N  4 3 VN  00643 

V6N34  VN  00634 

K.CX  2 DEC  .01 


9:12  OCT.  21.197 


ISSING  .064 


PAGE 


652 


USER  *S  °4GE  NO.  4 


E7  S3 


0=  EARTH 


HP  AC  = A L T , HE  TF  RS  6-?9 

ALT/13'  FOP  NR  1 TtSP 

DISPLAY  LAT, LONG, ALT 
LAT ,LONG  = 1/2  RFV  S BO 
AL  T = KM  B 14 
T ERM 

V32E  RECYCLE 


630  SECONDS  OR  10  MIN 


10  MIN 


AP  : 
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L 

P34-P35,  P74-P75  USER'S  PAGE  NO.  1 EO  S3 

POOlO 

TRANSFER  PhASF  INITIATION  (TPI)  PROGRAMS  ( P 34  ANO  P74) 

* Oi  11 
R3D12 

MOO  NO  -1  LOG  SECTION  - F32-F35,  P72-P75 

MOD  BY  WHITE. P DATE  !JUNFt7 

R Oi.- 13 

PURPOSE 

RCO  14 
ROOTS 

3 00 1 6 

(1)  ^?.A,k:r-kL^JET^E.?§9LJ-REP  PELTA  V ANO  OTHER  INITIAL  CONDITIONS 

R ECU  IP  E 0 RY  THT  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  TRANSFER 

PHASF  INITIATION  (TPI)  MANEUVER,  GIVEN  - 

RD'Ol  7 
RG018 

( A I TIME  HE  IGNITinVl  TIG  (TPI)  OR  THE  ELFVATION  ANGLE  (E)  OF 

THF  ACT  IV  E/PASS  IV  F VEHICLE  LOS  AT  TIG  (TPI). 

10019 

RDD2D 

(8)  CENTRAL  ANGLE  CF  TRANSFER  (CENTANG)  FROM  TIG  (TPI)  TO 

INTERCEPT  TIME  (TIG  ( TPF  ) ) . 

R 0021 

(?)  TO  CALCULATE  TIG  (TFT)  GIVEN  E OR  E GIVEN  TIG  (TPI). 

RO  2? 
R0P23 

(3)  TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 

APPRCVEC  ANC  KEYED  INTO  THE  DSK  Y BY  THE  ASTRONAUT. 

10024 

R 0026 

(4)  TO  DISPLAY  TO  THE  ASTRCNAIJT  AND  THE  GROUND  CERTAIN  DEPENDENT 

VARIABLES  ASSOCIATED  WITH  THF  MANF  IJVER  FOR  APPROVAL  BY  THE 

ASTRONAUT /GROUND. 

ROC  27 
R0P2A 

(5)  Tn  STORE  THE  TPI  TARGET  PARAMETERS  FOR  USE  BY  T FE  DESIRED 

TFPUSTIN'G  PROGRAM. 

R 0029 

A SSUMPTI ONS 

P)53) 

R0031 

R 00  32 

(1)  LM  ONLY  - THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  nF 

THF  CONSTANT  DELTA  ALTITUDE  ( C OH ) PROGRAM  (P33/P73). 

THEREFORE  - 

R3P33 

R 0034 
ROD  35 
R0036 

(A)  AT  A SELFCTED  TPI  TIME  (NOV.  IN  STORAGE)  THF  LINE  OF  SIGHT 

BETWEEN  TEE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 

A PRESCRIBED  ANGIE  (E)  ( NCW  IN  STORAGE)  FROM  THE 

HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 

R 0^3  7 
R333R 

(B)  THT  T!  MF  BETWEEN  C.DH  IGNITION  ANO  TPI  IGNITION  WAS 

Compute o td  be  greater  than  10  minutes. 

R 003  9 
* 0040 

(f.)  THE  VARIATION  C F THE  ALTITUDE  DIFFERENCE  BETWEEN  THF 

ORBITS  WAS  MI  NI  MI  7F0. 

RD141 

(C)  THE  PERICENTFR  AITITUDES  OF  ORBITS  FOLLOWING  C SI  ANO 

10*42 

CDH  WERE  COMPUTEC  TO  BE  GREATER  THAN  35,00:  FT  FOR  LUNAR 

j A P: 


R 004 7 


ASSEMBLE  REVISION  56  OF  AGC 
P34-P35,  P74-P75 

ORBIT  OR  85 


PROGRAM  ZERLINA  8Y  ZOROASTER 


NM  FOR  EAR  TH  ORBIT. 


0:12  OCT.  21,1070  KISSING  . 06A  PAGE  654 
USER'S  PAGE  NO.  2 EC  S3 


P.DCA 5 
R 0046 
ROC  A 7 


IF)  THE  CSI  AND  COH  MANEUVERS  WERE  ASSUMEC  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THE  PASSIVF  VEHICLF  ORBIT.  HOWFVEP,  CREW 
MODIFICATION  OF  0 ELT  A V (LV)  COMPONENTS  MAY  HAVE  PESLLTEO 
IN  AN  OUT-OF-PLANF  MANFUVER. 


R00A8 

10049 


(2 


STATE  VECTCR  JPCATFD  BY  P27  APE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPCATINC  INITIATED  BY  P7j  (SEE  ASSUMPTION  (A)). 


r)75-> 
ROC  5! 
ROC  5 2 
PD353 
1 Of.  54 
RC  ? 55 


TFIS  PROGRAM  MUST  BE  DONE  OVER  A TRACKING  STATION  F CR  REAL 
TIME  GROUND  PARTICIPATION  IN  OAT  A INPUT  AND  OUTPUT.  f nwp  UTFQ 
VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY  THE  GROUND. 
TFESF  STORAGE  CAPABILITIES  APE  LIMITED  ONLY  TO  THF  PARAMETERS 
F CP  CNE  TlIRUSTINC  MANEUVER  AT  A TIME  EXCEPT  FOR  CONCENTRIC 
FLIGHT  PLAN  MANEUVER  SEQUENCES. 


R 0056 
1 0057 
R035R 
R 0059 
ROC  6f~ 
R0n6 1 
l OC  62 
R0D63 


(A)  THF  RENDEZVOUS  RADAR  MAY  OP  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 
OR  CSM  STATE  VECTORS  FOP  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  VA  S TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  CF  P20  . RACAP  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  A P PR  CXI  MA  TF  LY  CNCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AN  C UP  DA  T F F I A GS  (SEF  P2C>.  THE  RENDEZVOUS  TRACKING 
MAPK  COUNTER  IS  7EPCED  eY  THE  SELECTION  OF  P 2C  ANT  AFTER  FACH 
THRUSTING  MANEUVER. 


R0Q64 


(5)  THF  ISS  NEEC  NOT  ri F ON  TO  CUMPLETE  THIS  PROGRAM. 


1 pr‘65 


THE  OPERATION  OF  THE  PROGRAM  UTI  LI  ZES  THE  FOLLOWING  FLAGS  - 


RDD 
1 0067 


ROC  68 
ROOt  9 


ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THF 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT 
EACH  RENDEZVOUS  PR  E-THRUST  ING  PROGRAM. 


WH I CH  IS 
PROGRAM  WHICH 
THE  STAPT  OF 


* 00  70 

R33  71 


FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CP  EW  HAS 
S FI  ECTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE. 


R 0072 
ROD  7 3 
R0P7A 


EXTERNAL  DELTA  V FLAG  - CESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  -OR  EXECLTICN  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTFC  AFTER  COMPLETION  OF  THIS  PROGRAM. 


* 0075 
RD:>76 
R0077 

* or  78 
R3D79 


71  ONCE  THF  PARAMETWRS  REQUIRED  FOR  COMPUT  ION  OF  THE  MANEUVER 
HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 
VEHICLE  CENTRAL  ANCLE  OF  TRANSFER  IS  COMPUTED  AND  STOREO. 
THIS  NUMBER  WILL  BE  AVAILABLE  F CR  DISPLAY  TO  THE  ASTRONAUT 
THROUGH  THE  USE  OF  VOCN52. 


10080  THF  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 

RD581  CENTRAL  ANGLF  OF  TRANSFER  OF  THF  ACTIVE  VEHICLE  IS  NOT  WITHIN 
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* 0082 
R3  3RB 
R0084 


W TO  1 90  OEGREES.  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 
ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 
UPON  DELTA  V AMO  EXPECTED  MANEUVER  TIME. 


<0085 
R39  86 
< U087 
R008R 


( P)  THIS  PROGRAM  IS  SELECTED  RY  THE  AST  RCNAUT  GY  DS  KY  ENTRY  - 
P34  IF  THIS  VEHICLE  IS  ACTIVE  VFHICLE. 

P74  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 


R 0089 
R0090 
R0091 
< Of'92 


ID  TTPI  TIME  OF  TEE  TPI  MANEUVER 

(2)  EL F V DESIRFD  LCS  ANGLE  AT  TPI 

(3)  CENTANG  ORBITAL  CFNTKAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

TRANSFER  FPCM  TPI  TO  TIME  OF  INTERCEPT 


R 3 393  OUTPUT 


R 0094 
10095 
R3396 
RpC97 
R 0 0 9 8 
IOD99 
<0100 
RO I lll 
R 0 1 0 2 
<0103 
R0134 


(1)  TPKMKCNT 
I 2)  TTOGO 

(3)  +MGA 

(4)  TTPI 

nR 

EL  F V 

(5)  P0STTP1 
( 6 ) DEL VTP I 
(7)  DE1VTPF 
( 8)  DVLOS 
(9)  OFLVI  VC 


NUMBER  OF  MARKS 

T I ME  TO  GC 

MIDDLE  GIMBAL  ANGLE 

COVPUTEC  TIME  CF  TPI  MANEUV  ER 

COMP JT ED  LOS  ANGLE  AT  TPI 

PERIGEE  ALTITUDE  AFTER  THE  TPI  MANEUVER 

MAGNITUDE  OF  DELTA  v AT  TPI 

MAGNITUDE  OF  DELTA  V AT  INTERCEPT 

DELTA  VELOCITY  AT  TPI  - LINE  OF  SIGHT 

OELTA  VELOCITY  AT  TPI  - LOCAL  VERTICAL  COCRDI NATFS 


R 01 05  DOWNLINK 


Rjl  1 s 
<116 
R3  1 17 
ROl  1 p 
<119 
RO  1 23 
R<  >121 


(3) 
( 4 ) 


( 5) 
(6  I 

CCMMUNICA 


TTPI  TIME  OF  THE  TPI  MANEUVER 

TIC  TIME  OF  TFE  TPI  MANEUVER 

FLDV  DESIRED  LCS  ANGLE  AT  TPI 

CENTANG  ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURI 

TRANSFER  FROM  TPI  TO  TIME  OF  INTERS  E PT 
DEL  VFET3  DELTA  VELCCI1Y  AT  TPI  - REFERENCE  COORDINATES 
TPASS4  TIME  OF  INTERCEPT 
TICN  TT  TFRUSTING  PFCOPAMS 


NG 


SSIH 

< ’l?* 
R 3 1 25 


2 ) RT ARG 
?)  TPASS4 
4)  X DEL  V F.  G 


TIME  OF  THE  TPI  MANEUVER 
OFFSET  TARGET  POSITION 
TIME  OF  I INTERCEPT 
RESET  TU  INDICATE  LAMBERT 


IAIMPOINT)  VG  COMPUTATION 


R0126  SUBROUTINES  US FD 


RO 1 27  AVFLAGA 
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R'-l  29 
R 1 29 
R?1  3? 

< . 131 
l • 

. i , . 


<rn4 

mi35 

ROl3& 

<'117 

R?1  ie 

Rni  19 

R 0 I AO 
R 3 1 4 1 
< C 142 
« 143 


AVFL AGP 
VNPOOH 
C IS HL  AY  E 
SE  LFC  TPU 
PR  EG  SET 
S33/7a.  1 
A LAPP 
6 ANK  C AL  L 
GCFLASH 
r.oTOPnnn 
T I"ETFFT 
S34/36.? 
PER  I ARC  • 1 
S H FT  Pi 
S34/35.  5 
VN ] 645 


C 1 A A 

PFF 

3 

LAST 

64  fl 

35,2000 

0145 

35,2455 

3146 

0 E F 

15 

L AST 

647 

E7,  1470 

014  7 

REF 

1 

C IAR 

P GF 

3 

LA  ST 

62  5 

35,2455 

C 2354 

1 

0149 

PFF 

1 

3 6,  24  66 

C 2460 

1 

0150 

PFF 

3 

LAST 

62  5 

36  ,2467 

0 2361 

1 

3151 

REF 

3 

LAST 

625 

3 5,  2460 

C 23  6 6 

0 

Cl  5 1 5 

REF 

2 

LAST 

620 

75,  2461 

3 3640 

0 

0 152 

REF 

1C 

LAST 

628 

35,2462 

0 3627 

1 

31521 

35,  2463 

C 0C06 

1 

1 1522 

REF 

1 

35  ,2464 

3 3663 

1 

0 152  3 

REF 

5 

LAST 

632 

35,2465 

c 7' 621 

1 

01525 

PEF 

4 

1 AST 

569 

35, 2466 

3 474  1 

1 

01526 

REF 

93 

LAST 

61  0 

35  ,2467 

54  001 

1 

3 1528 

REF 

10 

LAST 

642 

35,  2470 

3 2424 

1 

; 1529 

REF 

5 

LAST 

634 

75,2471 

55 '466 

0 

( 15794 

RFF 

6 

IASI 

635 

F4 ,1  647 

3 15295 

RFF 

21 

L AST 

574 

35,  2472 

22  CC 3 

1 

r 153 

REF 

7 

LAST 

656 

35  ,2473 

55 '647 

1 

01531 

R EF 

e 

LAST 

656 

35,2474 

' 

1 

01533 

REF 

22 

L AST 

656 

35, 2475 

22  CO 3 

1 

1534 

PEF 

16 

LAST 

656 

E7  ,1470 

3 1535 

REF 

1 

35,  24  76 

C 3611 

1 

Cl  54 

REF 

73 

LAST 

652 

35,2  477 

0 6051 

0 

0 155 

35,2500 

71214 

0 

3156 

REF 

1 

35,  25C1 

C 1 270 

0 

0157 

REF 

14 

LAST 

642 

35  ,2502 

03636 

1 

- 158 

RFF 

14 

LAST 

640 

35,2503 

17442 

c 

0159 

PEF 

9 

LAST 

656 

35, 2504 

0 2 2 50 

1 

0160 

35  ,2505 

43054 

1 

3161 

P EF 

1 

35,  25C6 

72510 

0 

0162 

REF 

2 

LAST 

656 

35,2507 

01070 

1 

setlo:  :si/chh 

0 ANK 

E B A NK=  SUBEXIT 
COUNT*  SS/P3474 
P34  TC  AVFLAGA 

TC  P3A/P7AA 

P74  TC  AVFLAGP 

P34/P74A  TC  P20FLGCN 

CAF  V06N37 
TC  VNPOOH 

FXTE  ND 

OCA  130DEG 
OX  CH  CENTANG 
CAF  EBANK4 
TS  L 

CAF  P30  ZERO 
TS  NN 

EBANK=  ELEV 
LXCH  FRANK 
TS  ELEV 

TS  ELEV  +1 

LXCH  EBANK 
FRANK=  SUBEXIT 
TC  01  S PL  AY  F 

TC  INTPRFT 

CLEAR  DLOAD 

F TP1  FLAG 
TTP  I 

STOOL  TIG 
ELF  V 

8ZE  S FT 

P3  A / P7  A B 
ETPIF  LAG 
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S FT  UPDATFLC-,  TRACKFLG 
TTP  I 


INITIALIZE  CISPLAYED  REGISTERS  TO  ZERO 
Rl:  NN  — NUMBER  CF  OFFSETS 


R 2 : ELEV  (O.P.  ) — ELEVATION  ANGLE 


CHNG  BACK  TO  WHAT  IT  WAS  BEFORE 
V16N55  GOFLASH  CALL:  NN , EL FV , C ENT ANG 
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0 165 
3166 
0167 
0 168 
0l60 
0170 
D 1 7 l 
'172 
0173 
3 174 
0175 

0 1 76 

0177 

0178 
D 1 76 

01  80 


0 181 
3192 
0183 
■ 184 
01  85 
' 1 1 86 
? 187 

i'1  08 

0 189 

3130 


REF  3 


RFF  8 
RFF  2 

REF  3 
P EF  1 
RFF  3 
REF  4 

RFF  15 
P EF  5 
PCF  25 
REF  3 

PFF  2 

REF  1 
REF  28 

REF  3 
PFF  165 
REF  13 
REF  13 
REF  2 


LAST  625 


LAS!  607 
LAST  625 

LAST  656 

LAST  657 
LAST  626 

LAST  656 
LAST  65  7 
LAST  650 
LAST  640 

LAST  625 


LAST  625 

LAST  625 
LAST  652 
LAST  652 
LAST  65 2 
LAST  656 


■ 

0032 

3 5,  2 5 12 
35  ,2513 

35.2514 

35. 2515 
35  ,2516 
3 5,  2 5 17 
35,2  520 
3 5,2521 
7 5,  2 52  2 
35  ,2523 
35,2524 
35,  2525 
35  ,2526 
35,  2527 

• 

35,2531 
35,  2 532 
35  ,2533 
3 5 , 25  ? 4 
35,  25  35 
35  ,2536 
35,  2 5 3 7 
35,?  540 
35  ,2541 
35,  2542 


<2145  0 
06520  0 

03460  0 
4 30 1 4 0 
01310  1 
72521  1 
03660  1 
C2310  1 
43345  1 
C-36  36  1 
02310  1 
240  4 1 0 

46401  0 

77624  1 
72702  l 
77454  1 
72543  0 
0 5600  1 
00611  1 
2 5006  1 
0 4616  1 
2C477  1 
C 6001  0 
C 2460  l 
C 2533  Q 


P34/P74B 

OELELO 
P34/P7  4C 


SWCHSFT 
I NTLOOP 


CALL 

SE  LEC  TMU 
EQUALS  26  C 
U LOAD  SET 

7 EROVEC  S 
IT S W ICH 
BON  "LEAR 

ETP  IFL AG 
SWCHSET 
I TSWICH 
STORF  NOMTPI 

0 LOAD  DAD 

TTP  I 
NOMTPI 
STC  ALL  TOECl 

PRECSET 

CALL 

S 3 3/34.  1 
8ZE  EX  IT 

SWCHCLR 
TC  ALARM 

OCT  Ml 

CAF  VC5NC9 

TC  BANKCALL 

CADR  GOFLASH 

TC  SOTOPOOH 

TC  P34/P74A 

TC  -7 


( 193 
'"194 

3196 

0196 
0 197 
0 1 98 
1 99 
0 200 
02  1 
0202 
72  M 
02  04 
0205 
3276 
02  7 
0 208 
0?09 
0210 
9211 


REF  4 
REF  1 
RFF  4 
REF  1 

REF  2 
REF  1 

REF  3 

RFF  1 1 
RFF  74 


RFF  5 
REF  12 
REF  6 

REF  4 

REF  6 


LAST  657 
LAST  667 


LAST  656 


LAST  656 
L AST  656 
LAST  656 


l A ST  639 
LAST  646 
LAST  656 

LAST  645 

LAST  645 


35  ,?S44 
35, 2545 
35  ,2546 
35,  254  7 
35,2  550 
35,2551 
35,  2 5 52 
35  ,2553 

35.2554 

35. 2555 
35  ,2556 
3 5,  2 55  7 

35.2560 

35.2561 
35,  2562 
35  ,2563 

35.2564 

35. 2565 
35  ,2566 
35,  2567 


430  14  0 
0 360  0 l 
72522  1 
01310  1 
77553  1 
77776  1 
C 3611  1 
C 2556  0 
77776  1 
2 3640  C 
C 3t27  1 
0 6051  0 
712C1  l 

onooi  o 

02777  1 
1 4 C 4 7 1 
0 3621  1 
71406  0 
16732  0 
77756  0 
26730  1 


I NTLOOP 
FTP  1FLAG 
P34/  P7  4 D 


STCOL 

PUSH 
STOOL 
S IN 
STCVL 


V36N37 
VN  POOH 
INTPRFT 
DLCAO 

00 

RTX  1 
Xl 

CENTANG 
COS 
: STH 

S NTH 


657 
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PROCEED 
V-3  2 


DISPLAY  TTP  1 

DISPLAY  ELEV  AND  CENTANC. 

TTPI 


[ 
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0212  PEF 
3 213 
C2H 

”>215  PFF 
3216  PEF 

0217 

0218 

0219  PEF 

0220  REF 

3221  PFF 
0222 

0223  PFF 
3229  REF 

0225 

0226  REF 

0227  RFF 

0228  PFF 
3 229 

023 0 RFF 

0231  REF 
3232  REF 
0233 

3239  PEF 

0235  RFF 

0236  REF 
3237 

0238  REF 

0239  PFF 
3293 

• 291  PFF 
9 292  RFF 
0293  PFF 
3299  RFF 

3295 

0296  RTF 

0297  RFF 

3296  RFF 
0299 

0 250  REF 

0251 

0252  REF 
3253 

0259  RFF 


ft  LAST  690 


ft  LAST  695 
3 I AST  690 


6 LAST  695 

7 LAST  695 
5 LAST  695 

1ft  LAST  657 


2 1 A ST  502 

3 L AS  T 2.9  5 


3 LAST  23  5 
5 l A ST  320 


3 LAST  320 
8 LAST  690 


3 LAST  635 

8 LAST  696 

9 LAST  320 
17  LAST  658 
15  LAST  656 


12  LAST  657 
75  LAST  657 

1 

9 LAST  6?  6 
1 


35,2570 
35,  2571 
35,2  572 
35,2573 
35,  7579 
35  ,2575 

35.2576 

35. 2577 
35  ,2600 
5 5,  26C1 
35,2602 
35  ,2  6C3 
35, 26C9 
35  ,2605 
35  ,2606 
35, 2607 
35  ,2610 
35,  26  1 1 

35.2612 

35.2613 
3ft, 2619 
35  ,2615 
35,26  16 
35,  26  17 
35 ,2620 
35,  2621 

35.2622 

35.2623 
35,  2629 
35  ,2625 

35 .2626 

35. 2627 
35  ,2630 
3 5,  263  1 
35,  2 632 
35,2633 
35,  2639 
35  ,2635 
35,2636 
35,  26  37 
35  ,2690 
35,  2 £ 9 1 
35,2692 


03552  0 
77657  0 
57176  0 
26655  0 
03560  1 
93057  1 
67176  0 
03966  0 
36799  0 
29732  1 
77795  1 
03636  1 
C3610  0 
77615  0 
00037  0 
37631  1 
73229  1 
61575  1 
02357  l 
27576  0 
C 2 506  1 
51951  0 
03566  1 
26391  0 
03536  1 
95115  0 
02330  0 
96337  1 

77624,  1 

96997  1 
17606  1 
03636  1 
0399?  0 
77776  1 
3 3692  1 
C 3627  1 
C 6051  0 
77629  l 
73990  0 
77629  1 
73523  1 
77650  1 
72512  1 


R P ASS  3 

VSR* 

0,  2 

ST OVL  RV  EC 

VPASS3 
VSR*  SET 
0 ,2 
P VSR 
ST  CAL  L V V EC 

T I RFTHET 

OLOAD 

TT  PI 

STCRE  INTIME  FOR  INITVEL 

OAO 

T RENDEZVOUS  TIME 

STEAL L TPASS9  FOR  INITVEL 

S 39/ 35. 2 
VLOAD  A8VAL 

DELVFET3 
ST  OVL  DELVTPI 

VPASS9 

VSU  A8VAL 

VTPP  IME 
STOVL  3ELVTPF 

R ACT  3 

POVL  CALL 

VI PPI  MF 
PER  I APD1 

CALL 

SHIFTR  1 
STOOL  POSTTPI 

TTPI 
STORE  TIG 

EXIT 

CAF  V06N58 

TC  V N POOH 

TC  INTPRET 

CALL 

S39/35  .5 

CALL 

VN  1695 

GOTO 

R 3 9/P  790 
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P)  255 

RENDEZVOUS  MIC-COURSE  MANEUVER  PROGRAMS  (P35  AND  P75> 

R i 256 

MCD  NO  -1  LOG  SECTION  - F32-P35,  P72-P75 

MOO  BY  WHITE. P DATE  1 JUNE  67 

R0255 

PURPOSE 

1 0259 
R 3 2 6 3 
R02M 

1 f>2  62 

(1)  TO  CALCULATE  THE  RFCUIRED  DELTA  V AND  CT  HER  INITIAL  CONDITIONS 

REQUIRED  OY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  NEXT 

MIDCCIJRSE  CORRECTION  OF  THE  TRANSFER  PHASE  OF  AN  ACTIVE 

VEHICLE  RE  NOE  7 VOL  S. 

Rm263 

1 0264 
R3265 

(2)  TO  DISPLAY  TO  T HF  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 

VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  RY  THE 

ASTRONAUT/GROUND. 

KC2&6 
l >267 

(3)  TC  STORE  TEE  TPM  T ARC  FT  PARAMETERS  FOR  USE  BY  THE  DESIRFD 

THRUSTING  PROGRAM. 

RO  268 

ASSIJMPT  IONS 

R 0269 

(1)  THE  ISS  NEEC  NOT  BE  CN  TC  COMPLETE  THIS  PROGRAM. 

RO  7 70 

R 2 7' 

(2)  STATE  VECTOR  UPDATES  BY  P27  APE  DISALLOWED  DURING  AUTOMATIC 

ST  AT  E VECTOR  JPCAT  INC-  IN  IT  IATEO  BY  P 20  ( SFE  A SSUMPTI  ON  ( 3)  ) . 

1 272 
KI277 
■ 27  4 
Rd  275 
R5276 
10277 

( 3)  THL  RFNDFZVCUS  RADAR  IS  CN  AND  IS  LOCKED  ON  THE  CSM.  THIS  WAS 

DOME  DURING  P1EVI0LS  SELECTION  DE  P20.  RADAR  SIGHTING  MARKS 

WIIL  BE  wAOE  AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN 

ENABLED  RY  THF  TRACK  AND  UPDATE  FLAGS  (SEE  P2G  ) . T HF 

RENDEZVOUS  TRACKING  MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF 

P20  AND  AFTER  EACH  THRUSTING  MANEUVER. 

R3278 

(4)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

R0?70 

1 280 
R3281 
R(‘282 

ACTIVE  VEHICLE  FLAG  - OFSIGNATES  THE  VEHICLE  WHICH  IS 

DOING  RENDEZVOIS  THRUSTING  MANEUVERS  TO  THF  PROGRAM  WHICH 

CALCULATES  tHE  MANEUVER  PARAMETERS.  SET  AT  THF  START  OF 

EACH  RENDEZVOUS  PRE-T  HRUST  ING  PROGRAM. 

RQ  283 
R02R4 

FIMAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 

SFLECTEC  THE  FINA1  MANEUVER  COMPUTATION  CYCLE. 

K 285 
R1 286 
R0287 

EXTtRNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 

RFQUIRFD  FTR  E XFCLTION  OF  THIS  MANFlIVFR  BY  THE  THRUSTING 

PROGRAM  SC!  FCTFC  AFTER  COMPLETION  OF  THIS  PROGRAM. 

R ?88 
R0289 

1 <2«0 

(51  THL  T I UF  OF  INTFRCFPT  (TIINTI)  WAS  DEFINEO  PY  PREVIOUS 

COMPLETION  OF  THE  TRANSFER  PHASE  INITIATION  ( TP  I I PROGRAM 
(P34/P74)  AND  IS  PRESFNTLY  AVAILABLF  IN  STORAGE. 
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RC2p1  (6)  ONCE  THE  PARAMETERS  RFQUIPFD  FOP  COMPUTION  OF  THE  MANEUVER 

< *292  HAVE  BEEN  COMPLETE  I Y SPECIFI60,  THE  VALUE  OF  THE  ACTIVE 

P:293  VEHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STCRED. 

P'2qt  THIS  NUMPFP  HILL  «F  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 

3 295  THROUGH  THE  USE  CF  V06N52. 

R 296  TFF  ASTRONAUT  MILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 

* 2 97  CENTRAL  ANGLE  OF  TFANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 

RD29B  17(  TO  150  DEGREES.  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 

R " 2 99  ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 

3 0 30*  UPON  DELTA  V AND  EXPECTEC  MANEUVER  TIME. 


R33D1  C 7 » THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  OSKY  ENTRY  - 


R 0302  P35  IF  THIS  VEHICLE  IS  ACT  IV  F V EH  ICL  E . 

R031  3 P7B  IE  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

R030  • INPUT 


<0305  (1)  TPASS4  TIME  OF  INTERCEPT  - SAVED  FROM  P34AP74 

R33D6  OUTPUT 


RC'397 
R030R 
R3  3 09 
3 0310 
R0311 


111  TRKMKCMT  NUMBER  CF  NARKS 
( ?)  T TOGO  TI  ME  Tfl  G C 
(3)  +MGA  MIDDLE  GIMBAL  ANGLE 

(A)  PVLOS  DELTA  VELOCITY  AT  MI 

15)  DEIVLV:  DELTA  VELOCITY  AT  MI 


- L INE  OF  S I GHT 

- LOCAL  VERTICAL  COORDINATES 


R 0 3 1 2 OrWNLINK 

3 0 3 25  (1)  TIG  TIME  OF  TEE  T F M MANEUVER 

RD  326  (2  ) CELVEET3  OEL  TA  VELOCITY  AT  TPM  - REFERENCE  COORDINATES 

RO  32  f (3)  TPASS4  TIME  OF  INTCPCEPT 

R 1 328  COMMUNICATION  TO  THRLSTING  PROGRAMS 


R0329 
3 0330 
RC331 
R C 3 3 2 


(1)  TIC 

(2)  RTARG 

( 2)  TPASS'i 
(A)  XOELVFLG 


T I ME  OF  THE  TPM  MANEUVER 
OFFSET  T ARCET  FCS  IT  ION 
TIME  OF  INTERCEPT 

RESET  TO  INCICATE  LAMBERT  (AIMP01NT) 


V G COMPUTATION 


3 0333  SUBROUTINES  USFO 


R9334  AVFLAGA 

RO 335  AVFLAGP 

RO  336  LPAOTIME 

R 3 3 3 7 SELFCTMU 

30338  PRECSET 

R033  9 S3A/35.1 

R034.0  S34/35.2 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P34-P35,  P74-P7^ 


»3A-'  REF 
3 REF 


2 I A ST  648  TO  650:  14 

1 7,  1 5 75 


COUNT*  f */ P 3575 
ERANK=  KT 


0345  PFF 

0346 

0347  PFF 
034«  RTF 
3349  REF 

0350 

0351  PFF 
335?  REF 
03525  REF 
r 353  REF 

0359 

0360  RFF 
3361 

0362  REF 
03621  REF 
3362? 

03623  RFF 

03624  REF 

0363  REF 

0364  RFF 
3365  RFF 

0366 

0367  RFF 
3368 

0369  REF 

0370 

0371  RFF 
037? 

J 373  REF 

0379 

0380  RFF 


2 


76 


2 

2 

5 

1 


LAST  656 
LAST  39  2 
LAST  656 


I AST  66  1 
LAST  656 
LAST  658 

LAST  657 

LAST  65  2 
LAST  288 

I AST  661 
LAST  658 

I AST  658 
LAST  657 
LAST  657 


LAST  658 
LAST  658 
LAST  658 


35  ,2643 

35.2644 

35. 2645 

35.2646 
35,  ?6 4 7 

• 

35,2651 
3 5,  26  52 
35  ,2653 
75,2654 
35,  2655 
35  ,2656 
3 5,  26  57 
35,2  660 
35  ,2661 
3 5,  2 66  2 
35  ,2663 

75.2664 

35. 2665 
35  ,2666 
35,  2667 
35,  ? 67( 
35,2671 
25, 267? 
35  ,2673 
35,2674 
35, ?675 
35  ,2676 
35,  2677 
35,2  700 
35  ,?7C1 


0 2354  1 
C 0G06  1 
3 1 4C  1 0 
C 2652  1 
C 2361  1 
0 0006  1 
3 1403  1 
c:-*  576  0 
C 236b  0 
C 60  51  0 
77624  1 
20000  0 
77634  0 
21555  1 
03612  1 
77615  0 
03576  0 
03442  0 
03fcl0  0 
34041  0 
464  C 1 0 
77624  1 
73212  1 
77624  1 
73224  1 
77624  1 
73440  0 
77624  1 
73523  1 
77650  1 
72657  0 


P35 


P75 


P 35/P75A 


P35/P75B 


TC  AVFLAGA 

EXTEND 

OCA  ATIGINC 
TC  P35/P75A 

TC  AVFLAGP 

EXTEND 

DC  A PTIGINC 
OXCH  KT 
TC  0 20FL  GON 

TC  INTPRET 

CALL 

S EL  FCTMU 

RTB 

LOADTI  ME 
STORE  TSTRT 
DAD 

KT 

STORE  TIG 
STORE  IN  TIME 
ST  CALL  T DEC  1 

PRECSET 

CALL 

S 34/ 35 . 1 

CALL 


CALL 
CAI  L 
GOTO 


S34/35.2 

S34/35.5 

VN1645 

P35/P758 
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USER  • S PAGE  NO.  9 
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SET  UPOATFLG,  TRAC  KF  LG 


FOP  INITVEL 

ADVANCE  BOTH  VEHICLES 

GET  NORM  AND  LOS  FOR  TRANSFORM 

GET  DELTA  V(LV) 


DAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  RY  ZOROASTER 

L P34-P3F,  P74-P75 


3 3R2 

0383  REF 

0384  RFF 
7395 

0386 

0387  PEF 
0389 

0389  RFF 

3397  REF 
0391  PFF 
0307  RFF 
3373  REF 
0394  REF 
0^95  REF 

0396  RFF 

0397  PFF 

3398 

03  99  PEF 
0400 

3431  RFF 

0402 

0403  REF 

0404 

0405 

3636  REF 

0407 

0408 
3439 

0410 

0411  RFF 

0412 

0413 

3414  PFF 

04 1 5 RFF 

0416 

3417  RFF 

0418  PCF 

0419 

04  20 

0421  RFF 
34??  REF 
04?3  REF 
0424  PEF 
3425 

0426  REF 
r>4?7  RFF 
042  8 

0429  REF 


4 LAST  628 


9 LAST  658 
1 

8 LAST  646 
1 

7 LAST  658 
1 

4 LAST  658 
1 

2 LAST  66  1 

10  I AST  662 

11  LAST  662 


2 LAST  662 

3 LAST  662 
12  LAST  66  2 

1 

6 LAST  620 

5 LAST  657 
1 
1 
1 

1C  LAST  656 
2 LAST  662 


35,  ?7C3 
35,2704 
35,  2705 
35  ,2706 
3 5 , ?7  07 
35,  27  10 
35  ,271  1 
35,  2712 

35.2713 

35.2714 
35,  2715 
35  ,2716 
35  » ? 7 17 
35,  2720 
35 ,?7?1 
15,  2722 

35.2723 

35.2724 
3 5,  2725 
35  ,2726 
35,2727 
35,  27  \ 
35  ,2731 
25,  2732 

35.2733 

15.2734 
35,  2 735 
35  ,2736 
35,2737 
15,  2740 
35  ,2741 
3 5,  2 74? 
35,2743 
35  ,2744 
35,  2745 
35  ,2746 
35,2747 
35, 2750 
35  ,2751 

2 5,  2 7 52 
35, 2 7 c3 

3 5 ,2  754 
’e,  27  c 5 
35  ,? 7 56 
35,2757 
35, 2760 
35  ,2761 


66220  l 
03463  r' 
03614  1 
400CO  O 
40  345  1 
33651  0 

OCCCl  0 
27574  1 
C 3536  1 
275CC  l 
03544  1 
275C6  1 
03552  0 
27522  1 
0 35  6r  1 
03530  1 

77624  1 
73212  1 
63235  0 
C 3 5 3 6 1 
53515  0 
03536  1 
46315  1 
51352  1 
C23C2  1 
63256  0 
63241  0 
COCCI  0 
75241  1 
02302  1 
65552  r 
50315  0 
C23C2  1 
03536  l 
71244  0 
72750  0 
06526  0 
41425  1 
71514  0 
03740  1 
73177  l 
03576  0 
14033  1 

77625  0 
02250  1 
03576  C 
45546  0 
33655  1 


S33/3^.l  STQ 


OCT 
DL  O A D 


STOVL 

STOVL 

STCVL 

STCVI 

STORF 

FLCALC  CALL 

VXV 

POVL 

P D VL 
VSL  2 

UNIT 

DOT 

DOT 

SL1 

PDVL 


BPL 


DSU 

TESTY  BOFF 


STOOL 

DSU 

STORE 
AB  S 


SSP 

NURME  X 

T ITEP 

40000 

SETPD 

MAX250 

CD 

S ECMAX 
PACT3 
a APPFC 
V ACT  3 
VAPPFC 
RPASS3 
RPPREC 
VPA  SS3 
VPPRFC 


S34/35.  1 

PDVL 

RACT3 

UNIT 

R ACT3 

VPROJ 

BVSU 

ULCS 

PDVL 

PDVL 

OD 

S IGN 

ULOS 

a:os 

DOT 
ULCS 
RAC  T3 
DLOAD 
TE  STY 
DPPOSMAX 
PUSH 
DLOAD 
ITSW  ICH 
F LEX 
DELFL 
DELELO 

ELEV 
DEL  EL 
0 SU 
EL  EPS 
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NORMAL  AND  LOS 

(RA*VA )*R A OD 
ULOS  AT  6D 

XCHNJ  AND  UP 


UP  AT  OD 
UP  .UN  SR  A AT  DO 
UP  IN  MPAC 


FA  AT  OD 
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0430 

35,  2762 

77  64C 

0 

BMN 

0431 

REF 

1 

35  ,2763 

73307 

0 

T IMEX 

D 43? 

35,  2764 

7G535 

0 FIG  TIME 

SLOAD 

SRI 

04  3 3 

REF 

2 

L AST 

66  2 

35,2765 

03614 

1 

TI  TER 

0434 

35,2766 

72030 

1 

BHIZ 

LX  A,  1 

3435 

PEF 

5 

L AST 

662 

35,  2767 

C 346  3 

0 

NORMF  X 

0436 

REF 

260 

LAST 

636 

35  ,2770 

00  154 

1 

MP  AC 

0 4 37 

35,2771 

7 7330 

1 

SX  A , 1 

VLOAD 

U43e 

PEF 

3 

LAST 

663 

35, 2772 

0 3613 

0 

TI  TER 

0439 

REF 

8 

LAST 

662 

35  ,2773 

03552 

0 

3 PASS  3 

144  0 

35,  2774 

6 5256 

0 

UNI  T 

POOL 

0441 

35,2775 

00045 

0 

36D 

044? 

35,2776 

53515 

0 

PDVL 

UNIT 

0 443 

REF 

13 

L AST 

662 

35,  2777 

C 35  36 

1 

RACT3 

0444 

35  ,3000 

77725 

1 

POOL 

0445 

. 

41525 

0 

POOL 

PUSH 

i 445 

35,  3002 

00045 

0 

3 6D 

044  7 

, 

77621 

1 

BOSU 

1 4 4 R 

35,  30C4 

CCC1  5 

0 

120 

04  4 0 

35,  3005 

I 4037 

0 

STOOL 

30D 

04  50 

REF 

8 

LAST 

605 

35,3006 

06516 

0 

DPHALF 

1451 

35, 30C7 

41425 

1 

OSU 

PUSH 

.14  5? 

PFF 

11 

LAST 

662 

35  ,3010 

02250 

1 

EL  FV 

>45  3 

35,3011 

50 1 fc  5 

c 

SIGN 

BMN 

04  54 

35,  30  12 

00037 

0 

3 00 

455 

REF 

6 

LAST 

663 

35  ,3013 

03463 

0 

NORM  EX 

3456 

35,  3014 

71545 

0 

DLCAO 

COS 

0457 

35,  301  5 

562C5 

0 

OMP 

00  V 

0458 

35  ,3016 

00017 

1 

140 

3459 

35,  3017 

CCC15 

0 

120 

0460 

. 

77676 

0 

DGOMP 

3461 

35,3021 

00035 

l 

STORE 

28  0 

046? 

3s,  3q  2 2 

44246 

1 

AB  S 

BO  SU 

( 463 

PEF 

9 

LAST 

663 

. 

06516 

0 

PP  HAL  F 

3464 

35,  3024 

77240 

1 

BMN 

VLCAD 

0455 

REF 

7 

LAST 

66  3 

35,  3025 

03463 

0 

NORME  X 

466 

REF 

1 

. 

02252 

0 

JNRM 

3467 

35, 3027 

5 3435 

0 

vxv 

UNI  T 

0468 

• 

00007 

0 

6D 

0460 

35,3031 

41241 

0 

OOT 

OMP 

04  70 

RFF 

9 

L AST 

66  2 

35,  3032 

03544 

1 

VAC  T3 

0471 

. 

00015 

0 

120 

3472 

35, 3034 

473  1 5 

0 

POVL 

VXV 

0473 

35,  3035 

00001 

0 

OD 

0474 

REF 

5 

LAST 

662 

1 . 

03560 

I 

VP  ASS  3 

3474 

3 5,  3037 

c 3425 

0 

VXV 

UNI  T 

04  76 

35  ,304,' 

CO  00  1 

0 

00 

.'477 

. 

41241 

0 

OOT 

OMP 

04  78 

REF 

6 

1 AST 

66  3 

35,  7142 

0 3560 

1 

VPASS3 

0479 

35  ,3043 

00017 

1 

140 
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COMMERCIALS  EVERYWHERE 

TOO  MANY  IT  FRAT  IONS 


RP  - PA  MAGNITUDES 


SINCE  COSI  1 80— A ) =-CCS  A 


UN*RA 


| p pcvP)  *RP 


JAP: 

L 

0480 

('<♦81 

3482 

0*83 

0484 

3*8* 

04  86 

• 487 

0*88 

0480 

340? 

04  91 

040? 

3403 

0494 

( 498 

04  96 

i 407 

1498 

0499 

0 500 

353  1 

050 2 

0 50  3 

0504 

0505 

353  6 

06  f.  7 

0 508 

3539 

0510 

0 511 

C51 2 

0513 

3514 

0515 

0516 

3517 

0518 

r 6 1 o 

0520 

0 521 

3522 

0523 

3524 

3525 

0 526 

'52  7 

0528 

0529 


ASSFMBLE  REVISION  5o  CF  AGC  PRCCRAM  ZERLIN4  HY  ZOROASTER 
P34-P35,  P74-P75 
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REF 


PET 


REE 

PCF 


REF 


REF 


REF 

PFF 

REF 


PFF 

REF 

REF 


REF 

REF 

PEF 

REF 

PFF 

PFF 

REF 


13 


2 


10 

12 


11 


2 

1 

3 


5 


LAST 

LAST 

L AST 
LAST 

LAST 

LAST 

LAST 

LA  ST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


35,  3044 
35  ,3045 
657  35,  3046 

35,  3047 

35,3050 

16,  30  5 1 

663  35,3  52 

15,3053 

35,  3q 54 
35  ,3355 

36,  3C66 
38,  3057 
35,3060 

663  35,  3C61 

663  35  ,3062 
35,3063 
35,  3064 
35  ,3365 

664  35,  3C66 
35,  3067 
35 ,3  C 70 
35,  3C71 

642  *5  ,3  7 

16,’  ?73 
35,  30  74 
35  ,3075 
35,  3C76 
35,  3077 
662  35,3100 

l c,  3 1 C 1 
35  ,3  102 
664  35  ,3  103 

35,  3104 
35  ,3 105 
66  3 3 6,  3 1C6 

35,  310  7 
35,3110 
664  35,3111 

35  ,3112 
35,3  113 
35, 3114 
35  ,31  15 
66  2 15,3116 

662  35,  31  1 7 

35,3120 
35,  312  1 
664  35  ,3122 

• 

.35,  3 124 
664  35,3125 


77621  1 
63301  0 
CCC47  1 
0CC07  0 
50235  0 
COCOl  0 
02252  0 
50315  0 
0000  1 0 
00007  0 
65552  C 
77765  0 
43225  0 
C6  f 1 6 0 
0225C  1 
65525  C 
OCC  35  1 
75221  1 
C 6 5 1 6 0 
00037  0 
77615  0 
562C5  r 
33647  1 
77605  1 
412=7  1 
23176  0 
514C6  1 
50025  0 
03574  1 
731C5  1 
75345  1 
03574  1 
776C6  1 

51135  1 OKMAX 
C 36 1 4 1 
73  115  0 
71331  0 
03614  1 
37777  1 
77650  1 
75153  1 

41345  0 REPET E 

03576  0 

00033  1 

71244  0 

75131  0 

03574  1 

77605  1 

53653  1 

17574  1 


80  SU 

NflRM  PQVL 
XI 
60 

VXV  DOT 

00 

UNRH 

POVL  DOT 

CD 
60 

SL1  ACCS 

SIGN 

DSU  DAD 

DPHALF 
EL  EV 
POOL  ACOS 

2 8D 

RDSIJ  S IGN 

OPHALF 

30D 

DAC 

QMF  DDV 

TWOP  I 

DMP 

SL  * IMP 

3 -3,  1 
PUSH  ABS 

0 SU  3 MN 

S ECMAX 
OKMAX 

DLflAD  SIGN 

S ECMAX 

PUSH 

SLOAD  BPL 

TITER 
RFPETF 
SSP  DLOAD 

TI  TER 
OCT  37777 

GOTO 

STORDF IT 
DLOAD  DMP 

DELEL 
3ELFL0 
HPL  DLOAD 

NEXTES 
SECMA X 

DMP 

THIRD 

STODL  S ECMAX 


NORMALIZED  HA  - HP  1 2D 


H A *RP . UN  I4D 


ALPHA  PI 


CONTAINS  RP-RA 


REPLACE  TI  MF  WITH  MAX  TIME  SIGNED 

TF  ST  FIRST  I TERATI  ON 
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0530 

0531 

3 5 32  PEF 

0533 

0534  RFF 
3535 

0536  REF 

0537 

053  8 

(539  RFF 

3540 

0541 

054?  REF 
3543  RFF 
0544 

0 545  REF 

0546 

0547  RFF 
3 54R 

0549 

0550  REF 
3551  RFF 
0552 

.'553  RFF 

0554  RFF 

0555 

3556  REF 
T557  REF 
0558 

3559  RFF 
0560 

n 56 1 REF 
C562 

0563  RFF 
3564  RFF 

0565 

0566  PEF 
3567 

0568  RFF 

3 569 

0570  REF 

0571 

357?  REF 
573  REF 
0574  REF 
3575 

r 5 76  REF 

0577  REF 

0578  REF 

0579 


l 

4 I.AS7  664 
3 LAST  664 


2 L AST  664 
? LAST  665 

3 LAST  665 


1 

4 LAST  66  5 

6 I AST  657 

7 LAST  66  5 

? LAST  662 
2 LAST  66  2 


3 LAST  63  5 

2 LAST  66? 

2 LAST  66? 

? LAST  665 

3 LAST  625 


IP  I.  AST  65R 
P LAST  66  5 
19  LAST  665 

5 LAST  657 
? LAST  66  3 
13  LAST  664 


35,  3126 
35 ,31 ?7 
35,  313C 

35, 3181 
35,3132 
3 5,  3133 
35  ,3134 

35.3135 

35. 3136 
35  ,3137 
3 5,314' 
35,  3141 
35,3142 
35,  3143 
35  ,3144 
35,3  145 
35,  3 1 4 6 
35  ,3147 
3 5,  3 150 
35,  3l  51 
35,315? 

35,  31c  J 
35  ,3  154 
35,3  156 

36,  3156 
35  ,3157 
35,  316C 
35,  3161 
35,316? 
3 5,  316  3 
35  ,3  164 

35.3  165 
35, 3166 
35  ,3167 
35,  3 l 7L 
35,  3171 
35,31 7? 
35,  3173 
35  ,3174 
35,3175 
16,  ' 1?., 
35  ,3177 
35,  32C0 
35, 3201 

. 

?S  32C  3 

35  ,3?04 

36.3  2C5 

35,  3206 
35  ,3207 


70446  0 
52076  1 
73141  1 
51645  1 
03576  0 
51525  1 
00033  1 
77625  0 
71240  1 
73144  1 
77646  0 
52165  1 
03606  1 

73153  1 
57545  1 
0 360  6 1 
70406  1 
03606  1 
77615  0 
77650  1 

73154  0 
C 3 6 C 6 1 
77615  0 
02310  1 
022  10  1 
63375  0 
C35C6  1 
03600  1 
77624  1 
73400  1 
77624  1 
46423  0 
63375  0 
03630  1 
C3622  1 
77624  1 
73400  1 
77624  1 
46433  l 
7 7 6 5 C 1 
72722  0 
43345  1 
03636  1 
02310  l 
17636  1 
77614  1 
L 1 3 10  1 
7 8 20  7 ' 
02250  1 
52145  0 


AB  S 

ocomp 

MEXTES  OLOAO 

POOL 

OSU 

BMN 

ARS 

RESIGM  SIGN 


P.EVERS  DLOAD 

P USH 
STORE 
DAD 
GOTO 

STORDELT  STORE 
ACT1ME  OAC 

STORE 

VLOAD 


CALL 

CALL 

VLOAD 


CAL 


SR  1 

GOTO 

RESIGN 

AB  S 

DELEL 

ABS 

DEL  ELO 

DLOAD 

P6VFRS 


GOTO 

DELT  EEO 

STORDELT 

DCOMP 

OELTEEO 

SRI 

OELTEEO 


ADT  IME 
DE  LTEEC 

NOMTP  I 

NOMTPI 

PDVL 

VAPREC 

RAPREC 

G 01  NT 

ACT  IVE 
PDVL 
VPPREC 
RPPR6C 


EL  EX 


CALL 

GOTO 

DLOAD 

STOOL 

BON 

STORE 

OLOAD 


GO  I NT 

PASSIVE 

FLCALC 
DAD 
TT  PI 
NOMTPI 
TT  PI 

FTP  IFLAG 
T IMEX 

E LE  V 
GOTO 
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PAGE  665 


USER'S  PAGE  NO.  13  E7  S3 

CROSSED  OVER  SOLUTION 
DT=  (-SIGN  (DTD  ) //DT//I  /2 


WRONG  f»  I RFC  TI  ON 


SUM  OF  DELT  A T : S 


STORE  NEW  RACT  3 V ACT  3 


STORE  NEW  R PA  S S3  VPASS3 


ftP:  ASSEPBLF  REVISION  56  OF  AGC  PRCC-PAM  ZERl  INA  BY  ZOROASTER 


9:  l?  O:  T.  ? 1 , 1970  KISSING  .069 


PAGE  SSS 


P39-P35,  P79-P75 


JSER'S  PAGE  NO.  19 


E7  S3 


05 BO  PEF 
05B1  RFF 


9 LAST  657 
B LAST  663 


35. 3210  06520  0 

35.3211  03963  0 


ZFROVFT  S 
NOR  MEX 


GAP:  ASSEMBLE  REVISION  5fc  OF  AGC  PROGRAM  ZEPI.INA  BY  ZOROASTER 


L P34-P35 i P74-P75 

P 58?  S34/35.  1 

583  GGKPUTE  UNIT  NGRMAL  AND  L INC  OF  SIGHT  VECTORS  GIVEN  THE  ACTIVE  AND 
VO  584  PA  SSI  VI  POS  A NO  VE  L AT  TIME  V\ 

3585  -3  5,  7 212  C2375  1 S34/35.  1 VLOAD  VSU 

r 5P6  RTF  n LAST  683  35  ,3213  03552  0 RPASS3 

58  7 REF  14  LAST  663  35,3214  03536  1 p ACT3 

35,3215  41456  0 UNIT  PUSH 

"589  REF  4 LAST  662  35,3216  26302  1 STOVL  JLOS 

' 5q0  REF  15  LAST  667  35,  3 2 1 7 C3536  1 RACT3 

35,  3220  5 3435  C VXV  UNI  T 

^5g2  RFF  10  LAST  663  35,3221  03544  1 VATT3 

3593  REF  3 LAST  664  35,  3222  02252  0 STORE  UNRM 

r'594  35  ,3223  77616  0 RVQ 
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PAGE 


667 


USER  ' S PAGE  NC.  15  F7  S3 


GAP:  ASSEMBLE  PE  VISION  56  OF  A 3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L P3A-P35,  P76-P75 

Ju595  S36/35.2 


«'59*  ADVANCE 
5f  7 

C59B  RFF  17 
7590  RFF  7 

0600 

.0'  1 REF  K 
06C2  P£F  3 
0603 

3636  REF  6 

0605  RFF  5 

0606 

3 6361  REF  6 
06062  REF  1 

0606  3 
06066 

06065  RFF  10 
36366 

0607  RTF  5 

0608  REF  2 
3 639  REF  10 
0610  RFF  2 

611  RFF  3 
R0612  CCMPIITF 
0613 

3616  REF  16 

06 1 5 
0616 

3617 

0618  REF  6 

0610 
062C 
0621 
3622 

062  3 

3626  PEF  1 

3625  PEF  7 

0626  REF  2 

0627  RFF  5 

0628 

0620  RFF  6 

3633  REF  6 

0631 

0632  REE  7 

3633 

06331 

06332  REF  l 

06333  REF  17 

06336  REF  1 


PASSIVE  VEH 


LAST 
I AST 
l AST 
LAST 
LA  <T 


66  2 
200 

651 

658 

668 


L AST  662 
LAST  320 


35,3225 
35,  3226 
. 

35,3230 

, 

35  ,3232 
35,  3233 
35, 3236 
, 

3 5 , 3226 
35  ,3237 
3 5 , 3 26  0 

35,  326  1 
35  ,3262 
?5,  3263 
35,3266 
35,3265 
75,  3266 
35  ,3267 
35,3  25  C 


25,  3252 
35,  3253 

35.3256 
35,  325  6 
35  ,3256 

35.3257 
15,  3260 
35  ,3261 
3 c , 3762 
15,  3263 

35.3266 
35,  3265 
35  ,3266 

35.3267 
. 1 

35  ,3271 
35,  3272 
35,  32  73 
35,3276 
35,  3275 
35  ,3276 
35  ,3  277 
35, 3300 
35  ,3301 


C3670  1 
03660  1 
65315  0 
03552  0 
C 3fc  1C  0 
65325  p 
C 36  31  O 
33667  1 
66125  0 
03667  1 
73263  C 
7/765  1 
A 1 565  0 
C6520  i' 
77626  1 
73606  0 
27666  0 
C0CC7  0 
27  506  1 
03666  0 


C3536  1 
61656  0 
5')?3  5 " 
cocci  o 
02252  0 
77715  1 
72661  0 
00001  0 
75226  1 
63266  1 
73266  1 
C6  5 2fc  0 
15756  0 
03631  0 
77625  0 
03610  0 
03652  1 
60335  0 
03667  1 
COOCl  0 
63325  0 
33661  0 
03526  1 
26316  0 


PCVL 

POOL 

POOL 


PROP  LAPPEPT 
VLOAD 
SUREX  IT 
VPASS3 
POOL 
R PAS S3 
I N TI  ME 
POOL 
T P ASS6 
TWOPI 
BHIZ 
NN 

S3635.23 


S3635.23  CALL 
S3635.25  STOVL 
STOVL 


I NTI  NT 
RT  ARC 
VATT 
VPASS6 
RT  APG 


POVL 

DOT 


NOPIE  STOOL 
DSU 


. U) 

POVL 

RACT3 

PUSH 

OOT 

00 

UNRM 

SL1 
0 D 

SIGN 

3 AO 

NOPIE 

OPPCiSMAX 

ACTCENT 

TPASS6 

INT  IMF 

DELLT6 

SETPO 

NN 

OD 

POVL 
EPS  FOUR 
RAC  T3 
R IN  IT 
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, 


COMIC 


PPFCI SION 

GET  TARGE  T VFC  TOR 


UNIT  RP 
UNI T RA 


R A*RP. U 

UNIT  RA.  UNIT  RP 


REASONABLE  TKO  PI 


NUMBER  OF  OFFSETS 


P:  ASSEPRLE  REVISION  56  OF  AGC  PROGRAM  2 ERL  I N A BY  ZOROASTER 


9:1?  OCT.  21  » 1970  KISSING 


064- 


PAGE 


669 


L P34-P35,  P74-P75 


USER'S  PAGE  NO.  17 


E7  S3 


06335  PEF  11 

06336  REF  1 
36337  REF  1 

0634 

0635  PEF  1 
3636 

0637  RFF  4 
0 63B 

0639 

0640  REF  15 
3641  REF  IP 


LAST  667 

LAST  653 

LAST  643 
LAST  668 


35,  3 30  2 0 3544  1 

35,3303  3632?  1 

25,  3 3 C 4 22CG0  1 

35,  3305  77624  1 

35,3306  73365  0 

35,  33C7  64375  1 

35  ,33  1'i  02357  1 

35,33  11  00001  0 

35,  3 1 1 2 7 7772  0 

35.3313  37434  0 

25. 3314  C3470  1 


VAC  T3 
ST  CALL  V I N IT 

1 NITVEL 

C A l L 


LOMAT 

VLGAO  MX V 

DEL  VEF  T 3 
3 D 

V SL  1 

ST  CAL  L DELVI  VC 
SU8FX I T 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PPOCRAM  /ERL  INA  8V  ZOROASTER 


P 24-P25, 


P74-P75 


PD64?  S34/35  .3 


0643 

3644  PEF 
0645  RFF 
f 6 AN 

364f  REF 
0 648 
3 649 

265^  PFF 
C-651 

nss?  PFF 

0653  REF 
06  5 A 

3 655  REF 
0656  PEF 
C657 

365R  RFF 

0659 

0660  REF 

0661 

f'662  RFF 
)56?  REF 
066  A 

0665  REF 

0666 

.667  RFF 
0668 

0669 

0670  RFF 
3671 

067? 

3673  REF 
3 5 74 
0675 

r676  PFF 
0677  REF 


2 

16 


1? 

18 

17 


6 


6 


LAST  666 
LAST  669 

I AST  669 

I AST  669 

LAST  669 
LAST  668 

L AST  661 
LAST  668 

L AST  668 

LAST  668 

I AST  652 
L AST  668 

I A ST  667 

LAST  668 

l A ST  670 

LAST  670 

LAST  320 
LAST  670 


35  ,3315 
3C,  3 ? 1 6 
35,  3317 
35  ,R320 
25,  3 2 2 1 
35  ,3322 
35,3323 

35,  3324, 
35  ,3325 

, ) 

35,3330 
25,  3321 
35  ,3332 
35,3333 

36,  7334 
35  ,3  335 
3 5,  i '26 

35,  ■’337 
35,3340 

36,  3341 
35  ,334? 
35,3343 
35,  3 344 
35,3345 
1 c , 3346 
35,  3367 
35,3350 
35,  3351 
35  ,3352 
35,3353 
35,  3 354 
35 ,3355 
3 6,  3356 
35,  3357 


45020  1 
0346?  C 

73369  C 
61  375  1 
03434  1 
00001  0 
77772  0 
02367  1 
63255  0 

C3C44  1 

0 3536  1 
65325  0 
C 3442  0 
03631  0 
41525  0 
06624  r 
77624  1 
734C4  0 
77775  1 
< 1 

03444  ( 
41575  0 
023C2  1 
6 74  25  1 
02252  0 
41456  0 
76435  1 
02302  1 
77715  1 
64315  1 
02357  1 

or  Col  0 
77772  0 
36274  0 
C3463  0 


S34/35.3  STQ 


VI  CAO 


V SL1 

STORE 

VAC 


POOL 


PDOL 

CALL 

VLOAD 


CALL 
NORPEX 
LOHAT 
V X M 

OELVLVC 

OD 

DELVFE  73 
p ovl 
VACT3 
RAC  T3 
PDDL 
TIG 

TPASS4 

PUSH 

3PP0SMA  X 
I NT  T NT 


PATT 

STCRE  RTARG 
NOVRWRT  VLOAD  PUSH 
ULOS 

VXV  VCOMP 
JNRM 
UNIT  PUSH 
VXV  VSLl 
J LOS 

PD  VL 

P OVL  MXV 

DELVEET3 

CD 


VSLl 

STCALL  DVLCS 
NURMF  X 
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USER  ‘S  ? A GE  NO.  18  E 7 S3 

GET  HATRI X IN  PUSH  L 1ST 
NFW  06L  V TPI 

SAVE  FOR  TRANS  FORM 
NFK  V REQ 


INTEG.  FOR  NFW  TARGET  VEC 


JAP:  ASSENBLE  REVISION  56  OF  AGC  PROGRAM  2 ERL  IN A BY  ZOROASTER 

P^-P3S  P74-P75 
P'678  S3^/35.A  
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671 


•>679 
06  90 
06  81 
C 68? 
3683 


REF  11  LAST  670 


REF 


35  ,3360 
35,  3361 
15,  3 362 


35,3363 
35,  3366 


oroci 

77650 

73362 


S34/35  .4 


STQ  SETPO  NO  ASTRONAUT  OVERWRITE 

NORMFX 

on 

GOTO 

NOVRWRT 


P:  ASSEMBLE  RFVISIGN  So  OF  AGC  PRCGRAM  ZEPL INA  6Y  ZOROASTER 


L P 39-P  35,  P 79-P  75 

P06P9  ICKAT 


0665 

368?  PEE 
-687 

•>6Rfl  RFF 

7689 

0690 

:s?i 

06  02  PFF 
060  3 
369  ft 

0695 

0696 

0697  REF 

0698  RFF 
3699 

0700 

0701  PFF 
373?  REF 
0703 

0709  REF 
070? 

0706 

3707  PFF 
07PR 

0709  REF 

3713 

0711  RFF 
71 2 PFF 
0713 

0719  PFF 
3715  RFF 

071 6 RFF 

0717  RFF 
^719 

0719 

0720  RFF 

0721 
072? 

3723  REF 
0729  RFF 
0725 

3726  REF 
’.111  REF 


6 


1* 


19 

5 


I AST  670 
I A ST  670 

LAST  67  2 

LAST  658 
LAST  665 

LAST  698 
LAST  650 

LAST  650 

LAST  672 

LAST  661 

LAST  6? 1 
I A ST  69  5 

l A ST  633 

1 AST  672 
LAST  651 

LAST  651 

LAST  651 
LAST  65  1 

L AST  670 
l AST  672 


. 

35  ,3367 
35,3370 
35,  3371 
35  ,3372 
35,  3373 
35, 3379 
75,3375 
35,  mh 
35  ,3377 
35  ,3900 
15,  390  1 
75  ,*9C? 
35,  390  1 

35. 3909 
35 ,79P5 
35,  3906 
35  ,3907 

35.3910 
35,  3',  1 1 
35  ,3912 
35,  3 613 
35,  3919 
35,3915 
35,  3916 
35  ,3917 
35,7920 
35,  392  1 
35  ,39 22 
35,  3923 
35,  3929 
35,3925 
35,  3926 
35  ,3927 
35  ,3930 
35,  39  3 1 
35  ,393? 

3 5,  39  2 3 
35,  3939 
35 ,3935 
35,  3936 
35  ,3937 


29007  0 
03536  1 
57956  1 
00015  0 
76935  1 
C2252  0 
000C1  0 
93901  O 
00023  0 
65325  0 
C65/0  C 
0231'  1 
9 1 9 C 6 0 
95020  1 
C3965  0 
27910  1 
7L219  0 
01673  1 
9 3059  1 
73919  1 
01973  0 
95595  1 
63736  0 
7 3C 1 9 0 
00067  1 
^2777  1 
9 3C  1 9 0 
09303  0 
73925  0 
00263  0 
25517  0 
77657  0 
57176  0 
25535  0 
77657  0 
57176  0 
35593  0 
271 06  0 
52175  0 
CCCC1  0 
03965  0 


LCPAT 


G01  NT 


IN  TINT 


ALLSET 


V LOAD  VCGHP 
UNRN 

STOVl  60 

PACT3 

UNIT  v:omp 
STORF  120 
VXV  VS  LI 
IINRM 

STORE  00 
SFTPO  P VC 

18D 

POOL  POOL 

ZfcRQVEC  S 

NOMTP I 
PUSH  PUSH 

sto  :all 

RT  RN 
1 NTSTALL 
CLEAR  OLD  AD 

INTYPFLC 
07  E SET 
+ 2 

I NTY  PF  LG 
OLOAD  STAOR 
STOOL  I DEC  1 
SET  L X A ,2 

MOON FLAG 
PTX2 

BON  CLEAR 

CMODNFLG 
ALLSET 
MOONF LAG 
STOVl  TET 
VSR* 

0,  2 

STOVL  RCV 
VSR* 

3,2 

STCALL  VCV 

INTFGRVS 
VLOAD  GOTO 
RATT 
RTRN 
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PAGE 


572 


.069 


USER'S  PAGE  NO.  ?C 


1 7 S3 


7*  — Y 


DO 

nct 


OR OEP  OR  INSERT  BEFORE  INTINT 


",  AP  : 


ASSERBLF  REVISION  5c  OF  AGO  PRUCRAM  ZERLINA  BY  ZOROASTER 


P34-P35,  PT4-P75 

P‘  728  S34/3?  .5 

3 0729  SLBRflLTI  NF  S LSFO 


R3.733  BANKCAl  L 

R0731  GCF I ASH 

ir'Ti2  r.OTnpnrH 

RD733  S 34/  35.3 

R C 7 3 A S34/35.4 

R0735  VNPOOH 


0736 
C 73  7 
3 738 

0739 

0740 
3741 
074? 
079  1 
0799 
0799  1 

0799  2 
0799  3 
0795 
3796 
G 79  7 
079R 
■ 790 
(750 
0751 

(7911 


RFF 

PEF 

PFF 

RFF 

REF 

REF 

REF 

♦REF 

RFF 

RFF 

RFF 

REF 


REF 

RFF 

RFF 


IQ  LAST  669 
9 LAST  626 
1 

« LAST  627 
1 

1 

17  LAST  670 
1 

2 LAST  612 
166  1 AST  657 

19  LAST  657 
19  LAST  657 

2 LAST  673 
9 LAST  679 
23  LAST  656 


35,  3990  9 30  20  1 

35,3991  03970  1 

35,  3992  01311  0 

35,  3993  73997  1 

35,3999  52019  0 

35,  3995  CC970  1 

35.3996  73513  1 

35.3997  77219  0 

35,  3950  03279  0 

35,3951  03939  1 

35,  3952  C 12  36  1 
35, 3953  77776  l 

35,3959  3 3699  1 

35,  3965  C 9616  1 

35.3956  20977  1 

35.3957  C 6001  0 

35,  i960  0 3962  1 

35  ,3961  0 3959  1 

36,  3962  3 5C16  .1 

35,  3963  c 9 003  0 


S 39/36.5  STO 


SET 


FLAGON  CLEAR 


STCRE 

EXIT 

+5  CAF 

TC 

CAOR 

TC 

TC 

TC 

♦2  CA 

TS 


BON 

SUREX  IT 
FI NALFLG 
FLAGUN 
GOTO 

UPOATPLG 
FL  AGOFF 
VLOAO 
N TARGF  LG 
DELVL VC 
TMPOV 

V06N81 
BANKf  ALL 
GO  FI  ASH 
GOTOPOOH 
♦ 2 

FIAGON  +5 

EBANK7 

EBANK 


07512 

37613  RFF  12  LAST 
07519  REF  179  LAST 

07515  REF  175  LAST 

07516  RFF  IP  I AST 
0761  7 RFF  176  LAST 
37518  ♦REF  2 LAST 
C761Q  RFF  99  LAST 
075?  RFF  177  LAST 
376? I rff  1 

07522  REF  ?C9  LAST 

07523 
3 7629 

'75?  5 REF  9?  LAST 
0753  RFF  2 LAST 


35,3964  22  007  0 

606  35,  3465  3 9756  1 

606  35  ,3466  54  002  1 

673  35,3967  50  002  0 

673  35,  3470  4 1423  0 

673  35,3471  50  002  0 

673  35, 3972  6 1235  1 

656  36, 7473  26  C01  i 

673  35,34  74  1 0 002  1 

35,3475  T 3466  T 

610  35  ,3476  22  000  1 

35,74  77  C 0006  1 

35, 3500  1 3503  0 

6?7  35  ,3501  L 5515  0 

673  35,  3 5C2  C0146  1 


NT  ARGCHK 


TS 

INCEX 
C S 

INDEX 

AD 

ADS 

CCS 

TCF 

L XCH 

EXTEND 

BZF 

TC 

ADRES 


+ 3 

J P FL  AG 
NTARGFLG 


075  • 
0 7 55 
) 756 


REF  77  LAST  661 
RFF  3 LAST  67  3 


35.3503  0 6051  0 

35.3504  45014  t 
35,  35C5  C 3354  0 


TC  INTPRFT 

BOFF  CALL 

NTARGFLG 
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USER  'S  PA GF  NU.  21 


E7  S3 


SAVE  DV  BEFORE  DISPLAY 


PRC 
I DAD 


Tfl  BE  SURE 


GAP: 


ASSEMBLE  "EVISION  5fc  OF  A3C  PROGRAM  ZEkl.INA  BY  ZOROASTER 


L P3A-P35,  P74-P75 


'757 

3753 

759 

74] 

'75? 

0763 

764 

0765 

r766 
767 
’ 768 
f 769 
'773 


PCF 

RFF 


PEF  7 IASI  67C 
RFF  9 LAST  64  3 

PEF  1 


REF  1 

RFF  13  LAST  658 
PEF  78  IA5T  673 

PFF  2fJ  LAST  67  3 


35,3506  73510  1 

35,  35C7  7 ’ 3 1 5 1 

35,3510  77775  1 NQCHG 

35,351  1 02357  1 

35t  35  12  03656  1 

35  ,3513  77624  1 FL  AGO  F F 

35,  3 c l 4 73360  0 

35,  3515  77776  1 

35,3516  3 364?  0 

35,  3 c 1 7 C 3627  1 

35  ,3523  G 6051  C 

36,3521  77650  1 

35,  3522  03470  1 


NOCHG 

S34/35.3 

VLQAO 

DELVEFT3 
STORE  3ELVSIN 

CA1  L 

S34/35.4 

EXIT 

CAF  V06N59 

TC  VNPOGH 

TC  IMTPPET 

GOTO 

SUBF  XI  T 
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CAP:  ASSFMRLF  REVISION  56  OF  AGC  PRCGPAM  7.FRL  INA  BY  ZOROASTER 


P34-P35,  P74-P75 
P0771  VM6A5 


<0772  SUBROUTINES  USED 


Pi  77 A 
R 0776 
R3776 
< ' 777 
R • 77 fl 
R u 7 7 
1 0780 


P3XHRD7X 
OFT* MG A 
RANKCALL 
DEI  AY  JOB 
C CM°  TGO 
GOFLASHR 
CCTCFCCH 
F LAG  UP 


078  3 
i 7 8 A 
° 7R6 
7 86 
0787 
^ 788 
37R9 
0790 

0 7Q1 
179? 

0703 

0794 

1795 

(706 

0797 

”798 

0799 

)8DD 

0001 
0 80  2 
0B03 
0804 
3836 
0806 
080  7 
39.13 
0 809 
08  10 
i'B  1 1 

o R1 2 

■>“13 

08H 
0816 
OB  16 
r .817 


REF  21  LAST 

REF  1 

REF  3 I AST 

REF  5 LAST 
REF  1 

REF  2 LAST 

REF  3 LAST 
REF  A t A ST 

REF  1 

REF  2 LAST 

REF  1 

REF  3 LAST 
REF  70  LAST 

REF  10  LAST 

R EF  1 

REF  1 

REF  22  LAST 

REF  1 

REF  6 LAST 

REF  167  l AST 

REF  11  I AST 

R EF  1 

REF  1 68  I AST 

REF  16  I A ST 

REF  1 

REF  1 

RFF  1 

REF  13  LAST 

REF  3 I AST 


35,  3E23 
67 A 35.152A 

35,3525 
61  2 35,  3526 

35  ,3527 

673  35,3530 
35, 3531 

675  35  ,3532 

35,  3 6 3 3 
675  35, 353A 

675  35,3535 

35,  3 536 
35  ,3537 
675  35.35AO 

35,  35A  1 
35  ,35A2 
67  c 3 6,  3 6 A 3 

67 A 35,  3644 

35.35A5 

674  3 e , 3 5 A 6 
35  ,35A7 
35,3550 
3 5,  3551 

35  ,355? 

675  35,  3553 

35,  35*A 

386  35,3555 

673  3 5,  3 c 56 

525  35,3557 

36  ,3560 

675  35,  356  1 

673  35,3562 

36,  356  3 
35,  ■’56A 
35,3565 

A 38  35,  3566 

15,3 


33657  0 
C 2 2 A A 1 
712  1A  0 
01351  1 
7 3f  f 1 1 

33657  0 
77615  0 
33657  0 
022AA  1 
7 7 A 1 A 0 
017A2  1 
7 3 5 c 1 1 
C 36  2 1 1 
0 35AA  1 
C 355?  0 
C 6051  0 
A1575  0 
03656  1 
7762A  l 
15725  0 
77776  1 
0 2A37  0 
3 1A70  0 

5 5 • A6A  1 
3 A777  1 
0 A6l6  1 
01736  1 
? 3fc A 5 0 
0 A6 1 6 1 
20A77  ] 

0 3566  1 

1 3571  1 
C 3601  0 

2 00  C 5 1 
55*162  1 


VN1 


STQ  D LEAD 

SUBE  XI  T 
DP-.O  1 
STORE  ♦ MG  A 
ROFF  OL  OAO 

FINALFLG 
3E  TA5 
OP  - .0  1 

DAD 


STORE 

BOFF 


TC 

TC 

TC 

TC 

V LOAD 
CALL 

GETA5  EXIT 
TC 
CA 
TS 
CAF 
TC 

CA  CR 
CAF 
TC 

CAOR 

TC 

TC 

TC 

KILCLOCK  CA 
TS 


DP-. Cl 

♦ MCA 
EXIT 

REFSMFLG 
GETA5 
P 3 X0RP7X 

♦ 2 

GETA5  *1 
I NTPRF  T 
PUSH 
DELVSI  N 

GET+MGA 

COMPTGO 
SUREX IT 
Q SAVED 
IS  FC 

BANKC ALL 
DEL  A YJOB 
V16NA5 
3ANKC  ALL 
GO  FLASH 
KI  LCLOCK 
NA5PP0C 
CLUPOAT  E 
Z 

DISPOEX 
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MGA 


-.31 


MGA 


-.0  2 


P 3X 
P7X 

COMPUTE  MGA 

INITIATE  TA  S<  TO  UPDATE  TTOGO 


TRKMKCNT,  TTDGO,  +MGA 


T EPMINAT  E 
PROCEED 

RECYCLE  - R E TURN  FOR  INITIAL 


C OMPUT  ATI  ON 
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L P3A-P’5,  p ■;  *-  p 7 5 


:.8i° 

0819 
-020 
C821 
-02? 
7 0?R 
r«?4 
08?5 
>326 
0?7 
*>«?« 
OR?  Q 

0830 
3831 
'.83  2 

>w33 

>83* 


RFF 
PC  F 
REF 

P F F 
RFF 

R(  F 
REF 
PC  F 
RFF 
F I F 

REF 

PFT 

RFF 


I 6 L AST 

II  l A ST 
39  LAST 

2 LAST 
?7  LAST 

A3  LAST 
6 LAST 
1*  LAST 
A LAST 
2fl  I AST 

80  I AST 

ir  LAST 
2 I AST 


87  3 
6f  1 
571 

87  5 
52fl 

873 
67  5 

67  5 
678 
676 


675 

673 

675 


35, 3570  C 6001  0 
35  ,3C71  A 0076  l 
35,3572  7 A7A6  1 

35,  3573  C OOC 6 1 

35  ,3574  l 3566  0 

35. 3575  C *364  0 

35. 3576  0A02A  0 

35.3577  C 5515  n 

35, 36C0  CCCA7  1 
35  ,3601  3 0005  1 

35,360?  ce*  162  1 
35, 3603  c 536A  0 
35.360A  0A02*  0 

26, 3605  C 6C51  0 

35,  3606  5 2 0 1 A 0 

35,3607  00670  0 

35,  3610  C >4 6 A 1 


NA5PR0C 


CLUPOAT 


TC  GOTOPOOH 

CS  FLAGWP0  2 

MASK  HIT6 

F XTEN> 

BZF  < ILCI.  OCK 

TO  PH  AS  CH  KG 

ICt 

TC  JPFLAG 

ADRES  FINALFLG 
c r.  a 7 

TS  DISPOEX 

TC  P H A SC  H Nr. 

OCT  0AO2A 
TC  I NTPRET 

CLEAR  S U TO 

JPCAT  FI  G 
OSAVEO 
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676 


FINALFLG  IS  SFT-FLASH  V37-AWAIT  NEW  PGM 

SET 

FINALFLG 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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677 


R 0836  SUBROUTINES  ISEO 


ROfllfl 
3 0839 
RD840 
R08  41 


GOinPOOH 
01.  ANK  ET 
ENDOF JOB 


0 842 
9R43 
0844 
3845 
3 84  6 
3 84  7 
'8  48 
'849 


REF  12 
REF  2 
REF  169 
REF  16 
REF  16 
RFF  13 


l AST  67  1 
LAST  620 
LAST  675 
LAST  675 
LAST  676 
LAST  677 


35,  36  12 

35  ,3613 
35,  ?t  14 

35,  361 5 
35,3616 
35,  3617 

36  ,3620 


C.  0006  1 

2 3 • 46  i 

3 3641  1 
C 4616  1 

20477  1 
1 6001  1 
C 1463  1 
1 3613  1 


01 SPLAYE  EXTEND 
0 XCH 
CAE 
TOR 
C ADR 
TCF 
TC 

TCF 


NORMF  X 
V06N5S 
BANKCALL 
3 OF  LASH 
GOTOPOOH 
NORMF X 
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l P34-P35,  P7A-P76 

>0853  P3XQPP7X  . 


'8  56 
5 867 


0 858 
0850 


PFF  178  LAST 


673 


35,  36  2 1 2 7756 

15,  *622  7 1C10 

35,3623  C 1 006 
35,  362A  1 3626 

35.3625  2A  002 

35.3626  C 0002 


0 

1 

1 

0 

0 


P3X0RP7X  CAF 
MASK 
EXTEND 
B7F 

INCR 

RETURN 


♦ 2 

0 


R086r  VNPOGH 

3 086  I SL«3R0l  TINES  L'SFO 

R3862  RANKCAIL 

R0863  GCTLASH 

R086A  GPTOPnOH 


0856 
0866 
3 867 
086  8 
0 860 
3*7'' 
c 871 
t872 
0873 


PFF 

REF 

REF 

RFF 

RFF 

PFF 

PFF 


6 LAST  672 
3 LAST  628 
A LAST  678 

17',  I A ST  677 
17  I AST  677 
17  LAST  677 

7 LAST  678 


36, 3627 

. 

>6,  36  31 

35,  7632 
35,3033 

36,  3636 
35  ,3635 
35  ,3636 
35, 3637 


0 0006  1 

2 3 • A65  1 
CC1 61 5 0 

3 1615  1 
C A616  1 

2C477  1 
1 600  1 1 

0 1 A 6 6 1 

1 3<  2 2 1 


VNP03H 


F XTPND 
OX  C H RTRN 

TS  VF  RBNCU N 

CA  VERBNUUN 

TCR  B ANK  CALL 

CADR  GGFLASH 

TCF  GOTOhDQH 

TC  RTRN 

TCF  -5 
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L P34-P35,  P 74-P75 

P 1 874  CONSTANTS 


C-875 
0876 
0077 
9878 
38  79 
0880 
0881 
0881 
088? 
388? 
0883 
0883 
388'. 


r<884 
I'  8 86 
C 887 

08871 
3887  1 

08872 
''887? 


35,  H - 1 
35,  3 6V 
35,3643 
35,  3*44 
35  ,3645 
35,3646 
35,  3647 
35  ,3650 
35,  ‘h*  1 

35,  3652 
35,3653 
35,  36  54 

" . 

35.3656 

35. 3657 
35  ,3660 
35,  ^ 66  1 
35,  3662 
36,3663 


01445  0 V06N37 

01467  0 V06N55 

0147  2 1 V0  6N58 
01473  0 V06N59 

C 1 6 2 1 0 V06N81 

04055  0 V L6N45 
14441  0 TWCPI 
37325  1 

00001  0 M 4X250 
2C650  0 
12525  0 THIRO 
12525  0 

CCCC4  0 ELEPS 
21505  1 

77777  0 DP-.01 

61337  1 

0125?  0 EPS  FOUR 
25253  1 

13434  0 1300EG 

16162  0 


VN 

VN 

VN 

VN 

2 DEC 

2 DEC 

20EC 

2DEC 

OCT 
OC  T 

2 DEC 

2PE: 


0637 
3656 
0658 
0 6 59 
0681 
1645 

5 .283 18  5 30  7 


25  E 3 


. 333333333 

. 27777777  E-3 

77777 

61337 

.0416666666 
. 3611111111 
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p3<,-p1«;  , P76  - P75 


USER' S PAGE  NC.  2* 
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’"BBR  INITVFl  

81849  MCI)  NO  -1  LOG  SECTION  - PJ4-P35,  P74-P75 

R 890  MOD  8Y  WHITE. P DATE  21NGV67 


P'R91  FUNCT  TONAI  OPSCR [PTIOM 


or  09? 
1 893 
R''89A 
® 1 ' 8 9 c 
P 896 
R0897 
3 890 
RJB99 
R 090< 

3 0901 


THIS  SUePCUT  INF  COMPUTES  T F E P FQU  IP  EO  INITIAL  VFLOCITY  VFCTOR  P OR 
A T1  AJLC  TOP  Y OF  SPECIFIED  TRANSFER  TIME  BETWEEN  SPFCIFIED  INITIAL 
AND  TARGET  POSITIONS.  THE  TRAJECTORY  MAY  BE  EITHER  CONIC  CR 
PRECISION  DEPENDING  r N A f>  INPUT  PAPAMFTER  (NAMELY,  NUMBER  OF 
OFFSETS).  IN  ADOITirN,  IN  THE  PRECISION  TRAjFCTORY  CASE,  T MF 
SUeRCUTlNF  ALSO  COMPUTES  AN  OFFSET  TARGET  VECTOR,  TO  BE  USED 
DURING  PURR  -CON|  C C PCS  S-PPCCUCT  STEERING.  THE  OFFSET  TARGET 
VECTOR  IS  THE  TERMINAL  POSITION  VEC  TOP  OF  A CCNIC  TRAJECT  CRY  WHICH 
HAS  THE  SAME  INITIAL  STATE  AS  A PRECISION  TRAJECTORY  WHOSE 
TFPMINAI  POSITION  VFf  TTR  IS  THE  SPECIFIED  TARGET  V FCT  DR . 


R390?  IN  ORDER  TO  AVOID  THE  INHERENT  SINGULARITIES  IN  THF  1 80  DEGREE 

•>0  903  TPANSFER  CASE  WHEN  THE  (TRUE  OK  OFFSET)  TARGET  VECTOR  HAY  RE 

RO90<.  SLIGHTLY  OUT  OF  THE  CRBI  TAL  PLANE,  THIS  SUBROUTINE  RCTATES  THIS 

P-9C5  VECTOR  INTO  A PL  AN  F CEFINEC  BY  THE  INPUT  INITIAL  POSITION  VECTOR 

30906  AND  ANCTHER  I NFLT  VFCTCP  (USUALLY  THF  INITIAL  VELOCITY  VECTOR), 

RD997  WHENEVFR  THF  INPUT  TARGET  VECTOR  LIES  INSIDE  A CONE  WHOSE  VERTEX 

H090  8 IS  THF  ORIGIN  CF  COORDINATES,  WHOSE  AXIS  IS  THE  I BO  DEGREE 

R(  909  TPANSFER  DIRECTION,  AND  WHCSE  CONE  ANGLE  IS  SPECIFIED  BY  THE  USER. 


• 91  THE  LAMBERT  SUBROUTINE  IS  UTILIZED  FOR  THE  CONIC  COMPUTATIONS  AND 

3 0911  THF  COASTING  I NTEGP  AT  I CN  S'lEROUTINE  IS  UTILIZFl)  FOR  THE  PRECISION 

RD912  TRAJFCTORY  COMPUTATION  S. 


R0913  CALLING  SECUENCE 


3 noj/, 
R3916 
R f'  9 1 6 


L CALL 

L + 1 IN1TVEL 

L+?  (RETURN  - ALWAYS ) 


R09  1 7 INPUT 


R091  8 
< < 91  9 

92 

R0921 
3 092? 
R3923 
R 0924 
R0925 
R0925 1 
3 6926 


(1  ) P INIT 
( 2 J vim  r 
( 3 ) R TAR  G 
(4)  DELLT4 
I 5)  INTI  MF 

(6)  OD 

(7)  20 

( F)  R T X 1 
(9)  RTX  2 
PLSHLOC  SET 


INITIAL  PCS  IT  ION  RADIUS  VECTOR 
INITIAL  PCSITICN  VELOCITY  VECTOR 
TARGET  POSITION  PAOIUS  VFC  TOP. 

CES1RF0  TIME  OF  FLIGHT  FROM  RINIT  TO  R TAP  G 
TI  ME  OF  RIMT 

NUMBER  OF  ITERATIONS  OF  LAMBE  R T/I  N TEGR  VS 
ANGLE  Tf  180  CEGREES  WHEN  ROTATION  STARTS 
- 2 COK  EAPTH,  -IC'D  FCP  LUNAR 

COORDINATE  SYSTEM  ORIGIN  - C FOR  EARTH,  2 FOR  LUNAR 
AT  40 
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P 34-P  35 , P 7 A- P 7 5 
R0927  OUTPUT 


T 0928 
R1929 
R 0930 
R ' ' i 1 


( 1)  RTARG 
(21  V TPR  IMF 
(3)  VTFRIPF 
( 4 I DEL  VEE  Tft 


OFFSET  TARGET  POSITION  VECTOR 
MANEUVER  VELOCITY  RFOUI  RED 
VCLGCITY  t T TARGET  AFTER  MANEUVER 
DELTA  VELCriTY  RFQUIRFD  FOR  MANEUVER 


R0932  SUfiROUT INFS  US  ED 

RC933  LAMBERT 

R0<>34  INTSTALL 

R09l5  I NT FGRVS 


09  36 
3937 

RFF 

l 

11  ,2  000 
11,  20C0 

SET  LUC 
BANK 

INTV  EL 

0938 

PFF 

1 

COUNT  * 

$ (■/  IN  I TV 

095« 

1 1 , 20C0 

77614 

1 

IN1TVEL  SFT 

096  9 

RFF 

1 

1 1,  200  1 

0C4  7 5 

1 

SUE  SSW 

0960 

11  ,2002 

44175 

1 

HAVEGUES  VLOAD 

STQ 

3961 

KEF 

5 

1 AST 

670 

1 1,  2003 

C 3444 

0 

RTARG 

0962 

RCF 

1 4 

LAST 

677 

1 1,2004 

03463 

0 

NOR  MF  X 

0963 

PFF 

1 

1 l , 

03  4 72 

0 

STORE 

RT  ARG1 

39631 

l L,  2006 

77646 

0 

ABVAL 

09632 

REF 

2 

LAST 

147 

11  ,2007 

03723 

1 

STORE 

P TM AG 

0964 

11 , 2010 

46135 

1 

SLOAD 

BHIZ 

0966 

REF 

4 

l AST 

67  2 

1 1,  20  11 

0 3000 

1 

R TX2 

0967 

RFF 

1 

11  ,2012 

22026 

0 

IN  ITVFl  1 

39S9 

1 1,  2013 

72575 

c 

VLOAD 

VSL2 

0969 

RFF 

2 

l AST 

668 

11,2014 

02314 

0 

ft  I NI  T 

0970 

RIF 

3 

LAST 

681 

1 1 ,2015 

26314 

0 

STOVL 

R I N IT 

3971 

RFF 

2 

LAST 

669 

11,  2016 

02*22 

0 

VI  M T 

t 972 

11  ,2017 

77752 

1 

VSL2 

0973 

PFF 

3 

LAST 

681 

1 1 ,2020 

26322 

c 

STCVL 

VINIT 

0974 

REF 

2 

L AST 

6ft  1 

11,  20  2 1 

L 1472 

0 

ft  TAPG 1 

0976 

11  ,2022 

77752 

1 

VSL2 

3976 

REF 

3 

LAST 

681 

l 1,  2023 

C 34  72 

0 

STORE 

RT APG1 

0976  1 

1 1,2024 

77646 

0 

ABVAL 

09762 

REF 

3 

LA  ST 

681 

1 1 ,2025 

03723 

1 

STORE 

RT  MAG 

R3977 

in: 

IT  I Al  IZAT  ION 

0978 

1 l ,?°?6 

71331 

0 

TN1TVFL  1 SSP 

DLDAO 

0979 

PFF 

i 

• 

C 3 6 1 7 

1 

ITCTR 

0980 

77776 

1 

c -i 

0981 

l 1 ,2031 

70546 

1 

COS  INF 

SR  1 

393? 

REF 

l 

11,  2032 

1 7667 

0 

STOOL 

f 0ZY4 

0983 

11,2033 

67  154 

0 

L XA  ,2 

SXA,  2 

0984 

REF 

269 

LA  ST 

663 

11  ,2  034 

00154 

1 

MP  AC 

3986 

RFF 

2 

L AST 

129 

C27C1 

0 

VT  ARG  T AG 

0986 

1 1 ,2036 

77775 

1 

VLOAD 
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COGA  GJFSS  N3T  AVAILARLF 


B29 

R27 

07 

B5 


SF  7 1 TC  TR 

CALCUL  A TF 
SET  CUZY4 


TO  -1  .LOAD  MPAf  WITH  E4(PL?0J 

COSINE  ( FA)  (*?I 
TO  C0SINEIF4)  (PL  CD) 


S FT  VT  ARGT  AG  TC  *0  (S  P) 
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P ? 4-  P 3 *5  f P 14-P75 


0987 

0988 

0989 

0990 

0991 
)99? 

0993 

0994 
3995 
'996 
0997 
09QR 
099Q 

133 

locjl 

loo? 

1333 

1004 

1005 

1006 
IOC  7 
i r 

RlCO«* 


BFF  A LAST  68  1 

REF  3 LAST  129 

REF  4 LAST  fcfll 

PFF  ? LAST  129 

PFF  5 LAST  668 

REF  7 IAST  1 ?9 


REF  5 LAST  682 


°EF  4 LAST  6P  1 

RFF  ? LAST  129 

REF  5 LAST  682 


REF  7 IAST  681 

RFF  1 

REF  3 LAST  682 

REF  1 

RFF  2 LAST  682 

RCTATF  RC  INTO 


1 1 , 20  3 7 0 2 3 1 4 

11.2040  26655 

11.2041  03472 

11.2042  16663 

1 1 ,2  C43  03452 
1 1,  2044  !671 

11,2045  7720  1 

11,?  C46  00001 

1 1,  2047  02314 

11,2353  41456 

11,2051  53435 

I 1,  2052  02322 

11.2053  26674 

11.2054  C 34  72 

11.2055  50256 

11,2D56  4 1 Cl  5 

II.  7 c 1 n<'7 

II  ,2060  0 3665 

11  ,?  06  1 03667 
11,2oe2  43044 

11  ,2C63  221C5 

1 1 , 2C  6 4 1 4 £ 5 

YC  PL  ANE  - SET  UN 


0 

STOVL 

0 

C STOOL 

1 

0 STORE 

1 SETPO 

0 

0 

UN  IT 

vxv 

6 

0 STOVL 

0 

UNIT 

1 OAC 
0 

1 

0 STORE 

0 INI TVEL  2 BPL 
3 
0 

IT  NORMAL  TO  YC 


R INI  T 
R 1VEC 
RT  AKG1 
R 2 VEC 
DELLT4 
TOESI RFO 
VLOAO 
3 D 

RINI  I 
PUSH 
UNIT 
VI  N!  T 
JN 

RTARG1 
DOT 
CL  EAR 
C0ZY4 
NORM  SW 
C0ZY4 
SE  T 

IN  ITVEL  3 
NORMS  W 


1012 

1013 

1 (14  PFF 
1015 
1316 
1 Ol  7 

10  18  REF 

131=> 

1020  RFF 
102!  RFF 

1022 

1023  PFF 
1324  REF 
1025  REF 
10  26 

13  ?7  RFF 
1028  RFF 
10  280  2 
1 ij2R(_4  RFF 
102806 
1 32808 
10281 
10  28  2 
1328  3 


3 L AST  682 
.3  LAST  68  2 

4 LAST  682 

2 LAST  37 
? LAST  681 

2 LAST  682 

5 LAST  682 

6 LAST  6R  2 

1 

6 LAST  68? 
4 LAST  68  2 


11, 2066 
11  ,2067 
11  ,?H70 

I 1,  ?0  7 1 

II  ,?0  72 
LI,  2C73 
11,2074 
11  , 2 C 75 
11, 2076 
11  ,?0  77 
1 1 , 2 1 n f 
11,  2 1C  1 
11  ,2  102 
11,  21C3 
11,  2104 

11  ,21  OS 

I 1,  21C6 

II  ,2107 
11  ,2  1 10 
11,2  111 
11  ,2  112 

I 1,  3113 
11,2114 

II  ,21  15 

11,2116 


41575 
02663 
63246 
462C6 
C 26  74 
5135? 
74256 
77772 
C2663 
67351 


240G7 
C36 1 7 
7 7244 
22105 
C2663 
03472 
63345 
26CC7 
02663 
63256 
02655 
41456 
5 74  35 
00003 
77606 
7 1350 


0 

0 


0 

1 

0 

0 

0 

1 

0 

1 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 


V LOAD  PUSH 
R2  VFC 

ABVAL  PDVL 
PUSH  VPROJ 
UN 

VSL  2 RVSU 
UNIT  VXSC 
VSL  1 

STORE  R2VEC 
TLGAD  SLOAO 

7 ERO VEC 
ITCTR 
BPL  VLOAO 

IN  ITVEL  3 
R2VEC 

STORE  RTARG1 
INITVEL3  DLCAO  PDVL 

MUEARTH 

R 2VEC 

UNIT  PDVL 
P 1 VEC 
UNIT  PUSH 
VXV  VCOMP 

20 

PUSH 

L XA  , 1 DLCAO 
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rive:  eq  rinit 

R2VEC  EQ  RTAPG 

TDESIPFO  EQ  DELLT4 

IN  IT  IAL  IZE  PL  TO  00 
MPAC  EQ  RI  NIT  (+26  ) 

UNIT(RI)  ( + 1)  ( PL  60) 

MPAC  EQ  UMT(RI)  X VI  (+8  ) 

TEMP=URT. URI  (+2)  (PL  . D) 


UN  CALCULATED  IN  LAMBERT 


RC  TO  SO  (+29  ) 

RC  TO  MPAC  , ABVAL  (PC) 


(PL  60) 

(+29)  TO  CD(PL  2D) 
(PL  80) 


( PL  00  ) 


POS  IT  IVF  VALJ  F 

20  = UNIT  (P2VEC) 

80  = UNI  T(R  1 VEC  ) 

-N  = JN  IT  (F>2V  EC  > X UNITPlVEO 


(PL  20) 

(PL  80) 
( PL1  4 0) 


( PL20D) 


GAP:  ASSEMBLE  RFVISION  56  OF  AC-C  PROGRAM  ZERLINA  BY  ZOROASTER 


L P35-P35  , P75-P75 


1"2«5 
1?2B5 
10286 
1"?87 
1<??88 
1 *2  8 9 
13  29 
102q1 
102^2 
13293 
1029  A 
10  295 
1 0296 


1032 

1333 

1.  3A 


1035 
1336 
1037 
P 1038 


REF  6 l A ST  657  11  ,2117 

1 1,  2 120 

I 1 ,2121 
11,2122 
11,2123 

II  ,2125 
l 1, 2125 

RFF  1c-  LAST  665  11,2126 

11  ,2127 
11, 2130 
11  ,2131 

1 1 .2132 

1 1. 2 133 
11 ,2135 

REF  1 11,2135 

1 1,  2i  36 
1 1 ,2137 
1 1,  2 1 5C 

RFF  ? LAST  129  11,2151 

SFT  INPUTS  UP  FOR  LAMBERT 


0277 f,  0 
00023  o 
62050  1 
22125  C 
77767  1 
67310  1 
CCC12  1 
00057  1 
77230  0 
22132  1 
51576  1 
77775  1 
50235  0 
71255  0 
22137  l 
51576  1 
67155  0 
CCCCO  1 
02672  0 


RTX1 
1 80 

3MN  INCR.l 
+2 

DEC  -8 
INCR,  1 SLOAO 
1 0 D 
XI 

OHIZ  VLOAD 
*2 

V COMP  PUSH 
VLOAD 

VXV  007 
BPL  DL  D A D 

I N1  TVEL5 
OCOMP  PUSH 
IMTVEL5  LX  A, 2 SXA,2 
00 

GEOMSGN 


1 039 
1050 
1050  1 
1 05(2 
3 1051 


1 1,  2 152  66  750 

RFF  7 LAST  683  11,2153  02776 

REF  l 11,2155  CCC27 

1 1,2155  00025 

OPERATE  THE  LAMBERT  CONIC  RCLTINE 


1 L XA  , 1 SSP 

PTX  1 

l ITERCTR 

1 20D 

(COASTFLT  SUBROJT  INF  ) 


1)52  1 1,  2156  77625  1 CALL 

1 r 5 3 REF  1 1 1 ,2157  25212  1 LAMBERT 

R 10 55  ARRIVED  AT  SOLLTION  IS  GOOD  FNCUGH  ACCORDING  TO  SLIGHTLY  WIDER  BCUNDS 

1055  11,2150  77215  0 CLEA3  VLOAD 

1056  REF  2 LAST  6R1  11  ,2151  00675  0 G'JFSSW 

1)57  RFF  8 LAST  658  11,  2152  C2755  1 VVFC 

Rl‘  5R  STORE  CALCULATFC  INITIAL  VELOCITY  REOUIREO  IN  VIPR  IME 
3 1059 

1)5?  REF  2 LAST  658  11,  2153  16330  0 STCOL  VI  PRI  ME 

R 10  5 1 

Jl'r?  IF  NUNI  T I S ZFRO.  CONTI  NUE  AT  I M TVELB*  CTHERW  IS  F 

k1?53  SET  UP  INPUTS  FOR  FNCKE  INTEGRATION  (INTEGRVS). 


1055 
1 ? 55 
1,  56 
10  57 
1351 
1 62 
163 
1 065 


RFF  3 LAST  681 

RFF  1 

RFF  20  I AST  672 

REF  6 LAST  681 

REF  5 LAST  672 


11  ,2155  02702  0 

I l,  3155  55C30  0 

H,  -'156  22233  0 

II  ,2157  2 7510  1 

11,  5 160  t- 1 135  1 

11  ,2161  03000  1 

1 1 ,2  162  00263  0 

1 1,  2163  53030  0 


VTAR  GT  AG 
BHIZ  CALL 

INI  TVF  L 7 
INTST  AH 
SLOAD  CLFAR 
RTX2 
MOONFL AG 
BHIZ  SET 


i:  12  OCT  . 21,l97C 


KISSING  .065  PAGE 


683 


USER'  S PAGE  NC.  31 


E7  S3 


( PL15D) 

( PL2C D) 
(PI  153) 
(PL  2D) 
(PL  0 0) 

(PL  2D) 


INITIAL  VELOCITY  REQUIRED  (+7) 


GAP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  7ERL1NA  BY  ZOROASTER 


L P34-P35,  P79-P75 


1965 
1 066 
1 C 6 7 
1D68 
1 069 
10  79 
1371 

1072 

1073 
1979 
1075 
1 376 

1077 

1078 
1379 
1080 
1081 
13  02 

*1083 

R1-«A 


REF 

PEF 

PFF 

PEF 

PFF 

PEF 

PFF 

REF 

PFF 

RFF 

REF 


LAST 
LAST 
I AST 
l AST 
I AST 
LAST 
L AST 

I AST 
LAST 
LAST 
I AST 


682 
68  2 
672 

603 

672 

668 

672 

60? 

67  2 
672 
672 


1 1 ,2166 
11,  2165 
11  ,2166 
1 l,  2167 

I 1,  71  7' 
11 ,21 71 
11,  2172 

I I ,2173 
11 ,2  17a 
11,2175 
11  ,2176 
11,2177 
11,  2200 

I l ,2201 

11,  22C  2 

II  ,2  20  3 
1 1 ,22  06 
1 1 , 2 2r.  5 


22166  0 
COOfc  3 1 

77775  1 IN  ITV  EL5  VLOAD 
02316  0 

02655  0 STORE 

25535  0 STOVl 

C2230  0 

15  593  1 STOOL 

03610  0 

01517  0 STORE 

93015  1 HAD 

C 3952  1 
01673  1 
39091  0 
27106  0 
77775  l 
00025  0 
02703  1 

EC  AC.  JTFP  AT  IONS 
L AMBFR  T ANO  ENCKE 


ST  CALL 
VLOAO 


INITVEL5 
HOQNF  LAG 

PI  MT 
P 1VEC 
RCV 

VI  PR1  PE 
VCV 
INT 1ME 
TF  T 
CL  FAR 
HE  LLT9 
I NTYPF  LG 
T DEC  1 
I NTEGRVS 

VATT1 
VTARGFT 
CONT  INUF  AT 


1 085 
1.  R6 
1 387 

1088 

1089 

1090 

1091 
1392 
1 993 

* 1 0 9 9 
R1  395 


REF  3 


REF  9 
REF  9 

REF  9 
PFF  1 

OFFSET 


I AST  682 

LAST  689 
LAST  683 

LAST  651 


11,2206 
11  ,22 C7 
11,22  10 
11  ,2211 
1 1,2212 

I 1,  2213 

II  ,2219 

11.2215 

11.2216 


63159  1 
03616  0 
00001  0 
55139  l 
C 3 6 1 6 0 
0 270  1 0 

96135  ] 
CGG50  l 
22230  0 


CONIC  TARGET  VECTOR 


LXA,2  I NCR  , 2 
IT  CTR 
10 

SXA, 2 XSU, 2 
I T CT  R 
VTARG  TAG 
SLOAD  BHIZ 
X2 

I NT  TVF L6 


1096 

1097 

I 098 
1099 

I I DO 
1 in 
1 1*  2 

1113 
1 109 
R 1 1 5 


REF  7 
PFF  5 


REF  7 
REF  8 
REF  4 

RFF  1 
COMPUTE 


l A ST  68? 
I AST  65  1 

LAST  682 
LAST  68  9 
LAST  682 


THE  DELTA 


I 1 ,2217 
1 1 ,22  20 
1 1,  222  1 

II  ,2222 
1 1,  2223 
1 1,  2229 
1 l ,2225 

I 1,  27  26 

II  ,7227 
VELOCI  TY 


000  17  1 
77655  l 
C2663  0 
16663  0 
03667  0 
77650  1 
22062  0 


VLOAD 


VAC 

STOOL 

GOTO 


VSU 
RT  APG1 
RA  TT1 


R2VFC 

r2ve: 

COZY  9 


IV  ITVFL  2 


1 106 
11'  7 
113« 
1 1 90 
1 1 19 

1111 


RFF  9 LAST 

REF  8 LAST 

RFF  9 I A ST 

REF  5 LAST 


11,  2230 

689  1 1 ,22  31 

689  11,2232 

11,2233 
689  11  ,2239 

I • 


77775  1 
02663  0 
C 39  72  0 
52375  l 

02330  0 
C2322  0 


IN  ITVEL6  VLOAD 

P 2VEC 

STORE  RTARG1 
IN  ITVFL  7 VLOAO  VSU 

V IPRIME 

VI  NI  T 
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INCREMENT  I Tf  T R 


IF  SP(MPAC)  EO  9,  CONTINUE  AT  I NI  TVt  LC 


CONTINUE  ITERATING  AT  INI  TVF  L2 


GAP:  ASSEMBLE  REVISION  *6  OP  A5C  PROGRAM  ZERLINA  BY  ZOROASTER 

L P34-P35  * P74-P75 


1112 

REF 

R 

I AST 

674 

1 1 ,2236 

26357 

l 

STCVL 

DELV  FET3 

1113 

REF 

3 

1 AST 

684 

1 1,  2237 

02703 

1 

V TARGET 

1114 

REF 

2 

LAST 

656 

11  ,2240 

C 3566 

l 

STORE 

V TPK  IME 

1115 

1 1,2241 

46135 

1 

SLflAD 

BH  1 7 

1116 

REF 

6 

L AST 

68  3 

1 1,  2242 

0 3000 

1 

R TX2 

1117 

RFF 

1 

1 1 ,2243 

22760 

0 

IV  ITVELX 

1117  1 

1 1,  2244 

70575 

1 

VLOAD 

VSR2 

11172 

REF 

3 

LAST 

68  5 

1 1,  2245 

0 3566 

1 

VTPRI  ME 

1118 

REF 

4 

LAST 

685 

l 1 ,2246 

27566 

1 

STCVL 

VT  PR  IME 

1119 

RFF 

5 

L AST 

684 

1 1,  2247 

C2  330 

0 

VI  PR!  RE 

11  2D 

11  ,2250 

77742 

0 

V SR  2 

1121 

REF 

fc 

1 A ST 

685 

1 1 ,2251 

26330 

0 

STOVL 

V I PR IME 

1122 

REF 

9 

L AST 

684 

1 1,  2252 

03472 

0 

R TARGl 

1123 

11  ,2253 

77742 

0 

VSR2 

1124 

REF 

10 

LA  ST 

68  5 

l 1 ,2254 

27472 

0 

STGVL 

RTARG1 

1125 

REE 

9 

LAST 

68  5 

i i , 

02*57 

1 

DELVEE  T3 

1 1 26 

1 1 ,2256 

77742 

0 

VSR2 

1127 

REF 

1 

LAST 

68  5 

1 1, 2257 

02357 

1 

STORE 

0ELVFET3 

112fi 

1 1, 2 260 

70750 

1 

IN  ITVELX  L XA  , 1 

D LOAD  * 

11281 

RFF 

e 

LAST 

683 

11  ,2261 

02776 

0 

RTX  1 

1 1292 

REF 

i 

l 1, 2262 

1CCC3 

0 

MUTABLE  - 

1 12B25 

11  ,2263 

4 1 20  6 

0 

PUSH 

DMP 

112«  a 

REF 

3 

LA  ST 

646 

1 1 ,2264 

02742 

1 

R1  A 

11284 

1 1,2265 

56  34  2 

1 

SR  1 

DD  V 

11285 

REF 

4 

LAST 

646 

11  ,2266 

00041 

1 

R 1 

1 1206 

REF 

2 

LAST 

147 

1 l,  2267 

1 7721 

0 

STCOL 

MU/ A 

11287 

1 1, 2270 

77661 

0 

SR 

1 128  7 1 

1 1 ,2271 

20607 

1 

6 

1 12370 

RFF 

2 

l AST 

147 

l 1,  2272 

C 3 7 1 7 

0 

STORF 

MUASTEEP 

11288 

11  ,2273 

7720  1 

l 

SETPD 

VLOAI) 

1120 

11  ,22  74 

00001 

0 

D D 

1 1 33 

REF 

1 1 

L AST 

685 

11,  2275 

03472 

0 

R TARG 1 

1131 

REF 

6 

LAST 

681 

11  » 2 2 7 r. 

03444 

0 

STORE 

RTARG 

1 132 

1 1,  2277 

? 2 C 1 4 

0 

CLEAR 

GOTO 

1 133 

REF 

3 

l AST 

640 

1 1,  2300 

0 1267 

0 

XOCLVF  LG 

1134 

RFF 

15 

LAST 

681 

11,23  1 

03463 

0 

NORM  f X 

R1135 

R 1 1 36  END  OF  INITVEL  ROUTINE 


685 
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Pi  1 37 

PIRCIM  

3 L13H 
ftl  13? 

MOO  MO.  C,  HY  WJLLMAN,  SUBROLTINF  RENOGUIO,  LOG  P34-P35,  P74-P75 

REV  IS  ION  0 3,  17  FEB  6/ 

R 1 1 40 

R 1141 
R1U2 

3 1143 
R1  144 

IF  THF  ACTIVE  VFHICIE  IS  COIMC  TMF  COMPUTATION,  MIOGIM  COMP 13  TF  5 

THF  POSITIVE  u 1 3DLE  G I M3  A L ANGLE  FF  THE  ACTIVE  VEHICLE  TO  THE  INPUT 

CELT  A VFICCITY  VFCTOP  (00  IN  PUSH  LIST),  OTHERWISE 

MIOGIV  CONVERTS  THE  INPUT  OELTA  VELOCITY  VECTOR  FROM  INE3TIAL  COORDIN- 
ATES TO  LOCAL  VFPTICAL  COORDINATES  OF  THE  ACTIVE  VEHICLE. 

R 1 1 45 

..  INPUTS  .. 

3 1146 

NAME  MEANING  U N IT S /S C AL  ING/MU DE 

R 1 1 4 7 

R 1 1 4<3 

R 11  50 
R1 1 5 1 

AVFLAF,  INT  FLAG  - 0 IS  CSM  ACTIVE,  1 IS  LEM  ACTIVE  BIT 

RlMIT  ACTIVE  VEHICLE  RADIUS  VECTOR  M ET  ERS  /C  SEC  (+7)  VT 

V IN  I T ACTIVE  VEHICLE  VELCCITY  VECTOR  wETFRS/CSFC  (+7)  VT 

0 (FI  > ACTIVE  VEHICLE  TELTA  VELOCITY  VECTOR  METERS/CSEC  ( ♦ 71  VT 

3 1152 

..  OUTPUTS  .. 

PI  153 

NAME  MEANING  UNI  T S /SC  AL  I NG/MOCE 

R 1 1 54 

R 1 1 55 
R1 1 56 

+ MG  A * MIDDLE  G I MBA  L ANGLE  REVOLUTIONS  ( +C  ) DP 

DHVLVC  OELTA  VELOCITY  VFC7CR  IN  LV  CPCRD.  METERS/CSEC  ( *7  ) VT 

MGLVFLAG  INT  FLAG  - 0 IS  +MCA  COMPUTED,  1 IS  DEL  VI  VC  COMP.  - BIT 

3 1157 

..  CALLING  SEQUENCE  .. 

Rl  1 5R 

R 1 1 50 

K 1160 

L CALI 

L ♦ 1 MICGIM 

L + 2 (RETURN  - ALWAYS) 

R 1 1 6 1 

..  NO  SUBROUTINES  CALLED  .. 

3 1162 

..  DEBRIS  - EPASEAHLE  TFMPCPAHY  USAGE 

R 1163 

A, Q,L,  PUSH  L I ST,  MPAC . 

R 1 164 

..  AL  A F MS  - NCNE  .. 

MIME 


SAP:  ASSEMBLE  REVISION  56  CF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L P34-P35,  P74-P75 

Pi  1 65  MICCLF  CIVPAL  ANGLE  COMPUTATION. 


1168 

1169 
1 160 
1 1 76 
11765 
1177 
1 1 78 
1179 
1100 
1181 
1 132 
1183 

1 1 8 A 
1 1 85 
1186 

1191 

1192 

I i 3 

1 1 9 A 
1195 
1 1 Q6 
11Q7 
1198 

I I 99 
1200 
1201 
123  2 
1203 

1 20  A 

1205 

1206 
R1237 


REF  17  LAST  60  A 


REF 

REF 

REF 


7 LAST  68  A 


6 LAST  68  A 


18  LAST  673 


, 37  27 
.3730 
• t 37  31 
, 3 7 32 
,3733 
i,  37 3A 
,3  7 35 
,3736 
, 3737 
.3740 
, 37 A 1 

, 37*2 

, 3 7A3 
, 3 7 AA 
, 3 7A  5 
, 3 7A6 
, 3 7 A 7 
,3750 
, 37  51 
, 3752 
,3753 
, 37  5 A 
,3755 
,3756 
, 3757 
,3760 
3UTINF 


20009  0 

OOOQO  1 

53575  0 
77656  1 
72A A 1 0 
017AO  0 
51136  1 
15736  1 
A3  2 1 5 0 
1572a  1 
1572A  1 
022A A 1 
A3A1A  1 
02675  1 
53575  0 
02  3 1 A 0 
77676  0 
00023  0 
53A35  0 
02322  0 

000  15  0 
53A35  0 
CCC23  0 
2AC07  0 

00001  0 
76521  0 
00007  0 
0 3 A 3 A 1 
AlAlA  1 
02A75  0 


COUNT  * tt/MIPG 

HALFREV  2 CEC  1 B-l 

GET+MGA  VLOAD  UNIT 
UNIT 

no  t 


SL  1 

3EFSMMAT  +6 
N BPL 
SE  TMGA 
OAO 

HALFREV 
HAL  FR  EV 
+ MOA 
R VQ 
M GL  V FLAG 

GET.LVC  VLOAD  UNIT 
3 I NI  T 


ARC  SI  N 

OAO 


SET  MG A STORE 

CLR 


V COMP 

STORE 

VXV 


STOVL 

MXV 


1 80 
UN  IT 
VINIT 
120 
JN  IT 
1BD 
60 
DD 


UELVLVC 
R VQ 

MGLVFL  AG 
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I PL  00)  V ( + 7)  TO  MPAC,  UNITIZE  UV  (+1) 

OCT  UV  WITH  YISTABLE  MFMBER)  ANO  RESCALE 
FROM  + 2 TO  + 1 FOR  A SIN  ROUTINE 


CONVERT  -MGA  TO  + MGA  BY 
ADDING  ONE  REVOLUT  ION 


CLFAR  MGLVFLAG  TO  INDICATE  +MGA  CALC 
ANO  EXIT 

(PL  6 D ) R (+29)  IN  MPAC,  UNITIZE  UR 
UC-R  ) 

U (-R ) TO  1 8 D 

UI-RUV  EQ  V*U(R)  , U(V*R) 

U(  V*  R)  TO  12D 

U(V*R)*U(-R)  , U((  V*P)*(-R)  ) 

TRANSFORMATION  MATRIX  IS  IN  6D  ( + 1) 
DELTA  V (+7)  IN  CD 

CONVERT  FROM  INEP  CCJUR  TO  LV  COOR  (+8) 
AND  SCA  LE  +7  IN  MPAC 
STORE  IN  OELVLVf  (+7) 

SFT  MGLVFL  AG  TO  INCICATE  I VC  CALC 
AND  EXIT 


» 


» 

ft 

ft 

ft 


GAP:  ASSEMBLE  REVISION  56  OF  AGS  PROGRAM  ZERUNA  By  ZOP.GASTER 

L P34-P35  * P74-P75 


12  H34 
12i  R6 
12(.8fl 


PEF 

REF 


10  , 20  00 
1 0 ,2CC0 
10,  20C0 


RANK  10 
SETLOC  SLCTMJ 
BANK 

COINT*  Si/MIOG 


1200 

1210 

1211 

1212 

1213  OFF 
1 21  A RFF 


1217 

121® 

1210  PEF 
12?r'  RTF 

1221  PFF 

1222  REF 

1223 

122',  R FF 

1225  REF 

1226 

1227  REF 
122R 

1229  PEF 

1230  PEF 

1234 

1235  RFF 


7 


6 


I AST 


I AST 
I A ST 
l AST 
LAST 

I AST 


LAST 

l AST 

I AST 

LAST 


1C, 2000 
1C, 20C1 
1<  ,2002 
10,2003 

67  2 1r,?0C4 

10,2005 
1C, 20C6 
10, 20C  7 
10,2010 
10, 2011 
. 

6P5  10,2013 

633  10,20  14 

688  10  ,2015 

1C, 2016 

68  8 10 , 2(j  1 7 

10,2020 
10,  2 02  1 
646  10  ,2022 

10,2  023 
68  5 10,20  24 

676  10  ,2025 

1C, 2026 
66  1 10 , 2n  27 


77160  0 
CCCC2  0 
000 CO  1 
77614  1 

04343  1 
20011  0 
77160  0 
00012  1 
C0002  0 
66143  1 
IOC  11 

02776  0 
2 22  10  0 
1000 3 0 
54214  1 
04347  i 
20022  0 
2C6C7  1 
02312  0 
48134  0 

02777  1 
01271  1 
77660  1 
73623  1 


SELFCTMJ  AXC.l  AXT  , 2 
20 
GO 

BC1FF 

S MOONF  LG 
S FTMUFR 
AXC  ,1  AX  T ,2 

100 

2D 

SETMUFR  OLCAD*  SXA,1 

MUTABLE  +< 
PTX  1 

STOOL*  R TSPl  /MU 
MJTABL6  -i 
BCFF  SR 

S MOONF  LG 
RT  RNMU 
60 

RT  RNMU  STORE  RTMU 
S X A,2  CLEAR 
P TX2 

FINAL  FLG 

GOTO 

VN  1645 


> 

\ 
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639 


P36-P35,  P 7 A-  P 7 5 USER'S  PAGE  NO.  37  67  S3 

Pi  2 36  PERIAPT  

3 1237  MOD  NO  -1  LOG  SECTION  - F36-P35,  P76-P75 

R 1 2 38  MOD  BY  WHITE. P DATE  1BJAN6E 


R123<>  FUNCTIONAL  INSCRIPTION 


5JIJ? 

3 1262 


THIS  SUBROUTINE  COMPUTE  S THE  TWO  BnOY  APOCENTER  AND  PERICENTER 
ALTITUDES  GIVEN  THE  POSITION  AND  VELOCITY  VECTORS  FOP  A POINT  ON 
THF  TRAJFCTCRY  AND  THE  FFIM/RY  80CY . 


SETRAO  IS  CALLFD  TO  DETERMINE  THF  RADIUS  OF  THF  PRIMARY  BODY. 


R1266  CALL  ING  SEQUENCE 


3 I 267 
R 1 2**  fi 
R 1 269 


L TALL 

L ♦ 1 PERIAPO 

L-*2  (RETJRN  - ALWAYS) 


3 12*50  INPUT 


R1251 
R 1252 
R 1253 

R1256 
3 1255 
R 1 256 


(I)  RV  EC 
12)  VVEC 

I 3)  XI 


POSITION  VECTOR  IN  METFRS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 
VELOCITY  VECTOR  IN  ME  TE  PS/C  ENT  I S ECOND 
SCALE  FACTOR  - EARTH  +7,  MOON  +5 
PRIMARY  BCCY  INDICATOR 
EARTH  - 2,  MOON  - 10 


R 1 2 57  CUT  PUT 


i 1 25ft 
R 1 2 c 1 
R 1260 
R 126  1 
R12&2 
3 1263 
R 1 266 
R 1 265 
3 1266 
PI  267 
R 1 26ft 
R 1 269 
R 1 2 7 T 


( 1)  2D 
(?)  6 D 
(3)60 

16)  RD 

( 5)  ECC 

(6)  XXX  AL  T 

(7)  PIJSHLOC 


APOCENTER  RACILS  IN  METERS 
SC  ALT  FACTOR  - FAR  TH  +25,  MOON  +27 
APOCENT ER  ALTITUDE  IN  METERS 
SCALE  FAC  TCR  - EARTH  +25,  MCON  P27 
PERICENTER  RADIUS  IN  MF  TE R S 
SCALF  FACT  CP  - EARTH  +29,  MOON  *27 
PERICENTFP  ALTITUDE  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  *27 
ECCENTRICITY  CF  CONIC  TRAJECTORY 
SC Al  E FAC  TOR  - + 3 

RACIUS  OF  TFF  PRIMARY  BODY  IN  METERS 
SCALF  FACTOR  - EARTH  +29,  MOON  +27 
EQUALS  100 


3 1271  SUBROLTINFS  USED 
R 1 27?  SETRAO 


GAP:  ASSEMBLE  REVISION  36  OF  ASC  PROGRAM  ZE  RLI  NA  BV  ZOROASTER 

L P34-P15,  P74-P75 

3 1273  APSIDES 
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.064  RAot 
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690 


1274  R£F 

1275 


SETLOC  APCPERI 
BANK 


REF 


CnifNT  * $*/PFRAP 

23,  2335  CC3C2  0 RPAO  20EC  6373338  B-29  STANOARC  RADIOS  OF  PAD  37-B. 

23.2336  17755  0 

= 20  909  901.57  FT 


1 279 
1280 
1281 
1282 
1293 
1299 
1285 


1286 
1 2?  7 
1288 
1 289 
1290 


1291 

1292 

1293 


1296 
1295 
129  6 

1297 

1298 

1299 

1300 


REF  8 
REF  9 
REF  10 

PEF  7 

REF  16 
REF  1 
RFF  1 
REF  1 

REF  2 

REF  3 
REF  17 


L AST 
I-  AST 
LAST 
I AST 
LAST 


L AST 

L AST 
LAST 


6B8 

683 

688 

658 

685 


690 

690 

690 


27,  23’7 

23  ,7363 


2 3,  •■’36  2 

23  ,?363 
23,  23*6 
23,  2 145 
23,2346 
23,  2347 
23  ,2350 
2 3,2  35  1 
23,  2 352 


23  ,2353 

. 

13,  2 155 


23,2356 
23,  2 357 
2 3 ,2360 
73,2361 

23,  2 362 
23  ,2363 
23,  2364 


53754  1 
02777  1 
57176  0 
26744  1 
53750  0 
C2776  C 
571  76  0 
02655  0 
45020  1 
03463  0 
46  36  5 0 
37671  0 
25704  0 
41401  1 
00003  1 
65225  1 
C367 1 1 
00001  0 
45206  1 
0367  1 1 
52006  0 
C3463  0 


PF  PI  APOl  l XA  , 2 

STOVL 
LX  A,  1 

STORE 

PERIAPO  STQ 

STCALL 

SET  PD 
OSU 

PUSH 

PUSH 


VSR* 
8TX2 
0 ,2 
VV EC 
VSR* 

PTX  1 
0,2 
RV  EC 
CALL 
NORMEX 
SETPAD 
XX  XA  L T 
APSIDES 
PUSH 
2D 

POOL 
XXXAL  T 
OD 
DSU 

XXXAL  T 

GOTO 

NORMEX 


2D  = APOCENT FR  RADIUS  029  3R  P 27 
4D  = APOGEE  ALTITUDE  B28  OR  B27 

60  = PFR  ICENTFR  RADIUS  B29  OR  B27 

8D  = PERIGEE  ALTITUDE  B29  OP  B27 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P34-P35,  F74-P75 


P 


13'  1 
1 30? 
1303 
1 3% 
1 3 05 


1306 
1 337 

1308 

1309 

1310 

1311 

1312 

1313 


SETRAD 
REF  1 

REF  1C  LAST  68** 

REF  11  LAST  691 
RFF  1 

REF  4 LAST  207 


23,  2365 
23  ,2366 
2 2,  2 36  7 
2 3,  2 370 
23  ,2371 
23,  2 372 
23  ,2373 
23  ,2  37*, 
2 3,  2 375 
23  ,2  376 
23,  2377 
23,  2400 


41545  0 SFTRAD  OLOAD 

06336  1 

63  130  0 SXA  ,1 

00047  1 
00002  0 

46 135  1 SLOAD 

00050  1 
46400  1 

5 1 5 7 5 1 VLOAO 

02021  0 

77725  1 POOL 

4 3545  1 SETRADX  DLOAD 


PUSH 
RP  AD 

I NCR, 2 
X 2 
20 

BHI  Z 
X 2 

SETRAOX 
AB  VAL 
RLS 

R VO 
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»AP:  ASSEMP.Lt  REVISION  So  CF  AGC  PRCCPAM  2ERL  INA  0Y  ZOROASTER 


PI  314 

1315 

1316 

1317 
13!« 
1 3 1 9 

1320 

1321 

1322 

1323 

132A 

1325 

1326 

1327 
1329 
1 329 
133C 
1331 
1 332 
1333 
13  34 
1 335 

1336 

1337 
1 33R 
1339 

1343 
1361 
1342 
1 363 

1344 


F34-P35, 

PRECSET 


REF 

RFF 

RET 

PFF 

REF 

REF 

REF 


REF 

RFF 

REF 

REF 

REF 

RFF 


4 LAST  614 


LAST 
LAST 
L AST 


19  LAST  652 


LAST 
I A ST 
L AST 
I A ST 
LAST 
L AST 


672 
6?  7 
66  5 


692 
692 
665 
66  A 
692 
663 


23  ,2401 
23,  240  2 
23  ,2403 
23,  2 4C4 
2 3,  240  5 
23  ,2406 
!3,  407 
23  ,2410 
23,241 1 
21,  2412 
23  ,2413 
23,  2414 
21,  2415 
23,2416 
23,  2417 
23  ,2420 
23,2421 
23,  2422 
. • 1 
. • 

2 3,  2 425 
2 3 ,2426 
23,  2427 
?3  ,2430 
23,2431 
2 3,  24  3 2 
>3,2433 
23,  2434 
2 .3,  24  35 
23,2436 


77620  0 
0 346  3 C 
37574  0 
27C56  1 
77624  1 
46417  1 
77745  1 
03574  1 
34  04  1 0 
2 7042  i 
77624  1 
46427  1 
77650  1 
03463  0 
43176  0 

Ot  1 o 

0135?  1 

46433  1 
27536  1 
CCCC7  C 

0 3 544  1 

77616  0 

43176  0 

00001  0 
0135?  1 
46423  C 
2755?  0 
CCCC7  0 
03560  1 
7761b  0 


PRECSFT  STQ 

STfALL 

CALL 

0 LOAD 

STCALL 

CALL 

GOTO 

LFVSTORF  VLGAD 

ACTIVE  STOVL 


NORMF  X 
T DEC  2 
LE  PPRFC 


TDEC2 
T0EC1 
: SMPRFC 


PASSIVE  STPVL 


P ATT 
AVFL  AC- 
PA  SSI  VE 
R ACT  3 
VATT 
VAC  T 3 


STORE 
RVG 

C SMSTORF  VL  CAD  R OFF 
RATT 


AVFL AG 
AC  TI  VE 
RP  ASS  3 
VATT 
VPASS3 


I 


I 
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693 


1 34ft 
1347 
1 34R 
1349 
1 350 
1351 
1 3ft2 
1353 


VEC  SHIF  T 
REF  9 

REF  11 


LAST  69C 

I AST  690 


2 3,  2437 
2 3,  2440 
23,2441 
23,  2442 
2 3,2443 

23 .2444 

23. 2445 
23  ,2446 


53754  1 
C2777  1 
57176  0 
6335C  1 
0 2776  (< 
63257  1 
57176  0 
77616  0 


VECSHIFT  LXA  ,2  VS  R4 
RTX2 
0,2 

LXA  , 1 PD VL 
RTX1 

V SR*  POVL 

0,2 

RVQ 


GAP:  ASSEMBLE  REVISION  ^6  OF  A3C  PBOGR  A«  7ERLINA  HY  7 QRQASTER 
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1354 
I 355 

1356 

1357 
1 35R 


SH I F TP.  1 

REF  1C  LAST  693 


23,  7447 
23  ,2 453 
71, 7451 
23,  245 2 


53754  1 SHIFTRl  LXA,2  SI* 
02777  1 3TX2 

57576  1 0,2 

77616  0 


R VO 


SSFMBLE  RE  VI  SI  CK  *>6  OF  AGC  PROGRAM  ZERLINA  PY  ZOROASTER 


GAt>  : 


P 1 359 
R 1360 
Rl3fa1 
3 1362 
R 1 363 


R 1 3 6 A 
3 1365 


R1  366 
R 1 367 


R 1 168 

R1369 
3 1370 
R l 3 7 1 
R 1 372 
3 1 373 
Kl  379 


R 1375 
R 1 376 


Rli77 
3 1378 
R]  379 
■3  l 380 


3 1 183 

R 1 389 
R 1385 
R 1 386 
« 1387 


1 389 
1389 
13  90 


P39-P35,  P79-P75 
PROGRAM  OESCPIPTICN 

SUBROUTINE  NAME  R36  111 T-GF - PLANE  RENDEZVOUS  ROUTINE 

MOD  NO.  DATE  22  DECEMBER  67 

MOD  RY  N.M.  NEVILLE  ICG  SECTION  EX  T FN  CEO  V ER  RS 

FUNC  T 10NAI  DESCRIPTION 


TC  DISPLAY  AT  ASTRCNAiJT  REQUEST  L GC  CALCULATED  RENDEZVOUS 
OUT-OF-PLANE  PARAMETERS  (Y  , YDCT  , PSD.  (REQUESTED  RY  DSKY) 

CALI  ING  SrOIJFNCE 

A S TRON'A  L T RFCUEST  THROUGH  TS  KY  V 9Q  E 

SUBROUTINES  CAI  LED 

FXCSPRET 
CO  MAR  KF 
CSMPREC. 

LEMPREC 
SC NAG RE  E 
LCADT  IME 


NCRMAL  EXI T MODES 

ASTRONAUT  REQUEST  THROUGH  DSKY  TO  TERMINATE  PROGRAM  V 39  E 
ALARM  CF  AeOPT  EX  IT  MODES 
NnNE 
CUT  PUT 

DECIMAL  DISPLAY  OF  TIRE  , Y t YCOT  AND  PS  I 

DISPIAYED  VALUES  Y , YDOT  , AND  PSI  , ARE  STORED  IN  ERASABLE 
REGISTERS  RANGE  , RRATE  ANC  t-TMTi  RESPECTIVELY. 


FRA  SAP  LF  INITIALIZATION  RECUIFEC 
CSM  AND  LEM  STATE  VECTORS 
OEBRI S 


CENTRAL  S A f 0 »L 

OTHER  THOSE  USED  BY  THE  ABOVE  LISTED  SUBROUTINES 
20,2115 

REF  1 09,  2CC0 

09,2650 


RANK  20 
SETLCC  R36LM 
BANK 
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1391  RFF  18  I AST  670  E 7,  1991 

1392  PEF  ] 


EBANK=  TIG 
COUNT*  *4/R36 


1393 
1 3 <?'♦ 

1395 

1396 

1397 

1398 

1399 
1900 

190  1 
19  02 
1903 
1939 
1 905 
190Q 
1913 

191  1 

1912 

1913 
1919 

1916 
1 9 1 6 

1917 

1918 

1919 

1920 

1921 

1922 

1923 
1929 
1929 
1929 
193<- 

1931 

1932 

1933 
1939 
1935 
19  36 
1 937 

1938 

1939 

1993 
1991 
199? 
199  3 
1 99305 
1999 


PEF  In  LAST 
RTF  6 IAST 
RFF  1 
PFF  171  LAST 
REF  9 LAST 
PEF  35  1 AST 


REF  pi  LAST 

PEF  7 IAST 
PFF  1 
PFF  3f  (AST 
RFF  l 

RFF  13  I A ST 
PEF  17  LAST 
RFF  2 IAST 


REF  1 
PEF  9 LAST 
RFF  31  I A ST 
PEF  1 

REF  19  LAST 
PFF  18  LAST 


RFF  3 LAST 

REF  2 I AST 

RFF  0 LAST 


RFF  ? LAST 
RFF  3 LAST 


*9  A 
310 

678 
283 
6<  7 


676 

696 

6°? 


69? 

692 

120 


652 

696 


65  6 
696 


696 


69  6 
322 


696 

322 


39, 265 1 
:9,?68? 
, 

09.2659 
09,2655 
C9, ?6  56 
09  ,2657 

09.2660 
09,  266  1 
09  ,2662 
09, 2 663 

09.2669 
i . 

09, 2666 

09  ,2667 

09.2670 
39,  267  1 
09  ,2672 
C9,  267  3 
09,  2679 
09,2675 
C 9,  2676 
09  ,2677 

39 ,?  too 
09,  270  1 
09  ,270  2 
C 9 , 27C3 
09, 2709 
09  ,2705 
09, 27 06 
, 

09,2  710 

09,  27  1 1 
39  ,2712 
C9» 2713 
09,  27  19 
09,2  71  5 
09, 2716 
09  ,2717 
09  ,2  720 
39, 2721 
09  ,>722 
0 9,  2723 
09,  2729 
09  ,2725 
09, 2726 


f C0C6  1 
: 1992  1 
53*  C51  r 
• 2763  1 

0 9616  1 

20339  1 

1 =SC3  0 
1 2661  0 
1 2653  1 
0 60 c 1 C 

53195  1 
C1C51  1 
10760  1 
39091  « 
27092  1 
63375  0 
00007  0 
OOCC  1 C 
62200  l 
63256  C 
c 34  3 6 r 
77626  0 
61571  0 

000  15  0 
39091  0 
27C56  1 
63375  13 
CCCC7  P 
00CC1  0 
91906  0 
63295  1 
02200  1 
7799  1 0 
02206  1 
26172  1 
CCCP1  0 
72991  C 
02206  1 
26179  1 
00007  0 
91956  0 
97235  C 

00001  0 
CCC23  0 
5355?  0 
77656  1 
29001  0 


R36 


P.3  6 | NT 


EXTEND 
DCA  TIG 

OXCH  DSPTEMX 
CAF  VO'.  Nl6N 

TC  3ANKCALL 

CADR  GQMARKF 
TCF  FNDFXT 

TC  F +2 

TCF  -5 

TC  INTPRFT 

OLOAO  87  E 

DSPTEVX 
3ETN0W 
STCAl  L T DEC1 

OTHP  RFC 
VLOAD  PDVL 
V ATT 
PA  TT 

STORE  R P ASS  36 
UNIT  PD V l 

VXV  UNIT 

STAOP 

STCOL  UNP36 
TAT 

STCAL L TDEC1 

THI SPREC 
VLOAD  POVL 
VATT 
RATT 
PUSH  PUSH 

BVSU  PDVL 

RPASS36 
DOT  SI  1 

UNP  36 

STOVL  Yl  EM 

OOD 

DOT  SL1 

JNP36 

STCVL  YDOTLEN 

06D 

UNIT  PUSH 

VXV  VXV 

OOP 
180 

VSL  2 UNIT 

UNIT 

STOVL  OOD 


SFT  TIME-CF-FVEM  TC  TIG  TCP  NOMINAL 
DI  SPL  AY 


TFRMINATE 

PROCEEO 

RFCYCIE  FOR  ASTRONAUT  I*  P UT  TIME 


ASTOR-LOADEO  ZFRO,  GET  PRES  TIME 


VELOCITY  VECTOR  V OOD 

A 

POSITION  VECTOR  R IN  06D  AND  12D 

LINE  OF  SIGHT  VECTOR  P - R 12  D 

P A 


A 


A 

J = UNIT  ( R 1 183 

RA  A 

(U  XV  IXIJ  =U 
RA  A PA  A 

UNIT  HORIZONTAL  IN  FORWARO  DIP.  OOD 


GAP:  ASSEMBLE  REVISION  8b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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1 446 

1447 

1448 

1449 

1 44<>G5 
14  50 
1451 


1452 

1453  REF 

1454 

1455 
14  56 

1457  REF 

1458  REF 

1459 

144'  REF 
1461  RFF 

1466 

1467  RFF 

1468  REF 

1469  RFF 

1470  REF 

1471  ref 

1472  RFF 
147  3 

1474  REF 

1475  RFF 
1 4 8? 

1483 


2 LAST  322 


1 

2 LAST  37 

3 LAST  697 
ft  l AST  697 


172  LAST  696 
10  LAST  696 

36  I AST  696 

37  LAST  697 

2 l A ST  289 

15  LAST  661 


74241 

04.2731  00015 

04.2732  77752 

04.2733  53445 

, - 77656 

) 4 , ? 7 ? 5 5C2C6 

04.2736  OOOC1 

04.2737  65552 

04.2740  26176 

04.2741  50235 

. 

04,  2743  71244 

04  ,2744  10751 

04,  2745  24C20 

' 4,  2746  77625 

04,2747  02176 

24,2750  C2 1 7ft 
04  ,2751  7777ft 

04,2752  3 2764 

-4,  2753  C 4616 
» ,2754 

04,  2755  1 55C3 

04,  2756  1 55C3 

04,2757  1 2650 

04,2760  52C34 

04  ,2761  21555 

04,276?  1066  5 

< 1 4 2C 

04  ,2764  01532 


0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 


0 

0 


1 

0 

c 


180 

OOT  VXSC 
120 

VSL2 

8 VSU  UNIT 

UN  IT 

PUSH  OOT 

000 

SL1  ARCCUS 

STOVI  PH  I LEM 

VXV  DOT 

000 

BP  L 0 LOAD 

R 36TAG2 
LODPM.AX 

OSU 

PHI!  EM 
STC1RF  PHILFM 

R36TAG2  EXIT 

CAF  V06N9GN 

TC.  BANKCALL 

CADR  GOMARKF 

TCF  ENDEXT 

TCF  FNDEXT 

TCF  R 36 

GETNOW  RTB  GOTC 

LOAOTIME 
P36  I NT 

V 0 6\l  1 6N  VN  0061  6 

VO6N90N  VN  00690 


9:  12  OCT  . 21,  1970 


K ISSING  .064  PAGF  697 


USER*  S PAGE  NC.  45 


E7  S3 


U 
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LOS  PROJECTED  INTO  HORIZONTAL  12.3 
PLANE 


A 


DISPL  AY  Y , YOOT  , ANO  P SI 


T F RM I N AT E 

PROCEEO  , E NO  OF  PROGRAM 
RECYCLE,  TIG  HR  ASTRO-OPTION 
ASTRQ-SEI.  ECTEO  PPFSFNT  TIME 


GAP  : ASSEMBLE  REVISION  ‘*6  CF  Af-C  PPfGRAM  ZERLINA  BY  2GKQAST  EK 


poooi 
000  2 

0003 

0004 

000  s 

0006 

0007 

0009 

0009 

0009 

01  1 
0011 
0012 
Of  13 
00  1 A 
0015 


266 
60  A 
675 


RFF 

RFF 

REF 

REF 


REF  If  LAST  57  3 


. . ’ ■ 

AO.  2<OGO 

- , ' 


AC, 3 735 
E 7 , 1 A70 
A?  ,3736 
AO, 3737 
AC,  3 7 AO 
. .374] 
AC, 3742 
AO, 3 7 A3 
• .3  74A 
AC,  3745 


03262  1 
7 60  67  1 
C 5222  1 
00144  0 
2 1CA3  1 
7 4740  1 
0 0006  1 
1 37AO  0 


8ANK  AO 
SETLU;  R31LQC 
BANK 

COUNT*  «t/R3l 

CAF  PRIU3 

TC  FINCVAC 

E BA NK  = SUBE  XI  T 
2CA0R  VB3CALL 


OSPOELAY  TC 


FI  XOE  LA  Y 
100 

EXTV9ACT 
31  T12 

OSPOELAY 


0016 
CC  17 
00 18 

0019 
0714 

0020 


REF  5 LAST  496 
REF  11  LAST  515 
REF  3 LAST  66 1 
REF  1 
PEF  l 

REF  29  LAST  60A 


AC, 3746  3 50  17  1 

AC, 3747  C 5C72  1 

F7,  16  1 1 

♦0,37!  1754  1 

AO, 77c 1 601C7  1 

40,  T752  1 5272  1 


CAF  PR  105 

TC  NOVAC 

CBANK=  TSTRT 
2 CAOri  CISPN5X 


TC  F TASKOVFR 


00  20  5 
3V1 
00?? 

0023 

0024 

0025 
3026 


REF 

REF 

REF 

RFF 

RFF 

RFF 


1 

1 73  I AST  6«7 
11  ! A ST  697 

6 LAST  49  7 

7 LAST  6Qfl 
2 LAST  698 


40,3  75  3 04066  0 

AC, 3754  2 3753  0 

AC  , ' 755  0 46  16  1 

4 f , 3 7 5 6 2C3-»4  1 
40,3757  0 5574  1 

40  ,3760  0 5574  1 

40,  376  1 1 3754  C 


V16N54  V.N  1654 

01 SPN5X  CAF  Vi 6N54 

TC  RANKCALL 

CAOR  GDMARKF 

TC  8 50FF 

TC  B50FF 

TCF  01SPN5X 


00262 

00264  RFF 
00266 


<7,3262 

3 7 ,?■->*  1 , ) 

37,  -3  262 


BANK  37 
SETLOC  R31 
BANK 


0027  RFF 

0028  REF 

0029 

0030  REF 


6 I A ST  289 

3 I A ST  271 


37  ,3262  4 010  3 1 

77,3263  7 4747  0 

37,  3 264  0 0006  1 

37  ,3265  1 3540  1 


V83CALL 


CS  FLAGWR07 

MASK  AVEGFPIT 
E XTEND 

BZF  BUNG? 


00  33 
0 0 34 


RFF 

REF 

REF 


8 I AST  548 
6 LAST  548 


37. 3266  4 0104  0 

37.3267  7 4744  0 

37,3270  C 0006  1 
27,  3271  1 3544  0 


CS  F LAG  W ROB 

MASK  SURFFBIT 
EXT  ENO 

BZF  ONEBASE 


0035  REF  82  I AST  696 
00  36 


0 60  5 1 
77634 


0 

0 


TC  INTPRET 

RTB 
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USFR'S  PAGE  NC.  1 EG  S3 


Tf  ST  AVERAGE  G FI  AG 

ON  - TEST  M UNFLAG 

ON  SURFACE  - BYPASS  L EMPREC 


EXTRAPOLATE  BOTH  STATE  VECTORS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L R31 


0037 

0038 

0039 
OOAF 
33AI 
Ol  A2 
00  A3 
33  AA 

00  A 5 
0OA6 
OOA  7 
00A8 

1 A 9 
0050 
00  51 
0052 
00.53 
D3AA 


REF 

REF 

REF 

RFF 

RFF 

REF 

RFF 

RFF 

REF 

RFF 


REF 

PEF 

RFF 

PFF 


LAST 
L AST 
LA  ST 
LAST 


LAST 
I AST 


697 
69  6 
6°  2 

68  A 

68  A 

696 

699 

69? 

699 

699 


3 7,  3275 
3 7,  3 276 
37,3277 
37,  3300 
37  ,330  1 
37,3302 
37,  3 303 
37  ,330A 
37,  3JC5 
77,  3 706 
37,3307 
37,  3310 
37  ,331  1 
37,33  12 
37,  73  13 
3 7 ,331  A 
37,  3315 


27056  1 
77775  1 
CCC17  1 
26161  0 

00025  0 
1 6 ir  A 0 
00015  0 
C2113  0 
7A0A 1 0 
270A?  1 

77775  1 
000  17  1 

26  131  0 
00025  0 
02172  1 

77776  1 


STCALL 

VLGAO 

STOVL 

STOOL 

DOCMOASF  STORE 
STCALL 

VLGAO 

STGVL 

STORE 
FXI  T 


LOAOT  IME 

TDEC1 

LEMPREC 

PATTI 
BA  SETHP 
V ATT1 
BA  SE  TH  V 
TAT 

R ASET  I ME 
TOEC  l 
CSMPRFC 

PATTI 
B AS  EOT  P 

VA  TT1 
BAS  EOT V 


0055  REF 

0056  RFF 
DO  57 

0058  REF 


37.3316 

37.331 7 
37,  3 320 
37  ,332  1 


A 0 10  3 1 REVR3 
7 A 7A7  0 
C OOC 6 1 
1 3A67  0 


CS  FLAGWR07 

MASK  AVEC-FBIT 
F XTFNO 

BZF  GETRVN 


00r>9  PEF 

0060  REF 

0061 

D 362  REF 


9 I A ST  698 
7 LAST  69  8 


77,  7323 
37 ,332A 
37,  3325 


A 01CA  0 
7 A 7 A A 0 
C 0006  1 

1 3531  1 


CS  FLAGWR08 

MASK  SURFFBI  T 

EXTEND 

RZF  R3 1 SURF 


0063 
006A 
3065 
0066 
00  67 
OF  6 8 
0069 
DD7D 

0071 

0072 
3 373 
00  7A 

0075 

0076 
Of  77 
3D  78 

0079 

0080 
338  1 
OC  82 
0083 


RFF 

REF 

REF 

REF 


REF 

RFF 

RFF 

PFF 

RFF 

RFF 


REF 


RFF 

PFF 

RFF 

RFF 


83  LAST  698 

17  LAST  699 
3A  LAST  699 
21  LAST  683 

2 LAST  699 

7 LAST  68 A 

8 LAST  68  A 
2 LAST  699 

7 l AST  68 A 
2 LAST  699 

2 LAST  3?  2 

P LAST  6°9 

10  LAST  fcPA 

11  LAST  68  A 
A l AST  6»A 


37, 7?26 
37,3327 
27,  3333 
37  ,7331 
37,3322 
77,  5 3 3 3 
37  ,333A 
■>7,  3 335 
■ 

37,3337 
77,  33AO 
37  ,3  3 A 1 
37,3342 
37,  3 3*3 
37  , 3 3 A A 
37,  7 3A 5 
37,  7 2a6 
37 ,33A  7 
77,  335.) 
37  ,3351 
37,3352 


0 6051  0 
7763A  0 
21555  1 
3ACA1  0 
27A10  1 
0175  0 
02161  0 
CP263  0 
25535  0 
02104  0 
1 c 5 A 3 1 
02113  0 
A301A  0 
0A3AA  0 
773A6  0 
CLC63  1 
776 1A  1 
01A73  0 
35517  1 
27  106  0 
77775  1 


TC  INTPRFT 

RT  8 


LOAGTI MF 
STCALL  TDEC1 

INTSTALL 
VI  GAD  CLEAR 

BAS  FT  HP 
MGCMFLAG 
STDVL  RCV 

BASETFV 
STOOL  VCV 

BASETIME 
BOF  SET 

MCIONTHI  S 
*2 

MOCNF  LAG 

SET 

INTYPFL  G 
STCALL  TFT 

INTFGRVS 

CTHCGNIC  VLOAD 
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USER'S  PAGE  NO.  2 EO  S3 

PRECISION  BASE  VECTOR  FOR  LM 

PRECIS  I ON  BASE  VECTOR  FOR  CM 


IF  AVESFLAG  SET,  USF  RN ,VN 

IF  ON  SUR  FACE,  US  E LEMAREC 

OO  CONIC  FXTRAPOLATI  CN  FCP  ROTH  VEHICLES 


GET  APPROPRIATE  MOONFLAG  SETTING 


CONIC  FXTRAP. 


INTEGRATION AT  LAST-- 


GAP:  ASSFMHL6  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


R31 


0084  PFF 
OCRS  P r F 
0C86  REF 

Of  87  REF 
))R8  PEF 
008P 

0090  REF 
DD31  RFF 

0092  PEF 

0093 

0094  PFF 

0095  PFF 

DD96  REF 

0097  REF 

0098  PFF 

DD99  REF 
0100 

0 10  1 RFF 

0102 

0103  REF 
3134  REF 

0105  RFF 

0106 

3137  RFF 

0108  RFF 
0 10« 

0110  REF 

0111 


0114  PFF 
3115  RFF 
0116 

0 117  REF 
011  8 

11«  RFF 
3 12'  REF 
121 

0122  REF 
3123 

124  RFF 

0125 

0126  RFF 

0127 
3 L2R 
0120 
0 130 
3 131 
0132 

0 133  REF 


in  LAST  696 

7 LAST  344 
15  LAST  636 

? LAST  118 
22  LAST  69  9 

11  l A ST  699 

11  LAST  6 09 
35  LAST  699 

2 I AST  699 
9 LAST  699 

9 LAST  699 

2 LAST  699 

8 LAST  699 

3 L AST  699 

3 I A ST  699 

10  LAST  700 

12  LAST  699 
5 LAST  699 

20  I AST  700 
8 LAST  700 

2 L AST  598 


4 LAST  504 
16  LAST  700 

3 LAST  700 

5 LAST  504 
Q LAST  700 

6 LAST  593 


IP  LAST  687 


4 LAST  700 


37  ,3353 
•>7,  3 ?54 
17,  3355 
37  ,3356 
57,  3 15 7 

37, T 360 
' . 1 

3 7,  3.362 
37  ,3363 
37 , 1364 
37,  3 365 
37  ,3  366 
37,  3367 

37. 3370 

37.3371 
37,  3372 

37.3373 

37.3374 
37,  3375 
37,3376 
3 7,  3 377 
37,  3400 
3 7 , 34C 1 
37,  34C 2 
37  ,3403 
37,3404 
37,  3905 
3 7 ,34  06 
3 7,  34  C 7 

37. 3410 

37.3411 
37,  3412 
37  ,3413 
37,34 14 
37,  39  is 
37 ,3416 
37,  <417 
37,  3 42 0 
37,3421 
27,  3422 
37  ,7923 
37,3424 
37,  3425 
37  ,3426 
37,  3427 

37. 3430 

37.3431 
37,  ?4  3 2 
37  ,3433 
37,7434 


0000  l 0 
262  CO  1 
00CC7  0 
36206  0 
27410  1 
71214  0 
014  73  0 
000  15  0 

03041  1 QTJMNT 
43175  0 
C2131  0 
00Z63  O 
25535  0 
02172  1 
15543  1 
C2113  0 
43014  C 
04344  0 
77277  1 


PATT 
STOVL  RONE 
VA  TT 
STCAl  L V ONE 

I NTST ALL 
SFT  01  OAO 

INTYPFLG 

TAT 

STOKE  TUECl 
VLOAO  CLEAR 

8 A SEOTP 
MOON  FLAG 
STCVL  RCV 

3 A SFOTV 
STODL  VCV 

BASETI PE 
BOF  SET 

MOONT  HIS 
♦ 2 


00063  1 
35517  1 
27106  0 
52375  1 

rcoci  0 

02200  1 
65234  1 

21706  C 
00045  0 
77657  0 
20  20  1 
26214  1 
C0CC7  0 
50251  1 
0220  6 1 
7 7 7 c 2 1 
26216  0 
C2200  1 
63256  0 
06512  1 
77624  1 
47666  1 
41  505  l 
01732  0 
72431  1 
COCCI  0 
53445  1 
00007  0 
47315  0 
00001  0 
02206  1 


MOONFL AG 
STC ALL  TET 

I NTEGRVS 

rrPPMSP  VLCAO  VSU 
RATT 

RONE 
RTR  POOL 

NORMUNXl 

360 

SL* 

0,  1 

STOVL  PANGE 
VATT 

VSU  DOT 

VONE 

SL  1 

STOVL  RRATF 
RONE 
UNIT  POVL 
JNITZ 

CALL 

CDU*NBSM 
VXM  PUSH 

REF  SMMAT 
VPROJ  VSL  2 
00 

R VSU  UNIT 

60 

POVL  VXV 

00 

VONE 
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PAGE  7uO 


USER’S  PAGE  NC.  3 EG  S3 


GET  SET  FOR  CONIC  F XTR  A P.  , CTHE  R. 


UNI  T (RANGE)  TO  PD  0-5 
RESCALE  AFTER  NORMUN  IT 

SCALED  2( 29  )M 

(VCM-  VLM)  . UNI  T(LCS)  , PD=0 
SCALED  2 (7)  M/CS 

UNI  TCP.)  TO  PD  0-5 

UNIT  ( Z ) / 4 TO  PO  6-11 

UNI  T(  P ) = UN  I T(  UZ  - ( UZ)  PROJ(  UR)  ) 

UNIT(P)  TO  PO  12-17 
UNI  T(  RL) 


I SSI  NO  .064  PAGL  701 


GAP:  ASSEMOLF  REVISION  5o  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  K 


L R31 


USER'S  PAGE  NO.  4 EC  S3 


0136 

■137 
3138 
0139 
0 140 

3 14  1 
0142 
0 143 
111  44 
0145 
3146 
d 4 7 
.148 
3149 

<:•  l so 

161 


PFF 


REF 

REF 

PFF 


3 


LAST 


LAST 
L AST 
I AST 


504 


6 70 

70  1 
7C1 


37.3435  50235  0 

37.3436  COCCI  0 

37,  34  37  COO  1 5 0 
37,3440  77715  1 

37,  3441  71241  1 

37,  3442  COOC7  0 

37,3443  00015  0 

37,  3444  65512  1 

37.3445  26220  0 

37.3446  OOCOl  0 

37,  3447  1 104  1 0 

17  ,34 

37,  3451  77456  C 

37,  3452  45345  1 

37,3453  06526  0 

37,  3454  C2220  0 

37  ,3456  02220  (.' 

37,3456  77776  1 


VXV  DOT 

00 
120 

POVL 

OOT  SIGN 

60 
1 2 D 

SL2  ACCS 

STOVL  R THETA 
00 

OOT  BPL 

6 IT 
♦ 5 

DLOAD  DSU 

DPPOSMAX 

RTHF  T A 
STORE  o THETA 
EXIT 


(UP  * VL)*UR  . U<  P) 

SIGN  TO  12-13  , LOAD  UC  P) 

ARCCOS  (UP.U  Z(S  IGN  > ) 

IF  UR.  IJ  Z NEG, 

R THETA  = 1 - R THETA 


0152 

0153 
3 1 54 
'156 


REF  24  LAST  6 1 1 
REF  1C  LAST  698 

REF  3p  i flST  697 


37, 3457  3 4747  1 

37.3460  7 1043  0 

37. 3461  C 0C06  I 

37.3462  1 5503  0 


CA  31  T5 

MASK  EXTVBACT 

EXTEND  IF  ANSWER  EO, 

B7F  FNDCXT  TERMINATE 


0 166 
115  7 
r 1 58 

154 


REF  11  LAST  701 
REF  24  l AST  698 
RTF  12  LAST  701 
REF  1 


37.3463  4 1043  0 

37. 3464  7 4740  1 

37 .3465  27  '043  P 

37.3466  1 3316  1 


CS  EXTVBACT 

MASK  B I T 1 2 

AOS  EXTVBACT  SET  BIT  12 

TCF  PEV83  AND  START  AGAIN. 


Ol  60 

■ 161 
0 162 
163 
• 1 64 
' 1 65 
0166 
0117 
- 168 
O'  1 69 
0170 
C 171 
1 17? 

0 1 73 
Cl  74 

176 

01  76 
r177 
,178 
0179 


RFF  4 LAST 
REF  1C  I A ST 
REF  86  l AST 

RFF  c LAST 

RFF  10  LAST 
RFF  5 LAST 
REF  5 LAST 
RFF  1 

PEF  1 

RFF  4 I A ST 

PFF  10  LAST 
REF  11  LAST 
RFF  85  LAST 


RFF  2 LAST 
RFF  1 


54  3 37,  3467 

505  37,3470 

699  37,  3471 
37  ,3472 

325  37,8473 

3 7,  3474 

700  37  ,3475 

325  37,  3476 

700  37,  3477 
37,3500 
37,  35C 1 
37  ,8502 

74 1 37,3503 

37,  3504 
698  37,3505 

701  37,  35C6 

70  1 37,  3507 

37,3510 
236  37,3111 

37  ,3512 


3 7722  1 GETRVN 
C 5146  1 
C 6C61  0 
40  375  1 
01220  0 
ootid  o 
26200  1 
01226  0 
26206  1 
01724  1 
65315  0 
01716  0 
01234  0 
77776  1 
3 5015  0 
C 1146  l 
C 6051  C 
77214  0 
C3347  1 
77524  l 


CA  PR  I 022 

TC  PRIOCHNG 

TC  INTPRET 
VLOAO  SETPD 
RN 
0 

STOVL  RONE 
VN 

STOVL  VONF 

V ( CS  M ) 
POVL  POOL 

R ( C SM  ) 
PIPT IME 

EXT  T 

CA  PR  103 
TC  PPIOCHNG 

TC  INTPRET 

ROFF  VLOAO 

MUNFLAG 
GETR  VN  2 


INHIBIT  SERVICER 


LM  STATE  VECTOR  IN  PN,VN 


LOAD  R(CSM)  ,V(  CSM)  IN  CASE  MUNFLAG  SET 
(TO  INSURE  TIME  C OMPA  TAB  I L I T Y) 


IF  MUNFLAG  RESET,  DC  CM  DELTA  PRECISION 


GAP: 


ASSEMBLE  REVISION  46  OF  ACC  PROGRAM  7ERL  INA  BY  ZOROASTER 


P 3 l 


iei 

182 

VI  83 
<:  i R* 

r]QC 

C.1  86 
' 187 
313  3 


RFF  19  LAST  700 

RTF  20  I A ST  702 

REF  1 


?7, 3513  6C5C5  1 

37  ,3514  C 1732  0 

37,3  51  5 77715  1 

37. 3516  76  5C5  C 

37.3517  0173?  0 

37,  3*20  40?C6  1 

37,  3521  00001  0 

37,352?  77650  l 

37,3523  776C1  1 


VXP  V$P4 

9 FFSMMA  T 

PCVL 

VXM  VSL 1 

R FFSMMAT 
PUSH  SFTPO 
0 

GOTO 

COPPDI  SP 


189 

0 190 
1 9l 
C 192 
-193 
1 94 
0 195 
3194 
r-197 
198 
nl  99 
0200 
3?)  1 
0202 
0 20  3 
D 2D  4 


REF  23  LAST  700 

REF  12  LAS!  730 
REF  1 

RFF  86  LAST  70  1 

RFF  18  l AST  699 
PFF  36  LAST  700 
P EF  6 I A ST  699 


PFF 

REF 

RFF 


LAST  Ip  2 
L AST  699 


37  ,3524 
37,35  2 4 
37,  3426 
37  ,3527 
37, 3539 
37,  3531 
. 

37,  3533 
37  ,3534 
37,3535 
17,  15  36 
37  ,3537 
37,  754 n 
37, 3541 
3 7,354? 


776?4  1 
?741 " 1 
5 20  1/,  0 
01673  1 
77363  1 
C 6 C5  1 0 
77634  0 

21555  1 
34041  0 
27C56  1 
77650  1 
7735?  0 
4 C1C2  0 
7 4744  0 
C 0006  1 


CALL 

CLFAR 


R31SUPF  TC 


INTST ALL 
SOTO 
INTYPFIG 
OTHI NT 
I NTPRE  T 


37, 3543  1 3467  0 


I OAOTI PF 
ST  CALL  TO  EC  1 

L EMPREC 

GOTO 

OTHCON1C 
CS  F LAGWRD6 

MASK  MUNFLRIT 
EXTEND 

BZF  GETPVN 


0205 
0 ?06 

02  07 
0208 


REF  87  LAST  7C  ? 

REF  1 9 LAST  71)2 
RFF  1 


37  ,3544  0 6051 

17.3545  C2C34 

37.3546  21555 


0 ON  E BAS  E TC 

1 RTB 


IN  TPP  E T 
GOTO 
LOAD  TI  VF 


37  ,3547  77305 


OOCMBASE 
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CHANGE  TO  REFERENCE  SYSTEM  AND  RESCALE 
R TO  PO  0-5 

V TO  PO  5-H 


PREC  EXTRAP  FOR  OTHER 


IV  IS  ON  SUR  FAC  F , SO  PRFC  I SI  ON 
1NT  FGRAT  ION  JS  ES  PLANETARY  INFRTIAL 
ORIFNTATION  SUBROUTI  NF 

DO  CSM  CONIC 


IF  MUNFLAG  SET,  CS  P BASE  MOT  NEEDED 
GE  T : SM  BASF  VECTOR 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 
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P76 


USER'S  PAGE  NC. 


1 


El  S3 


1 GOO'  1)  PR  Pr.RA  V NAME  - TARGET  OFLTA  V PROGRAM  (P76). 

R 500 1 2)  FUNC  TIONAL  DESCRIPTION  - LPCN  ENTRY  BY  ASTRONAUT  ACTION,  P76  FI  ASHES  DSKY  REQUESTS  TO  ThE  ASTRONAUT 

R50C3  TC  PRCVICF  VIA  OSKY  (1)  THE  DELTA  V TO  BE  APPLIED  TO  THE  OTHER  VEHICLE  STATE  VECTCR  AND  (2)  THE 

R50*'S  7 I Mr  (TIG)  AT  WHICH  TEE  ETHER  VEHICLE  VFLOCIIY  W AS  CHANGED  RY  EXECUTION  OF  A THRLSTING  MANEUVER.  THE 

R5  J -7  OTHEF  VEHICLE  STATE  VECTOR  IS  INTEGRATED  T 0 TIG  AND  UPDATED  RY  THE  ADDITION  OF  DELTA  V (DELTA  V HAVING 

R 500°  REFN  TRANSFORMED  FROM  LV  TO  REF  COSYS).  USING  IN  T EGR  VS,  THE  PROGRAM  THEN  INTEGRATES  THE  OTHER 

KSfl!  VEHICLE  STATE  VFC  TOR  TO  THE  STATE  VECTCR  CF  THIS  VEHICLE,  THUS  INSURING  THAT  THE  W-MATRIX  ANO  BOTH  VCHICLE 

R5D13  STATES  CORRESPOND  TO  THE  SAME  TIME. 

3 50  14  3)  ERASABLE  I M T I A L I Z AT  I C N RECUIREC  - NONE. 

R5’U5  A)  CALI  INC.  SEQUENCES  AMD  EXIT  MODES  - CALLED  BY  ASTRONAUT  REQUEST  THRU  OSKY  V 37  E 75  E. 

rx  ITS  BY  TCP  ENDOFjrp. 

^ c)  l.  TP  LJT  - OTHER  VEHICLE  STATF  VECTOR  INTEGRATED  TP  TIG  AND  I NCR  EM  FNTFD  RY  DELTA  V IN  REF  COSYS. 

R5D2'  THE  PUSHLIST  CONTAINS  THE  MATRIX  BY  WHICH  THE  INPUT  DELTA  V MUST  BE  POST -MULT  I PI  I ED  T 0 CONV  ERT  FROM  .V 

R 50  22  TC  PEF  COSYS. 

«5<  23  6)  OEBRIS  - OTHFR  VEHICLE  STATE  VECTOR. 

R5'2<V  7)  SUBROUTINES  CALLED  - B ANK  C AL  L , GOXD  $PF  , f SMPR  FC  (OP  LEMPREC  ) ,A  TOPC  SM  (UR  ATOPLE  M)  , I NT  ST  AL  L , INTW  AK  E,  P HAS  CHNG 

3 5026  INTTPFT,  I NTEGRVS  , AM?  MIMRECT. 


R5D  27  P)  FLAG  USE  - MOON  n.  AG , C MOON  F LAG , I N T YPF  LG  ,RA  SE  LAG  , AND  MARKCTR. 


5028 

50  29  REF 
5D3D 


30,2061 
13  ,7000 
12,  22C7 


HANK  30 
SFTLOC  P76L0C 
BANK 


5031  REF 


COUNT  * ♦ i /P  76 


50  32 


REF 


20  LAST  696  E7, 1441 


ebank=  r ig 


REF  A A LAST  676  13,  2207  0 5515  0 P 76 

RFF  6 I A ST  627  13  ,2210  00031  0 


TC  UPFLAG 

AORFS  TRACK  FL  G 


53341  RFF  Rfl  I AST 
503^2 

50  34  3 REF  ?G  I A ST 
5 D 34  4 RFF  A LAST 
503A5 


70  2 

687 

322 


13,  2212 

13,2213 
13,  2214 
13  ,2 215 


C 6C51 

77775 
034  34 
0 12  5 3 

77776 


0 

I 


TC  INTPRET 

VLOAD 

DEL  VLVC 
STCRF  DF  LVOV 
FX  IT 


50  3 5 
504  0 

5041 

5D42 

5043 

5044 
5D45 


5048 

5049 
5D5D 
5051 


REF  1 

PEF  174  LAST  6 9? 
RFF  IP  LAST  678 
RFF  1 


RFF  ? LAST  703 
RFF  17*  LAST  70 3 
REF  ic  LAST  703 
PEF  2 I AST  72  3 


REF  89  LAST  70 3 


13,2216 
13,  ■'2  17 
13,2220 
13,  2221 

13,  2222 

13,?223 
13,  2224 
13  ,2225 
. 

13, 2227 
13,2230 
13,  2 22  1 

. 


2 2335  0 
C 46 16  1 
20477  1 
I 2331  0 
0 2224  1 
C 2216  0 
: 2334  1 

0 4616  1 

20477  1 

1 2321  0 
0 2232  0 
C 2224  1 
0 5051  0 


CAF  V06N84  +1 
TC  3ANKCALL 

CACR  GOFLASH 

TCF  CNDP76 

TC  +2 

TC  -5 

CAF  V06N84 

TC  BANKCALI 

CACR  GOFLASH 

TCF  FNDP76 

TC  +2 

TC  -5 

TC  INTPRFT 


HLASH  VERB  06  NOUN  33,  DISPLAY  LAST  TIG, 
AND  WAIT  FOR  KEYBOARD  ACTIUN. 


PROCEED 

STOPE  DATA  AND  PFPEAT  FLASHING 
FLASH  LAST  DELT  A V , 

AMD  WAIT  FOR  KEYBOARD  ACTION. 


RETURN  TO  INTERPRFTIVE  CODE 


'.A  P:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPL  INA  BY  ZOROASTER 


l 


P 76 


535? 

5053  PFF 
50535  REF 
6J5*  PFF 
5055  RFF 
50  56 

5057  PEF 

5058 
5359 

5060 

5061  RFF 
536? 

50  63 
5064 
5365 

5066  REF 

5067 
506B 

5069 

5373  REF 

5C71 

507? 

5373  PEF 
507* 

5076  REF 

5076 

5C77 

5378 

5070  REF 
5080  REF 
53fl1 

5082 

5383  RFF 
508'*  PEF 
5085  PEF 
5386 

5087  PFF 

5088  REF 

5089  REF 

5090  PFF 
5391 

5093  REF 
509* 

5395  REF 

5096  REF 

5097  RFF 

5098  PEF 

5099  PFF 
5133  REF 
5101 


21  LAST 
* LAST 
37  I AST 
2 LAST 

21  I AST 


17  I A ST 


5 LAST 


18  LAST 


2*  L AST 


9 LAST 
22  I AST 


10  1 AST 
22  LAST 
13  LAST 

13  LAST 
1 

3a  L AST 
6 LAST 

25  LAST 

P L AST 
3 I AST 

11  LAST 

12  LAST 
1*  LAST 
11  LAST 


70  3 
2*3 
70  2 
696 

730 


70  C 


70  3 


70* 


7?  2 


700 

70* 


70  0 

70* 

7 ' 

702 

70* 

700 

70* 


699 

503 

70* 

730 

70* 

699 


1 3»  ?23* 
13,2235 
l 2,  ??36 
1 3 ,2237 
l 3 ,2  ?*0 
1 3,  2 2*  1 
13  ,2?*? 
1 2,  22*3 
1 3,  22** 
13,2  2*5 
12,  22*6 
13  ,22*7 
13  ,2250 
13,  2251 
13  ,2252 
1 3,  2 2 6 3 
1 3,  226* 
13,2255 
13,  2256 
13  ,2257 
l 3,22  60 
13,  2 2fc  1 
13  ,2262 
13,  2263 
13,  226* 
13,2265 
1 , 

1 3 ,2267 
1 3 ,2270 
1 3,  227  1 
13  ,2272 
1 3,  2273 
13,  227* 
1 3,2275 
1 3,  2 27  6 
13  ,2277 
13,2300 
13,  2 30  1 
13  ,2302 
1 3,  2303 
13,  23n* 
13,2305 
13,  23C6 
13  ,2307 
13,2310 
13,  2211 
13  ,?312 
13,  22  1 3 
13,  23i* 


*31*5  0 
03**2  0 
Cl  076  1 

:-*c*i  0 

270*2  1 

c*575  0 CCMPMAT 
1 

77676  0 
CCC31  C 
53*35  0 
00007  0 
C0C23  0 
53*35  0 
00031  0 
2*C  1 5 0 
01253  l 
765C5  0 
OOGl 5 0 
77655  1 
00CC7  0 
00007  0 
7762*  1 
27*10  1 
7762*  1 
26336  C 
53  775  1 
00007  0 
57176  0 
255*3  1 

oooni  n 

77667  0 
57176  0 
15535  C 
03**2  0 
01517  0 
7121*  0 
01673  1 
016*3  1 

2*0*1  G IN  TOTH  I 
27106  0 
7762*  1 
2 7*10  1 
77775  ] 

CCC17  1 
01503  0 
15535  0 
00015  C 
25517  0 
CCC25  0 
7762*  1 


OLOAD  SET 
TIG 

NODOFLAG 
S TC  ALL  TDEC1 

DTHPREC 
VLCAO  UNIT 
RA  TT 

V COMP 

STCRE  2*0 
VXV  UNIT 
V ATT 

STORE  180 

V XV  UN  I T 

2*0 

STOVL  1 2q 

DELVOV 
VXM  VS  LI 
120 

V AO 

VATT 

STORE  6 

CAl  L 

INTSTALL 

CALL 


VLOAO 


STOVL 


P76SU81 

VSR* 

6 

0,2 

VCV 

RATT 


VSR* 

0,2 

STOOL  PCV 
TIG 

STORE  TET 
CLFAR  OLCAO 

INTYPFLG 
TETTHIS 
S STCALL  TQECl 

INTFGRVS 

CALL 


V L 0 A 1) 


I NTSTA  LL 
PATTI 


STOKE  RR.  ECT 

STOOL  PCV 
TA  T 

STOVL  1 ET 

VATT1 


CALL 


9:12  CCT.  21  ,197, 


ISS  ING  .06*  PAGE  70' 


USER  'S  PAGE  NO.  2 E7  S3 


SET  rOFCl=TIG  FCP  CRB  IT  AL  INTEGRATION 


UC-R) 

U I-P)  TO  2*  C 
U(-R)  XV  = Ul VXR  I 

U(  V XR  1 XU(-R)  = U(  ( PXV)  XR) 


V (MPAC)=OELTA  V IN  RFFCPSYS 


VIPD61  =VA  TT  f DELTA  V 

PREVENT  WOULD-  BE  USER  OF  ORBITAL 

I NTEG  FROM  I NT  ERFERING  WITH  UP  OAT  ING 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2 ERL  INA  BY  ZOROASTER 


L P76 


5J3|  RFF  2 LAST  503 

5 10 A REF  29  LAST  676 

5 IT  5 


13,  23  1 5 2 77CS  r 
13,2316  77776  1 
1 3,231  7 0 5366  0 

13,  2320  06026  0 


MI  NI  RECT 

EXIT 

TC  PHASCHNG 

OCT  04026 


5106 
510  7 
5 1 09 

5110 

5111 
5116 


5119 

5123 
A 5121 

5125 

5126 
512Q 


RFF  90  LAST 

PEF  1 

REF  1 

REF  2 LAST 

PEF  ^ LasT 


703  13  ,2321 

13,2322 
13,  2323 
1 3 ,2324 
13,  2325 

50  3 1 3,  2326 

13,2327 
70  A 13,  2330 


0 6051  0 
A 5 0 1 A 0 
C5C70  0 
26660  0 
77(24  1 
27A17  0 
77A14  0 GUT 
C 1 276  0 


TC  INTPRET 

SET  CALL 

RE  I NTF  LG 
ATOPOTH 

CALL 

I NTWA  KEC 
CLEAR  EX  IT 

NODOF  LAG 


REF  130  LAST  650 
PEF  6 1 AST  598 

RFF  18  LAST  678 


13,2  33  1 3 A755  1 ENDP76 

13,2332  c c 1 A 6 2 1 
13  ,2333  l 6001  1 


CAF 

TS 

TCF 


ZERO 
M4RKC  TR 
GOTOPOOH 


m 

5132 

5133 
513A 
M35 

5136 

5137 
513p 
5139 
5 1 AO 


REF  H LAST  700 

PEF  6 l AST  688 
RFF  3 LAST  608 

RFF  12  LAST  705 


13,2336 
l 3,  2 7 ? 7 
l 3 ,23A: 
13,?  3A 1 

13,  2 3a  2 
13 ,?  iA  3 
13,  2 3 A A 
13,  2 3a  5 
1 3 ,2  3A6 


C152A  0 V06N94 

0 1 A A 1 1 

43174  1 P76SU81 

CCCC2  0 

00063  1 

7701 A 1 

OA  3o  3 0 

00052  0 

CCCOO  1 

A3A14  1 

00263  0 


NV  068A 

NV  0633 

AXT.2  SET 
2 

MOONFL AG 
BON  AX  T , 2 

C MOONF  LG 

3PRET 

0 

CLEAR  R VO 

MOON  FLAG 


9:12  CCT.  21  ,1970  KISS  ING 
USER  *S  PAGE  NO.  3 


.064  PAGE  705 


fc  7 S3 


ALLOW  V37.  \10  NEED  TO  CLEAR  NODOF  LAG  AT 

EN0P7 S SINCE  FLAG  NOT  SET  WHEN  DISPLAY 
RESPONSES  TRANSFER  THERE  FROM  P76+. 

CLEAR  RR  TRACKING-  MARK  COUNTER 


SFT  MEANS  MOON  IS  SPHERE  OF  INFLUENCE. 


SET  MEANS  PERM  CM  ST  AT  F IN  LUNAR  SPHERE 


,AP:  ASSEMBI  f REVISION  56  OF  AGC  PROGRAM  ZERLINA  ev  ZG&C  ASTfcR 
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L 

USER'  S PAGE  NC.  1 ED  S3 

>0001 

RDDD2 

RQQ04. 

> 

R DDD8 

R 001  o 
ROr  12 
ROOT  3 

SlBPOlTINf  NAME:  V82C  ALL 

MHO  NO:  0 DATE:  16  FEB  67 

PCD  BY:  RR  CAIRNS  FAT  HER  LOG  SECTION:  R30 

MOD  NO:  1 MOD  3 y:  kp  BAIRNSFATHER  CAT  F:  11  APP  67  SR3r.l  CHANGED  TO  ALLOW  MONITOR  OPERN 

MOD  MO:  2 MDO  BY  ALONSO  DATE  : 11  DEC  67  VRR2  PROGRAM  REWRITTEN 

M CO  HO:  3 MOD  PY  A l C NS  0 DAT  F:  26  MAR  68  PROG  MOP  TO  HANDLE  PIF  E AP  TH/MOON  SCALE 

NEW  FUNCTIONAL  DESCRIPTION:  CALLED  RY  VERB  82  ENTER.  PRIORITY  1 3 

USED  T HR CIJ GROUT  . CALCULATE  AND  DISPLAY  0R3ITAL  PARAMETERS 

\Q<  14 
R)?  15 
POO  14 
ROO  17 
RDD  1 R 
IOC  19 
■' 

! 1 

100?? 

RDD23 
ROO  24 
R0L25 
RD?2f> 
<0027 

R 002  0 

1.  IF  A VFRAGI  G IS  CFP  : 

FLASH  riSPLAY  VC4NC6.  P2  INDICATES  WHICH  SHIP'S  STATE  VFCTOR  IS 

TO  PF  tlPCATEn.  INITIAL  CHOICE  IS  THIS  SHIP  (R2=l).  ASTRONAUT 

CAN  CHANGE  TO  OTHEP  SHIP  BY  V22FXF,  WHERE  X NOT  EO  1. 

SELECTED  STATE  VFCTOR  UPOATED  BY  THISPRFC  (OTHPREC). 

CALLS  SR3C.1  (WHICH  CALLS  TFFCUNMU  + T FFRP/RA  ) T 3 CALCULATE 

PP(t>  (PERIGEF  RAOILS),  PAPO  (APOGEE  RAnlUSl,  HPFR  (PERIGEE 

HEIGHT  APCVO  LAUNCH  PAp  OR  LUNAR  LANDING  SITE),  HAPO  (APOGEF 

HF1GHT  AS  ABOVE),  T PER  (TIKF  TC  PCR)GFE),  TFF  (TIME  TO 

INTERSECT  ?C0  < F T ABOVE  PAD  OR  35KF  T AROVC  LANDING  SITF). 

FLASH  MONITOR  V16N44  (HAPC,  HPER,  TFF). TFF  IS  -5QM5DS  IF  IT  WAS 

NOT  CCJMPLTA3LE,  OTHERWISE  IT  INCREMENTS  CNCE  PER  SECUNO. 

ASTRONAUT  HAS  OPTION  TO  MONITOR  TPE=>  BY  KEYING  IN  N 32  E. 

DISPLAY  IS  IN  H MS , IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 

ONf  F PFR  SECOND  ONI  Y IF  TFF  DISPLAY  WAS  -59M59S. 

R002Q 
<30  30 
RDD31 

R 0032 
ROO  33 
R0036 
<0037 

2.  IF  AVERAGF  G IS  CN: 

CALLS  SFJC.l  APPROX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 

FOF  THIS  VEHICLE.  V85  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 

CF  SF'J:  .1  A 3 F PAPO,  RPEP,  HAPO,  HPER,  TPER,  TFF. 

FLASH  MONITOR  V16N4*  (HAPC,  HPER,  TFF). 

A COFNDUM : HAPO  AN  0 HPER  SHOULO  DC  CHANGED  TD  READ  HAPDX  AND  HPERX  IN  THE 

ABOVE  RF  MARKS. 

RD338 

CALI  INC-  SEQUENCE:  VERB  82  ENTER. 

R 0039 
< 00  40 
RD341 

SUBROUTINES  CALI.EC:  SR33.1,  COXDSPF 

MAYBE  - THISPRFC  , CTHPRFC,  L 0 A OT  IMF,  DEL  RS  PL 

NCRMAL  EXIT  MOOES:  TC  ENDEXT 

R 004? 

ALARMS:  NCNE 

R 0 0 4 3 

R 0044 
< 004  5 
R3046 
ROf  47 
ROO  48 

R3  3 4 9 
<0050 

OUTPUT:  HAPOX  (-29)  M 

HPFPX  (-29)  M 

P-APP  (-29)  M EARTH 

(-27)  M MOON 

PPFP  (-29)  M EARTH 

(-27)  M MOCA 

TFF  (-28)  CS  CONTAINS  NEGATIVE  QUANTITY 

-TPFR  (-28)  CS  CONTAINS  N EG  AT  IV  E QUANT  I)  Y 

AP:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L R 30 

R0051 

30052  ERASABLE  I M 71  All  ZATI  CN  RECU  I REC:  STATE  VECTOR. 


DEBRIS:  QPRET,  ?ONE,  VDNE  , TF  F /R  TM  u , HPERMIN,  RPADTFM,  VP2EMFLG. 

M AY  P F : TSTART82,  V82FLAGS,  T0EC1. 


0055  RFF 
3 35b 

0057  RFF 

0058 

0059  REF 


3 LAST  319  FA, 1512 

3 1,  2144 

? LAST  A 5 22  ,2000 

22,3242 

2 l AST  45  TO  45: 


E B ANK=  HAPOX 
BANK  31 
SFTLPC  R30LOC 
RANK 

C 0 LN  T»  tt/R30 


0060  RFF  51 

0061 

0062  REF  ? 

1063  REF  I 

006 A REF  1 


LAST 
I AST 


705 

235 


22,3242  C 6051 
22,  ? ? A 3 5 2C 14 

22,3244  03712 

22  ,7245  45465 
22,  7246  A5247 


VR2CALL 


1 NT  PR ET 
GOTC 
AVEGFLAG 
V8  2GON 
V82G0FF 


0065 

5066  REF  4? 

I 67  REF  1 1 

0068  REF  71 

3069  REF  12 

0070  RFF  1 

0071  REF  176 

0072  REF  8 

0073  RFF  39 

007A 

0075 
A 0076 

0077  REF  25 

0078  REF  ?6 

0079  REF  ? 

0080  PEF  1 

OORO  PEF  1 

0081 

0082  REF  1 

0083  REF  24 

0084  RFF  131 

0085  RFF  ? 

A0086 

0087  REF  6 

0088  REF  25 

0089  RFF  4 

0090  RFF  1 

0090  REF  1 

0091 

0092  REF  20 


I AST  575 
1 AST  3 A4 
l AST  650 
LAST  70  7 

LAST  703 
LAST  606 
LAST  701 


L AST  604 
LAST  648 
I A ST  31  Q 


LA <7  673 

LAST  70  5 
LAST  118 

LAST  297 
LAST  698 

I AST  7^7 


LAST  575 


22,  3250 
22,3251 
22,325? 

22  ,3254 
22,3255 

, - 

22  ,3257 
22,  3260 
. ' 1 

22,  3262 
22  ,3263 
E4, 1521 
22, 3264 
22  ,3265 
22,  3266 
22,  3267 
22,32  70 
22,  3271 
22,3272 

22,  3273 
22  ,3  2 74 
E4,  1531 

22. 3275 

22.3276 

22. 3277 
22  ,3300 


77776  1 
? 4752  0 
55  ’0  50  1 
3 4753  1 
c 5 • C 5 1 0 
3 3316  0 
C 4616  1 
20  334  1 
C 5503  1 
C 3262  1 
C 3254  1 

2 4 7 50  1 
0 5214  0 

03430  0 

44064  0 
C CCC3  1 

3 3320  0 
54  003  0 
? 4755  1 
55*530  1 

2 5021  1 
0 5105  0 

03321  1 
44064  0 
( CCC3  1 
3 6257  1 


VB2GDFF 


EX  IT 

CAP  TWO 

TS  OP  T I ON  X 

CAF  ONE 

TS  OPTIONX  + 

CAF  OPT  ION VN 

TC  RANKCALL 

CAOR  GOXOSPF 

TC  FNOEXT 

TC  +2 

TC  -5 


CAF  81  T4 

TC  WAITLIST 

E8ANK=  TFF 
2CA03  TICK  TEST 


RE  LI  NT 

V8  2GDFLP  CAF  TFFBANK 

TS  EBANK 

CAF  ZERC 

TS  V82FLAGS 


CAF  PR  I 07 

TC  FINDVAC 

F8ANK=  TFF 
2CADR  V82G0FF  1 


RF  LI  NT 

V82ST  ALL  CAF  THRFE 
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FO  S3 


IF  AVERAGE  G ON 
I F AVERAGE  G OFF 


ALLOW  ASTRONAUT  Til  SELLCT  VEHICLE 
RES  IRFO  FOP  ORBITAL  PARAMETERS 
CALCULATION  AND  DISPLAY. 


V 04  N 06 


TERMINATE 

PROCEED 

DATA  IN.  0PTI0N1+1  = I FOR  THIS  VEHICLE. 

UNEQ  1 FOR  OTHER  VEHICLE. 

80  MS 


MAJOR  RECYCLE  LOOP  ENTRY 


ZERO  FLAGS  FOR  T1CKTEST.  INHIBITS 
DECREMENTING  OF  TFF  ANO  - TP  F 3 • 

V 82G0F  F I WILL  E XE  C 0 TE  STATF  Vt  C TOR 
UPDATE  AND  0R8IT  CALCULATIONS  ED* 
SELECTED  VEHICLE  ABCUT  PROPER  BODY. 


STALL  IN  THIS  LOOP  ANO  W!  THCLO  V 16  N A '■ 


GAP: 

3093 

or94 

0095 

0096 

0097 

339* 

0099 

0100 

)m 

oio? 

on? 

oi  0* 

0105 

3136 

0*  07 

0108 

3109 

11 

111 

■ 1 12 

'll? 

MIA 

0H5 

1 16 

7117 

0118 

0 1 19 

ol  2 C 

0 1 2 1 

122 

• 121 

124 

0125 

- 126 

3 127 

0129 

( 129 

?1  30 

<■1  31 

132 

3133 

0134 

< 1 36 

136 

0137 


ASSEMBLE  REVISION  66  OF  AGO  PROCRAM  ZERt  INA  BY  Z'lPOASTER 


FEE  1 t AST  707 
PFF  205  LAST  673 
PEF  1 

PFF  6 |.  AST  67  5 

PFF  177  LAST  7C  7 
RFF  12  | AST  675 

REF  1 


22,  330  1 7 1530  1 

22  ,3  3C  ? 10  OQO  0 

22  » 33C  3 C 3310  C 
22,  3 304  2 4777  1 

22  . 13  05  C 4616  1 
22,  3306  01736  1 

22,3  307  0 3 300  1 


MASK  V82FLAGS 

CCS  A 

TC  FLAGGCN 

CAF  1 SFC 

TC  BANKCAll 

CAOR  OFLAYJCP 

TC  V82STALL 


PEF  1 

PFF  17P  L AST  708 

RFF  o LAST  707 

REF  8 I A ST  698 

PFF  9 LAST  708 

I E F 1 


22.3310  3 3317  1 c LAGGCN  CAF  V16N44 


72, 3311  C 4616  1 
22  ,331  2 2A  334  1 
?2 , 3’ 1 3 C c 574  1 
22,  3314  0 5674  1 

22.3315  C 3267  1 


TC  BANKCALL 

CAOR  GOXDSPF 

TC  R5  OFF 

TC  3 50FF 

TC  V82GOFLP 


RFF  5 LAST  7C7 


22,  3 3 16  CIC14  0 

22,3317  04054  1 

22,3320  02131  (. 


OP  Tl  ON  VN  VN 
V16N44  VN 
T F FRANK  FCADP 


412 
1644 
T FF 


REF 

PEF 

PFF 

RFF 


■ Ef 
PFF 

RFF 

PEF 

RFF 

PFF 

PFF 

RFF 

REF 

PFF 

REF 


PFF 

REF 

REF 

REF 

RFF 


92  LAST  707 

2C  LAST  702 
39  LAST  734 
3 I A ST  344 

1-3  LAST  707 
7?  LAST  707 


53  LAST  708 

3 LAST  704 

23  LAST  704 
11  I AST  701 
19  L AST  704 
6 LAST  701 


1 

2 1 A ST  118 

12  LAST  691 


1 


' , 

\2 ,33  5 
22,  3324 
22  ,3325 
22,  3226 
22,  3 32  7 

27.3330 

22. 3331 
22  ,333? 
! ■ 

22,  3134 
22  ,3335 
22, 1336 
22,3337 
27,3340 
72,  3 34  1 
22  ,3  342 
22  ,?343 
22,  3344 
22  ,3345 
72, 3346 
22,3547 
22,3350 
22,  3 35  1 
22  ,335? 
22,3353 
22,  3 354 
22  ,3355 


t 6C  5 1 C 
771  ’ 4 
21565  1 
0004 1 1 


02176  0 
77776  1 
4 1051  0 
6 4753  1 
( CCC6  1 
1 3356  0 
C 6051  0 
77624  1 
27042  1 
77775  1 
0000  l 0 
26200  l 
00007  0 
02206  1 
77743  1 
73774  1 
00037  0 
77743  1 
72411  0 
02172  1 
46135  1 
00050  l 
45367  1 
77650  1 
45373  1 


V82G3FF1  TC  I N TPKE  T 

RTR 


l 0 ACT  IME 
STORE  TDFC 1 
STORE  T START  R2 
EXI  T 

CS  OPT!  ONX  ♦ 1 

AO  ONE 

EXTEND 

R7F  THISSHIP 
CTHSHIP  TC  1 NT  PR ET 

CALL 

OT  HPR.EC 

BOTH  SHIP  VLCAO 

? A TT 
STOVL  RONE 
VATT 
STORE  VDNE 
OLOAD* 

1 /R  TMUF  ,2 
STORE  TFF/RTMU 
0 LOAD* 

MINPERE , 2 
STORE  HPERMIN 
SLOAD  OHIZ 
X 2 

EARTHPAD 

GO  TO 
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UNTIL  STATE  VECTOR  UPOATE  SETS  ON  E D F 
OUR  FLAG  HI  TS. 

EX  IT  FROM  STALL  LOUP  . 


MONITOR  HAPO,  HPER.  TFF. 


TFRM  THIS  TFLLS  TICKTFST  TO  KILL  ITSEL= 
PROCEED  OITTO 

RECYCLE  RECDMPUTF  STATE  VEC  T ♦ DISPLAY 


TIME  FOR  STATE  VECTOR  UPDATF. 

TIME  FOR  INTERNAL  USE. 

I FOR  THIS  VEHICLE,  NCT  1 FCR  OTHER. 


CALL  STATE  VECTCR  UPDATE  FOR  OTHER  SHIP. 

MOVE  RESULTS  INTO  TFFGONIC  STORAGE  AREAS 
TO  B F CALLED  BY  SR?0. 1 . 

PATT  AT  I-29JM  FOR  EARTH  OR  MCON 

VATT  AT  ( - 71  M/C  S FOR  FARTH  OR  MOON 

X2  IS  0 FOR  EARTH  CENTERED  STATF  VEC 
X2  I S 2 FOR  MOON 
AS  LEFT  BY  THISPREC  OR  OTHPREC. 

TFFRTMU,  HPFRM1N  AND  RPADTEM  ARE  ALL 
EARTH/  MOON  PARAMETERS  AS  SET  HERE. 


MOONPAD 


AP : 


■ SSFMRIF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L R 30 


0139 

31M 

OLA  1 
n LA? 


REF  94  LAST  708 
REF  2 LAST  696 
RFF  1 


2 2,  3356  0 6C5  1 0 THISSHIP  TC 

2?, 3357  77624  l CALL 

22,  3360  27C56  1 

22.3361  77650  1 GOTO 

22.3362  45336  0 


I NTPRF  T 
THI SPREC 
ROT  HSHIP 


R ■>  1 4 -3  THE  FOLLOWING  CONSTANTS  ARE  PAIRWISE  INDEXED.  DO  NOT  SEPARATE  PAIRS. 


•■146 
3 146 
C>!  47 
147 


22,336.3  00001  0 M INPERM  2 DEC 

22,  3364  1 L c 30  1 

22,  3365  00QC2  0 MINPE&  E 2DEC 

22,3366  31230  1 


10668  B - 27 
61440  R- 25 


3143 
0149 
f 150 
i ’51 


REF  2 LAST  691 
RFF  1 
PEF  1 


22, 3367 
22  ,3.370 
22,3371 


22, 3372 


4 :•  1 4 5 0 
06336  l 
03635  1 
45377  I 


EARTHPAD  DL  OAD 


CLRGO 
RP  AO 

VP2 EMFLC 
30THPA0 


MS? 

3153 

0154 


1 55 
.156 
f l 57 
f 15R 


i 159 


0160 

3 161 
Pi  6? 


0 163 
3 164 
r 165 
0 166 
Pi  67 

0 1 68 
H69 
Pi  70 
0 171 
•’17? 


REF  5 

REF  2 
REF  2 
REF  1 

REF  21 
REF  4 
REF  5 

RFF  2 
REF  1 

REF  3 
REF  6 
REF  4 

REF  33 
RFF  4 
RFF  9fl 


LAST 

LAST 
I AST 


1 AST 
LAST 
I AST 

LAST 


LAST 
I AST 
LAST 

LAST 
I A ST 
l AST 


22,3373  51575  1 

691  22,3  374  02021  0 

22,3375  77614  1 

709  22,3376  03475  ! 

114  22,  3777  36  174  C 

22,3400  45551  1 

22 , 34C  1 45234  0 

708  22,  3/,p  2 2 1555  1 

708  22,3403  02176  0 

709  22,  3404  C2  1 76  0 

22,3405  53145  1 

311  22,3406  02134  0 

22, 3407  45420  0 

22  ,3410  43345  1 

709  22,3411  02134  0 

7"' 9 22,  34  12  0 2 176  C 

709  22,3413  02134  0 

22, 3A I*  77776  1 

585  22,  341  6 3 4753  1 

708  22,3416  55'530  1 

605  22,  3417  C 5 1 5 5 o 


MOONPAC  V LOAD 
SET 

80  TH  PAD  STCALI 
RTR 


STORE 

OLOAD 


TTCKTPER  DLOAD 


STORE 
EXI  T 

CAF 

TS 

TC 


ABVAL 

PLS 

V82EMFL  C 
RPAOTEM 
SP  30.1 
DSU  , 

LOAD  TI  ME 
TS  T AR  T 82 
TSTART82 
3ZF 
-f  PER 
Tl CKTFF 
DAD 
-T  PER 
TSTAF  Tp2 
-TP  ER 


31  Tl 

V82FL  AGS 
ENDCF  JCB 


‘ 1 73 
174 
0 1 7 5 


< 176 
•>177 
178 


179 

7193 


RFF  6 
REF  7 
REF  7 

RFF  36 
REF  5 
REF  99 


LAST 
LAST 
LAST 

LAST  650 
LAST  7C9 
L AST  709 


22  ,‘*420 
22,3421 
22,  3422 
22  ,3423 
22,  3424 
22,  34?S 
22,3426 
22,  3427 


43345  1 
02132  0 
02176  0 
02132  0 
77776  1 
3 4752  0 
S5'53r  1 

C 5155  0 


708 

709 
70  9 


T1CKTFF  OLOAD 


STORE 
EXI  T 
CAF 
TS 
TC 


DAO 

TFF 

T S TAR  T82 
TFF 

•31  T2 
V82FLAGS 
ENDOF  JCB 
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CAI  L STATE  VECTOR  UPDATE  FOR  THIS  SHIP. 


35  K FT  MIN  PERIGEE  HEIGHT  FOR  MOON(-27)M 
300  KFT  (-29) M FOR  EARTH 

PAD  37 -B  RADIUS.  SCALED  AT  I-29)M. 
INDICATE  EARTH  SCALING  FOR  SR  30.  1 

COMPUTE  MOON  PAD  RADIUS  FROM  RLS  VECTOR. 
S CALEO  AT  (-27  >M  . 

INDICATE  MOON  SCALING  FOR  SR30.  I 
CALCULATE  ORBITAL  PARAMETERS 


PRESENT  TIME  - TIME  VB2G0FF1  BEGAN 

SAVE  IT 

SR  30.  1 SETS  -TPFR=0  IF  H PE  R L/ 

HP  ER  M IN  ( 30P  OR  35)  KF  T. 

(-TPEP  = 0 ) 

(-TPER  NON  ZERO)  TFF  WAS  NOT  COMPUTED, 
BJT  WAS  SET  TD  59M59S.D0NT  TICK  TFF,  30 
TICK  -T  PEP.  DISPLAY  80TF. 

-TPFR  CORRECTED  FOR  TIME  SINCE  V82G0FF1 
BEGAN. 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  -TPER 


I-TPER=0)  TFF  WAS  C 0M  PUT6  C.  TI  CK  TFF. 
no  NOT  TICK  -TPFP  .DISPLAY  TFF,  3 UT  NUT 
-TPER. 

TFF  CORRECTFD  FOP  TIMF  SINCE  V82GQFF 1 
BFGAN. 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  TFF. 


GAP: 


ASSEMBLE  PE  V I S ION  56  OF  AGf  PROGRAM  ZERLINA  BY  ZOROASTER 


L 93' 


0183 
3184 
: 1 85 
0 186 
) 187 
0188 
0 168 
O'*  8 '7 
01<?0 
7 191 

01  q? 
0193 
3193 
019A 
0 198 
-•196 
C l 97 
0193 

A 199 

o?or 

3231 

0202 

0 20  0 

02  04 
0205 

3236 
0207 
0 ?0  8 
123  9 
■/] 


PEF 

PEF 

RFF 

RFF 

REF 

RFF 

PFF 

PEF 

i i r 
RFF 
RFF 

PFF 

RFF 

RFF 

REF 


2 Cft 

1 

3 

12 

14 

AO 


l A ST  701 
I AST  70  1 
LAST  7C8 


LAST  60  A 
LAST  698 
LAST  7l 
LAST  7"7 


iC  LAST  698 

7 LAST  708 
27  LAST  7F  7 

8 LAST  709 
2 LAST  707 


21  LAST  7C7 
fc  t A ST  709 
297  I AST  7 10 


31  LAST  710 


22 , 3 A30  2 A 7 A7  1 

22,  3a  3 1 7 1C  A 3 0 

22  ,3432  10  LOO  0 

22,  3 A 3 3 C 3A A 1 0 
22, 1A38  3 7725  G 

22,3935  0 5072  1 

1043 

, • 

22 , 3A  ’7  0A062  1 

22, 3 A AO  C 5272  0 
22  , 3 AA 1 3 A 777  1 

22,  3AA2  C 5 214  0 
EA, 1 531 
22,3443 

22, 3 AAA  AACtA  C 
22, 3A45  3 6257  1 

22 , 7 A A 6 7 l c 30  1 

22,  36  6 7 ff.  000  1 
22.3A50  0 3A5 1 1 

22,  3451  0 5272  0 


TICKTFST  C.AF  BIT5 

MASK  EXTVBACT 
CCS  A 
TC  DOTICK 

CAF  PR ! 025 
TC  NOV  AC 

p B ANK=  EXTV8ACT 
2CA0R  ENOEXT 

TC  TASKOVER 

DOTICK  CAF  IS  EC 

TC  WAITLIST 

FRANK=  TFF 
2 C ADR  TICKTFST 

CAF  THREE 
MASK  V82  FLAGS 
INDEX  A 
TC  ♦ 1 

TC  TASKCVFR 


HI  F 
REF 
PFF 
REF 
RFF 
REF 
REF 
PEF 
RFF 
RFF 
RE  i 


8 

95 

1 7? 

32 


°6 
1 3? 
5 
3"» 


I AST  710 
LAST  673 
I A S T 707 
LAST  7 10 
LAST  710 
I A ST  710 
I AST  7 10 
I A ST  710 
I AST  709 
LAST  710 


22  ,3A62 
22,  3 A 5 3 
22  ,3AS6 
22 ,3455 
22,  3A56 
22  ,3457 
22, 3460 
22, 3661 
22 , 3 A62 
22,  3 AC  3 
22 , 3 A6A 


C 3A60  0 
3 A 7 7 7 1 
5A  001  1 
2 A 7 55  1 
t 1*532  0 
0 5272  0 

2 A 777  1 
5 A CC1  1 

3 A755  1 
21*534  0 
0 5272  0 


TC 

TFF  TICK  CAF 
TS 
CAF 
DA  S 
TC 

TPERTICK  CAF 
TS 
CAF 
DAS 
TC 


T PERT  ICK 
1 SEC 
L 

7 ERO 
TFF 

T ASKGVER 
1 SEC 
L 

ZERO 
-TPFR 
TA  SKOVER 
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THIS  WAITLIST  PROGRAM  PERPETUATES  ITSELF 
GNCF  A SEC  UNTIL  RIT  5 OF  FXTVBACT  =3. 

TFRMINATF  V 8?. CANT  CALL  P NDE  XT  IN  RUPT. 


' 


RE-REQUEST  TICKTFST. 


IF  NO  FLAGBITS  SET  DONT  CHANGE  TFF  OR 
-TPFR,  BUT  CONTINUE  LCCP. 

ONLY  HIT  1 SET.  INCH  -TPER  BY  L SEC. 
ONLY  BIT  ? SET.  INCH  TFF  BY  1 SEC. 


CAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


R 30 


0211 
A 0212 
5213 
02H 
:>  2 1 s 
0 216 
0216 
0217 
C2 1 8 
0219 
AT  220 

A .221 

0222 

1223 

02 24 

0225 

0226 
0227 


R EE 
REF 
REF 
PEE 
REF 


LAST 
I AST 
l AST 


70  7 
737 

71  0 


56  1 
561 


22,  3465  77776  1 V82G3N  EXIT 


22,  3466 
22.3467 
«=  4,1  531 
22, 3470 
22  ,3471 
22  ,3472 
22,  3473 
22  ,3474 


0 ? 5 0 3 1 
44064  0 
C 0003  1 
10  0 6 7 1 
0 512?  0 


PRI  G7 
F I MO  VAC 
T FF 

V82G0N1 


REF  2 LAST  708 
RFF  179  l AST  708 
REF  10  l AST  708 
REF  10  | A ST  708 

RFF  11  I AST  711 
REF  1 


22  ,3475  3 3317  1 

22,  3476  C 4fcl6  1 
22  ,3477  20334  1 

22,3500  C 5574  1 
22,  350  1 C 5574  1 
22  ,3502  0 3475  1 


V82REDSP  CAF 
TC 

CAOR 

TC 

TC 

TC 


V 16N44 
BANKCALL 
GOXDSPF 
B5  OFF 
8 50FF 
V82REDSP 


322 8 REF 
A 02  2 9 

0?30 

3231  RFF 
0232  REF 
'233  RFF 
<234  RFF 
0235  RFF 
3236 

0237  PEF 
0 ?38  REF 
3239  REF 


05  LAST  709 

6 l AST  701 
1 

12  LAST  70  8 

6 LAST  73  1 

7 LAST  708 

4 I AST  700 


22,  3503  C 6C5 1 0 


V823QN1 


TC 


I NTPRET 


22,3504 
32,  3 SC 5 
22  ,3506 
22,3507 
22,  35  10 
22  ,3511 
22, 3512 
. 

72  ,3514 
22,  3515 


52175  0 
01220  0 
45507  1 
262CO  1 
01226  0 
02206  1 
52014  0 
043C4  1 
4r>51 6 1 
45527  0 


NEXTLI KE 


VLGAD  GOTO 
RN 

NEXTL  IMF 
STOVL  RONE 
VN 

STORE  VONE 
BON  GOTO 

MOONTHI S 

MOONGON 

EARTHGCN 


0240 

3241  REF 
0242  RFF 
<'243  REF 
3244  REF 

0245  REF 

0246  RFF 
3247 

0248  PEF 
0 249 

0 250  REF 

0251  REF 
3252  REF 
P2s3  ref 
0254  PEF 
3255  RFF 
1 256  RFF 
0257  RFF 


? 

3 

2 


3 

3 

2 


l A ST  709 
LAST  708 

LAST  73  8 
I A ST  709 


L AST  7 11 
LAST  708 
IAST  711 
LAST  70  8 
LAST  711 
I AST  709 
LAST  709 
LAST  709 


22 ,3917 
2 2,  35  20 
22  ,3521 
22, 3522 
32, 3 923 
22,3524 
22,  3525 
2?  ,3526 
?? ,?  5 27 
22,  35  3o 
2?  ,3531 

22. 3532 

22. 3533 

22 .3534 

22. 3535 
22  ,3536 
22  ,3537 


71214  0 MOONGON  SET  DL PAD 

03475  1 V92EMFLC- 

0 4001  1 1 /RTMUH 

14037  0 STOOL  TFF/RTMU 

C5364  0 MI  NPFRM 

26172  1 STOVL  HPERMIN 

02021  0 RLS 

c 3 C 4 fc  1 AHVAL  GOTO 

45536  0 V32GON2 

71214  0 EARTHGON  CLEAR  OLOAD 
0 3675  0 V82EMFLG 

04003  0 1/RTMlJE 

14C37  0 STOIH  TFF/RTMU 

05366  l MINPFRF 

16172  1 STOOL  HPERMIN 

C6336  1 R PAD 

36174  0 V32GON2  ST  CAL  L RPAOTEM 
45551  1 SR30.1 
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AVERAGE  G CN.  USE  CURRENT  STATE  VECTOR 
FOR  ORBITAL  PARAMETER  CALCULATIONS. 

LESS  THAN  LAMBERT 

V82G0N1  WILL  PERFORM  ORBIT  CALCULATIONS 
ABOUT  PROPER  BODY  APPROX  3NCE  PbM  SEC. 


WITHOLD  V 1 6 N4  4 UNTII  FIRST  ORBIT  CALC 
IS  OONE  • NOTE:  V82G0N1  (PRI  07,  FINDVAC 
jnB)  IS  COM  PL  FT  ED  BEFORE  V82G0N  (PRI07, 
NOVAC  JOB). 

MONITOR  HAPO,  HPFR  , TFF 


TERM  THIS  TELLS  V82G0N1  TO  KILL  ITSELF. 
PROC  DITTO. 

RECYCLE 


THIS  EXEC  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SFC  UNTIL  BIT  5 CF  Ex  T V B ACT  =3. 
HOLDS  OFF  CCS  NEW  JOB  BCTWFFN  RN  AND 
VN  FFTCH  SO  RN  , VN  ARE  FROM  SAME 
STATE  VECTOR  UPDATE. 

RN  AT  (-29  )M  FOR  EAR  TH  OR  MOON 

VN  AT  (-71M/CS  FOR  EARTH  OR  MOON 

FLAG  INDICATES  BODY  ABOUT  WHICH  ORBITAL 
CALCULATIONS  ARE  TO  BE  PERFORMED. 

IF  SET  - MOON  , IF  RESET  - EARTH. 


INDICATE  MOON  SCALING  F0»  SR30.1 
LUNAR  PARAMETERS  LCACEP  HERE  EOF  SR30.1 


SCALED  AT  C - 27 IM  . 


INDICATF  EARTH  SCALING  FOR  SR30.1 
EARTH  PARAMETERS  LOADED  HERE  FOR  SR30.I 


COMMON  CODE  FOR  EARTH  £ MOON. 


GAP:  ASSEMBLE  REVISION  56  CF  AGC  PRCGP AM  ZEHLINA  BY  ZCROASTEK 

l R30 


Q:  I ? OCT.  21,  1970  KISSING 
USER'S  PAGE  NO.  7 


.069  PAGE 
E9  S3 


712 


0253 
0 2 5Q 
02SC 
0261 
3262 
0,263 


0269 

0265 

0266 


P FF  ’1 
REF  H 

REF  91 
RFF  10 

REF  180 
RFF  13 
REF  2 


LAST  710 
LAST  7 10 

LAST  710 
LAST  710 
LAST  711 
I AST  70  8 
LAST  711 


22  ,359- 
22 i 1 59  l 
22,  3592 
22  ,3593 
22,  3599 
22, 3595 
22  ,3596 
22,  3197 
22  ,3550 


77776  1 
? 9797  1 
7 109  3 0 
0 0006  1 
1 55C3  0 
3 9777  1 
0 9616  1 
C 1 7 36  1 
C 3503  l 


V82GQN3 


EX  IT 

CAF  RIT5 

MASK  r X TVS  AC  T 

EXTEND 

RZF  FNOEXT 

OAF  1 SEC 

TC  RANKCALL 

CAPR  DELAYJCB 

TC  V 82GCN  1 


SEE  IF  ASTRONAUT  HAS  SIGNALLED  TERMINATE 

YES,  TERMINATE  VR  R2  LOOP 

WAIT  ON E SFCONO  BEFORE  REPEATING 
0R8ITAL  PARAMETER  COHPUT  AT  I(JN  . 


REF 


SPI.RET 


0 267 


V82GCN3 
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PC 268  SUBROUT 
R >269  MCO  NC: 
10271  MOO  BY: 
R)273  MOD  NO: 
RT?7S  MOO  MO: 
R 0?  77  MOD  NO: 
R02 79  PCD  NC: 
^ <>281  MOD  NO: 
R328? 


[NE  NAM  F:  SR  30.1 

0 

RR  BAIRNSFATHER 

1 MOD  BY: 

2 MOD  BY  : 

3 MOD  BY 

4 MOD  BY 

5 MCD  BY: 


RR  PA1RVSFATHFR 
RP  e A I RNS  F AT  HER 
A LC  NSC 
ALONSO 

RR  6 A I RNS  FAT  HER 


DA  TE  : 11  APR  67 
DATE:  14  APR  67 

DATE  : 1 1 DEC  67 

DATE  : 26  MAR  68 
DAT  E:  6 AUG  68 


DA  TF  : 16  FEB  67 

LOG  SECT  ION:  R 32 

SP3  0.  1 CHANGED  TO  ALLOW  MONITOR  OP  ERN 
ADD  OVFL  CK  FOR  RAPO 
SURRDUT  INF  REWR  ITTEN 

PROG  MOD  TO  HANDLE  DIF  EARTH/MOON  SCALE 
OVFL  C<  FOR  HAPO  C HPER. VOIDS  MOD  «2. 


R"284  NEW  FUNCTIONAL  DESCRIPTION:  ORBITAL  PARAMETERS  DISPLAY  FOR  NOUNS  32  AMD  44. 

R',?R4  $R  3-  .1  CALLS  TFKDNMU  AN)  TFFRP/RA  TO  CALCULATE  RPFR  (PERIGEE  R A C HIS  ) . 

Ri '2 87  PAPO  (APOGEE  RADIUS),  HPER  (PERIGEE  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAF 
<•1288  LANDING  SlTF),  HAPC  (APOGFE  L E I GHT  AS  ABOVE),  TP  ER  (TIME  TO  PERIGFE), 

R3289  TFT  (TIME  TO  INTERSECT  300  KF  T ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITF). 

T IE  HPER  IS  GREATER  THAN  OR  E0UA1  TO  HPERMIN,  CALCULATES  TPER  AND  STORES 

< 291  NEGATIVE  IN  -TPFR.  OTHERWISE  STCRFS  +0  IN  -TPER.  WHENFVER  TPER  IS 
R) 27 2 CALCULATEC,  TFF  IS  NOT  COMPUTABLE  AND  DEFAULTS  TO  -59MI  N 59SEC.  IF  HAPO 

R 0293  WOULD  EXCEED  9999.9  N M , IT  IS  LIMITED  TO  THAT  VALUE  FOR  DISPLAY. 


>,  >'4  ADDENDUM:  HAPO  AND  HPER  SHOULD  BE  CHANGED  TC  REAO  HAPOX  ANC  hPEPX  IN  THE 
RC<2  98  ABCVF  REMARKS. 


1 ( >96 
R n297 
RO?  98 
10  299 
RD  303 
! 

RD302 
R3393 
1 0304 
R 0305 
RC107 
1 0309 

R331D 
• ill 
1931? 
RA  313 
R'  314 


P-  71  5 
R ; 3 1 *. 
1 f 3 17 
R331R 
ill  319 
1 0 320 


CALLING  SEQUENCE: 

SUBROUTINES  CALLEC: 
NORMAL  E XI  T MODE  : 
ALARMS: 

CUT  PUT:  RAPE 


RPFR 


HAPOX 
HPFPX 
TFF 
-TPER 

FRASABLE  INITIALIZATION  REQUIRED 


( -29  ) M 
(-27)  M 
(-29  ) M 
(-27)  H 
(-29)  M 
(-29)  M 
(-28)  CS 


CALL 

SR  30.  1 

TFFCONHU,  TFFRP/RA,  CALCTPEft,  C A LC  TF  F 
CALLING  LINE  +1  (STILL  IN  INTERPRETIVE  MODE) 
NONE 


FART  H 
MOON 
EART  H 
MCGN 


TFF  / 


(-29)  M 


AFCGEE  RADIUS  EARTH  CENTFRED  COORD. 

MOON  CENTERED  COORD. 

PFRIGEF  RADIUS  FAR  TH  CENTERED  COORD. 

MOON  CENTERED  COORD. 

APOGEE  ALTITUDE  ABOVE  PAP  CP  LAND.  SITE  MAX  VALUE  LIMITED 
PERIGEE  ALT.  ABO VF  °AD  UR  LAND.  SITE  MAX  VALUE  LIMITED 
TIME  TC  300  K FT  OR  3C  KFT  ALTITUDE 
TIME  TO  PERIGEE 

RFC  I PRCC  AL  CF  PROPER  GR  AV  CONSTANT  FOR 
FARTH  OR  MOON  = 1/SQ1TI  MU)  . 

STATE  VECTOR 
STATE  VECTOR 

RADIUS  OF  LAUNCH  PAD  OR  LUNAR  LANDING 
SITE. 

( 3C0  OR  36)  KFT  MI  NI  MUM  PFR1GEE  ALTITUDE 
ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE. 


VONF  (-7)  M/CS 
RPACTER  (-29)  M EARTH 
(-27)  M MCCN 
HP  FPU  IN  ( -29)  M EAR  TH 
(-2  7 ) M MOON 

VR2EMCL3  ( I NT  SW  R I T » RE  SE  T f CR  EARTH,  SET  FOR  MOON. 


TO  9999.9  NM. 
TC  9999  .9  NM. 


R) 32 1 DEPP  IS:  QPBFT,  p 


DL  , S2 


AP:  ASS  £WBL  t 


FVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


I R 30 


32?  PEF 


COUNT*  S i/S R30S 


0323 
C 324 
3325 
43326 
• 327 

A332R 
AC329 
A 33  3 0 
A ''  3 3 1 
\ 033? 
A3  333 
4^334 
4C  335 
3336 
0 337 
033P 

0339 

0340 
3 34] 
0 34? 
'34  3 
3 364 
0345 
036  6 

0-347 
034R 
A1  34? 
0 3 V' 
0351 
3352 
A '353 
A0354 
C 355 
>356 
3357 
0358 
_ 035" 
3360 
0361 
336? 
0363 
0 364 

AO  36  5 
4 0366 
0 36  7 
036R 
0369 
0 3 7? 


PEF  5 
RFF  1 
RFF  13 

REF  14 
REF  e 

REF  9 

REF  1 

REF  1 


RFF  4 


RFF  6 


REF  3 
REF  4 
REF  1 

REF  5 
RFF  270 


1 - 


l AST  608 


22. 3551 

22.3552 
22,  3553 


4400  1 C S«  30.  I SE  IPO  STO 
OOOG1  0 0 

CCC51  0 S2 


LAST  711 
LAST  7 11 

LAST  714 

I AST  711 

I AST  7H 


22, 3654 
22  ,3555 
22,  3 c e 6 

22,  3557 
22  ,3  560 
22,  3561 
22  ,3Sh? 

22 .3563 

22. 3564 
22  ,3565 
2 2,  3566 
22,  .3  567 
22  ,3570 


7 7 5 14  0 
03755  0 
45565  0 
02200  1 
7775?  1 
26200  1 
0 2206  1 
77752  1 
02206  1 
77624  1 
57343  1 
77624  1 
57411  1 


80FF  VLOAD 

VP  2EMFLG 
TFF  CALLS 

RONF 

VSL2 

STCVL  RONE 
VONF 

VSL2 

STORE  VONF 
TFFCALLS  CALL 

TFFCCNPU 

CALL 

T FFRP/PA 


LAST  711 


22  ,3571  77625  0 

22,3572  02  174  l 

22,  3573  6 4 4 1 4 1 


OSU 

RPADT FM 
90FF  SR  2R 


LAST  714 


LAST  615 
LAST  707 


LAST  714 
LAST  66  1 


22,  3574 
2? ,3575 
22, 3576 
22  ,3577 
22  , 3 6C0 
22,  360  1 
22 ,360? 
22,  36C 3 

22. 3604 

22.3605 


03755  C 
45576  1 

77624  1 
45636  0 

16  113  0 

00017  1 

77625  0 

C2 l 74  1 

00161  1 
64414  1 


CALL 

STCRHAPC  STOOL 

OSU 

STORE 

SOFF 


V82E  MF  LG 


'I  A XC  HK 
HAPOX 
R PE  R 

RPAOTF  M 

MPAC  *■  4 
S R2R 


LAS!  7 1 • 52  , 3 6 

22,  3607  456  10  1 

22  ,3610  77624  1 

LAST  714  22,  361  1 45636  0 


V82  EMFLG 
*1 

CALL 

MAX  CH  K 


:12  OCT  . 


KISSING  .064  PAGE 


714 


USER  • S PAGE  NC.  9 


E4  S3 


INITIALIZE  PUSHDOWN  LIST. 


S«30. 1 INPUT:  PONE  AT  (-?Q)M  FARTH/MOON 
VONE  AT  (-7IM/CS 

TFFCONMU  »TFFRP/  P A,  CAL  CTPER  AND  CALCTFF 
CALLS  REQUIRE  : 

EARTH  CENT  EP  EC  (NO  RESCALING  REQUIRED) 
RONE  SCALED  TO  R-29  M 

VONE  SCALED  TO  B-7  M/C  S 

MOON  CENTERED  (RESCALING  REQUIRED) 
RONE  SCALED  TO  B-27  M 

VONE  SCALED  TO  B- 5 M/CS 

OFF  FDR  EA3TH  , ON  FOR  MOON. 


TEFPP/RA  COMPUTES  P.APC.PPER. 
RETURNS  WITH  RAPC  IN  O(MPAC). 


NEED  HAPO  AT  (-29  )M  FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALE  FROM  (-27)  M. 
IF  EARTH  CENTERED  ALPEADY  AT  (-29JM. 
OFF  FOR  EARTH  f TN  FCR  MOON. 

IF  HAPO  > MAXNM,  SET  HAPO  =9999.9  NM. 
OTHCRWISF  STORE  ( RAPC-RPADTE  M)  IN  HAPO, 


GIVES  HP ER  AT  ( -29  )M  EARTH,  (-27)M  MOON. 
SAVF  THIS  FOR  COMPARISON  TO  HPERMIN. 

NFED  HP  FR  AT  (-29)M  FOR  DISPLAY. 

IF  MOON  CENTEREC,  RESCALE  FROM  (-27)M. 

IF  FARTH  CENTFRED  ALREADY  AT  (-2Q)M. 

OFF  FOR  EARTH,  ON  FOR  MOON. 

IF  HPE3  > MAXNM,  SET  HPFR  = 9099.9  NM. 
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L R30 


0371 

3372 

0373 

0 37* 
3 37  S 
0376 
3 377 
03  78 
0379 
3390 
03  8 1 
038? 
T3R? 
0384 
0 38  5 
0386 
r 387 

3 ?R« 

03  89 
0 390 


REF  2 LAST 

REF  271  LAST 

REF  5 LAST 

RFF  1 

PFF  A LAST 

REF  1 

P.  EF  ? I AST 

REF  1 

REF  6 1 AST 

REF  6 LAST 

PFF  6 LAST 

RFF  1 

RFF  11  LAST 
RFF  8 l AST 


319  22  ,3612 

714  22,  3613 
22,3614 

71  1 22,3615 

22,  3616 
22  ,3617 
60S  ? 2 * 36  2C 

22,  362  1 
2?  ,3622 
7 14  22,  3623 

22,  3624 
22  ,3625 
710  22,3626 

715  22,3627 
2.2,36  20 

7 1 4 22,  36  3 1 

22,3632 
22,  363  3 
7 1 1 22,  3634 

714  22,3635 


16115  0 
00161  1 
51025  1 
02172  1 
45622  c 
52145  0 
C6  520  C 
45626  1 
45145  0 
CCC17  1 
57447  1 
77676  0 
1 6 1 ? 4 0 
02172  1 
4 5 C 1 5 l 
02174  1 
57452  0 
77676  0 
36132  1 
00051  0 


STORHPER  STOOL  HP  ERX 

MPAf.  *4 
DSU  BPL 

HPFRM  IN 
OOTPFR 
OLOAD  GOTO 

H 16  ZEROS 
SKI  PTPFR 

OOTPFR  OLOAO  CALL 
RPEP 

CALC  TPER 

OCOMP 

SKIPTPER  STCOL  -TPER 

HPERM  IN 
DAO  CALL 

RPAO  TE  M 
CAICTFF 


OCOMP 
STCALL  TFF 
S 2 


3 ' i 

0392  RFF 
G 393 
03  94 

0395  RFF 
0395 

0397  RFF 


1 


2 LAST  715 


3 LAST  7 15 


22,  36-36  Me  2 5 1 

. 

22, ‘•640  45(43  1 
22,  364  1 43415  0 

22  ,364?  05646  0 

2 2,  ?6 4 3 43545  1 

22,  3644  05646  0 


MA  XCHK 


DSU  BPL 

MAXNM 

+3 

DAO  RVQ 

MAXNM 

DLCAO  RVO 

MA  XNM 


0 308 

3393 


22  ,3645  01065  0 MAXNM  20CT  01065  05603 

22, 3646  05603  1 
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USER*  S PAGE  NO.  10  E4  S 3 

STORE  (RPER  - RPADTEM)  INTO  HPERX. 

HPEP.MIN  AT  (-29)  M FOR  EARTH,  (-27JM  MOON 
IF  HR  ER  1/  HPfcRMIN  ( 300  OR  35)KFT, 

THFN  ZERC  I NT  0 -T  PFR. 

OTHERWISF  CALCULATE  TPFR. 


TPER  IS  PUT  MEG  INTO  -TPER. 


HPERMIN  AT  (-29JM  FOR  FARTH,  (-27)M  MOON 

RPAOTEM  AT  ( -?  9 ) M FOR  EARTH,  (-27  )M  MOON 
GIVES  59M59S  FOR  TFF  IF  RPER  G/ 

HPERMIN  ♦ RPAOTEM.  (TPER  WAS  NON  ZERO) 
OTHERWISF  COMPUTES  TFF.  (GOTO) 


IF  C ( MP  AC)  > 9999.9  NM,  MPAC  = 9999  .9  NM 
OTHERWISE  C(MPAC)  = 8(M.PAC). 


(JSEO  BY  P30  - P37  ALSO) 
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049  PAGE  717 


BURN,  BAOY,  BURN  — MASTER  IGNITION  ROUTINE 


USER'S  PAGE  NO.  1 EL  S3 


0001 
0007 
3303 
000^ 
0005 
ROODS 
1 0008 
R3D10 
R0012 


36,2024  BANK  36 

REE  3 LAST  40  36,2000  SETLOC  P40S 

36,  2024  BANK 

RFF  3 LAST  648  E7  ,1455  EBANK  = WHICH 

REF  3 I AST  40  Tn  40 : 2 20*  COUNT*  IS/P40 

TEE  MAST  FR  IGNITION  ROUTINE  IS  OES  IGN  ED  FOR  USF  BY  THE  FOLLOWING  LFM  PR  CG  RAMS : PI  2 , P4C  , P4?  , P6 1 , P63. 
IT  PERFORMS  ALL  FUNCTIONS  I MPECI  ATELY  ASSOCIATED  WITH  APS  OR  DPS  IGNITION:  IN  PARTICULAR,  EVERYTHING  LYING 
BETWEEN  THE  PRE-IGNITION  TIME  CHECK  --  ARE  WE  WITHIN  45  SECONDS  CF  TIG?  — AN  C TIC-  + 26  SECONDS,  WHEN  DPS 
PROGRAMS  THRCTTLE  UP. 


< M VARIATIONS  AMONG  PROGRAMS  ARE  ACCOMODATED  BY  MEANS  OF  TABLES  CONTAINING  CONSTANTS  (FOR  AVFGE  XI  T,  F OF 

R3315  WAITLIST,  FOP  PINBALL)  AN  D TCF  INSTRUCTIONS.  USERS  PLACE  THE  ADRES  OF  THE  HE  AO  OF  THE  APPROPRIATE  TABLE 
R0017  (CF  P61TABLE  FCR  P6ILM,  FCR  EXAMPLE)  IN  ERASABLE  REGISTER  'WHICH'  (EM.  THE  IGNITION  ROUTINE  THEN  INDEXES  BY 

R^Dl-i  WHICH  Tfl  OBTAIN  OR  EXECUTE  THE  PROPER  TABLE  ENTRY.  THE  IGNITION  ROUTINE  IS  IN  IT  I AT  EO  BY  A TC  F BUP.NBABY, 

R0C21  THROUGH  EANKJUMP  IF  NECESSARY.  THERE  IS  NO  RETURN. 


R 0022 


THf  MASTER  IGNITION  ROUTINF  WAS  CONCFIVFO  AND  EXECUTED,  AND  (NOTA  BFNE)  IS  MAINTAINED  BY  ADLER  AND  PYLES. 


RDD74 


HONI  SOI  T QUI  MAL  Y PEN SE 


R0025 
R00  76 
R0027 


********************************  ******** 
TABLES  FOR  THE  IGNITION  ROUTINE 
<******************«******************** 


3 0C2R 


NOLI  SE  TANGERE 


D029 

0030  RFF  1 

0031  REF  1 

0032  REF  1 

0033  RFF  34 

3 3 34  REF  1 

0035 

0036  RFF  4 

3337  REF  1 

0037  RFF  1 

00  3R  REF  1 

0039  REF  1 

0040  RFF  1 

RDD43 


LAST  7L0 


LAST  717 


36,  2024  C 1512  C 
36  ,2025  1 2327  1 

36,2026  1 2611  1 

36,  2027  1 306  1 1 

36  ,2030  1 5272  1 

36, 2031  1 2150  0 

3(>,  2032  00000  I 

E 7 ,1455 

36, 2033  c; 102  0 
36  ,2034  66067  0 
36,2035  1 2402  1 

, 

36  ,2037  1 2523  0 


P 1 2 TAB  LE 


VN  0674 

TC  F ULLGNOT 
TCF  COME  A 1 1.3 
TC  F GOCUTOFF 
TCF  TASKOVER 
TCF  PI  2 SPOT 

DEC  0 

E 8 ANK=  WHICH 
2CADR  SE  R VE  XI  T 


r ) 
( 1) 
(2  ) 
(3) 
( 4) 
(^  ) 
( 1 

(7  ) 


TCF  OISPCHNG  (11) 

TCF  WAI  TABI  T (12) 

TCF  P12IGN  ( 13) 


NO  ULLAGE 


004  4 
0045 

)?46 

0047 

0048 
0040 


REF 

REF 

RFF 

RFF 

RFF 


7 LAST  717 
1 
1 

35  l A ST  717 


, 

. 

1 . 

36  ,204  i 
36,2044 

, 


1 2613 
1 3046  1 
1 5272  l 
1 2 150  0 


P40T ABLE  VN 
TCF 
TCF 
TCF 
TCF 
TCF 


u 6 4 C 

JLLGNOT 
CUMF  AI  L4 
GOPOST 
TASKOVER 
P40SP0T 


(2  1 
( 3) 

(4  ) 

(5) 


GAP:  ASSEMBLE  REVISION  5fc  OF  AGC  PROGRAM  ZfcRLINA  BV  ZOROASTER 


L BURN,  BABY,  PURN  — RASTER  I GMT  I CN  ROUT  INE 


0050 

0051 

°EF 

36 , 20A6 

5 LAST  210  E6,  1a22 

OA 300  C 

0052 

REF 

1 36.2CA7 

C3666  1 

3352 

P EF 

1 36,  2C50 

7AC66  1 

0053 

REF 

? 36,2051 

1 2372  1 

005A 

REF 

2 LAST  717  36,2052 

1 256?  0 

33  55 

REF 

l 36,  205  3 

1 2506  1 

0056 

R0Q58 

RFF 

l 36  .205A 

1 312?  1 

DEC  22A 0 
EBANK  = OMEGAO 
2CAOK  STEERING 

TCF  PAOSJUNK 
TCP  W A IT  AB  IT 

TCF  PAOIGN 
TCF  REPAC’ALM 


OOSO 
0061 
3362 
OOfeT 
0063 
3)6* 
0065 
R 0066 


PFF  1 

REF  6 LAST  718 

REF  1 

REF  1 

RFF  1 

RFF  1 


?6,  20  55  1 5 153  0 

36.2056  77776  1 

E 6,  1 £ 2 2 

36.2057  02 AO 7 0 

36,2060  6 A 066  0 

36,  706  1 1 2AC A 1 

36,2062  I 2566  1 


A1TABI.E  TCF  PA1SP0T 
DEC  - 1 
E 9 A NK=  OMEGAO 
2CADR  C A L C N 8 5 

TCF  COMMCN 
TCF  TIGTASK 


006  7 
0C68 
3360 

0070 
00  71 

3372 
0073 
00  74 
0075 
0075 
3376 
0C77 
C f 78 
3379 
R 0081 


PFF 

RFF 

RFF 
R E i 
PEF 

REF 

REF 

REF 

REF 

PFF 

PEF 


I AST  717 
LAST  717 
LAST  717 


LAST  718 
I AST  7 18 

I AST  718 
LAST  718 


3 6,  20  6 3 

, 

36,  206  5 

. 

36,2067 

36,  2070 
36  ,2071 
E 6 , 1 A 22 
36,  20  7 2 
36  ,20  73 
36,  2C7A 
. 

36,2076 
36,  2 C 77 


C 1 A 50  1 
1 232A  1 
1 2613  0 
1 30A6  1 
1 5272  1 
1 2150  C 
0A526  l 

03666  1 
7A066  1 
l 2372  1 
1 2562  0 
1 2 5A0  0 
1 .3  A 2 1 1 


P A2TARLF 


VN  06A0 

TCF  WANT  A PS 
TCF  CrJMFAILA 

TCF  SOPOST 
TCF  TASKOVER 

TCF  PA2SP0T 
DEC  2390 
EBANK  = OMEGAO 
2CA0R  STFFR1NG 


TCF  PAOSJUNK 

TCF  WAITABIT 

TCF  PA? I GN 

TCF  RA  2 STAGE 


00  82 
(iOfll 
0C8A 
3385 
0086 
0087 
3388 

0089 

0090 

0090 

0091 
3392 


PFF  3 LAST  7 1 7 

RFF  2 LAST  717 

REF  1 

REF  37  LAST  7l8 

RFF  1 

RTF  5 LAST  717 

REF  2 l A ST  717 

RFF  2 1 A ST  717 

REF  A LAST  718 


36 ,2  ICO 
36,  2 If  1 
36,21*2 
36,  2103 
36.210A 

36.2105 

36. 2106 
E7  , l A55 

36.2107  02102  0 

36,  2 1 10  66067  0 

36,2111  l 2A02  1 
36,  2112  1 256?  0 


3662 
TCF  ULLGNOT 

TCF  CDMFA  IL  3 

TCF  V99RECYC. 

TCF  TASKOVER 

TCF  P6  3SP0T 

DEC  22AO 

EBANK  = WHICH 
2CA0R  SERVEX  IT 

TCF  D1SPCHNG 

TCF  WAITABIT 


P63  TABLE  VN 


1 2611  1 
1 2776  1 
l 5272  1 
1 2153  0 
C A 300  0 
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PAGE 


718 


7 FI  Y .0  A9 


USER'S  PAGF  NC.  ? 


F7  S3 


(6  ) 

I 7) 

(111 
( 1 2 1 
(13  ) 

( 1A) 


l 7) 

(11  ) 
( 121 


(0) 

( 11 
(2  1 
( 31 
(A  1 
(5  ) 

(61  ULLAGE  ON  AT  TIG-6  SECS. 

(71 

(1  1 1 
( 121 
(13  1 
(1  A ) 


(11 
(2) 
(1  ) 
( A! 
(5  ) 
(6  1 

(7  ) 


( 11  ) 
(12  ) 
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L BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 

0093  REF  1 36,2113  1 2465  0 TCF 
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USER'  S PAGE  NC.  3 E7  S3 


112 
• 1 13 
1114 

0115 

0116 
0117 
OllR 
1119 
01  20 
0 121 
1122 
0123 

Rr>  126 


RFF 

RFF 

REF 

REF 


71  8 
71  8 
71  7 
718 


36.2114 

36.2115 
36,  21  16 

. 

3 £ » 2 X 2 0 
. ' 1 

• 

36. 2123 

36.2124 

36.2125 

36. 2126 
36  ,2127 


.1477  1 
1 2327  1 
1 26  11  1 
1 3061  1 
1 5272  1 
12  122  0 
12  123  1 
12  124  0 
12  125  l 
1 240?  1 
1 2562  0 
1 2533  1 


ARPTARIE  VN 
TCF 
TCF 
TCF 
TCF 
NOOP 
NOOP 
NOOP 
NOOP 
TCF 
TCF 
TCF 


0663 
JLLGNOT 
COMFAI  L3 
GOCUTOFF 
T ASKOVER 


DISPCHNC 
W A I TABI T 
ABRTIGN 


(2  ) 
( 31 
(4  ) 


ROl  2 7 
U 128 
R 1 1 29 


**************************  ***********  <r  * 

GENERAL  PURPOSE  IGNITION  ROUTINES 
*************************************** 


GROUP  4 RESTARTS  HERE 


1132 

0133 

0134 


REF  134  LAST  7 10 
REF  6 msT  320 
REF  6 LAST  719 


36,  2 122  3 4 7 c ^ 1 

36  , 7 1 3 3 55*  507  C: 

, 1 5 5 ' 5 1 


ZERO 

PVTOTAL 

DVTOTAl 


EXTIRPATE  JUNK  LEFT  IN  CVTOTAl 


1 14  t 
0142 
' 1 43 


PTF  ?3  LAST  704 
REF  2 LAST  15  1 


36,2141 


r 0006  1 

3 1442  1 
5 3'  512  1 


0173 
1 74 
1175 
t 176 


36,  2142 
36  ,2143 
36, 2144 
36,2  145 


C 0004  0 
} 4674  0 

75564  1 

C 0003  1 


6 LAST  718 


u 1 82 
'183 
OlS5 
0186 
7184  1 


PET  ? LAST 

PFE  7 LAST 

REF  2 LAST 

RFF  1 

RFF  LA  ? LAST 


. ’ 

. 1 

36,  2153 
3ft, 2150 
36, 2 lc  1 


PC 2S  POT 
PI  2 SPOT 

P6  3S»0T 

P40SPOT 


P40SP0T 
P40SP0T 
P 4 1 SPOT 
CNT ONDEX 
BANKCALL 


(51  IN  P63  C.LCKTASK  ALREADY  GOING 

(6) 

MUST  BE  HANKCALLEO  FOR  GENEPA1  I ZED 
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ZORQAST 6R 


BURN,  0APY  , PUFN  — “ASTER  I CN  IT  ION  ROUTINE 


'•186  2 
3 137 
C.  l 8 7 1 
; 1 8ft 
01  89 
01891 
71892 
1 ■ 

0191 

HR? 

0193 

0 104 

0195 

0196 
3177 

01  98 
0190 
3233 
0201 
9 20? 

0203 

0204 
32*4? 

o2nv4 

0 20  9 
3236 
0207 

0 208 

02  09 
0210 
3211 
9212 

213 


REF 

PFF 

PFF 

REF 

REF 

RFF 

RFF 


REF 
R EF 
PEF 
REF 
REF 
RFF 


LAST 

LAST 

LAST 


711 
719 
7f  8 

7 - 1 

609 


73  1 
704 


123 
7 4 
7 20 


23  1 

720 


720 

7?C 


*6,219? 
36.21M 
36  ,2154 
36,2199 
*6,  2196 
36  ,2197 
36,  2160 

36.2161 

36.2162 
36,  2 163 
36  ,2164 
36,2165 
36, 2 166 
36,2167 
36, 217C 
■’6,2171 

36.21 72 

36.2173 

. 

36,2179 

36,  2176 
76  ,2177 
3 6,  22C(' 

36.2201 

36.2202 
36,  22C3 
36  ,2204 


74663  1 

C 60 e 1 0 P41SP0T 
45345  1 
03442  0 
35142  0 
3404!  O 
61C64  1 
45014  0 
C3347  1 
74202  1 
27C42  1 
64375  1 
000  2 5 0 
01732  0 
77762  1 
25724  1 
09017  1 
64312  0 
01732  0 
35716  1 
7174-3  1 
16310  1 
0GC15  0 
00041  1 

77624  1 GORIOAV 
27553  1 

1 2213  1 


S:SX ! ' ^'7  \ 


CACR 

TC 

DLOAD 

STCALL 

BOFF 


V SL4 

STCALL 

STOOL 


TCF 


ST  CL  OK  ? 

1 NTPRET 
DSU 
T 1G 

3 2 9.  9 SFC 
TOEC  1 
I NI TCDUW 
CALL 
MJ  NFL  AC 
GOMI  OAV 
0 SMPPEC 
MX  V 
VA  TTl 
REFSPNAT 

VICSM) 
PATT  1 
MXV 

RFFSMMAT 
R(CSM  ) 
VUNGRA  V 
G(CSM  1 
TAT 
TDFC  1 

Ml  DTOAVl 
CALL  T- 35 


• 

36, 221C 
36,2211 
36,221? 


53' 442  0 
C CCC6  l 
3 3142  0 
21*442  0 


EXTEND 

DC  A PIPTIMF1 

DXCH  T IG 

EXTEND 

OCA  0 29.  9SEC 

DAS  TIG 


3214 

0219 
0 ?16 

0217 

0218 
3219 

0220 
9221 
32  22 
'223 
j 22  3 
0224 
0226 


REF 

RFF 

REF 

REF 


L AST 
LAST 
I AST 
LAST 


7 20 

52  0 
566 
240 


REF  31  1 AST  7lQ 


16,  ? 2 1 1 
36  ,2214 
36,2215 
36,  2216 
36  ,221  7 
36, 222C 
36,2221 
36  ,2222 
E 7 , 1453 
36  ,2223 
36 ,2224 
. 

36  ,2226 


1*9  1 

53*500  1 
C CCC6  1 
4 3750  1 
21*  500  1 
C CCC6  1 
3 1500  0 
0 5310  0 

02242  l 
74067  0 
0 ‘364  0 
20254  0 


MP  AC 

SAVET- 70 

EXTEND 

DCS  5SECDP 
DAS  SAVET- 30 
EXTEND 

DC  A SAVET- 30 
TC  LONGCAI.L 

EBA  NK=  TTCGC 
2CADR  TIG- 35 

TC  PHASCHNG 


36, 2227 


5332  0 


0226 


CHECKMM 


9:  12  OCT  . 21,  1970  Z Fl  Y 
USER'  S PAGF  NC. 

RETURN 

(5  ) 


.049  PAGE  720 
E7  S3 


CSM  VELOC  ITY  - M/CS*2(7) 

CSM  POS  IT  ION  - M*2(  24) 
f SM  GRAVITY  VEC.  - M/CS*2(7! 

P Fl  flAD  TOEC  1 FOR  WDTOAV. 

MADE  IT  IN  TI  ME. 

TIC  WAS  SLIPPED,  SO  RFSFT  TIG  TO  29.9 
SECONDS  AFTER  THF  TIME  TO  WHICH  WE  DIP 
INTEGRATE. 


DELTA-T  UNTIL  TIG-30 

DELT4-T  UNTIL  TIG-35 


25SP0T  FOR  TIG-39  RF  START. 


GAP: 


ASSEMBLE  RFVISION  56  OF  A3C  PROGRAM  ZFRLINA  BY  ZOROASTER 


L BURN.  6 A BY  i PURN  — MASTER  IGNITION  ROUTINE 


2?? 

9228 

(.22Q 


0 2 30 
5 2 31 


0 233 
0?3<, 
0235 
3 2 36 


REF  100 
REF  2 
REF  5 
FFF  °7 

REF  2 
REF  A 

RFF  101 


LAST  70S 
LAST  719 
LAST  676 
I AST  720 

LAST  161 
I AST  32  1 

LAST  721 


36  ,2230 

, 

36,2232 
36,2237 
36,  2 2 3a 
7 (:  ,2  23  5 
36,2276 
36, 2237 
36  ,2  249 
3fc, 22A1 


00077  1 
1 5155  1 
A 4762  1 
55' 162  1 

0 6C51  0 
61575  1 
03551  C 
0 3472  0 
77776  1 

1 6155  1 


OEC  63 

TCF  ENOOFJCB 

cs  cntdndex 

TS  OISPDEX 

TC  INTPRFT 

VLOAO  ABVAL 
VN1 

STORE  A8VEL 
EX  IT 

TCF  ENOCFJCB 


R 02  3 7 


**#**$***  S***************#******!*! 


0240 


PFF  l 

REF  10  l AST  528 
REF  ? LAST  248 


36,2242  3 3750  0 TIG-35  CAF 
3fc,  2 2a  3 C 6204  1 TC 


5SEG 
TWI DOLE 


. 


A OPES  TIG- 30 


9241  REF  3?  LAST  720 
0242 


36,2245  C 5364  7 
36,  2246  40154  0 


TC  PHASCHNG 

OCT  40154 


243  RFF  1 

>244  REF  6|  AST  721 


36,2247  4 4752  1 

! 1 


CS  Rl  ANKOEX 

TS  OISPDEX 


('245 
' 246 
) 247 
0248 
024  S 

0250 

0251 


REF 


REF 

REF 

RFF 

PFF 


30 

1 

1 1 


LAST  719 

l A ST  719 
LAST  721 


36,2252 
36,  225? 
36  ,2254 
36,  2255 
36,  2256 
36,2257 


51  ’455  1 
4 0006  0 
C C0C6  1 
6 5272  0 
? 3144  0 
0 5204  1 
02270  0 


INDEX  WHICH 
CS  5 
E XTEN9 

RZMF  TASKOVER 
CAF  4.9SEC 
TC  TWIDDLE 

AORES  TIG- 30.1 


3252 
0253 
0 254 
0255 
0255 
3256 


REF  1 

REF  13  LAST  710 
REF  IP  I A ST  720 
REF  1 
PFF  1 

REF  4(  LAST  721 


2 6,  22(C  3 5027  1 

36  ,2261  0 5072  1 

E 7, 1453 

36,  2262  02265  1 

36  ,2263  74067  0 

36, 2264  1 5272  1 


CAF  PRI017 
TC  NO VAC 

EB ANK  = TTPGC 
2CA3?  P41BLANK 

TCF  TASKOVER 


(257 

258 

3250 


LAST 
LAST 
L AST 


719 

50  5 
721 


36.2265  0 4616  1 

36.2266  20457  ( 

36,  ?267  1 5 155  1 


P41&L  ANK 


C A OR 
TCF 


3ANKC ALL 
CL  FAN  DSP 
EN DOF  JOB 


0260 
0 261 
0262 

0263 
3253 

0264 


REF 

REF 

REF 

PFF 


LAST 
I A ST 
I AST 


72  1 
7?1 
72  1 


. 

36,2271 
E7,  1453 
36,227? 
36, 2273 


T 10-30 . 1 CAF  PR  ID  17 

TC.  NCVAC. 

EB  ANK  = TTOGfl 
2CA0F  TIG-30A 


4 1 LAST  721  36,2274  1 5272  1 


: 12  OCT.  21,  1970  7 FI  Y . 049  PAGE  721 

USER'  S PAGE  NC.  5 E7  S3 

NOT  PS  3 

P 63  CAN  START  DISPLAYING  NOW. 


INITIALIZE  ABVEL  FOR  P6  3 DISPLAY 


4.  15SP0T  FOR  TIG-30  RESTART 
BLANK  OSKY  FUR  5 SECONDS 

CHECK  JLLAGE  T IMF . 

SET  JP  TASK  TD  RFSTORF  DISPLAY  AT  TIG-30 


A NEGATIVE  ULLAGE  TIME  INDICATES  P4l,  IN 
WHICH  CASE  WE  HAVE  TO  SET  UP  A JOB  TO 
PLANK  THE  DS< Y FDR  FIVE  SECONDS,  SINCE 
CLCKJOB  IS  NOT  RUNNING  DURING  P41. 


BLANK  OSKY. 


SFT  UP  JOB  TO  RF  STORE  DISPLAY  AT  TIG-39 


GAP:  ASSEMBLE  REVISION  St>  OF  AGC  PROGRAM  ZEKl  INA  8Y  ZOROASTER 


L BUPN,  BABY,  HUPN  — PASTER  I GM  TICK  ROUTINE 


D265 

REF 

1 

26, 2275 

2 3152 

1 

TIG-30A 

CAF 

V16K85B 

0264 

REF 

184 

LAST 

721 

36  ,2276 

C 4616 

1 

TC 

BANKCAL L 

0267 

REF 

1 

36,2277 

20466 

l 

CADR 

RE  GOCS  P 

R026R 

>** 

•«*#««•**««***••*****&********* 

0269 

PFF 

1 

36  ,2300 

3 3143 

1 

TIC-30 

CAF 

S 24. 9S  EC 

3273 

REF 

12 

L AST 

721 

36,  t ?C  1 

C 5204 

1 

TC 

TWIDDLE 

0271 

REF 

3 

LAST 

248 

36,2302 

02354 

1 

ADRES 

T I G-  5 

0?7? 

REF 

3 

1 A ST 

72  1 

36,2303 

4 4762 

1 

CS 

CNTDNDEX 

3271 

PFF 

7 

1 AST 

721 

36,  2304 

‘C'U2 

1 

TS 

D I SPDE X 

274 

REF 

8 

LAST 

72  1 

36  ,2  305 

51*455 

1 

INOEX 

WHICH 

D275 

. 

3 CCC6 

1 

CA 

S 

02  76 

36,2  30  7 

C 00C6 

1 

EXTEND 

f>?77 

RFF 

LA  ST 

71  9 

36,231 0 

6 2327 

0 

RZMF 

J L L GNOT 

3278 

RFF 

P 

L AST 

720 

36, 23  1 1 

55*477 

0 

TS 

SAVFT-30 

0279 

REF 

13 

LAST 

722 

36  ,2312 

0 5204 

1 

TC 

TWIDDLE 

0280 

REF 

2 

LAST 

24  6 

36,23  13 

02350 

0 

ADRES 

ULLGT  ASK 

0281 

PFF 

22 

l AST 

710 

36,  2314 

2 6 2 57 

1 

CA 

THREE 

02ft? 

RFF 

97 

1 AST 

710 

36  ,2  315 

54  001 

1 

TS 

1 

3283 

KEF 

23 

1 AST 

722 

36,  23  16 

4 6257 

c 

C S 

THREE 

0284 

RFF 

3 

L AST 

223 

30,2317 

52  752 

0 

OXCH 

-PHASE  1 

0285 

PFF 

1 1 

LAST 

372 

36,2  120 

4 0025 

1 

CS 

T IMF1 

3206 

REF 

1 

36, 2321 

5 5 'C  5 2 

0 

TS 

T8ASE1 

02861 

REF 

n 

LAST 

722 

36  ,2322 

51*455 

1 

INDEX 

WHICH 

0 286  2 

• 

C CCC1 

0 

TC 

1 

02  863 

RFF 

1 1 

LAST 

300 

36, 2324 

4 0106 

1 

WAN  TAP  S 

c s 

F LG  WRD  10 

02  86  4 

RFF 

1 AST 

300 

36,2325 

7 4737 

1 

MASK 

APS  FL  BIT 

32865 

REF 

12 

L AST 

722 

36, 2326 

26  1C6 

1 

ADS 

FLGKRD10 

' 7 

36  ,2327 

0 0006 

1 

ULLGNOT 

EXTEND 

0 288 

REF 

IC 

LA  ST 

722 

36 ,2  330 

5 1455 

1 

INDEX 

WHICH 

32  89 

36, 2331 

3 00  10 

0 

OCA 

7 

o;290 

RFF 

3 

LAST 

107 

16  , 

53*253 

0 

OXCH 

AVEGEX  IT 

3291 

RFF 

A3 

1 AST 

70  7 

36,  2 1 33 

3 4752 

0 

CAF 

TWC 

02  9/ 

PFF 

OP 

L AST 

722 

36,2334 

54  001 

1 

TS 

L 

C>  29  3 

REF 

44 

1 AST 

722 

36,2335 

4 475? 

1 

CS 

twd 

3294 

REF 

L AST 

231 

36, 2336 

f 2 760 

1 

OXCH 

-PHASE4 

0295 

RFF 

12 

LAST 

722 

- 

4 0025 

1 

CS 

T IME1 

0296 

RFF 

2 

LA  ST 

?40 

36,2  34  ' 

■ ' 

1 

TS 

TBASF4 

02Q61 

36,  2 34  1 

0 0006 

1 

R EDO  2.  17 

EXTEND 
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RESTORE  DISPLAY. 

R E GO  OS  P DOCS  A T2F  FN  OOF  JOB 


START  Ji»  TLO<TAS<  AGAIN 

PICK  UP  APPROPRIATE  ULLAGE-ON  TIME 

DON'T  SET  IIP  ULIAGF  IT  DT  IS  NEG  OR  ZERO 
SAVE  DELTA-T  FOR  RESTART 

RESTART  PROTECT  ULLGTASK  (1.3$  POT  ) 


(1)  FOR  P42  ENSURE  APS  FLAG  IS  S FT  . IF  I I 
WASN'T  SET,  0 A P WILL  BE  INITIALIZED  TO 
ASCENT  VALUES  BY  1/ACCS  IN  2 SECONDS. 


( 1 I 

LOAD  AVEGEX  IT  WITH  APPROPRIATE  2CADR 


A .2  S POT  RESTARTS  IMMFOIATELY  AT  3ED04.2 
AND  ALSO  AT  T I G- 5 AT  THE  CORRECT  TIME. 


SET  TBASE4  FOR  T I G- 5 R F STAR 


GAP:  ASSEMBLE  KFVISION  5b  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L PUR-*',  BABY,  BURN  --  MASTER  I GMT  ICN  ROUTINE 


32962 

02963 


10 


36. 2362  2 67  5 5 1 

36.2363  52  756  C 


OCA  NEGO 
DXGH  -PHASE  2 


0297  REF  1 

3298  PFF  62  LAST  721 


36,2366  10  762  0 RED06.2  CCS 

1 527  ’ 


PHAS  E5 
TA  SKOVER 


0299  REF  62  LAST  6f)9 

0300  REF  1 


36  ,2  366  0 6635  C 

36,2367  71661  0 


TC  POSTJUMP 

CADR  PREREAO 


R03p1 


4#* «*«**«* «»«********«*# 


0302  PFF  1 

3333  REF  33  LAST  721 

0306 

0305  REF  63  LAST  72  3 


36,2350  C 2656  0 ULLGT ASK  TC 
36,  2 35  1 0 5 3t A C TC 

36  ,2352  00001  0 OCT 

36,2353  1 5272  1 TCF 


fl NULL  AGE 
PHASCHNG 
1 

T ASKOVER 


R03  06 


4 4«**4**t«**«*«*4***9*»******* r ******  <c. 


0307 

33:72  RFF  11  LAST  723 
03076  RFF  2 LAST  221 


36,2  356  C 00C6  1 TIG-5 
36, 2355  3 6755  1 

36  ,2356  52  756  1 


EXTEND 

OCA  NEGO 

OXCH  -PHASF3 


03076  REF  2 LAST  721 

0308  REF  1 6 LAST  722 

0309  RFF  2 LAST  268 


3 3750  0 
0 5206  1 


36  ,2361  -‘2607  0 


CAF  5 SEC 

TC  TWIDDLE 

ADRES  T IG-0 


am 

0312 
3313 
'•316 
3 316 


REF  60  LAST  627 
RFF  1 

RFF  61  LAST  773 
RFF  1 

RFF  6?  LAST  723 
RFF  1 


36,  2362  C 5 c 2 7 1 
36, 2363  10153  0 

36,2366  0 5527  1 

36,  2365  CO  1 56  1 

36.2366  0 5527  1 

36.2367  CC122  0 


ADRES 

TC 

ADRES 

TC 

ADRES 


DOWNFLAG 
I GNF  LAG 
DOW  NFL  AC 
ASTNFLAG 
DOWNFLAG 
ZCCMFLAG 


031 » REF  11 
0319 


722  36,  2370  5 1 *655  1 

36,2371  C 0011  1 


INDEX  WHICH 
TC  1 1 


36,  2372  1C  756  1 P60SJUNK  CCS 
36,2  37  3 1 2602  l TCF 


PHASE3 
31 SPCHNG 


33276 
0321 
3 32? 
0323 

32  3 


L AST 
LAST 
LA  ST 
L AST 


389 
71  1 
721 
26  7 


2 6 , ?374 

. 

E 7 ,165  3 
36, 2376 
, 


: 6736  1 
0 5105  0 

02535  0 

56067  0 


CAF  PRI020 

TC  FINOVAC 

EBANK=  TTOGD 
2C  ADR  S6C.13 


REF  36  LAST 


723 


36, 26 CC  C 5366  0 
36,2601  00053  1 


TC  PHASCHNG 

OCT  00053 
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CLEAR  OUT  GROJP  2 SO  LAMBERT  CAN  START 
IF  NEEDED. 

IS  SERV  ICER  GOING? 

YES,  DON'T  START  IT  I)  P AGAIN. 


PR  FR  EAD  ENDS  THIS  TASK 


THIS  COMES  AT  TIG-7.5  OR  TIG-3.5 


INSURE  THAT  GROUP  3 IS  INACTIVE. 


RFSFT  I GN  FL  AG  AMD  ASTNFLAG 
FOR  LIGHT-UP  LOGIC 


(11)  P4D  AND  P62.  S'*;. 13  IN  PROGRESS? 

YFS 


3 ,5  S POT  FUR  S 60  .13 


GAP:  ASSEMBLE  REVISION  5->  OF  A&C  PROCRAM  ZEK1  IN  A 6Y  ZOROASTER 


L BURN,  BABY,  BURN  — MASTER  ICMTICN  ROUTINE 


1324  REF  1 

r 325  PFF  R LAST 

. 3252  R£F  35  LAST 

33254 

p 326  RFF  44  LAST 


722 
72  3 

r>  3 


26, 2402 
36  ,240 3 

36.2404 

36. 2405 
36  ,2406 


4 4760  C 
55*162  1 

0 5364  0 

4CC74  C 

1 5272  1 


01  SPCHNG  C S 
TS 

COMMON  TC 
OC  T 
TCF 


VB66DEX 
OISPOEX 
PHASCHNC 
4C074 
T ASKOVER 


032  ft 

^3?6 

0 333 


PFF 

REF 

PFF 


LAST  666 
I AST  724 


36 ,24''  7 4 0 1C  3 

36,2410  7 4737 

26,  24  1 1 2f  1C3 


T IG-O 


CS  F L AS  WP  0 7 

MASK  IGNFLBIT 
AOS  FLAGWP07 


0331  REF 

0332 

0333  RFF 

0334  PFF 
1335  PFF 
0336  REF 
03365  REF 
3 336  5 

0377  PFF 
0 33fl 


? 


?P 

21 


LAST  720 


LAST  24  7 
I AST  710 

LAST  250 
LAST  247 

I AST  6AR 


36 ,2412 
■ 

36,  24  H 
36  ,2415 
36,  241  6 
E7,  1 513 
36,241  7 
36,  242C 
36  ,2421 
36,24  22 


0 5332  0 
Cl  C 77  1 

1 2425  1 
3 142?  1 
C e 2 1 4 0 

03675  0 
72C67  C 
0 5340  C 
40033  0 


TC  CHECKMM 

OEC  S3 
TCF  IGNYFT? 
CA  77PMTIMF 

TC  WAITLIST 

FRANK  = OVCNTR 
2 C ADR  ZOOM 

TC  2PHSCHNG 

OCT  40033 


0336 

0340 


36,  2423  05014  1 OCT  05014 

36,2424  77777  0 OCT  77777 


3341 

034? 

0 343 
2 343  5 
0 344 
0 344  5 


R EF  1 
RF  F If 
RFF  2C  ft 
REF  2 
RFF  12 


L AST 
I A ST 
L AST 
I AST 


724 

710 

248 

723 


36,  2425 
36,2426 
36  ,2427 

36, 24  30 
36  ,2431 
36,2422 


2 4740  0 
7 0 103  1 
10  000  0 
1 2433  0 
51*455  1 
C CC12  1 


IGNYF  T? 


CAF  ASTNBIT 
MASK  = IAGWRD7 

CCS  A 

TCF  IGNITION 

INDEX  WHICH 
TC  12 


' 146  1 

3346? 

03463 

0 347 

334P 

0346 

0 3 50 

0351 

0352 
3353 
0354 


RFF  1 8 LAST  5ft4 
RFF  3 (AST  223 
REF  16  I AST  724 
PFF  6 LAST  263 

RFF  22  I AST  478 
REF  ?B  I AST  574 

PFF  23  LAST  724 

REF  17  LAST  582 
RFF  4 LAST  20  7 


36,  2433  * old  0 

36,2434  7 4745  1 

36,2425  26  IC1  0 

36.2436  4 4355  l 

36.2437  0 0006  1 

, 

36,2441  6 4737  0 

36,244?  C 0006  1 
36,  ?44 3 Cl  OH  0 
36  ,2444  0 0006  1 

36, 2445  2 C025  0 

36,2  446  *3' 34?  1 


IGN  1 TION 


C S 
MASK 
ADS 
CS 

EXTEND 

RAND 

AD 

EXTEND 
WR  I TE 
EXTEND 
DC  A 
DXCH 


FLAG  WRn  5 
FNGONBIT 

F LAGWRD5 
PR  I D 30 

OSALMCUT 
B I T 1 3 

D SA  LMQUT 


T I ME2 
TE  VF  NT 


0 3542 
03544 
0 3546 


PFF 

REF 

RFF 


1 

14  LAST  300 

15  LAST  724 


36,2451  54  111  1 


CS  PULSES 

MASK  OAPBOOLS 
TS  DAPBOOLS 
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(1  1 ) 

RESTART  TIG-0  14.7SP3T) 


SET  I GNF  LAG  SI  NCF  TIG  HAS  ARRIVEO 


IN  P63  CASE,  THROTTLE-UP  IS  ZOOMTIME 
AFTER  NOMINAL  IGNITION,  NOT  ACTUAL 


CHFCK  ASTNFLAG:  HAS  ASTRONAUT  PE  SPUN  DEO 
TO  OUR  ENGINE  F NABLE  REQUEST? 


INSURE  ENGONFLG  IS  SET. 

TURN  ON  THF  ENGINE. 

SET  TEVENT  FOR  DOWNLINK 

MAKF  S JR E THAT  DAP  IS  NOT  IN  MINIMUM 
IMPULSE  MODE  IN  P 1 2 , P4C  , P4  2,  AN  D P 63 


P:  ASSEMBLE  REVISION  *56  OF  AGC  PROGRAM  Z ERL  IN  A RY  ZOROASTER 


BURN,  PARY,  PUPN  — MASTER  IGMTICN  ROUTINE 


'355 

0356 

0357 
035  P 

;i35q 

3363 


REF  A 
REF  27 

PFF  IP 
RFF  28 


I AST  248 
LAST  720 

LAST  72  A 
I AST  725 


36,  2A52 
36  ,? A5 3 
26,  2 A 5A 
36, 2A55 
36  ,2456 
36,  2 A 5 7 


C 0006  1 
3 1515  1 
53*AA 2 0 
C C0C6  1 
3 0025  0 
2 1 • A A2  0 


E XTENO 
OCA  T GO 

DXCIH  TIG 

EXTENT 

OCA  TIME? 

OAS  TIG 


03601 
0 36P  2 
03603 


REF 

KEF 

REF 


1 

1C  LAST  600 
11  LAST  725 


36  ,? AfcO  A A7A2  0 
16 , 246  1 7 'll  A 0 

36,  2462  5*  1CA  0 


CS  FL  UNDR  IT 

MASK  FLAGWRDS 
TS  c LAG  WRO 8 


0361 

336? 


PFF  13  I A ST  7 2 A 


INDEX  WHICH 
TC  13 


0363 

0 36 A RFF  1 
3366  REF  1 


36,2465  0 JOOA  l P63IGN 

1 6 , ? A 6 6 3 3136  0 

3 6,  2 At  7 f • 2 f 3 0 


E XTENO 

OCA  LJNl  ANAD 
OXCH  AVGEXIT 


03661  REF  15  LAST  676 
0366?  RFF  S I A ST  72A 


36.2A70  3 0005  l 

■ ■ 


CA  Z 

TS  DISPDEX 


03  70 
0 371 
T 37  2 


REF  1 
REF  1 
REF  2 


1 AST  725 


36, 2A7  2 
36 ,2  A 73 
36,  ? A 7 4 


A 010  5 1 
7 A 7A3  ! 
2 6 1C  5 1 


CS  FLAG  WRO  9 

MASK  L FT  ABB  IT 
AOS  FLAGWPD9 


03755  REF  19  LAST  725 
33756  REF  29  I AST  725 


0 0006  1 
3 CO? 5 0 
5 3 • A A 2 0 


EXTEND 

OCA  TIME2 
OXCH  TIG 


0376 
3 377 
( 3771 
0 778 
3379 


RFF  13?  LAST  7]  9 
REF  1 

RFF  2 LAST  153 
RFF  A 5 LAST  122 
PFF  2 I AST  153 


36  ,2503  3 A 755  1 

36,  2501  5C*  3A6  0 

36,2  502  5 5*621  1 

36  ,?  503  3 A 752  0 

36, 25CA  5 5 ' 6 23  C 


CAF  Z FRO 

TS  WCHPHASF 

TS  WCHPHOLO 

CA  TWC1 

TS  FIPASSO 


R!  h 

0381  REF 
03p2  RFF 
C 383 

3384  RFF 
<>3p«  RFF 
0386  REF 
3387  RFF 
03875  REF 
? 387  5 

QlRB  REF 
0389 
3390 
o3o1 


2 LAST  7 i fl 
20  LAST  7 2 A 


3 LAST  725 
3 LAST  724 
?°  LAST  72A 
22  l AST  72 A 
3 LAST  72 A 

5 I AST  72A 


36  ,2505  1 25A0  0 

3fc  » ? 5C 6 4 Old 

36,  25C7  7 A7A0  1 

36  ,2510  0 0006  1 

36, 2C  1 1 I 25AO  C 
36,2512  3 1 A 22  1 

36,2  51.3  C 521 A 0 
F 7,  1513 
36  ,251  A 
36,25  15 

36, 2516 
36  ,2517 
36,  2 c 20 
16,2521 


TCF  PA2IGN 
CS  FLAGWRC5 

MA  SK  NO  THRO  I T 
EXT  END 

H7F  PA2IGN 
CA  ZOOMTIME 

TC  WAITLIST 

EBANK=  DVCNTR 
2CADR  ZOOM 

2PH  SCHNG 
A0033 
0501A 
77777 


0 PA01GN 


03675  0 
72067  0 
C 6 3A0  0 P 6 3 1 GN  1 TC 
AO 033  0 OCT 

C501A  1 OCT 

77777  0 OCT 


9:12  OCT.  21  ,1970  ZFLY  ,0A9  PAGE  725 
USER  'S  PAGF  NO.  9 E 7 S3 

UPDATE  TIG  USING  T GO  FROM  SA0.13 


PERMIT  GUIDANCF  LOOP  DISPLAYS 


(131  INITIATE  BURN  DISPLAYS 

ASSASSI  NATE  CLOKTASK 

SET  FLAG  FOR  P7C-P71 

INITIALIZE  TIG  FOR  P7D  AND  P71  . 

INITIAL  I 7F  WCHPHASF  AND  FIPASSO 
ALSO  WHCPHOLD 


3.  3SP0T  FOR  700M  RFSTAPT. 

TYPF  C RESTARTS  FERE  IM“  ED  I A TEI 


AP:  ASSEMRI  F REVISION  5t>  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


BURM,  BABY,  BURN  — MASTER  IGMTICN  ROUTINE 


33=)?  REF 
Q39R  RTF 
. 3980  5 KEF 
3 39 p 1 REF 


I AST  725 
LAST  529 
LAST  7 .7 
l AST  229 


36,  2522  1 2540  C 

36,2523  3 50  15  C P12IGM 

36,2  524  54  C03  Cl 

E6,  1536 


TC  F P4  2 1 G N 

OAF  FRANK  6 

TS  FRANK 

EBANK=  AO  SO 


"30814  PFF 
339815  REF 
C 3982  RET 
: 39B25  PFF 


1 

1 


I AST 


726 


36  ,2^25  3 1412  1 

55' ! 

36,2527  3 1413  0 

36,2530  55 1 540  0 


OA  TGNAOSQ 

TS  AOSO 

CA  IGNAOSR 

TS  AOS  R 


3345  7 
03QR35 


0 398  4 RFF 


r-  L AST  6? 3 
26  LAST  776 

23  LAST  725 


3ft, 25*1  3 50 1 6 0 

36  ,2532  54  r 03  4 

F7, 1513 


CAF  EBANK7 

TS  FRANK 

EBANK=  DVCNTR 


0399  RFF  1 6 LAST  725 

0400  RFF  10  LAST  725 


16,  2533  2 CCO 5 1 

36,2534  55*  162  1 


ARPTIGN  CA  Z 

TS  DISPCEX 


3434  I 

0400  2 PFF 
0 400  3 REF 


2 LAST  725 


■»<:,  2 5 ? 5 
36  ,2536 
36,2537 


C CCC6  1 
3 314C  1 
53*253  0 


E XTEND 

OCA  ATMAGADR 
OX CH  AVGEX  IT 


0405  REF  1 

0409  RFF  16  LAST  7?4 

3417  RFF  17  I A ST  726 

0411  REF  1 

0412  REF  12  LAST  676 

3413  REF  209  LAST  724 

0414  REF  1 


36,  2540  ‘ 4744  0 P42IGN  CS 

36.2541  7 Dill  1 MASK 

36. 2542  541111  TS 

36.2543  3 4743  0 CAF 

36,2  544  7 0076  1 MASK 

36,  2545  1C  COO  0 CCS 

36  ,2546  1 3522  0 TCF 


3P IF  TRI  T 
OAPRflflLS 
OA  PRCCLS 
I MPULBI T 
FL  AGWRC2 


IMPL  BURN 


0415  PEF  6’ 

P'«16  RFF  2 

0417  RFF  64 

3 4 IP  RFF  2 

04 1 9 PEF  65 

0420  PFF  1 


723 
72  3 
7 26 
723 
726 


36,2547  C c 57 7 1 (3VR0NCCN  TC 


36,  2550 
36,2551 


00  153 
C 5527  1 
C0154  1 
0 5527  l 
00161  1 


DOWNFLAC- 
I 3 NF  LAG 
OOWNFLAG 
AST  NF  LAG 
OOWNFLAG 
IOLEFL  AC 


REF  36  L AST  724 


36, 2555  C 5364  0 
36  ,2556  40054  1 


TC  PHASCHNG 

OCT  40054 


l 423  P FF  11  I A ST  698 
04  2 4 


36 ,2557 
36,  2560 


TC  F IX  OE  L AY 

OEC  50 


425  REF 


36,2561  0 2652 


ULIAGOFF  TC 


NOULLAGE 


3476 

0427  RFF  12  LAST  773 


36, 2562  0 0CC6  1 

36,7563  3 4755  1 


WAI  TABI  T E XTENO 

OCA  SI  EGO 


04  7 R RFF 


4 LAST  722 


36,2564  52  760 


OXCH  -PHASE4 


0429  ref 


LAST  724  36,  2565  1 5272 


TCF  TASKOVFR 


9:12  CCT.  21  ,1970  ZFiY 

USER  *S  PAGE  NO.  1C 


.349  PAGE 
E 7 S3 


7 26 


INITIALIZE  PAP  BIAS  ACCELERATION 
FSTIMATFS  AT  Pl2  IGNITION. 


(13)  K1  LL  CIOKT ASK 

CONNECT  ASCENT  GYICANCE  TO  SERVICER. 

ENSURE  THAT  POWEREC-FI  ICHT  SWITCHING 
C URVE  S A3  E USED. 

EXAMINE  IMPULSE  SWITCH 


CONNECT  OVHON 


TURN  ULLAGE  OFF  HALF  A SECOND  AFTPP 
LIGHT  UP. 


KILL  GROUP  4 


ASSEMBLE  P EV  IS  ION  56  OF  AGC  PROGRAM  ZERL INA  BY  ZOROASTER 
BURN,  BABY,  PURN  — MASTER  IGMTICN  ROUTINE 


LAST  723  36,2566  C 46  35  0 TIGTASK  TC 


CAOR  TIGTASK1 
* a##***#*#*****!#**###*#* 


9:12  CCT.  21,1070  ZFLY 

USER  • S PAGE  NO, 

(12  ) 


.049  PAGE  727 
E7  S3 


)43'  2 

0430  3 RFF 
04  304 

04305  REF 


< 431 

3 4 3? 

0 4 33 
0 4 34 

4342  PEF 
4344  REF 

04  35 


PEF 

REF 

RFF 

RFF 

REF 


•439 
04  4 0 
0441 


445  PFF 
0445  REF 
446?  RFF 


LAST  478 
I AST  721 
I AS!  319 


66 


RFF  37 

RFF  46 


LAST 

L AS1 


4465  RFF  26  LAST 


RFF  38  LAST 


71,  2144 

35  ,2000 
35 i 3664 


E7  ,1462 

35.3666 

35. 3667 


726 

72  6 


35  ,367C  • 5527  1 


35, 3674  1 5272  1 


3 LAST  724 


#****#•><!****** 

C 5332  0 ZOOM 
00077  1 
1 3705  l 


BANK  31 
SFTLOC  P40S3 
RANK 

COUNT*  JS/P40 

PR  10 16 
TC  NOVAC 

ERANK=  TPKMKCNT 
? C AOR  TIGNOW 


OCT 

TCF 


TC  CHECKMM 

OEC  63 

TCF  P40700M 


35,  37C2  C 4674  o 
, 3703  i 1 

35  ,3704  1 3 712  1 

*5.  3705  3 4737  C 

3 5,3  7 

35, ' 7c 7 3 4750  1 


P63Z00M  TC 


TC  I BNKCALL 

CAPR  ^LATOUT 

TCF  P40ZOQMA 

P40Z00M  CAF  R I T 1 3 

TS  THRUST 

CAF  B I T 4 


K ILL  GROUP  6. 


P4G  OR  P63? 


INDICATE  THAf  T HROTT  L F-UP  HAS  CDM  F 


14493 


36,  7 570 


BANK 


36 


GAP:  ASSEMBLE  REVISION  56  OP  -SC  PR CORAH  ZFKLINA  BY  ZOROASTER 


L PUPN,  e«BYf  BURN  — MASTER  IGNITION  ROUTINE 

4494  REF  A LAST  71  7 36,2000 

34495  16,2570 

C4496  REF  4 LAST  7 17  TO  727:  J56  376* 


SETLOC  P40S 
RANK 

COUNT*  S1/P40 


l 0450 


) *51  REF  46 

0452  PFF  2 

3453  REF  47 

•45*  REF  1 

0455  REF  11 

3456  OFF  24 

0457  REF  1 

045R 

3463  REF  185 

461  PFF  1 

0 462  REF  1 

3463  REF  11 

0464  PFF  39 

0 465 

04555  REF  1o3 


L AST  727 
LAST  726 
LAST  723 

LAST  574 
L AST  726 


LAST  7 22 


I AST  726 
LAST  727 

LAST  721 


’ , 57 
36  ,2571 
36,2572 
, 

ifc ,2  57- 
36,  2575 

3'.,  2576 
36,2577 
J6, 26CC 
36  ,260  1 
36,2602 
36 , 260  3 
36  ,2604 
76,2605 
36,  260  6 


C 5515  0 
00161  1 
C 5515  0 
00175  1 
? 4751  0 
55*513  0 
10  764  0 
1 2602  0 
C 4616  1 
74662  0 
4 4765  0 
6‘'1(2  1 
0 5364  C 
CCCC4  c 
1 5155  1 


C'JMF  AIL 


TC  UPFLAG 

ADRES  IDLE  FLAG 

TC  UPFLAG 

ADRES  c L UNO  I SP 

CAF  FOUR 

TS  OVCNTR 

CCS  PHASE  6 

TCF  +3 

TC  BANKCALL 

C ACM  STCLOK  l 

CS  VB97DEX 

TS  3TSP0EX 

TC  PHASCHNG 

OCT  30004 

TCF  ENDUE  JOB 


REF 


14  LAST 


72  5 36,2  607 

76, 2610 


51 '455  1 C0MFAIL1  INDEX 
C CCG2  0 TC 


2 


HIGH 


'468  RFF  17  LAST  726 
0469 


36,261  1 3 0005  1 COMFA IL  3 C A Z 

36,2612  1 2614  1 TCF  +2 


3470 
r 4 71 


LAST  722  36,  26  13  4 47(2  1 C0MFAIL4  CS 
LA  SI  728  36 ,26 14  55*162  1 T s 


CNTDNDF  X 
D 1 SP  DEX 


6472 
04  77 

04  74 

3476 

r 4 76 


REF 
1 i F 
RTF 
RFF 
REF 


67  LAST 
3 LAST 
6P  LAST 
2 L AST 
1^4  LAST 


727  36,2615 

7 28  -»6 , 26  16 

728  36  ,2617 

. 

720  36  ,2621 


C 6527  1 
00161  1 

0 5527  1 
C 0 1 7 5 1 

1 5155  l 


TC  DOW  NFL  AG 

ADRES  I OLE  FLAG 
TC  DCWNFLAG 

ADRES  FLUNDISP 
TCF  EN  DOF  JOB 


0477  REE  40  LAST  7 28 
C47B 


C 5364  0 CCMFAIL?  TC 
C0003  1 OCT 


P HAS  CENG 
0000  3 


0481  RFF 

0482  REF 
34P3  REF 
04R32  RFF 
04834  PEF 

0484  RFF 

0485  RFF 


10  LAST  605 
4 LAST  7?5 
26  LAST  727 

1 

4B  LAST  728 


36,2624  C 0004  0 
36,  2625  C 6C3?  0 

36.2626  73675  1 

36.2627  C 4674  0 

36,  2(  30  755(  1 1 

36  ,2631  0 5515  0 

36,2(22  CC712  1 

36, 2(33  0 2(44  0 

36  ,26  34  0 0310  0 


INF  I NT 
TC 

CADR 

TC 

CADR 

TC 

ADRES 

TC 

ADRES 


KI  LLT  ASK 
ZOOM 
I0NKCALI 
ENG  I N0F4 
UPFLAG 
DR  IFTDFL 
I NVF  LAG 
AORBTFLG 


9:12  OCT.  21,  1970  Z FL  y 

USER'  S PAGE  NC.  12 


•049  PAGE 
F7  S3 


728 


(15) 

S FT  FLAG  TO  SUPPRESS  CONFl  IC  TING  DISPLAY 

RESET  OVMON 

CLOCKTA  SK  ACT|  VE? 

YFS 

OTHERWISE,  START  IT  UP 

TURN  OFF  GROUP  4. 


(15)  KI  LL  CLCKTASK  USING  Z 


RECONNECT  DV  MONITOR 

PERMIT  GUIDANCE  LOOP  DISPLAYS 


KILL  ZOOM  RESTART  PROTECTION 

KILL  ZOOM,  IN  CASE  IT'S  STILL  TO  COME 

COMMAND  ENGINE  OFF 

SET  THE  DRIFT  BIT  FCP  THE  DAP. 


USE  OTHFR  R CS  SYSTEM 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
BURN  • BABY,  PURN  — MASTER  IGMTICM  ROUTINE 


04  86 
04  87 
3439 
0489 
"490 
■>491 
0492 


RCF  49 
REF  2 
REF  34 

REF  15 
R F F 4 
REF  105 


LAST 
LAST 
1 AST 

I AST 
L AST 
LAST 


728 

231 

709 

72  3 
722 
728 


36,  2635 
36,2636 
26,  2 4 3 7 
36,2640 

' , 

■ • !64 
36  ,2643 


0 5 5 15  C 
00314  1 
3 4753  l 

0 0004  0 
C 5204  1 

02354  1 

1 5155  1 


TC 


UPF  LAG 
JLL  AGFL  G 
BIT1 


AORES 
CAF 
INHINT 

TC  TWIDDLE 

AORES  TIG-5 
TCF  ENDOFJOR 


9:  12  OZ  T.  21,1970  ZFLY 
USER'S  PAGF  NO. 
TURK  ON  ULLAGE 


.049  PAGE  729 
E 7 S3 


RT493 
R04  94 
1 ‘■'495 


<.#***#**  ■>$*****<:*##,(!$$**$$**  *********** 
SUBROUTINES  OF  THE  IGNITION  ROUT!  NF 

*******************  S************  *-■*-*** 


3496 
497 
0498 
04  99 
0 500 
3531 


LAST  678 


13  LAST  5S7 


36, 2644 
36  ,2645 
36,2646 
36,  ?647 
36  ,2650 
36,  2651 


2 C C C 2 0 

0 5533  1 
4 0000  0 
0 0006  1 
06  001  0 

1 5522  0 


INVFLAG  CA 


DEBIT 

COM 

E X TEND 

RX OR  L C HAN 
TCF  CCMFLAG 


R0502 


* * **********  *****  ******  * 


9 50  3 
3 53  4 

0505 

0506 


REF  1 
REF  18 
REF  19 
REF  IRC 


36,2652  4 474*  1 


LAST  729  36,2655  C 0002  0 


NCULL  AGE  CS  JLLAGER 

MASK  DAP8C0LS 
TS  DAPBOOLS 


MUST  PE  FAILED  IN  A TASK  PR  UNDER  INHINT 


************************** ** ******* 


RFF  20 
REF  2 

RFF  ?1 
RFF  m 


LA  ST 
L AST 
L AST 
I A ST 


72  9 

729 

729 

729 


36,2656 
36,  7657 
. 

36  ,2661 


A 0111  1 
7 4746  1 
26  111  1 
0 0002  0 


ONULLAGF  CS 

MA  SK 
AOS 


DAPROOLS 
ULLAGFR 
DAPPODL S 


Rn5l2 


************************  *******  ***** 


• 513 
3*14 
i 515 
■’516 
3517 
0518 

519 
05  2 0 
0 521 
3522 
0523 


RCF  136 
REF  13 
RCF  9 


I AST 
I AST 
LAST 


RFF  3-  LAST 
REF  273  LAST 


RFF  2C 
REF  27 A 
RFF  7 


LAST 

LAST 

LAST 


725 

729 

595 

722 


7?  5 
729 
44  2 


, >t  ■ 
, 266  3 
,2664 
,2665 
, 2666 
,2667 
,2670 
, 2671 
,2672 
, 2673 
,2674 


3 A 756  1 
5 c' 162  I 
0 4645  1 
5 5 1 060  1 
C OCC 6 1 

3 l A42  1 
52  155  1 
C OOC6  1 

4 0025  1 
2C  155  1 
0 7271  1 


ST  Cl CK1 
STC  L')K  2 
ST  CLOK  3 


TC 
TS 
E XTEND 
OCA 
DXCH 
E XTEN3 
OCS 
OAS 
TC 


ZERO 
D1  SPDEX 
VAK  ECADR 
T 8ASE4 


T IMF2 

MPAC 

TPAGPFF 


THIS  ROUTINE  STARTS  THF  SPUNT-OOWN 
(CLOKTASK  AND  CLGKJOBI.  SITTING 
SETTING  DISPDFX  POSITIVE  KILLS  IT. 
RETURN  SAVE  (NOT  FOR  RESTARTS) 


HAVE  TIG  - TIMF2,  UNDOUBTEDLY  A ♦ NU1BFR 
POSITIVE,  SINCE  WE  PASSED  THE 


GAP:  ASSEMBLE  REVISION  S',  OF  AGO  PROGRAM  7EPLINA  BY  ZOftOA  STEjft 


L Bl*N,  PA8Y,  B IJPK  — MASTER  ICMTICN  ROUTINE 


3524 

REF 

11 

LAST 

712 

2 6,  2675 

2 4777 

1 

CAF 

1 SEC 

0525 

PEF 

182 

LAST 

7?9 

36,2676 

54  OC  2 

1 

TS 

0 

526 

REF 

275 

1 AST 

72  9 

36,2677 

52  155 

1 

OX  CH 

HP  AC 

3527 

REF 

1C 

1 AST 

571 

36,  27  CO 

7 4346 

0 

MASK 

L0W5 

5 528 

36  ,27n  1 

0 0006 

1 

EXTEND 

o 520 

P FF 

l P3 

| A M 

730 

36.27C 2 

10  002 

1 

DV 

0 

05^0 

REF 

99 

L AST 

722 

16,  2 70  3 

- ( , i 

0 

:a 

L 

0531 

RFF 

46 

LAST 

72  5 

36  , 2 7 C 4 

6 4 752 

0 

AD 

TWO 

3532 

26,  27C5 

C CCC4 

0 

I NHI  NT 

0533 

RFF 

16 

LAST 

7?9 

36,?  706 

0 52C4 

1 

TC 

TWIDDLE 

0 5 34 

RFF 

? 

LAST 

64  8 

36,2707 

02716 

0 

ADRES 

CL  OK T ASK 

3535 

REF 

6 

1 AST 

725 

36, 2710 

C 5340 

0 

TC 

2 PH  SCHNG 

0536 

36  ,271  1 

40036 

0 

OCT 

40C36 

0 537 

36,2712 

N5..-.24 

1 

OCT 

05024 

0538 

16,  2713 

13000 

0 

OCT 

1 3 000 

053  9 

PEF 

4 

LAST 

7 29 

36,2714 

3 1060 

0 

CA 

TBASE4 

U A N U II  1 w n 

054  1 

REE 

1? 

LAST 

7 22 

16, 

4 00  25 

1 

CLOKTASK  CS 

TIME  l 

0 54  7 

RFF 

1 

36,271  7 

■ ' 

0 

TS 

T RASF6 

3543 

PFF 

14 

L AST 

729 

36, 2720 

11*1(2 

1 

CC  S 

D I SPDE  X 

0544 

RFF 

1 

36  ,2771 

1 2737 

1 

TCF 

< ILLCLOK 

0545 

36, 2722 

12  723 

1 

NOOP 

0546 

REF 

3 

LAST 

515 

36,  2723 

3 7727 

l 

CAF 

PR  I G 27 

f 547 

REF 

16 

LAST 

72  7 

36,7774 

G 5077 

1 

TC 

NflV  AC 

054  8 

PEF 

21 

L AST 

772 

H,  1453 

E B A NK  = 

TTCGC 

0 549 

PFF 

1 

36  ,2725 

02736 

1 

2CADR 

CLOK JOB 

0 549 

REF 

1 

. r 

74067 

0 

0550 

PFF 

12 

LAST 

726 

36,  ?727 

0 5232 

1 

TC 

= I XDE  LAY 

0551 

36,2730 

00144 

0 

DEC 

100 

3557 

RFF 

4 

1 AST 

730 

36,  2721 

1 2716 

1 

TCF 

C LCKTASK 

T;55  i 

7 554 

RFF 

13 

LA  ST 

726 

36.2732 

36.2733 

0 0006 
■ ■ r 

1 

1 

KILLCLOK  FXTFND 
DG  A 

NEGO 

3555 

RFF 

2 

1 AST 

221 

36,  2??4 

f2  7(4 

0 

OXCH 

-PHA  SF 6 

0556 

REF 

48 

LAST 

727 

, 

1 5272 

1 

TCF 

T ASKOVFR 

3557 

0558 

REF 

31 

1 AST 

729 

16. 2736 

36. 2737 

C CCC6 
4 144? 

1 

0 

CLOK  JOB  EXTf.ND 
DCS 

TIG 

C 559 

REF 

22 

LAST 

73C 

36,2740 

53*454 

1 

OXCH 

TTOGO 

3560 

36,  274  1 

C OCCfc 

1 

E XTEND 

0561 

PEF 

21 

I AST 

729 

36  ,2742 

3 00  25 

0 

OCA 

T IMF2 

0562 

REF 

23 

1 A ST 

730 

36,2743 

21*  454 

1 

DAS 

TTOGO 

9:1?  CCT.  21  ,1970  ZFI 
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4 5 SECONC  CHECK 

RESTRICT  MAGNITUDE  CF  NUMBER  IN  A 

GET  REMAINDER 

6.  3 SPOT  FOR  C LCKTASK 


SET  T8  A St  6 FOR  GROUP  6 RESTART 


WAIT  A SECONO  BEFORE  STARTING  OVER 


KILL  RF  START 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L BURN,  PARY,  BURN  — MASTER  IGNITION  ROUTINE 


0563 
0 564 

0565 

0566 
3 567 

0568 

0569 
3573 


REF  15  I A ST  73  0 
REF  106  LAST  72g 
REF  l G 7 LAST  731 


RFF  210  LAST  726 
REF  1 


36  ,2  744  0 0004  0 

36,2745  11*162  1 

36,  2746  1 5 155  1 

36,2747  1 5155  1 

46, 2760  4 CCOO  0 

16.2751  C OOC3  1 

36.2752  50  000  1 

36,  2753  1 3C  1 0 1 


INHINT 
CCS 
TCF 
TCF 
COM 
RFL  INT 
INDEX 
TCF 


DISPDEX 
END  OF  JOB 
EN  DO  F JOB 


A 

01 SPNOT  - 


0571  REF 


4 765 


VR970EX  = 0CT35 


6711  REF  137  LAST 

0571  2 RFF  1 

057?  RFF  1 

357?  RFF  1R6  I AST 

0574  RFF  I 

0575  RFF  1 

3576  REF  1 

0577  RFF  1 


729 


728 


, 

36, ^76^ 
36,2756 

■ 

36,276  • 

, 

36.  2762 
36  ,2763 


4 4755  n 
CC*G66  1 
3 0371  1 
C 4616  1 
20474  1 
1 3012  0 
1 2607  0 
1 2622  1 


-35 


CS  7ERC 

TS  NV^OPOl 

CA  NVHORD  +2 

TC  BANKCALL 

C ADR  CLOCPLAY 

TCF  STOPCLOK 

TCF  Z OMF  A I L 1 

TCF  COM  FA  IL  ? 


A 593 

0584  REF  1 

0585  RFF  187  LAST  731 

3586  RFF  1 

0587  RFF  2 LAST  731 

0588  REF  1 

358q 


36, 2764 
36,: 765 

36. 2766 

36.2767 
36,2770 
36,  277  1 


3 3145 

0 4616 
20460 

1 30  12 
1 3027 
1 2764 


1 -25 

1 

1 

0 

0 


CAF  V06N61 
T C RANKC ALL 

CADR  RFFLASH 
TCF  STOPCLOK 

TCF  ASTNRFTN 

TCF  -5 


0590  REF 


4 762 


CNTDNOEX  = LOW  4 


3531 
0592 
0 so  3 

3594 


PEF  is  LAST  728 

RFF  1 8P  LAST  731 
PEF  2 LAST  722 


36,  2772  51*455  1 

46.2773  3 0000  1 

36.2774  C 4616  1 

36,  2775  20466  1 


I NOEX  WHICH 
CA  0 

TC  BANKCALL 

CAPS  9 EGOOSP 


0595  PFF 


? LAST  475 


4760 


VR99  0EX  = ELFVFM 


05955 


36,  2776 


V99RECYC  EQUALS 


05056 
i'  59S  7 

0596 

0597 

0598 

0599 

0600 
363  1 
0602 


REF  1o  LAST  566 
RTF  2 l A S T 73] 
REF  16  LAST  731 

REF  1 8°  l A ST  731 
RFF  ? LAST  731 
RFF  3 LAST  731 
REF  1 
REF  1 


36.2776  * 4743  1 

36.2777  55* (66  1 

36, ’OCO  51*455  1 
36  ,3or  l 3 0000  l 
16,3002  C 4616  l 
36,330  3 20474  1 

36,3304  1 3012  0 

36,  3005  1 3C4C  1 

36,  3006  1 3043  1 


CS  3 I T 9 

TS  NVW0RD1 

I NOEX  WHICH 

CA  0 

TC  BANKCALL 

C AD3  CLOCPLAY 

TCF  STOPCLOK 

TCF  •PROCEED 

TCF  *FNTFR 


0606  RFF  47 


LAST  730 


4 752 


BLANKOEX  = TWO 


9:12  OCT.  21,  1970  7 F L Y .049  PAGfc  731 
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IF  DISPDEX  HAS  BEEN  SET  POSITIVE  BY  A 
TASK  OR  A HIGHER  PRIORITY  JOB  SINCE  THE 
LAST  CLOKTASK,  AVOIO  USING  IT  AS  AN 
INDEX  . 

*****  OISPDEX  MUST  NFVFR  BF  -0  ***** 

( -1  DUE  TO  EFFECT  OF  CCS  ) 

NEGATIVE  OF  THIS  IS  PROPER  FOP  DISPDEX 
IND  ICAT  E VERB  97  PASTE 

NVWROD  + 2 CONTAINS  V06  f,  APPROPRIATE  NOUN 

TERMINATE  CLOKTASK  ON  THE  WAY  TO  POOH 


THIS  0 IS  PI  AY  IS  CALLED  VIA  ASTNCLOK 
IT  IS  PRIMARILY  USED  BY  THE  CREW  IN  P63 
11  RESET  HIS  EVFNT  TIMFR  TO  AGREE  WITH 
T IG. 


0CT17;  NEGATIVE  PROPER  FOR  DISPDLX 


THIS  DISPLAY  COMES  UP  AT  ONE  SECOND 
INTERVALS.  IT  IS  NORMALLY  OPEPATED 
BETWEEN  TIG- 30  SECONDS  AND  TIC- 5 SECDNJS 
REGCDSP  ODES  ITS  OWN  TCF  GNCOFJOB 


0CT13;  NFGATIVF  PPOPFR  FOP  DISPDEX 


INDICATE  VERB  99  PASTE 

THIS  IS  THE  "PLEASE  ENABL  F ENGINE" 
DISPLAY;  IT  IS  INITIATED  AT  TIG-5  SFC. 

T HE  D IS  PI  AY  IS  A V59NXX,  WHERE  XX  IS  THE 
NCUN  THAT  HAD  PREVIOUSLY  BEEN  0 IS  PLAY  ED 
TERMINATE  G3T0P00H  TLRNS  OFF  ULLAGE. 


NEGATIVE  OF  THIS  IS  PROPER  FOR  DI  SPDF 


S4»  : 


SSFHrtlF  »F  VI  SI  OK  56  Of-  AGC  PPCGBAM  ZERLINA  BY  ZOROASTER 


— HAS!  i I TIOt  ROUTI NE 


0607 

060ft 

0639 


RCF  1 or  LAST  73  1 
PFF  ’ LAST  7? 1 
PEF  1 0B  LAST  73  1 


»6,3  7 

. I 

36,  3c  11 


0 66  16  l 
7 -'45  7 0 

1 6155  1 


01  SPNJ  T 


CADR 

TCF 


BAKKC ALL 
CLEANDSP 
ENOUF  JOB 


0610  PFF  1 

3611  REF  1°  LAST  70  5 


36,3"1?  0 3016  1 

36,  3013  1 6001  1 


STCPCLOK  TC  Nil  I L C L OK 

TCF  GOTCPOCH 


06  12 
06J  3 
3616 
F-61S 
• 616 

061  7 
0618 
->613 

062  0 
96?1 
362? 


REF  1 
REF  ? 
PFF  11 
REF  3 
REF  41 

RFF  1ft 
RTF  16 
RFF  2 


LAST  7? 6 
I A ST  728 
I AST  722 
LAST  728 

LAST  72ft 
I A ST  731 

LAST  732 


36,3016 
36,3015 
36,  3016 
36,3317 

36,3020 
36,  30  5 1 
36  ,3022 
36,  3023 
76, 3024 
, 

36,  7C 26 


C 0004  0 

c or  06  i 

2 2'  1 4 1 1 

0 2652  1 

0 6C3?  0 
74350  1 
0 5364  0 
COCCI  0 

3 0C05  1 
55'162  1 
C 114  1 1 


NULLCLOK  INHINT 
EXT  END 

OXCH  P4C/RET 

TC  VniJLl  AGE 

TC  KILLTASK 

CADR  ULLGTASK 

TC  PHASCHNG 

OCT  1 

CA  7 

TS  OISPPFX 

TC  P40/RET 


0622?  PFF  4? 
7 62  ? 4 

0623  RFF  138 
0623 1 REF  17 
3623?  RFF  1 

0625  RCF  28 

0626  REF  2 
3627  PEF  1 

0627  PEF  1 
06?P  PEF  IOC 


LAST  732 

LAST  73  1 

LAST  732 

LAST  723 
LAST  127 

LAST  73? 


36,3030 
36,  3 :}  3 1 
36,3032 
36,  3C33 
36,3034 
FS  ,1  757 

36,  3n?s 
36  ,3036 
36,3037 


C 5364  ’ 
C4C24  0 

2 4155  1 
55*162  1 

3 5C23  0 

0 5105  0 

02642  0 
64065  0 

1 5155  1 


AS  T NR  ETN 


T C P HA  SC  HN  G 

OCT  04024 
CAF  7FRC 
TS  DISPDEX 

CAF  PRI013 
TC  FI  NO  VAC 

F.  BANK=  STARINO 
2C  ADR  ASTNRFT 


TCF  FNDOFJOB 


0629  REF  5f  LAST  7?9 
'63^  RFF  3 1 A ST  7? 6 


36,  3 1 ( 

36, 041 


0 5C 1 5 0 ^PROCEED  TC  UPF  LAG 

00154  1 AORES  AS T N FL  AG 


0631  REF 


36,  3042  1 3 1C  1 0 


TCF  IGKITF 


f 632 
0 63  3 
0634 


REF  17  LAST  731 


36  ,3  >43  r ( 004  ( 

i 51* 

36,  3045  0 0(  C 3 1 


*ENT ER 


INHINT 

INDEX  WHICH 
TC  3 


635  RFF  ? LAST 

0636  PEF  2Q  LAST 

0637  RFF  2*  LAST 

r'638  RFF  2 [AST 

0638 
06382 

0638  3 RFF  27  LAST 


?1  8 
732 
730 
?4  8 


728 


36,3046 
36,  3047 
67  , 1 453 
36,3050 
36,  3o  5 1 
36  ,305? 
36,3053 


3 4644  0 
C 5105  0 

03 222  0 
74067  0 
0 0004  0 
C 4674  0 


GOPOST 


CAF  PR  1012 
TC  F I NDV  AC 

FB  AN<=  T TOGO 
? C ADR  POST  BURN 

IN  HINT 

TC  I BKKCALL 
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BLANK  DSKY.  THE  I) SKY  IS  BLANKED  FOR 
5 SECONDS  AT  TIG-35  Tfl  INDICATE  THAT 
AVERAGE  G IS  START  IMG. 


STOP  CL  OK  TA  S*  E TURN  OFF  ULLAGE  ON  THE 
WAY  TO  POO  ( GOT  3P00H  OFLINTS) 


TURN  OFF  ULLAGE.  . . 

DON'T  LET  IT  COME  ON,  EITHER... 

NOT  EVEN  IF  THERE'S  A RESTART. 

KILL  CLOKTA  SK 


STTP  DISPLAYING  BUT  KEEP  RUNNING. 


(3)  MUST  BE  LOWER  PRIORITY  THAN  CLOKJOB 


SET  UP  THE  DAP  FOR  CCASTING  FLIGHT 


iAP:  ASSEMBLF  PF  VI  SI  ON  56  OF  AGC  PROGRAM  ZFPLINA  BY  ZOROASTER 


BJRN,  P.ARY,  BURN  — MASTC3  IGNITION  ROUTINE 


063A4  RFF  2 LAST  237 

P-FF  ? LAST  732 

0640  REF  43  LAST  732 

0641 


36  ,3054 
36, 3055 
36,  3056 
36,3057 


40205  1 
C 3C14  1 
0 5364  0 
00134  1 


C ADR  ALLCOAST 

TC  NULLCLCK 

TC  PHASCHNG 

CCT  00  134 


3 64? 


REF  110  LAST  73? 


36,  3 060 


c 1 5 5 


TCF  FNPOFJOB 


0643  REF 

0644  RFF 

0645  RFF 

0646  RFF 
3646  PFF 
0646  RFF 
0650  RFF 


LAST 
I A ST 
LAST 


LAST 

LAST 


7?  1 
732 
725 


728 

728 


36,3061 
36, 3 C 6 2 
E7,  15  14 
36,3063  02416  C 

36,  3C64  3f  C67  0 

36.3065  0 5527  1 

36.3066  00175  1 


PR  in  17 

TC  FINDVAC 

EBANK=  TOO 
2 C ADR  CUTOFF 

TC  DOWNFLAG 

AORES  FLUNCISP 


3 5027  1 GOCUTOFF  CAF 
C 5105  0 


36432 

06504  PFF 
06506  RFF 

0651  REF 

0652  REF 
3653 

0654 

0655  RFF 

0656  RFF 
0656 

3647  REF 


2 8 LAST 
3 LAST 
3 LAST 
44  LAST 


6 1 AST 

2 L AST 

111  LAST 


73? 

733 

733 

733 


733 

733 

733 


. 

. ■ 

36,  3C71 
36,  t.372 
36 , 3 C 73 
36,  3r 74 
3d  ,3  3 75 
E7.1514 
36, 3Q76 
36  ,3077 
36,  3100 


0 0004 
0 4674 
4C2C5 
0 3014 

0 5364 
07024 
17000 

024  16 
30067 

1 5155 


0 

0 

1 

1 

0 

0 

l 

0 

0 

1 


INHINT 

TC  IQNKCALL 

CADR  ALLCOAST 
TC  NULLCLOK 

TC  PHASCHNG 

OCT  0 7024 
OCT  1 7000 
E 8 ANK=  T GO 
2CADR  CUTOFF 

TCF  ENOOFJCB 


f 65  8 
C659 
3661 
C 661 
066? 

0663 

0664 
3666 


RFF  11  I AST  724 
PFF  ? I A ST  7?4 
RFF  211  LAST  731 
RFF  1 

REF  35  1 A ST  7?9 

RFF  17  LAST  730 
REF  3 LAST  724 


36,3101  4 0103  1 

36,310?  7 4737  1 

36,  3 1 C 3 10  OCO  0 

36  ,3104  1 31  15  o 

36,3105  ? 4753  1 

36,  3106  C OOC 4 0 
36  ,3107  0 5204  1 

36,3110  C2433  1 


IGN  ITE 


CS  F|  AGWR07 

MASK  1GNFLB1T 

CCS  A 

TCF  IGNITE! 

CAF  BIT1 

INHINT 

TC  TWIDDLE 

ADRES  IGNITION 


0666 

66  7 
3668 
0669 


REF  1 
REF  IOC 

REF  5 


36,3111  3 4360  0 

L AST  730  16,31  1 2 54  001  1 

36,  31  13  4 0000  0 

LAST  726  36  ,3114  52  760  1 


CAF  DC  T 23 

TS  L 

COM 

OXCH  -PHASE4 


IS;1112  mm  ,CN,rE' 


CNTONDEX 
D I SPOE  X 


• 672 


REF  11?  LAST  733 


36,3117  1 5155  1 


TCF  ENCOFJOR 


R3673 


*»***«**«»**ec: 
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4.13  RESTART  FOR  POSTBURN 


( 31 


SET  UP  THE  DAP  FOP  COASTING  FLIGHT. 


IMMEDIATE  RESTART  AT  IGNITION. 


RESTORE  OLD  DISPL  A 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


PORN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 


76 
6 77 
1 6 7 8 

0679 

96B9 

0681 


PEF  loj 

PCF  2f, 


REF  ? 
RFF 

REF  1 


LAST  73  2 

LAST  718 


36,3120  C 5600  1 P40AL 
36,  3 121  C 17C6  1 


TC 


36,3122  3 5006  1 

16,  3123  C A 6 1 6 1 
36, 312A  20A77  I 

' I 

36,  3126  1 3 130  1 

36  ,3127  1 312?  1 


OCT 

FPAOALM  CAF 
TC 

C A 03 


TCF 

TCP 

TCF 


VD5N09 
0 ANKC ALL 
30FLASH 


GOTOPOOF 
>2 

3 FP  AOALM 
INDEX  WHICH 


36,3130  51*455  1 

36,  3 131  0 00  1A  1 TC  1 A 

********#******<■*#$****** 


3655 

0686  REF 

0687 


31,  2 1 AA  BANK  31 

35  ,2000  SFTLOC  R A0S2 

35,3715  BANK 


0688 


REF  2 LAST  7?7  TO  728: 


25*  COUNT*  t*/PAO 


0689  RFF 
3 690  OFF 
0691  RFF 
C 692  REF 
3693  RFF 
069A  RFF 
'695  RFF 
0695  RFF 
0697  PEF 
3598  REF 
0599  RFF 
7' 

9731  rff 

0702 

0703  REF 
07QA  REF 
0705  RFF 
3796  RFF 
07f7  REF 
0708  RFF 
3799  REF 
0710  REF 


1C  LAST  729 
A I AST  AH? 
19?  I AST  73 A 
3 I AST  527 

212  LAST  733 
1 

8 LAST  7?? 
13  LAST  722 

213  LAST  73  A 
1 

32  l AST  712 
A LAST  A8  A 

2 I A ST  73 A 
1 

IQ?  LAST  73  A 

3 LAST  522 
21  LAST  73a 

1 

5 LAST  7 3 A 
13  LAST  730 


35  ,3715 

15. 3716 

35.3717 
35,372 J 
35,  372  1 
35  ,372? 
35,3723 

• 

35,3725 
35,  3726 
35.3727 
35 ,3730 
35,  373  1 
35  ,3732 
35,3733 
35, 373a 
35 ,3735 
35,  3736 
35,  1 73  7 
35 ,3  7A0 
3 5,  3 7 A 1 
35  ,37A2 


0 A6A5  1 
55' 163  0 

0 A6  16  1 
5A263  1 

10  000  0 

1 3734  0 
3 A737  0 
7 0106  1 
10  000  0 
1 3741  1 
3 A7A7  1 

0 0006  l 
C 2 C 30  0 
0 0006  1 

1 37A1  1 
37 A 3 1 

0 A616  1 
2C62A  0 

1 6 CO  1 1 
1 3717  1 
3 1163  1 
0 4 6 A 0 1 


PAOAUTC  TC 
TS 

PAOA/P  TC 

CADK 

CCS 

TCF 

CAF 

MA  SK 

CCS 

TCF 

CAF 

EXTEND 

RAND 

EXTEND 

BZF 

TURN  I TON  CAF 
TC 

CADR 

TCF 

TCF 

GOBACK  CA 
TC 


MAKFCAOP 
TFMPR60 
BANKCALL 
G+N,  AUTU 
A 

TURN  I TUN 
A PS  FL  H IT 

F LGWRO  1C 
A 

GOBACK 

B I T 5 

CHAN'3  0 

GOBACK 
RAOA  /PMD 
BANKCALI 
GCPEPFl 
SOTOPOOH 
PAOA/P 
TER  PR60 
BANKJUMP 


r'  7 1 1 


35 , 37 A 3 CC2C3  0 P40A/PMD  OCT  00203 


0712 


36,  3132 


BANK  36 
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PROGRAM  SELECTION  NOT  CONSISTENT  WITH 
VEHICLE  CONFIGURATION 

I 1 A » 


V3AF  TERMINATE 
PROCEED  CHECK  FOR  PA2 
V32F  REDI SPLAY  ALARM 


FOP  PA  2 , AILPW  CP  FW  TO  PROCEED  EVEN 
THOUGH  VEHICLE  IS  UNSTATED. 


******* 


HELL  3 THERE. 

FOR  GENERALIZED  FFTURN  TO  OTHER  BANGS. 
SUBROUTINE  TO  CHECK  PGNCS  CCNT  ROL 
AND  AUTU  STABILIZATION  MODES 
+ INDICATES  IN  PGNCS,  IN  AUTO 
+ INDICATES  NOT  IN  PGNCS  AND/OR  AUTO 
APF  rfE  ON  THE  OESCENT  STAGE? 


RETURN 

YES,  CHECK  FOR  AUT  CTH  RCTT  I.  E MODE 


IN  AUTOTHROTTLE  MOOF  --  RETU3N 
DISPLAY  V50N2  5 Rl=203  PLEASE  PERFORM 
CHFCGL  I ST  203  TORN  ON  PGNCS  ETC. 

V3AE  TFRMINATE 
RECYCL  E 

GOODBYE.  COME  AGAIN  SCCN. 


GAP:  ASSEMBLE  REV  IS  IUN  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


PAGE 


735 


BURN,  BABY,  BURN  — MASTER  IfMTICA  ROUTINE 
f REF  5 LAST  720  |6, 

0715  REF  5 LAST  720  TO  734:  226  602* 


7 19 
0720 
3 721 
722 


9:12  Cf.  T . 21,1970  ZFIY 
USER  • S PAGE  NO. 


COUNT*  1-S/P4C 


REF 
PFF 
R EF 
REF 


CONSTANTS  FOR  THE  IGNITION  ROUTINE 

******$£***$41*$***$:*#*  #$*.****  4**«**4***4 


36,  2107 
36  ,3132 
36,  3133 
36,3134 

F 7 ,15  13 

36, 3125 
36 ,31 36 


SER  VC  ADR  = 

0204<!  1 PA0A9RES  ADRES 
C205O  0 P41A0RES  AORES 


P 63  TABLE 
PAOTABLF 
P^lT ABLE 


02063  0 P42ADPES  AORFS  P42TABLF 


02^,17  1 
62067  I 


E /»  1 c 1 3 
36 , 1 137 
36,3140 
60C  1 


0731 


36,3143  04672  0 S24.9SEC  DEC 


C73? 

733 

37331 


REF  33  LAST  734 


36,3144 

4747 


0C75?  1 4.9SFC  DEC 

0CT20 


36,3145  Cl 475  0 VD6N51 


3 I T5 
0661 


;&•> : 


ASSEMBLE  RF  VI  SI  ON  5 6 OF  AGC  PR f GR  AM  ZCRLINA  BY  ZOROASTER 


>:  12  OCT.  21,  1970  ZFl 


049  PAGE  736 


BURN,  PABY,  BURN  — MASTER  IGNITION  ROUTINE 


USER'S  PAGE  NC.  20  E7  S3 


P 735 
1 

p.j  ni 


KI LLTASK 

MOO  NO:  NF  W PPOGP  A M 
MCO  BY:  COVELLI 


3 073R  FUNCTIONAL  OFISCP!  PTI  CN: 


R C 7 4 1 
1 ' 743 
<0  7 ',5 


< II  I TASK  IS  USFD  TD  R 
WHICH  PEPFLY  DCFS  A TC  T 
FIRST  IS  RFMOVFO.  IF  THF 
IEAVFS  INTERRUPTS  INHIBI 


7 MOVE  A 
ASKUVER 
TA  SK  I 
TED  SO 


TA  SK 

. IF  T 
S ACT 
CALLFP 


FROM  THE  WAITLIST  BY  SUBSTITUTING  ANUIL  TASK  CALLED  •NULLTAS-C'  IDF  COURSE), 
HE  SAME  TASK  IS  SCHEDULED  MORE  THAN  ONCE,  ONLY  THE  ONE  WHICH  W I LI  OCCUR 
SCHEOULED,  KILLTASK  TAKES  NO  ACTION  ANO  RETURNS  WITH  NO  ALARM.  KILL  TASK 
MUST  RELINT 


R 0 74  6 CALI  I NC.  SFQUFNC  6 : 


A- <748 
AC  74  9 
A ' 71f 


L TC  KILLTASK  IN  FIXEO-FIXEO 

LfT  C ADT  ????????  CADR  (NOT  2 C ADR ) OF  TASK  TO  BE  REMOVED. 

L+2  I RELINT)  RETURN 


RD751 

R i)752 
R P 753 
R0754 


FX  IT  MOCE:  AT  L+2  OF  CALLING  SEQUENCE. 
ERASABLE  I NI T I / 1 I Z AT  I 0N=  NC  A E . 

OUTPUT:  2CA0R  OF  NULL  TA  SK  IN  LST2 

DEBRIS:  ITFMPl  - IT  EMP4,  A,L,0. 


755  REF  19 

D 756 

757  REF  3 

'750 

3759  REF  1 

0760  REF  1 

07605 

0761  PFF  ?H 

076?  REF  184 

■>763 

0764  RFF  20 

0765  PEF  1 


LAST  228  E3 
LAST  572 

I AST  7 3/, 

LAST  730 

LAST  59  7 


,1410 
60  32 
6000 

6032 

5032  3 6L41  l 

6033  C OCO A 0 

6034  22  000  1 

6035  50  00?  0 

6036  3 OCCO  1 

6037  22  C06  1 

6040  1 2? 00  0 


E BANK=  LST  2 

BLOCK  3 KILLTASK  MUST  BE  IN  FIXED-FIXED. 

SETLOC  FFTAG6 

BANK 

COUNT*  Sf  /KI  LL 

KILLTASK  CA  K ILLBB 

INHINT 
L XCH  A 

INDEX  0 

CA  0 GET  CADR. 

L XCH  8BANK 

TCF  KILLTSK2  CONTINUE  IN  SWITCHED  FIXED 


'766  REF  20  LAST  736 
0767  PEF  2 I AST  736 


E 3,  1 4 1r 
6041 


56C63 


K ILL  BB 


ERANK=  LST2 
RBCON  KILLTSK? 


•i  76  8 


27,2200 


BANK  27 


0769  RFF  3 LAST 

C 770 

D77 1 RFF  l 


■ ■ 

27,2200 


SETLOC  P40S1 
BANK 

COUNT*  ft  /KI  LL 


77? 


REF  10  LAST  553 


27  ,?200 


22  L 62  C K I LL  T SK  2 LXCH 


I TEMP  2 


SAVE  CALLFR'S  BBANK 


o.AP:  ASSEMBLE  REVISION  46  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


BURN,  PARY,  BURN  — MASTER  IGMTICN  ROUTINE 


->77  A 
0 774 
' ' 77S 


REF  1 85 
P.  EF  28  1 


LAST  73ft 
LAST  610 


27,  220  1 
27  ,2202 
27,2203 


24  CO 2 0 
C 0006  1 
22  061  0 


I NCR 

EXTEND 

QXCH 


0 

ITEMP1 


■7  76 
r 7 77 
2778 
1770 


REF  19  LAST  569 
PFF  8 LAST  463 
RFF  2?  LAST  439 
REF  7 LAST  566 


27,  22C 4 c4  C 6 3 C 
77, ’205  7 6012  O 

27,  2206  6 4741  1 

27,2207  54  064  1 


TS  I TE  MP3 

M AS  K L OW  1 r 

AD  RIT11 

TS  ITFMP4 


0 780 
378  1 
0782 


RTF 

WFF 

PFF 


LAST 
I AST 
I AST 


f.’BYI 

27  ,2212 


4 5 012  0 
7 OC  6 3 0 
54  063  I) 


CS  LOW  10 

MASK  I TEMP3 

TS  I TEMP  3 


:»  796 
C 7B7 
^788 
1789 
0 790 
' 7°J 
0792 
G7«3 
->794 
0 795 


REF  101  LAST 
PFF  21  LAST 
REF  81  AST 

RFF  1 
REF  1 

REF  102  LAST 

REF  1 
RFF  103  LAST 
RFF  104  I AST 
REF  1 


733  I?:  HI? 

736  27,2215 
7 I 

27  ,2217 

. 

27, 2221 

737  27  ,2222 

1, 2 i 
27, 2224 
737  27,2225 

737  27, 2226 

27  ,2227 


22  CC7 
50  CC1 

4 1410 
6 CC64 
0 0006 
1 2232 
* 4747 
6 0001 
( CC06 
1 2230 
24  001 
24  CC1 
1 2214 


0 

0 

1 

0 


0 

0 

1 

0 

0 

0 

0 


ZL 

ADR  SCAN  INDEX  L 

CS  LST  2 

AO  I TF  MP4 

EXTEND 

BZF  TST  FRANK 

LE  TI  TL  I V C S L STLI  M 

AD  L 

EXTEND 
BZF  DEAD 

I NCR  L 

I NC  R L 

TCF  ADR  SCAN 


' 796  REF  29  LAST  73  7 
1 1 797 


‘l  C 62  l OE AO 

?/  rc6  o 


UXCH  IT  EM  PI 
I1TC3 


■ 7P8 
1799 
0800 
0801 
193? 
08C3 

0804 

0805 


REF  7 
RFF  105 
REF  2? 


I A S 1 
LAST 
LAST 


737 
737 
73  7 


RFF  22  I AST  737 


REF  1 
REF  1 


27,2232  4 5012  0 

27,  2 ’ 3 1 50  r C 1 0 

27.2234  7 1411  0 

27.2235  C "006  1 
27,  2236  <C  0t3  1 

r ,2237  l 

2 7 ,2240  1 2242  0 

>7,  224  1 1 2221  O 


TST  FRANK  CS 

I NDE  X 
MASK 
EXT  END 
SU 

EXTEND 

BZF 

TCF 


LOW  10 
L 

L ST 2 +1 

1 TEMP3 

K ILLOEAD 
LF  TI  TLI  V 


PFF 

REF 

RFF 

PCF 


1 

1«  6 LAST  737 
23  LAST  7’7 
2 LAST  73  7 


27,224 

' , 

27.2244 

27.2245 


3 4353 

5 c rci 

55  '410 

1 2230 


0 

0 

1 

0 


K ILL  OEAD  CA 

I NOEX 

TS 

TCF 


TCTSKOVP 

L 

LST2 

OEAD 


3810  REF  3a  l AST  735 


LSTl  IM  EQUAL  S BI  T5 


: 12  OCT.  21  ,1970  ZFLY  .049  PAGE  737 
USER  'S  PAGE  NO.  21  E 3 S3 

RETURN'  2CADR  IN  I T EMP  1,  I TEMP  2 
CAOR  I S I N A 

GENADR  OF  TASK 

FRANK  OF  TASK 


COMPARE  GFNADRS 

IF  THEY  MATCH,  COMPARE  FBANK  S 

ARE  WE  DONE? 

YFS  - DONE,  SO  WETUPN 

CONTINUE  LOOP. 


COMPARE  FRANKS  ONLY. 

MATCH  - K ILL  IT  . 

NO  MATCH  - CONTINUE. 

REMOVE  TASK  BY  INSERTING  TASKClVER 


DEC  1 6 


ZOROASTER 


Z FLY 


POO.  1 
R0002 
1001' 3 


ASSEMBLE  RFVISIGN  56  OF  AGC  PROGRAM  ZERLINA 
P4G-P47 

PROGRAM  DESCRIPTION  P4030T1I 
POO  0 3 PY  PFT  FP  ACL E R 
CALLED  VIA  JOB  FRCP  V37E 

FUNCTIONAL  DESCRIPTION 


9:12  OCT • 21,1970 

USEP  'S  PAGE  NC. 


.049  PAGE  738 
EC  S3 


PREFERRED  VFHICLE  ATTITUDE  FOR  A l«  DPS 


TC  DO  TPF  VEHICLE  MANEUVER  TO  THE  THRUSTING  ATTITUDE. 


R3319  SUBROUT  INES  USEO 


R0020 
l"  ?l 

R3  1 2? 
ROD  23 
ROC  24 

RD125 
t 0(  76 
R00?7 

R0n2g 

t 0C29 
1033? 
R0031 
RO.1  33 
R3 ' 15 


R02  I MU  STATUS  CFECK 

S A . I COMPUTATION  CF  THRUST  DIRECTION 

S 40.1  3 L ENGTH  OF  B LR  N 

£4f . 2 ,3  PREFERRED  I MU  CRIENATT ION 

$40. P X PRODUCT  STEERING 

S4L  .9  LAHQFRT  VTOGA  IN 

R6DLE  M ATTITU06  MANEUVER 

LEMPREC  EXTRAPOLATE  STATE  VECTOR 

PRFRE  A T AVERAGE  C.  SERVICER 

AI.LCOAST  DAP  COASTING  INITIALIZATION 

CLOKTASK  ERGO  CLOCK JOR--COUNT  DOWN 

PHASCHNG,  INTPRFT,  FLAOJP,  FLAGDOWN,  WAITLIST,  l DN  GCAL  L , GOFLASH,  GOF LA SH P , 3 GPE RF 1 , ALARM, 
PRKLAPM,  GO  TflROCH  , E NDCF  JOS  , BANKCALL,  SETMAXCP,  S ETM  INDB,  CHECKMM,  FLATOUT,  OUTFLAT, 

K II  L TASK,  SGNAGREE,  TPAGRFE,  ETC. 


10036  RESTARTS  VIA  GROUP  4 
R 30  37  DISPLAYS 


R003B 
T0040 
R3341 
ROf  42 
ROD  4 3 
R3344 
? 0045 
R0046 


V5?NZ5  203  A/P  TO  PGNCS,  AUT 0 THROTTLE  MODE,  AUTO  ATTITUDE  CONTROL 
VC6N4C  T 1 1 , VG,  DELTAVM  (DISPLAYED  CNCE/S  ECOND  BY  CLOKTASK) 

V 5PN99  PLEASE  5 6R  FORM  ENGINF  ON  ENABLE 

VC6N40  TC  (TIME  TO  CC  TC  CUTOFF),  VG,  DEL  TAVM  — ONCE  / SECONl  - 
V16N40  FINAL  VALLE?  OF  TG  , VG , DELTAVM 

V16N85  COMP  OF  VG  (BODY  AXES)  FUR  PO  SS.  RC  S MANUAL  MA  NF  UVF  P 
V05N09  POSSIBLE  ALAFMS 
V50N07  PLEASE  SELECT  POC 


PROGRAM  7E  RLINA  BY  ZOROASTER 


GAR:  ASSEMBLE  RFVISION  56  OF  A3C 

L PAO  -PA  7 

< O'  A 7 VI  A P30 


9:  12  OCT  . 21,  1970  Z FL  Y 
USER'  S PAGE  NC. 


-0A9  PAGE 
? EO  S3 


739 


KD.x.9  V06NAA  hAPO,  PERI,  TFF 

RU0A9  VC6N35  TIME  TO  PERIGEE,  HMS 


R005P  Al  ARM  PR  ABORT  FXIT  MOPES 

ROCS  1 PROGRAM  ALARM,  FLASHING  OISPLAY  OF  AL  AT  M CODE  1706  IF  PAO  SFLECTFO  WITH  OESCENT  UNIT  STAGED. 

T 00  53  V3AE  (TERRI  NATE)  IS  THE  CNLY  RESPONSE  ACCEPTED.  TC  G3T0P00H. 


RDD5A  PROGRAM  ALARM,  FLASH  CODE  1703:  TIG  LESS  THAN  A5  SFCS  «WAY.  v3A  F=  GOTOPOOH  OR  V?3e=  SLIP 

R 0056  TIG  BY  A 5 SECS. 


2 0057  FRA  SARI  F INITIALIZATION 
R3D58  DEBRIS 
R0059  CUTPL'T 


RD060 
R0062 
2 0063 


SF>  SIR'-OCTINF  S E.G.  : SAC.  1 , SAO.2,3,  SA0.I3,  SAO  .R  , SA'.Q,  TPIMG1MR 
XOEIVFIG  = 1 FOR  EXT  OELV  COMPUTA  TIDN 
= 0 FOR  AIMFT  (LAMBERT)  COMP 


REF  2 L AST  38  TO  39:  1C  10* 

RFF  IQ  LAST  73 A F7.1A55 


COUNT*  TS/PAC 
FRAN*=  WHICH 


0066 

D 3 67  RFF  6 LAST  735 
0068 


36  ,3 1 A6 
36,  2000 
36  ,3  1 A6 


RANK  36 
SETLOC  PAOS 
BANK 


0069  REF  A5  I A ST  732 
00602 


is:u® 


PAOLM 


TC  PHASCHNG 

OCT  OA02A 


0069 A REF  1 
DD7"’  REF  2l  LAST 


36,3150  3 3132  1 

739  36, 3151  55' A55  0 


CAF  PAOAURES  INITIALIZATION  FOR  BURNBABY. 

TS  WHICH 


3373 
OP  f A 
0079 
0C80 


RFF  1 
RFF 
RFF  21 
REF 

REF  IQ 
REF 


I AST 
LA  ST 
I AST 


73A 

734 

7 36 


. I 

36,3153 
36,  3 15A 
36  ,3155 
36, 3156 
36,  3 157 


3 0 106  C 
7 4737  1 
10  000  0 
1 3120  0 
P A6 1 6 1 
1 1 2 A 1 0 


CA  FLGWRD1C 

MASK  APS  FL  B IT 

CC  S A 

TCF  PACALM 

TC  BANKCALL  GO  DO  IMU  STATUS  C HFCK  ROUTINE. 

CAOR  RO2B0TH 


P0R0  1 RFF  27 
339D?  REF  5 
00803  RFF  ?16 
OO  80  A RFF  1 

00805  REF  1 

00806  RfF  2 
D 380  7 REF  1? 
00808  REF  27 


(AST  779  3h,3|6n 

l AST  300  36,  3 1 6. 1 

LAST  739  36  ,3162 

3 6,3  16  3 
36,  3 164 
LAST  107  36  ,3165 

LAST  728  36,3166 

LAST  735  36,  31  67 


A 0111  1 
7 A 7 37  1 
10  000  0 
3 202?  0 
6 2023  1 
55*251  l 
? A751  0 
55*513  0 


CS  OAPBOOLS  INITIALIZE  DVMON 

MASK  CSMDOCKO 

CCS  A 

CAF  THRESH1 

AD  THRFSH3 

TS  DVTHPUSH 

CAF  FOUR 

TS  DVCNTR 


» AP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERL  IN  A BY  ZOROASTER 


P40-P&7 


3381  RFF  9R 

OCR? 

0003  RFF  1 

3384  RFF  1 

OC 85  RFF  2 

0085  2 

OC  R5 4 REF  1 

00856 

33P6  PEF  1 

0087  RFF  1 

OOR0 

338P  RFF  1 

0090 


L AST 


LAST 


7?  1 


1 '.7 


} 6 , 3 1 7 C 
36  ,3171 
36,31 7 2 
36,  7 17  3 

36 .3174 

36.3175 
36,  3 176 
36,31 77 
36,  3200 
36,3201 
36,320? 
36,  3203 
36  ,3204 


C fcC  5 7 0 
43175  0 
340 Cl  1 
02663  0 
0 3735  0 
77735  0 
2600 2 1 
704  76  0 
27743  0 
56246  1 
77624  1 
66413  1 
77776  1 


P40  IN 


TC  INTPRET 

VLOAD  CL  FAR 
FOPS 

NO  THROTL 
STORE  F 
SLCAD 

DPSVE  X 
OCCMP  SRI 
STCALL  VEX 

S40.  1 

CALL 

S40.2,3 

FX  IT 


0090  1 

00902  REF  ?c  LAST  733 

00903  PEF  1 


26,3205  C CCC4  C 
36,  3206  0 46  74  0 

36,320  7 40143  0 


INHINT 

TC  IBNKCALL 

CADR  PFLfTEDB 


3331  REF 


36,3210  C 3212  0 


TC  P40SXT4 


R 0092 

0093  REF 
R0094 


1 ?130 


0 


$$*****$ 

TCF  RURNBABY 

«**«<>  #««****! f.**  *«**$* 


1/094 
3 396 
0100 


PEF 


3 LAST  73? 


36,3212 
36, 2213 
34,3214 


C 3006  1 

22*141  1 

0 0003  1 


P40SXT4 

P41MANU 


EXT  END 

QXCH  P4C/RFT 
3EL INT 


TC  DOWNFLAG 

ADRES  3AXISFLG 


0103 
O 1 4 
0105 


REF  155 
REF  4 
RFF  4 


LA  ST  739  36  ,3217  0 4616  1 

LAST  528  36,  3220  £4125  0 

LAST  740  36,  3 2 2l  C 1 141  l 


TC  BANKCALL 

CADR  R60LEM 
TC  P 40/RE  T 


0 1 OR 
0 109 
Olio 
"111 
3112 
0113 
0 114 
5 115 
Cl  I 6 
0 117 


RFF  1 9 

REF  1 
RFF  4 
PEF  1 
PFF  1 96 
RFF  1 
PFF  1 
REF  2 
REF  3 


I AST  727 
LAST  732 
I AST  733 

LAST  722 
LAST  74C 

LAST  727 
LAST  732 


W;i!S 

36  ,3223 
36  , 3224 
36, 3225 
36  ,3226 
36, 3227 
. 

36.3231 

36. 3232 
36  ,3233 
36,3  234 


3 0005  1 
55*162  1 
C CCC6  1 

3 2060  0 

53*253  0 
2 37  51  1 

0 4616  1 
20636  0 

C 3255  0 

1 3240  0 
0 3222  0 


EBANK=  TRKMKCNT 

PO  STB  URN  CA  Z 

TS  OISPOEX 

EXTENO 

DC  A A3A0NR5 

DXCH  AVEGFXIT 

CAF  V16N40 

TC  BANKCALL 

CADR  GOFLASFP 

TC  TFRP40 

TCF  T I GNO W 

TC  POST  BURN 


9:12  CCT.  21  ,1970  l FLY 


.^49  PAGE  74. 


USER  *S  PAGE  NO.  3 F7  S3 

LOAD  CONSTANTS  FOR  DPS  BURN 
LOAD  F,  MOOT,  TDECAY 


LOAD  EXHAUST  VELOCITY  FOR  T GO  COMP. 
COMPUTES  UT  AND  VGTIG 

COMPUTES  PRFFFRRFD  I Ml  I OR  T ENT  AT  ION 


7EP0  ATTITUDE  ERRORS,  SF  T 00  TO  ONE  DEG. 


Cl  EAR  3AX  IS  F_  G — R 60  WILL  USE  VECP01NT. 


00  ATTITUDE  VAN  RIVER  ROUTINE 


GAP:  ASSFM&LE  REVISION  56  OF  AGC  PRCGRAM  ZCRLINA  BY  ZGROASTER 


9:12  OCT.  21,1970  ZFLY  .049  PAGF  741 


L P40-P47 


USER'S  RAGE  NC. 


E7  S3 


011B  RFF  46  LAST  739 

0 110 

Ol?0  RFF  113  LAST  733 


36  ,3235  0 5364  0 P40PHS  1 TC 

36,3236  0CC14  1 OCT 

36,  3237  1 5165  1 TC  F 


P HA  SC  HNG 
30014 
ENDOF  JOB 


121 

31211  RFF  30 
01212  RFF  * 
0122  RFF  31 
3123  REF  3 

0124 

0125  RFF  2 
:126  RFF  1P7 
0127  RFF  1 
3123  REF  ? 
0120  REF  3 
0130 


1 AST 
LAST 
I AST 
I AST 

LAST  722 
LAST  74C 

I AST  740 
LAST  74  1 


36,3240 
36,  324  1 
• 

36,3243 
36,3  244 
36  ,3245 
36 ,3  246 
36,  3 247 
36  ,3250 
36, ^251 
. 

36,325  3 


C 0004  0 
C 4674  0 
40154  0 
C 4674  0 
40141  1 

0 0003  1 
2 3752  1 
C 46 1 6 1 

20463  1 
C 3255  0 

1 3255  1 
C 3246  1 


7 40 

528 
74  1 
52  H 


T IGNUW 


INHINT 

TC 

CADR 

TC 

CADR 

KEL  I'JT 

CAF 

TC 

CADR 

TC 

TCP 

TC 


I B MCCALL 
ZATTEROR 
I BNKCALL 
SE  TMI NDG 

V16N85B 
BANKCA  LL 
REFL  AS  HR 
TERN40 
TERM40 
-5 


31305  REF 


36, 3254  1 3235 


TCF  P4  0PHS1 


0131 
0 132 

■ 133 


"134 
1 1 35 
-13f> 
0137 
3139 
130 

0 1 40 

01  4 1 
’ 142 


R FF  1 

RFF  5 LAST  740 
REF  130  LAST  732 
REF  o LAST  740 
RFF  2f  LAST  740 
REF  20  LAST  740 

REF  3?  LAST  741 
REF  6 LAST  528 

RFF  23  LAST  735 


36  ,3255  G 0006 
36,3  256  3 2110 

36,3257  53*253 

36  ,3260  3 4755 

3 6,  3 26  1 55*  462 

36.3262  3 0005 

36.3263  55*162 

36,  3264  C CCC4 
36,3265  0 4674 

36,3  266  40115 

36,  3267  0 OOC  3 

36  ,3270  0 6001 


0 

0 

1 


1 

0 

0 

0 

1 

0 


T ERM40 


EXTEND 

DC A SERVCAOR 

DXCH  A VEGF  XI  T 

CAF  ZERO 

TS  TRKNKCNT  ZERO  RENDZVS  CNTERS 

C A Z 

TS  DISPDEX 

1 NHI  NT 

TC  IHNKCALL 

CADR  RFSTORCB 

RFLINT 

TC  GOTOPOOH 


3143 
0 1 44 

0 145 
3 146 


REF  21  LAST  739 
RFF  1 
REF  1 

REF  22  LAST  74  1 


E 7,  1455 

36,  3271  3 3133  0 P41LM 

36, 3272  55*455  0 


EHANK=  WHICH 
COUNT  * SS/P41 
CAF  P41ADRES 

TS  WHICH 


INITIALIZATION  FOR  BURNBA6Y 


RFF  194  LAST  741 
RFF  4 |AST 


1 

0 


TC  BANKCALl 

CADR  R02B0TH 


' 148  2 RFF 
31443  REF 
1484  RFF 
01485  REF 
'i486  PFF 

01487  RFF 
1 4 B 8 REF 

01488  REF 
'1489  REF 


1 40 

7 

8 
6 

21 

31 


LAST 
LA  SI 
L AST 
LAST 
LAST 
l AST 
LAST 


74  1 
719 
741 
698 
74  1 
733 
250 


LAST  73C 


. 

36,  3277 

. 

36,3301 
36,  3 30 2 
F7  ,1  703 
36,  33C  3 
36,  3 3fP 
36,7305 


3 4 755 
55' 507 
5 5 • 5 1 ( 
3 50  17 
55*  16  2 
C c 1C5 


03366 
3 4067 
0 5340 


0 

0 

1 

l 

0 

1 

c 

0 


CA  ZERO 

TS  OVTOTAL 

TS  OVTOTAL  +1 

CAF  PR  IP  5 
TS  DISPDEX 

TC  F I NO  VAC 

EBANK  = V GPP  EV 
2 CADR  DYNNOISP 


Zc RP  OVTOTAL  FOR  NGUN  40  DISPLAY 


FOR  SAFETY 


TC  2PHSCHNG 


SAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  BY  ZORO AST  6P 


P40-P47 


Ufiql 

•'  160  9 2 


36,3305  C01 16  1 OCT  00116 

36,3307  C6026  0 OCT  06026 


3169  PEF 
0150 

151  PFF 

jl52  PFF 
0153  RFF 


QQ  I AST  760 


36,  3 310  C 6C‘1  0 

36.3311  71216  0 

36.3312  C C 7 0 0 0 

36,  3 3 1 3 7 5 117  C 

36,3316  36017  0 


TC  JNTPRET 

BON  DLOAO 

NJETSFLG 
P 6 IF  JF  T 1 
FRCS6 


; i 56 
ni  66 


PCF 

PFF 


3 L AST  760 


36,  3315  37735  1 P6  IF  JE  T STCALL  F 

36,3316  75322  0 P61IN 


0 156 

)167  PFF 
0158  PEF 


LAST  762 


36,331 7 
36,  3 3 20 
36 ,3321 


77765  1 P61FJET1  OLOAD 
36021  0 FRCS2 

03735  0 STORE  F 


0^6  0 

166 
3 165 
166 


1 El 
REF 


3322  17626  1 

2 I AST  760  36,3323  56266  1 

36,3326  77626  1 

2 L AST  760  16,  3325  56613  1 

36  ,3326  77776  1 


P 6 1 I N 

P61  NORM 


CALL 
CALL 
EX  IT 


S60.  1 

S60.2  ,3 


1 AO 
01  70 
0171 
3172 
C 1 73 
' 174 


PFF  33 

PEF  5 
PEF  36 
REF  A 
PEF  2 


LAST  74  1 
LAST  76  1 
I AST  762 
LAST  761 
LAST  76  C 


36,  .3  3 3f 
36,333  1 
36,  3 332 
30,3333 
36 ,3336 


C CCC6  0 
C 6676  O 
60156  0 
C 6676  0 
60161  1 
C 3212  0 


INHINT 

TC  I3NKCAIL 

CAOR  7 ATT  ER  OR 

TC  IBNKCALL 

CADR  SETMINDB 

TC  P6QSXT6 


176  pfF  100  LAST  76  2 
0176 

177  RFF  6 LAST  203 

0178  PFF  1 

0 1 70  RFF  P LAST  322 

3180 


36,3335  0 6C  5 1 0 

36  ,3336  65175  0 

36,3337  C37C1  1 

36, 3360  57266  1 

30,1341 

36, 3362  77776  1 


TC  INTPRET 

VLOAO  CALL 
VGT  IG 
S61.  1 

STORE  VGRCDY 
F XI  T 


0l8l  REF  -3  LAST  76  1 

r 18?  PEF  190  LAST  761 

3193  REF  1 


36,3363  3 3752  1 

36,3366  C 6616  1 
36,  1 365  20667  1 


C A F V 1 6N  8 5B 

TC  RANKCALL 

CADR  GODSPRET 


01  836  RFF 
31  86 
0 1 85 


LAST  761 


36  ,3366  o 5360  0 
36,3367  CO  C 76  0 
36,  3 350  06026  0 


2PHSCHNG 

00076 

06026 


* 9 1 86 
319  7 
AO  1871 


PFF 


36,  3 3e1  1 2 137  1 TC F B*  RNB*  B* 

*********************** 
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JS  ER'S  PAGE  NO . 5 E 7 S3 

GROUP  6 RESTART  AT  FKP5RST,  PR  ID  17 
GROUP  6 RESTART  HERE,  PPIO  13 

BOTH  LH 

IF  NJETSFLAG  IS  SET,  LOAD  2 JFT  F 

IF  NJETSFLAG  IS  CLEAR,  LOAD  6 JET  F 


BOTH 

CALCULATE  PREFERRFC  IMU  ORIENTATION  ANO 
SET  PFRATFLG. 

ZFPO  ATTITUOF  ERPORS 
SET  0.3  DEGREE  DEADBAND 


TRANSFORM  VEL  OC  I T Y-Tfl-  RE-GAI  NED  AT  TIG 
FROM  REFERENCE  COORDINATES  TO  LM  BODY- 
AXIS  COORDINATES  FCP  V16N95  DISPLAY. 
(SCALED  AT  ? (+7)  MF  TE  R S/CE  NTI  SFC  OND) 


GROUP  6 RESTARTS  AT  RED06.7 
GROUP  6 RESTARTS  HFRF 


3AP:  ASSFRBLE  REVISION  5 6 OF  AGO  PROGRAM  ZE-RLINA  8Y  ZOROASTER 


L P40-P47 


• 1972  REF  12  LAST  7^0 

il  873  RFF  ?OC  LAST  742 

'1874  REF  14  LAST  712 


36,3  352  ? 4777  1 

36  ,3353  0 4616  1 

36,  3354  C 1 7 36  1 


BLNKWAI T 


1 SEC 

BANKCALL 
DELAY  JCB 


Cl  875  RFF 
>1876  RTF 

R3189 


22  | AST  741  36,3355  3 1162T 
48  LAST  731  36,3356  6 4752  G 


PE036.7  CA  PISPnEX 

AD  TWO 

*****$*$$< 


018801 
188 0 2 PEF 


C 0006  1 
1 3352  1 


EXTEND 

BZF  BLNKWAIT 


018803  RFF  4 LAST 
' l 88 C 4 RFF  2 Cl  LAST 
.•13*05  R 0 F 2 LAST 


74  2 
74  3 
742 


36,  336  1 3 3752  1 

36,3362  C 4616  1 
36,  3363  2C447  1 


CAF  V16N85B 

TC  BANKCALL 

CADR  GODSPRET 


1 18806  RFF 
18807  RFF 


7 LAST  741  36,3364  3 50  17  1 
12  (AST  70 1 36,3365  f 5146  1 


FKP5RST  CAF  PRI05 

TC  PRIOCHNG 


318808  RFF  23 
<18805 

1881  RFF  114 
( 1 P 8 1 1 

018812  PFF  32 
"*18813  RFF  25 
Ol 88  1 4 

0180 15  RFF  22 
318816  REF  26 
18817  REF  1(1 
C<  188  18 

31881 9 PFF  5 
01882  REF  2 
19*21  REF  n 
18822 

'18823  RFF  13 
1 188  24  REF  2 0 2 
1 1882*  RTF  15 
7 18826  RFF  2 


l AST  743 
LAST  741 

LAST  730 
LAST  732 

LAST  730 
I AST  743 
LAST  742 

LAST  74  1 
LAST  742 
I AST  742 

LAST  743 
LAST  743 
LAST  743 
LAST  74  1 


36, 3366 

35  ,3367 
16*337 
36,  3 37  1 
i ,337 
36,  ’373 
36,  3 374 
36,3375 
36,  3376 

36  ,3377 

. ■ 

36 , 340  1 
36  ,3402 

. 

36,  34(  4 
16,34  ‘ 
36, 3406 
3*  ,3  40  7 

. - 1 


* 1162  o 

G 0006  1 

6 c 1 55  0 
0 0006  1 
4 1442  0 
52*454  1 
C 0006  1 
3 0025  0 
21*454  1 

0 6051  0 
45  175  0 
0 37C  1 1 
57266  1 
C35C2  C 
77776  1 

3 4777  1 
C 4616  1 
01736  1 

1 336  6 0 


DYNMDI  SP 


CA  DISPDEX 

EXT  END 

87  RF  ENDOFJOH 

F XTENO 
DCS  T IG 

DXCH  TTOGO 

EXTEND 

OCA  TIME2 

DAS  TTOGC 

TC  INTPRET 

V LOAD  CALL 

V3PRF  V 
S41.1 

STORE  VGBQOY 

EXIT 

CAF  IS  EC 

TC  BANKCALL 

CACR  DELAYjnp 

TCF  DY  NMD  ISP 


018827  REF  1 
18828 

31882°  REF  1 
01883 


32  ,2407 

. 

32,2407 


COUNT  JWP41 
BANK  32 
SETLOC  P40S4 
3ANK 


'189 

}19D 

0191 

019? 

Ol°9 


REF  102  l A ST  741 
REF  1 

RFF  6 LAST  74  3 


32  ,2407  C 6051  0 CALC  NR  5 TC  I NT  PR  FT 


32,  24  If  77624  1 
3? ,2411  75611  0 
3 2 » 2 < 1 2 4C1 75  0 

32,  24  13  03701  1 


CALL 

UP  DAT  EVG 
VLOAD  CALL 

VSPRF  V 
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ON  A RESTART,  DC  NCT  PUT  OP  DISPLAY  IF 
BL  AN<  INC.  (BETWEEN  TIG-35  AND  TIG-301 


A NCN-POS  I T I V E CISPCEX  INDICATES  PAST 
TIG- 35,  SO  SERVICFR  WILL  BE  DOING  THE 
UPDATING  OF  NOUN  86.  STOP  OYNMOISP. 


UPDATE  TFI  DISPLAY  (NOUN  40) 


CONVERT  VG  FROM  PEF  TO  BODY 


RECYCLE  ONCE  A SECOND 


i 


GAP:  ASSEm«LE  REVISION  56  OP  AGC  PROGRAM  ZER  L I NA  BY  ZOROASTER 


PAO-PA7 


,10/, 

,105 

0196 

> 197 


PFF  3 LAST  7*3 
PFF  1C  LAST  7*3 

REF  A*  l AST  727 


198  REF 


3 LAST  718 


32.  2*1*  '7266  1 

32,  2*15  03502  0 

32  ,2*16  77776  1 

32,2*17  C At 35  O 

32  ,?*?'•>  66102  1 


S41.1 

STORE  VGBOOY 
CX  IT 

TC  PCSTJUPP 

f.AOR  SERVFXIT 


0 19R1 

01982  PFF  7 LAST  739 

01983 


->6,3*11 

, 

36,3*11 


BANK  36 
setlo:  P*OS 
BANK 


3199  REF  l 

0209  RFF  ?3  LAST  74 ] E7,l*55 


COUNT*  5 S / P*2 
FRANK=  WHICH 


0201  PFF  *7  I A ST  7* 1 
32312 


36,3*11  C 536*  0 P*?LM  T C 
36,  3*12  0*C2*  0 OCT 


PHASCFNC- 

0*02* 


0201*  REF  1 36,3*13  3 113*  1 

?t?  RFF  2*  LAST  7**  36,3*1*  5C,A55  0 


CAF  P * 2A DP  ES 

TS  WHICH 


0203 

020* 

7235 

0208 

0209 
02  1 

0210  1 
3 2 1 1»  2 
,21-  3 
0 210* 


RFF  15 
PCF  10 
RFF  217 
PFF  ? 
RFF  203 
REF  6 
RFF  1 
PFF  3 
RFF  13 
REF 


LAST 
LAST 
L AST 
I AST 
I A ST 
LAST 

LAST 
l AST 
l A ST 


739 
73  9 
7 39 
739 
7*3 
7*  1 

739 

739 

739 


36,3*15 
36,3*16 
36, 3*  1 7 
36 ,3*20 
36,3*21 
36,  3*22 
36,3*23 
36, 3*2* 
36,3*25 
36,3*26 


*0106  l 
7 *737  1 
10  COO  0 
0 3120  1 
C *616  1 
112*1  0 
3 6000  1 
55*251  1 
3 *751  0 
55*513  0 


P*2 STAGE  TC 

CADR 

CAF 


FLGWPO  10 
APS  FLB1T 

P AOAL  M 
BANKCALL 

R 02r  0 TH 
THRESH2 
OVTHRUSH 
FOUR 
DV  CNT  R 


211  REF  103  L AST  7*3 

0,212 

0213  RFF  5 LAST  692 

021*  PFF  1 

-215  RFF  5 LAST  7*2 

3 216 

02162  REF  1 

0216*  REF  1 


36,  3*27  0 6C  5 1 0 

36  ,3*30  7721*  0 

36,3*31  C1C72  0 

, , 3*007  1 

36,3*33  03735  0 

36, 3*3*  52135  1 

36,  3*35  260C1  L 

36,3*36  75177  1 


TC  INTPRET 

SET  VLOAD 

AV  FLAG 
c A P S 
STORE  F 
SLOAD  GOTO 

APSVE  X 
RAO  IN 


3217 


RFF  25  LAST  7** 


E7,  1*55 


EBANK=  WHICH 


0218  RFF  1 

219  REF  20*  LAST  7** 

f 1 2 2 0 PFF  7 LAST  7** 

0221  RFF  10*  LAST  7** 

322? 

0223  RFF  1 


36,3*37 
36, 3**0 
36, 3**1 
36,  3**2 
36, 3**3 


C *616  1 
112*1  0 
0 6051  0 
7762*  l 
275*7  1 


PA7LM 


COUNT*  t*/P*7 
TC  BANKCALL 

CADR  R02B0TH 
TC  INTPRET 

CALRB 

MI0T0AV2 


322*  RFF  276  LAST  730 
3 225  REF  18  LAST  733 


36,3***  3 0155  0 

36, 3**5  G 520*  1 


CA  MP  AC  +1 

TC  TWIDDLE 


7** 


9:12  OCT.  21,1970  ZELY 
USER  • S PAGE  NO. 


.0*9  PAGE 
7 E7  S3 


INITIALIZATION  FOR  PURNeABY. 


INI  T I A L I Z E DVMON 


LOAD  PAPS,  RD  OTA  PS  * AND  ATDECAY  INTO 
F,  MDOT,  ANO  T DECAY  BY  VECTOR  LOAD. 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZEPLINA  RY  ZOROASTER 


0226 

226 1 

r'227 
0 ? 39  1 
023g2 


PA  -PA  7 
REF  1 
REF  115 
REF  A8 


36.3AA6  C3A50  0 ACRES  ST  ART  PA 7 

LAST  7A  3 16,3*47  1 c 15  5 1 Tf.F  ENOOFJOB 

LAST  7A4  36  ,3450  0 536A  0 ST  AREPA7  TC  PHASCHNG 

36,  3Acl  C5C1A  1 OCT  '.'501A 

36,  3A52  77777  0 DC T 77777 


D2393 
3 2 AD 
02AI 
• 2A2 
02A3 
02AA 
D2A5 
02AS 
D2A6 
AD2A7 


REF 

REF 

REF 

REF 

RFF 

REF 

RFF 

RFF 


LAST 
I A ST 
L AST 
l A ST 


7A1 
72  3 
7A  1 
322 


. ■ 

36.3A56 
36,  3457 
E7  ,1622 
36, 3 A 60 

36,  3 A6I 

• 


53*253  0 
3 A736  1 

C 5105  0 

03513  0 
7A067  0 
1 2 3AA  1 


EXTEND 

DC  A ACADN83 
OXCH  AVEGFXIT 
CAP  PR  1020 
TC  F I NO  VAC 

EBANK  = DELV  IMU 
2CADR  PA 7 BODY 


TCF 


PEC0A.2 


02AH 
0 2A9 

0250 

0251 
3252 
025  3 
0 2 5 A 
) 255 
0256 
'256  1 
02563 
02  564 
32565 
02666 
o?567 


REF  1 05  l AST  7A A 

REF  1 

REF  2 LAST  151 

REF  11  1 AST  675 


REF 

REF 


36  ,3A6  3 
36,  3**6  A 
36,  3^65 
36 ,3A66 
, 

36,  3470 

. 

36,  3A72 

. 

36,347A 

. 

36  ,3A76 
36,  3A7 7 
36,  3500 
. 


D 6051  0 
53375  0 
0 3 5G  2 0 
03525  0 
C 36  56  1 
7762A  1 
57266  1 
C 3 6 2 3 o 
77776  1 
0 60A2  1 
C 60  5 1 0 

77775  1 
C 36  66  1 
03502  0 

77776  1 


INTPMET 

VAD 

DE  L VC  TL 
DELVREF 
DELVSI M 


.'259 
02  50 
0261 
326? 

0 2 6 3 


REF 

REF 

RFF 


25 


I AST 
LAST 
l AST 
LAST 


7A0 

7A1 

7A5 


7 E 

A 6 1 6 1 


36, 35C7  C 6C01  0 

36,3510  0 6001  0 


CAF 

TC 

CADR 


VI 68  3 
3ANKCALL 
GOFLAS HR 
GOTOPOOH 
GOTOPOOH 


02631  REF 
32632  REF 


LA  ST 
l AST 
RFF  1C7  LAST 


7A5 
7A  1 
7A5 


36,3511 
36,  35  12 


1 3513  l 
1 3235  1 


PAGE  7A5 
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CHECKS  PHASF  5 AND  GOF  S TO  PRE  Rfc  AO 
SEE  TIG-3'1  IN  BURN8ABY. 


TFMP  STORAGE  FOR  RESTARTS 


GAP:  ASSEMBLE  *F  VI  SION  56  OF  A5C  PROGRAM  ZEPLINA  BY  ZOROASTER 


L 


p«,r  -P47 


0265  RFF 
32 67  RFF 
lj2  68  REF 
0 26° 

3279  REF 


5 

6 
3 


LAST 

LAST 

LAST 


715 
74  5 
745 


36,3615  06520  0 

36,  3516  C 3623  0 

36,3517  03502  - 

36.3520  77776  1 

36. 3521  C 3504  C 


HlfeZEROS 
STGRE  DELVIFU 
STORE  DELVCTL 

EX  IT 

TC  P4  7BCD 


‘271  REF 
272  R i F 
1 2 72 1 PtF 
■273  RFF 
3274  RFF 
■275  RFF 
°2 76  RFF 
3277  REF 
0278  PCF 
•279  REF 
t>2  80  RFF 
02R1  PFF 
3282 


6 LAST  735  TC 

7 LAST  733 
1 

10  LAST  746 

2 LAST  248 

71  I AST  740 

3 LAST  726 

72  LAST  746 

4 LAST  732 

73  1 A ST  746 

40  |AST  745 


736  : 
36,3522 
36,  352  3 
36  ,3524 
36, 3525 
36,  3 52  6 
36,3527 
3 ' , ' c 3 ( 
36  ,3531 
36,3532 
36,  35  3 3 
36  ,35  34 
36,  3635 


12  614* 

3 1515  1 
C 3735  C 
G 5204  1 
C 3542  1 
0 5527  1 
001  53  0 
C 5527  1 
CO  154  1 
0 5527  1 
00044  1 

0 5364  0 
40114  1 


COUNT*  3 5/P4C 
F fplbuRN  CA  TGO  +1 

TC  3E.  TO  T 
TC  TWIODLF 

AORES  ENGOFTSK 
TC  DOWNFLAG 

AORES  IGNFLAG 
TC  DOWNFLAG 

ACRES  ASTNFLAG 
TC  DOWNFLAG 

ADPES  IMPULSW 
TC  PHASCHNG 

OC  T 4 0114 


(-2  83 
>284 

0285 

0286 

12  87 
>'288 
0 289 


REF  13  LAST  730 


REF  49  LAST  730 

REF  35  LAST  742 
REF  1 

PFF  50  LAST  746 


36,  3540 

• 

36,  354? 
36,  364  3 
36  ,3  544 


0 2652  1 


G 5272  0 

C 4674  0 
75645  1 
0 5272  0 


TC  FIXOELAY 

DEC  50 


TC  NOULLAGE 

TC  TASKOVER 

ENGOFTSK  TC  I BNKO ALL 

C ADR  EN31N0FF 

TC  TASKOVER 


".290 
0291 
0 29? 
0293 
(>2  93 


REF  3 I AST  732 
RFF  33  LAST  745 
PFF  1C  L A ST  74  1 
REF  4 LAST  740 


36,  3545  I*  46  44  0 
36,3546  0 5115  0 

E7, 1462 

36,  3547  0 3222  0 

36,3550  74067  0 


ENGI  NOFF  CAF  PRI012 

TC  FINDVAC 

EBANK=  TRKMKCNT 
2C ADR  PO  STB  URN 


9 294  RFF  36  LAST 

0295  REF  3f  LAST 
296  RFF  8 LA  ST 

3297  REF  1 

0297  REF  1 

0298  REF  12  LAST 

0299  REF  1 

0300  REF  13  LAST 


733  36, 3551  3 4753  1 

735  36,3552  0 5214  u 

718  E 6 , 1 42? 

36,  355  3 03606  1 

36  ,3554  74066  l 

733  36,3555  4 01C3  1 

36,  3556  7 4745  1 

746  36,3557  26  1C3  1 


ENGI  NOF  2 CAF  BI  Tl 

TC  WAI  TLI  ST 

E RANK=  OMEGAQ 

2CA0R  : OAST  SET 

ENGI  N0F1  CS  F LAGWRD7 

MASK  I9LEFRIT 

ADS  FLAGWRC7 


9331  REE  4 LAST  746 

0302 

0 30  ^ ref  23  LAST  743 


36,  3560  0 2652 


TC  NOULLAGE 


36  ,3561  0 00 C 6 1 

36,3562  3 0C25  0 


ENG INO E4  EXTEND 

OCA  TIME2 
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TIP  N OFF  IGNFLAG 
TURN  OFF  ASTNFLG 
TURN  OFF  IMPJLSW 

RESTART  PROTECT  ENGOFTSK  (ENGTNCFP) 

WAI  T HALF  A SECONO 

TURN  OFF  ULLAGE 

THIS  CODING  ALLOWS  FNGINDFF  ET  AL  TO  BF 
USED  BOTH  0Y  WAITLIST  AND  BY  T C I 8NKCALL 

MUST  BE  LOWER  PR  10  THAN  CLOCKJOB 


SET  THE  IDL  F BIT 


GAP  : 


ASSEMBLE  REVISION  56  CF  ACC  PRC  GRAM  ZFRLINA  BY  ZOROASTER 


L 


P40-P47 


0 30  A 


REF  5 LAST  724 


36  ,3563  53 ' 34  2 1 


DXCH  TEVENT 


G3C5 

03  051 

0305? 
33353 
03C  6 
0307 
3339 

0309 

0310 


REF 

RFF 

RFF 

RFF 

RFF 

RFF 


21 

22 


24 
6 

25 


LAST 
I AST 
LAST 
I AST 


I A ST 
L AST 

LAST 


724  36,  3564  <■  4745  1 

725  36, 3565  7 0101  0 

747  36,3566  54  101  0 

, 

36  ,3570  0 0006  1 

724  36,3571  02  011  0 

745  36,  357  ? 6 4736  1 

36 ,3573  C 0006  1 

747  36,  3674  Cl  011  0 


ENG1N0F3 


CS 

MA  SK 

TS 

CS 

EXTEND 

RAND 

AO 

FXT  END 
WRI  TE 


CNGONBIT 
: LAG WRO  S 
FL  AGWRC5 
PR  I 0.3  0 

DS ALMOUT 
PRI020 

DSALRCUT 


03 1 4 REF  23  LAST  739 

0315  RFF  1 

3316  RFF  24  l AST  747 


36,  15  7 6 4 0111  l 

36,3576  7 4736  0 

36,  3577  26  HI  1 


CS  DAPROOLS 
MASK  JSEQRJTS 
ADS  DAPBCOLS 


0317 

0319 

0320 
"321 
332  2 


RFF  1 

RFF  3 LAST  727 

REF  27  LAST  727 

REF  9 LAST  727 


36,3600  4 4737  1 

3 6,  ^6C1  5 4 C 5 5 0 

36,  360  2 3 47  50  1 

36,3603  C 0006  1 
36,  36C4  C 5 Cl4  1 


CS  HIRTHROT 

TS  THRUST 

CAF  31  T 4 

EXT  ENO 

WOR  CHANH 


0323 
•3  24 
9325 
0326 


RFF 

RFF 

REF 

REF 


LAST  571 
LAST  746 
LAST  733 
LAST  746 


36,3605 
36 , ? 606 
36, 3607 
36  ,3610 


0 4707  0 
0 4674  0 

40205  1 
0 5272  0 


COASTSET 


TC 

TC 

CADR 

TC 


I SWRFTRN 
I 8NKCALL 
ALLCOA  ST 
TA  SKOVER 


'327  REF 
C32r 

03?**  RFF 
3333  RFF 
0331 

“‘3311  RFF 
33312  REF 
L331  3 RFF 
3314  PFF 
0331  5 
03316  PFF 
93317  RFF 
03318 
>3319  RFF 
933?  REF 
0 3321 

■3322  REF 
C 3323  RTF 
r333  PFF 
9336 

03361  PFF 
0336?  RFF 
3337  REF 


9 LAST  746 

2 LAST  146 
1 

4 LAST  685 

3 LAST  74  7 
3 LAST  682 


5 LAST  701 


2 LAST  747 
2 LAST  747 


4 LAST  30  2 


6 6,  1422 

36.3611  45020  1 

36.3612  03665  1 

36,  36  1 3 56447  0 

36  ,3614  430  14  ' 

36,361  5 01307  1 

36,  3616  03665  1 

• 

36,  36  2 C 15633  0 

36,  362  1 45  345  1 

36,3622  01234  0 

36,  362  1 C3763  0 

36  ,3624  50025  0 

16,3625  C3432  1 

36,  3626  75656  0 

36  ,3627  43345  1 

36,  363  03763 

36,  363  1 0 3432  1 

36.3632  C3765  0 

16.3633  77776  1 

36.3634  1C  754  0 

36.3635  1 3663  0 

36,  36  36  3 4737  0 


UP  OA  TF  VG 


S40RFT 


190SF  TUP 


EBANK=  riMFGAC 
STO  GALL 

OT  EMP1 

S4  0.  fi 

BON  BON 

X DEL  V FL  G 
0 TF  MP 1 
NORMSW 
1RPSFTUP 
DLOAD  DSIJ 

PIPT  IMF 
TIGSAVE 
CSU  BMN 

TNEWA 
3F  TRANS 
DLOAD  DAD 

TIGSAVE 

TNFWA 

STORE  TIGSAVFP 
F XI  T 

CCS  PHASE  2 
TCF  NO  .9 
CAF  PRinlO 


9:12  OCT.  2 L,  1970  ZFIY  . 049  PAGE  747 
USFR'S  PAGE  NC.  1C  E7  S3 

INSURE  ENGONFLG  IS  CLEAR. 

ENGIN0F3  IS  JS  FD  AS  A PRE-ENGINE  ARM 
SLBROUTI  NF. 

TURN  OFF  THE  ENGINE  - OPS  OR  APS 


TURN  OFF  TRI  K GI  MBAL 


ZERO  A UTO-THP  0 T T I E WHENEVER  THE  ENGINE 
IS  TJRNFO  OFF. 

THF  HARDWARE  OCES  SO  ONLY  WHEN  THE 
ENGINE  IS  DISARMED. 


DO  DAP  COASTING  INITIAI  [ZATfDN 


X-PRODUCT  STEEPING 

W1  L I RETURN  HERE  FRCP  S40.  8 


GAP:  ASSfcHHU 


FVISIOH  56  OF  AGC  PROGRAM  ZERL1NA  BY  ZOROASTER 


3338 

0336  RFF 
0340  PEE 
3341  PFF 
'341  PFF 
-74?  PFF 
) 343 
0344 

C 347  PEF 
( 1 7 r 1 
03470?  PFF 
33471  PFF 
034  72  PfF 
03473  PEF 
33474  REF 
n 34  75  PFF 
0 34  76 

03477  RFF 

03478  PFF 
3 348  PFF 
0349  PEF 


34  LAST  746 
2 LAST  147 


6 I A ST  74? 


1C8  LAST  745 

2 LAST  74  7 

3 I AST  747 
7 LAST  7 1 1 
P I A ST  687 
7 LAST  711 
7 t AST  687 

7 l AST  670 

6 LAST  74  7 

7 LAST  684 

4 LAST  747 


36, Jn?7 

. 

07 , 1 7 C 6 
36,  36  4 1 

36. 364 2 

36.3643 

36. 3644 
36  ,3645 

36.3646 

36. 3647 
' . - 
36,  3661 

36,  365? 
36,3653 
36.  36  54 
36  ,3655 
36, ’656 
3fe,  3657 
36  ,3660 
36, 3661 
36,  3662 


C 0CC4  0 
C 51C5  0 

C27C6  1 
56C67  0 
0 5340  0 

00172  0 
04025  1 
C 6051  0 
77745  1 

03765  0 
27763  C 
012 20  0 
26314  0 

C 1 226  C 
023 22  0 
4534^  1 
03631  0 

01234  0 
37452  0 
03665  1 


INHINT 

TC  c 1 NO  VAC 

EB ANK=  V G 
2CA0P  S40.9 

TC  2PHSCHN0 

OC  T 001  72 
OCT  04025 
ENOSTEER  TC  INTPRET 

□ LOAD 

T IGSAVEP 
STCVl  TIGSAVF 

PN 

STOVL  PI  NIT 
VN 

STORF  VINIT 
GETPANS  PLOAl)  DS II 

TPA  SS4 
P IPT  IMF 
STCALL  0ELLT4 
OTEMPl 


03401  PFF  Kr  LAST 
3349? 

' 3403  RFF  5 I AST 
0350  REF  110  LAST 


748  36,3663  f:  6051  0 

36,3664  17650  1 

748  36,3665  03665  1 

748  36,3666  C 6C51  0 


NO. a TC 

GOTO 


STEERING  TC 


I NT  PP  FT 

3 TEMP  l 
I NT  PR  ET 


0351 

0352  PEF 
3 353 


2 


LA  ST 


74  3 


36, 3667  77624  1 

36.3670  75611  0 

36. 3671  77776  1 


CALL 

JP  DAT  EV  G 

EXIT 


0354 

0355 
3356 
'357 
1 3 59 

0360 

0361 


PFF  ?o 

RC-F  6 
PFF  ?7 
RFF  13 
PFF  2 
PFF  ?1R 


LAST  744 

l AST  7? 6 
LAST  726 
1 A ST  7?6 
1 AST  726 
LAST  744 


36,3672 
36,  3673 
36  ,3  6 74 
36,7  675 
16,  3676 
36  ,3677 


C 0004  C 

3 5 C 1 6 0 
54  003  0 

4 no 76  1 
7 4743  1 
1C  000  0 


NSTEER 


EBAN<=  DVCNTR 
INHINT 

CA  E BANK 7 

TS  FRANK 

CS  FLAGWR02 

MA  SK  I MPULBI  T 

CCS  A 


3 36  2 
0363 
r 364 
3365 
0366 
3367 
0 368 


REF  1 4 LAST  746 
RFF  7 I AST  746 
RFF  219  LAST  74  8 

RFF  46  LAST  745 
RTF  1 


36,  37C<  1 37C5 

36.3701  4 0103 

36.3702  7 4745 

36,  370  3 1C  CCO 
36,3704  1 3707 

36  » 37C5  C 4 f 7 5 
36,  3706  66102 


1 TCF 

1 CS 

1 MASK 

0 CCS 

0 TCF 

0 C.CPIPCYC  TC 

1 C ADR 


FLAGWRD7 

IDLEFBIT 

A 

+ 3 

POST  JUMP 
P I PC  YC  LE 


03681 

36(1 


37  LAST  747 
3 LAST  368 


36,7707  0 4674  0 

36, 7710  40166  1 
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LAMRFRT  VTOGAIN 

2.17SP0T  FOR  S40.9 


CHFCK  IMPULSE  SWITCH.  IT  IS  SET  EITHER 
BY  S4:.13  IF  reURN<6  SFCS  OR  BY  S40.8  IF 
STEERING  IS  ALMOST  DONE. 

IMPULSE  = 3 EXIT 

IMPULSW  = 1 WHY?  CHFCK  IDLEFLAG 

(IDLEFLAG  = O — > D VM  ONI  ON  1 


DVMON  ON — >THPUSTI  KG — >IMPIJLSH  VIA  S40.8 
CV  MON  OFF— > IMPULSW  ON  VIA  S4<  . 1 3— >E  XI  T 


GAP:  ASSEMBLE  RF  VISION  56  OF  AGC  PROGRAM  ZERLINA  HY  ZOROASTER 


I.  P4P-P47 


369  REF  74  LAST  746 

->37?  RFF  2 L AST  746 


TC  DOWNFLAG 

ADRES  TMPULSW 


0371  REF  SI  LAST  732 

0372  R EF  4 I A ST  725 


36  ,3713  0 5515  0 

36,  '714  CC161  1 


TC  UP  FLAG 

ADRES  IDLEFLAG 


03  7 3 
n 374 
3375 
C3  76 
0 377 
3373 
0374 
03PO 
03  81 
0 3 3? 
3391 
<342 
0343 
3394 
0345 
0 34  6 


REF  33 
REF  277 

REF  ZL 
RFF  278 
RFF  0 
RFF  279 
RFF  2 
RFF  2t 
RFF  3 
REF  10 


REF  1 


l AST  743 
I AST  744 

1 AST  746 
LAST  749 
LAST  729 
LAST  749 
1 A S T 746 
LAST  746 
I AST  746 
LAST  748 


36, 3715 
36  ,3716 
36, 3717 
V , 3720 
36,3721 
36,  3722 
36  ,3723 
36,3724 
36,  37 <5 
30  ,3  726 
36, ’727 

1-  , '7', 

36.3731 

36. 3732 
36  ,3733 
36,3734 


0 0004  0 
U 0006  1 

3 1442  1 
52  155  1 
C 0C06  1 

4 CC25  1 
20  155  1 
0 7271  1 
-0  155  C 
0 3735  0 
C 52C4  1 

0354?  1 

0 5340  0 
4C114  1 
04025  1 

1 3705  1 


I NH I NT 

EXT  END 

DC  A 

DXCH 

EXT  END 

DCS 

DAS 

TC 

CAE 

TC 

TC 

ADRES 
TC 
OC  T 
OCT 
TCF 


TIG 

MPAC 

T I ME? 

MPAC 

TPAGPEF 

MPAC  + 1 

GET  DT 

TWIDDLE 

FNGOF  TSK 

2PHSCHNC 

4 0 11  4 

04025 

GOPIPCYC 


0397 

0398 
3399 
04  00 
04  1 
3432 
040  3 
0 404 
040  5 
0406 


PEF  22p 


REF  1 4 1 
RFF  73 
RFF  107 
REF  14? 
RFF  8 
REF  9 
RC-F  186 


LAST  748 


LAST  74  1 
LAST  7C8 
1 AST  737 
LAST  749 
LAST  746 
LAST  749 
LAST  737 


36,  1735 
<6,3736 
36, 3737 
36,  3740 
36,3741 
36,  3742 
36 ,37^3 
36 ,3744 
36',  3745 
36  ,3746 


10  000  0 
1 3741  1 
1 3741  1 
3 4755  l 
6 4753  1 
56  C C 1 0 
3 4755  1 
5 2*  515  C 
3 1 5 1 5 1 
0 0002  0 


GETDT 


CC  S A 

TCF  +3 

TCF  +2 

CAF  ZERO 
AD  ONE 

XCH  L 

CAF  7ER0 
DXCH  T GO 

CA  T30  ♦ 1 

TC  0 


R3424  ***♦***#*♦*#*«!**#* #» «****««*««  ****************** «««*«« **« «#«*«*« 


043' 

0 4 31 
4 3 7 
434 

1 43  9 

044  0 
0 441 


RFF  1 4 | AST  743 

RFF  ? LAST  735 


36,3  750 
36,  37  5 1 
36 ,375? 
3 6,  37  53 
4777 
36,2057 


00000  1 5SECDP 
00764  1 ss  EC 
04C50  C V 1 6N  4 0 
04125  0 V16N853 

C4123  0 VI 683 
SEC  0 l 
ACACN85 


OCT  00000 

DEC  500 

VN  1640 

VN  1685 

VN  1683 

= 1SFC 

= P4  1TABLF 


044?  PEF 
0443  RFF 
.443  RFF 


L AST  74  6 


E 7,  1/  2 2 
36  ,3754 
36,3755 


ERANK=  DELV1MU 
0 3463  C AC  AON  8 3 2CA0R  CAL  ON  8 3 
74067  0 
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TURN  OFF  IMPUL  SW 

TURN  OFF  DV MON 


FNGOFT S K (ENGINOFF) 


DON'T  MOVE  FROM  JUST  RFFORE  5SFC 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  P9UGRA 

L P40-PA7 


ZERL1NA  6V  ZOROASTER 
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9 044  7 
R;  <>ap 

9 044  9 
10450 
I 

R0452 
9.345? 
Rf’454 
1 0455 
R3456 
Rr  457 
1 "458 
93459 
9046n 
9 0 461 
R1462 
9 0463 
R 0 4 6 4 
RC'46C 
10466 
R3467 
R0469 
R0469 
R3473 
10471 
9 4 7 7 
9 04/9 
1 4 74 

R3475 
R0476 
RQ  477 
■ ’ 

9 04  70 
R04RO 
R 0 4 8 1 
9 048  2 
R 3 4 9 3 
R 0 404 
9 '-485 
R3486 
90487 
R04B8 
R04  89 
9 0490 
R34=»l 

0492 

0493 
3494 


THRUST  DIRECT  IDMUT  ) AND  INITIAL  VALUE  OF  V G 


NORMAI  RETURN  OR 


PROGRAM  DESCRIPTION  S4C.  1 OA  TE  l 5 NGV66 

ECO  Nf2  log  SECTION  P40-P47 

MOO  °Y  ZELDIN  AND  ADAPTEC  eY  TAIAYCO 
FUNCTIONAL  DESCRIPTION 
COMPUTE  IMTJ 
VECTOR!  VG TIG). 

CALL  INC-  SEQUENCE 
L CALI 

L ♦ 1 S4C.I 

ncrpai  ex  it  mcce 

AT  L»?  OF  CALLING  SECLFNCE  (GOTO  L*2  ) 

ERROR  RETURN  IF  NO SOFLAG  =1 
SUBROUTINES  CALLEC 
LFMPPFC 
INITVEL 
C ALCGRAV 
HIOGIM 

ALARM  OP  ABORT  FX  IT  M IDES 

I ♦ 2 OF  CALLING  SE QUF NCE ,UNS C LV A8L E CONIC  IF  NOSOFLAG; 
ERASABLE  IN  IT  I AL  I Z A TI  ON  RE  QU1  RF  D 

W EIGHT/  G ANTICIPATED  VEHICLE  MASS 
XDELVFLG  1 = DF  L T A -V  V ANEUVER  ,0  = A I MPT  STEER 

F THRUST  FOR  ENGINE  USED 

IF  OELTA-V  MANEUVER 

DEL  V SI  N SPECIFIED  DF  LTA-V  REQUIRFO  IN 

INERTIAL  COORDS.  OF  ACTIVE  VEHICLE 
AT  TI ME  CF  ICNIT ION 
DEL VSA8  MAG.  OF  DELVSIN 
RTIG  POSITION  AT  TIME  OF  IGNITION 

VTIG  VELOCITY  AT  TIME  OF  IGNITION 


IF  AIMPT  STFFR 


VECTOR  B7M/CS 
DP  B7M/CS 

VECTOR  B29.M 
VFCTOR  B7M/CS 


TIG 
R TAP  G 
CSTFFP 
DLTARG 


VGTIG 

DFLVLVC 
BDT 
-GDT 
P TIG 


DEBRIS  OTEMPl 

MPAO  ,QPRF T 
PUS  HL  1ST 


T IMF  OF  ICMT  ICN 
POSI  TI  ON  TARGET  TI  ME 
C.  FO 9 STEFR  I AW 
TARGET  TIME-IGNITION  TIME 

DESIRED  THRUST  DIRFCTION 
I NI TI AL  VALLE  CF  VELOCITY 
TO  BE  GAINED  (INERT.  COORD.) 
VGTIG  IN  ICC.  VERT.  COORDS. 

V REQUIRED  AT  TIG 
FOR  S40.13 

CALC  IN  S40.1  PIAIMPT  ) FOR  S43  .2 
POSITION  AT  TIME  OF  IGNITION 


VECT.  B2M/ICS.CS) 


REQUIRED  AT  (TIG-2  SEC) 

VECT  R7M/CS 
VECTOR  B29M 


14  ,2347 
? 7 ,2  000 
27, 2246 


RANK  14 
SETLOC  P40S1 
BANK 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P40-P47 


0495  REF 
3496 

0497  REF 

0498  RFF 
04981  REF 

0499 

3533  RFF 
0501  REF 
050? 

05  03 

0504  RFF 
3535  REF 

0506 

0 50 7 RFF 
D5?8  REF 
05 rg  REF 

0510  REF 

0511 

0512 
3611 

05 1 4 REF 

0515 

3515  REF 
0 517  RFF 

9 518 

05 1 Q RFF 
0520 

3521  REF 


3 


1 


13 


LAST  615 
LAST  746 
LAST  7*8 

LAST  747 


LAST  640 
I AST  748 

LAST  640 
LAST  148 
LAST  751 
LAST  748 


I AST  643 


LAST  744 
LAST  745 


27, 2246 
27  ,2247 
2 7,  2250 
27,2  2 51 
27,2252 
27,  2253 
27  ,2254 
27,2255 
. 

27  ,2257 
27,  2260 
-7,2261 
27,226? 
27,  2263 
27  ,2264 
.2  7,2  26? 
27, 2246 
27  ,2267 
27,  2270 

27.2271 

27.2272 
27,  2273 
?7  ,2274 
? 7,2275 
27,  2276 
27  ,2277 
27,  23C  ) 


71220  1 
03632  0 
C 34  42  0 
01763  0 
77614  1 

Cl  34 7 0 
56136  l 
7 72C1  1 
OC COl  0 
01650  1 
02322  0 
53435  0 
01642  1 
27673  C 
03642  1 
02314  0 
65236  0 
00045  0 
562C5  0 
16412  1 
41205  0 
C 3664  0 
01246  0 
77671  1 
03735  0 
24017  1 
03656  1 


S4C.  1 

OELVTEST 

CALCTHET 


1S/S40  .1 
D LOAD 
QT  EMP 
TIG 

TI  GSAVF 

XDELVFLG 
S 40  . IB 
VLOAD 
0 

VT  IG 
VI  NIT 
UNI  T 
RT  IG 
UT 

RTIG 
R I N IT 
POOL 

360 

DOV 

THFTACON 

PMP 

DE  LVSAB 
WF  IGHT/G 


F 

140 

DELVSI  M 


COUNT  * 
STQ 

ST02E 

BOFF 

SETPO 

STORE 

VXV 

STOVL 

STORE 

VSO 

DMP 

DMP 

DDV 

STOVL 


ms  2 2 
">523 
"'524 

0525 

0526 
05?  7 
C528 
3 5?9 
05  3 o 
0531 
•>63? 
0533 

514 

0535 

0536 
3537 
75  3 R 
0 519 
054  i 
0541 
? 54? 


REF 

REF 

RFF 


RFF 

REF 


REF 


4 LAST  751 

5 LAST  751 

1 4 | AST  751 

6 LAST  751 

6 LAST  742 

7 LAST  751 


27.2301  74241  f. 

27.2302  03673  0 

27,  23C3  03673  0 

27  ,2304  4 1552  0 

27,2305  <‘?45  1 

37,  2306  03656  1 

27  ,2307  C0017  1 

27,  2?.  1C  63356  1 

27,2  3h  00C07  0 

27,2312  53435  0 

27,  2313  C 36 7 3 o 

27  ,2314  45561  1 

’7,2315  500 76  0 

27. 2316  65256  0 

2 7.2317  00017  1 

27,2320  74346  0 

27,?  3? i 74255  0 

37011 

27,  2323  COO 4 5 0 

27  ,2324  53352  0 

27,2325  77626  0 


DOT  VXSC 

JT 
UT 

VSL  2 PUSH 

BVSU  PDCL 

3ELVSI  N 
140 

SIN  PDVL 

6D 

VXV  UNIT 

UT 

VXSC  STADR 

STOVL  VGTIG 

UNIT  POOL 

14D 

COS  VXSC 

VAD  VXSC 

VGT  IG 
3 6D 

V SL  2 VAD 

STADR 
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UP  IN  UT 


(OE  LTA  V.  UP)  UP  SCALED  AT  ?(  + 7)  P.D.L. 
DFLTA  VP  SCALED  AT  21*7)  P.D. I . 6 


UNIT  (VPXJP  ISIN  (THETAT/2)  IN  VGTIG. 
UNI  T(OELT  A VP)  IN  P.D.L  . 6 


ASSEMBLE  kf  VI  SI  ON  S6  OF  AGC  PR6GR  AM  ZFRIINA  BY  ZOROASTER 


GAP  : 


L P40-P47 


0543  PEF 


8 LAST  75 1 


27 ,2  126  7 AG 76  0 


STnHF  VGTIG 


5 4* 

0545  PfF 
C546  PEF 
3547 

05 A 8 RFF 
0 552 

3553  FEF 
055 A 

•555  PEF 
"5S6  RFF 
0557 

3558  REF 

0559  RFF 

0560  RFF 
3561 

0562  RFF 

0563 

0566  REF 

0565  PfcF 
3 566  l 

05662  REF 

0566  REF 

35665  REF 

0567  RFF 

0568 

0569  REF 

0570  RFF 
3571 

0572  REF 

0573  PCF 
357a  REF 
0575 

(3576  REF 
05  77 

0578  REF 
3579  REF 

0580 

0581  RFF 
3652  REF 
0583 

0 58  A REF 

0585 

0586  REF 
D5B7  REF 

0588 

0589  RFF 


7 LAST  75  1 
° LAST  752 


A LAST  751 

’5  LAST  761 
42  I AST  7 2c 

8 LAST  7A8 
8 LAST  748 

7 LAST  702 

24  LAST  708 

8 LAST  75  1 
10  LAST  751 

2 LAST  15  1 
70  LAST  70  8 
6 l AST  75  1 
Q l AST  751 

12  l AST  672 
1 

A LAST  747 


1?  LAST  693 

11  LAST  6RA 

2 LAST  669 

11  LAST  68  5 
10  LAST  752 

8 LAST  752 

3 LAST  319 
2 l AST  752 

5 LAST  752 


27,2227 

. 

2 7 »2 ?3 1 
27,  23?2 

27, 2 133 
27,2  334 
27,  2235 
27  ,2  3^6 
77,7337 
27,  2340 
27 ,2341 
27,  7 342 
27,2 143 
27,2344 
2 7,  7 34  5 
27  , ? 346 
27,2347 
27,  2 350 
27  ,2351 
27,  2 367 
27,2  353 
27,7354 
27,  2365 
77  ,2356 
27,2357 
27,  2360 
27  ,2361 
27,  2362 
27,2  363 
27,2364 
27,  2365 
2 7 ,2  366 
77,2367 
27,  2370 
27 ,2371 
27,  2372 
27,2  373 
27,2374 
27,  2375 
27  ,2376 
27,7377 
27, 2400 
27  ,2401 
27,  240? 
27,2  403 
27,7404 


27673  G 
C3701  1 
450C6  o 
16741  1 
77650  1 
C 36  32  0 
77745  1 
03442  0 
00041  1 
77621  1 
C3f 31  0 
37452  C 
27056  1 
43?75  1 
00001  0 
00001  o 

C 36  4 2 1 
C2314  0 
77656  1 
27535  1 
00007  0 
C 36  50  1 
02322  0 
65345  0 
C6520  C 
16406  1 
43214  1 
03745  1 
56366  1 
16410  C 
66006  1 

02776  C 
45134  0 

02777  1 
22CC 0 1 
41575  0 
02357  1 
C37C1  1 
77656  1 
17673  C 
00C45  0 
37664  1 
15741  1 
77650  1 
03632  0 


UNIT 

STOVL  UT 

VGT  IG 

PUSH  FALL 

GE  T.  L VC 

GOTO 


QTEPP 

S40.1R  OLOAD 

TIG 

STORF  T0FC1 

onsu 

TPASS4 
STC ALL  3ELLT4 
L EMPREC 
VLOAO  SETPD 
R ATT 
0 

STORE  R TIG 
STORE  R IN  IT 

UNI  T 

STOVL  UNIT/R/ 

V ATT 

STORE  VTIG 
STORE  VIN1T 
DLOAD  PDOL 

ZERC1VEC  S 
FPS  1 

BOFF  0 AO 

NORMSW 
SMALL  EPS 
E PS2 

SMALL  EPS  PUSH  SXA,  1 
RTX1 
SXA, 2 :all 
RTX2 
I N1TVEL 
VLOAD  PUSH 

OELVEET  3 
STORE  VGTIG 
UN  IT 

STOOL  UT 
360 

ST  CAL  L V GD  ISP 
GET.  tV. C 

GOTO 

OT  EMP 


27,2405  0C7C7  1 EPSl  20EC*  2.777777778 

27  ,2406  03434  1 
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USER'S  P AG F NC.  15  E7  S3 

VG  IGNITION  SCALFD  AT  2I+71M/CS 

THRUST  DIRECTION  SCALED  AT  2 1+11 

VGTIG  IN  LV  COOP  AT  21  + 7)  M/CS  IN  OELVLVC 


INTERCEPT  TIME  - TIG. 

I PAR  STATE  VECTOP  AT  TIG  FOR  IN  I TV  EL. 


NJM  IT  = 0 


EPSIL0N4  = 13  DEGREES  OR  45  DEGREES. 


VGTIG  = VR  - VN. 

UT  = UNI  T ( VGTIG) 

CONVERT  VGTIG  (IN  PUSHLIST  1 TO  LOCAL 
VERTICAL  COORDINATES. 


10  DEGREES  AT  1 REVOLUTION 


GAP:  ASSEMBLE  REVISION  r>6  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L P A 0—  P A ? 


3591 

•501 

0 5.92 

0592 


2 7 , 2 A C 7 
2 7 . 2 A l 
2 7 , 24 1 1 
27,  2 A 1 2 


C7070  0 FPS2  20EC* 
3A3AA  0 

0002 A 1 THETACCN  2 DEC 
1371A  1 
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9.722222222  £-2*  35  DEGREES  AT  1 REVOLUTION. 

.31833939  6-6 
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NC.  17  F7  SB 

P059B  SUBRO  UT  INF  NAME:  SAP. 2, 3 MOD.  NC.  3 OATF:  APPIL  6,  1967 

*059'.  MODIFICATION  BY:  JCNAT  HAN  C.  ACCFLSTJN  ( A ()AM  S A SS3C  1 A TE  S) 

1 0595  MOD.  NO.  A:  JULY  18,  1967:  FETFP  ADLER  (PIT/  III 


ASSF.M6LF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
P4C-PA7 


9:12  OCT.  21,1970 
USER  • S PAGE 


R 596  MOO.  NO.  5:  OCTOBER  16,  1567:  PETEP  ADLER  (MlT/TLl 

R 697  ORIGINALLY  PY  : SAY  C E AN  ZELCIN  (MIT  INSTRUMENTATION  LAB)  AMD  RICHARD  T A L.  A YC  0 (SYSTEM  DEVELOPMENT  CORP) 

R if  599  S A ) . 7,  3 COMPUTES  "POINTVSM"  V*H  I CM  IS  THE  HALF-UNIT  CFSIREO  THRUST  VFfTOR  IN  S T A BL  E-M  Em  SEP  COOP  PINA  TF  S FROM  "UT" 

POE'  1 MHIOH  is  THT  samp  VFfTriP  IN  PFFFPFNCF  COORDINATES.  IT  D:  TF  F MI  NF  S THF  CORRFOT  VALUES  FTP  "SCAXIS"  USING  T HF  +X 

106'  3 AXIS  FOR  OPS,  APS,  AM)  RCS  PUFNS.  THE  "W  I NGS  -L  FV  CL  HEADS-UP"  LM  ORIENTATION  IS  THEN  COMPUTED  IN  PCFERENCE 

WJf  '6  COORDINATES.  THESE  VECTORS  ALSO  OEFINE  THE  "PREFERRED  I MU  C RI  E NT  AT  1 ON" . UPON  COMPLETION  OF  THIS  CALCULATION, 

R06.7  THC  "PREFERRED  ATTITUDE  COMPUTEC"  FLAG  IS  SET  ( PF1A  TFLG  ) . 


P060R  CAU  TNG  SEQUENCE  : 

A0609  L CALL  INTERPRETIVE  CALL. 

i‘61  L +1  SAO.2,3 

AD611  L ♦?  (RETURN)  GIMRAL  ANGLE  VECTOR  IN  MPAC. 

R 06 1 2 SUBROUTINES  CALLEC:  NONE. 

R 06 1 3 NORMAL  RETURN:  L +2  (SEE  CALLING  SEQUENCE  ABOVE). 

RD616  ALAPM/APOPT  MODES:  NONE. 


'•6!  6 INPUT: 


I . REF  SMMA  T 

2.  UT 

3.  PTIG 


MATRIX  FRCM  REFERENCE  Til  S T A BL  E -ME  MBER  COORDINATES  SCALED  AT  2. 
HALE-UNIT  DESIRED  THR  US  T D I PEC  TI  ON. 

PCS  I T I ON  AT  TIG  IN  REFERENCE  COORDINATES. 


RD621  OUTPUT: 


R "6  22 
RC623 
R->6?6 
10625 
R 6 2 7 
S 062  9 


: XSCREF  : 
: YSCREF  : 
: 7SCPEF  : 


nri NTVSM 
SC  A X I s 
PFRAT  FLG 


WINGS-LEVEL  HEADS-UP  LM  ORIENTATION 
IN  REFERENCE  COORDINATES 
(PREFERRED  I M U DRI  TN  TA  TI  ON  ) . 

DESIRED  THRUST  DIRECTION  IN  ST ABLf-MC MBER  COORDINATES. 

HALF-UNIT  OF  AXIS  TO  ALIGN  IN  ST  APL  F-MFMBFP  COORDINATES. 

INTERPRETIVE  FLAG.  ON:  PREFERRED  ORIENTATION  COMPUTED;  OFF:  NOT  COMPUTED. 


10631  DEBRIS:  NONE. 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGPAM  ZERL1NA  BY  ZOROASTER 
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P 40 -P  4 7 


JSER'S  PAGE  NO.  18  E7  S3 


0632 

0633 
3634 
0636 
r 636 


063  7 

f 638 
3 6 3 3 


REF  1 

REF  9 LAST 

REF  23  LAST 
RFF  4 LAST 
REF  6 LAST 
REF  2?  I AST 


27,241  3 77775  1 

752  27,  2414  C 3673  0 

27  ,2415  76521  0 

! 7 , 2 4 1 

627  27,  24  17  2777  3 1 

c93  27  ,2420  06516  0 

527  27, 2421  27765  C 


COUNT  * 

S40  .2  ,3  V L 0 AO 
M XV 
STOVL 
STOVL 


*S/S40.  2 
UT 

VSL  l 
MEFSMMAT 
POI  NTVSM 
UN  IT X 
SC  AX  1 S 


UT:  DESIRED  THRUST  DIRECTION  IHALF-UNII) 
(PUT  INTO  TOP  OF  PUSH-DOWN-LIST.) 
TRANSFORM  THRUST  DIRECTION  TO  STARLH- 
MEMBER  FROM  REF  CR  ENCF  COORDS  (RESCALE). 
SAVE  FOR  "VECPniNT"  ROUTINE  (LFMVANJ). 

SC  AXIS  SF  T TO  U,  FOR  P40  AND  P4?  AND 
FOR  P4 1 IF  RCS  NOT  -X,*Y,-Y,  «-Z,-Z. 


0640  RFF  10  LAST 

0641  REF  1 

364? 

0643  REF  Q | AST 

06431 

0643? 

6433  REF  1 

3 6434 

0644  REF  1 

0645 

3646  REF  2 LAST 

0647 

0648  RFF  1 


765  27,2422 

27.2423 

27. 2424 
752  27,2425 

27.2426 

27. 2427 
? 7*2 430 

27. 2431 

27.2432 

27.2433 
755  27,  2434 

27  ,2435 
2 7,74  36 


C 3673  0 
03607  ( PLUSX 
5-435  0 
03642  1 
46125  0 
00045  0 
56441  0 

45575  1 STORY 
74  162  1 
76435  1 
C3607  0 
77676  0 
03623  0 


UT  ASSLME  +X  BURN  AIWAYS,  EVEN  FOR  RCS. 

STORE  XSCREF  XSCREF  = UT  ( DESIRED  THRUST  DIRECTION.) 

VXV  UNIT  RTIC-  = POSITION  AT  T I M F-OF- 1 GMT  ION  . 

RTIG  YSCREF  = UNITIUT  X RTIG) 

PDDL  BHIZ 

360  TEST  MAGNITUDE  CF  UT  X RTIG 

FIXY  IF  SMALL,  USE  UT  X VTIG  AS  YSC 

VLCAt)  ST  ADR 
STORE  YSCRFF 
VXV  VSL1 

X SC RFF 

V COMP 

STORE  ZSCREF 


COMPUTE  (YSCRFF  X XSCREF), RUT  FOR  A 
RIGHT  HAN06D  SYST FM,  NEFD  (X  CROSS  Y). 
ZSCREF  = - (YSCREF  X XSCREF) 

= «■  (XSCREF  X YSCRFF  ) 


064  9 

0650  RFF 
3653  1 

06502  RFF 

06503  REF 
36534 
06505 

36506  REF 


1 LAST  7*6 
7 LAST  762 

1 


27,  24  37  4.34  14  1 

27.2440  0107*  1 

27. 2441  47376  0 FIXY 

27.2442  036C7  3 

27.2443  03650  1 

27,  ?444  4 1456  0 

27,2445  77650  1 

27,?446  56431  1 


SF  T R VO 

P FP  AT FLG 
VLOAD  VXV 

XSCREF 

VT  IG 
UNI  T PUSH 
GOTO 

STORY 


IN  THIS  CASE, 

YSCREF  = UNIT!  XSCREF  X VTIG) 


GAP: 
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L 

P40-P47  USER'S  PAGE  NC.  19  E7  S3 

90651 

SUBROUTINE  S40.  e 

R 652 

MOCIFIEC  APRIL  3,  1968  BY  PETER  ADLER  MIT/IL 

* 065’ 

nr  scr  i pti  on 

R)S54 

R0656 

1 ' 

S6  .R  UPDATES  THE  VELPCI  1 Y- T0-8E-GAI  NED  VECTOR,  VS,  ( AND  ECR  LAMBERT  TARGETTED  BURNS  ALSO  EXTRAPOLATES  V G 
USING  THE  BOT  V FCT  CR  ) COMPJTES  T E F TIME  FOR  ISSUING  THE  ENGINE  OFF  COMMAND,  TGO,  AND  FALLS  THC  RGUTINE 
"FINDCDUW",  WHICH  GENERATES  STEERING  CCMMANDS  FOR  THE  CAP. 

RD649 

CALI  ING  SFOUEN’CE 

*0660 
K n 66  1 
RS6&2 

l-l  CALL 

L S4C. 8 

L+1  INTERPRETIVE  RETURN 

3 .663 

Al  ARM 

RD664 

RC666 

IF  VG  . OFLVREF  IS  NEGATIVE  I VG  AND  DEIVREF  OVER  90  DEGREES  APART),  BYPASS  TGO  AND  STEERING  COMPUTATIONS 

AM)  S FT  ALARM  U 7.  R El  J RN  TO  CALL  FR  NORMALLY. 

3 (’66  7 

INPUT  AND  INITIALIZATION 

R?S£8 
R-.)66Q 
RO  6 7'  ■ 
RC671 

1 '67  2 

R 5 6 7 3 

9 16  74 

VGPRFV  REFFPENC"  2(7)  M/CS 

PEIVRFF  REFERENCE  2 17)  M/CS 

BOT  REFERENCE  2(7)  P/CS 

TCECAY  TAIL-OFF  TIME  2(28)  CS 

XOELVFI.G  1 = EXTERNAL  DELTA-V;  0 = LAMBERT  (AIMPOINT) 

STFEPSW  1 = DO  STEERING  ANP  TGO  COMPUTATIONS;  0 = VG  UPDATE  ONLY 

FIRSTFIG  1 = GONE  TO  LAMBFRT  AT  LEAST  ONCE;  > = HAVEN'T  GONE  TO  LAMBERT  YFT 

3 0676 

NOTE:  VGTIG  FOUALS  VGPP.EV 

RD677 

OUTPUT 

R0678 

R3679 

R0680 

30681 

STEFRSK  SEE  INPUT 

IMP  III  SW  1 = ENGINE  OFF  IN  TGO  CE  NTI  SECONDS;  C = CONTINUE  BURN 

TCP  TIME  TO  CUT-OFF  2(28)  CS 

SEE  FINDCDUW  FOR  STEERING  CUT  PUTS. 

RJ632 

SUBROUT  INE  CALLED 

R0683 

FINDCnilW 

30684 

DERR  I S 

RD685 

MPACS,  PUSH  1ST 

0686 

PFF  1 COUNT*  H./S40.8 

j A P : ASSERBI.F  RFVISICN  56  OF  AGG  PROGRAM  ZEKL  IMA  BY  ZOROASTER 


1 687 

'688  REF 

0689  REF 

0690 

0691  RDF 
369?  RFF 

0693  RFF 

0694 

3695  REF 

(696  RFF 

0 70  7 

C708  RFF 
0709  RFF 
373905 
07091  ref 
07R93  RFF 
3710 
0711 

071?  RFF 
0713  REF 

1 714  RFF 
37  15 

P7l 6 RFF 
0717  RFF 
3718 
071  9 

'720  RFF 

07?  1 

072?  REF 
3773  REF 

0724 

0725  REF 
3726 

'727 
r 7?8 

0729 

0730  REF 
3731  REF 
073?  ref 
0733 

3734  RFF 
0735  RFF 

r'  736  REF 
0737 

■;73g  RFF 
3739  RFF 
0740 

0 74  1 REF 
974 2 RFF 
0743  REF 


6 


3 

3 

24 

3 


1 


2 

12 


LAST  751 


LAST  74  3 
I AST  745 
LAST  748 

I AST  755 
LAST  207 

LAST  757 
LAST  752 

LAST  745 
LAST  74  8 


LAST  757 
LAST  757 
LAST  757 


LAST  757 


LAST  740 
l A ST  664 


LAST  749 

LAST  748 
LAST  752 
I A ST  757 


LAST  749 
1 AST  767 
LAST  757 


27, 2447 
27  ,2451 
2 7,24';  l 
27, 2455 
27  ,2453 

27. 2454 

27.2455 

27.2456 
27,  ? 4 5 7 
27  ,2463 
27,2461 
27,  2462 
27  ,246  3 
27,  2464 

27.2465 

27.2466 
27,  2467 
27  ,?47n 

27.2471 

27. 2472 
27  ,?^73 
27,  2474 
27,2  475 
27, ’476 
? 7,  2477 
27  ,2500 
27,2501 
27,  250  2 
27  ,2503 
27, 25C4 
2 7,2  505 
27,2506 
2 7,  2 5C7 
27  ,2510 

2 7,  ’5H 
27, 2512 
27  ,251  3 
2 7,  2 5 14 
27,2  515 
27,2516 
7 7,  ? c 1 7 
27  ,2  6?2 
.’7, ’5  21 
27. 2522 
27  ,?5?3 
2 7,  2 5 24 
27,2  525 
?7,2  52h 
27,  ? 5 27 
27  ,2530 


77614  1 
01347  0 
56730  C 
'2275  1 
03701  l 
03525  0 
C37C7  1 
76521  0 
C 1 732  0 
03253  0 
51575  l 

n 37c  7 1 

03664  0 
77776  1 
0 6042  1 
0 6051  r, 
77201  1 
0000  1 0 
03707  1 
27701  1 
03525  0 
57414  1 
Cl 344  0 
75614  0 
77656  1 
41641  0 
03707  1 
56244  0 
51634  1 
03743  1 
41215  1 
06516  0 
56  2f  1 1 
20613  1 
00045  C 
42205  1 
16532  1 
C3741  0 
03515  0 

77615  0 
C 1 234  0 
17442  C 
03515  0 
5 1025  1 
16534  1 
5164C  1 
4 3 C 1 4 c 
01C66  0 
C 1 2 24  1 
75614  0 


S40.  8 


VGA  IN* 


BDTDK 


TGOCALC 


BOF 

X DEL  VFL  G 
RASTFER1 
VLOAD  VSU 

VGPREV 
OE  LVREF 
STORF  VG 
MX  V V S L 1 

REFSVMAT 
STORE  UNFC/2 
VLOAD  ABVAL 
VG 

STORE  V GO  ISP 
F XI  T 

TC  SERVCHNG 

TC  I NT  PR  FT 

SETPD  VL  CAD 

b 

VG 

STDVL  VGPREV 
OELVREF 
BOFF  VC  CMP 

STEER  SW 
S40RFT 

UN!  T 

DOT  PUSH 
VG 

3PL  ODV 

AL  ARM  IT 
VEX 

DAD  DMP 

DP HALF 
SR  DDV 

10D 
36  D 

DMP  DAD 

-FOURDT 
TDECAY 
STORE  TGO 
DAD 

PI  PTI MF 
STOOL  TIG 
TGO 

DSU  3 P L 

FOURSECS 

G OF  I ND 

sft  :lrgo 

IMPULSW 

STFFRSW 

S4CRFT 
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USER  'S  PAGE  NO.  2C  E 7 S3 

GENERATE  VR  IF  NOT  EXTERNAL  DELTA-V  BJRN 


VELOCITY  TO  BF  GAINED  SC  AL  FD  AT  (7  1M/CS 


LOCATION  FOLIOWING  CALL  TO  S4' . B 


DEL  V IS  MORE  THAN  90  DEGREES  FROM  VG. 


400  :s 

CALL  TO  FINDCDUW  -2 


LOCATION  FOLLOWING  CALL  TO  S4i  .8 


r,Ap:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  1 FPL  INA  BY  ZOROASTER 


9:  12  ncT.  21  ,197u 


ZFLV 


.[>99  PAGE  75b 


P AO-  ° 4 7 


USER  'S  0 A GE  NO.  21 


E 7 S3 


■*  747  4 

7435  RFF 
74’6 


24,  36  34 
24,3634 


BANK  24 
SETLOC  S406NK 
BANK 


I 74  4 
r 74  5 
. 746 
0747 
748 


PEF  30  LAST  734 
RFF  112  LAST  757 


97485  RFF 
074  86 

1748  7 PFF 


3 (AST  757 


24,  3636 
24,  ?637 
24,36*0 
24,  164  1 
3 4 ,3642 


77776  1 
O 5600  1 
C14C7  C 
0 6051  0 
77624  1 
61073  1 
77650  1 


AL  AR  M I T F X I T 


ALARM 

01407 
I NTPRF  T 


,3643  75614 


SKIP  T GO  COMPUTATION  RUT  CALL  FINDCDUW. 


LOCATION  FOLLOWING  CALI  TO  S4-..P 


07*88  7,2*  I 

74865  REF  5 LAST  750  27,2000 

97489  27,2631 


RANK  27 
SETLOC  P4CS1 
RANK 


0 74  9 

r 749 

975] 

751 

'7515 


27,25?1  77715  1 -FOUROT  2DEC  -800  B-18  -4  ( 200  C S.  ) R (-181 

27,253?  77777  0 

27,  2533  COOCO  1 FOURSECS  20EC  400  400  CS  SCALED  AT  2(  + 28)CS 

27  ,2534  00620  0 

757  E 7 , 1 74 2 


PFF 


3 LAST 


2VEXHUST 


VEX 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


9:12  QCT • 21,1970  Z FLY 


.049  PAGE  759 


L P40-P47 


USER'S  PAGE  NC.  22  E7  S3 


R0  7 53 
3 (1754 
Ri'755 
RC7*6 
U 757 
fG758 
R 07  59 
R0  760 
RD7(,1 
3 "762 
RC  75 3 
R(.76<f 
3 0765 
R ) 7 6 6 
R ■ ' 7 6 7 
R0  76R 
R3759 
1 0770 
R 0 77 1 
R0772 
3 ('771 
R3774 
R i 1 7 7 5 
R.J776 
RD777 


NAME  S40.  1 3 - TI  MER  URN 

FUNCTION  (1)  DETERMINE  WHETHER  A GIVEN  COMBINATION  OF  VELOCITY  TO 

BE  G 71  NEC  ANC  ENGINE  CHOICE  RESULT  IN  A RJRN  TIME 
SUFFICIENT  TC  ALLOW  STEERING  AT  THE  VEHICLE  DURING  THE 
BURN 

(?)  THE  MAGMTLCE  CF  THE  RESULTING  BURN  TIMF  --  IF  IT 
IS  SHORT  --  AND  THE  ASSOCIATED  TIME  OF  THE  FNGI  NE  OFF 
SIGNAL 

CALLING  SEQUENCE  VIA  EINDVAC  AS  A NEW  JCB 

INPUT  VGTIG  VFLOCITY  TO  BE  GAINED  VECTOR  I ME  TER  S/C  SI  AT  +7 

WFIGHT/G  MASS  CF  VEHICLE  IN  K GM  AT  U 6 
F APS  ENGINE  THRL  S T IN  M. NEWTONS  AT  4-7 
ANC  ALSO  FOR  RCS  ENGINE 

MDCT  RATE  CF  DECREASE  GF  VEHICLE  MASS  DURING  FNGINE 
BURN  IN  :<  ILOGRAMS/C  S A T + 3 . THIS  SCALING  MAY 
REQUIRE  MODIFICATION  FOR  SATURN  BURNS. 

ENG  IE  LAC,  SWITCH  1C  DECIDE  WHETHER  APS  OR  DPS  ENGINE  IS  USED 

=0  DPS 
= 1 APS 

OUTPUT  IMPIJLSW  ZERC  FOR  STEERING 

ONE  FOR  ATTITUDE  HOLD 
NfiTHRCTL  7 E f C FOP  THROTTLING 

ONE  TO  INHIBIT  THROTTLING 
TGC  T IME  TO  EURN  IN  CS 

THE  QUANTITY  M.  NE  W TC  N = 10000  NEWTONS  WILL  BE  USED  TO  EXPRESS 
FORCE 


'■'7R0 
0781 
1782 
• 7tn 
.'784 
( 785 
0786 
"'78  7 
r788 

?7RO 

1790 

0791 

792 

.793 

,.794 

0798 

<705 
<797 
17  9-3 
('799 


PEP  12  LAST  787 
c r f i 

REF  113  LAST  788 


RFF  4 LAST  757 

REF  11  LAST  75  2 

REF  1 

RFF  2 LAST  742 

REF  2 LAS1  751 


REF  1 
RFF  l 

REF  2 LAST  740 

REF  1 

REF  3 LAST  789 


E7.1514 

27,2538 

>7,2  538 
27,  2837 
27  ,28a: 

27,2841 
27, 2542 
27  ,2843  41  325  0 

27,  2544  167C5  1 

27.2545  34017  r 

27.2546  72471  0 

27,  "* c 4 7 C 1246  0 

27  ,258.0  41421  0 

27,2551  43014  0 

27,  2552  C 5 34  2 1 

27  ,2583  56623  0 

27. 2554  C2463  1 

27.2555  56345  0 

27.2556  16001  1 

27, 25c7  C 1246  0 

27  ,2560  50021  1 


EBANK=  T GO 
COUNT®  11/40.13 
TC  INTPRFT 

SET  PD  CLEAR 
OOD 

IMPUL  SW 
VLOAD  ABVAL 
V3  TIG 

POOL  PMP 

6. 5SECS 
FRCS4 
ODV  S L 1 

WEIGHT/G 
BOSU  PUSH 
BOFF  SET 

APSFLAG 
S 40.  I 3D 
NCTHRCTL 
DLOAO  30V 

K IV  AL 
WEIGHT/G 
BDSU  BMN 


0 6051  0 
43001  1 
CCOCl  0 

0 1266  1 
51575  1 
C 370 1 1 


ASSUME  NO  STFERING  UNTIL  FCUNU  OTHERWISE 

VELOCITY  TO  BE  GAINED  AT  +7 

OOD  = MAT.  OF  VGTIG  AT  +7 

CORRECT  VG  FOR  6.5  SECONDS  OF  ULLAGE 

ASSUME  4 JET  ULLAGE 

SCALE 


FOR  DPS  ENGINE 

GOD  = MAG  OF  VGTIG  CORRECTED 
M .NEWTON  S-C  S AT  +24 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRf-CR A"  ZERL  INA  BY  ZOROASTER 


40-P47 


3BDD 

0001  REF  1 

0802 

0803  REF  7 LAST  1*7 


27,  2561  0CCC1  0 

27  , ? 562  5660 5 1 

27,2563  41325  0 

27,  25+4  0 3737  1 


PDDL 


COO 

SA0.131 

DMP 

HOOT 


MOOT  REPRESENTS  THE  RATE  of  rfCREASE  OF  VFFICI.E  MASS  L'JRING  ENGINE 
«">“'5  BURN  IN  K IL  OGP  AHS/CS  . WHEN  SATLRN  IS  USED  , THE  SCALING  HAY 
R 0806  RE  GUI  RE  AG  JUST  PENT 


0807  REF  1 

3838 

0809  RFF  A 

0810  RFF  7 

0811 


0815 
08  15 

3816  RFF  2 

081  7 
0 8 1 B 

0810  REF  2 
0820  RFF  1 

38  21 

or2?  reF  1 

0823 

3924  REF  5 

0825 

0826 

0827  REF  1 

0828  REF  1 

38?o 

0830  REF  5 

083]  REF  9 

3832  REF  280 

<■'837  PFF  108 

•874  REF  143 

0035  REF  13 

0036  PEF  1 


I AST  75Q 
LAST  751 


l AST  759 


I AST  760 


LAST  760 


LAST  7*9 
LAST  7^9 
I AST  749 
I AST  74  9 
LAST  749 
LAST  759 


27,  2566 
27  ,2567 
27,2570 
71,  257  1 
27  ,2572 
2 7,  2573 
27,2  5/4 
27,2575 
2 7,  25  76 
27  ,2577 
27,2000 
27,  260  1 
2 7 ,2602 
27,  26C3 
27,2  604 
27,2605 
27,  26C6 
2 7 ,?6C7 
2 7 , 26  ]<■' 
27,  26  11 
27  ,2612 
27,  26  1 3 
27,2614 
2 7,2  61  5 
27,  2616 
27  ,2617 
27,2620 
27,  26  21 
27  ,2622 


16675  1 

6 5 221  0 BO  SU 

01246  0 

C3735  0 

604C5  0 OMP 

16677  0 

41471  C DOV 

51021  C RPSU 

00003  1 

56623  0 

55345  0 DLOAD 

43205  1 DMP 

16677  0 
16673  1 

77650  I GOTO 

56613  0 

41345  0 S40.131  OLCAO 

01246  0 

41542  l SRI 

c62 1 5 1 DAD 

16003  0 

16005  0 

7 7414  0 S40. 132  SET 

01066  0 

C 7271  1 S40 .132*  TC 

* 0154  1 CA 

56  OC 1 0 XCH 

3 4755  1 CA 

52 '5  15  C DXCH 

1 2645  0 TCF 


3.5SEC 

PDDL 

WE  IGHT/G 

F 

SR  2 
5SECS 

PUSH 
3 P L 
0 2D 

S4  0.  1 3 0 
BDDV 
DAD 
5 SEC  S 
IS  EC  2D 

S40.  132 
DMP 

WF  IGHT/G 
PUSH 
DDV 
K 2 VA  L 
< 3VAL 
F X I T 
I MPULSW 
T PAGREE 
M P AC 
t 

7ER0 

TGO 

S 40 .134 


3 9 37 
08  J B 

P83Q  REF 
3843 

0841  REF 
0 842  RFF 
C 84  3 

0844  PFF 
3845  REF 
0846 


6 LAST  760 

2 LAST  759 
1 

1 

3 LAST  759 


27.2624 

27.2625 
27,  26  26 
27  ,2627 
27,76  ?C 
27,  36  3 1 
27 ,2632 
2 7,  2 63  3 
27,2634 


41345  ( 

or  00  1 0 

01246  0 
4 3C0  6 C 
05302  0 
56666  1 
4 3071  0 
16007  1 
02663  0 
41400  0 


S40.  130  DLOAD  DMP 
OOD 

W EIGHT/G 
PUSH  BON 

AP  SFLAG 
APSTGO 

DDV  CLEAR 

S 40 . 136 
NOTH  ROT  L 
BOV  PUSH 


9: 12  OCT.  21  ,1970  ZFLY 

USER  'S  PAGE  NO.  23 


.044  PAGE  760 
6 7 S3 


TGO  LESS  THAN  100  CS 
C 2D  = T EMP  1 AT  *7 


350  CS  AT  »1A 

SCALE 

04  D = TEMP2 


IOC  C S AT 


14 


M.  NFWTUN  CS  AT  +2  4 
M.NEWT3N  CS  AT  +10 


FOR  DPS  ENGINE 


GAP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZERIINA  BY  ZOROASTER 


384  7 
08AR 

084° 

0851 

0852 

0853 
C 8 56 
3855 

0856 

0857 
385? 

0859 

0860 
0861 
086? 
1 86? 


REF  SO  LAST  76  6 


27,  2635 

27.2636 

27.2637 
27,  2fcA0 
27  ,266  1 
27,2662 
27,  2663 
27  ,2666 
27,  7665 
27,2666 
27  ,?f>47 
77,  2650 
27  ,2651 
27,2652 
27,  2653 
27  ,?656 
27,  2665 


5665C  1 
51025  1 
16701  0 
56656  1 
520  15  l 
1670  1 0 
56613  0 
77776  1 

C 5366  0 
00C03  1 

0 5155  0 
60565  1 
77671  1 
16011  0 
03515  0 
77776  1 

1 2665  0 


S40.137  DSU 


S60.  130V  0 LOAD 
ODV 


S6G • 1 3 OV 
3 PL 
6S  EC 
S60.  138 
GO  TO 
6 S EC 
S60.  1 32 

PH  ASCHNG 
C 0003 
ENnOFJOP 
SR4 


STORE 

FX  IT 
TCF 


0866 
3865 
3 3 66 

0867 

0868 
0869 
i 870 
3871 


27.2656 

27.2657 
27, 2660 
27  ,3661 
27,2662 

, 

27  ,2664 


510  25  1 
16703  1 
56663  1 
776  14  1 
C2463  1 
77745  1 
77776  1 


27,  2665  1 2615  0 


S40.138  DSU 


TCF 


3PL 

P9S  ECS 
STCRETGO 


S40.132* 


087?  27,2666  62471  l APSTGO  ODV 

REF  2 LAST  744  27,2667  34Q07  1 

38735  27,  2670  77650  1 GOTO 

0876  PEF  2 LAST  761  27,2671  5666^  0 

878  27,2672  00144  0 1SEC20  2 OFC 

"8  78  27,  2673  00000  1 

"879  27,7674  01274  1 

3379  ?7,  2675  COCCO  1 

880  27,2676  00764  1 5SECS 

0880  27,2677  OOOCO  1 

133  1 27,  27C0  Cl  130  1 6 SFC.  2D  EC  600. 

0881  27,2701  00000  1 

'886  27, 27C2  21304  0 

0886  27,  2703  COGOO  1 

0887  27,2704  00121 

3887  27,  2 7C5  1CCC0  0 

RC88R  FUNCTION  (1)  GFNEPATFS  REQU IR  ED  V EL  OC  I TY  AND  VELOCITY-TO-BE-GAINED 
2 >889  VECTORS  FOR  USE  CURING  AIMPCINT  MANEUVERS  EVFRY  TWO 

83893  COMPUTATION  CYCLES  (4  SECONDS). 

8 n 89 1 (21  IJPCATES  TFF  F VECTOR  WHICH  IS  USED  IN  THE  FINAI 

R'  CALCULATION  OF  EXTRAPOLATING  THE  VELOCI  TY -TO- BE- GAINED 

R3893  THROUGH  ONE  2-SECOND  INTERVAL  INTO  THE  FUTURE. 

R0B94  CALLING  SF  0 VIA  F I NDVAC  AS  NEW  JOB. 


3.5SEC  2 DEC  350  . B-13 


2DLC  500.  C B—  1 4 


fl^SLCS  ? DEC  0900.0  B-I4 


6.5SECS  ? DEC 


650  . 


:12  CCT.  21  ,1970  Z FLY 
USER • S PAGE  NO. 


.349  PAGE  761 
E7  S3 


600  .0  CS  AT  +14 


PFCCMPUTE  T GO  IN  T IME2  UNITS 
S4C  .136  SHIFT  EO  l F FT  10 

REJOIN  COMMON  CODING  FOP  RESTART  PROTECT 


LOAD  TGO  AT  2 (1  A ) 


100.3  CS  AT  +14 
?50  C S AT  +13 
50C.0  CS  AT  +14 
600  .3  CS  AT  +1 4 


ASSUME  6.5  SECONDS  OF  ULLAGE 


JAP:  ASSEMBLE  PEV! SIGN  56  CF  AGC  PROGRAM  ZfcRL  INA  8Y  ZOROASTER 


RP895 

< >896 
RJ897 
RC89R 

* 1899 
R3933 
R0901 
R090? 
RC903 

* C909 
R3905 
R 0906 

< 0907 
R3  9)9 
ft  0909 
RP91  0 

3911 

0912 

0913 
09H 
0915 
3 9 ?5 
0O2(S 
0927 
3928 
C 929 
0933 

0931 

0932 
3933 
0939 

0935 

0936 

0937 
3938 
093  9 


VRPRE  V 
TIC. 

01  targ 

PI PTI MF 

GOT/2 

DE  L VRFF 


OLT  PUT 


VGPREV 
VGOI SP 
VRPRFV 
DOT 

SUBROUTINES  USFO  - 
PFF  9 I AST  757 

RFF  2 I AST  95  TO 

REF  119  LAST  759 


2 LAST  752 

5 LAST  752 

1 

2 LAST  752 
1 

51  LAST  761 


PFF 
REF 
RFF 

PEF 

REF 

RFF  117  | AST  76 1 


- ACTIVE  VEHICLF  KAO  I US  VECTOR  IN  METERS  AT  *29. 

- ACTIVE  VFHICLF  VELOCITY  VECTOR  IN  “FTFRS/CS  AT 
-LAST  COMPUTED  VELOCITY  RE  UUI REO  VECTOR  IN 

MCTERS/CS  AT  »7  . 

- TIKF  CF  IGNITION  IN  CS  AT  *28. 

- COMPUTATION  CYCLE  I NTF  R vAl  = 200  CS  AT  + 2r. 

- TIME  CF  PN  AND  VN  IN  CS  AT  +28. 

- HALF  CF  VEITCITY  G A I NED  IN  DELTA  T TIME  CUF  TO 
ACCER  ER  AT  ION  OF  GRAVITY  IN  METERS/:  S AT  +3. 

- CHANG  C IN  VELOCITY  CUR  ING  LAST  2 SEC  IN 
METER  5 /C  S AT  +7. 

- VELOCITY  TO  RE  GAINED  VECTOR  IN  MFTERS/CS  AT  +7 

- MAG  CF  VGPREV  F CR  DISPLAY  PURPOSES. 

- VELOCITY  REOUIRFO  VECTOR  IN  METERS/CS  AT  +7. 

- B VECTCR  IN  metePS/CS  AT  +7. 

INI  TVE  L 

E7, 1700 
95  : 

27,  2 7 C 6 
27,  270  7 
2 7,2  710 
27,  2711 
27  ,2712 
2 7,2  713 
27, 2719 
27  ,2715 
2 7,  27  16 
27,  271  7 
2 7,2  720 
27,  272  1 
27  ,2722 
>7,2723 
27, 2729 
27,2725 
27,  2726 
27,  2 72  7 


C 6C51  0 
77fc01  0 
G00C1  0 
71219  0 
0 1C  7 2 0 
06520  0 
77725  1 
16906  1 
93219  1 
C3795  1 
56722  0 
1£910  0 
95006  0 
22002  0 
77776  1 

0 5369  0 
CCCC2  0 

1 5155  I 


EPSSMALL  PUSH 
ENDS90.9  EXIT 


ERAN K = VS PPE  V 
COUNT  * M./S90.' 


OOD 

n i_  r A' j 
AVFL AG 
H 16  ZEROS 

EPS  1 
DAO 

NOR  MSW 
I PSSMALL 
EPS2 
CALL 

HAVFGUES 

PHASCHNG 


0990 
399  1 
099? 
r 99  3 
0999 
099  5 
3996 


12  LAST  757 


2 7,2  73 O 
27,  71-  1 
77  ,2 732 
27,2733 
27, 2739 
27,2735 
27,  7736 
27,2737 
27,2790 
27,  279  1 


51575  1 
0 1 2 2o  C 
53799  0 
C2777  1 
57576  1 
27715  1 
03999  C 
97051  0 
01220  0 
21706  0 


KAST  EE  Rl  V LOAD  ABVAL 


R MAG 
RT  ARG 
RTR 


27  ,2792  17656  1 


12  CCT.  21,197  ZFLY 
USER'S  PAGE  NO. 


.099  PAGE  762 
25  E7  S3 


SET  A VF  LAG  FOR  LF  M ACTIVE 

EPS  IL0N9  = TO  OP  95  DEGREES. 


36D 


ABVAL  (C) 


GA3  : ASSFMBLE  REVISION  56  CF  ACC  FRCC-RAM  ZERLINA  BY  ZOROASTER 


L P40-PA7 


095A 

0955 

0956 
CP*’  7 

0958 

0959 
C 960 
0 961 

0962 

0963 
09SA 

0965 

0966 
39  *,  7 
096B 
0969 
097i' 
0971 
097? 
3973 
097<. 
0976 

0976 

0977 
3970 
1.979 
(980 
3981 
998? 
0983 
09  O'. 
0985 
3986 

0987 

0988 
3989 
0990 

0901 

0992 

-OQ-j 

3996 

0995 

0996 

3997 
C 998 

0999 

1000 
1001 


RFF 

REF 

REF 

°FF 

REF 

RFF 
R EF 

REF 

REF 

REF 

RFF 

REF 

RFF 

RFF 

REF 

REF 

RFF 

REF 

REF 

RFF 

REF 

REF 

REF 

RFF 


15  LAST  683 

13  LAST  7C8 
3 LAST  762 

16  LAST  763 

17  LAST  763 

1 

2 LAST  167 

6 I AST  763 
6 LAST  681 


3 LAST  685 

3 LAST  685 

2 LAST  76  3 
5 LAST  763 

18  LAST  763 
-3  LAST  76  3 

19  LAST  763 

2 LAST  76  3 

3 LAST  683 

3 LAST  76  3 
A L AS  T 76  3 

A LAST  76  3 

A LAST  763 
8 LAST  76-3 


2 7 » 2 -f  A 5 
27, 27A6 
2 7 ,2  7A  7 
27,  2 7 50 

27.2751 

27.2752 
9 7,  2 7 53 
27  ,?75A 
27, ?755 
27, 2756 
27  ,2757 
27,  2760 

27.2761 

27.2762 
27,  2763 
27 , 776A 

27.2765 

27. 2766 
27  ,2767 
27,2770 
27,  2 77  1 
27,277? 
27,2773 
27, 277A 
27  ,?77S 
27,  2776 
27,  2 777 
27,3000 
2 7,  ’-'Cl 
27  ,3002 
27,3003 
27,  3f)0  A 
27 ,3005 
2 7,  3006 
27, 30 C 7 
2 7,3  01*3 
27,  3C1  1 
27  ,3012 
2 7,3  313 
27,  3'-  1 A 
27  ,3015 
27,  3C16 
27,  301  7 
27,3020 
27,  302  1 

■ 

27,3023 

27,  30 2a 
27  ,3025 


57576  1 
00037  0 
A13C1  0 
CG050  1 
03715  1 
57  1 C 1 0 
000A7  1 
000A6  0 
7773A  1 
03766  0 
17725  1 
00037  0 
653A2  1 
03715  1 
65  3A  2 1 
03723  1 
A 3 3a2  0 
A5A15  0 
7A0AA  1 
A 1 225  1 
00037  0 
03721  0 
77621  1 
03717  0 
A 5 325  1 
03733  0 
03715  l 
705C1  1 
00OA7  1 
A 1271  0 

03725  1 
5366A  0 
0CCA6  0 
57575  1 
7 7 7 5 A 1 
C 3766  0 
75366  0 
02673  1 
OOOA 1 1 
A13A5  0 
03733  C 
C3721  0 
77621  1 
C 3 7 1 7 C 
AS  325  1 
03733  0 
0 *72  3 1 

70501  1 


x a n,  2 

STORE 

NORM 

NORM 

SX6.2 
STCO  L 
SRI 
SR  1 

SR  1 
DAD 
STORE 
DSU 

BO  SU 
PDDL 

NORM 
ODV 
XSU,  2 

LX  A,  2 

SQRT 

STORE 

OLOAO 

BOSU 

POOL 

NORM 


SL  * 

XI 
0,2 
30  0 
DMP 
X 2 

PM  AC 

X AO  ,2 

XI 
XI 

MJSCALE 

R1  C 

300 

PDCL 

R MAG 

POOL 

RTMAG 

0AD 

ST  ADR 

SS 

DMP 

300 

MU/A 

MU  AST  EER 

PSU 

SS 

RM  AG 

SRI 

XI 

DMP 

RlC 

SI  * 

XI 

1,  2 

MUSCALE 
S IGN 

GEOMS GN 
320 

OMP 

SS 

MU /A 

MUASTFFR 

OSU 

SS 

R TMAG 
SR  1 


9:  12  OCT.  21,  1970  7 F L ' 


0A9  PAGE  763 


USFP'S  PAGE  NC.  26 


E7  S3 


2(  +58  -X  ) 


SS  = U 1 ♦ P2  +C  1/2 


OP  - A 


iP:  ASSEMBLE  REVISION 


OF  AGC  PROGRAM  7ERLINA  BY 


1002 

REF 

20 

LAST 

76  3 

27,  30  26 

00C47 

1 

1003 

27,3027 

51271 

0 

i)?4 

REF 

5 

LAST 

763 

27, 3030 

C3725 

1 

1005 

27,3031 

53665 

0 

1 

PFF 

21 

LAST 

765 

27,3032 

0)056 

0 

1 J07 

27,  3p  3 3 

51575 

1 

1008 

27  ,3035 

65366 

1 

1000 

PFF 

5 

LA  ST 

76  3 

27,3025 

C 3 7 3 3 

0 

lolfi 

27,  30  36 

'6225 

1 

1011 

27  ,3037 

00037 

0 

1)12 

RFF 

6 

LAST 

765 

27, 3C50 

C3733 

c 

1011 

27,  30  51 

51566 

1 

10  14 

27,3052 

6755? 

0 

1315 

27,  3053 

65205 

0 

1016 

PEF 

1 

27  ,3044 

17215 

1 

1'17 

27,3055 

56325 

0 

10lR 

27,  3056 

OOC  37 

0 

1019 

PFF 

7 

1 AST 

765 

27  ,3047 

G3733 

0 

1323 

27, 305C 

776CC 

1 

1021 

27,  30*1 

57052 

1 

1022 

27,3052 

51366 

1 

1 23 

27,  3C e 3 

45252 

0 

lr'25 

27  ,3055 

65365 

1 

li  ?S 

R FF 

1 A ST 

763 

2 7 , 3 ' 155 

02673 

1 

1 o2n 

REF 

2 

1 AST 

76  5 

27,  30  56 

17215 

1 

1027 

27  ,3057 

55  302 

1 

1)29 

27, 3C60 

f 52C5 

0 

1 0?  9 

PFF 

e 

LAST 

76  5 

27, 3061 

03733 

0 

10  30 

REF 

9 

l A ST 

765 

27 ,3062 

C3  73  3 

0 

1)31 

27,  3C63 

76452 

1 

1032 

27  ,3065 

77605 

1 

1033 

27,3065 

52525 

1 

1035 

REF 

5 

l AST 

76  3 

27,  3066 

0371  7 

0 

1035 

. 

55366 

l 

1336 

27,  3C70 

53225 

0 

1 r3  7 

RFF 

9 

LAST 

752 

27,  3071 

03631 

0 

103fl 

REF 

fl 

LAST 

757 

27,3072 

01235 

0 

1)39 

2 7,  3C7  3 

15037 

0 

1050 

27  ,3075 

77765 

0 

1051 

27,3075 

00037 

0 

104? 

. 

00037 

0 

1053 

27  ,3077 

77214 

0 

1055 

REF 

6 

LAST 

762 

27,  3 ICO 

C37C5 

0 

1055 

RFF 

1 

27,  3 10  1 

57122 

1 

1056 

RFF 

2 

LAST 

762 

27,3102 

03656 

1 

1)57 

27,  2 10  3 

5 345  1 

1 

1050 

RFF 

3 

LAST 

752 

. 

03535 

1 

1059 

27,3105 

63361 

0 

1)5) 

. ‘ 

000  3 7 

0 

1051 

REF 

3 

LAST 

765 

27  ,3107 

03656 

1 

ZOROASTER 

9: 12  Q2T.  21.1970  ZFLV  .049  PAGE  76 

USER'S  PAGE  NO.  27  E7  S3 

ODV 

XI 

DMP 

R1C 

XSU,  2 

SL* 

XI 

1 ,2 

SORT 

POOL  -8  (NO  SIGN) 

DSU 

ss 

DO  V 

30  0 

SS 

SORT 

SRI 

(IMP 

PU  SH 

AS  IN 

POOL 

POOL 

2P  1+2 

onv 

300 

SS 

80V 

SORT 

SR  3 

S IGN 

DMP 

RDSU 

POOL 

GFOMSGN 

2p  I ♦ 3 

SR2 

DMP 

nsu 

POOL 

SR  3 

OMP 

POOL 

SS 

ss 

SORT 

SL3 

MUASTEER 

SORT 

DSU 

RODV 

0 AD 

TPASS4 

STCDL 

S IGN 

P IPT  IME 

300 

STORE 

BON 

3 0 D B WITH  S I GN 

300 

VLOAD 

NORMSW 

180MF  SS 

IC 

VSU 

VXSC 

UNI  T 

UN  IT/R  / 

PDVL 

3 00 

IC 

VXSC 


AP:  ASSEPRLG  HFVISICN  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P4C-P47 


1052 

27,  3 110 

5 3455 

0 

VAD 

UNI  T 

1053 

REF 

LAST 

764 

27  ,3111 

03535 

1 

JN  IT/R/ 

1?54 

27, 3112 

53361 

0 

GETVRVG1  VX  SC 

VAD 

1059 

27,  3i  13 

0004  1 

1 

3 2D 

1056 

27,3114 

53744 

0 

GETVRVG2  LXC,2 

VSR* 

1057 

REF 

13 

L AST 

762 

27,  3115 

C2777 

1 

RTX2 

1058 

27  ,31  16 

57  177 

1 

■ 

1059 

REF 

7 

LAST 

685 

27,3  117 

02330 

0 

STORE 

V I PR  IMF 

1060 

27, 3120 

116  50 

1 

GO  TO 

1061 

RFF 

1 

27  ,3121 

57165 

1 

ASTRENO  - 

136? 

27, 3122 

50375 

0 

180MFSS  VLCAD 

DOT 

1 063 

RFF 

LAST 

764 

• 

03656 

1 

i : 

1064 

RFF 

6 

LAST 

765 

27,3124 

03535 

1 

JN  IT/R/ 

1365  * 

27,  3125 

17240 

1 

BMN 

VLOAD 

1066 

REF 

1 

27  ,3  126 

57145 

0 

NEGPROD 

1067 

REF 

5 

LAST 

76  5 

27,3  127 

03656 

1 

IC 

1068 

27,  1130 

61362 

0 

VSR  1 

PD  VL 

1069 

REF 

6 

1 AST 

765 

27  ,3131 

03535 

1 

JN  IT/R/ 

1073 

27,  3122 

53362 

0 

VSRl 

VAD 

1071 

27,31  33 

77656 

1 

UNIT 

1072 

. 

57406 

1 

PUSH 

VCCMP 

1073 

27,  3135 

75  235 

1 

VXV 

SIGN 

1074 

REF 

4 

LAST 

682 

27  ,3136 

02674 

0 

UN 

1075 

REF 

5 

l AST 

764 

27,3  137 

0267.3 

1 

GEOMSGN 

n 76 

27,  3 140 

74256 

0 

UNI  T 

VXSC 

1C  77 

27  ,3141 

00037 

0 

30  D 

1378 

27,  3142 

77715 

l 

PD  VL 

1 C79 

27,  3i*3 

77650 

1 

GOTO 

1080 

RFF 

1 

27,3144 

57112 

1 

GETVRVGl 

139  1 

27, 3145 

74575 

0 

NEGPROD  VLOAO 

VSRl 

108? 

RFF 

7 

LAST 

765 

27  ,3146 

03535 

1 

UN  IT/R  / 

1083 

27,3  147 

7 4 c 1 5 

0 

POVL 

VSRl 

1 084 

REF 

6 

1 AST 

765 

27,  H50 

C 3fc56 

1 

i : 

1085 

27  ,3151 

53451 

1 

VSU 

JN  IT 

138  6 

27,  3 152 

17606 

1 

PUSH 

1 087 

27,  3153 

75235 

1 

VXV 

SIGN 

1 0 Rfl 

RFF 

5 

LAST 

76  5 

27,31 54 

02674 

0 

JN 

1 389 

RFF 

6 

L AST 

765 

27,  3155 

C2fc73 

1 

GEOPSGN 

1090 

2 7 , 1 1 r > 

74256 

0 

UN  IT 

VXSC 

1091 

27,3  157 

0004  1 

1 

32  0 

1 092 

27, 1160 

777  15 

1 

P D VL 

109? 

27  ,3161 

53361 

■ 

VXSC 

VAD 

1394 

27,  ’162 

C0C37 

c 

30  D 

1095 

27,  1163 

17650 

1 

GOTO 

1096 

PFF 

1 

27,31 64 

57114 

1 

GETVRVG2 

10=>7 

27,  3165 

776  c 1 

0 

VSU 

1098 

REF 

3 

LAST 

721 

. 

03551 

0 

VN  1 

1099 

REF 

12 

LAST 

75  2 

2 7,3  16  7 

02357 

1 

ASTRENO  STORE 

DELVEFT3 

1 1 01 

• . M 7 

52  135 

0 

FIR  ST  THE  SLOAD 

BZE 

1101 

REF 

14 

LAST 

765 

27,3171 

03000 

1 

R T X 2 

9:  12  03  T.  2 l ,1  97  0 ZFLY  .049  PAGE  765 
USER'S  PAGE  NO.  2R  E7  S3 


FOR  A 


UNIT  ( IC-IR  » *-B 


FOR  B 


3AP:  ASSEMBLF  RFVISICN  -6  OF  AGC  PPCGRAM  ZERL INA  BY  ZQROAST ER 


9:  12  O:  T.  21 , 197C  ZFLY 


099  PAGE  765 


P90-P97 


USER'S  PAGE  NO.  ?o  E7  S3 


1 1 02  p F F 1 

1103 

1 1 DA  PEF  13 

1105  PFF  1 

1106 

1137  RFF  in 

II  OB 

1109  PFF  9 

III  PFF  3 

1111 

1112  PEF  1 

1113 
1119 

1115  RFF  1 

1116  REF  19 

1117  PFF  15 

1 1 IP 

1119  RFF  1 


LAST  765 

l AST  762 

LAST  769 
LAST  719 

LAST  7i  6 
I A ST  766 


27, 3 172 
27  ,1173 
27,  U79 
27,  3175 
2 7 , 3 1 76 
27,  3177 
27  ,3200 
27,3701 
27,  ?2C2 
27  ,1203 
27,  3209 
27,  120  5 
27,3706 
27,  1 2C  7 
27  ,321 J 
27,3211 
27,  3212 
27  ,3713 


57176  0 
52175  0 
C2357  1 
5 72  1 1 1 
53575  0 
C 1 220  0 
95395  1 
01239  n 
0 2512  1 
56205  0 
16023  1 
00093  0 
53361  0 
C3C 17  1 
C2357  1 
02357  1 
77650  1 
56955  0 


3F  TGOBL 
VLOAO  GOTO 

DELVEET3 
NOG OB L 

GETGOBL  VLCAO  JNIT 
RN 

OLO  AO  OSU 

PIPT  IME 
3 OB  L TI  ME 
DMP  ODV 

EARTH  MU 
390 

VXSC  VAC 

UNI  TGOBL 
UELVEET3 
NOGOBL  STORE  DELVEET3 
GOTO 

VGA  IN* 


NO  OBLATENESS  COMP  if  IN  MOON  SPHERE 

CALCULATE  OBLATENESS  TEPM. 

2 

G = -(MLI/P  1 (UN  IT  GO  BL  JIT  - TIG) 
OBL 

390  = /RN/  (7)  FROM  UNIT  OPF  R AT  I (IN. 

OUTPUT  FROM  I NI  TVEL  VG  = VR  - VN 
VG  = VI  + G03L  - VN 


Hi? 


27,1219  311C3  1 2PI+3  2DEC  3.191592653  6-2 

27, 1215  36657  C 


SSEMBLE  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  1?  HST.  21,  197C  ZFL 


049  PAGE  767 


Pi  121 
< 112? 
R1123 
R1124 
RU  26 
R1120 
* 1129 
R 1 1 3? 
p 1 1 3 1 
3 113? 
R1133 
R 1 1 34 
R 1 1 35 

1136 

1137 


ms 


1 140 

1141 

1 142 
114  3 

1144 

1145 


1 14R 

1149 

1150 
1 151 

1152 

1153 
1 1 54 

1155 

1156 


1157 

1158 
1 150 
1160 
1161 
1162 
1153 


1144 
1 165 
1166 

1167 

1168 


P40-P47 


JS  ER  'S  PAGE  NO  . 30 


F 7 S3 


TRIMGIHR  (FORMERLY  S40  .6  ) 

MOO  0 24  FEB  67  PF  TE  P AOLER 

FUNCT  ION: 

TRIMS  CPS  ENGINE  TO  MINIMIZE  THRUST/FG  OFFSET.  FNGINF  IS  GIMRA1.LED  TO  FULL  «-  PITCH  AND  + ROLL  (TO  LOCK) 
FOR  REFERENCE  A NO  IS  THEN  BROUGHT  BACK  TO  TRIM  POSITION  BY  PUNNING  FOR  THE  PROPER  TIMCS  (TO  BE 
SPECIFIED  BY  GAEC  ) IN  - PITCH  AND  - ROLL. 

CALLING  SEQUENCE: 

VIA  WAITLIST  F RDM  R C 3 

I NPUT  : 

PITTIMF  TIME  TO  RUN  FROM  FULL  + PITCH  TO  TRIM  ( CS  ) 

ROLLTIME  TIME  TO  R IN  FROM  FULL  «-  ROLL  TO  TRIM  (CS) 

SUBROUTINES  USEC: 

WAITLIST,  FIXOELAY,  VARDFLAY,  FLAGUP,  FLAGD0WN,  NOVAC 


REF  1 

REF  3 LAST  310  E6.1401 


COUNT*  !•  S / S4  0.  6 

EBANK=  RDLLTIME  OCTAL  MASKS:  PRJ05=05COO  EBA  NK5=024l  '■ 


REF  75  LAST  740 
REF  1 


27,12  16  C 5527  1 TR I MS‘I  MB  TC  OCWNFLAG 

27,3217  00137  1 ADRES  3MBDRVSW 


GMRCRVSW  FLAG  IS  SET  W HFN  F I THE*  ROLL  DR 
PITCH  IS  COMPLETED,  WHICHEVER  IS  FIRST. 


REF  8 LAST  743 

RFF  40  LAST  601 
REF  2 LAST  303 

REF  41  LAST  767 
REF  14  LAST  746 

RFF  3 LAST  767 

REF  4?  I AST  767 
REF  0 LAST  767 

REF  43  LAST  767 
REF  2 I AST  310 
REF  ?1  LAST  749 
REF  l 


27,3220  4 5017  0 

27,  322  1 C OOC 6 1 

27.3222  03  C 12  1 

27.3223  2 5C14  1 

27. 3224  C 0006  1 

27.3225  05  012  1 

27,  3226  C 5232  1 
27,  3227  13560  0 

>7,3230  4 5014  0 

27,  3231  C 0CC6  1 
27  ,3232  03  012  1 

27.3233  3 5017  1 

27.3234  0 0006  1 

27.3235  0 5 C12  1 

27,  32  26  3 1*  402  r 

27,  3 237  0 5204  1 

27,3243  03257  1 


CS  PR  105 

E XTEND 

WAND  C HAN  1 2 

CAF  FBANK5 

E XTEND 

WOR  CHAN  12 

TC  F I XDE  LAY 

DEC  6000 

CS  E BANK  5 

EXTEND 

WAND  C HAN  1 2 

CAF  PR  105 

EXTEND 

WOR  CHAN  12 

CAF  PITTIME 

TC  TWIDDLE 

ADRES  PITCHOFF 


TURN  OFF  - PITCH,  - ROLL,  IF  ON. 


TURN  ON  ♦ P IT  Ch,  ♦ ROl  L . 


WAIT  ONE  MINJTE  TO  MAKE  SURE  ENGINE  IS 

AT  FULL  ♦ PITCH  AND  FULL  + ROLL 
TURN  OFF  ♦-  PITCH,  + ROLL. 


TUk N ON  - P ITCH,  - POLL  . 

GET  TIME  TO  SHUT  OFF  - PITCH  AND  SET  UP 
TWIDOLE-TASK  TO  TURN  IT  OFF  THEN 


REF  4 
REF  4 
RFF  25 

REF  44 
REF  3 
REF  1 

REF  2 
REF  5 
REF  17 
REF  3 


l AST  767 
I AST  574 
LAST  701 

LAST  767 
LAST  702 


l AST  76  7 
LAST  747 
LAST  730 
LAST  60  5 


27,  324  1 
27  ,2242 
27,3243 
27,  3 344 
27  ,3245 
27,  3246 
27,  3 24  7 
27,3250 
27,  3 25  1 
27  ,3252 
27,3253 
E7 , 147  1 


31*401  0 

0 5235  0 
4 4740  1 
G 0006  1 
03  01?  1 
3 C 1 02  1 
7 4 74?  0 
C 0006  1 

1 3263  1 
3 4737  0 
C 507?  1 


ROLLOVER 


ROLLTI ME 
VARDEL  A Y 
BIT12 

CHAN  12 
FLAGWRD6 
G MBDPB I T 

PI  TCHOFF 
PR  1010 
NOVAC 
WHOCARE  S 


CA 

MASK 

EXT  END 
BZF 
CAF 
TC 

EBANK= 


GET  TIME  TO  SHUT  OFF  - POLL  AND  GO  AWAY 
UNTIL  THFN 


SHUT  OFF  ROLL 

IF  HERE  INLINE  (POLL  DONE)  IS  PITCH  DONE 
IF  HERE  FROM  PITCHCFF,  IS  ROLL  DONE? 

NO.  SET  FLAG,  ROLL  OR  PITCH  DONE. 
RETURN  TO  PC 3 


GAP:  ASSEMBLE  REVISION  56  JF  AGC  PROGRAM  ZFKLI 


9 Y ZORGASTEi 


9:12  GCT«  21,19 70  Z FLY 


.049  PAGE  766 


L P40-P47 


USFP'S  PAGE  NC.  31  E?  S3 


1 160 
116« 
117') 


1 1 73 
1176 
1 ITS 

1176 

1177 


REF  52  LAST  767 
RFF  2 9 LAST  S60 

PFF  65  LAST  767 
RFF  1 

REF  52  LAST  769 
REF  ? LAST  767 
PFF  S3  LAST  76R 


27,3256  02330  0 

27. 3255  02067  1 

27.3256  C 5272  0 

27, ?25 7 1 676?  0 

27, 7260  C 0CC6  l 
?7,3?61  03  012  1 

27. 3262  1 3266  C 

27.3263  ( 5515  r 

27,3266  (.3137  1 

27, 7265  C 52720 


2CA0R  T R I M GONE 

TC  TASKGVER 
PI  TCHOFF  CS  «1  T1D 

EXTEND 

WANG  CHAN  1 2 SHUT  OFF  PITCH 

TCF  ROLLOVER  SFF  IF  ROLL  HAS  FINISHED  At  SO. 

TC  UPFLAG  ROLL  DONF  ; OR  PITCH  DGNE:  BUT  NOT  BOTH. 

40RES  GMBORVSW 
TC  TASKOVER 


TAP:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:  12  OCT.  21*1970  Z F l Y .049  PAGE  769 


P40-P47  JSER'S  PAGE  NO.  12  E6  S3 

Pi  178 

SUBROUTINE  NAME:  S91  .1  MOC.  NO.  0 DATE:  FEBRUARY  28*  1567 

1 1179 

MOO.  NC.  1 DATE:  JANUARY  23,  1958:  BY  PETER  ADLER  (MlT/IL) 

Rl  1 nl 

AUTHOR:  JONATHAN  0.  ADDELSTON  (ADAMS  ASSOCIATES) 

1 1182 

Rl  19  A 

R 11  86 

1 llflR 

Rl  IRQ 

R 1 1 Q1 

R 1 193 

Rl  1 95 

S41.1  PERFOPMS  THE  COORDINATE  SYSTEM  T R AN  FORM  AT  ION  FROM  THE  REFERENCE  FRAMF  TO  THE  BODY  OF  THE  LM. 

SPECIFICALLY,  IT  IS  USED  TO  TRANSFORM  A VELOCITY  (SCALED  AT  2 < +7  ) MET  ERS/ CENT  IS  ECOM  n)  FROM  REFEPENCE  TO  LM  AXIS 
COORDINATES.  FIRST  THE  VECTOR  IS  TRANSFORMED  TO  THE  STABLE  MEMBER  COORDINATES  BY  THE  MATRIX  REFSMMAT . THIS 
LEAVES  THE  VECTOR  IN  MPAC  , SCALED  AT  2 ( + 8)  MET  ERS/ CENT  IS  FCOND . THEN 

THE  SUBROUTINE  CDUTR  IG  IS  CALLED  TO  SET  UP  THE  DOUBL  E-PRF  C I SI  ON  CCU  VECTOR  ALONG  WITH  ITS  SINES  AND  COSINES. 

THE  VECTOR  IS  THEN  TRANSFORMED  F RC  M STABLE  MEMBER  COORDINATES  TO  SPACECRAFT  (OR  LM)  COORDINATES  BY  THE 

SUBROUTINE  *SMND*.  FINALLY!  IHE  VECTOR  IS  RESCALED  TO  2 ( +7  ) MET  ERS/ C t NT  IS  ECON  D,  ANO  CONTROL  IS  RETURNED  TO  THE 
CALLER  WITH  C(MPAC)  = VEL  OC I T Y (LM  ) . 

Ul% 

CALLING  SEQUENCE: 

A1197 
A11  98 

A 1 1 99 

A1  2 or 

L VLOAD  CALL 

L +1  VELOC  ITYIREF ) SCALED  AT  2U7JM/CS  IN  REFERENCE  COORDS. 

L +2  SM  .1 

L ♦ 3 STORE  VELOCITY!  LM)  SCALED  AT  2 ( + 7 ) M/ CS  IN  LM  BODY  AXIS  SYS. 

1120! 

SUBROUTINES  CALLED: 

51381 

1 1204 

1.  CDUTPIG, 

WHICH  CALLS  CCUl.OCIC. 

2.  *SMNR* 

Rl  205 

NORM  A!  RETURN:  L ♦?  (SEE  CALLING  SEQUENCE,  ABOVE.) 

R 1206 

ALARM/A80RT  MOCES : NCNE. 

Rl  20  7 

RESTART  PROTECTION:  NONE. 

GAP:  ASSEMBLE  RE  V l SKIN  *>6  11F  A&C  PROGRAM  ZfcHLINA  0V  ZOROASTER 


R:  12  OCT  • 21,  1970  7 FL  Y 


.049  PAGE  77l 


L P4H-P47 


USER'S  PAGE  NC.  33 


ES  S3 


’ 1208  INPUT: 


R123? 
R 1210 
R 1 2 1 1 


1 . P EFSMMAT . 

2.  CCUX,  CC’JY,  C0U7. 

7.  VELOCITY  (RFF)  IN  *PAC. 


R1212  OUTPUT: 


R12IA 
Q 1 2 1 5 
T 121* 


COllSFCT: 
SINCOU: 
CCS CCU: 
MPAf  : 


OOUPLE  PRECISION  CCU  VECTOR,  ORDER 
TAI  i SINI  S OF  CDUSPOT  COMPONENTS. 
MAI  F COSINES  OF  COUSPOT  COMPONENTS 
VFLrr.ITY(LR)  (SCALED  AT  2 ( *7  I PET F 


EO  Y t Z,  X. 

RS/CENT  IS  ECflN  D ) 


R 1 2 1 7 CEBRIS:  NONE. 

1 1218  Cl  I 1 TATUS:  CCOED. 


if}?, 

1221 

1222 

1223 
A 1224 


PEF  1 

RFF  25  I AST  757 
RFF  3 LAST  557 


. 

27,32*7 
27,  3 270 
27  ,3  27  1 


76521  0 
01732  0 
77F5C  1 
47653  1 


COUNT*  «t/S4l.1 

M XV  VSL  1 CONVERT  VECTOR  IN  MPAC  FROM  RFF  AT  2 1*7) 

REFSMMAT  TO  SR  AND  RESCALE  DUE  TO  HALFUNIT  MATRIX 

GOTO  CONVERT  TC  BODY  AT  2 1+7  1 USING  PRESENT 

CDU*SMNB  CDU  ANGLES.  COU*  SMNR  WILL  RETURN 

VIA  RVO  TO  THE  CALLER  OF  541.1 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


Til F LUNAR  LANDING 


00'  1 

0002  REF 

0003 


LAST  40 


1 2 i 24  2 l 
32,  200C 
32,2421 


RANK  32 
SETLOC  C20PS*32 
BANK 


3334  REF  1 


F RANK=  F2DPS 


ROO  5 
R0006 
R0007 


P(  3 : THE  LUNAR  LANOING,  BRAKING  PHASE 
7*  ******$**$** 


0008  REF 


COUNT*  1F/P6  3 


REF  52  I.  AST  762 


32,  24  21  C 5364  0 P63LM 
32,2422  04024  0 


PH  AS  CM NG 
04024 


PFF  ?0  6 LAST  74  5 
RFF  H LAST  744 


TC  8ANKCALL 

CAOR  R02B0TH 


26  LAST  744 


3 2 703 
55' 455 


0 


CAF  P63A0RES 

TS  WHICH 


OOKI  REF 
00  14?  PEF 
3 3 1 4 3 RFF 
00144  REF 


I AST  744 
I AST  744, 
I AST  748 


32,2427 
3 ? , 2 4 3 0 
32,  2 4 7:  1 
3?  ,2432 


3 2000  0 
55 ' ? 5 1 1 
3 47c 1 0 
55*513  0 


CAP  3PSTHRSH 

TS  PVTHRUSH 

CAF  FOUR 

TS  OVCNTR 


MX 


0 

0 


CS  ONE 

TS  HCH  PHASE 


0'  17  RFF 
33175  REF 


LAST  76r  32,2435  3 4755  1 

• i 


CA  ZERO 

TS  FLPASSO 


3 2713  0 
cc'451  1 


CAF  HI  ROFFF 
TS  HLROFF 


001 8 REF  56  l AST  6?C 

0010 

3323  REF  46  LAST  768 


32,  244  1 4 4736  0 

32.2442  C 0006  1 

32. 2443  (3  012  1 


C S 91  T14 
EXT  END 

HAND  CHAN12 


0 ' ? 3 REF  1 

00  231 

3323?  REF 
OC  233  RFF 
00  ?4 

0025  RFF 

0026  REF 
3333 

0031  REF 
003?  RFF 
3333 


15  LAST  762 

2 LAST  277 
1 

6 LAST  76  1 

1 

1 

4 LAST  720 


32.2444  1 6051 

32.2445  4 3 C 1 4 0 

32. 2446  CC664  0 

32  ,2447  00466  0 

32,2450  43C14  0 

12,  2451 

32  ,2452  03271  0 

22,  2453  43CI4  O 

32.2454  05660  1 

32.2455  03067  0 

32,  ?4  56  4 3C 1 4 0 


INTPRET 
SET 

NDTERFLG 
AL  W66FLG 
CLEAR  CLEAR 

NOTHROT1 
REDFLAG 
CLEAR  SET 

l RBYPASS 
KJNFL  AG 
CLEAR  CLEAR 


0 FLAGHRGY  TC 

CLFAR 


: 1 2 OCT.  21,1970 
USE P • S PAGE 


.049  PAGE  771 
EO  S3 


DO  IMJ  STATUS  CHECK  ROUTINF  Rt>2 

INITIALIZE  WHICH  FOP  BUPNBARY 

INI  TIALI  ZE  OVMON 

INITIALIZE  WCHPHASE  AND  FLPASSD 

SE  T LR  CUTOFF  ALTI  TUQE 

REMOVF  TRAfK-ENABI  E OISCRFTE. 

DIONYSIAN  FLAG  WAVING 


PERMIT  TERRAIN  MOCEL 

PFR  MI  T P 66  SE  LECTI  CN 


GAP: 


ASSEMBl  b REVISION  56  OF  A: 


PROGRAM  ZEKLiNA  BY  ZQRQASTEl 


L THE  LUNAR  LANOING 


0034  PFF 
3335  PFF 


4 0036 

00  37 

003fi 

0039  PEF 
3343 

904 1 PFF 
Of  4?  PFF 
3343  PFF 

0044 

0045  PFF 
0C46  RFF 
OC-47  REF 
3348 

0040  OFF 

0050  RFF 
3351  PEF 
005?  REF 
0053 

• H531  RFF 
00532 


3 I AST  51  1 
5 LAST  577 


7 LAST  7H 

? LAST  2? 7 
2 LAST  143 


?6  I A ST  77C 
? L AST  2l  7 


3 LAST  77  2 
1 

43  | AST  752 

8 LAST  752 


3357 
005  R 
0059 
3363 


REF 

PEF 

REF 

REF 

PFF 


REF 


0061 
00  62 
0062  1 
00622  PFF 
33623  REF 
006?  4 PFF 
006 


LAST 
LAST 
LAST 
l AST 
I AST 
LA  ST 

LAST 
l AST 
LAST 
LAST 


755 

126 

593 

772 

730 

772 

320 

752 

757 

762 


3365 


PFF 


3 l AST  70  7 


0066 
OC  6 7 
0068 
00  73 
3374 
0075 
00  76 
3377 
0078 

00  70 


REF 

PFF 

REF 

RFF 
RFF 
PEF 
REF 
R EF 


LAST 

LAST 

LAST 

LAST 
I AST 
I AST 
1 AST 


720 
720 
7 20 

772 

240 

720 

107 


32,2457  00266  0 
32,  ?46C  00  270  1 


P?  5 FL AG 
RNOVZFLG 


7?  ,7  tit  \ 
12,  246  2 


32  ,2463 
32,  2464 
32,2465 
32  ,2466 
32,  2467 
! ,247 
3?  ,2471 
32,  2472 
32  ,2473 
32, 2474 
33,7  4 75 
, 

37,  2477 
32  ,2503 
32 , 25(  1 
32,  2502 
3?  ,2503 
3 2,  2 5 C 4 
3 2,2  505 
32  ,2  506 
32,  25C  7 

37 ,75  1 1 

32,  25  1 2 
32  ,2513 
!?,  2 514 

• 

37  ,2516 
37, 2517 


02021  0 
41525  0 
C2C27  0 
37675  l 
55720  1 
64312  0 
01732  C 
7 £ 2 5 0 
71426  1 
45345  1 
02027  r 
2471  (•  1 
34041  0 
27056  1 
77331  0 
03647  1 
00050  1 
C6516  0 
26561  1 
06514  1 
26567  1 
0651?  1 
16575  1 
24706  C 
27665  1 
C6520  0 
17253  f 
06520  0 
C3643  0 


IGMLG 


SETPD  VLOAC 
0 

PLS 

PDDL  PUSH 

TL  AND 

ST  CALL  TPIP 

RP-TO-P 

V SL  4 P XV 

REFSMMAT 
STCALL  LAND 

GU  ID  IN  IT 
D LOAD  DSU 

T L A NO 
GU  IODURN 
STC  ALL  TDEC1 

L EMPREC 
SSP  VLOAC 

NIGNLOOP 
40  n 
UNI  TX 
STOVL  :s 

UNITY 

STOVL  CG  +6 
UN  ITZ 

STOOI  CG  +14 
9 9 9 9 90  ON 
STOVL  DELTAH 

ZEROVECS 
STOOL  IINFC/2 

H 16  ZEROS 
STORE  TTF/8 


32  ,2520  77745  l 

32,2  521  FOCI  5 C 

3 2,  2522  27557  C 

32,2523  00017  1 

? 7,  2 5 24  64312  0 

32,2  525  01732  0 

32,2526  37517  0 

37,  2527  7 174?  1 

32  ,2530  35236  0 

32,2531  62411  1 


IGNALflOP  ULOAD 

T AT 

STOVL  P1PTIMF1 
R ATT  1 

VSL4 
ST  CALI 

MUNGRAV 
STC  AL  L G 

? GU10SUB 


P.0080 


ODUMCALC  IS  PROGRAMMED  AS  FOLLOWS:- 


9:  1 2 OCT . 21, 1*70 


Z FL  Y 


,049  PAGE 


772 


USER*  S PAGE  NC.  2 E7  S3 

TEPMINATC  P 25  IF  IT  IS  RUNNING. 

TERMINATE  P2?  IF  IT  IS  PUNNING 

FT  PST  SET  UP  INPUTS  FOP  RP-TO-9:- 

AT  9 IANPING  SITE  IN  MOON  FIXED  FRAME 
AT  60  ESTIMATED  TI  «E  OF  LANDING 
MPAC  NON-ZERO  TO  INDICATE  LJNAR  CASE 

ALSO  SET  TPP  FOR  FIRST  GUIDANCE  PASS 


GUIDINIT  INITIALIZES  WM  AND  /LAND/ 


I NT  FGPAT  E STATE  FORWARD  TO  THAT  TINE 


INITIALIZE  DELTAH  FOP  V16N6R  DISPLAY 
INITIALIZE  TRIM  VELOCITY  CORRECTION  TERM 


HICH  DELIVERS  N PASSES  OF  GUIDANCE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21,1970  Z FLY 


.049  PAGE  773 


L TMF  LUNAR  LANDING 


USER  • S PAGF  NO.  3 


E7  S3 


* 0085 
RD  386 
R OC 88 
R0089 
R0090 


(RIGN7 
ODUM  = 


RGU  ) / 1 6 


2 


16IRGU  JKIGNY/R8  + IRGU  - P I G N X) K I GN X /B4  (ABVALIVGU)  - VIGN)  KIGNV/84 

I 0 


10 

2 (VGU  - 16  VGU  K ICNX/B4  ) 

2 0 


4 OC  91 
R0D93 
R 00^5 


HIE  NLME  RA  TOP  IS  SCALED  IN  METERS  AT  2(28). 
THE  QUOTIENT  IS  THUS  A TIME  IN  UNITS  OF  2(18) 
THERE  IS  NO  TAMPING  FACTOR.  TIE  CONSTANTS  K 


THE  DENOMINATOR  IS  A VELOCITY  IN  UNITS  OF  7(10)  M/C  S. 

CENTI  SECONDS.  THE  FINAL  SHIFT  RCSCALFS  TO  UNITS  DF  2(28)  CS. 
IGNX/B4,  KIGNY/R8  AND  KIGNV/B4  ARE  ALL  NFGATI  VF  IN  SIGN. 


00 9 7 RFF 
33971  RFF 
00 9 72 

0098  REF 
0(4Q  OFF 
0100 

DIM  REF 
0102 

010?  RFF 

3134  RFF 

0105 

0106  PEF 

0107 

0108  REF 
3139 

0110  RFF 

0111 

3112  REF 
0113  PCF 
0 114 

0115  RF.F 

0116 

3117  REF 

011  8 ref 

0 119 
3123 
M21 
0122 


2 

116 

3 

2 


2 

3 


2 


2 

2 


LAST 
L AST 


I AST  ?n  7 

I AST  125 


l AST  773 


LAST  124 
I AST  20  7 


LAST  773 


LAST  125 

LAST  773 

l AST  124 
LAST  773 

LAST  77  3 

LAST  12* 
LAST  12S 


1?  ,253? 
32,  25?3 
32  ,2534 
12,2535 
12,  25  3a 


32,2537 
32,  2 54 C 

32.2541 

32 .2542 

32. 254 3 
32  ,2544 
32,?545 
»2, 2546 
32  ,2547 
32,  2550 
32,  2 551 
32  ,2552 
32,  2553 


32  ,2  554 

32.2555 

32. 2556 

32  ,2557 

. 

32,2561 
32,? 562 
32,  2561 
3?  ,2564 
32 ,?565 


55' 646  0 
C 6C  5 1 0 
57345  1 
C3627  1 
02465  1 
44232  l 
C3633  1 
45325  1 
02463  1 
02611  0 
65222  0 
C26C7  1 
57316  1 
02467  0 
6523?  1 
026  05  0 
57225  0 
C 24  6 1 0 
02465  1 
c l 5 1 5 1 
0 3(27  1 
57225  0 
C2457  0 
02471  1 
43215  0 
c62  1 5 1 
77661  0 
21(13  0 


DDUMCALC  TS  NIGNLOOP 

TC  INTPRET 

DLOAD  DMPR 
VGU 

KIGNX/R4 
SL4R  BDSU 

VGU  +4 
PDDL  DSU 

RIGNZ 
RGU  +4 
SR4R  PDDL 

RGU  +2 
OSQ  3 MPR 

< IGNY/B8  <~ 

SL4R  POOL 

RGU 

DSU  DMPR 

RIGNX*- 

< IGNX/B4*- 
PDVL  ABVAL 

VGU 

DSU  DMPR 

VIGN 

KIGNV/P  4 <- 

DAO  DAD 

DAD  00  V 

SRR 

1 0 D 


FORM  DENOMINATOR  F I P ST 


123 

124 
3125 

126 
.)  1 27 
M28 
1 1 29 
I 3’ 

1 31 


PFF 

REF 

PEF 

PFF 

PEF 


5 LAST  772 
44  I AST  772 


26  I A ST  706 


32  ,7567 
32, 257C 
1?  ,2571 
32  , ? 5 7? 
32, 2573 
32  .2574 
32 , 75  TS 
32,  2576 


4 -206  1 
03557  0 
14C41  1 

4 5 246  Cl 
24712  0 
45040  1 
64613  l 
27410  l 
43014  O 


PUSH  DAD 

P IPT  IME  1 

STOOL  TDEC1  STORE  NErf  GUESS  FOR  NFXT  INTEGRATION 

ARS  DSU 

DOUMCP  IT 
BMN  CALL 

DDUM GOOD 
INTST ALL 
SE  T SE  T 


ASSEMBLE  REVISION  56  JF  AGC  PROGRAM  7E«llNA  BY  ZORCASTci 


THE  IUNAP  LANCING 


Ul 

0134 
3136 
■137 
T 1 3B 


014  2 
OU3 
7144 


PEF 

PFF 

PFF 

PFF 

prF 

PEF 

PEF 


7"  4 
77  2 
70  4 
720 


!§;  Si 

32  ,26C1 
22,  26C? 
32,2607 
32,2604 

32, 26C5 
32  ,2606 

. 

32,  26  1( 
32,2611 
’2,  ?6  1? 


77745  1 
C3557  0 
25517  0 
00017  1 

25535  0 
00025  0 

35543  0 
27106  0 
77650  1 
64520  1 


OLCAO 

PI  PTI  PEI 
STOVl  TFT 

PATTI 

STCVL  RCV 

VATT1 
SICALL  VC V 

I NTFSR  VS 

GOTH 

IGNA1  OCP 


145 
j 146 
7147 
0148 
140 
Ol5l 
r 152 
7163 
0154 
0 155 
3156 
0157 
0 158 

0159 

0160 
3161 

16  2 

AO  163 


PEF 

PFF 

prF 

RFF 

RFF 


RFF 

RFF 

RFF 


7 72 
755 
772 


5 LAST 
5 l AST 

P last 

23  I A ST 
2 IAST 


5 LAST  772 


772 
32  0 

72  5 


32,2613 
32  ,2614 
12,  2615 
3?  ,2616 
”,  ’617 
32,  26  20 
12,2621 
. 

12.2627 
32,2624 
32,  2625 
32  ,2626 

22.2627 
32,  2fc3o 
32  ,2631 

. ■ 

32,2  63  3 


53575  0 
03253  0 
27773  1 
C 6516  0 
27765  0 
03525  0 
53435  0 
C3517  1 
72441  0 
03635  1 
1660  3 0 
03423  1 
44261  1 
2C  d 1 7 0 
00041  1 
C 3442  0 
77  7 76  1 


OnUMGOflO  VLOAD  MV  I T 

J NFC/2 

STCV1  POINTVSM 
UN  I T X 

STCVL  SC  Ax  IS 


vxv 

HOT 


JN  IT 


SI  1 
LAND 

STCOL  OUTMFPLN 
Z30MTIME 
SR  BDSU 

1 4D 
T DEC  1 
STORE  TIG 


PEF  53  LAST  771 


166 
• 167 
0168 
3163 


LAST 
I AST 
L AST 


77  1 
720 
762 


32,2636 

. 

32  .2640 
32, 2641 


4 436?  C ASTNCLOK  CS 


AST  NDFX 
3ANKCA  LL 
ST  CL  OK  2 
ENDOF  JOB 


ASTNRET  CAF 


01  76 
^1  77 
3178 
-'179 


32, 2644 
32  ,2645 
2 2,  2646 
32,2647 


C 0C04  0 
C 4674  0 
40143  C 
0 CC03  1 


INHINT 

TC  IBNKCALL 

CADR  PFLITEDR 
R F L I N T 


.049  PAGE 


9:12  CCT • 21,19  70  Z FLY 


774 


USER'S  PAGF  NC. 


E7  S3 


hppf'uliy  ?ruiinsu«  nm  NnT 

n 3BBFR  PATTI  A NO  VATTl 


INITIALIZE  KALCPANU 


NFXT  COMPUTF  OISTANCF  LANDING  SITE  IS 
OUT  OF  LP'S  CRBITAL  PLANE  AT  IGNITION: 

SIGN  IS  * IF  LANDING  SITE  IS  TO  THE  * 

RIGHT,  NORTH;  - IF  TO  THE  LEFT,  SHUT-1. 

t 

NEXT  COMPUTE  T 10, 

* 


PREVENT  REPEATING  ICNALG 


RETURN  IN  NErf  JCB  AND  IN  EB  AN<  FIVE 


9 

9 

# 


# 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZCRLINA  OY  ZORCASTER 


L THE  LUNAR  LANDING 


0 1 B 2 PFF 
5 1 R3 


LAST  774 


TC  PHASCFNG 

OCT  04  024 


01R4  RFF  AT  LAST  676 

3 185 

Ol  86  RFF  2C  I AST  6DA 

0 187 

5188  REF  1 


12,2654  3 4 746  d P63SPQT1  CA  PIT6 


32,  2655  ( CC06  1 

3 2,7656  C?  C33  0 
12,2657  C 0006  l 
32,  2660  1 2666  1 


EXTEND 

RAND  CHAN33 
EXT  END 

BZF  P63SP0TA 


11 1 89 
0190 
- 191 

192 

•*193 


RFT  1 
RTF  2C9 
RFF  A 
REF  26 
RFF  1 


LAST  77  A 
LAST  73a 
LAST  7A5 


3?  ,266  1 
32,2662 

, 

32  , 266 A 
32,  2665 


3 270A  0 
C A616  1 

20  6 2a  0 
1 6001  1 
1 265A  0 


CAF  C0OE500 

TC  BANKCALL 

f A DR  G0PFRF1 

TCF  GOTOPOOH 

TCF  P53SPOT3 


01 9A  REF  A 9 
OlOAl  REF  7 
31942  RFF  6 
» 195  RFF  1 A 5 
0 195]  RFF  2 
('105?  RFF  2 
01953  RFF  2 
1 1 9 5 A REF  ? 
-'1955  RFF  5 


LAST  7A3  32,2666 

LAST 

LAST  r,70  32,  2670 

LAST  771  32,2671 

I A ST  1 5 A 32,267? 

LAST  15A  32,  2673 

LAST  1 5 A 32  .2  67A 

LAST  1 5 A 32,  2675 

LAST  SS9  32,2676 


3 A752  0 P63SP0T A CAF 


55’ 677  1 IS 

5 5 1 700  C TS 

3 A755  1 CAF 

55*  673  0 TS 

55*675  0 TS 

55 * 67A  1 TS 

55' 676  0 TS 

55  'A62  1 TS 


TWO 

ST  [I  RARE 
ST  I LR  An  V 
ZERO 
LRLCTR 
LRMC  TR 
LRRfTR 
LRSCTR 
VSEL  EC  T 


11968  RFF  15  LAST  771 
31959  REF  2 LAST  15  3 


CAF  FOUR 

TS  511CTR 


PFF 

REF 


A 7 LAST  7A8  32  ,2701  0 A635  0 

2 I AST  7A0  32,  270?  14130  0 


TC  POST  JUMP 

C AOR  RURNRARY 


R0198 
RO  199 

0200 

02f  2 

3233 


PFF 

REF 


2 LAST  735 

2 LAST  A66 


CONSTANTS  FOR  P63LM  AND  1GNALG 

32,  2703  02100  1 P63ADRES  GENA  DR  P 63  TAB  LE 

A 36?  ASTNOEX  = M01 

12,  27CA  OC  500  1 CODE  500  OCT  00500 


9:12  OCT.  21,  1970  ZFLY  .0A9  PAGE  775 
USER*  S PAGE  N'C.  5 E7  S3 

PREVENT  RECALL  ING  R60 

IS  THE  LR  ANTENNA  IN  POSITION  1 YET 

BRANCH  IF  ANTENNA  ALREADY  IN  POSITION  1 

ASTRONAUT:  PLEASE  CRANK  THE 

SILLY  THING  AROUND 

TFPMINATE 

PROCEED  SEF  IF  HF 'S  LYING 

ENTER  INITIALIZE  LANOI NG  RADAR 


INITIALIZE  COUNTER  TO  ISSUE  511 
ALARM  AFT  ER  10  S ECONDS 

OFF  TO  SFE  THF.  WIZAPD... 


OCT  25; 


INDF  X FPP  C LOKTA  SK 


ASSfMRLE  REVISION  56  Of-  ASC  PPCGRA*  ft  PLl  NA  flY  7CRCASTEF 


4:  12  OCT  . 21.  1970  IF l Y 


049  P4GF  776 


THE  LUNAR  I AN  DING 


Q2<  4 
37r'4 

Ci2c5 

0205 


32  .2707 
. 1 ' 

, 

32  ,2712 


00004  o 
C1610  1 
OOOOC  1 

0001 C 0 


GUinotJRN  2 DFC 
ODUHCR  I T ZDEZ 


USER'S  PAGE  NC.  6 E7  S3 

GUIDPURN  *6.  64400314E*  2 
CRITERION  FOR  ICNAIG  CCNVt  RGENCt 


32,  27  13  GO 3fc4  0 HLROFFF  DFC 


1 5.24  P-1 


LOADED  DP,  Ojr  LOW  ORDER  DOESN'T  RATTER 


R02f  4 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L THE  LUNAR  LANDING 


>0207 

RD23R 

R020R 


p 68:  LANDING  CONFIRMATION 
***#*#***#$**<.$*$#*$$$  ##*-*#$**  *#*$*«<<*, 


0211  REF 
02  12 


J4,  33cl 
34,  20  00 
34.3351 


BANK  3 4 
SETLOC  F 20 PS*  34 
BANK 


3213  RFF 


COUNT*  «.S/P65o7 


0214  RFF  55 
021  5 


LAST  775 


LANDJUNK  TC  P HA  SC  HN G 

OCT  04024 


0215  1 

0216  PFF  21T  LAST  775 
1217  PFF  6 I A ST  742 


34,  3353  C OOC 4 0 

34.3354  0 4616  1 

34. 3355  4C1 54  0 


INHINT 

TC  bANKCALL 

CADR  7ATTFPCR 


221  RFF 
0221  1 

12212  RFF 
0222 

’ 223  RFF 

0224  RFF 

0225 

0226  RFF 
U230  RFF 

0231  RCF 

0232  RTF 

0233 

0234  RfF 

0235  REF 

0236 
0 2 37 

">2  38  RCF 
0 2 30 

0240  REF 

0241 

0242  PFF 

0243  RCF 

0244 

0245  REF 

0246  RFF 

0247  RFF 
0243  REF 
0249 

0 250 


117  LAST  773 

4 LAST  72  7 

lc  LAST  651 
1 


3 LAST  760 
11  LAST  766 
3 LAST  652 
10  I AST  766 

3 LAST  652 
2 LAST  652 


12  LAST  777 
11  LAST  777 


P I AST  7-*2 


211  LAST  77  7 
21  I A ST  734 
27  LAST  77  5 


34,1356 
34,3357 
34, 336U 
34  ,’361 
34 , 136? 

34,  3 j6 3 

34  ,3  364 
34,  ’365 
34,  3366 
34,3367 
’4,  3370 

34 .3371 

34.3372 

34. 3373 
*4 ,3  374 
34,  3375 
34,  3376 
34,3377 
34, 340C 
34  ,3401 
34,3402 
34,  3*0  3 
34  ,3404 
34,  34C  5 
34,3*06 
34,3407 
? 4 , 34  10 
34  ,3411 
34 ,34  1 2 


r 6051  d 
77614  | 
0(460  C 
43014  0 
04067  1 
04666  0 
77214  0 
C5C62  0 
01220  0 
16032  1 
CU34  0 
450  14  0 
01463  1 
2634  7 0 
77201  1 
CCCC1  0 
Cl 220  0 
65352  0 
C 1 234  0 
45006  0 
61644  0 
C2C2  1 0 
77776  1 
3 342  5 1 

0 4616  1 
20477  1 

1 6CC1  1 
1 3413  0 
1 340  5 1 


TC  1NTPPFT 

SET 

PULSFFLG 
SET  CLEAR 

SIIRFFL  AG 
LE  TABORT 
SET  V l OAD 

A PS  F L AG 
RN 

ST  COL  ALPHAV 
PI  PTI  MF 
S FT  CALL 

LUNAFL  AG 
LA  T-LONG 
SETPO  VLOAD 

RN 

VS  12  POOL 

PI  PTI  ME 
PUSH  CALL 

R-TO-RP 
STORE  RIS 
EX  IT 

CAF  V06N43* 
TC  BANKCALL 

CADR  GO EL  AS  h 
TCF  GOT0PCCH 
TCF  *2 
TCF  -5 


0251  REF  118  LAST  777 

025 2 


34,  ’413  C 6C 5 1 0 
34,3414  64375  1 


TC  INTPRFT 

VLOAD  MX V 


: 12  OCT  . 2 1,  1Q7  0 


ZFLY 


PAGE 


777 


.049 


USER'S  PAC.F  NC.  7 


E7  S3 


ZERO  ATTI TUDE  ERROR 


Tn  INTERPRETIVE  AS  TIME  IS  NOT  CPlTICAl 
PREVENT  RCS  JET  FIRINGS  IF  M30E  CON T IS 
IN  ATT  HOLD 


COMPUTE  RLS  AND  STORE  IT  AWAY 


ASTRONAUT:  NOW  LOOK  WHERE  YOU  ENDED  UP 


TERMINATE 

PROCEED 

RECYCLE 


INITIALIZE  GSAV  AND  (USING  REF  ML  ) 


;ap : 


ASSEMBLE  REVISION  *>6  OF  AGC  PPCC-PAM  ZERl  INA  BY  70ROASTFP 


THE  LLNAP  LANDING 


02S21  RfF  13 
<25??  PFF  ?R 
32523 

0253  PFF  A 
0? 54  PFF  5 
0 25  5 RFF  1 

0256 


LAST  777 
LAST  772 

l AST  770 
l A ST  205 


34,  3415  01520  0 

34,3416  01  732  0 

34,  3 4 1 7 45056  C 

34. 3420  47653  1 

34.3421  3*2??  C 

34,  3452  23*r2  o 

34,3423  77776  1 


RN 

pefsmmat 

UNIT  CALL 

COU*SMNP. 
ST  CALL  GSAV 
REF  MF 

EX  IT 


' ?57 


PEF  ? H l A S T 777 


34,3424  1 6CC1 


TCF  GGTOPOOH 


o25p 


34,  3425  0 1 4 S 3 i V06N43+  VN 


r'  6 A 3 


5:1?  O:  T.  21,1570 
USER'S  PAGF 

YNBSAV,  ZNDSAV 


ZFLY  .049  RAGE 

NO.  e E 7 S-3 

ANC  ATTFLAC.  FOR  P57 


77B 


ASTRONAUT:  PLEASE  SELECT  P57 


GAP:  ASSEMBLE  REVISION  5b  OF  AGC  PRCGFAM  7ERLINA  BY  7.  CROAST  ER 


9:  12  OCT.  21,  1970  ZFLY 


049  PAGE  779 


L ThROTTLE  CONTROL  ROUTINES 


USER'S  PAGE  NO.  1 EO  S3 


R 0001  T*************************<<*<>******f 

ROOD  3 F**«'**************#******#$*<:<,**,!,*<iy 

110005  + 

1 0007  O**********************************^ 

RDDD9  T**********t***e***************t;**<(S 


0^  11 
0012 
DO  1 3 
0014 


RFF 

REF 

REF 


2 LAST 

2 L AST 
2 LAST 


40 

40  TO 
153 


31,2000 
31  ,7144 
40: 

F7 ,1612 


5* 


SETLOC  FTHRDT 
BANK 

C CUNT*  $ $ /TH  ROT 
EBANK=  PIF 


ROOIS  ENTER  HERE  FROM  P66RD0  WI  7H  PIF  IN  A. 


0016 

0017 

3314 

0019 


P I F 
PFF 
REF 


2 LAST  153 

3 LAST  779 
1 


1 1,  2 144  C 0006  1 
31  ,2145  23 ' 6(  7 l 

3 1,  2 14  6 55*612  l 

*1,2147  1 ? ?50  < 


P 66THR0  T 


E XTEND 

OX  C H RTNHOLO 

TS  PIF 

TCF  D0ITP66 


<0070  ENTER  HEP  F IN  P63  A N3  P64 . FIRST  COMPUTE  FP  ( PRES  ENT  THRUST)  AND  FC  (DESIRED  TH3UST)  IN  DUTPUT  BIT  UNITS. 


007  4 

0025 

0026 
3377 
002R 
00  29 
3 333 
0031 
003? 
003  3 
0034 
3334 

00  36 
0037 


REF 
R EE 

RFF 

REF 

REF 

PFF 

RFF 

REF 

REF 

REF 

RFF 


4 LAST  210 
1 

3 LAST  779 
1 
1 

? LAST  15  3 

2 LAST  779 

3 LAST  779 

2 LAST  574 

? LAST  107 

4 LAST  77  9 


31,:  150 
31  ,2151 
31,7152 
31,  2153 
31  ,2154 
31,  2155 
31  ,2156 
31  ,2157 
31,  2160 
31  ,2161  21*470  1 

!1,  2 162  53*  470  1 

31,2163  C 0006  1 
31  ,2164  7 5000  C 

31,  2165  C 00C6  1 
31  ,2166  1 1*243  1 

31,7167  55*467  1 


CA  A30ELV 

EXTEND 

MP  /AF/CNST 

E XTEND 

CXCH  RTNHOLC 

TC  MASSMULT 

OXCH  FP 

EXT  END 

OCA  FWE1GHT 

OAS  FP 

OXCH  FP 

EXTFND 

MP  2SECS 

E XTFND 

DV  P GU IDF 

TS  FP 


3 1247  1 THROTTLE 
0 0006  1 
7 2356  1 
0 0006  1 
23' 607  1 

C 2337  1 AFDUMP 
5 3 * 4 7 l 1 
0 0006  1 
3 1611  0 


COMPUTE  PRESLNT  ACCELERATION  IN  UNITS  DF 
?(-4)  M/OS/CS,  SAVING  SFRVICER  TROUBLE 


FP  = ORE  SENT  THRUST 


0038 

0039  REF 

DD4T  REF 

0041 

0042  PEF 
DD43  ref 


LAST  144 
LAST  779 

LAST  POP 
1 AST  144 


31,  2170 

31  ,7171 
? It  2172 
31,2173 
31  ,2174 
31,  2175 


0 OOC 6 1 
3 1464  0 
C 2337  1 
0 3004  0 
55*615  0 
5 ' 4 fc  6 0 


E XTEND 

OCA  /AFC/ 

TC  MASSMULT 

INHINT  PREVENT  A DOWNRUPT 

TS  Ff  FC  = THRUST  OESIREO  BY  GUIDANCE 

OXCH  F C ODD  FCODD  = WHAT  IT  IS  GOING  TO  GET 


0G44 

0045  PEF  1?  LAST  777 

0046  RFF  3 LAST  2:8 

0047 


31  1 7b 

31  ,2177 

3 1,  ?2cn 
31 , *2r  1 


0 OGC 6 1 
2 1234  0 
5:*67i  i 

0 0CO3  1 


EXT  END 

OCA  R I PT  I m p 

OXCH  3TCTIMF  D CWNLl  NK  T I **E  AGRFEMENT 

REL  INT 


ASSFvnie  REVISION  56  OF  AGC  PRC C-RAH  2ERLINA  BY  ZOROASTER 
TW>()TT(F  CONTROL  BOLTIN:  S 


9:  12  n;  T.  21  f 1970  ZFLV 
USER'S  PAGE  NO. 


.049  PAGE  7*3 
E 7 S3 


335? 
0053 
00  54 

0055 

0056 
3357 
005B 
0059 
3363 
0061 
0062 

0063 

0064 
3365 
0066 
00  67 
3368 
0069 
00  70 

0071 

0072 


REF 

REF 

PFF 

PFF  7 
RFF 

REF  14 

REF 

REF 


RFF 

RCF 

REF 

REF 

RFF 

PFF 


LAST 
I AST 
t AST 


?1,  22c2 
31  ,22^3 
c 5 1 14  7 2 

31,  2204 
‘ , >0‘ 

. 

31,2207 
31,2210 
F 7 , 1612 
31  ,2211 
31,2212 
1,  13 

31  ,2214 
3 1,  2215 
3 1,2216 
31,2217 
31, 

31  ,2221 
31 ,2222 

31  ,2224 


WHFPETO  CA 
TS 


0 C0C6  1 
3 1473  0 
52  131  0 

3 5016  0 
54  003  0 

4 4755  0 
c c ' 61  6 l 
‘ .131  0 
6 1620  1 
C CC06  1 
6 2230  i 
4 0130  l 
6 1465  1 
0 0006  1 
6 2225  0 
3 1467  0 

1 2235  0 


FBANK= 

E XTEND 

OCA 

OXCH 

CA 

TS 


E BANKS 
FRANK 
I OWCR  IT 

13WCR  IT 
L*  WC R* T 
EBANK  7 
FBANK 
PI  F 
ZERO 
PIFPSET 
H»GHCR*T 
FCOLD 

l OWFCOLO 
L *WCR*T 
FCCDO 


INI  TI  A L I ZE  PI  F PSE  T 


RANCH  IF  FC  01.0  < CR  = HI  GHCR I T 


3373  REF 

0074  RFF 

0075  RFF 


0080 
338  ! 

0082 

0083 


R FF 
RFF 
REF 


I AST 
I A ST 


31,  2225 
780  31,2226 

31  ,2227 

78  31 , 2 3 

780  31  ,2231 

21,2232 
3 1,  2233 


4 2CC2  0 FCOMPSET  CS  FMAXODD 

6 1467  0 Al)  FP 

1 2237  1 TCF  FLAT0UT2 


0131  0 
1465  1 
FCC6  1 
2240  0 

2003  0 
7*465  1 
4737  0 


I OWFCMLO  C S 


H*GHF R* 
AO  FCODO 

EXTEND 

OZMF  30PIF 


FLAT0UT1  XCH 


5 5' 6 06  1 F L AT  OUT 2 TS 


F MAX  POS 
FT  ODD 
FF  XTRA 
PIFPS  ET 


BRANCH  IF  FC  < OP  = HIGHCRIT 
NO:  THRflTTL  F-UP 


FC  IS  SFT  EQUAL  Tn  FP  SO  PIF  WILL  PF  ZERO.  THIS  IS  DESIRABLE 
AS  THERE  IS  ACTUALLY  NO  THROTTLE  CHANGE. 


A0086 
A0007 
A 0088 
A3387 
A 0090 
A 009  1 


HERE,  SINCE  WE  ARE  ABOUT  TO  RETURN  TO  THE  THROTTLEABLE  REGION 
(BELOW  557.)  THE  QUANTITY  -IFMAXOOD  - FP)  IS  COMPUTED  AND  PJT 
INTO  PIFPSET  TP  COMPENSATE  FOR  THF  DIFFERENCE  BETWEEN  THE 
NUMBER  OF  BITS  CORRESPONDING  TO  FULL  THROTTLE  (FMAXOOD)  AND  THE 
NUMBER  CORRESPONDING  Tn  ACTUAL  THRUST  (FP).  THUS  THE  TOTAL 


THPOTT  LE  COMMAND  PIF 


FC 


FP  -(FMAXOOD 


FP)  = FC 


FMA X030 . 


0092 


7 LAST  780  3 1,  2240  4 1467  1 OOP  I F 


COMPUTE  PIF  AND  LIMIT  IT  TP  4?96  BITS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  0 


ZOKOASTEI 


.049  PAGE  781 


K 


9:12  CCT.  21,1970  Z FI.Y 


L THRCTTLF  CCNTRCL  ROUT  I NFS 


USER  ' S PAGE  NC.  3 


E7  S3 


009  3 
009V 
0095 
DD96 
0097 


RFF  6 
REF  109 
REF  30 

REF  21? 
REF  1 


LAST 
LAST 
L AST 


780 

760 

777 

7/7 


31,2241 
3 1,  2242 
31  ,??43 
3 l,  7244 
31,2245 


3 4737  0 
C 4616  1 
61713  0 


AD  FCODO  SO  FWEIGHT  COMPUTATION  CAN'T  OVERFLOW 

TS  l 

CAF  BIT13 

rr  B A N KC  A L L 

C AOR  LIMITSUR 


009P  RFF 
DD99  REF 
00999  REF 
0100  REF 
■ 1 1 1 

01002  RFF 
D1373  RFF 
OlOt'4  REF 

0 1005 
31336 

01  l 
010? 

0103 

0104 


RFF 

REF 

REF 

RFF 


LAST 
1 AST 
LA  ST 
LAST 


I AST 
L AST 
1 AST 
l A ST 


780 

’ 

78  1 
768 


781 

2C7 

747 

747 


RFF  10  LAST  747 


31  ,??5u 
31,  2251 
31,  7252 
31  ,2753 
31,  7254 
31,2255 
31  ,2256 
31, 2257 
31  ,2260 
31 ,726  1 
M, 

31  ,?263 


57' 606  0 

2 4142  1 
0 0006  1 
C2  030  0 
10  COO  0 
1 2332  0 

3 1606  0 
5 5 ' 6 1 4 1 
54  055  0 
3 4750  1 
C 0006  1 
05  014  1 


DOIT  TS 

AD 

OOITP66  X CH 
CAF 

EXTEND 

RAND 

CCS 

TCF 

CA 

THRO  TOUT  TS 
TS 
CAF 

E XTEND 
WOR 


PI  F 

P I F P SE  T 
P IFPSET 
PI  T10 

CHAN30 

ZILCH 
PI  FPSET 
P St  UP 055 
THRUST 
BIT4 

CHAN  14 


ADD  IN  PI  FPSET  , WITHOUT  CHANGING  PIF 
STASH  IT  IN  PIFPSCT  FOR  A MOMENT 
OOES  PGNCS  HAVF  CONTROL  7 


NO:  AGS,  DARN  IT,  ZEFC  AUTO-THROTTLE 

YES:  RETRIEVE  OUTPUT  AND  PRESS  3N 


7 1 ;•  7 SINCE  /AF/  IS  NOT  AN  INSTANTANEOUS  ACCELERATION,  BUT  RATHER  AN  "AVERAGE"  OF  T HF  ACCELERATION  LEVELS  DURING 

1,1  lrQ  THE  °RF  E F c D I NG  PIPA  INTERVAL,  AND  SINCE  FP  IS  COMPUTED  DIRECTLY  FROM  /AF/,  FP  IN  ORDER  TO  CORRESPOND  TO  THE 

» 111  ACTUAL  THRLST  IEVEI  AT  THE  F NO  CF  THF  INTERVAL  MUST  BE  WEIGHTED  BY 


R 112  P I F ( PPROCE  S S * TL  ) PIF  /PIF/ 

Rrm  FWEIGHT  = ♦ 

P0U4  PGLID  2 PGUID  FRATE 


RflllS 
3 0 117 
RD119 


w E C c F pocrtss  IS  THE  TIME  9FT',,EFN  PIPA  READING  AND  THE  START  OF  THPOTTIING,  PGUTO  IS  THF  GU  T CA  NC  F PERIOD, 
FRATE  I 5 ih>-  THROTTLING  RATE  (32  UNITS  PCR  CENT  IS  ECONO ) . PGUID  IS  EITHER  1 DR  2 SECONDS.  THE  "TL"  1 '1  THE 
FIRST  TERM  REPRESENTS  THF  ENGINE'S  PESPONSE  LAG.  HERE  FWEIGHT  IS  COMPUTED  FOR  US  F NEXT  PASS. 


ANC 


'123 
* 124 
3125 
126 
127 
3128 
-129 
1 3D 
0131 
13? 
3133 
0134 
0 135 
■>136 
0137 


RFF 
REF 
PI  F 
RFF 
RFF 
f I I 


RFF 

PFF 


PET 


1 

1 °7  LAST  749 

35  LAST  737 
50  LAST  465 
4 l AST  779 
14  LAST  730 
l 

8 LAST  438 


1 88  IAST  781 
6 L AST  78  1 

2 LAST  153 


31  *2265 
31,  7 266 
31 ,2767 
31,  2270 
1 1,22  71 
U ,2272 
31, 227 3 
31  ,7274 
31 ,7275 
3 1,  2276 
31  ,2277 
3 1,  2 3C< 
31,2  301 
31  ,2  302 
31,  23C3 
31  ,7  304 


3 2360  0 

c 4 002  1 
f 0G06  1 
7 4747  0 
22  131  1 

4 1671  1 
6 0025  0 

6 2C04  1 

7 5C04  I 
2?  007  C 
C 0006  1 
10  002  1 
C CCC6  l 
7 1612  1 
2 0 001  1 
2C  CC 1 1 
53  '6  1?  I 


CAF  8SECS 

TS  0 

F XTEND 
MP  B IT  5 

LXfH  RUF  +1 

CS  3TCTIME  M TIMF1  AT  LAST  PIPA  READING 

AD  T I ME  1 

CAD  THRCTLAG^  COMPENSATE  r'  F ENGINi 

MASK  MAKE  SUPt  SMALL  AM)  POSITIVE 

ZL 

E XTEND 
OV  0 

EXTEND 
MP  PIF 

DDOUBL 
DO  CUB  L 

DXCH  FWFIGHT1 


.JAP:  ASSEMBLE  REVISION  9b  OF  AGO  PROCRAM  Z f PL  IN  A 8Y  ZOROASTER 

THROTTLE  CONTROL  ROUTINES 


9:  12  OCT.  21  ,1970  ZFLY 
USER  *S  PAGE  NO. 


1 39 
0190 

HI 
19? 
7193 
C 1 9 9 

0 195 
3196 
Cf  198 


PEF  7 LAST  78  1 
REF  75  LAST  771 

RFF  76  LAST  782 

RFF  fl  I AST  78? 

RFF 
RFF 


31,  2 305  1 1 ' f 1 2 1 

11  ,?  1C  6 6 9753  1 

2l,?3C7  1 2311  1 

31,2310  6 9753  1 


31,7311  C (06  1 
31,  ? ? 1 2 7 1612  1 

31,  ? 313  0 0006  l 

51  LAST  781  31 ,7319  10131  0 

3 L AST  7H1  21,  2315  <7*6l6  0 

rCPPUTF  OFS  1 p E P T 8°t(S  T FfP  TISPLAY  AS 


PFOCFNTAGF  OF  IG50C  PORT'S. 


.099  PAGE  7«2 
E7  S3 


0190  RFF 

( 1 51 

0151  PEF 
3152  REF 


9 LAST  779  ? 1 , 7 ? 16  3 1*15  1 

3 1,  2317  C 0C06  1 

1 31  ,2320  7 2357  0 

3 LAST  322  31,  2221  55*672  1 


CA  FC 

E XTEN3 

HP  130/ 3727 

TS  THROISP  FOR  DISPLAY  IN  N92 


"153 


REF 


LAST  770 


31,7322  C 160 7 


THDUMP  TC 


3 TNHOLO 


3.159 


FLA  TOUT  THROTTLES  UP  THE  DESCFNT  ENGINE,  AND  IS  CALLEO  AS  A BASIC  SUBROUT  INF. 


156 
1 57 
U58 
0159 
0 1 60 
3161 
16? 


RFF  31 
RFF  7 
RFF  197 

REF  3 

REF  5 

PEF  I 


L AST  73  1 
LAST  7b  1 
LAST  7R0 
LAST  780 

L AST  782 


31,  7323 
31  ,?3?9 
2 1,  2 325 

31,?  326 

31  ,?  32  7 
31,  ?330 

31  ,2331 


2 9737  0 
55*606  1 
9 9755  0 

55*620  0 
C 0006  1 
?:*607  1 
1 2296  1 


Fl  ADUT  CAF  9IT13  9096  PULSES 

WFATOUT  TS  PIFPSET  USE  PIFPSET  SD  FWFIGHT  V»I  L L BE  ZERO 

CS  ZFRO 

TS  FCOLO 

EXTEND 

OXCH  RTNHCLO 

T C F DO  1 T 


RO  167(5  DO  WHAT  HAS  TO  BE  DONE  WHFN  AGS  HAS  CONTROL. 


.1621  REF  1 98 

•162?  REF  9 

: 1623  REF  5 

• 1629  RFF  ? 

( 1625  REF  1 


LAST  78  2 
LAST  78? 
LAST  78  2 
LAST  700 


3 1, 2 332 
11  ,2  133 
21,  2 339 
11  ,2338 

31  ,2336 


9 9755  0 
55*612  1 
5 5 ' 6 1 5 0 
9 97  37  1 
1 7257  1 


7 ILCH 


CS 

rs 

rs 

cs 

TCF 


ZERO 

P IF 
FC 

FFXTRA 

THROTOUT 


COHF  HERE  WHEN  IN  AGS  TC  ZERO  THE  AJTU- 
TRH  TTI  E . FIRST  SF  T PI  E A NO  FC  SO  THE 
FWFIGHT  AND  N92  C IS  PL  AY  COMPUTATIONS 
WILL  COME  OUT  RIGHTER.  THEN  GRAB  A 

BATCH  OF  NFG  BITS  AND  RETURN. 


Kul63  MASSMULT  SCALES  ACCELERATION,  ARRIVING  IN  A AND  L IN  UNITS  OF  2(-9)  P/CS/CS,  TO  FORCE  IN  PUl  S F UNITS. 


"165  RFF  281  LAST  760 
3166 


' ' 1 67 
0168 
169 
- 1 70 
171 
1 72 
•173 
3179 


RFF  52  LAST  782 
RFF  16  LAST  992 
PEF  5 LAST  300 
REF  17  LAST  782 
RFF  1 

REF  If  LAST  760 
RFF  2 82  LAST  78  2 


i , 17 

1 1,  7390 
31,2391 
31  ,7392 
^ 1,  2 39  3 
31  ,2399 
31 ,2  196 
3 1,  2396 
31  ,2397 

2 1,  2350 


5?  155  1 
C CCC6  1 
22  130  0 
0 7115  0 
01295  0 
C 7115  3 
C20C5  0 
C 7271  1 
3 0159  1 
C CCC6  1 


MASSMULT  OXCH  MPAC 

+ 1 EXTEND 

OXCH  3 UF 

TC  DM  p 

ADRES  MASS 

TC  OMP 

ADRES  SCALEFAC 
TC  TPAGREE 

CA  MPAC 

EXTE  ND 


LEAVES  PROPFPLY  SCALED  PQRCE  IM  MPAC 


Gap:  ASSEMBLE  REVISION  56  OF  AGS  PROGRAM  ZF.RLINA  BY  ZOROASTER 


L THROTTLE  CONTROL  ROUTINES 


1 75 
3176 
Cl  77 
7 1 7R 
5 179 


RFF  16  LAST  58  3 
REF  53  LAST  78  2 
RFF  283  LAST  782 
REF  54  l AST  783 


31  ,2351 

, 

31,2353 
31  ,2  354 
31,  2356 


1 2354  0 

2 4733  l 
0 0130  3 

52  156  1 
C 0130  0 


+ 3 

POSMAX 

3UF 

M P AC  41 
BUF 


R01  80 

31  81 

Ol  82 

0 183 

3 I 34 

»r  185 
R"  187 
Kr>1  8>) 


CONSTANTS 

REF  3?  LAST  782  4737 

31,  2356 
31  ,2357 
31, 2360 


FEXTRA  = BIT13 

04143  0 /AF/CNST  OFC  .13107 

CC670  0 100/3727  DEC  .02683 

01440  0 8SECS  OEC  *-800 


3 0100 


9:  12  OCT  . 2 It  1970  Z FL  Y 


PAGE  783 


. 049 

US  F R*  S P AG F NG.  5 E7  S3 


45 . 133Q90 20E  + 4 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERIINA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  Z FL 


.0*9  PAGE  78* 


L IUNAR  LANDING  GUICANCE  EQUATIONS  USER'S  PAGE  KC.  I ED  S3 

X'jO  1 ***4»4#t*«»t*t******»ee*i**tt»t»*»«*«*t»*»»**»»»»***»***»t*******«*t*«*****t****^**#*»*****«*#«**«*«***(*»e*»» 

R0033  GUICANCE  FOR  LANDING  ON  THE  MOON  PY  EVLFS  EXCEPT  PS6H7  ANC  ROOTPSRS  BY  SLUMPS 


00  7 REF  2 LAST  771  £7,1(21  Ffl ANK=  E20PS 

0008  REF  2 LAST  39  TO  *0:  2 2*  COUNT*  J5/F20PS 

30009  **************************************************************************************************************** 

10)11  LUNAR  LANCING  FLIGHT  SEQUENCE  TABLES 


RO  i*  FLIGHT  SEQUENCE  TAHLCS  ARE  ARRANGED  BY  FUNCTION.  THEY  APE  REFERENCED  USING  AS  AN  INDEX  THE  REGISTER  WCHPHASE: 


AOGl! 
UO  1 


A)013 
A 0 0 1 R 


WCHPHASE  = -1  > IGNALG 

WCHPHASE  = 0 > OR  AKQUAD 

WCHRBASE  = 1 > APPRQUAD 


WCHPHASE  = 2 > VERTICAL 


R.  00  20  *************  *******************************  * ********************************************************** ******** 

R0022  ROUTINES  FOR  STARTING  NEW  GUIDANCE  PHASES: 


0023 
3 0 24 
0025 
00  26 

K 0 0 2 7 


PEF  1 

REF  2 LAST  7H4 
REF  1 
REF  I 


31  ,2361  1 2461 

31,  2362  1 24(1 

31  ,2363  1 2442 

31  ,2364  1 3361 


1 TCF 

1 NFWPHASE  TCF 
TCF 

1 TCF 


TTFINCR 
T TF I NCR 
STAR  TP  64 
ENDLLJOE 


I GN  AL  G 

BRAKQUAD 

APPRQUAD 

VERTICAL  1A  BRANCH  RARELY  IF  EVER  USED) 


30  PR  F -GUIDANCE  C CRPUTAT  I CNS  : 


0029 

00™ 

0031 

R0032 


I 


31  ,2367 


1 2(53  1 TCF 
1 2663  1 PREGUIDE  TCF 
I 254?  1 TCF 


CALCPGVG 
RSVGCALC 
RECES  IC 


I GN  AL  G 

BRAKQUAD 

APPRQUAD 


R 0033  GUIDANCE  FQLATIGNS: 


0<  34  REF  1 

0035  RFF  1 LAST  7H4 

0036  REF  3 LAST  7P4 

R 00  37 


\v,m\ 

31  ,2  372 


2717  C TCF 

27  17  0 W HA TG U ID  TCF 
2717  0 TCF 


TTF/RCL 
T TF  /RC  L 
TT  F/8CL 


I GN  AL  G 

BRAKQUAD 

APPRQUAD 


ROO^fl  PCST  GUIDANCE  ECXJATICN  COMPUTATIONS: 


0039  PEE 

0040  REF 

0041  RFF 

R0042 


LAST 


31  ,2  373 
31  ,3375 


1 3121  1 
1 :-106  1 
1 3106  l 


AF  TPGUID 


TCF 

TCF 

TCF 


CGCALC 

FXTLCGIC 

EXTLOGIC 


I GN  AL  G 

PRAKQUAO 

APPRQUAD 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  7GRC AST  ER 
LUNAR  L AN  DING  GU  I CAN  CE  EQUATIONS 
WINDOW  VE C TCP  CCMPUTATI  CNS  : 


O'  A A 
OP65 
0046 
R3  3 4 7 


0055 
0050 
* 0051 


005  3 
0055 
3055 
130056 


0055 

0059 

3363 

R00&1 

*006? 
R)  365 
P-0065 


REF 
PEF 
P F F 


n , *5i 


^ nzi  * 

1 3220  0 


TCF  FXGSUB 

WHATF  XI  T TCF  r XBRAK 

TCF  EXNORM 


9:  12  nCT.  21,  1970  Z F L Y .069  PAGE  765 
USER'S  PAGE  NC.  2 E7  S3 


I GN  AL G 
DR AK QUAD 
APPRO UAO 


01  SPLAY  ROUTINES: 

PEF  1 3 1 , 2 AC  1 1 336 

PFF  1 31,  260  2 1 3 36 

Al  ARM  ROUT  INF  FOR  TTF  COMPUTATION: 


PFF 

PEF 

PEF 


2 LAST  7A5 


, 

3 1 . 261  r 


1 3661  0 
1 3663  1 
1 36  6 3 1 


TCF  1606POO 

TCF  1606ALM 

TCF  1 4C6AI  M 


INDICES  FOR  REFERENCING  TARGET  PARAMETERS: 


3 1,  2406 

I . 

3 1,  26 1 C 


COCOO  1 OCT 

00000  1 TARGTCEX  OC-T 

CCC02  C OCT 


IGNALG 
BR  AK  QUAD 
APPRQUAO 


IGNALG 
PRAKOUAO 
APPRQJ AD 


ENTRY  POINTS: 


R0V.7  IGNITION  ALGORITHM  ENTRY:  DELIVER?  N PASSES  OF  QUADRATIC  GUIDANCE 


006  B 
0069 
3373 
0071 


REF 

RFF 

PEF 


5C  LAST  775 


31,  2611 
31  ,2612 
3 1,  241  3 


77776  1 
3 6752  0 
c 5 '647  1 

1 2424  0 


PASSIN  I T 


GUIDSUB  TS 


* OF  76  NORMAL  FMRY:  CCNTPCL  C.CMFS  FERE  FPOM  SFRVOIIT 


0«’77 

3378 

0079 


REF 

REF 

RFF 


LAST 

LAST 


31,  2417 
31,2420 

31  ,2421 


C 6042  1 
3 0 If  1 1 

7 4746  0 

C CCC6  1 
1 3331  1 


LUNLAND  Tf 


SERVCHNG 

FLAGWRD5 

ZOOM R IT 


MASK 
E XTEND 

B7F  DISPFXFT 


• «•«*•«*  **«**«« 


ON  SJCEE  DING  PASSCS  SKIP  TTFINCK 


HAS  THROT  TLF-IJP  COME  YFT? 

Nfl:  DO  P63  DISPLAYS  BUT  NO  GUIDANCE 


ASSEMBLE  HE  VI  SI  JN  56  OF  AGC  PR  C CRA  M ZFRLINA  8*  ZCWflAST  ER 
LUNAR  LANCING  GU  ( DANCE  EQUATIONS 
INITIALIZATION  FOR  THIS  PASS 


: 12  OCT-  21,  1570  ZFLY 
USER'S  PAGE  NC. 


PAGE  786 
E7  S3 


0085 

or  86 

D387 


31,242*  C 0006  1 PASS  IN  IT  EXTEND 


0085 

0090 

0001 


31  ,?*27  C 60*2  l 


3 1 » 24  2u 
31,  2*3  T 
31  .2*3? 


C CCC6  1 
3 1557  1 
53*625  n 


EXTENO 

OCA  P1PTIME1 
oxr.H  TP  IP 


772 

153 


3 1,  2*23 
31,2*3* 
31  ,2*35 


C CCC6  1 
3 16*3  1 
53*551  0 


EXTEND 

OCA  TIF/8 
DXCH  TTF/PTMP 


3 LAST  77  1 


BRSPOTl  INlDEX 
TCF 


3 (rnn 
RD1D1 
1 

1 A 

3 105 
0106 
i ' 
0108 
! ( ' 
Din 

oin 
0112 
3 113 
Oil* 

ona 

0122 


**«* *«*+**•«*> 


ROUT  INFS  TO  START  NEW  PHASES 


*#♦#■*****«■«:** 


RFF 

PFF 


RFF 

REF 

REF 

RGF 

RFF 


LAST  786 


LAST  571 
LAST  219 


3 l, 2**2  0 5322  1 

3 1,  2**3  CO  ICO  0 
31  ,2***  3 1*25  0 

? • 5 5 

3 1,  2**6  C CCO*  0 
31,2*47  0 6022  1 

3 1,  2*50  - *7*0  C 

3 1,2*51  0 00C6  1 

3]  ,2*5?  05  013  0 

31,  2*5  3 3 36 C 3 1 

' 

31  , 2*55  2 131  5 1 

3 1,  2*56  5 5 '*<  1 0 


*4***4**44  *** 

*.***•! 

STARTP6*  TC  NFwHOOEX 

DEC  6* 

CA  DEL  TTFAP 

ADS  TTF/BTMP 

INHINT 

TC  C 1 3ST  ALL 

CA  RIT12 

EXTEND 

WriR  CHAN  1 3 

CAF  P6ADB 


*************«****<•**  *** 
«r  «r**«et******##ft«*»*9«*e 


OR 


Air.  ME  NT  TTF/B 


FNAHLF  RUPTl: 


A 0125 

RO  126 
R3T2H 
* 0129 


AURES  REDFLAG 
(CONTINUE  TO  TTFINCF) 


#***♦<=#** 


INITIALIZE  PEDESIGNATION  FLAG 


*4 


',AP:  ASSFP8LE  REVISION  56  QF  AGC  PROGRAM  ZERL  INA  BY  ZORH AST ER 


L LUNAR  LANDING  GUIDANCE  EQUATIONS 

R0131  TTFINCR  COMPUTATIONS  ARE  AS  FOLLOWS:- 


* 132 
RT  133 

R 0134 


TTF/8  UPCATEC  FOR  TIPE  SINCE  LAST  PASS: 

TTF/8  = TTF/fl  *■  I TPI  P - TPI POLO) /8 
LANDING  SITE  VFCTQR  UPDATE!)  FOR  LUNAR  ROTATION 

LAND  = /LAND/  UNIT!  LAND  - LAND!  TRIP 
SLANT  RANGE  TC  LANDING  SITE,  FOR  DISPLAY: 

RANGEDSP  = ABVALILAND  - RJ 


BEF 

0144  REF 
3145  REF 
0146 

0 147 
3 1 48 

C 1 49  REF 

0150  RFF 

0151 

015?  RFF 
3153  REF 
0154 

0 155  RC-F 
3156  RFF 
0157 


110  LAST  777 

5 LAST  7H6 
3 LAST  7fl  6 


5 LAST  774 
2 LAST  123 

6 LAST  787 

2 LAST  344 

3 LAST  122 
2 LAST  153 


31  ,2463 
3 1,  2464 
3 1,2  465 
31  , 466 
? I,  2467 
31  ,2470 
31  ,247  1 
1 1,  2472 
31  ,2473 
■>  1,  24  74 
11,2475 
31  ,?4  7r> 
3 t,  2477 
31  ,2500 


03625  0 
03555  1 
41461  1 
21214  0 
473*1  0 
03635  l 
02316  1 
47C45  0 
03635  l 
21710  1 
76561  1 
02324  0 
17543  C 
77776  1 


TTFI NCR 


DLOAO 

SLR 

VXSC 

8 VSU 

vxs: 

STCOL 
FX  IT 


INTPRET 
DSL 
TP  IP 
TPI PGLD 
PUSH 
11C 
VXV 
L AND 
WM 
R Tfi 
LAND 
NOPPUM  T 
VSL1 
/l  AND/ 
l ANOTEPP 


0158  RFF  ?F4  LAST  7R  3 

0159  RFF  4 LAST  786 


OX  CH  HPAC 
DAS  TTF/8TMP 


0160  RFF 


2 LAST  786  31 ,2503  0 6042 


TC  FASTCHNG 


016  2 RFF 
163  RTF 


5 LAST  787 
5 LAST  786 


C CCC6  1 

3 1551  1 

■ 


E XTEND 

OCA  TTF/8TMP 
DXCH  TTF/fl 


0164  REF 


11,  2507  0 35*3 


TC  TO  I SP  SE  T 


31  ,251 3 773  0 1 


CAF  PR  1031 

TC  PRIOCHNG 


167  RFF  120  LAST  787 

n 168 

316R  ref  3 LAST  787 


31,251? 
31,2513 
11,  2514 


C 60^1  0 
53376  0 

03543  0 


TC  INTPRET 

V LOAD  VAD 

LANDTEPP 


9:12  O;  T.  21,1070  7FLY 


PAGE 


737 


. 049 

1 ER » PAGE  NO  ■ 4 E 7 S 3 


TPI  POLO)  * WP1 


SHIFT  SCALES  DELTA  Tl  PF  TO  2(17)  CS  ECS 


NOW  HAVE  INCREMENTED  TTF/8  IN  TIF/8TMP 


TEMPORARILY  DVER-PRIO  CHARI N 


ADD  IN  CORRECT  I(1N  FROM  NOUN  69 


GAP:  ASSEMBLE  REVISION  56  DF  A:,C  PROGRAM  ZFRLINA  BY  ZOROASTER 

L LUNAR  LANDING  GMICANCE  EQUAT  IONS 


9:12  OCT*  21,  1970  Z ft.  V 
USER’S  PAGE  NC. 


.049  PAGE  786 
5 E7  S3 


M70 

171 

0 1 72 
173 

01  74 


PEE 

PEF 

R PE 


5 LAST  126  31  *2515 

7 LAST  7B7  31,  2516 

31  ,2517 

4 LAST  787  31,  2*20 

31,  2SI1 


77646  C 
02324  0 
77776  1 


OL  ANC 

STORE  LAND 

ABVAL  RECOMPUTE  /LAND/ 

STORE  /LAND/ 

EXIT 


REF 


3 LAST  787  31  ,2522  C 6042 


TC  F AS  T C HN  G 


CINCE  REDES  IG  MAY  CHANGE  LANDTEMP 


ft 

ft 

ft 


' 178 
'176 

( 180 
3131 
18? 
0183 
3184 
0185 
0 186 
0187 
018P 


REF  5 
»FF  6 
PEF  ?1 
OFF  14P 

REF  7 
REF  8 
REF 

pFF  10 
RFF  1 1 
RFF  12 

REF  5 
PEF  1 
PEF  32 


I AST  780 

i AST  1 a 

LAST  780 
L AS  T 78  2 
LAST  788 
LAST  738 
LAST  788 
I AST  788 
I AST  738 
I AST  788 
LAST  780 

LAST  788 


1 1,  25  23 
F5 ,1612 
31,2524 
31,  25  25 
31  ,2  526 
31,  2 527 
31,2530 
31  ,2531 
31,  ?5  32 

31 .2533 

31.2534 

. 

31  ,2535 


2 5014  1 

54  CC3  0 

3 4755  1 
55*612  1 
55' 613  0 
55*614  1 
55*615  0 
5 5 * 6 1 6 0 
55*617  1 
3 5C1 6 0 

54  003  0 


CAF  LQANK5 

FB ANK  = DL  AND 

TS  FBANK 

CAF  7 FRO 

TS  DLAND 

TS  DLAND 

TS  DLAND 

TS  DLAND 

TS  DLAND 

TS  Dl  AND 

CAF  FRANK7 

E8ANK=  TREDE  S 

TS  EBANK 


ZERO  N 69  RFG! STERS 


)189 
01  90 


RFF 

RFE 


7 I AST  747  31,  2 5 *6  3 4736  1 

1 4 LAST  78  7 3 1,25  37  0 6 146  1 


CAF  PR1020 

TC  PRIOCWNG 


0191  REF 
3192  »FF 


LAST  786 


31,3540  51*346  1 BPS  POT  2 INDEX  H CHPHAS  fc 
11,354  1 1 2366  1 TC  F PREGUIDE 


9 0193 
ft-  195 

Rol  96 


» 


0 198 
3 199 

( par 
0 20  1 


I AND  INF.  SITr  PERTURBATION  F OLA  TICKS 


REF 


2 


LAST  767 

LAST  784 


31  ,2542 
3 1,  2 5 4 3 
31  ,2544 
31,2545 


0 0006  l 

1 2663  l 


REDES  IG 


C A FLAGWRC6  IS  REDFLAG  SET? 

MASK  REDFLR1T 
F XT  END 

BZF  PGVGCAIC  NO:  SKIP  PFDFS 1GNATI0N  LOGIC 


0202 
0203 
) ?D4 


0?  06 
0206 
D2D7 
0208 
0209 
21 


RFF  2 LAST  708 
REF  3 LAST  788 


REF  2 LAST  153 

REF  2 LAST  153 

RFF  2 LAST  153 

RFF  2 LAST  153 

REF  4 LAST  708 


3 1,  2546  2 1666  0 

3 1 ,2547  0 0006  1 

31,  2550  1 2663  l 

31,2551  0 '’0C4  o 

31  ,255?  3 1644  0 

31. 2553  55*552  C 

31.2554  3 1645  1 

31.2555  55*553  1 

31. 2556  0 6042  1 


CA 

EXTEND 

BZF 


TREDE  S 
PGVGCALC 


YES:  HAS  T REDES  REACHED  ZERO? 
YES:  SKIP  REOES  IGNAT  ION  LOGIC 


INHINT 

CA  EL  COUNT  l 

TS  ELCOUNT 

CA  AZCQUNT1 

TS  AZ  COUNT 

TC  F A S TC  H NG 


ZERO 
E LC0UNT1 


DAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZGROASTER 


L 

213 


LUNAR  LANDING  GUIDANCE  EQUATIONS 
REF  3 LAST  788  31,2561  55*645  G 


TS  A Z COUNT  1 


3214 
0215 
* 216 
3217 


"218 

(210 


REF  3 

REF  1 
REF  no 
REF  18 


L AST  788 

LAST  78  1 
LAST  361 


31  ,2563 
31  ,2  564 
31, 2565 

31  ,2566 
31,2567 


3 1552  1 
f on06  l 
7 3666  0 
56  001  0 
5C  120  1 
E2  C 1 5 1 


CA  ELCCUNT 

EXTEND 

MP  EL  EACH 

XCH  L 

INDEX  F 1 XI  OC 

OXCH  1 2 D 


0220  RFF  3 

0221 

3222  REF  1 

0223  ref  111 

0224  RIF  1 9 

3225 


LAST  788 

LAST  789 
LAST  784 


3 1,  2570 
31  ,2  571 

2 l,  2572 
31,2  573 
31  ,2  574 

3 1,  2575 


2 1553  0 
C 0006  l 
7 3666  0 
56  001  0 
50  120  1 
52  017  0 


CA  AZCDUNT 

EXT  END 

MP  AZEACH 

XCH  L 

INDEX  FIXLOC 

OXCH  1 4D 


20  LAST  78^  31  ,2576  3 0120  l 

2 LAST  ?59  31  ,2577  64  166  1 


CA  FIXLDr. 

TS  PIJSHLOC 


0229 
323' 
o?  3 1 
023  2 
3233 
234 
0 235 
o 236 

' 237 
3238 

n2  Jq 
0 240 
3 24  1 


RFF  121  LAST 

RFF  8 LAST 

REF  6 LAST 

REF  3 LAST 

REF  2 LAST 

RFF  3 LAST 


787 

7P8 

774 

787 

117 


789 


3 1,2600  C 6C  5 1 0 

31  ,2601  52375  1 

31,  26C2  C3635  1 

31,2603  03517  1 

31  ,2604  41434  1 

31,  2605  <1710  1 

31,2606  76435  1 

U.76C7  C2145  0 

3 1,  26lo  ('361  0 

11,2611  00015  0 

1 L,  2612  CCC17  l 

31,2613  52361  l 

31  ,2614  02145  0 

31,2615  41455  0 


TC  INTPRET 

V LOAD  VSU 

LAND 
R 

RT0  PUSH 

NURMUNI  T 
VXV  VSL  1 

YN8PIP 
VXSC  PDDL 

1 2D 
1 4 D 

VXSC  VSU 

YNBPIP 
VAI3  PUSH 


0 24  3 

0244 

0245 
3246 
0247 
0 248 
324  9 
0250 
■>251 
0252 

>253 

3254 

0255 

0256 
3257 


REF 

REF 

REF 


REF 

REF 


RFF 


RFF 


LAST  734 

LAS1  794 
LAST  789 

LAST  79  4 
l AST  788 


. ■ 

- 

31  ,2621 
-‘1,  2622 
3 1,2623 

31  ,2  624 
-M,  2625 
31  ,2626 
31  ,2627 
31,  26.30 
31  ,26  31 
'1,  76  3 2 
31,2633 
31  ,7  634 
31,  2635 


C5662  0 
71240  1 
62625  1 
05662  0 
00001  0 

45345  1 REDE  S 1 
03635  1 
03517  1 
74271  0 
00001  0 
53455  C 
03517  l 
76561  1 
C2324  0 


01  HAD  DSU 
0 

3EPRCRI  T 
BMN  DL  HAD 
REDES1 

3EPRCRI  T 
STORE  0 
0 LOAD  DSU 
L AND 
R 

ODV  VXSC 
3 

VAD  UNIT 
3 

VXSC  VS  L 1 

/LAND/ 


9:  12  OCT  . 21,  1970  Z FL  Y 


049  PAGE  789 


USER*  S PAGE  NO.  6 E7  S3 

COMPUTE  ELEVATION  INCREMENT  IN  RADIANS 
SHIFT  LEFT  K , A RFING  ZERO  AFTER  THE  M* 

COMPUTE  AZIMUTH  INCREMENT  IN  RADIANS 

SHIFT  LEFT  14,  A BEING  ZERO  AFTER  THE  MP 

SET  PD  TO  0 


PUSH  DOWN  UNIT  (LAND  - R) 

PUSH  DOWN  - ELINCPIYNR  * UNIT  (LAND  - RJ) 

RESULTING  VECTOP  IS  V?  REAL  SIZE 

MAKE  SURE  REDE  SIGNATI  ON  IS  NOT 
TOO  CLOSE  Tl)  THE  HOP  IZON 


gap:  ASSEMBLE  REVISION  tft  OP  AGC  PROGRAM  ZERLINA  MV  ZOROASTER 


9:12  OCT  . 21, 197C  ZFLY 


,0AM  PAGE  790 


I UNAR  LANDING  GUICANCE  EQUATIONS 

REF  A LAST  7M7  31,2636  035A3  0 

’ 1,  2637  77776  1 


USER'S  PAGE  NC.  7 E7  S3 

STORE  IANDTEMP 

EXIT  LOCKANG L Will  BE  COMPUTED  AT  PGVGCALC 


0260  REF 


5 LAST  7M8 


31  ,2fcAC.  0 6f|  A 2 


TC  FASTCHNG 


0 261 
026? 
0263 
3 26  A 
0265 
0 266 
•*267 
0260 
1260 


REF  5 
REF  10 

PFF  6 
REF  11 

REF  7 
R EF  12 


LAST 

LAST  739 

1 AST  790 
LAST  79C 

LAST  790 
LAST  790 


3 1,  26A2 
31 ,2  6A3 
31,  26  AA 
3 1 , ? 6 A5 
31  ,2  6A6 
71,  2 6 A 7 
31  ,2650 
31  ,265  1 


C CCC6  1 
? 1 5 A 3 1 
53*635  1 
C CCC6  1 
3 15A5  1 
53*637  0 
C 0006  1 
3 15A7  0 
52*6  A1  1 


FXTFND 

DC  A LA  NOTE  HP 

DXCH  LAND 

E X TE  ND 

OCA  LA  NOTE  MP  * ?. 

OXCH  LANO  *? 

F XTEND 

OCA  LANDTEMP  *A 

DXCH  LAND  +A 


0270  REF 


LAST  7RR  31,  2652  1 2fcf3 


TC  F RSVGCALC 


* 1*271  ****************************************************************************** 

P ) 273  CCMPUTF  STATF  IN  GUICANCF  COORDINATES 


R'  276 


RGVGCALC  COMPUTATICAS  ARE  AS  FOLLOWS: - 


VEinCITY  RFLATIVF  TO  THE  SURFACE: 

ANGTERM  = V ♦ R * WM 
STATE  IN  C-UICANCE  COORDINATES: 

RGU  = CG  IR  - LAND) 


VGU  = CG  (V  - WM  ■*  R) 

CEPRESSICN  ANGLE  FOR  OISPLAY: 

LOOKANGL  = ARC  SI  N(  UNI  T ( R - LAND)  . XMBPI  P> 


9 28R 
o 289 
3290 
< 291 
02  92 
q2  o3 
029A 
3295 


PFF  122  LAST  7“9 

PFF  1 A I AST  77 A 
REF  29  LAST  778 

RFF  6 LAST  77A 
RFF  3 LAST  77A 


31,2653  ( 6051  0 

31  ,?65A  6A375  1 

3 1,  2655  COO 2 5 0 

31  ,2656  01732  0 

2 1,  26  57  ‘13  362  C 

31,  2660  0 3 2?  3 0 

31  ,2661  03525  0 

2 1,  2662  77776  1 


CALCRGVG  TC  INTPOFT 

VI.OAD  MX  V 

VA  TT1 
REFSMMAT 
VSR1  VAD 

UNFC /? 
STORE  V 
F XI  T 


IN  IGNALG,  COMPUTE  V F ROM  I NT  CGR  AT  I ON 
nUTPJT  AND  TRIM  CORRECTION  TERM 
COMPUTED  LAST  PASS  AND  LEFT  IN  UNFC/2 


GAP:  ASSEMBLE  REVISION  56  OF  AC-C  PROGRAM  ZERLINA  BY  ZOROASTER 


LUNAR  LANDING  GUIEANCE  EOU AT  ION'S 


RFF  123  LAST  7RQ 


0298 
0 290 

0300 

0301 
3332 
0303 
0 30  A 
D3Dr> 
0306 
0 30  7 

0308 

0309 
3313 
3311 
0312 
3 313 
031  A 
3 315 
0315 
0 31  7 


REF 

RCF 

RFF 


LAST 
L AST 
I AST 


REF  7 
REF  6 
RFF  2E«5 
REF  3 


772 

773 
791 


RFF  13  LAST  790 


LAST 
LAST 
LA  ST 
I AST 


7«1 
77  3 
787 


31, 2664 
31  ,2665 
3 1 1 26  66 
31,  3667 
31 ,’670 
31,  267  1 
31,2672 
31  ,2673 
31,  2 67A 
31  , !675 
31 ,2676 
31,  3677 
• 

31,  27C1 
31,2702 
' 1 , 7 3 
■ 

31  ,2705 
31,2706 
3 1,  770  7 
31  ,2710 


0 6051  0 
6 7 i 7 5 0 
03517  1 
02316  1 
70455  1 
03525  0 
02254  0 
77721  0 
02561  1 
27627  1 
03517  1 
41451  1 
0 3fc  3 5 1 
76521  0 
C2561  1 
166C5  0 
00162  1 
26603  0 
50234  1 
21710  1 
02137  C 
77776  1 


STOVL 
VSU 
MX  V 
STOOL 


PUSH 
LA  NO 
VSL  1 
CG 
RGU 
M P AC 

PANGFOSP 

OPT 

NORMUN  IT 
XNBPI  P 


7fl  1 

LAST  798 


R032  4 
30326 
«)3?7 


0329 
9 330 

0331 

0332 
3333 
033a 

3 5 
3336 
0337 
0 338 

0339 

0340 
3341 
0342 


REF 

RFF 

RCF 

RFF 

RFF 

REF 

P EF 
RFF 
REF 


79  1 
791 


3 1 AST  79  1 


31  ,2717 
31  ,11?' 
3 1,  272  1 
• 

M,  ? 72 3 
3 1,2724 
31  ,’726 
il,  ’ 

01  ,2727 
31  , ’730 
1 1,  2731 
31  ,2732 
• 

I • ' 


0 3556  1 
77743  1 
02443  0 
73567  1 
02437  0 
17565  1 
03633  1 
42605  1 
0566C  1 
92433  1 
2356,3  0 
02407  0 
41225  1 
02611  0 


TTF/8CL  TC 


INTPRF  TX 

J0G2  TTF  ,1 
TAB1  TTF 
A0G2TTF.1 
TABLTTF 

VGU 

n ao* 

3/40P 

V0G2TTF.1 

TABLTTF 
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FRACTIONAL  PRECISION  FTP  7TF  TP  TABLE 


' 798 
Q H 9 
0350 
3 351 

0352 

0353 
3359 
r 355 
u 366 


RfF  112 
PFF  1 
REF  1 
PEF  fc 
R EF  1 


LAST 

LAST 

LAST 

LAST 


78  7 
7°  1 
785 
789 


21,77*2 

31,  279  1 

31  ,2  799 
31,  2795 
11 , 2796 
31  ,2  79  7 
31, 2750 
31  ,2751 
31  ,2752 


C CCC6  1 
: 1 1 9 3 1 
52  155  1 
3 9152  0 
69  001  1 
3 3661  0 
C 3913  1 
5 1 ' 396  1 
1 2909  l 


EXTEND 
OCA 
ox  ch 

CAF 


TIF  /6 
HP  AC 
TWO 
L 

T A8LTT  FI. 
ROCTPSRS 
HC  HP  HA  SC 

WHAT  ALM 


Y I FLOS  TT  F/B  IN  MPAf 


31,  2763 
31  ,2  759 
31,  2755 
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53*693  0 
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OCA  HPAC 

OXCH  TTF/P 
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R0362 
< 369 
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1 
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79  3 
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0 
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L 
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31,2765 
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C 

ZL 
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31  ,2766 
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1 
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3387 
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9 
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31, 2767 
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1 

DV 

TTF  /8 

0388 
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55 
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31  ,2770 

54  130 

1 

TS 
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31  ,2771 

0 0006 

1 
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C'3  90 

1 1,  2772 

7 COCO 

0 
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0391 

REF 

56 
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31  ,2773 
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0 

TS 
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3392 
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57 
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79  3 

31,  2774 
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0 

AD 
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58 
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11.2  775 
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l 

XCH 

9UF  + 1 
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RFF 

59 
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31  ,2776 

6 0131 

1 

AD 
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3395 
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21,  2777 
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0 

TS 

MPAC 
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60 
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31  ,3000 

6 0131 

1 

AD 
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22 
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791 

31  ,3001 
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1 
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1 

TS 
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61 
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6 0131 

1 

AD 
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1 
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F I X LGC 
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54  034 

1 

TS 

28D 
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REF 

62 
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793 

31  ,3006 

6 0130 

0 

AD 
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3433 

RFF 

18 

L AST 
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31,  30C 7 

6 4733 

1 

AD 

POSMAX 

0404 

REF 

63 
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31  ,3010 

6 0 131 

1 

AO 

BUF  M 

040  S 

REF 

64 

LA  ST 

793 

31  ,3011 

6 0131 

1 

AD 

BUF  +1 

04  06 

RFF 

24 
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79  3 

3 1,  3o  12 

1 

1 

INOE  X 

FI  XLOC 

0407 

31  ,3013 

54  036 

0 

TS 

30  0 

3438 
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788 

J 1,  3 14 

3 4755 

1 

CAF 

ZERO 

0409 

RFF 

* 

LAST 

34] 

1 

54  16  3 

1 

TS 

MODF 

9410 

PFF 

? 

LA  ST 

701 

31  ,?1'16 

C T556 

1 

TC 

INTPRFTX 

3411 

3 1,  30  17 

65  36  1 

VX  SC 

POD  L 

0412 

RFF 

8 

LAST 

79  1 

31  ,3020 

0 36  27 

1 

VGU 

041  3 

31,3021 

00C35 

1 

2 8 D 

04 1 4 

3 1,  30  22 

47157 

1 

VX  SC* 

R TB 

041  4 

REF 

1 

3 1 ,3023 

02413 

0 

V DG,  1 

3416 

RFF 

1 

31,  3024 

63543 

a 

ZERCMI  0 

04  1 7 

11,  3pp  5 

47  113 

1 

povl* 

3 TB 

0418 

REF 

2 

LA  ST 

791 

. 

02403 

1 

R DG,  1 

3419 

REF 

2 

L AST 

793 

3 1,  3027 

61543 

0 

ZEROMIO 

0420 

31 ,30 30 

7C251 

0 

vsu 

V/SC 

0421 

REF 

e 

LA  S7 

791 

31  ,3021 

02605 

0 

RGU 

0422 
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10 

1 AST 

79  3 

31,  3c  3? 

C 36 4 1 

0 

TTF  /8 

0423 

31  ,3033 

74342 

1 

VSR2 

VXSC 

3 424 

■ 

00C33 

1 

?6D 

0425 

1, 

53255 

0 

VAD 

VAD 

14  26 

31  ,3036 

74341 

1 

V/SC 

VXSC 

3427 

REF 

ii 
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79  3 

31,  3037 

C 364  3 

0 

TTF/8 

0423 

REF 

2 
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31  ,304  • 

05660 

1 

3/4DP 

04  29 

31  ,304  1 
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c 

POOL 

VXSC* 

0430 

3 1,  304? 
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0 
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0438 

0439 
5440 

44 1 
744? 
0441 

3444 

3445 

0446 

0447 
044  8 
0449 
3453 
04  51 
0452 
3451 

0454 

0455 

0456 
U457 
3458 

0459 

0460 


PEF 

RFF 

REF 

REF 

KEF 

PFF 

REF 

RFF 
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RFF 


LAST  793 
LAST  79  1 

L AST  772 
LAST  79Q 


6 LAST  78  2 


RFF  14  LAST  772 
REF  10  LAST  7Q4 


REF  12  LAST  794 


? 1 ,3C43 
11,  1044 
31  ,3045 
31,  1C46 
31,  1047 
11  ,105'' 
31,  305  1 
31  ,3052 
31  ,3053 
11,  1054 
31  ,3055 
31, 3056 
31,  1057 
31 ,3060 
21,  306  1 
31  ,3062 
31  ,1063 
11,  3064 
. 

21,  1C  6 6 

I 1,  3067 
31  ,307.; 
31,  1C  7 1 
31 ,3072 

II  , 3 C 7 3 
11,  1074 
31  ,3j75 
11,  1C  76 
11,  30  7 7 
11  ,310  I 


02423  0 
53234  1 
63543  0 
165C5  C 
02561  1 
70515  1 
C 1 236  1 
45445  0 
74524  1 
77646  0 
17*64  1 
03253  0 
65316  0 
03255  0 
65316  0 
05650  1 
6 3471  0 
01246  o 
45225  0 
71244  0 
63071  1 
04520  0 
433fc6  0 
01257  1 
44244  C 
61077  1 
03257  1 
03257  1 
77776  1 
t 6042  1 


APCCALC1  VXP 


BVSU 

STORE 

AR  VAl 
APCCALC2  STOOL 


AF CCA LC  3 SORT 


AOG  ,1 
VAD 

ZEROK  10 

VS  LI 


/AFC/ 

UNFf/2 

POOL 

JNFC/2 

POOL 

HIGHFSTF 
DSO 
MA  SS 

DSU 
0 L CAD 
AFCCALC  3 
7FR0V  FCS 
DAO 
UNFf/2 
BDSU 

AFCCLENO 

JNFC/2 

UNFC/2 

FASTCHNG 


RFF 

REF 

RFF 


L AST 
LAST 
I A ST 


792 
72  5 
786 


31,  310  1 
31  ,3102 
31  ,3101 


3 1346  1 
55*621  1 
2 5' 621  1 


WCHPHASE 
WC HP HOLD 
FLPASSO 


8 LAST  794 


0466 
R0469 
< i469 


ifr**#**  $*>*1**$*  #*$**#* 

PH AS  F NOW? 


a * t,  <.*$*##***  * >*  c * tf 
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0472  PEF  2 LAST  143  31,3107  3 1423  0 CA  TENDBRAK 
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0474  11,  31  11  G 0006  1 F XTEN3 
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31,  3 1 13  C 6042  1 


9:12  CCT.  2 


Z FLY 


,049  PAGE  794 


1,1970 

USER'S  PAGE  NC.  11  67  S3 

VERTGUIO  COWES  HERE 
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MAGNITUDE  OF  AFC  FnP  THROTTLE 
VERTICAL  COMPONENT 

OUT-OF-PLANE 


2 2? 
AMAXH0RI7  = SOR  T(  A TO  TA  l - A - A ) 
1 0 


PREPARE  FQR  PH  AS  F SWITCHING  LOGIC 
INCREMENT  PASS  COUNTER 


*******#***#**<•#♦********  *********<t*#$e*«,v 

*#***«**il,*I><,**#**<.#*****C*****»  *4  ****#$***#*$ 

IS  TTF  NEARER  ZERO  THAN  CRITERION? 


NO 


YES:  INCREMENT  WCHPHASE,  7E*0  FLPASSO 


GAP: 

L 

0477 

5478 

'•479 

0480 

54«1 

4 048? 

R3  483 

R 04  88 

3 0486 

5439 

0489 

0490 

0491 

0492 

3493 

04  94 

('495 

5496 

0497 

0498 

0499 

0500 

0531 

0502 

0 50  3 

0504 

05C5 

0 506 

0507 

0508 

0509 

I r 1 

0511 

0512 

0513 

-514 

0515 

0516 

0517 

05 1R 

0519 

0520 

0521 

0522 

0523 

0524 
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RFF  4 LAST  794  31,3114  3 1621  0 CA 
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REF  10  LAST  794  31,3116  55'346  0 TS 

REF  1 6 2 I A ST  7Q3  31  ,31  1 7 3 4755  1 CAF 

p f F f-  LAST  794  31,  3120  cc'623  Q TS 
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WCHPHOLO 
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REF  6 
!■  E F 33 
REF  2 

PEF  11 
REF  1 
PEF  2 
REF  21 
REF  22 
RFF  13 
RFF  14 
RFF  life 
PEF  15 
RFF  ?22 
REF  117 
REF  l 
REF  2 


LAST  788 
LAST  788 
LAST  124 

LAST  795 

LAST  124 
LAST  736 
L AS  T 79  5 
LAST  794 
LAST  795 
LAST  79  3 
LAST  795 
LAST  781 
LAST  79  5 

l AST  795 


3 1,  3 12  1 3 5014  1 CGCALC 

31  ,3  122  54  003  0 

E 5,  14  5 3 

31,  3 123  C 0006  1 
31,3124  5 1346  1 

3 1,  3 125  5 24C7  0 

11, 3126  3 1453  1 

31  , U27  24  006  1 

3 1,  31  30  2/,  CC6  1 

67  ,164? 

31  ,3  131  6 U42  0 

31, 3132  56  OCl  0 

31  ,31  33  6 1642  0 

21,  3134  1C  CCO  0 

31,  313 5 10  001  l 

J1 ,3136  1 31 67  0 

31,3137  1 2 16  7 0 

31,3140  13  141  1 


CAF  EBANK5 
TS  ERANK 

FB ANK=  TCGIBRAK 
F XTFND 

INDEX  W C HP  HAS E 
INDFX  TARGTOFX 
OCA  TCGFRRAK 
I NCR  BBANK 
I NCR  BBANK 
EBANK=  TTF/R 
AO  TTF/8 

XC  H L 
AD  TTF/8 

CCS  A 
CCS  L 
TCF  FXITSPnT 
TCF  FXITSPCT 
NOOP 


REF  3 LAST  7Q3 

PFF  14  LAST  791 
REF  9 LAST  794 
REF  16  LAST  795 

RFF  2 LAST  124 
REF  2 LAST  791 

RFF  15  LAST  795 

REF  11  LAST  791 
RFF  5 LAST  79  1 

RFF  16  LAST  79  5 
REF  6 LAST  795 
REF  10  LAST  795 
REF  11  LAST  795 


31,  3142  ‘3  = 75  0 

31,3143  '3635  1 

31, ’144  16561  1 

3 1,  3l  45  03643  0 

31  , J 146  74203  0 

31,3147  C 244  7 1 

31  ,3150  02254  0 

31  ,3  15  1 77655  1 

31,  M52  0 3635  1 

31  ,315  3 47051  0 

31,  3154  C 3 5 1 7 1 

31,  31  55  21710  1 

31,3156  47035  1 

31,  315  7 C 36  35  1 

31  ,3  160  21710  1 

31  ,3  161  26567  1 

31,  3 162  02  = 61  1 

31  ,3  lo 3 76435  1 


TC  1NTPRETX 

VLOAD  UNIT 
l AND 

STOOL  CG 

TTF  /8 

OMP*  VXSC 

GAINRRAK.1  MJMERO  MYSTERIOSO 

ANGTERM 

VAD 

I AND 

VSU  9TB 

P 

NORMUNI T 
VXV  RT  B 

LAND 

NORMUM I T 

STCVL  CG  +6  SECOND  ROW 

VXV  VSL  1 
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0525  REF  12  LAST  7°5 

0526  REF  13  LAST  706 
3527 


II,  3 164 
11  ,31 65 
31,  3166 


C 256  7 1 
02576  1 
77776  1 


CS  ♦ 6 

S T CR  E C G +16 
EXI  T 


052  R PEF  5 LAST  795 

r,S20  PEF  1 


31,3167  51*621  0 EX  ITSPOT  INDEX  WCHPHOLD 
31,3170  1 ?377  1 TCF  *<  H AT  EX  IT 


" ’ *CR  rxlTl*Ci>F*C‘J  LANCING  CUICANCE 


RC535  1. 

30537  2. 


FXGSIJR  IS  THE  RFTURN  WHEN  GMIOSU*  IS  CALt  ED  3Y  THE  IGNITION  ALGORITHM. 

EXBRAK  IN  THE  EXIT  LSEC  DURING  THE  BRAKING  PHASE.  IN  THIS  CASE  UNITI3)  IS  THE  WINDOW  POINTING  VECTOR. 


0 

• 

ft 

ft 

ft 

I 

I 


R3539  3. 

R 0540 


EXNORM  IS  THE  EXIT  l SED  AT  OTHER  TIMES  DURING  THE  BURN. 

( EXOV  FLOW  IS  A SUBRCUTINE  OF  EX  MR  AK  AND  FXNORM  CALI  EO  WHEN  OVERFLOW  OCCURRED  ANYWHERE  IN  GUIDANCE. 1 


544 
i 64  7 
3548 
0569 
0553 


RFF  124  LAST 

REF  13  I A ST 
REF  7 LAST 

RFF  5 LAST 
PEE  1 

REE  14  LAST 


7,1  jyjf 

704  11,3173 

705  31,3174 
31  ,3175 

774  31 ,3176 

31,  3177 
796  31  ,32', 

31,  3201 


C 6C51  0 
4 71  75  1 
03253  n 
21710  1 
74361  0 
03423  l 
220C1  0 
03253  0 
77776  1 


E XGSUB 


TC  INTPRFT  COMPJTE  TRIM  VELOCITY  CORRECTION  TERM 

VLOAD  RTB 

JNFC/2 
NORMUNI T 
VXSC  VXSC 

ZOOHT I ME 
TRIMACCL 
STORE  JNFC/2 
EXI  T 


r>54i 
055? 
3 553 
0 554 
0 656 
0556 


RFF  3 LAST  7R5 

REF  1 

REF  3 LAST  773 

REF  31  LAST  758 


31,3202  11*647  1 

31 ,32 C 3 1 2415  1 

31,  32C4  11  *646  0 

31  »3?C  5 1 3210  0 

31 ,3206  0 5600  1 

31,  3207  01412  1 


CCS  NGUIPSUR 

TCF  GUIDSUB 

CCS  NIGNICCP 

TCF  +3 

TC  ALARM 

OC  T CH12 


9 
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3 55R 
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REF  1 
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31,  32  1 1 64532  1 


+3  TC  POSTJUMP 
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0559 
6 560 
3561 

0562 

0563 
(564 


REF  125  LAST  796 

REF  8 1 AST  765 

REF  2 LAST  140 

RFF  1 


31, 3?  12  n 6051  D 
31,1213  77776  1 

31,3214  C3535  1 

31  ,3215  03?61  1 

31  ,3216  77776  1 

31,  12  17  1 3274  1 


FXRRAK 
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VLCAD 

UNI T/R/ 
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3566 
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. 
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LAND 
R 


',\a  : 


ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  2ERLINA  OY  ZOROASTER 


IIJNAR  LANDING  GUIDANCE  EQUATIONS 


0569 

0570 
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0572 
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21710  1 
C 3 2fc  1 1 
50235  0 
02137  0 
02567  1 
77776  1 


NORMIIN  IT 
UNWC/2 
00  T 

XNBPIP 


3576 
,577 
0 578 
3579 

0580 

0581 


0585 
0 586 
3587 


REF 

REF 

REF 

REF 


67 


REF  1 
REF  250 
P EF  20 
REF  68 
REF  69 
REF  70 


LAST 
I.  AST 
LAST 
I A ST 


LAST 
L AST 
LAST 
LAST 
L AST 


793 

793 

797 

797 


797 
79  7 
797 
797 
7Q7 


31  ,3235 

1. 

31  ,3237 
31,3250 

n, 

",  >5 

31,  3253 
31,3255 
31,3255 
1 1,  3256 


5 3155  0 

6 3667  0 
6 5733  1 
55  130  1 
5 0130  1 
26  130  1 

5 3670  1 

6 0155  1 
6 5733  l 
55  131  0 
5 0131  0 
26  131  0 


CS 

ADS 


MPAC 

PRC1JMA  X 

POSMAX 

RUF 

BUF 

BUF 

PROJMI  N 
MPAC 
POSMAX 
BUF  ♦ 1 
BJF  4 1 
3UF  4-1 


0590 

0591 
3532 
0593 
'595 
3595 
0596 
05  97 
0598 
( 599 

3633 
601 
0602 
0603 
0605 
3635 
06;,  6 
06c  7 


REF  16 
REF  15 
PFF  189 
REF  7 
REF  35 
REF  15 
REF  71 

RFF  190 
REF  16 
REF  23 

REF  5 
REF  191 
RFF  5 

REF  72 
REF  19? 
REF  6 
REF  193 
REF  l 


l AST 
LAST 
LAST 
LAST 
L AST 
LAST 
LA  ST 


I AST 
LAST 
LAST 
LAST 
L AST 
LAST 

LAST 

LAST 

LAST 

LAST 


73  1 
795 
79  5 
797 
797 

797 

797 

795 

797 

797 

797 

797 

797 

79  7 
737 


31  ,3257 
■ 

31,  325  1 
31 ,325? 
31,  3253 
E5  ,156c 
31  ,3255 
31,  3255 
31  ,3256 
3 1,  3257 
31,  3260 
E6 , 1 660 
31,  326  1 
31  ,3262 
31  ,3263 
31,  3265 
31 ,3265 
31,  3266 

31, 

31  ,3270 


3 5751  0 
7 6255  0 
55  CC2  1 
3 5015  1 
55  CC  3 0 

3 0130  0 
C ( CC6  1 

5 0002  0 
I 1575  1 
25  006  1 

50  CC2  0 
53*661  0 
0 000  6 1 
7 0131  0 
50  002  0 
21*661  0 
1C  0C2  1 
1 3250  1 


TS  0 

CA  FBANK5 

TS  EBANK 

EBANK=  CG 
C A BU  F 

F X TEND 
INDEX  3 


MP 


CG 


4-15 


INC*  BRANK 
EBANK=  JNWC/2 
I NDE  X 0 
DXCH  UNWC/2 
EXTEND 

VP  BUF  *1 

INDEX  Q 
OAS  UNWC/2 


2 LAST  HI 
I 


612 


R rF  2 ■ 
REF  If 

REF 


31  ,3275  3 0121  0 STEER? 


9:  12  OCT.  21,  1970  ZFLY  .059  PAGE  797 
US  ER  • S PAGE  NCI.  U F 7 S3 

UNITILAND  - R)  IS  TENTATIVE  CHOICE 

WITH  PRO J IN  MPAC  1/8  REAL  SI /F 
GET  COEFFICIENT  FOR  CG  *15 

RESULT  IS  0 IF  PROJMAX  - PROJ  NEGATIVF 
GET  COEFFICIENT  FOR  UNIT (LAND  - R) 

RESULT  IS  3 IF  PRCJ  - PPOJMIN  NEGATIVE 


SET  OUTER  GIMBAL 

ANGLE  BIAS  FOR  WINDOW  BENDING 


OV  ER  FI  DW? 


ASSEMBLE  RE  VISION  5o  OF  AG f.  PRfGRAM  ZtRLINA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  7 FL ' 


099  PAGE  798 


LUNAR  LANDING  GUlUANCF  c 3 UA  T I ON  S 


USER'S  PAGE  NO.  IS  E7  Si 


NO:  CHECK  STEFRSW 

YES:  ISSUE  ALARM  ANO  SKIP  COHN  AN  OS 


Sf« 


H;HS1 


< CC76  1 
7 979  1 0 
0 0006  1 

1 3312  0 


IS  STEERSW  UP? 

YF$:  ISSUE  GUIDANCE  COMMANDS 


62  7 
3S2R 
062  9 
0630 


REF 

PEF 

REF 


LAST  798 
LAST  798 
LAST  798 
LAST  727 


31,3305 

. 

31, 33C7 
31  ,3310 
31  ,3311 

31. 3312 

31  ,3312 

21.3313 
31,3319 
31  ,3315 


0 0009  0 
C 9679  0 
90166  1 

0 0003  L 

1 3331  1 


C 5332  0 
CCLC2  1 

l 3316  1 
1 3331  l 


P AT  ESTOP  INHINT 
TC 

FC  ADR 
REL  INT 
TCF 


T HRT CALL  TC 
OEC 

TCF 

TCF 


DISPEX  IT 

THR  TCA  LL 

CHFCKMM 

66 

♦ 2 

DISPEX  IT 


YFS:  SKIP  COMMANDS 


'635 
3636 
' 637 


31  ,3322  C 0006 
21  , 2323  3 1 6 1 7 

31  ,3329  5 3 ’6  1 1 


EXT  END 
DC  A 
DXCH 


EWEIGHTl 
FWE  I GHT 


06  3 9 
0690 
?691 


REF  127  LAST  796 


77*29  1 
758  31  ,3327  61073  1 

? L,  3 33C  77776  1 


INTPRET 

F INDCDUW 


( CONT  I NLJE  TO  DI  SP  E XI  TJ 


K j69  3 *********  **  ******  ***«  *******************  * «*»*  *******************  ***************  ********************  ************* 

R0695  GUIDANCE  LOOP  DISPLAYS 


3699 
069  9 
06  60 


PEF  12  LAST  725 
REF  2 LAST  725 


31,  4321 
31,333? 
31  ,3-433 


9 0109  o ni  SPFxiT  rs  fiagwrdr 

7 9792  0 MASK  FLUNDBI  T 

0 0006  1 EXTEND 


NO  DISPI  AYS  THIS  PASS  IF  FLUNDISP  IS  SET 


i A P : 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


LUNAR  LANDING  GUIDANCE  EQUATIONS 


31,3335  1 3361  l 


REF  2 LAST  262 
RFF  15  LAST  75  8 


BZF 

CAF 


0656 

0657 
3658 
0659 


LAST 

LAST 


31,3351 
’1  ,3352 
31,  ’TAT 
31  ,3355 


010  7 0 
5 75  5 0 

' CCC6  1 
3355  1 


P630ISPS  CS  FLGWRD 1 1 

MASK  LRINHBIT 
E XTEND 

BZF  N63STAT 


0660 

0661 

r>66? 

3663 

0665 

0665 


REF  1 
REF  215 
REF  2 
REF  lio 
RFF  120 
RFF  121 


LAST 

LAST 

LAST 

LAST 

LAST 


31,3355 

31,  ’3<,6 
31  ,3357 

31. 3350 

31 . 3351 
31  ,3352 


3 3671  1 
0 5616  1 
20563  I 
C 5155  0 
0 5155  0 
0 5155  0 


V06K63 
BANKCALL 
R FFLASHR 
ENDOF  JOP 
FNDOFJOB 
ENCOFJOR 


RFF 


1 


"667 

0668 

0669 


RFF  2 
RFF  215 
REF  1 


3 1,  3353  1 3357  1 


■ 

-•  1 . 155 

3 1,  3356 


3 3671  1 
C 5616  1 
2C  5 7 1 1 


LOWRPRIO 

V06N63 

BANKCALL 

RE  GOD  SPR 


0670  REE  8 LAST  788  11  ,3357  3 5736  1 LCWRPRIC  CAF  PR  1020 

TS71  RFF  16  LAST  7Q9  31,  3360  C *156  1 TC  PRICCHNG 

0672  RFF  5*i  I AST  796  11  ,3361  0 5635  0 FNCl  LJOB  TC  PPSTJUMP 

673  RFF  ? LAST  758  31  ,3362  66102  1 CADR  PIPCYCLE 


0675 
0675 
3 6 76 


RFF 

REF 


3 1,  3363 
31  ,3365 
31,  3365 


3 1 6 6 6 G 
0 0006  1 

1 35C 7 0 


P65DI  SPS  CA  TPEDF  S 

EXTEND 

B7F  RFD-CVEP 


677 
0678 
3679 
C 680 


’1,3366 

. 

31,  ’370 
11  ,337  l 


4 0107  o 
7 5756  1 
C 0CC6  1 
1 3511  1 


CS  FLAGWRD6 

MASK  REDFLHIT 
F XTEND 

BZF  R FDFS-OK 


'6  91 
068? 
068  3 
3685 
r 685 
'■'686 


PCF  1 
RFF  216 
REF  3 
REF  12? 
RFF  1 
RFF  123 


LAST 
LAST 
l AST 


799 

799 

799 


31 ,13  75 
31,  3375 
31  ,3376 

31 ,3377 


3 3672  1 

0 5616  1 
20563  1 

C 5155  0 

1 350  1 0 
0 5155  0 


V06  N65 
3ANKCALL 
R EFL  AS  HR 
ENDOF JOB 
P65CFED 
ENCOFJOR 


31,  3*0- 


REF  153  LAST  795  31,3501  3 5755  1 


TC  F LOhRPRTO 

P65CEE0  CAF  ZERO 


9:  12  OCT.  21,  197C  ZFLY 


059 


PAGE  799 


US  ER'S  PAGE  NO.  16  E7  S3 


RAISE  aPIORITY  TEMPORARILY  SO  DISPLAY 
RESPONSES  RILL  MOT  WAIT  FOR  SERVICER 


HAVE  LR  UPDATES  BEEN  PERMITTED? 


YF  S:  DO  STATIC  01  ^ PL  AY 


NO:  FLASH  NOUN  63,  CORR  FC  T R E SPON  SE  IS 

V57E  WHICH  STOPS  THE  FLASHING 

TERMINATE  IGNORE  AND  KEEP  FLASHING 

PROCFFO  IGNORE  AND  KFEP  FLASHING 

ENTER  IGNORE  AND  KEEP  FLASHING 


RETURN  CONTROL  TO  THF  START  OF  SERVICER 

HAS  TREDES  REACHEC  ZFRO? 

YFS:  CLEAR  R F DFS  I GN  AT  ION  FLAG 

MO:  IS  RFDFLAG  SFT? 

YES:  DO  STATIC  01  SPLAY 

NO:  USE  FLASHING  OISPl  AY 


TFPM1NAT  F 

PROCEED 

ENTER 


IGNORE  AND  KEEP  Fl  ASHING 
PERMIT  RFDE  SIGN  ATI  ONS 
IGNORE  AND  KEEP  FLASHING 


iftP:  ASSEMBLE  -EVISIOK  56  OF  AGC  PKCGRAM  ZERL  1NA  BY  ZOROASTER 

L LUNAR  LANDING  GUIDANCE  EQUATIONS 


PEE  53  LAST 


9:  12  03T.  21,1970  ZFLY  .049  PAGE  80 
USER'S  PAGE  NO.  U E7  S3 


ENABLE  REDES  I GNAT  I CN  LOGIE 


0693 


PEF  124  LAST  799 


3 1 t 3406  l 5 155 


TCF  FNDGFJCB 


0694 

0695 
3696 
0697 


RFF 
PI  F 
REF 
RFF 


77  LAST  7B6 
4 LAST  80C 
2 l AST  799 


31,  3407  0 5527  1 

31,9410  C.1141  1 

31,  34  11  ? 36  7?  1 

31  ,3412  1 3355  n 


RE0-3VE3  TC 

ADPES 

REDES-OK  CAF 
TCF 


DUMNF  LAG 
PFCFL  AG 
V06Nb4 
niSPEOMN 


K0698  ® *«*•*  ***$«**« ****$«***  **  ***  a*  *«(i*»*#t*#»*  *»***«#<:#**  *$******«***♦****  *6 

*'■■6  99  VFRTICAI  AND  Hf1*  1 7 CNT  AL  GUI  CANGE  FOP  P 66 

3 0700  *****«.*♦**•*♦* *********** *e«  ***** ******* ************** ****************** 


ft 

» 

» 


0702 

0703 

3 7)4 


PEF 

REF 

REF 


1 32, 2000 

32,2714 

2 LAST  125  E5.1527 

2 L AST  40  T3  4l: 


P 0 7 0 5 ******  ******** ********* ********* 

RO  70  6 CATA  TRANSFER  AND  PIPA  READING 


SETLOC  P66LCC 
BANK 

E8ANK=  TAUROOL 
COUNT®  1%  /F2 DP  S 


► 


<07'P  FIRST,  PAD-LOADS  FROM  THF  V<-PATRIX  AREA  ARE  MOVED  INTO  TEMPORARIES  FOR  USE  WHEN  FRANK  IS  SF  T TO  7. 

R371D  TFFSF  TRANSFERS  ARE  AS  F01L3KS: 


» 

» 

9 


’0711 
R-712 
RD713 
1 0714 
RD715 
R 071 6 
* C 717 
R3719 


VERCR1T 

TAURGDL 

TAUPODB 

MINFORCF 

MAXR1RCE 

90  CSC  AL  E 

RCHZSCAL 


> VBUF  +1 

> VBUF  *2 

> V3LF  +3 

> VBUF  +4 

> VBUF  +5 

> mpa:  +5 

> MP  AC  +6 


9 

9 

2 

9 

> 


0719 
l 7 20 
721 

'7  22 
3723 
072  A 
0725 
3726 
) 72  7 
0 72R 
072  9 


PFF  2 
REF  25 

PFF  3 
REF  26 

REF  2 
REF  27 

R EF  2 
REF  291 


LAST  125 
LAST  340 

LAST  800 
LAST  800 

LAST  125 
L AST  800 

I A S T 125 
I AST  797 


32  ,2714  3 1 531  1 P66J0B  CA  VfcPCPIT 


32  , 27  15  *=4  123  0 

32,  2716  ( • ^ 

32  ,27  17  3 1530  C 

32,  2720  52  125  0 

32,2  721  r CC06  1 
32  ,2722  3 1 533  0 

32,  2723  5i  12?  1 
32  ,2724  0 0006  1 

32  ,2725  2 1526  1 

32,  ?7?6  52  162  0 


TS  VBUF  +1 

E XTFND 

DCA  TAUROOL 

DXCH  VBUF  +2 

EXTEND 

DCA  M I N FORCE 

DXCH  VBUF  +4 

EXTEND 

DCA  ROCS  CAL  E 

OXCH  MP  AC  *-5 


VFRCRI T 


T A UP. DDL  AND  TAURODB 


M IN  FOR  C F AND  MAXFORCE 


RODSC  AL  6 AND  RO  HZ  S CAL 


» 


) 


GAP:  AS  S E M BL  E REVISION  56  UF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:12  CCT  . 21 ,1970  7 FLY 


.049  PAGE  801 


l llNAR  LANOING  GUIDANCE  FOUATjCNS 


USER  ' S PAGE  NC. 


0733 

D73A 

0735 

0736 
07^  7 
073R 
5739 
074  0 
0741 


32.2  727  C 0004  0 P66  INH 


RFF  7 LAST  5«2 
RFF  3 LAST  195 
REF  28  LAST  80C 
RFF  Ip  LAST  ?6  2 
PEF  4 LAST  801 

RFF  29  LAST  80  1 
REF  29 2 LAST  800  32,2737  54  160  1 

REF  25  LAST  797  32,  2740  24  C06  1 


32.2731  C 5032  0 

32.2732  64  122  1 

32,  27  33  2 00  34  0 

32.2  734  0 5032  0 

32. 2735  C CCC6  1 

12.2736  7 0122  1 


COUY 

SPCOS 

VBUF 

:duz 

SPCOS 


IN  H IN  T LASTS  TILL  AFTER  THROTTLE  COMMAND 


PRODUCT  OF  CDSINES  SCALED  FULL-SIZE 
START  P6S  JOB  IN  E5 , SWITCH  NOW  TO  E6 


" 7'*'-  THE  FOLLOWING  CODIN'-.  REFERS  THE  X-PIPA  READING  TO  THE  CENTER  OF  MASS  OF  THE  SPACECRAFT  BY  SUBTRACTING 

R'  746  THOSE  PIPA  CCUNTS  PRODUCED  PY  VERTICAL  IMU  MOTION  RELATIVE  TO  THE  CF  NTE  R-OF -MA  SS.  THE  SPACECRAFT  X-AXIS  IS 

*0748  ASSUMED  TO  BE  APPRCX I MAT F LY  VERTICAL  (PAPALLEL  TO  THE  SM  X-AXIS).  THF  EQUATION  IS: 

P376'  P66PIPX  = PI  PAX  - CMEGAQ  R1MUZ 


10751  WHFRF  CMEGAQ  IS  THE  ATT  ITU  TE-R  AT  6 ABOUT  THE  Q (Y)  AXIS  AND  RIMUZ  IS  THE  7-CnOPDlNATE  OF  THE  IMU. 


RFF  10  LAST  74  7 

REF  26  | AST  83  1 

REF  1 


32  ,2741  4 1422  0 

12,  14  2 4 00  < 1 

E 7 ,1 777 


CS  OMEGAQ 

INCR  BBANK  SWITCH  FJNALIY  INTC  E7 

EBANK  = END-E7 


C 7C  7 
1768 
: 759 
0 760 
076  1 
0762 


REF  1 
PEF  UR 

RFF  154 
PFF  154 
RFF  119 


LAST  795 

LAST  7Q7 
LAST  769 
LAST  83  1 


3 2,  7 7 t,t, 
32,2  745 
32,  >746 
32  ,2747 
32,2750 
12,  ?751 


C 0CC6  1 
7 3520  1 
56  001  0 
6 coon  1 
54  002  1 
3 4755  1 
6 OOCl  0 


EXTEND 

MP  RIMUZ 

X CH  L 

OOUBIE 
TS  Q 

CAP  ZERO 
AO  L 


ROUND  BEFORE  ADDING  TO  PIPAX 

SKIP  ON  OVERFLOW  WITH  CIA)  = *1  OR  -1 
DEPENDING  DN  THE  SIGN  DF  THE  OVERFLOW 


0763  REF  U LAST  3B9 
1764  REF  2 LAST  155 


32  ,2  752  6 0C37  0 

3 2,  2 7 6 3 6 6 1 755  0 


AD  PIPAX 

TS  P66PIPX 


0766 

0766  REF 
>767  REF 


LAST  671 
LAST  155 


32,2754 

32  ,2  755 
32,  8756 


0 0006  1 

co  004  n 

65*754  1 


EXTEND 

RF  AO  LOSCALAR 
TS  P66TPIP 


READ  FINE-SCALED  TI  MF  FCR  FP  COMPUTATION 
TIMF  IN  UNITS  OF  2(9)  M/CS 


0 768 

0769  REF  26  LAST  749 

0770  REF  6 LAST  78  1 


iZ  . 2 75 7 ! 

?,.27fcO  ? PC25  0 

32,  2761  c:*67l  1 


EXTEND  SET  3 TC  TI  ME  AS  TI  MF-TAG  FOR  FC 

DC  A TIME? 

OXCH  3 TC  TI  ME  TIME  IN  UNITS  CF  2(28)  CS 


* 771 


GAP:  ASSEMBLE  RR  Vl  SION  56  OF  AiiC  FRCGPAH  ZERL INA  RY  ZOROASTER 


<*:  12  GCT.  21.  1^70  7FL Y 


06  9 PAGE  BD2 


778 

779 
J78G 

"*781 


L UMAR  l AND  IMG  GUIDANCE  eOUATICNS 
PROGRAM  INITIALIZATION 


m last  678  min 


PFF 

PFF 


82,2766  0 35C7  0 


LAST  786 


P66MAI  N 
P 66C  HNG 

NEWMOGEX 

66 


RTF  166  LAST  80  1 82  ,2771  9 6766  • 
PFF  6 I AST  78 1 82.  2772  56  CSS  0 


REF  26  LAST  722 
RFF  2 LAST  165 


32, 2775  < 3501  0 


USER'S  PAGE  NO. 


HAS  P66  BEEN  INITIALIZED  YET? 


NO:  THEN  INI  TI  All  7F  IT 

SW  ITCH  MODE  L IGHTS  TO  66 


SET  VHZC  TC  Z ERG,  RETURN  WITH  CIA) 

ZERO  FWEIGHT  LEFT  OVER  FROM  P66 

WAIT  BEFORE  EXECUTING  P66  ROD 


l ’797 
R 3 7 9 6 
R 0796 

R0796 
R 0798 
3 0800 

0801 
0802 
0 80  3 
0806 
0805 
0306 

0807 

0808 

0809 
08 1C. 

ran 

0812 


PEF  1 32,3000  1 327?  1 

********+******************#**** 

VERTICAL  (ROD)  CONTROL  EQUATION 

ttfta*********^**********  «««**«* 

HEP  E VVFCTX  is  RECOMPUTED  TO  MINIMIZE  THE  GUIDANCE  LAG  BETWEEN  THE  SAMPLING  OF  PIPA  DATA  AND  THE 
OUTPUT  OK  COMMANDS.  THIS  LEAVES  THE  VFCTOP  WE' T NON-HOMOGE  NC  OUS,  RUT  THIS  IS  UNIMPORTANT  SINCE  I HF  VERTICAL 
AND  HORIZONTAL  CHANNELS  ARE  SFPARATF. 

32,3001  C T0C6  1 P66MAIN  EXTEND 


• . 

32,3)03 

. 


1710  1 
6 ? • 7?7  0 
C ('006  1 


REF  3 LAST  802 

RFF  13  LAST  779 
REF  6 LAST  801 
REF  9 LAST  571 
REF  If  LAST  80  2 


32,  OOP  7 2 G C01  l 

3 2,3010  21  • 727  0 


12,  Oo  1 1 4,  1206  1 


OCS  V SURFACE 

DXCH  VVECTX 

F X TEND 

OCA  V 

DDOUBL 

DD0U3L 

DAS  VVECTX 


3?  ,3012 
32,3013 
32,  3o  16 


167  1 0 
6 6736  1 
6 6736  1 


CS 


PI  PTI  ME 
GTC  TIME 
HAL  F 
HA  LF 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  8 


ZOROASTER 


<3:12  OCT.  21,1970  Z FLY 


.049 


PAGE  803 


I LUNAR  LANDING  GUI CANCE  EQUAT  ICNS 


0813  REF 


2 LAST  155 


32,3015  57' 725  0 


XCH 


DT 


USFK  ' S PAGE 


2 C E7  S3 


oeH 

0 8 1 5 
7816 
0817 

iRlfl 

>810 

0820 


REF  2 LAST  1& 7 

REF  3 LAST  801 

Pt-F  217  LAST  799 

REF  1 

REF  1 

REF  4 LAST  002 


12,  30  16  4 12  54  1 

12,701  7 6 1 755  1 

32,  C 4fc  1 6 1 

32  ,3021  42761  1 

12,102?  C 0006  1 
32,  10  23  7 3516  1 

32,3024  21*727  0 


CS  PIPAXOLO 

AD  P66PIPX 

TC  RANKCALL 

CADR  NORMPIP 

EXTEND 

MP  P66KPIP 

OAS  VVECTX 


3821  REF 
082 / PFF 

0823 

3824  REF 
0825  PFF 


| 

3 


L AST 
LAST 


159 

154 

80  3 
803 


32. 3025  4 1 7C4  1 

32.3026  6 1701  0 

32.3027  C 0006  1 

32,  3030  7 1725  1 

32  ,303  1 2 l ' 7 27  0 


CS  B1ASACCX 

AO  3RAVACC.X 

EXT  END 
MP  DT 

DAS  VVECTX  VVECTX  IN  UNITS  OF  2(5)  M/CS 


R0826  UPDATE  VDGVFR  T ACCORDING  TO  PCD  CLICKS. 


0827 
0 82  8 
3827 
0830 


’831 

333? 

0833 

'834 


PFF  156  LAST  8P2 
REF  2 iast  155 

RFF  293  LAST  831 
RFF  120  LAST  801 

RFF  26  LAST  573 
REF  2 LAST  155 


12,  30  32  7 4755  1 

12,3033  57*  744  1 

1 2,  3034  C 0006  l 

32.3035  7 0161  0 

32.3036  3 0001  0 

32,  3037  0 0CC6  1 

32  ,3040  7 4745  1 

32*3041  21*746  1 


:af  zero 

XCH  RODCOUNT  RE  STAR  T BETWEEN  NOW  AND  THE  UPDATE  OF 

EXTEND  VOGVERT  COJLD  CAUSE  LOSS  OF  ROD  CLICKS 

MP  WPAC  +5 

CA  L 

EXTEND 

MP  B I T 7 

OAS  VDGVERT  VDGVERT  IN  UNITS  DF  2(5)  M/CS 


"'BIS 

'•836 

7837 

083  8 
0839 


RFF 

REF 

RFF 


36 


LAST  78  1 


LAST  781 


12,  3042  3 9747  1 

32  , ■*'  043  C 0006  1 

32. 3044  CP  C30  0 

32.3045  0 0006  1 

32.3046  1 3053  0 


MANTHR  T7  CAF 

EXTEND 

RAND 

EXTEND 

BZF 


31  T 5 

CHAN30 

ERRCOMP 


APE  WE  IN  AUTO  THRCTTLE? 


YES 


3843 
•'841 
0 84? 
084 1 


REF  6 
REF  3 
REF  2 


LAST  803 
LAST  803 
LAST  802 


32,  3 Q9 7 
12,3  5 

1 

1 , ' 


C 0006  1 
3 1727  1 
5 ?•  796  1 
1 3272  1 


F XTEND 

OCA  VVECTX 

DXCH  VDGVERT 

TC  F ENDKOD 


NO:  RESET  VDGVERT  TO  CURRENT  VVECTX 


1 899 
R3396 
R 898 


THE  DEC- 1 SI  CN  WHETHER  TC  EXECUTE  THE  °<.6RQU  EQUATION  IS  MADE  EVERY  1/9  SECOND  ON  THE  FOLLOWING  BASIS:  IF 
’ 1 1 1 " M.3NG  TH  SM  X-AXI  S XCEEDS  VERCRI  T I N MAGNITUDE,  DO  P66R0D.  GTHERWISE*  Dl  P66R0D  EVERY  r aii 

(SPECIFICALLY  Tarn^r  ROUNDED  TC  ThE  NEAREST  1/4  SECOND). 


0 89  9 
08*0 
0851 
3352 
r 85  3 
0 8 59 


RFF  7 LAST  83  3 
RFF  294  LAST  803 

RFF  4 LAST  80  3 
RFF  2C5  LAST  803 


12,  10  54 
32,1355 
3 2,  30  5 6 
32,  > r7 
32,3060 


4 1 727  0 
52  155  1 

( CCC6  1 
3 1746  0 
20  155  1 


ERRCOMP 


EXTEND 

DCS  VVECTX 

DXCH  MP  AC 

t XTFND 

DC  A VDGVFRT 

DAS  MP  AC 


COMPJTE  VERTICAL  ( SM  X-AXIS)  VEL  ERROR 


VDGVERT  - VVECTX  IN  UNITS  OF  2(5)  M/CS 


3855 


RFF  11  LAST  782 


32,  306  1 0 7271 


TC  TP  AGREE 


SIGN-AGREE  “PAC  (ABSOLUTELY  NECESSARY) 
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'■  856 


0857 
' 858 
3859 
.840 


I 1 1 
PFF 
P FF 
REF 
PFF 


2 

3 

11 
12 
2 96 


FAST 
I AST 
I AST 
LAST 
LAST 


155 
8?  1 
802 

83  3 


32  , 3 C6  2 
12,  30  4 1 
32  ,3064 
12,  3045 
32,  3 r 44 


4 1756  0 
6 1754  0 
6 4736  1 
fc  4736  1 
56  157  1 


CS  OP66TPIP  C0PPJT6  TIME  SINCE  LAST  »30C0MP 

AD  P66TP1P 

AD  HALF 

AD  HALF 

XC H MPAC  ♦ 3 TIME  SINCE  LAST  P66P0D,  UNITS  OF  2 19  1 CS 


0861  RFF  1 

386?  RFF  2° 7 l AST  804 

0863 

0864  RFF  l 


32,3067  4 3522  G 

12,  3070  6 0 157  1 

0G<  I 

32  ,3072  t 3276  1 


CS  P66PMIN  HAS  IT  8FEN  LESS  THAN  P 66PM IN? 

AD  MPAC  +3 

EXTEND 

RZMF  M0REP66  ? YES:  NO  P66R0D  THIS  PASS 


0864 
0 866 
0867 
'868 

869 


PFF  298  LAST  804 

REF  1 

RFF  ?18  I AST  80  3 
REF  2 LAST  731 
RC-F  299  LAST  804 


32,  3073  77  154  1 

32,3074  3 4773  0 

32,  3C75  C 4616  l 
32,3076  61713  0 

32 ,3C77  54  154  0 


LYCH  MPAC  NO:  LIMIT  EPROR  TO  APOUT  9.67  M/S 

CAF  DEC48 

TC  BANKCALL 

C ADR  IIMITSUB 

TS  MPAC  PUT  IT  BACK  IN  MPAC 


0870 

0871 
87  7 

C873 

0 8 74 
•<875 


REF  300  LAST  804 
REF  30  LAST  80  1 
REF  1 


, 

32  ,3101  3 r 1 55  0 

32,310?  C C0C6  1 
32,  11(.  J 1C  12  1 0 

32,3104  C 0006  1 
12,  3 1C  5 13110  0 


EXTEND  IS  IVDGVEPT  - VVtCTXl  < VFRCRIT? 

DC A MPAC 

EXTEND 

D V V3  UF  ♦ 1 

FXT  ENO 

BZF  FRRFAIL 


0876  RFF 

0877  pfF 


LAST  834 


32,3106  3 0124  0 

32,31  07  1 31  20  C 


CA  VB UF  *2  NO:  DO  ROl)  COMPUTATION  USING  TA'JRODl 

TCF  P66ROO 


3878  RFF  3^1  LAST  006 

0 879 

C 880  RfF  21  I A ST  78l 
0881  PEF  1 

088?  RFF  2 LAST  155 

3883 

0884  PFF  2 LAST  804 


12,  3110 
32 ,31  1 1 
22,211? 
32,  11  13 
32  ,3114 
22,  3115 
32,  1U6 


3 0157  1 ERRFAI  L CA  MPAC 

0 0006  1 EXTEND 

7 474?  0 MP  RIT10 

6 5752  1 AO  TWELVE 

6 1761  0 AD  -OLDTAU 

C CCC6  1 EXTEND 

6 3276  1 BZMF  M0RFP66? 


YES:  HAS  IT  BEEN  ABOUT  OLDTAU 
SINCE  THF  LAST  Pb6RD0? 


NO:  NO  P66R0D  THIS  PASS 


0885 


RFF  2?  LAST  804 


32,31  1 7 3 0125 


CA  VBUF  +3  YES:  DO  ROD  COMPUTATION  USING  TAURODB 


3886 

'-887 

C 888 
0889 


PEF  2 LAST  155 
PEF  302  LAST  804 

REF  3 LAST  834 


12. 3120  55*760  G 

32.3121  52  155  1 

32,312?  C 00C6  1 
32, 3123  11*760  0 


P66R0D 


TS  TAU 

DXCH  MPAC 
EXTEND 
D V TA  U 


TOTAL  A DESIPFC,  UMTS  OF  2 (-9  ) M/CS/CS 


0890 

0 3 9 1 

0892 

0893 
3894 

1 H95 


0896 
38  »7 


REF  3 LAST 

REF  3?  I AST 
PFF  219  l AST 
PFF  3 LAST 

REF  303  LAST 


80  3 

804 
80  4 
779 

834 


12,3124 
12,  3125 

32.3126 

32.3127 
32,  3 130 

32  ,3  131 
22,713? 
32,  3 133 


C 0006  1 
61*701  0 
0 0006  1 
7 4 74 2 0 
C 46 1 6 1 
62337  1 
C CCC6  1 
10  UO  1 


EXTFND 

SU  GRAVACCX 

EXTEND 
MP  RIT1D 

TC  BANKCALL 

CADR  MASSMULT 

EXTEND 

OV  MPAC  +4 


SURTRACT  AWAY  GRAVITY 

RESCALE  TO  UNITS  OF  2 « -4  > M/CS/CS 

DIVIDE  BY  COS(AIG)  COSIAMG)  * 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  HY 

L LUNAR  LANDING  GUIDANCE  EQUATICN'S 


0898 

0899 

0900 

3991 

0902 

0903 
3934 


RFF  33 
RFF  21 
REF  121 
PFF  122 
RFF  123 
REF  3a 


LAST 
LAST 
L AST 
LAST 
LA  ST 
L AST 


B05 
805 
80  5 


32,3136 
12,  3 137 
. 

32  , 3 1 A 1 

32,  3 Ia.3 


C 00C6  1 
60  126  l 
6 A733  1 

5 A CC 1 1 
A 000  1 1 

6 0001  0 
6 0126  1 
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APPLY  LOWER  LIMIT  OF  M INFORCE  (VBUF  + 4) 


0905 

3936 

0907 

0908 

3939 

0910 
091  ) 
0912 

091  3 
3 9 l A 

09 1 5 
0916 
3917 

0918 

0919 

0920 

0921 
392? 

092  3 
09  2 A 


REF  12A 
REF  35 
RFF  220 
REF  3 
REF  6 

REF  A 
REF  2 
REF  221 
REF  2 


REF  33 

REF  22? 
REF  A 
REF  fi 


LAST 
I AST 
LAST 
LAST 
L AST 

LAST 
LA  ST 
LAST 
LAST 


LAST 

LAST 

LAST 

LAST 


803 

185 

805 

803 


32  ,31  A3 
3?,  3 1 A A 
32,  3]  A 5 
32,3166 
32,  3 1 A 7 

• 

• 

32,  3162 
32,3153 
32,  3 1 5 A 

32.3155 

32.3156 
. 157 
. 1 

3?, 3161 

32,  3162 

. 

22,  3 1 fc A 
32 . 3165 
3?  ,3166 


5A  001  1 
3 .12  7 0 

0 A 6 16  1 
61713  0 

5 5 ' 6 1 5 0 

A 1755  0 
t 1757  C 
C 6616  1 
A2761  1 
C 0006  1 
7 3517  0 
20  001  1 
C 0CC6  1 
10  157  0 

6 1 70A  0 

C 0006  1 

7 A7A2  0 
C 6616  1 

62337  1 
55'A67  1 


TS 


VBUF 

3 A NKC  ALL 
L IM  ITSUR 

FC 


CS  P66PIPX 

AO  0P66PIPX 

TC  BA  NKC  A LI 

CAOR  NORMPIP 

E X TE  ND 

MP  P66KPIPB 

DOQJBL 

E X TE  NO 
DV  MP  AC 

AD  BIAS  ACCX 


E XTFND 


TS 


B IT  10 
BANKC  ALL 
MA  SSMUL  T 
FP 


APPLY  UPPER  LIMIT  OF  MAXFDRCE  (VBUF  *'>) 


THRUST  DESIRED 

COMPUTE  MINUS  PRF  SENT  THRUST  LEVEL 


RES  CA1  E TO  UN  ITS  OF  1 M/CS 


CIVIOE  BY  TIME  IN  UNITS  OF  2(91  CS  TJ 
GET  ACC  IN  UNITS  OF  2 (-9)  M/CS/CS 
ADD  IN  BIPA  BIAS  P SEUDO-ACC FL ER A TI ON 

RF  SCALE  TC  UNITS  OF  2 (-4  ) R/CS/CS 


3925 
f 926 
09?/ 
09?  8 
0929 


RFF  305 
REF  9 


0932  REF  306  LAST 


393* 

093A 

0936 

0936 

0937 
3938 


REF  10  LAST 


REF  7 
RFF  125 
REF  2 
REF  223 
REF  A 


LAST 
I A ST 
L AST 
LAST 
L AST 


. 1 

3?  « 3 1 7 j 

32,3171 
32,  3172 
32, *1 73 


C 0006  1 

6 1611  1 
C 0CC6  1 
10  157  0 
2 7'A67  1 


805 

806 


32,  31  1A  22  C C7  0 

32. 31 76  C 0006  l 

32.3176  10  160  1 


1 . 1177 

32 ,3200 
3 2, 3 2C  1 
32,  1202 
■ 

32,  3204 


6 1615  1 
5 A CC1  1 
3 3522  1 


E XTFND 

DCS  FWEIGHT 
EXTEND 
DV  MPAC 

ADS  FP 


P66PMI  N 
PANKCALL 
LI  VITSU8 


MINUS  THRUST  ALONG  THE  SM  X-AXIS 

DI  VIDE  BY  COS(  A1G  ) CCS(  AMG) 

MINUS  PRESENT  THRUST 


0939  RET  224  LAST  80S  32,3205  0 4616  I 


GO  TD  THROTTLE  WITH  PIF  IN  A 


ASSEMBLE  REVISION  56  OP  AGC  PROGRAM  ZERL  INA  BY  ZUROASIE* 
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0940 

0941 

094? 
094  1 
0 044 
09*5 
U946 
0047 
0945 
C 040 


REF  a 
REF  1 
RFF  0 
RFF  309 


LAST 
l AST 
LAST 
LAST 


32.12C6  62144  1 CADR  P 66THR0T 

32 » 3207  U 0003  1 P66REL  RELINT 


70  R 
805 

R06 


32,3210  S3' 617  1 


12,  1211 
• 

32,  321  3 

32.3214 

32.3215 

12, 1216 


1 

3 0160  0 
C 7321  0 
3 3526  J 
0 7321  0 
e2  155  1 


3 7 ,3217  53*617  1 


FW  EIGHT  l 
MPAf 

MP  AC 
SHCPTMP 
2SECSI  S) 
SHORTMP 
KPAC 

FWF1GHT1 
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SCALE  FREIGHT  FOR  USE  NEXT  PASS 
FIPST  TAKE  OUT  THE  ATTITUDE  EFFECT 


TRANSFERRED  TO  FREIGHT  LATE 


0054 

3055 

0956 

0057 

3958 


32, 3222 
32 , 3??3 
32,  3224 


0 0006  1 
7 016?  0 
22  120  0 


CAr  ZERO 

XCH  AZCCUNTl 

EXTEND 
MP  MP AC 

L XCH  3 UF 


RESTART  PFTWFEN  NOW  AND  THE  UPOATE  OF 
VHZC  COULD  CAUSE  LCSS  CF  PQHZ  CLICKS 


AZCCUNTl. RUHZSCAL  IN  UNITS  OF  2(-3)  M/CS 


<950 

0961 

0961 

096? 

3963 


RFF 

REF 

RFF 


LAST  3?, 3225  3 .754  l 

I AST  flO'  ? 2,  '1?26  1 7*  644  0 

12,  12?7  C 0006  1 

LAST  806  32,3230  7 0162  0 

LAST  806  32,  323  1 22  121  1 

LAST  725  3?  ,3232  3 6015  0 

LAST  7°  7 32,322  3 c 4 CC3  0 

LAST  80 1 E6, 1774 


CAF  ZERO 

XCH  FLCCUNT1 

EXTEND 
MP  MP AC 

LXCH  BUF 

CAF  EBANK6 

TS  FRANK 

E3ANK=  END-E6 


ELCCUNTl  .ROHZS  CAL  IN  UN  ITS  OF  2(—  3 > M/CS 


0967 
096  P 
096  9 
<"•970 
09  7 1 

0972 

0973 

0974 

0975 

0976 
C977 

0978 

0979 
09(10 
r 98 1 

0982 

0983 


RFF  75  LAST  8C6 


REF  76  LAST 


REF  77  LAST  806 


32  ,3234 
32,3235 
12,  323  6 
• 

32,  3240 
32  ,3241 
32  ,3242 
32,  3241 
32  ,3244 
32,  1245 
12,  1246 

: 

32  ,3251 
12,3252 
32,  3253 
32  ,3254 


3 0130  0 
C 0CC6  1 
7 1420  1 
54  002  L 

4 0131  0 
C 0006  1 
7 1417  0 

6 0C02  0 
C 0006  1 

7 4745  1 
52  155  1 


56  131  1 
C OOC6  1 
7 1420  1 


INCREMENT  FOR  VHZCY,  UNITS  CF  2(5)  M/CS 

SIN(AOS) 

COS(AOG) 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
LUNAR  LANDING  GUIDANCE  EQUATIONS 


0984 

09HS 

3986 


REF  79  LAST  806 
REF  28  LAST  806 


32,  9 255  t 0 13  1 1 
32,3256  C 0006  1 
32,  3257  7 4745  1 

32,3260  24  006  1 
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INCREMENT  FOR  VHZCZ,  UNITS  OF  2(5)  M/CS 


3989 

0990 

991 


099  3 
3994 
0995 


PFF  2 
RFF  313 
REF  3 


L AST 
LAST 
l AST 


155 

806 

80  7 


3 2,  .3  26  1 
32  ,3262 
32,  3263 


2 1*752  1 
52  155  1 
21*150  C 


I AST  R''  2 32,3264  C 3507  0 


32 ,3265  0 0006  1 


12,  '3  266 
,3267 


OA  S 
OX  CH 
DAS 


VH  ZC 
MP  AC 
VH  ZC 


EXT  END 

DC  A FWEIGHT1 
DXCH  FWEIGHT 


UPDATF  VHZCZ 
U PDAT  F VH7CY 


STORE  FWEIGHT  FOR  USE  NEXT  PASS 


STORE  MINUS  T AU  FOP  TF  ST  NEXT  PASS 


0998  REF 
3999 

1000  REF 

1001  REF 


32  ,3272  C 35C7  0 ENCRQD 


32  ,3275  53*  757  1 


E X TE  ND 

OCA  P66TP1P 
DXCH  0P66TPIP 


STORE  TIME  AND  PIPX  FOR  NEXT  PASS 


ANY  MORE  WGPK  THIS  PASS? 


1005 

1006 
1037 

R 1008 
RIO  10 
Rl  012 


32,3276  C OC06  1 MC1RFP66?  EXTEND 
32  ,3277  3 4755  1 OCA  NEC-0 

32,  3300  52  756  1 DXCH  -PHASE3 


TF  P MI  NA  TE  P66J0B  PESTART  PROTECTION 


NOTT  : A RESTART  TFTwfEN  NOW  ARC  THE  ENO  OF  THE  JOB  WILL  CAUSF  THE  LOSS  OF  THE  RE  MAI  NOE  R OF  THE  JOB.  BUT 
TH[v  NOT  MATTER.  SINCE  H7C01NT  IS  NOT  INCREMENTED  UNTIL  THE  ENO  OF  THF  JOB,  T HF  FIRST  P 66J08  AFTER  THF 

RESTART  WILL  REPTAT  AND  COMPLETE  TEE  COMPUTATIONS  STARTED  HERE. 


IP 


TC 


TM  CESISICN  WHETHER  TO  EXECUTE  THE  P66  HJRIZDNTAL  CONTROL  EQUATION  IS  MADE  EVERY  L /4  SECONC  ON  THE 
FOLLOWING  BASIS:  I (-  MODE  HAS  PEEN  SWITCHED  FROM  AT  T I T J DF- HOL  D TO  AUTO  BETWEEN  THF  MOST  RECENT  FINDCOUW  AND 
MOW,  IX)  9..SHZ  IMMEDIATELY.  OTHERWISE,  DO  P6->H7  VFPY  TWO  SECONDS  (WHICH  COULD  86  CHANGED  TO  ONE  SECOND).  AND 
DC  P66DISPS  EVERY  CNE  S ECONO,  STAGGERED  FROM  P 66HZ  . 


PEF  25  LAST  7«3 


32  ,3305  3 7120  1 


F IXLOC 


ZERO  PJSHDOWV  POINTFP 


SSE  MB  Ur  REVISION  56  CF  AGC  PRCGPAW  ZFRL INA  BY  ZOOAST  ER 


LUNAR  LSNniNG  GUICANCE  FDUATIONS 

REF  A LAST  7®!  12  ,3306  54  166  I 


1028 


PEF  36  LAST  836 


F 6 .1  774 


CAF  EBANK6 
TS  EBANK 

EBANK=  END-  F6 


10  31 
1 ? 3? 
1 3 3 


RFF  57  LAST  771 
PEF  3 LAST  484 
RFF  1 


32,3315  1 3322  0 


CAF  B I T 1 4 

EXTEND 

RANO  CHAN31 
t X TEND 

BZF  CHKFPAIJT 


l 35 
1036 
1337 


R EF 
REF 
REE 

REF 


LAST  140 
LAST  80  7 
LAST  8C2 


32,  ’?16 
32,  3317 
32,3320 
32,  3321 


55*651  C 
24  006  1 
C 3501  0 
1 3330  0 


TS  FLPAUTNC 

I NC  3 BBANK 

TC  ZERQVHZC 

TCF  HZ  TIFF? 


1038 
l<  39 
1040 


RFF 
R FF 
RFF 


LAST  8D8 
LAST  808 
LAST  80  7 


32  ,3322 
32  ,33  23 
E7,  1777 
32  ,3324 
32,  3325 


CHKFPA'JT  CA  FLPAUTNC* 

I NCR  BBANK 
FBANK=  EN0-F7 
EXTENO 

RZF  HZTIME? 


32,J?26 

12,3327 


TC 


1345 

1046 

1047 


32,  3 13(j 
32  ,333  1 
32, 3 332 
32,  3 133 


1 7 f 3 1 

4757  1 
0CC6  1 
3342  0 


HZTIMF?  CA 


HAS*  SEVEN 
EXTEND 

3 7 F P66HZ 


1049 
1 753 

1051 

1052 


32,1334 

. 

32,3336 
’2,333  7 


7 6257  0 
f 7760  1 
0 0006  1 

1 3417  1 


25*753  1 FN066J0R  INCR 


R 1 3 55 
Rl  '56 
X 10  57 


HrniZCNTAL  CONTROL  EQUATION 
*****  * *******  * * **« ««««*«* 44  # 


1058 
l 59 

1 - 
1 • i 

l ( \ 
1 )63 
1064 


REF  128  LAST 


32,  3342 
32  ,3343 
32  ,3344 
32,  3 34  5 
, 

32,  334  7 
32,  3 350 


C 6C51  0 
63345  0 
02477  1 
C 3 2 5 1 0 
63361  0 
C2476  0 
03727  0 


I NTPRET 
p OVL 
AHZL  IM 
UNFC  /2 
P OVL 
QH  Z 

VVEC  T X 
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switch  to  £6  for  flpautnd 

IS  MODE  IN  AJTO? 

YES:  GO  CHECK  FLPAUTNC 

NO:  SET  FLPAUTNO  TO  INDICATE  ATT-HOLD, 

RETURN  TO  E7  , ANO  ZFRO  VHZC 

WAS  HOOF  IN  AUTO  LAST  FINDCPUW? 

YES 

NO:  MODE  JUST  SWITCHFO  SC  ZFRO  VHZC 

AND  HZCOUNT  FOR  IMMEDIATE  P66HZ 

DOES  HZCCUNT  = 0 MCCXJLO  8? 

YFS:  00  HORIZONTAL  CONTROL  EQUATION 
NO:  00 ES  HZCCyjNT  = 2 MODULO  4? 

YFS:  GO  COMPUTE  D I SP1  AYS 

NC:  I NCREMFNT  HZCCUNT,  TERMINATE  JOB*. 

P66HZ  COME  S HERE  TOO 


GAP:  ASSFMDLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  70R0ASTER 


L LINAR  LANDING  GUIDANCE  EQIJATICNS 


1 ' ‘ 6 7 
13  68 
1069 
ID  70 
1 071 
1072 
13  73 
1 f 76 
I o 75 
1 376 
1077 


REF 

REF 

RFF 

RFF 


REF 


A LAST 
2 I AST 
1 

A L AST 


80  7 


125 


76  2 


■ <1  5 * 1 I I C H O I. 

32,3  352  C3766  1 

32,3353  52361  C 

32,  3356  C2* 75  0 

32  ,3355  67C36  0 

6353  7 

32,  3357  2 1706  0 

32  ,3360  53725  1 

32, 3361  CCC65  0 

32,  3 162  20201  0 

12,3363  76236  1 

12,  3366  63567  1 

32,3365  77776  1 


B VSU 

VHZC 

V/SC  VSU 

TAUHZ 

RTB  RTR 

7 F ROMP AC 
NORMUNXl 
POOL  SL* 

3 6 D 

0,  1 

RTB  VXSC 

MPACLI  M 

EX  IT 


1078  REF  1 

1079  RFF  316  LAST  807 


32,336 
32,  3 }(, 


CAF  GHZ 
TS  MPAC 


1 Dqo 
1 ) R 1 

1 08? 


RFF 

RFF 


2 LAST 


797  12  ,3370  3 0121  0 

32,  3 311  C .ICC6  1 
32,  3372  1 3376  I 


CA 

FXTFNO 

8ZF 


OVFINC 

ENGAPM? 


1083  PC  F 225  LAST  805 

1 ',R6  REF  ? L AST  798 

1085  REF  1 


12  ,3373  C 6616  1 
32,  3 37  6 ( 3666  0 

32  ,3375  1 3360  1 


TC  BANKCALL 

CAOR  CJVFDESC 
TCP  FN  D66J0B 


1086 
• *'87 
18  3 
1 : 39 
1 90 


REF  29  LAST  611 
REF  7 LAST  803 
REF  1 


32,  ’376  3 6751  Q ENGARM? 

32, 3377  C 0006  1 
32  ,3600  02  030  0 

32, 36C 1 C CC06  1 
32,3*02  1 3612  1 


CAF 

FXTFNO 
RANI) 
f X TF  NO 
BZF 


BIT3 
THAN  30 
0 D UWHZ 


1091 

1392 

n<93 


REF  23  I AST  606 
RFF  1 

REF  2 LAST  809 


32  ,3605 
32  ,3606 


6 0076  0 

7 6753  0 
C 0006  l 
1 3612  1 


CS  FLAGWRDO 

MASK  P66PP.GPT 
EXTEND 

BZF  CDUWH7 


1095  RFF 

1096  RFF 
1307  RFF 


3 LAST  226 
2 LAST  809 


32, 3*r  7 2 3515  0 

32.3610  55*263  0 

32. 3611  1 3360  l 


"A  IDLAOR 

TS  T 5 A OR 

TCF  FN0b6JC8 


1 09R 
1 19Q 
1 133 
1101 


LAST 
LAST 
L AST 


8:  8 
808 
7Pfl 


12, 3*12 
32,3613 
32,  3*  1* 
32 ,3*15 


TC  INTPRFT 

STCALL  JNFC/2 

F I NDCDUfc 

EX  IT 


110’  REF  3 LAST  809  32,3616  1 3360  1 TCF  END66JCB 

Hi  1 03  •**••**  ««r*»C3***e*4»**  ********** 

31106  P66  DISPLAY  COMPUTATIONS 

R 1 1 0 5 *♦*•***•<>*****  *******  *********** 


9:12  CCT.  21,1970  7 FLY  .069  PAGE  809 

USER'S  PAGE  NO.  26  E7’s3 


ZERO  X-COMPONENT  A 60  UNITIZE 
CORRECT  MAGNI  TUOE  FOR  N0RMUNX1  SHIFT 

LIMIT  MAGNITUDE  TO  AHZLIM 

X-COMPONENT  = GRAVITY 

ANY  INTERPRETIVE  OVERFLOW? 

NO:  CONTINUE  CHECKING 

YES:  ISSUE  ALARM  BUT  NO  COMMANDS 

IS  ENGINE-ARM  SWITCH  ON? 

YES:  LIMIT  ANO  ISSUE  CCMMANOS 

NO:  HAS  ASTRONAUT  RESPONDED  TO  V06N60? 

NO:  LIMIT  ANO  ISSUE  COMMANDS 

YES:  PREVENT  PCS  JET  FIRINGS 


MUST  STORE  FOR  SUCEEOING  PASS 


L 

1106 

1123 

1121 

1122 

1123 

1124 

1125 

112s 

1127 

1 1 2 B 

1129 

1130 

1131 

1132 

1133 

1 13c, 

1135 

1136 

1137 

1138 

1 1 39 

1140 

I 141 

1142 

1143 

1144 

1145 

1 146 

1 147 

1 1 4B 

1 149 

1150 

1151 

115? 

1153 

1154 

1174 

1 1 75 

1176 

1177 

1178 

1 1 79 

1 1 BO 

1 181 

1192 

1183 

1 184 


ASSEMBLE  REVISION  56  OB  4f,:  PRCGRAM  ZERLINA  BY  ZOROASTER 
LUNAR  LANCING  GUIDANCE  EQUATIONS 


PFF  130  LAST  809 


LAST  808 


2 LAST  809 


RFF  2 LAST  009 


RFF  2 LAST  125 


LAST  320 


PFF 

RTF 

RFF 


REF  1 
REF  1 
RFF  227 
RFF  2 
PFF  126 
REF  1 


L AST 
i as  r 
I A ST 


LAST 
I AST 
LAST 


808 
79fl 
79  8 


810 

731 

808 


32,341  7 
32,  3420 
32,3421 
32,342? 
32,  ,23 
32 ,3424 
. 

32,  3426 
32  ,3427 
32,  3430 
, , ‘ 
32  ,343? 
32,  3433 
3 , - ' 4 
32  ,3435 
3 2,  3 4 36 
3?  ,3437 
1 2,  3440 
, 

. 

3 2,  3443 
32  ,3444 

32 .3445 

12. 3446 

32  ,3447 
? 2,  345C 
12,  345  1 

32.3452 

32. 3453 
32  ,3454 
32  ,3455 
32,  3456 
32  ,3457 
32, 3460 


C 6051  0 
*1345  0 
C2477  l 
C2475  0 
47115  1 
03727  0 
<3537  C 
65234  1 
21706  0 
CCC45  0 
41457  1 
20201  0 
C0C45  0 
63434  1 
63547  1 
65252  0 
43316  1 
65271  0 
02477  1 
02500  0 
432C5  1 
00045  0 
74  2 76  1 
6*345  C 
0016?  1 
CO l 60  0 
43225  1 
03737  1 
25524  0 
53466  0 
45034  1 
476 13  0 
47676  0 
77562  C 


. i 

1 , *64 

. 

* ! i 466 

. ■ ' 


32,  3473 
32  ,3474 
32  ,3475 


25*7*3  1 
104  0 
7 4742  C 
C 0006  1 
1 3340  1 

C 5165  0 
3 3525  0 
C 4616  1 
20460  1 

0 5155  0 

1 3476  0 


P66CISPS  TC 


SL  1 
DSQ 

nov 


T AU  HZ 
o TB 

VVECTX 

ZERCPPAC 

POOL 

NQRMUNXl 
3 6 D 
PUSH 
0,  l 

360 

DSQ 

MP ACL  IP 
POOL 
DAO 
POOL 
AHZ  LI  H 


MPAC 

DAD 

ALT  ITU  DE 
DALTFYF 
UN  IT 
CALL 

Q TPRGLOG 
*SMNB  * 
EXIT 


UNDI  SP?  1 NCR 


VACRLEAS 
V06N60 
BANKCALL 
REFLASH 
EN  DDF  JOB 
STOPF IRE 


9:12  OCT.  21,  1970  ZFl  V .049  PAGE  810 
USER'S  PAGE  NC.  27  E7  S3 

AHZLIM.TAUH7  TO  PD  0 FOR  MPA  CL  IN  BEL3W 


PUSH  DOWN  Z ANC  V COMPS  FOR  VOEF  BEL  OR 
COMPUTE  X-COMP  AS  ALTITUDE  CORRECTED 


FORM  UNIT  VECTOR  FRCP  SITE  TO  EYE  IN  SM 
COORDINATES  AND  CONVERT  TO  NB 


EXIT  WITH  S 1NEIL00KANGL  )/4  IN  MPAC 
LPPFVSUB  TAKES  IT  FRCP  THFPF 


D 1 SP L Ay S THIS  PASS  IF  FLUNOISP  SET 


GAP  : A S St-  MR  LE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


>:  12  OCT.  21,  1 97 C ZFLY 


049  PAGE  811 


L LUNAR  LANDING  GUIDANCE  EQUATIONS 


USER'S  PAGE  NC.  28 


E7  S3 


1185 

1186 
1 1 87 


PFF  78  LAST  800 
REF  l 

REF  127  LAST  8 lO 


32,3476  0 5527  1 STOPFIRE  TC  DOWNFLAG 

32,3417  CCC16  0 ADRES  P66PR0FL 

32,  3500  1 5 155  1 TC F E NDOF  JOB 


ENTER  TERMINATE  P66HZ  OUTPUTS 


* 118'!  ***********  a******************** 

8 1 m P 66 JO  B SUBROUTINES 


1 191 

1192 

1193 
1 1 °4 
1 1 95 
1 196 


RLF  159 
PFF  5 
REF  6 
REF  7 
RFF  8 
RFF  197 


I A ST  806 
L AST 

LAST  fill 
LAST  fill 
LAST  fill 
LAST  806 


32  ,3503 
32 , 35C4 
32,  3505 

• 


3 4766  1 
5 5 ' 7 4 7 0 
55 ' 750  0 
5 c ' 7 c 1 1 


1197 

1198 

1199 
12Q3 
1201 
1202 
1203 


REF  1 

REF  2 LAST  230 
RFF  37  I AST  8Gfl 
REF  126  L AST  805 
REF  2 LAST  811 
REF  Bfi  LAST  fill 
RFF  223  LAST  795 


E 3,  1442 

32,3507  3 5007  0 

12,3510* 

32,  351  1 55  002  1 

32  ,9512  55*442  0 

32, 3513  22  CC3  1 

32,  35  14  C 0000  1 


1204 


R1  235 
R 1206 
R 120  7 


RFF  4 LAST  160  E7.1647 

*****»*«****«*«**««*«***«««*«**« 
P66JCB  CfNSTANTS 

**«**••«*****« ******** ********** 


ZERQVHZC  CAF  ZERO 

TS  VHZC  *2 

TS  VHZC  + 3 

TS  VHZC  +4 

TS  VHZC  + 5 

TC  0 

E BANK=  PH  SNA  ME 3 

P66CHNG  CAF  E8ANK3 

XCH  FRANK 

OXCH  L 

TS  P HSNAME3 

LXCH  FBANK 

TC  A 


EBANK=  FLV  IRA 


THE  X-COMPONENT  OF  VHZC  NEVIS  MATTERS, 
ANO  BFSIDFS  IT  OVERLAPS  VOGVFPT 


1 20fi 


PEF  2 LAST  229 


32,  35  15  02024  0 1 01  AOR 


GENAOR  0AP10LER 


1209 

1213 


32  ,3516  01507  1 P66KPIP  OEC  .C512 

32,  35  17  *2  156  1 P66Kt>!  PB  DEC  .8192 


SCALES  PIPAS  TO  UNITS  OF  2(5)  M/C  S 


1211 

121? 

1213 


32  ,3520  00  143  1 RIMUZ  OEC 

32, 3f  21  CCC53  1 GHZ  OEC 

32,3522  02260  l P66PM  IN  OEC 


99  .486  B-  14  1.2667  M IN  UNITS  (180/PI  45)  2(14)  CM 

♦ 1.6229?  F —4  P+4  LUNAR  GRAVITY 

37.  5 B-9 


32,35?3  00002  0 0 ALTFYE  ? DEC  5 B-l  5 

32, 35*4  20000  0 


POJGH  DISTANCE  FROM  F YF  TO  L3  ANTENNA 


GAP:  ASSEMBLE  REVISION  S6  OE  AGO  PROGRAM  2EPL1NA  BY  20RQAS1ER 

l LUNAR  LANDING  GUICANCE  FQUAT  ICKS 

1216  32,3525  C1474  1 V06N60  VN 


1217  PEE  1 

1220 


4773  0EC48  = 

32,3526  1*400  0 2 SECS  ID  I OEC 


0660 

SUPFPCll 

200  B— 9 


Rl 221  »•**«*»**•*••*•»« 

*1223  RCDF SIGNA TCW  TRAP 
Rl 22* 


1226 

1227 

1229 

1229 

12V' 

1231 


PFF  1 

REF  1 

PFF  4 LAST  564 
REF  4 LAST  564 


23,2000 
23  ,2453 


SETLO:  30DTRAP 
BANK 

COUNT*  tt/F20PS 


23  ,245  3 
23,2454 
23,  2455 


56  016  0 PITFALL  XCH  BANKRUPT 

C CCC6  1 EXTEND 

;;  0 1 2 1 QXCH  ORUPT 


1 233 
12  34 

1235 

1236 

1237 


RFF  224 
PFF  2 
REF  225 

PEF  19 


IASI  80  7 
l AST  80  2 
L AS  T H l l 
LAST  165 
LAST  812 
LAST  569 


23,2456 
2’,  2457 

23.2460 

23.2461 
23,  2462 
23,2463 


10  000  0 
7 7743  1 
10  000  0 
0 530  1 0 


CS  B IT  7 

AD  MOORFG 

CCS  A 

MASK  OCT377  7 6 
CCS  A 

TC  3 E SUM  E 


1HS  PPF 

1240 

1241  REF 

1242  PFF 

1243  RFF 

1244  RFF 

1245  RFF 

1246  REF 

1247  RFF 

1248  REF 

1248  PEF 

1249  RFF 


4 LAST  80  8 
1 

5 LAST  811 
5?  LAST  792 

3 L AS  T 15  4 
13  LAST  673 
31  LAST  746 

4 LAST  812 


20  LAST  812 


23  ,2466 
23,  2467 
23  ,247'. 
23,2471 
23,  2472 
23  ,2473 
2 3,  2474 
E7,  1646 
23,2475 
23,  2476 
23,2477 


C 0CC6 
CO  C 3 1 
4 OOOC 
7 2 5C0 
55  '647 
3 4752 
c5  *646 


3 4756 
C 5214 


C7305 
22067 
1 5 30  1 


1 

0 

0 

1 

1 

U 

0 

1 

0 

0 

0 

1 


EXTEND 

READ  CHAN31 

COM 

MASK  ALL48ITS 

TS  FLVIRA 

CAF  TWO 

TS  7FRLINA 

CAF  FIVE 

TC  WAITLIST 

EBANK=  ZEKLI NA 

2 C ADR  REDES  MON 

TCF  RESUME 


1250 


23,2500  00C63  l ALL4BI  TS  OCT  00063 


P1251  PEDFS  IGNAT  IfN  MONITOR 


( IN  IT  1 AT  ED  BY  PITFALL  1 


9:12  OCT . 21,1970  2 FLY 

USFP'S  PAGE  NG. 


.049  PAGE  8 1 2 
E7  S3 


APE  WE  IN  P 64  OR  P 66  7 


NO:  RESUME  IMMEDIATELY 

YES 


A 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L LUNAR  LANDING  GUIDANCE  EQUAT  I CAS 


111!  REF  1 

1256  REF  1 


LI,  2C CO 
I 1 ,230? 


SETLCC  F 2 DPS*  1 1 
RANK 

COUNT*  H/F2DPS 


1255  PEF  5 LAST  812 

1256  REF  12  LAST  RC  8 

1257  REF  5 LAST  767 

1258 
1250 
1 2f»p 

1261  RFF  1 

1262  REF  6 LAST  812 

1263  RFF  127  1 AST  811 

1 ? 66  RFF  7 LAST  813 

1265  REF  1 


I 1,  2302  e5  *666  0 

I I ,2303  3 6757  0 

l I ,2306  C 5235  0 

I 1,  2 3c 5 0 0006  1 

I I ,?  306  00  031  0 

1 1,  2 307  6 CCOC  0 

1 1,  2310  7 2365  1 

I 1 ,2311  57*667  0 

11,  2312  56  CC 1 1 

II  ,2313  11  *667  1 

1 1 ,2  316  1 2303  1 


PPEM3N1  TS 
PREM0N2  CAF 
TC 

PEOFSMON  FXTENO 
R E AO 
COM 
MASK 
XC.H 

TS 

CCS 

TCF 


ZERLINA 
SFVFN 
VAPOEl  AY 

31 

OS  T00063 
ELV IRA 
L 

EL  VIRA 
PREM0N2 


1266 

1267 

1258 

1269 

1270 

1271 

1272 

1273 
1276 


RFF 

PEF 

RCF 

RFF 


LAST  813 
LAST  813 

LAST  786 
LAST  786 

LAST  786 
LAST  768 


1 1,  2315 
11,2316 
1 1,  2317 
1 1 ,2320 
1 1 ,2  321 

I 1,  2 322 

II  ,2  323 
11  ,2326 
1 1,  2325 


1C  COl  1 
l 2326  0 
11*666  0 
1 2302  0 
C 6022  1 
3 6760  0 

0 00C6  1 
C5  013  0 

1 5272  1 


CCS  L 

TCF  COUNT 'EM 

CCS  ZERLINA 

TCF  PREMONl 

RESET  R PT  TC  C13STAIL 

CAF  BIT12 

EXTENO 

WOR  CHAN13 

TCF  TASKOVER 


1275 

1276 

1277 

1278 

1279 


RFF  33  LAST  783 
REF  5 LAST  Rl2 
RCF  1 


11,2326 
11,  2327 
1 1,  2330 


11  ,2331 
1 l,  2322 


3 6737 
C CCC6 
C2  031 
0 0006 
1 232  1 


0 

1 


COUNT*  EM  CAF 

EXTENO 
RAND 
EXT  END 

BZF 


BIT  13 
CHAN31 
PE  SE  TRPT 


128G 

1281 

1282 

1283 

1286 


REF  36  LAST  805 

REF  8 LAST  809 
REF  226  LAST  812 
REE  2 LAST  813 


11  ,2  3 33 
11,2336 

I 1, 2 3 35 

II  ,2336 
11,  2337 


3 6762  1 
C CCC6  1 
o;  C 30  0 
10  000  0 
1 2321  1 


F X T END 
3 ANO 
CCS 
TCF 


RIT10 

:man?o 

RESET  RPT 


1285 
1 286 

1287 

1288 
1280 
12  90 
1201 
1292 
1 293 


1206 

1235 

1206 


REF  129  LAST  813 

p r f i 

RFF  227  LAST  HI? 
REF  78  LAST  7<J5 

REF  6 LAST  8C6 
REF  13C  L AST  8 13 
REF  1 

REF  228  LAST  813 
REF  70  LAST  813 
REF  7 LAST  813 
REF  131  l AST  813 
REF  l 


11,2^61  7 6766 

I 1,  2362  1C  COO 

I I ,2363  6 6753 

1 1 ,2  366  27*665 

I 1,  2 36  5 2 OCCl 

I I ,2366  7 6767 

l 1,  ’ 36  7 1 C CCO 

I 1,  ? 350  3 6753 

11, 2 351  2 7*665 

11,  2352  !•  0C01 

I I ,2353  7 6753 


CA  L 

MASK  -A  ZB  IT 
CCS  A 

CS  ONE 

AOS  AZC0UNT1 

CA  L 

MASK  *AZeiT 
CCS  A 

CA  ONF 

ADS  AZC0UNT1 

r A L 

MASK  -EL6IT 


9 : 12  CCT.  21  ,1970  7FL  Y 


.069  PAGE  813 


USER 'S  PAGE  NO.  30 


E7  S3 


00  ANY  81  TS  APPEAR  THIS  PASS? 
Y:  CONTINUE  MONITOR 


N:  ANY  LAST  PASS? 

Y:  COUNT  tpH,  PESET  RUPT,  TERMINATE 

N:  HAS  ZFR1  INA  REACHFO  ZERO  YfcT? 

N:  DIMINISH  ZERLINA,  CONTINUE 
y:  RESET  RUPT,  TERMINATE 


ARE  WE  IN  ATTI  TUDE-HOLO? 


NO:  DOES  ASS  HAVE  CONTROL? 


NO 


GAP:  ASSEMBLE  REVISION  56  UF  A6C  PRUC-RAM  7 ERL  IMA  BY  ZJROA  STfcR 


LUNAR  LANDING  GUIDANCE  EOUATICKS 


1297  REF  229  LAST  813 

1298  PCF  Bf  LAST  R13 

1299  REF  6 LAST  806 

130r  PEF  1 12  LAST  813 

13‘1  PEF  1 

I n?  PFF  ?3f  l AST  814 

13n3  PEF  Rl  LAST  814 

1304  RFF  7 LAST  B1 4 

13)5  PFF  3 LAST  813 


1 1,  7 354  1C  COO  0 
1 1 ,2 355  4 .753  0 -FL 

I 1,2256  27*644  l 

iif2 T57  3 non  1 0 

I I ,2  360  7 4752  1 

1 1,23*1  m coo  o 

I 1 ,2  )62  3 4753  l + EL 

II  ,2363  27*644  1 

1 1,  2364  1 2221  1 


CC  S 

CS 

AOS 

C A 

MASK 

CC  S 
CA 
AOS 
TCP 


ONE 

ELCCUKT1 

L 

♦ ELP  IT 
A 

ONE 

ELCOUNTl 

PESETRPT 


9:  12  OCT.  21  ,1970  Z FLY 


.049  PAGE  »14 


USER  'S  9 A GE  NO.  31 


E7  S3 


j 1 306  THESE  FQUI  VAl  ENC  IPS  ARE  BASED  CN  GSCP  CHAPTER  4,  REVISION  16  OF  P64LM 


1337 

1308 

1309 

1310 

1311 


REF  37  LAST  709 
REF  37  LAST  746 

RFF  37  LAST  803 

PEF  4 1 LAST  775 


4752  +FLMT  = BI  T2  -PITCH 

4753  -EL81T  = 3 1 T 1 +P1TCH 

4747  ♦AZBIT  = B1T5 

4 1 46  -AZBIT  = 51  T6 

11,2365  00063  1 CCT00063  OCT  00063 


R 1 3 1 2 
* 1 314 

R 1315 


• *** «»«**«*, 

R.  0.0.  TRAP 


1317  REF  2 LAST  812  23,  2000 

1 318  23,2501 

1319  REF  2 LAST  812  TO  813:  22  22* 


SETLOC  RODTRAP 
RANK 

COUNT*  **/F2DPS 


132 

1321 

1322 

1323 

1324 
1 125 


RFF  30  LAST  812 
23]  LAST  814 
REF  53  LAST  812 
RFF  82  LAST  814 
PEF  3 I AST  80  3 
PEF  21  LAST  8 1 2 


23,2501  7 4745  1 

23  ,2502  10  000  0 

23,  2503  4 4752  1 

23  ,2504  6 4753  1 

23,2  50  5 27*  744  C 

23,  2506  1 5 30  1 1 


OESCB  ITS  MASS  RI T7 

CCS  A 

C S TWO 

AO  ONE 

AOS  POOCCUNT 

TIF  RESUME 


COME  HERE  FROM  MARKRUPT  COOING  WITH  PIT 
7 DR  4 OF  CHANNEL  16  IN  A:  BIT  7 MEANS 
- RATE  INCREMENT,  BIT  6 ♦ INCREMENT 


TRAP  IS  RESET  WHEN  SWITCH  IS  RELEASED 


1327  REF 

132fl 


L AST 


39 


31  ,3413 
31, 2000 
31,3413 


BANK  31 
SETLCC  F 2 0 P S*  3 1 
BANK 


13?o  REF 


3 LAST  784  TO  800:  5 38 


540* 


COUNT*  T5/F2  0PS 
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a 1332  DOUBLE  PRECISION  ROOT  FINDER  SIRPCLTINE  (BY  ALLAN  KLUMPP) 

Pi  3 3.3  4 4*4**f*  *****  **4  4 4 4 «**«******«««  ********  ******************************************************************  4 ***  *** 


* ms  N N-l 

K1336  ROOTPSRS  FINOS  ONE  ROOT  OF  THE  POWER  SERIES  A X * A X ♦ ...  ♦ A X ♦ A 

R133B  N N-l  10 


R 1 340  USING  NEWTON  ' S M£  THOD  STARTING  WITH  AN  INITIAL  GUESS 


41342  A SP 

A1343  L SP 

A 1 394  MPAC  OP 

A 1345  LOC- 2N  OP 

A 1 346 

A1347  LOC  OP 

4 1348  LOC  + 2 SP 


FOR  THE  ROOT.  THE  ENTERING  DATA  MUST  BE  AS  FDLIJWS: 

LOC- 3 AORFS  FUR  REFERENCING  PWR  COE  TABL 

N-l  MIS  THE  DFG1FF  OF  THF  POWER  SERIES 

X INITIAL  GUESS  FOR  ROOT 

AC  0) 

AIN) 

PRECROOT  PREC  R 00  OF  ROOT  (AS  FPACT  OF  1ST  GUESS) 


^1340  THE  OP  RESULT  IS  LEFT  IN  MPAC  UPON  FX|T,  AND  A SP  COUNT  OF  THE  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC*2. 

Hl)5l  RETURN  IS  NORMALLY  TO  LOC(TC  R00TPSRS1+3.  IF  ROOTPSRS  FAILS  TO  CONVERGE  IN  8 PASSES,  RETURN  IS  TO  LOC  + 1 AND 

<1351  OLTPLTS  ARE  EOT  TO  BE  TRUSTEC. 


R13S4  PRECAUTION:  RDOTPSRS  MAKES  NO  CHECKS  FOR  OVERFLOW  CR  FfR  IMPROPFR  USAGE.  IMPROPER  USAGE  COULD 

Rl*B6  PRECLUDE  CONVERGENCE  OR  REQUIRE  EXCESSIVE  ITERATIONS.  AS  A SPECIFIC  EXAMPLE,  ROOTPSRS  FORMS  A DERIVATIVE 

«135E  C OFFF I f I E NT  TABLE  BY  MLLTI  PLY  1NG  EACH  AIM  BY  I,  WHERE  I RANGES  FROM  1 TO  N.  IF  AN  ELEMENT  OF  THE  DERIVATIVE 

R136T  COEFFICIENT  TABLE  = 1 OR  > 1 IN  MAGNITUDE,  ONLY  THE  EXCESS  IS  RETAINEC*  ROCTPSRS  MAY  CONVERGE  ON  THE  CORRECT 

-136'  PEC  T NCNFTHFLESS,  BUT  IT  MAY  TAKE  AN  EXCESSIVE  NUMBER  OF  ITERATIONS.  THEREFORE  THE  USER  SHOULD  RECCGNI  ZL : 


R 1 364  l.  USER'S  RESPONSIBILITY  TC  ASSIRE  THAT  I X A(I)  < ! IN  MAGNITUDE  FOR  ALl  I. 


«1l6S  2.  USER'S  RFS  PC  NS  I P 11  IT  Y TO  ASS IJR  E 0 V FR  FL  3 W W I LL  NOT  OCCUR  I N E VA  LUA  TI  NG  El  THER  THE  P E S I DUAL  OP  THF  OER  I V AT  IV  E 

<136H  POWER  SERIFS.  THIS  OVERFLCW  WCULT  BE  PROOUCED  BY  SUBROUTINE  POWRSERS.  CALLEO  BY  ROOTPSRS,  AND  MIGHT  NOT 

Ml  3 7 j PR  r <"LU  D E FVENTUAL  CONVERGENCE. 


P 1 3 71  3.  AT  PPF  SENT , ERASABLE  LCCAT  If  NS  ARE  RESEPVED  nNLY  FDR  N UP  TO  5.  AN  N IN  EXCESS  OF  5 will  PPCOUCE  CHAOS. 

RH71  All  ERASAPLFS  USED  n Y ROOTPSRS  ARE  UNSW1TCHE0  LOCATED  IN  THE  REGION  FROM  MPAC-33  OCT  TO  MPAC+7. 


R1375 


4.  TEF  ITERATION  COUNT  RETURN  EC  IN  MPAC  + 2 MAY  BE  USED  TO  DETECT  ABNORMAL  PERFORMANCE. 


4 1377 


STORE  ENTERING  DATA,  INITlIZE  ERASABLES 


1378 

137Q  REF  1 

1380  REF  1 

1 3 Rl  REF  317  L AST  PlO 

1332  PEF  1 

1383  REF  1 

1 3 R4  PFF  3 Ip  LAST  fll5 

1 3B5  REF  319  LAST  81 5 


21, 3413  i CCC6  1 
31  ,14  14  22  132  1 

11  ,341 5 54  1 17  1 

31,3416  S2  1 fcO  1 
31  ,3417  3 3536  1 

31,  1 4 20  ‘4  141  1 

11,  3421  54  161  0 

31  ,3422  10  160  l 


ROOTPSRS 


FXTEND 

QXCH  RETROOT 
TS  PWRPTR 

OXCH  MPAC 

CA  OERTABLl 

TS  oerptr 

ts  upa: 

CCS  “PAC 


RE  TURN  ADRE  S 
PWR  TABL  POINTER 

PWR  TABL  AORES , N-l 

OER  TABL  POINTER 

DFR  TABL  AORES 

NO  POWER  SERIES  OF  DEGREE  1 OR  LESS 


iAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERLINA  «Y  ZOROASTER 
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1386  REF  320  LAST 

1307  RFF  16C  I AST 

1388  REF  5 LAST 


8 1 5 
311 
79  3 


31 .3423 

31 . 3424 
31.  3425 


54  162  0 
3 4755  1 
54  U 3 1 


MPAC 
7 ERO 
MODE 


II?? 

1392 
13=>3 
1 394 
1395 
1 396 
1397 
1390 
1 3 Q9 


RFF  321  LAST  8l6 
REF  1 

REF  322  LAST  H16 


. 

. 

31  ,3430 
J 1,  14  ? 1 
3 1 ,1  .1? 
31 ,3633 
11,  1434 
31  ,3635 
3 1,  34  36 
31,  14  37 


C CCC6  1 
3 0155  0 
52  127  1 
CC  157  1 
3 OOC  5 1 
0 7321  O 
0 4713  0 
01226  0 
52  155  1 
52  125  0 


EXTEND 
DC  A 
DXCH 
I NDE  X 


CADR 

DXCH 

DXCH 


MPAC 
ROOT  PS 

“PAC 

SHORTMP 
USPRCADR 
ABS 
MPAC 
DXCP1  T 


REF  2 
RFF  324 


LAST  915 
LAST  «16 


1 1,  3640 
31  ,3441 
31,3442 
1 1,  3643 


0006  1 
01  17  0 
C004  0 

; 155  i 


E X TEND 

INDEX  PWPPTR 
DC  A 3 
OXCH  MPAC 


1405 

14D6 
1 4 07 
14('8 
14  39 

1410 

1411 
14  12 

1413 

1414 
K15 

1416 

1417 

1418 

1419 

U20 


RFF 

RFF 

REF 


RFF 

REF 

REF 

REF 

REF 

RFF 


LAST  016 

LAST  816 


LAST 
LA  ST 
L AST 


31 ,3664  3 01 60  0 


3 1,  3445 
»1  , 3466 
31  ,3447 
11, 3450 
31  ,345  1 
31,3452 
11,  1451 
11  ,3454 
31, 3455 
11,  3456 
31  ,3457 
31,  3460 
31  ,3461 
31 ,3462 
11,  1463 


140  0 DERf.  LOUP  TS 


6 4753  1 

0 7330  0 
C 0006  1 
5 0117  0 
2 CCC2  0 

51  155  1 
50  141  0 

52  CC4  1 
4 4752  1 
26  117  1 
4 4752  1 
26  141  1 
10  140  0 

1 3445  0 


AD 
TC 

F XTFND 
INDEX 
DC  A 
DXCH 
INDEX 
OXCH 


CS 

ADS 

CS 

AOS 

CCS 

TCP 


TWO 

PW  RPT R 

TWO 

DERPTR 

PWRCNT 

DERCLOOP 


1422 
1 473 
1424 
1475 

1426 

1427 


RTF  327  LAST  016 


11,  3464  C CCC6  L ROOTLOOP  CXTEND 

31,  3465  3 ''127  0 DC  * POOTPS 

31  ,3466  52  155  l DXCH  MPAC 

31, 3467  C 0006  1 E XTEND 

31  ,3470  3 0 162  1 DC  A MPAC 

31  ,3471  C 7227  1 TC  POWRS  ERS 
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N-2 

MODE  USED  AS  ITERATION  COUNTER.  MODE 
MUST  BE  PCS  SO  ABS  WON'T  CUMP  MPAC  + 3 ETC 


COMPUTE  CRITERION  TP  STOP  ITERATING 


FETCH  ROOT  GUESS,  KEEPING  IT  IN  H.PAC 

AND  IN  ROOTPS 

PWR  TABL  AORES 

PRECROOT  TO  A 

YIELDS  DP  PRODUCT  IN  MPAC 

YIELDS  ABVAL  OF  CRITERION  ON  DX  IN  MPAC 
CRI  TER  I ON 

SET  UP  DER  CDF  TABL 


AIN)  TO  mpac 

N-l  TO  A 
LOOP  COUNTER 

YIELDS  DERCOF  = I X All)  IN  MPAC 

All -L ) TO  MPAC,  FETCHING  DERCOF 
DERCOF  TO  DEP  TABL 
DECREMENT  P W3  POINTER 
DECREMENT  DEP  PCINTER 

CONVERGE  ON  ROOT 

FETCH  CURRENT  ROOT 
LEAVE  IN  MPAC 

LOAD  A,  L WITH  DER  TARL  ADR6S , N-2 
YIELDS  DERIVATIVE  IN  MPAC 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 
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1 43? 

t 431 

1432 

1433 

1434 


REF  3 
PFF  329 
REF  8C 


LAST 
L AST 
LAST 


816 
8 1 6 
807 


RFF  33r  L AST  Rl7 


31  ,34  72 

. 

31 , 7^74 
71  ,3475 
3 1,  3416 
31,  1477 


52  131  0 
C CCC6  1 
0160  0 


31  ,3500  0 7227  1 


EXTEND 

DC A ROOT  PS 

OXCII  MPAC 

DXCH  BUF 

EXTEND 

DC A MPAC 

TC  POWRSERS 


TC 


1439 


REF  331 
PEF  4 


8 1 7 
817 


ll’f & 


20  127  1 


EXTEND 

DCS  MPAC 

DAS  R DOT  PS 


1443 

1441 

1442 

1443 

1444 


31,  3506 
31,3507 
31  ,3510 
31,  3511 
31  ,3512 


C 4713  0 
01226  (‘ 
0 0006  1 
4 0125  0 
20  155  1 


TC  USPPCADR 

C ADR  ABS 

EXT  END 

DCS  DXCRIT 

DAS  MPAC 


1445 

1446 

1447 

1448 


RFF  6 
RTF  2o 
RFF  232 
RFF  2 


1 A ST 
L AST 
LAST 
LAST 


816 
78  1 

814 

815 


31,3513 
1 1 . 1 - 

31,3515 
31,  3 5 16 


; 0163  0 
7 4750  0 
10  000  0 
C C 132  l 


CA 


BADROOT  TC 


1440 

1450 

1451 

1452 

1453 
14  54 
1455 
1 456 
14  57 

1458 

1459 
146^ 

1461 

1462 

1463 


REF  7 
RFF  333 
RFF  1 
RFF  1 
RFF  1 
RFF  334 
PEF  2 
REF  2 
REF  3 
REF  5 
REF  335 
RFF  8 
RFF  336 
R C F 3 


L AST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
LA  ST 
L AST 


8 17 
81  7 
817 
817 
817 
817 
81  7 
81  7 
8 1 7 


31,3517 
31,  ' 2 
1,  3521 
31  ,3522 
31  ,3523 
31, 3524 
71  ,3525 
31,3526 
1, 

71 ,3530 

31,  3 5 31 
31  ,353? 
31  ,3533 

31, 3534 

71  ,3535 


24  163  0 
1C  154  0 
1 3464  C 
1 3524  0 
1 3530  0 
10  155  1 
1 3464  C 
1 3530  C 
1 35?0  C 
52  127  1 
5 2 1 55  1 
3 0163  0 
54  156  1 
50  132  1 
1 0002  1 


I NCR 
CCS 
TCF 
TCF 
TCF 

TE  STLDOX  ;c  S 
TCF 
TCF 
TCF 

RCCTSTOR  DXCH 
DXCH 
CA 
TS 


MODE 

MPAC 

ROOTLOOP 
T E STL  DD  X 
ROOTSTOR 
MPAC 

RDOTinOP 

R OCT  S T CR 

ROOTSTOR 

ROOT  PS 

MPAC 

MOOE 

MPAC 

RF  TRO0T 


PFF 


1 


31,  3536 


CC147  0 OE R TAB  LL  ADRES  DFRCCFN 


R 1 465 
R 1467 
Rl  463 


TRASHY  IITTLF  SCRPOITINFS 

RFF  161  LAST  816  31,3537  3 4755  1 ZEROMPAC  CAF 
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CURRENT  ROOT  TO  MPAC,  FETCHING  DERIVTIVE 
LEAVE  DERIVATIVE  IN  BUF  AS  DIVISOR 

LOAD  A,  L WITH  PWR  TABL  ADRES , N-L 
YIELDS  RESIDUAL  IN  MPAC 


YIELOS  -DX  IN  MPAC 


FETCH  OX,  LEAVING  -DX  IN  MPAC 
CORRECTED  ROOT  NOW  IN  ROOTPS 


YIFLDS  ABS(DX)  IN  MPAC 

ABS(DX)-ABSIOXCRIT)  IN  MPAC 

KLUKPP  SAYS  GIVE  UP  AFTER  EIGHT  PASSES 


INCREMENT  ITEP.ATICN  COUNTER 
TEST  HI  ORDER  DX 


TEST  LO  ORDER  CX 


STORE  SP  ITERATION  COUNT  IN  MPAC*2 


ROUTINE  TO  ZERO  THE  FIRST  COMPONENT 


» AP  : ASSFPRLE  REVISION  Sh  CF  AGC  PROGRAM  ZERLINA  BV  ZOROASTER 
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USEP'S  PAGE  NO.  35  E7  S3 


H71  REF  337  LAST  8 17 

147?  PFF  338  |AST  918 

1473  pEF  1 


31,  3540  5 4 1*4  0 

31 ,3541  54  155  1 

31,  3542  1 6C73  1 


TS  MPAC  CF  A VECTOR  IK  «PAC.  "T  CF  OANZ  IGn 

TS  MPAC  ♦ 1 COULD  BF  A •' TC  0"  AT  THE  F XPE  NSE  OF 

TCT  DANZIG  A TINY  AMOJNT  OF  TIME. 


1 74 

1475 

1476 

1477 


REF  16? 
RFF  339 
PFF  34C 
REF  ? 


LAST 
l A ST 
L AST 
I AST 


31,3543 
31  ,3544 
31, 3545 
31  ,3546 


3 47  55 
54  157 

54  160 
1 6073 


ZEROM ID 


C AF 
TS 
TS 
TCF 


ZERO 

MP  AC  *3 

MP  AC  *■  4 

DAN?  1G 


ROUTINE  TG  ZERC  THE  *M  ODLF  COMPONENT 
OF  A VFCTD*  IN  MPAC.  "TCF  DANZIG" 
CCULO  BE  A "TC  Q"  AT  THE  EXPENSE  OF 
A TINY  AMOUNT  OF  TIME. 


1480 
140  1 
1482 
1 48  3 
14  84 


REF  341  LAST 
PFF  26  LAST 


PFF  2?8  LAST  810 
REF  5 LAST  3G5 
REF  34?  LAST  °1  8 
REF  3 l AST  0 iR 


3 1,  3547  22  1 54  l 

31,3550  50  120  1 

31  ,3551  3 GOOD  1 

3 1,  3552  C 46  16  1 
31  ,3553  61713  D 

31  ,9554  54  154  0 

3 1,  3555  1 6C  7 3 1 


MPACLIM  LXCH 
INOE  X 
CA 
TC 

CADR 

TS 

TCF 


BAKKC ALl 

l im  nsue 

MPAC 

DANZIG 


THIS  SJBROJTINE  L mrS  THF  CONTENTS  DF 
MPAC  TO  THE  SP  CCKTFKTS  OF  PD  3 


1485 

1486 
1 4 87 
14  8 8 
1483 


PEF 
PEE 
REF 
f 1 F 
RFF 


1? 

2 

27 

22 

131 


LAST 
LAST 
LAST 
LAST 
L AST 


795 
79  5 
8 18 
764 
810 


31  ,3  354 
? 1,  3 5 c 7 
31,  3560 


11  ,3561 
31,  3562 


51*  346 
4 24C 7 
50  12C 
54  046 
1 6C  5 1 


INTPRETX 


INDEX 

CS 

INDEX 

TS 

TCF 


W C HP  HAS  E 
T ARGTDEX 
F I XLOC 
X 1 

I NTPRET 


SET  XI  DN  THE  WAY  70  THE  INTERPRETER 


1490 

1491 

1492 
1 493 


PEF  17  LAST  795 
REF  1 

REF  4 LAST  321 


31  ,3563  3 1642  0 TDISPSET  CA  TTF/8 

31,3564  C CCC6  L EXTEND 

31,  3565  7 4750  0 MP  TSCALINV 

31  ,3566  53*476  1 DXCH  TTFDISP 


1494  R CF  198  LAST  811 


21, 3567  C 0002  0 


TC  0 


1515  RFF  11  LAST  734 

1516  RFF  343  LAST  018 


31.3570  0 4645  1 LPDFVSUB  TC 

31.3571  54  161  0 TS 


MAKECADR 
MPAC  *5 


15  17 
1 51  8 
1519 
1523 
1521 
1 52? 

1523 

1524 

1525 


RFF  344 

REF  229 
REF  1 
PEF  1 
REF  l 

RFF  1 
REF  1 


LAST  818 
LAST  818 


31,  357  2 
31  ,3573 
31 ,3  574 
31, 3575 
31  ,3576 
31 , 3577 
31, 3600 
31  ,36C1 
31,  3602 


155  1 
20  001  1 
C 4616  1 
61656  0 

6 3637  0 
( 1353  0 
0 0006  1 

7 3636  0 
55*667  0 


DXCH  MPAC 

ODOUBL 

TC  8ANKCALL 

CADR  SPARC  SI  N -1 

AO  1/2DFG 

AD  FLBIAS 

E X TEND 

MP  180DEGS 

TS  LOOK ANG 1 


1 526 

1527 

1528 

1529 

1530 


REF 

RFF 


1 

2 LAST  818 


1 ! ,3604 
11,  3605 
31  ,3606 
31,  36C7 


6 1667  1 
C C0C6  1 


EXTEND  HERE  IF  LOOKANGL  IS  NC T BETWEEN  ZERO  AND 

BZMF  *5  74  [T  is  SET  Tr  so  FOR  DISPLAY 

CS  DEC  75 

AD  LOOKANGL 

EXTEND 


GAP; 


iSSEMOLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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1531 

153? 

1533 


15  34 
1535 
153ft 
1537 
1533 
1 530 
1543 

1541 

1542 

1543 

l 544 
1 545 
1 54ft 
1 547 
1 548 


RFF  2 
RFF  345 
REF  1 
RFF  11 
RFF  34ft 

REF  loQ 
RTF  163 
REF  347 

RFF  348 
REF  2 
REF  230 
RFF  ft 


LAST 
LAST 
L AST 

L AST 
LAST 
L AST 
LAST 


816 

819 

Bl8 

818 

819 

819 
319 
ft  1 8 
818 


31 ,3610  ft  3613  0 
1 1,  3611  3 3635  1 

31 ,3612  55  *667  0 

0 

31.3615  52  155  1 

31.3616  3 3640  0 

31,  ^617 

31  ,3620 
31,  3621 
3 1,  3622 

31 .3623 

31. 3624 


0 7321  0 
3 0155  0 
6 CCCO  1 
54  002  1 
3 4755  1 
26  154  0 


31  ,3625 
31  ,3626 
31, 1627 
31 ,3630 
3 1,  363  1 


22  154  1 
3 3635  1 
C 4616  1 
61713  0 
55*666  1 


BZMF  +3 
CAF  DEC99 

TS  LOGKANGL 


FVSCALE 
SHOP  TMP 
MP  AC 


HP  AC 
DEC99 
9ANKCALL 
L IM  ITSUB 
FORVDSKY 


31,  3634  001  13  1 DEC  75 


DEC 


75 


31  ,3635  CO  143  1 

31, 3636  CC264  1 


DEC99  DEC  99 

18C0EGS  DEC  1R0 


31,3637  00056  l 


1/2DEG  OEC  .00278 

FVSCALE  DEC  328  .08<*  8 


1556  REF  3 LAST  4^4 

1557 

1558  REF  32  LAST  Z96 

1 559 

1560  REF  1 


31,  3641  0 56  5 3 

. 

3 1,  364  3 C 56C0 
3 1,  1644  01406 

31,3645  1 3305 


1 14C6P00  TC 

Of  T 

1 14C6ALM  TC 
l DOT 

0 TCF 


POOD 00 

21406 

ALARM 


01406 
RAT  ESTOP 


1561 

1562  RFF 


31,  3646  0 0006  1 OVFOE  SC 

31  ,3647  23*456  1 


E XTEND 

OXCH  1VFRFT 


1563  REF  33  LAST  819 

1564 


31,3650  0 5600  1 

1 1,  1ft 5 1 0 1 4 If  0 


TC  ALARM 

OCT  01410 
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RESCALE  FORVFL  TO  1 F/S/BIT 


ROUND  TO  NEAR  t ST  F/S 


TRUNCATE  AT  09  F/S 


SCALES  2(5)  M/CS  TO  1 F/S/BIT 


GAP:  ASSEMBLE  REVISION  5fe  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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USER'S  PAGE  NC.  37  E7  S3 


1565 

1565  RFF  40  LAST  799 

1567  REF  5 LAST  798 

1568 


31,3652  C CCC4  0 
31,  365  3 C 4674  0 
31  ,3654  4 01 66  1 

21,  3655  C 0C03  1 


INHINT 

T;  I3NKCALL 

FCAUR  ST  OP RAT  F 
RE  LI  NT 


MUST  USE  INHINT,  IBNKCALL,  R EL  IN  T 
BECAUSE  DAP  COULD  INTERRUPT  ST  OPR  ATE  AND 
BECAUSE  WE  C3ME  FROM  P 66HZ  VIA  BANKCALL 


1 56°  RFF  1 64  LAST  8 19 
1570  RFF  3 LAST  8C9 


C A ZERO 

TS  DVFIND 


1571 


REF  2 LAST  8l9 


31,3660  0 1456 


TC 


OVFPET 


ojS72  ******  **************  **************  ******************************************  **  ************** 

H157/.  SPFC  IAI  I7FD  "PHASCHNG"  SUBR0L7INF 

Rl575  **************************************************************************************************************** 


1577  REF  4 LAST  795 


> 1581 


FASTCHNG  = SERVCHNG 

****** ****** ***************** 


********* 


1593  REF  2 LAST  124  C5,  K02 

15P4  RFF  2 LAST  124  E5.14I2 

1595  REF  ? LAST  124  E5,  14  22 

1586  REF  2 LAST  124  E5,1432 

lr.-<7  I f F ? LAST  124  TS.1436 

1598  PEF  t 2 LAST  124  E5,  1442 

* 1589  ************************•****: 

H 1 59  l LUNAR  I ANOING  CONSTANTS 

: 1 69?  **********  **************  ■>■■**« 


ROG 

VDG 

ADG 

V 0G2TT  F = 

ADG2TTF  = 
JDG2TTF  = 


RBRFG  X 
V 8RF0X 
ABRFGX 
VBR  EG* 

ABRFG* 

JBRFG* 


*********************************************  ************* 
*************  ********************************************* 


1594  REF  6 LAST  792  31  ,3661  01563  0 TABLTTFL  ACRES  TABLTTF  *3 


ADDRESS  FOR  REFERENCING  TTF  TABLE 


1505  REF  28  LAST  913 

1596  REF  30  LAST  917 

1597 


4740  TTF  SCALE  = B1  Tl2 

4750  TSCAL  INV  = B IT4 

31.3662  77630  1 -OEClOB  DEC  -103 

31.3663  00155  0 P64CB  OCT  00155 

21.3664  C0143  1 +DEC99  DEC  +99 

’1,  3665  75340  1 TR  EOF  SCL  DEC  -.08 


0.3  DEGREES  SCALFO  AT  CDU  SCALING 


75340  1 


TR  EOF SCL  DEC 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


LUNAR  LANDING  GUIDANCE  EQUATIONS 

31,  3666  00436  0 F LEACH 


.01 746 


16  2 REF  2 LAST  7B9  31  ,3666 


1603 

1604 


31,3667  C l 542  0 PRCJMAX  DEC 


EL  EACH 

.42262  B-3 


31,  3670  01C22  0 PROJMIN  DEC  . 25882  B-3 


160  5 
1636 

1607 

1608 
1 600 
1610 

161  1 
un 
1612 
1612 
1613 

1613 

1614 

1614 

1615 
1 6l  5 

1616 
1616 

R 1 6 1 7 
1 16l<» 


RFF 

REF 


31  ,3671 
31,  367 2 

22  ,3647 

. 

. 


22,  3647 
22,3650 

. ' i 

22,  3652 
22  ,3653 
22,3654 
2 2,  36  55 

22,  3657 
22, 3660 
2?  ,3661 
22,  3662 


01477  1 VC6N63 
01500  0 V06N64 


CCC21  1 
14161  l 
01440  n 
OOOCO  1 
12525  0 
12525  C 
14000  1 
OOOCO  1 
30000  l 
00000  1 
77534  0 
45C74  0 


VN  0663 

VN  0664 

BANK  22 
SFTLtIC  LANOCNST 

BANK 

COUNT*  $*/F20PS 


2DEC 
2 DEC 
2DEC 
2DEC 
2 DEC 
2 DEC 


4.34546769 
100  B- 11 
.333333333 
.375 
.750 

-.0  2 B—  1 


*****  *****  ****** 


9:12  CCT.  21,1970  Z FLY  .049  PAGE  021 
USER  • S PAGE  NO.  3B  F7  S3 

ONE  DEGREE 

ONE  DEGREE 

S IN  (25 ' 1/8  TO  COMPARE  WITH  PROJ 

SIN(l5')/8  TO  COMPARE  WITH  PROJ 

P63 

P64 


2 


SSFMBIE  REVISION  56  UF  AG:  RRfGRAM  7FRLINA  BY  ZORCAST  6F 


3357 

O'  SR 
00  50 
3160 
0061 
3 36? 

0063 
0066 

33661  REF  1 
0066 2 REF  ?5  I AST 
0066  3 P FF  ?6  I A <T 


REF  ? 
REF  56 
PEF  2P0 


LAST 
I AST 
LAST 


>1  ,2  (0< 
21.2000 
21,  2C06 


21  ,2  306 
M « 2 07 
21,  20  10 
21  ,201  1 
21,  2012 

21.2013 

21 .2014 

21. 2015 
21  ,?016 
21,2017 


0 2035  0 
4 4 7c5  0 

1 2013  o 

0 2035  0 

3 4752  0 
54  C02  l 
C C004  0 

4 2C  3 1 0 

7 Gill  1 
54  111  1 


BANK  21 
SETLCC  Rll 
BANK 

FBANK=  PHS  NAME  5 
COUNT*  $ f / P7P 


DAPBI TS 
DAPBOOL S 
DAPBOflLS 


0065 

3066  PEF 
0067 


21  ,?p?6 


C 0006  1 
2 2C30  C 
62  006  0 


EXTEND 

OCA  IN  TAB  TAD 
DTCB 


336R 

0GS9 

0069 

3369  1 

0069? 

00  70 

0071 


PEF 

EFF 

REF 


E 3,  1446 

.21 ,2027 
21  ,2030 
21, 2031 
’1  ,2032 
21 , ?033 
2 i , 2 3 4 


03414  0 CNTARTAD  2CAD3 
12063  1 
4C640  1 
00554  0 
00106  0 
00  10  7 1 


E HANK=  PHS  NAME? 


DAPBI TS 
1DEGDB 
1 DEC70 
1DEC  7 1 


UCT 

OCT 

DEC 

DFC 


0072 
3 473 

0074 

0075 


REF 

PEF 


35,3414 
05,  20C0 

, 


BANK  0 5 
SETICC  ABORTSl 
BANK 

COUNT*  S6/P70 


3376 
00  77 
00  78 


05,  3/,  H 2 34  17  0 
05  ,3415  54  0 17  0 

05,34  16  5 0017  1 

05,  34  17  1 3420  0 


CONTABRT  CAP  AHRTJAOR 

TS  BRUPT 

RESUME 

ABKTJAD3  TCF  ABPTJASK 

ARRTJASK  CAF  0CTAL27 

AO  0 


9:12  UCT.  21.1970  ZFLY  .049  PAGE  622 
USER'S  PAGF  NG.  1 F3  S3 


COME  HERE 

FROM  QUARTASK 

COME  HERE 

FROM  QUARTASK 

CAPBITS  = 

OCT  40640  = BITS  6,  ft,  9,  15 

WHICH  RFStT  ULLAGE  , DRIFT,  XOVRIINH, 
AND  PULSES  FLAGS 

INSURF  DAP  OEADBANC  IS  SET  TO  1 DEGREE 

TREATING  FLAGWQRDS  THUS  IS  BAO  PRACTICE 


GAP:  A >S  FMBL  E REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 

l P70-P71 


0082 
3383 
0084 
00  85 
3DB6 
0087 


RFF 

REF 

REF 

RFF 

REF 


133  LAST  814 

6 LAST  7 33 
20?  LAST  822 
1 

13  LAST  812 


^5,3422 

• i 

05, 1424 
05,3425 
05,  3426 
5 , *27 


54  001 
4 0000 
52  760 
50  002 
3 1 = 02 
55*0  10 


0 

I 

0 

0 

0 


OXCM  -PHASE4 
INDEX  0 
CAF  M0DE70 

TS  MODREG 


0088  REF  24  LAST  74  3 


05,3430  55'162 


TS  OISPDEX 


0 089 
0090 
3391 

0092 


REF  233 
REF  If 
RFF  11 
RFF  17 


LAST  823 
LAST  744 
1 AST  744 
LAST  82  3 


0 5,  34  3 1 
15,3432 
05,  3433 
05,3434 


10  002  1 
4 3106  1 
7 4737  1 
26  106  l 


CC  S 0 

CS  FL  GW  RD 10 

MASK  APSFLBIT 

ADS  FLGWRD1C 


0098 
3 09  9 
0100 


RFF  24  LAST  785 
REF  5 I AST  747 
REF  25  LAST  823 


C5 ,3435  4 0101  0 

35. 3436  7 4745  1 

05.3437  26  101  0 


CS  FLAGWRD5 

MASK  ENGONRI  T 
ADS  FLAGWRD5 


3131  REF 

01  o2 

0 10  3 RFF 
3134  REF 

0105 

0106  RFF 


8 LAST  747 

26  LAST  74  7 
34  LAST  813 

27  LAST  823 


. - ■ 

05,3442 
05,  1443 
•35  ,3444 
05,3445 


C2  011  0 
f 4737  C 
0 0006  1 

01  011  0 


CS  PRI  030 

EXTEND 

RAND  DSALMOUT 
AD  BIT13 

EXTEND 

WRITF  DSALMOUT 


0107  REF  1 

0108  REF  26  LAST  528 

31183  REF  27  I AST  B23 


05,  3446  4 4743  1 

05,3447  7 0075  1 

05,  3450  54  075  1 


C S ALW668I  T 

MASK  FLAGWRD1 
TS  FLAGWR01 


OlO«* 
- 1 10 
1 1 11 


PFF  24  LAST  809 
REF  1 

REF  25  LAST  023 


05, 345 1 4 (074  0 

05,345?  7 475?  1 

05,  3453  26  C 74  0 


CS  FLAGWPDO 

MASK  R10FL8IT 
ADS  FLAGWROC 


0113 

0114  REF  26  LAST  80  1 
07 1 5 REF  6 LAST  747 


05  ,3454  0 0006  1 

:e,  3455  3 l C25  0 

5,  3456  ' 2*  342  1 


EX  T EN  D 

DC  A TIME2 
DXCH  TEVENT 


0 116 
1117 
0118 


REF 

REF 


1 

3 LAST  726 


05,3457  f 0006  1 
' 5,  346  0 3 3 = C6  1 

05  ,346  l 53 '253  ( 


EXT  END 

DC  A ATMAGAD 
DXCH  AVGEXIT 


Clio  RFF 


CK,346?  0 2671  O 


TC  APT  KL  EAR 


' 121 
'12? 
■123 


REF  26  LAST  808 
RFF  134  LAST  P23 

REF  7 LAST  823 


15, 1463  3 6257  1 

15,3464  54  C01  1 

05,  7465  4 CCOO  0 

05, 1466  52  760  1 


CAF  THREE 

TS  L 

COM 

DXCH  -PHASE  4 


01231  RFF  15  LAST  798 
31232  REF  1 


05,3467 
05,  34  70 


0 

0 


CA  FL  AGWRD2 
MASK  SFROVBIT 


9:  12  OCT  . 21,  1970  Z FL  Y 


,049  RAGE  823 


USER*  S P AG F NO.  2 


E3  S3 


INSURF  DISPDEX  IS  PDSITJVF. 

SET  APSE  LAG  IF  P71  . 

SET  APSFLAG  PRIOR  TO  THE  ENEMA. 

SET  ENGONFLG. 

INSURE  THAT  THE  ENGINE  IS  ON,  IF  ARMED. 


DI SALLOW  P66  SELECTION 

SIGNAL  THF  LAO  TO  DISPLAY  LATVEL  IN 
INERTIAL  COORDINATE  S AND  FDR  VEL  ZERO 

LOAD  TEVENT  FDR  THE  DOWNLINK. 


CONNECT  ASCFNT  GUIDANCE 

KILL  GROUPS  1*3.  AND  6. 

SET  UP  4.3SP0T  FOR  GOABORT 


IS  GUIDANCE  IN  PROGRFSS? 


GAP:  ASSEMBLE  REVISION  56  OF  A.',;  PROGRAM  ZERLINA  HV  ZOROA STE P 


0 12  3 5 
0 1236 
-1237 


15  ,3473 
' c . 1474 
0 5,  1475 


0 r0C6  1 
? 35C1  C 
e : 1 4 A 7 ■ 


50  LAST  799 


GO ENEMA  Tf 


'127 
3127 
’ I2H 
120 
r 1 3 r 


PFF  31  I AST  771 
RTF  3 I A ST  799 


E7  ,1513 

05,3500  02  102  O 

0 5,  150  1 6 6C67  C 

15  ,3502  00106  0 

35, 35C3  CCC27  1 

r 5,  ’SPA  OM  0 7 l 


EBAN<=  OVCNTR 

pi  pry r.  An  ?r.  aor  pipcyci  e 

M0Ct70  OEC  70 

0CTAL2  7 OCT  2 7 

M00E71  OEC  71 


1131 
3 13? 
' 13? 


PEP 

REF 


LAST 
L AST 


c7 ,1  513 
'c, 35C 5 
05  ,3506 


E0ANK=  OV  F NT  R 

C1455  0 A T MAG  AO  2F.A0R  ATMAG 
70067  1 


0 133 

'134  REF 

01  35 


32  ,3527 


RANK  32 
SF  Tl  O:  ABORTS 
RANK 


3136  REF 


COUNT*  TWP70 


01365  RFF 
r 137  RFF 
3138  REF 


13  LAST  8?4 
17  1 A ST  707 

34  LAST  824 


F7, 1513 

32,3  52  7 3 4751  0 G C ABORT 

32,  3530  55*513  0 


EBANK  = OVCNTR 
CAE  FOUR 

TS  OVCNTR 


27  1 A ST  771 


CAF  W H 1C.  HA  OR 

TS  WHICH 


01 11  REF  1 
0142 

3143  REF 
0K4  REF 
0 145 

3146  REF 
0147  RFF 
n 148 

0149  RFF 

0150  PFF 

3151 


12  LAST  8 Ifl 
1 

4 LAST  713 

5 LAST  749 
1 

1 

2 LAST  720 


12,  3533 
32 ,1534 
32,  3 5 3 5 

12. 3536 

37.3537 
32,  3 c 4 C 
32  ,3541 
32 ,3542 
32,  154  3 
32  ,3544 
? 2,  3545 


0 6CC1 
43014 
C4665 
04265 
4 3 014 
Clf  70 
06464 
45014 
04462 
61064 
777  76 


0 

0 

0 

1 

0 

0 

1 

0 

0 

1 

l 


CLEAR 


SFT 


EXIT 


I NTPRE  r 
CLEAR 
FLRCS 
F L UNO  1 SP 
S ET 

I DLEF  LAG 
ACC4-2FL 
CALL 

P 7 07 1 F LG 
IN  ITCOUW 


<■15?  RFF-  5 LAST  798 

0 153 

3154  REF  1 


. 

32  ,3547 
32,  3550 


0 5332 
00106 

1 1656 


< 

0 700FC 

0 


TC 
DEC 
TC  F 


CHFCKMM 

70 

P7l RF  T 


: 12  OCT.  21,1970  ZELY  .049  PAGE  624 
USER'S  PAGF  NC.  5 E3  S3 


YES:  RESET  PH  SNA  PE  5 FTP  PIPCYCLE 


GAP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L P70-P71 


9:12  OCT  . 21,1970  ZFLY 
USER'S  PAGE  NC. 


.049  PAGE  825 
E7  S3 


<157 
0158 
"1  50 
0160 
DIM 
0162 

0 163 
1164 
0165 
0 166 
0l67 
016B 
D 1 69 

01  70 
0171 
1 172 
01  73 
•‘174 
01  75 

0176 

0177 

0178 

0 170 

D 1 SO 
0L81 
182 
1 8? 

01  84 

0 135 

01  86 
0 187 
1188 
0189 

0 190 

01  91 
t 192 
0193 
(;  1 94 

0 195 
0196 

157 

0198 

01  99 
0200 
0 2D  1 
0202 
0203 
D204 


REF  133 
REF  1 
REF  1 


RFF  7 
REF  2 
RFF  8 

R FF  1 
REF  2 
RFF  2 
REF  2 

REF  1 
REF  3 
REF  1 
REF  2 

REF  2 

REF  2 
REF  l 

REF  2 
KEF  3 
RFF  1 

REF  2 

REF  1 
REF  2 
REF  2 

REF  3 
RFF  3 


RFF  3 

RFF  1 
RFF  1 

RFF  2 


REF  2 
RFF  1 


LAST  e24 


LAST  794 
LAST  122 
l AST  825 


I AST  156 
LAST  156 
LAST  156 

LAST  20  7 
LAST  122 
LAST  740 
LAST  122 

LAST  125 
1 A ST  321 


LAST  125 


LAST  122 
LAST  15& 

I AST  825 
LAST  825 


I A ST  321 


LAST  1 ? 5 


LAST  125 


32,  3s52 
32  ,3553 
32,3554 
32,  35  55 
32,3556 
32,  3557 

32. 3560 

32.3561 
32, ?5t2 
3?  ,3563 
32,3564 
32,  3565 
32  ,1566 
3 2,  3 56  7 
32,  3 570 
3?  ,3571 
32, 3572 
32  ,3573 
32  ,3574 
32,  3575 
12,3  S 76 
32,  1677 
3 2,  3*0  9 
32  ,3601 
: 2,  3 6.C2 
32  ,36<  3 
32  ,3  V 4 
32,  3605 
32  ,3606 
32,  36C7 
32,  36l0 
32  ,361  1 
32,  .36  12 
' , ! 

32  ,3614 
32,  3615 
32  ,3616 
22,  36  1 7 

. 

32  ,3621 
32,  3622 
3?  ,3623 
32  ,3624 
32,  3625 
32 ,3626 
32,  3627 
32, 3630 

• 

32,  3632 


C 6051  0 
77624  1 
65705  0 
54345  1 
3400  3 0 
20205  1 
77665  1 
01246  0 
1626?  0 
C 1246  0 
70471  1 
16015  1 
C 3 6 3 5 1 
03637  0 
C 364 1 l 
77665  l 
25731  0 
16254  0 
340  15  1 
02260  1 
57535  0 
26002  1 
77702  1 
36256  0 
60267  1 
77745  1 
C 2553  0 
36264  1 
e 7 3 3 .3  0 
45246  0 
C2551  1 
75240  0 
65614  1 
C232fi  1 
03633  1 
45345  1 
03633  1 
02326  1 
77661  0 
20606  0 
03643  0 
45C14  0 
04461  0 
71644  1 
5 10  2 5 1 
02545  1 
65633  1 
52175  0 
02535  0 
65636  1 


P70INIT 


I NJTARG 


YCK 


TC  INTPRET 

CALL 

TGQCOMP 
OLOAO  SL 

MDO  TOPS 
40 

BOO  V 

MA  SS 
STOOL  TBUP 
MASS 

DDV  SR  1 

K ( 1 / OV  ) 

STORE  1/0  Vi 
STORC  1/0V2 
STGRF  1/0V3 
BDOV 

K ( AT  ) 
STOOL  AT 

100PC  TTO 
STORE  TTO 
SLOAC  OCOMP 
OPSVFX 

SR2 

STCALL  VE 

COMM  IN  IT 

OLOAO 

ABTRDOT 

STCALL  ROOTO 
y:  OMP 

ABS  nsu 

Y LI  M 

3MN  SIGN 

Y OK 

Y 

STORE  YCO 
OLOAO  DSU 

YCO 

Y 

SR 

50 

STORE  XRANGE 
SET  CALL 

FL  VP 

THETCOMP 
DSU  3 PL 

T HFTCR IT 


VLOAO 


3UT0 
J 1 PARM 
STCRPARV 


INIT  l AL  I ZE  ROOT  0. 

COMPUTE  Y 

/Y/  -DYM  AX 

IF  <0,  XP< . 5DFG  , LEAVE  YCO  AT  1. 

IF  >0,  FIX  SIGN  OF  DEFICIT,  THIS  IS  YCO. 


GAP:  ASSEMBLE  REVISION  56  OP  AGO  PROGRAM  ZEPLINA  BY  ZOROASTER 


0 205 
' ■ 

02061 

0207 

0208 
0209 
>21 
0211 


REF 

PEF 

PEP 

PEF 

RFF 


2 l AST  125 


22,3633 

, 

32  ,3635 
22,2636 
32,  3637 
’?,36A^ 


A3 175  0 
025*1  0 
CAA7D  3 
16561  1 
C3631  0 
02565  0 
7 7 A 1 A 0 
CAA7  1 1 


STCRPAQP  ST  COL 


SET 

j2 PAR  P 

ABTTGFLG 

JPARP 


0212 


PEF  1 

RFF  56  LAST  777 


32.36A3  C 3 71 A 0 UPTHROT  TC 
32-,  3*44  C 5?6A  0 TC 


RFF  5A  LAST  BOO 


3 2 , 36 A 6 C 5516  C 
’2,  ’6A7  00 2 1 fc  1 


REF  2 LAST  71<J  22,  36  5 1 73715  0 

REF  2 LAST  826  32 ,3652  G 371A  0 TC 

PEF  57  LAST  826  22,3653  C 536A  0 GRPA  OFF  TC 


RFF  128  LAST  811  32,3655  1 5155  1 


REF  79  I AST  811 


22,  36  e6  C 5527  1 P7lPE  T 


A OR  ES 
CAF 


2 12 
D 233 

023  a 
0235 
3236 
6237 
C 238 
0239 
02  AO 
D2A1 
02  A 2 
02A3 
T2AA 


RFF  13A  LAST  825 

RFF  1 

REF  2 LAST  826 

REF  1 

REF  2 LAST  025 


32,3662 
32,  3663 
32,  3<,6A 

32  ,3665 
32, 3666 
. 

32  ,3670 

, 

32  ,3672 
22,  3673 
32, 3 674 
32  ,3675 
22,  3676 


f 6051  0 
7762A  1 
602A3  l 
A501  A 0 
CA707  0 
65673  0 
65705  0 
77650  1 
65602  0 
725A5  0 
03515  0 
03502  0 
77776  1 


CALL 

BON 


GOTO 

OLOAD 


INJTARG 
S LI 
TGO 
T GO  1 


RFF  58  LAST  826 


PAGE  826 


9:  1 2 OCT.  21,1970  Z FLY  ..iA9 

USER'  S PAGE  NC.  5 E7  S3 

IF  J 2 IS  USED,  SET  THE 
ABORT  TARGETING  FLAG 


VFPTFY  THAT  THE  PANEL  SWITCHES 
ARE  PROPERLY  S ET . 


TFRMINATF  USF  OF  GROUP  A. 


SET  OVMON  THRESHOLD  TO  THE  ASCENT  VALUE. 


IF  FLAP=0,  TGO=  T-T  IG 


IF  FL  AP=  1 , T G0=  2 TGO 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0247  32  ,3701  C 0C06  1 

'VAR  REF  ? LAST  826  12,1702  ? 150?  I 

0?4Q  RFF  1 6 LAST  8?6  3 2,  370  3 5 3*  515  0 

°250  REF  1 32,3704  1 3650  0 


EXT  END 
OEA  TG  Cl 

DXCH  T3  0 

TCF  UPTHR0T1 


0253 

0254 

0255 


21  ,2035 

2 LAST  822  21.2CCO 

21,  2"  35 


BANK  21 
SETLOC  Rll 
BANK 


0256  REF  ? LAST  82?  TC  R?2 : 


3 257 
0258 

0 259 
3263 


21,  2C35 
21  ,2 C 36 
’1  ,?C37 


T 7 74  1 
1C  10  l 
0006  1 


2 1,  2040  1 2C 5 1 0 


COUNT*  5VP7C 

C S MMNUMBER 

AD  MO  DR  EG 

EXTEND 

RZF  ABCRTALM 


0261 

026? 

0263 

0264 

0268 

0266 

267 

’’268 

'260 

0270 

C271 

.'272 


RFF  3 
RFF  2 
REF  233 
REF  2 


REF  5 
RFF  234 
RFF  204 
RFF  7 


REF 

RFF 

REF 


LAST 

LAST 

LAST 

LAST 

L AST 
LAST 
LAST 
L AST 
LAST 
LAST 
LAST 
LAST 


725 
725 
8 1 7 
827 

748 

600 

827 

823 
506 
466 

824 
574 


21.2041 

21.2042 
21,  204  3 

21.2044 

?l,  2 C 4 5 
21,2046 
21  ,?  C4  7 
21,  2050 
21  ,205  I 
21,205? 
21,2  5 • 
21 ,2054 


4 0105  1 
7 4743  1 
10  COO  0 
1 2051  0 

3 C 1 03  0 
7 4747  0 
10  000  0 
0 C 00 2 0 
0 4364  1 
C 4457  0 
C 4635  0 
21051  0 


MASK 
CC  S 

TCF 


CCS 

TC 

ABORT  AIM  TC 


FAL  TON 
RELDSP 
POSTJUMP 
P INRRNCH 


R 02  77 


2 LAST  824 


22,  3 7C5 
32,2000 
32  ,3705 


2 LAST  824  TO  8 27: 


*«■**$*$< I***************** 


BANK  32 
SETLUC  A 8fTR  T S 
BANK 

COUNT*  Ft  /P  70 
*««*»««**««««»***««***« 


: 278 

0279 

0280 
32R1 
028? 

283 
02  84 


REF  17  LAST  827 


15:  wi 

■ 

32, 3710 
12  ,3711 
32  ,3712 
32, 3713 


45234  0 TGOCOMP  RT8 
21  c 55  1 


0344?  0 
77661  0 
20214  1 
0351 S 0 
776  16  0 


OSU 

LOADTI  ME 
T IC- 


1 ID 

STCRF  T GO 
R VO 


«#**«*<>**«»*****«**«** 
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IS  THE  DESIRED  PGM  ALREADY  IN  PROGRESS? 


ARE  THE  ABORTS  ENABLED? 


IS  SERVICER  ON  THF  AIR? 

YES.  ALL  IS  WELL. 


****** 


» AP:  ASSEMBLE  REVISION  5b  OF  AGO  PKCGRAM  ZERLINA  9Y  ZOROASTER 

L P70-P7I 

<>286  PCF  35  LAST  823  32,  37  H 3 4 73  7 C THRO  TUP  CAF 


0287  REF  i LAST  802  32,3715  54  055  rs 

J 299  REF  31  LAST  020  22,  3716  2 <,750  1 CAF 

t 289  32  ,3717  0 0006  l EXT| 

290  RFF  11  LAST  781  32,3720  C5  0 14  1 WOR 

2291  RFF  206  I AST  0 27  32,  3721  r 0002  0 TC 


' ?96 
1?94 

0295 
0 29  5 

0296 
r 296 
J 217 


PFF 


32,  372? 

. 7 ' 
3 ? , 3 7 2 <• 


32  ,37?6 
32,3727 
12,  373 


32,3731 
??,  37  3 ? 


COCOO  1 10SCC  S ?OEC 
01750  l 

00021  1 HINJECT  20EC 

33600  0 

11021  1 ( T GO  ) A 20EC 

CCCCO  1 

C05C7  0 K ( A T ) 20EC 
25605  0 

02  1 1 4 1 WHICHAOR  PEPAO 


91  T13 
T HRUST 
01  T4 

0 

CHAN14 

0 

1000 

18288  8-24 

37000  8-  17 

.02 

R ABRTABLF 


R 02  98 


.«***«*««> 


9:12  OCT.  21,1970 


ZFLY  .049  RAGE  820 


USER'S  PAGE  NO.  7 


E 7 S3 


60,000  FF FT  FXPRESSFO  IN  METERS. 


SCALING  CONSTANT 


GAP:  ASSEMBLE  REVISION  56  CF  ACC  FRCGPAM  ZERL 1NA  GY  ZOROASTER 


L P 12 


oor  1 

0002  RFF 
D0D3 


2 4 ,3644 

3 0,2  000 
30, 2061 


RANK  24 
SETLOC  PI  2 
BANK 


0004  RFF  35  LAST  824  F7,1513 

9005  REF  1 


FBAN<=  DVCNTft 
COUNT*  tt  /PI  2 


0006  REF  59  LAST  826 

0007 


30,206  1 0 5364  0 P12LM 

30,2062  04024  0 


TC 

OCT 


PHASCHNG 
3 40  24 


RFF  232 
RFF  9 


LAST  826  30,  2063  0 46l6  1 

I AST  7 7 1 10  ,2064  II  24  1 


TC  RANKCALL 

C A OR  P02R0TH 


O'  11 
COl  2 
0013 
33  14 


REF  3 LAST  826 
RFF  6 LAST  326 
RFF  18  LAST  824 
RFF  36  I AST  829 


30.2065  3 6000  1 

30.2066  65*261  1 

33.2067  3 4761  0 

30,  2070  “'513  0 


CAF  THRESH2 

TS  3VTHRUSH 

CAF  FOUR 

TS  OVCNTR 


■017 
00  IP 
QQl  9 
0020 
3321 
00?2 


REF  1 

RFF  233  LAST  829 
REF  22  I AST  777 
REF  29  LAST  778 


30  ,2071  3 30  IS  0 

30,2072  0 4616  1 

3o,  2073  20477  1 

3'  ,2r74  1 6C01  1 

30,  2075  l 2C77  1 
30,2076  1 2071  1 


CAF  V06N33A 

TC  BANK  CALL 

C ADR  GUFLASH 

TC  F GOTOPOOH 

TCF  ♦ 2 

TC  F - 5 


0023 

REF 

60 

LAST 

829 

30.2C77 

0 5364  o 

TC 

PHASCHNG 

3324 

3C,  2 ICO 

04024  0 

OC  T 

04  02  4 

0025 

REF 

1 35 

l AST 

826 

30  ,2101 

0 6051  0 

TC 

IN  TPRFT 

00  26 

? C , 2 1 C 2 

43C14  0 

SET 

SET 

0027 

RFF 

5 

LAST 

77  1 

?U  , 2 10 ? 

0 30  67  0 

MUNF  LAG 

0028 

REF 

2 

LAST 

8 24 

. 

06464  1 

ACC4-2FL 

3329 

3C,  2 1C 5 

43014  0 

SET 

CLEAR 

0030 

REF 

1 

, i 

00073  0 

R 1 OF  LAG 

0031 

REF 

6 

LAST 

772 

, 

00270  1 

RNDVZFL  G 

333? 

TC,  2 1 1 

<3014  0 

SET 

SET 

0033 

REF 

1 

3(  ,2111 

04464  0 

FLP  I 

0034 

KEF 

2 

LAST 

82  5 

3", 3112 

04461  C 

FLVR 

0035 

30  , 2 1 1 3 

45014  0 

CLEAR 

CALL 

00355 

REF 

2 

LAST 

771 

3.'  ,2114 

00666  1 

ALW66FLG 

3336 

REF 

2 

1 AST 

772 

3U,  2115 

71426  1 

GUIDI NIT 

00?  7 

• I 1 

77624  1 

CALL 

0038 

REF 

2 

LAST 

826 

30,2117 

60243  1 

P12IN  IT 

3339 

30, 2120 

77745  1 P12LM5 

0 LOAD 

0040 

REF 

1 

, 

25727  l 

I TGO  ) A 

0041 

REF 

18 

LAST 

82  7 

30,2122 

17615  0 

ST  cm 

TGO 

0042 

REF 

39 

L AST 

827 

3r  , 2 1 2 3 

03442  0 

TIG 

0043 

RFF 

41 

LAST 

774 

33  ,2124 

34041  0 

ST  CALL 

T DEC  1 

3344 

REF 

9 

LAST 

77  2 

30,  2125 

27C56  1 

LEMPREC 

0045 

• 

64375  1 

VLOAD 

M XV 

12  OCT.  21,1970  ZFLY  .049  PAGE  829 
USER'S  PAGE  NC.  1 EO  S3 


CHECK  THE  STATUS  CF  THF  I MU. 
IN  IT  I AL  IZE  CV  MON 


FLASH  T IG 

PROCEED 

ENTER 


SFT  TGO  TO  AN  INITIAL  NOMINAL  VALUE. 


ROTATE  THE  STATE  VECTORS  TO  THE 
IGNI  TION  TI  Vf  . 


GAP:  ASSEMBLE  REVISION  So  OF  Ai*,C  PROGRAM  7 ERL  I MA  BY  7 .JR  DA  STER 


L P I 2 


3366  REF 

00*7  PfF 
0068 

33*10  R 0F 
0050  RFF 
0951 

0052  RFF 

0053  RFF 
3355  REF 

0055 

0056  RFF 
3057  RFF 

0058  REF 

0059 

0060 

0061  RFF 
336?  0 EF 

0063  RFF 

0066  RFF 
3365  RFF 
0066 


Io' 

2 

25 

31 

13 

3 


2 


LAST  752 
LAST  7^r 

I AST  152 
LAST  75 2 

I AS  T 83c 
LAST  796 
LAST  772 

LAST  e30 
LAST  706 

I AST  825 


LAST  825 
LAST  321 

LAST  825 


30,  2 127 

10 . 2 130 

30.2131 
1 . 1 

30  ,2133 
30  , ? 1 7 6 

3n,  2135 
30  ,2136 
30,  2137 
3C  , 2 1 60 

30,2161 
30, ? 162 

30  ,2  16  3 
30,2  l*»6 
30,  2165 
30  ,21*6 
33,  2 167 
30, ? 1 50 
30,21 51 
3C,  2 1 c 2 
30  ,2163 


CCCC7 
C 1732 
77772 
276  C 1 
00001 
*2521 
C17?2 
37517 
71763 
5357S 
03517 
37535 
57333 
c7661 
20606 
1 766  3 
2165? 
1627*3 
316  56 
C2266 
77776 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 


VATT 

REF  SMMAT 

VS  LI 

STOVL  VlS 
R ATT 
MX  V VSL6 

3 F F SMMA  T 
STCALL  R 

MUNGRAV 
Vl.OAD  UNIT 
P. 

STCAIL  UNIT/R/ 

YCOMP 
SR  DCOMP 

5D 

STOOL  XRANGE 
VI NJNCM 
STOOL  70nTO 

ROOT  DNOM 
STCRE  ROCTO 
EXIT 


0067  REF  61 

0068 


P29 


C 5366  0 
06026  0 


TC  PHASCHNG 

DC T C6026 


0069 

3071 

0071 

0072 
3373 
00  76 


RFF  l 
RtF  236  I AST 
RFF  23  LAST 
RFF  30  l A ST 

REF  1 


829 

829 

8?9 


30.2166  3 30  6 1 NfcWI CrtO  CAF  VT6N76 


30, 2157  C 6616  1 
30.216*3  2*3677  1 

10,2161  1 6001  1 
3o,  2162  1 2 166  1 

30  ,2  163  1 2156  0 


TC  BANKCALL 

CAOR  30  FLASH 
TCF  GOTOPOOH 

TC  F ♦ 2 

TCF  VEWLOAD 


0075  RFF  I 

0076  RFF  28  LAST  8?6 


30,2166  3 23C6  0 

33,  2 16  5 5 5*655  0 


CAF  P12ADRES 

TS  WHICH 


0077  RFF  62  LAST  830 
33  73 


30.2166  0 5366  0 

30. 2167  C6C26  0 


TC  PHASCHNG 

OCT  06  026 


0079 
00  HO 
0081 
008? 
3383 

0036 
0085 
3 386 

0037 
00B3 

0089 

0090 


REF  136  LAST  829 
REF  5 LAST  9 30 


REF  6 LAST  825 

PFF  6 LAST  025 

RFF  10  L AST  830 

RFF  1 

REF  3 LAST  830 

REF  6 LAST  802 


30  ,2170  0 60  5 1 C 

30 , 2 1 7 1 56365  1 

70,  2 172  0366  1 0 

30,2173  20206  1 

30, 2176  77615  0 

30.2175  02326  1 

30.2176  27633  l 

30,  2 177  C35  35  1 

30,2200  53361  0 

3 C , 2 20 1 31650  1 

30,  220 2 0360  1 0 

30,2203  03525  0 


TC  INTPRET 

DLGAD  SL 

XRANGE 

50 

DAO 

STCVL  Y CO 

UNI T/R/ 
VXSC  VAD 

69  FPS 
Vi  S 

STORE  V 


9:12  GCT.  21  ,1970  Z FLY 
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COMPUTE  VlS  = VELCT  I G ) *2{ -7  1M/ CS  . 


COMPUTE  R = 3D  S(  TIG)*2(-26)  M. 
COMPJTE  CDTl/2  (T  1G)*2(-71M/CS. 


COMPUTE  UNIT/R/  FOR  YCOMP. 


INITIALIZE  XRANGE  FOP  NOUN  76. 


FLASH  CROSS-RANGE  AND  APOLUNE  VALUES. 


PROCEED 

ENTER  NEW  DATA. 


# 

m 


V(  TIP3VFK  ) 


V( IGN) 


57FPS  ( UNI  T/R/) 


AP:  ASSEMBLE  REVISION  56  OF  AGE  PROGRAM  ZERLINA  BY  ZOROASTER 


L P 12 


OOOl 

0092  RFF 
0393  REF 

0098  REF 

0099 

3133  REF 
0101 

0 1^  2 REF 

0103 

0104 

3135  REF 
OlOE. 

0107  REF 
3138 

0109  REF 
IK  REF 

oin 

0112  RFF 

3113 

011  4 

0115  REF 
3115 

0117  PFF 

0118 


11  LAST  B30 
1 

1 

2 LAST  122 

2 LAST  122 

1 

3 LAST  831 

3 LAST  3?1 
17  (AST  809 

12  LAST  831 

2 LAST  32  1 
63  LAST  830 


TO , 2 20 4 
30  ,2205 
30, 2206 
Tl  , ??07 
30,2210 
30, 3211 
30  ,2212 
30,2213 
To  , 2 2 1 4 
TO  ,2215 
. i ■ 
TO, 2217 

30.2220 

30. 222 1 
30  ,2222 
3C , ’223 
3r,  2224 
30  ,->225 
TO, 2226 
TO  , 2 22  7 

. 

30,  223  1 

, 

30,2233 


37474  1 
603C7  0 
77745  l 
C2352  1 
65316  0 
02346  1 
43316  1 
75454  0 
6C222  0 
55352  0 
02346  1 
7773ft  0 
26354  1 
03253  0 
50256  0 
03535  1 
65552  C 
77676  0 
02356  0 
77776  1 
0 5364  0 
04024  C 


HOT  SL  1 

JNIT/R/ 
STCALL  RDCT 

A SCENT 

P12RET  CLCAD 

ATP 

OSQ  POOL 
ATY 

OSQ  3 AD 
OZE  SORT 

Y AWOUN 
SL  1 300V 

ATY 

ARC  SI  N 

YAWUUN  STOVL  YAW 

UNFC/2 
UNIT  DOT 

JN  1T/R/ 
SL1  ARCCOS 
DCOMP 

STORE  PITCH 
E XI  T 

TC  P HA  SC  FIN  G 

OCT  34024 


0119 

0120 
3121 
0122 
0123 


REF 

REF 

RFF 

RFF 


30,  2234 

i A SI  ■ . 

LAST  774  30,  2236 

LAST  1 2 30 , 2 23  7 

LAST  829  30,2240 


0 0C04  0 
0 4674  0 
4C143  0 
0 5527  l 
00213  1 


INHINT 

TC  IBNKCALL 

CADR  PF  LI  T F 08 

TC  DOWNF  LAG 

ACRES  FLPI 


• 124 
9125 


30,  2241  C 4635  0 
30  ,2242  74130  0 


TC  POSTJUMP 

CADR  BURNBABY 


0 126 

r.127  RFF 
0128  REF 
5129  REF 

0130  RFF 

0131  RFF 
9 132  REF 
0 1 33  REF 
n 1 34  REF 

0135  REF 

0136 
3137 

0138  REF 
0 139 

3140  REF 
0141 


3 LAST  825 
3 LAST  825 

3 LAST  825 

1 

4 LAST  825 
1 

3 LAST  825 
1 

3 LAST  825 
2 LAST  744 


30.2243  77745  l 

30.2244  160  13  1 

30  ,2245  03641  1 

30, 2246  03637  0 

30,?247  17635  1 

30,2250  1 A 01 7 0 

30, 225  1 16254  0 

3(  ,7252  16021  0 

30,225  3 16262  0 

10,  2254  1013  1 

30  ,2255  54276  0 

30, 2256  20214  1 

TO, 2257  0226C  1 

30,2260  57535  0 

, 1 ' 

30  ,2262  77702  1 


P121N1T  DLCAD 

( I/O  VIA 
STORE  1/0V3 
STORE  1/DV2 
STOOL  l/DVl 
I AT  1A 
STCOL  AT 

( TBUP  IA 
STCOL  TRUP 

A TDECAY 
OCOMP  SL 
1 10 

STORF  T TO 
SLOAD  OCOMP 
APSVEX 

SR  2 
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.049  PAGE  831 
3 E7  S3 


RDOT  * 2 (-7  ) 

AT  P (2  )*2  ( 1 8 ) 
ATY 12  »*2(  in  I 


INITIALIZE  FNGINF  DATA.  USED  FOR  P 12  AND 
P71. 


,4P : 


ASSF"HLfc  REVISION  56  OF  AGC  PROGRAM  Z6»L INA  BY  ZOROASTER 


L PI  2 


'J  144 

oH5 

01 '.A 

9147 

GUP 
0|'.« 
0153 
0151 
? 15? 

154 

155 
0 156 
"157 
"158 
0150 
0160 
n 161 


PEF 

REF 

RTF 

P EF 
PFF 
PEF 
REF 
RFF 
P FF 
REF 
PEF 

REF 

RFF 

RFF 


? 


LAST  825 

l A ST  826 
LAST  8 25 


LAST  799 
LAST  R?6 
LAST  772 

LAST  830 
LAST  122 


LAST  247 
LAST  83C 

I AST  126 


3i  , 2263 

3'  ,'’264 
30,2265 
Tr  , 2266 
30  ,??67 
, 

. 

30,2272 
30,  2273 
3°  ,2274 
3^,2275 
30, 2276 
i ,2277 
’0,  23C0 

30,2  701 

30,2  302 
?C,  2303 
3 

3f  ,2305 


02256  1 
43414  1 
04747  1 
60267  1 
43345  1 
25725  0 
02324  C 
17631  C 
C6220  0 
03654  0 
03*33  1 
26266  1 
C 1 563  0 
64235  1 
01555  0 
01732  0 
77656  1 
02567  1 

Z 7 < I ' 


STORE  VE 
HOFF  RVQ 
FLAP 

Z OMMI  NI  T 

COMM  IN  IT  OLOAO  OAO 

HI NJFCT 
/LAND/ 
STOOL  PCO 

H16ZERCS 
STORE  TXO 
STORE  YCO 
STnvi  YOOTO 

VRECTCSM 
VXV  MXV 

RREC  TCSM 
REFS  MM  AT 

UNI  T 

STORF  OAXFS 

RVQ 


0162  R6F  1 

' 163  RFF  1 

■>154 

0165  REF  1 


JO,  2306 

. 

34, 3426 


0 2C  24  0 P 12A0R6S  REMAOft  P12TABLE 

SETLOC  AS  ENT  fl 
HANK 

COUNT*  H/P12 


' 166 
3167 
• 168 
. 169 
01  70 
0171 
'172 
0173 
0 1 74 
3175 
0176 
0 177 
f'1  78 
' 1 79 
3190 
0181 
0 18? 


RFF  6 


REF  fl 

REF  23 

RFF  2 

RFF  33 
REF  1 
REF  4 
RFF  Q 

REF  7 
RFF  7 


1 AST 

L AST 
LAST 
LAST 
LAST 

L AST 
LA  ST 

LAST 
LA  ST 


734 

772 

827 

772 

832 

79  1 
777 

832 

832 


14 ,3426 
34,  14:7 
34  ,3430 
34,34  31 
34, 3432 
34  ,3433 
34, 3434 
34,  343  5 
34 ,3436 
34,  34  37 
34,3440 
34,344  1 
34,  34  4 2 
34  ,3443 
34,  3444 
34,  ^4 4 5 
34,3446 


40220  0 
C l T<  3 1 
00001  0 

41575  0 
06512  1 


41434  1 
21555  1 
77624  l 
55720  1 
74321  1 
C 1 732  0 
1602  7 0 

26316  1 
02021  0 
52446  0 
36324  1 
01163  1 


GU I 0 1 NIT  STQ 

VLfiAD 

RT8 

CALL 

MXV 

STO  VL 

ABVAL 

STCALL 


SETPC 
TE  MPR60 
00 

PUSH 
UNI  TZ 
PUSH 
LOADTI ME 

PP-TO-R 
VX  SC 

RFFSMMAT 

MOONRATF 

WM 

RLS 

SL3 

/LAND/ 

T EMPR60 


r.1  84 

018  5 
318  5 


34,  3 '#47 
54  ,345' 
34,3451 
34,  3452 
34  ,3453 
34,  3454 


00046  0 49FPS  20EC 
07374  0 

04145  0 VI NJNOV  2 OEC 
15527  0 

00007  0 P COT  ONOM  2 DEC 
23346  1 


. 149352  0- 
1 5 .7924  R- 
.059436  B- 


>:  12  OCT.  21,1970 
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USER  'S  RAGE  NO. 


fc  7 S3 


INITIALIZE  TfUGET  DA  TA . IJSEO  BY  P12,  P7. 
ANP  P7 1 IF  IT  CO  FS  NOT  F0|  LOW  P70. 


EXPECTED  ROOT  AT  TIPOVER 

5509.5  EPS  ( APO=  30NM  WITH  9 DO  T=  19.  4FP  S> 


19. 5 FR  S 


(SAP:  ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  ZERLINA  BY  ZOROASTER 

L Pi  2 


9:12  OCT  . 2 I*  15  70  Z FL  Y 
USER'  S PACE  NC. 


. 049  PAGE  833 
F7  S3 


GAP:  ASSEMBLE  REVISION  56  OF  AGS  PRCGPA*  ZfcRLINA  BY 

L ASCENT  GUI  GANCE 


0001 

OOC?  R£F 
OOC3 


14 ,3455 

' • 

14,  3*55 


0004  PFF  37  LAST  829  67,1513 

3335  REF  1 

0 S 364  0 AT  MAG 
06025  0 

0210?  0 
65C67  0 


00!  6 
000  7 
3 7 1 
00072 

0007  2 


34 .3455 

34.3456 
E7 , 1513 
34  ,3457 

34, 3460 


0008  REF 
0000 

3013  RFF 
0011  RFF 

1 

00121  REF 
OC  12  2 PEF 
3313 
00131 

0014  RFF 

33  16 

0016  PEF 

0017  REF 
00 1ft 

0010  RFF 
33?7  RTF 

0021 

002? 

3323  REF 
0024  RFF 
0076  RFF 

0026  PFF 

0027  PFF 
33?R  REF 

0029 

0030  PEF 
3331  RFF 
00  3? 

3033  REF 

0034  RFF 

0035 

3 3 36  RC-F 
0037  PFF 
00  38 

3D3R  REF 
0040 


137  LAST 

2 L AST 
2 LAST 

2 L AST 

1 


16  LAST 
1C  LAST 


350  LAST 
4 LAST 
4 l AST 

4 LAST 
1 

138  LAST 

2 LAST 

5 L AST 

5 LAST 
5 L AST 

4 LAST 


4 LAST 


830  34,3461 
34  ,3462 

824  74,  3463 

831  34  ,3464 

34  ,3465 
10  7 34,  3466 

34  ,3467 
? 4,  347C 
74,  3471 
34,34  72 
34,  3473 
34  ,3474 
777  34,3475 

34, 3476 
607  34,3477 

34, 3600 
34,  3501 
34  ,350? 

3 5 1 

831  34  ,3  504 
831  14 ,35  ' 

8 3 1 34,  -3506 

34  ,3507 
134  34,  3 510 

34, 3511 
834  14,351? 

14,3513 
34  ,3514 
834  34,3515 

8 34  34,  35  16 

34  ,3517 
932  34,3620 

34, 3521 
34  ,3522 
831  14,  3523 

34  ,3524 


0 6051  0 
77614  1 
C47C5  1 
60307  0 
4 l 335  1 
012M  0 
26013  1 
CCCC7  C 
77625  0 
26034  1 
4 3C40  1 
60752  1 
04267  C 
67214  1 
0?676  1 
21536  0 
7747  1 0 
00007  0 
52  155  1 
53*641  l 
”•  637  0 
c 2*635  1 
53' 571  1 
C 6C51  0 
43  145  1 
01571  1 
C3635  1 
43215  0 
03637  0 
0364  1 1 
41205  0 
C2256  1 
21012  1 
6575?  1 
C2262  0 
43342  (• 
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BANK  34 
SETLCC  ASCF1LT 
3ANK 

FBA\IK=  DVCNTR 

COUNT*  SS/ASENT 

TC  P HA  SC  HN  G 

OCT  06025 

F8ANK=  OVTNTR 
2CA0R  P1PCYCLF 


TC  INTPRFT 

8GN 

F L PC  S 
A SC  FN  T 
SLCAO  DMP 

ABOVACC 
<P  IP 

STORE  60 
OSU 

M 1NAH0V 

BMN  CLEAR 

A SC  TERM  4 
SURFFLAG 
CLEAR  SLOAO 

R FN'DWFL  G 
BI  T3H 

ODV  F XI T 

60 

UXCH  MPAC 

CXCH  1/0V3 

OXCH  1/DV2 

OXCH  i/nvi 

OXCH  1/DVO 

TC  INTPRET 

DLOAO  DAO 

1/DVO 

1 /nvi 

DAD  DA  0 

1/DV2 
1 /O  V 3 

OMP  DMP 

VF 

2SEC1  R) 
SL3  PUDL 

TBUP 

SRI  DAD 


GAP : ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA 


334  1 
004? 

0043 

0044 
004  5 
3046 
004  7 
0048 


ASCFNT  GUI  DANCE 

RFF  1 

REF  5 LAST  p 
RFF  5 LAST  8 


REF 

P.FF 

RFF 


t AST 
LAST 
LAST 


835 
8 3 l 
834 


34,3527 
14,  3530 

34.3531 

34. 3532 

34.3533 

34.3534 


77(25  0 
21010  0 
162(2  C 
02256  1 
56342  1 
C2262  0 
36254  1 
60307  0 


STOOL 


VE 


34,  3535  00004  0 R I T 3-| 


SRI  DOV 
T8UP 

STCALL  AT 

ASCENT 

□ CT  4 
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ASSEMBLE  REVISION  5t>  OF  AGC  PKCGPA* 


ZERLINA  ev  ZOROASTER 


ASCENT  GUIDANCE 

P005C 


BANK  30 
SETLCC  ASENT 
BANK 

2 2*  COUNT*  f M AS  ENT 


00  51 

335?  PFF 

0063 

0C54  REF 


)0,23C7 

. 

30  ,2  307 

TO  3 9 : 


0055 

0056  RFF 
3357  PFF 
005ft  RFF 
005ft  I 

33582  REF 
00503  REF 

0059 

0060  OFF 

0061  RFF 
306?  REF 
006? 

0064  PFF 
DO 66  RTF 
0066 

0067  REF 
Oo&fl  REE 
0069  REF 

3073 

0071  REF 

0072 

3374  RFF 
0076 

0076  REF 

0077  PEE 
- r8 

3379  REF 

OOBO 

OOftl 

3382  REF 
0083 

OC  84  REF 

cobs 

0086  RFF 
3387 

0088  REF 
00ft9  REF 
3393  REF 
0091 

009?  REF 
0093  RFF 


2 

ft 

3 

3 

2 

15 

16 


3 


2 

2 


3 

2 

3 

3 


LAST 
I AST 
LAST 

LAST 


L AST 
LAST 
LAST 

LAST 
I AST 

LA  ST 
L AST 
LAST 

LAST 

L AST 

LA  ST 
L AST 

LAST 


L AST 


LA  ST 


LAST 
LAST 
I AST 

LAST 
L AST 


30,  23c  7 

83"  37,2310 

1??  *0,2?  11 

83  1 33,2  312 

30 , ?31 3 
832  30, ?314 

33  ,7  115 
30,23  16 
8 33  10,2  3 17 

12?  33,2320 

836  30,  2221 

10.2  322 

836  30,2323 

122  30,2324 

, 

836  30, 23  ?6 

321  30,2327 

830  30,2330 

20, ?331 
1 6 1 30,2  332 

30 ,?  3 33 
836  30,  2334 

. 

836  30,2326 

836  3D,?337 

33  ,2340 
836  30,7341 

33.2  342 

30,2343 
122  20,  2344 

. 

824  ,234 

30,  2 347 

30  ,2350 
20, 2351 
830  30,2352 

ft36  30,2353 
1 22  30,  2354 

30  ,2355 
836  30,2356 

832  30,2357 


e 1 6 7 5 1 
03617  1 
26272  1 
03535  1 
53435  0 
C2567  1 
02675  1 
72441  0 
03*25  0 
26304  1 
02575  l 
76  4 3 5 1 
C3S35  1 
02274  1 
72441  0 
03525  0 
26202  0 
57333  0 
77775  1 
03561  ' 
42441  0 
03535  1 
47  315  0 
03535  1 
03525  0 
56236  0 
02272  1 
43352  l 
77626  0 
75471  1 
450  14  0 
04742  1 
60251  O 
71614  1 
45345  1 
02270  0 
C2304  l 
02234  1 
65361  0 
02575  1 
02266  1 


ASCEV  T 


VI  0 AO  A8VAL 
R 

STOVL  ZR/RAG 
UNIT/P  / 
VXV  UNIT 

OA  XI  S 

STORE  ZAXIS1 
OPT  SL1 

V 

STOVL  ZDOT 

Z AX  I SI 
VXV  VSL1 

JNIT/R/ 
STORE  LAXIS 
OOT  SL  1 


STCALL  Y30T 

Y COMP 

VLOAO 

3 1 

OOT  SL4 

UNI  T/R/ 
POVL  VXV 

UNIT/R/ 

V 

VSO  ODV 

/R/MAG 
SL  1 DAO 
ST  AOR 

STORE  GEFF 
BOFF  CALL 

P7071 FLG 

+ 2 

Z DOT  Of  MP 
OLOAD  DSU 

ZOOTD 

ZOOT 

STORE  D ZOOT 
VXSC  POOl 

Z AX  IS1 
YOOTD 
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Z.  V = ZOOT*?  (-8  1. 
7 DO  T*  ?(  - 71 


Z X UR  = LAXI  S*2(  - 21 
LAX  IS*2  (-1  > 

L.V  = Y OOT  *2( - 8 ) . 
YOOT  * 2 (-7) 


G.UR*2  (9  ) = GR *2  (9  >. 

STORE  I N PDL<  0)  (2  1 

LOAD  JNIT/R/ *21-1). 

U R*  2 ( - 1 1 X V*2  (-7  ) = H/P*2  (-3  1 . 

H(2)/R(  ?)*2(-16l. 

H (2  )/  R ( 3 ) *2  (3  ) . 


GEFF*2  (ID  1M/CS/CS 

IF  P 70 7 IF  LG  = 1 (I.F.  P70  OR  P71) 
CALI  ZDOTOCMP  TO  UPDATE  7 00  TO 
ON  THE  BASIS  OF  THE  LAST  RP . 


0 7 OOT 


(7  OOT  0 


Z COT  1*2(7  1M/CS 


AP : ASSEMBLE  REVISION  56  OF  AGE.  PROGRAM  7ERLINA  BY  ZOROASTER 


L ASCENT  GUICANCE 


00°  A 

0095 

0096 
D097 
009R 
0090 
DIDO 
01'  1 
0 10  2 
OUT 
0104 
01  IS 
OlP6 

0 10  7 
D103 
0109 

110 

0111 

112 

•>113 

01  H 
0115 
3116 
01  1 7 
' 1 1 R 
Ol  1 Q 
Ll  20 
3 121 
0122 
0123 
3124 
0125 
■ 126 
"127 
t 123 
3123 
0130 
0 131 
: 132 
0133 
>134 
•1  35 
0136 
3137 
•'1  3p 
0 1 39 
3143 
0 14  1 

14? 
01 43 


REF 

REF 


REF 

REF 

RFF 
i i F 

REF 


REF 

REE 

RFF 

RFF 

REF 

RFF 

REF 

RFF 

REF 

RFF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 


REF 

RFF 

RFF 


4 

2 

3 

5 

2 

2 

17 


3 

19 

3 

18 

4 

5 

4 

11 

6 

3 


1 

20 

1 


6 


1 


21 

27 

22 

6 


LAST  836 
LAST  12 2 

LAST  8?6 
LAST  830 

LAST  831 
LAST  122 

LAST  836 


LAST  207 

LAST  829 
LAST  836 

LAST  837 

LAST  837 
LAST  837 

LAST  797 
LAST  744 
LAST  837 

LAST  834 


LAST  837 


L AS  I 8 3 5 


LAST  835 

LAST  831 
LAST  837 


l AST  74? 
LAST  837 

LAST  824 


30,  2 36  1 
30  .2  362 

30,  2 16  3 
30,2  764 
30,2 165 
30,  2366 
30 ,2367 
30,2370 
30,  37  1 
3 ,237 2 
30,  2 >73 
30,2  374 
30,2375 
' . 

7"  ,2377 

■ . 

30,  240  » 
30  ,2402 
3 C , 24C3 

30.2404 

30.2405 
3C, 2406 
30,2407 

. 

30, 24  1 1 
3D  ,24  12 
30,  24  1 3 

30.2414 

30.2415 
30,  24  16 
i:  ,2417 
30 ,2420 
3^,  24  2 1 

• 't 

30. 2423 

30.2424 

. 

30, 2426 

30  ,2427 

. • 

1>',  ? 4 ? 1 
30  ,2432 
30,  2 4 3 * 
3>  ,2434 

, 

3C,  2476 
30  ,’437 
. ■ - 

30, 244  1 


02332  1 

65361  0 
02274  1 
02264  0 

77625  0 
C 3474  0 
C2330  0 
5-'3(1  0 
(>3535  1 
76455  1 

77626  0 
74131  1 
<1?45  0 
03515  n 
02306  0 
76561  1 
03535  1 
77645  0 
03646  0 
03646  0 
76621  0 
02137  0 
2760?  C 
C 3fc4  6 C 
43046  1 
C474S  0 
60423  1 
77671  1 
2CC01  1 
37515  1 
71665  1 
776  34  0 
60750  0 
41471  0 
02256  1 
44? 42  1 
1776?  0 
41205  0 
0226?  C 
77625  C 
02260  1 
C 36 1 5 C 
57461  0 
2*7614  0 
17454  1 
03515  0 
46214  1 

03710  1 


MA I NE  NG 


OSU 

YOOT 

STORE  OY  DOT 
VX  SC  POOL 
I A XI  S 
ROOT  n 

DSU 

R DOT 

STORE  OROOT 
VXSC  VAO 

UN  IT/R / 
VAO  VS  LI 

STADR 

STORE  VGVECT 
OLOAD  DMP 
T GO 
GEFF 
VXSC  VSL 1 

JN  IT/R/ 

8 VSIJ 

VGVEC  T 
STORE  VGVECT 
MXV  VSLl 

XN BP  IP 
STOVL  VGBOOY 
VG  VECT 
ABVAL  BOFF 
F LRCS 
MA  l NE NG 

DOV 

AT/RCS 
STCALL  T GO 

RPC0RP1 

R TR 


AS  CT  ERM  3 
ODV  PUSH 
VE 

SRI  BOSU 

NEARCNE 

DMP  DMP 
TRUP 

OSU 

T TO 

STORE  TGO 
SR  DC  (IMP 

I1C 

STCDL  TTCGO 
TGO 

BON  DSU 

IDLEF  LAG 
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DYDOT  = ( YDOTU  - YDOT)  *2(7)  M/C  S. 


DROOT  = (R  GOTO  - P DOT  )*  2(  7 )M  /C  S. 


V G=  (DRDOT)R  + (OYDOTII  + (t)/DOT)Z. 
LOAD  TGO 
TGO  GEFF 


TGO  GEFF  UR 

COMPENSATED  = OR  GEFF 

STORE  FOR  DOWN  I INK 

GET  VGROOY  FOR  NR 5 DISPLAY 


MAGNITUDE  OF  VGVECT 

IF  FLR  CS  = D , EO  NORMAL  GU  IDANCE 

USE  TGD=  VG/A  T WITH  RCS 

THIS  WILL  BF  USED  CN  NEXT  CYCLE 
COMPUTE  NEW  PP  FOR  NEXT  CYCLE. 


VG/VF  IN  POL  (D  1 12) 

1 - VG  / 2 VE 

T8UP  VGIl-KT  VG  /VE  ) /VE  (0  ) 

= TGO 

COMPENSATE  FOR  TAILOFF 


T G0*2  (-2R  )CS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


l ASCENT  GUIDANCE 


1 A A REF 
OHS  OFF 
01A6 

D 1 A 7 PEF 
OHfi 

O | AO  RFF 

)I5t 

015!  REF 

0152  REF 

0153 

015A  PEF 
3155  REF 
0156 

f-157  REF 
3158  REF 

0159 

0160 
0161 

016?  RFF 
3163  RFF 
OlfeA 

0 165  PFF 
3166  REF 
0167 

C 160  REF 
0169  REF 
Cl  70 

317  1 PEF 
0172  RFF 
" 173 

3 1 7 A REF 

0175  RFF 

0176  REF 

Ql  77  PFF 
• 178 

3179  RFF 

01  80 
0 181 
3182 

0183  REF 
0 1PA 

01 85  REF 

0186  REF 
3187 

Ol 88  PEF 
Cl  189  PFF 
3 1 RO 

0191  RFF 

0192 

0193 


1 

23  LAST  837 


8 LAST  837 
2A  LAST  838 

9 LAST  838 
1 


25  LAST  830 
10  LAST  838 


26  1 A ST  838 


2 LAST  8 38 

9 L AST  832 
2 LAST  122 
2 LAST  122 

1 


27  LAST  030 


28  LAST  838 

29  LAST  838 
3 LAST  837 

A LAST  836 
A LAST  832 

3 LAST  837 


3r  , 2A A 3 
30  ,2 AAA 
3C, 2AA5 
3'  ,2446 
39 t ? AA  7 

• , 15 

3 3 ,2A51 

■ 

< , 1 
3 I ,?A5A 

M,  ’ A c 5 

30,?A56 
34,2457 
)C,  4< 
3n f 2 A6 1 
30,2462 
30,  2A6  3 
30  , 2 A 6 A 
30,  2A6  5 

30.2  466 

34,5467 
1 . 7 

3 0 ,247  1 

, 

' , -7  1 

3°  ,2474 
, • 1 
3 , 2 476 
30,?A77 
, 

30  ,2501 
30,2502 
30, ?50 3 
30  ,2504 
3 0,  ?5C5 
3(  ,2  50  6 
3 C , 2 5 C 7 

20. 2 K 1 0 
1 ,2511 

, 

30,  25  1 3 
30  ,2514 
30,  2 c 1 5 
3.7, 2 51 6 
30,251  7 
30,  2620 
3n  ,?52l 
30,2522 
30, 25  23 


7764 C 0 
3C3A7  1 
77  7 4 6 1 
03515  O 

50C25  0 
21(04  0 
60606  l 
45  345  1 
0226?  0 
C 3 5 1 5 C 
45071 
0226?  0 
61016  1 
A 146  1 1 

20  20  6 1 
a a 2fe  5 n 
03515  0 
02262  0 
43006  < 
04703  1 
/ ' 

45345  1 

03515  0 
21006  1 
43044  0 
606C4  0 
04463  1 
77745  1 
C6520  0 
02342  0 
36344  1 
60566  1 
45345  1 
03 e 1 5 C 
00003  1 
72406  0 
52421  1 
03515  o 
41325  0 
0 3 5 1 5 0 
0 34  74  0 
45215  0 
02272  1 
03631  0 
41325  0 
0233C  0 
00005  1 
624  15  0 


T2TFST 


NCPATFS 


RATES 


T2TEST 
4 SEC  ( 17) 

8MN 

ENGGFF 

OLOAO 

T GO 

DSL  BMN 
T2A 

CMPONENT 
DLOAD  DSU 
TBUP 
TGC 

DDV  3ALL 

T PUP 
LOG  SUB 
SL  PUSH 

BOD V 30  SL 

T GO 
TBUP 

PUSH  3 ON 

FL  PC 
NORATES 
DLOAD  DSU 
T GO 
T 3 

BPL  SET 

RATES 
F L PC 

DLOAD 

HI 6ZERCS 
STORE  PRATF 
STCALL  YRATC 

:onst 

OLOAD  DSU 

TGC 

02D 

PUSH  SL1 

BDSU  SL3 

T GO 

POOL  DMP 

TGO 
ROOT 
DAD  DSU 

/R /MAG 
RCO 

POOL  DMP 

DR  DOT 
04  D 

DAD  SL  2 
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( TGO  - 4 )*?  (-17  ICS. 

IF  TGO  - T2  NEG.,  GC  TO  CMPONENT 


l-  TGO /TP  UP 


-L  IN  PD L I 0)  (2  ) 

-TGC/L*2  (-1  7) 

TBUP  ♦ T GO/ L = 01 2 *2  ( - 17  > 

STORE  IN  PD  LI  2 I (4) 

IF  FLPC  = It  GO  TO  CONST 


FLPC-  1 


B = 0 
D = D. 

GO  TO  CONST 


TGO  - D12  =921*21-17) 

IN  PDL  I 4) 

(1/2TG0  - D21  ) *2  ( - 1 3 ) = E * 2|-13) 
IN  PDL  (6  ) 


(6) 
IP  ) 


ROOT  TSD  * 21-24) 

R ♦ ROOT  TGO 
R ♦ R DOT  TGO  - RCO 
MPAC  = - OR  *21-24). 

-OR  IN  PDL (B ) ( 10) 


(B  ) 


02  l DRDOT  *21-24) 

(021  DRDOT -DR) *2 (-22 
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■ m 

30,2524 

56271 

0 

DDV 

DDV 

Ol  95 

3n , 2625 

C00C7 

0 

06D 

ID21  DROCT-DR) /E*2  (-9 ) 

0196 

REF 

30 

LAST 

838 

30  ,2526 

03515 

0 

T GO 

D 1 97 

REF 

3 

LAST 

83R 

30, 2527 

C2342 

0 

STCRE 

PRATE 

B * 2 (8  ) 

oi9p 

30,2530 

7 1240 

l 

8MN 

9L0AD 

R>0  NDT  PE  P MI  TTFD 

•>  199 

RFF 

I 

. 

60535 

1 

CHKBMAG 

9233 

REF 

10 

l AST 

838 

30,  2532 

06520 

C 

HI 6ZFRCS 

0201 

RFF 

5 

LAST 

83  9 

. 

36342 

1 

ST  CAL  L 

PRATE 

0 20  2 

PEF 

1 

30 , 25  ? 4 

(0547 

1 

PROK 

O2o3 

30,  25?5 

c 6 20  2 

1 

CHKBMAG 

SR  4 

30  V 

B*2(4) 

02  04 

REF 

1 1 

LAST 

83  8 

3C  ,2536 

02262 

0 

TRUP 

(ft  / TAU)  * 2(  21) 

920* 

30,  2 53  7 

51025 

1 

DSU 

R PL 

0?  06 

REF 

1 

30,2  540 

26  03  2 

1 

PR  LI  Ml  T 

( B/  TAU1  * 2(211  PAX. 

0 207 

RFF 

2 

LAST 

839 

30,255] 

6C547 

1 

PROK 

0239 

30, 2542 

41345 

0 

DLCAO 

PMp 

0209 

REF 

2 

LAST 

839 

30  ,2543 

26032 

1 

PRI  IM  I T 

o 2 IP 

RFF 

12 

LA  ST 

839 

10,2544 

P2262 

0 

TRUP 

R MAX.  * 2(4) 

0211 

30, 2545 

776  12 

1 

SL  4 

BVAX*2  (fl) 

0212 

PEF 

5 

LAST 

839 

39  ,2546 

02342 

0 

STORF 

PRATE 

3213 

10, 2547 

77745 

1 

PROK 

D LOAD 

(-2H 

REF 

31 

LAST 

8^9 

\ ,2  5*0 

03515 

0 

TGO 

'215 

1 . 551 

43205 

1 

DMP 

DAD 

YDDT  TGO 

3216 

RFF 

5 

l AST 

837 

?C,  2^2 

C23C2 

1 

YOCT 

•217 

REF 

5 

LAST 

83C 

1 . ' 

02326 

1 

Y 

Y ♦ YOOT  TGO 

9 2 1 B 

30,2554 

( 5225 

1 

OSU 

PDDL 

Y ♦ Y DOT  TGO  - YCO 

021  9 

REF 

6 

L AST 

832 

30,  2555 

C 3(33 

1 

YCO 

PPAC  = - DY  * 2 (-24.  ) IN  POL  (8  ) (10) 

0220 

REF 

3 

LAST 

837 

30  ,2556 

0233? 

1 

DY  DOT 

3221 

30, 2557 

4 3 2 C 5 

1 

DMP 

DAO 

021  DY  DOT  - Of  (8) 

0222 

, r 

00005 

1 

040 

•>223 

3P.25M 

56.31? 

1 

SL2 

DDV 

(021  DYDOT  - DY  )/E  #2(-9) 

3229 

30, 2562 

40271 

1 

DDV 

SET  PD 

(02  1 or  DOT  - DY  >/ E TG0*2(8) 

0225 

REF 

32 

LAST 

839 

30  ,2563 

03515 

0 

TGO 

= 0*2(  8) 

0 226 

3C  ,2564 

00005 

1 

D4 

(227 

PFF 

3 

l AST 

838 

. - 5 

0 2344 

0 

STORE 

YP.  A TE 

0220 

. 

41345 

0 

CONST 

DLCAD 

DMP 

LOAD  B*?(  8) 

3229 

REF 

6 

l AST 

839 

• 

C2342 

0 

PRATE 

B 01 2*2  (-9  ) 

0 210 

30,2  570 

00003 

1 

0 2D 

0231 

. 

56325 

0 

POOL 

DDV 

012  B IN  PDLI4I  (61 

3 23? 

REF 

5 

L AST 

838 

30,  2572 

C7330 

0 

DRDCT 

LOAC  0RDGT*2(-7  ) 

• 233 

30  ,2573 

■ 1 

0 

COD 

-ORDOT/L*  ?(  -7) 

0 2 34 

30,2574 

4530? 

1 

SR2 

DSU 

(-DROOT/1 -D12  B)=A*2(-9)  (4) 

0235 

30,  2575 

77626 

0 

STAOR 

0236 

PFF 

2 

LAST 

12  2 

30  ,2576 

61441 

1 

STDOL 

PCDNS 

3237 

REF 

4 

LAST 

839 

30,  2577 

C2344 

0 

YRATF 

0*2  (8  > 

02  3r 

. • 

65205 

0 

DMP 

POD  l 

012  O.EXCH  WITH  -L  IN  PDL  (9  ) (2,2) 

0239 

1 . i 

69465 

0 

8 DDV 

SR2 

-DYDOT/l  *2(  -9 ) 

3257 

REF 

4 

L AST 

839 

■>C,  26C2 

02  332 

1 

DYDOT 

0251 

. 

77625 

0 

DSU 

( -0  YOOT /L-D  12  D)  =C*2  ( -9) 

0 252 

. 

ooooi 

0 

000 

0253 

REF 

2 

1 AST 

122 

30,  260  5 

02340 

1 

STORE 

YCONS 

GAP:  ASSEMBLE  REVISION  56  DF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ASCENT  GUCAKCE 


"24  6 
D?47 
r >24  8 
' ?4« 
r 

251 

025? 

r.25l 

•254 

1 ?5*» 
0256 
9257 
j?58 
0?  50 
0 260 
0261 
0 262 
3263 
U?6  A 
0265 
3 266 
0267 
'268 
0269 

02  70 
3271 
r.  2 7 2 
o 273 
327A 

f-275 

0276 

02  77 
0 278 
3270 
0?  BO 
0 2ft  l 
32B2 
0283 
3284 

0285 

0286 
3237 
02  8 8 
r 289 

3 29D 
02«l 
0 29? 
0291 


REF 


RFF 

OFF 

REF 

OFF 

RFF 

PEF 

REF 

REF 

REF 

REF 

REF 

RFF 

RFF 

REF 

RLE 


RFF 


RFF 


REF 


RFF 


RFF 

REF 

REF 


1 


1 1 


3 

3 


LAST  836 


LAST  039 

LAST  839 
LAST  830 


LAST  837 
LAST  122 
I AST  RAO 

l AST  r3q 

LAST  839 

LAST  860 

LAST  83  1 

LAST  837 
LAST  860 

LAST  83  7 


LAST  836 


LAST  860 


LAST  839 

LAST  836 
LAST  83  1 


■ 1 

30  .2610 
30,  26  11 
; ,2612 
30,2613 

30, 26  14 
3C  ,2615 
10,261 
1 , 26  1 7 
i ,262( 
•*<3,  2621 

39.2  622 
3f  ,2623 
30,  26  26 
30  ,?6?5 
J0,262< 

10,  26  7 7 

30  ,26  33 
30,  2631 

30.2  632 

39,2633 
70, 2636 
, 

70, 2636 
3C,  26  37 
30  ,2660 
30, 2661 
3'  ,2  66? 
30,2663 

70. 2666 
30  ,2665 
7n,2666 

30. 2667 
3;  ,265f 
30,  26  51 
30,2  652 
30,2653 
30, 2CC6 
3f  ,2655 
30,26  56 
10, 2657 
3;  ,2660 
3Ut 2661 
3C,?66? 
30,2663 

30. 2666 
30  ,2  665 

, >< 

30. 2667 


63CCI  1 CVFCNENT  SETPC 


OOOOl  0 

0676?  1 
6C 1 1 6 1 

77626  1 CALL 

71571  1 

6 1365  0 ♦ 3 OLOAO 

27747  0 
02362  0 

76215  1 OAO 

02336  0 
0226?  0 

65  352  l SL1 

02306  0 

16350  C STCOL 

27767  0 

61205  1 DMP 

02364  0 

02343  1 

72471  0 00V 

02262  0 

02346  1 STORE 

65361  0 VXSC 

02274  1 

02350  0 

7 3361  0 VXSC 

03535  1 

41572  1 VSLl 

65246  l ABVAL 

02254  0 

47  316  1 DSQ 

00043  0 

41725  C PDDL 

02254  0 

45316  1 DSO 

CCC43  0 

71240  1 BMN 

60657  0 

coon  1 

52166  1 SQRT 

60  665  1 

" 345  0 Nn-A  TP  OLOAO 

09007  0 

77761  1 VXSC 

OOCOl  0 

14001  * STOOL 

C6520  0 

77765  0 AIMER  S I GN 
02334  1 

02352  1 STORE 


BCFF 

000 

P7071FLG 


RPCOMP? 

OMP 

100CS 

PRATE 

DO  V 

P CONS 

TBllP 

OSU 

GCFF 

ATR 

100CS 

DAO 

YRATF 

Y CONS 

S LI 

TB  UP 

ATY 

POOL 

L AXIS 

ATR 

VAO 

JN  IT/R/ 
PUSH 
POOL 
AT 

OSU 

340 

PUSH 

A T 

OSU 

340 

OLOAO 

NO-AT  P 

8D 

GOTO 
AIMER 
300  V 
60 

OOD 

000 

HI  6 ZEROS 

0 7 OOT 
A TP 
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F7  S3 


IF  P7071  FLG  = 1 I I.E.  P70  OR  P7l> 
COMPUTF  ME  H RP  FOR  NEXT  CYCLE. 


3(T -TO  1*21-9) 

I AF  B ( T — T 0 1 1*2 (-91 
(A*R(  T-T'')  ) /TB  UP*  2(  8) 


ATP  *2(9  ) 


(C  + DIT-TO)  )*2l-S) 


AT  Y *2  ( 9 ) 

ATY  UY*2  (8  1 (6) 


AH* 2 (9  ) IN  POL  tC  ) 

AH  (2)  IN  P0LI34) 
AHMAG  IN  POI  ( 6) 

(AT  (2  ) - AH  (2  ) ) *2  ( 1 8 ) 
= A TP  2*  2(  18) 


( ATI  21  < R ( 2)  -A  H ( 2)  )*2(  IF) 
= AT  P3  *2  ( 1 8 ) 

IF  ATP3  NFG ,G0  TO  NC-ATP 
LOAD  ATP  2,  IF  A TP  3 POS 

A TP  * 21  9) 

KR  AT/ AH  = KH 

KH  AH*2  (9  ) 


(0  ) 

( 6 > 

C 81 

I 12) 
(10) 


STORE  N EW  AH  IN  PDL(  0) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L A SCENT  GUI  CANCE 


0 294 

3C , 2 o70 

77761 

1 

VXSC 

02  os 

REF 

LAST 

836 

30,  267  1 

02575 

1 

Z A XI  SI 

0296 

30,2672 

53372 

1 

VS  LI 

VAD 

T?07 

30, 2673 

OCCCl 

0 

000 

029fl 

REF 

18 

LAST 

831 

10,2  674 

03253 

0 

STORE 

UNFC/2 

0 209 

30,2675 

43001 

1 

S ET  PD 

BON 

0339 

2C , 2676 

cccci 

0 

000 

03(.  1 

RFF 

3 

L AST 

831 

30  ,2677 

04704 

0 

FLP  I 

0302 

R EF 

1 

3E , 2700 

60210 

1 

PI 2 RET 

0303 

30,  270  1 

776  14 

1 

RON 

0304 

REF 

3 

LAST 

829 

. 

04  701 

0 

EL  Vp 

3335 

REF 

l 

3 C,  2703 

6 0 7 5 7 

1 

CHECKALT 

0306 

30,2  704 

57575 

1 

MA  INL  INF 

V LOAD 

VCOMP 

0307 

RFF 

20 

LAST 

84  0 

. 

03535 

1 

UNIT/R/ 

3338 

REF 

7 

1 AST 

79  7 

3C,  2706 

1726  1 

1 

STODL 

UNWC/2 

0309 

REF 

2 

LAST 

83  2 

JO  ,2707 

03654 

0 

TXO 

0310 

30,2710 

S 1025 

1 

DSU 

BPL 

0311 

RFF 

U 

L AST 

80  2 

30,  27  1 1 

0 1234 

0 

PI  PT1  MF 

0312 

RFF 

1 

30  ,2712 

60720 

l 

AS  CT  ERM 

T 3 1 3 

30, 2713 

77614 

1 

BON 

0?H 

REF 

2 

L AST 

B2fc 

30,2  714 

047  11 

1 

ROTF  LAG 

0 315 

REF 

1 

30,271  5 

57272 

1 

ANG1CHFK 

3316 

30, 2716 

77  6 14 

1 

CLRXFLAG 

C LEAR 

0317 

RFF 

3 

1 AST 

236 

3(  ,2717 

06666 

1 

XOVINFLG 

0 32? 

30,2720 

77776 

l 

ASCTERM 

EXIT 

0323 

REF 

4 

L AST 

827 

30,  27  2 1 

3 3105 

0 

CA 

FLA&WR09 

0324 

REF 

1 

3'-  ,2722 

7 4 742 

0 

MASK 

FLRCSBIT 

3325 

REF 

235 

LAST 

027 

. I 

1C  CCC 

0 

CCS 

A 

0326 

RFF 

2 

LAST 

837 

3C  ,2  724 

1 2750 

0 

TCF 

A SC  TER  Ml 

0327 

RFF 

139 

LAST 

834 

■ 

0 6051 

0 

TC 

INTPPET 

3328 

30, 2726 

77624 

1 

CALL 

0329 

REF 

4 

LAST 

80  9 

, 

61073 

1 

F INDCDUW 

0330 

30,2730 

77776 

1 

ASCTERMl 

EXIT 

0331 

REF 

5 

l AST 

84  1 

3o,  27  31 

3 < 1C5 

0 

♦ 1 

CA 

- 1 A3WR09 

0332 

REF 

2 

1 AST 

841 

33  ,2732 

7 4 742 

0 

MASK 

FLRCSBIT 

3 333 

REF 

2 36 

l AST 

84  1 

30, 2733 

IC  000 

0 

CCS 

A 

0334 

RFF 

3 

LAST 

84  1 

10,2734 

1 2750 

0 

TCF 

A SC  TFRM3 

0395 

RFF 

14 

LAST 

810 

30,2735 

3 0104 

1 

CA 

FL  AGWROR 

3336 

RFF 

4 

I AST 

810 

30, 2716 

7 4742 

0 

MASK 

F LUNDBI T 

"337 

REF 

237 

LAST 

841 

30  ,2737 

10  000 

0 

CCS 

A 

0 338 

REF 

4 

LAST 

841 

30,274  0 

1 2750 

0 

TCF 

ASCTFRM3 

033*1 

REF 

4 

L AST 

80  7 

30,  274  1 

2 7723 

0 

CAF 

PRI023 

03382 

REF 

19 

LAST 

807 

30 ,2742 

0 5146 

1 

TC 

PR  IOCHNG 

3339 

REF 

1 

30, 2743 

2 30  3 

0 

CAF 

V06N94 

0340 

REF 

23s 

LAST 

8 30 

30,2  744 

0 4616 

l 

TC 

BANKCALL 

0 34 1 

REF 

? 

LAST 

799 

, 745 

2 04  71 

1 

CAOR 

REGPOSPR 

3 341  1 

REF 

9 

L AST 

799 

’0, 2746 

2 47  36 

1 

CAF 

PRI020 

03412 

RFF 

20 

LAST 

841 

30  ,2 747 

C 5146 

l 

TC 

PR  IEICHNG 

0 34  2 

RFF 

53 

LAST 

831 

3C  ,2750 

C 4635 

0 

ASCTERM3 

TC 

POST  JUMP 

0343 

RFF 

5 

l AST 

834 

30,  275  1 

66102 

1 

CADR 

PI  PC  YCLF 
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ATP  Z AX  I S *2(8). 

AT*  2(  9 ) 

WILL  BE  OVERWRITTEN  IE  IN  VERT.  RISE. 


( xnviNFLG ) 


INSURE  THAT  THE  NOUN  63  DISPLAY  IS 
OYPASSE?  IF  WE  ARF  IN  THE  RC  S TRIMMING 
MODE  OF  OPERATION 

RYPASS  DISPLAYS  IF  ENGINE  FAILURE  IS 
INDICATED. 


RAISF  PRIORITY  SO  WAKEPLAY  WILL  BE  SET 
UP  AT  A HIGHER  PRIORITY  THAN  SERVICER 


RETURN  TO  NORMAL  SERVICER  PRIOR  IT’ 


GAO:  ASSFMBIE  REVISION  56  OF  AG*-  PROGRAM  ZERLINA  BY  ZOROASTER 

L A SCENT  GUI  OANCE 


f'344 

CJA5 


C 346 
3347 
o34B 


REF  42  LAST  831 
REF  ft  LAST  R20 
PFF  1 


1 r , 2753 
3:  ,2754 
3r, 2755 
3:  ,?  756 


77776  1 
C C CCA  0 

0 4674  a 
4C166  1 

1 7731  1 


ASCTERM4  EXIT 

INHINT 

TC  IBNKCALL 

CAOR  STCPRATF 
TC  F ASCTERM1 


0 34° 

■»353  RFF 

0351  PEF 

0352 

0353  RFF 

0354  PfF 
3355 

0356  RFF 
•357  PEF 
3358  REF 
0356 

0 3 60  R FF 

0361  RFF 

0362  RFF 
3363  REF 

0364 

0365  REF 
3366  PFF 


L AST  838 
LAST  832 


LAST  84 1 
LAST  841 


I A ST  84  1 

I AST  841 
LAST  842 

LAST  e4? 


3 ,27 1 
30  ,2761 
3-.;  ,27ft  2 
30, 2761 
30  ,276  4 
70, 2765 
. 

30,2767 

, n 

30  , ? 77  1 

. 

3C,  2773 
3 C ,2774 
3C, 2775 
3of?776 
30,2777 
2C, 3000 


45345 
C 227  2 
C 2 324 
5002s 
260  36 
57312 
43C14 
04661 
04711 
6 07C4 
43345 
01234 
25723 
37654 
C C 7 C 4 
776  14 
04631 
60765 


CHFCKALT 


r XI  TVR 


FX  I T\P  1 


OLCAD 

OSU 

CLEAR 

OLOAI) 

ST  CAL  L 
Cl  RGO 


DSU 

/R/RAG 
/L  AND/ 
BMN 
25KF  T 
CHFCKYAW 
BON 
FLVR 
ROT  FLAG 
VA1  MI  NE 
DAO 

P 1 PT  IMF 

10SFC  S 
TXO 

MAI  NLI  NE 

ROT  FLAG 
F XI  TVR 


0367  REF  3 LAST 

0368 

0360  RFF  1 


45  27,2000 

27 , 3 272 


SETLOC  ASENT1 
BANK 

COLNT*  tf/ASENT 


0370 

J 37 1 REF 

0371  5 

0372  REF 

3373 

0 3 74  REF 
375  REF 
03  76 

0377  REF 
3378  REF 
C/3  70 

0 3R0  REF 
3381  RFF 

0382 

0383  KEF 

0384  PEF 


1°  I AST  84  1 

5 LAST  837 

2 LAST  125 
1 

6 LAST  842 
21  LAST  841 

2 LAST  126 
1 

5 LAST  842 


2 7,  3273 
27,3274 
27,^275 
27,  3276 
27  ,3?77 
27,  IO0 
27,  330  1 
27  ,330? 
27,  33C3 
27,  3 304 
27,3305 
27,  : 306 
27  ,3307 
27,3310 
27,  3.3  1 1 


53575  0 
03253  0 
77641  1 
02137  0 
51025  1 
02555  0 
5 7 3 C 7 1 
50375  0 
02137  0 
03535  1 
50025  0 
02557  L 
71540  0 
77614  1 
04631  1 
60716  1 


ANG1  CFEK 


CIFFROT 


VLOAO  J N IT 

UNF  C/2 

OOT 

XNBPIP 
OSU  B PL 

CnSTHFTl 
OFFRCT 
VLOAO  OOT 

X V BP  IP 
UNIT/R/ 
DSU  3MN 

COST  HET  2 
KEEPVRl 

CL  RGO 

ROT  FLAG 
CLRXFLAG 


3386  RFF 

0387 

0388  REF 


0 7,2661 

4 LAST  842  27,  20C0 

27,3312 

2 LAST  e4?  TO  842  : 16 


16* 


HANK  7 
SETLOC  ASENT1 

BANK 

CCUN1  * 1 1./ AS  ENT 
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N3  GUIDANCE  THIS  CYCLE  — HENCE  ZERO 

THE  DAP  COMMAVOEO  RATES. 


IF  H LT  25<  CHECK  I A X I S OR  I F V TA  T I ON . 


GAP:  ASSEMBLE  REVISION  5b  CF  AGC  PROGRAM  ZFRL  INA  RY  ZOROASTER 


L ASCENT  GUICANCE 


0389 


REF  2 LAST  842 


27  ,3312 


SETXFLAG  = CHECKYAW 


0 390 

C3o1  REF 
G392 

D 39  3 REF 

03  94  RFF 
0395 

3396  REF 
0397  RFF 
0 398 
0309 

0400  REF 
3401  REF 

04  0? 

(14r3  REF 
3434  REF 


4 

1 


LAST  84  1 

LAST  840 
LAST  84C 

L AST  840 

LAST  841 

LAST  838 


27,  ' -'13 
27  ,8  314 
27,  3?  1 5 
27,  3Tift 
27,3317 

27. 3320 

27 .3321 

27.3322 
27,  3323 
27  ,3324 
27,  3325 
27,  3 32  6 
27,3327 
27, 3330 


77614  1 
06466  0 
74345  0 
C2346  1 
02274  l 
74325  r 
C 2 3 52  1 
02575  1 
53455  0 
45*25  1 
03474  0 
17332  0 
5 2044  0 
60776  l 
71*36  1 


CHECKYAW  SET 

XO  VI  NF  LG 
OLOAD  VXSC 
ATY 
LA  XI  S 

PDDL  VXSC 
ATP 

ZAXIS1 
VAD  UNIT 
POOL  DSU 
ROOT 
40FPS 

BPL  GOTO 

EX  IT  V R 1 
KC  E PVR 


0409 

OAOi 

CjJO 

'411  REF 
341? 

0413  REF 


27  ,3331 
27,333 l 

14. 3536 

2 LA'T  832  34  ,2000 

34. 3536 

2 | AST  8 34  TO  8 36: 


000  17  1 40  EPS  2DEC  0.12192  R- 

233C5  0 

BANK  3* 

SETLOC  AS  ENT  8 
BANK 

49  49*  COUNT*  $ ft  /A  SE  NT 


0 4 14 
3 4 1 * 
0416 
'417 
"*4l  8 
0419 


REF  8 LAST 

REF  22  I A ST 
RFF  20  LAST 
REF  ? LAST 


34  ,3  536 
R4  1 34,  35  37 

34  ,3540 
842  34,3541 

84  2 34,  354  2 

841  34,3543 


45675  ] KEE  PVR 
74516  ( 

77775  1 KFEPVRl 
03535  1 
1-  725  3 1 
60720  1 


V LOAD  STADR 
STORE  UNWC/2 
VLOAD 

UN  IT/ R/ 
STCALL  UNFC/2 
ASCTERM 


5423 

0421  REF  1 

042? 

3423  RFF  1 


14,  2 34? 
14,2106 
14  ,2347 


RANK  1 4 
SETLOC  A SEN T 4 
BANK 

COUNT*  IS  /ASENT 


'424 
' 4 ?6 

0426 

0427 
3428 
04?  9 
04  36 
343  1 

43? 
433 
04  3 4 
435 


REF  24 

RFF  16 

REF  28 

RFF  12 

RFF  10 
REF  30 
REF  33 

RFF  351 


LAST  832 

LAST  842 
LAST  837 

LAST  803 

LAST  78  8 
LAST  811 
I AST  839 

LAST  834 


1 4 , 2 3 5 ( 

1 • 

14  ,2352 
14,2353 
14,2  354 
14,2355 
14,  23*6 
14  ,?357 
67,15  14 
14, 2360 
14  ,2361 


4 *225  r. 
01234  0 
C 34 54  1 
77476  1 
C 7271  1 
* 5016  0 
54  003  0 

0 0004  0 
10  155  1 


ENGOFF  RTB 

LOADT  IME 
OSU  3 AO 

P IPT  IME 

TTCGC 

DCDMP  EXIT 
TC  TPAGREF 

CAF  EBANK7 
TS  EBANK 

EBANK=  T GO 
INHINT 

CCS  MP  AC  *1 
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PROHIBIT  X-AXIS  OVERRIDE 


RECALL  LC1SVEC  FPOM  PUSHL I ST 


FORCE  SIGN  AGREEMENT  ON  MPAC  , HPAC  +1, 


CF  AGf  PRCCPAM  ZFRLINA  BV  ZOROASTER 


JAP:  ASSEMBLE  REVISION  *<6 

L ASCENT  GUIDANCE 


043* 

043  7 
3438 
0439 
PA  AO 
3441 
04  A? 
0 AA  3 

4 A '• 

■ AA  4 
3 AAA 

044  7 
0 A A 7 

3 A A 8 
C AA  9 
"A  50 

04  51 


REF  166 
RFF  38 
REF  7 
REF  22 
RFF  1 
RFF  65 

REF  3 
RFF  3/. 
RFF  2 

RFF  I AO 

REF  7 
RFF  2 


LAST  822 
LAST  81 A 
LAST  146 
I AST  7A7 

l A ST  83 A 

LAST  8A  A 
LAST  8 A 3 
I AST  ft  A A 

LAST  8A1 

LAST  8 3 7 
I AST  8-38 


1 A i 2362 
1 A »2  363 
LA,  2 36 A 
1 A, 2365 
14,7  366 
14, 2367 
IA  ,2370 
14,2371 
1 A,  2 372 
I A ,2  373 
' 7,  1 c 14 
H,  7 374 
IA  ,7375 
IA,  2376 
IA  ,2377 
14,7400 
K,  7 AO  1 


1 2265  1 
1 7365  1 
’ 4755  1 
6 4753  1 
55*644  1 
0 5204  1 
C 2A0  2 0 
r 5364  0 
47014  1 
76133  1 

02402  0 
30067  0 
C 6051  C 
520  14  0 
034 70  1 
6 0 A A 6 1 


TCF  *3 
TCF  *2 
CAr  ZERC 
AO  3 I T 1 

TS  ENGOFFOT 

TC  TWIODIE 

AORES  EN  GOFF  1 
PHASCHNC 
A 7 C 1 A 
-GFNAOR  ENGOFFOT 
FRA  NK  = TGC 
2CA0R  ENG0FF1 


OC  T 


TC  INTPRET 

SET  GOTO 

IOLEFL AG 
T2 TE  ST 


045?  RFF  A3  LAST  842 
3453  REF  1 


14,7402  C 4674  0 F.NGOFFl  TC  IBNKCAL1 

14,  2 AC  3 7 5551  1 CADR  ENGIN0F2 


0454 
'455 
1456 
457 
'i  A 5 7 
1458 
4 50 

3 463 

04  6 1 
0462 
3462 
f’A63 


REF  4 LAST  733 
REF  1ft  LAST  767 
RFF  79  LAST  830 
REF  3 LAST  733 

REF  66  LAST  844 


PFF  35  LAST  844 
RFF  A LAST  844 

REF  55  LAST  813 


14,2464  3 5077  1 

14,7405  0 5072  1 

F 7,  1455 

14  ,2406  02416  0 

14,7407  3CC67  0 

14,  2410  C 5-64  0 
14,7411  07024  0 

14, 2412  17CG0  1 

F7, 1 514 

14,7413  C2416  0 

14, 2414  20067  0 

14  ,2415  1 5272  1 


CAF  PR  1 0 1 7 

TC  NOV  AC 

F 8 A NK  = WHICH 

2CA0R  CUTOFF 


TC 

OCT 
OCT 
FRANK: 
7 CADR 


PHA  SCHNG 
7 7024 
J 7000 


TCF  TASKOVER 


0464  PFF 
■465  PFF 


466  REF  1 

.■467  REF  236  LAST 

468  REF  24  LAST 

0 469 

3470  REF  1 

0471 


14  ,2420  3 2437  0 

R41  14,  2421  C 4616  l 

830  14,2422  20477  1 

14,2473  1 7426  1 

14,  2424  1 24.30  0 

14  ,7425  1 2420  1 


CAF 

TC 

CADR 

TCF 

TCF 

TCF 


V 16N63 
6ANKCALL 
SOFLA  SH 


472  REF  54  LAST  P4 1 

73  RFF  1 


C 4635  0 
71554  0 


TC  POST  JURP 

CADR  T1RHASC 


0474 

3476  KEF  44  LAST  fl44 
0476  RFF  7 LAST  777 


14,2430  0 0Q04  0 CUT0FF1  IN  HINT 

14,  243  1 C 4674  0 TC 

14,2432  40154  0 CADR 


I BNKCALL 
Z A TTEROR 
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CIA)  = OT  - 1 BIT 
CIA)  = 0 
CIA)  = 0 

CIA)  = 1 BIT  OR  OT. 


0ISABL6  DELTA-V  MONITOR 

SHUT  OFF  THF  ENGINE. 

SET  UP  A JOB  FOR  THF  ASCENT  GUIDANCE 


SET  FI  PCS  FLAG. 


ZERO  ATTITUDE  ERRORS  BEFORE  REDUCING  OB. 


GAP:  ASSFKBLE  RfV  IS  ION  56  OF  AGC  PROGRAM  Z ERL  INA  BY  ZOROASTER 


L ASCENT  GUIDANCE 


04  78 
i 479 
0480 


RFF  49  LAST  844 
'M  ^ LAST  742 
RFF  55  LAST  R44 
REF  1 


14,  2423  C 4 1 74  0 
14,2434  40  14  1 1 

14 ,?435  L 4635  0 

14,  2436  7 1544  1 


TC  IRNKCALL 

CADR  SETNINDB 
TC  POSTJUMP 

CADR  CUTOFF? 


• 481 

04  8 2 
C4H3 
'484 
348  5 


14  ,2437 
3 * , 8<:44 

REF  3 LAST  B4  3 34,2000 

34,3544 

REF  3 L AST  843  TO  843: 


04077  0 V16NS3 

6 55* 


VN  1663 

RANK  34 
SFTLOC  ASENT8 
BANK 

f CUNT*  li/ASENT 


0486  REE  67  LAST  844 
■48  7 


34  ,3544  0 5364  3 CUTOFF2  TC 

34,3545  C4C24  0 OCT 


0 HA  SC HNG 
04024 


4 89 
149J 
04  9 1 
0492 
3493 


PFF  1 

REF  237  LAST  844 
REF  25  l AST  844 
RFF  2 LAST  844 

REF  2 l AST  845 


34,  3546  3 35<4  0 

34,3547  C 4616  1 
34,  15  50  2C477  1 

34.3551  1 3554  1 

34.3552  1 3554  1 

34. 3553  1 3544  0 


CAF 

TC 

CADR 

TCF 

TCF 

TCF 


V16N85C 
P ANKCALl 
GCIFLASH 
TERM  A SC 


04Q4  RFF  68  LAST  845 
0495 


34  ,3554  0 5364  0 T ERMASC 

34,9555  C4C24  0 


TC 

OCT 


P HA  SC  HN  C. 
04024 


04  96 
1)4  97 

0498 

0499 
-1500 
D501 


REF  46 
REF  7 
REF  Pi 
RFF  3 
RFF  31 


LAST  P45 
LAST  741 
LAST  83 1 
I AST  826 
l AST  830 


34,  9556 
34,9557 
34,  3 56  C 

34.3561 

34 .3562 
34,  156? 


C 00C4  0 
C 4674  0 
4C115  0 

0 5527  1 
00215  1 

1 60  C 1 1 


INHINT 

TC  IBNKCALL 

CADR  RESTCROB 

TC  DO WMF LAG 

ADRFS  LET  ABORT 

TCF  GOTOPOOH 


0502 


34,3564  04125  0 V16N85C  VN 


1685 


05 1-3 

0504 

0505 
3536 
0507 


f:  50  8 

35  o 


*?5U 

0512 

"513 

3514 

0515 

516 

3517 

'■51R 
0 519 


REF 

REF 

RFF 

REF 

REF 

F EF 
RFF 

RFF 

RFF 

RFF 

REF 


12 

8 

9 

36 


37 

38 


LAST  843 
l A ST  840 
LAST  840 

LAST  845 
l AST  844 


LAST  664 
LAST  845 

l AST  845 
LAST  84  5 

LAST  84  0 

LAST  842 


• •• , 

34,  ’566 
34,3567 
34, 3570 
36  ,9971 
34,3  572 
34,  1573 
34  ,3574 
34,  357 c 
’4,  3576 
34,3577 
94,  36CC 

34.3601 

34.3602 
34,  360  3 
14  ,3604 
34,9605 


77745  1 
06520  0 
02336  0 
C2342  0 
41345  0 
02342  0 
0 35  15  ( 

43205  1 
33653  1 
02336  0 
41205  0 
C3515  C 
03515  0 
79471  0 

65215  l 
02272  1 


RPCO'IPl  D LOAD 

HI  6ZER0S 
STORE  PCONS 
STORE  PRATF 
RPC0MP2  OLOAD  DMp 

PRATE 

TGO 

DM  P DAD 

THI  RD 

PCONS 
DMP  DMP 
TGO 
T30 

DDV  SL1 
T8UP 
DAD  POOL 

/R/MAG 


9:12  CCT.  21  ,1970  Z FLY 
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PAGE  845 


USFR • S PAGF  NO.  12 


7 S3 


PROCEED 


RESTORE  DEADBAND  DESIRED  BY  AS  T RON  AJ  T . 


DISALLOW  ABORTS  AT  THIS  TIME. 


FLRCS  = 1 (TR  IM  MODE ) 

SET  PCONS  = PRATE  = 0 SO  THAT 
PP  = R ♦ RDCT  TGO 
FLRCS  = 0 (GUIDANCE  MCDE ) 

LEAVE  PCONS  AND  PRATE  ALONE  SJ  THAT 

RP  = R + P, DOT  TGO  + (PCONS  *T  GO  **2  )/ 
(2  TBUP)  ♦ ( PR  A TE  * TGO*  * 3 ) / ( 6 TBUPI 


GAP:  A S St  H8  LE  fit  VI  SI  OK  56  CP  AG6  PROGRAM  ZERl  INA  BY  ZOROASTER 

L ASCFNT  OUJCANCE 


0520 

PEE 

5 

L AST 

863 

. 

03476  0 

P DO  T 

521 

?4  » 3 60  7 

63206  1 

DMP 

DAC 

-522 

REF 

39 

LAST 

86  5 

36,  36  10 

03515  C 

TGO 

'573 

36  ,3611 

77626  0 

ST  AOR 

D5?4 

REF 

3 

LAST 

826 

36, 3612 

75212  1 

STORE 

RP 

^5  7 5 

36,361 3 

77616  0 

R VO 

36,3  616 

65020  1 

ZOCTDCMP  ST  Q 

CALL 

)527 

REF 

1 

36,  36  15 

C2(2C  1 

A SC  SAVE 

528 

REF 

2 

LAST 

825 

36  ,3616 

71666  1 

T HETf  flMP 

•520 

36,3617 

63705  1 

OMP 

DAC 

ns3n 

REF 

2 

L AST 

126 

36,  36  20 

075(7  0 

K PAR  M 

531 

REF 

3 

LAST 

826 

36,3621 

npsoi  1 

JP  ARM 

353? 

76, 3622 

61625  1 

OSU 

PUSH 

0537 

REF 

6 

LAST 

866 

’4,  3623 

C2565  C 

RP 

' 535 

34,3624 

51025  1 

DSU 

BPL 

3535 

RFF 

2 

L AST 

125 

36, 362c 

C2547  C 

RAMI  N 

0536 

34  ,3676 

71631  0 

+ 3 

537 

36,3627 

6C345  0 

DLCAO 

POOL 

0538 

REF 

3 

L AST 

866 

36,  36  30 

( 2 c 6 7 0 

« AMI  N 

- 539 

36  ,3631 

61365  0 

♦3  DLOAD 

DMP 

356D 

34, 3632 

COCCI  0 

00 

055 1 

RFF 

1 

34,  3633 

16025  1 

HUM<-37) 

3 552 

34,3636 

7772  6 1 

POOL 

3553 

74, 3635 

61215  1 

DAD 

DMP 

0555 

RFF 

5 

LAST 

866 

34  ,3636 

02565  0 

RP 

0 555 

REF 

f 

LAST 

846 

34,36  27 

02565  C 

RP 

0556 

36,  3640 

75665  1 

RDD  V 

SORT 

557 

34  ,3641 

77626  0 

STAOR 

3 568 

REF 

6 

LAST 

836 

74,  36  6 2 

615C7  0 

STC  ALL 

ZDCTD 

0560 

REF 

2 

1 AST 

866 

34, 3 643 

02620  1 

a SC  SA  VE 

0550 

36,3644 

53575  0 

THETCOMP  VLOAO 

J N IT 

355  1 

REF 

16 

l AST 

836 

34,  3665 

03517  1 

R 

0 552 

i 

535  15  0 

PDVL 

UN  IT 

' 55  3 

RFF 

3 

I.A  ST 

720 

36,3  64  7 

01716  0 

R (CSM  ) 

0556 

36,  3650 

47206  0 

PUSH 

VXV 

0555 

34  ,3651 

OOOC1  0 

OD 

3 556 

26,  36  5 2 

77641  1 

DOT 

0557 

REF 

5 

LAST 

832 

36,  7653 

07316  1 

WM 

0558 

. 

24037  0 

STOVL 

30  D 

1 5 59 

26,  3(55 

72461  0 

DOT 

SLl 

0560 

36  ,3656 

75326  1 

ARCCOS 

S IGN 

0561 

34,3657 

00037  0 

3 0 D 

0562 

34,  3660 

7 76  1 6 0 

R VQ 

0566 

27,3333 

RANK 

27 

3566 

REF 

LAST 

842 

2 7,  2CC0 

SE  TLCC 

ASF  NT  1 

0566 

27, 3333 

BANK 

0567 

RFF 

3 1 

AST 

862  TO 

843  : 

1 7 33  * 

COUNT* 

**/  AS  ENT 

R:  12  OCT-  21. 1R7 


050  PAGE  856 


ZFIY 

USER'S  PAGE  NC.  13 


E7  S3 


COMP JT  E CENTRAL  ANGLE  ( 0) 

CENTRAL  ANGLE  IN  MPAC 

RA  IN  MPAC  AND  IN  PUSH!  1ST  I 2) 

RA  < RAMIN.  SET  RA  = RAMIN.  (21 


( ) 

UPDATE  ZDOTD  FOR  GUIDANCE  AND  DOWNLINK. 


(6  ) 

( 12  ) 

(6) 

< < ) 


SAP:  ASSFMRIE  REVISION  5b  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L ASCENT  GU  I GANCE 

0568 

0560  ref  23  I AST  86  3 

3 5 70  REF  a LAST  836 

0571 

3 57  2 REF  5 LAST  838 

0573  REF  6 LAST  fllq 

0576 


RD575 

0 57  6 30  ,3001  BANK  30 

877  REF  3 LAST  83b  30,2000  SETLOC  AS  ENT 

0578  30, 3001  BANK 


27  ,7333 
27,3336 

. 

27  ,333b 
27,  333  7 
27,  3360 
27,3361 


50375  0 
03535  l 
02567  1 

61312  1 
C3631  0 
02326  1 
7761b  0 


POT 

UNIT/R/ 
OA  XI  S 
DMP 
RCO 


9:  12  OCT.  21,  1970  ZFLY  .069  PAGE  867 
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;&> : 


ASSEMBLE  P£VI  SION  5o  OF  AGC  PRCGR ■ 


ZERLINA  BY  ZOROASTER 


L ASCFNT  HU  I DANCE 


nr  579  ASCFM  GUICANCE  CCNSTANTS 


1531 
1 58? 
>58? 
583 
0583 
1584 
05  8'- 
0585 
■*  585 
0587 
0587 
3588 
05  P‘3 
r 500 


3 Ci  30f  1 
0 ,3  m 1 
3 0,300? 

30,  30C  3 

3 r ,330^, 
3C, 30C  5 

. 

33,3707 
, I 

3 ),  3ou 

30.3012 

30. 3013 

. 

r 


00062 
OOOOn 
C 1031 
00000 
C 0 1 7 5 
OCOOO 
00045 
2(  CCC 
14400 
00000 
C 1 5 36 
0 1514 
01441 


100CS  EQUALS  2S  EC < 1 8 1 
T2A  EQUALS  2 SE C ( 1 7 ) 

4S EC  C 171  2DEC  40C  B- 17 

2SECJ  17)  2QEC  2 00  H-17 

T3  2DEC  1000  B-17 

6 S EC ( 1 8 1 2 DEC  600  8-18 

2SECC9)  2DEC  200  R-9 

V06N94  VN  0694 

V06N76  VN  0676 

V06N33A  VN  0633 


0591 

0592  RFF  1 

3593 

0504  RFF  1 


3’,  2< • 3 1 

. 

32,  2031 


RANK  33 
SETLOC  AS  ENT  6 
BANK 

C UUNT  * S $ /A  SE  N T 


1595 

->515 

0596 
.0596 

0597 
0597 


1, 

. 

33,2034 
3 3,  20  35 
33  ,?C36 


75751 
4 1775 
COO  22 
07212 
< ( 7 

16100 


0 

1 

1 

c 

l 


PRLTMIT  2 CEC  -.0639 

MINABOV  20EC  .0356  8-5 

25K  F T 20EC  762c  8-24 


9)  12  OCT.  21,  1 97C  ZFL 
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PAGE  846 


USER'S  PAGF  NO.  15  E7  S3 


(B/TRUP  )M  IN--  . IF  T.  SEC  (-3) 

10  PERCENT  RIGGER  THAN  GRAVITY 


GAP:  AS  SF  KB  LF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L ASCENT  GW  I CAN C F 


P 0599  THE  LOGARITHM  SUBROUTINE 

360.  , 2 -9.  3 644 

060 1 REF  1 30,  -’  ICO 

Obf  2 30,3016 


BANK  24 

SET  LOS  FLOG  SUB 

HANK 


R3S03  INPUT  X IN  MPAC 

ROM  A OUTPUT -LOG  (X  ) IK  M PAG 


0 60  5 
0606 
0607 
36^8 
0600 
0610 
3611 
0611 
0612 
0612 
0613 
36  1 3 
06K 
06  1 A 
3615 
6615 
0 6 1 6 
06 16 
0 61  7 
3617 
06 1 8 
36  IB 
3619 
0620 
o?l 
362  2 
0623 
062A 

0625 

0626 
3627 
0 628 
3 629 
1630 

0631 

0632 


PFF  352  LAST  8A 3 
RFF  2 LAST  837 

REF  1 


PEF  167  LAST  BAA 
PEF  353  l AST  8A9 


PFF  1 

PFF  35A  LAST  849 
REF  “1  IASI  3 1? 
RFF  355  LAST  8A9 
PFF  12  LAST  819 
REF  356  LAST  8A9 
PrF  357  LAST  RA  9 
REF  82  LAST  8A9 
REF  358  L AST  869 
REF  IA1  LAST  8AA 


3o  , 3 3 I 7 

. 

30, 3021 
30, 3q22 
30,3  02  3 
30, 302A 
30  ,3025 
. 

3u , 30  27 
30  ,30  3H 
20, 3031 
30, 303? 
30,3033 
. 

30 .3035 

30.3036 

3o,  30  37 

, 

30,  30 A 1 
30,  30  A? 

. 

30,  30 AA 

. 

. 

. 

. 

■ . 

3'  , 30  5 2 
30,3053 
30,  3f  5 A 

• 

30,  30  5 7 

. - • 

30,  3C61 


AA  301 
00  1(3 
17753 
77776 
0 723A 
00006 
CCCCO 
00002 
75777 
77175 
77A00 
7 5 4 16 
775  07 
65515 
77761 
635A7 
7 70  52 
55373 


01167 
30361 
76520 
75267 
3 A 7 55 
5A  156 
C 0006 
3 306  3 
52  155 
5 2 132 
3 0162 
C 7321 
52  1 = 6 
52  155 
52  132 
20  155 


0 

0 

0 

1 

0 

1 

1 

0 

1 

1 

0 

0 

0 

0 

0 

I 

0 

c 

0 

0 

1 

0 


0 

1 

0 

1 

1 

0 


0 6051  0 
A3A76  0 


LOG  SUB 


NORM  BDSU 

VP AC  * 6 
NEARONF 

EXI  T 

TC  POLY 

OEC  6 

20EC  . 0000000060 
2 OEC  -.0312514377 
2 OEC  -.3  155686771 

20EC  -.(112502068 
2DFG  -.0018545108 
2 DEC  -.0286607936 

2 DEC  .0385598563 

20EC  -.0419361902 


CAF  ZERO 

TS  *PAC  ♦ 2 

EXTEND 

DC  A :i.0G2/32 

OX  CH  «PAC 

DXCH  OOF  +1 

CA  MPAC  *6 

TC  SHORTMP 

DXCH  MPAC  «-1 

DXCH  MPAC 

DXCH  BUF  ♦! 

DAS  MPAC 

TC  INTPPFT 

OCCMP  RVO 


0633 

0633 


30.3062  0:>542  1 CLOG2/32  2DEC  .0216608494 

30.3063  36616  1 
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,\P:  ASSEMBLE  PE  VI  SI  ON  56  OF  AGO  PPCGPAH  ZERL  INA  0Y  ZOROASTER 

SERVICFP  JSFP'S  PAGE  NO.  1 EO  S3 

ROO'  1 *♦*****•**»**************<**•««**•****•**********•**************************  ••*»*•»***•******«*******•••*»••»**•• 

X ,f  3 VARIABLE  GUIDANCE  PEHinj  SERVICER  WRITTEN  BY  E VI E S 


OOC  T 
OOOR 

0009 

001C 


PFF 

REF 

RFF 


2 LAST  91  39,2000 

39,  36  6 l 

39  LAST  8-19  E7,1S13 

2 LAST  91  TC  92: 


98 


SETLOC  SERV1 
RANK 

EBANK  = OVCNTP 
COUNT*  $ 1/  S ERV 


R 001 3 PWEPFAO 

ROr  \u  #♦****»**»«*********** ******  ********* *********** *************************************** **•«***»«** ************** 


R OC'1 9 THIS  ROUTINE  IS  CALLEC  PY  A TASK  ( TD  WHICH  IT  DOES  NOT  RETURN!  TU  START  SERVICFR.  PREP  E AO  ZEROES 

>r  1 ' THE  PIPAS  AM  PIPASCLD  C P I FT  I NF 1 IS  ALREADY  SET),  SETS  V37  FLAG  AND  AVEGFLAG  S3  SHOW  THAT  SERVICER  IS  UN,  CLEARS 

032-  DPIFTFLAG  TD  SHOW  THAT  THOSE  PASSIVE  GUYS  ARE  NO  LONGER  IN  CCNTRCL,  INITIALIZES  THE  IN  FAMOUS  OV  MONITOR, 

U-r?  2 INITIATES  QUART  ASK  WHICH  COMPRISES  RIO  AND  R 1 1,  AND  SETS  UP  NORMLIZE,  THE  JOB  LEAD-IN  TO  THE  SERVICER  CYCLE. 


OP  29 

0025 

0026 

oo  ?7 
DO  2 8 
0028 


69  l A ST 

9 ' LAST 
2 LAST 


89  5 


8 50 
250 


39,  3**2 
39  ,3663 

p 7 , lc  13 
39, 3669 
19 ,3665 


0 5369  0 
97015  0 
77777  0 

03672  1 
7^067  1 


PREREAD 


TC  PHASCFNC 

DC  T 97015 
OCT  77777 
EBANK=  DVCNTR 
2C  ADR  318IP1AS 


SKIP  LASTRIAS  IF  THFRE  IS  A RESTART 


0029 
003  p 

OP  31 
003? 
00  3? 


REF  ? LAST  333 

REF  19  LAST  899 

RFF  5 I AST  339 

RFF  1 

RFF  1 


39.3666  3 5C31  0 

39.3667  0 5072  1 
c3 ,1  960 

39,36,70  0 3fc7l  1 

14  ,367 1 14063  1 


CAF  PRI021 

TC  NO VAC 

6 BANK=  NR OX 
2C.ADR  L A ST 81  AS 


DC  LAST  GY  R C COMPENSATION  IN  FREE  FALL 


0033 

0039 

0035 

0036 

0037 
00  38 
0039 


RFF 

REF 

RFF 

RFF 


LAM 

LAST 

LAST 


899 
80  1 

389 

3»9 

803 

107 


B I 8 113 1 A S C S 


39,3679 
39,  3675 

39.3676 

39.3677 
39,  3700 


59  090 
c 9 C 9 1 
55 '259 
55*  255 


ZERO 
PI  PA  X 
P IPAY 
PI  PAZ 
PI  PA  XOLD 
P I P AY  CL  0 
PI PAZOLD 


ZERO  PIPAS  AND  P IP  ASOLD 


00391 
30  39? 
00393 


REF  20  LAST  731 
REF  28  LAST  823 


39 ,3701  3 9793  0 

39, 3 7 C 2 C CCC6  1 
3 9,  370  3 P 5 0 1 1 1 


CAF  B I T9  SFT  TEST  CONNECTOR  CUTRI  T TO  TELL  THE 

EXTEND  HYBRID  THAT  AVERAGE-G  IS  STARTING 

WOR  OSALMOUT 


0090 
O’*  4 1 
0092 


REF 

RFF 

RFF 


I AST  827  39,3709  9 0103  1 

I AST  812  39,  37C5  7 9773  1 

LAST  85i  39,3706  26  103  1 


CS  FLAGWRD7  SET  V37FLAG  ANO  AVEGFLAG  (BITS  5 AND  6 

MASK  SUPER011  OF  FL  AGWR  07  ) 

ADS  F L AG  WR  D 7 


3)93 


RTF  B?  LAST  895  39,3707 

RTF  1 39,  37  10 


TC  DOW  NFL  AG  CLEAR  DR  I FT  FI  G TO  STOP  CJASTJNG  FLIGHT 

ADRFS  DR  I F TF  LG  TYPE  GYRO  COMPENSATION  ???? 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21 , 1970  Z FLY 


>049  PAGE  851 


L SERVICER 


USER  • S PAGE  NC. 


E7  S3 


00  4 5 
004  5 
0047 
5343 


REF  1 


34.3711  ? 01  C2  1 

34. 3712  7 4744  0 

34.3713  C 0006  1 

34. 3714  1 3731  0 


CA  FLAC-WR06  IS  MUNFLAG  SET? 

MASK  MUNFLBIT 
EXT  END 

BZF  NORMSFT  NO:  00  NOT  IN  IT  I AT  E QUA* TASK 


0049  REF  ? LAST  747 

0050  RFF  2 LAST  851 


34.3715  10  754  0 

34.3716  1 3731  0 


CCS  PHASE  2 AVOID  MULTIPLE  OUARTASK  CALL 

TCF  NORMS  ET 


5 5 5 1 
00  52 

0053 

0054 

0055 
5556 


RFF  1 5 
REF  3 
RFF  3 
RFF  135 


78  1 ‘,,'717  4 0025  ’ 

4R3  34,3720  55*054  0 

3R0  14,3721  2 4361  1 

R 2 3 3<,,  3722  =4  001  1 

34,3723  4 0000  0 

7?  3 34,  3724  ‘.2  754  0 


CAF 

TS 

COM 

DXCH 


TI  ME  1 

TPASE2 

DEC17 


-PHASE2 


2.2  IS  POT  FOP  QUARTASK 


0057 
or  5fl 
5)59 
0060 
0060 


RFF  4 
RTF  3? 
RFF  4 
REE  1 
REF  1 


LAST  563 
LAST  P 12 
l AST  R58 


34,3725 
34 , 3 72  6 
E7,  1777 

34 ,3727 
34,3720 


3 601"  " 
C 5214  O 

02055  0 
42C67  0 


CAF  D;T2l 

TC  WAITLIST 

ERANK=  END-E7 
2CADR  OUARTASK 


, ■ 1 
0062 
3"'63 
0064 
0064 


RFF  10  LAST  04 1 34,  3731 

Mr  35  LAS1  74  K,3  73  > 

RCF  41  LAST  850  E7,  1513 

RFF  2 IASI  749  34,3733 

34,3734 


2 4736 
C 5105 

021  37 
66  067 


NDRMSF  T 


CAF 

TC 

EBANK= 

2CA0R 


PR  I 020 
F I NCV  AC 
DVCNTR 

NORML  IZF 


SET  UP  SERVICER  IFAC-IN  AT  PRIORITY  20 


5565  RCF  7(  LAST  050 

0066 

0067 

OOSR  REF  42  LAST  85 1 

0069  REF  3 LAST  851 

5069 


34,  37  35  0 5 364  0 

34,17  36  C ?r  25  1 

34,3737  20CC0  0 

E7,  1513 

34,374.1  02037  1 

34, 3741  66C67  0 


0070 


RFF  46  LAST  044 


34,3742  1 5272  l 


TC  PHASCHNG  PROTECT  NCR  Ml  I ZE  IN  GP0UP  5 AT  PR  10  20 

OCT  07025 

CCT  2000C  PRIORITY  70 

EBANK=  5VCNTR 
2CADR  NORMLIZF 


TCF  TASKOVFR 


} 00  71  *************************************************************************************************** ***••****••**« 

R5173  NCPMl  I 7F  - SERVICER  J30  LEAD-IN 

R0P74  ****i>************* ***********<* 4*  ********************************************************************** 


10  76 
0F77 

00  70 
5579 


REF  4 l AST 

RFF  43  LAST 
REF  4 LAST 


851  =7,1513 

45  TO  4s: 


10 


2 5* 


SETLOC  SERVICES 
BANK 

ERAN<=  OVCNTR 
COUNT*  t*/SERV 


0000  RFF  142  l AST  849 

000  1 

)582  RFF  3 LAST  153 

0(83  RFF  6 LAST  829 

0084  RFF  1 


. 

13,2040 
”,  ?C4  1 

, 

3 3 ,2^4 3 


1 6C  5 1 0 
47174  0 
C 354  3 0 
03347  1 
66074  1 


NORML  IZF  TC 

VLOAD 


IN  TPRE  T 

BOFF 

RM 

M UN  FI  AG 
NORML  I 71 


ASSEMBLE  REVISION  5o  OF  AGC  PROGRAM  ZERLINA  rtY  ZOROASTER 
S EPV ICFP 


OC  85 
00  86 
0087 

0C88 

0089 

onoo 

0091 

309? 

0093 

009/. 

0095 

0096 
DD97 

0098 

0099 
DIDO 
0101 


PFF 

REF 

PFF 


REF 

REF 

PFF 


LAST  832 
LAST  866 
LAST  830 

LAST  765 

LAST  852 


33  ,2066 
33  ,?P45 
13,  2fl 66 
I 3 ,2047 
3 3,  2C50 
13, 2051 
33,2092 
33,  2Ce3 
33  ,2054 
33,2095 
3 3,  20  56 
33  ,2057 
33,  2C6C 

33.2061 

33.2062 
33,  2CF3 
33  ,2064 


64252  0 
01732  0 
27517  C 
71743  1 
76575  1 
03551  0 
77721  0 
C 1 722  0 
03525  C 
41535  1 
0U57  0 
41539  1 
C l 4 5 5 1 
55535  l 
01453  1 
77561  0 
27757  1 


VSL  6 MXV 

RFFSMMAT 
STCALL  R 

MUNGPAV 
VLCAO  VS  LI 
VN  1 

MX  V 

PFF  SMMAT 
STORE  V 
SL  CAP  PUSH 

PB  I A SZ 
SLOAP  PUSH 

PB I ASY 
SLOAD  V3EF 

P B I ASX 
EXI  T 

BIASFAC  T 


OCT.  21,  1970  ZFLV 
USER'S  PAGE  NC. 


.049  PAGE 
E7  S3 


VXSC 


D ES  CAL  F TC  UNITS  PF  2 < -9  ) M/CS/CS 


0 ln  2 

0103 

0104 
9135 
0106 
010  7 


PEF  359 
RFF  4 
REF  360 

REF  ? 
RFF  361 
PFF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


B45 

805 

852 


3 J, 2067 

3-»,  2C7? 
33,2071 
33,207? 


2 C 1 54  1 
5 5 '704  1 

3 0157  1 
55' 7C5  0 
3 0161  l 
55*706  0 


MPAC 

■ 

MPAC 

B I ASACCY 
MPAC 

BIAS  ACC  7 


0108 

0109 

Dll' 

111 


33,  2073  1 2077  1 

33  ,2074  77624  1 

? 2 , 2C 75  7 7 1 C 6 1 
33,  2076  77776  1 


TCF 

NflRMLIZl  CALL 
F Xf  T 

NORML  I Z2  CAP 
TC 


NORMLI Z2 
CALCGRAV 


ROllS 
3 0118 
RC  1 1 9 


33,2101  0 0003  1 


STAP  1 PE  SERVI CEP  CYC  LF 
*<•«  0 <.**  «*«**  4 4 4>*e*  #**««**«« 


RELINT 

{FALL  THROUGH  TO  PIPCYCLE) 

4 , 444  44  44**4«#4«4‘4‘44<4'  s********************** 
<n)4«  4*4*4 *4***4 4*4444 4*4#  *** ******* 4 44 44*4*4 


444444444444444*4*4444**4*4 


0121 
0 122 


REF 

REF 


LAST  84  1 
LAST  820 
LAST  850 


PEF  11  LAST  843 


33,2102 
33  ,2102 


33, 2 1 C 5 2 5016  C 


SERVEXIT  = 
PI  PC.YCLE  TC 


PI  PC  YC I E 
S ERVCFNG 


ADR  6S 
CAF 


INSURE  PROPER  EBANK 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCAST  EK 


SFRV  ICEP 

PI  2* 

REE 

AO 

LAST 

89  3 

33  ,2106 

59  003 

0 

TS 

FBANK 

3127 

REF 

5 

LAST 

851 

E 7,  1777 

E BA  NK  = 

END-E7 

‘1  2 A 

«FF 

16 

LAST 

851 

33,21  7 

9 00  25 

1 

cs 

TIME  l 

• * 1 20 

REF 

17 

LAST 

89  3 

1 3,2110 

6 1239 

0 

AD 

PIPTIME  +1 

7130 

RFF 

2 

I AST 

227 

33,  211  1 

6 9 7 39 

0 

AO 

NEG1  /2 

0131 

REF 

3 

LAST 

853 

3 3,21  12 

6 9739 

0 

AO 

NEG1/2 

7 1 32 

RFF 

136 

LA  ST 

851 

33,2113 

5 1 CC1 

0 

XCH 

L 

0133 

RTF 

137 

LAST 

853 

37,  2 1 V, 

56  OCl 

0 

XCH 

L 

0 1 34 

PFF 

1 

33,2115 

6 5000 

1 

AO 

PGM  IN 

3 135 

33,  5 116 

C TCC6 

1 

EXTENO 

0136 

RFF 

1 

33,2117 

6 212? 

1 

BZMF 

READACC  S 

0 137 

RFF 

?3P 

LAST 

895 

33  ,2120 

0 9616 

1 

TC 

BANKCALL 

3138 

REF 

16 

L AST 

79  3 

33,  2 12  1 

01736 

1 

C ADR 

DE  LAY JOB 

0130 

. 1 

C 0009 

0 

ft  E AOACCS  INHINT 

0 1 An 

33,2123 

C CCC6 

1 

EXTENO 

oHi 

REF 

27 

LAST 

823 

33,  2129 

3 002  5 

0 

OCA 

TI  ME  2 

0192 

RFF 

ft 

LAST 

786 

33  ,2125 

53*557 

0 

OX  CH 

P IPT IMF  1 

31  A3 

RTF 

13 

L AST 

850 

33,  2126 

2 CC37 

0 

CA 

PI  PAX 

n 1 a a 

PFF 

1 

• ' 

55*157 

1 

TS 

PI  PATMPX 

0 1A5 

REF 

7 

LAST 

850 

33,2130 

3 0090 

0 

CA 

P I PAY 

3196 

REF 

l 

33,  2131 

? 5 * 160 

0 

TS 

PI PATMPY 

f,  1 A 7 

RFF 

6 

l AST 

850 

33,2132 

3 009  1 

1 

CA 

P IPA7 

0 198 

PFF 

1 

32,2123 

cc'  161 

’ 

TS 

PIPATMPZ 

Ol  AO 

RFF 

13 

LAST 

58  2 

73,  2139 

:•  0022 

0 

CA 

:nux 

•MS'-' 

RFF 

1 

33,2135 

55*159 

1 

TS 

CDUTEMPX 

3151 

PFF 

« 

I AST 

80  1 

37,  2126 

2 CC33 

1 

CA 

CDUY 

0152 

RFF 

1 

33,2137 

55*155 

0 

TS 

CDUTFMP  Y 

0 153 

RFF 

11 

LAST 

801 

33,219,; 

3 0039 

0 

CA 

C DU  7 

3 1 5 A 

REF 

1 

33,  2 19  1 

5 5 ' 156 

0 

TS 

COUTEMPZ 

0155 

REF 

LAST 

850 

33,2192 

9 1259 

1 

CS 

» IPAXOLO 

7 156 

PFF 

? 

LA  CT 

95  3 

37,7193 

6 1157 

0 

AD 

P I PAT  MPX 

0157 

PFF 

1 

33,  7 199 

0 3716 

1 

TC 

PI PNORM 

015ft 

PFF 

0 

IASI 

300 

33  ,2  195 

52  325 

1 

OX  C H 

DEL  VX 

3159 

REF 

LAST 

850 

3 2,  2196 

6 1255 

0 

cs 

PI  PAYCLD 

pi  60 

RFF 

2 

LAST 

8C  3 

• 

6 1 160 

1 

AO 

PI  PATMPY 

0161 

RFF 

2 

1 AST 

893 

33,2150 

C 3716 

1 

TC 

P I PNORM 

7162 

RFF 

5 

l AST 

380 

, 1*  ■ 

52  227 

0 

0 XCH 

DEL  VY 

0163 

RFF 

2 

LAST 

850 

33  ,2152 

9 1256 

0 

CS 

P IPAZOLO 

0 169 

RFF 

L A <T 

85  3 

3 7 , 7 l e 3 

6 1161 

0 

AO 

P1PAT  MP7 

f 165 

RFF 

3 

1 AST 

853 

3 3,  2159 

0 3716 

1 

TC 

PI PNORM 

01  66 

RFF 

A 

LAST 

399 

33.2155 

52  331 

1 

oxch 

OELVZ 

3157 

RFF 

1ft 

LAST 

853 

1,  21! 

9 1239 

1 

cs 

PI  PTI  ME  *1 

12  UCT  . 2 l»  1970  ZFL  Y 
USER'S  PAGE  NC. 


• 049  PAGE  853 
E7  S3 


WAS  LAST  RE  AO  ACC  S LONG  ENOUGH  AGO? 

CLEAR  PROBABLE  OVERFLOW 

YES:  GO  STRAIGHT  TO  RFAOACCS 
NO:  UELAY  IT  ACCORDINGLY 

INHINT  SO  OH  VS,  mUTEMPS,  PIPTIMtl  AND 
PGJIDE1  WILL  BF  A CONSISTENT  SET 


COMPUTE  GUIDANCE  P EP  IOD  PGU  IOE  1 


GAP:  ASSEMBLE  REVISION  So  UF  A&:  PKCGPAM  ZEKLINA  0V  ZOROASTER 

L SFPVICFP 


1 1 7C 
171 
"'172 


REF  <J 
»FF  13 
REF  16 


I A * T *53 
I AST  80S 
LAST  856 


REF  ? LAST  1*1 


■ 

33,2161 
33,216? 
13,  216  3 


6 1567  ] 
(■  6736  1 
6 6736  1 
22  007  o 
53*667  r 


AO  PIPTIME1  +1 

Al)  HALF 

AO  HALF 

ZL 

OXCH  PGUIDEl 


9:  U OCT  . 21,  1970  Z FL  Y 
USER*  S PAGE  NC. 


•C69  PAGE 
E7  S3 


0173 

3176  REF  6 1 AST 


33,2166  C 0003  1 
33,2166  C 6C42  1 


REL  INT 

TC  SERVCHNG  PIPATMPS  GO  TO  P1PAS0L0  AT  COPYCYCL 


J 175  TFF  PHIIOSOPHY  OF  TIE  PAN  PL  IN  G 3 F PIPAS  AND  PIPASOLO  I S THJ  S:  THAT  AT  ANY  TIME  THE  OUANTITY 

T 177  PIPAS-PIPASOLO  9 i THE  HP  L ST  OF  L TA-V  NEEDED  TO  EXTRAPOLATE  LM  POSITION  AMO  VELOCITY  FROM  R A\|D  V (VALID  AT 
R "•  1 7 9 P f PT  | w C J TO  THE  PRFSFNT  TIME.  THE  COMPUTATIONS  THIS  PARTICULARLY  ASSISTS  A PF  IN  THF  LANCING  ANALOG 

181  01  SPLAYS,  LANDING  PATAR  CATA  I N CCR  POP  AT  | ON  (PART  OF  SFRVICERI,  AND  P66  R.0.0. 


m 

3 I R 6 


LAST 


866 


33,  2 166  * 3765  0 PIPSDUNE  CS  PG  MAX 

3 3,  2167  6 1566  0 AD  PGUIDEl 

33,2170  C 0006  1 EXTEND 

33,  2171  6 2 176  1 F3ZMF  *3 


WAS  LAST  READACCS  TOO  LONG  AGO? 


NO 


REF  36  LAST  819 


33,2172  0 5fa(T  1 

33,2  173  L C 555  l 


TC  ALARM 

OCT  00555 


YF  S:  LIGHT  ALARM  LIGHT 


0189  REF 

0190  PTF 
3191 

Ol<>2  RFF 


Ip  l AST  850  33,  2176  6 0 103  1 

6 LAST  P?  7 33,21  75  7 6767  0 

33,  2176  C OOC6  1 

2 LAST  260  33, 21  77  1 2203  0 


CS  c l AS  WPO  7 HAS  AVEGFLAG  FAILFN? 

MASK  AVEGFBIT 

EXTEND 

BZF  SERVICER  NO:  CONTINUE  AVF  RAGE-G 


RFF 

pf  r 


I AST  R23 


33  ,2200  C 00 06  1 
3 3,  2 ?(  1 : 176  1 r 
33  ,2202  5 3 ' 253  0 


AVEGQUT 


EXT  END 

DCA  AVOUTCAD 
DXCH  AVGFX1T 


YES:  THFN  THIS  IS  THE  IAST  SERVICER 


0198 
3199 
0200 
0 201 
3222 
0203 


REF 

PFF 

RFF 

RFF 

RFF 

RFF 

RFF 

PCF 


1 A ST 
I AST 
LAST 

LAST 
LA  ST 
L AST 
LAST 


854 

862 

864 

851 


: 

E3.1446 
33,  2206 

33,2207 

. 

E7  ,1513 


3 SCC 7 0 SERVICER  CAP  ERANK3 

54  CC 3 C TS  EBANK 

E0ANK=  PHSNAME5 

2 374?  0 CAF  GET ABAOR 

55*446  1 TS  PH  SN AM  F 5 

3 5016  0 CAF  EBANK7 

S 4 003  0 TS  FBANK 

EBANK=  DVCNTP 


SKIP  1 / P I PA  AFTER  RESTART 


02  r,t* 
02(15 

0206 

3237 


RFF  4 

REF  38 
PEF  7 


LAST  854 

LAST  814 
l AST  34 1 


33,221 3 
33,  ? 214 


2 1566  0 
C 0(  06  1 
7 4747  0 
2 3 ' C 74  0 


CA  PGUIDEl  SET  1/PIPAOT  TO  PGUIOFl  JUST  COMPUTED 

EXTEND 

MP  B IT  5 RESCALE  PGUIDE  TO  INI  T S OF  2(101  CS 

LXCH  1 /PI  PAD T 


0208 
0 209 


TC  BANKCALL  'PIPA  COMPENSATION  CALI 

C ADR  1/PIPA 


RFF  28  LAST  8lR 
RFF  5 LAST 


33,  22  17  3 0 120  1 GE TAB VAl  CA 

33,2220  54  166  1 TS 


ZERO  PUSHDOWN  PC  I NT  FR 


• AP:  ASSEMBLE  REVISION  ^6  CT  AGC  PROGRAM  Z ERL  I N A BY  ZOROASTER 


L SERVICFR 


0212 

A2I1 

3215 
0215 

3216 
0217 
^2  1R 
7213 
<,220 
0221 

,222 
223 
3 22* 
0225 
"•2  26 
7227 


RFF  8 LAS!  20  1 

RFF  238  L AS1  85  1 
RFF  162  I A ST  852 
RGF  Q I AST  855 

RFF  23Q  | a ST  855 

RFF  363  l AST  RS5 
REF  1C  LAST  855 

REF  2*(  LAST  855 
RFF  36*  LAST  855 
REF  A l AST  817 
RFF  1 

RFF  165  LAST  055 
REF  5 LAST  779 


33,  2221  3 032*  1 

33,2222  f 0008  1 
33,  2223  7 OCCO  0 

33,2?2*  52  155  1 

33,  2225  1 0326  0 

13, J < i 

33  ,2227  7 000O  0 

33,  2230  20  155  1 

33.2231  3 i 333  1 

33.2232  t CCC6  1 

3 3,  223  3 7 OOCO  0 

33,223/,  20  155  1 

3 3,  2235  C A113  0 
33,223b  01207  0 

3 3,2237  3 015*  1 

13, 2 2 AG  *5  '2*7  0 


CA  OELV 

EXT  END 
MR  A 

DXCH  MP  AC 

CA  DE  LV 

EXTEND 
MP  A 

DAS  MPAC 

CA  PEL V 

EXTEND 
MP  A 

DAS  MPAC 

TC  US  PRC  AOR 

CADR  SORT 

CA  MPAC 

TS  A9DELV 


0228 

0229 

023p 

3231 

3232 


REF 

REF 

REF 


3 LAST  779 

5 I A ST  e5A 
3 LAST  8 3 A 


33  ,?2A!  0 ! 006  1 

33,  2 2 A 2 7 5 COO  0 

3 3,  22  A3  0 1 006  1 
33.22AA  11*566  1 

13,  2 2 A 5 55*250  0 


EXTEND 

MR  2 SECS 

EXTEND 

OV  PGUIDE1 

TS  ABO V ACC 


0233 

0 2 3A  REF 
0235  RFF 


3 3,?  ?A  A 0 0006  1 
LAST  P ’5  33  ,^?/.  7 2 12A6  0 
I AST  1 5 6 33,  2250  53*571  1 


EXTENO 

DC  A MASS 

DXCH  MA  S Si 


02  36 
3237 

■'23  8 

0239 


RFF 


8 A l 
6«>9 


33,2251  A 01 OA  0 
? 3,  2252  7 A 7 A A 0 

33,2253  < 0006  1 

33.225A  1 2273  1 


NASSMON 


CS  FLAGWRD8 

MASK  SURFF8IT 
EXTEND 

BZF  MOONSPOT 


32AJ 
2A1 
0 2A2 
02  A 3 


I AST 
I AST 
LAST 


823 

823 

e55 


REF  3 I A ST  831 
REF  206  I AST  828 


. 

13  ,2256  7 A737  1 

*3,2257  1C  CCO  0 
13,  2260  C 00C6  1 
33,2261  3 2001  1 

13,  2262  5 A 0C2  1 


CA  F LG  HR  DlO 

MASK  AP  SFL  8 I T 

CCS  A 

F XTEND 

DC A AP  SV  EX 

TS  Q 


02*6 
2A7 
3 2*8 
02*9 
■<250 
n25l 
'252 
3253 


RFF  6 LAST 
REF  2 LAST 

REF  2C7  1 A ST 

RFF  10  l AST 
REF  5 I AST 


H55  33,2263  3 12A7  1 

53,226*  006  1 

83A  33,  2265  7 2C12  1 

33  ,2266  C M006  1 

655  33,2267  10  002  1 

13,  2 27 

85*  73  ,2271  7 12A5  1 

855  11,  2272  2 1*571  l 


CA  A0OF1  V 

EX f END 
MP  K PI  P 

EXTENO 
DV  0 

E XTEND 
MP  MASS 

DAS  MASS1 


025*  REF 
0255  RFF 


LAST  8*9 


33,2273  3 2013  1 MOONSPOT  CA 
33,227*  C 7321  0 TC 


<PIP  1 
SHORTHP 


9:12  OCT,  21,1970  ZFL  Y 
US  ER'S  PAGE  NO . 


• 0A9  PAGE  855 
6 E7  S3 


IOFLVI  IN  L M PIPA  UNITS  OF  ONE  CM/S/BIT 

MAKF  A NIJMBF1  FOR  THOSE  WHO  ARE  USED 
TO  USING  ARDELV  AS  AN  ACCELERATION, 
LIKE  1/ACCS  AND  THE  OELTA-V  MONITOR 

SAME  UNITS  AS  AeDELV  BUT  AN  ACC  EL  EP  AT  ION 

INITIALIZE  MAS  SI  IN  CASE  WE  SKIP  M AS  S HUN 
ARE  WE  ON  THE  SURFACE? 

YES:  BYPASS  MASS  MESS 

NC:  WHICH  VEX  SHCULO  BE  USED? 

IF  EXTEND  IS  EXFCUTED,  APSVEX  — > A, 
OTHERWISE  OPSVEX  -->  A 


rt  HERE  APPROPRIATE  VFX  »ESIDES 


TP  MPAC  = ARDELV  AT  2(1*1  CM/ SEC 
MUL  T IPl Y BY  KP IP  1 TO  GE  T 


'p\»:  ASSEHBLF  RF  VI  SI  ON  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L SFRVICFR 


9:  12  02.  T.  2 It  1^70  ZFl  Y 
USER'S  PAGE  NO. 


.049  PAGE  856 
7 E7  S3 


256  * 

f 257  »RFF 
32571  *PFF 
r’ 2 5 7 2 OPCF 
'257’  *P  EF 


9 LAST 

366  L AST 

367  LAST 


7M 

855 

856 


33,2275  0 01  C 6 1 

3 151  1 

73,  2277  2c  155  1 
33  ,2300  5?  155  1 

33,2301  52*174  0 


EXTFND 

OCA  DV  TOTAL 

DAS  HP  AC 

OXCH  «PAC 

OX CH  DVTEMP  PRFLIMINARY  DVTOTAL*  UNITS  OF  2(7)  M/CS 


025R  REF 


33,  2302  0 37C7 


TMPTOSPT 


RFF  240  LAST  854 
PFF  1 


C 4616  I 
47622  1 


TC  BANKCALl  COMPUTE  SINES  AND  COSINES  FOR  FLtSHPOT 

r.ADP  QU1CTRIG 


0261  REF  1 

0262  RFF  241  LAST  856 

3263  RFF  1 


33,?3f 5 
33,2306 
33,  2 307 


3 1743  1 
0 4616  1 
20<  37  1 


CAF  XNPPIPAP  COMPUTE  8 00  Y-P  l A TF  CP  M MATPIX 

TC  8ANKCALL 

CADR  FLESHPOT 


r 264  Rf.F 
'264  PFF 
0266 

0267  PFF 


13*231  I 

13.2311  7 4744  0 

33. 2312  C CC06  1 
33  ,23  13  I 2347  1 


AVFPAGEG  CS 

MASK 
F XTEND 
BZF 


FI  AGWRD6 
MUNFLBIT 

RVBDT  H 


IS  MUNFLAC.  SFT? 


YES:  00  OF  SCFNT-A  SCENT  NAVIGATION 


A3268  (FALL  THROUGH  TC  CALCRVG)  NO 

10271  NAVIGATION  USED  PY  THF  P40S  AE  A R EARTH  OR  MOON 

r '•  27  2 ************* *****  A** ***o*.M  **************************************************************************  ****** 


1 275 
:?76 
.277 
3278 
0279 
0 28C 
328  1 
u28? 
' 28  3 
02  84 
0285 
3286 

02  87 
r*  288 
3289 
0290 

3 291 

0292 

0293 


REF  143  LAST  851 

REF  11  LAST  855 
RFF  36  LAST  R52 

RFF  2 LAST  855 
REF  5 LAST  74  7 


RFF  6 I A ST  855 

RFF  4 LAST  794 

REF  8 LAST  748 


RFF  7 LAST  856 

P EF  14  LAST  778 

RFF  4 LAST  R4  1 

RFF  2 LAST  852 


33,2’ 15 
3 3,  23  16 
33,231  7 
33,  2320 

33.2321 

33.2322 
33,  2323 
33  ,2  3 ?4 
33,23  25 
33, 2326 
33  ,2327 

32,  2330 

. 

33,2332 

33,  2333 
33  ,2  3’4 
33,23  25 
33,  2 3 36 
33  ,2337 


0 6C5I  0 
61375  l 
00225  0 
01732  0 
765tl  1 
260  14  0 
03525  0 
41562  0 
74325  0 
03567  C 
01226  1 
53255  0 
C1226  0 
54206  1 
20611  0 
c 33fc 1 0 
03567  0 
Cl  220  0 
37543  1 
77606  1 


CALCRVG  TC  INTPRET 

VLOAD  VXP 
■)t  L V 
REFS  MM  AT 
VXSC  VS  Li 
KPIP  1 

STOKE  DELVREF 
VSR  1 PUSH 
POOL  VXSC 

PGUIDE1 


VAD  V A D 

VN 

PUSH  VSR 
80 

VXSC  VAD 

P GU  IDE  1 
RN 

STC  ALL  P N 1 VECTOR  RN1  IN  UNITS  OF  2(29)  METERS 

CALCGRAV 


3294 

0295  RFF  8 LAST  856 

0296 


33,2342 


45455 


0 

0 


VXSC  VAD 

PGUIDF  1 
VAD  STADR 


»AP:  ASSEMBLE  RE  VI  SI  ON  56  UF  AGC  PRCGRAM  ZtPLINA  OY  ZOROASTER 

L SERVICER 

n?97  REF  9 LAST  6 52  33,2393  79226  1 STORE 

^298  33  ,2399  77776  1 FX  IT 

329Q  REF  7 LAST  859  33,  2395  C 6092  1 TC 


9:12  OCT.  21,  1970  ZF1.Y  .099  PAGE 
JSER'S  PAGE  NO.  8 E7  S3 

VECTOR  VNl  IN  UNITS  CF  2(7)  M/ CS 


R0301 
R0303 
3 0309 

3306 

0307 

0308 
333=» 
0310 

» ' 

0312 

0313 
3319 
0315 

3316 

3317 

0318 

0319 

0320 

•32! 

332? 


NAVICATICN  USED  RY  DESCENT  AN  C ASCENT  ONLY 


******* **************$*************««***** 
>************************ ****************** 


c********** 


PEF  199  I AST  856 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


10  LAST  857 

9 LAST  896 
2 LAST  101 
5 LAST  85  2 

11  LAST  857 
9 I A ST  83 C 


!,  2397 
, 2 350 
1,2351 
I,  2 352 
,2353 
'.2  359 
I,  2365 
1,2366 
I,  2357 
,2360 
i,2361 
1,  2 362 
,7363 
!,  2369 
I,  2 36  5 
1,2366 
I,  2 367 


C 6C51  0 
79376  0 
02310  l 
03=67  0 
91955  0 
C l 729  1 
79322  i 
03567  0 
77655  1 
01716  0 
37573  1 
71793  1 
77761  1 
C3567  0 
95955  l 
79176  1 
77776  1 


VLOAD 

VAD 
VSR  3 
VAD 

ST  CALL 

VX  SC 

VAD 
STORE 
E XI  T 


I NT  PRE  T 

VXSC 

GICSM  ) 

PGUIDE  1 

PUSH 

VtCSP) 

vxs: 

PGU  I DEI 

P ( C SM  ) 
PIS 

MUNGRA  V 

PGU I DEI 
STADP 
V IS 


CS M POSITION  IN  UNITS  OF  2(29)  METERS 


C SM  VELOCITY  IN  UNITS  OF  2(7)  M/C  S 


0323 

0326 
3327 
C328 
0 329 
3333 
0331 
) 33? 


RFF  8 LAST  857 

REF  195  LAST  857 

REE  3 LAST  836 

REF  9 LAST  367 

RFF  3 LAST  857 

REF  5 LAST  857 

RFF  5 l AST  857 

RFF  9 LAST  857 


3 3 ,2  370  0 60  9 2 1 


• 

33,  2379 
33,2  375 
33,2376 
33,  237? 
33  ,2900 
33 ,2901 


C 6 C c 1 0 
1 7775  1 
03561  0 
26310  1 
C3573  0 
26716  0 
C 3tC  1 0 
01726  1 
77776  1 


TC 

TC 

VL0A9 

STOVL 

STOVL 


G 1 

GICSM) 
R IS 
R ( CS  V ) 
Vi  S 

V ( C SM  ) 


0333 

339 
1336 
0336 
3 337 
7338 
033° 

39 

0391 


LAST  857  33,  2902  0 6092  1 


RFF  196  LAST  857 


RFF  1?  LAST  857 


LAST  856 


1 3 , 2 A ( ' 

• 

33,2906 

13.29  6 
n,  290  7 
33  ,2910 

33.29  11 
33,  29  12 


C 6051  0 
79376  0 
00325  0 
26016  1 
652C6  0 
03567  0 
53361  0 
0123ft  1 


PUSH 

VXSC 


SEP  VCHNG 

INTPRFT 
VXSC 
OE  LV 
KP  IP? 
PDUL 
PGUIDE l 
VAC 


PUSH  OOWN  SCALED  CELV  TwICE 


GAP: 


,IW 

' 344 
3345 

o346 

" 347 

3348 
034° 
0350 
03  51 
0 35? 
'.'353 
n 354 

0 355 
3356 
'357 
0 M58 
0356 
0360 
3361 
0-362 
0 363 


0 344 
0365 
0 366 
0367 


\ "368 


RO  366 
•»  0 37  1 
R0372 


ASS  FM8L  F REVISION  56  Jf  AGC  PPOGRAH  ZFRLINA  BY  ZOROASTER 
SFRVICFR 


9:12  CCT.  21 ,1970  ZFIV 
USER'S  PAGE  NC. 


.049  PAGE  858 
9 F7  S3 


RFF  11  LAST 
PFF  13  LAST 

RFF  IP  LAST 

RFF  4 LAST 
REF  6 LAST 

PEF  1 4 LAST 
REF  6 LAST 
REF  5 LAST 
REF  ?4  LAST 

REF  9 LAST 
REF  7 | AST 

RFF  6 LAST 


„2 

33,2415 
857  33,7416 

33,2417 
0*2  33,24 ?C 

857  13,  2421 

857  33  ,2422 
33,2423 

858  33,  2424 
33  ,2425 

857  13,  2426 

33,2427 
721  33,2430 

3 3,  24  31 
847  33,2432 

? ? , 24 1 3 
33,  2434 
84  2 3’,  2435 

18  1 3 1,  2436 

322  33,2437 

31 ,2440 


74327  1 
C 3567  0 
77655  1 
03517  1 
37573  1 
71743  1 
'1361  0 
0.3567  ? 
45455  1 
7*176  1 
77646  0 
274  72  0 
CCC  35  1 
17535  1 
CCC45  C 
4 7025  O 
02324  0 
21574  1 
03533  1 
77776  1 


VAC  PUSH 

V (12) 

VSP-3  VXSC 

PGUI  DEI 

VAO 

R 

STC ALL  RlS  VECTOR  RlS  IN  UNITS  OF  2|24)  METERS 

MUNGRAV 
VXSC  VAC 

PSUIDEl 
VAD  STAOP 

STCRF  VIS  VECTOR  VlS  IN  UNITS  OF  2(7)  M/CS 

ABVAL 

STCVL  ABVEL  A8VEL  IN  UNITS  OF  2(7)  M/CS 

280 

STOOL  UMIT/R/  ONLY  UNIT/R/  C QMPUTAT I CN  16  MUNGRAV  CASE 

36  D 

0 SC  RTR  MPAC  MUST  BE  S I GNAC-REFD  FOR  MJ  NR  FT  RN 

/LAND/ 

SGNAGPEE 

STORE  HCALC  C0PYCYC1  MAY  CHANGE  THIS  HCALC 

EX  IT 


REF  15  I AST  «?2 
RFF  5 LAST  295 

REF  1 


13,  244  1 « "107  0 

13  ,2442  7 4735  0 

32,2443  C CC06  1 
.13,  2444  1 2233  1 


CS  FLGWPD11  IS  LR8Y PASS  SET? 

MASK  LRRY8IT 
EXTEND 

BZF  COPYCYCl  YES:  BYPASS  ALL  LANDING  RADAR  LOGIC 


(FALL  THROJGH  TO  IR  LOGIC) 

*****♦$*$  4 ********************  ***********$****:******<<#<•**:<<**<<< I *#***#*<,$***#*#$#*#;*$#*#****  ****$#$9*  $*******  <■***** 

LANDING  PACAP  CATA  INCORPORAT I CN 


I : • ■ ■ 


R03  77  MUNRFTRN  OEPFNCS  ON  SEEING  HCAL  C IN  MPAC  WITH  SIGNS  AGREED. 


0378 

1173 

0 380 


RFF  26P  LAST 
REF  ) 


13,2445  3 0154  1 

13,24  46  C 0006  1 
33,2447  1 2465  0 


MUNRETRN 


CA  MPAC 

E XTEND 

BZF  LROFF? 


IS  ALT  < 1024  MFTERS? 

YFS:  GO  CHECK  AITITUOE  AGAINST  HLROFF 


( 3PI 

0382 

0383 
3384 


REF  16  LAST  858 
REF  1 

RFF  1 


33,2450  4 0 1 C 7 

11,  245  1 7 4743 

13,2452  C 0006 
33,  245  1 1 2473 


C 

1 


CS  ELGWRD11  NO:  IS  ALTITUCF  ALREADY  < 3C0G0  FEET? 

MASK  XORFLBIT 

EXTEND 

BZF  Rl  2 YES 


0385 


33,2454  0 0006 


30KCHK  EXTEND 


NO:  IS  ALT  < 30000  FEET  NCW? 


GAP:  ASS  FRBLE  RFV  IS  I ON  56  IJF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


SERVTCFR 


3386  REF  1 

0387  REF  369  LAST  858 


33,  2/, 55  • 3i'5  0 

33  ,2956  20  155  1 


OCA  1-30KFT 

OAS  MP  AC 


C 388 
0380 
0390 
3391 
039? 
0393 


PFF 

RFF 

RFF 

REF 

RFF 

RFF 


LAST 
I AST 
LAST 
LAST 
I AST 


65  5 
B5  i 
8 '.A 
8 A 3 
859 


Will 

33.2961  O 5515  0 

33.2962  0031  1 1 

33.2963  0 5515  0 

33,2969  00253  0 


TC 

ADRES 

TC 

ADRES 


A 

R 12 
J P FLA  G 
X OVI  NF  LG 
UPFLAG 
XORFLG 


3399 

0395 

0396 
03  97 


REF  37(  LAST  059 
RFF  ? I AST  771 

REF  3 LAST  859 


33,  2965  A 0 155  1 
3 3 ,2  966  6 1 AS  1 0 

3 ’ » ? A fc 7 C CCOfe  1 
33,  2A70  6 2A 7 3 0 


LR  OFF ? 


CS  MP  AC 

AD  HI  ROFF 

EXTEND 
BZMF  R 1 2 


8A  LAST 
3 | AST 


TC  DOW  NFL  AG 

AO  RES  LRINH 


OAOl 

i/.f'  i 

39V 


RFF  17  LAST  858 
RFF  ? LAST  563 


3 3 , 2 A 7 3 <4  0107  0 R12 

33.2A7A  7 A 7A  2 0 

33, 2975  C C0C6  1 


0AO3  PFF 


33  ,2976  1 3222  1 


CS  FLGWROll 

MASK  NOLRRBIT 
E X TEND 

RZ  F CONTSFRV 


DAYa  RFF  1 

0AD5 

0 AC  6 RFF  21  LAST  775 

3937 

0 A 0 8 REF  35  LAST  813 


33,  ? A 7 7 3 A 7"* 6 0 

3 3,2  500  0 0006  1 

33.25CI  02  033  0 

33,  2502  ( 0C06  1 

13  ,?503  7 A7A2  0 


POSTST 


CA  RITS6«-7 

EXTEND 

RAND  CHAN 3 3 
E XTEND 

MP  BIT10 


DAO  9 

OAl  0 
r a 1 1 
3912 
OAl  3 
OAl  A 
0 A 1 5 
OA 1 6 
OAl  7 
OAl  H 
1 A 1 9 


PFF  293 

REF  1 
PFF  1 
RFF  2 
RFF  3 
RFF  1 
REF  35 

RFF  169 
REF  A 
REF  2 
RFF  13p 


1 A ST 


LAST 

LAST 

LAST 

1 AST 
I AST 
LAST 
LAST 


-•''I  ■ ' , “ -4  -4  I 

13,  >05  1 2 50  6 

33,2505  1 2511 

33,  25C7  1 2520 

13*2510  1 

775  33,2511  11*622 

33,  25  12  1 25  16 

85A  33,2513  0 560C 

3 3 , 2 5 1 A 00511 

85C  33,  25  15  A A755 

859  33  ,2516  55*622 

859  33,  25  17  1 3222 

853  33,2520  5A  C01 


INDEX 
TC  F 
TCF 
TCF 
TCF 

511?  CCS 

TCF 
TC 
OCT 
C S 

ST 51 1 CTR  TS 
TCF 

PQSCHVG?  TS 


A 

♦ 1 

511? 

POSCHNG? 

PflSCHNG? 

5 1 1 CT  R 

ST511CTR 

ALARM 

511 

ZFRU 

5 1 1CTR 

CCNTSERV 


!3:58i  1 


FOUR 
5 1 1 C T 


f A2A 
0 A?5 

09  2 6 
0A27 


REF  2 
REF  3 
PFF  139 


1 5 A 
859 
859 


. 

.■3.2  5 2A  < 16  5R  1 

33,  25  25  6 6001  0 

33,2526  C 0006  1 


LXCH  LRPOS 
CS  L R PCS 

AD  L 

EXTEND 


9: 12  OCT.  21 ,1970 


Z FLY 


.099  PAGE  059 


USER  *S  PAGF  NO.  1C 


E:  7 S3 


NO:  ALTITUDE  STILL  > 3030?  FEET 

YFS:  SFT  X-AXIS  OVERRIDE  INHIBIT  FLAG 


IS  ALTITUDE  < HLROFF? 


NO:  GO  TRY  UPDATE 

YES:  RESFT  LR  PFKMI  T F LAG 


IS  NOLRREAI)  SFT  (BY  HIGATASKI? 


YES:  BYPASS  POSITION  CHECK  AND  UPDATE 

NO:  TFST  LP  ANT  FNNA  POSITION  DISCRETES 


SHIFT  BITS  6 AND  7 TC  BITS  1 AND  2 


A = 9 -->  BOTH  DISCPFTES  PRESENT 
A = 1 — > POS  IT  IC1N  2 

A = 2 -->  POSI  TION  1 
IF  CONDITION  PERSISTS  FOR  FIVE 
CONSECUTIVE  PASSES,  ISSUE  5 11  ALARM 


SFT  CTR  TO  -0  TC  BYPASS  ALARM 


SET  511CTR  TO  RF-ENABLF  511  ALARM 

UPDATE  LPPDS  WITH  NF  W POSITION 

IS  NEWPOS  = OLCPCS? 


JAP:  ASSEMBLE  REVISION  5b  OF  AGC  PRFCFAM  ZFRLINA  6V  ZOROASTER  9:  12  OS  T.  21.1970  ZFIV  .0*9  PAGE  660 

L SERVICER  USER'S  PAGE  NO.  11  E7  $3 

042a  RFF  1 33,2557  1 2*  31  G BZF  FXTPAPRV  YF  S 

429  PFF  3 LAST  059  33,2530  1 3222  1 TCF  CONTS ERV  NO 

R343D  NOW  BUST  BE  CIM’UTED  THF  A!  TI  TUDE  ANO  VELOCITY  VECTORS  AT  ThF  TIME  OF  THE  RADAR  RFACING.  THE 

°'4?2  FINAL  VALUES  OF  P AN  T V FPCM  THE  LAST  SFPVICFP  ARE  E XT  R AP  3L  A TFD  FORWARD  TO  LR  TI  «F . THF  CCNTENTS  OF  THE  PIPAS 

9 434  AT  I O T IMF  WEPF  STORED  IN  P|PTFM.  THE  RESULTS  ARF  STORED  IN  RN1  , VNI  AND  HI  RT  IME  FOR  PDSUPPAT  ANO  VEl  UP  DA  T. 


R0A3F  USC  EXTPAPRY  COMPUTES  A 60  CY-PL  AT  FOP  W MATRIX  VALID  AT  LR  TI  VE  ANO  STORES  IT  AT  XNBRAD.  THIS  IS  USED  BY 

*•'*30  POSUPDAT  AND  VELUPOAT  TO  CCNVEFT  BEAM  VECTORS  TO  P L AT  F CRM  COORDINATES. 


•ATT 
044  r 
OAM 


REF 

OFF 

REF 


5 L AST 
2 LAST 

A3  LAST 


33.2531  3 A7A1  l FXTPAPRV  CAF  E banka 

EMIASO  ERAN<=  PIPTFM 

33.2532  5A  003  0 TS  FRANK 


FEE 

RTF 

RFF 

PFF 

RFF 

REF 


LAST  569 
I AST  119 

LAST  569 


3 3,  .15 3 3 
33  ,?534 
3 3,  2 c ’ 5 
3 3,  25  36 

33,2537 
33,  2 5 AO 


-•  1646  1 
5A  765  1 
3 1 6A7  0 
5 A 767  0 
3 16A5  1 
6 A 771  1 


CA  LRYCOU 

TS  CDUSPOTY 

CA  LRZCDU 

TS  3DUSPOT7 

CA  LRXCDU 

ts  rnuspoix 


I A A 9 PFF  2A2  LAST  B56 
r‘  AA9  RFF  2 LAST  B56 


33.25A1  G A616  1 
3 3 , 2AA  2 47622  1 


TC  BANKCALL  PREPARE  SINES  ANO  CCSINES  FCR  FLESHPOT 

CAOR  QUICTRIG 


0A5O  REF  1 

0 A 5 1 RFF  2A3  LAST  860 

3 A52  REF  2 LAST  956 


33,  25A  3 2 37AA  0 

3 3,2  5AA  0 A616  I 
33.  25A5  20C37  1 


CAF  XNBRADAI)  COMPUTE  MATRIX  XNBRAO  VALIP  AT  l RT  IMF 

Tf.  BANKCALL  (CAN'T  USE  *NRSM*  LATER  BECAUSE  P66R00 

CADR  FLESHPCT  COULD  CLOBBER  S INJES  AND  COSINES) 


A5  3 

A 5 A RFF  5 

3 A55  RFF  3 

0A56  RFF  A 

DA 5 7 PFF  371 

<H5R  REF  A 

DA 59  RFF  A 

DA6D  RCF  5 

DA  6 l PFF  372 

0 A62  RFF  3 

3463  REF  5 

0A6A  RFF  6 

0A65  REF  373 


L A ST 
L AST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
LAST 
L AST 
LAST 
I AST 


853 

860 

953 

959 
953 
860 
860 
860 
e53 
860 

960 
860 


. 

33,2547 
3 3,  2550 

■ 

. 

3 3,2  55A 

, 

33.2556 

33.2557 
3 3,  2560 

33.2561 

33.2562 


0 C 00  A D 
A 12  5A  1 
6 1650  0 
0 3716  1 
52  155  1 
A 1255  0 
6 1651  1 
C 3716  l 
52  160  1 
A 1256  0 
6 K52  1 
0 37  16  1 
52  162  0 


INHINT  INHINT  FOR  PIPNCPP,  INTPRET  WILL  RELINT 

cs  pip  ax  ol  n 

AO  PIPTFM 

TC  P IPNORM 

DXCH  MPAC 

CS  PI  PA  YOLO 

AO  PIPTFM  *1 

TC  PI  PNORW 

DXCH  MPAC  +3 

CS  PIPAZOLO 

AD  PIPTFM  +2 

TC  P IPNORM 

DXCH  MPAC  +5 


0A66 
'467 
3 A68 

0469 

0470 

3A71 

0472 


REF  19 
RFF  5 
REF  15 
PFF  16 

REF  29 


LAST  953 
LAST  569 
LAST  85A 
LAST  850 

I AST  854 


3 3,  256  3 
33,2564 
32,  2565 

. 

33  ,2567 
33, 2570 
33  ,2571 


A 1 2 3A  1 
6 1 6A A 0 
6 4736  1 
6 4736  1 
22  007  0 
50  120  I 
52  015  1 


CS  PIPTIME  +1 

AO  LRTIME  *1 

AO  HALF 

AO  HALF 

ZL 

INDE  X F I XLDC 

DXCH  1 2D 


3JVP -ASSEMBLE  REVISION  56  OF  AGO  PR  f CR  AM  ZERLINA  BY  ZOROASTER 


L SERVICER 


0473  RFF  13  LAST  85 A 

' 474  RFF  45  LAST  P54 

1475  RFF  44  LAST  860 


31,  2S7  2 3 50  16  0 

E7,l 513 

33,  2573  54  CC3  0 


CA  EBANK7 

EBANK=  DVCNTR 
TS  L BANK 


RFF  8^  LAS)  816  33,2574  4 4753  0 

REF  9 I AST  8)7  33,2575  54  163  1 


CS 
T S 


ONE 

MODE 


44  78 
04  79 
1480 
0481 
0 482 
3483 
0484 
'488 
04  86 
( 487 
3488 

0489 

0490 

3 49  1 

'49? 

'493 

04  94 
0495 
3496 

4 97 

0 49  8 
3499 
0500 


REF  147 
REF  ? 

REF  6 
REF  I? 

REF  19 
RFF  5 
RFF  7 

REF  6 

RFF  1C 
RFF  ? 


LAST  857 
LAST  857 

LAST  857 
LAST  85  F 

LAST  858 
LAST  856 
l AST  858 

LAST  857 

IAST  858 
I AST  155 


13, 2576 
33  ,2577 
33,  2600 
31,2601 
33  ,.’602 
23,  2(C3 
3 3 ,2604 
33,2605 
33,  260  6 
13  ,2607 
22,  26  1C 
33,2  61  1 
33,2612 
33,  26  13 
33  ,2614 

33,26  18 

33,  26  16 
33  ,2617 
33,  2620 

3 3,2  621 

33  ,2622 
? 3 , 262  1 
33  ,262t 


C 6C  6 1 0 
41561  0 
26C16  1 
74325  0 
00015  0 
C 1 2 36  1 
53255  0 
03525  0 
64406  1 
53361  0 
CCC15  0 
03517  l 
37543  1 
71743  1 
53361  0 
00015  C 
45455  1 
60226  1 
0CC45  0 
77625  0 
02324  0 
C 3763  0 
77776  1 


TC  I N TORE  T 

VXSC  PJSH 

K PI  P2 

POOL  VXSC 

12D 

G 

VAD  VAO 

V 

PUSH  VSR  3 

VXSC  VAD 

1 2D 

ST  CALL  RN1 

MUNGRAV 
VXSC  VAD 

1 2 D 

VAD  STADR 

STOOL  V N 1 

3 5 U 

DSU 

/ t AND/ 

STORE  HLRTIVF 
FX  IT 


RO  4l  1 «***»  »»4***«*4*«<.<t*»***ft*4<-**«***«* 

»05c?  ALTITUDE  IJP  CAT  E (CUM  TERRAIN  MOTEL) 

*0503  *«******•*******«.*  *«******«* 


5524 
0505 
0 50  4 


18  LAST  889 
2 LAST  56  8 


REF  1 


3 1,  2625 
33,2626 
33  ,2677 
31,  26  in 


? 0107 
7 4750 
C 0006 
1 lC  24 


1 

0 

1 

0 


HMEASCHK  CA  F I GWRM  1 

MASK  PNGFDBIT 
EXTEND 

BZF  VMEASCHK 


05r«  PC F 10  l AST  857 

0509  FFF  1 


1 1,2631  f>  L!  4 2 1 POSUPOAT  TC 

32.2632  C 3661  C TC 


SEP  VC  Hf.'G 
POS INDEX 


051  1 
3512 

0513 

0514 
5 5|5 
•••516 


RFF  148  LAST  86 1 

REF  l 

REF  2 LAST  119 

REF  5 LAST  569 


3 3,  2633  r.  6051  e 

33,2634  61373  1 
33,  7635  300C1  0 

33.2636  ( 2222  1 

31.2637  64325  1 

33,  2640  03655  1 

13  ,2641  ?'•  2C  7 0 


TC  INTPRET 

V L C AD*  V X M 

HBEAMNB.1 
XV  BRAD 


9:  12  DC  T.  21 , 1970  ZFLY 


049 


PAGE  861 


USER'S  PAGF  NO.  12 


E4  S3 


SET  MODE  TO  VECTOR 


IN  RN1  POSITION  AT  T I MF  OF  READING 


IN  VN  1 VF  L ?f I T Y AT  T I MF  OF  READING 


ALTITUDE  AT  TIME  OF  RADAR  RFAO 


WAS  AIT  PFAPING  HADE  THIS  PASS? 

NO:  CHECK  FOR  VELOCITY  MEASUREMENT 

YFS 

SR  XI  ACCORDING  TO  ANTENNA  POSITION 

CONVERT  PROPER  HBEAM  FROM  NB  TO  SM 


STORE  IN  PI  AND  SCAIE  HMEA  S 


iAP:  ASSFP8LF  PEV IS  I ON  5b  OF  AGf  PROGRAM  ZERl  INA  BY  ZOROASTER 


L SERVICER 


5 1 7 
0518 
■■519 
r.s2n 
521 
•">?? 

' 523 
^524 
? 5?5 
524 
5 2 7 
05?  8 
0529 


PFF 

REF 

RFF 

RFF 

PFF 

PFF 


25 


lfl 


13 


0533 
05  31 
7532 
0533 


c J4 
3535 
0536 


RFF 

REF 

RFF 


)6  J7 
7538 
539 
C 540 


RFF  170 
REF  3 
REF  Z ( 
REF  3 


0551  RFF  374 

054?  RFF  140 

7543  REF  4 

0544  PEF  2 

0545  KEF  244 

0546  RFF  7 

0547  REF  8 


0548  RFF  4 

0549 

0550  REF  5 

0551  REF  2 


0552  RFF  30 

0553 


RFF  9 
RTF  5 


R0556  * MOTE: 

R 0557 

RO550 


33,  2642 
33  ,2643 
23,  2644 
LAST  858  33,  2645 

33,2646 
LAST  861  22,  2647 

33  ,2650 
LAST  796  33,2651 

33,  2652 
(AST  RM  33,2653 

23,  265 4 
33,  2655 
LAST  367  33,2656 


74205  0 
26003  0 
50206  C 
03535  1 
65225  1 
03763  0 
43342  0 
03641  1 
54221  1 
03547  l 
2C2C7  0 
77404  1 
21674  1 


OMP  VXSC 

HSCAl 

PUSH  DOT 

UNI  T/R/ 

OSU  POOL 

HLRTI  ME 

SRI  DAO 

I AND  *4 

BDSU  SL 

RV  1 *4 

50 

80  VB  F XI  T 

S IGNMPAC 


I AST  823  3-3,  2657  4 OC  7 5 

33  ,?660  7 4741 

33,2661  0 0006 

33,  2662  1 2720 


1 CS  FLAGRRDl 

MASK  NOTERBIT 

1 EXTEND 

1 87  F TFRSKTP 


LAST  797  33,2663  3 5014  l 
LAST  861  3 3,  2664  54  CC3  0 

E5, 1777 


CA  EBANK5 

TS  EBANK 

FB  ANK  = FND-F5 


I AST  959  33,2665  3 4755  1 

LAST  98  3 3,  2666  e4  142  1 

1 AST  859  1 3 ,2667  3 4751  '1 

LAST  99  33.2670  c4  145  0 


TERLQQP 


CA  7 FRO 

TS  TEM2 

CAF  FOUR 

TS  TEM5 


l AST  960 
LAST  959 
L AST  2 
LAST  125 
LAST  860 
I AST  8 1 9 
LAST  42  7 


33,  ?67  1 3 0154  1 

33  ,2672  54  001  1 

145  1 

33 .2674  4 15130 

33.2675  C 46  16  l 

33,  2676  fc 1713  0 
33,2677  54  144  1 


CA  MPAC 

TS  L 

INDEX  TFM5 
CS  ABSCO 

TC  BANKCALL 

FC ADR  l I MI  T SLR 
TS  TEM4 


LAST  862 

LAST  e62 
LAST  12  5 


2 ?,  27CC 

33.2701 

33.2702 
31,  2701 


6 C142  0 
0 0006  1 
5 0145  1 

7 1520  0 


AD  TE  M2 

EXTFND 
INDEX  T EM5 
MP  SLOPEO 


LAST  850 


1 

C 


1NDFX  FIXLOC 
DAS  4 


LAST  34  1 33,  27C6  3 0141  0 
l A ST  862  33,2707  54  142  1 


CA  TE  Ml 

TS  TEM? 


IF  WE  HAVE  FLOWN  BEYOND  IHF  LANDING  SI  Tr  BY  MORF  THAN  THE 
LENGTH  OF  TEE  SEGMENT  ADJACENT  TO  THE  LANDING  S1TF,  CA  TEM  1 
WILL  RETRIEVE  - INSTEAD  CF  MINUS  THE  CURRENT  ABSCISSA  - 


9:  12  OC  T.  21  ,1970  2E  LY 


,049  PAGE  862 


USE3  'S  PAGE  NO.  13  F7  S3 

SLANT  RANGE  AT  2(22  1,  PUSH  UP  FOR  HBEAM 
SLANT  RANGE  VECTOR  AT  2(231  M 
PJSH  NEG  OF  RADAR  ALTITUDE  BEAM  VECTOR 
AL  T I TUDE  AT  2(24)  PETERS 

PUSH  PARTIAL  OELTA  H,  LOAO  NEG  OE  BEAM  2 


SCALE  RANGE  TU  UNITS  OF  2(1?)  METERS 
WHERE  EXTRAP*V  LEFT  POSITION  AT  l KTI  ME 

PICK  UP  NEGMAX  UPON  OVERFLOW 
IS  NOT  ERF  LG  SET  l BY  P66  OR  V6B>? 

Y:  SKIP  TERRAIN  BUT  TPANSFFR  DFl  T A H 

N:  PREPARE  TO  ACCESS  TERRAIN  TABLE 


INITIALIZE  MINUS  LAST  APSCISSA  FOR 
TERLOOP  WHICH  ACCS  TEE  CONTRIBUTIONS 
OF  FIVE  TERRAIN  SEGMENTS  TO  DELTAH 


PICK  UP  CURRENT  PANGE  (NEG  BEFORE  SITE) 


TERRAIN  ABSCISSAE  UMTS:  2(18)  METERS 
LIMIT  GIVEN  LIMITSUB  MUST  BE  POSITIVE 
LIMIT  |PANGE|  <=  ICUPRENT  ABSCISSAl 
SAVE  TO  COMPARE  WITH  CURRENT  ABSCISSA 


SUBTRACT  LAST  ABSCISSA 


SICPE  UNITS:  2(6)  PACIANS.  PESOL:  3.9  MR 


AID  CONTRIBUTION  OF  SFGMFNT  TO  YIELD 
CORRECTED  OELTAH  IN  UNITS  2(24)  METERS 


RETRIFVF  MINUS  CUPR  ABSC  FROM  LIMITSJB* 
STORE  AS  MINUS  LAST  ABSC  FOR  NEXT  SEG 


GAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  2 ERL  I NA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  Z F L Y . 049  PAGE  863 


L SERVICER 


USER'S  PAGE  NC.  U 


R 0559 
R0S6H 
R0561 
*0562 


A ZERC  OR  POSITIVE  REMINCER 
THIS  RETRIEVAL  WILL  CALSF  AN 
WHICH  IS  THE  DES  IP  EC  RESULT. 
SITE  IS  IMPOSSIBLE  EXCEPT  IN 


OF  THE  DIVISION  DONE  OY  LIMITSUB. 
IMMEDIATE  BRANCH  TO  TEREND, 
HOWEVER,  FLYING  PAST  THE  LANDING 
P66  WHEN  THE  TERRAIN  MODEL  IS  OFF 


'<563 
I 564 
0565 
7566 
<•'567 
0568 


REF  o LAST  862 


RFF  1 

RFF  6 LAST  862 
REF  1 


? 3,  2710  6 C H4  0 

3 3 ,27]  1 0 0006  l 

33  ,2712  1 ?714  0 

73,  27  1 3 1 27U  1 

33  ,2  714  10  145  0 

33,  27  15  1 2670  0 


AD  TFM4  HAS  LH  FLCWN  PAST  CURRFNT  ABSCISSA? 

EXTEND 

BZF  +2 

TCF  TEREND  Y:  IGNORE  FURTHER  ABSCISSAE 

CCS  TEM5  N:  IS  CURRFNT  ABSCISSA  THF  LAST? 

TCF  TFRLCCP  N:  REPEAT  TERRAIN  LOOP 


0569 
0 570 
7 571 


REF 

RFF 

REF 


LAST 
I A ST 
l AST 


861 

P62 

853 


33.2716  3 5016  0 TEREND 

33.2717  54  003  0 
E7,  1777 


CA  E BANK  7 

TS  EOANK 

E BA  NK=  END-E7 


Y:  RESTORE  FRANK  AND  OF  PART 


RIF  31  LAST  862 
RFF  5 LAST  772 


37,272.  5U  120  1 
1 3 ♦ ? 7 2 1 

33,  27  22  c ? • 66  5 1 


TERSK 


IP  INDEX  FIXLOC  TRANSFER  COMPLETED  DELTA  H HOME 

DXCH  4 TO  BE  ACCESSED  BY  DISPLAYS,  TFLfcMETRY, 

DXCH  3ELTAH  AND  POSITION  UPDATE  WHICH  FOLLOWS 


LAST 

AST 


3 0120  1 
54  166  1 


CA  FIXLOC  RESTORE  PUSHDOWN  POINTER  TO  ZERO 

TS  PUSHLCC 


677  RFF  19  LAST  861 

0578  PEE  1 

35  79 

0580  REF  1 


33,2725  7 107  1 

73  72  6 7 4 74  1 <■ 

33,  2727  G 00C6  1 
33,2730  1 275D  0 


CA  FLGWRD1I 

MASK  PSTHIBIT 
F XTEN3 

BZF  NOREASON 


IS  PSTHIBIT  SET  I BY  H l G AT  A SKI  ? 

NO:  DON'T  DO  REASONABILITY  Tt  ST  YET 


0581 

0582 

0 68  3 
0584 
0 585 

■596 


0597 
0588 
0599 
05  00 
0591 
7532 
0 503 


0 50  4 

05  06 


REF  140 

REF  6 

RFF  2 

REF  4 
REF  3 
REF  l 
RFF  1 
REF  2 
REF  85 
RFF  1 
REF  86 
RFF  1 


I AST  861 
LAST  863 
LAST  125 

LAST  862 
LAST  775 

LAST  863 
LAST  859 

LAST  863 


3 3,  2731 
33,273? 
33,2733 
3 3,  27  34 
33  ,2735 
? ’ , 2 7 36 
3 3,  27  37 
. ' 

33,  2 74  1 

33.2742 

73.2743 
2a,  2 744 
33  ,2745 
33,2746 
3 3,  2747 


C 6051  0 
51545  1 
03665  1 
52425  0 
0250  1 1 
77425  l 
0 3763  0 
2 5*  673  1 

0 6735  C 

1 3603  0 
1 3603  0 
C 5527  1 

00247  0 
0 5527  1 
00263  0 


TC  1NTPRET 

DLOAD  ABS 

OELT AH 
DSU  SL  3 

OELQEIX 
OSU  EX  IT 

MLR  T1  MF 
INCR  LRLCTP 
TC  BRANCH 

TCF  HFAIL 
TCF  HEAR 
TC  DOWNFLAG 

AORES  HFAI1FLG 
TC  DOWNFLAG 

ADRES  HFLSHFLG 


YES:  00  REASDN  AB  IL  ITV  TEST 

ABS(DFLTAH)  - CQFIX 

ABS  (OELT  AH)  - (DOF  IX  ♦ H^T/9)  AT  2(21) 


OFL  TA  H TOO  LARGE 
DEL  TA  H TOO  ! ARGE 
RESET  HFAIL  FLAG 


TJRN  OFF  ALT  FAIL  LAMP 


RFF 

REF 

RFF 

REF 


86  3 
799 
859 
861 


33,2750  4 0107  0 NOREASON  CS 

33,  2751  7 4744  C MASK 

33.2752  10  000  0 CCS 

33.2753  1 3024  0 TCF 


FLGWR01  1 
LRI  NH9IT 
A 

VMEASCHK 


I S UPDATE  INHIBITED? 

YES:  TEST  VELOCITY  ANYWAY 


3533 


33,2754  C 0006 


E X TEND 


RFSCALE  HLRTIME  TC  UNITS  OF  2(29)  METERS 


GAP:  ASSEMBLE  ►'fVISl'JN  So  JE  A ,C  PROGRAM  /ERL  I NA  HY  ZOROASTER 


L SfPVICEP 


no-  I kff  5 I A ST  863 

56,0/  PFF  376  | fist  862 

<-6C3  REF  23  LAST  737 

D6D4  RFF  14  l AST  855 


mm 

33,2757 
3 3,  2760 


3 176  3 1 
52  155  1 
3 4 741  1 
C 7321  r 


OCA  HIPTIME 

oxen  MPAC 

CAF  0 IT  1 1 

Tf.  SHCRTMF 


050* 
0606 
D5?7 
0608 
0 6 f 9 
061 1 
'•611 
? S 1 2 


RFF  7 LAST  863 
PEF  376  l AST  864 
PCF  1 


RFF  3 I A CT  863 
PEF  377  I AST  864 


33,7761  0 0006  1 

33,2762  3 1665  0 

3 3,276  3 '2  15=1 

33,2764  0 7556  0 

3 3,2765  ( J0O6  1 

33,  2766  1 2770  1 

33  ,7767  1 3024 

33, 2770  54  156  1 


EXTFND 

OCA  DELTAH 

OXCH  MPAC 

TC  AL SIGNAC 

EXTEND 

3ZF  *2 

TCF  tfMFASCHK 

TS  VP AC  *2 


0613 
0 614 
3615 
0616 
0617 
06 1 8 
0619 


362" 

(.621 


0 622 
3523 
0624 
0626 
062*. 
0627 
3678 
0629 


KFF  1 4 1 LAST  862 
REF  1 

RFF  4 LAST  864 

RFF  2 LAST  786 

PEF  2 l AST  864 
RFF  4 LAST  470 
RCF  1 

REF  150  LAST  863 


RFF  26  l AST  862 
RFF  5 LAST  858 
R FF  1 


33.2771  4 000 1 1 

31.2772  6 1 42  n 0 

3 3,  277  3 c 0006  1 
33,2774  6 3024  1 

13,2775  C 61 
33,  2776  7 U21  0 

33,2777  C 0006  1 
33,  30C0  11*420  1 

33,3001  54  135  1 

33,3«*02  0 7325  1 

0 6051  ( 

33  ,3004  77752  1 

33  ,3005  5 3361  C. 

3 3,  3 :r 6 0 3635  1 

33  ,3007  03573  0 

33,  30 1 C C 3657  0 

33,3011  77776  1 


CS  L 

AD  LPFHAX 

E XTENO 

RZMF  WEASCHK 

EXTEND 
MP  LR  ViH 

FXTEND 

DV  1RHVAX 

TS  MP  TF  MP 

TO  SHORT  MP2 

TC  INTPRET 

SL  1 

VXSC  VAC 

UNI  T/P  / 

P IS 

STCRE  GNUR 

F X I T 


0630 


REF  11  LAST  861 


33,3012  C 6042 


TC  SERVE  PNC 


T‘»3l 

0632  RFF 

0633  RFF 
06-3  4 

0635  RFF 
3636  REF 

0637 

0638  RFF 
3639  PFF 


2 1 AST  864 

6 LAST  864 

3 LAST  864 

7 LAST  864 

4 LAST  E64 

8 1 AST  864 


33,  3o  13  0 -IOC 6 1 

33  ,3>'  1 4 3 1657  1 

33,30  15  5->'  573  C 

33,  30  16  0 OOC 6 1 

33,3017  3 1661  1 

33,  30  c ‘ • c 7 5 
33,  3021  0 0006  l 

33,302?  3 1663  0 

33,3023  53*577  1 


F XTENO 
OCA  ON  UP 

DXCH  R1 S 

F X TEND 
DC  A GNUP 

DXCH  R1  S 

EXTENO 
DC  A GNU  R 

R UPDATED  OXCH  Rl  S 


+ 2 
+2 


R 0640  ****##*•*************•*******,>**** 

PC  641  VELOCITY  UPDATE 


>64  1 
3 644 


RCF  12  I A ST  864 
PEF  21  LAST  863 


33,3024  0 6042  1 VMEASCEK  TC 
5 4 0107  0 CS 


S ERVCHNG 
F LGWKOl 1 


9:12  QCT . 21,  1970  7 FLY 


,049  PAGE  864 


USER'S  PAGE  NC.  15 


F7  S3 


STORE  OEITAH  IN  MPAC  AND 
BRING  HCALC  I NT  G A,  L 

IF  HIGH  PART  OF  HCALC  IS  NON  7E30,  THEN 
HCALC  > H VAX , 

SO  IJPOATF  1 6 8 YPA  SSFO 
FOR  L AT  ER  S HOPT”P 


-H  AT  21  141  V 
FP*  AX  - H 

IF  H SHMAX,  RYPASS  UPDATE 
WHIHMAX  - H) 

W H ( 1 - H/  HM  A<  ) 

DEL  TA  H (WHM1  - H/HMAX)  IN  MPAC 

MCOE  IS  OP  FROM  ARCVF 


OELTAR  = DHIWHMl  - H/HMAX)  UNIT/R/ 

CORRECTED  ft  AT  PIPTIMEl  (NEW  Gl  WILL 

BE  COMPUTED  AT  C0PYCYC1  1 


GAP:  ASSEMBLE  REVISION  56  OF  A s:  PROGRAM  ZERLINA  BY  ZOROASTER 


L SERVICER 


i 645 
7 646 
06*7 


RTF  2 LAST  569 
RFF  245  LAST  06  3 
RCF  1 


33,3026  7 4745  1 

33, 3o?7  1C  CCO  0 
33,3030  1 3201  0 


MASK  VFLDABIT 

CCS  A 

TCF  VALTCHK 


0 64fl  RFF 
3649  RFF 


1 A ST  064 
I AST  46  1 


VELUPOAT  TC 
t; 


S ERVCHNC 
PflSI  NOE  X 


C65(! 

3651 

6652 


0653 

7654 

0655 

0656 


REF  14? 
RTF  H3 
RFF  144 
RFF  145 
RFF  33 
REF  23 


LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
LA  ST 


775 
P64 
865 
065 
06  5 
863 
010 


33  ,3033  4 1462  1 

33,  3034  54  :C1  1 

33,7035  26  001  1 

33,3036  6 0001  0 

33, 3777  6 0001  0 

33  ,3040  50  120  1 

33  ,304  1 20  047  0 


CS 

TS 

ADS 

AD 

AD 

INDEX 

DAS 


VSELECT 

L 

L 

L 

L 

F IXLOC 


0657  REF  34  LAST  865 
6658  PEF  7 LAST  H6 3 


73,  3042  3 0 120  1 

33,3043  54  166  1 


CA  F I xmc 

TS  PUSHLOC 


7663 
0660 
0 661 
7662 

0663 

0664 

0665 

0666 
7667 
066  8 
0660 
3677 
0671 
067? 
0673 
'674 
7675 

0676 

0677 
7 470 
0679 


REF  1 S 1 LAST  864 

RFF  1 

REF  3 LAST  86  1 

REF  4 LAST  569 

PEF  1 

REF  7 LAST  86 1 

REF  3 LAST  802 

REF  2 LAST  124 


3 3,  3044  C 6 C 51 
33,3045  61373 

33,  ->046  30007 

33,  3047  C 2 2 2 2 

■ . 

33,3051  f 3653 
3 3 , 3o  5 2 20215 

33,3^63  63203 

33,  30  54  5177? 

7 3,  30  55  03551 

33,3056  52352 

23,  3057  03710 

33,3060  51406 

33  ,306  1 43202 

7 3,  3062  02401 

33  ,3063  24025 

1 ?,  30 64  44241 

33,  7^65  00C01 

33,3066  51406 

33,  3067  77425 

• ’ 


0 

1 

0 

1 

1 

1 

0 

0 

l 

0 


0 

o 

0 

0 


p 


TC  INTPRET 

VLOAD*  VXM 

V ZBEAMNB,  l 
XNBRAD 
POOL  SL 

VMEAS 

12b 

DMP  * PDVL 

VZSCAL  ,2 
VN1 

VSL2  VSU 

VSURFAC6 
PUSH  ABVAl. 

SR4  DAD 

VELBI  AS 
STOVL  27  D 

DOT  BDSU 

r. 

PUSH  ABS 

DSU  F XI  T 

200 


OhBO  RFF 
81  l El 

0682  RFF 
3633  RCF 


2 

1 

2 


LAST  865 


7’,  : i*  7 1 2 5' 675  1 

1 -707  2 C 6735  0 

33,3073  1 362?  0 

33, 3C74  1 362?  0 


I NCR  IRRCTR 

TC  BRANCH 

TCF  VFAIL 

TCF  VFAIL 


0684 

ri606 
3606 
• 687 


RCF  87  LAST  B63 
RCF  1 

RFF  8P  LAST  865 

REF  1 


3 3 , 3 ' j 7 5 

. 

33, 7 >77 

33  K 0 


TC  DOWNFLAG 

ADRES  VFAILFlf 
TC.  3 QRNF  LAG 

ADRES  V FLSHFLG 


9:  12  (JCT  . 21,  1970  Z FI  Y .049  PAGE  B65 
USER'  S PAGE  NO.  16  F7  S3 

IS  V READING  AVAILABLE  ? 

NO  SEE  IF  V READING  TC  BE  TAKEN 
YES 

SFT  Xl  ACCORDING  TC  ANTFNNA  POSIT  ION 


-2  VSELECT  IN  L 
-5  VSELECT  IN  A 

XI  = -6  VSELECT  + POS,  X2  = -2  VSELECT 


SFT  PO  TO  ZE3  3 


CONVERT  PROPER  VBFAM  FRCP  NB  TO  SM 


STORE  IN  PD  C-5 

LOAO  VELOCITY  MEASUREMENT 

SCALE  TO  M/CS  AT  2(  6) 

AND  STORE  IN  PC  6-7 

VELOCITY  AT  TIME  OF  READING 
SCALE  TO  UMTS  OF  215)  M/CS  AND 
SUBTRACT  SURFACE  VELOCITY 

STORE  I M PD 

ABS  (V M J/B  + V EL  8!  AS  AT  ?(  6 ) 

STORF  IN  ?0D  AND  PICK  UP  VM 
V (FST  ) AT  2 <«-  > 

OEL  TAV  = VMEAS  - V(EST) 

ABS(DV)  - (7.5  4 A BS  ( V M )/  8 ) I 


DELTA  V TOO  LARGE  ALARM 

DEI  T A V TOO  L ARGF  Al  ARM 

RESET  HFAIL  FLAG 


TURN  OFF  VEI  FAIL  LAMP 


;6P:  ASSEMBLE  REVISION  5o  OF  AGC  PROGRAM  ZFRLINA  BY  ZORO  AST  ER 


L SEPVICEP 


0688  PEF  22  LAST  864 

0689  PEF  1 

JS93 

069»  PFF  1 


33,  3 1(  1 3 01C7  T 

33,310  2 7 A 740  l 

33,  3 1 C 3 C C0C6  1 
33,  3104  l 3113  0 


CA  FLGRR0  11 

MASK  VX  INHB  IT 

EXTEND 

B7F  VIJPDA  T 


"64?  off  oc  lftST  «»65 

3693  RFF  1 


0 5527 

002  50 


1 

0 


TC  nrWNFLAC 

ADR6S  VXINH 


0694 
0 695 
0696 
( 697 


7 LAST  665  33  ,3 1C 7 3 1462  - 

(■  I \ ST  808  3 J, 31  10  f 7760  1 

33, 3111  C 0006  1 
1 33,3112  1 320!  0 


CA  VSELECT 

AO  NEG2 

F XTEND 

RZF  ENOVOAT 


0 698 
>699 

0 790 
D 70  1 


REF  23  LAST  866 
PLF  3 LAST  863 
Pf F 246  LAST  F65 
RFF  2 LAST  865 


33.3113  4 01C7  0 VUPOAT  CS 

33.3114  7 47<-4  o MASK 

33.3115  1C  000  0 CCS 

33,  3 1 16  1 3201  0 TCP 


FLGWP011 
I R INHB!  T 
A 

VAL  TCHK 


0702 


RT F 378  LAST  R64 


33,3117  54  155 


TS 


HP  AC  ♦ 1 


r»7o  } 
070', 
0 7'  6 
0706 

070  7 
07"H 


REF  6 LAST  866 

»EF  1 

PFF  8 LAST  866 

P FF  1 

PFF  9 LAST  862 

PLF  47  LAST  863 


33,  > 12  1 
33  ,3  122 
3 3,  ’12  3 

33,  3i  ?4, 
33,3125 


3 1471 
<=4  130 
3 1462 
64  131 

3 5 C 14 
54  003 


0 

1 

0 


CA  ABVEL 

TS  A9VFL* 

CA  VSELECT 

TS  VSPLFCT* 

CA  EBANK5 

TS  E8ANK 


3709  RTF 
0710  PFF 
0 711  RFF 

0712 

0713  RFF 


2 LAST  125  £5,1503 

3 LAST  866  33  ,3126 

2 LAST  866  33,1127 

3 3,  3 130 

1 33,3131 


4 1503  1 
6 >130  O 

0 00C6  1 
6 3144  0 


F BANK  = I P VF 
CS  LPVT 

AO  ABVEl* 

E XTEND 

BZMF  USEVF 


0714 
,71*; 
‘ 716 


0717 


866 

125 


REF  1 


13,  1132  A 0131  1 

33,3133  6 1502  1 

33,1134  0 0006  1 

33,  3 1 35  6 3 147  0 


CS  ABVEL® 

AO  LRVMAX 

EXT  ENO 

B Z PF  WSTOR  -1 


0 718 

0719  rff  2 LAST  866 

0720  PFF  ? LAST  125 


33,3135  0 0006  1 

33,3137  6 0131  1 

33,  3 140  7 1504  0 


FXT  ENO 

INDEX  VS  EL  FCT  * 
MP  LRWVZ 


• 721 
3722 
.723 


REF 

REF 


33,3141  0 0006  l 

3 LAST  866  33,  3 142  1 1' EC 2 9 
2 LAST  866  33,3143  l 3150  1 


FXT  ENO 

OV  LRVMAX 

TC  F WSTOR 


7 24 
■>7:s 

"726 


REF  3 LAST  866 

RFF  2 LAST  126 

RFF  3 LAST  866 


13  , 1144  50  1 31  1 

1 1,  3 145  2 1 5C  7 1 

33,3146  1 3150  1 


USEVF 


INDEX  VSELFCT* 
CA  LRViVFZ 

TCF  WSTOR 


9:12  KT.  21,1970  ZFLV  .'349  PAGE  865 
USER'S  PAGE  NO.  17  E7  S3 

IF  VX  INHIBIT  RESET,  INCORPORATE  CATA. 

RESET  VX  INHIBIT 

IF  VSELECT  = 2 (X  AXIS), 

BYPASS  UPDATE 

UPDATE  INHIBIT  EC 

STORE  E7  ERASABLES  NEEDED  IN  TEMPS 

CHANGE  EBANKS 

IF  V < VF,  USE  WVF 

VMA  X - V 

IF  V > VNAX  , W = 0 

WV1VMAX  - V) 

WV  ( 1 - V/V MAX  ) 


USF  APPROPRIATE  CONSTANT  WEIGHT 


» AP:  ASSEVBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0727 

0728 
5729 

0730 

0731 
J 732 


PFF  1 7 1 LAST  862 
REF  370  LAST  866 
REF  31  LAST  814 
REF  15  LAST  827 


13,  3147 
33,3150 
33,  315  1 
33,315? 

33.3153 

33. 3154 


3 4755  1 
54  1 54  0 

4 4745  1 
6 1010  1 
r.  0006  1 

6 3 1 c 7 1 


ZERO 
MP  AC 
BI  T7 
MPOPCG 


REF  380  LAST  867 


7737 
C 738 
0 7 30 
174  0 
0 741 
7 74? 
074  3 


REF  7 L AST  866 
RFF  152  I AST  865 


E7,  147  1 
33  ,3161 
■ ' . 1 ■ ' 

33,  3163 

. 

13,  3165 
33,  3]  66 


03601  0 
C 3657  0 
77776  1 


E BA  NK= 
TC 
OMP 
VAD 


ADVFL 

INTPRET 

VXSC 


0 744 

3 74  5 
0746 
747 
0748 
074  6 
3750 
>751 
1752 
3753 


33,3167  0 6C42  1 


3 3,  .3170 
33,3171 
11,1172 
33,  .117  3 
33  ,3174 
33,  3175 
33,  li  76 
V'  , 3 1 7 7 
33,  32C0 


f 0006  1 
3 1657  1 
53'6Cl  0 
C 00'.  6 1 
3 1661  1 
5 2 ' 6C3  1 
C 0CC6  1 
3 1663  0 
53 '605  1 


TC 

6 X TEND 

oca 

DXCH 

EXTEND 

oca 

nxcn 

EXTEND 

OCA 

VUPDATED  OXf.H 


0 754 
'754 


RTF  3 
RFF  14 


LAST  866 
LAST  867 


33  ,3 ?C  1 


3 3 , 3 ?C  1 < 6C42  1 


33,  3 2c  2 
33,3203 

. 

13,  3?0  4 


4 01C7 
7 4 74  1 
( CCC6 
1 3222 


ENOVOAT  = 
VAITCHK  TC 


VALTC  HK 
SERVO HNC 


M AS  K 
F X TE  ND 
BZF 


0 76(1 
176  1 
< 76? 
763 


33,320. 

, 


1766  REF  146  LAST  865 


2 4741  1 

56  003  1 
c 4 0C1  1 


9:12  02  T,  21,1970  ZFLY  .049  PAGE  867 
USER'S  PAGE  NO.  18  E5  S3 

IS  CURRENT  PROGRAM  P66? 

NC 

YES 

CHANGE  EBANKS 

Hi  DELTA  V MVBEAMSM)  UP  6-7,  0-5 

ADD  WFIGHTEO  DELTA  V TO  VELOCITY 
CORRECT  EO  V AT  P IPT  IMEl 


2 

2 


00  NOT  REPEAT  ABOVF 
IS  PSTHI  HI  T SET? 

YE  S 

NO 


GAP:  ASSEMBLE  PFVISMN  So  Oh  A S PROGRAM  ZERL1NA  8Y  ZOROASTER 

L SFRVlCEP 


9:  12  OCF  . 21,  1970  Z Ft  Y 
USFP*  S PAGE  NC. 


.049  PAGE  868 
E7  S3 


767 
• 768 
' 769 
770 
7 771 
■ 77? 
' 773 


PFF  7 
RFF  P 
REF  66 
PFF  50 
RFF  2 

REF  1 


LAST  84  2 
I AST  86g 
LAST  861 
LAST  P67 
LAST  574 


F4 ,1  536 
33,  3 ? 1 5 
57 ,1513 
33  ,3?l6 
33,  ’ 2 1 7 
33  ,3220 
33,  2221 


4 1536  1 

22  003  1 
6 1430  1 
0 0006  1 
6 3645  0 


EBANK=  XNBPIP 
CS  XN3PI  P 

FBAN<=  DVCNTR 
LX  CH  EBANK 
AO  RPCPTOSk 

FXT  END 

BZMF  HI  GAT  ASK 


774 

774 

■774 

-1777 

776 


REF  16  LAST 

REF  1 

RFF  2**  LAST 

REF  26  LAST 


86  7 


847 

R6P 


33.3222 

33.3223 
? 3,  3224 
33  ,3225 
33  ,3  226 


G &042  1 
C 00C4  n 
4 3761  0 
7 0107  n 
f 4 10  7 0 


C0NTSE8V  TC  SLR Vf.HMG 

INHINT 

CS  8ITS4-7 

MASK  FLGWR011 

TS  FLGWRDI1 


CLEAR  LR  MEASUREMENT  MADE  DISCRETES. 


■779  NCTL  THAT  R 1 2kE  AO  (ANC  RDGIWS)  IS  N.l  T RESTART  PR  U TEC  Tf  0. 

3 '781  READING  SI  PPL  Y IS  ACT  MAOE. 


IF  THERE  SrtOULO  BE  A RESTART,  THIS 


i7R? 
f 78  - 


'784 

3784 

' 785 


REF 

RFF 

PEF 

REF 

REF 


844  33.  7 ?27  2 4753  1 
851  3 3 » 3 ?30  0 5?  1 4 0 
866  E7.1462 

33,  3231  03  HO  1 
33,3232  52067  1 


CAF  P I T 1 

TC  WAITLIST 

6BANK=  VS  ELECT 
2CAUR  R12READ 


NOw  SAFE  TO  MAKE  A READING 


A 78  6 


(FALL  THROUGH  TC  CCPYCYC1I 


?L  789  COPY:  YC  LF  ’cOIM  AG*’  *******  *********** 


079? 


PFF  17  LAST  968 


33,3233  C 6042 


C3PYCYC1  TC  SEPVCHNC. 


13,3234  3 0120  1 

3 3,  3 235  5 4 166  1 


CA  FIXLOC 

TS  PUSHLOC 


BATTEN  DOWN  THE  HATCHES 


0795  REF 

0796 

i 797  REF 
0758  REF 
3 799 
0800 

0801  RFF 
3832  RFF 

0803 

0804 

0805  REF 

0806 

3837  REF 
0808 
0809 
38lO 


1 53 

9 

8 


27 


1 1 


LAST  84  7 

I AST  864 
LAST  861 


(AST  861 
LAST  858 


LAST  864 
LAST  867 


3 2,  3 ? 3 7 
3 3,  3 240 
33,3241 
7 3,  3242 
33  ,3243 

33,  3245 
33  ,3 ?46 
37, 3247 
3 3,  3 240 
33  ,3251 
73,  325? 
33  ,3253 
33 ,3254 
33,  3255 


03573  n 
71743  1 

45345  1 
00045  0 
02324  0 
0 35  33  1 
63261  1 
20212  1 
03535  1 

51435  1 

C36C1  0 
56316  0 

00045  0 
63252  0 


TC  INTPRET 

VLOAD  CALL  R ECOMPJT  E C.1  IN  CASE  LR  UPDATED  R IS 

5 IS 

MUNCRAV 
D LOAD  OSU 

36D 

/LAND/ 

STORE  -CALC  ALTITUDE  IN  UNITS  CF  2 (24  1 METERS 

SL  PDVL  STORE  HCALCLAO  AT  PP  0 

9D 

UNI  T/R  / 

VXV  ABVAI 

VI  S 

DSQ  ODV 

36  D 

SL  1 PD  VL 


STORE  DALTRATE  AT  PC  2 


GAP:  ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  2ERIINA  BY  ZOROASTER 


L SERVICER 


>811  REF 
0812 

■'813  REF 
09 1A  RFF 
Ofil  5 

' R 16  REF 

IB  17 

raia  ref 

0 810  RFF 
0820  REF 
0 821 

092?  REF 

0823  RFF 

0824  REF 
0925 

0826  RFF 
^827  RFF 

0828  REF 

0829 


29  LAST  868 

12  LAST  868 
7 l AST  322 

6 I A ST  846 

10  LAST  868 
4 LAST  865 

11  I AST  869 

37  l AST  866 

7 LAST  86  2 

13  LAST  869 

38  LAST  869 

8 LAST  86  5 
4 LAST  857 


. 

33,3260 
33,  326  1 
33,326? 
33,3263 
33,  3 264 
33  ,3265 
3 3 ,3  266 
3 3,  3267 
33  ,3270 
33, 3271 
11,  32  72 

33 .3273 

33. 3274 

. 

33  ,3  276 
33, 3277 

33  ,3300 


03601  0 
C 34  74  0 
63312  1 
02316  1 
72635  C 
03673  0 
27.710  1 
03573  0 
60505  1 

cn?2  o 

27543  0 
03601  0 
76  5 C 5 0 
0173?  n 
2765]  0 
03661  0 
7753 2 0 


UNIT/R/ 

DOT  SL  1 
V IS 

STORE  HDCTOISP 

SL  2 POVL 
WM 

VXV  VSL2 
R IS 

STCVL  VSURFACE 
R 1 S 

VXH  VS  R 4 

REFSMMAT 

STOVL  RN1 
VIS 

VXM  VSLl 

REFSMMA  T 

STOVl  VN1 
r»i 

VSL3  FX  IT 


39  33 


33,  33C 1 C 0CC4  0 


I AH  1 NT 


0831 
8 32 
3833 


RFF  36  LAST  868 
REF  2 I AST  154 


! ,3302 

. 

33, 3304 


50  120  l 
5?  001  1 
5:-’7l6  1 


I NOE  X F I XLOC 
OX  CH  0 
0 XCH  HCALf.  LAO 


0834 

0835 

0836 


REF  37  LA  SI  869 


33  ,3305 
13,  3306 
33,  I3(  r 


50  120 
c?  C C 3 
cc*  721 


INDEX  rixiuc 

oxrH  ? 

TS  DALTRATE 


0837  RFF  38  LAST  869 

3838 

0839  REF  2 I AST  154 


33,331') 
?■>,  3 711 


50  120 
6 2 CCS 
5 3 • 7 2C 


1 

0 

1 


INDEX  riXLDC 
D XCH  4 
OXCH  HDD  TL AO 


0840 
084  1 

0842 

>343 

C84'-> 

0845 


REF  781 
REF  4 
RFF  38? 
REF  2 
REF  383 
RFF  ? 


LAST  967 
LAST  8D4 
LAST  869 
LAST  154 
LAST  86<J 
LAST  164 


33,  33  14 
33,3315 
1 J,  3316 
33,3317 
33,3370 


3 Cl  54 
6 c • 7C  1 
3 0157 
56*  7C2 
3 0161 
55' 703 


1 

0 


CA  MP  AC 

TS  3RAVACCX 

CA  HP  AC. 

TS  SPAVACCY 

CA  HPAC 

TS  GPAVACCZ 


3946 
0 84  7 

0848 

0849 

0850 
>851 
0862 


RFF  29  LAST  869 


REF  ??  LAST  805 
REF  2 LAST  155 


77,  7’:  1 
33 ,3322 
3’, 3323 
33,  7324 
33  ,3325 
33,  J 3 ?t> 
33,  ? 7?  7 


0 CCC 6 
3 1535 
2C  CC1 
54  ( 00 

1 3327 
? 4733 
57*72? 


0 

1 

0 

0 

1 


F X7END 

OCA  UNIT/R/ 

UDCUBL 
3 VSK 

TCF  +2 

CAF  PUS  MAX 

XCH  R UNI  T X 


0 85  3 


33,3330  C 0006 


EXTEND 


,049  PAGE  869 


9:12  CCT  . 21,1970  Z FLY 
USER'S  PAGE  NC. 


SURFACE  VELOCITY  IN  UNITS  OF  2(5)  M/C  S 
(NO  NEED  TO  LOAD  VSIJRFACF  JNDER  IN  H I NT 
BECAUSE  IT  CHANGES  ONLY  VFKY  SLOWLY) 

POSITION  IN  REFEPENCF  COORDINATES 


VELOCITY  IN  REFERENCE  COORDINATES 
GRAVACC  IN  MPAC  UNITS  OF  ?(- 9)  M/CS/CS 
INHINT  TO  PREVENT  DOW.NRUPT  OR  QUA R TASS 
FETCH  HCALCLAI)  FRCR  PO  0 
ALTITUDE  IN  UNITS  CF  ? 115  ) METERS 
FETCH  DALTRATE  FROM  PD  2 
OALTRATE  IN  UNITS  CF  2 ( -9  > M/CS/CS 
FETCH  HDOTLAD  FROM  PD  4 
HDOTLAD  IN  UNITS  OF  2(5)  M/CS 


GRAVACCX  IN  UNITS  CF  ? (-9  ) M/CS/CS 
GRAVACCY  IN  J.N  ITS  OF  2 (-9  > M/CS/CS 
GRAVACCZ  IN  JNITS  OF  21-9)  M/CS/CS 


SCALE  FULL-SIZE  HUT  WATCH  FOR  U VERFLO ' 


•,4»:  ASSEMBLE  R£  VI  SI  OK  56  OF  AGC.  PRCGRA 
L SERVICEP 


Z fc  PL  I N A BV  ZOROASTER 


085'. 
"'8  55 
3356 


PFF 

REF 


LAST 
t AST 


859 

155 


33,3331 

. 

3 3,  3333 


3 1537  1 
20  001  1 
57*723  0 


DC  A UNIT/P/ 

DOOJBL 

XCH  3 UNITY 


R97 

^RS« 

C 85  9 
0860 


PFF 

REF 


31  LAST  870 

7 LAST  155 


33  ,3  33'* 
”,  3 3 ? 5 

33,  "»  3 36 
33 ,33  ' 


C 0006  1 
? 1551  0 

2o  on  i 

57*  726  1 


EXTEND 

OCA  UNIT/R/ 

ODOU3L 

XCH  RUNITZ 


5851 
f 862 
0863 

0865 
0865 
3366 
( 867 
0868 
3869 
C 870 

0871 

0872 
'873 
3875 
'3875 

0876 

3877 

0878 


3 3,  3 3*0 
33  ,3351 
33  ,3352 

33,  3 35  3 
33  ,3355 
32, 3385 
33,  3 356 
33,3367 
33,  3350 
33  ,3351 
33,3352 
33,  3 3<j3 
. 

33,  3 355 
33,  3 3*56 

33,3357 
33,  3360 
33  ,3361 


"'M7  1 

C OOC  6 1 
3 1575  1 
52*521  1 
C 00C6  1 
3 1577  0 
c:-*‘23  0 
C 0006  1 
2 1601  1 
c :•  * 5 25  C 
0 0006  1 
2 1 6C3  0 
53*527  1 
C 0006  1 
2 1605  0 
53 ' 53 1 0 


F XTEND 
DCA  I 

DXCH 

E XTEND 

DCA  I 

DXCH 

EXTEND 

OCA 

0 XCH 

EXTEND 

DCA 

D XCH 

EX  T EN  D 

DCA 

PXCH  ' 
EXT  END 
DCA 

DXCH  ’ 


' 8 79 

rHRii 

0881 


PFF 

PFF 

REF 


19  LAST  P58 
1 

20  LAST  870 


”,316?  6 01C3  1 

33,  3363  7 576  1 r 

33,3366  26  103  1 


CS  FLAGWRC7 

MASK  SWA  NOR  IT 
ADS  FLAGWRD7 


A ST 


33,3305  (.  CCC6  0 CQPYCYCl.  INHINT 


0885 

0886 
3987 
0888 
"889 

3893 


RFF 

REF 

REF 

PFF 


L AST 
1 A ST 
l AST 
LAST 
LAST 
I AST 


85  3 
860 
8C  2 
860 
853 
860 


13,  17 

33  ,337  1 
3 3,  3 172 
33,  3 373 

, 

!3,  3375 


3 1157  0 
55*255  1 
2 1160  1 
55*255  C 
3 1161  0 
5 5 ' 256  0 


PI  PA  TMP X 
P IPAXGLD 
PI  PATMPY 
PI  PA YOLD 
PI  PATMPZ 
PI  PAZOLD 


08901  0 

08902  *REF  2 

08903  *PFF  ID 


33  ,3376 

, 

33, 3600 


0 0006 

3 1 176 

c :•  * c io 


EXTEND 

OCA  DVT  EMP 
D XC  H D V TO  TA  L 


33,3601  0 3673  0 


0891 


COPYCYC 


12  OCT.  21,  197C 


ZFl  Y 


0*9  PAGE  870 


JSER'S  PAGE 


2 


SCALE  FUIL-SIZ6, 


NO.  21  E 7 S3 

OVERFLOW  MOST  UNLIKELY 


SCALE  FULL-SIZE,  OVFPFLCW  MOST  UNLIKELY 


INDICATE  TO  LANAOISP  THAT  THE  NUMBERS  IT 
NEEDS  FROM  SEPVICFP  FAVT  BEEN  PROVIDED 

ENTER  HERE  FROM  CALCRVG 

FOR  00*7 NL  INK 


COPY  RN1  - HASS1  INTO  RN 


MASS 


.049  PAGE  871 
E 7 S3 

0892  RFE  18  LAST  868  33,  3402  C 6042  1 TC  SERVCHNG 

9 893  (FALL  THROUGH  TO  OVMQN,  STILL  UNOER  INHINT  » 


'.AP:  ASSEMBLE  REVISION  So  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER  9:12  o:  T.  21,1970  ZFLY 

L SFRVICER  USER'S  PAGE  NO.  22 


R 0896  OVMON******** ************  ************************************************************************************** 

R ' 897  *******  *************** ******************************************************* *********************************** 


0899 
f 900 
3701 


RFF 

RFF 

RFF 


2 

16 


17 


L AST 
IAST 
L AST 


7 3 8 
823 
87  1 


33,340  3 4 4 741  0 DVM3N 

33,3404  7 0076  1 

33,  34C5  54  C76  1 


G S STEfRBI  T 

MASK  FIAGWRC2 
TS  FLAGWR02 


090? 

0903 

99  34 
0909 


REF  3 LAST  748 
RFF  21  LAST  870 
RTF  247  LAST  866 
RFF  1 


33  ,3406  3 4745  0 

17  ,-<407  7 0103  1 

33,  34  1u  10  ^ 00  0 

33,3411  1 3444  1 


OAF  IDLEFBIT 
MASK  FLAGWRD7 
CC  S A 

TC  F SI00VM0N1 


9906 
0907 
0 908 
3937 


RFF  8 LAST 
RFF  1 
RFF  24  8 LAST 
REF  1 


8Sfe  33,  34  12  4 0102  0 

33,  3413  7 4752  1 

871  33,3414  10  000  0 

33,  34  15  1 3450  1 


CS  F L AG  H R 06 

MASK  A LI  XF  LB  I T 

CCS  A 

TCF  NCDVMCN2 


0910  RFF 
09  T 1 RFF 

0912 

0913  RFF 


7 LAST  8?9 
4 I A ST  855 


33  , -*416  4 1251  1 

33,3417  6 1250  1 

33,  3420  C 0CC6  1 
33  ,3421  6 3454  1 


CS  PVTHUUSH 

AO  ABCVACC 

E XTPND 

QZMF  LOTHRUST 


3314 

C91S 

0915 


RFF 

RFF 

REF 


87  l 
871 
e7i 


4 C C 76  1 
7 4741  0 
2 6 076  1 


CS  FLAGWR02 

MASK  STEFRBI  T 
ADS  FLAGWRD2 


9917  RFF  85  l AST  86 1 
C 9 1 8 RTF  47  LAST  868 


33,  3425  3 475  3 1 PVCNTSET  CAF 

33,3426  55*513  0 


ONE 

OVCNTR 


Q1 

92 


0921 

992? 


REF  lo  l A ST  855 
RFF  13  LAST  855 
RFF  249  LAST  871 
RFF  1 


37.3431 

33. 3432 


3 .MC6 
7 4737 

10  000 
1 3476 


0 

1 

0 

0 


CA  F LGWR010 

MASK  APSE  LB  IT 

CCS  A 

TCF  USFJETS 


C 923  RFF  21  LAST  850 

0974 

0925  PEF  3 LAST  19  7 

0926 

9927  REF  2 LAST  871 


33,3433  3 4743  0 

33  ,34  34  0 0006  1 

3 3,  34  95  0 2 032  1 

33 ,3436  0 0006  1 

33,  3437  1 3476  0 


CA  B I T9 

EXTENO 

RAND  CHAN32 
EXT  END 

OZF  USEJETS 


0928 

oqpa 

9930 

0931 


RFF  2 LAST  747 

RFF  27  LAST  «2  2 

PEF  28  LAST  871 

REF  1 


33,3449  4 4736  0 USEGTS 

13  ,3441  7 nm  1 

33,  3442  54  1H  1 


CS  USECPJTS 

MASK  DAPROOLS 
TS  D APflOOL  S 


33  ,3443  1 3501 


TCF  OVHONENO 


STEERSW  IS  RESET  IF  THRUST  IS  ADEQUATE 

IS  THE  IDLE  FLAG  SET? 

IOLEFLAG  = 1,  HFNCE  SET  A UXF  LAG  TO  0. 

AUX  FLAG  = 9,  HENCE  SET  AUXFLAG  TO  1. 
OOFS  THRUST  EXCEED  CRITERION  DVTHRUSH? 

NO 

YES:  SET  STEERSW 

ALLOW  TWO  PASSES  MAXIMUM  NOW  THAT 
THRUST  HAS  BEEN  DETECTEO. 

BRANCH  IF  APS  FI.  AG  IS  SET. 

CHECK  GI  MBAL  F AI  L B!  T 


>P:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  /E«t  WA  BY  ZOROASTER 


9:  12  0:  T.  21  ,1970  ZFIV 


,099 


PAGE 


872 


SEP VI CF  R 


USER  'S  5 A GF  NO.  23 


393? 

0933 

0939 

0935 


2 L AST  87  1 
9 LAST  871 

1C  LAST  P72 

3 LAST  87  1 


33, 3449 
33  ,3945 
33.3446 
3 3,  3447 


4 4752  1 
7 DIP?  0 
54  1C2  0 
1 3476  0 


NODVMOM  1 C S 

MASK 

TS 

TCF 


A UXF  1 8 1 T 
FL  AGWRD6 
FLAGWRD6 
USE  JF  TS 


SET  AUX  FLAG  TO  0. 


E7  S3 


PTF  11  LAST  »7? 
PFF  3 l AST  872 


0938  PFF-  1?  LAST  87? 
1939  PEF  4 LAST  ?72 


79  ,3480 
°3,  345  1 
33  ,3452 
33,3453 


AfOVMrN? 


cs 

MA  SK 

AOS 

TCF 


FL  AGWRO* 
AUXFLBI  T 
FL  AGWR06 
USEJETS 


SFT  AOXFLAG  TO 


(•940  PFF  T9  LAST  87  1 

0941  PFF  48  1 A ST  87  1 

394?  PFF  1 


33,  3454  C 60 4 2 
33,  "t 55  11*517 

33,  3456  1 347C 


1 LO  THRUST  TC 
CCS 
TCF 


SEP  VCHNG 

OVCNTo 

OECCNTP 


0943  RFF 

0944  RFF 


071 


33,3457  1(  760  l 

, • I *501  l 


CCS  PHASE4  COMFAIL  JOB  ACTIVE? 

TCF  OV  HON FNO 


9945  PFF  71  1 AST  R5l 

0946 


3 3,  34  6 1 0 c 364  C 

33,3462  00374  l 


TC  PHASCHNG  4.37SPQT  FCP  CGMFAIL. 

OCT  00374 


0947 
0 94  8 

0949 

798' 

0950 

0951 


RFF 

PFF 

PFF 

REF 


I AST 
1 AST 
I AST 
I AST 


710 

qso 

»44 

?49 


32,3463  3 7725  C 

13,  3464  C 5C  72  1 
E7.1455 

33,  3465  C?  570  1 

33  ,3466  74067  0 

33,3467  1 3501  1 


CAF  PR1C25 
TC  NO  VAC 

EB ANK=  WHICH 
2CA0P  C CPF  AIL 

TCF  OVMONENC 


0952 

0953 
3954 

0955 

0956 
J 9 r.  7 
0958 
(959 
096  7 
0961 


RFF  1 
PFF  2F 
RFF  2 

• 

RFF  47 
REF  7 
RFF  29 
REF  3 
RFF  30 


LAST  872 
LAST  87? 
LAST  872 
I A ST  845 
LAST  842 
I AST  871 
l A ST  871 
LAST  872 


33, 3470 
33  ,3471 
33,  3472 
33,  3473 
33,3474 
33,  3475 
33  ,3476 
33  , <477 
33, 3500 
33  ,3 5(  1 


55 ’570  0 
0 6042  1 

3 1 57C  1 
55*513  0 
C,  4674  0 

40166  1 

4 0111  1 
7 4736  C 
26  HI  1 
0 0003  1 


DECCNTR  TS 
TC 
CA 
TS 
TC 

C ADR 

US  EJ  FT  S CS 

MASK 
A f)  S 

CV  MON  FNO  R FL  INT 


3 VC  N TR 1 
S ERVf  HNG 
OVC  NT  R1 
OVCNTR 
I BNKC ALL 
STCPRATE 
OAPOnOLS 
USFQRJTS 
0 A PR  OOL  S 


IF  THRUST  IS  LOW,  NO  STFERING  IS  DONE 
AND  THE  DESIRED  KATES  ARE  SET  TO  ZERO. 


R39S?  ************  *********  .it********#**************************************************-**************  ***************** 

R096A  EXIT  TC  GUICANCE  ECUATfONS 


RD967  RULES  FOR  USERS  OF  SERVICER: 

U-968  DC  NOT  GO  TO  ENOOFJOe.  RETURN  TO  THE  START  OF  SERVICER  AT  PIPCYCLE.  INSURE  THAT  ALL  BRANCHES  LEAD 

R097O  EVENTUALLY  TO  PIPCYCLE. 


r-971  USE  GROJP  5 f\s  RESTART  GROUP  AND  USE  A "TC  SERVCHNG"  ( VH I CH  IS  IN  F I XE  0-F 1 XEO ) WHENEVER  POSSIRLE 

3 ('973  FOR  RFSTART  PROTECTICN. 


SAP:  ASSEMBLE  REVISICN  5o  CF  AGC  PRCGRAM  ZERL  INA  BY  ZOROASTER 


9:  12  0:  T.  21 , 1970  ZF  LY 


069  PAGE  873 


L SERVICER  USER'S  PAGE  NO.  26  fc  7 S3 

u<'976  AVOID  CHANGING  PRIORITY  EXCEPT  BEFORE  CALLING  DISPLAY  ROUTINES  WHICH  WILL  SET  UP  OFF-LINE  JOBS. 

\ 0976  IN  THIS  CASF  RAISF  PRIORI  IY  T C AND  RESTORE  TO  20  AS  SOON  AS  POSSIBLE. 


REF  265  LAST  86  2 
REF  l 


33,  35C2  C ^ 16  1 
33,3503  60663  1 


TC  BANKCALL 

CACR  l /ACC  S 


0979  REF  11  l A ST  275 

0980  RFF  o LAST  7B 1 

0981  REF  9 LAST  868 

)98? 

0983  RFF  3"  LAST  869 


33,  3 SO  5 
33,3506 

3 3,  3 5 C 7 
33, 3510 


56  166  1 
22  CC  7 0 
52  121  1 


CA  PRIGRITY 

MASK  L 0 W9 

TS  PUSHLOC 

ZL 

OXCH  cIXLOC  FIXLOC  AMO  OVF  I NO 


0986 


RFF  21  LAST  872 


33  ,351  1 0 6062  l 


TC  SERVCHNG 


33, 3512  05515C 

33  ,3513  00063  C- 


TC  UPFLAG  SFT  SERVOVER  FLAG  TO  INCICATE  THAT 

ACRES  SERVOVER  SERVICFR  IS  THPOUGH  FOR  THIS  PASS 


0987 

0988  RFF  5 LAST  R56 

0989  REF  21  LAST  761 


33,  35  16 
33,  36  15 
33,3516 


f uC06  1 SERVOUT  EXTFNC 
^ 1 2 = "3  1 DC  A A VGF  XI  T 

52  006  0 UXCH  Z 


FXIT  TO  SELECTED  ROUTINE  WHFTHEP  1 HERE 
IS  THRUST  OR  NOT.  STEERSW  WILL 
CONVEY  THIS  INFORMATION. 


«»«««*  «***:«««  /■  44  4 0*  *$***>  #*#**tt*A<<$<»**$#****e**$#$S<tl),******«r*#$  ft* ****** ***««$*  *********  ************* 

,<na->  CCVL  HFRF  via  avgfxit  cn  last  sfhvicfr  pass 

R0993  ft********************** ******************************** *************************************************** ****** 


099S  REF  20  LAST  860 
CQ96  RFF  8 LAST  856 


33,  35  17  : 1236  0 AVGEND  CA 

33,3520  55*076  1 TS 


PIPTIME  ♦ 
l/P  IPAOT 


FI  NAL  AVERAGE  G EX  IT 

SET  UP  FREE  FALL  GYPO  COMPENSATION. 


3307 

(998 


59 

2 


i VI  373  1 • 3521  ‘I 

■| 


TC  UPFLAG  SFT  DRIFT  FLAG. 

AORES  DR  I FTFL  G 


0990  REF  266  LAST  873 

1333  RFF  1 


BANKCALL 
P I PL  RE  E 


I ' 

13  3? 

100.3 


RFF  22  LAST  «7l 

REF  29  LAST  850 


6 6 763 
C CC06 
C3  Oil 


CS 

C XTEND 

WAND 


8 IT 9 

3SALM0UT 


1006 
133  6 
1006 
ICC  7 


REF 


11  LAST  769 


13,3530  U 536C  0 

33,  3s3  1 000C5  1 

33,3532  05022  1 

33,353  3 20000  n 


TC  2PHSCHNC 

aC  T 5 GROUP  5 OFF 

OCT  05C22  GROUP  2 ON 

OCT  20000 


10  12 
1313 
1016 


PFF  156  LAST  868 
REF  1 

REF  7 LAST  851 

REF  1 


3 3,  3m/.  c 6051  C 

33,3535  77616  1 

3 3,  3 = 36  03666  0 

3 3,35^7  66C16  0 

- ' . * 

23,  3 5 6 1 2 f 66  3 0 

33  ,3562  77616  0 


TC  1NTPRET 

CL  EAR 

SWAN01SP  SHUT  OFF  Rl3  WHEN  SERVICEP  ENDS. 

CLEAR  CALL  RESET  MUNFLAG. 

MUNFIAG 
AVETCMI  D 
CLEAR  FXIT 


GAP:  ASSEMBLE  REVISION  8*  OF  Af.C  PROGRAM  ZERLINA  BY  ZOROASTER 


REF 

RTF 

REF 


56  LAST  865 


33,  3563 
33  ,3564 
33 f 3545 


0’671  1 
6f>35  0 
l Cl  22  1 


CAUR 

OUTGDAVE  = 


V77FIAG 

PPSTJ'JMP 
V3  7PET 


3 If;?' 
R 1 : 2 ? 
Rlu23 

10?  5 
1 " 26 
1027 


i SI 


M¥i 

1 38 
1339 

1060 

1061 

1062 

106  3 
1346 

10  65 


COME  HERE  FB OH  POOOOO  TO  CURTAIL  PIT  NOT  HALT  SERVICER 


REF  18  LAST  8 74 
RTF  3 LAST  730 

REF  2 LAST  23  1 
REF  1 67  LAST  867 

REF  8 LAST  823 

PFF  1 


33  ,3566  0 0006  1 

3 1,  3667  3 37  37  T 

33  ,3550  5 3 • 253  0 


REF  22  IASI  871 


RTF  27  LAST  858 


PEF  15  LAST  807 


REF  13  LAST  872 
PEF  5 LAST  056 
REF  250  LAST  8 7 1 


3 3,  3551 

33,  <55? 
33,3553 


6 C 1 03  1 

7 6 765  1 
26  103  1 


33,3556  C 0CC6  1 
■33,  3657  3 6755  1 

33.3560  5?  752  0 


I 

33,3562 

. 


3 01C2  1 
7 6766  0 
1 0 000  0 
T 3670  1 


. I 6 1 

33  ,3566  3 *,756  l 

3 3,  3567  5 2 756  0 

33,3570  C 0006  1 
3 3,  3 5 7 1 3 6 755  1 

• 

33,3573  C 0GO6  1 
3 3,  3576  3 6755  1 

S3  * r' 


33,3576 
33, 3677 

. 

3 3,  36C  l 


3 6766  0 
56  OCl  1 
6 0000  0 
52  760  1 


ERVIOLE  EXTEND 

Of.  A -YCLFAOR 

OX  CH  AVGEX1T 

CS  FLAGWRD7 

MASK  IDLEFBIT 

AOS  FLAGWRD7 


CA  FLAGHR06 

MASK  MUNFLBIT 

CCS  A 

TCF  ♦ 6 

EXTEND 

DC  A NEGO 

DXCH  - PHA  SE 2 


OXCH 

CAF 


-PHASF6 

0CT33 


33,3602  1 5665  1 


DXCH  -PHASE6 
TCF  WHIMPER 


9:  12  OCT.  21  ,1970  Z FLY 


.069  PAGE  87 


USER'S  PAGE  NO.  25  67  S3 


DISCONNECT  SERVICER  FROM  AIL  GUIDANCE 


DISCONNECT  THE  DEL  TA-V  MON  IT3* 


TERMINATE  Rl2  IF  RUNNING. 


CO  NOT  TURN  OFF  PHASE  2 IF  MUNFL  AG  SET. 


6.3  3SP0T  FOR  GOPUOFIX 


PERFORM  A SOFTWARE  RESTART  AND  PROCEED 
TO  GOTDPOOH  WHIlfc  SERVICE?  CONTINUES  TO 
RUN,  ALBEIT  IN  A GRCUNC  STATE  WHERE 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L SERVICER 


9:12  OCT.  21,1970  7 Fl Y .049  PAGE  875 

USER'  S PAGE  NC.  26  E7  S3 

ONI  Y STATE-VECTOR  OE P ENOEN T F UNC T I ON S 
ARE  MAINTAINED. 


i 1 r ! s R *«*#**»t»»r**lM.***t*t  ****«:$**  fts  *««46*****  Sf  * 4*t 

•M  ■ MISCELLANEOUS  (lFE-LINE  LANDING  RADAR  TASKS  AND  JOBS 

R1  Of>1  ***'*****•****  * + *****  t-***  4*  1*4m*>*«  + *#4**t‘**a*'***  + **********«***  + ****  *«*********************  + ***  4**  ********** 


l 1<  63  ********■*******<*****«.*******«:*** 

R1364  FFAIL  AND  VFAIL 

R 1 0 6 5 a************  **  *****.$***<.<«** 


R 1066 


FNTFR  FIFA  I L FROM  RAIN-LINE  SERVICER  IF  ALTITUDE  REASONABLENESS  TEST  IS  FAILED. 


1068  REF  60 

1069  RFF  2 

13  7;.  REF  3 

l!  7' 

107?  REF  1 

1073  RFF  A 

1074  REF  2 

1075 

1076 

1077  REF  2 


LAST 
LA  S I 
l AST 


l AST 
l AST 


l AST 


873 

°63 

775 


B fc  3 
568 


875 


33,  360  3 G ”15  C HFA IL 
33,3604  00247  o 

33,  36C5  4 1674  1 

33.3606  C 0006  1 

33.3607  1 3617  0 

33,  36  10  6 1673  1 

33,3611  7 7757  I 

3 1,3612  C C0C6  1 
33,  3613  1 3615  1 

33  ,3614  l 3617  0 


TC  UPF  l AG 

ADPES  HFAILFLG 
CS  LRRCTR 

EXTEND 

BZF  NORLITE 
AO  LRLCTR 

MASK  NFG3 

EXTEND 
3 7 F * 2 

TCF  NORLITF 


SFT  HFAIL  FLAG  FCR  COWNLINK 

IF  R = 0,  DO  NOT  TURN  ON  TRK  FAIL 

IF  L-R  LT  4,  DO  MOT  TURN  ON  TRK  FAIL 


PEF  61  LAST  875 
REF  2 LAST  963 


33. 3615  C 5515  0 

33.3616  0 J 263  0 


TC  UPFLAG  AND  SET  RIT  TO  TURN  ON  TRACKER  FAIL  LITE 

ADRES  HFLSHFLG 


1080 

3ft 


1 A ST  675 
l AS  T 


3 1673 
5 5 ' 6 74 


1 

1 


NfRLITE  CA 
TS 


LRLCTR 
I RRC  TR 


SET  R 


left;  RFF 


5 LAST  964 


33,3621  1 3024  C. 


TCF  VMEASCHK 


R 1 TB3 


ENTER  VFAIL  FROM  MAIN-LINE  SERVICER  IF  VFLCCITY  RFASCNABLFNESS  TEST  IS  FAILED. 


1095  RFF 
IP  R6  RFF 
1397  PEF 
1088 

l'-flP  RFF 

1 090  REF 

1091  REF 

139? 

1 093 

10^4  REF 


2 


LAST  875 
I AST  A65 
l AST  775 


LAST  B65 
LAST  875 


I AST  975 


33,36??  0 5515  0 

1 . 

33,  3624  4 1670  0 

13  ,3625  0 0006  1 

33.3626  1 3636  C 

33,  3627  fc  16  75  1 
33,3630  7 7757  1 

33,  3631  C 0CC6  1 
33,3632  1 3634  1 

33 ,1633  1 3636  0 


VFAIL 


TO  UPFLAG 

AORES  V F A IL  FL  C 

C S L R SC  TR 

EXTEND 

B7F  NOLITE 

AD  LRMCTR 

MASK  NEG3 

EXTENO 
B7F  * 2 

TCF  NOLITE 


1395 

1096 


PEF  63  LAST 
RFF  2 IASI 


875  33,  3634  C 5515  0 

865  3 1 , 3 635  00262  1 


CTf  UPFLAG  \ 

ADRES  VFLSHfLGl 


1097  RFF  5 LAST 


NCLITF  CA 


SFT  VFAIL  FLAG  FOP  DOWNLINK 


IF  S = 0,  DO  NUT  TURN  CN  TRACKER  FAIL 
W-S 

TEST  FDR  M-s  > 3 

IF  M-S  > 3,  THFN  TWO  OR  MORE  OF  THE 
LAST  FOUR  V READINGS  WERE  BAD, 

SO  TURN  ON  VFLOCITY  FAIL  LIGHT 

AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 


875 


33,3636 


1675  1 


LRRCTR 


SET  S 


GAP:  ASSEM81  E -f  VI  SI  ON  Sb  OF 


CGRAM  ZERLINA  BY  ZCROASTER 


9:  12  OCT  . 21.  1N70  ZFL  Y 


0*9  PAGE  676 


L SERVICFP 


USER'S  PAGE  NC.  27  E7  S3 


1098  PFF 


LAST  876  33.3637  55*676  0 


TS  LRSCTR 


1 


REF  ](  LAST  666  ? 2.  34*0  11 '*62  l 

PFF  2 LAST  B66  31,  ISM  1 3201  0 


CCS  VSELECT  TEST  FOR  Z COMPONENT 

TCF  c NO  VO  A T NOT  Z,  00  NOT  SFT  VX  INHIBIT 


1 1°  1 

ir.7 

1103 


Bf  F ft*  LAST  *75 
REF  2 L AST  866 
PFF  3 |AST  876 


33,36*2  0 5516  0 

3 3,  36*1  C )2C^  0 
33  ,36**  l 320  1 0 


TC  JPFLAG 

ADRES  VXINH 
TCF  ENOVOAT 


7 COMPONENT  - SET  d AG  TO  SKI«>  X 
COMPONENT,  AS  ERROR  MAY  BF  DUE  TO  CROSS 
LOBE  LOCK  UP  NCT  OETECTEO  ON  X AXIS 


R 11  * 
R1105 
3 1 1 06 


Ril  7 HIOATASS  IS  6NTERE0  APPR  0 XI  M A TC- I Y 6 SECONOS  REFORF  H I G A TF  IN  TH  F DESCENT  PHASF.  F I C AT  ASK  SFTS  THE 

Ml  > HIGATL  FLAG  (SIT11)  •'  NC  IFF  NC  L“  REAL'  FLAG  C 0 IT  1 ) OF  L R S I A T AL  I A S F LAG  WORD  11.  TSF  H1GATJCB  IS  SET  UP  TO 

-Hill  REPOSITION  THF  I-'  ANTENNA  FRC*  POSIT!  CN  l TO  POSITION  2.  IF  TFE  REPOSITIONING  IS  SUCESSFUL  THF  ALT  BF  AM  AND 

U13  VELOCITY  BEAMS  ARF  TRANSFORMED  TH  THE  NEW  ORIENTATION  IN  MB  COORDINATES  AND  STORED  IN  ERASABLE.  THIS 

3 1115  TRANSFORMATION  IS  FFPFCRMFr  AT  SFTPOS?. 


Ill6, 


REF 

REF 

REF 


28  I A ST  8 7* 
*1  LAST  73  1 
2R  LAST  P76 


33, 36*5  * C 1 C 7 0 

3 5,3  6*6  7 5C  15  1 

33,36*7  26  107  0 


II  GA  TA  SK 


C S 

MASK 

ACS 


F LGWRD11 
PRI03 

FLGWRC1 1 


SET  PSTHIGAT  AND  NOLRR  FAD  FI  AGS 


1117  PFF  ? LAST  27* 
1120  RFF  6 LAST  867 


. 

33  ,3651  1 3222  1 


CCS  PHASFl  AVOIO  MULTI  DL  F HIGATJOPS 

TCF  CONTSER  V 


KEF  72  LAST  872 


33,3652  C S36A  C 
- c 1 


TC  PHASCHNG  1.5SP0T  FOR  HI  GAT  JOB 

3:  T 51 


117* 

1125 

1126 
1126 


PFF  1 

RFF  36  LAST  86 1 
RFF  6 LAST  861 
REF  1 
PFF  1 


E7  ,165* 
13  ,3656 
33,  3667 


CA  PP  1032 

TC  F I ND  VAC  COULD  IT  BE  NOVAC  NCW  THAT  S FT  PDS  2 3UT 

E BAN<  = HMEAS 
2 C ADR  H I GAT  J 08 


1127  PFF 


7 LAST  B76  33  ,3660  1 372?  1 


TCF  CONTSFPV 


11  28  ********  ***************  ********* 
81129  PCS  I NDEX 

3 1130  ******************************** 


• 113  1 THIS  ROUT  INF  SETS  xl  ACCORDING  TO  CUPPENT  ANTENNA  POSITION  AS  INDICATFO  BY  LPPOS.  IT  Al  S 0 ZFROES  X2 

R 1 1 33  AND  THF  PUSHDOWN  POINTER.  IT  IS  CALLEC  PY  POSUPOAT  AND  VELIJPDAT. 


ms 
1136 
l 1 37 
113r 
1130 


REF 

RFF 

REF 

RFF 

RFF 

REF 


LA  ST 
LAST 
LAST 
LAST 
LAST 
LAST 


87  3 
86  8 


3 >,  3662 
13,3663 
33,  366A 

13.3665 

13.3666 


3 6753  1 
7 1650  l 

10  000  0 
A A 763  0 


PCSINDEX  CA 


MASK 

CCS 

CS 


r ixlcc 
P USHI  nr 
B IT  1 
LRPOS 


ZERO  PJSHDOWN  POINTER 

NOTE:  LRPOS  = 1 FOR  POS  2 AND  VICE  VERSA 
POS  2:  INDEX  = 


OCT  30 


- 2 AD 


TAP:  ASSEMBLE  REVISION  56  CF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 

SERVICER 


9:  12  OCT.  21,1970  ZFLY  .049  PAGE  877 
JSER'S  PAGE  NO.  28  E7  S3 


114 

1 141 

1142 

1143 


RFF  41  LAST  B76 
REF  24  LAST  865 
RFF  2C8  LAST  845 


33,3667  22  007  0 

33,3670  50  120  1 

33,  3f>7  1 52  C 4 7 0 

33,3672  0 00C2  0 


ZL 

INDEX  FIXLOC 
DXCH  Xl 
TC  0 


POS  l:  INDEX  = C;  X2  =0  FOP  BOTH 
SET  Xl  ANO  X2 


R 1 144  * «*«**»:»**  *******  *************** 

R114S  h I GAT  JO  P 

3 1146  ******************************** 


1114  7 HIGATJOR  IS  SET  UP  WHEN  BOTH  THE  TI  MC  ANO  ANGLE  CRITERIA  FOR  ANTENNA  REPOSITIONING  AR  F MET.  THIS  JOB 

1 1*49  INITIATES  TH  LANDING  AFAR  ANTENNA  REPOSITIONING  ROUTINE.  DURING  THE  REPOSITIONING  R12  IS  INHIHIT£D  BY  T HE 

*1151  NOLRREAO  FLAG,  WHICH  IS  SF  T PY  HIGATASK  OR  IN  CASE  OF  A RESTART  POSSIBLY  BY  REREPOS.  UPON  COMPLETION  OF 

R1154  REPOSITIONING,  WHETHER  SUCESSFUL  OR  NOT,  NOIRREAO  FLAG  IS  CLEARED  ANO  Rl 


1155  REF 
1 1 56 

1157  RFF 

1158  RFF 


7 LAST  863 


3 7 ,2000 
17,  355 
57,  1777 


SETLOC  SEKV2 
BANK 

FBANK=  EN0-F7 
COUNT  * ft/SFRV 


1 1 6( 

1 161 
116? 


REF  3f  LAST  876 
REF  1?  LAST  876 
REF  31  LAST  877 


17,  3550 
37  ,3551 
37,355? 
37, 3553 


f CCC4  0 RFRFPOS  I NHI  NT 

4 0107  0 CS  FLGWROLl 

7 5014  1 MASK  PR  103 

26  1C7  0 AOS  FLGWRDll 


ON  RESTART,  SET  FLAGS  AGAIN 


1163 
1 164 
1 1 64 
1 166 


RFF  247 
REF  ? 
REF  248 

RFF  12 


LAST 

LAST 

LAST 

LAST 


87  3 
574 
877 
583 


37  ,3554  0 4616  1 

3 7,  3 555  5 3 516  C 

37. 3556  C 4616  1 

37.3557  17713  1 


HIGATJOB 


TC 

CADR 

TC 

CADR 


BANKCALL 
LRP0S2 
3 A NKC  ALL 
R ACS  I ALL 


INITIATE  REPOSITIONING  ROUTI  NF 
DELAY  UNTIL  FINISHED 


1157 
1168 
1 16Q 


RFF  R6  LAST  871 
RFF  5 LAST  P76 


3 7,  3560  1 356  1 1 

37.3561  3 4753  1 

37.3562  5 5 • fc  5 C 1 


TCF  *1 

CA  ONE 

TS  LRPOS 


IF  UNSUCCESSFUL,  Rl2  WILL  HANDLE  THINGS 
INOICATF  POS  2 IS  EXPECTED 


1170  REF  90  LAST 

1171  RFF  1 


37,  3 Sf.  3 0 r ‘ 2 7 1 

37  ,3  564  0 02  5?  1 


TC  OOWNFLAG  RE-ENABLE  R12. 

ADRES  NOLRREAO 


REF  73  LAST  876 
RTF  129  lAST  826 


1 7,  3565  C c 3t4  0 

37.3566  COCCI  0 

37.3567  0 5155  > 


TC  PHASCHNG  CLEAR  RESTART  PROTECTION 

OCT  1 

TC  FNDOFJUP 


Rl  1 75  *****»*******:■**  *•«*♦*«** 

R 1 1 76  RDGI  MS 

R 1177  ******************** 


LAND1  NG 
REF  6 


PDG I WS  IS  SET  UP  TO  SNATCH  THE  P IPAS  ANO  COLS  AT  THE  MIDPOINT  OF  THE  COMBINCO  AL  T I TUDE  ANO  VELOCIIY 

’ . 

LAST  860  E 4,  164  3 E B ANK=  LRTI ME 


118? 


37,3575  0 0006  1 ROGIMS  EXTEND 


GAP:  ASSEMBLE  REVISION  56  OF  AuC  PROGRAM  ZERL  ISA  BV  ZUROASTc' 


R F F ?P  LAST  85  2 


UBS 

UBS 

lift? 


17,3511 

37,  7576 
37  ,3575 


C CCC6  1 

• 0033  1 
53' 6*6  0 


FX  T END 

DC  A :n  LX 

nxf.H  i«xcnu 


1107 

1103 

110', 


37  ,360? 
3 7 ,36C3 

37,  3 60* 


C 0006  1 

2 00*1  1 
5 : • 6 5 2 r 


EXT  END 

OCA  PIPAY 
D XC  H I>  I P TF  M 


inf 
!3l  1 OP 

3 1100 


PFF  57  LAST  R5  1 


GRAVITY  CALCULATION 


, 


REF  50  I AST  87?  F7,  15  13 


EP ANK=  DVCNTP 


3 12-  2 *'.**********************4‘**«'**** 

R 122  3 CALCGPAV 

ft  12c*  *«****•*#****.***»*************** 


12^5 
1206 
1207 
120  8 
1 2 CO 
121  < 
121  1 
1212 
1213 
121* 

1215 

1216 

1217 

1218 
1210 
122c 


1221 

122? 
122  3 


12?* 

1225 


REF  32  1 AST  870 

P.EF  15  LAST  76  5 
REF  25  LAST  877 

REF  1 

RFF  o LAST  832 
REF  33  LAST  870 

RFF  1 
REF  1 


REF  1 


RFF  3* 


878 


37,7606 
37,  3607 

. 

27,?tll 
37,  36  12 
17,761  3 
3 7,  36  1* 

37.3615 

37.3616 
3 7,  36  17 

37,3621 
37,  36  2 2 
37 ,3623 
37,  362* 
17,  3ft25 
, 

37,  3627 

37,  36  In 
37,3631 
3 7,  36  2? 


*1*56  0 
0 35  35  1 
673*0  1 
C2777  1 
0 0 L * 7 1 
776*0  0 
776*3  0 
50375  0 
06512  1 
03535  1 
*155?  0 
**316  0 
27753  0 
563?5  0 
26C2*  C 
00C*3  0 
000*1  1 
* 1 2 C 5 n 
26026  1 
65361  0 
03535  1 


CALCGRAV  UNIT  PUSH 

STORE  UNIT/R/ 
LXC.l  SLOAD 
PTX2 

XI 

BMN 

CALCGPVl 
VLOAD  DOT 

J N IT  Z 
UNI T/P/ 
SL1  °USH 
DSQ  BDSIJ 

3 P 1 /20 
POOL  DOV 
RE  S C 
3*D 

STORE  32  D 
DPP  DMP 
20  J 

VXSC  POOL 

UNI T/R/ 


1 AST 


9:12  CCT.  21,1970 


.0*9 


PAGE  87b 


ZFIY 

USER  *S  RAGE  NO.  29 


E*  S3 


********************************************** 

**»«««*#»« ************* *********************** 


SAVE  UNIT/R/  IN  PlISHLIST  (18) 

RTX2  = 0 IF  EARTH  CRRIT,  =2  IF  LUNAR. 


(12  ) 

(1*1 


(RN) SQ 

TEMP  FOR  I R F /®  N ) SO 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


9:  12  OCT  . 21, 


970  7FLY 


>0  49 


PAGE  879 


L SERVICER 


USER'S  PAGE  NC.  30 


E7  S3 


1226 
1227 
1 22  p 


122° 

1230 

1231 

1232 
12  33 

1234 

1235 
1234 
1237 
1239 
1239 
124i 

1241 

1242 


RFF  1 

PEF  10  LAST  878 
RFF  2 LAST  766 

PEF  14  LAST  763 
REF  1 

REF  4 I AST  8 69 


37. 36 34 

37.3635 

37.3636 
17,  36  17 
37  ,3640 
37,3641 

37,  3642 
37  ,3643 
37 , 1644 
37, 3646 
37,3646 
37,  3647 
37  ,3650 

37.3651 

37. 3652 
37  ,3663 


41205  0 
26C30  0 
00041  1 
76661  1 
06512  1 
45455  1 
74260  0 
41455  0 
60345  0 
CCC43  0 
COO 50  l 
53663  1 
26C20  1 
56615  0 
45  561  l 
74il6  1 
77616  0 


DMP 


VXSC 


CALCGRV1 


V AO 
STORE 
VAO 
DLOAD 


80DV  * 


VXSC 

STORE 

RVQ 


DMP 

2 J 
32D 
VS  LI 
UNI  TZ 
ST  ADR 

UN  IT  GOBI 
PUSH 
NORM 
34  D 
X2 

SLR* 

-MUEARTH.1 
0 - 15D, 2 
STADR 

3 1 


MPAC  CONTAINS  UNIT  GRAVITY  VECTOR 
PERFORM  A NORMALIZATION  ON  RMAGSO  IN 
ORDFR  TO  BE  ABLE  TO  SCALE  THE  MU  FOR 
MAXIMUM.  PRECISION. 


ACCELERATION  IN  UNITS  OF  2 (-6  ) M7CS/CS 


Rl  243  ******************************** 

R 1 2 44  PUNGRAV 

3 1245  ******************************** 


1246  RFF 

1247 

I24R  REF 
1249  REF 


3 LAST  650  34,  2000 

34  ,3743 

7 LAST  861  1235 

3 LAST  BSD  TO  851: 


50 


98* 


SETLOC  SERVl 
BANK 

E 0 ANK=  G 
Cllim*  Tt/SERV 


1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 


PEF 


PEF 


1 


6 LAST  879 


34,3743  77656  l 

> 4,  3744  14C35  1 

34,  374  5 f'OC  43  0 

34,3746  55261  1 

34*  3747 

34  ,3  750  260  22  0 

34,1751  7776  1 1 

*4,  3752  00035  1 

34,3753  03561  0 

34,  3754  77616  0 


MUNGRAV  UNIT 

STOOL  28  D 
340 

SL  BODV 

5 

-MUMOON 

VXSC 

2 80 

STORE  G1 
R VO 


ACCELERATION  IN  UNITS  OF  2(-6>  M/CS/CS 


R 1 260  ******************************<  4* ********* *********************************************************** *********** 

1126’’  SEP  VICE  R SLBRnuTINES  (PIPASR  APPEARS  SEPARATELY! 

R 1 261  ************* d «**»****»«**««** * ************** *•«*****««*«**«** **«***********««*«»**«******«***«*** ************** 


’ 1265  ******************************** 

R 1 266  P IP  SR  IN E 

Rl 267  ***************** 4<*44***»****** 


I f .i  • I FA  i IS  r : -I  I . | : THE  I 

IT  RESTART  PROTECTED  P^CIUSf  °5  7 ONLY  CARES  ABOUT  DIRECTION,  NCT  M AGN  ITU  OF,  OF  OELV  • 


1272  34,3755  C 0004  0 PIPAREAO  INHINT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFKLINA  RV  ZOROASTe* 

L SERVICER 


9:1?  CCT • 21,1970  ZFLV 

USER • S PAGE  NO.  31 


.049  PAGE 
E ? S3 


880 


1274  PFF 
127  5 

1276  PEF 

1277  REF 

1278  PFF 

1279 

12R0  RFF 
1 28 1 REF 
12h?  RFF 
1293 

1284  RFF 

1285 

12R6  REF 


172 

15 

K 
1 73 
9 

6 

174 

7 

5 

2C9 


l AST  867 
LAST  878 

l AST 
I AST 
I A ST 

IAST  853 
LAST  880 
LAST  85  3 

LAST  853 

LAST  877 


14, 3757 
34,3760 
34,  376  1 
34  ,3762 
14 ,3763 
34,  3764 
34  ,3765 
34,  3766 
34,  3767 
34 ,3  770 
’4,  377  1 
34 ,377? 
34,3  773 


4 4755  C 
56  L 37  0 
22  U07  0 
e2  ? 2 5 1 
4 4755  0 
56  040  0 
22  CC7  O 
52  327  0 
4 4755  C 
56  041  1 
2?  007  0 
'2  331  1 
0 00C3  1 
C 0Q02  0 


853 

RRO 

87P 


CS  ZERC 

XCH  PIPAX 

7L 

OXCH  OfcLVX 

CS  Z FRO 

XCH  PI  PAY 

ZL 

DXCH  DELVV 

CS  ZEKC 

XCH  PIPAZ 

ZL 

OXCH  DFLV7 

RFL  INT 
TC  0 


P12P7  *****.****♦•***♦**♦**•*■»»«*«#<•** 

3 1248  SFRVCHNC- 

R123  9 *♦**••••*•*•*•***•*•**•<*•«****«*** 


R1200  SERVCHNG  REPLACES  TEE  2CACR  AT  PHSNAME5  X I TH  THF  2CA0R  OF  THF  LOCATION  SPECIFIED  BY  Q AND  THE  CURRENT 

<129?  BBANK.  THE  OTHER  GROUP  5 I NFCRVATI  ON  IS  NOT  TOUCHED.  SERVCHNG  SHUULD  BE  USED  WHENEVER  POSSIBLfc  BY  ROUTINES 
R1294  PUNNING  AS  PART  OF  TEE  SERVICER  JOB. 


1295  PFF 

1296 

1297  REF 

1298  REF 


6 l AST  854 
1 


5000 
6042 
E 3,  1446 


SFTtne  FFSFRV 
BANK 

E B A N K = PH  SNA  ME  5 
COUNT  * JS/SERV 


1299 
13  00 
1 3<  l 
137? 
1303 
1 304 

1 3 05 


P E F 27 
REF  3n 
PFE  14P 
REF  7 


LAST  823 
I AST  838 
LAST  P74 
LAST  880 


PEF  P LAST  880 
REF  22  LAST  87  3 


6C42  3 6257  1 

6043  56  006  1 

6C44  5?  002  1 

6045  c : *447  0 
50.46  0 0006  L 

6047  2 1447  l 

6050  52  006  0 


SERVCHNG  CAF 
XCH 
DXCH 
DXCH 
EXTEND 
DC  A 
OXCH 


TH  PE  F 
9RANK 
L 

PH  SNAME5 
PHSMPE5 


FRANK  3,  EBANK  3 
A — > L , 0 — > A 

PICK  UP  RETURN  ADDRESS  WHERE  IT  SURVIVES 
RETURN 


1 337 

1308 

1309 


REF 

PEF 

PFF 


5 LAST  P51  33,2000 

33,  3673 

51  LAST  878  E7.1513 

5 LAST  851  TO  877  : 


524 


94  9 4 


S FT  LOC  S ERV  ICES 
BANK 

EBANK=  DVCNTR 
COUNT#  tt/SFPV 


R1311  CfPYfYC 

R 13  1 2 *****<***«<#*********#**##***##<«*# 


1313  REF  1 

1314 

1315  RFF  4 

1316  REF  3C 

1317 


33,  367  i 
33  ,3674 
33,  3675 
33,  3676 
33 ,3677 


2 37fc3  0 CC1PYCYC 
0 G0U4  0 +t 
7 7761  1 ♦? 

54  Cfcl  1 
C 0006  1 


CAF  TWNTYTWC 

IN  HINT 
MASK  NEG1 
TS  ITEMPl 

EXT  END 


I AST 
L AST 


338 

737 


REDUCE  BY  1 IF  ODD 


PAGE 


iA3:  ASSEMBLE  REVISION  5o  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L SERVICFR 


9:  12  0:i.  21,1970  ZFLY  . 049 

USFK'S  PAGF  NO.  32  E7  S3 


131fl  REF  31 

1319  RFF  R 

1323  REF  3? 

1321  REF  15 

132?  REF  33 

1323  RFF  3 

1324  RfF  ?10 


LAST  890  33 

LAST  869  33 

I AST  8R1  33 

LAST  856  33 

LAST  RBI  33 

LAST  87  n 33 

LAST  880  33 


,3700  5 0061  0 

,3701  3 1543  1 

, 370  2 50  C(1  0 

,3703  5 3 ' 220  1 

,3704  1C  C 6 1 1 
, 3705  1 3675  1 

,3  706  C 0002  0 


INDEX  ITFMP1 
DC  A RN1 
INDEX  I TEMPI 
DXCH  RN 
CCS  ITENP1 
TCF  CDPYCYC  +? 

TC  3 RETURN  UNDER  INHINT 


R 1325  ^^tHMM,,#^#**^****^,^*** 

U 1 3?5  TMFTCSPT 

? 1327  ******************************** 


1328 

132‘> 

1333 
1.3  31 
133? 
1333 
1 334 


REF 

RTF 

RFF 

RFF 

RFF 


L AS! 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 


13, 3707 
33  ,3713 
33, 3711 
33,  ->712 


33,3713 
33,  3714 
33  ,3715 


3 1155  1 
54  765  1 
3 1156  1 
54  767  0 
3 1154  0 
5 4 771  1 
0 0002  0 


TMPT3  SP  T 


CA 

TS 

CA 

TS 

CA 

TS 

TC 


: 3 UTE  Ml*  Y 
CDUSPOTY 
CDUTFMPZ 
COUSPOTZ 
rrXJT  FMPX 
CDUSPCTX 
0 


THIS  SUB  ROUT  INF  LCACS  THF  CCUS 

CORRE  SPUNDI NG  TO  PIPT1ME1  INTO  THE 
CI3JSP0T  VECTOP.  TMPTHSP  T CAN  BE 
CALLED  FROM  INTERPRETIVE  WITH  AN  RIB. 


R 1335  *******••♦*♦•***#*♦*****«*#♦***« 

R1336  P I °NORM 

3 1337  *******•#*«.»•«**•<.*********•**** 


1339  PIPNORM,  WHICH  CORRECTS  THF  PJPA  DIFFERENCE  FOR  POSSIBLE  PI  PA  OVERFLOW,  IS  SEPARATE  FROM  PIPASR  TO 

MAKI  IT  AV  A I I ABLE  TO  ROUTINES  WHICH  READ  THE  P IPAS  ASYNCHRONOUSLY,  SUCH  AS  R1C  AND  THE  R.  C.  D.  ECUATIfJN. 


1 134? 

R1343 

3 1345 
R 1 347 


FUNCTIONAL  DESCRIPTION  CF  PIPNCRP:- 

INPUT:  IN  A - DIFFERENCE  BETWEEN  CURRENT  AND  PREVIOUS  PI  PA  READING 

OUTPUTS:  IN  A - INPUT  CORRECTED  FOR  POSSIBLE  P IPA  OVERFLOW  etTWEEN  READINGS 

IN  L - ZERO 


P.1  348 
R 1 35.i 


ASSUMPTIONS:  THAT  A TELV  OF  NO  MORF  THAN  81.91  M/S  WAS  ACC  1IMIILA  TFT  8FTKFFN  THF  PI  PA  READINGS 

THAT  PIFNCRM  IS  CALLED  IN  INTERRJPT  OR  UNOER  INHINT 


1352 

1353 
\ 354 
’ 39S 


1356 

1357 
1 358 


l 359 
1 360 
1361 
136? 
1363 


REF  34  l AST 
PFF  35  LAST 
RFF  58  LAST 


REF  36  LAST 
RFF  4 LAST 
RFF  5 LAST 

RFF  37  LAST 
REF  17  LAST 
REF  18  LAST 


88  1 33,37  16  5i 

««1  33  ,3717  3 

nn  8 33,3720  7 

3 3,  3721  C 

33  ,3722  1 

9R1  33,  3723  3 

853  33,  37/4  6 

881  33,3725  6 

33,  3726  1 

991  33  ,3727  3 

860  33,3730  6 

88  1 33,  3/31  fc 


5 Ctl  0 PIPNORM 
0061  0 
4736  C 
0006  1 
372  7 1 
OCtl  0 
4 734  0 
4734  0 

3732  0 

C061  C *5 
4736  1 
473*  1 


XCH  I TEMPI 

CA  ITFMP1 

MASK  BIT14 

F X TEND 
07  F +5 

CA  I TEMPI 

AD  NEG  1/2 

AC  NEG  1/  2 

TCT  ♦ 4 

CA  I TEMPI 

AD  HALF 

AD  HALF 


TC  CLEAR  POSSIBLE  OVERFLOW 


POS  > 8191  OR  NEG  > -B 19 2 


PCS  < 8 192  OP  NEC,  < -8191 


GAP:  ASSEM0LF  REVISION  56  OF  AGC  PROGRAM  ZERLiNA  B' 


ZOROASTER 


9:12  f»r.T.  21,1970  ZFiv 


><•9  PAGE  882 


REF  149 
REF  150 
PEE  212 


LAST 

LAST  882 
LAST  881 


001  0 

33.3734  56  OCl  L 

33,  3735  C OCC?  0 


USE R * S PAGE  NC.  33 

CLEAR  PROBABLE  CVFRFLOH 


Rllftp 

*137 

R1371 

1373 
13  74 
13  7'. 


+#***•* *****4*««**********«********  ******  ♦*******«*e**«****»ft**«**«’*****»«****»****«6: 

S (EXCEPT  THESE  I A THE  CC  NT  ROLLED  CONSTANTS  SECTION) 

«*«*««  «*<***********  ************  **»*****<:****$»*********•**************:*****<«  ft** 

n <=7,1513  EBAN<=  DVCNTR 

2 7’,  .37  36  C21C?  0 CYCL6A0R  2CA0R  PIPCYCLE 

3 J,  .37  37  66 Of  7 0 


I 375 
13  7ft 
1376 


REF  53 
REF  1 
REF  1 


LAST  882  E7.1513 


E8ANK=  OVXNTR 
3 3,  3 7 AC  C3517  1 AVOUTCAO  2CADR  AVGFND 
1 3,  37 A 1 66C67  0 


REF  1 

REF  Q 


1379  RFF 


1380  REF 


33,3  74?  02217  1 GET  A A ADR  AORES  GETABVAL 

LAST  868  33,  3743  p213ft  1 XNBPIPAO  F C ADR  XNBPIP 

LAST  865  33,3744  02221  1 XNRRADAD  ECAOR  XNBPAD 

I AST  P65  50CO  PCHN  = 2S ECS 


33,3745  00764  1 PGM AX  DEC  500 


Jiff 


”,3  746  C C C 1 4 1 2 SEC  ( 1 8 ) 2 DEC  ?(  0 B-18 

37,  3747  *0000  D 


33,  3754  ’7767  C 1-  3CKF  T 2UEC  16768072  8-24  n PPOS MAX -33  KFT 

33  ,3755  02200  l 


JAP: 


ASSEKRLf  REVISION  56  OF  AGC  PROGRAM  ZERt  IMA  BY  ZOROASTER 


9:  12  03  T.  21 .1970  ZFLY 


349  PAGE  883 


. 0064 


USER'S  PAGE  NO.  34  E 7 S3 

SCALFS  PRIAS  TC  UNITS  OF  2 (-9  ) M/CS/CS 


1387  REF  6 LAST  455 

1 3rr 

138° 

1393  REF  1 

1391 

139? 


4361  CCT21  = N01 

33,  3760  00523  0 DCT523  OCT  OC523 

33,3761  00110  1 BITS4-7  OCT  110 

4776  BITS6+7  = SUPERlIC 

33,376?  00102  1 66  CEC  DEC  66 

33,  3763  C0C26  0 TWNTYTWO  DEC  22 


Rl  3 94  *■>*?  «4»*(:**t***»»*(it#***s**t»#*»t9*(*:**t»4»(«i»**tt*t##st«**4*t<!**  **  9S*«* 

<1396  OUARTASK  (Also  KNOWN  AS  MC.Rll)  AN  AUX  ILL  I ARY  OF  SERVICER  WHICH  RUMS  EVERY  QUARTER  OF  A SECOND 


1 4 O' 
140  1 
1 43? 
1403 


REF 

REF 

PEF 


LAST 
L AST 


827 
87  7 


21,2000 
21  ,2055 
E 7,  1777 


SETLOC  R 11 
BANK 

F BANK=  CND-E7 

COUNT  * 1 t/R  l l 


1406  REF  2 l AST 


21,2055 


R 1 0 , R1  1 


QUART  ASK 


1405  REF  24  LAST  874 

14C6  PEF  7 LAST  P54 

140  7 

1408  RFF  58  LAST  878 


21,  2055 
n ,?o5<. 
2 1,  20  6 7 

it,  206 


2 010  3 0 
7 47*7  0 
C 00C6  1 
l 5272  1 


QUAR  TA  SK 


CA 

MASK 
E X TE  NO 
BZF 


cLAr>WRD7 
AV  EGFBIT 

TA  SKOVFR 


IS  SERVICER  ST  I LI  RUNNING? 


NO:  RUT  L FT  AVGEND  KM  L GROUP  2 


1409 

141 

1411 


ref  5 last  esi 

RFF  23  LAST  844 
RFF  3 LAST  883 


21  ,?961 
2 1 , 2.  6 2 
21  ,2"fv3 


3 6010 
0 5 204 
0 2055 


0 

1 

0 


CAF  0CT31  YES:  SET  UP  NEXT  OUARTASK 

TC  TWIDDLE 

AORES  OUARTASK 


R141?  FLASH  I ANOINC  RAOAR  LIGHTS 


',AP:  ASSEMBLE  REVISIONS©  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


1 4l5 
l*lft 
1417 
1 4 I 8 


14  10 

H2r 

1471 


m 

14  74 

1 4 7 ft 


1476 

!4?7 

K29 


1 1479 
R143' 
R 1 4 3 1 


14  3? 
1 433 

1434 

1435 


1 4 3ft 
1437 
1 438 
H30 


1440 
1 4<.l 
144? 
1447 
1 444 
144  5 
1446 


1447 

1448 

1 447 

1450 


1451 
145? 
1453 
14  54 


SERV  ICFP 


PfF  32 
PFF  3 

PFF  1 


l AST  877  21,2064  3 0107  1 

I A c t 610  21 ,7  065  7 4753  0 

21,2266  C CC06  1 

21  ,27 67  1 ?C  73  0 


FI  A SHH? 


CA  FLGWP0  1I 

MASK  HFLSHB1T 
F XTENO 

BZF  FLASHV? 


PFF  ? (AST  61  o 
PFF  151  l AST  98  2 
PFF  1 


71,2070  ? 4747  1 

h p 5 4 0 0 1 1 

21  ,7  772  C 4606  0 


CA  HI  1TE 

TS  I 

TC  FI  IP 


REF  33  1 AST 

RFF  1 

PFF  1 


88  4 


21,2:73 

?1  ,?C  75 

21, 2T76 


->  C 1 07  1 
7 4752  1 
0 0006  1 
1 ?1C2  1 


F LASH  V? 


CA  FLGWRD11 

UASK  VFL  SHBI  T 

EXTEND 
BZF  10,11 


REF  2 I AST  610 
PFF  1 52  I A ST  P04 
PEF  2 ( AST  984 


21  *?  J 7 / 3 4751  0 

?1  ,2100  54  001  1 

21,  2 In  1 0 4606  0 


CA  VL  ITE 

TS  l 

TC  FLIP 


PC  F 
RFF 

PFF 


1 A S T 841  21,2102  3 0105  0 10,11 

I AST  82?  21,  2 If  3 7 4743  1 

21  ,2104  0 0006  1 

21,2105  1 2131  1 


CA  FLAGWRC9 

MASK  1 F TAB  R l T 

EXTEND 

BZF  VV  COMP 


PEF  Ifc  1 AST  867 
PEF  1 

RFF  2 LAST  884 


21,2106  4 10  10  0 P 7 iNDW? 

71  ,2in7  6 2034  1 

21,2110  C C006  1 
2 1,2111  1 7131  1 


CS  MODREG 

AD  l DEC  7 1 

FXTFND 

BZF  VVCOMP 


RFF  9 

RFF  153 
RFF  32 
RFF  2 52 
PEF  2 


LAST  913 

LAST  894 
LAST  828 
I A ST  876 
LAST  249 


21,2113 
2 1 ,2114 
71  ,7115 
21,  21  16 
2 1 ,21  17 
21,2120 


C 0006  1 
CC  030  1 
4 0000  0 
54  C01  1 
7 4750  0 
10  OCO  0 
1 2C12  1 


EXT  END 

READ  CHAM30 
COM 

TS  L 

MASK  BIT4 

CCS  A 

TCF  P7 1 A 


RFF  17  LAST  884 
RFF  1 

REF  3 LAST  884 


21,2121  4 1010  0 P7CNDW?  CS  MODREG 

21  ,2122  6 7033  n AD  1 DEC70 

21.2123  C C006  1 FXTEND 

21.2124  1 2131  1 BZF  VVCOMP 


RFF  154  I AST  884 
PFF  41  LAST  97  ft 
REF  25?  LAST  884 
RFF  2 LAST  249 


21,2125  3 0001  0 

2 1,  2 126  7 475  3 0 

21  ,2127  10  000  ft 

21,2130  1 20C 7 0 


CA  L 

MASK  8 I T 1 

CCS  A 

TCF  P70  A 


9:12  OCT,  71,1970  7F  L Y . 0*9  PAGE  884 

USER'S  PAGF  NO.  35  F7  S3 


H FLASK  OFF,  SC  LEAVE  ALCNE 

FI  I P H L I TE 

VFLASHBIT  MUST  BE  BIT  2 

V FLASH  OFF 


IS  THE  LETAB3RT  FLAG  SET? 

NO:  GO  ON  TO  THE  VELOCITY  COMPUTATION 

ARE  WE  IN  P71  NOW? 

YES:  PROCEED  TO  VELOCITY  COMPUI  AT  ION 

NO:  IS  AM  ABORT  STAGE  COMMANDED 


YES 

NO:  ARE  WE  IN  P70  NOW? 

YES:  PROCEED  TO  VELOCITY  COMPUTATION 

NO:  IS  AN  ABORT  COMMANDED? 

YES 


iAP: 


ASSFMRLF  REVISION  56  OF  AG3  PROGRAM  2F.RLINA  BY  ZCRGAST  ER 


L SERVICFR 

T 1 4 55  ft***.*************#****#*****;********.**  «**« *********** ************* ** ** 

R1A5N  COMPUTF  VFLnriTY  VECTOR 

Rl  A 5 2 * *********  ************  *********  ***<************  *********************** 


< IA58  ONLY  IF  SWANOI  SP  IS  SET  ARE  ALL  THE  NUMBERS  AVAILABLE  NEEDED  IN  VVCOMP 


1 459 
IAN. 
14M 

Hi? 


REF  2? 
REF  2 
REF  25 A 
REF  1 


L AST 
I AST 
I A ST 


? 1 , ? 1 3 1 
21 ,? 132 
21.2133 
21,  213A 


A 010  3 1 
7 A7A 1 0 
1C  CCO  0 
1 2726  1 


MASK 

CCS 

TCF 


31  SPRSF  T ♦ 1 


MA63  DP  FVFPYTHIW  POSSIBLE  RFFCRP  RFAHING  PIPAS. 


! ASA 
IA65 
1 AS  6 
U67 
IA6B 
1 A6R 
1 A 70 
1 A 7 1 


1 A7A 
1 A75 
l A 76 

1 A 77 
1 A 78 
1A70 


RTF  16  l A ST  870 


REF  11  LAST  685 


REF  17  LAST  885 


21, ? 135 
21  ,2136 
M . 137 
21,  2 1 AO 
. 

21,  21A2 
21,  21AJ 
21 ,21AA 

21,  21A5 

7 l ,2  1 AS 
21.21A7 
21,  2150 
21  ,2151 
' i . 15 
» i , : i 
21 ,2 l 5A 


C C0C6  1 

A 17  If  1 
c 2 ' 727  0 
C COO 6 1 
3 15?5  1 
2 C COl  1 
2 C CC1  1 
21 ' 727  0 

G 0006  1 
A 1712  0 
52*731  1 
C 0006  1 
3 1527  0 
2 C C Cl  1 
20  COl  l 
21*731  1 


6 XTEND 

DCS  VSURFACE 

DXCH  VVECTX 

E XTEND 

DCA  V 

DDOUBL 

DDOUBL 

OAS  VVECTX 

FXTEND 

DCS  VSURTACE 

DXCH  VVECTY 

E XTEND 

DCA  V 

DDOUBL 

DDDU3L 

DAS  VVECTY 


1 AHD 
1AH1 
IA82 
1 A P3 
1 A8A 
1 A95 

H86 

1 A8  7 


REF  18  LAST  835 


3 LAST  885 


21, 2155 
• 

21,2157 
21,  2160 
21  ,2161 
21,21(2 
51,  2163 
21  ,216A 


0 0C.06  1 

A 1 7 1 A 0 
c 3*  733  0 
0 OOC  6 1 
3 1531  1 
2 C CC1  1 
20  001  1 
21' 733  C 


E X TEND 

DCS  VSURFACE 

IJXCH  VVECTZ 

E XTEND 
DCA  V 

DOOUBL 
DD0U3L 

DAS  VVECTZ 


Rl  A88 
R 1A89 

US? 

1 A 9? 
IS?* 

1 ARA 


PICK  UP  T IME. 

CCMPUTE  TIME  SINCE  PIPTIME. 


RTF 

RFF 

RFF 


L AS  1 

IASI  881  21,2167 

LAST  885  21,2170 

LAST  RD3  21,2171 


6 A736  1 
6 A736  1 
57  *725  0 


PI PT IMG 
T!  ME  1 
HALF 
HALF 


: 12  OCT . 21,  1970  7 F L 


0A9 


PAGE  885 


USER'S  PAGE  NQ.  36 


F7  S3 


IS  LANDING  ANALCG  CIS  PL  AYS  FLAG  SET? 

NO:  GO  RESFT 


YES:  COMPUTE  VELOCITY  VECTOR 


N UNI  TS  OF  2 ( l A ) CS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRUGR  AM  /ERLINA  BY  70ROASTE* 

L SEP.  VICFR 


9:12  CCT.  21  ,1970  ZFLY 
USER  *S  PAGE  NO. 


.099  PAGE  886 
37  E 7 S3 


R I 995  ADO  IN  PIPA  PULSES. 


1996 
IA07 
1 % 98 
1 999 


1SDD 
1 50l 


7 I AST  P7. 

U LAST 


PEE  7 LAST  80  5 


REF  1 

RFF  12  LAST  885 


2 1 . 2 1 7 3 
21,  2179 
71  ,71  7S 
21, 2 176 
21,  2l  77 


t CC37 
0 27  6 1 
0 0006 
7 2CC0 
21  '727 


CS  PIPAXOLD 

AO  PI  PAX 

TC  NOR  MPT  P 

FX  T EM  0 

HP  LANAKPIP 

DAS  VVECTX 


1 509 

150  5 
15  96 
1 50  7 


PFF  6 
REF  10 
RFF  9 

REF  2 
REF  9 


LAST  870 
I AST  880 
LAST  886 

LAST  806 
LAST  835 


2 1 , ? 2C  1 

?l  ,2? 0? 

21  ,27  01 

21,  220  9 

21  ,2205 


9 1255  C 

6 0C9('  C 
0 2761  7 

0 0006  1 

7 2000  1 

21 ' 731  l 


CS  PIPAYOLD 

AD  PI  PAY 

TO  Milk  HP  1 P 

EXTEND 

HP  LANAKPIP 

OAS  VVECTY 


1 538  REF 
1809  RFF 

1510  RFF 

1511 

1512  RFF 

1513  RFF 


5 I AST  870 
P LAST  880 
5 LAST  886 

3 LAST  886 
9 LAST  e85 


21,  ??Ct  * 1 2 f 6 0 
7 1 , ? 707  6 ( 091  1 

21  ,2710  C 2761  0 
21.22H  C COOf  1 
21  ,2212  7 2000  1 

71  ,2317  21  *733  0 


CS 

AO 

TC 

E XTENO 
MP 

QUARDUMP  DAS 


PI PAZCLO 
PIPAZ 

NORMP IP 

L AN AK  P IP 
VVECTZ 


81519  TFF  FOLLOWING  CODING  RFFERS  THF  X-P  IP  A 7 FADING  TO  THE  C E N TE  R-OF-MA  SS  CF  THE  SPACECRAFT  PY  SUBTRACTING 

11516  THOSE  PIPA  CTUNTS  PRODUCE  D BY  VERTICAL  I MlJ  MOTION  RELATIVE  TO  THE  CENTER-OT-MA  SS.  THE  SPACECRAFT  X-AXIS  IS 

R I 5 1 9 ASSUMED  TO  BF  APPROXIMATELY  VERTICAL  (PARALLEL  TO  THE  SM  X-AXIS).  THE  EQUATION  IS: 


R 1 520  P66P  IPX  = P66PIPX  - 0MEGA3  RJMUZ 

* 1571  WHFRF  P f 6P  IPX  IS  THE  X-PI  PA  READING,  GREG  A 0 IS  THF  ATT  I TUOE-R  AT  F ABOUT  THF  0 (Y)  AXIS,  AND  PIMUZ  IS  THF 
R 1 5 ? 3 7-COORD  IN  AT  F OF  THE  MU* 


1 1579  FINALLY,  AOD  IN  C C NT Rl HUT  I C NS  Cf  GRAVITY  AND  PIPA  BIAS. 


1526 

1577 

1578 


21,  2219 
31,7215 

21  ,2216 
21,  2217 


1709  1 
170  1 0 

0006  1 
1725  1 


1529  PFF  13  (AST  886  21,2220  21'727  0 


VVFC  TX  I N UNI  TS  CF  2(51  H/CS 


}??? 
1 532 
1533 
1539 


RFF 

PFF 


J 

6 

5 


1 A ST 
LAST 

LAST 

LAST 


21*2222 
21,2223 
2 It  2229 
71,2225 


9 17C5 

6 170  2 
C 0006 

7 1725 
21  '731 


C 

G 

1 

1 

1 


CS  BIASACCY 

AD  3RAVACCY 

EX  T EM  D 
MP  DT 

OAS  VVECTY 


RIASACCY  IS  IN  UNITS  OF  2(-9>  M/CS/CS 
GRAVACCY  IS  IN  UMTS  OF  2 ( -9  ) M/CS/CS 


VVECTY  I N UNI  TS  CF  2 (5)  V/ CS 


I AST  869 


i\:m  i °1 


CS  8 1 AS  ACC Z 

AD  GRAVACCZ 

EXTEND 
MP  DT 


B I AS  ACC/  IS  IN  UN  I TS  9F  ?(  -9) 
GRAVACCZ  IS  IN  UNITS  CF  2 ( -<•  ) 


LA  ST 


ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  FRCGFAM  ZERLINA  BY  ZGROASTER 
S ERV  ICFR 

REF  5 LAST  8H6  21,2232  21'733  0 DAS  VVECT7 


R 1 54‘- 

Pl54l 
3 1 542 


9:  12  OCT.  21,1970  ZFLY  .049  PAGE 
USER'S  P AG F NC.  38  F7  S3 

VVECTZ  IN  UNITS  OF  2(5)  M/CS 


SHOULD  F66  JOB  EE  S FT  UP? 


1 544 
1545 

1545 

15461 

1546? 

1546  3 
1546  4 


1R  LAST  PR4 


OFF  ?Q  LAST  862 


REF 

RFF 


2 LAST  82  3 


21  , ? 234  6 2331  1 


21,  224  1 0 OOC 6 1 

21,2242  1 2324  1 


1C10  0 GUI  LIEN  CS 


HOD REG 
STERN  AO  DEG  66 

EXT  END 

B7F  P66SETUP 

CA  FLAGWROl 

MASK  AI.W66RIT 

F X TEND 

BZF  GJILDRET 


ARE  WE  IN  P65  ? 


YES: 

NO: 


OFF  TO  IT  T HEN 

IS  P66  SELECTION  LOCKFD  OUT 


1540 

1553 

1551 

1552 

1553 

1554 
155.5 

1556 

1557 

1 55R 
1 5S9 
1560 

1551 
1 5«  > 
1563 


REF  1 

REF  36 

REF  6 
RFF  ?55 
REF  ? 

REF  4 
REF  3 


I AST 
LAST 
I AST 

L AST 
LAST 


813 

8«»5 

887 


2 1,225  3 ( 2 C 3 1 1 

?l  ,2254  1C  ODD  0 
21,2255  1 2324  1 

21,  2256  3 1744  1 

21  ,2257  0 0C06  1 

21  ,2260  I 2324  1 

’1,  2261  l 0CO6  1 STA?  TP  66  EXTEND 
' l . ' fi  ' i 1727  1 


CS  dCHPHASE 

AD  TWO 

EXTFND 

87F  ST  ART P66 

ATTH3LD?  CAF  31  Tl  3 

FX  T EN  0 

RAND  CHAN31 

CCS  A 

TCF  GU  IL  UR  FT 

CA  ROOCOUNT 


YES:  IS  WC  HP  HA  SE  = 2? 

YES:  GO  START  P66 

NO:  IS  UN-ATTI TUDF-HOLC  DISCRETE  HER  F? 

YES:  ALL'S  WELL,  OR  AT  I F A ST  AUTOMATIC 
NO:  HAS  RCD  SWITCH  REEN  Cl  I CK  ED? 

NO:  STICK  IN  THERE,  LANDING 


1 567 
1568 
1560 


I AST  08  7 21,  2 266 

21  ,2267 
21,  72 7'> 

LAST  874  21,227  1 

LAST  876  21  , ”77 

LAST  811  21,  2273 


EXTEND 

DCA  ADRPIPCY 
DXCH  AVGFXIT 


DISCONNECT  AIL  GUIDANCE  FROM  SERVICER 


GAP:  ASSEMBLE  REVISION  56  OF  A(,r.  PROGRAM  ZEKLINA  BY  ZOROASTER 


9:  12  OCT  • 21,  1970  ZFLY 


PAGE  888 


L SFRVITFR 


USTP'  S PAGE  NC.  3Q 


E7  S3 


157^  PrF  PI  IAST  P77 
1573  RFF  6 LAST  850 


TC  OOMNFLAC  PERMIT  X-AXIS  OVERRIDE  DESPITE  THE 

AORES  XO  VI NF  LG  POSSIBILITY  OF  PITCH-RHlL  CROSS-FEED 


157*  PEE  66  I AST  88  7 
1575  REF  3 I AST  77  1 


?l  ,2276  C 5515  0 

21*227?  C0C23  0 


TC  JP  FLAG  TERMINATE  TE3  TAIN  MODEL 

ADRES  NCTEPFLG 


1 57 6 REF  ? LAST  7?  3 

1577  PEF 


21,23c  ic  756  l P66SETJP  :;S 

21*2301  1 2326  0 T C F 


AVim  MULTI  PLE  P66JCBS  AFTER  RESTART 


1 5 78 

1679 
1 680 
15R1 
1581 


2 I AST  c6 1 21,  2 3C2 

37  I.AST  876  21  ,7303 

4 I AST  flOC  E 5, 1 6 ? 7 

1 2 1,230  9 

1 21  ,2  305 


3 7724  1 CAF  PRI C24 

0 5105  9 TC  FINDVAC 

ERANK=  TAIIRCDL 

02719  1 P662CADR  ?:A9R  P66J0R 
69065  0 


1 689 

I 686 

1586 

1587 
16  88 
1589 
1697 
1501 
169? 
1593 
1599 
1695 
15  96 


PC-F  9 
PEE  51 
PFE  3 
PEF  3 
REF  ? 

PEE  1 
RFF  9 
PFE  58 
REF  166 

REF  5 

REE  16 
RFF  5? 
PFE  9 


LAST  859 
LAST  868 
L A 6 T 81  1 

LAST  888 
LAST  290 


LAST  8P9 
I AST  887 

LAST  039 

LAST  879 
LAST  867 
LAST  888 
I AST  R8  3 


21*  2306 
71,2307 
F 3 ,1  9 9 ? 

21,  2310 


I,  • HI 
21  ,?  119 
21.  2315 
31,2316 
21  ,231  7 
21,  2320 
21  ,2321 
21  ,232? 
E7,  1777 


2 5CC 7 0 
59  CO 3 0 

3 7729  1 
55  *057  0 
C CCC6  1 
3 2306  0 
53*993  1 
? 975 2 C 
e9  CC1  1 
9 0000  0 
62  756  1 
3 50  16  0 
59  C03  0 


CAE  E8ANK3  RESTART  PROTECT  BY  HAND  TC*  SAVE  TIME 

TS  5 BANK 

F 8 ANK  = PHSNAME3 

CAF  PRI 029 
TS  PHSPRDT3 

EXTEND 

DC  A P 662c  ADR 
DXCH  0 HSNAM E 3 
CAF  TWO 
TS  L 

COR 

DXCH  -PHASE3 
CAF  EBANK7 
TS  FRANK 

E R A N K = END-F7 


1597  PFF 


LAST  888  ?1  ,2323  1 2326  0 


TCF  PRELAD 


P FF  176  l AST  887 
REF  6 t AST  887 


2 1,  2329  ? 97 c 5 1 GLILDRET  CAF 

21*2325  55*799  0 TS 


7ERC 

I'.lOCOUNT 


16  )P 
1631 
1602 


REF  18  LAST  885 
PEF  9 LAST  851 
REF  1 


21  ,2326  9 0025  1 PPELAD 

2 1,2327  5 5 » 0 54  C 

21  ,2330  1 2339  0 


CS 

TS 

TCF 


I I ME1 
TBA  SF  2 
LANAPISP 


UPDATE  T8ASE2  AND  PPOCEFD  TO  LANAOISP 


K I 603  ****>>«:*** 

RlY.r-c,  OUARTASK  CONSTANTS 
3 1605  **$*#$«**♦*##*  *«***«$* * 


1636 


21,2331  CC1G2  1 DEC66  DEC  66 


1 6r’  7 
160  8 
1 63  B 


REF  59  l AST  882 
REF  P LAST  882 


FT  ,1513 


21  ,2332 
21,  2133 


E0AN<=  DVCNTR 

02102  C ADRPIPCY  2-CAOR  PIPC.YCLE 
66067  0 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  RY  ZOROASTER 
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11M3  TEMPORARY  DEFINITIONS  TO  7VCIC  CUSSES  UNTIL  CHANGES  OUTSICE  OF  ZFLY  ANO  ZEftASt  CAN  BE  MADE. 

1615  REF  69  I SST  883  6272  REREAOAC  = TASKflVER 

1616  RCF  60  LAST  889  5272  RED05 .5  = TASKOVFK 


1617  PFF  R | AST  879  1235 

1618  REF  1 39,3752 


GOT/2  * G 

PIPASK  = PIPAKEAO  -3  SO  PIPSRINE  WILL  ECUAL  PI  PAREAC 


PR(.GRA«  ZEflUNA  BY  ZCkCASTEP 


.4P:  ASSEH8I  t REVISION  5b  OP 

L LANDING  ANALOG  OISPL  AYS 

- IAN  AO  ISP:  DISPLAY  INERTIAL  DATA  ROUTINE  POP.  DESCENT  AND  ABORTS 

ROC '-5  *•••***>,<,*,.,-.*******,******♦*«♦♦•*******♦******  **********.****** 


9:12  OCT.  21,1970  2 PL  Y .099  PAGE  89o 

USEP'S  PAGE  NC.  1 ED  S3 


***•*«»«» ******* 


THIS  VFRSIDN  3Y  EYLES 


0009 

88tf 


7 1 ,2315 

m,  ? 

?1  ,2339 


10  I A ST  EBP  E 7,  1777 
2 I AST  4 3 TO  4 7; 


BANK  ?1 
SFTLOC  3 in 
RANK 


3 r I? 

RDDI3 

9 0C1 4 


************* 

*«**t«4m*«s 


DO  15 
DD  1 6 
001  7 

0018 
001  Q 
0020 
DD21 
0022 
00  23 
)D?4 

0025 

0026 
00?  7 
00?R 
DD29 
OOlO 
0031 
DD  32 

0033 
00  34 
0075 
0036 

DD37 
0018 
00  39 
3D4D 
0041 

R 004  3 


3 LAST  869 


REF  1 5 

REF  3 
REF  a 

REF  16 
REF  156 
RFF  177 
REF  4 


REF 

PFF 

RFF 


LAST 

LAST 

LAST 

LAST 
L AST 
I AST 
I AST 
LAST 


84  7 

320 

890 

890 

889 
88  R 

890 
870 


I AS  1 836 

LAST  R90 
I AST  870 


■ 

' ’ . 135 

?l  *7376 

• 

21,  2340 
21  ,2341 
21,  2 342 
21,2343 
2 1 ,2  344 
21,  2345 
21  ,2346 
21,2347 
SI,  5350 
21  ,7351 
21,  2352 
Mt;  153 
21  ,2354 
21,  2355 

, 

21,2757 

2 1,  2.360 
21  ,2361 

21,  2362 
21,2  1 - J 
’l  ,2364 
21,  2365 
21  ,2366 


3 1722  1 
0 0006  1 
7 1726  1 

5?' 735  0 
• 1722  T 
C 0006  l 
7 1727  0 
54  001  1 
3 6 755  1 
21*735  C 
3 1723  0 
0 CCC6  l 
7 1730  0 
21*775  0 
3 1724  1 
0 0C06  1 
7 1 732  1 
21*735  0 

3 1721  1 

C 0CC6  1 
7 1725  1 
21 ' 735  0 

C CC06  1 
3 1735  1 
52  064  l 
C OC 0 6 1 
1720  0 


LANA01SP  CA 


2 I A ST  890  ’I  ,2367  2C  064  l 


DAS 


VVECTX 
ALTRATE 
RUNI  TX 


ZERO 
ALTRATE 
9 UN  I T Y 

VVEC  TY 
ALTRATE 
RUM  T Z 


ALTRATE 


EXTEND 

OCA  ALTRATE 

OX  CH  ALTRTEMP 

E XTEND 

OCA  HDOTLAD 

DAS  ALT  RT  EUP 


CDMPJTE  RAD  IU  VELOC  I TY 


COMPUTE  THE  MORE  SENSITIVE  TERM  IN  OP 


NOTE:  WITH  NORMAL  DESCENT  I MU  ALIGNMENT 

THIS  TERM  IS  ALWAYS  ZERO,  BUT  AL  TKA  Tt 
CAN  BE  DISPLAYED  DUPING  ASCENT  TOO 


COMPENSATE  FOR  CHANGE  IN  DIRECTION  OF  R 

ALTRATE  IN  UNITS  OF  2(5)  M/CS 


AVERAGE  ALTRATE  IN  UNITS  3F  2(4)  M /:  S 


THE  FPl  LOWING  COMPUTATION  FAILS  IF  DT  EXCEEDS  20.47  SECONDS  (UNLIKELY). 

RFF  9 LAST  890 


r.AP:  ASSEMBLE  REVISION  56  OF  AGC  PREGPAR  ZERLINA  BY  7CRCAST Ek 


L 

L ANDING 

ANALOG 

DIS  FL  AYS 

O'  46 

RFF 

33 

LAST 

884 

21  ,2372 

7 4 750 

0 

MP 

8 IT  4 

3347 

R FF 

157 

1 AST 

890 

21,  2373 

3 CC01 

0 

CA 

L 

0048 

21,2 474 

0 0006 

l 

EXTEND 

0049 

REF 

3 

LAST 

890 

, 

7 0063 

0 

MP 

ALT  RT  EMP 

3353 

RFF 

4 

L AST 

RIO 

21, 2376 

c - 1 7 37 

1 

D XCH 

AL  TI  TUOE 

0051 

, 

0 0006 

1 

EXTEND 

0052 

RFF 

3 

LAST 

869 

21 , 24C0 

2 1716 

0 

OCA 

HCALCL  AD 

005  ^ 

REF 

5 

1 AST 

89  1 

21,  240  1 

21*737 

1 

DA  S 

A L TI  TUOE 

10111 

R 0 11  2 

SENO  (HIT 

ALTITUDE-RATE  IF  PCI  S 

51  Bl  F 

113 

0 114 

PFF 

42 

1 AST 

814 

?1 ,249? 

3 4.7.46 

0 

LANACONT  CAF 

RIT6 

3 115 

21,  240  1 

C 00C6 

1 

E XTCNO 

0116 

REF 

1 1 

l AST 

884 

21  ,2404 

02  030 

0 

RAND 

CHAN  30 

0 117 

REF 

256 

LA  ST 

887 

21,2405 

1C  too 

0 

CCS 

A 

Olio 

RFF 

2 

LAST 

88  5 

21,  24C6 

1 2725 

1 

TCE 

01  SPR  SF  T 

'll" 

RFF 

30 

LA  ST 

887 

21  ,2407 

4 0075 

1 

CS 

FL  AGWRCI 

3 1 2 ’ 

PEF 

2 

L AST 

224 

21,  2410 

7 4736 

MASK 

HI  DF LRIT 

Ol  2 1 

RFF 

257 

LAST 

89  1 

21,2411 

1C  000 

0 

CCS 

A 

o 122 

RIF 

1 

21  ,2412 

I 2 700 

0 

TCP 

DISPINIT 

31221 

REF 

38 

LAST 

8 14 

21,  2413 

3 47  5 2 

0 

CAF 

3 1 T2 

I 

21  ,2414 

0 0006 

1 

EX  T £N  D 

<122  3 

REF 

47 

LAST 

771 

2 1,  2415 

C 2 C 12 

0 

RAND 

CHAN1 2 

12  ••• 

2 1,  24  16 

0 C0G6 

1 

EX  TEND 

01225 

REF 

3 

LA  ST 

891 

21  ,241 7 

1 2725 

1 

RZF 

DISPRSFT 

3124 

21,  ?4  2j 

C C006 

1 

ALTPROUT  EXTEND 

0125 

REF 

12 

LAST 

828 

! 1 ,2421 

05  014 

1 

WOR 

CHAN  14 

126 

21,?*2? 

C CCC6 

1 

EXTEND 

0127 

REF 

9 

LAST 

890 

2 1,  24  2 1 

:•  1735 

1 

OCA 

A L TP  A TE 

0128 

21 , ? 4 ? 4 

20  001 

1 

DDDUBL 

3129 

21, 2425 

2G  CC1 

1 

DDOUBL 

0130 

21,2426 

2C  0C1 

1 

DDDUBL 

9131 

21  ,2427 

C 9006 

1 

EXT  END 

3132 

RFF 

1 

’ . • 

7 20C4 

0 

MP 

ALTRCONV 

01  33 

REF 

158 

LAST 

OOJ 

! , • - 1 

c 1 

e 

XCH 

i 

3 1 34 

21.2422 

6 COCO 

i 

DOUBLE 

0135 

PEE 

213 

LAST 

882 

, 

5 4 OC 2 

i 

TS 

0 

136 

REF 

1 78 

LAST 

890 

21  ,2434 

3 4755 

l 

CAF 

7 FRO 

3137 

REF 

l 59 

1 AST 

89  1 

• ■ 

26  001 

l 

ADS 

L 

01  38 

PFF 

2 

LAST 

37» 

21 ,?434 

6 4735 

l 

AD 

NFGMA X 

0 13° 

REF 

16C 

LAST 

891 

21  ,2437 

54  001 

i 

TS 

L 

3140 

1,  -- 

1 2443 

i 

TCF 

♦ 3 

9:  12  UCT  . 21»  1970  Z FL  Y 


049  PAGE  891 


USER'  S PAGE  NC.  2 


E7  S3 


FETCH  DT  FROM  L IN  UNITS  OF  2(11)  CS 


ALT  I TUOE  IN  UNITS  OF  2 (15  ) METFRS 


IS  THE  METER  MODE  SWITCH  IN  PSNC  S? 

NC:  GO  RESET 

YES:  IS  INITIALIZATION  IN  ORDER? 

YES:  THEN  GD  00  IT 

NO:  A RF  RR  ERRCR  COUNTERS  ENABLED? 

NO:  REINITIALIZE  DISPLAYS 

YES:  SIGNIFY  ALTITUDE  RATE  « B IT  2 IN  A) 

RF  SCALE  ALTRATE  TO  UNITS  OF  2(2  1 “/CS 

RESCALE  TO  UNITS  OF  .5  F/S/RIT 


ROUND  TO  NFAPFST 


F/S 


GAP:  ASSEMBLE  REVISION  So  OF  AGC  PROGRAM  7 E 0 1 I N A BY  7 QPGA  STE  R 


I LAND  I NG  ANALCG  OIS  PLAYS 


' IS  I 
314? 
0143 


RFF  161  LAST  891 
PEE  1 


71,2441  6 OCOl  O 

2 1,  ?44  2 4 OOOO  0 

21  ,2443  56  060  l *3 


AO  L 

COM  - 

XCH  ALTH 


0 IAA 

Ias 

M46 


PFF  70  LAST 

PFF  13  LAST 


809 

091 


? 4751  0 
C 00C6  1 
05  0 1 A 1 


CAF  BIT3 

E XTFN3 

WOR  CHAM  A 


REF  ?.  I AST  flO A 
REF  ' L A^T  0X3 


21*  7 A A 7 3 S752  1 

5 l ,2450  O S235  5 


CAF  TWELVE 

TC  VAROEIAY 


ft  1 Aft  PFF  79  LAST  AM 

5153 

151  REF  1A  LAST  892 


mxw 

71  * 2 A5  3 


A A 752  1 
C 0006  1 
03  01A  1 


ALTPCUT 


E XTFNO 
WAND 


RIT? 
CHAM  A 


19? 
153 
1 5A 

1155 
0 1 56 
' 1 5 7 
3 1 58 

0159 

0160 
ftl  6l 


RFF  6 

RFF  1 

REF  16,2 
PFF  179 
RFF  1 
RFF  7 


RFF  ? 
RFF  2 


I A ST  89  1 

1 AST  89 2 
LAST  891 

l AST  992 

LAST  092 

LAST  092 


21  ,7456 
21,  245  7 
71  * 2 A 6 0 
>1  ,2A61 
21,  ?A6  2 
21  ,?  A63 
71,  -*464 
2 1,  7 AS 5 


2 1737  C 
0 0006  1 
7 7005  1 
5 A 001  1 

3 A755  1 
52  06A  1 

1736  1 
0 0006  1 
7 2G05  1 
20  06 A 1 


CA  ALTITUDE  +1 

EXTEND 

MP  ALTCONV 

TS  L 

CAF  ZERO 

OXCH  ALTTEMP 

CA  ALTITUDE 

EX  T EN  D 

MP  ALTCCNV 

DAS  ALTTEMP 


i‘  162 

’16  3 
016A 
"16  5 

ftT  66 


REF 


3 LAST 


892 


71  ,2 A66  52  G6A  1 

21,  2 A 6 7 2C  -.Cl  1 
2 l ,7 A70  20  00 l l 

21,2471  5 A 000  C 

21,  2 A 7 2 1 2A76  1 


OX  CH  ALTTEMP 
DD  CUB  L 

onnunL 

OVSK 

TC  F + A 


0167  REF  23  IAST  869 
■'168  PFF  35  LAST  822 
Ol69 


71  ,2873 
21,  7 A 7 A 
7 1 , 2 A 75 


l 2502  O 


MASK  POSMAX 
AD  BIH5 

TC  F + 5 


0170  RFF  2 56  I A ST  891 
) 1 7 1 REF  87  LAST  877 

0172 

0173  REF  100  IA<7  892 


21  , 2 A 76  1 0 OOr  0 

21,  ?A77  6 A75  3 1 

21  ,2 5C 0 1 2502  0 

2 1,2501  3 A? 55  1 


CCS  A 

AD  ONE 

TCP  +2 

CAF  ZERC 


1 7A 

PFF 

2 

LAST 

90  2 

. 

c6  060  1 +5 

XCH 

AL  TM 

0175 

KEF 

31 

LAST 

89  ? 

71  ,2  5C3 

3 4751  0 

CAF 

B IT  3 

1176 

21,  2 5C4 

C C006  1 

EXTEND 

•177 

REF 

15 

LAST 

89  2 

21,2  5C 

05  CIA  1 

WOR 

CHAN1A 

» 1 78 

R71  79 

R 01 80 


9: 12  GCI  . 21, 187,'  7 FLY 

USFR'S  PAGE  NC. 


.049  PAGE 
3 E7  S3 


892 


PAJSE  12  CS  FOR  AITRATE  TD  BE  READ  OUT 
(MUST  BE  > 100  MS  TC  WCPK  ON  THE  LMS  1 

SIGNIFY  ALTITUDE 


ALTITUDE  IN  UNITS  OF  9 .383  FEFT/BIT 

RESCALE  TO  UNITS  OF  2.345  FEET/BIT 
NC  OVERFLOW:  -38420  < ALTITUDE  < +38423 
RESET  OVERFLOW 

APPLY  LOWER  LIMIT  OF  POSITIVE  ZE30 


SAP:  ASSFMBLF  REVISION  56  OF  AGO  PROGRAM  ZEftL  INA  BY  ZOROASTER 


L IANDING  ANALOG  DISPLAYS 


3 1 8 1 RFF 


21,  2506  0 256  5 0 


SROSCOMP 


1H7  RFF  36  LAST  850 

M93  PFF  11  I A ST  736 


CA 

TS 


01  5 A 

0 185 
3186 

1 187 

j 188 

01  89 
f 100 
0191 

1 92 

0103 
3 196 
0195 
0 106 
• 1 07 
0198 
0190 
0200 
0 20  1 
3202 
0203 


RTF  1 
RFF  1 

REF  2 LAST  893 
REF  12  LAST  893 


REF  1 

RFF  1 63  LAST  89  2 


REF  216  LAST  80  1 
°CF  1 

RFF  166  l A ST  803 

RFF  3 LAST  20  8 
REF  165  LAST  801 
REF  1 

RFF  2 LAST  80 3 
RFF  19  LAST  876 
REF  1 

REF  6 LAST  R9  3 


21,2512 
21,  2513 
21  ,2516 
21,2515 
21,  25  16 
21  ,2517 
21,  2 5 20 
21,2  521 
21  ,2522 
21,  9 52  3 
21  ,2526 
21  ,2525 
2 1,  2526 
2 1 ,.25  27 
21,  25  29 
2 1 , 2 53  1 
21  ,2532 
21, 2533 
21  ,2536 


3 ?00  1 
2?  070 
C 2165 
22  071 

c noc6 
1r  0 62 
0 0006 
7 2CC3 
56  901 
6 0000 
56  C C 2 

1 2526 
26  001 
6 116  1 
26  001 

2 2CC2 
0 2765 
6 6 756 
56  C56 
27 '761 


1 

0 

0 

1 


l 

0 

1 

1 

0 

1 

0 

1 

1 

0 

0 

1 

0 


F0RV3UT 


CAF  u A XVEL 

LX  CH  FORVTEMP 

TC  I AD L I PIT 

LXCH  FORVTEMP 

EXTEND 

DV  ITFMP2 

EXTEND 

HP  VELCCNV 

XCH  L 

DOUBLE 
TS  Q 

TCF  FORVDUT 

AOS  L 

CS  FORVMFTR 

AOS  L 

CA  MAXDBITS 

TC  L AD  LI  MI  T 

AD  NEC-0 

TS  CD  USC  MD 

ADS  FORVMFTR 


8ffe‘ 
0206 
9717 
02  08 
020<9 
3213 
0211 
)212 
0213 
•1216 
3215 
0216 
0217 
3213 
0219 
0 220 
0221 
<i22? 
3223 


REF  7 
RFF  T 
RFF  3 
REF  2 

REF  13 

RFF  2 
REF  166 

RFF  215 
REF  1 
REF  1 67 
RFF  6 
REF  168 
REF  2 
R FF  6 
REF  20 
RFF  2 
REF  5 


LAST  893 

LAST  H99 
LAST  893 

LAST  893 

IASI  893 
LAST  803 

LAST  893 

LAST  09  3 
LAST  ?C  8 
l AST  89  3 
LAST  893 
LAST  003 
I AST  89  3 
I A S T 565 
LAST  803 


i\:mi 

?1  ,25  37 
2 1,  75  60 
2 1 , 2 56 1 
71  ,2  562 
2 1,  256  1 
21  ,2566 
21  , ."’56  5 
21,  7566 
?1  , ? 5 6 7 
21,  7550 
?1,?551 
>1  ,7  55? 
21.  2553 
7 1 ,7556 
21 ,2555 
21, 7556 
21  ,7557 
21, 2560 


2-2C1C1  l 
r 12  1 

0 7 765  0 
22  C 73  O 

0 0006  1 
10  06?  1 
C rcc6  1 

7 2003  1 
56  001  n 
6 0000  1 
56  UU?  1 

1 255?  0 
26  COl  l 
6 1 760  1 
26  001  1 
3 20C2  l 
0 7165  0 
6 6756  0 
56  053  0 
27' 160  i 


LATVCUT 


CAF  MAX  V EL 

LXCH  LATVFL 

TC  L ADL  IM  IT 

LXCH  LATVEL 

EXTEND 

DV  ITEMP2 

E X TE  NO 

MP  VELCC1NV 

XCH  l 

DO  IB  LE 
TS  0 

TCF  LATVOUT 

ADS  L 

CS  LATVHETR 

ADS  L 

CAF  MAX08ITS 

TC  L ADL IM  IT 

AD  NEGO 

TS  CDUTCMO 

ADS  LATVMETR 


027  6 
•225 
3226 


RFF  1 

RFF  16  LAST  892 


21,7561  3 5020  O 

21  ,7  56?  r 3006  l 
21,  2563  C5  016  1 


CAF  3ITSPT 

EXT  END 

WOR  CH  AM  6 


9:12  o:  T.  21  ,1970  ZFLY  .069  PAGE  893 
USER  *S  PAGE  NO.  6 F7  S3 

FIRST  CALL  SUBROUTINE  TP  COMPUTE  THEM 
1/32  TO  I TEMP  2 FOR  USE  AS  DIVISOR  BELOW 

LIMIT  COMMAND  TO  190.665  F/S 

RESCALE  TIJ  UNITS  OF  ONE  M/CS 
RESCALE  TO  UNITS  OF  .5571  F /S/BI  T 
ROUND  TO  NEAREST  .5571  F/S 


SUBTRACT  METER  INCICATOR  TO  GET  CHANGE 


LIMIT  CHANGF  TO  ABOUT  300  F/S 

UPDATE  ME  TER  I NOI  C ATflR 
LIMIT  COMMAND  TO  198.665  F/S 


RESCALE  TO  UNI  TS 
RESCALE  TO  UNITS 
ROUND  TO  NEAHEST 


OF  ONE  M/CS 
CF  .5571  F/S/ 8 1 1 
.5571  F/S 


SUBTRACT  METER  INDICATOR  TO  GET  CHANGE 

LIMIT  CHANGF  TO  ABOUT  300  F/S 

UPDAT  E METER  INDICATOR 


SF  T DR  I VF  HITS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  GY  ZOROASTER 


.049  PAGE  594 


9:12  OCT.  21.1970  Z FLY 

L LANDING  ANALOG  DISPLAYS  USER'S  PAGE  NC.  5 E7  SO 

2?7  PFF  61  LAST  889  21  ,2564  C 5272  0 LANAOEND  TC  TASKOVER 

< 2?9  SLBRUUTI  VF  * Tf  COMPUTE  *FCRWARC  A NC  LATERAL  VELOCITIES 

R '>2  3 ' *••♦>»**«  *•  •«««»•***•  «**•  • ***•  «»**»»  »*****««**££»***«  «•****  so  *«*«  *«*««» 

- 231  THE  SCALARS  V HY  AMD  VHZ,  COMPUTEO  HERE,  ARE  THE  VELOCITIES  ALONG  UNIT  VECTORS  UHYP  AND  UHZP,  UHY  P NORMAL 

l 21'  T'  THE  PRE-PT'I  ORBITAL  PLANE,  UHZP  IN  TURN  NORMAL  TO  J HV  P AND  THE  POSITION  VEC  TOR  • NOW  SINCF  FOR  TH£  "LANDING 
R ’235  ALIGNMENT"  THE  IMU  THC  STABLE-MEMBEP.  Y-AXIS  IS  DEFINEO  THE  SAME  WAY  AS  UHYP,  VVECTY  IS  PRECISELY  VHY. 

’<  -237  FURTHEPMCPF,  THE  Y-TERM  OF  TFT  VHZ  COMPUTATION  OR  IPS  OUT,  AND  THE  FOLLOWING  USEFUL  EQUALITIES  BFCPME  TRUE: 

R '239  UHZP  X = - PUMT7  AND  UH7  P7  = RUM  T X.  DRAW  A PICTURE  TO  BE  CONVINCED. 


R02'«<  NOTE  that  in  THIS  VERSION  CROSS-POINTER  01  S°  L A Y S ARE  OUTPUT  DURING  ASCENT  ANO  AeORTS  AS  WELL  AS  DESCENT. 


?»i 

244 

245 


PFF  1 


21,2565  4 l.74  0 CRCSCOMP  CS  FL  AGW  ROO  IS  RIGFLAG  SET  TO  INDICATE  ASCENT? 

21,  2566  7 4752  1 MASK  RlOFLPIT 

21  ,2567  0 0UC6  1 EXTEND 

21  ,2570  1 5667  O BZF  APSl  AD  Y FS : DISPLAY  L ATVEl  IN  INFRTIAL  A XF  S 


0?  46 
(24  7 
3 248 


"252 
5 253 
?54 


0255 

•>256 

P?57 
C 258 
? 259 


RFF  4 

REF  17 
RFF  1 
PFF  5 

RFF  7 
PEF  2 
RFF  S 

REF  R 
RFF  169 
RFF  Ifll 
PEF  3 


LAST  890 

LAST  890 

1 A ST  890 

LAST  890 
LAST  894 
LAST  894 

LAST  894 
LAST  89  3 
LAST  892 
LAST  894 


21  ,2572 
21,  2573 
21,  ? 574 
21  ,2575 

21,  2576 
21  ,2577 
21  ,2600 
21,  26r  1 
21  ,2602 
21,  26C3 
21 ,2604 
21  ,2605 
21.  ?6Cfc 


4 1724  0 
C OOC 6 1 
7 1726  1 
52  066  0 
3 1722  1 
C CCC6  1 
7 1732  1 
20  066  C 
3 1722  1 
0 0006  1 
7 1733  0 
54  001  1 
3 4755  1 

2C  C66  0 


CS  RUNITZ  NC:  COMPUTF  DCWNRANGE  VELOCITY 

EXT  ENO 

MP  VVECTX 

DXCH  VHZ 

CA  RUN  IT  X 

E XTENO 

MP  VVECTZ 

DAS  VHZ 

CA  R UNI  T X COMPUTE  THE  MORE  SENSITIVE  TERM  IN  OP 

FXT  END 

MP  VVECTZ  «-1 

TS  L 

CAP  ZERO 

DAS  VHZ  VHZ  IN  UNITS  OF  2(5)  M/  CS 


0260 

"261  RFF 

02&2  PEF 


7 LA*T  80  r 


21  ,2607  0 0006  1 

21 ,2610  ? 1731  0 

21,  26  1 1 52  064  1 


EXTEND 

OCA  VVECTY 

DXCH  VHY  VHY  IN  UNITS  OF  2(5)  M/ CS 


0263  REF  9 LAST  808 

5264  REF  53  LAST  888 

0265  RFF  5 (AST  806 


21  ,2612  3 6015  0 

11,  2612  54 

E6, 1417 


CAF  EBANK6  SWITCH  TO  DAP  EBANK 

TS  E BANK 

EBAN<=  M 2 2 


0266  REF 
7267 

"268  REF 
'2 69  REF 

0270  RFF 

0271 

5272  REF 
0273  REF 


4 LAST  806 

4 LAST  894 

1 LAST  R93 
6 LAST  89  4 

2 LAST  894 
4 LAST  R94 


21  ,2614  3 1420  O 

2 1,  26  15  C 000 6 1 
21  ,2616  7 0065  0 

21,2617  52  (71  0 

21,  26  20  4 1 4 1 7 0 

21,2621  C 0006  1 
21,  2622  7 CC 63  0 

21,2623  20  071  0 


CA  M3  2 COS(AOG) 

F X TEND 
MP  VHZ 

OXCH  FORVTFMP 

CS  M22  SIN(AOG) 

EXTEND 

MP  VHY 

DAS  FORVTFMP 
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3274 
0275 
0 276 
'-'2  77 
0278 
7279 
0280 
28  1 
3 2B  2 
r 283 
C 28* 


REF  5 

REF  5 
REF  14 
RFF  7 

RFF  3 
RFF  15 
REF  170 
PFF  182 
RFF  5 


l AST  895 

I A ST  894 
LAST  89  3 
LAST  894 

LAST  894 
LAST  095 
LAST  094 
LAST  894 
I A ST  094 


7 1 ,2625 
71  ,2626 
21,  26  27 
>1 ,2630 
5 1 , ’671 
21,  2632 
21  ,2633 
2 1,  26  34 
?1  ,2635 
31  ,2636 


3 1420  0 
0 0006  1 
7 0066  0 
64  062  1 

4 1417  0 
C CCC6  l 
7 0064  l 
6 0062  0 
54  CC 1 1 
3 4755  1 
20  071  0 


CA 

EXT  END 
MP 
TS 
CS 

GXTFND 

MP 

AD 

TS 

CAF 

OAS 


M32 

VHZ 

1 TEMP  2 
M 22 

VH  Y 
IT  EMP2 
L 

ZERO 

FORVT  EMP 


02 85  PFF 

0286 

3207  REF 
0208  RFF 
0289  REF 
3203 

ii291  RFF 
0 292  REF 


8 LAST  895 

6 LAST  895 

3 LAST  893 
6 I AST  895 

4 I AST  095 
4 LAST  09  5 


2 1,  2637  3 14  17  1 

21  ,2640  C 0006  1 
21,  26  4 1 7 CC65  0 

21,2642  52  07?  1 

21  , ^ 6. 4 3 1 1420  0 

21,  3644  C OOC6  1 
21  ,2645  7 ( 063  0 

21,2646  20  C 73  l 


CA  M22 

EXT  F.ND 
MP  VHZ 

DXCH  LATVFL 

CA  M32 

E XTEND 
MP  VHY 

OAS  LATVEL 


02  93 
(■294 
3295 
'2  06 
02Q7 
3298 
0 299 
0 300 
03n1 
0302 
3333 


RFF  9 

REF  7 
REF  16 
REF  7 

RFF  5 
REF  17 
REF  1 7 1 

RFF  183 
RFF  5 


LAST  R9  5 

LAST  895 
LAST  895 
I AST  895 

LAST  095 
(AST  895 
LAST  89  5 
LAST  895 
LAST  895 


2 1,  2647 
71  ,2  650 
21,  2651 
71,265? 
21  ,2653 
2 1,  2654 
21  ,2655 
21,2656 
2 1,  2657 
21  ,2660 
21,  2661 


3 U 17  1 
C 0006  1 
7 ( C 66  0 
54  062  1 
3 1420  0 
0 'll  C6  1 
7 0064  1 
6 CC 6?  0 
64  OCl  1 
3 4755  1 
?C  C 73  1 


CA  H 22 

EXT  FND 
MP  VH  Z 

TS  ITFMP2 

CA  M32 

E XTEND 
MP  VHY 

AD  ITEMP2 

TS  L 

CAF  ZERO 

DAS  LATVEL 


03. -'4 

0 305 


REF  31  LAST  880 
RFF  4 1 A ST  090 


21,2662  24  0C6 

E 7,1  71  7 


I NCR  3 BANK 
F R ANK=  HOOT  LAO 


D176 

03"7  RFF 
0308  REF 


6 LAST  895 
3 LAST  819 


21,  2663 
21  ,2664 
21,  26  6 5 


C U0C6  1 CR0SS3UT  EXTEND 
3 0071  1 DC A FORVT  EMP 

5 3*743  1 DXCH  FORVEL 


03  09  REF  216  LAST  89  3 


21,2666  0 0002  0 


TC  0 


RFF  7 I AST  €95 
RFF  8 l AST  896 


54  070  1 APSLAO 
54  C 7 1 0 


FORVT  EMP 
FOR VTFMP 


0312 

313  REF 
OJH  RFF 
0315 

3 316  REF 


8 LAST  894 
6 I AST  B=>5 

8 LAST  885 


21  ,267? 

11, 

21  ,26  74 
21,  7675 


C 0006  1 
? 1731  C 
52  r 73  1 

0 0006  1 
3 1712  1 


EXT  END 

OCA  VVECTY 
DXCH  IATVFI 
EXTEND 

DC  A VSURFACE 


9:12  CC  T.  21  ,1970  Z FLY  .049  PAGE  895 
USFR  ‘S  PAGE  NO.  6 E6  S3 

COS (AOG) 

1 

SIN(AOG) 

1 

FORWARD  VELOCITY  IN  UNITS  OF  216)  M tl  S 
SI N(AOG) 

CO  S I AOG ) 

SI  N ( AOG) 

1 

COS  (AOG) 

1 

LATERAL  VELOCITY  IN  UNITS  OF  2(51  M/CS 
RFTURN  TO  SERVICER  FRANK 

MOVE  FORVT  E VP  TC  FCRVFL  FOR  OSKY  OISPLAY 

DURING  ASCENT  AND  ABORTS  COME  HERE  TO 
1 DISPLAY  LATVEL  = SM  Y-AXIS  VELOCITY 


ADD  SURFACE  VELOCITY  8 AC  K IN  SO  APS 
LATVEL  DISPLAY  WILL  BE  IN  TRUE 
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l LANDING  ANALOG  DISPLAYS 

317  REF  7 LAST  895  71  ,2676  20  073  1 

D31«  REF  l 21, 2677  l 2663  1 


USER*  S PAGE  NC.  7 E7  S3 

DAS  LATVEL  STABLE-MEMBER  COORDINATES 

TCF  CROSSCUT  REJOIN  THE  MAINSTREAM 


J • 3L<J  i*»*«t»**tt*,(*,t*«*,»t«**l»**M*««<*«*4*««*)<**t**.**«t«*«*»*4«t»**4*«* 

'■-<?>  LANDING  ANALOG  DISPLAYS  INITIALIZATION 


( 322  REF  2 


IASI  89  3 


21  ,2700  C 2565  0 DISPINIT  TC  CROSCOMP 


FIRST  COMPUTE  BUT  NUT  OUTPUT  VELOCITIES 


7323  PfF 
• 35a  rff 

3325  REF 


31  LAST  80  1 
3 LAST  flt>l 

3?  I A ST  896 


2L.27C1  a CC75  1 
?I ,?  707  7 A 7 36  0 

21  ,2  703  26  075  1 


CS  FLAGWROl  S FT  DIDFlAG 

MASK  DIOFLRIT 
ADS  FLAGWROl 


326  RCF  31  LAST  7«  2 

<32  7 

'328  REF  6P  LAST  891 


21,  2706  6766  1 

21  ,2735  C 0006  1 
21,  27C6  Cc  C 1 2 1 


;af  3 1 T 8 SET  DISPLAY  INERTIAL  DATA  QUTBIT 

EX  T EN  D 

WOR  CHAM2 


0329 
0 33" 
2 331 


LAST 
L A S7 
L AST 


21 ,2707  6 6755  0 

2 1 ,2  710  65*  76  O 1 

21,  27  11  5 5 1 76  1 0 


CS  7 FRO  Z FRO  METER  INDICATORS 

TS  LATVMFTR 

TS  FQRVMETR 


O 332 
D 333 

0336 

0335 


RTF 

RFF 

REF 

PFF 


21  ,2712  3 675"  1 

21,271’  t 5206  1 

11,2714  ) 71 

21  ,2715  1 2566  0 


CAF  BIT6  SET  UP  TASK  TO  FINISH  INITIALIZATION 

TC  TWIOOLF 

ADRES  INTLZF 
TCF  L ANAOFND 


0 3 36 
0*37 

0 338 


RFF 

RFF 


60 


LAST 


I AST 


892 


896 


21.2716  2 675?  0 

21.2717  0 0006  1 
21,?720  r 5 012  1 


I NTLZE 


CAF  RIT2 

EXTEND 

WOR  CHAN12 


ENA6LF  RR  ERROR  COUNTER 


3339 

0360 

361 

0362 


PFF 

REF 

RFF 

RTF 


32 

32 

33 
62 


L AST 
LAST 
LAST 
LAST 


533 

896 

89  f 
89  6 


21,  272  1 6 1300  1 

21  ,2722  7 6766  0 

21,2723  27' ?CC  1 

21,  2726  0 Si72  0 


CS  I MODE  S33  SET  INERTIAL  OAT  A FLAG 

MASK  (1IT8 

AOS  I M0DES33 

t:  taskover 


*..347  **«*««•*  ******  *****************  *******  ******** 

R3366  LANDING  ANAtCG  DISPLAYS  3 E SF  T POLTINF 

8 0 36  5 **  ************  **************  44  i t ************  *********************  ******* 


1 366  REF 


(AST  896  21,2725 


25(5  C 01 SPRSET  TC 


FROST  CMP 


FIRST  COMPUTE  BUT  NOT  OUTPUT  VELOCITIES 


0367  RFF  6 LAST  896 

0368  RCF  33  LAST  896 

3369  REF  36  LAST  896 


21, 2726  6 6736  0 

21  ,2727  7 0075  1 

21,  2730  56  C 75  l 


CS  DIOFLRIT  RESET  DIDFLAG 

MASK  FLAGWRD 1 
TS  FLAGWROl 


"151 

D 352 
0353 


PFF  33  LAST  80fe 
RFC  36  LA  FT  P96 
RFF  259  L AST  892 
PFF  61  1 A ST  896 


21,273  1 ?,  6766  I 

1 1 ,?  7 3.'  7 1300  1 

21,27  3 3 lo  oco  0 
21  ,2736  3 6752  0 


CAF  R I T 8 WAS  INERTIAL  DATA  JUST  DISPLAYED? 

MASK  I MODES  33 
CCS  A 

CAF  RIT?  YES:  DISABLE  RR  ERROR  COUNTER  AND 
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9:  12  HI  T.  21  ,1970  ZFLY 
USER'S  PAGE  NO. 


.049  PAGE  897 
8 E7  S3 


035*.  REF  3 «,  LAST  896 

0355 
3 356 

0357  RCF  5C  LAST  896 


21. 2735  6 4744  1 

21.2736  4 0000  0 

2 1,  2737  C C0C6  1 
2 1,?  740  03  012  l 


AD  3IT8  NO:  RESET  DISPLAY  INEPT  I AL  DAT  A 0 J I B IT 

com 

F XTEND 

WAND  ;HAN12 


0 358 
3359 
0360 
0 361 


RTF  3*  LAST  R97 
REF  35  | *S1  R9fc 

REF  36  LAST  897 
REF  2 LAST  896 


21  ,2  741  4 4744  0 

21,  2742  7 1300  1 

21.2743  55*300  1 

21.2744  1 2564  C 


CS  R IT  P 

MASK  I MODE  S3 3 

TS  IM0DES33 

TCP  LANACENC 


R 1*362  C**************  ***«***#**<■  »£«***«*«*«*),»*«,*,»««**' 

T 1 363  CONSTANTS  FOR  LANDING  ANALCG  CISPLAYS 


R0365 

AO  366 

AO  36  7 

40369 

A3  369 

A 0370 

AD371 

03?? 


CONSTANTS  CN  A-CARCS  ARE  FOUND  IN  THE  CONTROLLED  CONSTANTS  SECTION 

LANAKPIP  DEC  .0512 

MAXVEL  OCT  C0466 

MAX  DR  ITS  OCT  0 1034 

VELC3NV  DEC  .03594 

ALTPCONV  DFC  . 16P2P 

ALTCUNV  DEC  . 69954 

REF  2 LAST  545  5020  PITSET  = PR  106 


SCALES  PIPAS  TO  UNITS  OF  ?(5>  K/CS 

198.645  F/S  IN  UNITS  OF  2(5  1 M/CS 

ABOUT  300  F/S 

SCALES  VEL  AT  ONE  M/CS  TO  .5571  F/S/BIT 

SCALES  AL  TP  AT  2f  2)  “/C  S TO  .5  F/S/BIT 

SCALES  ALTITJDE  AT  2 C 1 5 > M TO  9.3fl  F/BIT 

CPOSS-POI  NTFP  DPI  VF  BITS 


■<  376  *««««  t#**o  ***#  ****** ***<,****<.-****$ «<««*« *»»««»««« 64: «****« *»««««««* 

R03  77  SLBROUT  INFS 

* ' 3 78  ********#**#**«•#•  a*B  »***»«» «**»*»«  ****** 


C 39  l 
3 382 
0383 
0 3R4 

0?85 

>386 


REF  3Q  L AST  897 
RFF  260  LAST  896 
REF  40  l A ST  8«7 


21,2746 
21  ,2  747 
21,  2750 
21  ,275  l 
21 ,2752 
2 1,  275  3 
21  ,2754 


3 4755  l 
C 0006  1 

1C  C6l  1 
IP  COO  0 
22  061  0 
1 2755  0 
1 2757  1 


LAD LI  MI T TS 
CAF 

EXT  END 

DV 

CCS 

LXCH 

TCF 

TCF 


I TFMPl 
ZERO 

I TEMPI 
A 

ITEMP1 
♦ 2 
♦3 
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L L ANQING  ANALOG  DISPLAYS 


038  7 
0388 
3 389 

03*?0 


PFF  17?  LAST  835 
Pfr  217  I A ST  895 
PEL  91  LAST  897 
OFF  ? 1 8 LAST  898 


21,  2755  3 000  1 0 

21*2756  r 0002  0 
21,  2157  5 CC£l  1 

21  *2760  0 Q0C2  6 


CS  I TEMPI 

TC  3 


r'  391 

339? 
0 393 
0 399 

03  95 
0396 
3337 

0398 
0 39° 

)<OT 

0901 

09f'2 


09fi3 
- e,r,e, 
3 9.  5 
0906 


P T F 9 7 
8 F F 9 3 
PFF  59 


REF  99 
PFF  6 
RFF  7 

REF  95 
PFF  21 
REF  22 

RFF  173 
REF  1 79 
REF  ? 1 9 


l A ST  »9P 
I AST  898 
LAST  881 


LAST  898 
LAST  88 1 

LAST  898 

l AST  898 
I AST  885 
LAST  89  8 

LAST  898 
LAST  898 
LAST  898 


l ,7  761 
1*  1761 
I *?  763 
l . ? fc  9 
1,  2765 
l * ? 766 
1,  2 7C7 
1,2  770 
l ,2771 
1,  2772 
I ,2773 
1 , 2 779 
1,  n775 
[ ,7  776 
1,  2777 
1,  3000 


56  CM  0 
• C C 6 1 0 
7 9736  0 
C CCC6  1 
1 2772  0 
3 0061  0 
f 9139  n 
6 9739  0 

1 2775  1 

2 OCE 1 C 
6 97  36  1 
t 9736  1 
22  007  0 
56  001  0 
5fc  CC1  0 
0 0002  0 


XCH  IT  E“P1 

CA  [ TEMPI 

WASK  8 I T 1 9 

EXTEND 
8ZF  *5 

CA  [TEMPI 

AO  NFG1/2 

AD  NFG1/2 

TCF  +9 

CA  I TEMPI 

AD  HALF 

AD  HALF 

ZL 

XCH  L 

XCH  L 

TC  Q 


10  90  7 **t»*****>*#*,****t##******#»**s*#**«t*#*»**«i**»*e»**t**4*t***** 
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L FINDCDUW  - GUI  DAP  INTERFACE 


USER'S  PAGE  NC. 


EO  SI 


R0001  PROGRAM  NAME:  F I NOCOUW 


ROOD?  MOO  NUMBER:  1 6£  C7  15 

R0003  MCO  AUTHOR:  KLUMPP 


30r-  A DBJFCTS  OF  MCO:  1. 

2. 

RQ0.0.6 

RD007 
ROOOR 
3 0009 

ROOJP  3. 

ROCll 
3 0012 
RDM  3 


TO  SLPPLY  COMMANDED  GI M8AL  ANGLES  FOR  NOUN  22. 
T(1  MAINTAIN  CORRECT  ANO  CURRENT  THRUST 
OIRECTICN  DATA  IN  ALL  MODES.  THIS  IS  DONE  BY 
FETCHING  FOR  THE  THRUST  DIRECTION  FILTER  THE 
CDUD'S  IN  PNGCS-AUTL1,  THF  C D U'  S IN  ALL  OTHER 
MODES. 

TC  SLR  STI  T UTE  A STC'PRATE  FOR  THE  NORMAL 
AUTOPILOT  COMMANDS  WHENEVER 

1)  NCT  IN  PNGCS-AUT  0 , OR 

2)  ENGINE  IS  OFF. 


R0»'14  FUNCTIONAL  CESfRIPTICN: 


RO 1 15  FINOCDUW  PROVIDES  THF  INTERFACES  BETWEEN  THE  VARIOUS  POWERED  ELITE  GUIDANCE  PROGRAMS 

WO'  '/  AND  TFF  DIGITAL  AUTOPILOT.  TFE  INPUTS  TD  FINDCDUW  ARE  THE  THRUST  COMMAND  VECTOR 

> 1 IP  AND  THE  WINDOW  COMMAND  VECTOF,  ANC  THF  OUTPUTS  ARE  T HC  GIMBAL  ANGLE 

RVZ'  INf'-F>FNTS,  THF  COMMANDED  A T 7 1 T LDE  ANGLE  RATFS,  AND  THE  COMMANDED 

ROD?1  ATTITUDE  LAG  ANGLES  (WHICH  ACCOUNT  FDR  THE  ANGLFS  BY  WHICH  THF  BOO Y WILL 

300  22  LAG  RFHIND  A RAMP  COMMAND  IN  ATTITUDE  ANGLE  DUE  TO  THE  FINITE  ANGUl  AP 

RD323  ACCELERATIONS  AVAILABLE). 


' FINDCDUW  A | INFS  THE  FS  T I u AT  E T THRUST  VFCTOR  FROM  THE  THRUST  DIPfcCTIPN 

’5  T II  WITH  THF  THRUST  ~ P MMA  NO  VECTOR,  AND,  WHEN  XCVINHIR  SET, 

R-"f»26  ALINFS  THE  ♦/  HALF  OF  THE  LM  ZX  PLANE  WITH  THE  WINDOW  COMMAND  VECTOR. 
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JAP:  AS  Sf  MHLE  REV  IS  IGA  56  OF  AGC  PRC  CRAM  2 ERL  INA  BY  ZOROASTER 

FINOCDUW  - GUI  DAP  INTERFACE 
PV?7  SPEC  IFIf  AT  IONS: 


ZFIY 
USE®  *S  PAGE  NO. 


.0*9  PAGE  93j 
EO  S3 


ROOlO 

*0031 

R333? 


T NT  F F P'-'  FT  IV  F CALL  TO  FINOCDUW  WITH  THE  THRUST  COMMAND 
VECTOR  IN  MPAC.  INTERPRETIVE  CALL  TO  F INOCDUW  -2  WITH 
TEF  TFPIJST  COMMAND  VECTOR  IN  IJNFC/2  AND  NOT  IN  WPAC. 


R 0033 
P0T3* 


NORMAL  INTERPRETIVE  IN  ALL  CASES 

1.  NORMALLY  ALL  AUTOPILOT  CMOS  ARE  ISSUFO. 


R0039 
P.GClAO 
*004  2 
RTDA3 
RC.f  <,4 
ROD  45 


CiOAO  1 IF  INPL15  DETERMINE  AN  ATTITUDE  IN  GIMBAL  LCCK. 

FINCCCUW  CP  IVES  CDUXI)  AND  CDUYD  TO  THF  ROD  VALUES, 
HLT  CFIVFS  COUZD  CNLY  TC  THE  GIMBAL  LOCK  CONE. 

' -*>)?  IF  UNFC /2  OP  UNWC  /2  PRODUCE  OVERFLOW  WHEN 

UNIT  I7ED  US  ING  NORMIJNIT.  FINOCDUW  ISSUES 
STOPRATE  AS  ONLY  INPUT  TO  AUTOPILOT. 


R0C*6 

* 0L47 
RDDAR 
ROOSf 

*0051 
PDDS2 
R005'» 
ROD  55 
RD75IS 

* 0057 
R0058 
R 0059 

* 0060 
RDD61 
R0I62 


J NFC/  2 THRUST  COMMAND  VEC  TOR  , NEED  NOT  BE  SFM1-UNIT. 

UNWC.  / ? WINPCW  CCMHAND  V ECTOR,  NEED  NOT  BF  SEMI-UNIT. 

OGflBIAS  POSSIBLE  BIAS  FOR  OUTER  GIMBAL  ANGLE  (7ER0E0  IN  INITCOUW) 
KOVINHIB  FLAT  DENOTING  X AXIS  0VF*RIDE  INHIBITED. 

CSMDOCKO  FLAG  CENCTING  CSM  DOCKED. 

STEERSW  FI  AG  DENOTING  INSUFF  THRUST  FOR  THRUST  DIR  FLTR  • 

D£  LCD  L X , Y , 7 
OMEGAPD,  ♦ 1,  +2 
DC  LPF  RCR , + l , *2 

:PHI  ,♦  It  * 2 FOR  NO  UN  2 2 

FINDCDUW  DESTPCYS  SINCCUX.Y.Z  AND  COSCDUX.Y.Z  BY 
WRITING  INTO  THESE  LOCATIONS  THF  SINES  AND  COSINES 
OF  TFE  CDUCS  IN  PNGCS-AUTQ,  OF  THE  COU’S  OTHERWISF. 


UN  ITS  OF  P I . 


5AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL1NA  BY  ZOROASTER 


FI  NOCDUW  - GUIDAP  INTERFACE 
P0063  INITIALIZATION  FOR  FINOCOUW 


O'  64 

.1  165 
0066 


, 

30,  30  64 


BANK  30 
SFTLCC  FCOUW 
BANK 


3 3 68 

0069 
00  70 

0071 

0072 
3 373 
Of  74 
00  75 


REF  2 LAST  139 
REF  1 


30  ,3064 
797  3C,3C65 

30,  3066 
774  30,3067 

140  3C,3C7C 

843  30  ,3071 

30,3072 


EBANK=  ECOUW 
COIWT*  t.S/FCDUN 


77331  0 
C3300  1 
00000  1 
06516  0 
C3267  1 
C 326  1 1 
776  16  0 


INITCOUW  SSP 


R0076  FINOCOUW  PRELIMINARIES 


00  77 
3)73 

0079 

0080 
3)81 
0082 
0083 


REF 

PEF 


30  ,3073 

21  LAST  843  30,  3C74 

30,3075 

5 I AST  841  30,3076 

30, 3077 
30  ,3100 

2 LAST  139  3C.3101 


77776  1 
C 3253  0 
40200  1 
61075  1 
OOC23  0 
77420  1 
03246  1 


FINOCOUW  BOV 


U NFC/2 
SF  TPD 
FINOCOUW 


9 0084 


WORE  I-AIISKF  FTING 


0085 
3)86 
Of  87 

0088 
3C-R9 
0090 
))9  1 
0C92 


REF  1 
RFF  54 
RFF  2 

REF  31 
RFF  6 
RFF  261 
REF  88 


I A ST 
I AST 
LAST 
l AST 
LAST 


872 

7)9 

897 

892 

139 


■ 

• ■ 

30,3104 

• 

)f  , 3 106 

3 1 1 ,3167 

TO,  3 1 10 

3),  3m 


55*645  0 

3 9111  0 
7 4737  1 

10  000  0 
3 4753  l 
55*647  1 


CA  ECCUWL 

XCH  FRANK 

TS  EC  PLIWUSP 


4 LAST  808 


JO,  113 


OAPROOI S 
FLAGCCOW 


9:  12  O;  T.  21  ,1  970 


PAGE 


901 


ZFLY  .04  9 


USER'S  P AG  F NO.  3 


EC  S3 


FI NOCDIJW  -2:  ENTRY  WHEN  UNFC/2  PRE-ST(IRU 
INPUT  VECTORS  N EEO  NUT  PE  SFM  I-UNIT 
FINOCOUW:  hNTPY  WHEN  UNFC/2  IN  MPAC 
INTERPRETER  NOW  INITIAL  I7E0 
LCCS  0 THRU  21  FOR  DIRECTION  COSINE  MAT 

SAVE  RETURN  AODRESS 


S FT  6B AN  K 

SAVE  USER  *S  EBANK 


CSMOOCKO  MUST  NCT  BF  8IT15 
INOEX  IF  CSM  DOCKED 


XOVINHIR  MUST  NOT  BE  BIT  15 

SET  Tf  POS-NON-ZERO  FLAG  PNGCS  AUTO  NUT 


FLAGOODW  = ANY  PN  Z NUMBER  IF  XU  V INHIBTD 


GAP:  ASSEMBLE  REVISION  *6  OF  A3:  PRCGRAM  ZERLINA  BY  ZCROASTER 


L FINOCOUW  - GUI  DAP  I NT  EPF  ACF 

*0f97  FETCH  BASIC  DATA 

3099  30,311 6 C CCC4  0 I MU  NT 


0099 
0 100 
Olnl 
010? 
3103 
Olt  4 


RFF 

REF 

PFF 

RFF 

REF 

REF 


IS 

3 


13 

3 


LAST 
LAST 
LAST 
L AST 


85  3 
8B  1 
878 

881 


30,? 120 
3c  , 3 1 2 1 
3C  ,3122 
l'.,  3123 
30 , 3 l 24 


3 00  3? 
54  771 

3 0033 


54  765 
2 CC34 
54  767 


0 


0 

0 


CA  COUX 

TS  CDUSPOTX 

ca  :ouy 

TS  CDUSPOTY 

CA  CDUZ 

TS  CDUSPPT7 


0 l 1 7 
0108 

Olr  9 


PFF  37  I AST  P93 

RFF  11  LAST  891 
REF  262  LAST  901 

RFF  1 


30,3125  3 474?  1 

?C  , 1 126  C 0006  1 
30  ,3127  02  0 30  0 

20,31 2C  1C  CCC  0 

30,  3 1.3  1 1 2 1 46  0 


CA  6IT10 

E XTFND 

PANO  CHAN  30 

CCS  A 

TCF  PAL'TND 


'll' 


'111 
nil  2 
• 1 13 
3114 


PFF  60 

REF  7 
RTF  263 
PFF  ? 


L A CT  flop 

LAST  887 
LAST  002 

l AST  90  2 


3 r , 3 1 3? 
2 3 13  3 

30,  3134 
30,3135 
JC,  3136 


02  031  1 
10  000  0 

1 2146  0 


CA  PIT  14 

F XTFND 

RAND  CHAN31 

CCS  A 

TCF  PAUTNC 


0115  RFF  5 LAST  ®r 1 


30  ,3137  55*651  0 


TS  FLPAUTND 


0116  PFF 
' 11 7 REF 
0118  PFF 
3119  PFF 
01 ?0  RFF 
0121  RFF 


LAST  529 
LAST  93  2 
LAST  52  9 
l AST  90  2 
LAST  5?ft 
LAST  90  2 


3c,  3 14  1 
30,3142 
30,  3 143 

30.3144 

30.3145 


3 1635  0 
f 4 765  1 
3 1636  0 
54  767  0 


CA  COUX  D 

TS  CDUSPOTX 

CA  CPUYC 

TS  CDUSPCTY 

CA  CDli?  D 

TS  C DUS  POT  Z 


9:12  OCT.  21,  1970  Z FL  Y .C49  PAGE  90* 
USER*  S PAGE  NG.  4 E6  S3 

RELINT  AT  PAJTNO  (TC  INTPRET) 

FFTC.H  CDUX,C9UY,CDU7  IN  ALL  CASES,  BUT 
P FPL  AT  F BEIOW  IF  PNGCS  AUTO 


PNGCS  CONTROL  BIT 

NOT  PNGCS  I PI TS  INVFRTEC1 
AUTO  MODE  0 IT 

NOT  AUTO  (BITS  INVERT  FC) 
RESET  FLAG  PNGCS  AUTfl  NCT 


PNGCS  AUTO:  FETCH  CDUXD,CDUYO,CDUZD 


GAP:  ASSEMHl  6 REVISION  56  Of  A3C  PRCGRAM  ZERLINA  BY  ZOROASTER 


l FINOCDUW  - GUI  CAP  INTERFACE 

5 0 122  FETCH  INPUTS 


1 24 
' 125 
r 1 26 
0127 
312B 
n12Q 
U130 
3131 
132 
0 1 33 

.->13  4 

0135 

3 136 
1 3 7 


RFF  155  LAST  873 

RFF  9 LAST  797 
REF  1 

RFF  10  LAST  901 

RFF  10  LAST  90  3 
REF  T LAST  R60 
REF  1 

REF  13  LAST  B57 
REF  1 
REF  1 

RFF  A LAST  8 IQ 


3C, 3 1 46 
3 ,157  77635  0 

30.3150  ?I71  1 

To,  7 1c;  1 2400 1 n 

30  ,3152  03261  1 

30,3  153  4 7 C 3 4 0 

30.  1l  c4  21710  1 

30,3155  47622  1 

TC,  3 156  240  15  0 

30  ,3157  00325  0 

30,3  160  c 340  4 1 

To , 3 1 6 1 6 1734  0 

3^,3  16  2 450CO  0 

30,  3163  61177  1 

3C,31  64  47676  : 


TC  1NTPRET 

P.TB 

NORMUN  IT 
STOVL  UNX/2 
JNWC/2 
RTB  RTB 

NORMUNI T 
QU  I CT  P 1 f, 
STOVL  UNZ/2 
DEI  V 
80VB  UNIT 

NOA  TTC  NT 
BOV  CALL 

AFTRFLTR 

*SMNR* 


0 605  1 0 PAUTNO 


10138  THRUST  DIRECTION  FILTER 
3 1 39  30,  3 165  77776  1 F XI  T 


l '*  i 

0H2 
014  3 


. 1 

' , 17 
30,31 71 


3 167  1 

22  157  I 
0 3467  1 
55*67i-  0 


CA  UNFVY/2 

LXCH  MPAC  *3 

TC  F L TR  SUB 

TS  JNFVY/2 


3 144 
f 145 
0 146 

f.  1 4 7 


REF  1 
RFF  385 
REF  2 
RFF  2 


LAST  m3 
I A ST  9C3 
LAST  90  3 


• ,3172 
30  ,3  173 
30,3  174 

30,  3 175 


3 1672  0 
22  161  1 
0 3467  1 
55*672  1 


CA  UNFVZ/2 

LXCH  UP  AC  *5 

TC  FLTRSUB 

T S UNr  V7  /2 


014P  REF  156  LAST  90  3 


30  ,3176  C 6051  0 


TC  INTPRET 


t 


9:12  OCT.  21,  1970  Z FL  Y .049  PAGE  903 
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ENTERING  THRUST  CMC  STILL  IN  MPAC 
SEMI-UNIT  THRUST  CMD  AS  INITIAL  UNX/2 

ALWAYS  ROD  n OBTAIN  TRIGS  OF  CDUD'S 
SEMI-UNIT  WINDOW  CMC  AS  INITIAL  UNZ/2 

AT  LEAST  CNE  ENTERING  CMD  VCT  ZERO 

IF  UNIT  DEL V OVERFLOWS,  SKIP  FILTER 
YIELDS  UNIT(DFLV)  IN  VFH  CCORDS  FOR  FIT  R 


FOR  RESTARTS,  UNF  V/2  ALWAYS  INTACT,  MPAC 
RENEWED  AFTER  RET1JPN  FROM  CALLER  , 
TWO  FILTER  UPCATES  MAY  BE  DUNE. 
UNFV/2  NEED  NOT  BE  FXACTLY  SEMI-UNIT. 


COMPLETFS  F IL  TER 


,AP  : A S St  H0  LF  Rt  VI  SI  UN  56  Gt  AGC  PR  F GRAM  7E  kL I NA  BY  ZGkGAST ER 
L FfNOCOUU  - GU  I CAP  INTER  FACE 


POIA9  FIND  A SUITABLE  hINOCH  POINTING  VECTOR 


0150 

0151  PFF 
15?  RFF 

3153 

015A  REF 
n 155  REF 


3 LAST  95  1 
1 

? LAST  903 


3Q,3?C1 

ir,  ?202 

3 C ,3?03 
10,3 


61205  1 
A6175  0 
lc 

61507  1 


AFTRFLTR  SLGAO 


VLOAO 


HHI  l 

- LAGOODW 
FETCFZNP 
CALI 

UNZ  /2 
UNWCTFST 


0156 

167  P6F 
7 1 6fi  RFF 
C'l  59  RFF 


3G,  3705 

1 30,3206 

7 I AST  or<.  10,  3?C7 

? LAST  93A  3C.3210 


77775  1 
02153  1 
3 AC  1 5 1 
61507  1 


FETCH7N3  VLOAD 

7NBP  IP 
STCALL  UN7/2 

UNWC TF  ST 


0 160 
3 161 
162 


REF  10  | AST  «B2 
RFF  A I AST  90A 


30,3211 

1 - 

30  ,7213 


57575 
i < 137 
Of  0 15 


V LOAD 
STORE 


V COMP 
Xf.'PPl  P 
UVI?  /2 


R?163 


COMPUTF 


THE  REQUIRED  D I PEC  T I C N COSINE 


MATRl X 


0 1 6A 
( 1 66 
1 66 
ri  1 67 
0 168 
3169 
0170 


' 171 
( 172 
' 173 
1 1 7 A 
0176 


','176 

3177 
( 178 
179 


0 1 80 
181 
3132 
183 


0 IRA 
3165 


RFF 

REF 


REF 

REF 

REF 

PEF 

REF 

RFF 

RFF 

PEF 

REF 

PFF 


2 


3 

6 

3 


6 

8 


LAST  90 A 
LAST  90  3 

1 AST  90A 
LAST  9DA 

LAST  90  3 

LAST  90  3 
LAST  90  A 
LAST  90A 
LAST  93  A 

LAST  93  A 
LAST  90  A 


30, 321a 
30,3215 
30, 2216 
30  * 3 ? 1 7 
70, 2220 
7C, 3221 
30  ,3222 
30,3223 
3C  , 7 22 A 
. 

70,  2226 
30, 3227 
30,3230 
30, 3 >31 
1 , 12 
. 

30, 323a 
30  ,3235 
3C, 3236 
30,  323  7 
1 ,324 
30,  32 AT 


00015  0 
CtCOl  0 
AIA56  0 
76A35  1 
. oot  ( 
00015  0 
63361  0 
03273  1 
51361  1 
03271  0 
53372  1 
00001  0 
77656  1 
0000 l 0 
76A35  1 
OOC  1 5 0 
00007  0 
A 7276  1 
00OC1  0 
77772  0 
CCC 1 5 0 


VLOAD  VXV 

JNZ/2 

UNX/2 

UNIT  PUSH 
VXV  VS  LI 
UNX/2 
STORE  UNZ/2 
VXSC  PDVL 

UNF V? /2 
VXSC  BVSU 

UNFVY/2 
VSL  1 VAO 

UNX/2 

UNI  T 

STORE  UNX/2 
VXV  VS  LI 
UNZ  /2 
STORE  J NY/ 2 
VCOMP  VXV 

UNX/2 

VS  LI 

STORE  UNZ/2 


9:12  OCT,  21,  1970  Z F L Y . 0A9  PA&fc  90A 
USER'S  PAGE  NC.  6 E6  S3 


IF  XGV  NOT  INHIBITED,  GO  FETCH  ZNB 


l ANO  -X  CAN'T  ROTH 


PARALLEL  UNFC/2 


UNY/2  FIRST  I TEPAT1  ON 


-UNZ/2  FIRST  I TE  RATI  ON 

EXCHANGE  -UNFV7/2  UN? /2  FOR  UNY/2 

RUST  OF  SHALL 

YIFIDS  -UNFVY/2  UN  Y /?- UNF  VZ /2  UNZ/2 

MUST  BE  SMALL 


TOTALLY  ELI  MI  NAT  FS  THRUST  POINTING  ERROR 
UNX/2 

-UNZ/2  HAS  STORED  HERE  REMEMBER 
UNY/2 


GAP:  ASSEMBLE  REVISION  56  IF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


I.  F I NDCOUVi  - GUI  CAP  INTERFACE 

P 0 1 RA  COMPUTF  THE  REQUIRED  GIMPAL  ANGLES 

Ol07  3c  t 3 26  2 77626  1 

'188  »FF  ] 30  ,3  263  61517  0 

J 1 09  30, 3266  77776  l 


RO1  90 


BIAS  CUTER  GI HUAL  ANGLE 


3 1677  0 
26  156  0 


9:12  CCT.  21 ,1970  Z FLY 
USER'S  PAGE  NC. 


.069  PAGE  9G5 
7 E6  S3 


CALL 

NB2CDUSP  YIELOS  THE  R30  GIMBAL  ANGLES,  2'S,  PI 

EXI  T 


CA  OGABIAS 

ADS  MPAC 


"''193  LIMIT  THE  M I POLE  GIMPAL  ANGLE  f COMPUTE  T HF  IJNL  IM  IT  ED  G Iu  BAL  ANGLE  GHGS 


r 1 Q6 
1157 

1 |6R 
• 190 
3200 
02C1 
0?<J2 

02  03 


REF  387 
RFF  175 
REF  l 
REF  8 
RFF  388 

REF  3(19 


REF 


905  30,  3?67  2 01  56  C 
898  1C,  ^ 250  56  LC1  1 

30,3251  3 >757  1 

flfc  2 30,  3252  C 3713  1 

" 5 30,3253  56  156  0 

. 

"'6  3r  , 3 2c5  20  1 5 6 1 

30  ,3256  t 0006  1 

30,  3257  I - 61 

30,3260  l 3762  1 


CA  MPAC  *2 

TS  L 

CA  CDUZCL  IM 

TC  LIMITSUP 

XCH  MPAC  +2 

EXTEND 

MSU  MPAC  f 2 

EX  T EN  D 

0ZF  *2 

TC  F ALARMMGA 


L IM  IT  THE  MGA 

CAN'T  L XCH : NEED  UNLIMITED  MGA  FOR  ALARM 

YIELDS  LIMITED  MGA.  1 BIT  ERROR  POSSIBLC 
BECAUSE  USING  2'S  COMP.  WHO  CARES? 

THI S BETTER  Y I ELD  ZERO 


0206 


30,3261  0 0006  0 MGARET  INHINT 


RTF  59  LAST  888 
RFF  6 LAST  862 


30,  3 2<>2  2 2 CC7  C 

39,3263  3 6752  0 

30,3266  56  162  1 


DELGMBLP  TS 


TWO 

TEM2 


R EL  IN  T AT  TC  INTPPET  AFTER  TCQCDUW 


0208 

0209 

321? 

0.211 


'212 
•'213 
' 216 
••215 


RFF  176  LAST  905 

REF  5 I AST  622 

PFF  186  LAST  897 
REF  6 LAST  906 


30,  3 26  5 3 0001  0 

. 

30, 3267  7 CCCO  0 

3o,  ??7u  6 6350  3 

30.3271  C 0006  1 

30. 3272  6 3275  1 

30  ,3273  3 6755  1 

30,3276  55*650  1 


CA  L 

EXTEND 

SQUARE 

AD  HI  5 

EXT  END 

BZMF  ♦ 3 

CA  ZERO 

TS  FLAGOOOW 


TO  PREVENT  FALSE  STARTS  ABOUT  X,  ZERO 
FLAGOOOW  IF  DELGMB7  DR  Y TOO  BIG. 

WITHIN  1 BIT  OF  -(65  DEG  SQUARED) 


9218  PEF 

0219  RFF 

0220 

3221  PFF 

0222  RFF 

0223 

0226  REF 
r 225  REF 
3226  REF 


7 

3 or 

8 

10 


LAST 
I A ST 
LAST 

LAST 


90  5 
528 


9 LAST  90  5 
17  LAST  902 

IP  LAST  90  5 
2 LAST  160 
177  LAST  905 


30,  3 275  5C  16  2 0 
39  , '2  76  3 ->1  66  1 

30,  3277  EC  162  0 

30,3300  56  321  0 

1P.33C1  C 0C06  1 
3C,  3 3f  2 «=  0162  0 

,33 

7.-  , ? 3C6  6 'CCC  0 

30,  330  5 50  H2  0 

30,3307  56  CC1  1 


INDEX 

CA 

I NDE  X 
TS 

EXT  END 

1 NOEX 

MSU 

COM 

INDE  X 

TS 

TS 


MPAC 
TE  M2 

: phi 


TEM? 

CDUXO 

TE  M2 

-DELGMB 

L 


OUTPUTS  TO  NOUN22 


NO  MATTER  THAT  THESE  SLIGHTLY  DIFFERENT 
FROM  WHEN  WE  INITIALLY  FETCHED  THEM 

-UNLIMITED  GI  MB  Al  ANGLE  CHGS,  l'S,  Rl 
FOR  PRECEDING  TEST  ON  NEXT  l OOP  PASS 


GAP:  ASSFMBLE  REVISION  56  OF  A SC  PRCGRA"  ZfcSLINA  BY  ZOROASTER 

l FINHCCUW  - GL'IRAP  INTERFACE 


9:12  OCT.  21,  1V70  Z FL  V .G99  PAGE  906 
USER'S  PAGE  NO.  P F5  S3 


REF  11  LAST  905 
REF  1 


3C.3-U  10  19?  1 

30, 331  l 1 3269  C 


TEM2 

OE  LGPBLP 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 

F IN  DC  DU  Vl  - GUI  HAP  INTERFACE 
P022Q  ERANCFFS  TC  NOATTCNT 


9:  12  OS  T.  21, 197G  ZFLY 
USER'S  PAGF  NO. 


.049  PAGE  907 
fc  6 S3 


"2  32 

1 233 

02  3«* 
<2  3N 


KC-F 

REF 


30,  3316  0 00C6  1 

30  ,3317  1 3736  1 


MASK  ENGONBIT 
F XTEND 

BZF  NOATTCNT 


NOT  PNGCS  AUTO 


ENGINE  NOT  ON 


GAP:  ASSEMBLE  REV  I SIGN  56  OF  A&:  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT  . 21,  1970  Z Fl  Y 


.049  PAGE  908 


L FINDCOUH  - Oi  ICAP  INTERFACE  USER'S  PAGF  NC.  10  E6  S3 

0 0 236  LIMIT  THE  ATTITUOE  ANGLE  CHA  EGE  S 

•<  237  THIS  SECTION  LIMITS  THE  ATTITUDE  ANGLE  CHANGES  ABU  UT  A SE  T Of  OP  THOGONAt  VFHICLE  AXES  X , Y PR  I ME,  ZPR  1M  E . 

7 -23Q  The  sc  AxfS  criNCIOE  WITH  T H F CCMHANOED  VEHICLE  AXES  IF  AND  ONLY  IF  COUXD  IS  ZERO.  THE  PRIME  SYSTEM  IS 

K'?4I  THE  COMMANDED  VEHICLE  SYSTEM  OflTA  If  0 A80UT  THE  X AXIS  TC  BRING  THE  Z AXIS  INTO  AL  IN  EM  ENT  WITH  THE  MIDDLE  GIH3AL 

3.243  AXIS.  ATTITUOE  ANGLE  CWANCFS  IN  THF  PRIME  SYSTEM  ARE  RELATED  TO  S**ALL  OIMPAL  ANGLE  CHANGES  MY: 


33246  * 

*1 0247  • 

R0248  • 

RP24Q  * 


-OEIATTX  * * l 

-DFLATTYPRIME  * = * ! 
-DEI  ATT  /PRIME*  * 0 


SI  N(CDLZO)  0 

crsiccuzc)  o 

0 1 


-DELGMBX  * 
-DEL&MBY  * 
-DFLGMBZ  * 


025 

. 251 

"253 

254 


REF 

REF 

RFF 

REF 


I AST 
I AST 


905  30,3320  23'676  l 

9C  1 :•  , 232  1 51  * 647  C 


30,3322  3 3753  0 

3713  1 

•>'  8 30,  3324  c c ' 6 76  0 


LXCH  -DELGHB  +2  SAME  AS  -DE  L A T TZPR  I ME  UNLIMITED 

I NDEX  NDXCDUW 

f A OAZMAX 

TC  LIMITSUR 

TS  -DELGHB  *2  -DELGMRZ 


- 256 
'2*7 
r ?5B 
■*259 
0260 
"26  1 
3262 
>263 
264 


REF  5 

REF  3 
PFF  178 
RFF  4 
REF  1 
REF  10 

REF  4 
RFF  6 


LAST  9C8 

LAST  496 
LAST  905 
(AST  90  ft 

LAST  908 

LAST  908 
LAST  *>rfl 


30,2326 
30,  3327 
3"  ,3  330 
30,  3 33  1 

30.3332 

30.3333 
1C, 3324 
30  ,3335 
30,3336 


3 1675 
C CCC6 
7 0 745 
54  001 
*1*647 


3 3755 
0 3713 
C CCC6 
10  745 
57*675 


0 

1 

0 

0 

1 

1 

0 


CA  -OELGMR  +1 

EXTEND 

MP  COSCOUZ 

TS  L 

INDEX  NDXCDUW 

CA  3AY/2MAX 

TC  LIMITSUR 

E XTEND 

f)V  CDSCDUZ 

XCH  -DEL  GM fl  ♦! 


YIELDS  -DELATTYPRIME/2  UNI  IM  IT  FD 


-DEL  GM  BY , FETCHING  UNL  IMITED  VALUE 


0265 
0 266 
J2S7 
0268 
0 269 
3273 

0271 

0272 

0273 

0274 
32  75 
0276 
1*277 
3279 
0279 
0 280 
0281 
0282 
3293 

A02B4 


RFF  3 


REF  7 
REF  179 
REF  5 
PEF  1 
PFF  11 
REF  8 
REF  5 
R £ F 

RFF  10 
PEF  11 

REF  4 

HEF  12 


LAST  486 


I AST  908 

LAST  9)9 
LAST  90  8 

LAST  908 
LAST  90B 
LAST  90  5 
LAST  9CB 
LAST  9C  fl 
LAST  908 

LAST  938 

LAST  908 


30  , 7 337 
30  ,3  340 
30, 3341 
. 

' . 

30,  3344 
30  ,3345 
70 , 3346 
30,  3 347 
30  ,3350 
30,  3 "35  1 
. 

30.3353 

30. 3354 
30  ,3  355 
30,3356 
70, 7357 
30  ,3360 
30,  3361 


0 00C6  1 
7 0737  0 
2C  CC1  1 
4 0000  0 
C 0006  1 
21*674  1 
54  001  1 
‘1*647  0 

3 3 7 ‘ 7 o 
D 7713  1 
55*674  1 
11 '650  1 

4 1674  1 
55*674  1 
4 1675  0 
C 0CC6  1 
7 C 7 37  C 
?C  001  1 
27*674  1 


EXTEND 

MP  S INCDUZ 

DDOUBL 

COM 

EXT  END 

MSU  -OELGMR 

TS  L 

INDEX  NDXCOUW 

CA  DAXMAX 

TC  I IM  ITSUB 

TS  -OELGMR 

CCS  F LAGOOD W 

CS  -OELGMR 

TS  -OELGMR 

CS  -OELGMR  +1 

EXTEND 

MP  SINCDUZ 

OODUBL 

ADS  -OELGMR 


YIELDS  +DEIATTX  UNL  I MI  TD , MAG  < 180  DEG, 
RASED  CN  UNLIMITED  DEL  GM  BY  . 

(INF  RIT  ERROR  IF  OPERANDS  IN  MSU 
OF  MIXED  SIGNS.  WHO  CARES? 


S AV  E L IM  IT  EC  *DCL  AT  T X 

FETCH  IT  RACK  C HG I NC.  SIGN  IF  WINDOW  GOOD 
OTHERWISE  USE  ZERO  FOR  -DEL  AT  T X 


YIELDS  -CNTRIB  TD  -DELATTX  FROM  -DE  LG  MBY 
-DELGMBX.  NO  OVERFLOW  S INCF  LIMITED  TO 
20DEG(  1 + SIN(70DEG)/C0S(70DEG)  ) < 180DEG 


GAP: 

L 

P5  285 

R 02  86 

P-'2fl7 

R02  88 

1 :289 

R0290 

R02g1 

1029-1 

R3205 

0297 

0298 

0299 

0300 

530  1 

0302 

0 30  3 

3 30  9 

0305 

030ft 

0307 

0308 

5309 

i no 

031 1 

5312 

0313 

m* 

0315 

i31ft 

5317 

9318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

3 328 

0329 

0 330 


ASSFMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21  ,1970  ZFIY 


PAGE  909 


y I NDO.  0 UVi  - GUI  DAP  INTERFACE 
COMPUTE  COMM  AN  DFD  ATTITUDE  RATES 
* OMEGA FD  * * -2  -A  SINCDUZ 

a CMFGAQO  < = * +0  -8  COSCDUZ  COSCDUX 

« OMEGARD  * * +0  *8  COSCDUZ  SINCDUX 


+0 


* * -DELGMBX 
4 SINCDUX  * * -OE  LG  MB  Y 
4 COSCDUX  * * -DE  LG  MB  Z 


USER  • S PAGE  NO. 


.049 
11  E6  S3 


ATTITUDE  ANGLE  RATES  IN  .JNITS  OF  PI/4  RAU/SEC  = K TRIG  F:nS  IN  UNITS  OF  2 X GIMBAL  AN3  Lt  RATES 
PI/?  P AD  /SEC.  THF  CONSTANTS  ART  BASED  ON  OE  LG  MB  BEING  THE  GIMBAL  ANGLE  CHANGES  IN  UNITS  OF  PI 
AND  ? SECONCS  PFINC  THF  COMP  L TA  T ION  PERIOD  l THE  PERIOD  BETWEEN  SUCCESSIVE  PASSES  THRU  FINCCCUW 


IN  UNITS  OF 
RADIANS, 

I . 


RF‘F  13 
REF  7 
REF  14 

REF  5 

RFF  8 
RTF  9 


LAST  908 
LAST  374 
LAST  909 

I AST  908 

LAST  909 
I AST  909 


30  ,3362 
30,3363 
30,  1164 
30  ,3365 
30,  3366 
30, 3367 
30,3370 
30,  137  1 


4 1674  1 
c 5 * 642  1 
4 1675  0 

c oor6  i 

7 C 73 7 0 
20  001  1 
2 7*642  1 
27*642  1 


CS  -DEL  GMR 

TS  OMEGAPO 

CS  -Dt  LG  MB  +1 

EXT  END 

MP  SINCDUZ 

0D0U3L 

ADS  OMEGAPC 

ADS  OMEGAPD 


RFF  15 
REF  4 


REF  5 
RFF  4 
RFF  16 

PFF  3 
RFF  5 
REF  6 

REF  7 


LAST  9(9 
LAST  486 


LAST  90  8 
LAST  374 
L AST  909 

LAST  486 
LAST  909 
LAST  909 
LAST  90  9 


39  ,3  372 
J , i 7 1 
30,  3 374 
30  ,3375 
30,  ^376 
30,  1377 
. 

3C,  34C  1 
30  ,3402 
30,3403 
30,  34C4 
30,3405. 
?C, 34C6 


4 1675  0 
f CCC6  1 
7 0747  1 
2 0 001  1 
( 00C6  1 
7 9746  o 
55*643  0 
4 1ft76  0 
0 0006  1 
7 0741  1 
27*643  0 
27*643  0 
27*  643  0 


CS  - DEL  GMR  +1 

EXTEND 

mp  ;nscnux 

DDniJBL 

EXTEND 

MP  COSCDUZ 

TS  OMEGAQD 

CS  -OE  LGMR  +2 

EXTEND 

MP  SINCCUX 

ADS  OMEGAQD 

ADS  OMEGAQD 

AOS  OMEGAQD 


RFF  17 
RFF  4 


REF  6 
RFF  3 

REF  18 

REF  5 

RFF  4 
REF  5 
RFF  6 


LAST  909 
L AST  909 


LAST  9)9 
LAST  374 
LAST  909 

I A ST  9Q9 
LAST  90  9 
LAST  009 
LAST  909 


30 . 3410 

30. 3411 
30  ,8412 

i , f 13 
Jr  , 34  14 
30  ,3415 

30, 3416 

39  , 141 7 

30,3420 
3C,  3/,2  1 
30  ,3422 

. 


7 0741  1 
20  00  1 1 
C 0006  1 
7 C 74  5 0 
55*644  1 
4 1676  0 
0 0006  1 
7 0747  1 
27*644  1 
2 7 '6.44  1 
27*644  1 


ADS 

ADS 

ARS 


-DELGMB 
SI  NCDUX 


COSCDUZ 

OMEGAPD 

-DELGM0 

COSCDUX 

OMEGARD 

OMEGAPD 

UMFGARD 


1 


-2 


GAP:  ASSE  MB  It  PE  VI  SION  56  OF  A GC  PRCGRAM  ZERLINA  8V  ZOROASTER 


L FlNDCfllW  - GUICAP  INTERFACE 

*0331  FINAL  TRANSFER 


mi 

0339 

>335 

03  36 
?337 

•338 

0 330 
T39D 


PFF  13  l A ST  910 
PFF  1°  L AST  9r<J 


REF  1 
REF  1 

REF  19  LAST  91  o 
REF  A LAST  139 


’G,3929  3 9752  C 0 A I WC 

3r.79?5  59  192  1 CDUWXFR  TS  TE  M2 


30.3926  50  19?  0 

30. 3927  ? 1679  0 

. 3001  l 

30,3931  7 3760  1 

ID, 3932  G 3?27  C 
30  ,3933  50  192  0 

• ■ 1 


INDEX  TEM? 

FA  -OEIGMB 

EXTEND 

MP  OT/DELT 

TC  0MEST02S 

INDEX  TFM2 
TS  UELCOUX 


03  9 1 
9 39? 
>393 
0 399 

0 395 
0l96 

1 397 
339  = 
0 3 9 9 
• ■35  0 
■'351 
C 352 
3 35  3 

0359 
0355 
3356 
035  7 
9 3 58 
3353 

0360 


RFF  I*  LAST 
RFF  10  LAST 
REF  89  LAST 

REF  90  l A ST 

PfF  16  LAST 
REF  11  LAST 

PFF  ?5  LAST 

REF  17  LAST 

REF  5 LAST 
PFF  IRC  LAST 
REF  1 
REF  12  LAST 
PFF  18  LAST 
RFF  3 I AST 
RFF  1*1  I AST 
PFF  1 


910  30,3935 

8'.:  8 30,3936 

90 1 30, 3937 

30  ,3990 
9 1 C 30,399  1 
3o,  3992 

910  3°  ,3993 
810  30,  3999 

If?,  3995 

869  3),  3*96 

30, 3997 

9 1 1 ’ 30  ,3950 

37?  30,3951 

90  8 3o,  395  2 

30  ,395  3 
908  30,  3959 

9 1 ' 30,3955 

379  30,3956 

<U0  30,  3957 

30  ,3960 


50  19?  0 
11 '692  1 
6 9753  1 
1 3992  1 

6 9753  1 

0 0005  1 
5 019?  0 

7 1 6 9?  1 
0 0006  1 
7 9791  0 

c act,  1 

5 0 192  0 
1 1*  c30  1 
59  0C1  1 
3 3755  C 
C 3713  1 
50  19?  0 
55' 279  0 

1C  U2  1 

1 3925  0 


INDEX  TEH  2 
CCS  (1MFGAPC 
AD  UNE 

TCF  *2 
AO  ONE 

F XTEND 
INDEX  T EM 2 
MP  OMEGA PD 

EXTEND 

MP  BITll 

E XT6ND 
INDEX  TFM2 
DV  1 J ACC 

TS  L 

CA  DELERLIM 

TC  IIMITSUB 

INDEX  TC  M2 
TS  DELPFROR 

CCS  TF  M2 
TCF  CDUWXFR 


HC  361  PAUSKFFP  TNG  AND  R F T UR  N 


0362  PFF  3 LAST  93  1 

0363  RFF  55  LAST  901 


30,34,6  1 : 1 f 9 5 1 TC0C01JW  Z A 
30,3962  59  003  0 TS 


ECOUWUSR 

EBANK 


3369 

0368 
r 366 
7 <67 


REF  157  LAST 
REF  3 LAST 


30,  3963 
30,3969 

30.3965 

30. 3966 


C 6C51  0 
c ><  1 1 1 
09001  0 
03296  1 


TC  INTPRET 

SFTPD  GOTO 

0 

OCDUHUSR 


9:  12  OCT.  21,1970  ZFt  V 


099  PAGE  910 


USER'S  PAGE  NC.  12  Et  S3 


RATIO  OF  DAP  INTERVAL  TO  C DUW  iNTtKVAL 

ANGLE  INTERFACE 


WE  NOW  HAVF  ABS(flMEGAPC,OD,  RD1 


UNITS  PI/9  PAO/SEC 


LAG  ANGLF  = DM  EGA  ABSIOMFGAJ/2  ACCEl 


RETURN  USER'S  EBANK 


KOPMAL  AND  ABNORMAL  RETURN  TO  US  FR 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  QY  ZOROASTER 


.'.49  PAGE  911 


9:12  OCT.  21,1970  Z FLY 


L FINOCDUli  - GUI  TAP  INTERFACE 


USER'S  PAGF  NC.  13 


E6  S3 


Pn  368  TERUST  VECTOR  FILTER  SLRROLTINE 


0369 

037C  PFF  20 

3371  REF  3 

0372 

0373  REF  181 

3374 

0375  REF  6 

0 376  RCF  l 

0377  REF  182 

0378  REF  1 

337°  REF  13 

0380  RFF  4 

038  1 REF  1 E 3 

3382  REF  1 

0383  REF  14 

0384  REF  21 


LAST  910 
LAST  98 

LAST  910 

LAST  908 

LAST  9 1 1 

LAST  910 
LAST  9 1 1 
1AS7  911 

LAST  911 
LAST  911 


30 , 3467 
*9  ,3470 
1C,  3471 
30,  3472 

30.3473 

30. 3474 
30  ,3475 
30,34  76 
TO,  3477 
30 ,3500 
30, 35r 1 
3c, 3502 
30,3503 
30,  3 504 
39 ,3505 
3C , 35C6 


C 00C6  1 
22  14?  0 
54  143  0 

4 0000  0 
6 0001  0 
C 0006  1 

5 1647  0 
7 3746  C 
c 4 001  1 
3 3750  0 
0 3713  1 

6 0143  1 
54  001  1 
3 37  5 1 1 
0 3713  1 
C 014?  0 


FLTRSU8  EXTEND 
OX  CH 
TS 
COM 
AD 

EXTEND 

INDEX 

HP 

TS 

CA 

TC 

AD 

TS 

CA 

TC 

TC 


T EM  2 
TE  M3 

L 

NDXCDUW 
GA  INFLTR 
L 

DUNFVL  IM 
LI  MI  TSU 8 
TE  M3 
L 

UNF  VL l M 
L IM ITSUR 
TEH? 


S AV  F OR  I G INAL  OFFS  ET 

ONE  MCt,  NO  WDS,  CAN  BE  SAVED  [F  NEG  OF 
ORIG  OFFSET  ARRIVES  IN  A,  BUT  IT'S 
NOT  WORTH  THE  INCRE  AS  ED  0 BS  CUR  IT  Y . 


I NCR  TO  OFFSET,  UNLIMITED 

SAMF  LIMIT  FDR  Y AND  7 

YIELDS  INCR  TO  OFFSET,  LIMITED 

ORIGINAL  OFFSFT 

TOTAL  OFFSET,  UNLIMITED 

SAME  L [MIT  FOR  Y AND  Z 

YIELDS  TOTAL  OFFSET,  LIMITED 


RO-3  85  SUBR  TO  TFST  TEE  ANGLE  BETWEEN  TEE  PROPOSFD  WINDOW  AND  THRUST  C MD  VCTS 


0386 

9387 

0388 


0 389 
D 390 

1 391 
0 39? 
0393 


REF 

RFF 

REF 

REF 


7 I AST  904 


6 LAST  908 


30,35n7 
30, 9510 
30,3511 
30,351? 
3,9,  35  1.3 
30  ,3514 
30,3515 
30,  -3516 


63441  0 
( 1 
50025  0 
21753  0 
61214  1 
43531  1 
C3?51  1 
00000  1 


UNWCTEST  DOT  DS  Q 

IJNX/2 

OSU  BMN 

UOTSWFMX 
DC MC  L 
SSP  RVG 

FLAGCODW 

0 


PVQ  FOR  ALT  CHOICE  IF  DOT  MAGN  TOO  LARGE 
ZEROING  WINDOW  GOOD  FLAG 


i S S F M6L6  REVISION  56  CF  AGC  PROGRA*  7ERL INA  BY  ZOROASTER 


9:  12  1C  T.  21,1970  ZFLY 


0*9  PAGE  912 


L FINDCDUW  - GUIDAP  INTERFACE  USER'S  PAGE  Nil.  1*  E6  S3 

NB2  CDUSP  RET!  RNS  The  2 *S  COMPLEMENT,  PI,  Sp  COU  angle  S x,  y,Z  IN  MPAC,»l,+2  GIVEN  THE  9 ATP  IX  WHCSE  RC H VECTORS 
* API  THE  SEKI-UNIT  N A V BASE  VFCTfw<;  x,v,7  INSTABLE  mf^hE®  COORDINATES*  I7CAT‘  IHI  PUSH  LIST. 


03396  Ne?rrYj«-i'  USES  ARCtRCSP  WHICH  HAS  A maximum  ERROR  CF  *-4  PITS. 


0306 

0900 
09f  1 
0902 
0933 
0909 
0909 
5 9 76 


PFF 


REF 


LAST  695 


LAST  799 


30  ,3517  63595  0 

30,3520  00003  1 

30,  352  1 5 1C  21  0 

30  ,3522  C6510  0 

30, 35/2  <1526  1 

30,  7S29  77795  1 

30,3525  06520  0 

30,  3526  77566  1 


Nfl2rOUVSP  DLOAO  PSO 
2 

BO  SU  3 PL 

DP  1/9TH 
♦ 3 

DLOAO 

7FRCIVECS  IN  CASE  SIN  WAS  SI  IC-HTLY  > 1/2 

SORT  EXIT  YIELDS  COS(CDUZ)  IN  UNITS  OF  2 


091  7 
C9f.fl 
0909 
04K' 
3911 
0912 
3 9 13 


REF  3S1 

PFF  7 

REF  29 
REF  8 


LAST  605 
LAST  «63 

LAST  89  2 
LAST  912 


V , ■> c.  ’ ■ 
30 , 3^3  1 
3 0 ,353? 

?(  , 35  3 ? 
30, 3539 
30,3535 


0 OCT  6 1 

3 '156n 

20  CCl  1 

69  195  0 

1 3536  C 
3 9733  1 
59  195  0 


FXT  END 
DCA  MP AC 

000U3L 
TS  TFMS 

TO  F +3 

CA  POSHAX  OVERFLOW.  FETCH  PCSMAX , MPAC  ALWAYS  POS 

TS  TEM5  CDSICDUZ)  IN  TEM  5 , UNITS  1 


" 919 
r<91  6 
^916 


REF  92 

PEF  3S? 
REF  1 
REF  393 


I AST  P77  3c,  3636 

30  ,3537 
I A ST  912  30,3590 

30,  359  1 
1.12  31  ,3552 


50  120  1 

3 000?  0 
22  159  1 
C 36C6  1 
56  156  1 


I NOE  X FI  XL  OC 

CA  2 

LXCH  MPAC 

TC  ARCTRGSP 

TS  MPAC  +2  CDUZ 


391-7  PFF  1B7  LAST 

0920  RFF  1 

0921  RFF  21  I A ST 

392?  RFF  2 LAST 

0923  RFF  If  LAST 

3926  REF  2 LAST 

0625  RFF  109  l AST 


905  30,  3 5 6 3 3 6755  1 

10,3599  C 3566  0 

P 62  30,3565  3 6751  0 

912  30, 3596  C 3569  0 

862  30  ,3567  6 0161  1 

912  30,356  0 C 360  6 1 

9 12  In,  7551  5*  155  1 


CA  ZERC 

TC  3VBYC0SR 

CA  FOUR 

TC  DVBYCCSM 

CS  TEM  1 

TC  ARCTRGSP 

TS  MPAC  ♦!  COUY 


6?6 
3 7,27 
0923 
0 629 
3937 
631 
7632 


PEF  35 
REF  3 
REF  1 
RFF  9 
REF  11 
REF  ? 
REF  395 


LAST  896 
I AST  912 

I A S T 912 
LAST  912 
LAST  912 
LAST  912 


30  ,355? 
30, 3553 
30, 35  59 

JO  ,3  5 

30, 3556 
3:  ,3  557 
30  ,3  560 


3 6750  1 
C 3566  C 
3 3563  1 
C 3566  0 
9 0 1 9 1 1 
0 3606  1 
59  156  0 


CA  B IT  6 

TC  DVBYCCSM 

CA  160CT 

TC  DV  BY C OS M 

CS  TEM 

TC  ARCTRGSP 

TS  MPAC  CDUX 


9633  REE  158  LAST  9 lO 
0636 


30,  156 1 0 6C  5 1 0 

30 ,756?  77616  0 


TC  INTPRET 

PVQ 


CCC16  0 160CT  OCT  16 


5935 


30,  3563 


GAP:  ASSfMBLF  REVISION  56  OF  AGC  PROGRAM  2ERLINA  8Y  ZOROASTER 


9:  12  OCT  . 2 It  1970  7 FL 


>049 


PAGE  913 


L FINOCPUW  - GUI  TAP  INTERFACE  USER'S  PA  GF  NC.  15  E6  S3 

> 436  THE  ELEMENTS  OF  TH  F NAV  R A c F MATRIX  WHICH  WE  RUST  OIVIOE  BY  COS(MGA) 

R3437  Al  READY  CONTAIN  CO  S ( H GA  ) / 2 A S A FACTOR.  THFP.FFORF  IHF  OUOTIENT  SHOULD 

'•  "'439  ORDINARILY  NFVFP  EXCEED  1/2  IN  M AGN  ITU  DE.  BUT  IF  THE  M GA  IS  NEAP  PI/2 

R 4 30  THFN  CO  c(  MGA  ) IS  NEAT  ZERO.  AND  THERE  PAY  eF  SCMF  CHAFF  IN  TFE  CT  HER 

R044m  ELEMENTS  CF  IHF  MATRIX  WHICH  WOULD  PRODUCE  CHAOS  UNDER  DIVISION. 

» '441  BEFORE  DIVIDING  WF  MAKE  SURE  CCS(MGA)  IS  AT  1FAST  ONE  BIT  LARGER 

R344?  THAN  THE  MAGNITUDE  OF  THE  HIGH  ORDFR  PART  OF  THE  OPERAND. 


a 044  3 
T r 444 
R3445 
R 0446 


IF  CNF  CP  MORE  OIVICES  CANNOT  PE  PERFORMED,  THIS  MEANS  THAT  THF 
RFOUIRFD  MGA  IS  VERY  MARLY  + -PI/2  AND  THE  REFCRF  THE  OTHER  GIMRAL 
ANGIES  A«r  INDETERMINATE.  THE  INNER  AND  OUTEP  GIMBAL  ANGLES  RETURNED 
IN  THIS  CASE  WILL  HF  RANDC  M MULTIPLES  OF  PI/?. 


447 


(448 


PFF  43  LAST  912 
PEF  1 


30.  ^ 564  t C 120  1 DVBYCOSM  AD 
30,  T565  54  1 16  C TS 


F I X LCC 
A DDR WO 


ADRES  OF  OPERAND 


0446  PFF 
D45D 
0451 
6452 
045 1 

454  RFF 
D 455 

0456  REF 


2 LAST  913 


9 LAST  912 


36  ,3570 
30,3571 
lU,  3572 
36  ,3573 
U,  1 574 
I",  3575 


50  116  1 

3 0000  1 
0 0006  1 
( 3573  C 

4 OCOC  0 
6 0145  1 
C CCC6  1 
6 3603  1 


INDEX  ADCRWD  FFTCH  NtG  ABS  OF  OPERAND,  AD  TEM  5,  ANO 

C-A  0 SKIP  DIVIDE  IF  RESULT  NFG  OR  ZERD 

EXTEND 

BZMF  +2 

COM 

AD  T EM  5 CIA)  ZERO  OR  NEC,,  CITFM5)  ZERO  OR  POS 

E XTEND 

BZMF  TSLGTC  0 DIFFERENCF  ALWAYS  SMALL  IF  BRANCH 


0457 

Y45R  RFF  3 LAST  913 

0459 

0460 

0461  RFF  10  LAST  913 

046?  REF  184  LAST  411 

>463  RFF  12  LAST  91? 

0464  REF  220  LAST  898 


30,  1B77 

. 

30.36CL 
3r  , 360  2 
30,3603 
?C, 36C4 
30,3605 


3 3001  0 
C 0C06  1 
10  145  0 


54  001  1 TSL&TCQ 
22  141  0 
0 0002  0 


EXT  END 

INDEX  ADDRWD 
DCA  0 

EXTEND 
DV  TEM  5 

TS  I 

LXCH 
TC 


T EM  5 EXCEEDS  ABS  HIGH  ORDER  PART  OF 
OPERAND  BY  AT  LEAST  ONE  BIT. 

THF  REF  OFF  IT  EXCFFDS  THE  DP  OPERAND 
AND  DIVISION  WILL  ALWAYS  SUCCEED. 


TE  Ml 


9:  12  o;  T.  21.1970  ZFLY 
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i AP : ASSEMBLE  REVISION  56  OF  AGC  PRfCRA“  ZFR-L  INA  BY  ZOROASTER 

L F INDCOUW  - GUIOAP  INTERFACE  USER'S  PAGE  NO.  16  E6  S3 

P0*6r-  APCTRCSP  RETURNS  THE  2 »S  COMPLEMENT,  PI,  SP  ANGLE  IN  TrtF  A RFGISTER  GIVEN  ITS  SINE  IN  A ANC  ITS  CCS  INF  IN  L IN 

> *67  UNITS  nc  ?.  THE  RESULT  IS  AN  UNAMBIGUOUS  ANGLE  ANYWHERF  IN  THE  CIRCLE,  WITH  A MAXIMUM  ERROR  OF  ♦ -*  BITS. 

83*69  THE  ERROR  IS  PRODUCED  BY  THE  SUBROUTINE  SPARC  SI  N WHICH  IS  USED  CNLY  IN  TEE  REGION  *-95  CEGREES. 


*71 

9*7?  RFF 


3r  ,5606  C DOC 6 1 
TC,TAr7  1 565!  1 


ARCTRGSP  EXTEND 

B7F  SINZERO  TO  AVOID  DIVIDING  RY  ZERO 


0*73 

0*7*  REF  10  LAST 

3*75  PFF  ??  LAST 

06 76  Pff  1 85  I AST 

*77  PFF  5 I AST 

D * 7 B REF  IBP  I.  AST 

0*79 

D*8P  REF  23  LAST 

OAfll 

0*82  PFF  1 


863 

911 
on 
91  1 

91? 

916 


30,  36  10  C OOC 6 1 

30  ,3611  22  1**  0 

lr,  3612  5*  1*2  1 

3f>,  ?613  3 0001  ' 

30,361*  5*  1*3  0 

30, 3615  S *765  1 

30.361  i 

30 ,3617  id  1*2  1 
3c,  3620  C 0006  1 
3(  ,3621  1 3640  1 


F X TEND 
OX  CH  I EM* 

TS  TE  M2 

CA  l 

TS  TEM3 

CA  ZERO 

EXTEND 
DV  TEM2 

E X TEND 

B/F  JSECOS 


7*93 
0*  B* 
0*85 
7*96 
( * R 7 
0*BB 
0*89 
0*90 
7*91 
C*  92 
0*9  3 
7*9* 

1 *95 
0*96 


REF  6 LAST 
REF  1 89  LAST 

PFF  2*  LAST 
REF  25  | AST 

RFF  3 | A ST 

PFF  7 LAST 
RFF  26  LAST 
REF  2 LAST 
REF  2 LAST 

REF  B L AST 
PEF  3 LAST 
PEF  11  LAST 


91*  30.  3622  1C  1*3 

91*  30,3623  3 *755 

30,362*  1 3630 

91*  3o,  3625  * 0 1*2 

91*  39,3626  5*  1*2 

B91  30,3627  1 *735 

9 1 * 30,  3630  5*  1*3 

91*  37  ,3631  3 01*2 

813  30, 3622  C 3656 

917  30,3633  0 3727 

30,363*  0 0006 

91*  30,3635  2C  1*3 

91*  30  ,3636  0 3727 

91*  30.3637  C 114* 


0 

l 

0 


0 

0 

1 

0 

1 

0 

0 

0 


CCS 

CA 

TCF 

C S 

TS 

CA 

TS 

CA 

TC 

TC 

EXT  I 
MSU 

1T02ETCQ  TC 
TC 


TE  M3 
ZERO 
+* 

TFM2 
T EM  2 
NFGMAX 

TE  M3 
T EM? 

S PARCS  I N -1 
0NEST02S 

TF  M3 

0NEST02S 

TEM* 


SIN  IS  SMALLER  OR  EQUAL 


IF  CCS  NEG,  REVERSE  SIGN  OF  SIN, 
ANGLE  = PI-ARCSIN(SIN) 

PICK  UP  PI,  ?'S  CfiMPLFMFNT 

WE  NO  LONGER  NEFD  COS 


0*97 
0*98 
3*9  9 

0500 
0 50  1 
7572 
0503 
05c* 
0505 


PPF  9 LAST  ol* 
REF  5 I A ST  9i* 
REF  ?3  I AST  B98 
RFF  IP  LAST  9i* 
RFF  ?7  l A ST  91* 
RFF  11  LAST  91* 
RFF  1 

REF  1?  LAST  91* 
REF  2 LAST  9l* 


, 

30 , 6*1 
?0,  36*2 
30, 36*3 
30,36** 
3C,  36*5 

ID  , 3 * * f 
30,36*7 
. 


*■  01*3  c 

0 3656  I 
fc  *736  1 
5*  1*3  0 
10  1*2  1 
:■  0 1*3  1 

1 3636  0 
*■  71*3  C 
1 3636  0 


USEC1 S 


CS  TE  M3 

TO.  S PARCS  IN  -1 

AD  H A I F 

TS  TF  M 3 

CCS  TEM? 

CA  TEM3 

TCF  1T0  2F.TC0 

CS  TEM3 

TCF  1T02&TCO 


COS  I S SMALLFR 

ANGLF  = SIGN!  SIN)  (PI /2-ARCSINIC0S)  ) 

WE  NO  LONGER  NEED  CCS 


0506  RFF  186  LAST 

751/7  REF  19(  LAST 

Cc(  H REF  221  I.  AST 

0 504  RFF  * LAST 

7517  RFF  2??  I AST 


91*  30,3651  P 

91*  30,3652  2 

913  30,3653  0 

91*  30,365*  3 

91*  30, 3655  ( 


001  1 SINZERO  CCS 


*755  1 CA 

0002  0 TC 

*735  I CA 

0002  0 TC 


L 

ZERO 

0 

NFGMAX 

0 


2'S  COMP 
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>0  49 


PAGE 
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l F I NDf.DUW  - GUI  CAP  INTEKFACF 


USFR  'S  PAGE  NO.  1 7 


E6  S3 


P05II  SPARCSIN  TAKES  AM  ARGUMENT  SCALED  UNITY  IN  A AND  RETURNS  AN  ANCLE  SCALED 

RI1512  1p,0  DEGREES  IN  A.  IT  HAS  BEFn  UNIT  TESTED  IN  THE  REGION  *-.94  ( + - 70 

T r'51 3 DEGPEES)  AND  THE  MAXIMUM  EFRCP  IS  + -5  BITS  WITH  AM  AVERAGE  TIME  OF 
R 5 1 4 A 50  M ICR'  SECONDS.  SPARCSIN  -1  TAKES  THE  ARGUMENT  SCALED  TWO.  (BCB  CRISP) 


0515 
"'516 
0 517 


0518 

0519 

0520 

0521 

35?2 

0523 


0524 
?5?5 
0 526 

0527 

0528 

0529 
?53? 
0531 


05  32 
•>533 
C 534 
0535 
1536 

0537 

0538 
9539 
0540 
>54  1 
054? 


REF  R 

REF  264 
P EF  1 
REF  9 

REF  265 
REF  13 

RFF  1 
RFF  1 

REF  1 4 
REF  1 

RFF  16 
REF  1 

REF  16 
REF  1 

REF  1 1 
REF  723 


LAST  452 

LAST  902 

LAST  9 15 

LAST  915 
LAST  913 

LAST  915 
LAST  ° 1 5 

LAST  915 

LAST  915 
LAST  914 


, 

30,3657 
30,  3660 
30  ,366  1 

. 

3r. , 366  3 
30  ,3664 
30, 3665 

• 

30,3667 

• 

30  ,?671 
30,3672 
30,  367  3 
30  ,3674 

. 

30,  3676 
30,3677 
3f,  3 7C0 
30,3701 
3C.37C2 
3q  , <70  3 
30  ,3  704 
, 

30,  170  6 
30,3707 

20. 3710 

30.3711 

30.3712 


fc  0000  1 
54  021  0 
1 3664  1 
50  OOP  1 
4 4734  ) 
64  0 2 1 0 
0 0006  1 
7 COCO  0 
54  141  1 

0 0006  l 
7 3712  1 

6 3711  0 
C 0006  1 

7 0 1 4 1 1 

6 3710  1 
C CCC6  1 

7 0141  1 

6 3707  1 
C C0C6  1 

7 0141  l 
fa  3706  0 
0 0006  1 
7 0021  0 
C 0CC2  0 

24406  0 
C0660  1 
162C4  0 
50744  C 

20315  1 


DC1U3LE 

SPARCSIN  TS  SR 

TCF  *4 

INDEX  A 
CS  LIMITS 

TS  SR 

EXT  END 
MP  A 

TS  TEM1 

EXTEND 
MP  DPI  9 

AD  DPL  7 

EXTEND 
MP  TEMl 

AD  DPL  5 

EXTEND 
MP  TF  M 1 

AC  DPL  3 

EXTEND 
MP  TEMl 

AD  DPL1 

E XTEND 
MP  SR 

TC  0 

DPL  1 DEC  10502 

DPL3  DEC  432 

0PL5  DEC  7300 

DPL7  OEC  -11B03 

DPL9  DEC  8397 


GAP:  ASSEMMIE  REVISION  56  OF  AiC  PRtXJR  A M 2E»LINA  BY  ZCRCASTEP 


l FINOCDim  - GUIOAP  INTERFACE 

» 56  6 LIMIISUA  LI  MTS  THE  MAGNITUDE  CE  TFE  POSITIVE  CR  NEGATIVE  VARIABI 
R?545  ARRIVING  IN  l TO  Tl-E  POSITIVE  LIMIT  ARRIVING  IN  A. 

RC546  THE  SIGNED  LI  MI  TEC  VARIABLE  IS  RETURNED  IN  A. 


VERSION  COURTESY  HLGH  8 LA  I R—  5 M TH 


055  8 
0558 
355? 
0551 
055? 
0558 
0555 

0555 

0556 

0557 
355R 
r-55Q 


PCF  18 
PFF  266 
REF  18 


REF  187 
REF  2?5 
PEF 


LAST 
LA  ST 
I AST 


L AST 
LAST 
LAST 


916 

815 


1",  37  13 
,371 5 
3C, 3715 

30  , 37] 6 

. 

20,  3 720 

. 

i 

. 

31  ,3724 
31  , 3 T2  c 


^ 141  1 
3 5755  1 
f 00C6  l 
IC  151  1 
10  000  0 
22  1 5 1 O 
1 3723  0 
1 8725  0 

:•  occi  o 

0 0002  O 

G 1 41  1 


I IMITSIB  TS 


CCS 

LXCH 

TCF 

TCF 


PFF  225  LAST  8lN  30,  37?6  C P0C2  0 


< 0 56r‘  SUBROUTINE  TP  CONVERT  l'S  CORF  SP  TO  2'S  CCMP 


15N1 

0562 

0548 

0565 

0565 


REF  267  L AST  9l6 
RFF  81  I A ST  91  ( 
PFF  ? 26  LAST  816 

REF  ?6P  LAST  9 1 6 
PEF  227  LAST  916 


. 1 

3'.  ,3730 
3'  ,8731 

i ,3732 
30,3733 


10  OCO  C 
6 5753  1 
C CCC?  0 

4 0000  0 
0 0002  0 


ONF  ST?  2S  CCS 


NC  ATTITUDE  CONTROL 
REF  36  LAST  859 


0569 

0570 
3571 
05  7? 


PFF 

PEF 

REF 


30  v 37  36 

30 ,378  7 
30, 1740 
36,3741 


J 0004  0 
C 4674  0 
40166  1 
l 3461  0 


INHINT 

TC  IRNKCALL 

FCADP  STCPPATF 
TCF  TC  QCOIIW 


0574 

0575 
05  76 


MIDDLE  GIMBAL  ANGLE  ALARM 
RCF  3?  | AST  9l6  3p,3 


0 5600  1 
CO401  1 

1 3261  0 


ALARMMGA  TC 
OCT 
TCF 


ALARM 
00401 
MG AR6T 


9 : 12  OCT  . 21,  197.  2 FL 


PAGE 


9l6 


USER*  S PAGE  NC. 


NO  ATTITUDE  CONTROL 

COME  HERE  F CR  NCATTCNT  WITHOUT  ALARM 
RELINT  AT  TC  INTPRET  AFTER  TCQCDUW 

RFTURN  TO  USER  SKIPPING  AUTOPILOT  CMOS 


GAP: 


ASSEMBLF  REVISION  5b  OF  AGC  PRCGRAN  ZEKLINA  BY  ZOROASTER 


L FINDCDUW  - GUI  CAP  INTERFACE 

’0  577  **$«>*##***  *#*  **#*«#*  **«<.*!{!*#*:(:*■(>>*******#**  si'***#*****  **************** 

RDS7R  CONSTANTS 

R 0579  ***■>********#*****  *A.{i****<.**-M<**««#<>**<.***<i:*$***4r$*#** 


0581 
l 0 582 
R05R3 


ADORESS  CONSTANTS 

RFF  3 LAST  90  1 30,  37.45  C32A5  1 ECDliWL 

THR  UST  DIRECTION  FILTER  CONSTANTS 


EC  ADR  ECDUW 


30,3750  00071  1 DUNFVLIM  DEC 


‘ 588 
A0589 
R 59( 
R 05  91 


30,1751  C2C41  0 UNFVLIM  DEC  .129 

CONSTANTS  RELATED  TO  GIMBAL  ANGLE  COMPUTATIONS 

30,3752  016*3  1 DOTSWFMX  DEC  .93302 


0598  Rf-F  2 LAST  908  30,3753 

30, 3757 

CONSTANTS  FOR  DATA  TRANSFER 

30, 3760 


3599 
R 0600 
R0601 


CAZMAX 

CD  UZD  L r M DEC 


0 1 A 6 3 1 OT/DELT  DEC 


REF 


2 I AST  908  30,  3755 


END  OF  7FLY 


C4S  **> 


< 
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GAIN  FI  LTER  SANS  C SR 
GA IN  F IL TER  WITH  f SM 


7 MR  MAX  CHG  IN  F CIR  IN  V EH  IN  2 SECS. 
THIS  DOES  NOT  ALLOW  FOR  S/C  ROT  RATE. 

129  MR  MAX  THRUST  OFFSET.  10  5 MR  TRAVEL 
♦ l'MR  DEFL+5MP  MFC  F MCUNT+9MR  ABLATION. 


LIM  COLNRTY  OF  UNWC/2  £ UNFf/2  TO  85  DEG 
LOWER  PART  COMES  FROM  NC  XT  CONSTANT 

OELATTX  LIM  TO  2 C CEG  IN  2 SECS,  L'S,  PI 
2 DFG  WHF  N C SM  DOC  KFO 

l IK  EW  IS  E FOR  DEI  ATTY 

L IK  EWISE  FOR  DELA  TTZ 

70  DEG  LIMIT  FCR  MCA,  1 *S , PI 


.1  SFC/2  SEC  WHICH  IS  THE  AUTOPILOT 
CONTROL  SAMPLE  PER  I OD  /C  OMP  UTA  TI  ON  PERIOD 

1 CEG  LIMIT  FOR  LAG  ANGLFS,  1 *S,  PI 


3*0: 
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L 

PS1-P53  USER'S  PAGE  NO.  1 ED  S3 

3 00C1 

rood* 

R00C5 

PROGRAM  NAME-  FROG52  DATE-  JAN  6,  1967 

MOO  NO-  0 10G  SECTION-  P5l-c>53 

MCUIFJCATICN  eY  - LCNSKE  ASSEMBLY-  SUNOANCE  REV  46 

3 0007 

FUNCTIONAL  OF  SCRIP  TION- 

RDDDP 

norm 

Al  IGNS  THE  (HU  TO  ONE  OF  THREE  OR.  IFNTATIDNS  SELFCTEO  BY  THE  ASTRONAUT.  THE  PRFSFNT  I MIJ  ORIENTATION  IS  KNOWN 
Ar'f>  IS  STORED  IN  PEFSMMAT.  THE  THREE  POSSIBLE  ORIENTATIONS  MAY  BF_ 

RO!  11 

(A)  PREFERRED  OR  I ENT  ATI  CN 

ROD12 
100  14 

A A n PT I Ml  j M ORIENTATION  FOP  A PREVIOUS!  Y CALCULATED  MANUEVER.  THIS  "3IFNTATI0N  MUST  BE  CALCULATED  AND 

STORED  BY  A PREVIOUSLY  SELECTED  PROGRAM. 

R!>>15 

IB)  NOMINAL  ORIENTATION 

3 0016 
' 7 

* = UNIT  ( R ) 

ROOlft 

1001O 

Y = UNIT  (V  X R) 

SM 

R0020 

7 = UN  IT  ( X XV) 

SM  SM  SM 

R002? 

10323 

3 0025 

WHERE 

K = THE  CEOCENTRIC  RADIUS  VECTOR  AT  TIME  T(ALIGN)  SELECTED  BY  THE  AST  RUNAU1 

RD??6 

R 00?  R 

V i THE  INERTIAL  VELOCITY  VECTOR  AT  TIME  T(  ALIGN)  SFLFCTEO  PY  THE  ASTRONAUT 

30029 

(Cl  REE  SM  M AT  ORIENTATION 

RDD3D 

(D)  LANDING  SITE  - THIS  IS  NOT  AVAILIBLE  IN  SUNDANCE 

R 0031 
R0033 
R0035 

THIS  SHLFCTICN  CORRECTS  THE  PRESENT  IM'J  ORIENTATION.  THE  PRESENT  ORIENTATION  DIFFFPS  FROM  THAT  TO  WHICH  IT 
WAS  LAST  ALIGNED  ONLY  DUE  TO  GYRO  DRIFT!  I.E.  NEITHER  GIMBAL  LOCK  NOP  I MJ  POW  FR  INTERRUPTION  HAS  OCCUREO 
SINCE  THE  LAST  ALIGNMENT  1. 

3 DO  36 
R503R 
R0040 
R0042 
R004'. 

3 0046 
RDD4B 

AETFR  A I MU  ORIENTATION  HAS  PEEN  SFLECT6P  ROUTINE  Sc2.2  IS  OPERATED  TO  COMPUTE  THE  GIMBAL  ANGLES  USING  THE 
NEW  00  1 ENT  AT  ION  AND  THE  RR  E SFN  T VEHICLE  ATTITUDE.  CAL52A  THEN  USFS  THESE  ANGLFS,  STCPEC  IN  T H ET  AO,  ♦ 1 , +2,  TO 
CGARSE  ALIGN  THE  IMU.  THE  STAR  SELECTION  ROUTINE,  R 56,  IS  THEN  DPFRATFO.  IT  2 STARS  ARE  NOT  AVAILABLE  AN  ALARM 

IS  FLASHED  TO  NOTIFY  THE  ASTRCMLT.  AT  THIS  PCINT  THE  ASTRONAUT  WILL  MANUFVER  THE  VEHICLE  AND  SELECT  2 STARS 
EITHER  MANUAILY  DR  AUT  DMA  T IC  ALL  Y . AFTER  2 STA3  S HAVE  3 EEN  SELECTEO  THE  IMU  IS  FINE  ALIGNED  USING  ROUTINE  R51.  IF 
THE  RENDEZVOUS  NAVIGATION  PRCCESS  IS  OPER  AT  ING  ( IND ICAT  ED  BY  RNDVZFLG)  P IS  DISPLAYED.  OTHERWISE  POO  IS 

REQUESTED. 

R 004  9 

CALLING  SECUFNCF- 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 
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,126  PAGE 
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P r'  l - R 5 ? USER'S  PAGF  NO.  2 EC  S3 

P.DD5D  THE  PROGRAM  IS  CALLED  BY  THE  ASTRONAUT  RY  D SKY  ENTRY. 

aOG51  SUBROUTINES  CALLEC- 

R005?  1.  ELAGOCWN 

R3363  2.  R02R0TH 

3 0059  3.  GO  PE  RE  A 

R0P55  9.  MAT  MOVE 

R0056  5.  GCFLASH 

3 0057  6.  S52.  3 


R3358  NORMAL  EXIT  MODES- 
R 005Q  EXI TS  TC  ENCOFJOe 

ROO-'P  ALARM  OR  ABORT  EXIT  MODE  S~ 
R006  1 NONE 


7.  S5? . / 13.  NFWMCOEX 

B . CAL53A  1 A.  PRIOLARM 

9.  FLAGUP 

10.  P 56 

11.  p 5 1 

12.  GCPFFF3 


30062  OLTPLT- 


M ) 0 6 3 
R0069 
3 0066 
R3  366 
ROO  67 
R0O6P 
R3?6  9 
3 0070 


THE  FOLLOWING  MAY  BE  FLASHED  ON  THE  DSKY 
1 . I MJ  OR  I F NT  AT  [ON  COTE 

?.  ALARM  CCDE  215  -PREFERREC  I MU  ORIENTATION  NOT  SPECIFIED 
3.  T IME  OF  NEXT  IGNITION 
9.  GTNPAL  ANGLES 

6.  ALARM  CODE  905  -TWC  STARS  NOT  AVAILABLE 
6 . PLEASE  PERFORM  POO 
THE  MODE  DISPLAY  «AY  BF  CFANCFC  TO  20 


R 0 ? 7 1 ERASABLE  INITIALIZATION  REQUIRFD- 


PERATFLG  SHCULC  BE  SET  If  A PREFERRED  OB  I ENT  A T ION  HAS  BEEN  COMPUTED. IF  IT  HAS  BEEN  COMPUTED  IT  IS  STORED  IN 
3 0079  XSMD, YSMD ,Z SMD. 

RDD76  RNTV7FLG  INDICATES  WHETHER  THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPERATING. 

3 0077  DEBRIS- 


WORK  AREA 
REF  2 LAST 


267 


33,  3766 
IS, 200  1 
IS,  ?C  6 7 


BANK  33 
SETLOC.  P50S 
BANK 


0P82 

OP  R 3 

0084 

0085 
3386 
0087 
00  88 


RTF  u L AST  203 
PEF  1 

REF  269  LAST  R77 
PFF  1C  LAST  829 
REF  1 

PFF  2r  LAST  87  1 
RFF  269  LAST  916 


F6 ,1 765 
15,  2(; 6 7 
1 r . * 7 
15,  2C71 

15,  2-' 72 
l 5 ,2  C 73 


C 5616  1 
11291  0 
? 9750  1 
7 0076  1 
10  000  0 


EBANK=  BEST  I 
COUNT*  *3/8*2 
TC  BANKCALl 

CAOR  R0  2BOTH 

CAF  PFPATBIT 

MASK  F LAG WRO  2 


IMU  STATUS  CHFCK 
I S PFRA  TF LG  SE  T? 


ASSEMBLE  »FVISICNS6  OF  AGC  PRCGMM  Z tRL  IN  A 0V  ZOROASTER 


P51-P53 


OC  8 9 
0090 

3091 

0092 

or  9i 

009t 

CL  95 
3395 
0C97 
0098 
3399 
Cion 
o 1‘  1 
Oln2 


BEF  1 
PFF  2f>  I AST 
REF  2 LAST 
°rF  42  LAST 
ft  f F 6 (AST 
RFF  4.9  LAST 
BEF  ?5T  LAST 
PEF  1 
SEE  3.2  LAST 

REF  1 

RFF  74  LAST 

PEF  13C  I AST 


15,2074 
88c  15,2075 

15,20  76 
884  15  ,2077 

6^1  1 5 , 2 ICC 

9 2C  IS,  2 111 

9 1 n 15,2102 

15,  21C3 
e45  15,2104 

15,2105 
15.21C6 
877  15,2107 

15,2110 
877  15,  2111 


0 2077  0 
3 6257  1 
C 2 le  t;  1 
3 4753  1 P52A 
55' 144  0 
3 4753  1 P52p 

0 4616  1 
2C714  l 

C 6001  0 

1 2112  P 
C 2 1C  1 0 

0 5364  0 
00014  1 
0 5155  0 


TC  P52A 

CAF  THREE 

TC  P 52a  +1 

CAF  B1T1 

TS  f.PTICN? 

CAF  BIT1 

TC  RANKCALI 

C ADR  G0PERF4R 

TC  SO  TOPOOH 

TCF  +5 

TC  P52B 

TC  R HA  SC  HN G 

OCT  00014 

TC  ENPOFJCB 


0103  PFF  7 LAST  920 

3134  PFF  29  (AST  920 

0 105  RFF  270  LAST  9)9 

0 106 

3137  REF  1 

0108  REF  1 

0109  REF  1 

HP  REF  15°  I AST  912 

011  1 

3112  REF  1 


15,2112  3 1 144  1 

15,  21  13  7 6257  C 

15,  ’1  14  50  000  1 

15,2115  0 2116  0 

15, 2 1 16  1 2 124  0 

15  ,2117  1 2176  1 

1 5 , 2 I2r  1 2131  1 
15,2  121  c o05 1 0 P52E 
15  ,2122  77650  1 

IS  2123  ->2207  0 


CA 

MASK 

INDEX 

TC 

TCF 

TCF 

TCF 


GOTH 


OPT I0N2 

THREF 

A 


0PT4 
P 52H 
P52T 
I NTPRE  T 


P52F 


01125  REF 
’113  RFF 
71133  PFF 
113  5 

0114  PEF 

0115  PFF 


7 LAST  857 
56  LAST  910 

4 I AST  772 

5 LAST  920 
2 LAST  920 


15.2124  3 4741  1 0PT4  CAF  EBANK4 

15.2125  54  003  0 TS  FBANK 

F4 , 14  26  £ B A NK  = TL  AND 

15  ,2  126  G 00C6  1 EXTEND 

15,2127  2 1427  1 OCA  TLANC 

15,  2 130  1 2 133  0 TCF  P52T  +2 


1 1 e 

3117 

118 


118  4 
31186 
1188 

0119 

0120 
0121 
3122 
0123 


C 1 24 
3 125 
■126 
n 1 27 

0128 

0129 


REF  21  (AST  893 
RFF  27  LAST  652 
RFF  10  LAST  866 
RFF  57  LAST  920 
PFF  4 LAST  209 
PFF  1 

PFF  251  LAST  92c 
RFF  26  LAST  845 
REF  33  I AST  9?o 


RFF  28  LAST  030 


15,2131  0 0006  1 

15,  212?  2 4755  1 

l 5 , ? 133  53  45  0 

15,2134  3 5G1 4 1 

15,  2 135  54  OC  3 0 

E5  ,1774 

15,2176  2 2213  0 

15,  2 137  0 46  16  1 

15.2140  70477  1 

15.2141  C 6CC 1 0 

15  , ? 14?  0 2144  1 

15,2143  O'  ? 136  1 
15, 2 144  ‘2*045  0 

15  ,2145  0 0006  1 

1 5 , ? 146  6 2150  1 

15,2147  1 2152  1 

1 ,215 


P52T 


EXT  END 
nr  a 
dxch 

CAF 


NEGO 
OSPTEM  1 
EBANK5 
EBANK 
TAL IGN 
V06N34* 
BANKf  A LL 
GOFLASH 
GGTOPCCH 


TC 

TC 

I)  XCH 

EXTEND 

fl?MF 

TCF 

EXT  END 
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JSER'S  PAGE  NO.  3 E5  S3 

YE  S 

DISPLAY  R6FSMHAT  OPTION  3 


FLASH  OPTION  CODE  AND  ORIENTATION  CODE 
FL  ASH  V34N35 

V33-PR3CEED 

NEW  CODE  - NFW  ORIENTATION  CODE  INPUT 
0!  SPLAY  RF  TURN 


OPT  ION  4 LANCING  S IT  E 
OPTION  1 PREFERPED 

CPT  ION  2 NOMINAL 
OPTION  3 RE  FS  MM  AT 

GO  DO  R5 1 


SET  EBANK  TO  USE  T LAND 


IF  OPT  ION  4 DISPl  AY  TL  AND 


RESTORE  EBANK  AFTER  USE  OF  TL  AND 


IF 


1ME  ZERO  OR  NEG  USE  TIME2 


AP: 

01  in 

0131 

3 132 

0133 

0 114 

3 135 

r 136 

0117 

0138 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7FRLINA  BY  ZOROASTER 
P51-P53 


9:12  OCT.  21,1970  LFMP50S 
US  ER  'S  PAGE  NO.  4 


.126  PAGE 
E5  S3 


921 


RFF 

REF 

REF 

REF 

RFF 

REF 


?‘i 

5 

8 

42 

271 

1 

1 60 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


920 

920 

896 

920 

920 


REF  1 


15,  215  1 2 0025  0 

1 5,2152  53'  775  1 

15,2151  2 1144  l P 52  V 

15,2154  7 4752  1 

> 1 ( C 

15,  2156  0 2 162  0 

15  ,2157  0 6051  0 

15,2160  ‘,7650  1 
IS,  2 16  1 22241  0 


OCA  TIME  2 

OX  CH  T ALIGN 

CA  0PTICN2 

MASK  91 T2 

CCS  A 

TC  P52W 

TC  INTPRET 

GOTO 


OPTION  4 - GFT  LS  CRI  E NT  ATI  ON 


P52LS 


AiSFXALE  RE  VI  SI  ON  56  OF  A&C  PKCGFAM  i fcRL  I N A BY  7QHO AST  ER 


P51-P53 

P0139  STAPT  ALIGNMENT 


0140  REF  161 

3141 

014?  REF  6 

4143  P EF  1 

01  4 4 

0145  PEF  1 

31 96 

0U7  PEF  2 

0 148  PEF  2C. ? 

3 1 PFF  27 

0150  PFF  34 

0 1 5 1 PEF  1 

0152  REF  162 

0153 

3144  REF  1 

r 1 54  RFF  163 

0 156 

3157  PEF  1 

0153 

0159  REF  2 

0160  REF  2 

0161 

316?  RFF  1 

0143 

0164  PEF  35 

3165  REF  5 

0166 


LAST  921 
LAST  9?1 


LAST  40  3 
LAST  920 
1 AST  920 

LAST  020 

LAST  922 


LAST  922 


LAST  675 
LAST  755 


I A ST  922 

L AST  734 


15,  2163 
15  ,2164 
15,2165 
15,  2166 
15  ,2167 
IS,  217C 
15,21 71 
15,21  72 
15,  2173 
15  ,2  1 74 
15,2175 
15,  2 176 
15  ,2177 
15,  2200 
15, ? 2°1 
1 5,2202 
15,  22C 3 
15  ,22'-  4 
15,2205 
1 5 , 2 20  6 
15  ,2207 
15,  2210 

15,  li 

15,2212 
5006 
15  ,2213 


C 6051  0 P62W  TC 

45145  0 OLCAO 

02775  O 
31651  1 

77624  1 P52o  CALL 

31620  1 

77776  1 EXIT 

3 5010  6 CAF 

0 4616  1 TC 

50477  1 C ADR 

0 6001  0 TC 

1 2214  0 TC F 

C 60  5 1 0 P52H  TC 

77650  1 GOTO 

22166  1 

0 6051  0 RFGCOARS  TC 

77624  1 CALL 

21321 

43014  0 COAKSKET  SET 
01462  0 
01273  0 

776?*»  1 P5  2F  CALL 

21CC7  1 

77776  1 P520UT  EXIT 

C 6001  0 TC 


VR05N09  = 

01442  1 V06N34*  VN 


I NT  PRET 
CALL 
TAL  IGN 

S5  2 .3 


S52.2 

V06N22 
HANKCALl 
G OF  LASH 
GnTOPOOH 
CHARS TY  P 
INTPRE  T 

P52D 
l NTPRF  T 

CAL53A 
CL  EAR 

REFSMFLG 
PFRA  TF  LG 

R51 

GOT  GPOOF 

V05NC9 

634 
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USER'S  PAGE  NO.  5 E5  S3 


PICK  UP  ALIGN  T IMF 
COMPUTE  NOMINAL  I Ml, 

PPIFNT  AT  ION 

READ  VFHICLE  ATTITUCE  AND 
COMPUTE  GIMBAL  ANGLE  S 


DISPLAY  GIMBAL  ANGLES 


V33-PR0CEED,  SEE  IF  GYPO  TORQUE  COARSE 


00  COARSE  ALIGN 
ROUT 1NE 


3AP-J  ASSEMBLE  RE  VI  SI  ON  56  Of  AGC  PROGRAM  7FKLINA  BY  ZOROASTER 


P o 1 6 7 
0 168 
316  7 

0170 

0171 
017? 
0173 
3174 

0175 

0176 
3177 
0178 
0 170 
OlRO 

Q1HI 

3182 

183 

3184 

3185 
0186 
0187 
Cl  88 
-189 
3193 


CHECK  FCR  G PRO 
REF  1 
REF  253 


RFF 
REF 
REF  1 
RFF  164 


LAST 
5 LAST 
36  LAST 


REF  40  LAST 
PEF  3 1 AST 

REF  3 LAST 

RFF  41  LAST 
REF  3 LAST 
REF  l 


153 

869 


IF  COARSE 
• 

15, 2215 
16  ,2216 
15,2217 
15,  2220 
16  ,2221 
15,  2222 

15.2223 

15.2224 
15,  2225 
15  ,22?6 
15,2227 
15, 2230 
15  ,2231 
15,  2232 
I5,2?3i 
15,2234 
15,  2235 
15  ,2236 
15,2237 
IS, 2240 
15  ,2241 
15,  2242 


AL  IGNMENT 

3 224?  1 

0 46 1 6 1 
20624  0 

1 6C01  1 

1 2201  1 

0 6051  0 
64375  1 
03607  0 
01732  0 
17656  1 
26665  0 
03615  0 
53521  1 
C 1 72?  0 
26673  1 
03623  0 
53521  1 
C 1 7 3 2 0 
36701  1 
31156  1 
77650  1 
32211  1 
CCC13  0 


CCARSTYP  CAF 
TC 

CADR 

TCF 

TCF 


H XV 


OCT  1 3 
BANKCALL 
GOPERF  1 
GCTOPOGF 
REGCOAR S 
INTPRET 


XOC 
YSMD 
UNI  T 
REFSMMAT 
STCVL  YOC 
Z SMO 
MX  V UNIT 

REFSMMAT 
STCALL  7nc 

GYCOARS 

GOTO 


OCT 


P520UT 

13 
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DISPLAY  V 50N25  WITH  COARSE  At  I GN  OPTION 

V34-T  FRM  IN  COE 
V32-N0RMAL  COARSF 
V 32-GYRO  TORQUE  COARSE 


GET  SM(  DESIRED  ) WRT  S 8 ( PRES  ENT  ) 


,AP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZFRLINA  BY  2QROASTE3 


l P5I-PS3 


p^! 
Q193 
•JlOA 
0195 
9 196 
Gl  97 

rioa 

3199 

0200 


COMPUTE  L AND  I f 

REF  A LAST 

PfF  2 I AST 

RFF  1r  LAST 

REF  7 LAST 

RFF  6 LAST 


; ORIENTATION  f 

1 , • 

777  15,2299 

652  15,  2295 

15  ,2296 
1 9,7291 

RT2  15,  2250 
15  ,225  1 

922  15,2252 

923  15,2253 


: OPTION  A 
93F19  C P52LS 
01963  1 
CC66 2 0 
7720  1 1 
00001  0 
02021  0 
91525  0 
C2775  0 
36027  ] 


SET  3LFAR 

LJNAFL  AG 
ERAOFIAG 
SETPD  VLOAO 

0 

»L  S 

PODL  PJSH 

TALIGN 
STCALL  TLA  NO 


0?r<\ 
~>2'  7 
0203 
0 20  A 
02C5 
0206 
3??7 
02  08 
0 209 
3213 
0211 
r 212 


RFF  ? LAST  A?2 

RFF  9 LAST  777 

REF  8 LAST  92'* 

REF  l 

RFF  5 LAST  9 29 

RFF  6 LAST  923 

RFF  1 

REF  2 LAST  9 22 


' . 

15  ,2256 
15,2257 
15,  2260 
15  ,2261 
IS  226? 
1 5,2263 
15,2269 
15,  2265 
15  ,2  266 
15,2267 


55720  1 
77792  0 
160  32  1 
C2775  0 
77629  1 
30990  1 
53575  0 
02C32  1 
37607  1 
10765  1 
77650  1 
32166  1 


VSR2 

STOOL 

CALL 

VLOAO 

STCALL 

GOTO 


RP-TO-R 

ALPHAV 

TALIGN 

\R90ISP 
UNI  T 

ALPHAV 
XSMD 
LSCRI  ENT 

P52D 


9:12  OCT.  21,1970  LEMP5GS  .125  PAGE  929 


USER  • S PAGF  NO.  7 E5  S3 

GFT  LANDING  SITE  ORIENTATION 
TC  PICK  UP  RLS 

PICK  UP  LANCING  SITE  VEC  IN  MF 
RLS  PD  0-5 

JAN  ALIGN  TIMF  IN  TLA  NO  FOR  OPTION  9 
TRANS  RLS  TO  REF 
INPUT  TO  LA  T- LONG 

C0MPJT6  LANDING  SITP  OP  IFNT  (XSMO) 


NOW  GO  COMPUTE  GIMHAL  ANGIES 


GAP:  ASSEMBLE  PEVISION  56  OF  AGC  PROGRAM  ZERLINA  HY  ZOROASTER 


L P51-P53 


P0213  SUBROUTINE  TO  CALCULATE  AND  DISPLAY  THE  LUNAR  LANDING  SHE 


0214 

0216 

3216 


REF  2 LAST 
REF  IB  LAST 


14*.  2000 
14  ,2440 
E 5,  164? 


SETLOC  P50S1 
BANK 

EBANK=  XSM 


0217 

0 2 IP  REF 
3 219  REF 

0220  PFE 

0221 

0222  REF 

0223  REE 
3224  REF 
0225  REF 
•'226  REF 
3227  REF 
0228 


2 LAST  127 
5 LAST  107 

3 LAST  777 

3 LAST  319 
3 LAST  322 
3 LAST  319 

2 LAST  322 

3 LAST  319 
3 LAST  322 


1 *• , 2 440  77620  0 

14,2441  02746  0 

1 4 , 244  2 3 f 24  2 0 

14  ,2443  26347  0 

14,2444  7C54S  1 

14,  244  5 0 1 122  1 

14,2446  16711  1 

14,  2447  01124  1 

14,2450  16713  C 

14,2461  01120  0 

14,  2 452  C 270 7 0 

14  ,2453  77776  1 


N89DISP  STQ 

OMAJ 

STCALL  GDT/2  +4 
LAT-LONG 
DL  CAD  SRI 
LONG 

STOOL  LANDLONG 
ALT 

ST0D1  LANDALT 
L AT 

STORE  LANDLAT 
EX  IT 


Sfj? 

C231 
3232 
0233 
0 234 


RFF  1 

PFF  254  LAST  9?3 
REF  2fl  LAST  922 
REF  37  LAST  923 

RFF  l 


14, 2455 
14, 2*56 
14, 2457 

14.2460 

14.2461 


20477  1 
1 60C 1 1 
1 2462  1 
1 2454  1 


L SOI SP 


CAF  V06NR9* 

TC  BANKCALL 

CAOR  GOFLASH 

TCF  GCTCPCCH 

TC  F +2 

TCF  LSDISP 


'235 
2 36 

0237 

0238 


0239 

3246 

0241 


3243 
.244 

0 245 
0246 
0 247 

3244 


REF  1 65  L AST  923 

REF  4 LAST  925 

RFF  4 LAST  925 

REF  3 LAST  9?5 

RFF  4 LAST  925 

REF  4 LAST  92  5 

REF  4 LAST  525 

REF  6 LAST  92  5 

REF  1 

REF  3 LAST  925 


14,  2462  0 6C  5 1 0 

14  ,2463  72645  0 

14,2464  C 2 7 1 1 l 

14,  2465  16122  1 

14,2466  02713  0 

14,  2467  16124  1 

14.2470  02.707  0 

14.2471  15120  0 

14,  2472  01242  1 

14.2473  77624  1 

14.2474  26420  0 

14,?475  776  50  1 

14,2476  02  746  0 

14,  2477  C 1 5 3 1 1 


TC  INTPRET 

ni.OAO  SI  l 

LANDLCNf 
STOOL  LONG 

LANDALT 
STCOL  ALT 

LANDLAT 
STCDL  LAT 

GDT/2  +4 

CALL 

LALCTCPV 

GO  TO 

OMAJ 
S 89 


V06N89*  VN 
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925 


USER'S  PAGE  NC.  8 E5  S3 


TEMP  STORE  TIME 


DISPLAY  L AT , L ON  G/  2,  AL  T 


V3*  -TERMINATE- EX  IT  P67 

V33-PROCEED-  ACCEPT  LS  DATA 

V32  OR  E-  LOOK  AGAIN  AND/OR  LOAD  NEW  LS 


Pir  K UP  T I me 

GET  RLS  BACK  FROM  LAT.LCNG,  AIT 
RLS  B-29  IN  M P AC  AND  ALPHAV 


PROGRAM  ZFRLINA  BY  ZOROASTER 


> '2A9 
R3259 
RC251 
<'25? 


ASSEMBLE  REVISION  56  OF  AGC 
PSl  -P?3 

NAME  - S 50  Al  IA  < LOC  SAM 


* 025 A 
B0255 

R02S6 


:'271 

:>72 


EM 


UNI T ( SUM  WRT  EARTH) 


= UNI  If  MOON  V»T  EARTH) 


P =POS IT  I CN  VECTCP  CF  LEM 
I 

P = MF  A N 0 IS  T A NC  E ( ? 8 A A 0 ?<  M ) 8ETWEFN  EARTH  AND  MOON 
F M 

P -RAT  ID  R /(DISTANCE  SUN  TO  EARTH)  >.00257125 
EM 

R =FOUATORI  AL  RACIUSS  (637R.166KMJ  OF  E ART F) 

E 

LGCSAM  COMPUTES  IN  EARTH  INFLUENCE 

N = U 

ES 


-UNIT!  R ) 


R 02  7 5 

R0276 
R ~?77 


C SUN  = CGS  90 

EEAPTH  = Cr)S(5  hARCSIMR  /MAG  ( R ))) 


* 0278  C MDCN  = CCS  5 

R3279 

R0280  I N PUT  - T I WF  IN  MPAC 
102B)  OUTPUT  - LI  STFI7  ABOVE 
R?2R2  SUBROUTINES  -L  SPO  S,  I EMPR  EC 
P 2B3  OEBPIS  - VAC  AREA  f TS  I GHT 
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GAP:  ASSEMBLE  PFVISIGN  56  QF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


P 


32R4  REF  2 L AST  46  TO 


8*  COUNT*  it/LCSAM 


C285  RFF 
0286 

0287  REF 

0288  RFF 

0289  PFF 

n2oo 

0291  REF 

0292  RFF 

0293  °FF 
0?94 

0295  RFF 

0296 

.0297  REF 

0298 

0299  RFF 
03D0  RFF 

0301 

0302  REF 

0303 

0304  RFF 
03?9  REF 

0306 

0 307  REF 
0309  REF 

0309 

0310  PFF 
0? 1 1 RFF 

0312  RFF 

0313  REF 

0314  PFF 

0315 

0316  REF 

0317  RFF 
0 318 

031 9 RFF 

0320  RFF 

0321  PFF 

0 322 

0323  RFF 
3324  REF 

0325 

0 326  PFF 

0327  REF 

0328 

3329  REF 
03  3 o RFF 

0331 

0332  RFF 


1 

2 LAST  127 

3 LAST  264 


4 LAST  927 
47  LAST  829 
1C  LAST  829 

° LAST  715 


3 LAST  49  5 


26  LAST  830 

4 LAST  927 

27  LAS!  927 

3 LAST  127 


5 LAST  927 


2 LAST  12-7 
? LAST  927 

6 LAST  927 

2 LAST  927 
28  LAST  927 

4 LAST  92  7 
2o  LAST  927 

7 LAST  Q27 
1 


2 LAST  927 


14,2500 
14,  ?50  1 
14  ,250? 
14,  25C  3 
14,7  504 
14,2505 
14,  75C6 
14  ,2507 
14,7510 

1 4 , 25  1 1 
14  ,2512 
14,  2513 

14.2514 

14.2515 
14,  2516 
14  ,2517 
14,2570 
1 4 , 2521 
14  ,2522 
14,  252  1 
14,2  524 
14 ,7  5?  S 
14,  2526 
14  ,2527 

. 

14,  2531 
14  ,7532 
1 4,  25  23 

1 4 . 2 534 

14.2535 
14,  2526 
14  ,2517 
14,2540 
14,  254  1 
14  ,2542 
1 4,  2543 
14,2  844 
14,2545 
14,  2546 
14  ,2  547 
14,2550 
14,  25  5 1 
14  ,2552 
14,  2 5 c 3 
1 4,  2 5 54 

. 

14, 2556 


77620  0 
C2745  0 
37562  1 
33660  1 
77745  1 
03562  0 
3 4 C 4 1 C 
27056  1 
61131  0 
OCO  5 2 o 
00000  1 
30535  1 
74375  0 
02  723  0 
30C01  0 
52372  0 
00001  0 
77656  1 
26723  0 
GCCC1  0 
57456  1 
16707  0 
20005  1 
77674  1 
’^567  0 
14017  1 
30  5 76  0 
34C23  1 
30562  0 
74375  0 
C 2 7 2 3 C 
30007  0 
53445  1 
02715  0 
26715  0 
C2723  C 
53361  0 
30001  0 
COCCI  0 
57456  1 
26707  C 
00001  0 
57456  1 
16723  G 
30003  1 
77624  1 
30567  0 


S 50  = inCSAM 

LOG SAM  STQ 

QMl  N 

ST  CALL  T SIGHT 
LSPOS 

OLOAO 

TS  IGHT 
STCALL  TDEC1 

L EMPRFC 
SSP  T IX  ,2 

S2 


0 

MOCNCNTP 

FAR  TC.NTR  VLOAD  VXSC 
V MOON 
R SURF  M 
VSL1  VSU 
RATT 

UNI  T 

STOVL  V MOON 
RATT 

UNIT  VCOMP 
STOOL  V F APT  H 
RSUBE 

CALL 

OCCOS 

STOOL  2EARTH 
CSS  5 

STCALL  CMCON 
F NO  SAM 

MOCNCNTR  V L CAD  VXSC 
VMCON 
ROE 

BVSIJ  UNIT 
VSUN 
STOVL  VSUN 
VMCON 
VXSC  VAO 

RSUBEM 

RATT 

UN  IT  VCOMP 
STCVL  VEARTH 
RATT 

UN  IT  VCOMP 
STCQL  VMCON 
R SUB  M 

CALL 


OCCOS 
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GAP:  ASSEMHI  E Hf-vlSION  *b  flF  AGC  PROGRAM  ZERLINA  BY  ZORCASTtk 


0333 
3334 
0335 
■336 
03  37 

0339 
3339 
C3A0 
0 34  l 
3342 
0343 
0 344 
0345 
J4£ 
3 347 
0348 
0 340 
3 353 

0350 

0351 
0351 
C 352 
3352 


LAST  52  7 
l AST  027 
LAST  927 


OFF 

RFF 


4,2557 
4,  250 
» ,2561 
4,25(2 
4,  256  3 
• ,2564 
4,  25(5 
4,2  5(6 
4,2567 
4,  2570 
4 ,2571 
4,2572 
4,  257  3 
. ,2574 
0016 
0020 
0022 
4,  2575 
. ,2576 
4,2577 
. 

- ,260  1 

4,  26C  2 


14023  0 
•G57(  C 
COO  17  1 
77745  1 
30600  1 
00021  1 
77650  1 
02745  0 
70471  1 
C0045  0 
43336  0 
3060?  0 
70546  1 
77616  0 


C 7 7(0  1 
14473  1 
04000  0 
COCCO  1 
00343  O 
21616  0 


CEAR  TH 
C SIN 
OCTN 
C SS5 


DDV 
AS  IN 


20FC 
2 CEC 


CHOON 
CSS5 
CEAP  TH 


OMIN 

SRI 

3(0 

DAO 

5 0FGRFFS 

SPl 

140 

160 

180 

. 2490475 


5TEGRFES  2 CEC 
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P3353 
ft  ')3  5<. 
*0  355 

R33S6 

ar-357 
R 0 358 
R3359 
1 0360 
R0361 
R r 3 6 2 
1 036< 
R3  366 
RO  365 
RT366 
RJ3&7 

< 0368 
R0369 
R 03  70 
1 “*37  1 
R3372 
R0373 
RO  376 
R3  375 
* C 376 
RD3  77 
R 0-1 78 
U3  79 
R3330 
R0  381 
R038-> 

R3  3fl3 
1 0386 
R03  85 
Ri)3R6 

< "*387 
RD388 
R 0 389 

0 390 
3391 

0392 

0393 
03<JA 

0396 
3396 

0397 
V 398 
3399 
060p 
0601 
06  02 


PROGRAM  NAME  - R66 
MCP  1 

BY  KEN  V INCENT 


OATE  DEC  20  66 
LCG  SECT  ION  P51-P53 
ASSEMBLY  SUNDISK  REV  60 


FUNf  TION 

THIS  PROGRAM  RFAO  THE  IMU-CDUS  A 01)  COMPUTES  THE  VEHICLE  ORIENTATION 
WITH  RESPECT  TO  I NFRTI  AL  SPACE.  IT  THEN  COMPUTES  THE  SHAFT  AXIS  (SAx) 
WITH  RESPECT  TO  REFERENCE  INRRTIAL.  EACH  STAR  IN  THE  CATALCG  IS  TESTED 
TO  DETERMINE  IF  IT  IS  OCCULT  F C BY  EIThFR  THE  EAR  TH, SUN  OR  MOON.  IF  A 
STAR  IS  NOT  CCCLLTEO  THEN  IT  IS  PAIRED  WITH  ALL  STAR  OF  L OW  FR  INDEX. 
THE  PAIRED  STAR  IS  TESTED  FOR  OCCLLTATION.  PAIRS  OF  STARS  THAT  PASS 
THF  CCCULTATION  TESTS  ARE  TESTF.C  FCR  GCOD  SEPARATION. A PAIR  OF  STARS 
HAVE  GOOD  SEPERATION  IF  THF  ANGLE  BETWEEN  THEM  IS  LESS  THAN  100  DEGREES 
AND  MOPE  THAN  5C  DEGREES  - THCSE  PAIRS  WITH  GOOD  SEPARATION 
ARE  THEN  TESTED  TO  SEE  IF  THEY  LIE  IN  CURRENT  FIELD  OF  VIEW.  (WITHIN 
6'  FGRPFSOF  SA  X I . THE  PM'-'  WITH  MAX  SEPARATION  IS  CHOSEN  FROM 
THCSF  WITH  GDOD  S EPARAT  ION,  ANC  IN  FIELD  OF  VIEW. 


CALL  ING  SEQUENCE 
I TC  BANKCALL 

L + 1 C ADR  R 66 

L +2  ERROR  RETURN  - NO  STARS  IN  FIELD  OF  VIFW 

L+3  NORMAL  RETURN 

OUTPUT 

OESTI.PESTJ  -SINGLE  PREC  , I N T EG  E PS  , ST  AH  NUMBERS  TIMES  6 
VFLAG  - FLAG  BIT  SET  IMPLIES  NO  STARS  IN  F I F LD  OF  VIFW 


INI  TIAL  17ATIPN 

1 ) A CALL  TO  LOCSAM  MUST  BF  MADE 


DERR  IS 

WORK  AREA 
X , Y , ? NR 
S INC DU, COS CCU 
STARAD  - STAP  +6 
PFF  1 
REF  1 

REF  12  LAST  fll  8 
REF  4 LAST  928 
REF  1 66  LAST  925 

RFF  3 LAST  568 

REF  1 


REF  1 


16,2603 

16,2603  0 6665  1 

16,  26C6  ?*•  765  1 

16,  2605  0 6061  C 

16.2606  77626  1 

16.2607  67  635  1 

16,2610  77626  1 

16,261  1 20030  0 

1 6 , 2612  77601  0 

16  ,2613  0000  1 0 

16,2616  71216  c 

16,  26  15  01665  1 


R56 

PICAPAR 


TC 

TS 

TC 

CALL 
CALL 
SE  TPB 
SET 


P I CAPAR 
M /R  56 

w AK  EC ADR 
QMI  N 
I NTPRFT 

CDUTRIG 

CALCS  MSC 

3 


OLCAO 
VF  LAG 


VFt  AG  = 1 


G A P : 


ASSEMBLE  REVISION  56  OF  AGC  PKliGP i 


ZfcRLINA  R V ZOROASTER 


L P51-P53 


0533  REF 

05 04  PFF 

0505  PEF 
3506 

C407  PFF 
0508  PFF 

05  05 
05IC 

34J.1  REF 

0512 

0513 

0516  OFF 
0516  OFF 
0616 

0617  REF 
051  8 

0617  RfF 

0520 

0621 

062?  Pf F 
(J  623  PEF 

626 

05?5  PFF 
<626  RFF 
7627 

0628  REF 
0620  REF 

0630 

0631  PFF 
0 6 3? 

0600  PFF 
0636  RFF 
0636 

0636  RFF 

0637  RFF 
063R 

0639  REF 

0660  PFF 

0661 

(66?  RFF 
0663  REF 
0666 

0666  REF 

0666  REF 

0667 

066R  RFF 
0669  PEF 

0650 

0651  REF 

0652  RfF 


2 


4? 


1" 


2 


25 


3 


LAST 

LAST 

1 AST 

LAST 

I AST 


LAST 
I AST 


I AST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

L AST 
LA  ST 

LAST 


9 1 9 
386 

379 

930 

923 

60  7 
927 


600 


878 

930 

9 3o 
930 

930 

930 

930 

9 30 

530 

930 


14.262C 
14,  252  1 
14  ,?622 
14,7623 

14, 2624 
14  ,’625 
14,  2526 
14,2  62  7 

14.2630 

14. 2631 
14  ,263? 

14 .2633 

14. 2634 

16  ,?63S 
14,  ?6  36 
14,2  63  7 

1 4 ,2640 
14,  264  1 
14  ,2642 
1 4 ,?64  3 
14, 2644 
14  ,2646 
14,  2546 
14,2647 
14  ,2  650 
14, 266  1 
1-  ,246  2 
14,266  3 
14, 2654 
14  ,2655 
14, 2656 
14,2  667 
14  , >660 
14,  245  1 
14  ,?662 
14,2661 
14, 2654 
14  , ?665 
14, 25 56 
14,?667 
14,2670 
14,  2671 
16  ,2672 
14,2673 
14,  2b 74 

14 .2675 

14. 2676 

14.2677 


C2665  0 
53251  C 
24005  l 
0?  70 1 0 

74370  C 
00344  1 
24CC5  1 
77655  1 
53506  1 
C1732  0 
02731  0 
55331  C 
OCC  5 1 0 
00006  1 
00C52  0 
Ot'C  06  1 
52100  1 
30643  0 
30  760  0 
51373  0 
30  *4  7 1 
02731  0 
5GC25  0 
30757  1 

3 3640  0 
77754  1 
00046  0 
52104  C 
20656  1 
30640  0 
5C373  0 
47430  3 
02731  C 

CGC25  0 
30757  1 
20653  1 
47773  1 
30347  1 

4 7 4 3 C 0 
51025  1 
3C755  0 
30653  1 
45173  0 
30347  1 
3C  732  1 
77614  1 
C1710  0 
30640  0 


PIC1 


PI  C? 


PI  03 


PIC4 


DPZERC 
STOVL  3FSTI 
XNB 

VXSC  PD  VI 

HALFOP 

7NR 

A XT , 1 VXSC 
2280 
HALF  D P 

VAO 

VXM  J N IT 

RFF  SMMAT 

STORE  SAX 
SSP  SSP 

si 


6 

S2 

6 

T IX  , 1 GOTO 
PI  C2 
P ICEND 
VLCAD*  DOT 

! A TLOG  ,1 

SAX 

OSU  BMN 

CSS33 

P1C1 

LXA  ,2 

XI 

TlX, 2 GOTO 
PIC4 
P IC1 

VLGAD*  DOT 

CA  TLOS, 2 
SAX 

OSU  BHM 

CSS33 
PIC3 
VLOAD*  DOT* 

CATLOG,  1 
C AT  LCG ,2 
OSO  3 P L 

CSS40 
PI  C3 
VLOAD*  CALL 

CATLOG, 1 
OCC  ULT 

BON 

CULTFLAG 
PIC  1 
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XI  = 37  X 6 f6 


SA  X = SHAF  T A XI  S 
S 1=S2=6 


MAJOR  STAR 


GAP:  ASSFMPI.E  REVISION  66  OF  AGC  PROGRAM  ZFRLINA  BY  70RDASTER 


L P51-P53 


3 655 

"*  6 56 
0657 
045B 
06  59 
0660 
3661 
1)662 
0663 
3 666 
0665 
0 6 66 

0667 

0668 
3669 
06  70 
0671 
7672 
r 673 
1)676 
f 6 76 
■676 
7677 
06  78 
06  79 
36.87 
0681 
0 68  2 
0683 

6R6 
3 686 
'•6  86 
0 68  7 
3688 
06«9 
0690 
06  91 
69? 

7693 

0696 
0695 
3696 
069  7 
' 49  ft 
06  98 
0699 
3699 
0500 


REF  6 LAST 

REF  2 LAST 

PFF  2 IASI 

REF  3 LAST 

REF  ? LAST 

RFF  1 

REF  6 LAST 

RFF  3 l AST 

RFF  7 I A ST 

PFF  8 LAST 

RFF  3 LAST 

RFF  1 


REF  6 LAST 

REF  7 LAST 

RFF  6 LAST 

RFF  5 LAST 

REF  1 

RFF  1 

REF  1 

REF  ? I AST 

RFF  396  LAST 

REF  3 LAST 

RFF  397  LAST 

REF  6 LAST 

REF  3 LAST 

RFF  6 LAST 

REF  6 LAST 

REF  6 | AST 

»FF  3 LAST 


, 16.27CC 

9 30  16,2  701 

930  16.27C2 

16,  ?7C3 
16,27  * 

930  16,?705 
1 6,  2706 

929  16  ,2707 

16,  2 7 1C 
’6,2711 
970  16,2717 

206  16,  2713 

16  ,2716 

931  16,2715 

93  1 1 6 , 2 7 1 6 

16  ,2717 
931  16,  272C 

16.2721 

16.2722 
16,  2 723 

93  1 16  ,2726 

16,?725 
93  1 16,  2726 

931  16,2727 

16,  2 7?C 
93  1 16,2731 

1 6,2732 
16, 2733 
16  ,2736 
16 ,2735 
16,  2736 
16  ,2737 
93  1 16,  2760 

9 12  16,2  761 

16,2762 
93  1 16,  276  3 

931  16  ,2766 

1 6,2  765 
931  U, 2766 

931  16,2767 

705  16,  2750 

16.2751 
931  16,275? 

931  16,  2753 

9?  R 0016 

16.2756 
16, 2755 
16  ,2756 

16. 2757 
16,2760 


30732  1 
7 7 f 1 6 1 
0 17  10  0 
30653  1 
77616  1 
01605  0 
3(725  1 
65  120  1 
02755  1 
C 27  56  1 
67773  1 
303*7  1 
67630  0 
63006  0 
C 1 56  5 1 
30711  0 
65365  1 
77666  1 
30653  1 
67130  1 

02755  1 

02756  1 
7765C  1 
30653  1 
51321  0 
C 2 7 C 7 C 
000  17  1 
77656  0 
2C75  1 1 
75260  0 
3C751  1 
00160  C 
75260  0 
3C751  1 
00  162  1 
6 3060  1 
3C75 1 1 
01630  0 
CCf 52  0 
77616  1 
01630  1 
CCC52  0 

051 K 1 
35C52  0 
05110  1 
35C52  0 
776  16  f 


STRATG’ 


STRAT 


NEWPAR 


OCCULT 


CUL  TED 

CSS 

CSS60 

CSS33 
P ICENO 


VLCAD*  CALL 

:a  TLOG, 2 
OCCULT 

BON 

CULTFLAG 
P IC3 

BONCLR 

V FLAG 
NEWPAR 
XCHX,  1 XCHX,  2 
BEST  I 
BE  ST  J 

VLOAD*  DOT* 

CATLOG.l 
CA  TLOG  ,2 
PUSH  80FINV 
VF  L AG 
STRAT  -3 
□LOAD  DSU 
8 PL 

P 1C3 
SX  A,  1 SX  A ,2 
3 E STI 
BEST  J 

GOTO 

PIC  3 
MX  V BVSU 

CULTR!  X 
CSS 

9ZE 

C ULTED 
8MN  S IGN 

C ULTED 
MPAC  *■  3 
BMN  S ICN 

CUl  TFO 
MPAC  +5 
BMN  CLRGO 

: ULTEO 
CULT  FLAG 
QPRET 

SETGO 

CULT  FLAG 
QPRFT 

= CEARTH 

2 DEC  .16070 

2 DEC  .160  70 

BOFF  EXIT 


« 
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L P51-P53 


D5J!  REF 
050*  «>FF 
0 503  REF 

D5D* 

0505  RTF 
05^6  RFF 
05  07 

05CB  PFF 
3509  REF 
05 1C 

051!  PEF 
^ S 1 2 REF 

0513 
0 5 1 A 

051*  °EF 
1516  RFF 
3517 

051  ft  rff 

0510 

35?3  PEF 
'-521  PEF 
T5?2  PFF 
0523 
052* 

0525 

0526 
52  7 

3525 

O52o 


* LAST  931 


8 LAST  031 
5 I AST  OTl 

* LAST  030 

9 LAST  931 

5 LAST  032 
10  | AST  032 


6 LAST  032 
O LAST  0 32 

5 L AST  029 

6 LAST  932 
3 LAST  *09 


10,2762 
10,2  763 
10,  27*0 
10  ,2765 
1 0 , >766 
10,  2767 
10 ,277P 
15,  2 77  1 
10,  >772 
10,2773 
10,  2770 
10,2775 
1* , ?776 
10,  ’777 
10  ,300( 
10, 30C  l 

10. 3002 

10.3003 
10, 3000 
10  ,3005 
1<.  ,3906 

0000 

3006 

0010 

0022 

0030 

0036 

OOOD 


C 1 70  5 
30760 
C 3005 


02755 

02756 
0 7775 
02  731 
3C307 
07715 
C?  73 1 
07030 
77625 


660  0^* 
:-ioo3 
02756 
77730 
02755 
7777ft 
25*705 
3 1705 
0 0622 


TC 

PICGXT  LXA.1 


VLOAD 


POVL 


OSU 

BPL 


SXA  ,2 


P1CNSWP  EXIT 
I NCR 

PICBXT  CA 
TC 

VP  0 

vn 

vi 

V2 
V3 
DP  0 

DP  l = 


VF  LAG 
PICT.  XT 
PICBXT 
L XA  ,2 
BFSTI 
BFST  J 
DOT* 

SAX 

CAT  LCG  ,1 
DOT* 

S AX 

f ATI  OG  ,2 


SX  A,1 
PICNSHP 
BEST  J 


8F  STI 


OBI  h 
OM  IN 
SWCALL 
00 
60 
120 
180 
20  D 
30D 
320 
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L P51-P53 


P<  530  KAME-R5 1 TINT  ai  icn 

1'’531  F UNG.  TI  PN-TO  A LION  THE  STABLE  MEMBER  TC  REFSMMAT 
R2  532  CALL  INC  S EQ-  CALL  R51 
»r  53^  I MPUT  - REFSNPAT 
R0534  OUTPUT-  GYRO  T0R3  UE  PULSES 

SUBROUTINES  -L  OCS  AM,  P IC  AP  AR , R 5 i , R 5 3,  R 5 A,  R 5 5 

**/R  51 

QMA  J 

PHASCHNG 
04C24 


>536  RM- 

0537 

0538  REF 
0530 

3543 
0 541 


RFF  74  | AST  920 


14,  30C7 
14,  30  10 

14,3111 
14,  3012 
14,3013 


7762C  0 
02146  0 

77776  1 


(•  544 
1545 
0546 
v'547 
3 54  8 
0540 
0 5 5f 
05K  1 
0552 
1553 
0554 

0 555 

1556 
05r’7 
>558 
055  0 
0560 
1561 
r 5,2 

1563 

1564 
0565 
0 566 
0557 
0568 
1569 
05  7C 
0 571 
>57? 


R f f 
REF 
RFF 
KEF 


RFF 

REF 


RFF 

RFF 


RFF 

RFF 
RFF 
RFF 
RFF 
1 ( F 

REF 
RFF 
RFF 
RFF 
REF 
r l F 
REF 
RFF 
RFF 

PFF 


255 


38 


167 

25 


2 

256 


2 

Ifi 


257 

29 

39 

3 

l 

1o2 

3 

168 

76 


I AST 
L AST 
LAST 
I AST 


185 

023 

025 


LAST  920 
LAST  843 


LAST  927 
LAST  933 


FAST  933 
I AST  9 16 


LAST  033 
LAST  925 
LAST  931 
LAST  933 

LAST  9 16 
LAST  732 
LAST  0J3 

LAST  033 


14,  10  15 
' - . ' I 
14,  3 .17 
14, 3020 
14,3)21 
14, 3022 
14  ,3023 
14,3024 

14, 3027 
1 4 , 1030 
14,3031 
14,  3032 
14  ,3033 

1 4 , 3 0 ? 4 
U,  30  35 
14 ,30  36 
14, 3C27 
1 4,  3 4 
' • 

14,  3042 
14,3043 
1 4 , 3 C 4 4 
1 4,  3045 
14,3oas 
14,  3047 
’ . 

14,3051 
14,  30  5 2 


20624  0 
C 6CC 1 C 
0 3022  1 
0 1045  0 
C 6051  0 
4?234  0 
21555  1 
1-1155  1 
77624  1 
3C5C0  1 
77776  1 
C 4616  1 
2060  3 1 
0 3035  1 
0 3045  0 
0 56C0  1 
00405  0 
? 50C 6 1 
C 4616  1 
2C477  1 
C 6C01  0 
0 1045  0 
C 3014  1 
2 47 c5  1 
55*  757  1 
C 6C  5 1 0 
77776  l 
C 5364  0 
C4C24  0 


R51  C 


R5  1 F 
R 5 1 1 


R51E 


R51.2 
R5  1.3 


CAF  OCTl 5 

TC  BANKCALL 

CACR  G0PERF1 

TC  G OTCPCOH 

TC  f 2 

TC  R51E 

TC  INTPRET 

RTB  DAD 

LOADT  IMF 
TSIGH  TI 

CALL 

L OCS  A M 

EXIT 

TC  BANKCALL 

CADR  R 56 

T C.  R 5 1 1 

TC  P51F 

TC  ALARM 

OCT  40  5 

CAF  V BO 5 NO 9 

TC  BANKCALL 

C ADR  GOFLASF 

TC  GOTCPCCH 

TC  R 5 IF 

TC  R51C 

CAF  ZERO 

TS  STAPIND 

TC  I NTPRET 

FX1T 

TC  PHASCHNG 

OCT  04  024 


057?  RFF  16Q  LAST  933 

0574 

0575  RFF  1 

C576 

3577  RFF  258  LAST  933 


14,305  3 ( 6C51  0 

. 

14,  ’0  55  216  7 1 0 
14  ,3056  77776  1 
14,  1057  C 4616  1 


TC  INTPRET 

CALL 

R52 

EX  IT 

TC  BANKCALL 
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V13F 

ENTER 


AOP  WILL  MAKE  CALLS  TO  SIGHTING 
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l P5T-P53 


578 

REF 

1 

14,3060 

16000 

C 

5 79 

REE 

Z5‘ 

LAST 

933 

14,  30  M 

C 4616 

1 

0500 

PEF 

1 

14, 3f  62 

177  11 

C 

0 5P  l 

PEE 

1 

14,3063 

0 571? 

0 

1532 

PEE 

6 

L AST 

939 

14, 3064 

11*757 

1 

r 583 

14  ,1065 

1 3067 

1 

05P4 

i [ 1 

1 

14,1066 

0 ’13  7 

1 

05  85 

PEE 

170 

L AST 

933 

14,  3(;  ft  7 

C 6C  5 1 

0 

0 506 

14  ,3070 

77775 

1 

1587 

PEE 

12 

LAST 

322 

14,  3C  71 

C2715 

c 

0588 

RFF 

* 

LAST 

250 

14,  3 72 

02767 

0 

0589 

1 4,1C 71 

77776 

1 

0590 

REF 

77 

L AST 

933 

14,  10  74 

C 53t4 

0 

0591 

14,3075 

04024 

0 

' 1 ' 

REE 

171 

LAST 

534 

1 4 , 3C  76 

C 6C51 

0 

05  9! 

14,  30  7 7 

45145 

0 

0594 

REF 

8 

LAST 

9?  7 

14,3100 

0356? 

0 

0595 

REF 

1 

14, 3101 

32500 

c 

0596 

14,  3*0? 

53521 

1 

■597 

PEF 

43 

LAST 

93  C 

14,3103 

01732 

0 

1598 

PE  F 

13 

L AST 

934 

14,  3104 

26715 

0 

599 

RFF 

2 

LAST 

149 

• 

03554 

0 

0600 

14,3106 

e 3 5 2 1 

1 

06f'1 

RFF 

44 

L AST 

934 

1 4 , -3  10  7 

01732 

0 

0602 

RFF 

14 

LAST 

934 

14  ,3110 

26  70  7 

0 

0603 

REF 

3 

LAST 

20  4 

14,  2111 

C2761 

0 

0609 

14,  71  12 

24007 

0 

0605 

RFF 

5 

LAST 

934 

14,3113 

02767 

0 

0616 

14,  1 1 1 4 

?4  C 1 5 

1 

060  7 

RFF 

1 

14,3115 

31250 

1 

0608 

14  ,3  116 

45014 

0 

0609 

PEF 

1 

14,  3117 

00  354 

0 

0610 

REF 

1 

14  ,3120 

31126 

0 

0611 

R EF 

1 

14,  3121 

47437 

1 

0612 

14, 3122 

77624 

1 

0613 

REF 

1 

14,3123 

31216 

0 

0516 

14, 3124 

77(14 

1 

0615 

REF 

3 

LAST 

92  2 

14  ,3125 

01273 

0 

0616 

14,3  126 

77776 

1 

06 1 7 

PEF 

2 

1 AST 

187 

14, 1127 

2 5752 

1 

0618 

REF 

260 

LA  ST 

934 

14 ,3 1 30 

0 4616 

1 

0519 

REF 

7 

1 AST 

933 

14,  3 131 

2C(24 

0 

0620 

PEF 

40 

1.  AST 

933 

H,  3132 

C 6001 

0 

0621 

RFF 

2 

LA  ST 

933 

14,3133 

0 3014 

1 

0622 

REF 

172 

L AST 

934 

14, 3134 

C 6051 

0 

0623 

■ , l 

77650 

1 

0 626 

RFF 

5 

LA  ST 

933 

14,3136 

02746 

0 

0626 

REF 

173 

L AST 

9 34 

14, 3137 

0 60  51 

0 

0626 

14,3140 

77775 

1 

ZOROASTER 
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CACR 

TC 

C ADR 

TC 

CCS 

irr 

TC 

TC 

VLOAD 

AOT  MARK 

B AN'KC  ALL 

OPTSTALL 

CUPT  A INS 

STARI NO 
♦ 2 

R51  .4 

I N TPRF.  T 

STAPAO  *6 

STORE 
FX  IT 

TC 

OCT 

STAR  SAV2 

PHASCHNG 

04024 

TC 

□ LOAD 

FNTPRET 

CALL 

TS  IGHT 

PLANET 

MXV 

UNI  T 

REFS  MM  AT 

STCVL 

STAR AO  +6 

PL  ANVEC 

MXV 

UNIT 

REF  SMMAT 

STOVL 

ST  ARAO 

STARSAV1 

STDVL 

60 

STARS  AV  2 

STCALL  120 

R 54  STAR  OATA  TEST 


BOFF 

CALL 

CALL 

FREEF  LAG 

R 5 IK 

AXISGEN 

R55  GYRO  TORQUF 

CLEAR 

PFRATFLG 

EXIT 

3 CAF 

TC 

CADR 

TC 

TC 

TC 

GOTO 

OC  Tl4 

RANKCAI.L 

G0PERF1 

SOTUPOOH 

R51C 

I NTPRET 

TC 

VLOAO 


OMAJ 
I N TPRF  T 
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0627  RFF 

0628  REF 
)629 

063  0 REF 
0631  PFF 
D6  32  RFF 
0633 

l"'6  3A  REF 

0635 

0636 

3637  PEF 
063  fl 
0638 


1 


LAST  93a 
LAST  93 A 

LAST  R3a 
LA  ST  93A 
LAST  03A 

LAST  93A 


1 At  31A  1 
1 A » 3 1 A2 
1 A,  3 1 A 3 
1 A,  3l  AA 
1 A.31A5 
l A»  3 1 A 6 
l A t3  1 A7 
l A , 3 1 SO 
1 A,  3 151 
1A  ,3152 
1 A,  3 15  3 
1 A,  ^1  5A 
1 A,  3 1 55 


02715  3 
02761  0 
A 5 1 A 5 0 
03562  0 
32500  0 
C355A  0 
77731  1 
02760  1 

G^OCl  0 

77650  1 
3105C  0 
00002  0 
C62A0  1 


STAPAO  +6 
STORE  STARSAV1 
0 LOAD  CALL 

T SI  GMT 
PLANET 

STORF  PLANVEC 
SSP 

STAR  1ND 
1 

GOTO 

R51.3 

TSIGHT1  20EG  36000 


6 MIN  TO  MARKING 
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L P51-P53 


P'l639 
16  4 6 
Gb41 
<66? 
06  A 3 
<>644 
3 64  5 
' 646 
<6'-7 
164B 
' 64  9 
461 

0651 

0652 
1653 

06  54 

'664 

0656 

"657 


CYRO  TORQUE  THAR  SF 


REF  6 
PFF  1 

PFF  3 
REF  ? 

REF  1 
REF  261 
REF  3 
PFF  1 
REF  262 
REF  4 
REF  263 
REF  ft 
REF  2 
PFF  7R 


LAST  934 


I A ST  P73 

LAST  922 


LAST  9 34 
LAST  505 

LAST  9.36 
LAST  393 
t AST  936 
IASI  383 
I A ST  914 
I AST  9 36 


A L 1 G N ME  6 T 
14,  1 156 
14,3157 
14, 2 16C 
14,  H6l 
14,316? 
14,  Ufc3 

14.3164 

14.3165 
14,  3 166 
14,3167 
14,  3 179 

’4,  3171 
l 4 , 3 1 72 
14,3173 
14  ,3174 
14,3176 

14. 3176 

14.3177 


45020  1 
02  746  0 
47245  1 
43014  0 
Cl  260  1 
C 1662  1 
77776  1 
3 3215  1 
0 46 16  1 
2"452  0 
? 3247  0 
0 46  16  1 

17270  1 
C 46 16  1 
17715  1 
0 5712  C 
0 6364  0 
04024  0 


GYC9A-' 


QMAJ 
C ALCGTA 
CLEAR  CLEAP 

OP  1 FT  FI  G 

PEFSRFLG 

EX  IT 

CAF  V16N20 

Tf  BANKCALL 

C APR  GO PS PR 

CA  065  COR 

Tf  BANKCALL 

CADR  IMUPULSE 

TC  BANKCALL 

CAPR  fMUSTALl 

TC  CURTAINS 

TC  PHASCHNG 

OCT  14024 


1558 
■ 64  9 
0660 
1661 

0662 
9 66  T 
0664 
0666 
1666 
066  7 
>668 
?669 
06  7' 
"67  1 


PCF  174 

REF  7 
RFF  45 

REF  1 

RFF  4 
REF  4 

REF  l 

REF  2 


LAST  934 

LAST  524 
l AST  934 

LAST  934 
I AST  93 f 

LAST  934 


14,  32C0 
14, 3201 
14,32  02 
1 4 , 3263 
14  , 3 2 • 4 
, 

14,  3 206 
14,3207 
14,  1 2 1 C 
1 4,  321  1 
14,3212 
14,  32  1 3 
14  ,3214 
14,3215 


C 6(51  C 
75160  1 
03606  1 
01731  0 
77624  1 
21371  0 
4 3 0 1 4 0 
01273  0 
C 1 46?  0 
77624  1 
31603  0 
77650  1 
21126  0 
04024  0 


TC  1NTPRET 

A XC  , 1 A XC  , 2 
XSMD 
RFF  SMMAT 

CALL 

MATRCVE 
CLEAR  SE  T 

P FR  AT  FI.  G 
REFS  RF  LG 

CALL 

NCOARS E 

GOTO 

R 5 IK 

V16N20  VN  1620 
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MONITOR  GIMBALS 


STORE  DESIRED  REF  SRMAT 


SET  DRIFT  AND  INITIALIZE  1/PIPADT 


•i AP : ASSEMBLE  REVISION  56  QF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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PAGE  9i7 


'6  7'. 


K .675  ■ 
R1676 
1 - 677 
067R 

0679 

0680 
5591 
'6*2 
0683 
06  8'. 
0686 
5636 
0637 
U6B* 
1689 
U690 
069  | 

0692 

0693 


061 


0695 
0 696 
5697 
0690 

0699 


57?? 


R'  7 1* 
RU19 


P51  -P5? 


USER'  S PAGE  NC.  20 


P 65  GYRO  TORQUE 

FUNCT  IHN-COMPUTF  AND  SEND  GYRO  PULSES 
CALLING  SCO-  CALL  *56 

INPUT-  >,Y,ZOC-  9FFSMMAT  KR T PRESENT  STABLE  MEMBER 
OUTPUT-  GYRO  PlJLSFS 

Sl-UOLTI  NF  S-  f A LOG  T A ,GHFLASH  »GCCS  PR,  I MU  F IMF,  IMUPULS  F,  GOP 


REF 


1 


R97?., 


I AST  936 


REF  1 
REF  266 
REF  3C 


I AST 
LAST 
l AST 


PFF 


RTF  2 
PLF  265 
REF  6 
RFF  266 
RFF  9 
PFF  3 
RFF  8C 


l AST 
l AST 
LAST 
LAST 
LAST 
L AST 


I AST 


9l6 
93  7 
936 
93? 

536 

936 

937 


H,  3216 
1'.  ,3217 
16,  3220 
1 A ,3221 
16,3222 
H, 3223 

16 . 3226 
16,  3225 
’6,  3?  ? 6 

16.3227 
16, 3230 
16  ,3231 

. 

1/,,  3233 
16  ,3236 
16,  1235 
. 

16,3217 
1 6,  3260 
16  ,326  1 
I 6,3  26? 


77620  0 
C2765  0 

77626  1 
67265  1 
77776  1 

2)  3266  1 
' 1 /. 


P 5 5 


CALCGTA 


6616  1 
20677  1 
C ^Pfl  0 
0 3231  1 
C 5\26  3 1 
0 5.»66  0 

00i>i4  o 
: 0 

0 661V,  l 

1 727. i i 


0 66  16  i ! 

17715 
C 5712  l 


o 5366  0. 

06026  C\v 


OFF  1 7C  I AST  936 


„ 0703 

0706 
5755 
R 0706 
■ 7 

RG710 


PFF 


LAST  937 


1 6,  3 2a  3 
I 6,3266 

15,  3?65 

16. 3266 

1 6.3267 

1 6,  3?50 
ME-  CHKSCAT4 


303 


PFF  12 
PEF  1 
P CUT  I NF 
MOO  NO- 
MCDIFICATICN  BY-  LCNSKE 


r 6C c i o 

77650  1 
C2765  0 
01535  1 

C2737  0 


\ 

p 55RFT 


V06N93 
BANKCALL 
G OF  LASH 
GOTOPOOH 
R55.2 
R55RFT 
P HA  SC  HN  G 
00216 
R55CDR 
PANKCALI 
I MUPULSE 
BANKCALI 
1 MUST  ALL 
CURTAI  NS 
P HA  SC  HNG 
06026 


I NTPRF  T 


VI  6Ni(q3 

0 5AC^R 


QMI  N 
C 693 

OGC 

f H K SO  A T A 


DA TF-  JAN  9,  1967 

l OG  SECT  ION-  P51-P53 
ASSFMRLY- 


1 712 
R 1 7 ] 6 
« 716 


FUNCTIONAL  OF  SCRI  PTI  r N - rHFCKS  JFE  VALICITY  OF  A 0F  ST  AR  SIGHTINGS.  WHEN  A Pi  U OF  STAR  SIGHTINGS  A KF  MAOE 

BY  T HE  ASTRONAUT  THIS  ROUTINE  OPERATES  4ND  vHfr.KS  Th(l  08S  E RVE  0 SIGHTINGS  AGAINST  STORED  STAR  VECTORS  IN  THE 
CC^PUTFR  TO  INSURE  A PROPER  SlCHTING  MAS  MAOF . THE  rtuL3WING  COMPUTATIONS  ARF  PERFORMER. 


PS1  = OBSEPVEO  STAR  1 VFCTCR 
"S'-  ~ r" " c ^ c r a o i wtr  toj 


R'72t 
R0722 
3 723 
R5726 


: n«  stMVbU  > i -ik  I vr  V.  ■ . " 

QRSFPVEO  SIAR  2 VECTOR 

551  = STG^EO  STAR  1 VECTOR 

552  = STORED  MAR  2 VFCTCR 
A 1 = ARCCOS  (0S1  - 0 S 2 ) 

A?  = APCCCS  (SSI  - SS?  1 
A = AB  SI  2(  A 1 - A 2 ) ) 


I 


1 _ 


L 

3 725 
ft)  7?f 
R:  727 

M'-7?9 

90731 

* f<7  3? 
ft  *>733 
7’4 
> ^735 
3 736 
' 737 
' 7 IP 

3739 

( 7 V 
I 74  1 
RG742 
•'7a  3 
3744 
-'745 
: 746 
3 74  7 
6748 
'743 

( 750 
751 
37  5? 

0 753 
7 54 


'■757 
' 75  3 
'•7  59 
3763 
1 761 
0 76  2 
3763 
C 764 
765 

0766 

0767 
3768 
0 769 
J 770 
7771 

77? 

0773 

0774 
0 776 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERLINA  «Y  2CR0 AS  TER  ' 

F51-P53  V 

E*H*IfnnFAl  C!SS.l'YfC  F0R  "STRONAIIT  4CCEPT,-RCCEf  0 

CXTF  MORE  1.  FRFEFLAG  SET  IMPLIFS  ASTRONAUT  WANTS  TO  RECYCLE 

2.  TSE6FIAC  RESET  IMPLIES  ASTRONAUT  WANTS  TJ  BETWEEN  2 S 
PUTPO  - I. VERB  6.N0UN  3-  DISPLAYS  ANGULAR  01  FFCt>ENCFfi  fe0  AND  12[>. 
2. STAR  VECTORS  FROM  STAR  CATALOG  AR  r LEFT  j 


ERASABLE  I M TI  ALI  7ATI  CA  RECUIFEC  - 

1. MAPK  VECTORS  A«E  STORED  I M STAR  AO  A NO 

2.  CATALOG  VECTORS  ARE  STORED  IN  60  AND 


fARAD  +6. 


RFF 

PFF 

RFF 


LAST 
L AST 


3 LAST  93R 
1 

4 LAST  93R 

2 LAST  938 


I AST  85  P 


PEF  1 

REF  5 
RFF  1 
RFF  ?67 
REF  31 
PFF  42 
REF  1 
RFF  176 


LAST 
I AST 
LAST 


637 

937 

937 


LAST  93  7 


RFF  6 I AST  939 
PFF  10  LAST  938 
RFF  177  LAST  938 


14.3253 
16,3251 
14,  3 25  2 
14  ,3253 

14. 3254 

14.3255 

14,  3256 
14,3257 
14,3260 
14,  3 2 1 l 
14  ,-'262 
14,  ? ?*3 

14. 3264 

14.3265 

14. 3266 
14  ,3267 
14,3270 
1 4 , 3271 
14  ,3272 
14,  3273 
14,  1 74 
14,3275 
14,  3276 
14  ,3277 

I - 

U,  330  1 
14  ,3302 
14,  3 3C3 
1 4,  3 30  4 
1 . 

14,  3306 
14  ,3307 

14.3310 

14. 3311 
14  ,3312 

14. 3313 

14. 3314 

14.3315 


43020  1 
92745  0 
OOC74  1 
77760  0 
C27C6  1 

47773  1 
COCCI  0 
0 07  ( 

65552  U. 
ore  25  (/ 
43(14  f 
CP354 
312  74/  1 
0017/  ’ 

7 33 6 0 1 
OOOTi6  1 

oca.®5  0 

OOF  23  0 
77/6  50  1 
*2  55  1 
>345  1 
0t'C26  0 
C 23  n 
'7634  0 
^1574  1 
D 104  5 1 
77414  0 
0CC74  1 
2 3320  C 

0 4616  1 
2C477  1 

1 600  1 1 
0 3315  0 
0 6C  5 1 0 

52014  0 
CC274  0 
C2  746  0 
C 6051 


COUNT*  *»/P54 
f A STO  SFT 
( OMIN 

FREEF  LAG 


ST  ARAD 

DDT  * 

0,1 
6,  1 
ACCS 
THE  TA 
INVERT 
FRFEFLAG 
CHKSD 
FREEFL  AG 
DLCAO 
6D 


$ LI 
STORE 
80  FF 


STORE 

GOTO 


CHKSD A TC 


CHKS8 

nsu 

theta 
1 8D 

SGNAGREF 
NORMTE  Ml 
FX  IT 

FRFEFLAG 
V3  6N5 
RANKCAIL 
G OF  L A SH 
GOTOPOOH 
CHKSDA 
I NTPRF  T 
GOTO 

FREFFL AG 
QMI  N 
I NT  PR  FT 
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ERANCE  > 

OF  STARS. 


SET  XI  TO  STORE  EPHEMERI  S DA  TA 

CAL  . ANGI  F THE  TA 

BRANCH  TO  CHKSD  IF  THIS  IS  2ND  PASS 

CLEAR  FREEFIAG 

SET  Xl  TO  MARK  ANGLES 

RETURN  TO  CAL.  2ND  ANGI  F 

COMPUTE  PCS  DIFF 


PROCEED 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


P5  1-P53 


0776 
3 777 
? 7 78 
RC779 
RC  780 
R?7«1 
* 0702 
RC  70? 
R G7  8** 
3 0789 
0 736 

0787 

0788 
3789 
0760 

0791 

0792 

0793 
57  9'. 
C798 

0 796 
779  r 
07«3R 

1 7«6 
0800 
0801 
333? 
080? 
O0O  a 
7876 
0806 
080  7 
0808 
0806 
9813 


0*1  1 
0 81? 
7313 
‘"81* 
’815 
OR  1 *■ 
P 81  7 
3310 
I 8l6 
08  20 
3321 
0 822 
'823 
08  ?«. 


K,  3316 

7765C 

1 

GOTO 

REF 

11 

LAST 

938 

16,3317 

02  76  5 

0 

QM  IN 

16,  3320 

C16C5 

1 

VB  6N5 

VN 

605 

NAMF 

- C 61.53  A 

FUNCTION  -COMPUTE  DESIRE  3 G I MB  A L ANGLES 

ANO  COARSE  ALIGN  IF  NECESSARY 

CAI  L TNG 

SEQUENCE  - 

CALL  CAL5: 

■A 

1NPLT  - 

X,Y,ZSMO  ,l 

-nux  ,y  , ? 

PCS  IP  EO  '.I  MBA  L ANGLE  < 

f - THE  TAO 

H ,+2 

CUT  POT  - 

- thf 

I MU  COORDINATES 

ARE  STOREO 

IN  REFSMMA  T 

SIHPOLT!  NF  S - 

S52. 

? , I MijC  P A P S E , 1 MUFINE 

REF 

1 

COUNT* 

*S /R50 

16,3321 

77626 

l 

CAL53A 

C ALL 

REF 

2 

LA  ST 

922 

16 ,3322 

31620 

1 

S52  .2 

16,  1 3 2 3 

66236 

1 

R TB 

SSP 

R ' F 

1 

16  ,3326 

31605 

1 

R DC DUS 

REF 

1 A ST 

930 

16,3325 

CQC  51 

0 

SI 

H,  3 3 26 

oOom 

0 

1 

1 4 * 1 J?  7 

601070 

1 

axt.i 

SETPO 

16, 3330 

CC0C3 

1 

3 

16,  3?31 

ooobs 

1 

4 

16,3332 

70543 

1 

CALGOP 

DLOAU* 

SRI 

REF 

16 

L AST 

383 

16,  533 

c C3fl5 

0 

THETAD  *30,1 

14  ,333/1 

70523 

l 

POOL  * 

SR  l 

16,3335 

00005 , 

l 

6 ,1 

’ , ' 

5 U25 

DSU 

AB  S 

1 • 

65206 

V 

PUSH 

OSU 

REF 

1 

16,  336C 

31606 

0EGREE1 

1 6,  334l 

71260 

1 \ 

BMN 

3 LOAD 

RFF 

1 

16,3362 

31360 

0 

| 

CALOOP 1 

16,  3363 

5 1025 

1 

osu 

B PL 

. . | 

1 

16  ,33*6 

31605 

1 

DEG359 

RFF 

? 

LAST 

939 

14,3 345 

31360 

0 

CAL00P1 

U,  ’366 

77776 

1 

E xi  r 

PFF 

81 

LAST 

937 

16,3367 

0 5366 

0 

\ 

TC 

PHASCHNG 

1 4 , 

C6C24 

0 

L 

OCT 

04024 

REF 

178 

LAST 

938 

16,3351 

0 6051 

0 

\ 

TC 

I N TPRF  T 

16,335? 

77626 

1 

CCARF I Nfc^ 

CALL 

REF 

1 

16,  3 35  3 

1 5 c 7 

1 

\ 

C OARSE 

16  ,3356 

77624 

1 

^ALL 

REF 

2 

l A ST 

936 

16,3355 

2 IK  3 

0 

NCOARS  E 

16,  3356 

77650 

1 

g“',T0 

RFF 

1 

16  ,3357 

31362 

1 

F INEONLY 

14,  ’36  1 

77700 

0 

CALQ0P1 

n A,\ 

PCF 

1 

H,  3361 

31332 

1 

; A LOOP 

16  , ‘ <62 

75160 

1 

F INEONLY 

AXC,\i 

AX  C ,2 

RFF 

16 

l AST 

625 

16, 7163 

C2(42 

0 

OFF 

66 

l AST 

936 

16  ,3366 

C 173 1 

0 

DCC A T 

16,3365  77626  1 CALL 

«EF  2 LAST  936  16,  33fc6  2 1371  0 * 
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MAKE  ONE  FINAL  COMP  OF  GlMBALfc  ANGLES 
READ  CDUS 


\ 


GAP:  ASSEMBLE  KfV  IS  ION  56  OF  AGt  PROGRAM  ZE^LINA  HV  ZOROASTER 


0«?5 
C 82fe 
L 627 
>82“ 
^820 
0930 
) 9 3 1 
('83? 
C 8 33 
083A 
835 
3338 
0837 
•83R 
3333 
(040 
C841 
0842 
(843 
0844 
084  5 
( 848 

3 347 

0848 

0849 
08*0 
0851 


I4,i?e7 

. 

14  ,3371 
14,  <37? 
14,  3 J73 
14,3374 
14, 1 375 

14 .3376 

14.3377 
’4, 3400 
14  ,34f 1 
14,  34C? 
14,  7403 
14,3404 
14,  34C5 
14  ,3406 
14.74C7 
14,  34  10 
14  ,3411 
14,  3412 
14, 341J 

14,3414 
14,  34  15 


14 


4 16 


4 LAST  8 18 


7765C  1 
2 22C  4 0 
77773  1 
COCCI  0 
ltOCl  1 
77773  1 
CCCC7  0 
10007  1 
77773  1 
OOC 15  0 
10015  1 
77618  0 
00C56  1 
37722  1 
C CCC4  C 
3 003?  0 
50  120  1 
c4  OC 1 1 
3 0033  1 
5 C 120  1 
54  0C2  l , 
3 0034  0/ 
5C  120  r 
54  OG 3 , r 

r ooo  3/  i 

0 607A  0 

i 


0FG7F  e 1 


\ ! 


VLn.7 

. TOR  E 

J/LCAD* 

STORE 
R VO 

OEC 

DEC 

I NH1  NT 
CA 

INDEX 


12D  ,1 
120,  2 
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TRANSFER  MA  TR  I X 


1 DEG  SCALED  CDU/2 
359  OEG  SCALED  CDU/2 
REA C CDUS 


GA?:  ASSEMBLE  REVISION  56  OF  AGC 

L P51-P5? 


PROGRAM  2ERLINA  BY  ZGUGAST  fcR 
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5 

R0R53 

Rl'855 


NAME  - P5 1 - IMU  ORIFNTATICN  C ET  6 FM  I N AT  ION 
MOO. NO. 1 2 3 JAN  67 

MCO  BY  STUPLAUGSON 


RDR5R 
R086C 
RO  862 

*0864 

I 0865 
R0866 
8 0067 

x < 870 

R0871 

R<  87> 
3 OP 7 < 

^ R?R74 
R 08  75 
R0  876 

RT  877 


FUNCTIONAL  INSCRIPTION 

DETERMINES  TFF  INERTIAL  ORIENTATION  OF  THF  IMU.  THE  PROGRAM  IS  SELECTED  BY  OS  KY  ENTRY.  THE  SIGHTING 
I ACTMARKIROUTINE  IS  CALLED  rr  CCLLECT  ANO  PROCESS  MAR<ED-STAR  DATA.  A 0 TMA  R K ( R 53)  RETURNS  THE  STAR  NUMBER  ANO  THE 
STAR  LOS  VECTOR  IN  S TAR  AO  ♦ t.  TWC  STARS  ARE  THUS  SIGHTED.  ThE  ANCLE  BETWEEN  THE  TWO  STARS  IS  THEN  CHECKED  AT 
C HKS  D AT  A ( R54  ) • REFSMMAT  IS  T y £\N  COMPUTEO  AT  AXISGEN. 


\ 


CALLING  SEQUFNGE 

THE  PROGRAM  IS  CALLEO  BY  THE  AI^TR(,NAljT  BY  DSKY  ENTRY. 
SL TNFS  CALLFC. 


GODSPR 
IM  UCOAR  S 

I RUE  I \-r 
AOTMARK(  R 53) 
CHKSCAI  AIR54  ! 
MKRELE AS 
AXISGEN 
MATMOVE 


T 0878 
R037R 
R 0880 
I ~88  1 

R398? 

R 1-883 

«rBP4 


ALARMS 

NONE. 

ERASABLE  INITIALIZATION 

IMU  ZERO  FLAG  SHOULD  BE  SET. 
OUTPUT 


R08P*- 


T 0886 
R '?  8 87 

Ri-flRP 
T '-889 
R)893 


WORK  AREA 
STARAD 

ST  AR1 ND 
BE  ST  1 
BEST  J 


NT  * f.t/P51 


ASSEMBLE  HfVISICN  56 
PE  1-P53 


OF  AGf  PROGRAM  2fftL  INA  BY 


i<W0A' 


0P9<. 

0895 

0P96 

3897 

089P 

L899 

3933 

0901 

0903 

0909 
3909 
0906 
090  7 
f 9 OP 
09C9 

0910 

0911 

0912 
09  1 3 
0916 

0915 

0916 

0917 


0920 

3921 

0922 

''923 

0026 

0925 

3925 

0927 

092P 

3929 


P F F 


FF  269 
PF  F 9 

RFF  63 
RFF  1 
REF  e2  LAST 


LAST 

LAST 

LAST 

I AST 


PIP  19? 
P FF  15 
PFF  1ft 
RFF  17 
PFF  3 
PFF  270 
PFF  3 
PEF  1 
REF  271 
REF  6 
PEF  179 


' AST 
I AST 
l AST 
t A ST 

LAST 
LAST 
L AST 


93  3 
93c 
96  2 
96  2 
922 
96? 
76  3 


REF  2 LAST  939 
REF  P3  I A ST  96? 
PEF  2 LAST  261 
REF  96  LAST  062 


RFF  P5  LAST 


16,  3623 

16,  3626 
16,3675 

16,  3626 
16  ,3627 
16 ,3630 

U,  3631 

16  ,3632 
16,  36  3 3 
16,3636 
16,3635 
16,  3636 
16  ,3637 

1 6,1*40 

16,  366  1 
16 ,366? 
U,  1663 
1 6,  3666 
16,3665 
16,  3666 
16,3667 
16  ,3650 
16,  365  1 
16,365? 

16,  365  3 
16,3656 
16,3655 
1.6,  3656 
16  ,3657 
16, 36  6C 

16. 3661 

16.3662 
16,  3663 
1 6, 3466 

16.3665 

16. 3666 


* 6761  0 
0 6616  1 

? C 62  6 o 
C 6C  C 1 C 

1 3653  1 
0 5366  0 

06024  C 

3 6756  1 
c 6 321  - 
56  322  0 
56  "*23  1 

2 5010  0 

0 66  16  l 
2" 667  1 

3 3556  1 
0 6616  1 

2C667  1 
C 6051  0 
77626  n 
31557 
77776  1 

C 536/'  0 
C60<  6 0 

1 36^3  0 

C 9366  0 

03)0  16  1 
c .4051  0 

l,U2t,  1 
31603  0 
6 r 331  1 
7)2760  1 
00000  1 
CCCC1  0 
77776  1 
0 5366  0 
06026  0 


/ 

f CAF 


0930 

0931 
093? 
0933 

3936 
093s 
0936 

3937 


RFF  272 
RFF  2 
RFF  273 
PFF  1 
PEF  6 
PFF  7 
RFF  1 
RFF  181 


16  ,3667 
16,3670 
1 6 , 367  1 
16,367? 


I AST  962  1 6 , 3676 


0 6616  1 
160CO  0 

0 46 16  1 
1 771  1 0 

C 5712  0 

1 1 '757  1 
1 3503  0 
0 6C  5 1 0 


PANKCALL 

IMUCHK 


0CT15 

PANKCALL 

G0PERF1 

GCTCPCGH 
P 51R 

PHASCHWC 

04026 


7 EPQ 
THE TAD 
THE  TAD  ♦ l 
THETAC  ^2 
V06N22 
PANKCALL 
GODS  PR  FT 
V6  1 K 

PANKCALL 

GGDSPRFT 

INTPRE  T 

COARSE 

PHASCHNG 
06  026 

P 5 1 ♦ 2 

PHASCHNG 
00016 
1 NT  PR  ET 

NCOAR  SF 
SETPO 
START  NO 

0 

0 

PHASCHNG 

06026 

PANKCALL 

AOTRARK 

3ANKCALL 

AllTSTALL 

CURTAINS 

S TAP  I NO 
P51D  *l 
1NTPRFT 
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IS  ISS  06  - IF  NOT,  IMUCHK  WILL  SEND 
ALARM  CODE  210  ANO  EXIT  VIA  GOTOPOOH. 


TEP“. 

V33 


7FR0  T HE  GIMBALS 


NOW  DISPLAY  COARSE  ALIGN  VERB  61 


I NOEX-ST AR  1 OR  2 


Pc  3 


GAP:  ASSEMBLE  REVISION  5fc  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L P51-PST 


0938 

3939 

0940 

0941 
094  ? 
0943 


REF  17  LAST  938 
REF  5 LAST  935 

RFF  86  LAST  942 


1 A,  3 500 
14  f3  5C L 
14,3502 
14,  350 3 
14  ,3504 


C 27 1 5 0 
02761  0 

77776  1 
0 5 364  0 
04024  0 


psi  n 


V LOAD 

STAR AO  +6 
STORE  STAR  SA V 1 

EX  IT 

TC  PHASCHNG 

Of.T  3 40  24 


D 944 

0945 

0946 
3947 


REF  P LAST  942 
OFF  1 

RFF  P 7 LAST  94  3 


14,  3505  1 1*75  7 1 

14,3506  l 3522  l 
14.35C7  0 5364  0 

1 4 , 35  In  04024  0 


CCS  STARIND 

TC  F P 5 IE 

TC  PHASCHNG 

OCT  04  024 


( 948 
0949 
'950 

0951 
195? 
095  3 
'i«54 
39  55 
0956 
f'9  57 
C95p 


RFF  182  LAST  942 

REF  7 LAST  9.3  5 

PEF  3 I AST  935 

REF  4 | AST  935 

REF  44  |.AST  9?0 
REF  9 i AST  943 

RFF  1 

REF  8 P LAST  S43 


14.3511  0 6051  0 

14.3512  45145  0 

14,  35  13  03562  0 

14,3514  32500  0 

14,  3515  C 3 5 54  0 

14. 35 1 6 77776  1 

14.351 7 3 4753  1 

K,3s2<  5 5 ’ 75  7 1 

14,'S?1  1 3465  1 

14. ->.5?  2 C c 3 64  0 P51E 
1 4 , 3 c 2 3 04024  0 


TC 

m HAD 


STORE 

FX1T 

CAF 

TS 

TCF 

TC 

OC  T 


IN  TPRF  T 
CALL 
T SI  GUT 
PL  ANET 
PLANVEC 

BIT  1 
ST  API  NO 
PMC  +1 
PHASCHNG 
04024 


0959 

136-' 

0961 

0962 
3963 

0964 

0965 

0966 
r.n*7 
3960 
09*0 
0970 
3971 
0972 
097? 

0974 

0975 

3976 
0977 
0«78 
7979 
0980 
0 op  l 
098? 
C98  3 
3984 


REE  183  LAST  943 

RFF  8 LAST  94  3 

RFF  4 LAST  943 


PEE 

REF 

REF 

REF 

REF 

REE 

PEF 

REF 


L AST 
LAST 
LAST 
LAST 
I A ST 


943 
94  3 

9X4 
94  3 
937 


2 LAST  934 


14,3524 
14,  '525 

Hi  3526 

1 4 , 3 5 ? 7 
14, 3530 
14  ,3531 
14,3632 
14,  3533 
14  ,3534 
14,  35  35 
1 4,  3536 
14,3637 
1 4,  3 54  0 

14.3541 

1 4 .354 2 
U,  3543 
14  ,3544 
14,  3545 
1 4,  3546 
14,3647 
14, 3560 
14,3551 
14.355? 
14,  355  3 
14  ,3554 
14, 3555 


l 6051  o 
45146  C 
03562  0 
32500  0 
24015  C 
03554  0 
24007  0 
C 276  1 0 
267C7  0 
C2767  0 
36715  1 
31250  1 
77414  0 
00314  1 
21544  0 
f,  3423  1 
77624  1 
47437  1 
75  160  1 
02664  1 
07*1  0 
77624  1 
11371  0 
77414  0 
0 1462  r 
( 6CC1  0 


TC  I NT  PR  FT 

OLCAO  CALI 

T SIGHT 
PLANET 
STOVL  120 

PLANVFC 
STOVL  6 0 

STAR  SA  Vi 
STOVL  STARAO 

STARS AV2 

STCALL  STARAO  +6 
CHKSOAT  A 
E XI  T 
FREFFL  AG 
P51G 
P 5 1 ♦ 2 

AX I SGEN 
A XC  , 2 
X DC 

REF  SMMAT 

MATMOVE 
F XI  T 

REFSMF1  G 
TC  GCTCPOCH 


BON 

TC 

CALL 
AXC  , 1 

CALL 


/ 
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DO  SECOND  STAR 


CHECK  STAR  ANGLES  IN  STARAD  AND 


COM E BACK  H IT  H REFSMMAT  IN  XOC 


FINIS 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PRCGRAM  ZEKLINA  BV  ZOROASTER 


L 

P5 1 ■ 

-P53 

0986 

1ft, 3556 

17200 

0 

Vftl  K 

VN 

ft  100 

5996 

IS  3557 

77776 

1 

COARSF 

EXIT 

0987 

RCF 

5 

LAST 

279 

1ft, 356U 

3 13C1 

1 

+ 1 

CA 

MOOECADR 

098R 

16 ,3561 

C 0006 

1 

EXTEND 

3989 

RFF 

l 

1ft, 3562 

1 3567 

1 

BZF 

DOCORS 

0999 

PFF 

15 

I AST 

740 

16,3563 

3 4777 

1 

CAF 

1 SEC 

999  1 

REF 

279 

1 A SI 

Oft? 

1ft, 356ft 

0 ft  6 1 6 

1 

TC 

BANK  CALL 

099? 

REF 

17 

1 AST 

85  3 

1ft, 3565 

017  36 

1 

CADR 

Ik  LA  Y JOB 

0993 

REF 

3 

LAST 

9 A 2 

1ft  ,3566 

1 3560 

0 

TCF 

COARSE  «-l 

399ft 

PFF 

275 

1 AST 

Cftft 

1ft,  3567 

C ft6  1 6 

1 

nor.  or  s 

TC 

BANKCALL 

0995 

REF 

A 

1 AST 

38  3 

1ft,  3570 

16745 

0 

CAOR 

I MUCOARS 

099ft 

PFF 

2 76 

IASI 

Qftft 

1ft  ,3571 

0 ft6 1 6 

1 

TC 

BANK  CALI 

3997 

RFF 

K 

1 AST 

937 

1ft, 3572 

17715 

1 

CADR 

I MUSTALL 

099ft 

prF 

5 

LAST 

9ft2 

1ft  ,3573 

0 5712 

0 

TC 

CURTA  IN'S 

0990 

REF 

2 77 

LA  ST 

95  ft 

1ft, 357ft 

C ftfclfc 

1 

TC 

BANKCALL 

1000 

PFF 

3 

1 AST 

3«  3 

1ft, 3575 

17155 

0 

CADR 

I MUF  I NF 

1001 

PFF 

27R 

1 A ST 

9ftft 

1ft  ,7  5 76 

0 ft6 1 6 

1 

TC 

BANKCALL 

139? 

PFF 

1 1 

1 AST 

Oftft 

1ft, 3677 

17715 

1 

CADR 

I MUSTALL 

1 00  3 

RFF 

6 

LAST 

Oftft 

' , 

0 6712 

0 

TC 

CURTA!  NS 

100  A 

REF 

1 PA 

LAST 

Oft  3 

lft,36Cl 

C 6C51 

0 

TC 

I NT  PR  FT 

1335 

1ft, 36C2 

77616 

0 

R.VC 

1006 

' . 

77776 

1 

NCOARS E 

EX  IT 

1007 

REF 

19 

LAST 

888 

1 , ■ ■ 

3 0025 

0 

CA 

T IME1 

i oor 

PFF 

1 AST 

873 

1ft,  76C  5 

c 5 »C  74 

1 

TS 

1 /PT  PAD  T 

1 009 

PFF 

19A 

LAST 

9ft2 

, 

ft  ft 756 

0 

cs 

Z FRO 

ion 

REF 

17 

LAST 

886 

1ft,  36C7 

5ft  C 3 7 

1 

TS 

PI  PAX 

i 1 1 

PEF 

11 

LAST 

886 

1ft, 3610 

5ft  OftO 

1 

TS 

PI  PA  Y 

1012 

PFF 

9 

LA  ST 

8E6 

14,3611 

6ft  Oft] 

0 

TS 

P IPAZ 

1313 

RFF 

185 

l AST 

9ft  ft 

1ft, 3612 

C 605  1 

0 

TC 

I NTPRET 

l"14 

1ft  ,3613 

77775 

1 

VLOAD 

10  15 

REF 

3 

LA  ST 

682 

1ft, 361ft 

24007 

0 

7 EROV  EC 

id  6 

PFF 

2A 

L AST 

388 

1ft,  ’ft  15 

01472 

1 

STORE 

3C0MP 

1017 

1ft  ,3616 

ft3ftl  ft 

1 

SET 

RVQ 

1 3 IB 

RFF 

A 

LAST 

936 

1ft, 3617 

C1C60 

0 

DR  1 FT  F LG 
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SEE  IF  IMU  DEVICE  IS  IN  USE. 

NOT  IN  USE,  HO  COARSF  Al  IGN 
IN  USE,  OF  LAY  CNF  SFC 


GAP:  ASS  EMBLE  REVISION  56  OF  AC.C  PROGRAM  ZFRLINA  BY  ZOROASTER 


P c 1 - P f 3 


P IP  19 

r<n?o 

R IC21 
Rl^?? 
R1023 
* 1024 
1325 
1026 
10  27 

n?n 

1029 
10  30 

1031 

1032 
13  33 
103c. 
1035 
1536 
1037 
10  38 

1039 

1040 
1341 
1 04  2 
1043 
1344 
1045 
1 46 
104  7 
1048 


NAMF-S5  ?.  7 

FUNCT  ION-COMPUTE  G IM  BAL  ANGLFS  F(1R  DESIRED  SB  AND  PRESENT  VFHICLF 
CALL-  CALI  S52.2 
INPUT-  X,Y,?SMD 

OUTPUT-  DGC  « 1 GC»  MGC»T  HET  A0»  ♦ 1»  ■*  2 
S LB  R OUT  I NT  S-0  D LTR  I G ,f.A 
PFF  1 


«,'ATVCVF,r.  ALOHA 


2 I A ST  929 


PFF  48  I AST  943 
REF  5 1 AST  945 

REF  l 

PFF  8 LAST  536 
REF  17  l AST  939 

LAST  943 


RFF 

REF 

RFF 


LAST  379 
LAST  945 


14.3620 

14.3621 
U,  3622 
14 ,1623 
1 4 ,36 24 
1 4,  3625 
14  ,3626 
14,  if- 2 7 
' . 

14,3631 

, 

14  ,3633 
14 ,1634 
14,  3635 

, 

. 

14,  3640 
14,3641 
1*.  3f 42 
14  ,3643 
1 4,3644 
1 4,  3645 
14  ,3646 
14,  3647 
1 4 , 3650 


45020  1 
C2  746  0 
47535  1 
77624  1 
20030  0 
(6370  C 
C0022  1 
C0C51  0 
00006  1 
61  373  1 
r27C7  C 
U 1732  0 
77656  1 
C6707  1 
77  700  0 
21631  1 
75  160  1 
03606  1 
C 264^  0 
77624  1 
31371  0 
77624  1 
47351  P 
77650  1 
02746  0 


CALL 
A XT,  1 


UNIT 

STORE 

T IX  , 1 


S52.2.1  A XC  , 1 

CALL 

CALL 

GOTO 


M.  /S52. 1 
CALI 
QMAJ 
30  OTRIG 

CA1  CSMSC 
SSP 
18  D 


V X M 

XNB  + 1 8D , 

P EFSMMA  T 


S5  2.2  A 
A XC,  2 

XSMD 
X SR 

MAT  MOV F 
CALCGA 
DMA  J 
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I 


ASSEMBLE  REVISION  So  CF 


AGO  PROGRAM  ZEFLINA  BY  ZOROASTER 


P51-P53 


°1  PS  1 
3 1052 
«1C53 

RlOSA 
* l r 55 
<(|V16 

R 1 r 5 7 
ft  10  5ft 
RIDS? 
T 1060 
1 '>6  1 
106? 
1063 
1D64 
10  65 
1066 
1 367 
106B 

1069 

1070 

1071 
1372 
1073 
t"7* 
If,  75 
1076 
1377 


MME-S52  .3 

FINE.  TIPF  XSMf)=  IJMT  P 

YSMD=  UNITIV  X R) 
7SMC  = J N IT  IXSMO  X 
CALL  OLOAD  CALL 

TAL  l ON 
S52.3 

INPUT-  T I MF  OF  ALIGNMENT  I 
OUTPUT-  X.Y.ZSMD 
SLBPOLTINFS-  CSKCCMC 
PFF  1 

H. 3651 


RFF  9 LAST 
RFF  Aft  LAST 
PEF  5 LAST 

REF  3r  LAST 
»FF  9 LAST 

RFF  2?  LAST 

REF  31  LAST 
PEF  A LAST 
RFF  10  LAST 

REF  5 LAST 
REF  A LAST 
REF  1C  LAST 


545  l A » 3652 

927  14, 3653 

6C1  1A  ,36  5 A 

14,3655 
927  14,  3656 

94  5 1 4 ,3657 

830  IA, 3660 

1 A,  3661 
5A6  14,3662 

1 A,  3663 
946  1 4 ,3664 

14 ,3665 
946  1 A, 3666 

92  3 14  ,3667 

9 A t 14,  3670 


YSMC  1 


N MPAC 


77620 
C2  746 
34C4  1 
2707  7 
53575 

once  1 

2 76C7 
C0CC7 
53A35 
OOCOl 
2 76  15 
( 3607 
5 34  3 5 
0 3615 
37623 
C 2 746 


0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

c 

0 

0 

0 

1 

0 


S52.3 


COUNT*  f t/S52  • 3 
STO 

QMAJ 

STCALL  T0EC1 

L6MC0N  IC 
V L CAD  UNIT 
RA  TT 
STflVl  XSMO 
VATT 
VXV  UNI T 

KATT 
STOVL  YSMD 
XSMO 
VXV  UNIT 

YSMO 

STCALL  ZSMD 
QMAJ 
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USER'S  PAGE  NO. 
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AP:  ASS  FOIBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  BY  70R0ASTER 
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L P51-P53  USER'S  PAGF  NO.  3C  E5  S3 

PI  78  N AH F -R52  (AUTOMATIC  OPTICS  POSITIONING  ROUTINE) 

R1079  FUNCTI  TN-PCI  NT  THE  AOT  OPTIC  AX  IS  BY  MANEUVERING  THE  LEM  TO  A NAVIGATION 
1 1080  STAR  SFLECTEO  BY  AUGMENT  PR CG RAMS  OR  OS  KY  INPJT 


R193 1 CALL  ING  -CALI  P52 

R 1 0 82  INPUT  -BFSTI  AMn  BEST  J (STAR  CODFS  TIMES  6) 

Kic”  OUTPUT  - STAI  CODE  IN  R I T S 1-  < . OETENT  CCOE  IN  PITS  7-9 

Rli  HA  (Ml  fl-ECK  IS  MACE  TO  INSURE  THE  DETENT  CODE  TO  BE  VALID) 

11035  POINTVSM-1/2  UNIT  NAV  STAR  VEC  IN  SM 

RID96  SC  AX  I S— AO  T OP  T 1C  AXIS  VEC  IN  NB  X-Z  PLANE 


1 1087  SUBROUT  -R  6CI.EM 


1088  REF  1 

14  ,3671 
14,  3672 

1 4. 3673 

14.3674 
14, 3615 
14,3676 
1 4 ,3677 
1 4 , 3700 


COUNT*  tS/KS2 

77420  1 R52  STQ  FX  IT 

C3665  1 SAVQR52 

51*757  0 INDEX  STARING 

3 1755  1 CA  BEST  I 

C 0.0 C 6 1 EXTEND 

7 3772  1 MP  1/6TH 

6 4744  l AD  BIT8 

54  734  C TS  STARC  ODE 


PICK  UP  STARCODE  DETERMINED  BY  R56 

SET  DETENT  POSITION  2 
SCALE  AND  STORE  IN  STARCODE 


1 189 
1393 
1 091 
1092 
1393 

1094 
1 r 95 

1095 


PFF 

RFF 

REF 


94  3 
932 


1097  REF  1 

1393  REF  279  LAST 

1099  REF  32  LAST 

1100  PFF  45  LAST 

1131  REF  1 

1102  REF  1 


944 
9 38 
Q4  3 


14, 37C2 
14, 37C 3 
14.3  7C4 
1 4 , 3705 
14  ,3706 


3 3773 
C 4616 
20477 
C 6001 
1 3707 
1 3701 


0 

0 

0 


R5  2 A 


CAF  V01N70 

TC  DANKCALL 

CA  OR  GOFLASH 

TC  GOTOPOOH 

TC  F R52  D 

TC  F P52A 


PI  SPLAY  STARCODE  AND  WAIT  FOR  RESPONSE 
V34-TERM  INATfc 
V3  3 -PROCEED  TO  CP  I ENT  LEM 
ENTER-SELECT  NEW  STARCCOF-RECYCLE 


1104 

1114 

1107 
1 108 
1139 


RFF 
REF 
REF 
P EF 


REF 

REF 


92  LAST  888 
7 l AST  740 
3 I AST  947 
3 l AST  678 

23  LAST  873 
188  I.  AST  916 


14 ,37C7 
14,  3710 
14,3  71  l 
14,  3712 

14.3713 

14.3714 
14,  3715 


C 5527  1 
00124  0 
3 0734  1 
7 7756  0 
0 0006  l 
7 4743  1 
54  001  1 


R52G 


DOWNFLAG 
3A  XI  SF  LG 
ST  AKCODE 
HIGH9 


PIT9 


BIT6  CF  FLAGWRC5  ZEPC  TC  ALLOW  VECPOINT 
GRAB  DETENT  CODE 

TFMF  STORE  DET  ENT 


1110 

I 1 1 1 REF 


EXTENO 

87ME  GETAZEL  CODE  0,  COAS  CALIBRATION 


111?  REF  ? LAST  25  3 

1113 

1114  REF  2 I A ST  947 


1 4,  3720  6 5661  0 

1^,3721  C 3006  1 
14, 3722  1 3735  1 


AO  NEG  7 

EXTEND 

BZF  GETAZEL  CODE  7,  COAS  SIGHTING 


1114 
l 1 16 
1117 


RFF  17  LAST  266 
RFF  17  LAST  888 
REF  58  LAST  920 


E7, 1551 

14,372  3 3 5016  0 

14,  3724  54  CC 3 0 


ERANK=  XYMARK 
CA  FBANK7 
TS  E8ANK 


GAP:  ASSEMBLE  RFVISION  56  OF  ACC  PROGRAM  ZEPHNA  BY  ZOROASTER 


112C 
1121 
1122 
1123 
1 12* 

1125 

1126 


PC  1-P53 

REF  IPC 
RFF  6 
REF  190 
PEF  IP 
RFF  11 
RFF  55 
RFF  37 
REF  191 
PFF  l 


LAST 
l AST 
LAST 
LAST 
I AST 
LAST 
L AST 
I AST 


958 

Q4,C 

920 
96  7 
887 
94R 


15  ,3727 
E 5,  l (52 
14, 373p 

15.3731 

15. 3732 
15  ,3733 
15  ,3735 


5 C 001  0 
7 141  1 1 
55  001  1 

3 5014  1 

55  003  0 
3 5737  0 

56  001  r 

1 3 755  0 


AO  TA  Z - 
L 

XSP 
E3ANK5 
FRANK 
B1  T13 
L 

AZEL 


1127 

1128 
1129 
113, 

1131 

1132 


REF  1 
RTF  ?80 

PFF  33 
RFF  56 


LAST 
LAST 
1 AST 


05  7 
957 
957 


3 LAST  957 


15,  3735 
15  ,3736 
15,  3737 
15,  3750 
15,3  751 
1 5,  3752 


.1775  0 
o 5616  1 
2C577  1 

0 60C 1 0 

1 3753  0 
1 3735  1 


GETA7FL  CAF 


V06N87 
RANKCALL 
G OF  LASH 
3 QTQPOUH 


1 1 33 
1135 

1135 

1136 
l 1 37 
1138 
1 138 
1 153 
1 151 
1 152 
1153 
1165 
1 1 55 


PEF  196  LAST  956 


1 5 ,3763 

15.3756 
1 6,  3755 
15  ,3756 
1*,  3767 

. 1 

1 6,3  781 
16, 375? 
16 ,3753 

16.3756 
1 6,  3755 
15  ,3756 

15.3757 


0 0006  1 
3 1365  1 
50  120  1 
52  011  0 
C 6C51  0 
77626  1 
10530  0 
65036  1 
21555  1 
32500  0 
' 352  1 1 


EXTEND 
OCA 
INDE  X 
OXCH 


I NT  PRFT 

OANB 

CALL 

LOADTIME 
PLANET 
UNI  T 
R FFSMMAT 
POINTVSp 


1H6 

1167 
1 158 


16,3(60  77776  1 

16,3761  C 6616  1 
16,  3762  56125  C 


1169 

1150 
1 151 
1152 


16  ,3763 
16 ,3766 
16,  3765 
16  ,3766 


3 7756  l 
7 C 736  C 
C 00C6  1 
1 3701  0 


CAF  HIGH9 
MASK  STARCOOE 
E XTENO 
8ZF  R52A 


1166 
1 1 57 
1 159 


REF  187  LAST 
PFF  2 LAST 


968  16, 3767  C 6C51  0 

16,3770  77650  1 

967  16,3771  03665  1 

1 6,  3772  C 5 2 53  C 1/6H 
16  ,3773  00306  1 VO  1N70 

16,3774  01527  0 V0  6N87 


TC  INTPRET 

GOTO 

S AVQR52 

OEC  .1666667 

VN  C 1 70 

VN  687 
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PICK  UP  AZ  CORRES  PCNCING  TO  OETENT 


CHANGE  TO  EPANK5  BUT  DONT  DISTURB  L 

SET  ELV  TO  65  DEG 

SE  T C(A1  =AZ  , C(  L)  =65  DEG 

GO  COMP  OPT  i:  AXIS 


CCDE  0 OR  7,  GET  AZ  ANC  EL  KEY  IN 


V36-TER  Ml  NA  TF 
PROCEED-CALC  OPTIC  AXIS 
ENTER-RECYCLF 


PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 
JAP  AZ  AND  EL  IN  R AND  9 OF  VAC 


GO  COMPUTE  OPTIC  AXIS  AND  STORE  IN 
SCAXIS  IN  NB  COORDS 


STORF  FOR  VECPOINT 

GO  TORQUE  LEM  OPTIC  AXIS  TO  SI  AR  LOS 
IF  COAS  CALIBRATION  CODF  o,  RECYCLE 


RETURN  FROM  KALCMANU 


RETURN  TO  CALLER 


GAO:  ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZGROAST  ER 


L P51-P53 

3 1159  LUNAR  SURFACE  STAR  AQUISITICN 


m 
116? 
1 163 


. , 15,?27G 

REF  3 LAST  919  *S, 2000 

15,22  70 

REF  2 LAST  257  TO  258:  AC  AO* 


BANK 

sftlo: 

RANK 

COUNT* 


15 

P SOS 
*$ /R59 


1 164 
1 165 
1166 
1167 


PFF  9 
REF  3 
RFF  272 
REF  1 


LAST 
LA  ST 
I AST 


379 

220 

921 


15  ,2270 
1 5,2271 
15, 2272 
15  ,2273 


4 0077  0 RS9 
7 4737  1 
10  COO  0 
1 2463  0 


CS  FLAGWRD3 

MASK  R E FSM  R IT 

CCS  A 

TCF  R590UT 


m8, 

1 170 
1 17  1 
117? 
1173 


PFF  4 

RFF  2f]2 
REF  24 
REF  47 
REF  1 
RFF  1 


LAST  948 
LAST  948 
1 AST  948 


15,22  76 
15,  2277 
1 5 ,2  300 

15,2301 


20477  1 
C 6CG1  0 
1 2302  0 
1 2270  l 


CAF  V01N70* 

TC  BANKCALL 

CADR  GO  FL  AS  F 

TC  GOTOPOCH 

TCF  R 5 9A 

TCF  R5  9 


1174  REF 

1175 

11751  REF 
H76  REF 

1177 

1178  REF 

1179 

1180  REF 

1195  REF 

1196 


1 88  LAST 

27  I A ST 
6 LAST 

50  L AST 

5 LA  ST 
3 I AST 


94H 

948 

948 

948 

770 

248 


15,  2302  0 60  5 1 0 

15,2  3 45034  1 

15,  23C4  21555  1 

15.2305  32500  0 

15.2306  53521  1 

15, 2 3 C 7 C 1732  0 

15  ,2310  77624  1 

15,231  1 47653  1 

15,2312  02721  0 

15  ,2313  77776  1 


R 5 5A 


TC  I N TPRE  T 

RTB  CALL 

LOAOTI MF 
PLANET 
MX  V J N IT 

REFSMPAT 

CALL 

C DU*S  MNB 
STORE  STAP 

EX  IT 


REF  45  I AST  94  3 
PFF  2 LAST  321 


15, 2314  2 4153  1 

15,2  315  55' 241  0 


CAF  BITl 

TS  POSCODE 


l 190 
120' 
120  1 


RFF 

PFF 

RFF 


1 AST 
L AST 
LAST 


94  7 

947 

948 


. 

15, 2216 
15  ,2317 


2 5016  0 INCA7 
54  003  0 


EBANK=  X Y M ARK 
CA  EBANK7 
TS  EBANK 


120?  RFF  3 LAST  949 

12r1  RFF  ? LAST  948 

1204  REF  192  LAST  948 


15, 2220 
15,  2 32  1 

. 


2 1 4C  3 1 
54  001  1 


INOEX  POSCCOE 
CA  40TAZ  -1 

TS  L 


RFF  lo  L AST  948 
REF  12  l A S T 948 
REF  61  LAST  949 


F 5,  1642 

15  ,2323  3 50  1<*  1 

1 5,2324  5 4 003  0 


ERA  NK=  XSP 
CA  FBANK5 

TS  EBANK 


1212 


RFF  38  LAST  948 
RFF  193  I AST  949 
REF  1?  LAST  939 
REF  4p  LAST  948 


14,  2 1 2 5 2 4737  C 

15,2326  56  001  0 

15,  2327  ‘ 5 ' 14  5 1 

15,2  33l  50  12C  l 

15,2331  52  011  0 


CA  MT13 

XCH  L 

TS  QMI  N 

INOEX  FIXIOC 
DXCH  8 0 


i 
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IF  R EFSMMAT  FLAG  CLEAR  BYPASS  STAR  AQUIR 
NO  REFSMMAT  GD  TO  AOTMARK 
SELECT  STAR  CODE  FOR  ACQUISITION 

V3  4 -TERMINATE 

V33-PROCEED 

V32-R6CYCLE 


GO  GET  CELFSTRIAL  BODY  IN  REF  COORCS. 
TRANSFORM  TO  NR  COCRDS  . 

TFMP  STORE  ST  AP  VEC(NB) 

INITIALIZE  AZ  POSITION  CODE  TO  1 (-60) 


PICK  UP  AZ  CORR  ESPCND ING  TO  POSCODE 


SET  ELV  TO  45  REG 

SET  CCA) = AZ , C<  L 1=45  DEG 

STORE  QMIN=AZ  FOR  LATER 


JAM  A7  IN  80,  45  OEG  IN  90  FOR  OANB 


GAP:  ASSEMBLE  PF  VI  SI  ON  So  Of-  AGC  PRCC-PA*  ZERLINA  BY  ZOROASTER 


L P51-P53 


1213 
121  A 

1215 

1216 


121  1 
1 2 1 f> 


i2n 


122? 


RFF  189  LAST  99 9 
PEF  3 LAST  9AB 

REF  A LAST  999 
REF  29  LAST  779 


IS  ,2332 
1 5 ,2  3? 3 
15,  2114 
IS  ,2335 
IS,  2 3 36 
15, 2137 


15,2190 
15,  2191 


0 6051  0 
77629  1 
1CS3C  0 
51375  0 
02731  0 
03765  0 
65552  0 
CC031  0 


TC  INTPRET 

CALL 

ClANB 

VLOAO  DOT 
STAR 
SC  A XI  S 
SLl  ARCCOS 

STORE  2AD 


1221 

1 ’22  RFF 
1223  RFF 

1229 

1225 

1226  REF 

1227 

1220  RfcF 
1226 

1230 

1231  RFF 

1232 


2 l A ST 
1 


1 


15  ,2392  51025  1 

258  15  ,2  393  32979  1 

15,2399  22926  0 

is  ,2395  95395  1 

15,  2396  CCC31  C 

15,  2397  22976  C 

15,?  350  71290  1 

1 5,  2351  32921  1 

15,235?  C0031  0 

15,2353  92905  0 

15,2359  11226  1 

15  ,2355  29031  0 


OSU  RPL 

0EG30 

MXftX 

OLOAO  DSU 
290 
3tC.  5 

8MN  OLOAC 

7SPCR 
290 

DMP  SL9 
3/9 

STOVL  29D 


m: 

1235 
1 235 

1237 

1238 
1237 

1290 

1291 
129  2 
1293 
1299 

1295 

1296 


PEF  25  LAST  950 

RFF  3 LAST  37 
PEF  26  I AST  950 

REF  27  (AST  950 
RFF  5 LAST  050 


l?:SK? 

15,2360 
15,  236  1 
15  ,2362 
1 5,2  36* 
15,  2 36  9 
15  ,2365 
15,2  366 
15, 2367 
15  ,237 
15,  2 ’ 7 1 
15,  2 172 
15,2  373 


29005  1 
972C6  0 
03765  0 

77676  0 
63256  0 
03765  0 
53935  0 
C2?31  0 
50206  0 
COCCI  0 
65SS2  0 
29  03  3 1 


SC  AX  I S 
VXV  UNIT 

XU  N IT 

PUSH  VXV 

SCAXI S 

V COMP 

UNI  T PQVL 

Sf.AXIS 
VXV  UNIT 

STAR 

PUSH  OUT 

0 

SL  1 ARCCOS 

STOVL  26  C 


1 297 

1298 

1299 
1250 


1251 

125? 

1253 


P EF 
1 f 


2 1 AST  257 


15,  2 179  7769  1 1 

15  ,2375  71299  0 

15,2?76  329C3  1 

15,  2 177  32097  0 

15  ,290U  77625  0 

15,  2901  C0C33  1 

15,  2902  00033  l 


DOT 

BPL 


OSU 


DLOAD 

R59D 

AtiOUTONF 


2 6 D 

STORE  260 


1259 

1255 

1256 

1257 

1258 


PEF  13  I AST  999 


IS,  ?9C9 
15  ,2905 
15 ,’906 
15, 2907 


70535  0 
C 2 796  0 
91915  1 

00033  1 
77639  0 


R5  9D 


SLOAO  SRI 
QPI  N 
□ A 0 PUSH 

26  0 


R TB 
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GC  CALC  CPTIC  AXIS  WRT  N9 
OOT  STAR  WITH  OA 


TFMP  STORE  ARC  CCS  (SI  AR.PPT  AX  IS  ) 


SEE  IF  STAR  IN  APT  H FL  D- 11 F- VI  E V. 
NOT  IN  FIELD  - TRY  NFXT  POSITION 
SEE  IF  STAR  AT  FIELO  CENTER 


CALC  SPIRAL  A NO  CURSOR 
GO  ZERO  CURSOR  AND  SPIRAL 
GFT  SPIRAL 

12  SCALED  AT  16 

121 ARCCOSIAO.  STAR)  ) SCALED  IN  REVS 
OA 


OA  X UNITX  PD  0-5 


UNIT! OA  X ( 0 A X UNITX))  PC  6-11 


1/2I0A  X STAR)  PD  12-17 

OOT  WITH  1/2(0A  X UNITX)  FOR  YROT 

STORE  THET  SCALED  IN  RF  VS 


UP  12-17  , UP  6-11  FOR  C2 
IF  THET  NEG-3FT  36C-THF  T 


360-THF T SCALED  IN  RFVS 


RESCALE  AZIN)  TO  REVS 
PUSH  YROT  ♦ AZIN)  RFVS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L P51-P53 


1261 
1262 
12fe3 
1 264 

1 255 
1266 
1267 


REF 

REF 


l AST 
L AST 


15  ,24  ir 
15,  2a 1 1 
L5  ,2612 
15,  2<H 

15. 2414 

15.2415 
15,  2416 
15  ,2417 
15  ,2420 


00031  i 

7 7 615 
776  34 
21576 


1 ST02S 
: URSUR 
24D 


STORE 
EX  IT 
TCF 
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Y ROT  I N 1/2  REVS 
LOAD  SRDT  IN  REVS 
12  (SEP)  ♦ YROT 


SROT  IN  1/2  PEVS 

GO  DISPLAY  CJRSOR-SPIP.AL-POS  CODE 


1273 

1271 

1272 

1273 
12  74 
1275 
12  76 
1277 
1 27B 
1270 


REF 

RFF 

RFF 


I AST  944 
LAST  951 
LAST  95  1 
LAST  951 


LAST 
LA  ST 
L AST 


15,  2423  55*  235  0 

15,  2424  55*236  0 

15,2425  1 2445  1 


1 5,  2426 
15  ,2427 
15,2430 

16,  24  3 1 
15  ,2432 
15,  2423 

, 


77776  1 
25 ' 24  L 1 
< 1241  0 
6 4757  C 
0 0006  1 
6 2435  1 
1 2316  0 


7 ERO 
CURSOR 
SPIRAL 
79  D IS  P 


POSCO  OF 
POSCODE 
SE  VFN 


EX  T EN  D 

RZMF 

TCF 


THIS  STAR  NUT  AT  ANY  POSITION 


RFF  39  LAST  0^3 


1282 

12P3 

1204 

12P5 

1286 

1287 

1288 
1 289 

1290 

1291 

1292 
1243 

1206 
12«5 
1246 
1297 
12Q0 
129Q 
1 3 00 
130  1 


REF  2 
REF  203 
RFF  35 
REF  48 
RFF  2 
RFF  ? 


RFF 
REF 
RFF 
R CF 


RFF  32 
RFF  5 

REF  11 
REF  1 94 
REF  12 


LAST 
LA  ST 
LAST 
LAST 
LAST 
LAST 


L AST 
LAST 
I A ST 
LAST 
LAST 


933 

96  9 
969 
96  9 
96Q 
969 


951 

951 

951 


867 

948 

321 

949 
951 


15  ,2437 
15.244C 
15,  244  1 
15,2442 
15,  2443 

15.2444 

15.2445 

15. 2446 
15  ,2447 
15.245C 
15,  245  1 
15,2452 

15,  2453 

. 

15.2455 

15. 2456 
15  ,2457 
15,2460 
14,  246  1 
15,2462 


3 5CC6  1 

C 4616  1 
20477  1 
1 6001  1 
l 2463  0 
1 2270  1 

3 2472  1 

0 46 16  1 
20477  1 

1 6CC 1 l 
1 2453  0 
1 2270  1 

3 4757  0 
7 1241  C 
C 0006  1 
7 4745  1 

4 7756  0 
7 C 734  0 
fc  OCCl  0 
54  736  0 


R59ALM  TO 


TO. 


C A OR 
TCF 
TCF 
TCF 

CAF 

TC 

CA  OR 
TCF 
TCF 
TCF 


ALARM 
4 06 

VBC5N09 
RANKCAI L 
3 OF  LA  SH 
GOTOPOOH 
R59  OUT 
R 59 


V26N79 

3ANKCALL 
GO  FLASH 
GOT  CPOCH 
R 59F 
R59 


CAF  SEVEN 

MASK  POSCODE 

EXT  END 
MP  01  T7 

CS  HIGH9 

MASK  AOTCCDE 


1332  REF  285  LAST  95  1 15,  2663 


Sl6  1 R5S0UT 


THIS  STAR  CANT  BE  LOCATED  IN  AD T FIELD 
D I SPLAY  ALARM 


VR  3 4- TERM  IN  ATE 

V R3  3-PROCEEC,  GO  WITHOUT  AOUIRF 
VB32-RECYCLE  AND  TRY  ANCTHER  STAR 

DISPLAY  CURSOR,  SPIRAL  AND  POS  CODE 


V36-T  ERM  INATE 

V33 -PROCEED  TO  MARK  ROUTINE 
V 32-RECYCLE  TO  TOP  OF  P 59  AGAIN 

OFT  DETENT  CODE  CORRESPONDING  TO  PDSC30E 


DETENT  COOE  NOW  IN  L 
ISOLATE  STAR  NO  IN  BIT  1-6 
STORE  OETENT  7-9 
GO  TO  AOT  MARK  FCR  SIGHTING 


GAP:  ASSfcMRLF  REVISION  56  OF  A3C  PROGRAM  ZERLINA  RY  ZOROASTER 

L PS1-P53 


130  3 

REF 

3 

L AST 

942 

15,2464 

16000 

0 

CADR 

AOTMARK 

I 

RFF 

?R6 

1 AST 

os  1 

15,  2465 

0 46  16 

1 

TC 

BANKCALl 

1305 

PFF 

2 

LAST 

9 42 

15,2466 

17711 

0 

CADR 

A3TSTALL 

I3f’6 

RFF 

7 

1 AST 

944 

1 c , 246  7 

r 5712 

C 

TC 

CURTAINS 

1 3 07 

RFF 

1 

15, 2470 

1 3050 

0 

TCP 

R59RE  T 

1 30  3 

15,2471 

00306 

1 

VOIN7  0 • 

VN 

170 

I 30R 

IS,  2472 

C 1 5 1 7 

0 

V06N79 

VN 

679 

1 31r 

15,  2473 

02525 

1 

DEG30 

2D  EC 

.083333333 

1310 

15,2474 

12525 

0 

1311 

15,  ">475 

CCC26 

c 

DEG.  5 

20EC 

.00138888 

1311 

r ,<  476 

30  131 

1 

1312 

15,2477 

12525 

0 

DEG60 

□ CT 

1 2525 
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USER'S  PAGE  NC.  35 


E5  S3 


SLEEP  TI  LL  SIGHT1  NG  OCNE 
E ACFND  RETURN  FROM  AOTMARK 
PF  TURN  TO  1 STAR  OR  2STAR 


3C  DEGRESS 

.5  CEGRESS  SCALED  IN  REVS 

60  DEG  CDU  SCAL  ING 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L P51-P53 


* 1318 
R1319 
R I 32f; 
< 13?  1 

Pi  322 
R 1323 
R1329 

Rl  32s 

3 1 3?  S 


NAME  - PLANET 

FUNCTICN  -TT  PRTV1CE  THE  REFERENCE  VECTOR  FOR  THE  SIGHTED  CELESTIA 
BCTY.  STARS  ARE  FETCHED  FROM  THE  C AT  ALGG,SUN,  EART  H AND 
MOON  ARE  COMPIJTEO  BY  LOC  SA  M , P LANE  T VECTORS  APF  ENTERED 
RY  DSHY  INPUT 
CAU  - CALI 

PL  ANET 

I NPUT  - T I ME  IN  M P AC 

OUTPUT  - VECTOR  IN  MPAC 

SUBROUTINES  - LCCS AM 

PERRIS  - VAC  , STA  P AD  - STAPAC  +17 


1327  REF 

1328 

1329  REF 


LAST  999  15,2CCO 

15  ,2500 


SETLOC  P50S 
RANK 

COUNT*  SS/P51 


1330  RFF 

1331 

1 332  REF 
1333  RFF 
1339  REF 

1335 

1336  REF 

1337  REF 

1338  REF 

1339  REF 
1393  RFF 
1-391  RFF 
1 392  RFF 
1393  RFF 
1399  PCF 

1395 

1396 

1397 

1398  REF 
1 399 

1350  REF 

1351  REF 

1352 

13521  RFF 


9 LAST  99  3 

9 LAST  256 
6 LAST  9S1 
13  LAST  951 

2 LAST  298 
195  LAST  851 
11  LAST  997 
11  LAST  997 
273  LAST  999 
1 


287  LAST  952 
37  LAST  951 


190  LAST  950 
20  LAST  993 


5 LAST  953 


15,  ?500 
1 5 ,2501 
15,  25C2 
15,2503 
15,2509 
15, 2505 
15  ,2  506 
15,2507 
15,  25  10 
15,2511 
15,  2512 
15,2513 
15,2519 
15,  2515 
15  ,2516 
15,2517 
15, 252c 
15  ,2521 
15,  2e22 
15, 2523 
15,2529 
15,  2 5 2 5 
15  ,2526 
15,2527 


03562  0 
77920  1 
C2736  1 
9 775t»  0 
7 C 739  0 
0 0006  1 
7 6259  0 
cfc  CC1  0 
5 1 1 7 57  0 
55' 755  0 
1C  CCO  0 
1 2530  1 
3 2567  1 
0 9tl6  1 
20977  1 
0 2519  0 
0 2522  C 
0 2519  0 
C 6C51  0 
79  ?75  0 
02707  0 
32571  0 
52056  0 
02736  1 


PL  ANET 


S T03  E 
STQ 


CCS 

TCF 

CAF 


UNIT 


T SIGHT 
EX  IT 
GCTR 
HIGH9 
AUTCODE 

REVCNT 

L 

STAR  I NO 
BEST  I 
A 

NOTPL  AN 
VNPLANV 
BANKCALL 
GO  FL A SH 
-3 
♦ 2 
-5 

I NTPRFT 
VXSC 
ST  ARAD 
1 / SQR3 
GOTO 
GCTR 


136  3 
1 359 
1355 
13  56 
1 357 
1 358 
1 359 
1 360 
1 361 


RFF  ?79  LAST  06  3 
RFF  1 

REF  1 

REF  12  LAST  953 
RFF  12  LAST  9*3 
REF  99  LAST  999 
PFF  27  LAST  930 
REF  1 9 1 1 AST  QS3 


15,  2530  9 COCO  0 

1 5 ,2531  6 2566  C 

15,2C32  C CCC6  1 
1 5,  2533  6 2599  0 

15,2539  51 • 757  C 

15,2535  3 1755  1 

15  ,2536  50  120  1 

15,?537  59  096  1 

15,2590  0 6051  0 


NO  TPL  AN 


C S 

AO  DEC  227 

EXTEND 

SZMF  I A L SA  M 1 
INDEX  STARINC 
C A BESTI 

INDEX  FIXLOC 
TS  XI 

TC  I NTPRFT 
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GAP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  ZERC  I NA  PY  ZOROASTF 


L P51-P53 


1366 
1 165 

1366 

1367 

l 36R 
I 369 

1370 

1371 
137? 
13  73 
13  7'. 

1375 

1376 
1 377 
1378 
1 3 70 

1 380 
1381 
13  02 

1383 
1396 
1 385 
1 3p  6 1 
13851 


REF  1 1 
REF  6 
REF  1Q2 

RFF  K 
RFF  3 

REF  13 
RFF  5 

REF  6 

RFF  6 

REF  5 

PfF  13 
RFF  308 

REF  ?1 
REF  7 


RFF  2 


I AST  o32 
LAST  953 
LAST  053 

LA<T  053 

LAST  033 

LAST  953 
l AST  027 

I AST  027 

LAST  056 

LAST  956 

LAST  053 
l AST  o 3 1 

EAST  053 
LAST  956 


LAST  330 


15, 2562 
15  ,2563 
15, 2566 
16,  2565 
15,2566 
15,  2567 

15  ,2550 
15,255  1 
16, 2552 

16  ,2553 
15,  2556 
15, 2555 
16,2656 
15,  2557 
15  ,2560 

15.2561 

16. 2562 
15  ,2563 
IS  2566 

15. 2565 

15.2566 
15,  256  7 
36  ,3755 
15,2570 
16, 2671 


52173  0 
30  36  7 1 
C2736  1 
C 6C51  C 
65165  0 
03562  0 
3C500  1 
77360  0 
027  57  0 
02707  0 
26001  0 
0271  6 0 
267C7  0 
00001  0 
C 2 7 1 6 0 
70  163  0 
C2756  1 
00156  1 
52173  0 
C2363  1 
C2  736  1 
00363  0 

C 1 5 30  0 

22363  1 
11623  0 


CAL  SAMI 
CAL  SAM 


VLCAD* 

TC 

OLOAD 

LXC,  l 

STOVl 

STOVL 


GOTO 
' A TLOG  ,1 
GCTR 
1 NT  PRFT 
CA  LL 
TS  IGKT 
LOC  SAM 
VLOAO 
STARINC 
VE  A P TH 

on 

VSIIN 

VFAPTH 


STGRE  VSUN 
OLOAD*  L XC,  1 

BEST  I,  l 
MPAC 

VLOAD*  GOTO 

STARAD  -228 
g:  TR 

OEC227  DEC  227 
VNPLANV  VN  0688 

PIPSR  INF  = P IP  A SR  +3 

1/SQR3  2 DEC  .57735021 
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F8ANK  NOT  6 SO  DOM  LOAO  P1PTIME1 


> AP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 
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USER  'S  PAGE  NO.  38 


E 5 


S3 


P1386 

1 1387 

R 1 3 83 
ft  1389 
R l 3°0 
R1391 
R 1392 
R 139  3 
Rl  394 
R 1395 
K1  396 
Rl  397 
R 1 398 
R 1 399 
Rl  AGO 
R 1 AO  1 
R 1 6 9 2 
R 1 40  3 

9 14f'<. 

Rl  4?5 
R 1 406 
R 1 4 0 7 
R 1 4 C 8 
R 1409 
R141D 
R 1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 
1 r,1o 
142" 
1421 

R 1422 
R 14?3 
R1424 
i 1429 
R 1 4 2 6 
R 1 4 ? 7 
R 1 4 ? 8 
R1429 
R 1 4 3" 
R 14  31 

9143.? 
R 1433 
R 1 4 3 4 
'R  1 4 3 5 


GRAVITY  VECTOR  DETERMINATION  ROUTINE 
BY  KFN  VI  NT  F NT 

FOR  0ETA1LE0  DESCRIPTION  SEE  504GSOP  5. 6. 3.2. 6 
T H 1 5 PROGRAM  FINOS  T I-  C DIRECTION  OF  T HF  MOnN  S GRAVITY 
WHILE  THE  IM  IS  ON  THF  MOON  S SURFACE . IT  WILL  BE  USFD 
FOP  LUNAR  SURFACE  ALIGNMENT.  THE  GRAVITY  VECTOR  IS 
FlFTF  RMI  NFD  EY  READING  THE  P I PAS  WITH  THF  IMIJ  AT  TWO 
PARTICULAR  OP  IONTA  TI ONS.  THE  TWC  READINGS  ARE  AVERAGED 
ANO  UNITIZEC  AND  TRANSFORMED  TO  NB  COORDINATES.  THE  TWO 
ORIENTATION  WERE  CHCSEN  TO  RFCUC6  P I AS  ERRORS  IN  THE 
R FADINGS. 


INPUTS- 
OUT  PUT  S- 


CADP  GV  DETER 
P IPAS, CDUS 

STAP  SA  VI  = LNI  T GP A V I T Y 
GSAV  = DITTO 

GRAVBI T = 1 
riNES- 

PIPASP,  IMUCOARS,  IM1JFINE.  IMUSTALL,  1/®  |PA  »DELA  YJ03  .CDUTRIG  . 
* NR  S V*  ,*  SN  MB*  . C ALGGA  .FTFLASH 

VAC,  SAC,  STAR  AC  ,X  S M ,X  NP  , T h ET  AD,  DELV , COS  CDU,  S INC  DU 


1 8 I AST  942 


REF  19 
RFF  1 
P EF  20 


l A ST  955 


RFF 

PEF 

FIND 


1 5 ,2572 

, 

’ ,2574 

15.2575 

15. 2576 
15  ,2577 
15,  2 6 C 0 
' . 

. 

15, 26C3 


277  3 0 
54  321  0 
4 0003  0 
54  322  0 
:•  2774  1 
54  323  1 
C feC  5 1 0 
45C14  0 
01662  1 
22677  0 


GVDETER  CAF 


GIMPAL  ANGLES  WHICH  ROTATE  SM  180DFG  ABOUT  G VEC 


THETAD  +1 

3 5DEG 
THETAD  ♦? 
I NTPRET 
CALL 

PEFSMFLC 

LUNG 


CEFINF  G COOR  SYS 


= IMTEZSM 


1 . 


GAP:  ASSEMBLE  REVISION  56  OR  AGC  PROGRAM  ZEPL  INA  BY  ZOROASTER 


!U?1 

1 1438 
R1439 
7 1 44' 
9 1441 

R 1 4 4 2 
3 1443 
R 1444 
P i 445 
< 1446 
1 447 
1448 
144Q 
145: 


1451 

14  6? 

1453 


1464 

1466 
1456 

1467 
1 460 
1450 
14  60 

1461 

1462 

1463 
1 46  4 
146  5 
1 4 6fc 
1 467 
1469 
1460 


147C 
1471 
147  2 

147  3 

1474 

1475 
1 4 76 
14  77 

1478 

1479 
14B0 

148  1 
1 4 R2 
1483 
14  84 
i486 


P51-P5? 


A IS  C 


GlMRAl 
REF  6 

RFF  1 

REF  10 

RFF  1 1 

PFF  4 
RFF  4 
REF  6 

PCF  6 

REF  15 
RFF  7 

REF  16 

REF  5 

RFF  20 

RFF  1 
RFF  3 

RFF  1 
PEF  2? 
REF  2 

REF  2 

RFF  23 
RFF  7 

REF  6 


XSM  = M 0,  - 1 

C,  0 


? ( X X ) - 1 /?  I * 

! J 


NP  WRT  PRES  SM  IS 


XKB  = NBSM  I 

ANGI FS  = CALCGM  XSM  , XNfi  I 


I AST  96  3 15,  20CT 

15,2604 


LAST  945 

LAST  956 

LAST  950 
I.  AST  59  3 
LAST  945 

I AST  950 

l AST  879 
LAST  956 

L AST  956 

LAST  956 

LAST  549 

LAST  94  5 

I AST  954 
LAST  955 

LAST  956 

I A ST  956 
LAST  9/.  3 

1 A ST  778 


15,  26C4 

, 

16,  2'.r  a 
15,  26f  7 
15,2610 
15,  2611 
15  ,2612 
16,2613 
is,  26  14 
15  ,2615 
16, 2616 

. 

15,2620 

15,  2621 
15  ,2622 

16.2623 

15. 2624 
15  ,2626 

16,  2626 
15, 2627 
15,2630 
15,  263  1 
15  ,2632 
15,2633 

15,  26  34 

I . 

16,  2636 
15, 2637 
15  ,2640 
15,  2641 
15  ,2642 
15  ,2643 
15, ?644 
15  ,2645 

• 

15, 2647 


66370  G 
00022  1 
CCC51  0 
0CCC6  1 
77744  0 
CCC50  1 
45173  0 
54000  0 
47700  0 
06707  1 
77775  1 
02731  0 
73744  1 
00C47  1 
75040  1 
71  152  1 
00047  1 
63C47  1 
64CCC  0 
00  re?  c 
G6665  1 
451C0  1 
32612  0 
47351  0 
74575  0 
02716  0 
36723  l 
32677  O 
74S75  0 
02715  0 
53455  0 
02  723  0 
0 2 76  1 C 
77641  1 
02222  1 
65552  0 


SFTLCT  P50S 
BANK 

CCUNT*  1S/P57 
A X T , 1 SSP 
180 
SI 

69 

LX  0 ,2 

si 

GRAVEL  VLOAO*  CALL 

X UN  IT  -6,2 
*NB  SM* 

STORE  XVR  +180, 1 

VLCAD 

STAR 

LXC.2  VXSC* 

X2 

STAR  +6,2 
VS  L?  LX  C,  2 
X2 

VSU*  INCR.2 

XUMT  -6,2 
20 

STCRF  XSM  +180,  1 
TI  X,1  CALL 

GRAVEL 
CALCGA 
VLOAD  VSR  1 
GOUT 

STCALl  ST  ARAD  +12D 
LUNG 
VLOAD  VS  R 1 
GOUT 
VAD  UNIT 

STARAO  +1  2 D 
STORE  STAR  SA  Vi 
DOT 

GSAV 
SL  1 A C 0 S 
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X 1 =1  8 
Sl=  6 

x 2,  -2 


SIN  AND  CCS  COMPUTED  IN  LUNG 

COMPLEMENT-  UNITX  ARE  BACKWARD  - 


OUTFP  PPODUCT 


GAP:  ASSEMBLE  REVISION  5b  OF  AGO  PROGRAM  ZFRLINA  BY  7UP.OASTER 


L P51-P5? 


REF  29  LAST  920 

REF  93  l AST  94  7 
PFF  8 LAST  943 


16,  265C  CIC45  1 

15.2651  77776  1 

15.2652  0 5527  1 
15,  265  3 0001 A 1 


STORE  OS  PT  E Ml 
EXIT 

TC  DOW  NFL  AG 

ADRES  FREFFLAG 


1490 
149  1 
K92 

1493 

1494 
1 495 
1 496 


PFF 

REF 

REF 

REF 

RFF 

RFF 


1 

2RP  I A ST  953 
1 R LAST  95  3 
5l  LAST  951 

1 

67  LAST  888 
9 LAST  957 


16.2655 

15. 2656 
15  ,2657 
",  >(.( 
15, ?661 
15,2662 


0 4616  1 
20477  1 

0 6001  0 

1 2663  1 
0 5515  0 

00014  1 


f.A  OISGRVFR 

TC  BANK  C ALI 

CAOR  30FLASH 

TC  GCTOPOOH 

TC  F PROG  R AV 

TC  UPFLAG 

ADRES  FREFFLAG 


1497  REF  89  LAST  94  3 

1498 


15,  2663  0 5364  0 PROGRAV  TC 

15  ,2664  04024  0 OCT 


PIIASCHNG 

04024 


1490 

1500 
1 601 
153? 
1503 
1604 
1535 
1 506 
150  7 
1608 


REF 

REF 

RFF 

RFF 

RFF 

RFF 

REF 

REF 


194  l A ST  955 


16.2665 

15. 2666 

15  ,2667 
15,  2670 
15,  2671 
15,2672 
15,  2673 

16  ,2  6 74 
1 5,2675 
15, 2676 


C 6C61  C 
77775  1 
02761  0 
02222  1 
7 7776  1 
3 4751  0 
7 0074  0 
10  000  0 
1 2672  1 
1 3547  0 


TC  INTPRFT 

VLOAO 

ST  APS AV  1 
STORE  G S AV 

EXIT 

CAF  FPFEFBIT 
VA  SK  FLAGWRDC 
CCS  A 

TCF  GVOETER 

TC  F ATTCHK 


l 509 
151  J 
1511 
1612 
1613 

1514 

1515 


REF 

RFF 

RFF 

REF 


14 

l 

90 


LAST  Q50 
LAST  944 

LAST  997 


15,2677  77220  1 

1 5,  27C0  C 2 7 4 5 0 

16.2701  24007  0 

1 5 ,2  7C2  02707  0 

15.2701  77776  1 

16  ,2704  0 5364  0 

15,2705  04024  0 


LUNG 


STO  VLOAD 

QMI  N 
7FR0VFC 
STORE  G ACC 

E XI  T 

TC  PHASCHNG 

OCT  04024 


1616  REF  1 99 

1517 

1518  REF  4 

1 619 

1520  REF  l 

1521  REF  8 

1622  RFF  3 

1623  RFF  10 

1624  REF  ?89 

1525  RFF  1 

15?  6 PC-F  9 1 

1527 


LAST  957 
LAST  944 


l AST  954 
LAST  787 
l A ST  944 
LAST  957 

LAST  997 


15  ,27(17 
15,  2710 
15,  27  1 1 
15,271? 
15,  2713 
15  ,2714 

15.2715 

15.2716 

15  ,2717 
15,  272  ' 
15,  272  1 


0 6061  0 
77624  l 
21567  1 
77776  1 
3 2771  1 

S' *136  0 
3 7730  1 
55*074  l 
0 46  16  1 
15707  0 
C 6369  C 
04024  0 


TC  INTPRFT 

CALL 

COARSE 

EXIT 

CA  T/2SEC 

TS  GCTR 

CA  PR  10  31 

TS  1/PIPADT 

TC  BANKCALL 

CAOR  GCOMPZER 

TC  PHASCHNG 

OCT  04024 


1528  REF  290  LAST  957 

1529  PFF  1 


C 4616  1 
71755  0 


TC  BANKCALL 

CAOR  PIPSRINE 
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CLEAR  FREEFLAG  IN  CASE  OF  RECYCLE 


V P3  3 -PROC  E EO 

VB3  2-R  ECYC  L E- S TORE  CRAV  ANO  00  IT  AGAIN 
AND  SET  FREEFLAG  TO  SHOW  RFCYCLE 


IF  FREEFLAG  SET,  PF-COMPUTE  GRAVITY. 


SET 

F X I T FROM  GVDET  ER 


INITIALIZE  COMPENSATION 


00 N T NEED  TO  INHINY  THIS  USED  TO 
INITIALIZE  PIPAS  CONT  US  F DATA 


« 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZEKLINA  BY  ZQROAST6R 

l PS1-P53 


1530 

1531 

1532 

1533 

1534 


PEE  156  LAST  557 

REF  6 LAST  8P2 
REF  25  LAST  896 
PEF  1 


15, 2725 
15  ,2726 
15,2727 
15,  2730 


C 6051  0 
77776  1 
3 5CGC  1 
C 52CA  1 
02732  0 


TC  INTPRET 

F XI  T 

CAF  2SECS 

TC  TW1DCLF 

AORcS  SRABGPAV 


1535  REF  131  LAST  <J20  15  ,2731  0 5155  0 


\m 

1 3° 
1 539 

l 560 
1541 
1 54  1 


REF 

PFF 

RFF 

RFF 

RFF 

REF 

REF 


LAST 
LAST 
LAST 
I AST 


016 
057 
73  2 
BBS 


15,  2732 
15.2733 
1 ',2734 
15,  27  35 
65 , l 706 
15,2726 
15,  27:7 


C 4f74  o 
71755  0 
3 5023  0 
C 5105  0 


TC 


GRABGRA  V TC 


EM  OOF  JOB 

1 ftNKCALL 
PI  PSP  1 ME 
PR  1013 
FI NOVAC 
ST  ARAO 
AODGRAV 


1542  PFF  63  LAST  R96  15  ,2743  0 5272  0 


TC 


T ASKOVER 


1545 
1566 
1547 
1 54P 

1549 

1550 

1551 

1552 
1551 
1 554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 
156? 
1563 


LAST 
LAST 
LAST 
I AST 


REF 

RFF 

RFF 

RFF 

PEF 


957 
854 
95  7 


RFF  14  [AST  90  3 

REF  2 I AST  997 
REF  3 LAST  958 


10  LAST  958 


°?  I AST  9 S7 


15,  2741 
15,2742 
L5.2743 
' . 

15  , ? 76 5 
15  ,2766 
15, 2747 
15  ,275C 
15, 2751 
is, 2 752 
15,2753 
IS,  2754 
15  ,2755 
15,7756 
15,  2757 
15  ,2760 
15,  2 7 C 1 
16, 2762 
1 5,2  767 
16, 2764 
15  ,2765 


C 4616  1 
15271  1 
25*736  1 
C 6C  6 1 0 
53376  0 
00326  O 
C 270  7 0 
02707  0 
SC  1 35  0 
02737  0 
32  72  5 0 
53575  C 
02707  0 
36731  1 
47535  1 
77624  1 
47676  C 
02716  0 
77776  1 
C 5364  0 
04024  0 


TC  RANKCALL 

CADR  1/PIPA 
1 NCR  GCTR 
TC  INTPRFT 

VLOAO  VAD 
OELV 
G ACC 
STORE  GACC 
S LOAD  BMN 
GCTR 
GREED 

VLOAO  UNI T 

GACC 
ST  CALL  STAR 

CD  LTRIG 

CALL 


1664 

1565 

1566 

1567 

1568 

1569 
1 5 73 


PEF  ISP  LAST  S5P 


RTF  15  LAST  957 


, 

15, 2767 
lf  ,2770 

15,  2771 

. r 

15  ,2  773 

16,  2774 


C 6C51  0 
77650  1 
02745  0 
77763  C 
01404  0 
C7357  1 
C 6 2 1 1 0 


T/2SEC  OEC 
D 1 SG3  VE3  VN 
4 2 DEG  OCT 

3 5DFG  OCT 


QM  IN 
-20 
0604 
r'  7 3 5 7 
06211 
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958 


= MASK  7776  IN  eAS  IC  SO  OONT  CAPE 
SET  UP  2 SEC  TASK  TO  READ  PIPAS 


RE-ESTABL  ISM  MA  INI  INE  JOB 


ACCUMULATE  G VECTOR 


TRANSFORM  IN  NB  CCQR 
IN  OUTPUT 


AND  STOKE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


1 1571 
R1  5 7 2 
R1573 
R 1574 
R1575 
T 1576 
R1577 
R 1 578 

* 1579 
RlSPH 
R 1 5s  1 
R 158? 
R15R? 
1 1584 
R15P5 
R 1 5 88 

* 1587 
R15BR 

1589 

1590 

1591 

1592 

1593 
159<, 

1595 

1596 

1597 
1608 
1590 
1600 
1601 
1 602 
1603 
1574 
1605 
160  6 
1677 
1608 
1609 
1 6 1 0 
161  1 
1612 
16  13 
1614 
1 b 1 8 
1616 
161  7 
1618 
1619 
1523 


NAME  GYRO  TRIM 

THIS  PROGRAM  COMPUTES  AMD  SENCS  GYRO  COMMANDS  WHICH  CAUSE  THE  CUUS 
TO  ATTAIN  A PRESCRIBED  SET  CF  ANGLES.  THIS  ROUTINE  ASSUMES  THE 
VEHIHFS  ATTITUDE  REMAINS  STATIONARY  DURING  ITS  DPFRATION. 


INPUT  THETAC.  +1,*2  = OESIREO  CD  U ANGLES 
CDLX.rnUY,CDUZ 

OUTPUT  - GYRO  TDP.QUF  PULSES 

SUBROUTINES-  TR  G*NB  SM,  *NB  SP*  , CD  UTR  I G , A XI  SGEN.CALCGTA  ,1  MUF  I NE 
IMPJLSE,  I MUST  ALL 


- Cr.USPOT 
LAST  956 


CO 


REF  16 
RFF  21 


REF  22 

REF  23 


RFF 

REF  25 
REF  2 

REF  5 
REF  26 
RFF  6 

REF  3 

REF  7 
REF  3 
RFF  3 
RFF  3 

REF  1 

REF  202 
REF  6 


LAST  959 
LAST  959 


I AST  96fe 
LAST  959 
LAST  858 

LAST  94  5 

LAST  956 

L AST  379 

LAST  94  3 

LAST  937 


S INCDU 
0 959  : 

15  ,2775 
15, 2776 
15  ,2777 
I 5 » 

15,  Tor  1 

15  ,3002 
15,  30C  3 

15  ,3004 
15,3005 
' • 

, 

lc,  3010 
15,  30  11 
15,3  'I? 
15,  ’"1  ? 

15.3014 

15.3015 
15,  30  16 

16  ,3017 
• 

1 5,3022 
15,  3 
15,3024 
l 5 , 12  5 
15,  30  26 
15  ,3*27 
L5|3i 
15,  V 31 
15,3032 
15,  3033 


SC  D U , STARAD 
121  121* 
71220  1 GYP 
02745  C 

00322  1 
65325  0 
00  32  4 1 

00323  0 
77666  1 
24766  0 
24005  1 
77624  1 
47671  1 
267C7  0 
240C3  l 
77624  l 
47 7C0  C 
36715  1 
47538  ] 

77624  1 
20030  0 

77775  1 
02665  0 
24007  0 
02673  1 
340  15  1 
47437  1 
77624  1 
47245  1 

77776  1 JUS 
: 3040  0 

C 4616  1 
17270  1 


, XDC  , 
COUNT* 
STQ 


VDEF 

STOVL 

CALL 

STOVL 

CALL 

STCAIL 

CALL 

VLCAD 

STOVL 

S T CAL  L 

CALL 

EXIT 


OGC 

* 1/P  57 

DLOAD 

QMIN 

T HETAD 

PDDL 

THETAD 

THETAD 


TP.  G*NBSM 
STARAD 
YUNI  T 

* NO  SM* 
STARAD  +6 
CDUTP  IC 


YNB 
1 2D 

AX  IS  GEN 


CA 

TC 

CADR 


3YRCDR 
BANKCALL 
1 MU  PUL  SE 


« 


9:12  OCT.  21,1970  LFMP5CS  .12b  PAGE  959 


USER'S  PAGE  NT. 
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L P51-P53 


9:12  OCT.  21.  1970  L EMP50S 
USER*  S PAGE  NC.  A? 


.126  PAGE 
E5  S3 


960 


1621 

1622 

1623 

162A 


I AST 
L AST 
LAST 


15,3039 
lc,  1035 
15  ,3036 
, 


TC  BANKCAIL 

CAOR  IMUSTALL 

Tf,  CURTAINS 

TCP  OMINEXIT 


1625 


PEE  13  I AST  937 


19, 30 AO  0 2737  0 


EC ADR  OGC 


GYRO  OR 


;ap  : 


ASSEMBLE  PF  VI  SI  0 N 56  CF  AGC  PR  C GP  AM  7 FRL  I N A BY  ZOROAST  £R 


L P51-P53 


P 1676  PE  RF  C PM  STAR  ACUISITION  ANC  STAR  SIGHTINGS 


itil 

1629 

1633 


REF  196  LAST  55  1 

REF  46  LAST  949 
RFF  14  LAST  *>54 


15,8041  \ 4755  1 

15,  3(  42  1 3044  0 

15,3043  3 4753  1 

1 5,  3044  5 5 1 7 5 7 1 


2STARS  CAF  ZERO 

TCF  +2 

1STAR  CAF  R IT  1 

TS  STARING 


1631  REF  93  LAST  958 

1632 

1633  PEF  4 LAST  95  1 


0 5364  0 
04024  0 

1 2270  1 


CCT 

TCF 


PHASCHNG 

?4024 

R 5 9 


1634  REF 

1635 

1635  REF 


LAST  961 


15,3050  3 1757  0 R59RET 

Ic,  305  1 C CC  06  1 
15,  3052  i 3Q63  0 


CA  STARING 

EXTEND 

BZF  A STAP. 


1637  REF  54  LAST  961 

1638 


15,3053  C 5364  0 
l 5,  3054  C4C24  0 


TC  PHASCHNG 

OC  T 04024 


1639 

1640 
1 64  1 
1642 
1 643 
1 64  4 


RFF  199  LAST  958 

REF  11  LAST  954 
REF  7 LAST  «49 
REF  l 
RFF  1 


15  ,3055  0 6051  0 

15.3056  45145  0 

15. 3057  03562  0 

L5» 

15, 3061  27254  0 

16,  3062  33C76  0 


TC  1NTPRET 

DLCAD  CALL 

TSIGH  T 
PL  AM  FT 
STCALL  VFC2 

SURF  LI  NE 


1645 

1646 
164  7 
164R 
1 649 
1 650 
1651 

1 65? 

1653 

1654 


RFF  200  LAST  961 

REF  27  l AST  959 
REF  9 | AST  957 

PFF  12  LAST  961 
REF  8 LAST  961 
PEF  2 LAST  140 

RFF  1 


15,3063 
16,  3C 64 
15  ,3365 
15,3066 
16,  3067 
15  ,3070 
IS  7 1 
15,  JP 72 
15  ,3C73 
15, 3C74 


C 6051  0 

77775  1 
02715  0 
02761  0 
45145  0 
03562  0 
3’5CO  0 
0 32  46  1 

77776  1 
1 3043  1 


ASTAR 


TC  INTPRET 

VLOAG 

STARAD  +6 
STORE  STARSAV1 
GLGAO  CALL 

TS  IGHT 
PLANET 
STORE  VEC  1 
EX  IT 

TCF  1STAR 
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I N IT  AL  I ZE  STAR  INO 

ZERO  FOP  1ST  STAR,  ONE  FOR  2N0  STAR 


GE  DO  STAR  AQUIPF  AND  ACTMARK 

BACK  FROM  SURFACE  MARKING 
1ST  STAP  MAPKEC 


TI  ME  OF  2 NO  MARK 

STORF  2 N C CATALOG  VFC  (PEF) 


1ST  OBSERVEO  STAR  ( SM ) 

TIME  OF  1ST  MARK 

STORF  1ST  CATALOG  VEC  (REF) 

GO  GET  2 NO  STAR  SIGHTING 


r,  AP:  AS  S EM  HI  E REVISION  56  OF  AGC  PROGRAM  ZERIINA  rt  Y ZOROASTER 


P51-P53 


P 1 655  Of’  FINE  OP  COARSE  ALIGNMENT  TF  IMU 


16*8 

1659 

1660 
1661 
1662 
166  3 
1 664 
1665 
1566 

1667 

1668 
1 665 
I < 7 
1671 
16  7? 
1673 
15  76 

1675 

1676 

1677 

1678 
1 S79 
1680 
1681 
1682 

1683 

1684 

1685 

1686 
1 687 
1688 
168Q 
1593 
1691 


18,3075 

77  131 

1 

SURFL  INE 

SSP 

A XT,  2 

RFF 

1 1 

LAST 

930 

1 5 , 3 C 76 

00052 

0 

S 2 

15, 3077 

OOtC  6 

1 

6 

15  ,3100 

000  14 

1 

T 20 

16,3101 

64373 

1 

WRTOFS I R 

VLCAD* 

MX  V 

PEF 

3 

L AST 

06  1 

15,31  2 

745  15 

0 

VECl  +120,2 

PEF 

11 

LAST 

946 

15  ,3  It  3 

03607 

0 

XSMD 

IS  3 1 C 4 

77(56 

1 

UNI  T 

RFF 

2a 

LAST 

06  1 

16,  3 105 

12723 

1 

STORE 

STAPAD  ♦ 12D.2 

15,31 06 

77773 

1 

V LOAD* 

REF 

ip 

LAST 

061 

15,  31C7 

75002 

1 

STARSAVl  +1  2 D ,2 

15  ,3110 

10023 

1 

STORE 

18D,  2 

15,3111 

43  104 

0 

T IX, 2 

BON 

REF 

i 

15,  3112 

' ' 1 

1 

WR  TDE  SI  P 

PEF 

l 

15  ,31 13 

04315 

1 

IN  IT  Al  GN 

RFF 

l 

15,  ? 1 14 

3312? 

0 

I NITRY 

15, 3115 

77624 

1 

DOAL IGN 

CALL 

REF 

2 

LAST 

034 

15  ,3116 

31250 

1 

R54 

15,  3117 

776  14 

1 

BOFF 

RFF 

10 

L AST 

957 

15  ,3120 

00354 

0 

FRFEFI.AG 

REF 

1 

15,3121 

3 3202 

1 

P57  POST 

15,  3 122 

77624 

1 

I N ! T8  Y 

CALL 

REF 

4 

LAST 

959 

15  ,3123 

47*77 

l 

AX  IS  GEN 

15, ’124 

77624 

1 

CALL 

REF 

4 

LAST 

959 

15, ’125 

4 724  5 

1 

CA  LCGTA 

1 5 ,3126 

77776 

1 

EX  IT 

RFF 

1 

15,  ’127 

3 4752 

c 

CAF 

I N I TABI T 

PEF 

16 

LAST 

855 

15  ,3130 

7 0104 

0 

MASK 

FL  AGWRD8 

REF 

2 76 

L A ST 

957 

15,313  1 

10  000 

0 

CCS 

A 

PEF 

1 

15,  3 13  2 

1 3 14  1 

1 

TC  F 

5DEGTE  ST 

REF 

1 

15  ,3133 

3 3307 

0 

CAF 

DISPGYRO 

REF 

79  4 

LAST 

960 

15,3134 

C 4(16 

1 

TC 

BANKCALL 

RFF 

39 

I AST 

957 

14, 3135 

204  77 

l 

CADR 

GOFLASH 

RFF 

51 

LA  ST 

957 

. 

0 6001 

0 

TC. 

GOT  OPOOH 

REF 

2 

L AST 

96  2 

15,  3137 

1 3141 

1 

TCF 

5DEGTEST 

RFF 

2 

LAST 

96  2 

15  ,3140 

1 32C3 

1 

TC  F 

P57POST  +1 

1694 


1695 

1696 
16°  7 

1698 

1699 

1700 
1 701 


170? 


REF  201  LAST  96  1 

RFF  14  LAST  960 
REF  1 

REF  2 LAST  127 

REF  2 LAST  928 
PFF  1 

REF  17  LAST  959 
REF  1 


15,3141  C 6051  0 
15,  3142  4 r;  17  5 0 

15  ,3143  02740  0 

1 6,  3 144  33145  1 

15.3145  C2750  1 

15.3146  40141  1 

lc,  31  47  306C2  0 

15,3  15'-  33250  C 

15,3151  5 2131  0 

15,  3 152  02746  0 

1 5 ,3  153  331  55  0 


50EGTFST  TC  INTPPET 

VLOAO  30V 
OGC 

SURFSUP 

SURFSUP  STORE  OGC T 
V/SC  BOV 

50EGRFES 
COATR  IM 
SSP  GOTO 

QMI  N 
SJRFDISP 
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PICK  UP  VEC  IN  PFF,  TRANS  TO  OESIREO  SH 

VEC  IN  SM 

PICK  UP  VEC  IN  PPESENT  SM 

IF  INITIAL  PASS  (OPTION  0)  BYPASS  R54 

DO  CHK  SOA  TA 

ASTRO  DOES  NOT  LIKE  DATA  TF  ST  RESULTS 
GET  DESIRED  ORIFNT  WR  T PRF  S.  XOC  , YDC  , ZDC 
GET  GYRO  TORQ  ANGLES,  CGC.IGC.MGC 
IF  INITIAL  PASS  BYPASS  NOUN  9-3  DISPLAY 

DISPLAY  GYRO  TUR3  ANGLES  V C6N93 

V84-TERM  INATE 

VB33-PROCEED  TO  COARSE  OR  FINE 
VB32-REC  YCLF  , RAYBE  RE-ALIGN 

IF  ANGLES  GREATER  THAN  5 DEGS,  DO  COARSE 


1AP:  ASSEMBLE  REVISION  56  OF  AGC  PRC GR AM  ZERLINA  RY  ZOROASTER 


L P51-P51 


1703  PEE 


1 5,  3 154  2 30  30 


JUSTTRI  r 


1704 

1735  RFF  qs  | AST  Qft  1 
1706 


15,1155  77776  1 SURFOISP  EXIT 

t 5,  1156  C 5 364  0 TC 

15,1157  04024  0 OCT 


PH  ASCHNG 
04024 


1707  REF  202  LAST 
1 70R 

1709  RFF  12  LAST 

17  10  RFF  51  LAST 

1711 

1712  RFF  7 LAST 

1713  REF  5 LAST 

1714 

1715  REF  9 LAST 

1 71 6 RFF  1 

1717  RFF  3 LAST 


562  1 5,1160  0 6051  0 

' . ’ 1 

562  15,1162  03606  1 

949  15,  1161  C 1 731  0 

15,  1 164  45014  0 

955  15,1165  Cl 462  0 

Q45  15,  1 166  3 1371  0 

15  ,3167  77776  1 

521  15,1170  11* 144  0 

15,  3 171  12  173  0 

962  15  ,317?  1 3203  1 


SET 


EX  IT 
CCS 
TC  F 
TC  F 


INTPRET 
A XC  ,2 
XSMU 
REFS  MR  AT 
CALL 

REFSMFL  G 
MATMOVE 

OPT  1 0N2 

3 2r  8 

P57POST  +1 


Ulq 

1720 

1721 
172? 
1723 
172  4 
1725 


I72R 
1 1?  9 
1730 
1711 

173  2 

1713 

1734 

1736 

1736 

1737 
1 71« 

1 730 

1 740 
1741 
174? 

174  3 
1 744 

1745 

1746 
1 747 
1 74  H 
1749 


REF  2 
RFF  17 
REF  277 
RFF  1 
RFF  203 

RFF  2 


REF  3 
RFF  295 
REF  9 
RFF  52 
PFF  ? 
REF  4? 
PFF  Ip 


REF  5 3 
PC-F  96 

RFF  204 

REF  8 
REF  2 

RFF  52 
RFF  6 

REF  11 

REF  6 


LAST  96? 
LAST  062 
LAST  562 


LAST  963 
LAST  778 


LAST  934 
LAST  962 
LAST  942 
I AST  962 
I AST  Of»3 
I AST  Q?1 
I AST  96  3 


LAST  96  3 
LAST  963 

LAST  963 

l AST  047 
LAST  7C0 

I AST  963 
I A ST  924 

LAST  924 

LAST  924 


15,  1 173  3 4752  0 

15.3174  7 0104  0 

15.3175  1 0 000  0 

1 5,  1 176  1 3555  C 

15 ,3177  0 6051  0 

15,3200  77624  1 

15,  320  1 33502  n 

15.32C2  77776  1 

1 5,  1203  3 5752  1 

16.3204  0 4616  1 

15.3205  20624  0 

15,  3206  1 600  1 1 

15,3207  1 3555  0 

15,1210  4 4752  1 

15,  321  1 6 1 144  1 

15,321?  C 0006  l 
15,  321  3 1 321  5 0 

15.3214  1 6001  1 

15.3215  C 5364  0 

1 5 , 3216  04024  0 

15  , i?17  r 6051  0 
15,3220  X 5 1 76  0 
15,  322  1 02222  1 

15,3222  47666  1 

15,  3223  431C5  l 

15.3224  01732  0 

15.3225  01463  1 

15,  3226  5 1 c 1 5 1 

15  ,3227  02021  0 

15,3239  45561  1 

15,?231  75745  0 

15,3232  47014  1 


R2F8 


P57POST 


OAF  INITA8IT 

MASK  FLAO.WRDP 

CCS  A 

TC  F P5  7 JUMP 

TC  IN  TPI  f I 

CALL 

REFMF 

EX  IT 

CAF  nCTl4 

TC  3 ANKf.  All 

CAOR  GOP  E R FI 

TCF  GOTOPOOH 

TC  F P57JUMP 

CS  BIT2 

AP  OP  TJ  UN 2 

EXTEND 
B7F  *2 

TCF  GOTOPOOH 

TC  PHASCHNG 

OCT  04  024 

TC  INTPRET 

VI  CAD  CALL 

3 SA  V 
COU*NRSM 
VXM  SET 

RFF  SMMAT 
L JNAFLAG 
Pf)  VL  ARVAl 

Rl  S 

VXSC  STADR 

STORE  ALPHAV 

CLEAR  RTB 
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ANGLES  LESS  THAN  5 CEG,  CO  GYRO  TOKO 


IF  OPTION  ZERO  DO  FINISH 


IF  INITIAL  FLAG  SET,  RE-CYCLE. 


ITS  SET 


GO  GET  ATTITUDE  VEC  IN  MF  (Y  N8S  AV  »X  NDS  AV  ) 
DISPLAY  V50N25  CHK  CODE  H 


VB34-TERMINAT  E 

VP  13-PROCEFP  TO  RE-ALIGN 

TEST  TO  S'E  IF  ALIGNED  BY  OPTION  2 


YFS-GU  CALCULATF  l AND  IN  G SITE 
N0-EX1  T P57 
RESTART  PLACE 


USE  GN8 

GO  TO  SM  COORDS 

ON  MOON  SO  SET  LUNAFIAG 
G(RFF)  = (RFFSMMATH  (NBSM)GNB 


ALPHAV 


PL  SM  AG  * G(REF1 


; ap  : 


ASSEMBLE  REVISION  56  OF  ACC  PRCG»AM  ZEPLINA  BY  ZOROASTER 


P cl- 


p R-a 


i 75  o 

I 751 
1752 
1751 
1 754 
1 755 
1 756 
1757 
1 75  B 
1 759 
1 76*1 
1 75 1 
176? 


PFF  3 
REF  2P 

REF  2 
PFF  16 

PFF  7 

REF  22 
REF  2 
RFF  1? 

REF  54 


LAST  926 
LAST  549 

LAST  924 
LAST  RR1 

LAST  9?5 

LAST  885 

I A ST  777 
I AST  963 

LAST  563 


15, 1231 
15,3234 
15,  3235 
15,  ->236 
15  *3?37 
l e,  ’249 
15  ,3241 
1 5,324? 
15,  3243 
15,3244 
1 5,  3245 
1 6,  1246 
15,3247 


C06f  2 0 
21555  1 
77624  1 
30440  1 
01220  0 
65352  0 
01242  1 
77606  1 
35234  1 

51644  o 
C2C21  0 
77776  1 
1 6001  1 


ERAOF LAG 
LOACT  IME 

CALL 

N 850 1 SP 
STORE  RN 
VSL2  POOL 

GOT/2  +4 

PUSH 

SIC  ALL  PI  PTl  HE 
R-TO-RP 


STORE  RLS 
EXIT 


TCF  GCTOPOOH 
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SUBROUTINE  TO  CALC  LS  AND  GIVE  RLS  BACK 

PN=RIS  B-  29  = LM  POSITION 

P-TT-RP  GFTS  RLS  P-27  AT  0-50  IN  POL  1ST 

TIME  TEMP  STnRED  IN  N890ISP 

TIME  AT  6-7  IN  P DL  I ST 

PI  PTI  ME  = LM.  ST  AT  F T IME 

RLS  IN  MOON-F I X EC  COORDS 


FXIT  P 5 7 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P51-P53 


P 1763 
1 76  4 
1765 
1 7 66 
1 767 
176R 
1 769 

1770 

1771 

1772 

1773 

1774 
1776 
1776 
l 777 
1 778 
1779 
1 7B0 
1781 
178? 
178* 
1784 
1795 


COAP 

REF 

REF 

REF 

REF 

RFF 

P.FF 

RFF 

REF 

RFF 

REF 

REF 

REF 


REF 


SE  AND  FINE  ALIGN^M^^ 

5 LAST  o<,3  15  ,3251 

21  I AST  556  15,  3252 

16, 3253 

6 LAST  963  15,3254 

15,  3255 

7 LAST  959  15  ,3256 

15,3257 

4 LAST  959  15,  3260 

15  ,3261 

4 LAST  966  15,  3262 

16,  3263 


2 LAST  962 
1 

4 t AST  942 
266  1 A ST  563 

4f  LAST  96  2 
55  LAST  ob4 


15,3264 
15,  3265 
15  ,3266 
15  ,3267 
15, 3270 
15  ,3271 

15. 3272 

15. 3273 


97  1 A ST  963  1 5,3274 

15,  3275 


T 5 1 60  1 
02664  1 
C2642  0 
77624  1 
31371  0 
77624  1 
47535  1 
77624  1 

2CC30  0 

77624  ] 
47361  r 
7 7414  0 
04356  0 
33277  0 
3 5010  0 

0 4616  1 
20477  1 

0 6001  0 

1 3274  l 
1 32  66  1 
C 5364  0 

C4C24  0 


AXC  ,1 


CALL 


CALL 

CALL 

CALL 

BOFF 


CAF 

TC 

C ADR 
TC 
TCF 
TC  F 
TC 
OC  T 


A XC  ,2 
X OC 
XSR 

MAT  MOVE 

CDUTR  IG 

CALC  SM SC 

C ALCOA 
EXIT 
I NIT  ALGN 
CORSI  T 
V06N  22 
BANK  CAL  L 
30F  LA  SH 
GOTOPOOH 
+ 2 
-5 

PH  AS  CHNC- 
04024 


1786 
1 7P7 
1 788 

1 789 
1799 

1791 
179  2 
1793 
1 794 
1795 


REF  206  LAST  963 

REF  5 LAST  957 

REF  4 LAST  94  2 

RFF  1 

REF  2 LAST  o62 


15  ,3276  0 6051  0 

15,3277  77624  1 

15,  3 300  3 15  5 7 1 

15,3301  77624  1 

15,  33C2  216C3  0 

15.3303  77624  1 

15.3304  32775  0 

15,  33C5  77650  1 

15  ,?3Q6  33155  0 

i . : j 


TC 

CCRSI  T CALL 
CALL 
CALL 
GOTO 

OISPGYRO  V N 


INTPRE  I 
COAP.SE 
NC  CARS  F 
GY  ROT R 1M 

SURFOISP 

0693 
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USER  ' S PAGE  NO.  48 


IF  INITIAL  ALGNMENT  DISPLAY  FINAL 
GIMPAL  ANGLES  IF  COARSE  ANCLES  GREATER 
THAN  5 DEGREES 


GAR: 


ASSEMBLE  i E V I SION  56  OF  AGC  PROGRAM  ZEftLlNA  9Y  ZOROAS  T EH 


L P51-P53 


5 1796  LUNAR  SUPFACF  I MIJ  ALIGNMENT  FRCCRA* 


15,  T JIG  l.  Afc  lo  1 P57 

15,331  1 33646  D 


TC  6 AtJKC  ALL 

CAOR  IMUfHK 


1801 
1332 
1 flr*3 


1904 
1 R 3 6 
1R06 


REF  30  IAST  920 
PFF  11  LAST  963 
PFF  47  l A ST  <561 
REF  298  LAST  966 
REF  2 LAST  920 
RFT  56  LAST  96  5 
PEF  1 
PFF  1 


IS,  J 3 1 1 
15.3314 
15,  3315 

1 5 » ■*  3 1 5 

1 5,331 7 
15,  3320 

15  ,332  1 


3 4753 
t 4616 
20714 
C 6001 
1 3325 
1 3314 


1 

0 

1 

1 

1 

0 

1 

0 


PS7CPT 


CAF  THPFF 

TS  0PTI0N2 

OAF  B IT  1 

TC  BANKCALL 

CADR  3DPEPF4P 

TC  GOTOPOOH 

TC F A L IT. NOP  T 

TCF  P570PT 


1809 


REF  9P  LAST 
REF  132  LAST 


,6s  mn 

55  fi  15,3324 


C 5 364 
0CC14 
C 5155 


0 

1 

0 


TC  PHASCHNG 

OCT  00014 

TC.  ENCOFJOB 


1313  PEF  121  AST  966 

1811  PEF  31  (AST  956 

1812  PEF  2 78  I AST  562 

1 Rl  3 

1814  REF  1 

1«15  RFF  1 

1 8 1 6 PEF  2 LAST  966 

1817  PFF  206  LAST  965 

1319 

181Q  REF  53  1 A $7  96  3 

1820  RFF  13  LAST  563 

1 fl21 

1822  REF  7 LAST  965 

1923 

1824  PEF  2 LAST  966 


15,  3 325  2 1 144  1 

15  ,3326  7 6257  0 

15,  3327  5 C CCO  1 

15,  3 3 30  1 33  3 1 1 

15,3331  1 3344  0 

15,  7 7*2  1 34  f 5 1 

15.3333  l 3314  0 

15.3334  0 6051  0 

15, 3325  7516C  1 

1 5 ,3336  ^1731  0 

15,^  337  C 3606  l 
15,3  340  7 7 6 2 4 1 

1 5 ,3341  31371  0 

IS  3342  77650  1 

15,  3 343  33404  1 


OP  TI  0N2 
THREE 
A 

♦ 1 

T 0 IS  P 
PACKCPTN 
P 570PT 
INTPPET 
AXC  ,2 
RFFSMMAT 
XSMD 

CALL 

RATMDVE 

GOTO 

PACKOPTN 


A L 1 3 N0°  T CA 

H ASK 

INDEX 

TCF 

TCF 

TCF 

TCF 

TC 

AXC  ,1 


1825 

1826 

1827 

1828 
1029 

1830 

1831 

1832 


1833 
10  34 
1835 


REF  207  LAST 

REF  40  LAST 
REF  30  LAST 

RFF  2 IAST 
PEF  29°  LAST 
REF  41  LAST 
REF  57  IAST 

PEF  1 


966  15,3344 

15,  1 345 

829  15  ,3346 

957  15,3347 

15,  3 750 
920  15,3351 

' , I 

965  15,  3353 

966  15,3354 
1 5,  3355 
15  ,3356 


77745  1 

03442  0 
C 1 04  5 1 P5  7 A 
77776  1 

3 2213  0 P57AA 
C.  4616  1 
20477  1 
1 6001  1 
1 3357  1 
1 3351  1 


TC  INTPRET 

0 LOAD 

T IG 

STORE  DSPT6M1 

E XI  T 

CAF  V06N34* 

TC  BANKCALL 

CA  OR  GOFLASH 

TCF  GOTOPOOH 

TCF  +2 

TCF  P57AA 


J8J6  R EF  ?C 8 I A ST  966 

1838  REF  29  LAST  964 
1939  KEF  31  LAST  966 


n.’iiio7  ? 

15  ,3361  21  555  1 
15,  3362  CLC45  1 


TC  INTPRET 

3 TR  PDDL 

LOAOT  IMF 
DSPTFM1 
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IS  1SS  ON  - IF  NOT,  IMUCHK  WILL  SEND 
ALARM  CnDE  210  AND  EXIT  VIA  GOTOPOOH 

JAM  PEFSMMAT  OPTION  3 FOR  INITIAL  DISP. 


FLASH  VP4N06  POP  ALIGNMENT  CODE 
V 34  TERMINATE 
V3  3 PROC.FED 
V 32  RECYCLE 


OPTION  4 1 S 3R IENTA  T10N 

OPTION  1 PREFFRRFD 

OPTION  2 INVALID  IN  P57  , RECYCLE 

OPTION  3 RFFSMMAT 

JAM  REFSMMAT  IN  XSMC  LOC 


LOAD  ASCENT  TI  MF  F CR  DISPLAY 

0 1 SPLAY  TALI5N,  TALTGN  : 0 SPTE  Ml 

V 3 4- TERM  INATE 
VB  32-RECYCLE 

PUSH  CURRFNT  TIME  AND  PICK  UP  KEY  IN 


r-% P : ASSEMBLE  kF  VI  SION  56  OF  AGC  PROGRAM  ZfcRLINA  BY  ZOROASTER 


L P51-P53 


1 8 AO 

1 PA2 

184  3 
1 BAA 
1 RA5 
18A6 
1 8A7 
18A8 
1949 
1 850 
18  51 
185? 
1 853 
1 85A 
1 855 

1856 

1857 

1858 

1859 
1 863 
1861 
186? 
1 86  3 

1 86  A 
1865 
1 866 
1867 
1 868 

1869 

1870 

1871 
1P7? 


REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 

PFF 

RFF 

RFF 
RFF 
RFF 
RFF 
P EF 
RFF 
RFF 
REF 
REF 
REF 
RFF 
RFF 
RFF 
PFF 
RFF 


1 

3?  LAST  566 

2 LAST  Q67 

A 1 LAST  566 
9 LAST  92A 


1r  LAST  967 
AC  I AST  SA6 
11  LAST  927 

32  LAST  9A6 
1'*  l AST  C66 

2 LAST  92A 

197  LAST  96  1 

2 LAST  310 

3 LAST  Q67 
A LAST  9A9 

10  l A ST  9A9 

279  LAST  966 

33  LAST  95  1 
A LAST  967 
1 

1A  LAST  87A 

280  I AST  967 

36  LAST  912 

5 LAST  J)67 

37  LAST  967 

6 LAST  967 


15, 1 36 A 

15.3365 

15.3366 
IS  3367 
15  ,3370 
15,3371 
15,  3372 
15  ,3373 
15,  3374 
IS, 3375 

, 

15,  3 37  7 
15  ,3A0f> 
1 5 , 3 AO  1 
15,  3 AO  2 
15  , 3 AC 3 
15,  3ACA 
15,  3A05 
15 ,3A06 
15,  3 AO 7 
15  , 3 A 1 J 
1 5 , 3 A ) 1 
15,  3 A 12 
15 , 3 A 1 3 
15,  3 A 1 A 
Is,  3 A 15 
l 5 ,3A 1 6 
15,  3 A 1 7 
15  ,3420 
15  ,3A2  l 
15,  3*22 
15  ,3A23 


5 1 025  1 

01  0 A 5 1 
2337A  1 
A55A5  1 
7A335  1 
26775  1 
33376  0 
4*545  1 
75002  1 
3A0A1  0 

2 7C  56  1 
53575  0 
00001  0 
27607  1 
10765  1 
77776  1 

3 A 755  1 
55  ' 1 A A 0 
5 5'  1 A 5 1 
3 A737  0 
7 0077  0 

lo  000  0 

3 A7A5  0 
27'  1 A 5 1 
3 A 75  3 1 
7 0102  0 
1C  000  0 
3 A750  l 
27'  1 A 5 1 
3 A 7 5 0 1 
55' 1A3  1 


BZE 

DSU 


OL  OAO 
STORE 
STCAL  L 

P5  7C  0 LOAD 

STORE 

P570  ST  CAL  L 

VLOAD 
STCALL 
EXIT 

PACKTPTN  CAF 
TS 
TS 
CAF 
MASK 
CC  S 
CAF 
ADS 
CAF 
MASK 
CCS 
CAF 
ADS 
CAF 
TS 


3PL 

DS  PT  EM  1 
P57C 
STADR 
T IG 
TA  LIGN 
P57D 
ST  ADR 
TA  LIGN 
T DEC  1 
LEMPREC 
UN  IT 
RATT 
XSMO 

L S OR  I ENT 
ZERO 

OPT  I ON  1 +1 
OPT!  CM  >2 
P EFSMB  I T 
FL  AGWRD3 
A 

B IT  7 

0PTICN1  4-2 
ATTFL9I  T 
FL  AGWRC6 
A 

P IT4 

0PTI0N1  +2 
3 1 TA 
OPT  ION  1 


1373 
1 87A 
1 B 75 
1376 

1877 

1878 


LAST 
LAST 
L AST 


966 

966 
96  6 


15,  3A2A 
15, 3A25 
15.3A26 
15, 3A27 
15  ,3A3:i 
15  , 3 A 3 1 


2 36A5  0 

0 A6  16  l 
20A77  1 

1 60  Cl  1 
1 3A32  0 

1 3 A 2 A 1 


DSPOPTN  CAF 
TC 


CADR 

TCF 

TCF 

TCF 


V BO 5 NO  6 
BANKCALL 
GOFL AS  F 
GOTOPOOH 


1879 

1880 
138  1 
1882 
1883 
l P8A 

1885 

1886 
1 887 


RFF  5 LAST 
PFF  11  LAST 
REF  281  LAST 
RFF  1 
RFF  2 l A ST 
REF  15  LAST 
RFF  28?  LAST 
REF  1 
REF  AA  LAST 


967 

96  7 
967 


96  7 
96  7 
967 


963 


15,  3 a 3 2 2 A737  0 

l 5 , 3 A33  7 0077  ( 

15,  3 A 2A  1C  COO  0 
15.3A3S  l 1535  0 
1 5 , 3 A36  3 A 753  1 

15,  3 A 2 7 7 0 1C2  0 

15  ,3AA0  10  000  0 

l c » 3 A A 1 1 1 5 A 1 C 

15, 3AA 2 2 A 7 52  0 


CAF  RFF  SMRI  I 

MASK  FLAGWRD3 

CCS  A 

TCF  3FTLMATT 

CAF  AT  T FL  B IT 

MASK  FLAGWRC6 

CCS  A 

TCF  8YLMATT 

CAF  31  T 2 
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USER'S  PAGE  NO.  50  F5  S3 

IF  KFY  IN  TIME  Z ERO-T  AL  IGN  = CUR  R E N T TIME 
NOT  ZERO  SO  EXCHANGE  PD  WITH  DS  PT  EMI 


IF  KFYIN  TIME  GREATER  THAN  CURRFNT  TIME 
STORE  IT  IN  TIG 


COMPUTE  DESIRED  I MU  ORIENTATION  STORE 
IN  X , Y , Z SMD 


PACK  FLAG  BITS  FOR  OPTION  DISPLAY 
JAM  ZERO  IN  ALIGNMENT  OPTION 
INITIALIZE  FLAG  8 IT  CONFIGURATION 

REFSMFLG 

SET 

CLEAR-JUST  ZERO 

ATT  FL  G 

SET 

CLFAR-ZFRQ  IN  A 

JAM  00010  IN  0PTI0N1  FOR  CHECK  LIST 
DISPLAY  OPTION  CODE  AND  FLAG  8 ITS 


V83A-TERMI  NAT  E 
V33-PPnCEED 
V32-REC  Y CLE 


SET,  GO  COMPUTE  LM  ATTITUOE 
CLEAR-CHECK  ATTFLAG  FOR  STORED  ATTITUDE. 


ALL  FL G SET,  CHK  OPTION  FOR  GRAVITY  COMP 
SEF  IF  OPTION  2 OR  3 


LEMP5GS 
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SAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLlNA  HY  ZOROASTER 


9:12  OCT.  21,1970 


P51-P53 


USER  ' S PAGE  NC.  SI 


65  S3 


18RR 
1 RR9 
1890 

1 391 
1 892 
1893 

1 3 99 
1 895 
1896 

1 897 
1858 


REF  13 
REF  283 
PEE  2 
PFF  Af 

RFF  3 

REF  301 
PEF  A3 
REF  59 
REF  7 
PFF  3 


LAST  966 
I AST  967 
LAST  967 
LAST  951 

I AST  951 

L AST  967 
LAST  9f>7 
LAST  S67 

LAST  96  7 
LAST  968 


16,  1 AAA 
1 5 ,3  AA5, 
15,  3AA6 

1 5 . 3 A A 7 
!5,3ASO 
15,  1 A5  1 

16 . 3 A 6 2 
1 5 , 3 A 5 3 
15,  lASA 

15.3  A55 


7 11AA  0 
10  000  0 
1 35A1  0 
C 5600  1 
00701  1 
3 6006  1 
r A6 1 6 1 
20A77  1 

1 60C1  1 
1 3A2A  1 
1 3A2A  1 


MASK  OPT  I CN2 

CC  S A 

TCF  BYLMATT 

TC  A LAPP 

OCT  701 

CAF  V806N09 

TC  BANKCALL 

CAOR  GOFLASH 

TCF  GOTCPCCH 

TCF  3SP0PTN 

TCF  DSPOPTN 


OPTION  2 OR  3 BUT  DONT  HAVE  ATTITUUE 
OPTION  INCONSISTANT  WITH  FI  AGS-AL  ARM  7C 1 

DISPLAY  ALARM  FOR  ACTION 


V 83A-T  ERM  IN  AT  E 

V33-PROCEEO  ********TEMPORAPY 
VB32-RECYCL6  TO  OPTION  DISPLAY  V 05 NO 6 


GAP:  ASSEMBLE  REVISION  S6  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L Pr.  1-P53 


P 1A99  TRANSFORM  VEC  1 , ? FROM  MOON  FIXED  TC  REF  AND  JAM  BACK  IN  VEC1,2 


190C 
1901 
190? 
1 no3 

1904 

1905 
1 906 

1P07 

1 908 
1009 


1012 
1^13 
101  A 
1915 

1016 

1017 
1 9 ] R 
lolo 


PEF 


RFF 

REF 

REF 

RFF 

PFF 

REF 

REF 


REF 

RFF 

REF 

RFF 


11  LAST  946 


3C  LAST  56  A 
13  LAST  96  1 

4 LAST  952 

K LAST  959 

6 LAST  92 A 

5 LAST  950 
2 LAST  561 


15  LAST  969 

5 LAST  969 
3 LAST  969 
12  |.  AST  969 


1 5 » 3456  AO 220  0 

15,3457  02746  • 

15,  346C  CCCC1  0 

Is,  3461  77634  0 

is, 1462  21555  1 

15,  3463  17562  0 

15  ,3464  03246  1 

15,3465  4 l c2 5 0 

Is,  3466  C 3562  0 

15,3467  77624  1 

15,  3470  55720  l 

15. 3471  27246  1 

15.3472  0325A  1 

1 c,  34  7 3 6 c 2C  1 1 

15  ,3474  0000  1 0 

15,3475  03562  0 

Is, 3476  45006  0 

15,3477  55720  1 

15,  3 5C0  37254  0 

15,  3501  C2  746  0 


MFREF 


STQ  SFTPD 
QMAJ 
0 

RTB 

LOACT  IME 
STOVL  TSIGHT 
V EC  1 
POOL  PUSH 

TSIGH  T 

CALL 


PP-TC-P 
STOVL  VEC  1 
VEC2 
SETPO  °ODL 
0 

TS IGHT 
push  :all 

RP-TO-R 
STCALL  VEC2 
OMA  J 
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J&P:  ASSEMRLF  PF  VI  SI  ON  Sb  CF  AGG  PRGGR  A**  ZERLINA  BY  ZOROASTER 


P51-P  53 


PlQ.'  CCPPUTF  LM  ATTITUCE  IN  MOON  FIXED  COORDINATES  US  INI',  REF  Swu  AT  AND 
*1921  STUPE  IN  YNBSAV  AND  ZNBSAV 


132? 

1923 

1924 

1 o2s 
1926 
19  27 
1y2» 
1929 
19  33 

1931 

1932 

1933 

1934 
1934 
1 <>3/, 
1937 
1 938 
1939 
1944 

1941 

1942 
1 94  3 
1 944 
194  5 
1 944 
19  4 7 
194B 


RFF  13  LAST 
»FF  R LAST 

REF  31  LAST 

RTF  16  LAST 
PFF  5 I A ST 

REF  4 LAST 
REF  54  LAST 

FFF  17  LAST 

RFF  3 LAST 

REF  4 LAST 
REF  4 LAST 

REF  55  LAST 

PFF  IB  LAST 

RFF  4 LAST 
REF  2 LAST 

PFF  1 

PEF  14  LAST 


15,  3502 
969  15  ,35<  3 

945  15*3504 

IS,  350  5 

969  15  ,3506 
IS,  35C7 

949  15,3510 

965  15,3511 
lc, 3512 

959  15  ,351  3 

966  15,3514 
15, 3515 

970  15,3516 
15,  3 5 17 

Qft 4 IS,  3 5 20 

209  15,3521 

930  IS  3C22 
15  ,3523 
970  15,3524 

15, 3525 
97-  15  ,3526 

lc,  3 5 2 7 
970  15,  3530 

21 C 15,3531 
15,  3522 
15  ,3533 
970  15,3534 


45020  1 PEFMF 
02746  0 
47535  1 

40234  0 
21555  1 
CCCC1  C 
37562  1 
20030  f 
61375  1 
02673  1 
01732  0 
65256  0 
03562  0 
45006  0 
51644  0 
26230  1 
C27C1  0 
5350  5 1 
01732  0 
4 1525  C 
0356?  0 
77624  1 
51644  0 
C2236  1 
77614  1 
03036  1 
02746  0 


STO 

R TB 

STCALL 

VLOAD 

UNI  T 

PUSH 

STCVL 

V XM 

POOL 

CALL 

STORE 
SE  TG  U 


:all 

OH  A J 
rnuT  r ig 

si  tpd 

L 0 APT  IME 

0 

T SIGHT 
CALCS  HSC 
VXH 

YNR 

REFSMMAT 

POOL 

TS  IGHT 

CALL 

P-TU-RP 

YNBS  AV 

7NB 

UN  IT 

REFSMMAT 

PUSH 

TS IGHT 

R-TU-RP 
ZNeS  AV 

A ITFLAG 
QMAJ 
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JSER'S  PAGE  NO.  53  E5  S3 

C-ET  SIN  AND  COS  OF  COUS 

GET  YNB  IN  SM 

YNB  TO  RFF 

YNB  TO  MF 

ZNB  TO  REF 

ZNP  TO  MF 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P51-P53 


’ 1949  BRANCH  TO  ALIGNMENT  OPTION 


1950 

REF 

2r,g 

1 AST 

966 

15, 3535 

C 60  51 

0 

GE  TL  MA  TT 

TC 

I NTPRF  T 

1951 

15  ,3536 

776  24 

1 

CALL 

19  52 

R FF 

3 

LAST 

963 

15,  3 5 0 7 

335C2 

0 

RE  F MF 

1953 

15,  3540 

77776 

1 

EXIT 

1954 

RFF 

68 

LAST 

957 

15,3541 

C 5515 

0 

BYLMATT 

TC 

UPFL  AG 

1 955 

REF 

3 

L AST 

965 

15,  3542 

CO  20  5 

0 

AO  RES 

1 NI  TALGN 

1956 

RFF 

48 

l AST 

966 

16  ,3543 

3 4753 

1 

CAF 

8 IT1 

1957 

REF 

14 

l A ST 

968 

1 5,3544 

7 1144 

0 

MASK 

DPT  ION? 

1 95  R 

RFF 

2fl4 

L AST 

968 

15, 3545 

10  COO 

0 

CC  S 

A 

1959 

RFF 

2 

LAST 

957 

15  ,3546 

1 2572 

1 

TCF 

GV  DET  ER 

1960 

REF 

99 

LAST 

966 

15,  3547 

( 5364 

0 

A TTCHK 

TC 

PHASCHNG 

1 9ft  1 

■ 

04024 

0 

OCT 

04024 

1962 

REF 

3 

L A ST 

56  7 

15,3551 

3 4753 

1 

CAF 

ATT  FL 8 IT 

1 963 

REF 

1 6 

L AST 

967 

15, 3552 

7 01C2 

0 

MASK 

FI  AGWRD6 

1964 

RFF 

205 

LA  ST 

97  1 

15  ,3553 

10  OOC 

0 

CCS 

A 

1965 

REF 

1 

16,3554 

l 3571 

0 

TCF 

P570PTC 

1966 

RFF 

loo 

LAST 

97  1 

15, 3555 

0 5364 

0 

P57JUMP 

TC 

PHA  SCHNG 

1967 

15,3556 

04024 

0 

OCT 

04024 

1963 

REF 

94 

L AST 

957 

15, 3557 

C 5527 

1 

TC 

POWNF  LAG 

19AQ 

REF 

4 

LAST 

971 

. 

00205 

0 

AORES 

IN  ITAL  GN 

1970 

REF 

32 

LAST 

566 

15,3561 

3 62  57 

1 

CAF 

THREE 

1371 

RFF 

15 

1 AST 

97  1 

1 5 , 3562 

7 1144 

0 

MA  SK 

OP  TI  UN2 

1972 

REF 

2 86 

LAST 

971 

i • . 563 

50  000 

1 

INDEX 

A 

1973 

15, 3564 

1 3565 

0 

TCF 

♦ 1 

1 974 

RFF 

2 

LAST 

971 

15, 3565 

1 3571 

0 

TCF 

P5  70PTC 

1975 

REF 

1 

15,3566 

1 3612 

0 

TCF 

P570PT  1 

1976 

REF 

1 

15,  35C  7 

1 3C  30 

0 

TCF 

P570PT2 

1977 

RFF 

1 

15  ,3570 

l 3631 

1 

TCF 

P57DPT3 

9:12  OCT.  21,1070  LEMP50S 
USER'S  PAGE  NO.  5* 


126  PAGE  971 


E5  S3 


GO  TRANSFORM  TO  MF  IN  YNB  SA  V,  Z NB  S AV 

SET  INITIAL  ALIGN  FLAG 

S FF  IF  OPT  ION  1 OR  3 
OPTION  1 OR  2,  GFT  GRAVITY 


NOT  1 OP  3,  CHECK  ATTFLAG 

GFT  ALIGNMENT  V ECS  FOR  OPTION  0 


ATT  FLG  CLEAR-RESET  INT  ALIGN  FLAG 


BRANCH  CN  CPT I ON  CGDE 


OPTION  I S 0 
OPTION  IS  1 
OPTION  IS  2 

OPTION  I S 3 


“,AP:  ASSEMRIE  REVISION  ?6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L P51-P53 

Pi  978  C PT I C R r , GET  TWO  ATTITUDE  V ECS 


1981 

190? 

19RT 
1989 
I 335, 
1 986 
1987 
1 988 

1989 

1990 

1991 
199? 
1338 
1 999 
1995 


REF 

REF 

PEF 

REF 

REF 


REF 
R CF 
REF 

REF 

RFF 


I AST 
LAST 
LAST 
LAST 
LAST 


L AST 
LAST 
LAST 
LAST 


970 

962 

970 

09 


2 LAST  561 


15,35  71  0 6051  0 P57GPT0  Tf.  INTPRET 

15,  3572  77775  1 VLCAO 

15  ,3573  0223C  l YNBSAV 

15,3679  2 7?96  1 STOVL  VEC1 

15,  3575  02236  1 Z NB  SA  V 

15,3576  37259  0 ST  CALL  VF C2 

15,  3577  97  535  1 CDUTRIG 

15,3600  77629  1 CALL 

1 5 ,36C1  20030  0 CALCSMSC 

15,3602  77775  1 VLOAO 

15  ,3603  0267  '1  Y'jr 

15,3606  26761  0 SAMETYP  STCVL  STARSAV1 

15,  3605  027C1  0 ZNP 

15  ,3606  36767  1 STCALL  STARSAV2 

15, 36C 7 33956  0 MF  REF 

15.3610  77650  1 GOTO 

15.361 1 33075  0 S'JRFL  INE 


R1996  OPT  1CN  1,  GFT  l AND  IN  G SITE  AND  Z-A  TT  I TUOE  VF  : 


1997 
1 99P 

1 999 
?000 
23  3 1 
20  0? 
20°  3 
2?D  9 
2005 

2 006 
2 007 
2008 
2D09 
20  1 o 


RFF  211  l A ST 

RFF  1-3  LAST 
RFF  7 LAST 
REF  9 LAST 
RFF  5 LAST 
REF  If  (AST 


PFF  7 LAST 

REF  9 l AST 

REF  3 LAST 

REF  1 


972 

969 

972 

972 

972 

972 


972 

96  3 

96  3 


15  ,361? 
16,  3613 
15,  36  16 
15,3615 

15,  3616 
15  ,3617 
15,3620 

16,  362  1 
15  ,362? 
16,  36  ? 3 
15,  3629 
15, 3 6? 5 
1 5,  3626 
15,3627 


0 6051  0 
c 3 c 76  l 

02C21  0 
27296  1 
C2236  1 
37259  f* 
97536  i 
77629  1 
20030  0 
95176  0 
0 2222  1 
97666  1 
77650  1 
33609  0 


P570PT1 


TC  TMTPRET 

VLOAO  UNIT 

RLS 

STOVL  VEC1 

ZN8SAV 
STCALL  V FC  2 

C OUT  R I G 

CALL 

CALCSMSC 
VLOAO  CALL 
3 SA  V 
COU*NRSM 

GOTO 

SAMFTYP 
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V AND  Z ATTITUDE  WILL  BE  PUT  IN  REF 


COMPUTE  SC  AXIS  HR  T PRFSENT  SV 


Y SC  AX  IS  WRT  PRESENT  SM 


7 SC  AXIS  WRT  PPE  SENT  SM 
TRANSFORM  V FC  1 , 2 FROM  MF  TO  3 E F 


LANDING  SITE  V EC 
Z ATT  ITUDE  VEC 

GET  ZNB  AXIS  WRT  PRFS  SM  FOR  STAR SAV2 
TRANS  GSAV  FROM  NB  TC  SM  FOR  STARS  AVI 

NOW  DO  SAME  AS  OPTION  0 


iP:  ASSEPBLF  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L P51-P53 

P 2 0 1 1 OPTION  2,  GFT  TWO  STAR  SIGHTINGS 


2012  PEF  1 15,3630  1 3041  0 P570PT2  TCF  2STARS 

R2D13  OPTION  3,  GET  LANDING  SITE  VEC  AND  ONF  STAR  SIGHTING 


2014  RFF  212 

20  15 

2 0 1 6 PFF  14 

2C17  RFF  B 

2D  IS  REF  6 

2ol9  RFF  10 

20  20 

2D  2 1 REF  4 

2022  RFF  12 

2023  PFF  2 

2024 

2025  RFF  ? 


LAST  072 

LAST  972 
LAST  972 
L A SI  972 
LAST  972 

LAST  972 
LAST  972 
LAST  C72 

LAST  961 


IS, 3*22 
is, 3631 
15,3634 
15,  3 6 3 S 

’ , 

15,3637 
1 5,  3640 
15  ,364  1 
15,3642 
IS,  3643 
IS  ,3644 


0 6051  0 
5 3 57 s 0 
020/1  0 
03246  1 
27254  1 
07222  1 
77624  1 
47666  1 
36761  1 
33456  0 
77776  1 

1 3043  1 


PS70PT3  TC  INTPRET 

VLOAD  UNIT 
RLS 

STORE  V EC  1 
STQVL  VEC2 
3SAV 

CALL 

COU*NRSM 
ST  CALL  STAKSAV1 
MFREF 

F XI  T 

TCF  ISTAR 


2D  26 


15,  3645  C1206  1 VB05N06  VN 


506 
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DO  SIGHTING  ON  2 STAPS 


LANDING  SITE  VEC 

DUMMY  VEC2  FOR  2N  0 
GRAVITY  VEC  NR 

TRANS  GSAV  FROM  NB 

STARSAV2  IS  STORED 


CAI  AL3G  STAR 

TO  SM  FOR  STARSAV 1 
AS  2ND  OBSERVED  STAR 


ISTAR  GET  VFD  2,  STAR  SA  V2  ,GOF  S TO  SURF  LI  NF 


G AP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


P51-P53 

P?027  C FECK  IHOnES30  TO  VAPJFY  IMU  IS  ON 


2 2rt  PEE  47  LAST  473 

?'?0  REF  74  LAST  94  7 

2D3D  PFF  287  l AST  97 1 

2^  31 


15  ,3646  A 1277 
1 5 ,3  64 7 7 4743 

15»  34C,i  10  ODO 

1 5 ,365 1 1 3655 


IMUCHK  CS 
1 MASK 

0 CC  S 

TCF 


IHOOES3C 

BIT9 

A 

♦A 


REF  41  LAST  968 
2934  PfF  60  LAST  968 


15,3 657 
15,  365  3 

l 5,36 54 


C 6901  ^ 


TC  ALARM 

JC T 210 

TC  GOTOPfJOF 


?135  REF  6«  I AST  971 
2036  REF  5 I AST  3°3 


C 5C15  C 
15,3656  00007  0 


UPFLAC 

IMUSF 


2C37  KEF 


IAST  546 


15,3657  0 4631  1 


TC  SWRETURN 


2038 

2039  RFF 
2343 

2 04 1 REF 


2 IAST  256 


04, 2765 
C4,2T  00 
04, 2765 


BANK  C 4 

S FT  L CC  A OT  MARK  2 

BANK 

COUNT*  *«/P57 


20  4 2 

2043 

2044 

2045 

2046 
2C47 
2 3 43 

2049 

2050 
2351 
2052 
20  5 3 


REF  15  LAST 
PFF  6 I AST 

REF  2 LAST 
REF  15  LAST 

RFF  5 LAST 

REF  16  I AST 
RFF  6 LAST 
REF  16  LAST 


765 

97-'  34,2766 

. 

34,2  770 
832  04,2771 

967  04  ,2772 

04,  2773 
946  3 4,  2774 

14,2775 

97  4 04,  27  76 
946  94  ,2777 

974  04,3000 


77220  1 
C 2746  0 
01555  0 
47235  I 
C 1 56  3 C 
03607  0 
77656  1 
03623  n 
53435  0 
C 3607  n 
37615  1 
02746  0 


LSCRIENT  STQ  VLOAO 

QMAJ 

PR  ECTC  SM 
VXV  VXV 

VREC  TC  SM 
XSMO 

UNI  T 

STDRF  ZSMD 

VXV  J N IT 

XSMO 
STCALL  YSMD 
QMAJ 
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IS  I MU  ON 
VES 

NO,  SEND  ALARM  AND  EXIT 

SF  T I MUSE  F LAS 
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LUNAR  AND  SOLAR  EPFEMEK IDES  SUBROUTINGS  USER'S  PAGE  NC.  1 ED  S3 

I 2000 
R29C  2 
R200A 

NAME  - LSPOS  - LOCATE  SUN  AM)  MCCN  DATE  - 25  OCT  67 

ROD  NO. 1 

PCD  BY  NEVILLE  ASSEMBLY  SUNDANCE 

R 2006 

FUNCTIONAL  OESCRIDTION 

R2  007 

I 2009 
R2D11 
R?012 

T 20  n 

COMPUTES  UNIT  POS  IT  IGF  VFCTOR  OF  THE  SUN  AND  MOON  IN  THE  BASIC  REFERENCE  SYSTEM.  THE  SUN  VECTOR  S IS 
LOCATED  VIA  TWO  ANGLES.  THE  FIRST  ANGL  F (GPL  IQU  ITY  ) IS  THE  ANGLE  BETWEEN  THE  EARTH  FQUATOR  AND  THE  ECLIPTIC.  THE 
SECOND  ANGLf  IS  THE  LONGITUDE  OF  THE  SUN  MFASURED  IN  THE  ECLIPTIC. 

THE  PCSITICN  VECTOR  CF  T F E SUN  IS 

RZ014 

S=  (COS  (LOS  ),  COS(  9RL  ) < CIN(  LOS)  , SI  N t OB  L)  « SI  N ( LOS>  > , WHERF 

* 2C15 

R 20  16 

R 2 0 1 7 

* 2019 
R20?9 
R2021 

* 202? 
R2J23 
R202<* 
R20  25 
R2026 

R 202  0 
R2029 

R 2 0 3 1 

LO S=LOS  + LCS  * T - ( C *S  IN  (2  P I *T  )/ 365 .24  +C  *COS  ( 2P  I *T  J/365. 24  ) 

C R 0 1 

LCS  (RAC)  IS  THF  LONGITUCE  OF  THE  SUN  FOR  MIDNIGHT  JUNF  30  TH  OF  THE  PARTICULAR  YEAR. 

0 

1 OS  (RAD/OAYI  IS  THE  MEAN  RATE  FOR  THE  PARTICULAR  YEAR. 

P 

LOS  AND  LOS  ARE  STCREQ  AS  LCSC  ANC  LGSR  IN  RATESP. 

0 R 

CCS(CBl)  AND  SIMCBL)  ARC  STCREC  IN  THF  MATRIX  KONMAT. 

T,  TIKE  MEASURED  IN  DAYS!?6  HCllRS)  , IS  STCRED  INTIM6P. 

C AND  C ARF  RIDGE  FACTORS  TO  MINIMIZE  THE  DEVIATION.  TH:Y  ARF  STOPFO  AS  ONE  CONST  ANT  (C.MOD) , SINCF 

Cl  221/2 

C *SIN(X)+C  OCOSIX)  CAN  BF  WRITTEN  AS  (C  +C  ) * S I N{  Xt  PH  I ) , WHERF  PHI  = APCTAN(C  /C  )• 

1 Cl  10 

R 2^33 
R2335 
R2U37 

R 20  39 

THF  MOON  IS  LCCATFO  VIA  FOUR  AFOLES.  THE  FIRST  IS  THE  08LICJITY.  THF  SECOND  IS  THE  MEAN  LONGITUDE  OF  THE  MOON, 
MFASURFD  10  THE  FCLIPTIC  FROM  THE  MEAN  FOUINOx  TO  THE  MEAN  ASCENOI NG  NODE  OF  THF  LUNAR  ORBIT,  AND  THEN  ALONG  THE 
CRB!  T.  THE  TH1  R C ANGLE  IS  THE  ANGLE  BETWEEN  THE  ECLIPTIC  AND  THE  LUNAR  ORRIT.  THF  FOURTH  ANGLF  IS  THF  LONGITUCE 
OF  THF  NODE  OF  THE  MOON,  MEASURED  IN  THE  LUNAR  ORBIT.  LET  THESE  ANGLES  BE  OBL.LOM,  IM,  AND  LON  RESPECTIVELY. 

r204-T 

T 204? 

THE  SIMPLIFIED  POSITION  VECTOR  OF  THE  MOON  IS 

R2043 

M=  ( COS  ( LOM  1 , CD  SI  OB  LI*  $1  N(  LCMI  -SIN  (OBL)*  SINI  I M ) * S I N(  LOM-LON)  , S I N ( OPL  ) *S  I N (LOM  )+COS  (OBI  ) *S  IN  ( IM  ) *S  IM(  LOM-LON)  ) 

«2C45 

1 2046 

R?  )4R 

R 20  50 

R 21)51 
R2952 

3 2054 
R2n5f’ 

R?C5  7 
l 205P 

WHFRF 

LCR  = LCM  + LCM  *T-(A  'SIN  2 P I*T/?7 .5545 4A  *CCS  ( 2 P I *T/ 27 . 55  A 5 ) *8  *S  IN  2P I *T/32+B  *C0  SI  2P  I * T/ 32)  ) , AND 

0 R 0 1 0 1 

LCN=LCN  +LCN 

C R 

A , A , p ANT  B ARE  STORED  AS  AM3D  AND  BM3D  (SEE  DESCRIPTION  OF  C MOD  , ABOVE).  COS  (OBL)  , S IN  (OBL  )*S  IN  ( IM  ), 
CIO  1 

SIN(OBL),  AND  COS  ( OBL ) *SI  N(  I M ) ARE  STORED  IN  KONMAT  AS  K1  , K2  , K3  AND  KA , RESPECTIVELY.  LOM  , l OM  , LON  , LOM 

APE  STCREC  AS  LCMO,  LCMR,  LONG,  AND  LONR  IN  RATESP.  0 P > R 

THE  THREE  PHIS  ARF  STCREC  AS  AARG,  BARG,  AND  CARG(SUN).  ALL  CONSTANTS  ARF  UPDATED  BY  YEAR. 

R2061 

CALL  INC  SEQUENCE 

GAM : ASSFHRLE  REVISION  56  OF  AGC  PROGRi 
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L LUNAP  AMI  SCI  AR  F PFFM ER I OES  SUBROUTINES  USER'S  PAGE  NC.  2 ED  S3 

*2^62  CALI  LSPOS.  RETURN  I S VI A CPRFT. 

R 2 06.3  ALARMS  OR  ABORTS 

12  06A  NONE 

R2065  ERAS  ARI  E INITIALIZATION  REOUIRED 

0 2 r,66  TE  PHI  H - TIRE  FROM  H I ON  I GET  1 JULY  PRECEDING  T HF  LAUNCH  TO  THF  TIME  OF  THE  LAUNCH  (WHEN  THE  AGC  CLUCK  WENT 

1 pi  r.  p T'1  ZERO).  TFPHFM  IS  TP  WITH  IMTS  CF  CENT  I -S  RCCNGS  . 

R?  ‘.9  T I Mf2  AMO  TIMF1  ARE  IN  MPAC  AND  HPAf  ♦ 1 WHEN  PROGRAM  IS  CALLED. 


* 207-  OLTPLT 


R 

R 


i‘o?i 


( SCALED  8-1  ) 
( SCAL  FD  8-  1 ) 


* 207  7 SUBROUTINES  USED 


R2D79  NONE 

RZ07S  DEBRIS 


R 20 7 6 CUPRFNT  CORE 

2j  77 

207701  PFF  1 
2C7U12 


BANK  09 
SETLOC  EPHEM 
BANK 


2078  RFF 
?o 7fl  5 RFF 
2D7R6  RFF 


6 LAST  OF4 
1 

2 LAST  927 


E5 , 1 7 19 
15,  3660 


LUNPOS 


FBAN<=  V SUN 
COUNT*  *i/FPFEM 

EQUALS  LSPOS 


2079 
20  8C 
2082 
20  87 


? DR  A 
2 086 
20  87 
2D89 
2C89 
2C90 

2091 

2092 
2D93 
2099 


2095 

2096 


2097 

2098 


REF  3 l AST  250 
PEF  1 
PEF  l 


REF  11  LAST  962 

REF  1 
PPF  I 

REF  2 LAST  076 
R EF  I 


15,3661 
IS,  1662 
15  ,3663 
15,  366 A 

15. 3665 

15.3666 
15,  3667 

15.3670 

1 5.3671 

15. 3672 
15  ,3673 
15, 3679 
15,  3675 
15  ,7676 
15, 3677 
15  ,3700 
1 5.37CI 


59  20  1 C, 
00001  0 
20617  0 
56371  1 
C17C7  0 
1202*  1 
00031  C 
77170  1 
OOOOC  1 
00000  l 
77619  1 
C 0 2 7 9 0 
77795  1 
12C09  0 
00027  1 
9C795  0 
00031  0 
120  50  1 


LSPOS 


POSI  TA 


PflSI  T0 


SETPD 

T AO 

STCRE 

A X T , 1 

CLEAR 


SR 

0 

1 90 

onv 

TEPHFM 
C STDOA Y 
I IMEP 
A X T ,2 
0 
0 


FREFFLAG 

DLCAO 

KONMA  T + 2 
STCRE  GTMP 
D LOAD  D MP* 

T IMFP 

VAL67  +9,1 


TP 

TIME  OF  I AUNCH 

29  HI] UR  S-  869  0000  C E NT  I -SFCS/ DAY  8-33 
T IN  DAYS 


SWI  TCH  BIT 
ZEROS 


1/27  OR  1/32  OR  1/365 


GAP  : 


ASSEMBLE  REVISION  56  CF  AGO  FRCGPAM  ZERLINA  BY 


L LUNAR  ANO  SOI  AR  EPFEMERIOES  SLBRO  UTINE  S 


2090 

2100 

2 1 0 1 REF 

2102 

2133  RFF 

2104 

2105  RFF 
2136 

2107  RFF 

2108 

2109  PFF 

2110  REF 

2111 

2112  REF 

2113  RFF 

2114 

2115 

2116  RFF 

2117 

2118  REF 
211°  REF 
2120 

2121  RFF 

2122 

2123 

2124  RFF 

2125  PFF 

2126 

2127  RFF 
2 1 2r 

2 1 2°  RFF 
2133  RFF 

2131 

2132  RFF 

2133 

2134  RFF 

2135 

2136 

2137  RFF 
213ft  RTF 
21  30 

2140  REF 

2 1 4 1 RFF 
214? 

2143  RC-F 

2144 

2145 

2146  REF 

2147  PFF 

2148 


2 L AST 

3 LAST 

? LAST 

3 LAST 

12  LAST 
1 

3 LAST 
1 

2 LA  ST 

4 LAST 
1 

17  LAST 


2 LAST 

3 1 AST 

4 LAST 

5 LAST 

? LAST 
P L AST 

3 LA  ST 

6 LAST 

7 l AST 

4 L AST 
7 LAST 


16  ,37C3 

976  15, ?704 
15  ,3705 

077  15,  37C6 

15, 3707 

576  15,3710 
15, 3711 

977  15  ,3712 
15,3713 

97  6 15,  3714 

15  ,3715 
15,  3716 

976  15, 3717 
15,3720 
15,  3721 
15  ,3722 

577  15,3723 
15, 3754 

977  15,3725 
15,  3726 
15, 3727 

556  15,3730 

15, 3731 
15  ,3732 
15,3733 
15, 37?4 
15  ,3735 
15, 3736 
15,  1737 
577  15,3740 

977  15,  3741 

15  ,3742 
977  l*, 3743 

15, 3744 
977  15,3745 

15,  3146 
15, 3747 

576  15,3750 

927  15,  37  51 

15  ,3752 

577  15,^753 

977  15, 3754 

15  ,3755 
977  l c,  316  6 

15, 3757 
15,3760 
077  15,  3761 

976  15  ,3762 

15,3763 


42661  0 
20211  1 
12G46  0 
40756  1 
12C44  l 
62015  1 
00027  1 
77771  0 
OuO  27  1 
77614  1 
C 00  5 4 0 
33677  1 
4C745  0 
00031  0 
65747  0 
42661  0 

20  2C  6 1 
65  74  1 0 
77625  0 
00027  1 
ICC21  0 
63135  0 
00050  1 
77775  1 

5 30  15  0 
12026  0 
2 3764  1 
77644  1 
33674  1 
45345  1 

00021  1 
CCC25  0 
65356  1 
00021  1 

6 5 3f 6 1 
00021  1 
55546  C 
‘3521  1 
1200?  0 
C 2 723  0 
65345  0 
12004  0 
00023  0 
65356  1 
CCC23  C 
c 5 5 4 6 C 
53521  1 
12CC2  0 
02715  0 
776  16  0 


pn  si  to 


PO  SI  TF 
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SL  DAO* 

P D 

VAL67  +2  ,1 
S IN  OMP* 

V A 1.67  ,1 
OAD  INCR,1 
GTMP 

DEC  -6 
STORE  GTMP 
I30FSET 

FREEF  LAG 
POS  ITH 
D LOAD  DMP* 

TI  MF  P 
RAT  ESP,  2 
SL  PAD* 

50 

RAT  ESP  *6, 2 

OSU 

GTMP 

STCRE  STMP, 2 
SLOAO  INCP.2 
X 2 

DEC  -2 
DAD  BZE 

RCR-13 
POSI  TE 

RPL 

POSIT  A 
OLOAD  DSU 
STMP 
STMP  +4 
SIN  POOL 

STMP 
SIN  POOL 

STMP 
COS  VOEF 

M X V UNI  T 

K0NMAT 

STCRE  VMCON 
OLOAO  POOL 

KONMAT  42 
STMP  42 
SIN  POOL 

STMP  42 
COS  VDEF 

MX  V J N IT 

KONMAT 
STORF  V SUN 

RVQ 


AARG 

SINI  T/274-RHI  I OP  T/32  OR  T/365 
( AO  **2  4 Al  **2)**1/2SIN(X4PHIA) 
PLUS 

I R0**2+B 1**2) **  1/2SINI  X4  PH  I R ) 

OR  IC0**2*C  l*  *2)**  L/2SI  MX4-  PHI  C) 


LOMR.LOSR.LO'R 


L0MO,  LOS 0*  L OVO 


LOM.LOS,  LON 


PLUS  2 
2ND 


1ST 

3RD 

LOM 

LON 

SI  N(  LOM-LON) 


SI  N LOM 


COS  LOM 
K 1,K2,K3,K4, 


ZERO 
SIN  LOS 
CHS  LOS 


C,\>:  ASSEMBLE  PE  VI  SI  ON  56  OF  AGO  PROGRAM  ZERLINA  RY  ZOROASTER 

L LUNAR  ANT  SOLAR  EPFE^EPIOES  SUBROUTINES 


9:  »2  OCT.  21,  1970  L6MP50S 
USER'S  PAGE  NO.  A 


126  PAGE  978 
E5  S3 


21  A6 

2159  REF 
2151  RFF 
215? 

2153  OFF 

21536  Off 

21537 


15  ,3  76A 

5 l A ST  977  L5.3765 

5 L AST  977  15,  3766 

15  ,3767 

1 15,3770 

? LAST  52  05,  2000 

C5.35C7 


777A5  1 
12CCA  0 
CCC  2 7 1 

77650  1 
33716  1 


POS  IT  F 


DLOAD 

KONMAT  *2 
STC3E  STMP 
GOTO 

P0S1T0 
SFTLO;  EPHFM1 
BANK 


7FR0S 


21538  RFF  2 LAST 


52  TO  5 3: 


52  52* 


COUNT*  5WEPH6F 


2163 

2166 


D020  STMP  EQUAL  S 16D 

0026  GTPP  EQUALS  22 0 


2165 


00  30 


T JMFP  FQ  UAL  S 2A0 


*»  END  OF  L FMP  50S  .126  *’ 
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ROO  1 
ROOD? 

7 0004 
RD0C6 
R00C8 
T001'' 
RD  Dll 
R0G1 2 
ROO  13 

30015 

rg:  16 

ROPl  7 
3P<-  IB 
RJ31« 

R 002' 
ROO?  1 
ROf  2? 

3 00?3 
RD  D 24 
R0025 
ROO  ?6 
RD  3 2 7 
3 002B 
R00?O 
R0030 
3 0031 
1033? 

R 00  33 
ROO  34 
R))3f> 
30038 
R0C41' 
R0C4? 

3 0043 

RO  347 

R 0048 

K0C4« 

R305O 

3C051 

R005? 

R0C422 

3 06525 

RD?5?6 

ROC  53 
ROG  5a 
RD355 
3 00  56 

R005R 

R005O 


PROGRAM  NAMF-  DOWN  TF  LE  ME  TRY  FRCGRAM 

N CO  NC.-  0 TP  CCMPL  FT  ELY  REWRITE  THE  DOWN  TELEMETRY  PROGRAM  AND  DOWNLINK  ERASABLE  CUVP  PROGRAM  FOR  THE 

PUPPCSE  OF  SAVING  APPROXIMATELY  150  WORDS  OF  CORE  STORAGE. 

This  change  rfqlires  an  entirely  new  method  cf  specifying  downlink  lists. REFER  TO  OOW.NL  INK 

LISTS  LOG  SECTION  FOR  MORE  DETAILS.  HOWEVER  THIS  CHANGE  WIIL  NOT  AFFECT  THE  GROUND  PROCESSING 
OF  DOWN  TFLEMFTRY  DATA. 

MCD  BY-  KILPOY,  SMITH,  DEWITT 
DATE-  0P0CT67 

AUTHORS-  KILROY,  SMITH,  OEWITT,  DEWOLF,  FAGIN 
ICG  SFCTICN-  DCWN-T  ELEMFTRY  PROGRAM 

FUNCTIONAL  DESCRIPTION-  THIS  FCLTINE  IS  INITIATED  BY  TELEMETRY  FND 

PULSE  FROM  THF  DOWN!  INK  TELE  ME  TP  Y C ONVFRTF  R.  THIS  PULSE  OCCURS 
AT  c 1 TIMES  PER  SECIEVERY  20  MS)  THEREFORE  DDOOWNTM  IS 
EXFCLTFD  AT  THF  SE  RATES.  THIS  PCUTI  NF  SFLECTS  THE  APPROPRIATE 
AGC  CATA  TO  dE  TRANSMITTED  DOWNLINK  AND  LOADS  IT  INTO  OUTPUT 
CHANNELS  34  ANC  35.  THE  INFORMATION  IS  THEN  GATED  OUT  FROM  THE 
L GC  IN  SER  I AL  FA  SHI  CN. 

THIS  PROGRAM  IS  CODEC  FOR  A 2 SECOND  OOWNLIST.  SINCE  DOWNRLJPTS 
OCCLR  EVERY  2 0 M S ANC  ? ACC  COMPUTER  WORDS  CAN  eF  PLACED  IN 
CHANNELS  34  AN D 35  OLRING  FACH  DOWNRUPT  THE  PROGRAM  IS  0APA8LE 
CF  SENDING  200  AGC  WORDS  EVERY  2 SECONDS. 

CALLING  SEQUENCE-  NONE 

PROGRAM  IS  ENT  ER  ED  VIA  TC  F OODOWN  TM  WHICH  IS  EXECUTED  AS  A 
RESULT  OF  A DCWNRUPT.  CONTROL  IS  RETURNED  VIA  TCF  RESUME  WHICH 
IN  FFFFr  T ISA  RE  SUMF. 

SUBROUTINES  CALLFC-  NONE 
NOR  MA 1 EXIT  MODE-  TCF  RESUME 
ALARM  OP  ABORT  EXIT  MODE-  NONE 
RFSTART  PROTECTION: 

ON  A FPF  $H  c T A R T AND  RFSTART  THE  'STARTSUfi*  SUBROUTINE  WILL  INITIALIZE  THE  DOWNL  I ST  POIN  TER  ( AC  TUALL  Y 
DNTM  GOT  0 ) T 3 THE  BEGINNING  OF  THF  CURRENT  DOWNL  1 ST<  I . E.  CURRENT  C ON'TF  NT  S OF  DNLSTACR).  THIS  HAS  THE 
EFFECT  OF  IGNORING  TEE  RFMAINDEP  OF  THF  DOWNL  1ST  WHICH  THF  DOWN-TELFME  TR  Y P30GRAM  WAS  WORKING  ON  WHEN 
THC  RESTARTING  FRESH  START)  UCCUPRED  AND  RESUME  DOWN  TELEMFT  RY  FROM  THE  BEGINNING  OF  THE  CURRENT 
CCWNl  1ST  . 

ALSr  CE  INTEREST  IS  THE  FACT  THAT  CN  A RESTART  THE  AGC  WILL  ZFRO  DOWNLINK  CHANNELS  12,  34  AND  36. 

CCWNl  INK  I 1ST  SF.  ECT  ION  : 

THF  AFPPCPFIATE  COWNLIAK  LISTS  ARF  SELFCTEO  BY  THE  FOLLOWING: 

1 . FRE  SH  STAR  T 

2.  V 3 7 EX  X E WHERE  XX  = THE  MAJOR  MODE  BEING  SELECTED. 

3.  UPDATE  PROGRAM ( P27 ) 

4.  N0N-V37  SELECTABLE  TYPE  PR  OGRA  MS  ( F .G  . AGS  1 NI  T I ALI  ZAT  I ONISUNDANCE,  LLIM  INAR  Y > AND  P 6 1-P  6 2 
TRANS  IT  lONICCI  OSSUS  I ETC.). 

DOWNLINK  LIST  RULFS  AND  I IMITATIONS: 

RFAT  SErTION(S)  WHICH  FOLLOW  'DERRI  S ' WRITEUP. 

OUTPUT-  EVERY  2 SECONDS  100  DCUHLF  PRECISION  WORDS  (I  . F.  20C  L GC 
COMPUTER  WORDS)  ARE  TRANSMITTED  VIA  DTWNLINK. 

ERAS  APL  F INITIALIZATION  REQUIRED-  NONE 

' D NT  MG  Of  O'  AND  'DNLSTACR'  ARE  INITIALIZED  BY  THE  FRESH  START  PROGRAM. 

DERR  IS!  ERASABLE  LOCA  TI  ONS  OE  STPO  YEO  BY  THIS  PROGRAMJ- 

LCAT  ALST  .CNTMBJFF  TO  CNTMPUFF  +2  ID,  TM  INOE  X ,DNO  . 


GAP: 


ASS  tPHL  F REVISION  S*>  OF  AGC  PRGC-RA*  ZERL  INA  HY  ZOROASTER 


S:12  (XT.  21.1R70 


SKIPPER 


PAGE 


DOWN-  TFIFMFTPY  PRCGRAR 

RM65 


USFR  • S PAGE  NO. 


3 A P : ASSEMBLE  REVISION  5b  OF  AGC  PRCf-UAM  ZFRLINA  RY  ZOROASTER 
DOWN- TFl  EM E TR  Y PROGRAM 

P0G65  DCDCWNTM  IS  FNTEREC  EVERY  20  MS  BY  AM  INTERRUPT  TRIGGFPED  RY  THE 
TCW'bft  PECFIPT  OF  AN  ENDPIILSE  FRCP  7FE  SPACECRAFT  TELEMETRY  PROGRAMMER. 
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R0069 
RDD7? 
< 0075 
R0P76 

RC<  77 
TO'  7B 
RDD79 

ROGflO 
ROC  HI 
ROD  32 
T 0083 
ROf'«A 
R0C85 
T 0086 
RD087 
ROD  88 
R00H9 
R)  090 
T 0091 
RDD9? 
R0093 
TOO  9 A 

R3D95 

R 0096 
R0097 
R0098 
T 01  Of 
RD1D1 
ROI  r>3 
TOK  A 


NOTES  REGARDING  DOWN!  INK  LISTS  ASSOCIATED  WITH  THIS  PROGRAM: 

1.  OCWNLl  STS.  - DOWNL  ISTS  MUST  RE  COMPILEO  IN  THE  SAME  BANK  AS  THE 
DOWN- TFl  FMF  TP  Y PROGRAM.  THIS  IS  DONE  FOR  EASE  OF  COOING,  FASTER 
EX  ECUT ION. 

2.  EACH  DOWNLINK  LIST  CONSISTS  CF  A CONTROL  LIST  AND  A NJMBER  OF 
SUBL  ISTS  . 

3.  a SIIHLIST  REFERS  TQ  A SNAPSHOT  OR  DATA  COMMON  TO  THF  SAME  OP  CTHFR 
DOWNLINK  I I STS.  ANY  SUBLIST  CONTAINING  COMMON  DATA  NEECS  TO  BE 
CODFC  ONLY  ONCE  FOR  THF  APPLICABLE  DOWNLI  NK  I I STS. 

A.  SNAPSHOT  SUFLISTS  REFER  SPECIFICALLY  TO  HOMOGENOUS  DATA  WHICH  MUST  BE 
SAVED  IN  A BUFFER  DUPING  C NE  DCWNRUPT. 

5.  TFF  UNADR  FOR  THF  1ST  WORD  OF  SNAPSHOT  DATA  IS  FOUND  AT  THE  END 

OF  FACH  SNAPSHOT  SUBLIST,  SINCE  THE  PROGRAM  COOING  SENDS  THIS  DP  WORD 
IMMEDIATE!  Y AFTER  STORING  THF  OTHERS  IN  THF  SNAPSHOT  BUFF F R. 

6.  ALL  LISTS  ARE  COMBINATIONS  CF  CODED  FPASABLF  ADDRESS  CONSTANTS 
CREATFD  FOR  THE  DCWNLIST  PROGRAM. 

A.  1CNACR  1-WORD  DOWNLI  ST  ADDRESS. 

SAME  AS  ECAOR,  BUT  US  EC  WFEN  THE  WORC  ADDRESSED  IS  THE  LEFT 
HALF  OF  A nOUBLE-PREC  I SI  CN  WORD  FCR  DOWN  TELEMETRY. 

B.  2 ON  ADR  - 6DNA0R  N-WOPD  DOWNL  I ST  ADDRESS,  N = 2 - 6. 

SAME  AS  IDNADR,  BUT  WITH  TFF  4 UNIJSEO  BITS  OF  THE  ECADR  FORMAT 
FILLFO  IN  WITH  00U-D1C1.  LSED  TO  POINT  TO  A LIST  CF  N DCUBLF- 
PRFCISICN  WCRDS,  STORFC  CONSECUTIVELY,  FOR  DOWN  TELEMFTPY. 

C.  DNCHAN  CCWNLIST  CHANNEL  ADDRESS. 

SAME  AS  ION  ADR , BUT  WITH  PREFIX  BITS  OlH.  USED  TO  PCI  NT  TO 
A P A I P OF  CHANNELS  FCR  DCWN  TELEMETRY. 

0.  DNPTR  DOWN  TELEMFTPY  SUBLIST  POINTER. 

SAME  AS  CAF  BUT  TAGGED  AS  A CONSTANT.  USED  IN  CONTROI  LIST  TO  POINT  TO  A SUBLIST. 

CAPTION A DNPTR  CANNOT  PE  USED  IN  A SUBL  1ST  . 

7.  THF  WORD  ORDER  CODE  IS  SET  TO  ZERO  AT  THF  BEGINNING  CF  EACH  DCWNLIST  (I.E.  CONTROL  LIST)  AMD  WHEN 
A ’ 1 DNADR  TIME?'  IS  DETECTED  IN  THE  CONTROL  l IST(ONLY). 

8.  IN  THF  SNAPSHTT  SUBLIST  ONLY  , THE  DNADR'S  CANNOT  POINT  TO  THE  FIRST  WORD  OF  ANY  FBANK. 


ROlOf-  CCWNI  INK  LIST  RESTRICTIONS: 

ROI-  7 I THF  FCLLCWI NG  PCINTS  MAY  EF  LISTED  ELSEWHERE  RUT  ARE  I ISTFD  HERE  SO  IT  IS  CLEAR  THAT  THESE  THINGS  CANNOT  BE 

ROino  DONE) 


1 1 

<'111 

3)113 


R?11o 

< 012C 


. SNAPSHOT  CCWNI  1ST: 

(A)  C ANN  CT  CONTAIN  THE  CCLLCW1NG  ECAORSM.E.  lDNADR'S):  , 4 _.t 
(8)  CAN  CONTAIN  ONLY  10NADR  ' S 


1<  , I AC  C,  2or  , 2ACC,  3CC"'>,  34  (jr. 


..  All  CCWNI  INKED  CAT  M EXCEPT  CHANNELS)  IS  PICKED  UP  BY  A <DCA<SO  DOWNLINK  LISTS  CANNOT  CONTAIN  THE 
EQUIVALENT  OF  THE  FOLLOWING  FCADRS  (I.E.  IONAORS):  377,  777,  1 377,  1 777,  2377,  27777,  3377,  3777. 

I NOT  f:  THF  T FRM  FOUIVAIENT  • MEANT  THAT  THE  IDNADR  TO  60  NAD  9 Will  BE  PROCESSED  LIKE  l TO  6 FCADRS) 

3.  CONTROL  LISTS  AND  SUBLISTS  CANNfT  HAVE  ENTRIES  = OCTAL  OGOOO  OR  PC  TA1  77777 


;ap: 

L 

R0122 
J 1 2A 

RD125 

80126 

P0I27 

OP128 
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A.  THE  • 1 BNACP  TIME2'  WHICH  RILL  CAUSE  THE  ODWNLINK  PROGRAM  TO  SET  THE  WCRDER  CCOE  Tn  3 MUST  APPEAR  IN  THE 
C ONTP  rl  SECTION  CF  THF  CCWNL1ST. 

5.  'GNCHAN  O'  CANNOT  BE  USEO  . 

6.  'ONPTP  O'  CANNCT  RE  OS  EC. 

7.  DNPTP  CANNOT  APPEAR  IN  A SLBLIS1. 


982 


< 0129 
^01  3 

R 0 1 3 2 

< '1  3A 
RD  I 16 
9'  137 
H<  1 3P 
R3139 

' A 


FRANK  SE 


I M T I Al  I 

l. 

2 . 

3. 


TTI  NC  S 

IN  THE  PROCESS  OF  SFTTING  THE  FRANK  l WHE  N PICKING  UP  DCWNLINK  DAT  A ) THE  DOWN 
' GARBAGE ' INTO  B ITS  1 5- 12  OF  EBANK  . HUGH  8LAK-SMITH  WARNS  US  THAT  BITS15-12 
SIGNIFICANT  SCMFQAy  IN  THE  FUTURE.  IF/WHEN  THAT  HAPPENS.  THF  PROGPAM  SHOIJLO 
THAT  PITS  15-  12  OF  ERANK  ARE  ZERO. 

7 AT  I CN  PEQUIREC-  TO  INTERRUPT  ClIRRFNT  LIST  ANP  STAPT  A NFW  ONE.. 

AOPES  OF  DOWNLINK  LIST  INTO  DNLSTADR 
NEGCNF  INTO  SURL  1ST 
NEGCNE  I NTC  DNECADR 


TEIEMETRY  PROGRAM  PUTS 
OF  ERANK  MAY  BECGMF 
INSURE!  3 Y MASKING  ETC.) 


D 1 A? 

H3  REF 
0 1AA 


V,  1663 
05,2000 

. 


BANK  22 
SETLOC  DPWNTELM 
BANK 


DIA5 


REF  18  LAST  21  1 


r.  3aO 


EBANK=  DNTMBUFF 


01A6 
0 1A7 

OHh 

01A9 

D15D 

><1502 


" 15'>3 
nSDA 

01505 
0 15055 

01506 
f 15! 

3 15? 
.153 


RFF 

REF 

REF 

REF 

RFF 

REF 

REF 

P FF 
REF 


3A 

15 
2flB 

A 

fc 

35 

16 


LAST  81? 

LAST  fll  2 
(AST  967 

LAST  PI  3 
I.  AST  97 A 
LAST  293 
LAST  P 1 3 
LAST  9B  2 

LAST  982 
LAST  9fl  2 


C 5 , 3 5 C 7 
0 5,  35  10 
95  ,3511 
05,  3512 
0 5,  3513 
C5  ,351  A 
05,  3515 
05  ,3516 
C5.3517 
05,  3520 
05  ,35?l 
05,  352? 
05,  3523 


5 A C 1 6 1 

’ 

22  012  1 
2 A 7A 5 0 
C 0006  1 
C2  013  1 
1C  000  0 
0 0335  1 
C 6022  1 
A7A5  0 
0 0006  1 
C 5 C 1 3 0 
0 0335  1 


COUNT  * tf/OPROG 

OflOOWNTM  TS  BANKRUPT 

F XTEND 

OX  CH  ORUPT 

CA  BIT7 

EXTEND 

RANO  CHAN  13 

CCS  A 

T C DN  TM  GO  TP 

TC  C13STALL 

CA  3IT7 

EXT  END 

WOR  CHAM  3 

TC  DNTMGOTO 


SAVE  0 

AT  THE  BEGINNING  OF  THE  LIST  TI1F  WORD 
ORDER  BIT  WILL  BF  SFT  BACK  TO  ZERO. 


SET  WORD  ORDER  BIT  TO  1 ONLY  IF  IT 
Al  READY  ISN’T. 

GO  TO  APPROPRIATE  PHASE  CF  PROGRAM 


01532  REF 
3 1 53  A 


3 I AST  982  C5.2COO 
05,  352A 


SETLOC  DOW  NT  ELM 
BANK 


015a  REF 
0155  RFF 
(.156  RFF 
9157  REF 


3 LAST  5 S 8 
2 LAST  101 
a LAST  10  1 


05  ,352A  3 7761  0 

1 5 , 3 c 2 5 5 A 337  1 

05,  -35  26  5 A 336  0 

05,3527  3 365A  0 


ON  PH  AS  El 


CA 

TS 

TS 

CA 


N EGON  F 
SUBl  1ST 
D NEC  ADR 
LDNPHAS2 


INITIALIZE  ALL  CONTROL  WORDS 
WORDS  TOM  INJS  ON  E 

SET  ONTM GOTO  =0  ALL  SUBSEQUENT  DOWNRUPTS 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGP AM  2ERLINA  BY  ZOROASTEP 


DOWM-TFLFMETP  Y PROGRAM 


Pi  5 5 
01*9 

5163 
0161 
0 16? 
t 163 


REF 

RFF 

REF 

RFF 

REF 


5 LAST  982 
1 

30  LAST  921 


05,3  530  54  335  0 TS  ONTMGOTO 

C5 ,3531  1 3545  1 TCF  NFWLIST 

C5,  3532  1C  33fc  0 DNPHA  SE  2 CCS  DNFCADR 

45  ,3533  C 3667  0 DOOM  A OR  TC  FFTCH2WD 

05,35’A  77753  0 MI  NTI  M£2 -1  DNADR  TIME? 

05,  3535  1 3536  C TCF  + 1 


01  64 
5 16  5 
' 166 


05,3536 
05,  3 5 3 7 

1 • 


10  337  1 
l 37C2  n 
74001  0 


CCS  SUBLIST 

TCF  NEXTINSL 

DNADR  OCR  OCT  74001 


167 
0168 
0166 
6 170 
Ol  71 
0172 
1 173 
0174 

0 175 
0177 

178 

0174 

01  8P 
C1R1 
0 182 

lp  3 

0 184 

0185 

1 186 

1 R7 
Ol  88 
'189 
0190 
i 191 
14  ? 
I 163 
0194 


REF 

RFF 

RFF 

PEF 

RFF 

PEF 

REF 

REF 


REF 


LAST  lOl 
LAST  983 


I AST  683 
LAST  983 


4 LAST  98  3 


CHKLTST  CA 


RFF  7 
PEF  290 
RFF  6 
PEF  1 
REF  241 
RFF  1 

RFF  2 
RFF  1 
REF  7 
RFF  1 


LAST  983 
LAST  98  3 

LAST  983 

I AST  4ft 3 


RFF 


1 


05  ,3543 
05,3544 
05,  3 5 A 5 
1*5,3546 
05, 3547 
05  ,3550 
05,3551 
05, 1552 
05  ,3553 
C 5,  3554 
95,  3555 
05,3556 
05,  35  5 7 
05  ,3560 
05,3561 
05,  3562 
05,3563 
C 5,  3564 
05,  3565 
C9 , 3 566 
05,  3567 
0 5 ,357'; 

5,3  57  1 
05,  1572 
05  ,3573 
05,  3574 
05, 3575 
05 ,^576 
05,  1577 
05  ,3600 


6 3545  0 
1 3552  1 
50  233  1 

3 2456  1 
54  334  1 

4 0333  0 
1 3771  1 
50  334  C 

3 0000  1 
1C  COO  0 
24  33  4 

1 3562  1 
c6  334  0 

4 0000  0 
56  334  0 
24  000  1 
54  336  C 
6 3534  0 
10  000  0 
1 357?  0 

47777  C 
1 3572  0 
C 3614  1 
z 0336  1 
6 3567  0 
C CCC6  1 
6 3667  0 
6 7753  1 
C 0006  1 
6 3625  0 


E XTENO 

RZMF 

TCF 

INDEX 

CA 

TS 


TCF 

NEXTINCL  INDEX 
CA 
CCS 
I NCR 
TCF 
XCH 
COM 
XCH 

♦ 4 I NCR 

TS 
AO 
CCS 
TCP 

MI  NB  1 3 14  OC  T 
TCF 

SETWO 


TC 

CA 


CTL  1ST 

MEWL  1ST 
NFXTI NCL 
DNLSTCGO 
DNT ABl F 
C T LI  ST 
DNLSTCOD 
SEND  ID  +3 
: T L I ST 
D 


CTLI  ST 
CTL  1ST 


SETWO  *1 
47777 
SF  TWO  +1 
WOZFRO 

3 NEC ADR 
M INB  1314 


gfg>i 
0202 
9203 
0204 
n?0  5 


REF  8 LAST  98  3 
REF  146  l AST  953 
REF  9 LAST  983 


1 

. 

05,  36C 4 

. 

. 


\ 

44*000  1 
54  CC1  1 

0 0006  1 
50  336  1 


OCONCHAN  TC 
l 

INDEX 


INDEX  DNECAOR 
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USER'S  PAGE  NO.  5 EC'  S3 

GO  TO  DNPHA  SF  2 

SENDING  OF  DATA  IN  PROGRESS 

YF  S - THEN  FFTCH  THE  NEXT  2 SP  WORDS 

NEC  AT  IV  F OF  T I M F2  1DSIADP 

( EC.  ADR  OF  3776  ♦ 74001  = 77777  ) 


IS  THE  SUBLIST  IN  CONTROL 
YES 

DNAOR  COUNT  AND  t C ADR  DEC  RE  MENT  ER 


IT  WILL  BE  NEGATIVE  AT  END  OF  LIST 


IN  ITIAL  1 7.  E CTL  I ST  Wl  TH 

STARTING  ADDRESS  OF  NEW  LIST 


SET  POINTER  TO  PICK  OP  NEXT  CTLIST  WORD 
ON  NEXT  ENTRY  TO  PROG.  (A  SHOULD  NOT  =01 
S FT  CTLIST  TO  NEGATIVE  AND  PL  AC  E ( CO  D IN  G ) 
UNCOMPLEMENTED  DNADR  INTO  A.  (FOR  LA) 

(ST  IN  ) 
(CTL  1ST  ) 

SAVE  DNADR 

TEST  FOR  TIMF2  (NEG.  OF  ECADR ) 

DON'T  SET  WORD  ORDER  CODE 

MINUS  BIT  13  AND  U (CAN'T  GET  HERE) 

DON'T  SF  T WOPO  CRDFR  CCDF 

GO  SET  WORD  ORDER  CODE  TO  ZCRD. 

RF  L CAD  A WITH  THE  CNAOR. 

IS  THIS  A REGULAR  DNADR? 

YES.  (A  MUST  NEVER  BE  ZERO) 

NO-  IS  IT  A ? D I NTF  R 1DNPTR)  OR  A 
CHANNEL (DNCHANI 

IT'S  A POINTER.  (A  MUST  NEVER  BE  ZERO) 


(EXECUTED  AS  EXTEND)  IT  S A CHANNEL 
(EXECUTED  A S READ  ) 


(EXECUTED  AS  EXTFN01 
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DOWV-TEl  fMETP  Y PROGRAM 


JSEP'S  PAGE  NO.  6 EG  S3 


C2  6 
'■  ?i  7 
D2D3 
C209 
02K 


PFF  10  LAST  583 
REF  A LAST  682 
PFF  11  LAST  9P6 
PEF  1 


05 , 36i.' 7 4.3*777  l 

05,361')  59  336  0 

D5, 3611  3 ? 76 1 C 

05.3612  56  336  1 

05.3613  1 3715  0 


INOEX  G -90C1 

TS  ONFfADR 

CA  NEGUNF 

XCH  ONFCAOP 

TF.F  DNTVEX  IT 


CEXFCUTFD  AS  READ) 

SET  ON  EC  AO® 

TO  MINUS 

WHILE  PRF  SERVING  A. 
GO  SEND  CHANNELS 


0211 

02111  REF  1 
3 211  15  PEF  25  LAST 
02H2  RFF  7 LAST 


05,  36  H C 0006  1 
OS  ,3615  23*265  I 

56  3 C 5,  3616  22  C70  0 

5,3617 


W0ZF33 


E X TEND 

OX  C H C13QSAV 
LXCH  RUPTREG1 
TC  C13STALL 


0212 

u 213  RLE 
02H  PFF 


26  LAST  SPA 
36  I AST  982 

17  LAST  982 
7 LAST  9P9 


'-5,3620 
05,  36/1 
05  ,3622 
:J5,3q23 
0 5,  36  26 


22  070  0 
z A 7 A 5 1 
0 0006  1 
02  C13  0 

0 1/65  1 


LXCH  R’JPTPECl 
C S ft  I T7 

EXT  END 

WANO  CHAN13  SET  WORD  ORDER  CODE  TO  ZERO 

TC  C 1 3q  SA  V 


0215 
3216 
f 217 
: 2 ip 

3219 


PFF  12  LAST  9PA 

REF  292  LAST  983 
PFF  13  LAST  586 
REF  1 


05,3625 
0 5,  3626 
05,3627 
05,3630 
05,  36  3 1 


50  336  1 OOnNPTR  INDEX 


C OCCO  1 

10  000  0 CCS 

3 0336  1 CA 

1 37G 1 0 TCF 


PNECADP 

D 

A 

UNECADR 

DPSUBLST 


PNFCAOR  CONTAINS  A ORES  OF  SIMM  ST 
CLEAR  AND  ADD  LIST  FNTRY  INTO  A. 
IS  THIS  A SNAPSHOT  SURLIST 
NO,  IT  IS  A REGULAR  SUBLIST. 

A MUST  NOT  PE  ZERO. 


' 220 
C 221 

0222 

223 


PFF  1A 
R EF  A 
RFF  1 9ft 
REF  1 


LAST  98  A 
LAST  983 
LAST  96  7 


06  ,3632 
06 , 36  33 
05,363a 
C5 ,3635 


56  336  1 
6 A 337  1 
3 6755  1 
56  336  1 


XCH  PNFCAPR  YFS,  IT  IS  A SNAPSHOT  SUBLIST. 

TS  SURLIST  C(DNECADR)  INTO  SIJ8L  1ST 

CAF  ZERO  A INTO  A 

XCh  TMINQEX  (NOTE..  TM INDE X = ONECADR) 


- 2?  A THE  FOLLOWING  COOING  ( FPOM  SNAPLOOP  TO  SNAPENDHS  FOR  THF  PURPCSF  OF  TAKING  A SNAPSHOT  OF  12  PP  RFGIS1FPS. 

Rt>220  THIS  IS  DC  NF  RY  SAVING  11  CP  REGISTERS  IN  CNTMBUFF  AND  SENDING  THE  FIRST  DP  WORD  IMMEDIATELY, 

ft 1 2 2 ft  THE  SNAPSHOT  PROCESSING  IS  THE  MCST  TIME  CONSUMING  AND  THEREFORE  THE  CODING  AND  LIST  STRUCTURF  WERE  DESIGNED 

PC  2 3 TO  MINIMIZE  TIME.  THE  TIME  OPTIMIZATION  RESULTS  IN  ROLES  UNIQUE  TO  THE  SNAPSHOT  PORTION  OF  THE  COWNLIST. 

3 232  THF  SF  RLLC  S APF 

ft ')  2 3 3 1 . ONLY  1PN  ADR  ' S CAN  APPEAR  IN  THE  SNAPSHOT  SUBLIST 

RD23a  2.  THE  1 DNAPP ' S CANNOT  REFER  TO  THF  FIRST  LOCATION  IN  ANY  BANK. 


.'2  36 
?2  37 
0238 
2 39 
024,0 
0 261 
3 292 
02*3 


0 296 
D265 
0296 

1 297 


PFF  62 
REF  9 

RFF  29? 


REF  1« 
RFF  2 
RFF  20 
RFF  3 
RFF  9 
PEF  5 


LAST  999 
l AST  968 

LAST  Sfl9 


LAST  982 
LAST  989 
LAST  *)P9 
I AST  986 
LAST  989 
I A ST  «89 


05,  3^  ’7 
05  ,3660 
05,366  1 
E 3,  190  1 
05  ,3692 
0390 
' 5,  36  93 
'6  ,3699 
■'c,  3695 
05  ,3696 
05,3697 


59  003  0 
7 9 3 c 7 0 
0 0006  1 
5 OOOO  1 

3 1902  0 

50  336  1 
52  391  0 
26  336  1 
29  336  1 
29  337  0 


SNA  FLGOP 


TS  E8ANK 

MASK  LOWS 
FXTEN  D 
INDEX  A 
EB A N K = 1901 


SNAPAGN 


OCA 

E BANK  = 
INDEX 
DX  CH 
I NCR 
IN  CR 
I NCR 


190  1 

D NT  M BUFF 
TMINPF  X 
ONT  M 81 1 F F 
T MI NOEX 
TM  INDEX 
SUBL  1ST 


SET  EBANK 

ISOLATE  RELATIVE  ACORFSS 


PICK  UP  2 SNAPSHOT  WORDS. 


STORE  2 SNAPSHOT  WORDS  IN  BUFFER 
S FT  BUFFER  INDEX  FCR  NEXT  2 WORDS. 

SET  POINTER  TD  NEXT  2 WORDS  DF  SNAPSHOT 


GAP  : 
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L CCWN-T  ELEMETRY  PROGRAM 


0248 

02  50 
n?5i 

3 252 
0 253 
0 254 
3255 
r-256 
0 2 57 
r>2s0 
0250 
3263 
026 1 
J 262 

326? 
0 264 


REF  6 

REF  294 
PFF  1 
PEF  1 
PFF  7 
RFF  5 
RFF  15 
REF  P 
R EF  63 
RFF  5 

REF  295 


REF  21 
REF  2 


LAST  9P4 
LAST  934 


I AST  985 
LAST  9 84 
LAST  984 
l AST  985 
I A ST  984 
LAST  984 

LAST  985 


LAST  984 
I AST  984 


05.3650 

05.3651 
05,  ?652 
05,3653 
05,  3*54 
05,3656 

05.3656 

05. 3657 
05  ,3660 
06, 3661 
05,  3662 
35,3663 
05,  3664 
E3, 1401 

05,3665 
0 340 
05  ,3666 


50  337  0 
C l COO  1 
10  COO  0 
1 3636  0 
C 36  32  C 
54  337  1 
3 7761  0 
54  336  0 
56  337  C 
54  CC3  0 
7 4357  0 
C 0006  1 
5 OCCO  1 

3 1402  0 

1 3715  0 


INDEX 

0 

cc  s 

TCP 

LDNPHAS2  GENADR 
TS 
CA 
TS 
XCF 
TS 

MA  SK 
EXT  END 
I NDE  X 
EBANK= 
DCA 

EBANK= 
SNAP  END  TCP 


SUBL 1ST 
0 
A 

SNAPLOOP 
DNPM  AS  F2 
SUBL I ST 
NFGONE 
DNECADR 
SUBL I ST 
EBANK 
L0W8 

A 

1401 
14C 1 

DNTMRUFF 
ONTMFXI  T 


'265  REF 
('266  RFF 
'267  REF 
3268  REF 

0260  pEF 

OPT'  PFF 

0271 

0272  REF 

0273 
02  74 

0275  REF 

0276  RFF 


16  LAST  985 

64  | AST  985 

6 LAST  585 

197  LAST  983 
1 

17  I A ST  985 

198  LAST  985 


22  LAST  985 
3 1 AST  985 


05,3667 
(-5,  3670 
C5.3671 
C 5,  3672 
05,3673 
05,3  674 
05,  3675 
05  ,3676 
E 3 , 1400 
05,  3677 
0340 
05.  37C0 


3 0336  1 
54  r 03  0 
7 4357  0 
54  CC1  1 
3 3540  0 
26  336  0 
C 00 C.  6 1 
5 0001  0 

3 1401  0 

1 3715  0 


Ffc  TCH2  WD 


CA  DNECADR 

TS  EBANK 

MASK  LOW  8 
TS  L 

CA  DNAORDCR 
ADS  DNECADR 
E XTEND 
INDEX  L 
EBANK=  1400 
OCA  1 40C 
E H ANK=  DNTMPUFF 
TCF  DNTMFXIT 


0277 
0 278 
3279 
0280 
0281 
0282 
('283 
32B4 
"■285 
0 286 
3207 
0288 
A'  209 
A.  '2  90 


REF  o 
P LF  10 

REF  296 
RFF  11 

RFF  12 
REF  6 

RFF  13 
t *97 
REF  18 
REf  3 


LAST  985 
I A ST  585 

LAST  985 
l AST  985 

LAST  985 
LAST  985 

LAST  985 
LAST  585 
LAST  9P5 
LAST  983 


05  ,3701 
05,3  702 
05,  370  3 
05  ,3  704 
C 5.  3 7C  5 
05,  3706 
05,3707 
OS,  3710 
05  ,371  1 
C5.3712 
05, 3713 
05  ,3714 


54  337  1 
50  337  0 
C L 000  1 
10  000  0 
24  137  0 
1 3712  1 
54  337  1 
I-  7761  0 
56  337  0 
24  000  l 
54  33fc  0 
1 3573  1 


D0SU8LST  TS  SUBL  1 ST 

NEXT1NSL  INDEX  SUBLIST 

0 0 

CCS  A 

I NCR  SUBLIST 

TCF  ♦ 4 

TS  SUBL  1ST 

CA  NEGONE 

XCH  SUBLIST 

*4  I NCR  A 

TS  3 NFC ADR 

TCF  SETHI!  *2 


0 2 9 1 

?292  PEF  1 

0293  PFF  1Q9  LAST  9B5 

0294 


05,3715  0 00(6  1 

IS,  3716  ( 1 C3i  1 

05  ,3717  3 000  1 0 

05,^720  C CC06  1 


ONTMFXIT  EXTEND 

WRI  TL  ONTHl 
CA  L 

TMEXITL  EXTEND 
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USER'S  PAGE  NC.  7 EO  S3 


= CA  SSSS  (SSSS  = NEXT  EN  TP  Y IN  SUBLIST) 
TEST  FOR  LAST  TWO  WORDS  OF  SNAPSHOT. 

NOT  LAST  TWO. 

YFS,  [AST.  SAVE  A. 

SET  DNECADR  AND 

SUBLIST  POINTERS 

TO  NEG  ATI  V E VALUES. 


PICK  UP  FIRST  2 WORDS  OF  SNAPSHOT. 
NOW  GO  SEND  THE  M. 

SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 
DECREMENT  COUNT  ANO  ECAOR 


PICK  UP  2 DATA  WDRCS 
NOW  GO  S END  THEM. 

SET  SURLI  ST  POI  NTER 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBL  1ST) 

IS  IT  THE  END  OF  THE  SUB  LI  ST 

NO- 


SAVE A. 

SET  SUBLIST  TO  MINUS 
RETRIEVE  A. 

SAVE  ONADR 

GO  USE  COMMON  COD  I NG ( PR  09 LE MS  WOULD 
OCCUR  IF  THE  PROGRAM  ENCOUNTERED  A 
ONPTR  NOW) 

DOWN-TELEMETRY  EXIT 

TP  SEND  A ♦ L TO  CHANNELS  34  ♦ 35 

RESPECTIVELY 


ASSfcMHLE  P.F.  VISION  So  OF  AGO  PROGRAM  ZfcPLINA  RY  ZCRGASTER 
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SAP  : 


L r(VN-T  EL  EPETRY  PROGRAM 


USER'S  PAGE  NC.  ft  EC  S3 


0295  PFF  1 

790  RFF  2?  I AST  RIS 


05  ,3721  01  C 35  0 WRITE  ON  TM  2 

OS, ’722  1 5301  1 TRRESUME  TCF  RESUME 


FXIT  TELEMETRY  PROGRAM  VIA  RESUME. 


2 LAST 


0207 


REF 


5?7 


7753 


M INK  12  EQUAL  S - 1/8 
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L OOWN-TEL  FM  ETPY  PPOGRAM  USER'S  PAGE  NC.  9 EC  S3 

P 0301  SUBROUTINE  NAPE-  ONOUPP 

FUNCTIONAL  OESr.RIPTION  - TO  SENO  (OUPP)  ALL  3 BANKS  OF  ERASABLE  STORAGE  TWICE.  BANKS  ARC  SENT  ONE  AT  A TIME 
EACH  BANK  IS  PRECEECf  C BY  AN  ID  WORD,  SYNCH  3 ITS,  ECADR  AND  TIME!  FOLLOWED  BY  THF  256  C WORDS  OF  EACH 
3 0 3 1 6 FRANK,  f BANKS  ARE  DUFFED  IN  ORDER  ( I . F . FRANK  0 FIRST,  THEN  F BANK  1 ETC.) 

R 3 3 : H CALL  INC.  SCOHFNCE-  THF  GKO  UNO  OR  ASTRONAUT  BY  KEYING  V74C  CAN  INITIALIZE  THF  DUMP. 

< C>  3 1 AFTER  KEYING  IN  V74  F THE  C(JRR  FNT  DOWNLIST  Will  HE  IMMEDIATELY  TERMINATED  AND  THF  DOWNLINK  FRASABLE  DUMP 

TO  31 2 WILL  BEGIN. 

R-^313  ONCE  INITIATED  THF  DOWNLINK  ERASABLE  DUMP  CAN  Br  TERMINATED  (AND  INTERRUPTED  DCWNLIST  REINSTATED)  ONLY 

3 0315  BY  THE  F CLLCWI  NG  : 

Rn3 1 N 1.  A FRESH  START 

R0317  2.  CCPPLFTICN  OF  ROT  F COMPLETE  HUMPS 

T ‘32  3.  AND  I NVCLUN'TAPI  LY  eY  A PESTAPT. 

RD321  NCRMAl  EXIT  MODE-  TCP  DNPHASF1 
R r 322  ALARM  OR  ABORT  MODE-  NONE 

U'3?3  "SUBROUTINES  CALLED-  NONE. 

R3  324  FRASABLE  IN  IT  I /VI  17  AT  ION  HEQUIRED- 
R o 3?  S NONF 

1,1  ' OF  OR  IS-  OUMPLOC,  DIIMPSW,  ONTPGCTC,  E BANK  AND  CENTRAL  RCGISTEPS 

R(3?q  TIMING-  T 1 ME  ( I N SFCS)  = ( ( NO  . DUMP  S ) * ( NO  . ER  ANK  S I * (WDSPEPFBANK  4-  NO.IDWDSI)  / NO.WDSPERSEC 
T f,33 1 TIPEMN  SECS)  = ( A ) * ( B ) * ( 256  ♦ 4 ) / 100 

«3?33  THUS  TIME!  IN  SECS  T3  SEND  DUMP  OF  ERASABLE  4 TIMES  VIA  DOWNLINK)  = 83.2  SECONDS 


R 0 3 3 5 STRLCTURC  CF  CNF  EP.AFK  AS  IT  IS  SENT  BY  COW NL  INK  PROGRAM- 

4 4 I ' FM  INDER-  THI  S ONLY  i SCRIBES  C NE  CF  THE  R EBANKS  X 4 (DUMPS)  = 32  FRANKS  WHICH  WILL  RF  SENT  RY  DNDUMP) 

R 0 3 3 fl  D0WN1  1ST  W 

30339  WORD  TAKEN  FRCP  CC  NT  ENTS  OF  EXAMPLE  D COMMENTS 


3D  344 
RD346 
R(  347 
RO  349 
I I«  ’ 

' 


R 3354 

R035S 
3 0356 


1 FRASID 

2 LOWIDCOO 

3 DUMPLOC 

4 TIMFl 

9 FIRST  WORO  OF  FEANK  X 

6 2ND  WORD  OF  F BANK  X 

7 3RD  WORD  OF  FRANK  X 


260D  256TH  WORO  CF  E E ANK  X 


Cl  77 X 0 
77  340  1 

13400  1 

14120  1 

03409  1 

00142  1 

00142  1 


03777  1 


DOWNLIST  1 . D.  FOP  OCWNLINK  ERASABLE  DUMP  (X=7  CSM,  6 L M ) 
DOWN.  INK  SYNCH  PITS.  (SAME  ONE  USED  IN  ALL  OTHER  OUKNLISTS) 
(SFF  NOTES  ON  0UMPL3CI1  = 3R0  ERAS  DUMP,  34CC=FCADR  OF  5TH  WD 


T1  MF  IN  CENTI  SECONDS 

IN  THIS  EXAMPLE  THIS  WORO  = CONTENTS  CF 

IN  THIS  EXAMPLE  THIS  WORC  = CONTENTS  OF 

IN  THIS  EXAMPLE  THIS  WC  PD  = CONTENTS  CF 


E 7 ,1400  (ECADR  34:  . ) 
E 7,  1401  ( ECADR  34C  1) 
F7  ,14:  2 (FCAUK  340  2) 


IN  THIS  EXAMPI  E THIS  WORD 


CONTENTS  OF 


E 7,1777  (ECADR 


3777) 


RD  3 58 
R '>359 
RO  369 
R03  f,  1 
3 '363 
R3365 
RC366 


NOT  F - DUMPLOC  CONTAINS  THE  COLNTER  AND  ECADR  FOR  EACH  WORD  BEING  SENT. 

THF  PIT  STRUCTURE  OF  DUMPLOC  IS  FOLLOWS 

X = NCT  USEO 

X ABC  EEF  RRRRRRRR  ABC  |=  E9  A SABI  F OUMP  COUNTERII.E.  ABC  = ' ,1,2  OR  3 WHICH  MEANS  THAT 

COMPLETE  ERAS  ABIE  DUMP  NUMBER  1,2,3  OR  4 RESPECTIVELY  IS  IN  PROGRESS) 
EE  E = EBANK  BITS 

RRRRRRRR  = RELATIVE  ADDRESS  WITHIN  AN  FRANK. 


9 36fl 
3 36  9 
0370 


REF 

RFF 

RFF 


? 


I AST  5P4 


LAST  983 


0 5,3  723  3 .',755  1 

05. 3724  54  23ft  0 

05.3725  C 3766  0 


ON OUMP I 
4 2 


CA 

TS 

TC 


ZERO 

DUMPLOC 

SENOID 


IN  IT  IAL  1 7 E DOWNl  INK 

ERASABLE  DUMP 

GO  SEND  ID  AND  SYNCH  BITS 


; 4P : 


ASSE  MBLE  RFVISION  56  OF  AGC  PROGRAM  ZFPLlNA  BY  ZOROASTER 


371 
0 372 
0 2 73 
03  7'* 


9375 

>376 


377 


r'  378 


03  70 
0380 
1381 
f 382 


: 36  3 
3 380 
0385 
f 186 

0387 

0300 


f 3°  3 
0 390 
0305 
0?96 
0397 
0308 
3390 
C400 
040  I 
3432 
04’  3 
040  A 

0405 

0406 


3417 

CAOfl 

0409 


0411 
3417 
04  1 3 
0414 


DPWN-TFLFMETR  V PROGRAM 


PFF  1 

RTF  7 LAST  08  3 

REF  2C  LAST  944 
RFF  2oi>  I AST  985 

REF  ? LAST  C87 

PFF  4 | AST  995 


35,  3726  :*  3735  C 

05  ,3727  54  335  r 

C 5 , 3 72C  2 0025  L 

05,  372  1 ?(  (C1  0 

05,3732  3 0336  1 

05, 1733  1 3715  0 


CA  LONDUMPl 

TS  ONT^GOTP 

CA  T I PCI 

XCH  L 

CA  OJMPLOC 

TCF  DNTWFXIT 


03736  0 L ONIXJMP  AOPES  DNDUMP 
C275C  0 LDNDU  “PI  ADRES  DNDUMP1 


RTF  6 1 
RFF  3 
RFF  7 
REF  298 
PEE  1 
RFF  4 
RFF  39 

PFF  2 
REF  2 
1 i I 
RFF  8 


LAST  olC 
LAST  96  8 
I AST  985 


I AST  589 
I AM  949 

LAST  29  3 
LAST  729 

I AS!  980 


05,3737 

C e,  3740 

05.3741 

05.3742 
05,  3743 

05.3744 

05.3745 

. 

'6,3747 
05,  375C 
05,3751 


2 4752  C 
26  336  O 
7 4357  0 
10  000  0 

1 3 752  0 

2 0?3fc  1 
7 4737  1 
C CC06  1 
1 3725  C 

1 3524  0 

2 3734  1 
54  336  0 


DNDUMP 


0 NO  UMP1 


CA  TWO 

aos  niiMPinr 

MASK  L0W8 

CCS  A 

TCF  0NDUMP2 

CA  DUMPLOC 

M ASX  R I T 1 3 

EXTENO 

87  F 3N0UMPI  + ? 

TCF  0NPHASE1 

CA  LONDUMP 

TS  ONTMGOTO 


REF  5 
RFF  65 
RFF  8 
REF  22P 
RFF  22 
RTF  701 
RFF  270 


REF  202 
PFF  230 

PFF  23 

RFF  5 


I A ST 
I AST 
LAST 
LAST 
L AS  1 
LA  ST 
I AST 


l AST 
LAST 

LAST 

LAST 


589 

985 

988 
91C 
9 2p 
SB  3 

989 


938 

988 

9R5 

980 


0 5,  3753 

. 

■ 

05,  3756 
05,3757 
05,  3760 
E3.1403 
05,3761 
05,  3762 
05  ,3  763 
15,37(4 
0 340 

. r< 


3 0336  1 
5 4 r C 3 Ci 
7 4357  0 
54  IC2  1 


7 1401  1 
56  OC 1 C 
50  002  0 
7 14C0  0 

l 3715  0 


DN0UMP2 


CA  OJMPl.nc 

TS  EBANK 

MASK  L3W8 
TS  0 

CA  NFGO 

TS  L 
I NOE  X 0 
E BANK  = 1400 
MASK  1401 
XCH  L 
INDEX  0 
MASK  1 40C 
FRANK=  DNTMRUFF 
TCF  ONTMEXIT 


REF 

PFF 


LAST  988 


C 5,  3766  C f ~C  6 1 
36,3767  22  335  1 

05,3770  3 5011  1 


SF  NO  I D 


EXTEND 

QXCH  DNTMGOTD 
CAE  FRAS1D 


REF  203 
PC-F  7 

REF  1 
RFF  204 
REF  6 


983  05  ,3772 

05,  377  3 
988  05,  3774 

580  C5  » 3 775 


54  001 
C 3614 
2 2C(5 
56  001 
1 3715 


1 

1 

0 

0 

0 


TS  L 

TC  WOZERO 

caf  Lowincno 

XC  H L 

TCF 


ONTMEX  IT 
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USER'S  PAGE  NO.  1C  EO  S3 

SET  DNTMGOTC 

TO  LOCATION  p 3 R NEXT  PASS 
PLACE  T IK  El 
I NT  C L 

AND  ECADR  OF  THIS  EBANK  INTO  A 
SENO  OUMPIOC  AND  T IMF  1 


INCREMENT  ECADR  IN  CUMPLOC 
TO  NEXT  DP  WORD  TO  BF 
rUMPEO  ANO  S AV  E IT  . 

IS  THIS  THE  BEGINNING  CF  A NEW  EBANK 
NO-  THEN  CONTINUE  DUMPING 
YES-  IS  THIS  THF  FNC  OF  THF 
SFCOND  COMPLETF  ERASABLE  PUMP? 

NO  - GO  BACK  AND  INITIALIZE  NEXT  BANK 
YES  - SEND  D3WN1IST  AGAIN 
SET  DNTKGQTO 

FOR  WORDS  3 TO  2560  OF  CURRENT  EBANK 


SET  EBANK 

ISOLATE  RELATIVE  ADDRESS. 

(NOTE:  MASK  INSTRUCTION  IS  USED  TO  PICK 
UP  FRASARIE  REGISTERS  SO  THAT  EDITING 
REGISTERS  20-23  WILL  NOT  BE  AITERED.I 

PICK  UP  LOW  ORDER  REGISTER  OF  PAIR 
OF  ERASABLE  REGISTERS. 

PICK  UP  HIGH  ORDER  REGISTER  OF  PAIR 
OF  ERAS  A8L  6 REGISTERS. 

GO  SEND  THEM 


* * F NT  R AN  C F USED  BY  ERASABLE  DUMP  PRDG.** 
SET  DNTMGOTn  SC  NEXT  TIME  PROG  k I LL  GD 
TD  LOCATION  FOLLOWING  : TC  SFNDID: 


^ENTRANCE  USED  BY  REGULAR  DOWNLINK  PG** 

GO  SET  WORD  ORDER  CODE  TO  ZERO 

PI  ACE  SPFCIAl  IC  CODE  INTO  L 

AND  ID  BACK  INTO  A 

SEND  OOWNLIST  ID  CODEfS). 


,\P  : 
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INT  FR-RANK  COMMUN I C ATI  ON,  USER'S  PAGE  NO.  1 EO  S3 

ROC)  1 THF  FOLLOWING  ROUTINE  CAN  BE  USED  TO  CALL  A SUBROUTINE  IN  ANOTHER  BANK.  IN  THE  8ANKC ALL  VERSION,  THE 

*■'  3 CAOR  OF  THE  SUBROUTINE  IMMEDIATELY  FOLLOWS  THE  TO  BANKCALL  INSTRUCTION,  WITH  CIA)  AND  C (L  » PRESERVED. 


0006 

0C0S5  RFF  1 

DD05  RFF  6 LAST  499 

0007  REF  231  LAST  9B8 

0008 

Dm*  REF  232  LAST  989 


46  16 

4616  52  134  0 

461  7 50  002  0 

4620  3 0000  1 

4621  24  CC 2 0 


BLOCK  02 
COUNT*  t 5/  HANK 

BANKCALL  OXCH  BUF2  SAVE  INCOMING  A,  L • 

INDEX  0 PICK  UP  CADR. 

CA  0 

INCR  Q SO  WE  RETURN  TO  THE  LOC. 


AFTER  THE  CADR. 


R ooi  o 


SWCAI  I IS  IDENTICAL  TC  PANKCALL,  EXCEPT  THAT  THE  CADR  ARR  I VF  S IN  A. 


0012 

0013 

0014 
3 D 15 
001 6 
00  17 
DO  18 


RFF  205  LAST  588 
RFF  4 LAST  57  2 
PCF  8 LAST  737 
RFF  233  LAST  989 
REF  7 LAST  989 
RTF  234  LAST  989 


4622  CC1  1 

4623  ^ 0C4  0 

4624  7 5012  0 

4625  56  C 02  0 

4626  52  134  0 

4627  50  002  0 

46-10  0 2CC0  0 


SWC.  ALL 


TS  L 

LXCH  =BANK 

MASK  LOW  10 

XCH  Q 

OXCH  BUF2 

I NOEX  Q 

TC  10000 


SWITCH  BANKS,  SAVING  RETURN. 

GET  SUB-ADDRESS  OF  CADR. 

A,  L NOW  CONTAINS  OP  RETURN. 

PFSTORING  INPUTS  IF  THIS  IS  A BANKCALL. 

SETTING  Q TC  SW  RETURN. 


0019 
00  ?< 
0021 
0022 


RTF  8 LAST  989 

REF  5 LAST  989 

REF  9 LAST  989 

RFF  1C  LAST  589 


4631  56  134  1 

4632  56  CC4  0 

4613  56  134  1 

4634  0 0133  0 


SWRFTURN  XCH 
XCH 
XCH 


BUF2  +1 
FBANK 
8 UF  2 ♦ 1 
BJF2 


COMES  HERE  TO  RETURN  TO  CALLEk.  C C A , L ) 
ARE  PRESERVED  FOR  RETURN. 


RDD23 

80025 


Or  26 
002  7 
0028 


4635  c 6 002  0 PC  S T JUMP  XCH  0 

4636  50  OCO  1 INDEX  A 

4637  3 0000  1 CA  0 


S AV  F INCOMING  CIA). 
GFT  CADR. 


RDD29 


BANK  JUMP  IS  THE  SAME 


AS  POSTJUMP,  EXCEPT  THAT  THE  CADR  ARRIVES  IN  A. 


00  3? 
D D 33 

0034 

0035 


RFF  6 
RFF  5 
RFF  236 
RFF  237 


LAST  98  9 
LARI  589 
LAST  989 
LAST  989 


4640  54  004  1 

4641  7 5012  0 

4642  56  OC  2 0 

4643  50  002  0 

4644  1 2000  1 


BA  NK JUMP  TS  FBANK 

MASK  LOW  10 

XCH  0 

Q+10000  INDEX  3 

PR  1 01 2 TCF  10000 


RFSTORING  INPUT  CIA)  IF  THIS  WAS  A 
POSTJUMP. 

PRI012  = TCF  10000  = 12000 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PKCC.RA*  ZFRIINA  eY  ZOROASTER 


9:  12  OCT.  21.  1970  SKIPPER  . *21  PAGE 


990 


L PTER-RANK  CCKMUN  I C AT  ION 


USER'  S PAGE  NC.  2 EO  S3 


>00  16 


THE  f- Cl  I OWING  ROUTINE  GETS  THE  RETURN  CAOR  SAVED  BY  SWCALL  OR  8ANKCALL  ANO  IEAVES  IT  IN  A. 


3333 

0040 


REF  10  LAST  9<J9 
PFF  11  LAST  999 
PFF  1?  I A ST  900 
RFF  23p  i AST  999 


4645  2 5012  1 

4646  7 0 131  1 

9647  6 C 1 34  1 

4650  C 00C2  0 


MAKE CAOR  CAF 
MASK 
AO 
Tf 


LOWlO 
BUF2 
HUF2  *1 
0 


00465 
3 4 ' 
0F475 
0P4R 


0049 
00495 

0050 
00505 


3051 

0052 

00525 

3351 


00514 

00535 

0054 

0054  5 
3 3 56 

00555 


REF  11 

REF  6 
PTF  11 
P.EF  206 


RFF  17 

REF  ?r' 7 

REF  7 

PEE  13 

REF  P 
RFF  8 


LAST  564 
L AST  990 
I AST  9°0 
LAST  989 


1 AST  Q90 

1 AST  990 

I AST  990 

LAST  990 

I A ST  99C 
l AST  990 


4o5l 
44  52 
465  3 
4654 


4655 

4656 

4657 

4660 

4661 
4667 


4661 

4664 

4665 

4666 


4667 
46  70 

4671 

4672 

4673 


54  135  1 
56  C04  <3 
C C 006  1 
C4  007  1 

56  135  0 
7 5012  0 
56  CC1  0 
0 0004  0 
C 0006  1 
Cl  CC7  1 
50  001  0 
3 2000  0 
56  135  0 
0 0006  1 
Cl  C C 7 1 
C 0003  1 
54  004  1 
2 0135  0 
0 00C2  0 


EXTEND 

ROR 

XCH 

MASK 

XCH 

INHINT 

FXTFND 

WRI  TE 

INDEX 

CA 

XCH 

EX  T EN  D 
KR  ITE 
1 F L I NT 


MPT  EMP 
FRANK 

SUPERBNK 
MP  TF  MP 
l 0W10 


SUPFRBNK 

L 

1000? 

MP  TE  MP 

SUPERBNK 


FRANK 
M PTF MP 


SET  FRANK  FOR  DATA. 

SAVE  FRANK  IN  BITS  15-11,  ANO 
SUPERBANK  IN  BITS  7-5. 

SAVE  REL  . ACK.  IN  BANK,  FETCH  SUPERBITS. 
BECAUSE  RUPT  DOES  NCT  SAVF  S JPFRRANK. 

SET  SUPERRANK  FOR  DATA. 

PINBALL  (FIX  MEM  0 I SP  1 PRFVENTS  DC  A HERE 
SAVE  1ST  WD,  FETCH  OLD  FBANK  AND  S BANK  . 

RESTORE  SUP  E9  RANK  . 

RESTORE  FBANK. 

RECOVER  FIRST  WORD  OF  DATA. 

24  V»J  S.  DATACALL  516  MU,  SUPOACAL  432  MU 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PRCGPAP  7FRLINA  RY  ZOROASTER 
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If’T  EP-BANK  COMMUN  I CATI OS 


USER'S  PAGE  NO.  3 EO  S3 


PO<  ^6 


THE  FCI  LOWING  ROUTINES  ARE  IDENTICAL  TO  BANKCALL  AND  SWCALL  EXCEPT  THAT  THEY  ARE  USED  IN  INTERRUPT. 


00  58  E F F 3 l A ST  377 

0059  PEF  239  L AST  990 

0060 

3361  RFF  240  LAST  991 


4674  52  073  l 

4675  50  OC 2 fi 

4676  3 0000  1 

4677  24  002  0 


I HNKCALL  OXCH 
JNPE  X 
CAF 
I NCR 


USES  RJPTREG3,  4 FOR  DP  RETURN  AODPESS. 


0062 

0063 

0 364 
0066 
0066 


00?>7 

0068 


REF  2PP  LAST  990 
RET  c LAST  99C 
RFF  12  I AST  990 
RFF  241  I AST  90 1 
PEF  4 LAST  991 
RFF  242  LAST  9° 1 


4700  54  001  1 

4701  22  004  0 
WC2  7 5012  O 

4703  56  C 02  0 

4704  52  073  1 

4705  5C  CC  2 0 

4706  C 2000  0 


ISWCALL 


TS 

LX  Cll 

MASK 

XCH 

OXCH 

INDE  X 

TC 


L 

F BANK 

I nwio 

0 

RUPTRFG3 

0 

10000 


0071 

3?7? 


RFF 

REF 

REF 

REF 


10  LAST  99 1 

4 LAST  9Q 1 

5 I.  AST  991 


47f  7 5 6 C 73  0 ISWPETRN  XCH 

A 7 1 0 56  004  0 XCH 

4711  56  C73  0 XCH 

4712  0 OC 7 2 1 TC 


PUPTREG4 

FBANK 

RUPTREG4 

RUPTPEG3 


LSPKCADR  ACCFSSES  INTERPRETIVE  COOING  IN  OTHER  THAN  THE  USER'S  F8ANK.  THE  CALLING  SEQUENCE  IS  AS  FOLLOWS: 


A009? 

Al 


113  3 
0 1 '’4 
0 106 
Ol  f)6 
0107 
7 l D 8 
01  09 


I 1 

7111 
I 112 

'll'’ 

114 


RFF  6 l AST  466 
REF  37  I AST  94  7 
RFF  7 I A ST  461 
RFF  3?  LAST  895 
RFF  1 

REF  243  LAST  99 i 

PEF  11  LAST  991 
REF  17  l AST  991 
RFF  244  I AST  991 
REF  6 LAST  991 
RFF  1 


4713  54  164  0 

4714  3 4744  1 

4 715  5*  023  I 

4716  2 00C6  1 

4717  54  165  1 

4720  5 C CC2  0 

4721  3 (000  1 

4722  54  004  1 

4723  7 5012  0 

4724  56  002  0 

4725  56  164  1 

4726  1 4643  Q 


LOC 
CA  PITS 

TS  E OOP 

CA  BBANK 

TS  BANKSET 

I NDEX  Q 

CA  0 

TS  FBANK 

MASK  LOWlO 

XCH  3 

XCH  LOC 

TC  F 0*10000 


USPRCADR  TS 


SAVE  A 

EXIT  INSTRUCTION  TO  EODP 
USFR  »S  BBANK  TO  BANKSF  T 


INTERPRFTIVF  BANK  TO  FPANK 
YIEIDS  I NT  F RPR  ET  IV  F RELATIVE  ADDRESS 
INTERPRETIVE  ADDPF  SS  TC  Q,  FETCHING  1*1 
L ♦ 1 TO  LOC,  RETRI  EVING  03  IGINAL  A 


9:12  CCT.  21  ,1970 


SKIPPER  .121  PAGE 


992 


",  AP:  ASSEMBLE  REVISION  ‘6  OE  AGC  PROGRAM  7FPI  INA  BY  2QROA  STEP 

IMFP-BANK  COMMUNICATION  USER*S  PAGE  NO.  A EO  S3 


KW 

i:  12 
H3l?1 


TEEPF  ARE  FOUR  POSSIBLE 
SUPER  BANK  SETTING 


SETTINGS 

S-REG. 


FOR  CHANNE1  0 7.  (CHANNEL 
PSFUOO-F  I XF3 


VALUE  BANK  NUMBERS 


G7  CENT  A I NS  THE  SUPERBANK 
OCTAL  PSFUOO 
ACCRESS  ES 


S ETT  INC.  > 


*12' 

129 

R012A 
* ' 1?« 
R3 1 3") 
R0I32 

U 1 U, 

ROl  H 
R 0138 
PO  l '<2 
;<<  Ha 


SUPERB A NK  3 0 XX 

SUPFRBANK  A iQO 


?000  - 3777 
2000  - 3777 


SUPFRBANK  5 

SUPFRPANK  6 


101  20CO  - 3777 

1 10  20C0  - -777 


<">  * THIS  ROUTINE  MAYBE  CALLED  BY  ANY 
SURFPPANK  SHOULD  USF  SJPERSw.  *«* 


30  - 37  70000  - 107777  ( WHF  R F YX  CAN  PE  ANYTH  I AG  ANU 

W ILL  USUALLY  BE  SFEN  AS  11 J 

AO  - A 7 110000  - 127777  (AS  FAP  AS  IT  CAN  BE  SEEN, 

3NLY  BANKS  AO- A3  WILL  EVER  BE 
AND  ARE  PRESENTLY  AVAILABLE) 

50  - 57  1300C0  - 1A7777  (PRFSFNTLv  NOT  AVAILABLE  TC 

THE  USER) 

60  - 67  150000  - 167777  (PRESENTLY  NOT  AVAILABLE  TO 

THE  USER) 

PROGRAM  LOCATED  IN  BANKS  CO  - 27.  I.E.,  NO  PROGRAM  LIVING  IN  ANY 


1A5 


SUPFPSW  MAYBF  CALLEO 


IN  THIS  EASHICN: 


R 3 1 A 6 
P UIA7 
RO  1A« 
RDUq 

> 1 s 


CAE  ABBCON 

TCP  SUPERSW 


WHERE  --  ABBCON  BBGON  SOMETHIN  — 
(TFF  SUPERfiNK  BITS  ARE  IN  THE  BBCON  ) 


R0151  OR  IN  THIS  FASHION  : 

R 152  CAF  SUPER 

l ri  1 5A  TCR  SUPER 

ROl  55 

ROl  57 

R C 159 

Rf.'HI 


WFFPF  SUPERSET  IS  ONE  OF  THfc  FOUR  AVAILABLE 
SUPFRBANK  BIT  CONSTANTS: 

SUPER  Oil  OCTAL  60 
SUPER  1 00  OCTAL  IOC 
SUPERIO 1 OCTAL  120 
SUPER  110  OCTAL  1A0 


1 ■ 3 

1 1 *>  A 

AClftS 
1 166 
ADI  67 


RFF  19  | AST  9Q0 

RFF  ?A  5 LAST  991 


A 72  7 l 0006  1 SUPFRSW 
A730  Cl  0C7  l 

A731  0 0002  0 


EXTEND 

WRITF  SUPFRBNK  WRITF  BITS  7-5-5  OF  THF  ACCUMULATOR  INTJ 

CHANNEL  07 

TC  0 TC  TO  INSTRUCTION  FOLLOWING 

TC  SUPERSW 
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R00P1 

R00G2 
1 ' • 
R3306 
R 0008 

ROCIO 


I NTCPPRFTFR 

SECTION  1 DISPATCHER 


USER  ' S PAGE  NC. 


CNTPY  TO  THC  INTERPRETER.  INTPRET  SETS  LOC  TO  THE  FIRST  INSTRUCTIONt  BANKSET  TO  THE  R8ANK  OF  THE 
OBJECT  INTERPRETIVE  PROGRAM,  A A C INT0IT1S  TC  T HF  BIT1S  CONTFNTS  OF  FRANK.  INTERPRETIVE  PROGRAMS  MAY  HP  IN 
VIRTUALLY  All  RANKS  PRESENT  LNOF R ANY  SUPER-BANK  SETTING,  WITH  THF  RESTRICTION  THAT  PRCGPAMS  IN  HIGH  BANKS 
•HIT15  CF  THANK  = 11  I:  NOT  REFER  TO  LOWRANKS,  AMO  V ICE-VER  SA . THF  INTERPRETER  DOES  NOT  SWITCH  SUPFRBANKS. 

E-BANK  SWITCHING  OCCURS  WHENEVER  GENERAL  ERASABLE  (100  - 3777  ) IS  AOORESSEO. 


0C12 


60  Si 


BLOCK 


03 


0013  PEE  1 

33135 

onU 

0015  REE  7 LAST  991 


6Cfl  C CCC3  I 
5052  0 0006  I 

6053  22  1 64  1 


COUNT*  **/  INTER 
INTPRET  RFLINT 
EXTEND 
QXCH  LOC 


SET  LOC  TO  THE  WORD  FOLLOWING  THE  1C. 


3*16 

0017 

0018 
0019 


REE  33  LAST  09 1 
RFF  2 I A S T 991 
PEF  36  I AST  892 
RFF  4 LAST  97 


60 5 A 3 0006  1 
S'S5  54  L65  1 
6C56  7 4135  C 

60  57  5 4 115  0 


CA  8BANK 

TS  BANKSET 

MASK  BIT15 

T S I N TB  I T 1 5 


INTERPRETIVE  BRANCHES  FINISH  HEPE. 

GET  15TH  BIT  FOR  INDEXABLE  ADDRESSES. 


002C  PEE  8 l AST  991 

3321  RFF  1 


6060  54  023  1 

6061  1 6102  0 


TS  E OOP  MAKE  SURE  NO  INSTRLCTIONS  LEFT  OVER 

TCF  NFWOPS  P TC  K UP  OP  CODE  PAIR  AND  BEGIN. 


0(  22 
On?3 
R0O24 


LAST  993 
LAST  973 
OLOAO  LOACS 


6062  22  006  1 INTRSM 

6C  t 3 I 6C  54  1 
MPACt  Mp AC  I FAVING  ZERO 


LXCH  BBANK 
TCF  INTI  El  *-3 
IN  MP  AC  ♦ 2. 


RESUME  SUSPENDED  INTERPRETIVE  JCB 


0025 

3326  REF  4 LAST  913 

0C27 

0028  REF  39C  I A ST  954 

3 029  REF  200  LAST  9«7 


6064  0 0006  1 

c 3116  1 

6066  3 001 

6067  52  155  1 

6070  3 4755  1 


CL  C AO 


SLCAD2 


EXT  ENO 

INDEX  ADDRWD 
DC  A C 

OX  CH  MPAC 
CAF  ZERO 


LOAD  DP  C ( C (ADDRWD) ) INTO  MPAC.MPAX  +1 
ZFRC  MPAC  +2 


SAP:  ASSEMBLE  REVISION  66  Of-  AGC  PROGRAM  Z ERL  IN  A RY  ZOROASTER 
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P3333 

0032 

0033 


I N TE  P PR  E TF.  R 

AT  THF  END  OF  M3  ST  IN  S TR  W-  T1 ONS » CONTROL  IS  GIVEN  TC  DANZIG 


REF  ACC 
REF  10 


LAST  993 
LAST  06  1 


607 1 59  156  1 

6C72  59  1 63  1 


NFRPODE  TS 

DANZIG  CA 


HP  AC 
MODE 


USER  'S  PAGE  NO.  2 EC  S3 

TP  DISPATCH  THE  NEXT  OPERATION. 

AND  DECLARE  DP  MODE 

PROLOGJE  FOR  MODE-CHANGING  INSTRUCTIONS. 


3336 
t ' <7 
4 0C  3R 


SEE  IF  AN  ORDER  COCF  IS  LEFT  OVER  FROM 
THE  LAST  PAIR  RETRIEVED.  IF  SO,  EXECUTE. 
FDOP  IS  SET  TO  ZERn  ON  ITS  RE-EPITING. 


00*9 

0090 


00  9 3 

3399 
0095 
00  96 


REF  300  LAST  909 


61 C?  50  169  1 NEHOPS  INDEX  L DC 

6lCT  2 0000  1 CA  0 

6109  10  000  0 CCS  A 

(IC5  1 (379  0 TCF  DCST 


ADVANCE  THE  LOCATION  COUNTER. 

ENTRY  TO  BFGIN  RY  PICKING  OP  CODE  PAIR. 
HAY  BE  AN  OPCODE  PAIR  OP  A STUPE  COOE. 
TEST  SIGN  AND  GET  DABS  I A)  . 

PROCESS  STORE  CODE. 


00177  0 LOW 


0050 

0051 

005? 


PFF 
P FF 
RFF 


6 111 
6112 
6 m 


59  C 20  1 

10  O ?r>  l 
1 62(1  0 


C YR 
CYR 

OP JUMP2 


L0WW3  ENTERS  H F RE  IF  A RIGHT-HAND  OP 
CODE  IS  TO  BE  PROCESSED.  TEST  PREFICES. 
TEST  SECOND  PREFIX  BIT. 


0053  REF 


6119  1 6755  1 


♦ o OP  CODE  IS  E XI  T. 


G4»  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZCROAST FR 
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L I NT  FRPPET  FR 


USER'S  PAGE  NC.  3 EC  S3 


PO05A 


PROCFSS  AOORESSES  WHICH  MAY  RE  DIRECT,  INDEXED,  OK  REFERENCE  THE  PUSHDOWN  LIST. 


' ‘»6  REF  At)  LAST  97  1 

0057  RFF  301  LAST  99A 

005R  RFF  1 


<115  7 A 7 53  0 ADDRESS  MASK  BI  T1 


6 1 16  io  oco  n 

6117  1 6160  1 


CCS  A 
TCF  INDEX 


SEE  IF  ADDRESS  IS  INDEXED.  CY*  CONTAINED 
A 00  X X , SO  RIT  1 IS  NOW  AS  IT  WAS  IN  CYR. 
FORM  INDE  XFD  ADDRE  SS. 


1059  REF  10  LAST  99A  6120 

0060  6121 
0061  RFF  302  LAST  90S  6122 

006?  REF  1 6 123 


0067  6 1 2 A 

306 A REF  11  LAST  995  6125 

0065  REF  5 LAST  993  6126 


5 C If  A 1 DIRAnRES  INDEX  LOC 

A 0001  1 OCTAOOOl  CS  1 

10  000  0 CCS  A 

1 6 227  1 TCF  PUSHUP 


77773  1 NEGA  DEC  -A 

2 A 1 6A  1 I NCR  LUC 

5A  116  0 TS  AODRWD 


LOOK  AHEAD  TO  NEXT  WORD  TO  SEE  IF 
ADDRE  SS  I S GI  VE  N. 

IF  NOT. 

IF  SO,  TO  SHOW  WE  PICKED  UP  A WORD 


r*,4»  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  I NA  BY  ZOROASTER 
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USER'S  PAGE  NC.  6 EO  S3 


P0C66  FINAL  DIG6STICN  OF  CIPFCT  ADDRESSES  OF  OP  CODES  WITH  0 1 PREFIX  IS  DONE  HFPF.  IN  EACH  CASE,  THE 

•<  '■  R M E3U IR  TO  1 2-  ° 1 T SUB-AIOETSS  IS  LFF  T If  ADDRWO,  WITH  ANY  RFQU1PF0  E OP  F PANK  SWITCHING  DONE.  ADD®  F SSF  S LESS 

R(.C7  na*.  450  ARE  T AKt  \ TO  OF  RELATIVE  TD  THE  WORK  A3EA.  THE  UP  CODE  IS  NCW  IN  BITS  1-5  OF  CYP  WlTh  BIT  14  = 1 . 


CIP7?  PFF  1 

3373  PEF  303  I AST  995 

0076  PEF  1 

0075  REF  1 


M2  7 6 4263  r 

6130  1C  COO  C 

6131  6 7755  l 

6 122  1 6127  0 


AD  -ENCVAC  SEF  IF  A0D3ESS  RELATIVE  TO  WORK  ARFA. 

CCS  A 

AD  -ENDERAS  IF  NOT,  SEE  IF  IN  GF  NEPAL  ERASABLE. 

TCF  I ERAST ST 


3373 

0079 


REF  5C  LAST  95  3 
OFF  6 I A ST  995 

REF  11  LAST  996 
REF  1 


6131 

6136 

6 115 
6 136 


3 0 120  1 NETZ  ERO 

26  116  O 

5C  020  0 I TP  1 5 
7 6305  0 


CA  FI  XLOC 

AOS  A nORWO 

INDEX  CYR 

7 I NO  JUMP  - 1 


IT  SO,  LEAVE  THE  MCCIFIEC  ADORESS  IN 
ADOPWO  AND  DISPATCH. 

THIS  INOEX  MAKES  THE  NEXT  INSTRUCTION 
TCF  INDJUMP  ♦ OP,  EDITING  CYR. 


0080 

3081  REF 


6137  0 0006  1 

6 160  t 6 150  0 


IERASTST  EXTEND 

37  “F  GEAODR 


GG  PROCESS  GFNERAL-FRAS  ABL  E AOOKESS. 


0082  RFF 

0083  REF 
008*  PEF 
OCRS  PEF 
3386  REF 

0087  RFF 

0088  REF 


14  LAST  991 

15  I A ST  996 
7 LAST  996 
5 LAST  993 

12  L A SI  9qi 
12  LAST  996 
2 l A ST  996 


6141  7 

6142  6 5012  1 
6l4l  56  116  1 

6144  6 0115  1 

6145  54  0C4  1 

6 146  50  0 20  0 

6147  7 6305  0 


ITR  12 


MASK  L3W10  FIXED  BANK  A3QRFSS.  RESTORE  AND  ADD  B15. 

AC  LOWT  SWITCH  BANKS  AND  LEAVE  SUBADDRESS  IN 

XCH  ADDRWO  ADDRWD  FOR  OPERAND  RETRIEVAL.  (THIS 

AD  I NT  B IT  15  METHOD  PRECLUDES  USE  OF  THE  LAST 

TS  F BANK  LOCATION  IN  FACH  FRANK.) 

INDEX  : YR 
7 INDJUMP  -1 


3 D39  PEF  9 L AST  988 

0090  PEF  3 I AST  668 

9(91  PEF  8 LAST  596 

0092  PFF  66  LAST  9Rfl 

0093  REF  13  LAST  556 

3)94  PEF  3 LAST  996 


6 1 50  7 4 2 5 7 0 

6151  6 5007  0 

M 52  5 1 1 16  1 

6153  54  0C3  0 

6154  50  020  0 

6155  1 63C5  0 


GEADOR  MASK  LOWS 

AD  DC  T 1 400 

XCH  ADDRWD 

TS  EBANK 

ITR10  INOEX  CYR 

7 I NOJUMP  -1 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  997 


L I N TFP  PRE  TF  R 


USEP  • S PAGE  NO.  5 EC  S3 


°1395  T HE  FOLLOWING  ROUTINE  PROCESSES  INTERPRETIVE  INDEXED  ADDRESSES.  AN  INTERPRETER  INDEX  REGISTEP  MAY 

R0097  CONTAIN  THE  ADDRESS  OF  ANY  ERASABLE  REGISTER  (0-42  BEING  REIATIVG  TO  THF  VAC  AREA)  OR  ANY  INTERPRETIVE  PROGRAM 

3 0099  BANK,  OR  ANY  I NTFGER  IN  THAT  RANGE. 


I AST  996 


6 1 56  I'  7745  0 DODl  flAD#  CAF  DLOAQ* 

6157  54  020  1 TS  CYR 


STTDL*  COMES  HERE  TC  PROCESS  LOAD  ADR. 
( STDVL*  FNTFPS  HERE). 


SIB 

01'  4 
010  5 
Ol  06 
0 10  7 
0 1 9 B 
01 C 9 


KEF  51  LAST  996 
PEF  1 

RFF  12  LAST  995 
REE  13  LAST  907 

REF  704  LAST  996 
PEF  2 I AST  997 


il|S  L#K8  \ ,NDEK 

6162  24  164  1 

6163  EC  164  1 

6164  4 0000  0 

6165  10  000  0 

6 166  24  130  0 

6167  16  170  0 


CA  FIXLCC 

TS  INOEXLOC 

I NCR  LOC 

INDEX  LOC 

CS  0 

CCS  A 

I NCR  INOEXLOC 

NOOP 


SET  UP  INDEX  LOCATION. 

(ADDRESS  ALWAYS  GIVEN). 

INDEX  2 IF  ADDRESS  STORED  COMPLEMENTED. 


OIK 
0111 
0112 
1113 
(114 
0 116 


REF  9 LAST  996 
RFF  1 


REF  1 

REF  6 LAST  9?ft 
PEF  1C  I A ST  997 


6172 

6173 

6174 
61  75 


I / I 74  I 

C 0006  1 
1 6176  0 
3 ,'115  1 
26  116  0 


TS  ADCRWD  14  BIT  ADORESS  TO  ADDRWD. 

MASK  HIGH4  IF  ADDRESS  GREATER  THAN  2K,  ADO  INTBIT  15 

EXTEND 

0ZF  I NDFX2 

CA  IN  TBIT  15 

ADS  ADRRWD 


M16 
0117 
0 IIP 


REF  3 LAST  9«7 
REF  2 fl  LAST  953 
REF  11  LAST  997 


6 176  50  130  0 IN0EX2 

6177  4 0046  1 

6 2C0  26  116  0 


INDEX  INDEXLOC 

CS  XI 

ADS  ADCRWD 


DO  AUGMENT,  IGNORING  AND  CORRECTING  0 VF . 


Olio  REF 
0120 

3121  REF 

0122  PEF 

0123 

1124  REF 


7 I AST  95  3 


1 

2 LAST  997 


620  1 7 7756  0 

62  02  C 0006  1 
6203  1 6216  0 

5204  7 7754  1 

6205  C 0006  1 
62C6  1 6220  0 


MASK  HIGH9  SEE  IF  ADDRESS  IS  IN  WORK  AREA. 

EXT  END 

R7F  I NOWORK 

MASK  HIGH4  SEF  IF  IN  FIXED  BANK. 

EXT  END 

BZF  INDERASE 


■ 126 
f 127 
OI?ft 
1129 
(.130 

0 131 


RFF  12  LAST  997 
RFF  13  LAST  90f 
RFF  1 6 LAST  996 
REF  1 

REF  13  LAST  997 
REF  1c  LAST  997 
REF  4 LAST  996 


6207  3 0116  1 

6210  54  CC4  1 

62  1 1 7 5C12  C 

621?  6 4741  l 

6213  54  116  0 

6214  50  020  0 ITR  1 1 

6215  3 6305  1 


CA 

TS 

MA  SK 

AD 

TS 

INDFX 

3 


ADDRWD 

FBANK 

L0W10 

2K 

ADDRWD 
C YR 

JNDJUMP 


IN  FIXED  - SWITCH  BANKS  AND  CP  F AT  E 
SU  R-ADDRFSS . 


13?  REF  52  L AST  907 

0133  RFF  1 


62  16  2 0120  1 I NDWORK  CA 
5217  1 6224  1 TCF 


MAKF  ADDRWD  RELATIVE  TC  WORK  AREA. 


:13S 

0136 

1137 

013P 


RFF  4 LAST  996 
REF  14  LAST  997 
RFF  67  LAST  996 
REF  10  LAST  996 
RFF  15  LAST  997 


6 22C  3 5CC7  0 

6221  56  116  1 

6222  54  003  0 

6223  7 4357  0 

6224  26  116  0 


INDERASF  CA 
XCH 
TS 

MASK 

- 1 ADS 


OCT  1400 
A DDR WD 
fcBANK 
LOWS 
ADDRWD 


JAP:  ASSepeiF  RtVlSION  5 1»  OF  AGC  PROGRAM  ZE«1  IN  A BY  ZOROASTER 

L INTERPRETER 


9:1?  CCT.  21,1970  SKIPPER  .121  PAGE  99b 
USER  'S  3AGE  NO.  6 EC  S'? 


:i39  REF  16  I AST  997  6 225  eC  f20  0 I TR 11  INDEX  CYP 

190  REF  9 LAST  907  6226  3 6309  1 3 INOJUMP  -1 


GAP:  ASSEMBLE  REVISION  S6  HE  AG3  PROGRAM  ZERLINA  BY  ZOROASTER 


9:1-2  OCT.  21,1973  SKIPPER  .121  PAGE  999 


L INTERPRETER  USER'S  PAGE  NC.  7 ED  S3 

>'141  PUSH-  CP  ROUTINES.  WHEN  NC  OPERAND  ADDRESS  IS  GIVEN,  THE  APPROPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 

R5143  LIST.  IN  MOST  CASES  THE  MODE  OF  THE  RESULT  (VECTOR  OR  SCALAR)  OF  THE  LAST  ARITHMETIC  OPERATION  PERFORMED 

RvjI'.5  IS  THE  SAME  AS  THE  TYPE  OF  CPERANC  DFS  I RED  (ALL  ADD/SUBTRACT  ETC.).  EXCEPTIONS  TO  THIS  GENERAL  RULE  APE  LISTED 

R 1 A 7 BELOW  (NOTF  THAT  IN  EVERY  CASE  THE  MODE  REGISTER  IS  LEFT  INTACT): 


' 1 R 1.  VXSC  AND  V/ SC  WANT  THE  OPPOSITE  TYPF  OF  OPERAND,  F.G.,  IF  THE  LAST  OPERATION  YIELDEO  A VECTOR 

1 0 1 5 • ' RfSULT,  VXSC.  WANTS  A SCALAR. 


K5151  2.  THE  LOAD  CODES  SHOULD  LOAD  THE  ACCUMULATOR  INDEPENDENT  OF  THE  RESULT  OF  THE  LAST  OPERATION.  THIS 

R'153  INCIUDFS  VLOAO,  DLCAC,  T LOAD,  POOL,  ANC  PCVL  (NO  PUSHUP  WITH  SLOAD). 


P ISA  3.  COME  ARITHMETIC  CPERATI  TNS  REQUIRE  A STANDARD  TYPE  OF  OPFR  AND  PEGAROL  ESS  OF  THE  PREVIOUS  OPERATION. 

R C 1 S'  THIS  INCLUDES  SIGN  WANTING  DP  AND  TAD  REQUIRING  TP. 


0157  REF  2 LAST  733 

51*8  PEF  17  l AST  098 

C 1 50  RFF  1 

<•1*0  R EF  3f  5 LA  ST  007 

5161  REF  1 


6227  3 436L  n PUSHUP  CAF  OCT23 


6230  7 OC  20  1 

6231  6 6230  1 

6232  10  COD  n 

6233  1 62a 5 0 


MASK  CYR 

AD  -3CT10 

CCS  A 

TC  F R F G UP 


IF  THE  LOW  5 BITS  OF  CYR  ARE  LESS  THAN 
20,  THIS  CP  REQUIRES  SPECIAL  ATTENTION. 
(NO  -0)  . 

FOR  ALL  CODES  GREAT  EP  THAN  OCT  7. 


0162 


6234  77767  1 -0CT10  OCT  -10 


D 1 63  REF  1 

016',  RFF  306  LAST  090 

0165  RTF  307  LAST  000 

5166  REF  1 

C 1 67  RFF  2 LAST  999 


<225  6 6124  0 

6236  1C  000  0 

6237  5 C 000  1 

6 240  A 6256  1 
6241  1 6247  1 


AD  NFGA 

CCS  a 

INDEX  A 

CS  NO.  WD S 

TC  F REGUP  +2 


WE  NOW  HAVE  7 - OP  CODE(  M0D4 ) • SEE  IF 
THF  OP  CODE  (MOD*)  IS  THREE  (REVERSE). 
NO  - THE  MODE  IS  DEFINITE.  PICK  UP  THE 


M6H 
f >60 
0170 


11  LAST  004 
3 LAST  053 
3 LAST  990 


6242 
6 24  3 
6244 


5C  163  0 
A 6254  0 
1 6247  1 


INDEX  MODE 
C S R E vC  N T 

TCP  REGUP  +2 


FDR  VXSC  ANC  V/ SC  WE  W ANT  THF  REQUIRED 
PUSHLOC  DECREMENT  WITHOUT  CHANGING  THE 
MODE  AT  THIS  TIME  . 


5 17  1 
< 172 
0 173 
5174 
f 175 
176 


PEF 

RFF 

REF 


12  LAST  090 
? LAST  900 
11  LAST  876 
1 6 l AST  997 
1 R LAST  ooo 
6 I AST  908 


6245  5 C 163  0 REGUP 

6246  4 6256  1 

6247  26  166  1 +2 

6 250  5 A 116  0 

6251  50  020  0 IT R1 A 

6252  7 63C5  0 


I NDE  X 

CS 

ADS 


MODE 
N5. WDS 
PUSHLOC 
A DDR  WD 


CYR 

INDJUMP  -l 


MOST  ALL  OP  CODES  PUSHUP  HERE. 


(THE  INDEX  MAKES  THIS  A TC  F . ) 


0177 
l 7 H 
5179 

0180 
0 1P1 
C 1P2 


6253  00C02  0 

6254  00006  1 RFVCNT 

6255  CCCC6  1 

5256  0000  2 0 NO  .WDS 

6257  00CC3  l 0CTAL3 

6 260  OOOC6  1 


OCT  2 

OCT  6 

OC  T 6 

OCT  2 

OCT  3 

OC  T 6 


REVERSE  PUSHUP  DECREMENT.  VECTOR  T AK  FS  2 
WORDS,  SCALAR  TAKES  6. 

CONVENTIONAL  DEC  RE  EFNT  IS  6 WORDS  VECTOR 
2 IN  DP,  AND  3 IN  TP  . 


GAP:  ASSEMBLE  REVISION  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21,1970  SKIPPER 


121 


PAGE  1300 


JNTFPPRE  TF-R 

TEST 

RFF  19  LAST 
PFF  1 


THF  SECOND  PREFI 
979  e>26i 


USEP'S  PAGE  NO.  8 Ef  SB 

X BIT  TO  SEE  [F  HIS  IS  A MI  SCE  LL  ANECUS  OR  A IJNARY/SHORT  SHIFT  OPERATION. 

10  020  1 OP  JUMP  2 CCS  Z YR  TEST  SECOND  PREFIX  BIT. 

TCF  0PJUMP3  T ES  T THIRD  BIT  TC  SEE  IF  UNARY  D*  SHIFT. 

77722  0 -ENDVAC  DEC  -*5 


UlUfl  THF  FOLI  OWING  ROUTINE  PROCESSES  ACORESSES  OF  SUFFIX  CLASS  IC  . THEY  ARE  BASICALLY  WORK  AREA  ADDRESSES 

l>  THE  RANGE  - - *=2,  £ L \ SABL  t EC  ADR  CONSTANTS  FROM  1 DO  - 1777  , AND  FCACRS  ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 
IN  C C NT P AS T TO  SUFFIX  1,  IN  WI-ICH  ONLY  THF  LOW  ORDER  19  ARE  AVAILABLE. 


'•  loi 

1199 
^195 
0 196 


PFF  19  LAST  997 
PEF  15  l AST  1000 

REF  6 LAST  99 


6269 

6295 

6266 

6267 


29  169  1 1SRITADR  INCR  IOC 

EC  1 6 9 1 INDEX  ICC 

3 0000  1 CA  0 

59  117  1 TS  POL  IS  H 


(ENTRY  HFPE  FROM  STC41L1. 

PICK  UP  ADDRESS  WORC. 

WE  MAY  NEED  A SUBAODRFSS  LATE*. 


0197  RFF  1 6 270 

019B  PFF  19  I A ST  997  6271 

'199  REF  20  LAST  1000  6272 

020C  RFF  308  LAST  999  6271 

0201  PEF  1 6279 


5013  0 CAF  L0W7+2K 

59  009  1 TS  FRANK 

7 CC20  1 MASK  CYR 

50  000  1 ITR 7 INDEX  A 

1 6396  1 TCF  H1SCJUMP 


THE  SF  INSTRUCTIONS  ARF  IN  BANK  1 


GAP:  ASSEMBLF  REVISION  66  OF  AGS  PROGRAM  ZERLINA  BY  ZOROASTER 


I INTEPPRFTFR 


*0  20  2 


COMPLETE  THE  DISPATCHING  CF  UNARY  AND  SHORT  SHIFT  OPERATIONS 


}2  3 
R020A 
0?PS 
02PS 
0207 


REF  15 

PFF  21 
RFF  3:9 
RFF  1 


LAST  1000 
1T0ACE  (6) 
I ' T 101 
LAST  lODC 


6275  5A  CCA  1 
REFERS  TC  " C F JIJ MP3" 

6276  1C  C20  1 

6277  50  COO  1 

6300  1 2000  1 


0PJUMP3  TS  FBANK 


CCS  CYP 
INDEX  A 
T CF  UNAJUMP 


0208 
' ■ 

0 210 

r.2  11 


REF  13  LAST  9^9 
PFF  1 

REF  7 LAST  1001 
REF  1 


63o1  1C  U3  1 

6 3(2  1 2C17  1 

6303  1 2C17  1 

6 30 A 1 2121  0 


CCS  MOOC 

TC  F SHORTT 

TC  F SHORTT 

TC  F SHORTV 


(212  REF  1 

3213  RFF  36  LAST  BO  5 


CO  122  0 


FPANKMSK  EQUALS  HANKMASK 
LVPUF  ACRES  VPUF 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  IOQ-1 


USER'S  PAGE  NO.  9 ED  S3 


CALL  IN  BANK  D (BITS  11-15  OF  A ARE  Q . ) 

TEST  THIRD  PREFIX  BIT. 

THE  DECRFMFNTFD  UNARY  CODE  IS  IN  BITS 
1-A  OF  A (ZERO,  EXIT,  HAS  BEEN  DETECTED! 


ITS  A SHORT  SHIFT  CODE.  SFE  IF  PRESENT 
SCALAR  OR  VFCTOP. 

CALLS  THE  APPROPRIATE  ROUTINE. 


ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  l ERL  IN  A BY  ZOROASTER 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  UJ2 


C2 1 R 
0219 

3223 


''224 

0225 

0226 
0227 
3223 
r>229 
o?  30 
3231 

0 23? 

0233 

0234 

0235 

3 2 36 
0237 
0 238 
3239 

'• 

3 2 A 1 
0242 
'‘243 


<245 
r 246 
0247 


FNTFRPPFTFP 


USE*  *S  PAGE  NO.  1C  60  S3 


THF  FOLLOWING  IS  THE  JLMP  TABLE  F QR  CP  CODES  WHICH  MAY  HAVE  INDEXABLE  ADDRESSES  OP  MAY  PUSH  UP. 


PEF 

PFF 

REF 

PEF 


6306  1 6517  0 

6 37  7 1 71C3  0 

6310  1 7667  0 

6311  1 7413  1 

6312  1 6715  C 

6313  1 6502  1 

6314  1 6064  1 

6315  1 76-6  1 


INCJJMP  TCP  VLCJAO 

TCF  TAG 

TCF  SIGN 

TCF  VXSC 

TCF  CGCTO 

TCF  Tl  OAD 

TCF  DLOAD 

TCF  V/SC 


U<)  - LOAD  MPAC  WI  TH  A VECTOR. 

01  - TRIPLE  PRECISION  ADD  TP  MPAC. 

02  - COMPIEMENT  MPAC  (V  OR  SC)  IF  X NEG. 

03  - VECTOR  TIMES  SCALAR. 

04  - COMPUTED  GO  TO. 

05  - LOAD  MPAC  WITH  TRIPLE  PRECISION. 

36  - LOAD  MPAC  WITH  A DP  SCALAR. 

07  - VECTOR  DIVIDEC  eY  SCAIAR. 


■ i i 

REF  1 
REF  1 
PEF  I 
REF  1 
RFF  1 
REF  1 


6316  1 6513  1 

6317  1 6632  1 

6320  1 6535  0 

6321  1 7346  0 

6 122  1 6571  0 

6323  1 6640  1 

6324  I 7351  0 

6325  1 7630  1 


TCF  SLOAO 

TCF  SSP 

TCF  PDDL 

TCF  MX  V 

TCF  PDVL 

TCF  CCALL 

TCF  VXM 

TCF  TSLC 


K - L O AH  MPAC  IN  SINGLE  PRECISION. 

11  - SET  SINGLE  PRECISION  INT<  X. 

12  - PUSH  DOWN  MPAC  AND  RE -LOAD  IN  DP. 

13  - MATRIX  POST-MLLTIPLIED  BY  VCCTOR. 

14  - PUSH  DOWN  AND  VECTOR  LOAD. 

15  - COMPUTED  CALL. 

16  - MATRIX  P3E-MULTIPL  IEO  BY  VECTOR. 

17  - NORMAL  I 2F  MPAC  (SCALAR  ONLY). 


RFF  1 
PFF  1 
RFF  1 
RFF  1 
PEF  1 
PFF  1 


6326  1 7606  1 

6327  1 7611  1 

6 130  1 76  15  P 

6331  1 7633  1 

6332  1 6763  1 

6333  1 6761  0 

6334  1 7050  1 

6335  1 7343  0 


TCF  UKPR  20  - 

TCF  DOV  21  - 

TCF  330V  22  - 

TCF  GS H I FT  23  - 

TCF  VAD  24  - 

TCF  VSU  25  - 

TCF  BVSU  26  - 

TCF  30  T 27  - 


OP  MULTIPLY  AND  ROUND. 

OP  DIV  IDE  BY  . 

DP  DIVIDE  TNTG. 

GFNFPAI  SHIFT  INSTRUCTION. 
VECTOR  ADD. 

VECTOR  SUBTRACT. 

VECTOR  SUBTRACT  FROM. 
VFCTCR  DOT  PRODUCT  . 


REF  1 
REF  1 
RFF  1 
PEF  1 

R FF  1 
REF  1 


6336 
633  7 
6 340 

6341 

6342 

6343 

6344 

6345 


1 747?  < 

1 7437  1 
1 7 C 17  1 
1 7074  1 
1 7C07  0 
1 6343  1 
1 7604  0 
1 7625  0 


TCF  VYV 

TCF  V PRO  J 

TCF  DSU 

TCF  BDSU 

TCF  DAD 

TCF 

TCF  DMP1 

TCF  SE  TPD 


30  - VECTOR  CROSS  PRODUCT. 

31  - VECTOR  PROJECTION. 

32  - DP  SUBTRACT. 

33  - DP  SUBTRACT  FROM. 

34  - DP  AOD • 

35  - A VAI LABLE 

36  - DP  MUL TIPI Y. 

37  - SET  PUSH  DCWN  POINTER 


(OIRECT  ONLY  ) 


3 024A  CODES  10  AND  14  MUST  NOT  PUSH  LP.  COCE  04  MAY  BE  USED  FOR  VECTOR  DECLARE  BEFORE  PUSHUP  IF  DESIRED. 


'jap  : 


ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  OY  ZOROASTER 


9:12  OCT.  21,1970  SKIPPFR  .121 


PAGE  1C 03 


L INTERPRET  FR 


USER'S  PAGE  SC.  11  Et  S3 


P025I) 


THE  FCILOW I NG  JUMP  TABLE  APPLIES  TO  INDEX,  BRANCH,  AND  MISCELLANEOUS  INSTRUCTIONS. 


25?  REF  1 

•2s1  RFF  1 

0254  REF  1 

■>255  REF  1 

0256  REF  1 

0257  RFF  1 

D25B  R£F  1 

C 259  RFF  1 


6346  1 2350  1 MI SCJUMP  TCF 

fU7  1 2355  1 TCF 

6350  1 2360  1 TCF 

635  1 1 2364  0 TCF 

6352  1 2370  0 TCF 

6353  1 2376  0 TCF 

6354  1 2412  0 TCF 

6355  1 2421  0 TCF 


AX  T 
A XC 
LX  A 
LX  C 
SXA 
X C HX 
I NCR 
T IX 


OC  - AODRESS  TO  INOEX  TR  UF  . 

01  - ADDPESS  TC  INCFX  COMPLEMENT EO . 

^2  - LOAD  INDEX  FROM  FPA  SABLE. 

0 3 - LOAD  INDEX  FROM  COMPL  FMENT  OF  ERAS. 

04  - STORE  INDEX  IN  ERASABLE. 

05  - EXCHANGE  INDEX  WITH  ERASABLE. 

06  - INCREMENT  INDEX  REGISTER. 

07  - TRANSFER  ON  INDEX. 


0260 
0261 
0 26.? 
.•26  3 
0264 
0 ?6  5 
0264 
0267 


REF 

REF 

REF 

PEF 

PEF 

PEF 


6366  1 2404  1 

6357  l 2415  1 

6360  1 2473  1 

6361  1 25CO  1 

6362  l 2453  0 

*>363  1 251  3 0 

6364  1 2522  1 

5365  1 2463  0 


TCF 

TCF 

TCF 

TCF 

TCF 

TCF 

TCF 

TCF 


X AD 
XSU 

8ZF/  GOTO 
BPL/BMN 
R TB/RHI7 
CALL/  ITA 
SW/ 

BOV<  R ) 


10  - INDEX  REGISTER  ADD  FROM  ERASABLE. 

11  - INDEX  SUBTRACT  FROM  ERASABLE. 

12  - BRANCH  7 FRO  AND  GOTO. 

13  - BRANCH  PLUS  AND  BRANCH  MINUS. 

14  - RETURN  TO  BASIC  AND  BRANCH  HI  ZERO. 

15  - CALL  AMO  STORE  QPRET. 

16  - SWITCH  INSTRUCTIONS  ANn  AVAILABLE. 

17  - BRANCH  DN  OVERFLOW  TO  BASIC  OR  I NT. 


GAP:  ASSEMRLE  REVISION  56  OF  A6C  PROGRAM  ZERLINA  RY  ZCRGASTER 


P 2*8 

< 2 70 
0271 
<217 
0273 
3274 
02  75 
'276 
1277 


IM6PPPFTFR 

THF  F C L LCWI  NG  JUMP  T i?  e L F APPIES  TC  UNARY  INSTRUCTIONS. 


PFF 

RFF 

PEF 

RFF 

REF 


993  Tfl  1(.<,4: 

Ot  ,2000 

PFS  CC  1 2000 

00,  2no  1 

. t 

;c,  20C 3 
00 f 2004 
CC.20C5 
OC, 20C6 


1 3610  1 
1 3612  D 
1 3174  1 
1 2116  1 


COUNT*  ll  /INTER 
8 AN<  0 

SORT 
SI  NF 

COS  INF 
ARCS  I N 
ARCCOS 

DSQ 
ROUND 


TCF 
TC  F 
TCF 
TCF 
TCF 
TCF 
TCF 


027R 
279 
0200 
C 281 
•'232 
o2P3 
0 284 
0285 


PTF 

PFF 

PEF 

PFF 

PFF 

PFF 

REF 

RFF 


rZ  ' 
t ‘ I 

OC  , 20  1 1 

OC  ,2012 

, 1 1 

00,2014 

,20U 

. 


1 20  2 3 1 
1 3176  0 
1 3245  0 
1 6366  0 
1 3274  1 
1 2247  1 


TCF 

TCF 

TCT 

TCF 

TCF 


COMP 
VDEF 
UNI  T 

ARVALABS 

VSO 

STAOR 

RVQ 

PUSH 
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USEP' S PAGE  NO.  12  ED  S3 


00  - EXIT  - DETECTED  EARLIER. 

01  - SQUARE  ROOT. 

02  - SIN. 

03  - CDS. 

04  - ARC  S IN. 

C5  - ARC  COS. 

06  - DP  SQUA3  6. 

C7  - ROUND  TO  DP. 


10  - COMPLEMENT  VFCTCR  OR  SCALAR. 

11  - VECTOR  DEFINE. 

12  - UNI  T VECTCP. 

13  - LENGTH  DF  VECTOR  OR  MAG  OF  SCALAR. 
H - SQUARE  OF  LENGTH  OF  VECTOR. 

15  - PUSH  IJP  ON  STCRF  CCOE. 

16  - RETURN  VIA  QPRET. 

17  - PUSH  PPAC  DOWN. 


iAP:  ASSENBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OH.  21  ,1970  SKIPPFR  .121  PAGE  1005 


L INTERPRETER  USER'S  PAGE  NO.  13  EO  S3 

P0286  SECTION  2 LOAD  ANO  STORE  PACKAGE. 

R 0287  A SET  OF  FIGHT  STCRF  CCOES  IS  PROVIOEC  AS  THE  PRIMARY  METHOD  OF  STORING  THE  MULTI-PURPOSE 

ACCUMULATOR  (MpAC).  IF  In  THf  DANZIG  SFC  TI  ON  LOC  REFERS  TO  AN  ALGE  BR  AI  f AL  LY  POSITIVE  WORD,  IT  IS  TAKEN  AS  A 
R02o1  STCRF  rrnr  WITH  A CORRES  PONT  INC  ERASABLE  ADDRESS.  MOST  OF  THE  SF  CODFS  APE  TWO  ADDRESS,  SPECIFYING  THAT  THE  WORD 

30293  FOLLOWING  THE  STORE  CODE  IS  TO  RE  USED  AS  AN  AODRESS  FROM  WHICH  Tn  PF-LOAD  MPAC.  FOUR  OPTIONS  ARE  AVAILABLE: 


R02O5 
3 0297 

Rnpoo 

R0301 


2.  STOOL 

3.  STOVL 
<•.  ST  C AL  L 


STORE  MPAC.  THF  F ADDRESS  MAY  RE  INDEXED. 

STCRE  MPAC  AND  RE-LOAD  IT  IN  DP  WITH  THE  NEXT  ADDRESS  (THE  LOAD  MAY  BE  INOEXLD). 
STORE  MPAC  AND  RE-LCAD  A VECTOR  (AS  ABOVE). 

STORE.  AND  03  A CALL  (BOTH  ADDRESSES  MUST  BE  OIRECT  HERE). 


3 0 30  3 


STOOL  AND  STOVL  WILL  TAKE  FRCM  THE  PUSH-DOWN  LIST  IF  NO  LOAD  ADDRESS  IS  GIVEN. 


6 366 


BLOCK  3 


0 30  6 

0307 

0308 

0309 

3313 

0311 

9312 


RFF 
PEF 
REF 
' i I 


3 LA  ST  1 PDA  TC  10(  R : 

A LAST  99 A 6366 

16  LAST  100  1 6 367 

16  LAST  1COO  6370 

17  LAST  1005  6371 

6372 

7 LAST  98  5 63  73 


15  220* 

2 0165  0 

5 A OOA  1 
2 A 16A  1 
5C  16A  1 
A 0000  0 

6 7761  0 


ST  ADR 


1 TR1 


COUNT  * $t/  INTER 
CA  BANKSET 

TS  FBANK 

I NCR  LOC 

INDEX  LOC 

CS  0 

AO  NEGONE 


THF  ST  ADR  CODE  (PUSHUP  UP  3N  ST33E 
ADDRESS)  ENTERS  HERE. 

THF  STORECODE  WAS  ST  OREO  COMPLEMENTED  T3 
MAKE  IT  LOOK  LIKE  AN  CPCOOE  PAIR. 

(YUL  CANT  RFM3VF  1 PECAUSE  OF  EARLY  CCS) 


0313 
0 31 A 
3315 
(•316 
0 317 
3 318 

0319 

0320 


REF  17  LAST  999 
REF  7 LAST  A69 
REF  18  LAST  1005 
RFF  1 


RFF  39  L AST  85 A 
REF  310  LAST  1001 
REF  1 


6 37 A 5 A lift  0 

6375  7 A3 56  1 

6376  56  116  1 

6377  7 773A  1 

6AC0  C 0006  1 
C. AC  1 7 A7A  7 0 

6A02  50  000  1 

6AC3  1 6A0A  0 


DO  STORE 


IT  RQ 


TS 

MASK 
XCH 
MASK 
EXT  ENO 
MP 

INDEX 

TCF 


AODRWD 
LOW  1 1 
AODRWD 
B 12T1A 

BI  T5 
A 

STORJUMP 


ENTRY  FROM  DISPATCHER.  SAVE  THt  ERASABLE 
ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS . 


GAP: 


ASSEMBLE  RFVISION  56  OP  AGC  PR  COB  AM  ZFPLINA  BY  ZOROASTER 
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PAGE  1006 


I INTERPRETER  USER'S  PAGE  NC.  1 9 Ej  S3 

> 321  STORE  CODE  JUMP  TABLE.  CALLS  THE  APPROPRIATE  STORING  ROUTINE  AND  EXITS  TO  DANZIG  OR  TO  AODRESS  WITH 

R)  32  3 A SUPPL  IEC  OPEP  AT  ION  COOE  . 


STTPE  STORE, 1 ANC  STORE,?  RETURN  TO  OANZIG,  THUS  RESETTING  THE  FRANK  TO  ITS  STATE  AT  1FTPRFT. 


T?9  PEE 

0325  REF 
03?6  RfF 
3327  REF 
C328  REF 
'>329  RFF 


1 

5 LAST  990 

1 

6 LAST  1006 

7 LAST  1006 


69C6 

69C7 

6910 

6911 


S 

c 

1 

0 


6939  1 STORJUMP  Tf 
6 c 7 3 i t:  r 


6926  1 TC 

6C73  1 TCF 

6931  1 TC 

6073  1 TCF 


OANZIG 
STORF,  1 
DANZIG 
STORE,  2 
OANZIG 


STORE. 

PIC  K UP  NEW  CP  CODE ( S ) . 


03?  REF  2 LAST  1006 

0331  RFF  1 


6912  0 6939  1 

6913  I 6972  1 


TC  STORE  STOOL. 

TCF  DOOLOAO 


I AST  1006 


TC  STORE  STOCL  A IT  H INDEXED  LOAD  ADDRESS. 

TCF  OODLOAD* 


0339  REF  9 LAST  1006 

0335  REF  1 


6916  0 6939  1 

6917  1 6975  0 


TC  STORE  STOVL. 

TCF  DOVLOAD 


3 16 

337 
3 331 

0339 
0 390 
039  1 


RFF  5 LAST  1006 

REF  1 

RFF  6 I AST  ]006 

REF  2 LAST  2R9 

REF  22  LAST  1001 

REF  1 


6923  0 6939  1 

0921  1 6500  O 

6922  C 6939  1 

6923  3 9766  1 

69  29  59  020  l 

6925  1 6269  C 


TC  ST3R.F 

TCF  DOVLOAD* 

Tf.  STORF 

CAF  CALLCODE 

TS  CYR 

TCF  15BITADR 


STPVL  WITH  INDEXED  LCAD  ADDRESS. 
STCTC. 


GET  A L 5 eiT  ACDRESS 


.AP:  ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


L INTERPRETER 

P03A2  STORE  CODE  ADDRESS  PROCESSOR. 


'■341 
3 344 

0345 


6426  50  120  1 

6427  4 uC46  1 

643C  1 6433  1 


STORE, 1 


INDEX  FIXLOC 
C S XI 

TCF  PRES  TOP.  F 


0 346 
3347 

0348 


RFF  54  LAST  10C7 
REF  1 B LAST  677 
RFF  19  LAST  1005 


6431  50  120  1 

6432  4 0047  0 

6433  26  116  0 


STCRE.2  INCEX 
C S 

PRESTORE  ADS 


F IXLOC 
X2 

A DDR  WD 


0349  REF 
0360  RFF 
0351  REF  3 
3352  REF 
0353  REF 
)354  RFF 
3355  REF 
0 356  RFF 
0357  RFF 
035$  REF 


2f  LAST  101  7 
1 

11  LAST  1 OC  5 
55  LAST  100  7 
1 

5 LAST  957 

21  LAST  100  7 
68  LAST  967 
11  l AST  097 

22  | AST  1C 3 7 


6434  4 0116  0 

6435  6 4772  1 

6436  10  000  0 

6437  3 0120  1 

6440  1 6445  0 

6441  3 5007  0 

6442  56  life  1 

6443  54  003  0 

6444  7 4357  0 

6445  2fc  116  0 


STORE 


AHEAD5 


CS  AODRWD 

AD  DEC  45 

CCS  A 

CA  FI XLOC 

TCF  AHEAD5 

CA  OCT1400 

XOH  ADDRWP 

TS  EBANK 

MASK  LOWB 

AOS  A DDR  WD 


9:  12  n;  T.  21  ,1970 
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PAGE  1007 


USER  *S  PAGE  NO. 


. 121 
15  EO  S3 


RESULTANT  ADDRESS  IS  IN  ERASABLE. 

DOES  THE  ADDRESS  POINT  TO  THE  WORK  AREA? 
YES. 

NO.  SET  EBANK  € MAKE  UP  SUP  ADORE  SS. 


*,  a®  : 


ASStMfUF  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


IN'TFRPPETFR 


P0359 


STORING  RCIJTINES.  STORF  CP,  TP,  OR  VECTOR  AS  INDICATED  ft 


RD  36 1 
9362 
^363 

0^64 


RFF  AC 1 
REF  23 


3 C 1 55  P 
5C  116  1 
52  0C1  1 


STARTSTO  EXTEND 


oca 

INDEX 

OXCH 


MP  AC 
Annpwo 

0 


6 366 
•5366 
0 367 


REF  1 A LAST  1 GO  1 

PFF  1 

RFF  2A6  LAST  902 


6A52 
6 A53 
6 A5A 


0 0002  0 


0368 

r>369  REF  AO 2 LAST  100  8 
C37C  REF  2A  LAST  1008 
3371 


6 A 5 5 
6A56 
t A57 
6 A60 


t CCC6  1 
2 OlfcO  0 
5C  116  1 
52  CC3  0 


VSTORE 


EXTENO 

OCA  MPAf  +3 
INOEX  AOORWO 
OXCH  2 


037-> 

'373  PFF  AO  3 LAST  1PP8 
D 37  A REF  25  1 AST  1P0R 
0375 

376  RTF  2A7  I A ST  10C8 


6 A6I  0 0006  1 
6 A62  3 016?  1 

6 A6  3 50  116  1 

6A6A  52  005  0 
6 A 65  0 0002  0 


EXTENO 

OCA  MPAf  +5 

INOEX  AOOPWD 
OXCH  A 
TC  0 


0377  REF  AOA  LAST  1n08 

6378  PEF  26  LAST  100R 

3379 

0380  REF  2A8  LAST  1QD8 


6 A 6 6 3 0156  0 TSTORE  CA  MPAf  *2 

6A6  7 50  116  1 INDEX  AOORWO 

t A 70  5 A CC2  l TS  2 

6 A 71  C 0002  0 TC  0 


9:  12  OCT.  21,  1970  SKIPPER  .121 


PAGE  1008 


USER'S  PAGE  NO.  16  EO  S3 


MP  AC,  ♦ 1 MUST  3E  STORED  IN  ANY  EVENT. 


TAP:  ASSEMBLE  REVISION  56  OF  AGE  PROGRAM  ZERL  INA  OY  ZOROASTER 


9:12  QCT.  21,1970  SKIPPER  .121  PAGE  U09 


L INTERPRETER 


USER'S  PAGE  NO.  17  EO  S3 


PO301  P OUT  I NFS  TO  BEGIN  PROCESSING  OF  THE  SECOND  ADDRESS  ASSOCIATED  WITH  ALL  STORF-TYPE  CODES  FXCEPT  STORE 

10387  ITSEIF. 


738'.  REF  1 

0385  REF  23 

078#,  RFF  1 


LAST  1006 


6472  2 7 744  1 DODLOAD  CAF  DLOADCOD 

6473  54  020  1 TS  CYR 

6474  1 6120  0 TCF  DIRADRES  GO  GET  A OIRECT  ADDRESS. 


0387  REF  1 

0388  REF  24  LAST  1009 

7389  REF  2 LAST  1009 


6475  3 4735  1 

6476  54  023  1 

6477  1 6120  0 


DD  VL  HAD 


CAF 

TS 

TCF 


VLOAOCOD 

CYR 

01  RADRES 


03oo  RFF  1 

1 39 1 REF  2 LAST  1006 


6500  3 6121  r DOVLDAD*  CAF 

6501  1 6157  0 TCF 


VI.OAD* 
DODLOAD*  -*1 


PROLOGJ  E TO  INDEX  ROUTINE. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRIINA  BY  ZOROASTER 


9:12  GC T.  21,1970  SKIPPER 


PAGE  1010 


P03  9? 

0394 

0395 

>396 

039  7 

0 398 
03  99 
0900 

393! 

0902 


I NTFRPRFTFP 

THE  FOLLOWING 
LAST  1308 
I AST  1008 


USER  ' S PAGE  NC.  1 8 

LQAO  INSTRUCTIONS  ARE  PROVIOED  F C«  LOAOI  NG  THE  MJ  LT  I-PURPOS  E ACCUMULATOR  MPAC. 


RFF  27 
P FF  4-5 


RFF  28  LAST  1010 


6 502 

6503 

6504 

6505 
65C6 
6 50  7 
6510 
65  11 
6512 


50  116  1 
3 000?  O 
54  156  1 
0 D006  1 
5 0116  1 
• 0001  0 
52  155  l 
3 4753  1 
J 6072  0 


INDEX  AODRWD 


MPAC 

ONE 

NEWMODE 


LOAD  A TRIPLE  PRFCISION  ARGUMENT  INTO 
THE  FIRST  THREE  MPAC  RFGIST  ERS,  WITH  THE 
C ON  TP  N T S OF  TH  F OTHER  FOUR  IRRELEVANT. 


DFCLAFE  TRIPLE  PPFCISICN  MODE. 


0 40  3 
3434 
04U5 
040  6 


REF  29  LAST  1010 
REF  1 


6513 
66  14 
6515 


22  007  0 

6i  116  1 

3 0000  l 

1 6C67  1 


INDEX  AODRWD 
CA  0 

TCF  SLCAD2 


LOAT  A SINGLE  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MPAC*1,  2 TO  ZERO.  THE 
CONTENTS  OF  HE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT. 


04!' 7 
04C  8 
3433 
041' 


RFF  30  LAST  1010 
REF  4C7  LAST  1010 

PFF  31  LAST  mil) 
REF  408  LAST  1010 


0 0006  1 
5 )U6  1 
3 00C1  0 
52  155  1 

C OOC6  1 
5 0116  1 

3 0003  1 

e?  160  i 


VLOAD  EXTEND 

INDEX  ADOPWD 
DC  A 0 

DXCH  MPAC 

ENOVLOAD  EXTEND 

INDEX  A DDR  WO 
OCA  2 

DXCH  MPAC  *3 


LOAD  A DOUBLP  PRECISION  VECTOR  INTO 
MPAC.+l,  MPAC  + 3,4,  AND  MPAC+5,6.  THE 
CONTENTS  OF  MPAC  *2  ARE  IRRELEVANT. 


POVL  COMES  HERE  TO  FINISH  UP  FOR  OP,  TP. 


RFF  32  I AST  1010 

REF  409  LAST  1010 


6527 

6530 

6531 
653? 


0 0006  1 
5 0116  1 
3 00C5  1 
52  162  0 


EXTEND 

INDEX  ADDPWD 
DC  A 4 

DXCH  MPAC  «-5 


TPOVL  FINISHES  HERF. 


,410 

042  0 


-LF  03  LAST  1010 
RFF  2 LAST  TolO 


153  C VMGDE 


DECLARE  VECTOR  MOOE. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  1NA  BY  ZOROASTER 


If'Tf  RPPETFR 


P ^21 


THE  FOLLOWING  INSTRUCTIONS  ARE  PROVIOEO  FOR  STORING  OPERANO: 


< f‘423 
I 4 ■ 
ft0«25 


PUSHDOWN  AND  NO  LOAD. 

PUSHDOWN  AND  DOUBLE  PRECISION  LCAP. 
PUSHDOWN  AND  VECTOR  LOAD. 


0426 

3427  REF  33  LAST  1010 

0428 

0429  REF  410  LAST  1010 

0430  REF  1?  LAST  099 

0431 


65  37 
6 540 
654  1 
6542 


3 3001  0 

52  155  1 
50  1 66  0 
52  001  1 


POOL 


EXT  END 

INDEX  ADDRWO 
OCA  0 

CXCH  HP AC 
INDEX  PUSHLOC 
OXCH  3 


REF  1*  I AST  1008 
REF  3 LAST  99  9 
RTF  13  LAST  1 Cl  1 


6543  5C  163  0 

6544  3 6256  0 

6545  26  166  1 


INDEX  MODE 
CAF  ND.WDS 

ADS  PUShLOC 


435  PEF  1 6 LAST  Ipll 

0436  REF  1 


6546  10  V3  1 

6547  1 6564  1 


3437  PEF 


6550  1 656?  1 


CCS  MODE 

TCP  ENDTPUSH 

TCF  ENDDPUSH 


0438 
>‘439 
7449 
044  1 
0442 


REF  17  LASI  1"11 

PEF  411  LAST  1011 

REF  412  LAST  1011 

RFF  1 4 LAST  1011 


6551  54  Ife  3 1 

6552  54  156  1 

6563  52  160  1 

6554  50  166  0 

6555  51* 775  0 


TS  MODE 

ENCVPIJSH  TS  MP AC  +2 

DXCH  MPAC  +3 

INDEX  PUSHLOC 
DXCH  3 -4 


3 44’  REF  4 13  L AST  1 Ql 1 
• 444  RFF  15  LAST  101 1 
0445 


6556  52  1t2  0 

6557  50  166  0 

6560  61 * 777  1 


DXCH  MPAC  *5 
INDEX  PUSHLOC 
OXCH  D -2 


044  6 


PEF  A LAST  1006 


656  1 1 60  7 3 1 


TCF  DANZIG 


447  RFF  4 14  LA  ST  1011 

9448  RFF  « I AST  1011 


656?  54  156  1 FNCPPUSH  TS  MPAC  +2 

6563  1 6073  1 TCF  DAN7IG 


0449 
0 4 S’’ 

C4  51 
'•>4  5? 
3453 


PFF 

REF 

PEF 


LAST  ion 
I A ST  I'M  l 
LAST  IQ  11 


PFF  If  LAST  1011 


6564  54  16?  1 

6665  56  156  0 

6566  60  166  0 

6567  53*777  0 

6570  1 6C73  1 


ENDTPUSH  TS  MODE 

XCH  MPAC  +2 

+ 2 INDEX  PUSHLOC 

TS  3-1 

TCF  DANZIG 


9:12  GST.  21  ,1970  SKIPPER  .121  PAGE  1 311 
USE?  ’S  0 AGE  NO.  19  EO  S3 

I N THE  PUSHDOWN  LIST : 


LOAD  MPAC  , +1  , PUSHING  THE  FORMER 
CONTENTS  DOWN. 


ADVANCE  THE  PUSHDOWN  POINTER  APPRO- 
PRIATELY. 


NOW  DP. 

PUSH  DOWN  THE  REST  OF  T HF  VFCTOR  HERE. 


SET  MPAC  +2  TO  ZERO  AND  EXIT  CN  DP. 

ON  TRIPLE,  SET  MPAC  *2  TO  ZER3,  PUSHING 
DOWN  THE  OLD  CONTENTS 


GAP: 


ASSEMBLE  R FV  IS  ION  5t>  OP  AGC  PROGRAM  ZERLINA  8V  ZOROASTER 


L I NTE  PPPETER 


*0454  POVl  - PLSHDOWN  ANO  VECTCR  LCAO. 


<.57 
r 45R 
<.50 
3460 


REF  34  LAST 

OFF  Al6  LAST 
PEP  17  LAST 


6571 

101  1 5 572 

6573 

If  11  6 57 A 

101 1 6575 

6576 


C 00C6  1 POVL 
5 0116  1 
3 CCC1  0 
55  155  1 

50  166  0 
52  001  1 


E XTEN3 

INDEX  ADDRWD 
OCA  0 
0 xr  H MP AC 

INDEX  PUS  HI  OC 
DXCH  0 


0461 

'<.6'> 

0461 


REF 

RPF 

PFF 


19  LAST  101  1 
4 LAST  l-^ll 
1 fl  LAST  10  12 


6577  50  163  0 

6600  3 6256  0 

660  1 26  166  1 


INDEX  MOOE 
CAP  NO.HDS 
AOS  PUSHLOC 


464  PEP  20  LAST  1012 

3 465  0 E F 1 

0466  PPF  1 


6602  10  16'  1 
66C3  1 6622  0 

6604  1 6523  1 


CCS  MODF 

TCP  TPDVL 

TCF  ENDVLOAP 


'.6  7 

3468 

0469 

c 4 r<  i 

0471 
'>47  ? 


REF  35 

REP  417 
REF  lo 


6605  0 0006  1 

LAST  1012  6606  5 0116  1 

6607  3 0003  1 

LAST  1 Cl  2 6610  52  160  1 

LAST  1012  66  11  c<  166  ( 

6612  51*  775  0 


VPOVL 


EXT  END 

INDEX 

OCA 

DXCH 

INDEX 

DXCH 


ADDR W D 
2 

MPAC  *3 
PUSHLOC 


3473 

0474  REF  36  LAST  1012 

0475 

.,<,76  PFF  4 IP  L AST  1012 

0477  RE  F 20  LAST  1012 

0470 


66  13 

6614 

6615 

6616 
6617 
6620 


3 0005  1 

52  162  0 
5C  166  C 
51 ' 777  1 


E X TE  ND 

INDEX  ADDRWD 
DC  A 4 
DXCH  MPAC  +5 
INDEX  PUSHLPC 
DXCH  0 -2 


0479 


PFF  11  LAST  1011 


6621  1 6073 


TCF  DANZIG 


04  80 

341 1 P FF  37  I AST  1012 

0482 

0483  RFF  419  LAST  1012 


6622  C 0006  1 

6623  5 0116  1 

6624  3 0003  1 

6625  52  160  1 


TPCVL 


EXT  END 

1 NDEX  ADDRWD 
DC  A 2 
DXCH  HP  AC  *3 


3 484 
■ 485 
.'.4  86 
0487 


REF  420  LAST  10 1 2 
PFF  21  LAST  1012 

REF  2 LAST  10  12 


6626  3 0156  0 

6627  50  166  0 

6630  5 2*  777  0 

6631  1 6527  0 


CA  MPAC  +2 

INDEX  PUSHLflC 

TS  0 -1 

TCF  ENDVLOAD 


1 <488 


SSP  (STORE  SINGLE  PRECISION)  IS  EXECUTED  HERF. 


3489 

0490 

0 491 
3492 

1 493 


PFF  IP  I AST  1005 
REF  19  LAST  1012 

REF  3p  LAST  1312 


6632  24  164  1 SSP 

6533  50  164  I 

6634  3 0000  1 

6635  50  116  1 STORE  1 

5636  54  000  0 


I NCR  LOC 
INDEX  LOC 
CA  0 

INDEX  ADDRWD 
TS  3 


9:12  OCT.  21,1970  SKIPPER 


121  PAGE  1012 


USER'S  PAGE  NG.  20  EO  S3 

RF  L CAD  MPAC  ANC  PUSH  DOWN  ITS  CONTENTS. 


ADVANCE  THF  PUSHDCWN  PCINTER. 

TEST  PAST  MODE. 

JUST  LOAD  LAST  FOUR  REGISTERS  ON  DP. 
PUSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  I PAD  THE  Y COMPONENT 
BEFORE  STORING  MPAC  +2  INCASE  THIS  IS  A 
PUSHUP. 


PICK  UP  THF  WORO  FOLLOWING  THF  GIVEN 
ADDRESS  AND  STORE  IT  AT  X. 

SOME  INDEX  AND  MISCELLANEOUS  OPS  ENO 
HFRF. 


AP:  ASSEPPLE  REVISION  S6  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 

INTERPRETER 


9:  12  02  T.  21  ,1970  SKIPPER  .121  PAGE  1013 
USER  'S  PAGE  NO.  21  EO  S3 


0A9A 


REF  12  LAST  10 1 2 


6627  1 6073  1 


TCF 


DANZIG 


POA  95 
R04  «6 


9:  12  OCT.  21, 
USER'S 


ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 
I NT  fRPRETER 

SEOLENCE  CHANGING  A NO  SURRCUTINE  CALLING  OPTIONS. 

THE  FOLLOWING  OPERATIONS  ARE  AVAILABLE  FOR  SEQUENCING  CHANGING,  BRANCHING, 


1970  SKIPPER  .121  PAGE  1019 
PAGE  NC.  22  EC  S3 

ANO  CALLING  SUBROUTINES: 


RCA  98 
> -<,96 

R3533 
R 0 51  1 
RO  50  2 

R 3 5 ' 3 
3 050* 


1.  GCT  O 

2.  »'ALI 

3.  CGOTO 
A.  CCALL 
7.  BPL 

R . R7E 

. 


GO  TO  . 

CALL  SUBROUTINE  SETTING  OPRET. 
COMPUTET  50  TO. 

CCMPIJT  FO  CALL  . 

BRANCH  IF  MPAC  POSITIVE  OR  ZERO. 
BRANCH  IF  MP  AC  ZERO. 

FRANCH  IF  MP  AC  NEGATIVE  NON-7FRO. 


3535 
05  Of 
■J  5C  7 
D53B 
0509 
C 510 

0511 

0512 
3513 
( 5 1 4 


RFF  20  LAST  1012 
RFF  21  LAST  101* 

REF  39  LAST  1012 

REF  17  LAST  1005 
REF  17  LAST  997 
RFF  312  LAST  1007 

REF  7 LAST  1030 


66 AO  2 A 16A  1 
56A 1 50  16 A 1 

66A2  3 0000  1 

66A  3 50  1 1 6 1 

66AA  6 0000  1 
66*5  5 A OC*  1 

66A6  7 5C 1 2 O 

66A 7 50  000  1 

6 650  2 2GC0  0 

6651  5 A 117  1 


CCALL 


I NCR  LOC  MAINTAIN  LOC  FOR  QPP  ET  COMPUTATION. 

INDEX  LOC 

CAF  0 GET  BASE  ADDRESS  OF  CADR  LIST. 

INDEX  ADORWD 

AO  0 ADD  INCREMENT. 

TS  FRANK  SELECT  DESIRFO  CADR. 

MASK  LOWlO 

INDEX  A 

CAF  100G0 

TS  POLISH 


'■'515  PFF  * 

3516  RFF  2 

f 5 1 7 RFF  3 

C 5 1 9 RfcF  22 

051 9 RFF  56 

0520  RFF  6 


I A ST  10^5 
LAST  1001 
LAST  101* 
LAST  1 0 1 A 
LAST  V,r  7 
LAST  03  1 


6652  3 0165  0 

6653  7 A 2 50  1 

665A  6 A350  0 

6655  6 C16*  1 

6656  5G  12C  1 

6657  5*  052  1 


CALL 


CA  BANKS  FT  FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 

MASK  RANKMASK  ADDRFSS  OF  THE  NEXT  OP-CODE  PAIR/ S TOR  fc 

AO  RANKMASK  CODE  ANO  LEAVE  IT  IN  QPRET.  NOTE  THAT 

AO  LOC  BANK  MASK  = -(2000  - I). 

INDEX  FIXLOC 
TS  QPRET 


3 523 
352A 


0525 
O 526 
0527 
C 528 
3529 
05  30 
1531 
353? 


I AST  10 1 A 
LAST  99  7 


REF  l 
RFF  6 
RFF  36 
REF  9 
RFF  18 
REF  ie 
RFF  2 
REF  23 
RFF  21A 


LAST  10,1  A 
LAST  99  A 
1 AST  10  1 A 
LAST  1 01  A 
LAST  10 1 A 
LAST  997 
I A ST  1 01  A 
I AST  993 


6660 
666  1 
6662 
6 6.63 
666A 

6665 

6666 
6667 

6670 

6671 

6672 

6673 


3 0117  0 GOTO 
7 775A  1 +1 

C 0006  1 
1 667A  0 
3 0165  0 + A 

5A  006  C 
3 0117  0 
5A  OOA  1 
7 5C12  0 
6 A7A1  I 
5A  16A  0 
1 6C5A  1 


CA  POLISH 

MASK  HIGH  A 

EXT  ENO 

B7F  GOTCFRS 

CA  RANKSET 

TS  RBANK 

CA  POLI  ST 

TS  FBANK 

MASK  LOWlO 

AD  2K 

TS  LOC 

TOF  l NTPRET  +3 


BAS  IC  BRANCHING  S EQUENCE. 


SFT  IF  ADDPFSS  POINTS  TO  FIXED  UR  ERAS. 
SET  FBANK  PART  CF  BBANK.  NEXT,  SET  UP 
FBANK.  THE  COMBINATION  IS  PICKED  UP  £ 
PUT  INTO  BANKSET  AT  INTPRET  *2. 


0 533 


F3  ,1400 


EBANK=  1 AGO 


SO  YUL  DOFSN'  T CUSS  THE 


"CA  1 AOO " BELOW. 


0 53* 
0535 
0 536 
3537 
0538 


REF  10  LAST  101A 
REF  2 | AST  996 

RFF  ? 1 3 LAST  101A 
RFF  II  LAST  10  1 A 
REF  1 


6 67 A 3 0117  0 GOTOERS  CA 

6675  6 6 26 3 0 AD 

6676  10  000  0 CCS 

6677  3 0117  0 CA 

6700  1 6707  0 TCF 


POLISH 
-END  VAC 
A 

POLISH 

30T0GF 


THE  GIVEN  ADDRESS  IS  IN  ERASABLE  - SEE 
IF  RELATIVE  TO  THE  WORK  AREA. 

GENERAl  ERASABLE. 


<i  AP : ASSEKPIE  REVISION  56  OF  AGC.  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


L INTCRPRFTFR 


0 539 
0540 
0 541 
0542 
0 54  3 
5544 


RFF  =.7 
RFF  12 
REF  214 


LAST  1014 
LAST  lri*, 
LAST  1014 


REF  13  I AST  1015 
RFF  1 


67C1 
6702 
67C3 
6704 
6 705 
67C6 


3 0 120  1 
6 0117  0 
50  000  1 
3 0000  1 
54  117  1 
1 6661  1 


0545  REF  69 

0546  PFF  12 

5547  RFF  3 15 

0548 

0 569  REF  14 

0550  RFF  2 


LAST  10  3 7 
LAST  icn 
LAST  1015 


LAST  1 C 1 5 
LAST  1015 


6707  54  003  0 

6710  7 4357  0 

6711  50  000  1 

6712  3 1400  1 

6713  5*  117  1 

67  14  1 666  1 1 


1400 
POLISH 
3 0 TO  + 1 


3 55? 
r 56  3 
0554 
3555 
0556 
567 
055  B 
0559 
3563 


RFF  24  LAST  1014 
RFF  40  LAST  1014 

RFF  19  LAST  1014 
PFF  19  LAST  1014 
REF  716  I A ST  1C15 

PFF  15  LAST  1015 
REF  3 I A ST  1015 


6 715  5 0 164  1 

6716  3 0CC1  0 

6717  50  116  1 

6720  6 9000  1 

6721  54  CC4  1 

6722  7 5012  0 

6723  50  000  1 

6724  3 20C0  0 

6725  54  117  1 

6726  1 6661  1 


CGOT  0 


INDEX  LC1C 
C A 1 

INDEX  A DDR  WD 

ad  : 

TS  FRANK 

MASK  L OW 10 
INDEX  A 
CA  10000 

TS  POLISH 

TCF  GCTC  +1 


0561 

0 


3563 
0 564 


0 565 

0555 


LAST  1014 
LAST  1915 
l AST  1015 


REF  16  LAST  1C15 
REF  4 l AST  IP  15 


6727 

6730 

6731 

6732 

6733 

6734 


3 3165  0 
54  f04  1 

50  164  1 
3 OOf  l 0 
54  117  1 
1 6661  1 


SWRRANCH  CA 
TS 

I NOE  X 
CA 
TS 
TCF 


3 A NK  SF  T 
FRANK 
LOC 
l 

POL  ISH 
3 0 TO  *1 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  1015 
USER  'S  PAGE  NO.  23  E 3 S3 

WORK  AREA. 

USE  THE  GIVEN  AODRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS. 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVEL1  S. 

USF  THE  GIVEN  AODRESS  AS  THE  ADDRESS  OF 
THF  BRANCH  AODRESS. 


COMPUTED  GO  TO.  PICK  UP  ADDRESS  OF  CAOR 
LIST. 

ADD  MODIFIFR. 

SELECT  GOTO  ADDRESS  . 


W IT  H ADDRESS  IN  A . 


SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 
BRANCH  COME  HERE  TO  DO  SO. 


GAP : ASSEMBLE  REVISION  56  Of-  ACC  PROGRAM  Z ERL  IN  A 0V  ZOROASTER 


P3  567 


R *.560 
R057< 
R05  71 


' 57? 
3573 

0 574 
r 5 75 


0576 
'.5  77 
3578 
: 5 70 


'‘•580 
3551 
0582 
0 58? 

05  84 
"585 


05R8 

R7589 

0590 

050  1 

0592 

0593 


I NTERPPE  TFR 


TRIPLE  PRECISION  8PANCHING  ROUTINE.  IF  CALLING  TC  IS  A 

1 + 1 IF  R P AC  IS  GPE/TEF  THAN  ZERO. 

I + ? IT  HP  AC  IS  nCUAL  TO  +0  OR  -0. 

L + 3 IF  M P AC  IS  LESS  T FAN  ZERO. 


REF  1 


6735 

6736 

6737 
6740 


10  154 

C 00C2 

1 674  1 
1 6753 


0 

0 


BRANCH 


MPAC 

0 

♦ 2 

NEC 


REF 

RTF 

RFF 


42? 

250 

2 


LAST 

LAST 

LAST 


ir  1 6 

1016 

If  1 6 


674  1 10  155  1 

6742  C 000?  0 

6743  1 6745  0 

6744  1 6753  1 


CCS  RPAC  +1 

TC  3 

TCF  +2 

TC  F NFG 


RTF  4 ?3  | AST  101  6 

RE!  "i  LAST  101  £ 
REF  3 LAST  1016 


6745  10  156  1 

6746  C 0 002  0 

6747  1 6751  0 
6750  l 6753  1 


CCS  MP  AC  +2 

TC  0 

TCF  +2 

TCF  NEG 


RFF  252  LAST  Ifl  16 


6751  50  CC2  0 0 + 1 

6752  C 0001  0 


INDEX  0 
TC  1 


PEF  253  LAST  1016 


6753  5 C CC2  0 NEG 

6754  0 0002  0 


INDEX  0 
TC  2 


REF  4 I A ST  101 6 6753 


C+2 


NEG 


REF 

REF 

PFF 


ITPACF  (?)  REFERS  TO  "EXIT". 


8 LAST  1(15 
37  LAST  1014 
2fr  LAST  10  1 5 


6755  3 0165  0 

6756  54  C C6  C, 

6757  5C  164  1 

6760  0 0001  0 


EX  IT 


CA  BANKSET 

TS  BBANK 

INDEX  LOC 
TC  l 


9:12  OCT.  21  *1970  SKIPPER 
USER  'S  ?AGF  NO.  24 
RETURN  IS  AS  FOLLOWS: 


.121  PAGE  1316 
E3  S3 


ON  7FR0. 


IF  FIRST  NON-ZERO  REGISTER  WAS  NEGATIVE. 


REST3RE  USER'S  BANK  SETTING,  AND  LEAVE 
INT  FRPRET  IV  E MODE  . 


AS  SCMBL  EF  REVISION  66  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9: 12  OCT.  21,1970  SKIPPER  .121  PAGE  1017 


GAo : 

L l NT  EP  PR  FT  FP  USER'S  PAGE  NO.  25  E3  S3 

> 0594  SECTION  3 - ADD/SUBTRACT  PACKAGE. 

R j 5 9 5 THE  FQL.  OWING  OPERATIONS  ARE  PROVIDED  FOR  ADDING  TO  AND  SUBTRACTING  FROM  THE  MUL  T I-PURPD  S E ACCUMULATOR 

P 05 97  *PAC: 


l :-5<?R 
R3599 
R 0600 


DAO 

OSU 

HCSIJ 


CClfUF  PRECISION  ADD. 

DOUBLE  PRECISION  SUBTRACT. 
DOUBLE  PRECISION  SUBTRACT  FROM. 


R05O2 
1 0603 
R3634 


VAC 

VSII 

BVSU 


TRIPLE  PRECISION  ADO. 

VECTOR  ADD. 

VECTOR  SUBTRACT. 

VEC  TOR  SUB  TRAC  T FROM. 


R 060 K THF  INTERPRETIVE  OVERFLUW  INEICATGR  OVFINO  IS  SC  T N0N-ZE3D  IF  OVERFLOW  OCCURS  IN  ANY  OF  THE  ABOVE. 


0 607  REF  3 7 LAST  993 

0608 


2 4735  1 VSU 
1 6764  C 


CAF  RIT15 

TCF  4-2 


CHANGES  0 TO  DCS . 


0fcr9  P.EF  9 

REF  41 

0611 

0612  PC-F  42 

3613  REF  2 

0614  PEF  42* 

0618 
06 1 6 

0617  REF  1 


LAST  1017 
I AST  386 
LAST  1016 


6763  3 4355  0 

6764  26  116  0 

6765  ( 300(1  1 

6 766  5 0116  1 

A Z67  00  003  1 

6770  20  160  l 

6771  C 

6772  1 6774  1 

6773  0 7026  1 


VAC 


CAF 

AOS 

CXTEND 


INDEX 

READ 

DAS 

EXTEND 

BZF 

TC 


PR  10  30 
ADDRWD 


AOORW  0 
HI  SCALAR 
MPAC  4-3 

♦ 2 

OVERFLWY 


CHANGES  0 TO  DCA . 


DC  A 2 OR  DCS  2 

CHECK  OVERFLOW. 


0 620 
3621 
062? 
0623 
C6?4 


RFF  43  LAST  1M7 
RFF  2 LAST  21R 
REF  4 ?5  l AST  101  7 


REF  1 


6774  C 0006  1 

6775  5 0116  l 

6776  CO  006  1 

6777  2C  162  0 

7000  0 0006  1 

7^01  1 7003  1 

7002  0 7023  1 


EXTEND 

INDEX  ADDRWD 

READ  CHAN5  DCA  4 OR  DCS  4 

DAS  MPAC  4-5 

EXTEND 

BZF  4-2 

TC  OVERFLWZ 


0625 
3626 
0627 
0 628 


REF  44  LAST  1017 
REF  1 4 LAST  72q 
REF  1 


7«)03  0 0006  1 

7CC4  5 0116  1 

7005  00  001  0 

7006  1 7012  1 


EXT  END 

INDEX  ADDRWD 

READ  LCHAN  DCA  0 OR  DCS  0 

TCF  ENDVXV 


t 631 

0632 

0633 
3634 


RFF  45  LAST  1617 
RFF  426  LAST  10l7 
REF  13  I AST  1013 


7013 

7C14 


C 0006 
5 1 16 

3 0CC1 
<0  155 

C 00C6 
1 6C73 


1 DAD 
l 
0 

1 ENDVXV 
1 
1 


E X TEND 

INDEX  ADDRWD 
DCA  3 
DAS  MPAC 

EXTEND 

BZF  DANZIG 


VXV  FI NI SHES  HERE. 


GAP: 


ASSEHBL  F REVISION  56  OF  AGC  PRGGRAM  ZEKLINA  BY  ZOROASTER 


0:12  OCT.  2 It  1970  SKIPPER  .121  PAGE  10l8 


L INTERPRETER  USER'S  PAGE  NO.  26  E3  S3 

fc*5  PFF  1 

3536  RIF  |4 


I AST  1017 


7015  C 7031  1 SETCVF  TC 

7016  1 6C73  1 TCP 


nv  erfi  nw 

PAN7IG 


JAP:  ASSERBLE  RFVISICN  56  QF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


L INTERPRETER 


0637 

0638  RFF  46  LAST  1017 

0639 

06<*0  RFF  2 LAST  lQl7 


70  17 

7020 

7021 

7022 


0 0006  1 
5 0116  1 
4 0CC1  1 
1 701?  1 


DSU 


F XTEND 

INDEX  A DOR  WO 
DCS  0 

TCF  F NO V XV 


0641  REF  2C9  LAST  o<U 
364?  REF  14  1 AST  812 
0643 


7123  54  001  1 OVERF  LWZ  TS  L 

7024  3 4756  1 CAF  FI VE 

7025  1 7030  1 TCF  +3 


0644 

0645 


l A ST  1C  1' 
AST  07 


7026  54  001  1 CVERFI  WY  TS  L 

7027  3 6257  1 CAF  THREE 


0646 


RFF  211  LAST  1019 


7^  30  56  001  0 


XCH  L 


3647 

0648 

064« 

3650 

0651 

065? 

0653 

'654 

3655 

0656 

0657 
365B 

0659 

0660 
0661 


RFF  317 
REF  2 
PFF  83 


L AST 
L AST 
I AST 


1015 
Q15 
84  9 


REF  31 R LAST  1019 
F FF  ?12  LA  ST  1019 
REF  427  l AST  10  17 


REF  20  1 LAST  99  3 
RTF  84  LAST  1019 
RFF  213  LAST  1 Tl  9 
RFF  428  LAST  1019 


REF  254  LAST  1016 
REF  1 


7031 
7 1 32 

7033 

7034 

7035 
7026 
7037 
70  40 
7C4 1 
704  2 

7043 

7044 

7045 

7046 

7047 


54  130  1 

0 0C06  1 

24  000  1 
5C  CC1  0 
26  155  1 
54  007  1 
3 4755  1 
6 130  0 

50  001  0 
26  154  0 
54  007  1 
0 0002  0 

1 7 1 64  1 


0 VERF  LUW 


CS 

TS 

F XTE  NO 

AUG 

INOEX 

AOS 

TS 

CAF 


A 

LI  MI TS 
OU  F 


MP AC  + 1 
7 

ZERO 

8UF 

L 

MPAC 

7 

Q 

SE  TO  VF  2 


0667 
3663 

0664 

0665 
3566 
9667 

0668 
066  9 

0670 

0671 


REF  47  LAST  1019 
REF  429  LAST  1018 

REF  430  LAST  1019 

REF  2 LAST  1017 


7050  C 0006  1 
7C51  5 1116  1 

7052  3 0003  1 

7053  52  160  1 

7054  C 0006  1 

705  5 4 >00  1 1 

7056  20  160  1 

7057  C 0006  1 

7060  1 7062  0 

7C61  C 7026  1 


BVSIJ 


FX  T ENO 

I NOEX  AODRWO 

OCA  2 

OX  CH  MPAC  +3 

F X TE  NO 

DCOM 

DAS  MPAC  +3 

F XTENO 

BZF  +2 

TC  OVERF LWY 


06  72 

0673 

0674 

0675 

676 


0677 

0678 

0679 

0680 
0681 


REF  48  LAST  1C19 
RFF  431  LAST  1019 

REF  432  LAST  1019 

RFF  2 LAST  1 Cl  7 


7062  0 0006  1 

7063  5 0116  1 

7064  3 OCC  5 1 

7065  52  162  0 

7066  C CCC6  1 

7067  4 OCOl  1 

7070  20  162  0 

7C71  C 0GC6  1 

7072  l 7074  1 

7073  C 7023  1 


EXTEND 

INOEX  ADORWD 

OCA  4 

DXCH  MPAC  +5 

EXTFNO 

OCOM 

DAS  MPAC  +5 

EXTEND 

HZ  F ♦? 

TC  OVERFLWZ 


9:12  OS  T.  21  ,1970  SKIPPER  .121  PAGE  1019 
USER'S  PAGE  NO.  27  F3  S3 


ENTRY  FOR  T HI  3 0 COMPONENT. 


ENTRY  FOR  SECOND  COMPONENT. 


ENTRY  FOR  1ST  COMP  OR  OP  ( L=0  ) . 
PICK  UP  POSMAX  CR  NEGMAX. 

FORCE  0 VF RF  LOW. 


NO  OVERFLOW  EXIT. 

SET  OVF I NO  AND  FX I T , 


ASSEMBLE  REVISION  cf»  OF  AGO  PRCGRAP  ZERl INA  flY  ZOROASTER 
L INTERPRETER 


9:  12  OCT.  21,1970  SKIPPER  .121  PAGE  1 «.  2 L 
JSER'S  PAGE  NO.  28  E3  S3 


‘.92 
-'683 
) SB<* 
0665 
I";  686 
f 687 


REF  A9  LAST  1C1S 
RFF  A13  LAST  1019 


70  7* 
7C75 
7C76 
7 ->77 
7100 
7 1C  1 

71C2 


0 0006  1 
5 0116  1 
3 0001  0 
52  155  1 
C 0CC6  l 
A 0001  1 
1 7012  1 


EXTENO 

INOEX  ADCRWC 
OCA  0 

DXCH  MPAC 
EXTEND 
DCOM 

TCF  ENDVXV 


GAP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


P0689 


TRIPLE  PRECISION  ADO  RCLTINE. 


06  90 
- 91 
3692 
0693 


0694 

D695 

0696 

r.697 
06  9 R 


RFF  50  LAST 

RFF  434  LAST 
REF  51  LAST 

REF  435  LAST 
RFF  436  LAST 
RFF  15  LAST 


7 103 

1020  7104 

7 1C  5 

1020  7106 

1C2 1 7107 

7110 

1021  7111 

1021  7112 

10  18  7 113 


0 C0C6  1 TAO 

5 0H6  1 
2 0CC2  0 
20  156  1 
50  116  1 

6 OCOO  1 
6 0154  1 
5*  154  0 

1 6073  1 


E X TEND 

INDEX  ADDPWC 
DC  A 1 
DAS  MP AC  4- 
INDEX  ACDRWC 
AD  0 

AD  MPAC 

TS  MPAC 

TCF  DANZIG 


0699  REF 


1 7015  0 


TCF  SETOVI 


t 


9:12  OCT.  21,19.70  SKIPPER  .121  PAGE  1^21 
USFR'S  PAGE  NC.  29  F3  S3 


ADD  M INOR  PARTS  F IRST  . 


SET  OVFIND  IF  SUCH  OCCURS. 


GAP: 


ASSEMBLE  REVISION  56CJF  AGS  PROGRAM  7 £ P L I NA  Ry  ZOROASTER 


9:12  OCI  . 21.197C  SKIPPER 


PAGE  1022 


L INTERPRETER  USER'S  PAGE  NC.  30  E3  S3 

’ 0 7(  ARITHMETIC  SUBROUTINES  REOLIREO  IN  FIXED-FIXED. 


R 3 7 1 
T '7-  3 
P'<7D5 
90707 
10709 

r-j  7 n 
K 71? 


DMPSUB  DOUBLE  PRECISION  MULTIPLY.  MULTIPLY  THE  CONTENTS  CE  MPAC,*1  BY  THE  DP  WORD  WHCSt  ADDRESS 

IS  IE  ACCBWC  ANC  I EAV  F A TRIPLE  PRECISION  RESULT  IN  «PAC. 

ROUNOSUB  PJU\n  1HE  TRIPLE  PREC  I SON  CONTENTS  CE  MPAC  TC  CCUBIE  PRECISION. 

DPTS'IF  TAKE  TEE  HOT  PRODUCT  OF  THE  VECTOR  IN  MPAO  AND  THF  VECTDP  WHOSE  ADOPFSS  TS  IN  ADPRWD 

AND  LEAVE  THE  TRIPLE  PRECISION  PFSULT  IN  MPAC. 

POLY  USING  THE  CONTFNTS  OF  “PAC  AS  A DP  ARGUMENT,  EVALUATE  THF  POLY  NCMI  AL  W HOS  F CEGREE  AND 

COEFFICIENTS  IMMEDIATELY  FOLLOW  THE  TC  POLY  INSTRUCTION  (SEE  ROUTINE  FCR  DETAILS.! 


71  6 
3 717 


REF  2F*  LAST  1019 

REF  256  LAST  1022 
REF  52  LAST  1021 


7115  CC  CC2  0 OMP 

7 1 16  3 GOOD  1 

7117  2A  002  0 

712C  5 A 116  C - 1 


INDEX 

:af 

INCR 

TS 


0 


0 

0 

ADDRWD 


BASIC  SUBROUTINE  FOP  USF  B Y PINBALL,  ETC 
ADRES  OF  ARGUMENT  FCLLCWS  TC  CMP  . 

(PROLOGUE  FOR  SETTING  AOORWD.) 


' 71  R 

7!« 

3720 
0721 
"722 
( 7?  3 
' 72 A 
37?S 


PCF  S3  LAST  1022 

REF  A 37  l AST  10  2 1 
PFF  202  LAST  1 01 9 
P.EF  A 3fi  LAST  1022 
REF  o LAST  090 

PFF  A 39  LAST  \r\?2 


7 121  50  116  1 DM  PS  J d INDEX  ADDRWD 


7122  3 0001  0 

7123  5 A 1 5 6 1 

712A  3 A755  l 

7125  ft  155  0 
7 1 2f>  5 A 135  1 

7127  C 0006  1 
7130  7 0156  1 


CA  1 

TS  MPAC  +2 

CAF  ZERO 

XCH  MPAC  +1 

TS  MPTEMP 

EXT  END 

MP  MPAC  *2 


GFT  MINOR  PART  OF  OPERAND  AT  C(AODRWD). 

THIS  WORKS  FOR  SCUARING  MPAC  AS  WELL. 

SET  MPAC  U TO  ZTRO  SO  WE  CAN  ACCUMULATE 
THE  PARTIAL  PRODUCTS  WITH  DAS 
INSTRUCTIONS. 

MINOR  OF  MPAC  X MINOR  OF  C ( ADDRW  D ) . 


0 726 
'727 

1 72B 
>729 


REF  AAC  LAST  1022 

REF  441  LAST  1o22 
PCF  AA2  LAST  1022 


7131  56  156  3 

7132  C CCC6  1 

7 133  7 0 1 5A  0 

713A  20  156  1 


XCH  MPAC  +2  DISCARD  MINOR  PART  CF  ABOVE  RESULT  AND 

EXTEND  FORM  MAJOR  OF  MPAC  X MINOR  OF  C ( ADOR  WD  ) . 

MP  MPAC 

OAS  MPAC  +1  GUARANTEED  ND  OVERFLOW. 


3 73D 
0731 
'7  32 

) 733 


0734 
i 735 


REF  SA  LAST  1022 
REF  IQ  LAST  1C22 

RFF  11  LAST  1022 
RFF  A A 1 t AST  10?? 


7135  5C  116  1 

7136  3 0000  1 

7137  56  135  0 

7 1 AO  0 0006  1 
7 1 A 1 7 0 135  1 

7 1 A 2 2C  156  1 


INDEX  ADDRWD  GET  MAJOR  PART  OF  ARGUMENT  AT  C(ADORWD>. 

CA  0 

XCH  MPTEMP  SAVE  AND  9R  ING  OUT  MINOR  OF  MPAC. 

OMP  SUB  2 EXTEND 

MP  M P TEMP  MAJOR  OF  CC ADDRWD)  X MI  NCR  CF  MPAC. 

DAS  MPAC  +1  ACCUMULATE,  SETTING  A Tn  NET  OVERFLOW. 


H736 
0737 
D 733 
0719 
0 7A0 


REF  AAA  LAST  1022 

RCF  12  LAST  1022 
REF  AA 5 LAST  102? 
RFF  257  I AST  1022 


7 14  3 56  15A  1 

71 AA  C 0006  1 
7 l A 5 7 0135  1 

7LA6  20  155  1 
71A7  0 0002  0 


XCH  MPAC 

EXTEND 

MP  MPTEMP 

DAS  MPAC 

TC  0 


SETTING  MPAC  TO  0 CR  +-1 . 

MAJOR  OF  MPAC  X MAJOR  OF  C(ADDPKD). 
GUARANTEED  NO  OVERFLOW. 

A9  MCT  = .573  MS.  INCLUDING  RETIRN. 
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> 0741 


RCUNO  MPAC  TO  DOUBLE  PRECISION, 


SETTING  OVFIND  ON  THE  RARE  EVFNT  OF  OVERFLOW. 


74: 
0 74' 


E 

RFF 


LAST 
I.  AST 


7150  3 4755  1 RULNDSU8  CAF  ZERO 

7151  54  163  1 *1  TS  MOOE 


SET  MPAC  *2=0  FOR  SCALARS  AND  CHANGE 
MODE  TO  DP. 


0745 
1746 
0747 
0 74B 


RFF  446  LAST  1022 

REF  214  1 AST  1019 

PEF  258  LAST  1022 


7153 
7 154 
7155 


56  156  C 
fc  0000  1 
54  001  1 
C 00C2  0 


VRCIJND 


XCH  MPAC  +2 

DOUBLE 
TS  L 

TC  0 


BUT  WE  NEEONT  TAKE  THE  TIME  FOR  VECTORS. 


074<>  REF  447  I ASI  1023 

760  RFF  448  LAST  1023 

3 751  PEF  250  LAST  1023 


7 156  6 0 155  0 

7157  54  155  1 

7160  C G0C2  0 


A3  MPAC  *1  ADO  ROUNDING  BIT  IF  MPAC  +2  WAS  GRFArER 

TS  MPAC  +1  THAN  .5  IN  MAGNITUDE. 

TC  0 


l 752 

! 75  3 
3 76  4 


REF  440  LAST  1023 
RFF  4 50  LAST  102  3 
PFF  26f  I AST  1o  23 


7 161 

7162 

7163 


6 0154  1 
54  154  0 
0 00C2  0 


AD  MPAC 

TS  MPAC 

TC  0 


0756 

1766 


RFF  4 LAST  820 
REF  261  LAST  1023 


7164  54  121  1 SET0VF2  TS  OVFIND 

7165  C 0002  0 TC  0 


PROPAGATE  INTERFLCW. 


(RARE) . 
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P17S7  THE  DOT  PROOIJCT  SUBPOL TINE  USUALLY  FORKS  THE  DOT  PRCDUCT  CF  THE  VffTOR  IN  MPAC  WITH  A STANDARD  SIX 

R 7r-9  REGISTER  VFCTCP  WHOSE  ADDRESS  IS  IN  AOORWC.  IN  THIS  CASF  CIDOTINC)  ARE  SET  TO  ?.  VX”,  HOWEVER,  SETS  C(DOTINC)  TO 

w.761  t SO  THAT  OOTSLB  DOTS  MpAC  WITH  A COLUMN  VECTOR  CF  THE  MATRIX  IN  QUESTION  IN  I HIS  CASE. 


r7 GR  PEF  6 2 I AST  9RR 

7 64  PEE  A LAST  90 


7166  " A 7 * 2 C PREOOT  CAF 

7167  54  136  1 TS 


TWO  PPCLOGUF  TO  SET  DOT  INC  TC  2. 

HOT  INC 


3765 

766 

767 
37SR 
0769 
'773 
C 77  1 

77? 


REF  5 LAST  98 
REF  1 

RFF  45  1 l AST  1023 
REF  452  LAST  1024 
PIE  86  LAST  1019 
REF  45  3 LAST  If  24 
PEE  P6  LAST  1C24 


7170  C CCG6  1 DOTSUB 

7171  22  137  1 

717?  0 7171  I 

7 17  3 52  160  1 

7174  52  155  1 

7175  52  131  0 

7’76  3 0156  0 

7177  54  132  0 


E XTENO 

QXCH  03  TRET 

TC  DMPSUB 

OXCH  MPAC  ♦ 3 

DXCH  MPAC 

OXCH  BUE 

CA  MPAC  +2 

TS  BJF  +2 


SAVE  RETURN. 

DOT  X COMPONENTS. 

PCS  I T I ON  Y COMPONENT  OF  MPAC  FOR 
MULTIPLICATION  WHILE  SAVING  RESULT  IN 
THREE  WORD  PJ  F F ER , BUE. 


?77-' 

0 774 

0775 

0776 

• 777 
^778 
770 

78 

3781 

1 702 


PEF  5 
RFF  55 
PEF  ? 
PEF  4 54 
PFF  P7 
REF  455 
PFF  RR 
RFF  F9 

REF  5 


LAST  1024 
LAST  1022 
L A ST  l 
LAST  1324 
LAST  1024 
I AST  1024 
I AST  1 324 
LAST  1024 

LAST  1023 


7200  • 0116  0 

7201  26  1 16  0 

7202  C 7121  1 

Z2o3  52  156  1 
7204  20  132  0 

72C5  t 3 1 54  l 

7206  6 0130  (3 

7207  54  130  1 

7 210  1 7212  0 

7211  54  121  l 


CA  00T1NC 

AOS  A DDR  WO 

TC  DMPSUB 

OXCH  MPAC  ♦ 1 

DAS  BJF  +1 

AD  MPAC 

AO  8UF 

TS  BU  F 

TCP  +2 

TS  DVFIND 


AOVANCF  ADDRWO  TC  Y COMPONENT  OF 
OTHER  ARGUMENT. 

ACCUMULATE  PARTIAL  PRUCUCTS. 


IF  OVERFLOW  OCCURS. 


0 783 
0784 
.70S 
3786 
C 787 
r 7flR 
3 7R9 

0 790 
0791 
f 792 
0793 


REF  456 
PFF  457 

REF  6 
REF  56 
REF  3 
RFF  90 
RFF  458 
RFF  459 
REF  °1 
PEF  460 
PEF  ft 


LAST  1024  7212 

LAST  1<  24  7213 

IAST  1024  7?14 

LAST  1024  7215 

LAST  1024  7216 

LAST  1C24  721  7 

LAST  1024  7220 

LAST  1 o?4  7221 

LAST  1024  7222 

LAST  1024  7223 

LAST  1C24  7224 


52  lfc2  C 
155  1 
3 0136  0 
2 ft  116  0 
C 7121  1 
52  132  C ENOOOT 
20  156  1 
6 0154  1 
ft  0130  0 
54  154  0 
0 0137  1 


OXCH  MPAC  45  MULTIPLY  Z COMPONENTS- 

OXCH  MPAC 

CA  DOT  INC 

AOS  AOORWO 

TC  DMPSUB 

OXCH  PJ  F +1  LFAVE  FINAL  ACCUMULATION  IN  MPAC. 

OA S MPAC  +1 

AD  MPAC 

AO  RUF 

TS  MPAC 

TC  OOTRET 


0794  PEF 
r 795  PFF 


2 I AST  IP  18 
7 LAST  1 P?  4 


7225  C 7C31  1 

7226  C "137  1 


TC 
T C 


OVERF  LCW 
Of!  TR  F T 


ON  OVERFLOW  HERF 


< 79  7 

R''798 
R0800 


ASS  F NR  LE  RFVISION  56  OF  AGC  PROGRAM  Z ERL  INA  RY  ZOROASTER 
INTERPRETER 

CCUBLE  PRECISION  POLYNOMIAL  EVALUATOR 

N N-L 

THIS  ROUTINE  EVALUATES  A X + A X 4-  . . . + 
N N-I 

TEE  ROUTINE  HAS  TWO  ENTRIES 

1 . 
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A LEAVING  THE  OP  RESULT  IN  MPAC  ON  EXIT. 


A3906 
A 0807 
A 0808 


ACTRESS  FOR  REFEPFNTING  TOFF  TABLE 
N I S THE  DEGREE  OF  THE  POWER  SERIES 
ARGUMENT 


A)80° 
» 1 1 
A08  11 


l 0C-2N 
LPC 


A ( 0) 
AIN) 


A 08 1 A 

A!)fl  1 5 
A 08T  A 
A ' ' 8 l 7 
A3  91? 

A n 8 1 9 


FNTPY  THRU  POLY.  THE  CALL  TO  POLY 

MPAC 

LOT. 
LOC  + 1 
LCC+2 


ANO  THE  ENTERING  DATA  MUST  BE  AS  FOLLOWS 

DP  X ARGUMENT 

POLY 
N-  1 
A (0  ) 


LOC+2N+2  OP 


I N ) 


RETURN  I S TO  L0C+2N+4 


0 82? 
3923 

0824 


17  I A ST  1015 


7 2 27  £ GCC6  1 

723P  1«1  0 

T?3l  54  117  1 

7232  22  140  1 

7233  1 7 244  0 


PCWRSERS  EXTEND 

QXCH  POLYRFT 
TS  POLISH 

LXCH  POLYCMT 
TCF  POLYCOM 


RF  TURN  AOORESS 
PPWFR  SERI ES  ADDRE  SS 
N-T  TO  COUNTER 
SKI  P SF  T UP  BY  POLY 


Tfl?5 
3926 
0827 
1 8?9 
,829 
0830 
3931 
0832 


RFF 

REF 


I AST  1023 
LAST  1025 


REF  263  LAST  1c25 


REF 

REF 

REF 


LAST  1025 
LAST  1019 

LAST  1025 


72  34  50  00?  0 

7235  3 COCO  1 

7236  54  140  0 
7227  fc  OCCO  1 
7 240  A 000  2 0 

7241  54  117  1 

7242  6 4756  1 

7243  54  141  1 


POLY 


POL  ISH 
FIVE 
POL  YRET 


N-  1 TO  COUNTER 

L (AIN)  )-3  TO  POL  I SH 

STORE  RETURN  AOORESS 


m 14m 


1 PCLYCCM  CAP 


“835 
08  36 
B r 


7246  0 0006  1 

7247  r 117  o 

7250  3 0C04  0 


EX  T EN  D 
I NDE  X 
DC  A 


LAST 


1025 


POLI SH 
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l INTERPRETER 


)33R  PFF  4M  i AST  102 A 

'0lO  PFF  ^7  [AST  1071 

08 40  REF  1 


725  1 ‘2  155  1 

7252  52  123  0 

7253  1 7257  1 


OXCH  MPAC 
0 XC  H V3UF 

TCF  P0LY2 


SEF  3 1 AST  lC  25 

PFF  6^  | A ST  1 O? A 

REF  20  I A < T 1025 


7254  54  1 4C  0 

7 ?t'5  4 4752  1 

7256  26  117  1 


POL  YL30P 


TS 

CS 

AOS 


PPLYC  NT 
TWP 

POL  ISH 


'84  5 
7346 
84  7 

84  8 


PFF  4 LAST  1024 
PEF  21  l AST  1026 

RFF  462  LAST  1026 


7257 

7260 

7261 

7262 

7263 


0 7121  1 
0 0006  l 
5 C 1 1 7 0 
3 0002  D 
2C  155  1 


POL  Y 2 


TZ  3 MP  SUB 

EXT  END 

INDEX  POLISH 

OCA  1 

DAS  MPAC 


084  Q 
r 850 
3951 


PEF 

PFF 

RFF 


3 LAST  lr  25 


7264  10  140  0 

7265  1 7254  1 

7266  C C 1 4 1 C 


CCS  PDLYCNT 

TCF  POLYLODP 

TC  POLY  RET 
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LOAC  AIN)  INTO  MPAC, 

SA  VI NG  X IN  VBUF 

SAVE  DECREMENT  EC  LCCP  COUNTER 

REGRESS  COEFFICIENT  POINTER 
MUL  TI  PLY  BY  X 

ADD  IN  NEXT  COEFFICIENT 

USERS  RFSPONS  I BIL  I TY  TO  ASSLRE  N3  OVFLOH 


RETURN  CALL  EP 
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L INTERPRETER 


USER  'S  RAGE  NO.  35  E 3 S3 


P085? 


MISCELLANEOUS  M UL  T I -PR  FC I S I ON  ROUTINES  REQUIRED  IN  FIXED-FIXED  BUT  NOT  USED  BY  THF  INTERPRETER. 


7267  3 47  55  1 DP  AGREE  CAF  ZERO 

7270  FA  156  1 TS  MPAC  +2 


DOUBLE  PRECISION  FNTRY  - 
7 FRf  LOW-ORDER  WOR  C 


0854  REF  764  I AST  1025 

0854  PFF  3 LAST  R65 

0856  REF  1 

0857  PFF  l 


7271  22  CC2  0 

7272  0 6735  0 

7273  1 7277  0 

7274  1 7317  1 


TP  AGREE 


TCE 

TCF 


0 

BRANCH 

ARG+ 

ARGZERO 


FORCE  SIGN  AGREEMENT  AMONG  THE  TRIPLE 
PRECISION  CONTENTS  OF  MPAC.  RETURNING 
WITH  SIGNUM  OF  THF  INPUT  IN  A. 


0858  REF  25  LAST  912 
0069 


7275 

7276 


CS  PPSMAX 

TCF  +2 


IF  NEGAT IV  F . 


0860  RFF 
3861  REF 
0862 

0863  REF 
3864  REF 
0865  RFF 
0R66  REF 
0867  PFF 
C 868  PFF 
3869  REF 

0870  REF 

0871  RFF 
3872  REF 

0873  PFF 

0874  KEF 

0875  REF 


LAST  1027 
I AST  1(  27 


319  LAST  1 Cl  ^ 

464  I AST  1027 

465  l AST  1027 
2r  5 LAST  1C27 

266  LAST  1 0 2 7 

466  l A ST  1027 

467  l AST  1027 
206  LAST  I C 2 7 

267  LAST  1027 

468  l AST  1027 

469  LAST  1027 
4 7C  l A ST  1^27 
215  LAST  Ip  2 3 


7277  3 4733  I 

7300  5 4 0C2  1 

7301  0 0006  1 

7302  2 4 000  1 

7 3C  3 6 0156  O 

7304  54  156  1 

7305  3 4755  L 

7306  6 00.0  2 0 

730  7 6 0155  0 

721  54  155  1 

7311  3 4755  I 

7312  6 0002  0 

7313  6 0154  1 

7314  54  154  C 

7215  54  155  1 

7 316  0 0001  0 


ARG+  CAF  POSMAX 

TS  Q 

EXTEND 
AUG  A 

AD  MPAC  *2 

TS  MPAC  *2 

CAF  ZERO 

AD  Q 

AD  MPAC  +1 

TS  MPAC  +1 

CAF  ZERO 

AD  Q 

AD  MPAC 

ARGZER02  TS  MPAC 

TS  MPAC  +1 

TC  L 


FORMS 


+-1.0. 


Q STILL  HAS  PDSMAX  PR  NEGMAX  IN  IT. 
ALWAYS  SKIPPING  UNLESS  ARGZERO. 
RETURN  VI  A L. 


0876  PFF  471  LAST  1027 

3877  REF  1 


7317  54  156  1 

7320  I 7314  1 


ARGZERO  TS 
TCF 


MPAC  *2 
ARGZERC2 


SET  ALL  TH°EE  MPAC  PEG!  STE  R S TO  ZERO. 


R 0878 


SHCPTMF  “ULTIPLIFS  TFF  Tp  CONTENTS  OF  MPAC  BY  THE  SINGLE  PRECISION  NUMBER  ARRIVING  IN  A. 


0889  RFF  13  I A ST  1C?? 

">881 


088? 

0883 

0884 

0885 
;*986 


RFF  47?  LAST  1027 
RTF  473  LAST  1027 
REF  2r 7 LAST  If  27 
RFF  474  LAST  1027 
REF  l 


7321  54  135  1 

7322  0 0CC6  1 

7323  7 0156  1 

7224  ‘4  156  1 

7325  2 4759  i 

7326  56  155  0 

7327  1 714C  1 


SHCRTMP  TS  MPT  EMP 

F X TEND 

MP  MPAC  +2 

TS  MPAC  ♦ 2 

SHOR  TMP  2 CAF  ZERO 

XCH  MPAC  +1 

TCF  DMPSU82 


SO  SUBSEQUENT  CAS  WILL  WORK. 
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P <">  8 8 7 OMPNSLB  MULTIPLIES  1HF  OP  F RAC  TICK  ARRIVING  IN  MPAC  EY  THE  SP 

R088«  INTEGER  ARRIVING  IN  A.  THE  CP  PROCUCT  OEPARTS  BOTH  IN  MPAC  ANO  IN 

< 8h9  A ANO  L.  NCTE  THAT  OMFNSUe  NCPPALLY  INCREASES  THE  HAGNITJDE  OF  THE 

R '99:  ■ CONTENTS  OF  MPAC.  THE  CUSTOMER  M L 5 T INSURE  THAT  B ( A ) X 8 ( MPAC,  MPAC+1  ) 

R'  R9l  AND  8 1 A I X H(MPAC)  AP  F L FSS  THAN  I IN  MA&NITJOE,  WHFRE  B,  AS  IS  OBVIOUS, 

*089?  INDICATES  THE  ARRIVING  CONTE  MS. 


339  3 
08  99 
0 P9  ' 
0894 
3897 
339“ 
0899 
:9o  ' 
3911 
0902 
'••90  3 


REF  1 

PEF  479  LAST  102  7 
REF  476  l AST  1028 

REF  2 LAST  1028 
REF  2 In  LAST  1027 
REF  4 7 7 LAST  1C28 

RFF  478  LAST  1028 
R F F ?f  8 I A ST  1027 


7 HO  5«  135  1 
7331  C 0C06  1 
73??  7 0155  1 

7133  52  155  1 

7334  0 0006  1 

7335  7 1 1 c'  1 

7?36  3 C0C1  0 

7337  26  154  0 

7340  C CCC6  1 

7341  2 L5! 

7 34?  0 000?  0 


DMPNSUB  TS 

EXTEND 

MP 

DXCH 
EX  T EN  0 
MP 
CA 
AOS 

t XTEND 

OCA 

TC 


3MPNTF  MP 

MPAC  *1 
MPAC 

OMPNTEMP 

l 

MPAC 

MPAC 

0 


LOW  PRODUCT  TO  VPAC,  HIC-H  FACTOR  TO  A 

COMPLETING  THE  PRODUCT  IN  MPAC 
BRINGING  THE  PRODUCT  INTO  A ANO  L 


GAP:  ASSEMBLC  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L INTERPRETER 

PD|pI4  M ISCEl  I ANEOUS  VECTOR  OPERATIONS.  INCLUDED  HERE  ARE  THE  FOLLOWING: 


R0905 

3 

R3907 
R0903 
R 0909 
R091O 
R 091 1 


6 

7 


CP  VECTOR  DOT  PRODUCT. 

DP  V^CTCR  CROSS  PROCUCT  . 

DP  VECTOR  TIMES  SCALAR. 

CP  VECTOR  C IV  IDE  i:  BY  SCALAR. 

DP  VFCTCR  PROJECTION.  ( (MPAC.X)MPAC  1 
CP  VECTOR  POST-MIL  T I PL  I ED  BY  MATRIX. 

DP  VECTOR  PRE-MULT  IPL  I ED  BY  MATRIX. 


391? 
091  3 
0914 


REF  l 

PFF  20  8 LAST  102  7 
RFF  ? LAST  1C10 


7 3 A 3 C 7166  1 DOT 

7344  3 4755  1 DMODE 

7345  1 6072  0 


TC.  PREDCT 

C AF  Z FRO 

TCF  NEWMODE 


<■'915 
091  h 
39  1 7 


RFF  64  LAST  10  26 
RFF  6 LAST  99 

REF  L 


7 346  2 47  5 2 0 M XV 

7347  54  140  0 

7350  1 7354  0 


CAF  TWO 

TS  MAT  INC 

TCF  VXM/MXV 


09lR 
09  19 
3927 


REF  7 LAST  475 
PFF  7 1 AST  1C29 

REF  16  LAST  797 


7351  4 4363  1 VXM 

7352  54  140  0 

7353  3 6254  1 


CS  TEN 

TS  MAT  INC 

CAF  SIX 
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DO  THE  DOT  PRODUCT  AND  EXIT,  CHANGING 
THE  MODF  TO  DP  SCALAR. 


SET  UP  MAT  INC  AND  CCT  INC  FOR  ROW 
VFCT3RS. 

GO  TO  COMMON  PORT  ION . 


SET  MATINC  AND  DOTINC  TC  REFER  TO  MATRIX 
AS  THREE  COLUMN  VECTORS. 


i AP : ASSEMBLE  REVISION  56  UF  AGC  PROGRAM  I ERL  INA  0V  701 1ASTE3 


I '/TE  RPP  E TER 


P1921 


CCHMON  PORTION  OF  MXV  AND  V X«  . 


0922 
R19 2 < 
ro?* 


REF 


PEF 


7 IAST  1029  7159  54  139  1 VXM/MXV  TS 

!TPACF  (2)  REFFRS  TO  "VXM/MXV". 

1 7355  C 7599  0 TC 


1>3T  INC 
MPAC  VBUF 


C 9 ?5 
1926 
C927 
092P 


9930 

0731 
f 932 
0933 

1939 

9935 

C037 


RFF  1 

REF  38 

PEF  479 
OFF  13 

REF  39 
RFF  989 

OFF  90 
OFF  *81 
RFF  0 

OFF  58 


LAST  1 r 2 6 
LAST  1C?  8 
LAST  ooc. 

LAST  1030 
L AST  1 1 

LAST  1030 

'•il 

I A ST  1079 

1 AST  If  25 


7359  C 7170  » 
7757  C 0CC6  1 

7360  3 0 123  1 

7361  5 2 155  1 

7 3ft  2 52  1?9  0 

73 A3  C OOOA  1 

7369  3 0125  1 

7365  52  160  1 

7366  0 0006  1 

7367  3 0127  O 

7370  52  162  9 

7371  3 ' 1 1 9r  1 

7-372  2 A 116  0 


TC  DOT  SU8 

E X TEND 
OCA  VBUF 

DXCH  MPAC 

0 XC  H B UF  2 

FXT  END 

DC  A VBUF  «-2 

DXCH  «PAC  +3 

EXTEND 

DC  A VBUF  +9 

DXCH  MPAC  + 5 

CA  MAT  INC 

ADS  AODRWD 


099  1 

139? 

0993 

0999 

0945 

C996 


REF 

RTF 

RFF 

RFF 

PEF 

RFF 

PEF 

REF 

RTF 


9 1 

482 
4? 

483 
43 

484 


l A S T 1030 
LAST  1 
LAST  1939 
LAST  IC30 
LAST  10  30 
IASI  103 
LAST  1C3  C 
LAST  i 1 
' - : l 


7 400 
74C1 
790  2 
7993 


C 7170 
52  123 
52  155 
5?  125 
52  160 
52  127 
52  162 
2 0190 
26  1 1 A 


0 

0 

1 

0 

1 

1 

0 

1 

0 


TC  DUTSUB 

DXCH  VRUF 

DXCH  MPAC 

DXCH  VBUF  +? 

DXCH  MPAC  +.3 

DXCH  VBUF  +9 

DXCH  MPAC  +5 

CA  MATINC 

ADS  AODRWD 


1947 
094  8 
0999 
1951 
C951 
9952 
0953 


PEF  3 I AST  1030 
PEF  14  LAST  1039 
REF  485  LAST  1C30 
RFF  48A  l AST  103p 
RFF  44  LAST  1030 
RFF  487  LAST  1930 
RFF  1 A LAST  1021 


74C4 
7 40  5 
7406 
7 40  7 
7910 
741  L 
74  12 


C 7170  0 
5 2 139  r. 
52  155  1 
162  0 
52  125  9 
5?  160  1 
1 6C  7 3 1 


TC  DOTSUB 

DXCH  BIJF2 

DXCH  MPAC 

DXCH  MPAC  + 6 

DXCH  VBUF  +2 

DXCH  MPAC  +3 

TC  F 1ANZI5 


9:12  OCT.  2 


PAGE  1030 


1 ,1970  SKI  PPER  .121 


USER'S  PAGE  NO.  38 


E3  S3 


SAVE  VECTOR  IN  MPAC  FCP  FURTHER  USE. 

GO  DOT  TO  GFT  X COMPONENT  OF  ANSWER. 

MOVE  MPAC  VECTOR  BACK  INTO  MPAC,  SAVING 
NFW  X COMPONENT  IN  BUF2 • 


INITIAL  I7F  ADORWD  FOR  N F XT  DOT  PRODUCT. 
FORMS  BASE  ADDRESS  OF  NFXT  COL  UMN ( POW  ) . 


MOVE  GIVEN  VECTOR  BACK  TO  MPAC,  SAVING  Y 
COMPONENT  OF  A N SWF  R IN  VBUF  4-2. 


FORM  AODRESS  OF  I AST  COIUMN  OR  ROW. 

ANSwIlJ  NOW  COMPLETF.  PUT  COMPONENTS  INTO 
PROPER  MPAC  1EGISTEPS. 


EXI  T. 


'•'VP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


I NTI  RPP.E  TER 


P09  5A 


vxsr  - VECTOR  TIMES  SCALAR. 


0955  RFF  2?  LAST  1023 

OOA*  RFF  1 

0957  REF  2 LAST  IfJ 3 T 


7413  1C  1 63  1 VXSC 
74  14  l 7442  0 
7 A 1 5 1 7442  0 


CCS  MODE 

TCF  DVXSC 

TCF  DVXSC 


( 960 

0961 

0952 


REF  5 LAST  1026 
REF  1 

RFF  689  LAST  1030 
REF  689  I AST  1 " "•  1 
REF  49C  L AST  1c3  1 


7 A l 6 
7 A 17 
7 A 20 
7 A 2 1 
7 A 2 2 


52  160 

52  155 
'2  160 


0 

1 

1 


VVXSC 


TC  DNPSUB 

TC  V ROUND 

DXCH  M P AC  + 

DXCH  M P AC 

pxch  mpac  ♦: 


0063 

3964 

C965 

0066 

•<967 


PFF  6 
RFF  ? 
REF  A9 1 
RFF  AO? 
RFF  A9  3 


LAST  1031 
IAST  1031 
LAST  IQ-3 1 
I AST  IC31 
I AST  1031 


7A23 
7 A ? A 

7425 

7426 


52  162 
52  155 
52  1(7 


0 

0 

l 

0 


TC  DM  PS  UR 

TC  V ROUND 

DXCH  u PAC  4 

DXCH  MPAC 

DXCH  MPAC  ♦' 


(968 

0069 

097' 

0971 
D 9 7 ? 

0973 

0974 


RFF  7 LAST  1031 
REF  > L A S T 10  3 1 
REF  494  LAST  1f> 3 1 
PFF  495  IAST  1031 
REF  406  I AST  103 1 
PEF  497  LAST  1 o?  1 
REF  17  LAST  1C30 


7 A 30  0 7 121  1 

7 A ? L C 715?  0 

7432  52  155  1 

7433  5?  16?  0 

7434  52  16C  1 

7435  52  155  1 

7436  1 6073  1 


TC  DM  P SUB 

TC  VRCUND 

VROTA  TEX  DXCH  MPAC 

DXCH  MPAC  *' 

DXCH  MPAC  43 

DXCH  MPAC 

TCF  DANZIG 
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TF  ST  PRE  SENT  MODE. 

SEPARATE  ROUTINE  W FEN  SCAI  AP  IS  IN  MPAC. 


COMPUTE  X COMPONENT 
AND  ROUND  IT. 

PUT  Y COMPONENT  I NTC  MPAC  SAVING  MPAC  IN 
MPAC  +3. 


DO  SAME  FOR  Y AND  Z COMPONENTS. 


EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 
TYPE  OF  ROTATION.  CALLED  BY  VECTOR  SHIFT 
RIGHT,  V/ SC,  ETC. 


ASSEMBLE  REVISION  56  Of  AGC  PROGRAM  7ERLINA  BY  ZORUA  STEP 


I nterpretfr 

OP  VECTOR  PROJECTION  RCCTI  NF. 


0976 
097  7 
3978 


LAST  If  29 
LAST  912 
LAST  1030 


7 A 37 
7A4C 
7 A A 1 


C 7 1 66 
A A751 
26  116 


TC  PREOOT 

CS  FOUR 

AOS  AODHWO 


VXSC  WHEN  SCflLAA  ARPlVFS  IN  MPAC  AND  VECTOR  IS 


1980 
7981 
098? 
0983 
f 98i 


RTF 

RTF 

RFF 

REF 


LAST  10  7 1 
LAST  1 03? 
I A ST  m3  1 
LAST  IP  3 1 


0 0006  1 OVXSC 
3 olcc  c 
52  160  1 
C 7121  1 

0 7152  0 


EXT  END 

OCA 

OXCH 


MPAC 
MPAC  *■  3 
DMPSUB 

VP  0 UNO 


C 985 
3 936 

09R7 

0988 

3989 
f 990 
0991 

09°? 


REF  61 

RFF  500 
PFF  5 3 1 
RFF  502 
REF  9 

PFF  5 


LAST  1^3  2 
LAST  103  2 
LAST  1032 
LAST  1032 
LAST  1032 


3 A 752  0 
? 6 116  0 
0 00C6  l 
3 0160  0 
52  155  1 
52  162  0 
C 7121  1 
C 7152  0 


CAP  TWO 

AOS  AODRWD 

FXT  END 

OCA  MPAC  +3 

l)XCH  MPAC 

UXCH  MPAC  +5 

TC  DMPSUB 

VPOUNO 


TC 


0903 

399A 

0995 

0996 

0997 

0998 
3939 


PFF  H- 
REF  62 
PFF  503 
REF  506 
RFF  505 
PFF  10 
RFF  6 


I AST  1 12 
LAST  1)32 
LAST  If.  3 2 
I AST  1032 
LAST  103? 


7 66.2 
766? 
7666 


52  160  1 
52  155  1 

52  u<  1 

0 7121  1 
0 715?  0 


CAF 

ADS 

DXCH 

DXCH 

DXCH 

TC 

TC 


TWO 
AOORWD 
MPAC  +3 
MPAC 
MPAC  * 3 
DMPSUB 
V POUND 


1 000 

10C1 

1 3 J 2 


RFF  506 
ftf  5c 7 
PFF  508 


LAST  1032 
I A ST  1032 
I AST  IP  12 


7A66 
7A67 
7 670 


52  155  1 
52  162  0 

5:  15C  1 


DXCH 

DXCH 

DXCH 


MPAC 

MPAC 

MPAC 


71  l 6533  0 


VMODE 
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(PPAC.X1MPAC  IS  COMPUTEC  ANO  L EET  IV 
MPAC.  DO  DOT  ANO  FAIL  INTO  D VX  SC . 


SAVE  SCALAR  IV  MpAC  +3  AND  GET  X 
C CM  PONE  NT  OF  ANSWFR. 


AOVANCE  AODRWO  TO  Y COMPONENT  OF  X. 


PUT  SCALAR  BACK  INTO  MPAC  AN|)  SAVE 
X RESULT  IN  MPAC  +5. 


TO  Z COMPONENT . 

BRING  SCALAP  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACE. 


PUT  Z COMPONENT  I N PROPER  PLACE,  ALSO 
POS  IT  IDN  ING  X. 


MODF  MAS  CHANGED  TO  VECTOP, 


SAP:  ASSEMBLE  HE  VI  SI  ON  56  OF  AGC  FRCGRAM  Z6RLINA  8Y  ZOROASTER 
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P 1 004  THF  VECTOR  CROSS  PRODUCT  ROUTINE  CALCULATES  ( X M - X M ,X  M -X  M ,X  M -X  M ) WHERE  M IS  THE  VECTOR  IN 

RIOC'6  32  23  13  31  21  12 

RIDjB  MP  AC  AN  0 X THE  VECTOR  AT  THE  GIVEN  ADDRESS. 


100*3 

131? 

ion 


U 1? 

ni3 


RCF  509  LAST  1032 
PFF  5 1 0 LAST  1933 
REF  45  LAST  1030 
RFF  11  I AST  1932 


74  72 

7473 

7474 

7475 

7476 


C 0006  1 
2 01(2  l 
52  155  1 
52  123  0 

C 7121  1 


VX  V 


EX  T EN  D 
DC  A 
0 XCH 
DXCH 
TC 


M P AC  +5 
MPAC 
VBUF 
DMPSUB 


FORM  UP  Mix  1 , LEAVING  Ml  IN  VBUF. 


I'M  4 

r is 
i,  is 
101  7 
1315 


REF  511  1 AST  1033 

REF  512  I AST  10 3 3 
RIF  46  LAST  1^33 
REF  12  LAST  1033 


7477  0 0006  1 

7500  4 0160  1 

750  1 5 2 155  1 

7502  52  125  0 

75C3  C 7121  1 


EXT  END 

DCS  MPAC  +3  CALCULATE  -X1M2,  SAVING  X1M3  IN  VBUF  * 2 . 

DXCH  MPAC 
OX  CH  VBUF  +2 
TC  DMPSUB 


10lo 

10  21’1 

1321 
1 22 
123 
1 f 2 4 
10  25 


6 7 LAST  19?  2 
63  LAST  1032 


PFF  513  LAST  1033 
RCF  514  LAST  1033 
RFF  515  LAST  ID  3 3 
REF  13  LAST  1033 


7504  3 4752  0 

7505  26  116  0 

7506  0 00C6  1 

7507  4 0162  0 

7510  52  165  1 

7511  511620 

7512  0 7121  1 


CAF  TWO 

AOS  AODRWD 

E XTEND 

DCS  MPAC  +5 

DXCH  MPAC 

DXCH  MPAC  *5 

TC  DMPSUB 


ADVANCE  ADDPWD  TO  X2 . 


PREPARE  TO  GET  -X2N3,  SAVING  -XI  M2  IN 
MPAC  +5. 


1?-§T 

10  28 
19  29 
1030 


RFF  47  LAST  1033 
PFF  516  LAST  1033 
RFF  48  LAST  1033 
RFF  14  LAST  10?3 


751  4 
751  5 

7516 

7517 


C 0006  1 
3 0123  1 
52  155  1 
Si  127  1 
0 7121  1 


EXTEND 

OCA  VBUF  GET  X2M1  , SAVING  -X2  M3  IN  VBUF  +4. 

DXCH  MPAC, 

DXCH  VBUF  +4 
TC  DMPSUB 


1033 

1334 

1-035 

1036 


RFF  68  LAM  1013 
REF  64  LAST  10  3 3 


REF  4Q  LAST  1033 
REF  5 1 7 LAST  1C  3.3 
REF  518  LAST  1C33 


7621  2(  116  C 

7522  C 0006  1 

7523  4 0123  0 

7524  52  155  1 

7525  20  162  0 


CAF  TWO  ADVANCE  ADORWD  TO  X3. 

ADS  ADDPWD 
EX  T EN  D 

DCS  VBUF  GET  -x3m1,  ADDING  x2m1  TO  MPAC  *5  T3 

DXCH  MPAC  COMPLFTE  THF  7 COMPONENT  OF  THF  ANSWER. 

DAS  MPAC  +5 


1 >37 
10  38 
113*3 


REF 


LAST 


7527 
7 5 30 


0 Cl C6 

1 7531 
C 7C23 


fc  XTEND 

BZF 

TC 


+ 2 

OV  ER  T LW  7 


104  3 
1044 


RFF  15  LAST  103  3 
RFF  50  LAST  1933 
RFF  519  LAST  1933 
REF  5?(  LAST  1033 
RFF  521  LAST  1033 


7531  0 7121  1 

7532  52  125  0 

7533  52  160  1 

7534  52  155  1 

7535  2 C 160  1 


TC  9 MP  SUB 

DXCH  VBUF  +2  MOVE  X 1M  3 Tf)  MPAC  +3  SETTING  UP  FOR  X3M2 

DXCH  MPAC  +3  AND  ADD  -X  3 Ml  TC  MPAC  +3  TO  COMPLETE  THE 

DXCH  MPAC  Y COMPONENT  OF  THE  RESULT. 

DAS  MPAC  +3 


7536  0 OOC  6 1 F XTEND 

7537  1 7541  1 R7.  F +2 


JAP:  ASSEMBLE  REVISION  56  OF 

L INTERPRETER 

1 PA  7 REF  3 LAST  iQlO 


AGC  PROGRAM  ZERLINA  BY 

7540  0 7026  1 


ZOROASTER 
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I l 4H 
1)43 
1 C5r 


Pf-F 
> I F 
PTF 


16  LAST  103  3 
51  LAST  1033 
4 LAST  1P-20 


7541  0 7121  1 

7542  e 2 127  1 

7543  1 70 12  1 


TC  OMPSUB 

OXEN  VBUF  +4  GO  AOO  -x2m3  TO  X 3 M2  TO  COMPLETE  THE  X 

TC  F ENDVXV  COMPONFNT  (TAIL  E NO  OF  DAD). 


R K 51 


THE  MPAC  VH  LF 


SUBROUTINE  SAVES  THE  VECTOR  IN  MPAC  IN  VBUF  WITHflJT  CLOBBERING  MPAC. 


1 OS  3 
K 54 
I -55 
1056 
10  57 
1 *<58 

U 59 
1060 
1 rift  1 
1062 


PFF  5?2 
REF  5? 

REF  523 
RFF  53 

RFF  - 74 
PFF  54 
PFF  760 


LAST  1033 
LAST  1934 

LAST  1934 
LAST  1934 

LAST  1034 
LAST  1 o 3 4 
LAST  1G28 


7544  0 0GG6  1 

7545  3 0155  U 

7546  *1  123  0 

7547  0 9006  1 

7550  3 0160  0 

7 c c 1 *2  125  0 

7552  0 0006  1 

7553  2 9 1 62  1 

7554  52  127  1 

7555  0 9002  0 


MPACVBUF  EXTEND  CALLED  BY  MXV,  VXMT  AND  UNIT. 

DCA  WP AC 
DXCH  VBUF 
FXTEND 

OCA  MPAC  +3 
DXCH  VBUF  *2 


EXTENO 

DCA  MPAC  +s 

D XC  H VB  UF  ♦ 4 

TO  0 RF TURN  TO  CALLER. 


«l)63 


DOUBLE  PR  EC  I SI  1 SIGN  AGREE  ROUTINE.  ARRIVE  WITH  INPUT  IN  A+L.  OUTPUT  IS  IN  A ♦ L . 


1065 
1 66 

1 '67 
IT  68 
1069 


REF  )?>  LAST  1027 
RFF  1 

REF  270  L AST  1034 
RFF  1 

KEF  271  LAST  1)34 


7556  10  000  0 

7557  1 7563  1 

7560  C OCO 2 0 

7561  1 7573  0 

7562  C CCC2  0 


A I SIGN  AG  CCS  A 

TCP  IIPPOS 

TC  Q 

TCF  JPNEG 

TC  0 


TEST  UPPER  PART. 
IT  IS  POSITIVE 

ZERO 

NEGATI VE 
ZERO 


1070 

1071 
1 ' 7? 
1 73 
10  74 
1075 
1^76 
1)77 


REF  217  LAST  1C ?B 
RFF  24  LAST  914 
PFF  25  I AST  1034 
REF  321  LAST  I 334 

PFF  9lB  LAST  1034 
PEF  219  LAST  1034 
PFF  272  LAST  1134 


7563  56  001  0 

7564  6 4736  1 

7565  6 4736  1 

7566  54  000  0 

7567  1 7571  1 

7570  24  0C1  0 

7571  56  001  0 

7572  C 0002  0 


UPPOS 


XCH  L 

AD  HALF 

AD  HALF 

TS  A 

TCF  +2 

! NCR  L 

XCH  L 

TC  0 


SAVF  DECREMENTED  UPPER  PART. 


SKI  PS  ON  OVERF  LOW 

RESTORE  UPPER  TO  RC  I G INAL  VALUE 
SWAP  A ♦ L BAT.  K. 


1078 
1 179 
1080 
1081 
' 

1 ORl 


1 084 
l . 85 
1 086 


PFF  220 
PEF  5 
REF  8 
PFF  32? 


LAST  10)4 
LAST  914 
LAST  10)5 
LAST  1034 


RFF  221  LAST  1C'34 
PFF  222  LAST  1034 

REF  273  LAST  1034 


7573 

7574 

7575 
7676 
7577 

7600 

7601 
76C2 
7603 


56  001  0 

6 4735  1 
6 7 7 6 1 0 
54  00)  f 
I 76C 1 0 

24  on  0 

56  001  0 
4 CCCO  0 
0 0002  0 


UPNEG 


XCH  L 

AO  NEGMAX 

AD  NEGDNE 

TS  A 

TCF  +2 

I NCR  L 

XCH  L 

COM 

TC  0 


SAVF  COMPLEMENTED  + DECREMENTED  UPPER  PT 

DONT  INCREMENT  IF  NO  OVERFLOW. 

MAK  E NEGAT  IVE  AGA  IN  . 
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INTERPRETIVE  INSTRUCTIONS  WHOSE  EXECUTION  CONSISTS  OF  PRINCIPALLY  CALLING  SUBROUTINES. 
LAST  103A  7 60  A C 7121  1 DMP1  TC  DMPSIJB  OMP  INSTRUCTION. 


1 OPl 

109? 

1093 


RFF 

REF 

REF 


LAST  103S 
LAST  1035 


7606 

7607 
76 1 C 


0 7121  1 

0 7151  0 

1 6C7-0  1 


OMP  SUB 

POUNDSUB 

DANZIG 


1 09A 

1095  REF  65  I A ST  1033 
1 096 

1097  RFF  2 LAST  1002 


7611  C 0006  1 
761?  5 0116  1 

76  13  3 OCCl  0 

76 1A  1 7621  1 


REV 


EXTEND 

INDEX  ADDRWD 

DC  A 0 

TCF  ft  DRV  + 4 


MOVE  DIV  IDEND  INTO  BUF. 


IT" 
11  1 
1 102 
1 T'3 
11'. 
1 105 


RFF  66  LAST  1035 

RFF  525  L AST  103A 
PFF  92  LAST  1 02 A 
RFF  209  LAST  1029 
PEF  21  I AST  10 1 5 
RFF  2 LAST  817 


7616 
761  7 
762C 

7621 

7622 
76^3 
762A 


3 0001  0 
c 2 155  1 
52  131  0 
3 A755  1 
5A  ..CA  1 
1 2353  1 


BOD  V 


EXTEND 

INDEX  ADDRWD 

DC  A 0 

DXCH  MP  AC 

DXCH  BUF 

CAF  ZERO 

TS  FBANK 

TCF  DOV/PDDV 


MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THF 
0!  VIDEND  , I N BUF. 


DIVIDE  ROUTINES  IN  BANK  0. 


1! 


06 

07 


REF  67  I AST  1035 
PFF  22  LAST  1012 


1108  RFF  l 


7625  3 0116  1 SF  TPO 

7626  5A  166  1 

7627  1 6C75  1 


CA  ADDRWD 

TS  P1JSHL0C 

TCF  NO  I BNKSW 


MUST  SET  TO  WORK  APFA,  OR  FR AN<  TROUBLE. 
NO  FBANK  SWITCH  PEOUIRED. 


I l)i 
111" 

II  1 1 


1035 

03 


76  30  2 A755  1 TSLC 

7631  5 A (04  1 

7632  1 2172  0 


CAF  ZERO 

TS  FBANK 

TCF  TSLC2 


SHIFTING  ROUTINES  LOCATED  IN  PANK  00. 


1112 
1 1 1 1 
1 1 1 A 


REF 

PFF 

REF 


7633  3 6106  0 GSHIFT  CAF  L0W7 

7636  54  C04  1 TS  FBANK 

,7635  1 22  14  0 TCF  GENSHIFT 


USED  AS  MASK  AT  GENSHIFT.  THIS  PROCESSES 
ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  KITH 
AN  ADDRESS  (ROUTINES  IN  HANK  ( ). 


;ap:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERIINA  BV  ZOROASTER 
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L INTERPRETER 


USER'S  PAGE  NO.  44  E3  S3 


1 111* 


THE  FOIL  OWN  3 IS  THE  PROLOGUE  TO  V/ SC.  IF  THE  PRESENT  MODE  IS  VECTOR,  IT  SAVES  THE  SCALAR  AT  X IN  BUE 

AND  CALLS  THE  V/SC  ROIT  INE  IN  RANK  . . IF  THE  PRESENT  MODE  IS  SCALAR,  IT  MOVFS  THE  VECTOR  AT  X INTC  MPAC,  SAVING 

THE  SCALAR  IN  MPAC  IN  EUF  BEFORE  CALLING  THE  V/SC  ROUTINE  IN  BANK  0. 


11  ?H 
1121 
112? 


PEE  23  I AST  1r>3 1 
RFF  1 

PEF  2 LAST  1036 


76C-6  10  1Z3  1 V/SC  CCS  MODE 

7637  1 7650  1 TCF  DV/SC 

76  AO  1 765C  1 TCF  DV/SC 


MOVE  VFC  TOP  INTO  MPAC. 


1123 

1124  PFF  68  LAST  1035 

1 I 25 

1126  REF  93  LAST  1035 

1127  RFF  211  LAST  l r 3 5 

1 12P  PEF  24  I AST  1035 

112«  PEF  1 


7641  C 0C06  1 

7**2  6 Hl«  I 

7643  ? 0CG1  0 

7644  52  131  0 

7645  3 4755  1 

7646  54  GC 4 1 

7647  i 2654  0 


VV/SC 


V/SC  1 


E XTEND 

INOEX  ADDRWP 
OCA  r. 

DXCH  BUF 

CAF  ZERO 

TS  F BANK 

TCF  V/SC  2 


IN  BOTH  CASES,  VECTC°  IS  NOW  IN  MPAC  AND 
SCAl AR  IN  BUF . 


118  PFF  69  LAST  1036 

113? 

1 1 33  REF  526  L AST  1035 

1 1 34 

1135  REF  7 r LAST  1C36 

1136 

1137  RFF  527  LAST  1036 


? 6 SC  C 0CC6  1 
76  SI  5 0116  1 
7652  3 0003  1 

76  5 3 52  1 60  1 

7654  0 0006  1 

7655  5 0 1 16  1 

7656  3 COC 5 1 

7657  52  162  0 


0 v/sr 


6 X TF  NO 
INDEX 
DC.  A 
DXCH 
EXTEND 
I NDEX 

dca 

DXCH 


A DDR  WD 
2 

MPAC  +3 
ADCRWD 
MPAC  +5 


I 


LAST 
I.  AST 


7660  4 4753  C 

7661  54  163  1 


CS  ONE  CHANGE  MODE  TO  VECTOR. 

TS  MODE 


1140 

1141 
1 14? 

1143 

1144 


REF  71  LAST  1036 

REF  5 28  LAST  1036 
REF  1 


7662 

7663 

7664 

7665 

7666 


C °F’06  1 
c 0116  1 
3 0001  0 
52  155  1 

1 7644  1 


EXTEND 

INDEX  ADDRWD 
DCA  0 

DXCH  MPAC 

TSF  V/SCl  FINISH  PRGLCGU  E AT  COMMON  SECTION. 


GAP:  ASSEMBLE  REVISIUN  r>6  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


P1145  S IGN  ANO  ( 

1146  REF  77.  LAST  1036 

1147 

1148  RFF  20  LAST  1035 

1146 

115"  REF  ? LAST  1004 


IMPLEMENT  INDIRECTIONS. 

7667  50  116  1 SIGN 

7670  10  CCO  0 

7471  1 6073  1 

7672  1 7674  1 

7673  1 77C2  1 


INDEX  ADDRWD 

CCS  ? 

TCF  DANZIG 

TCF  +2 

TCF  COMP 


1151 

115? 

1153 

1154 
1156 

1156 

1157 
1160 
1 1 6Q 


REF  73  LAST  1037 

RFF  21  LAST  1037 
PFF  22  LAST  1037 
RFF  3 LAST  103  7 
RFF  23  LAST  1037 

PFF  52Q  I A ST  1036 
RFF  5 3(  LAST  V37 


7674  50  116  l 

7675  10  001  1 CCSL 

7676  1 6C  7 3 1 

7677  1 6073  1 

7700  1 7702  1 

770  1 1 6073  1 

7702  0 0006  1 COMP 

77C3  4 0155  1 

7704  52  155  1 


INDEX  ADDRWD 

ICS  1 

TCF  DANZIG 

TCF  DANZIG 

TCF  COMP 

TCF  DANZIG 

EX  T EN  D 
DCS  M P AC 

DXCH  MPAC 


1160  REF  25  LAST  1036 

1161  RFF  1 

1162  REF  2 LAST  1037 


7705 

7706 

7707 


1 

0 

0 


CCS  MOOE 

TCF  DCtlMP 

TCF  DCOMP 


1165 
1156 
1167 
1 168 
1 1 6" 


RFF  531  LAST  1d37 
R F T 53?  LAST  1"37 

RFF  533  LAST  10-37 
RFF  534  LAST  1037 
PFF  24  LAST  1037 


7 7 1 C 
77  1 1 

7712 

7713 
77  14 
771  5 

7714 


4 '160  1 
52  160  1 
C 0006  1 
4 0162  0 
5?  16?  0 
1 6C73  1 


EXTEND 

OC  S MPAC  *3 

DX  C H MPAC  +3 

EXTEND 

DCS  MPAC  +5 

OX  CH  MPAC  +5 

TCF  DAN7IG 


1170 
1 171 
117? 


PFF 

PFF 

PFF 


535 
5 76 
25 


LAST  1037 

1 A s r 1 37 

LAST  10  37 


7717  4 0156  1 DCOMP 

772D  64  156  l 

77/1  1 6C  7 3 1 


CS  MPAC  +2 

TS  MPAC  +2 

TCF  DANZIG 


9:12  CCT.  21  ,1970  SKIPPER 
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.121 

USER  'S  PAGF  NO.  45  E3  S3 

CALL  COMP  INSTRUCTION  IF  WORD  A1  X IS 
NEGAT  IV  F NON-Z  ERO  . 

DO  THE  COMPLEMENT  . 


COMPLEMENT  DP  MPAC  IN  EVERY  CASE. 


EITHER  COMPLEMENT  MPAC  +3  OR  THE  REST  OF 
THE  VECTOR  ACCUMULATOR. 

VECTOR  COMPLEMENT. 


SAP:  ASSEMBLE  REVISION  5a  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L 

INTf  RPRE  TFR 

P1173 

THE 

FOLLOWING  SHORT 

SHIFT  COOES  PFU'JIRE  NO  ADDPF  SS  WORT: 

R 1 I 74 

1 . 

SRI  TC  SR4 

SCALAR 

SHIFT  RIGHT. 

P 1 175 

SR  B 

TO  SR  4P 

SCALAR 

SHIFT  RIGHT  AND 

ROUND. 

Rl  1 76 

3 I 

SLl  TC  SLA 

SCAL  AP 

SHIFT  l EF  T. 

» 1 1 77 

4. 

SLIP 

TO  SL4R 

SCAL  Afl 

SHI  FT  l EFT  AND  RnjND. 

; 1 ] 78 

5. 

VSR  l 

Tfl  V SP  8 

VEC TOR 

SHIFT  RIGHT  (ALWAYS  ROUNDS) 

Rl  1 79 

6. 

VS  LI 

TO  VSL3 

VECTOR 

SHIFT  LEFT  (NEVER  ROUNDS). 

<1180 

THE 

FOLLOW!  NG  COOES 

RECUIRE  AN  ADDRESS  WHICH  MAY  PE  INCEX 

Rl  1«  1 

1 . 

SR 

SCALAR 

SHIFT  RI3H  T. 

R 1182 

2. 

SRR 

SCALAR 

SHIFT  RIGHT  ANO 

ROUND. 

R 1183 

3. 

SL 

SCALAR 

SHIFT  LEFT. 

P 11PA 

SLR 

SCAL  AR 

SHIFT  LEE  T AND  ROUND. 

< 1185 

CO 

SHI  FT  RIGHT. 

R113A 

6. 

VSL 

VEC  TOR 

SHIFT  LFF  T.  ’ 

R 1 T 87 

* 1 

IF  THE  ADDRESS 

IS  INDEXED, 

, ANO  THE 

INDEX  MODIFICATION  RESULTS  If 

< 1 1P9 

AB  SOL UTF 

VAlUB  OF 

THE  COUNT 

IS  DONE  I N 

THE  OPPCS  ITE  DIRECT  ION. 

1190 

, 1 1 7 

BANK 

00 

1191 

PFF 

1 

COUNT  * 

Ft/  INTER 

1 1*2 

R E F 

17 

LAST 

1029 

00, 2017 

3 6254  1 

SHORTT  CAF 

SIX 

1 1 93 

PEE 

25 

LAST 

105  9 

, 

7 0020  1 

MASK 

: yr 

I 104 

PFF 

I 1 

LAST 

515 

00,2021 

54  021  0 

TS 

SR 

1 195 

PEE 

26 

L AST 

1038 

CC, 2022 

10  0 20  1 

CCS 

C YR 

1196 

PEF 

1 

30  ,2023 

1 2 1C  1 1 

TCP 

T SSL 

1 107 

OC  ,2024 

00C24  1 

SRODV  DEC 

20 

1 1 98 

REF 

12 

LAST 

1038 

. 

50  021  1 

TSSR  INDEX 

SR 

1199 

REF 

61 

LAST 

9r>2 

00,2026 

3 4736  1 

CAF 

BIT  14 

1 2?  J 

REF 

14 

L AST 

1027 

CC, 2327 

54  135  1 

TS 

MP  TE  MP 

1201 

REF 

27 

LAST 

103  8 

I ,203 

10  0 20  1 

CCS 

CYR 

1202 

P EF 

1 

: .,"73  1 

0 70  50  0 

RICH  TR  TC 

MP  ACS  RN  D 

1203 

PEF 

A 

L AS  T 

IQ  29 

00, 2q  3 2 

1 6C  7 2 0 

TC  F 

NE  WMODE 

1204 

PEF 

15 

LAST 

1038 

)(  ,2  33 

3 0135  0 

MP  ACS  HR  CA 

MPT EMP 

1235 

CC, 2°  3 4 

C CCC6  1 

EXTtND 

1206 

REF 

537 

LAST 

10  37 

00, 20  35 

7 0156  1 

MP 

MPAC  +2 

1 207 

REF 

538 

LAST 

103  8 

CO  ,2 C36 

54  156  1 

♦3  TS 

MP  AC  +7 

1238 

RFF 

16 

L AST 

1038 

00, 2037 

125 

CA 

M P TC  WP 

1200 

. 

C 0006  1 

EXTEND 

1210 

REF 

539 

LAST 

103  8 

CO ,2  G4  1 

7 0154  0 

MP 

MPAC 
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USER  *S  PAGE  NO.  46  E 3 S3 


NEGATIVE  SHIFT  COUNT,  A SHIFT  OF  THE 


SCALAR  SHORT  SHIFTS  COM E HERE.  THE  SHIFT 
COUNT-1  IS  NOW  IN  fl TTS  2-3  FF  CYR.  THE 
POUNDING  BIT  IS  IN  BIT1  AT  THIS  POINT. 


SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRED. 
SHIFT  LEFT. 


MPT  EMP  SETTING  FOR  SP.  BFFDRF  DDV. 
GET  SHIFTING  DIT. 


SEE  IF  A POUND  IS  DFSI  RED. 

YES  - SHIFT  RIGHT  AND  POUND. 

SET  MODE  TO  DP  <C( A)  = 0 ) . 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 


(EXIT  FROM  SORT  AND  ABVAL). 


SHIFT  MAJOR  PART  INTO 


i L AND  PLACE  IN 


GAP:  ASSEMBLE  RE  VI  SI  ON  56  QF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


1211 
1212 
1211 
1 21  A 
121s 
1216 


PFF  223 
REF  641 
PEF  26 


LAST  1034 
LAST  1039 
LAST  10  3 7 


00  »2A45 
0 C , 2 0 4 6 

. 


52  155  1 
2 0135  0 
0 0006  1 

7 0001  1 
20  156  1 
1 6C  7 3 l 


OXCH  MPAC 
CA  MPT  EMP 

E XTENO 
MP  L 

OAS  MP  AC  4-1 

TCF  DANZIG 


MPAC  SHIFT  RIGHT  ANC  RCUNC  SU8RCUT INES. 


1220 

1221 

1222 

1223 

12?'. 

1225 


REF  54? 

REF  10 

REF  543 

REF  19 
RFF  546 
RFF  225 


LAST  103  9 

1 A ST  1039 
LAST  1039 

LAST  1039 
i AST  I l" 
LAST  1039 


. 

K.  ,7051 
Cf.  ,2052 
00 , 2n 5 3 
00  ,20  54 
00,2  J55 
00,2056 
GO  ,2057 


3 0156  0 
0 0006  l 
7 C 1 3 5 1 
56  155  0 
C 0006  1 
7 0135  1 
56  155  0 
6 0001  0 


MPACSRND  CA  MPAC  +2 

EXT  END 

MP  MPT  EMP 

XCH  MPAC  4-1 

EXTEND 

MP  MPTFMP 

XCH  MPAC  4 1 

AD  L 


1226 

1227 

122R 

122o 


RFF  545  LAST  1039 
REF  566  LAST  1o39 


00,20  60  6 0000  1 VSHR  2 

•"'0f?061  54  156  1 

CC,’062  1 2 C 64  0 

00,2063  26  155  1 


DO  UBLE 

TS  MPAC  4-2 

TCF  4-2 

ADS  MPAC  4 l 


123 

1231 

123? 

1233 

1234 

1235 

1236 


' r F 
P EF 
RFF 


PEF 
l M 
REF 


21  ? 
547 
54R 


20 
54  9 
2 74 


LAST  1036 
L AST  1039 
I As  1 1 039 

LAST  1039 
EAST  1 '39 
LAST  1034 


00,2064 
< 0, 2C65 
00,2066 
. '06  7 
CC, 2C7U 
,2071 
. 


3 4755  1 
54  156  1 
56  154  1 
0 0006  1 
7 0135  1 
20  155  1 
C 0002  0 


CAF  ZERO 

TS  MPAC  4-2 

XCH  MPAC 

EXTEND 

MP  MPTEMP 

DAS  MPAC 

TC  0 


12  37 
123R 
1239 


1241 

1242 


REF 

REF 
Ri  1 
PFF 
RFF 


21 

550 
55  1 
225 
l 


LAST  10  39 

LAST  1039 
LAST  H39 
LAST  1039 


00, 2073 
09  ,2074 
CC, 2C75 
. 

CO ,2  C 77 
OC, 2100 


: 0135  c 
0 0006  1 

7 0155  l 
54  155  l 
56  001  0 

1 2060  1 


VSFR3N0 


CA  MPTEMP 

EXTEND 

MP  MPAC  4-1 

TS  MPAC  4 l 

XCH  L 

TCF  VSHR2 


: 12  OCT.  21,1970  SKIPPER  .121  PAGE  1039 
USER'S  PAGE  NG.  47  E3  S? 

MPAC  ,4-  L. 

ORIGINAL  C1MPAC  4-  1 ) . 

GJARANTEFD  NO  OVERFLOW. 


WE  HAVE  TO  DO  ALL  THRFE  MIJI  T IPL  I ES  SINCE 
MPAC  +1  AND  MPAC  4 2 MIGHT  HAVE  SIGN 
DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  1. 


TRIAL  MINOR  PART. 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 
AND  ROUND. 

GUARANTEED  NO  OVERFLOW. 

SETTING  TO  ZERO  SO  FCLLCWING  OAS  WORKS. 

AGAIN  NO  OVERFLOW. 

ENTRY  TC  SHIFT  RIGHT  ANC  ROUND  MPAC  WHEN 
MPAC  CONTAINS  A VECTOR  COMPONENT. 

GO  ADD  ONE  IF  NECESSARY  AND  FINISH. 


GAP:  ASSEMBLE  KEV  IS  lUN  56  3F  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


P1243 


ROUTINE  FOR  SHORT  SCALAR  SHIFT  LEFT  (AND  MAYBE  ROUND). 


13 

2? 


V 38 
1 CIS 


C A 
TS 


I 246 
1247 
124P 

1249 

1250 
1 2 S 1 
12  52 
1253 

A]  254 

1255 

1256 


REF  55? 
PEF  55’ 
PEF  554 
RFF  555 
PEF  556 

REF  6 

REF  23 
REF  ? 


LAST  1 39 
LAST  1 19 
LAST  1340 
LAST  104C 
L AST  109 

LAST  1024 

LAST  1040 
LAST  1038 


00,210  3 
f r ,?1C  4 
C C » 2 1 C 5 
00,  2106 
*210  7 

:c, 2tl  ) 

. ill 

00,2112 

, ' l 

00,2114 


0 0006  1 
3 0 156  0 

2 C 156  1 
t 0154  1 
6 0154  1 
54  154  C 
1 2113  1 
54  121  1 

10  135  1 
1 2102  1 


♦ 2 EXTEND 

DCA  MPAC  +1 

OAS  MPAC  *1 

AD  MPAC 

AD  MPAC 

TS  MPAC 

TCF  *2 

TS  OVFIND 

CCS  HP  TEMP 

TCF  TSSL  +1 


1257  PEF  2p  LAST  19*8 

1258  PEF  2 LAST  1035 

125R  RFF  27  l AST  1035 

1260  REF  28  LAST  1040 


00,  21  15  10  02o  1 

00,2116  0 7150  1 

00,2  117  1 6C73  1 

JU » 2 123  1 6073  1 


COS  C YR 

ROUND  TC  ROUNDSU 

TCF  DANZIG 

TCF  DANZIG 
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Gfc  T SHIFT  COUNT  F CR  SR. 


F N'T  PY  H F PE  FROM  SI  FOR  SCALARS. 
SHIFTING  It  F T ONE  PLACE  AT  A TIME  IS 
FASTER  THAN  DOING  TEE  WHOLE  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 
SHIFT  COUNTS  GOES  DOWN  PAPIOLY  AS  A 
FJNCTION  OF  THEIR  MAGNITUDE. 

OVERFLOW.  (IFAVFS  nVERFLOW-CORR  EC  TED 
RESULT  ANYWAY). 

LOOP  ON  DECREMENTED  SHIFT  COUNT. 


SEE  IF  ROUND  WANTED. 

YES  - ROUND  AND  F XI T. 

SL  LEAVES  A ZERO  IN  CY  R FOR  NO  ROUND. 
NO  - E XI  T I MMEDI  ATL 


.AP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZFRLINA  BY  ZOROASTER 


I NT  ERPRET  ER 

VFCTOR  SHIFTING  ROUTINES. 


126,? 
1 2 3 
1 26  A 

1265 

1266 
1267 


REF 

REF 

REF 

REF 

P.FF 


CO,  2 121 

. 1 

OC  ,212^ 

, 

00,2125 

00,2126 


3 47  57  C SHCRTV 
7 0020  1 
54  115  1 
1C  C20  1 
1 2 145  1 
00176  1 CCT176 


CCS 

TCF 

OCT 


L0W3 
: YR 

MPTFMP 
CYR 
V SSL 
1 76 


126R 
1264 
12  70 
12  71 


REF 

PFF 

REF 

PFF 


I AST  1 > 4 1 
IASI  1038 
I AST  104 1 


00, 2 127 
or.  ,2130 
, *131 
. I ' 


50  135  0 
3 4736  1 
54  135  1 

0 2c  7 3 l 


HP  TF  MP 
P IT  14 
H PTE  HP 

VSHRRND 


REF  557 
REF  558 
PFF  554 
ft  FF  2 


LAST  1C4C 
I AST  104  1 
LAST  1041 
I AST  1041 


. I 

. 1 i 

, 

00,2  136 


OX  CH 
0 XCH 
DXCH 


MP  AC 
HP  A.C  +3 
UP  AC 
VSHRRND 


REF  56T 
REF  561 
REF  562 
RFF  3 


FAST  104  1 
LAST  1041 
LAST  1041 
LAST  104  1 


■ ' 

00  ,214'. 

. 141 

. 14: 


51  1 c 5 1 

52  162  0 
52  155  1 
C ?C  73  1 


D XCH 
DXCH 
0 XCH 


MP  AC 
8 P AC  +5 
MP  AC 
VSHPR  ND 


00,2  143  1 7432  1 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1041 
USER'S  PAGE  NC.  49  E3  S3 

SAVE  3 BIT  SHIFT  COUNT  - 1 WITHOUT 
EDITING  CYR. 

SEE  IF  LEFT  DR  RIGHT  SHIFT. 

VEC  TOR  SHIF  T LEFT. 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT. 

(ENTRY  FRCM  SR).  PICK  UP  SHIFTING  BIT. 
MPTEHP  CONTAINS  THE  SHIFT  COUNT  - 1. 

SHIFT  X COMPONENT. 

SWAP  X AND  Y COMPONENTS. 

SHIFT  Y COMPONENT. 

SWAP  Y AND  Z COMPONENTS. 

SHIFT  Z COMPONENT. 

RESTORE  COMPONENTS  TO  PROPER  PLACES. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL1NA  BY  ZOROASTER 


L INTFRPRETFR 


>1281 
1 282 


VECTOR  SHIFT  IFFT  - DONE  ONE  PL ■ 
REF  27  LAST  1(J6l  00,2155  5' 


E AT  A T I RE. 
125  1 -1 


TS 


MPTEMP 


l?R5 

12  85 
1286 
1287 
l 288 


PEF  568  LAST 
REF  565  LAST 

PFF  3 LAST 


00  t?  155 
105  1 0C.2156 

1052  00,  2 157 

CO, 2150 
CC, 2151 
1 0?5  00,215  2 


C 0006  1 
3 0156  0 
20  155  1 
C 0006  1 
1 2153  0 
0 7031  l 


VSSL 


EX  T EN  D 

nc  A 
DAS 
EXT  END 
BZF 
TC 


MPAC 

MP  AC 

♦ 2 

OVER  FLOW 


1 ?P8 

12q(. 
1291 
1 ?92 

1?o3 

1295 


PFF  565  LAST  1052 
REF  566  LAST  1052 

PFF  5 LAST  1035 


rf'  . ?1  ‘ 3 
00 ,2  155 
00  ,2155 
OC, 2156 
50,2157 
. 1 < 


2 C 160  1 
C C C 06  1 

1 2161  1 
0 7026  1 


EXTEND 
DC  A 
DAS 

E X TE  NO 

BZF 

TC 


MPAC  +3 
MPAC  +3 

♦ 2 

OV ERFLWY 


I 2*5 

1296 

1297 
1 2 o H 
129Q 
1 331 


RFF  567  LAST  1052 
REF  568  LAST  1C52 

RFF  5 LAST  1033 


0,  2 16  1 
')('  ,?.Vb?. 
CO, 2 163 

30,2  165 
30  ,2165 

rn,  2166 


0 0006  1 
3 0162  1 
20  162  0 

0 0CC6  1 

1 2167  1 
C 7023  1 


E X TE  NO 

OCA  ”PAC  +5 

DAS  MPAC  +5 

E XTEND 
B7F  +2 

TC  OVF  RF  LW  7 


1301  REF  28  LAST  1052  00,2167  10  135  1 

13'  2 RFF  2 LAST  1051  O', 21  70  1 2155  0 

13  3 RFF  29  l AST  105 0 CC,?l7l  1 6C73  1 


CCS  MP  TEMP 

TC.F  VSSL  -1 

TC  F D AN  Z I G 
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SHIFTING  LOOP. 


LOOP  ON  DECREMENTED  SHIFT  CCUNTER. 
EX  IT. 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRL  INA  BY  ZOROASTER 
I NTFRPPF  TER 


i y 7 

i Tor 

1309 

nn 


PEF 

REF 


OC  ,2172 

,2173 

i.C,  2175 


5 A 135  1 
C 6735  0 
1 2176  1 
1 2212  0 


13  LAST  84 3 r ,2176  0 7271  1 


ENOTSLC 
TPAGR  EE 


1314 

1315 

1316 


1317 
l 3 1 R 

1319 

1320 

1321 

1322 


REF 

REF 

P.CF 

REF 

PFF 


RFF 


30 

570 

571 
57? 
573 


LAST  1043 

l AST  1043 
LAST  1 04  R 
LAST  104  3 
l AST  1043 


CC, 2 2C  2 
f o , 2 20  3 
OC  ,2  2 04 
CO,  ? ?C  5 
OC,  ,2206 
00  ,22  0 7 
OC  ,22  10 
• if  ,2211 


24  135 
C OOC 6 
2 J 1 56 
20  156 
fc  0154 
26  154 
6 0000 
54  COO 
1 22C1 


TSLCLOOP  INCR  MPTEMP 

E XTENO 

DC A MP AC  ♦ 1 

OAS  MP  AC  +1 

AD  MPAC 

AOS  MPAC 

TSLCTEST  DOUBLE 
OVSK 

TCF  TSLCLOOP 


° CF  31  LAST  1043 
RFF  1 


CO, 2? 1 2 4 C 1 3 5 1 

CO, 2213  1 6636  0 


ENOTSLC  CS 
TCF 


MPTF VP 

STORF  1 


< 


9:12  CCT.  21  , 
USFR  'S 


GREATER  TI-AN  .5 


1970  SKIPPER 
PAGE  NO.  51 
IN  MAGNITUDE, 


.121  PAGE  1043 
E3  S3 
LEAV  1NG 


START  8Y  ZEROING  SHIFT  COUNT  (IN  A NOW). 
EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZERO. 

STORES  ZERO  SHIR  COUNT  IN  THIS  CASE. 

MAY  CAUSE  UPSHIFT  GF  ONE  EXTRA  PLACE. 

BEGIN  NORMALIZATION  LOOP. 


INCREMENT  SHIFT  COUNTER. 


SEE  IF  (ANOTHER)  SHIFT  IS  RE3UI3E0. 

YES  - INCREMENT  COUNT  AND  SHIFT  AGAIN. 

STORE  SHIFT  COUNT  AND  RETURN  TO  DANZIG. 


*:  12  (XT.  21,  1970  SKIPPER 


PAGE  1044 


ASSEMBLE  REVISION  5t>  CF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
INTERPR  ETER 

THF  FOLLOWING  ROUT  INFS  PROCESSES  THE  GENERAL  SHITT  INSTRUCTinNS  SR, 
THF  GIVEN  AODRESS  IS  DECODED  AS  FCILOWS: 


JSER'S  PAGE  NO.  52 

SRP,  SL,  AND  SL». 


F 3 S3 


-'ll?* 
13?° 
r 1331 
-113.’ 
» 1111 
R 1 3 3 A 
r 13.1s 


"ITS  1-7  SHIFT  COUNT  ( SUBAODP^ SS>  LESS  THAN  125  DECIMAL. 

BIT  8 o SFUfjr  SIGN  FIT  (CFTFCTS  CHANGE  IN  SIGN  IN  INOFXED  SHIFTS). 

SIT  q 0 FOR  LEFT  SHIFT,  AND  1 FOR  RIGHT  SHIFT. 

BIT  10  1 FOR  T F RM  INAL  ROUND  UN  SCALAR  SHIFTS,  0 OTHFRWISE. 

UTS  11-11  C. 

3 IT  14  1. 

BIT  15  0. 


1 1135 


THF  ABOVE  ENCODING  IS  DONE  PY  THF  YUL  SYSTEM. 


1 310 


REE  76  LAST  1037 
PFF  321  LAST  1034 
PEF  1 


00,22  14  7 U 116  0 

j:  ,22  15  ic  ore  o 
CC  » 2 2 1 6 1 2224  C 


GEN  SHI  F T MASK 
CCS 
TCF 


AODRWD  GET  SHIFT  CCUNT,  TESTING  FOR  ZERO. 

A (ARRIVES  WITH  CIA)  = L0W7). 

G6 NSHFT2  IF  NON-ZERO,  PROCEFC  WITH  DECREMENTED  CT 


136, 

1341 

1342 
1341 
134  4 


PFF  38  LAST  932 
PFF  75  LAST  1044 
RET  324  LAST  1044 
RFF  3 LAST  1040 
PFF  V LAST  104? 


03, 2217  3 4742  l 

00,2  22''  7 0116  0 

C 0,  2 22 1 1C  CCO  0 
,■•222  0 7150  1 

>30,2223  1 6073  1 


CAF  3IT10  7ER0  SHIFT  COUNT.  NC  SHIFTS  NEEDED  BJT 

MASK  ADDRWO  WE  MIGHT  HAVE  TO  ROUND  MPAC  ON  SLR  AND 

CCS  A SRR  (SCALAR  ONLY  ) . 

TC  ROUNDSUB 

TCF  DANZIG 


1345 

1346 
134  7 

1348 

1 14<» 
1 353 
1351 
135? 
13  53 
1354 


RFF  32 
RFF  IP 

RFF  76 
RFF  1 
PFF  125 

REF  1 
PFF  1 
RFF  1 


LAST  134  3 
LAST  401 

LAST  1044 

I AST  1044 


00, 2224 
00  ,2225 

. 2 

7 

, 1 1 

00,  223  1 

. 

00,??33 

. 13* 


54  135  1 
3 4744  1 
C 0CC6  1 
7 0116  0 
7 6257  G 
5C  CCO  1 
1 2233  0 
1 2332  0 
1 234?  1 
1 2336  1 


GENSHFT2  TS  MPTEMP 

CAF  RIT8 

EXTEND 

MP  ADDRWO 

M AS  K L OW  2 

I NOE  X A 


TCF  +1 

TCF  RIGHT  - 

TCF  LEFT 

TCF  LFFT- 


DFC  RE  ME  NT  ED  SHIFT  COUNT  TO  MPT  FMP  . 

TFST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 
MPT  FMP  NOW  . 

JUMPS  DN  SHIFT  DIRECTION  (BITS)  AND 

ORIGINAL  SHIFT  DIRECTION  (BIT  9). 
NEGATIVE  SHIFT  COUNT  FOP  SL  DP  SLR. 

SL  OR  SLR. 

NEGATIVE  SHIFT  COUNT  WITH  SR  OR  SRR. 


GAP  : ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


P 1 355 


GENERAL  SHIFT  RIGHT  . 


1356  REF  76  LAST  1037 

1357  RFF  1 

1358  REF  2 LAST  1065 


^ 0 » 2 2 3 6 10  163  1 RIGHT 

Or, 5237  1 2277  0 

00  ,2260  1 2277  0 


CCS 

t:f 

TCF 


MODE 
3 E N SC  R 
GENSCR 


Wll 

1361 

136? 


RFF  33  LAST  1066 
RFF  1 

REF  1 


OC, 2261 
Of,  ,2262 
00,7263 
00, 2766 


3 0135  0 CA  MPTFMP 

6 3733  0 VR  IGHT 2 AD  NEG 12 

C 0006  1 EXTEND 

6 2 127  1 BZMF  VS  SR 


I 363 
1366 

1 365 
1366 
1 367 
1368 


1 369 
1370 
A 1371 
137? 
1373 
1376 
1375 


REF  36 
REF  213 
REF  226 
REF  576 
REF  575 
REF  1 
REF  576 


LAST 
I A ST 

last 

LAST 
1 ACT 
LAST 


1036 
106  5 
10-39 


1039 

1063 
1 ‘ 65 


LAST  1"65 


00  ,2  765  6 776  1 0 

00,2266  56  135  1 

00, 2267  3 6755  1 

00,2250  56  001  1 

CO, 2251  5 t 156  1 

00,2252  56  155  0 

30,2253  0 2272  1 

00,  2256  /(  15*  1 


REF  577  LAST  1065 
REF  578  LAST  1065 
REE  2 LAST  1065 
REF  579  LAST  1065 


00,2255  56  157  1 

00,2256  5 6 160  0 

30,7257  C 227?  1 
C0.226C  2 C 160  1 


AO  NFGONE 

TS  MPT  EMP 

CAF  ZERO 

TS  L 

XCH  MPAC 

XCH  WPAC  *1 

TC  SETROUND 

DAS  MPAC 

XCH  MPAC  +3 

XCH  MPAC  +6 

TC  S FT  ROUND 

DAS  MPAC  +3 


1 3 76 

1377 

1378 

1379 


RFF  580  LAST  1065 
RFF  581  LAST  1065 
REF  3 I AST  1065 
REF  582  LAST  1065 


00,2261  56  161  1 

C G ,2  262  56  162  1 

00, 2263  C 2272  1 
00  ,2266  20  16?  0 


XCH  MPAC  *5 

XCH  MPAC  +6 

TC  SF  TROUND 

DAS  MPAC  +5 


1380 

1381 

1382 

1333 


R EF 
REF 
RFF 


. ' 

jo  ,7267 

. 


MPT  EMP 
Mp  TE  MP 
VR  IGHT 2 
.2976  B- 


REF  31  LAST  1 6 


00,2271  1 6073  1 


1 385 

1 3 86 

1 3R7 
1 383 
1389 


RFF  583  L AST  1 0^-5 
m *16  LAST  1065 
REF  727  LAST  1065 
REF  275  LAST  lC 39 


00,2272 

• 

00  ,2  2 76 
OC, ’275 

00, 2276 


6 0000  1 SETRGUND  DOUBLE 
56  156  1 TS  MPAC  +2 

3 6755  1 CAF  ZERO 

56  CC1  0 XCH  L 

C 0C02  0 TC  Q 
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USER'S  PAGF  NC.  53  E3  S3 


S FE  IF  VECTOR  OR  SCAL  AR  . 


SFE  IF  SHIFT  COUNT  LESS  THAN  16D. 


IF  SO,  8PANCH  AND  SHIFT  IMMEDIATELY. 


IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  1 , 

AND  CO  A SHIFT  RIGHT  ANO  ROUND  BY  K. 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  BIT  ERROR  IN  A SHIFT  RIGHT  15D. 


X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 
ROUNDING  QUANTITY  (0  IN  A AND  0 OR  +- 1 
IN  L). 

REPEAT  THE  ABOVE  PROCESS  FOR  Y ANO  Z. 


NO  OVERFLOW  ON  THESE  ADDS. 


SEE  IF  DONE,  DOING  FINAL  DECREMENT. 


SORT  CONSTANT 


MAKES  JP  ROUND  I NG  QUANTITY  FROM  ARRIVING 
C(A>.  L IS  7ERC  I N IT  I A|  I Y . 


RETURN  AND  CO  THE  OAS,  RESETTING  L TO  0 


AP : ASSEMBLE  REVISION  S6  OF  AGC  PRGCR. 


Z ERL  IN  A BY  ZOROASTER 


INTFRQPETF  R 

PROCESS  SR  AND  SP.R  FOR  SCALARS. 


134! 
13*  ' 
1393 

1 30* 


jj  ,2277 

. 

,2361 

00,2302 


3 ‘.'135  0 GENSCR 
6 3733  0 *1 

C 0006  ’ 

6 232?  0 


rKlSSHFT 


1111 
1397 
139  8 
1300 

1400 

Hr  i 
1402 
l *.  3 
1404 
140*5 
1 436 
1407 
14C  8 
H09 


PEF  10 
REF  J8 
REF  215 
RTF  584 
PFF  585 
PEF  5e6 
REF  3q 
REF  40 
REF  3 

RFF  3« 
RTF  77 
PFF  326 
REF  4 
PFF  32 


I AST  1945 
l AST  1?<.6 
LAST  104  5 
l AST  1045 
I AST  1046 
LAST  1046 
LAST  1046 
LAST  1H6 
LAST  104  5 

LAST  1044 
LAST  1044 
LAST  1044 
(AST  1044 
LAST  1045 


. 

00,2304 

, I i 
CC,  2 306 
00  ,’3C7 

00 , 2 ? 10 

, 

00  ,2312 
CO, 2313 
00,?  314 
, 

. ' 1< 
,2317 
CC  ,2  320 
,2321 


6 7761  0 
5*  135  1 
3 4755  1 
56  154  1 
56  155  0 
54  156  1 
10  135  1 
54  L35  i 
C ?3C0  0 

22650  1 
3 474?  1 

7 01H  0 
10  OOP  0 
C 7150  L 
1 6C  7 3 1 


CAF 

XCH 

XCH 


TS 

TC 

DEC 

CAF 

MASK 

CCS 

TC 

TCF 


NEGONE 
M P TEMP 
ZERO 
HP  AC 
MP  AC  + 
MP  AC  +. 
MPTE  MP 
MPT  EMP 
GF  NSCR 
. 5884 
BIT1  f 
APDRWD 


1410 

1411 

HI  2 

1413 
14  14 

1415 

1416 
HI  7 


PEF 

REF 

PEF 


LAST  1046 
LAST  104  1 
LAST  1046 
I AST  1046 
1 AST  TQ46 
(AST  1046 


CO, 2 12? 

■ 

00,2324 

00,2325 

i 

. 

00,2330 

, 


50  135  0 
3 4736  1 
54  135  1 
3 4742  1 
7 0116  0 
10  000  0 
1 ?031  0 
1 2033  1 


TS 

CAF 

MA  SK 

CCS 

TCF 

TCF 


MPTEMP 
B I T 1 4 
MPTEMP 
BIT1D 
AODRWO 
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SEE  IF  THE  ORIGINAL  SHIFT  COUNT  HAS  LESS 
THAN  140. 

90  THE  SHIFT  I MHEO  I A TE  L V IF  SO. 

IF  NOT,  DECREMFNT  SHIFT  COUNT  BY  140  AND 
SHIFT  MPAC  RIGHT  14  PLACES. 


SEE  IF  FINISHEC,  OC  FINAL  CFCREMENT. 

SOP  T CONSTANT. 

FINISHED  WITH  SHIFT.  SEE  IF  ROUND 
WANTED. 

DO  SO  AND/OR  EXIT. 

PICK  UP  SHIFTING  BIT. 

SEE  IF  TERMINAL  ROUND  DESIRED. 


YFS  . 

JUST  SHIFT  RIGHT, 


iP  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


Pi  41  8 


PROCESS  TFE  RIGHT-  (SL(R)  WITH  A NEGATIVE  COUNT),  LEF 


1421 

H 22 

1423 


REF  43  LAST  1046 
REF  1 

REF  44  LAST  1047 
REF  1 


00  ,2332  4 0135 

00,232’  ( 2126 

00,2334  54  135 

00  ,2335  1 2236 


C 

l 

0 


RIGHT- 


CS  MPT  EMP 

AD  0CT176 

TS  MPTEMP 

TCF  RIGHT 


1424  REF  2 LAST  1047 

1425  REF  45  LAST  1047 

14  26 

1427  REF  46  LAST  1047 


00,2336 
00  ,2337 

. 1 • 

)f  , 2 34  1 


< 2126 
6 0135 

4 CCCO 
54  135 


1 LEFT- 
0 
0 


CS  0CT176 

AO  MP  TEMP 

COM 

TS  MPTFMP 


142  8 
142Q 

1430 

1431 


PFF  27  LAST  1045 

PFF  1 

REF  2 LAS  I 104  7 

RFF  3 I AST  1042 


00, 2343 
00,2344 

. 


10  163  1 
l 2346  0 
1 2346  0 
1 2145  1 


LEFT 


CCS  MODE 

TCF  GE  NSC  L 

TCF  GEN  SC L 

TCF  VS  S L 


14  32 
1 433 
1 434 

1435 

1436 


RFF  7*>  LAST  1046 

REF  43  LAST  891 
REF  31  L AS T 104 1 
RFF  3 LAST  1040 


)0,  2 3/, ft 

,2347 

. 

>0,2351 


4 0116  0 

0 0006  l 
7 4746  1 
54  020  1 

1 2103  0 


GFNSCL 


CS  ADDPWD 

FXT  END 
MP  BIT6 

TS  C YR 

TCF  TSSL  +. 
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AND  LEFT  CPTIONS. 

GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 
UNDERSTANDING  THAT  BITfl  ( P S EUDO-S  I GN  ) 
KA  S 1 I NI  TI  ALLY. 

DO  NORM Al  SHIFT  RIGHT. 


SAME  PROLOGUE  TO  LEFT  FOR  INDEXED  P IGHT 
SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 


SINCE  LEFT  SHIFTING  IS  SONE  ONE  PLACE  AT 
A TIME,  NO  COMPARISON  WITH  14  NEED  BE 
DONE.  FOR  SCALARS,  SEE  IF  TERMINAL  ROUND 
DESIRED.  FOR  VECTORS,  SHIFT  I MMFD  I A TF  I Y. 

PUT  ROUNDING  BIT  (BIT  1C  OF  ADDPWD)  INTO 
BIT  15  OF  C Y?  WHERE  THE  ROUNDING  BIT  OF 
A SHORT  SHIFT  LEFT  WOULD  BE 


DO  THE  SHIFT. 


GAP:  ASSEMBLE  REVISION  66  OF  ASC  PRCGRAM  ZERLINA  BY  l OH  OA  STE  R 

L INTERPRETER 


9:12  OCT.  21,1970  SKIPPER 
USER*  S PAGE  NC.  56 


.121  PAGE  1C48 
£3  S3 


P1437  SCALA»  DIVISION  I N S TR  LC  TI  CNS  . DDV  AND  PODV , ARE  EXECUTED  HERE.  AT  THIS  POINT,  THE  DIVIDFND  IS  IN  MPAC 

R143P  AND  TEE  CIVIS'lR  IN  8UF. 


I A A PFF 
1 AA  1 PEE 
UA?  REF 
1443  PEE 


LAST  1036  0 ,2  353  A A753  0 OOV/BOOV  CS 

,2356  56  136  I In 

00, 2355  ci  1?7  O TS 

00  ,2356  5A  1 AO  0 TS 


ONE  INITIALIZATION. 

OVSIGN  +-1  FOR  POSITIVE  QUOTIENT 0 FOR  NEG. 

TVNORPfT  DIVIOFNO  NORMALIZATION  COUNT. 

MAXDVSW  NEAR-ONF  DIVIDE  FLAG. 


1 AAA  REF  9 A 

1 A A 5 RfF  1 

IAA6 

1 A A 7 RFF  I 


LAST  10  36 


00, 2357 
00,236'' 
00,2361 
Of),  2 162 


1 L 130  1 
l 2516  0 
1 2363  I 
1 2C  3 1 r 


CCS  f'UF  FORCE  8UF  POSITIVE  WITH  THE  MAJOR  PART 

TCF  3UFP0S  NnN-ZERO. 

TCF  +2 

TCF  RUFNFG 


1448 

IAA9 


PFF  5fl7  I AST  1 766 
RFF  16  LAST  1063 


00  ,2363  5 A 156  1 BUFZERO  TS 
00,2364  C 7271  1 TC 


MPAC  +2 
7 PAGKEE 


ZERO  THI  S. 

FORCE  SIGN  AGREEMENT  BEFORE  OVERFLOW 


1A52 
1 A5l 


RFF  588  LAST  1048 
PFF  1 

REF  2 LAST  1068 


00,  2365  1C  1 5 A fi 

'■<r,?A  66  1 2A1  A '■> 

00,  2367  1 2371  1 

00,2370  1 2613  1 


CCS  MPAC  TEST  TO  SEE  IF  MPAC  NCN-ZFRO.  (TOO  BIG! 

TCF  OVF+  major  PART  OF  DIVIOEND  IS  POSITIVE  NON-I 

TCF  2 

TCF  I)  VF  + -1  MAJOR  PART  0=  DIVIOFND  IS  NFG.  NON-ZERO 


1 A 5 A 
I 656 

1656 

1657 
16  58 
1659 
I 663 
16  6 1 


PFF  95 
p E f nr- 
RFF  589 

REF  590 
RFF  97 
P-EF  1 

PFF  1 


LAST  1 CA  8 
L AST  1 'AH 
LAST  lrA8 

LAST  10A8 
LAST  I^AR 


or ,?  371 

, ’37  2 

, 

Cf  , 2 376 
OO, 2375 
00,2376 
OC, 2377 
■)O,2A0  1 


56  131  1 
56  1300 
56  155  0 
c 6 1 5 A 1 
10  130  1 
1 2622  0 
l 2601  1 
1 2616  1 


XCH  RJF  +1 

XCH  3 UF 

XCH  MPAC  +1 
XCH  MPAC 

CCS  3 UF 

TCF  BJF* 

TCF  ♦ 2 

TCF  BUF- 


SHIFT  DIVIDEND  AMD  DIVISOR  LEFT  1 A. 


TRY  AGAIN  ON  FORMER  MINOR  PART. 
OVERFLOW  ON  ZERG  DIVISOR. 


1 A6  A 
l 665 
1 6 66 
166  7 
1668 
1 A 69 
16  70 
1671 


REF  591 


REF  2 
REF  27 
REF  592 
REF  1 
REF  96 
REF  7 
PEF  33 


LAST  10A8 


LAST  10A8 
LAST  1027 
LAST  1 OA  8 

LAST  1068 
LAST  106C 
I AST  10A6 


C0.2A01  A Q15A 
00 , 2A0 2 c 0006 
00  ,2A03  6 2605 

CC.2ACA  26  136 
. \ ? 6733 

00,2406  56  15A 

C0.2AC7  C 2f3n 
00,2610  3 6753 

‘JO  , 26  1 1 - 6 121 

0 0, ? A 12  0 6073 


0 CS 

1 SGNDVOVF  EXTEND 

1 BZMF 

0 1 NC.  R 

1 DVOVF  CAF 

0 TS 

0 TC 

1 CAF 

1 TS 

0 TC 


MPAC 
+ 2 

DVSIGN 
°0  SMA X 
MPAC 
F I NALDV 
3NE 

OVFIND 

DANZIG 


♦ 3 


SIGN  OF  MPAC  DETERMINES  SIGN  DF  RESULT. 


NFGMAX  IN  MPAC  PEP  FAPS  . 

ON  DIVISION  OVERFLOW  CF  ANY  SORT,  SET 
SET  DP  MPAC  TO  +-POSMA  X. 

SET  OVERFLOW  INDICATOR  AND  EXIT. 


1 A 72 
1 6 73 
16  76 


PFF  3 LAST  10A8 
RFF  98  LAST  10A8 
PEF  1 


OC  ,2  A 1 3 2 A 136  0 -1 

0C.2A1A  A 0131  0 OVF  + 
00,2615  1 2402  1 


I NCR  DVSIGN 

CS  0UF  +1 

TCF  SGNDVOVF 


LOAD  LOWER  ORDER  PART  OF  DIVISOR. 
GET  SIGN  OF  RESULT. 


1 A 76 
1 A77 
1 A 78 


RFF  99  LAST  1QA8 
RFF  100  LAST  1048 
REF  4 LAST  1048 


00,2616  0 0006  1 
00, 2 A 17  A 0131  o 

00  ,2420  52  131  0 

CC.2A21  2A  136  C 


BUF- 


FXTCNO  IF  BUF  IS  NEGATIVE,  COMPLEMENT  IT  AND 

DCS  3UT  MAINTAIN  OVSIGN  FCR  FINAL  QUOTIENT  SIGN. 

DXCH  RUF 
I NC  R DVSIGN 


NOW  -0 


GAP:  ASSEMBLE  RF  VI  SION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZGROAST  ER 

L INTERPRETER 


1479 
14  3) 

Hal 
1482 
1 4R1 
14R4 
14B5 

i4  86 
1487 


RFF  1 
RFF  504 
RFF  2 
REF  3 A 
RFF  2 
RFF  35 


LAST  10A  0 


I AST  1049 
LAST  1049 
LAST  1048 
LAST  1D<*9 
LAST  1Q49 


00  ,2422  1 0 154  0 

PC, 2423  1 2437  l 

00,2424  1 2426  1 

00,2425  1 2433  0 

00,  2426  1C  155  1 
00  ,2427  1 2437  1 

00,24^0  1 6073  1 

00,  243  1 1 2433  0 

00  ,2432  1 6073  1 


BUF  + 


CCS  MPAC 

TCF  MPAC+ 

TCF  +2 

TCF  MP AC- 

CC  S MPAC  4-1 
TCF  MPAC* 

TCF  OANZIG 

TCF  MPAC- 

TCF  DANZ  IG 


RFF  595  LAST 
RFF  596  LAST 
RFF  5 LAST 


1049  00,2434 

1 C49  00,2435 

1048  00,  2436 


I 0155 

52  155 
24  136 


1 

0 


MPAC  — 


EXTEND 
DCS  MPAC 
DXCH  MPAC 
I NCR  DVSIGN 
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FORCE  MPAC  POSITIVE,  CHECKING  FOR  ZERO 
CIV  IOENO  IN  THE  PROCESS  . 


EXIT  IMMEDIATELY  ON  ZERO  OIVIDEND. 

FORCE  MPAC  POSITIVE  AS  BUF  IN  BUF- . 

NOW  4-1  OR  -0. 


, AP : ASSEMBLE  REVISION  5 b OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


L INTERPRETER 


149? 

1493 

149* 

1495 

1496 
1*57 


PEE  597 
PEF  II 
REF  1.1 
PFF  32f 
PFF  1 


LAST  1049  CC,  2*37  A 0 1 54  0 MPAO  CS 

LAST  10*6  'J>-  ,2447  6 7761  0 AO 

LAST  1048  CC » 2 * * l 6 C13C  0 AD 

LAST  1 1*6  C 0 » 2AA  2 10  COO  0 !C5 

00  ,2443  1 2505  1 TCF 

00,2*44  60CC1  O -1/2*?  OCT 


MPAC 

NEGONE 

BUF 

OVNOPM 

600C1 


1 A 98 
1A99 
1 53? 
1501 

1503 

1 50  A 
1535 


REF  26 

RFF  598 
REF  590 

PFF  216 
PTF  28 
REF  60 C 


LAST  1 03  A 

LAST  1050 
LAST  1C5C 
i AS  i 1 ' 
LAST  10*8 
LAST  1050 


C 0 , 2A*5 
3 0 , 2 A * 6 
00 , ?AA7 

)(  ,245 
Cr,?A51 

)0, 2A5  2 
<10  , 2 A 5 3 
CC, 2A5A 


1 2AA6  1 
3 A 736  1 
6 9CC0  1 
6 0155  D 

5 A 155  1 
3 A755  1 

6 4733  1 
26  15A  0 


TCF  ♦ 1 

CAF  HALF 

00U9LE 

AO  UP  AC  +1 

TS  MP  AC  ♦! 

CAF  7ER0 

AD  POSMAX 

ADS  MPAC 


1506 
1 5r  7 
1 508 
15f  9 
15  10 
1611 
1512 


PFF  27 

REF  102 
REF  103 
REF  217 
PCF  29 
REF  1CA 


LAST  1050 

LAST  1050 
LAST  1050 
LAST  1 05C 
LAST  1150 
I AST  1050 


0C.2A55 
° ',7  456 
00, 2 A 6 7 

, 

0 0 , 2 A 6 1 
00 , 2A6  2 
00  ,2 A6 3 


3 A736  1 
6 O00O  1 
6 C 1 3 1 1 
5 A 131  0 
3 A755  1 
6 4733  1 
26  L3G  1 


CAF  HALF 

DOU  0L  F 

AD  BUF  +1 

TS  BUF  +1 

CAF  ZERO 

AD  POSMAX 

ADS  BUF 


1515 

1516 

1517 
lSlfl 


REF  601 
PFF  VTA 
REF  329 
RFF  ? 
RFF  15 
R FF  1 


LAST 
LAST 
LAST 
L AST 


105C 

1050 


1 05C 
105u 
1030 


CC,  2 A 6 A A Cl  5A  0 
00,2465  6 0130  0 

00,2466  10  000  0 

00,  2467  1 2 5C  5 1 

,247  133  ( 

00,2471  1 2 AO 5 0 


L BUF  2 


CS  MPAC 

AD  3 UF 

CCS  A 

TCF  DVNORM 

ADRES  BUF  2 

TCF  DVnVF 


1 5 1 9 
1 52f 
1621 

1522 

1523 

1524 


RFF  2 
REF  602 
RFF  106 

RFF  2 
REF  3 


LAST  1048  00,2472 

LAST  1050  00  ,2473 

l AST  1050  C, 2474 

00,2475 
LAST  1050  10,2476 

LAST  1050  00,2477 


S4  140  0 
A 0155  1 
fc  C 1 3 1 1 
0 0006  1 
6 2405  1 
1 2505  1 


TS  MAXDVSW 

CS  MPAC  +1 

AD  BUF  +1 

E XTEND 

B7MF  OVOVF 

TCF  OVNDRM 
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CHECK  FOR  DIVISION  GVEPFLOW.  IF  THE 
MAJOR  PART  rF  THE  DIVIDEND  IS  LESS  THAN 
THf  MAJUR  PART  OF  THE  DIVISOR  BY  AT 
LFAST  TWO,  WE  CAN  PPOCFFD  IMMEDIATELY 
WITHOUT  NORMALIZATION  PRODUCING  A OVMAX. 
USED  IN  SQRTS'JB. 


IF  IHE  AROVF  DOES  ACT  HCLD , FORCE  SIGN 
AGREEMENT  IN  NUMERATOR  AND  DENOMINATOR 
TO  FACILITATE  CVEPFLOW  AND  NEAR-ONE 
CHECKING. 


SAMF  FOR  BUF. 


CHECK  MAGNITUDE  OF  SIGN-CORRECTED 
OPFR ANDS. 


CIVIDE  OK  - rfILL  NO  BECOME  MAXDV  CASE. 
DIVISOR  NOT  LESS  THAN  DTVIOENO  - OVF. 


IF  THF  MAJOR  PARTS  OF  THE  DIVIDEND  AND 
DIVISOR  ARE  L 3 UAL  , A SPECIAL  APPROXIMA- 
TION IS  USED  (PROVIDED  THF  DIVISION  IS 
POSSIBLE  , OF  COURSE)  . 


IF  NO  OVERFLOW 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


m 

REF 

2 

1 AST 

104B 

. 

DO,  3 5f  1 

Q 0006 
24  137 

RUF  NORM 

EXTEND 
A UG 

D VNtlRMC  T 

1527 

00  ,25C2 

0 0006 

1 

EXTEND 

15?R 

REF 

107 

LAST 

1050 

, 

? C 131 

1 

OCA 

RUF 

1~2n 

REF 

lift 

LAST 

105  1 

0 , 2504 

2e  L 3i 

0 

DA  S 

BUF 

1530 

REF 

109 

LAST 

1051 

00,2505 

3 1 3 - 

0 

DVNORM 

CA 

8U  F 

1531 

CC, 25C6 

6 OGOO 

1 

DOUBLE 

1532 

. 

54  COO 

0 

UVSK 

1533 

REF 

1 

00,2510 

1 2500 

1 

TCP 

BUFNORM 

1 534 

REF 

60  3 

t AST 

1050 

On, 25  1 1 

52  155 

1 

n xch 

MPAC 

1535 

REF 

3 

LAST 

1051 

O'  ,2512 

5C  137 

1 

INDEX 

DVNORMCT 

1536 

P OF 

1 

PC, 2513 

0 2565 

0 

TC 

MAXTEST 

153  7 

REF 

604 

LAST 

1051 

>0,2  514 

54  156 

1 

TS 

MPAC  +2 

1 53B 

RFF 

36 

LAST 

1P4  0 

1 > ,2515 

I 6073 

1 

TCF 

DANZIG 

1539 

REF 

330 

L AST 

105C 

00,  2516 

10  000 

0 

BUF  POS 

CC  S 

A 

1 540 

PFF 

2 

LAST 

1 04  B 

00  ,25  17 

I 2422 

0 

TCF 

BUF  + 

J5M 

R FF 

1 10 

1 A ST 

1051 

00,2520 
00, 25/1 

4 3131 

0 

CS 

BUF  +1 

1542 

0 000  6 

1 

E X TEND 

1543 

REF 

3 

LAST 

1051 

00,2522 

6 2422 

1 

RZMF 

BU  F-f 

1544 

REF 

2B 

L AST 

1050 

00, 2523 

3 4736 

1 

CA 

HALF 

1545 

00  ,2  5 24 

6 0000 

1 

+ 6 

00U8L  E 

1546 

RFF 

111 

1 A ST 

1051 

00,2  525 

26  131 

0 

ADS 

BUF  +1 

154  7 

REF 

21h 

1 AST 

1050 

> , 25  26 

2 4755 

1 

CA 

ZFRU 

1 54R 

REF 

112 

LAST 

1051 

00  ,2527 

54  130 

1 

TS 

BJF 

l 54  ‘ 

REF 

l 

00, 2530 

1 2363 

1 

TCF 

BUFZERC 

1 55f 

RCF 

33 1 

LAST 

1C.51 

00,2531 

10  000 

0 

RUFNFG 

CCS 

1551 

RFF 

2 

LAST 

1040 

00,2532 

1 2416 

1 

TCF 

BJF- 

1 552 

REF 

in 

L AST 

105  1 

00, 2523 

: cm 

1 

CA 

BUF  *1 

1553 

OC  ,2  6 34 

0 0006 

l 

EX  T EN  D 

1554 

REF 

3 

LAST 

105  1 

00,  2525 

6 2416 

0 

BZMF 

BUF- 

1555 

REF 

29 

1 AST 

1 1 

00,2536 

4 4736 

0 

CS 

HA  LF 

1556 

REF 

2 

LAST 

104  0 

,2537 

1 2524 

1 

TCF 

RJFPnS  +6 
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ADO  -1  TO  AUGMENT  SHIFT  COUNT  AND  SHIFT 
LEFT  ONE  PLACE. 

SEE  IF  DIVISOR  NORMALIZED  YET. 

NO  - SHIFT  LFFT  ONE  AND  TRY  AGAIN. 

CALL  DIVIDEND  NORMALIZATION  SEOUFNCE 
PRIOR  TO  DOING  THE  DIVIOE. 

RETURNS  WITH  DIVISION  DONE  AND  C ( A » = D. 

TO  BUF  + IF  BUF  IS  GREATER  THAN  +1. 

IF  HJF  IS  *1,  FOPCING  SIGN  AGREEMENT 
MAY  CAUSE  PUF  TC  P ECCME  ZERO. 

BRANCH  IF  SIGN  S AGREE. 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 


TO  BJF-  IF  BJF  IS  LESS  THAN  - 1. 


IF  BUF  IS  -I,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO. 

BRANCH  IF  S IGNS  AGREE. 


SIGNS  DISAGREE.  FORCE  AGREEMENT  . 


JEJUNA  RY  70K0ASTEB 
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GAP:  ASSEMBLE  REVISION  56  OE  AGC  PRCGFA- 

L INTERPRETER  USER'S  PAGE  NC.  60  E3  S3 


THE  FOLLOW  I NG  ARE  PFCLCGUES  TO  SHIFT  THE  DIVIDEND  ARRIVING  IN  A AND  l BEFORE  THE  01  VI DE. 


1559 

I56f 

1561 

155? 

1553 


1 565 
1565 


REF  15 

RFF  30 
RFF  22ft 
RFF  15 
PFF  229 
REF  1 


LAST  1040 

LAST  1051 
I AST  1055 
LAST  1052 
I A ST  1052 


, 5 

. j ■■■  1 
00.2542 
PO,  2 55  3 

. 

CO, 2555 

. a5< 


22  C21  1 
C 0006  1 
7 47?ft  0 
56  CCl  O 
6 0021  1 
56  001  0 
1 2571  1 


-21  0 


LXCH 

F XTFND 

MP 

XCH 

AD 

XCH 

TCF 


SR 

HALF 

L 

SR 

L 

GENDD V 


SPECIAL  PROLOGUE  FOR  UNIT  WHEN  THE 
LENGTH  OF  THE  ARGUMENT  WAS  NOT  LESS  THAN 
.5.  IN  THIS  CASE,  EACH  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONE  TO  PPOOUCE  A HALF-UNIT 
VEC  TOR. 

WITH  DP  DIVIDEND  IN  A,  L . 


I 566 
1567 

1 66ft 
1569 
16  7' 

1 571 
1572 
157< 
I 5 74 
15  74 
1576 
1 677 
1578 
15  79 


REF  605 


LAST  1051 


V ' ,2547 
, 6 5 
On, 2551 
00,2552 
OC, 2553 
00  ,?554 
0 0,2  555 
Of# 2554 
3n  ,2557 
. 

, 256  1 
00  ,2562 
CO, 2663 
00  ,2564 


20  001  l 
2C  CCl  1 
20  COl  1 
20  001  1 
2C  COl  1 
20  COl  1 
2C  CO  1 1 

2o  00 1 1 
20  001  1 
2C  CCl  l 
2 C CCl  1 
20  001  1 
2(.  LC1  1 
52  155  1 


DOOJBL 
ODOUBL 
D00U3L 
UDCUBL 
ODOUBL 
ODOUBL 
ODOUBL 
ODOUBL 
ODOUBL 
DO  CUB  L 
D00U3L 
DDCUBL 
DDOUBL 


PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  IS  KNOWN  THAT  NO  DIVISION 
OVERFLOW  WILL  OCCUR. 


1580  REF 

1581 


LAST  1050 


CO, 2565 
00,2566 


1C  140  0 MAXTEST  CCS  MAXDVSW  0 IF  MAJORS  MIGHT  BE  =,  -1  OTHERWISE. 

06552  0 BIASHI  DEC  .4192  B-l  SORT  CONSTANTS 


158?  RFF 


Or, 2567  1 2642 


TCF  MAXDV  CHECK  TO  SEE  IF  THEY  APE  NOW  EQUAL. 


GA P:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 
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M583  THF  FOLLOWING  IS  A GENERAL  PURPOSE  OOU PL E PRECISION  DIVISION  ROUTINE.  IT  DIVIDES  MPAC  BY  B UF  AND  LEAVES 

*1585  THE  RESULT  IN  MPAC . THE  -OLLOWING  CONDITIONS  MUST  RE  SATISFIED: 


Rl  586 


THF  DIVISOR  (PIJF)  MUST  RE  POSITIVE  AND  NOT  LESS  THAN  .5. 


R 1 587  THF  DIVIDEND  (MPAC)  POST  BE  PCS  I T I V 6 WITH  THE  MAJOR  PART  OF  MPAC  STRICTLY  LESS  THAN  THAT  OF  B UF 

Rl  589  (A  SPECIAL  APPROXIMATION,  MA  XDV , IS  USED  WHEN  THE  MAJOR  PARTS  ARE  EQUAL). 


< 1591  UNDERSTANDING  THAT  // F = C + SIR/P)  WHERE  S = 2(-14)  AND  Q AND  R ARE  QUOTIENT  AND  REMAINDER,  RESPEC- 

'Mr.  - TIVTLY,  THF  Full  OWING  APPRO  XI  MA  T ION  IS  OBTAINEO  BY  MULTIPLYING  ABOVE  AND  RELOW  BY  C - S R AND  NEGLECTING  TERMS  OF 

Rl6‘)F  CROC  R S-SCUARED  (PCSSIOIY  INTR0D1CING  ERROR  INTO  THE  LOW  TWO  BITS  OF  THE  RESULT).  SIGN  AGREEMENT  IS  UNNECESSARY. 


R 1 597 
R 1 599 

R 1601 


A + SB  . (R  - CD)  A + SB 

= 0 ♦ S ( ) WHERE  0 AND  R ARE  OUOTIFNT  AND  REMAINDER  OF RES  PECT  IV  El  Y . 

c + so  i c ) : 


lb'-*  6 
1606 


REF  606  LAST 

RFF  1 14  LAST 
REF  607  L AST 


10  5*2  00,2670 

00,2  571 
1C51  CO, 2572 
1053  00,2573 


c 2 155  I GFNf 

0 0006  l +1 

10  130  1 

52  155  1 


V DXCH  MPAC 
EXTEND 
DV  BUF 

DXCH  MPAC 


WE  NEED  A AND  B ONLY  FOR  FIRST  DV . 
(SPECIAL  UNIT  PROLCGUE  ENTERS  HERE). 
A NOW  CONTAINS  0 AND  L,  R. 


1607 

1618 

1609 

1610 


REF  608  LAST  1053 

PFF  115  LAST  1053 
RFF  60Q  LAST  1053 


00  ,2574  6 154  f 

00,2575  C CCC6  1 
00, 3576  7 0131  0 

00  ,2577  6 0155  0 

OC, 2600  64  000  0 

00 , ?6C 1 I 2606  1 


CS  MPAC 

EXTEND 

MP  3 UF  <-1 

AD  MPAC  +1 

UVSK 

TCF  +5 


FORM  DIVIDEND  F CR  MINOR  PART  OF  RESULT. 


OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 
R IS  POSITIVE  IN  EVEPY  CASE. 


1 M4 

1615 

1616 


RFF  116  LAST  105  3 
RFF  610  LAST  1053 
PEF  I 


On ,p60?  0 0006  l 

00, 2603  60  130  0 

00  ,2604  24  154  1 

OC  , 26C 5 1 2610  0 


FXTFND 
SU  3 UF 

I NCR  MPAC 
TCF  +DCWN 


OVERFLOW  CAN  BE  REMOVFD  BY  SUBTRACTING  C 
(BIJF)  ONCF  SINCE  R IS  ALWAYS  I ESS  THAN  C 
IN  THIS  CASE.  I NC  R COMPENSATES  SUBTRACT. 
(SINCE  CIA)  IS  STILL  POSITIVE). 


1 6 1 7 

1618  PFF 
A1619 


C LCC  6 1 
6 2620  1 


C.  ( A ) CAN  BE  MACE  LFSS  THAN  f IN  MAGNI- 
TUDE BY  DIMINISHING  IT  BY  C ( SI  NCE  C IS 
NOT  LESS  THAN  .5)  UNLESS  CIA)  = 0. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PSIGRAM  ZFPLINA  BY  ZOROASTER 

L INTERPRETER 


1/.21 

1622 

16?3 

16?4 

1625 


RFF  117 


RFF  1 


l AST  1053 


CC.261"  C 0006 
O'",  26  11  tfi  120 
03,2612  C 0006 
CO, 2613  1 2616 

00,2616  0 0006 
nn,?6l5  6 2624 


♦ OCWN 


FXT  END 
SU 

EXTEND 

HZF 

EXTEND 

BZMF 


3UF 

♦ 3 

FNCMAX  DV 


OC,  2 6 16  24  154  1 

DO  ,2617  1 2625  0 


I NCR  MP AC 
TCF  F INAL  D V 


162R 

1629 


RFF  3 LAST  10*4 


-UP 


EXTEND 

BZF  F I NALD V ♦ 


1630 

1 31  PEF  612  LAST  1354 
1632  RFF  llfl  LAST  1354 


r C ,2622  0 0006  1 

CC.26  23  2 ( 154  0 

30.2624  6 0130  0 


EXTEND 
D 1 M 

EN  DM  A X DV  AD 


MPAC 

BUF 
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IF  POSITIVE,  REDUCE  ONLY  IF  NECESSARY 
SINCE  THE  COMPENSATING  I NC  R MIGHT  CAUSE 
OVERFLOW  . 

DONT  SUBTRACT  UNLESS  RESULT  IS  POSITIVE 
flR  ZERO. 


KEEP  SUBTRACT  HERE  AND  COMPENSATE. 


IF  ZFPO,  SET  MINOR  PART  OF  RESULT  TO 
7ERC. 


IF  NFGATIVF,  ADD  C TO 
TO  COMPENSATE.  DIM  IS 
MAJOR  PART  NfVEP  GOES 


A,  SUBTRACTING  ONE 
OK  HERE  SINCE  THE 
NEGATIVE. 


AP:  ASSEMBLE  REVISION  56  CF  AGC  PRCC-R  AM  ZERLINA  BY  70R0 AS  T ER 


INTERPRETED 


1631 

1614 

1635 

1636 


REF  119  LAST  1054 
RFF  613  LAST  1054 


00  » 2625  22  007  0 

00,2626  0 0006  1 
CO, 2627  1C  130  1 
00  ,2630  54  155  1 


FINALOV  ZL 

EXTEND 
DV  BUF 

+ 3 TS  M P AC  +1 


1 6 3 R 
U39 
1540 


PFF  6 LAST  1049 
PEF  276  LAST  1045 
RFF  277  LAST  1055 
REF  278  LAST  1055 


00,2631  1C  136  1 

(iO,  2632  0 0C02  0 

00  ,2633  C 00C2  0 
CC, 2634  C CCC2  0 


CCS 

TC 

TC 

TC 


OVS ICN 
0 


Q 

Q 


1641 

1642 
164  3 
1 644 
1645 


RFF  614 
REF  615 
REF  219 
REF  279 


l A ST  1 C55 
I AST  1055 
LAST  1051 
LAST  1055 


00,2635 
CO  ,2636 
00, 2637 
00  ,2640 
00,2  641 


C 00 C 6 1 
4 M55  1 
52  155  1 
3 4755  l 
C 0002  0 


E XTENO 
OCS  MPAC 

DXCH  MPAC 

CAF  ZERO 

TC  0 
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DO  DV  TO  OBTAIN  MINOR  PART  OF  RESULT. 


LEAVE  RESULT  POSITIVE  UNLESS  :(DVSIGN)  = 

-0. 


SO  WE  ALWAYS  RE  TUP  N WITH  C(A1  = 0. 


SAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


Q:12  OCT.  21,1970  SKIPPER  .121  PAGE  105b 


L INTERPRETER  USER'S  PAGF  NO.  64  E3  S3 

pi $46  IF  THE  MAJOP  PARTS  OF  THE  DIVISOR  AND  DIVIDEND  ARE  EQUAL,  BUT  THE  MINOR  PARTS  APE  SUCH  THAT  TrlP 

<1648  01 VI  DF  ND  IS  STPIfTLY  LESS  THAN  TPF  DIVISOR  IN  MAGNITUDE,  THF  FOLLOWING  APPROXIMATION  IS  USED.  THE  ASSUMPTIONS 

<165  ARE  THE  SAME  AS  THE  GENERAL  RCLTINE  WITH  THE  ACDJTION  THAT  SIGN  AGREEMENT  IS  NECESSARY  ID,  C,  CD  POSITIVt). 


R 1 5 5 ■> 
R 1 653 
R 1654 


E ♦ S3  . 

= 37777 

: ♦ SD 


( C ♦8-0) 

S I 1 

l C ) 


Rl  655 


The  DIVISION  MAY  BE  PERFORMED  IMMEDIATELY  SIN;E  3 IS  STRICTLY  LESS  THAN  0 AND  C IS  NOT  LESS  THAN  .5. 


1657 

1658 
1 65  9 
166U 
1661 


REE  616  LAST  1CS5 
REF  120  LAST  1055 

REF  2 LAST  1052 


. 

. It  4 3 

00,2644 

JO, 2645 
00, 7646 


4 D154  O MAX DV  CS  MP AC 

6 C 1 30  0 AD  BUF 

0 0006  1 EXTEND 

1 2647  1 3ZF  +2 

1 2570  0 TCF  GENOOV 


M PAG  NOW  LFSS  THAN  BUF  - DIVIDE  AS  USUAL 


166? 

1663 


RFF  30  LAST  1050 
REF  617  LAST  1056 


*0  ,2647 

OH, 2650 


3 4733  1 +2  CAF  RDSMAX  SFT  MAJOR  PART  OF  RESULT. 

?4  154  0 TS  MPAC 


1 664 

1665 

1666 
A 1 667 


REF  121 
RFF  61R 
RFF  ? 


LAST  1056 
LAST  1056 
LAST  1054 


00, 2651 
00,2652 
CO,  ?6  5 3 


4 0131  0 
6 0155  0 
1 2624  1 


CS  BUF  +1  FUPM  DIVIDEND  OF  MINOR  PART  OF  RESULT. 

AD  MPAC  *1 

TCF  ENOMAXDV  GC1  ADC  C AND  DO  DIVIDE,  ATTACHING  SIGN 

HEFORE  F XI  T J NS. 


GAP:  ASSEMBLE  REVISION  5i>  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER 


>:  12  OCT.  2 It  1970  SKIPPER 


121 


PAGE  1057 


L INTERPPFTER 


USER'S  PAGE  NC.  65  E3  S3 


1 h 7 O 
1 6. 71 
1672 


VECTOR  0 1 V I DEC  BY  SCALAR,  V/SC,  IS  EXECUTED  HERE.  THE  VECTOR  IS  NOW  IN  MPAC  WITH  SCALAP  IN  BUF. 


RFF  55  LAST  1034 


00,2654 

, 

•j 0 ,2656 


ONE 

3 VNORMC  T 
VBUF  +5 


1673 


REF 


1 


00, 2657  C 3010  0 


VECAGREE 


FORCE  SIGN  AGREEMENT  IN  VECTOR 


1674 

1676 

1676 

1677 
1 678 
1670 
168' 


RFF  122 
RFF  2 
REF  123 
REF  124 
REF  1 


LAST  1056 
LAST 

LAST  1057 
LAST  1067 


REF 


1 


00  ,2660 
00,2661 
00, 2662 
, 

00, 2664 
00,2666 


52  131  0 

0 7556  0 

131  0 
10  130  1 

1 2721  0 
1 2667  0 
1 2715  1 


DXCH 

TC 

0 XCH 

CCS 

TCF 

TC  F 

TCF 


BUF 

ALS  IGNAG 
8 UF 
BUF 
/ BUF  + 

+ 2 

/ BU  F- 


SIGN  AGRFF  B'JF 


1681 
168? 
1683 
16  84 
16  85 
1 686 
1687 


REF 

RTF 

RFF 

RFF 


RFF 


125  LAST  1057 

126  LAST  1057 
6 19  I A ST  1CS6 
620  LAST  1067 


3 LAST  10  50 


00,2667  56  131 

00  ,2670  Sr  1 3C 
00,2671  56  155 

10,267  2 5 6 154 

30  ,2  6 73  0 0006 

M, 267*  1 2676 

00,2675  1 2405 


0 

0 

1 

1 

0 

0 


XCH  BUF  +1 

XCH  BUF 

XCH  MPAC  +1 

XCH  MPAC 

EXT  END 
HZF  +2 

TCF  OVOVF 


SHIFT  VFCTOR  AND  SCALAR  LEFT  14. 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 


1688 

1689 

1690 

1691 

U ' 


00,2676  56  160  0 

CO,  2^,77  c6  157  1 
00  ,2700  C 0006  1 
0C.27C1  1 2703  0 

00,  270  2 1 240  5 0 


XCH  MPAC  +4 

XCH  MPAC  +3 

EXTEND 
BZF  +2 

TCF  OVOVF 


1693 

1694 

1695 

1696 

1697 


REF  5 LAST  1057 


00  ,2703  56  162  1 

CC,  27C4  5 6 1 6.1  I 

00,2705  C OOC  6 1 

OC  ,2  706  1 2 710  1 

OC, 27C 7 1 2405  0 


XCH  MPAC  +6 

XCH  MPAC  +5 

EXTEND 
BZF  +2 

TCF  DVCVF 


1 7. 
1701 
1 7C  7 


RIF  127 
R FF  2 
REF  6 
RFF  2 
REF  7 


LAST 
I A ST 
LAST 
LAST 
LAST 


105  7 
1067 
10  5 7 
1067 
10  57 


00  ,2710  1C  130  l 
00,2711  1 2721  C 

00, 2712  1 2405  0 

00  ,2713  1 2715  1 

CO, 2714  1 2405  C 


CCS  BUF 

TCF  / BU  F + 

TC  F 3 VO  VF 

TCF  /BUF- 

TCF  DVOVF 


ZERC  DIVISOR  - OVERFLOW. 


1703 

17' >4 
1 705 
1 706 


REF  128  LAST  1057 
9 F F 129  I AST  1067 
REF  56  LAST  1067 


00,2715 
00  ,2  716 
00,  27  17 
OO  ,2  7 20 


0 0006  1 
4 0131  0 
52  131  0 
24  127  0 


/BUF- 


EXTEND 
DCS  BU  F 
DXCH  BUF 
IMCR  VBUF 


ON  NEGATIVE,  COEPLFMFNT  BUF  AND  MAINTAIN 
OVSIGN  IN  VRJF  +5. 


GAP: 


ASSEMBLE  REV  IS  ION  56  OF  A(,C  PROGRAM  ZFRLINA  8Y  ZOROASTER 


I NTERPPE  TER 


PFF  130  LAST  1057 
REF  16  l A ST  1C50 
PFF  1 


. 

. 

00,2723 
00, 27/ A 


I 

3 0131  1 
52  134  0 
1 2732  1 


171  1 

171? 
1 711 
1714 
17  15 


PEF  5 LAST  1057 


00,? 725 
OO, 2726 
00,2727 
CO, 2730 

CO,  77  3 1 


C 0006  1 
24  137  1 
0 0006  1 
3 0131  1 


EXTEND 

AUG  DVNCRMCT 

EXTEND 
OCA  BJF 

OAS  RUF 


1714 
1717 
1 71  R 
1719 

1 7 ?3 
1721 


PfF  133  LAST  1059 


00,273?  3 0130  r /NORM 

00,2733  6 CfCO  l 

00, 2734  e4  COO  0 
00  ,2735  1 2725  1 

CC, 2736  C 2750  1 
00,2737  5?  160  1 

00 ,?  74 0 5?  155  1 

CC, 274  1 52  1(0  1 


CA  BIFF 

DOUBLE 
0 VSK 

TCF  /NOR M2 

TC  V/SCDV 

DXCH  *pac  *3 

DXCH  M P AC 

DXCH  M P AC  +3 


1 7?4 
17?6 
1 726 
1727 


PFF  2 LAST  1058 
PFF  62P  LAST  1'.50 
PFF  629  LAST  1058 
REF  630  LAST  1058 


on  ,2742  C 2750  1 
Co ,274 3 52  162  0 

Of, 2744  c2  155  1 

00,2  745  52  16?  0 


TC  V/SCDV 

DXCH  MPAC  *5 
DXCH  HP  AC 

DXCH  MP  AC  +5 


V/SCOV 

VPQTATE 


9:12  CC T.  21  ,1970  SKIPPER  .121  PAGE  1056 
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LEAVE  ABSC0RI3  DIVISOR)  IN  RUF2 
FOR  OVERFLOW  T EST  ING 
NORMALIZE  OIVISCR  IN  BUF. 

IF  1 ESS  THAN  .5,  AUGMFNT  P VNOk  MC  T AND 
COUBLF  DIVISOR. 


SEE  IE  DIVISOR  NORMALIZED. 


DOUBLE  AND  TTY  AGAIN  IF  NOT. 

DO  X COMPONENT  DIVIDE. 

SUPPLY  ARGUMENTS  IN  USUAL  SECUFNCE. 


Y COMPONENT. 


7 COMP ONFNT  . 

GO  PE-ARR ANGE  CCMPCNE NTS  BEFORE  EXIT. 


;*p:  ASSEMBLE  REVISION  56  OF  AGC  PRCC-RAM  7ERLINA  BY  ZOROASTER 


Pi  730 


INTERPRETER 

SUBROUTINE  USED  RY  V/SC  TU  DIVIDE  VECTOR  COMPONENT  IN  MPAC. 
REF  57  LAST  1057 


I 7^A 
1 735 
173ft 
1737 


00  ,275? 

■ 

00, 2756 
00,2755 


1 2 763  0 


CCS  MPAC 

TCF  / MPAC*- 

TCF  +2 

TCF  /MPAC- 


1 735 
1 7 30 
1 7 6') 
1 76  1 
1 76  2 


REF  2B0 
REF  2 
PEF  281 


LAST  1U59 
LAST  1050 
LAST  1055 
LAST  1059 
LAST  10*9 


. ?! 

. 

CP, 2760 
00,  276  1 
J - ,2  762 


10  155  1 
1 2767  1 

C CCC2  0 
1 2763  C 
0 0002  0 


1 7'*u 
1765 
1 766 


PPF  633 
RFF  636 
REF  A 


L AS  T 105  9 
LAST  1 C59 
LAST  1059 


CO,  2 76  3 
90, 2766 
00,2  765 
OC, 2766 


C C006  1 
6 0155  1 
52  155  1 
24  136  0 


FxTEND 
DCS  MRAC 
DXCH  MPAC 
I NCR  DVSIGN 


1 769 

1750 
1 7*1 

1752 

1753 
1 756 
1755 
1 756 
17*7 

1758 

1759 


REF  635 
REF  17 
REF  332 

RFF  1 


LAST  1059 
LAST  1058 
LAST  1051 


LAST  1057 
LAST  1059 
LAST  1059 
LAST  1059 

l AST  1059 


] ,2771 
. > ' 

CO,  2773 

. 

,2775 
, 2 

DC  ,2777 

. 

Of  , 3uo  1 

. I 

. 


6 0156  0 
6 0133  0 
10  000  0 

1 3006  1 
1 7777  0 
1 2605  0 
56  160  0 
6 0155  1 
6 0136  1 
C '1006  1 
6 26C5  1 


CC  s 

TCF 

TCF 

TCF 


DDVCAl l 
+2 

3 VO  VF 
MAXOVSW 
MPAC  +1 
3UF2  ♦ 1 


1 760 

1761 

1762 


RCF  637 
REF  6 
REF  ? 


LAST  1059 

LAST  10! 
LAST  105  1 


. 

. 

no,  3006 


52  155  1 DOVCALL 
5C  137  1 
1 25E5  1 


DXCH  MPAC 
INDEX  DV  NOR  Mf.T 
TCF  MAX  TEST 


9:  12  DC  T.  21,1970  SKIPPER  .121  PAGE  1059 
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l BY  THE  SCALAR  GIVEN  IN  BUF. 

REFLECTS  SIGN  OF  SCALAR. 

FORCF  MPAC  POSITIVE,  EXITING  ON  ZERO. 


USUAL  COMPL  EMENT  ING  AND  SETTING  OF  SIGN. 


INITIALIZE  NEAR-UNE  SWITCH. 


CHECK  PtlSSlRLE  OVERFLGW. 
UNNORMALIZED  INPUT  DIVISOR. 

NOT  NEAR-ONE 

+'  IS  JUST  POSSIBl  E 

NO  HOPF 

SIGNAL  POSSIBLF  NEAR-ONE  CASE 
SEE  IF  DIVISION  CAN  BE  DONE 


CALL  PRE-DIVIDE  NCRMALI ZATI  CM. 


3 APs 


ASSEMBLE  REVISION  5,  QF  ACC  PROGRAM  7FKLINA  BY  ZQRQA  STEP 


L INTERPRETER 


1763 


Cf.3007  325C6  C SL OPE  LG  OEC  .8324 


J 764 
1765 
1 756 
1 76  7 
1768 
1 769 
1 77u 
1 771 

1772 

1773 
1 774 


REP 

REF 

REF 

REF 

PFF 

REF 

RFF 


63Q 

640 

4 

641 

642 

5 

643 

333 


LAST 
I AST 
L AST 
|AST 
LAST 
LAST 
LAST 
LAST 
LAST 
I AST 
L AST 


155 
1C55 
1057 
1 060 

106  0 
1':60 
106C 


1060 
1060 
l 960 

1ii5S 


>0(3011 
CC, 3012 
00  ,3f  1 3 
: , iO i4 

0«I,  1"  15 
::  ,3-16 
C 1,  3T17 
. 

CO ,3 >2 1 

CC,  3022 


0 7 5 56 
52  16? 

0 OOCO 


0 

1 

0 

1 

1 

0 

1 

0 

0 

o 


VECAGftEE  XCH  0 

OX  CH  MPAC 

TC  ALSIGNAG 

OXCH  9PAC 

OXCH  MPAC  +3 

TC  A L SI  G NAG 

OXCH  MPAC  +3 

OXCH  MPAC  +5 

TC  ALSIGNAG 

OXCH  MPAC  +5 
TC  A 


9:12  CCT.  21,1970  SKIPPER 
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.121 

USER'S  PAGE  NO.  68  E3  S3 

SAVE  0 IN  A 
S I GNAGRE6  MPAC 

SIGN  AGREE  MPAC  +3 


ST  GNAGREE  MPAC  +5 


GAP:  ASSEMBLE  REVISION  So  OF  AGC  PRC  C-RAM  ZERLINA  BY 


Pi  775 

1777 
1 779 

1779 

1780 

1781 

1782 
1 7 83 
1 784 
1 7B5 
1 78* 
1797 
1789 
1 7 89 
1 790 
1791 


INTERPRETER 

THE  FOLLOWING  ROUTINE  EXECUTES  THE  UN  I 1 


LAST  105  7 
I AST  1030 
LAST  1055 
I A ST  1 048 
I AST  9 16 


REF  2 
PF.F  2 
RFF  220 
PFF  8 
PEF  21 
REF  1 
REF  22 
REF  9 


PEF  10  LAST  1059 


REF 

REF 

REF 


LAST  1060 
LAST  1015 


CO, 3023 
01 , 30?4 
0 ,3 

00,3026 
00,  3027 
03  ,3030 
J C , 3 C 3 1 
or  , in  32 

00,3033 
G f, , 3034 

. 

, 

. 

00  ,3040 
rc,  304  1 


0 3010  0 
C 7544  0 
3 4755  1 
56  121  0 
5 4 1 4 1 1 
C 3317  1 
2 C 1 4 1 0 
5 6 121  0 
0 0006  1 

1 3C36  O 
1 2405  0 
0 0006  1 
:•  0 1 5 5 0 
5<  120  1 
52  C 4 3 1 


1 792 

1 793 
1794 
1 795 
1796 
1 797 
1 79B 


00,3042  0 3343  0 


RTF  645  LAST  1061 

RFF  230  I AST  1052 
RFF  59  LAST  1061 
PEF  1 
REF 


LAST  1061 


. 

. 

00  ,30  50 


10  154  G 
1 3051  1 
54  GO  1 1 
50  120  1 
E 2 045  1 
1 2405  0 


1 799 
1800 
1801 

180? 

1B03 

1804 


PEF  1 
RFF  47 
RFF  334 

REF  ] 

REF  1 


:<  , 3C51 

. 

, r i 

. 

00  ,3055 


4 4317  l 
6 0135  3 
10  000  0 

4 OOCO  0 
1 3133  1 


00,3056  l 3C65  0 


193  7 
180  8 
1809 
1 810 


RFF  646 
RFF  231 
REF  221 
PEF  1 


I AST  1061 
1ST  1 I 
I A ST  1C61 


, 

. 

OC  , 10  64 


3 0154  1 
54  001  1 
3 4755  1 
1 3112  1 


1813 

1814 

1815 

1816 


REF  647  LAST  1061 


71  < 0061 

00 ,307?  3 0155  0 
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INSTRUCTION,  WHICH  TAKES  THE  UNIT  CF  THC  VECTCP  IN  MPAC. 


TC  VECAGREE 

TC  MPACV8UF 

CAF  ZERO 

X CH  HVFIND 

TS  TF  Ml 

TC  VSQSUB 

CA  TEM1 

XCH  OVFIND 

EXTENO 
B7F  *2 

TCF  DVOVF 

EXTENO 
DC A MPAC 

INDEX  FIXLHC 

D XCH  L VS  CD  ARE 


FORCE  SIGN  AGREEMENT  IN  VECTOR 
SAVE  ARGUMENT  IN  VRUF 

MUST  SENSF  OVFRFLOW  IN  FCLLOWl  NG  DOT. 


DOT  MPAC  WI  TH  I TSELF. 


LEAVE  THE  S GJ  ARE  OF  THE  LENGTH  OF  THE 
ARGUMFNT  IN  I VSQUARE. 


TC  SORT  SUB  GO  TAKE  THE  NORMALIZED  SQUARE  ROOT. 

CCS  MPAC  CHECK  FOR  UNIT  OVERFLOW. 

TCF  «-5  MPAC  IS  NUT  LESS  T F AN  .5  UNI  ESS 

TS  L 

INDEX  FIXLCC 
n XC  H L V 
TCF  DVOVF 


CS  FOURTEEN 

AD  MP  TEMP 

CCS  A 

C CM 

TCF  SMALL 


TCF  LARGE 


C S TH  1 P TE  E N 

TS  MPT  EMP 


INPUT  TO  SORTSUB  WAS  0. 

SEE  IF  THE  INPUT  WAS  SO  SMALL  THE  THE 
FIRST  TWO  REGISTERS  OF  THE  SQUARE  WERF  j 

IF  SO,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 
COUNT  -150. 


(this  is  usually  the  case.) 


IF  THE  SHIFT  C CUNT  WAS  EXACTLY  14,  SET 
THE  PR E- DIVIDE  NORM  COUNT  TO  -13D. 


CA  MPAC 

TS  L 

CAF  ZERO 

TCF  L ARSE  2 


SHIFT  THE  LENGTH  RIGHT  U BEFORE  STORING 
C SMALL  EXITS  TO  THIS  PCINT). 

GC  TO  STORE  LENGTH  AND  PROCEED. 


CCS  MPT  EMP  MOST  ALL  CASES  COME  HERE. 

TCF  LARC.E3  SEE  IF  NO  NORMALIZATION  WAS  3FQUIRE0  BY 


CS  SRDOV 

TS  MPT  EMP 

E XTEN3 
OCA 


SORT,  ANO  IF  SC,  SET  UP  FC»  A SHIFT 
RIGHT  I 9EF09E  DIVIDING  TO  PRODUCE 
THF  DESIRED  HALF  UNIT  VECTOR. 


'PAC 


}AP: 


ASSFRBLE  KFVISION  bt>  OF  AGG  PROGRAM  /ERLlNA  BY  ZOROASTER 
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L INTERPRETER  USER'S  PAGE  NO.  7C  E3  S3 

1017  REF  2 LAST  106 1 00,3073  1 3112  1 TCF  LARGF  2 
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AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERL  IN  A BY  ZOROASTER 


INTERPRETER 


JS  ER'S  PAGE  NO.  7l  fc3  S3 


1 81  ft 

181Q  PEE  51  LAST  1061 


00,3076  6 0000  0 LARGE3  COM 

00 ,3 C75  56  135  1 TS 


MPT  EMP 


LFAVE  NEGATIVE  OF  SHIFT  COUNT-1  FOR 
PREDIVIDE  LEFT  SHIFT. 


1820 
1821 
1822 
1 82  3 
1826 
1925 
1826 
1827 
1B?B 
1829 
18  30 

1 u3 1 


PFF  335 
RFF  66 
PEF  136 

REF  6 68 
RFF  135 

PFF  669 
RFF  232 
PEF  136 
REF  233 


LAST  1061 
LAST  1066 
LAST  1058 

LAST  1061 
LAST  1063 

LAST  1063 
LAST  1061 
LAST  1063 
LAST  106  3 


00, 3076 
OO , 3 0 7 7 

, ' l 

00 , 3 If  1 
00  ,3102 
OC,  3103 
00,3106 
00,31 05 
CO,  3106 
OO  ,3107 
00,3110 
00,3111 


6 CCOO  0 
50  (‘00  1 
? 6736  1 
56  130  1 
C 0006  1 

7 0155  l 
56  130  0 
0 0006  I 
7 0156  C 
56  001  0 
6 Cl  30  0 
56  OCl  0 


COM  PICK  UP  REOUIREC  SHIFTING  0IT  TO  UNNJRM- 

INDEX  A ALIZE  THE  SORT  RESULT. 

CAF  BIT16 

TS  BUF 

EXTEND 

NP  MPAC  +1 

XCH  3 UF 

EXTEND  (UNNDRMALIZE  THE  SORT  FDR  L V)  . 

MP  MPAC 

XCH  L 

AD  BUF 

XCH  I. 


60  LAST  1 06 1 00,31  12  50  120  1 LARGE2  INDEX  F IXLOC 

2 LAST  1061  00,  2113  52  065  1 DXCH  LV 


LENGTH  NOW  STORED  IN  WORK  AREA. 


99  LAST  1059  00  ,31  16  6 6753  0 

6 l AST  1C59  00,31  15  5*  160  0 


CS  ONE 

TS  MAXDVSW  NO  MAXOV  CASES  IN  UNIT. 


1836 
1 937 
1 8 38 
1039 


PFF  58  LAST  1059 
REF  6 5<  LAST  1063 
REF  137  LAST  1063 
REF  1 


OC,  3 1 16  5 2 123  0 

30  ,31  1 7 52  1 55  1 

GO, 2120  52  131  0 

00,3121  0 3151  1 


OXCH  VB  UF  FRC  PARE  X COMPONENT  FOR  DIVIDE,  SETTING 

DXCH  MPAC  LENGTH  OF  VECTOR  AS  DIVISOR  IN  B UF . 

DXCH  BUF 
TC  UNITOV 


186” 
1961 
1 8*2 
1063 


REF  59 
PFF  651 
RFF  652 
REF  2 


LAST  1063 
. 

I AST  1063 
l AST  1063 


(.0,3122 
00,  3 12  2 
Or-  ,3126 

00,3125 


52  125  0 
5 2 1 5 5 1 
52  160  l 
C 3151  1 


DXCH  V HU  F +2  03  V AND  Z IN  USUAL  FASHION  SO  HE  CAN 

DXCH  MPAC  EXIT  THROUGH  VRGT  AT  EX  . 

DXCH  MPAC  +3 
TC  UNITDV 


1 86  6 
1 869 
19  66 
1 86  7 
1868 


REF  60 

PFF  653 
REF  656 
REF  3 

REF  3 


LAST  106.3 
LAST  1C63 
LAST  106  3 
LAST  1063 
LAST  1 05R 


00, 3126 
03,3127 

. i 

00,3131 

00,3132 


52  127  1 
52  155  1 
52  162  0 

0 3151  1 

1 7632  1 


D XC  H VB  UF  +6 

DXCH  MPAC 
DXCH  MPAC  +5 
TC  UNITDV 

TCF  V ROT  AT  EX 


AND  EX  IT 


ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 
INTERPRETER 


9:  12  OCT.  2 If  19,70  SKIPPER 
USER'  S PAGE  NC.  72 


PAGE  1064 
E3  S3 


*1351 

1553 


1855 

1856 
1357 
1 858 
1866 
186D 


IF  THE  LEAGTH  OF  THE  ARGUMENT  VECTOR  WAS  LESS  THAN  21-28),  EACH  COMPONENT  MUST  BE  SHIFTED  IEFT  AT  LEAST 
14  PI  AC  ES  OFF  me  TFF  QIVIOF.  NOTE  THAT  IN  THIS  CASE,  THE  MAJOR  PART  OF  EACH  COMPONENT  IS  ZEPC. 


REF 

RFF 

PEF 

REF 

PEF 

FEF 

RFF 


7? 


LAST  1063 

LAST  1061 

LAST  1 i 1 

LAST  1064 


00,3124 
00, 3135 
■ v3136 
00,  3 12  7 
Of, 3 140 
. ■ 

CO,  3 H2 


135  1 SMAIL 


56  122  0 
56  125  1 
56  124  0 
56  127  C 
66  126  1 


X OH 
XCH 
XCH 
XCH 
XCH 


ZERO 
V3  UF  ♦ 1 
VRUF 
VBUF  *3 
VB  UF  +2 
V BU  F +6 
VRUF  +4 


NEGATIVE  CF  PRE-DIVIDE  SHIFT  CCUNT. 
SHIFT  EACH  COMPONENT  LEFT  14. 


1B61 

lSfe"* 

1863 

1 864 
1366 
1 066 


LAST  1064 
LAST  1^63 
LAST  1063 


REF  666  | AST  1063 

RFF  1 


Or  ,3L43 
:C,3144 
Of  , 3 14  5 
00,3146 
Of,  3147 
. 1 5 


? 4736  1 
0 0006  1 
7 0154  ( 
1 3062  1 


C.S  MPTFMP 

I NDfcX  A 

OAF  3 1 T 1 4 

EXTEND 
MP  MP AC 

TCF  SMALL  2 


1867  REF  4 LAST  842 

I860  RFF  1 

1866  PFF  13  LAST  465 


THI  RTEEN  = 
FOIPTFFN  = 
OCT  1 6 


ASSEMBLE  RFVI  SION  56  OF  A: 


PROGRAM  ZfcRUNA  BY  ZOROASTER 


L INTERPRETER 


5 1870 


THE  FOLLOWING  ROUTINE  SETS  UP  THF  CALL  TO  THE  DIVIDE  ROUTINES 


1 3 7 J REF  656  LAST  1064 

1872  PFF  T 

1873 

1874  PFF  1 


00, 3151  1C  154  0 
06 i 3 1 5 2 1 3170  1 

00,3153  1 3155  1 

oC,  3154  1 :1(2  0 


CCS 
TC  F 
TCF 
TCF 


MP  AC 
UMPAC ♦ 
+ 2 

IJMP  AC- 


1875 

1876 
1 877 
1 878 
1 373 


REF  657 
REF  7 
REF  203 
PFF  2 
REF  284 


LAST  1065 
LAST  1065 
L AS  i 1 6 
LAST  1 C65 
I AST  1065 


00  ,3155 
■ 

00,  3 157 

' ,31 

. i ' 1 


10  155  1 
1 317C  C 
C 0002  0 
1 316?  0 
C OOG?  0 


CCS  MP  AC  +1 

TCF  UMPAC  + 

TC  0 

TCF  JMP AC- 
TC  0 


1880 
1881 
1082 
1883 
] 384 
1885 


REF  223  LAST 
REF  9 LAST 

PFF  658  LAST 
PFF  54  LAST 
RFF  3 LAST 


1064  00,3162 

l 10,3163 

00,  3 164 
1 v65  00  ,3165 

1064  ,3166 

1059  00,3167 


4 4755  0 
54  136  1 
C CGO 6 1 
4 0155  1 
cr  135  0 
1 2564  0 


IJMP  AC- 


CS ZERO 

TS  DVSIGN 

EXTEND 
DCS  MPAC 

INDEX  MPTFMP 

TCF  MAXTEST  -1 


1886 

1887 

1888 
1886 


REF  10 
RFF  65Q 
REF  55 
RFF  4 


LAST  1065 
LAST  106  5 
LAST  1065 
L A ST  I 65 


CC,  3 17  1 
00 ,3172 
00,3173 


54  136  1 
155  1 
50  135  0 
1 2564  0 


UMPAC+ 


TS  DVSIGN 

DXCH  MPAC 
INDEX  MPTFMP 
TCF  MAXTEST  -1 
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FORCE  MPAC  POSITIVE  IF  POSSIBLE,  SETT  I ^ 
DVSIGN  ACCORDING  TC  THF  SIGN  OF  MPAC 
SINCE  THE  DIVISOR  IS  ALWAYS  POSITIVE 
HF  RE  . 


EXI  T I MVFDI  AT  FLY  ON 

IF  NFGA  Tl  VE  , SF  T -0 
COMPLEMENT. 

PICK  UP  ABSOLUTE  VA 


ZERO. 

IN  DVSIGN  FOR  FINAL 

UF  OF  APS  AND  JUMP. 


SET  OVSIGN  FO*  POSITIVE  QUOTIENT. 


GAP; 


ASSEMBLE  REVISION  56  3F  AGC.  P8C GRAM  ZEPLINA  BY  ZOROASTER 


I INTERPRETER 


P 1890 


MISCELLANEOUS  UN4PY  CPERATICNS. 


1891  REE  1 

1R97  REF  37  LAST  1051 


00,3  174  C 3300  1 DSQ 
00,3175  I 6073  1 


TC  3 SQ  SUB 

TCF  DANZIG 


1893 
1 894 
1 P95 


REF  28  I AST  1047 
REF  3 LAST  817 
PEE  A LAST  1066 


CC.3176  1C  If  3 1 ARVALA8S  CCS  MODE 

OF  ,3177  1 3226  0 TCF  ABS 

OC ,3200  1 3226  0 TCF  ABS 


1896  PEF  2 LAST  106 1 

1897  REF  29  l.AST  1066 


00,3  20  1 ( 3317  1 A (JVAL 

00,3202  22  163  0 


TC  VSQSUB 

LXCH  MODE 


1898 
1 890 
190  - 

1971 


REE  660  LAST  1065 
PtF  61  LAST  1C63 
PEE  2 LAST  1061 


OC,  32C  3 
00,3204 
00,3205 
90, 3 20  6 


C 0C06  1 
3 0155  o 
5 C 120  1 
C4  3 1 


E XTENO 
DC A MPAC 
INDEX  FIXLOC 
DXCH  LVSOUARF 
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SQUARE  THE  DP  CONTENTS  CE  PPAC. 


ABVAL  OR  ABS  INSTRUCTION. 
DO  ABS  ON  SCALAR. 


DOT  VPAC  WITH  ITSELF. 

MODE  IS  NOW  DP  (L  ZERO  AFTER  DAS). 

STCRE  SQUARE  OF  LENGTH  IN  WOR<  AREA. 


SAP:  ASSFMRLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 

L INTERPRETER 
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Pi  90?  PROGRAM  CESCRIPTICN-  SUBROUTINE  SORT 

*1903  FUNCTIONAL  DE  SO  R I P TI  C N-DOURL  F PRECISION  SCUARE  RCOT  ROUTINE 

R 1934  THIS  PROGRAM  TAKES  THF  SQUARE  ROOT  OF  THE  27  OR  28  MOST  SIGNIFICANT  BITS  IN  THE  TRIPLE  PRECISION  SET  OF 

R1906  NUMHERS-MPAC,  MPAC+1  , AND  WPAC*2.  THE  ROOT  IS  RFTURNET  DOUBLE  PRFCISFON  IN  MPAC  AND  MPAC+1. 

' 19 .->8  WARNING-  THIS  SUBROUTINE  USES  A TRIPLE  PRFCISICN  INPUT.  THE  PROGRAMMER  MUST  ASSURE  THE  CONTENTS  OF  MPAC  + 2 

R 1 9 1 ESPECIALLY  IF  THF  CONTENTS  OF  MPAC  IS  SMALL  OR  ZERO.  FOR  OE  TAILS  SEE  STG  MEMO  NO. 949. 

* 1912  TAILING  SEQUENCE-  IN  I NTEPPRFTIVE  MODE  I.E.,  FOLLOWING  TC  INTPR  ET,  SQR  T NO  ADDRESS  I S ALLOWED 
R 1 9 1 4 INPUT  SCALING  THE  BINARY  POINT  IS  ASSUMED  TO  THE  RIGHT  OF  BIT  15.  T 

RloU  SUBROUTINES-  G ENS  CP , MPACS  HP,  SQRTSU8,  ABOR  T 

11917  ABOftTFXIT  MODE-  ABORTS  CN  N EG  AT  I V F INPUT  -1.2X10E-4  (77775  OCTAL) 

R 1 9 1 9 DISPLAYS  ERROR  CODE  13C2 

R 1920  TC  ABORT 

R 19  2 1 OCT  1302 

R 1 3 2 ? OERRIS  - LOCATIONS  BU  F , MPT  E MP,  ADORWD  ARE  USED 

1923  PFF  2 LAST  1061  OC  ,32C7  0 33*3  0 SORT  TC  SQRTSUB  TAKE  THE  SQUARE  ROOT  OF  MPAC. 

1924  REF  56  LAST  1065  00,1219  1C  135  1 CCS  MPTEMP  RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  IF 

19?4  00,3211  1 32j  3 0 TC  F +2  ANY  UN-NORMAL  1 7 AT  I CN  RECUIRFO  AND  EXIT 

1926  RFF  3B  LAST  1066  00,3212  1 6073  1 TCF  DANZIG  IF  N3T. 


ANSWER  IS  RETURNED  WITH  THF  SAMt  SCALIN3 


OR  LFSS. 


1927  REF 
1 92  R 

192°  REF 

1930 

1931  PFF 

1932  RFF 


LAST  1046 

LAST  1947 
LAST  1046 


CO, 3213 

00,3215 

1 

,3217 

00,  3220 


6 3133  0 
0 0006  1 
6 3221  0 
22  007  0 
22  116  1 
1 2 3C3  1 


AD  NEG12 

EXTEND 

BZMF  SORTS  HFT 
7 L 

LX  CH  ADORWD 

TCF  GENSCR  +4 


A PIGHT  SHIFT  CF  MCRE  THAN  13  COULD  BE 
REQUIRED  IF  INPUT  WAS  ZERO  IN  MPAC.+l. 
GOFS  HFRE  IN  MOST  CASES. 

IF  A I CNG  SHIFT  IS  REQUIRED,  GO  TO 
GENERAL  RIGHT  SHIFT  ROUTINES. 

AUDRWO  WAS  ZERO  TO  PREVENT  ROUND. 


1935 

1936 
I 9 37 


REF 

F 

REF 


LAST  1067 
LAST  1065 


00,3221 
00,3222 
00, 3223 

, 

CO  ,1225 


50  135  C 
3 4735  1 
54  125  1 
3 4755  1 
1 2036  1 


SORTS  HFT 


INDEX  MPTEMP 

CAF  0 IT  1 5 

TS  MPTEMP 

CAF  ZERO 

TCF  MPACSHR  +3 


SELECT  SHIFTING  BIT  AND  FX  I T THROUGH 
SHIFT  ROUTINES. 

TO  ZERO  MPAC  f?  IN  THE  PROCESS. 


1938 

193Q 
194  > 
1941 


RFF 

REF 

REF 


5 

;r 

4C 


LAST  1043 
LAST  1067 
LAST  106  7 
1 AST  1937 


,0,3226 
30,3227 
. ' - 
00  ,3231 


C 6735  0 
1 6073  1 
1 6(73  1 
1 7702  1 


ABS 


TC  BRANCH 

TCF  OANZIC 

TCF  DANZIG 

TCF  COMP 


TEST  SIGN  OF  MPAC  AND  CCMPLEMfcNT  IF 


JAP:  ASSEMBLE  REVISION  36  UF  AGC  PROGRAM  ZERL  INA  RV  ZOROASTER 
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19*2 
1 943 
19** 
1 9*5 
19*6 
! 947 
l9*fl 
19*0 

195: 

1051 

1952 


RFF  23 
PFF  23 

RFF  337 

PFF  661 

REF  2* 

PFF  662 
PCF  2 


I AST  1032 
LAST  1035 

LAST  106* 

L AST  1066 

LAST  1068 

LAST  1068 
LAST  103? 


00,3232 
03  ,3  23  3 
00, 323* 
30, 3235 
00 , 32  36 
0 >,  ’237 
. 

OC , 12*1 
00, 32*2 
30  ,32*3 
OC,  3 ?** 


26  166  1 
C 0CC6  1 
5 COCO  1 
3 0003  1 
52  160  1 

0 0C-C6  l 
5 0166  0 
2 OCCi  0 
5?  16?  0 

1 6533  C 


OS  =OUR  VECTOR  DEFINE  - ESSENTIALLY  TREATS 

ADS  PUSHLOC  SCALAR  IN  HPAC  AS  * COMPONENT,  PUSHES  UP 

EXTEND  FOP-  Y AND  THEN  AGAIN  FOR  Z. 

INDEX  A 
DC  A 2 

DXCH  HPAC  *3 
EXTEND 

INDEX  PUSHLOC 
OCA  C 

DXCH  MP  AC  +5 

TCF  V MODE  MODE  IS  NON  VECTOR. 


1 96  3 REF  3 LAST  1066 

195*  RFF  1 


00,32*5  0 3317  1 VSO 
00,32*6  1 73**  1 


TC  VSQSUB 

TCF  DMODE 


DOT  MPAC  X?  TH  I TSELF. 
MODE  IS  NOW  DP . 


I 9 55 

1956 

1957 

1 95  8 


CO,  32*7 

LAST  1068 

PEF  25  I AST  1068  0,',92cl 

00,3252 


C 0CC6  1 PUSH 
3 0155  0 
5C  166  C. 

52  001  1 


EXTEND  PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

DC  A MPAC 

INDEX  PUSHLOC  PUSH  OOWN  FIRST  TWO  REGISTERS  IN  FACH 

D XCH  0 


1 959 
I 967 
1 96 1 


PFF  3.' 
REF  5 
PFF  26 


LAST  1066 
LAST  l 1 2 
LAST  1.68 


00  ,3253  5C  163  0 
00,325*  ? 6256  D 

00,3255  26  166  1 


INDEX  MODE  INCREMENT  PUSHDOWN  POINTER. 

CAF  NO.WDS 

ADS  PUSHLOC 


1962 

1967 

196* 


PEF 

PEF 

PEF 


LAST  1068 
LAST  1067 


77  ,3263  l 6073  1 


CCS  MODE 

TCF  TPUSH  PUSH  DOWN  MPAC  +2. 

TCF  DANZ  IG  DONE  FOR  DP. 


1 °66 
1 966 
1967 
1963 
196  9 
19  70 
1971 
197? 
1973 


RFF  66* 
RCF  27 


RFF  fcfcS 
RFF  28 

REF  *2 


LAST  196R 
LAST  1068 


LAST  1068 
i AS  i 1 ■ 

LAST  1C68 


00,3261 
00, 3 262 
DO  ,3263 
00, 326* 
OU, 3265 
OO  ,32  66 
Co,  3 26  7 
00  ,3277 
00,3271 


C 0CC6  1 
3 ''1(0  O 
50  166  0 
51*775  0 
C CCC6  l 
3 0162  l 
5 C 166  0 
51*777  1 
1 6073  1 


EXTEND 

OCA  MPAC  *3 
INDEX  PUSHLOC 
DXCH  0 -* 
EXTEND 

OCA  MPAC  +5 
INOEX  PUSH  LCC 
OXCH  0-2 
TCF  DAN7IG 


CN 


VECTOR,  PJSH  DOWN  Y AND  Z COMPONENTS- 


197*  REF  666  LAST  1068 
1975  PEF  2 LAST  1011 


00,3272  3 0 1 56  0 TPUSH 

3 n ,3273  1 6566  0 


CA 

TCF 


MPAC  +2 
FNDTPUSH  +2 


197* 

1977 

1978 

1979 


RFF  6?  LAST  1066 
REF  7 LAST  101* 
RFF  ?2  LAST  1026 
REE  5 LAST  1nl5 


00,  327*  5C  12C  1 
00,3275  3 0052  0 

00,3276  5*  117  1 

00,3277  1 666*  1 


R VO 


INDEX  F I X LCC 

CA  OPRET 

TS  POLISH 

TCF  GOTO  «■* 


RVC  - RETURN  IV  A Q PP  FT  . 


(ASSUME  QPRET  PCINTS  TO  FIXED  ONLY.) 


GAP: 

L 

PI  980 

Rl  9P2 

1983 

1 986 

19B5 

19R6 

1 987 

1 9B8 

1 9RQ 

1 990 

1991 

1992 

1993 

199/, 

1 99c 

199ft 

1997 

1 998 

1999 

2390 

2001 

200  2 

2001 

2004 

2335 

2 006 

200  7 

230R 

2009 

2010 

2o1  1 

2012 

2313 

2014 

20  15 

2315 

201  7 
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THE  FOLI  OWING  SIJBROL II  NE  S ARE  USEO  IN  SQUARING  MPAC  , 
SPECIAL  CASES  OF  DNPSUB  ANC  COTSlJB,  PUT  IN  T3  SA  VF  SOME  TIME. 


IN  BOTH  THE  SCALAR  AND  VECTOR  SENSE. 


THFY  ARE 


RFF  667 


REF  66B 
RFF  225 
REF  669 

RFF  670 

REF  671 
RFF  672 


RIF  673 
RFF  285 


LAST  106B 


LAST  1069 
LAST  1067 
LAST  1069 

LAST  1069 

LAST  1069 
LAST  1069 


LAST  1069 
LAST  1065 


. ' 

CC,  3 3C  1 
TO  1 3 3C 2 

, 

00, 3305 

. 

' . ' ' 
00,  330  7 
30,331 j 

or,  331  1 
00  ,3312 
00,33  13 

,3314 

I 

CC, 3316 


3 01 55  0 
C CCC6  1 
7 0000  0 
56  156  1 
3 6755  1 
56  155  0 
C r CC6  1 
7 0156  0 
20  001  1 
2C  1 56  1 
56  156  1 
C OOC  6 1 
7 OCO0  0 
20  155  1 
C CCC2  0. 


DSQSUB 


CA  MPAC 

E XTFND 

SQUAR  F 

TS  MPAC 

CAF  Z FRO 

XCH  MPAC 

EXTEND 

MP  MPAC 

DDOUBL 

DAS  MPAC 

XCH  MPAC 

EXTEND 

SOUARE 

OAS  MPAC 

TC  0 


+2 
+ 1 


SQUARES  THE  SCALAR  CUNTENTS  OF 

FORM  2 ( CRGSS  T FRM  ) . 

AND  MAYBE  OVERFLOW. 

AND  SET  A TC  NFT  OVFRFLOW. 


MPAC. 


RCF  B 
RTF  2 
RTF  676 
RFF  675 
REF  138 

RFF  676 
RFF  139 


LAST  1C24 
LAST  1 ■ - 
LAST  1069 
I A S T 1C69 
LAS1  1063 
LAST  1059 
LAST  1069 


00,3317 

00,3320 

1 

OO  ,332? 

,32:  2 

10, 

03  ,3325 
00, 3326 


0 0006  1 
22  137  1 
C 33CO  1 
52  160  1 
5 2 155  1 
52  131  0 
3 0156  0 
56  132  0 


VSOSUB 


EXTEND 

QXCH  DDT  RET 

TC  DSQSUR 

DXCH  MPAC  +3 

OXCH  MPAC 

D XC  H 3 UF 

CA  MPAC  +2 

TS  BUF  +2 


DOTS  THE  VECTOR  IN  MPAC  WITH  ITSELF. 
SQUARE  THE  X COMPONENT. 

SO  WE  CAN  END  IN  COTSUB. 


RFF 

RFF 

REF 

REE 

RFF 


3 

677 
1 60 
67B 
161 
H2 


' ' * 


10 


LAST  1069 
LAST  1069 
L AS!  1069 
l A ST  1069 
LAST  1069 
LAST  1069 

LAST  1061 


00,3327 
,333 
00,3131 
OD  ,3332 
00,3333 
70, 1136 
00,3335 
TO,  3336 


0 3300  1 
52  156  1 
20  132  0 
6 9 i 56  l 
t C 1 30  0 
56  120  1 

1 3337  1 
54  121  1 


TC  OSQSIJB  SOUARF  Y COMPONENT. 

OXCH  MPAC  *1 

OAS  9 UF  +1 

AD  MPAC 

AD  BUF 

TS  9 UF 

TCF  +2 

TS  OVF 1 ND  IF  OVERFLOW  . 


PEF  679 
RTF  680 

PFF  6 
RFF  1 


I AST  105° 
LAST  1069 
I A$1  1 J69 


,3337 

00,3340 

. 

. 


52  162  0 
5?  155  l 

0 3300  1 

1 7217  0 


DXCH  MPAC  +5 
DXCH  MPAC 

TC  T SO  SUB  SCIJARF  Z COMPONENT. 

TCF  FNDDOT  END  AS  IN  DOTSUB. 
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P2C'1 8 nCHPLE  PRECISION  SQUARE  ROOT  ROUTINE.  T AK  F THE  SOUARE  ROOT  OF  THF  TRIPLE  PRECISION  (MPAC  + 2 USED  ONLY 

17'  2 IN  NORMAL  I 7 A TI  ONI  rnNTFNTS  CF  MPAC  A NO  LEAVE  THE  NORMAL  I 7 EC  RESULT  IN  MPAC  (C(MPAC)  GREATFR  THAN  OR  z 3 UAL  TO 

R 2322  .5).  TEE  RIGHT  SHIFT  COUNT  (TO  UNNOPMALIZE)  IS  LEFT  IN  MPTEMP. 


SCPTSIJP  CAF 


START  BY  7ER0ING  RIGHT  SHIFT  COUNT. 


2 t'2S 
20  26 
2327 
?0?8 


) 0,3345  1C  154 
^0,3346  1 34C6  1 

C,  3347  1 33=1  1 

00  ,3350  1 3373  1 


CCS 

TCF 

TCF 

TCF 


CHECK  FOR  POSITIVE  ARGUME  NT , SHIFTING 
FIRST  SIGNIFICANT  MPAC  REGISTER  INTO 
MPAC  ITSELF. 

SFF  IF  MAG  GF  ARGUMF  NT  LESS  THAN  10  (-4  1. 


iolo 


REF  60-3 

PEF  6 P4 
RFF  IS 
RFF  6" 


LAST  1 r 70 
LAST  'Cl  7L 
LAST  ) 7 
l AST  951 
LAST  1 C 7( 


, j ! i 

00, 335/ 

. 

00,3354 
00 , 335S 


MPAC  +2 
MPAC  ♦ 1 
MPAC 
SFVEN 
MPTEMP 


MPAC  IS  ZERO  - SHIFT  LFFT  14. 

AUGMENT  RIGHT  SHIFT  COUNTEP. 


20  34 
2D  35 
2036 
70  3 7 

2p3  8 
2039 
2343 
2-41 


RFF  686 
RFF  687 
RFF  16 
REF  61 


LAST  1 07  C 
LAST  1070 


LAST  1070 
LAST  1C7C 
LAST  1070 
LAST  1070 


00,3356 
DO, 3357 
Ol>  ,3360 
0(  ,3361 

00, 3362 
00,3363 
00, 3364 
00,3365 


10  154  0 
1 3405  1 
1 3362  1 

1 3376  1 

56  155  0 
54  154  0 

2 4757  0 
26  135  l 


CCS 

TCF 

TCF 

TCF 


7EKCANS 


MPAC  + 

MPAC 

SEVEN 

MPTEMP 


SEE  IF  MPAC  NOW  PNZ. 

NFGATIVE  BUT  LESS  THAN  101-4)  IN  MAG. 
ZERO  - SHIFT  LEFT  14  AGAIN. 

AUGMENT  RIGHT  SHIFT  COUNTER. 


4 ? 

2043 

2044 
2345 
2046 


PEF  6 P P 
RFF  3 
REF  286 
REF  2 
REF  1 


LAST  1C7C 
i AST  1 7 
I AST  1069 
LAST  1C70 


00  ,337” 
CC, 3371 
00, 3 372 


0 0002  0 

1 3376  1 

1 3453  1 


SQRTIO)  = 0. 

OH  NOT  LEAVF  SQRTSUB  WITH 


, 


1 G 3OOO  0 SCRTNEG 


SORTABRT 


2049 

2050 

2051 

2052 
2353 


REF  689 
PEF  227 
REF  2 
REF  2 
REF  3 


LA  SI  I 7 
LAST  1 7 
LAST  1070 
LAST  1 C 70 
LAST  1070 


DC  ,3375 

. ’ 17 1 

■ 

, ' 

CO, 34C1 


10  155  1 
3 4755  l 
1 3453  I 
1 3402  0 
1 3453  1 


CCS 

CAF 

TCF 

TCF 

TCF 


MPAC.  +1 
ZERO 
c I XROOT 
SORTABRT 
FI XROOT 


20  54  PF  r 
20  54  1 PEF 
2055 


27  LAST  1016 


q 2 165  1 
0 5727  0 
2 1 2o2  0 


SORTABRT  OXCH 


LOC 

P000001 

21302 


2056  REF 


.05  6 2444  1 SMPAC- 


- 1/2  + 2 


SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL  TO 


j A P : ASSFMBLE  REVISION  5o  OF  A GC  PR  C GRAM  ZERLINA  RY  ZOROASTER 


L INTERPRETER 


2 05  7 

. • < 

C 00 C 6 

1 

E XTEND 

2058 

REF 

1 

00 ,3407 

6 3456 

0 

BZMF 

SRTEST 

2359 

RFF 

690 

LAST 

1070 

00, 3410 

52  155 

l 

DXCH 

MP  AC 

2060 

RFF 

16 

l AST 

1052 

" ,3411 

22  021 

L 

L XC  H 

SR 

2061 

00,3412 

0 0006 

1 

EXT  END 

236? 

RFF 

31 

L AST 

105? 

CC, 3413 

7 4736 

0 

MP 

HALF 

2063 

REF 

691 

LAST 

1071 

00  ,3414 

52  155 

1 

DXCH 

M P AC 

20  64 

RFF 

17 

LA  ST 

1 C 7 1 

00,3415 

56  021 

1 

XCH 

SR 

2 065 

REF 

69? 

L AST 

107  1 

)P  , 34  16 

26  155 

1 

AD  S 

MPAC  +1 

2066 

REF 

1 

00  ,3417 

3 2314 

0 

ARGHI 

CAF 

SLOPFHI 

2367 

CC,  3420 

C CCC6 

1 

E X TE  NO 

2068 

RFF 

69-7 

LAST 

1371 

00,3421 

7 0 154 

0 

MP 

MPAC 

2C69 

REF 

1 

30,3422 

6 2566 

0 

AD 

8 1 AS  H I 

p 370 

REF 

19-3 

LAST 

1069 

00,3423 

54  130 

1 

+ 4 

TS 

BUF 

2071 

RFF 

694 

LAST 

1071 

TO  ,3424 

3 0 1 54 

1 

CA 

MPAC 

207? 

CO,  34  2 5 

22  CC  7 

0 

ZL 

2 073 

00, 3426 

0 OOC  6 

1 

E XTEND 

2079 

REF 

144 

LAST 

1071 

JO  ,3427 

10  130 

1 

DV 

BUF 

2375 

00, 3420 

C CCC6 

1 

F XTEND 

2(;76 

REF 

32 

LAST 

107  1 

00  , 3431 

7 4736 

0 

MP 

HA  LF 

20  77 

REF 

145 

LAST 

1071 

00,3432 

26  130 

1 

ADS 

BU  F 

>378 

CO,  34  33 

0 0006 

1 

EXTE  NO 

2f  7Q 

REF 

33 

LAST 

1071 

'30  ,3434 

7 4736 

0 

MP 

HALF 

2080 

RFF 

695 

LA  ST 

1071 

00,3435 

c 2 155 

1 

DXCH 

MPAC. 

20R1 

00, 3436 

0 0C06 

1 

F XTEND 

2082 

RFF 

146 

LAST 

107  1 

00  ,7437 

10  130 

1 

DV 

BUF 

238  3 

REF 

147 

LAST 

107  1 

00, 3440 

54  131 

0 

TS 

BUF  +1 

2 089 

RFF 

228 

LAST 

1070 

00,3441 

3 4755 

1 

CAF 

ZFRO 

20  85 

REF 

234 

LAST 

1063 

00,3442 

56  001 

0 

XCH 

L 

2386 

OC,  344  3 

0 00C6 

1 

E X TE  NO 

2087 

REF 

148 

LAST 

1071 

OU  ,3444 

10  130 

1 

DV 

BUF 

20  88 

REF 

235 

LA  ST 

1C71 

00,3445 

54  C01 

1 

TS 

L 

2089 

RCF 

149 

LAST 

107  1 

00, 3446 

2 0131 

1 

CA 

B UF  + 1 

2090 

REF 

696 

LAST 

107  1 

00  ,3447 

20  155 

1 

DAS 

MPAC 

23^1 

CO, 3450 

C CCC6 

1 

F X TE  NO 

2092 

RFF 

1 

1 ,3451 

1 3455 

1 

8ZF 

TCQBNKOO 

20  Q 3 

RFF 

21 

LAST 

1 C56 

OU , 3^52 

3 4733 

1 

CAF 

POSMAX 

2399 

RFF 

697 

L AST 

107  1 

00,  345-3 

54  154 

0 

FI  XR'JflT 

TS 

MPAC 

2095 

RFF 

698 

LAST 

1071 

00  ,3454 

54  155 

1 

TS 

MPAC  +1 

20  °6 

REF 

287 

LAST 

1070 

30,3455 

( CCC2 

0 

TCQBNKOO 

TC 

Q 
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. 5. 

IF  SO,  SEE  IF  LESS  THAN  .29. 

WE  WILL  TAKE  THE  SQUARE  P OOT  OF  MPAC/2. 
SHIFT  RIGHT  l AND  GF  TC  THF  SQRT  ROUTINE 


GUARANTEED  NO  OVERFIOW. 

ARGUMENT  BETWEEN  .25  AND  .5.  GET  A 
LINEAR  APPROXIMATION  FOR  THIS  RANGE. 

XD/2v^t  (MPAC/2)  (SLOPEHI  ) + BIASHI/2. 

X./2  (ARGLO  ENTERS  EFPE). 
SINGLE-PRECISION  THROUGHOUT. 


( MP AC / 2 ) /<  XC/2) 


XI  = XO/2  ♦ . 51  MPAC/2)  /(  XC/2). 


FORM  UP  Xl/2. 

SAVE  AND  BRING  OUT  ARGUMENT. 

TAKE  DP  CUOTIENT  WITH  XI. 

SAVE  MAJOR  PAPT  OF  QUOTIENT. 

FORM  MINOR  PART  OF  QUCTIENT  USING 
(REMA  INDER  ,0)  . 


IN  PREPARATION  FOR  DAS. 

X2  = Xl/2  ♦ ( MP AC / 2 ) XI 
OVERFLOWS  IF  ARG.  NEAR  POSMAX. 


RETURN  TO  CALLER  TO  UNNORMALIZE,  ETC 


,AP:  ASSEMBLE  REVISION  S6  OF  AGC  PRCC-RAV  ZPHLINA  BV  ZOROASTER 


L INTERPRETER 


2 097  PFF 

20  9R 

2099  REF 


,3*56  6 *737  C SRTFST 

OC  » 3*5  7 ( C CC6  1 

00. 3*60  6 35C 2 0 


AO  OUARTFR 

FXTENO 

9ZMF  SQR  TNORM 


?1  1 1 

2107 
21-  3 

2K* 

21.  5 

2106 


PFF  690  LAST  1 C 7 1 
PFF  IB  LAST  1^71 

REF  1*  1 A ST  1 C 7 1 

REF  7G0  LAST  107.2 
PFF  19  LAST  1072 
PLF  701  LAST  1072 


00,3461  52  153  1 

.0,  34*2  22  021  1 

00  ,346  3 0 0006  1 

10,3*64  7 4736 

00,3465  5<  155  1 

00  ,3466  56  021  1 

00, 3467  26  155  l 


OX  CH  MP  AC 

LXCH  SR 

EXTEND 
MP  HALF 

OXCH  MPAC 

XCF  SP 

AOS  MPAC  ♦! 


21  r 
21‘B 
21-9 
711'' 
21  1 1 


PFF  1 

REF  702  LAST  1072 
PFF  1 
PEF  1 


. 

00,3471 
DO, 3472 
o'  ,3473 
'.0,34  74 


3 3007  0 
C 0006  1 
7 Cl 54  0 
6 2270  P 
1 3423  0 


AR  GLO 


CAF  SLOPFLD 

EXTEND 
VP  MPAC 

AO  BIASLQ 

TCF  ARGHI  +* 


2112 

2113 

2114 

2115 

2116 


REF  703  LAST  1072 
PEF  704  LAST  1072 
RFF  705  LAST  107? 
PFF  706  LAST  1072 


00, 3*75  C 0006  1 
00  ,3*76  3 H56.  0 

00 t 3*77  2C  156  1 
00,3500  6 015*  1 

00,3501  26  15*  0 


SQR  TNV  2 


F XTEND 

OCA  MPAC  +1 

DAS  MPAC  +1 

AD  MPAC 

ADS  MPAC 


21 1“ 

2120 

2121 
? 12? 
2 123 
212* 


REF  62  LAST  1070 

PEF  707  LAST  1Q72 
REF  73P  LAST  1072 
PFF  709  LAST  1C72 
REF  710  I AST  1072 

RFF  IP  LAST  *69 


00, 3502  2*  135  0 

00,3503  0 0006  1 

:C,J50*  2 0156  0 

00,  3505  20  156  1 

00,3506  6 '15*  1 

00, 3507  26  15*  O 

00,3510  6 0000  1 

00,3511  5*  022  0 


SQRTNDRM  I NCR 

EXTEND 

DCA 

DA  S 

AD 

ADS 

DOUBLE 

TS 


MP  TF  MP 

MPAC  +1 
MPAC  ♦ 1 
MPAC 
MPAC 


CYL 


2125 

2126 
2127 

212ft 


2129 


PFF 

RFF 

PFF 


1 9 1 AST  1072  00, 35  12 

20  LAST  1072  00  ,3513 

1 00,  351* 

? LAST  1072  00,3515 

1 00,3516 


10  022  0 NORMTEST  CCS  CYL 

10  022  0 CCS  CYL 

1 3*75  0 TCF  SQRTNM2 

1 3*17  1 TCF  ARGHI 

1 3*70  0 TCF  AR Gl  0 
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ARGUMENT  WAS  LESS  THAN  .5,  SEE  IF  LESS 
THAN  .25. 

IF  SO,  BEGIN  NORMALIZAT  ION. 


IF  BETWEEN  .5  AND  .25,  SHIFT  RIGHT  1 AND 
START  AT  APGLO. 


NO  OV  ERFLOrf  . 

(NORMALIZED)  ARGUMENT  BETWEEN  .125  AND 
.25 


BFGIN  SQUARE  ROOT. 

SHIFT  LEFT  2 AND  INCREMENT  RIGHT  SHIFT 
COUNT  (FOR  TERMINAL  UNNDR  MA  LI  1 A TI  ONI  . 


(NO  OVERFLOW). 


FIRST  TIME  THROUGH,  JUST  SHIFT  LEFT  1 
(PUTS  IN  EFFECTIVE  RIGHT  SHIFT  SINCE 
WE  WANT  MPAC/ 2 > . 


( AGA  IN  Nn  OVER  FL  CM  ) . 


SFE  IF  ARGUMENT  NOW  NDRM  AL  1 7 ED  AT 
GREATER  THAN  . 125. 

NO  - SHIFT  LEFT  2 MORE  AND  TRY  AGAIN. 
YES  - NOW  BETWEEN  .5  AND  .25. 

ARGUMENT  NOW  BETWEEN  .25  AND  .125. 


3 2130 
R2131 
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ASSEMBLE  RF  VI  SION  56  OF  AGC  PR  C GRAM  ZERLINA  BY  ZOROASTER 
1 NT FR PREFER 
IP  I GONOMF  TP. TC  FUNCTION  PACKAGE. 

THF  FOLLOWING  TR 1 GONCMF  TR I C FUNCTIONS  ARE  AVAILABLE  AS  INTERPRETIVE  OPERATIONS: 


SIN 

COS 


121  PAGE  1073 
E3  S3 


R 2 1 3 7 SIN-ASIN  AND  COS-ACOS  ARE  MUTUALLY  INVERSE,  IE  SIN(ASINCXJ)  = X. 


REF  6 LAST  1067 

RFF  1 

REF  2 LAST  1073 


03,3517 

■ 

00, 3521 
)0  ,3522 


0 6735  U 

1 3523  1 
1 3526  1 
1 3526  1 


TCF 
TC  F 
TCF 


BRANCH 
+ 3 

PPFSINE 
PR  ES1NF 


FINDS  COSINE  USING  THE  IDENTITY 
COSIX  ) = S INI  P 1/2  - ABSI  X)  ). 


RFF  7 1 1 LAST  1072 
RFF  712  l A ST  1073 


00,35  2 3 P 000  6 1 
00, 3524  40155  1 

00  ,3525  52  155  1 


EXTEND 
DCS  MPAC 
DXCH  MPAC 


RFF  2 

rfi  r 1 ’ 


LAST  1072 
LAST  1073 


00,  3 c 2 6 
00,3  52  7 


2 4737  0 
26  154  0 


SINE  CAP 
AOS 


QUARTER 

MPAC 


PI/2  SCALED. 


2147  REF  714  LAST  IC73 

2148 

2140 

2150 


00,3530 

. 

■ ,3532 
00,3523 


52  155 
20  001 
54  000 
1 3536 


1 SI  NE 

0 

0 


OX  CH 
DDOUBL 
OVSK 
TCF 


MPAC 


+3 


DOUBLE  ARGUMENT. 

SEF  IF  OVERFLOW  PRESENT. 

IF  NOT,  ARGUMFNT  OK  AS  IS. 


2151 

2152 
A2163 

2154 

2155 

2156 


2157 

2158 


00, 3534  0 0006  1 

00,3535  4 0001  1 


RFF  715 
PEF  716 


RFF  236 
PFF  l 


LAST 
I.A  ST 

LAST 


1073 

1073 

1071 


, 

’ . 

)(  , 

. 

. 


3536 

3537 

3540 

3541 

3542 


52  155 
3 0154 
6 0000 
54  001 
1 3553 


F X TEND 
DCCM 

DXCH  MPAC 
CA  MPAC 

00U31E 
TS  L 

TCF  SN1 


IF  SO,  WF  LOST  (OP  GAINED)  PI,  SO 
COMPLEMENT  MPAC  USING  THE  IDENTITY 
S IN  (X  - ( + ) PI  ) = SIM-X  ). 

SEE  IF  ARGUMENT  GREATER  THAN  .5  IN 
MAGNITUDE.  IF  SO,  RFOJCE  IT  TO  LESS  THAN 
.5  (+-PJ/2  SCALED)  AS  FOLIOWS: 


?1  59 

216c 

2161 

216? 

2163 

2164 
21  65 
2166 


PEF 

PEF 

RFF 

REF 


339  LAST  1070 
8 LAST  898 


717  LAST  1073 

718  LAST  107? 
710  LAST  l->73 
720  LAST  1073 


00,3543 
00,3  544 
00, 3545 
00  ,3546 
00,3547 
00,  3550 
0 3 ,3551 
00, 3552 


50  000  1 
3 4735  1 
t 0000  1 
0 0006  1 

6C  164  1 
64  154  0 
* 0156  l 
54  155  1 


INDEX  A 

CAF  NEG1/2  ♦) 

DOUBLE 

EXTEND 

SU  MPAC 

TS  MPAC 

CS  MPAC  +1 

TS  MPAC  +1 


IF  POSITIVE,  F OP  M PI  - X,  IF  NFGAT  IV  E 
USE  -P I - X. 


GUARANTEED  ND  OVEPFlOW. 


1 2 OCT.  21,1970  SKIPPFR  . 12L  PAGE  1 0 74 


GAP:  ASSEMBLE  REVISION  *56  GE  AGC  PRCGRAM  ZERLINA  BV  ZCPOASTfcR 


L INTERPRETER 


USER'S  PAGE  NO.  82  E3  S3 


2167 

2168 
2169 

217., 


PEP  7?  1 LAST  1073 
REF  10  LAST  1059 
RFF  5 LAST  1C69 


00  ,3553  0 0006  1 SN 1 

00,3554  ? 0155  C 

JO , >555  52  12a  0 

00,3556  C 3300  1 


EXTEND  SET  UP  TO  EVALUATE  HASTINGS  POLYNOMIAL 

OCA  MPAC 

OXCH  3 UP  2 

TC  DSQSUB  SQUARE  MPAC . 


2173 

217T 

21  74 
2 1 7 A 
2175 

2175 

2176 

2176 

2177 
2177 


®EF 


? I AST 


. 

00,3561 
OC, 3562 

,3563 
00,  3664 
On, 3565 
. 

00,  3567 

. 1 

OC ,3571 
30, 3572 


f 7236  0 
00003  1 
14  441  0 
37325  1 
53250  C 
6C764  1 
l?  146  1 
21276  1 
15466  1 
71471  0 
00236  0 
22757  0 


TC  POLY 

DEC  3 

2 DEC  ♦ .3926990796 

2 DEC  -.645Q637111 

2DFC  ♦ • 3 1 8758717 
2DEC  -.074780249 
2 DEC  +.009604988 


EVALUATE  FOURTH  OPCER  POLYNOMIAL  . 


! 1 78  REF  1 
179  RFF 


LAST  1035 


00 ,3573 
CO, 3574 


3 2470  0 
C 7120  0 


CAF  LBUF2  MULTIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 

TC  DMPSIJ0  -1 


2182 

2183 

2184 

2185 

2186 
2167 
2188 
2189 
2130 


PPF  722 
RFF  723 
REF  724 
REF  725 

RFF  726 
RFF  727 
PFF  728 
REF  729 
REF  43 


LAST  1074 
LAST  1 n 7 4 
LAST  1074 
LAST  1074 

LAST  1C  74 
I AST  1)74 
LAST  1074 
LAST  1C74 
LAST  1068 


, 

no, 3 576 
C 0 , 3577 

00  ,3600 
00,360  1 
00,  3602 

00  ,3603 

. 

. 

00,3606 
OC, 36C7 


0 0006  1 
3 1156  0 
20  156  1 
6 0154  l 
26  154  0 
C 0006  1 
3 0 1 56  0 
2 C 156  1 
6 0154  1 
26  154  0 

1 6C  7 3 1 


EXTEND 

OCA  MPAC  +1 

OAS  MPAC  +1 

AD  MPAC 

AOS  MPAC  NEITHER  SHIFT  OVERFLOWS. 

EXTEND 

DC  A Mp  AC  +1 

OAS  MPAC  +1 

AD  MPAC 

ADS  MPAC 

TCF  DANZIG 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  7 ERL  I N A BY  ZOROASTER 


L INTERPRETER 

P 2 19  I ARCSIN/ARCCOS  ROUTINE. 


2 102  REF 
2103 


00,36  10  3 3631  0 ARCS  IN 
00,3611  1 3613  1 


2168  PEF  1 

2195  PFF  1 

2196  REF  7 

2197  RFF  1 

219R  REF  1 

2199 

2200  RFF  730 

220  1 REF  731 

2202  RFF  1 

2203  REF  2 

2238  REF  1 


LAST  1073 

LAST  1C78 
LAST  1C75 

LAST  107  5 


00, 3612 
00  ,3613 
O'  , 3 616 
00,  361  5 

"",3616 

C, 3617 

, 

00,7621 
00, 3622 
00  ,3623 
>^0,  3(26 


• 3713  1 
56  136  1 
C 6735  0 
1 3625  1 

1 3731  0 
C 0C06  1 
U 0155  1 
52  155  1 

2 37  3a  1 
56  136  0 
5 A 137  0 


AROCO  S 


CAF 

TS 

TC 

TCF 

TCF 

F XTEND 

ncs 

DXCH 

CAF 

XCH 

TS 


LOANZIG 

FSCAPE 

BRANCH 

AOOSST 

ACOSZERO 

M P AC 
MP  AC 
TO  SU3TR 
ESCAPE 
ESCAPE? 


27 f 5 
2206 
22^7 
2206 


PFE  7*  LAST  1072 
RFF  73?  LAST  1C75 
RFF  3A0  LAST  1073 
RC-F  1 


00,3625 
10 ,3626 
CO,  3627 

. 


A A736  0 
6 01 5 A 1 
10  OCO  0 
1 3721  1 


2200  REF 
2210  REF 


00,363  1 1 3 7C7  0 L A SI NF  X 

00, 7632  1 3(82  0 


TCF 

TCF 


AS INEX 

AC0SST2 


2213 


PFF  733 
REF  229 
REF  1 


LAST  1075 
l AST  1071 


: 1 ,3 633  U 155  i 
1C,  36  3a  ' A 7 55  1 
00  ,3o35  1 3637  1 


CCS  MP  AC  +1 

CAF  ZFRQ 

TCF  ACO  S=  0 


22 1 A REF 


2 LAST  1C75 


00,3636  1 36A2  0 


TCF  AC0SST2 


22  1 S 
2216 
2217 


REF  73A 
RTF  735 
REF  3 


LAST 
l AST 
LAST 


1075 
lr'76 
107  5 


00,36  37  5 A 155  1 AC0S=0 
09,3680  58  15A  C 
00,  36 A 1 C 0136  0 


TS 

TS 

TC 


MI'AC  + l 
MP  AC 
ESCAPE 


2218 

2?]^ 

222? 

2221 

2222 


RFF  736  LAST  1C75 
REF  36  LAST  1075 
REF  737  LAST  1075 
REF  20  LAST  1P7A 


DO , 36 A2  0 0006  1 
• ,3663  A *"155  1 
76AA  6 A736  1 
0 ,3686  52  155  1 

OC , 36 A6  52  13A  0 


ACOSST  2 


EXTEND 
OCS  MP  AC 

AO  HALF 

DXCH  M p AC 

DXCH  BUF2 


.3  LAST  106  7 


. 

00,3650 
00,  3651 
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COMPUTE  ARC  SIN  BY  USING  THE  IDENTITY 
ARCS  IN  ( X ) = PI/?  - ARCCPS(X). 


(EXITS  I MMECI  AT  FLY  ) . 

T FST  S IGN  OF  INPUT  . 

START  IMMEDIATELY  IF  POSITIVE. 

ARCCD  S(  0)  = P 1/2  = .25. 

IF  NEGATIVE,  USE  THE  IDENTITY 
ARCCOSfX)  = PI  - ARCCCS(-X),  FORCING 
ARGUMENT  POSITIVE. 

SET  EXIT  TO  00  ABCVE  BEFORE 
ARCSIN/ARCCOS  CONSIDERATIONS. 


TFST  MAGNI  TUOF  OF  INPUT. 


THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 


NO  OVERFLOW  - PROCEED. 

IF  MAJOR  PART  IS  .5,  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVF. 


NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 
BEGIN  COMPUTATION.  USE  HASTINGS 
APPROX  I MAT  l CN  ARCCCS  (X  ) = SORT  ( 1 - X IP  ( X ) 
IN  A SCALED  VERSION  WHERE  P(X)  IS  A 
SEVENTH  ORDER  POLYNOMIAL. 


RETURNS  WITH  NORMALIZED  SQUARf  ROOT. 

SEE  IF  UN-NORMALIZATION  REQUIRED. 

II  so. 


GAP: 
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L INTERPRETER 


USER*  S PAGF  NC.  8 a E3  S 3 


2226 

PFF 

738 

LAST 

I C7  5 

00,3652 

52  155 

1 ACCS3 

OX  CH 

MPAC  SET  UP  FDR  POLYNOMIAL  EVALUATION. 

2227 

PEF 

?1 

1 AST 

1C75 

06, 3653 

52  134 

0 

0 XCH 

BUF2 

2223 

REF 

739 

LAST 

10  76 

02  ,3654 

52  155 

1 

CXCH 

MPAC 

22  20 

REF 

3 

LAST 

1C  74 

00,3655 

t 7234 

c 

TC 

POLY 

2230 

’o , 3656 

00CC6 

1 

DEC 

6 

2231 

f ,3657 

1 3240 

0 

2 OEC 

♦ . 35  3553385  COEFF  I C I EN  T S AR  E C 2(  ♦ 1 1 /PI  SQRTI  2 ) WHtRE 

223 1 

CO, 3660 

2363C 

0 

22  32 

OC,  366  1 

74721 

0 

2DEC  + 

- • G483C 17C06  8*1*  I 

2232 

OC ,3662 

47775 

1 

22  3^ 

OC,  366  3 

02440 

0 

2DFC* 

♦ .0200273085  B+2*  WHERE  C STANDS  FOR  ORIGINAL  COEFFS. 

2233 

. 

20237 

6 

2234 

00,3665 

75067 

1 

2 DEC* 

-.01  12931863  B+3  * 

2234 

00, 3666 

7C  7 4 2 

1 

2235 

00  ,3667 

C 3436 

2 DEC* 

+ .00695311612  9 + 4* 

2235 

X.  ,3670 

26756 

1 

2234 

: - , 36  7 1 

74037 

0 

2DE2* 

-.  00384617957  9+  5* 

2236 

00,367? 

67640 

1 

2/37 

OC, 3673 

03C46 

0 

2DEC* 

+.001501297736  0+6* 

2237 

00,3674 

07143 

0 

2238 

00,3675 

76654 

1 

2 DEC* 

— .000284160334  9+7* 

2238 

00, 3676 

42/44 

0 

2239 

PFF 

2 

1 AST 

1074 

O'-  3677 

3 2470 

CAF 

LRUF2  DO  FINAL  MULTIPLY  AND  GO  TO  ANY 

224' 

PEF 

LAST 

1074 

• 

C 7120 

0 

TC 

IB  -1  EPIl  OGUE  SEQUENCES. 

2241 

PEF 

4 

LAST 

1075 

00,  370  1 

0 0 136 

0 

TC 

ESCAPE 

2242 

2243 

2244 

2245 

2246 


REI  741  i AS  1 107 < 

°FF  37  LAST  1075 
REF  741  I A ST  1G76 
PEF  2 LAST  1075 


00,3702 
i C , 3703 
00  ,3704 
00 ,3 705 

. 


0 0006  1 

4 0 1 55  1 
6 4736  1 

5 2 15  5 1 
0 0137  1 


SUBTR 


FXT  END 
DCS  MPAC 

AD  HALF 

OX  CH  MPAC 

TC  E SC  A PE  2 


EPILOGUE  FOP  NEGATIVE  INPUTS  TO  ARCCOS. 
FORMS  PI  - ARCCOSI  -X)  = ARCCOS  (X)  . 

GO  TO  POSSIBLE  ARCS  IN  EPIIOGUE. 


2?  4 7 
2248 
224Q 

2250 

2251 


REF  742 
PFF  3 
PFF  743 
REF  44 


I AST  107E 
LAST  Ip  7 3 
I AST  1 C76 
I AST  1074 


OC  ,37C  7 
00,  3710 
C ,3711 
0(  ,3712 
00,  -37  13 


0 0006  1 
4 0155  1 
6 4737  0 
52  155  1 
1 60  7 3 1 


AS  IN  EX 


EX  T EV  0 
DCS  MPAC 

AD  OUAPTFR 

DX  CH  MPAC 

TCF  DANZIG 


ARCS  IN  EPILOGJE  - GET  APCSIN(X) 
= PI  12  - ARCCnS(X)  . 


LOANZ IG 


I'.Ap:  ASSEMBLE  REV  IS  JON  56  3F  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


L INTERPRETER 


2252 

2253 

REF 

REF 

341 

66 

1 A ST 

L AST 

1075 
106  4 

00,3714 
00, 3715 

50  000 

3 4736 

I 

1 

ACCSSHR 

I NDEX 
CAF 

31  T14 

2254 

REF 

64 

LAST 

1075 

JO  ,3716 

54  135 

1 

TS 

MPT  EMP 

2255 

REF 

4 

LAST 

10  41 

00, 3717 

f 2C73 

1 

TC 

VSHRRND 

2 256 

REF 

1 

00,  37  20 

1 36  52 

1 

TC  F 

AC0S3 

2257 

00,3721 

C 0006 

1 

ACCSOVF 

EXTEND 

2258 

REF 

2 

L AST 

107  5 

. 

1 3637 

1 

BZF 

AC  0S=0 

2259 

00  ,3723 

0 0006 

1 

ACnS ABRT 

EXTEND 

22591 

REF 

28 

1 AST 

1070 

00,3724 

2 016  5 

0 

DC  A 

LOC 

22592 

PCF 

1 

00, 3725 

0 57  33 

0 

TC 

A LAP. Ml 

22593 

00 ,3726 

01301 

1 

OCT 

130  1 

REF 

LAST 

107  5 

00, 3727 

3 4755 

1 

CAF 

ZERO 

REF 

LAST 

i 7 7 

00,3730 

1 36  37 

1 

TCF 

ACO  $=  0 

2261 

REF 

4 

LA  ST 

1C76 

00,3731 

3 4737 

0 

ACCS  ZERO 

CAF 

OU  ART  ER 

2262 

REF 

4 

L AST 

1077 

00, 3732 

1 364C 

1 

TCF 

4C0S=0  * 

2263 

REF 

00  ,3733 

77763 

0 

NEG12 

OEC 

- 12 

2264 

1 

OC, 3734 

1 3702 

0 

TC.  SUB  TR 

TCF 

SU8TR 
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THE  SHIFT  RIGHT  IS  LESS  THAN  14  SINCE 
THE  INPUT  WAS  NON-Z  FRO  DP. 

DP  SHIFT  RIGHT  AND  POUND. 

PROCEED. 


IF  MAJOR  PART  WAS  ONLY  1 MORE  THAN  .5, 
CALL  ANSWER  ZERC. 


IF  OVERFLOW,  CALL  ANSWER  ZERO  RUT 
S OUND  AN  AL  APM  . 


ACOSir  ) = PI/2. 

SET  M PAG  AND  EXIT  VIA  ESCAPE 


GAP:  ASS  EM 81.  6 REV  IS  ION 


OF  AC-C  PROGRAM  ZFRLINA  BY  ZOROA  $J&A 


9:12  CCT.  21,1970  SKIPPER 


121  PAGE  1078 


L INTERPRETER 


USER'S  PAGE  NO.  P6  E3  S3 


P2265 


THE  FOLLOWING  I V STM  LC  T I ON  S A»  E AVAILABLE  FOR  SETTING,  MODIFYING,  ANO  BRANCHING  ON  INDEX  PEGISTfcPS: 


J ??6fl 
P??69 
»??7< 
R??71 
P2272 


1 . AXT 

i.  a xr 

3 . LXA 

а.  ixr 

5.  SXA 

б.  XCHX 


AODRESS  TO  INDEX  TRUE. 

ADDRESS  TC  INDEX  COMPLEMENT  FD. 

LOAD  INDEX  FROM  ERASABLE. 

I TAC  INTFX  fOMPl  FMpNTFO  FROM  FRASABLF. 
ST  ERE  INDEX  IN  ERASABLE. 

EXCHANGE  INDEX  RE  IG  STER  WITH  ERA  SABLF. 


R2275 


7.  I NC R 
9 . X AD 
9.  XSU 


INCREMENT  INDEX  REGISTER. 

ERASABLE  ADO  TC  I NOF  X REGISTER. 
ERASABLE  SUBTRACT  FROM  INDEX  REGISTER. 


R ? 2 7 6 


10.  TIX 


BRANCH  CN  INDEX  REGISTER  ANO  DECREMENT. 


2277 


0 1, 2350 


BANK 


Cl 


??7H 
??  79 
22  80 
??B1 
2?°? 
22B3 


P EF 
REF 
REF 


23 

30 


«FF  45 


LAST  1 068 
LAST  <=<37 
l AST  100  7 
LAST  1076 


Cl,  2350 
01,2351 
01 ,?  IS? 

r 1,  2353 

01  ,2  354 


C 2445  0 
3 0117  0 
50  130  0 
54  C 46  1 
1 6073  1 


AXT 

XSTCRE 


ft/  I NT  ER 
TAGSUB 
PDL I SH 
INDEX!  DC 


SELECT  APPROPRIATE  INDEX  REGISTER  • 
CONTAINS  C(FIXLOC)  OR  CIFIXLDCJ+l. 


an. 

22R6 


l]  ,?  35  7 


C 2445  C AXC 
4 0117  1 
C 235?  1 


TC  TAGSUB 
:s  POLISH 
TC  XSTOPE 


? ’P7 
22H8 
22B9 
2 2 9C 


REF  1 

RFF  ?5  LAST  1078 
REF  2 LAST  1078 


01,  2360  C 2433  1 
01  , ? 36  1 5 C 1 17  0 

01,2362  3 CCCC  1 

0 1,  2363  1 2352  0 


L XA 


TC  1 5 ADRE  R S LOAD  I NDFX  REGISTER  FROM  FRASABLE. 

INDEX  POLISH 

CA  0 

TC  F X STORE 


2291 

???? 

22o3 


??‘>4 


01  ,2  364 
Cl,  2365 
01,2366 
01  ,2367 


0 243.5  1 
5C  117  0 

4 0000  0 

1 2 352  0 


TC  15ADRFRS  LOAD  NDX  REG  FROM  EPA  SABLF  COMPLEMENTED. 

INDEX  POLISH 

CS  0 

TCF  X STORE 


2 ? 9 5 
2296 
??07 


22  9B 
2299 
2330 


RFF  3 LAST  1078 
P-EF  5 LAST  1078 
RFF  31  LAST  1C78 
P EF  27  LAST  1078 

REF  46  LAST  1078 


0 1,  2370 
0 1 , 2 3 7 L 
Cl  ,2372 
0 1,  2373 
0 1 , ? 3 74 
Cl,  2375 


C 24  3 3 1 
50  130  0 
2 CC46  0 
5C  H7  0 
54  000  0 
1 6C73  1 


SXA 

MS  TORE  1 


TC  1 5 ADR  ER  S 

INDEX  INDEXLOC 
CA  xl 

INDEX  POLISH 
TS  0 

TCF  DANZIG 


STORE  INDEX  REG  1ST  FP  IN  ERASABLE. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


23(' 1 
2332 
?3o3 


2 30  A 
? 3?  5 
2306 


KFF 

RFF 

REF 


01  ,2376 

l . 

01,2400 

. ■ 

Cl,  2 4 C 2 

01  ,2403 


C 2433  1 
5C  117  0 
3 0000  1 

50  130  0 
56  046  0 
1 2373  0 


TC  15A0RERS 

INDEX  POLISH 
CA  0 

INDEX  INCEXLOC 

XCH  Xl 

TCF  MS  TOR  FI 


230  7 
23(  H 
23(  <3 

231  ' 

2311 

2312 


REF  5 IAST  1079 
REF  29  LAST  1C79 

PEF  7 LAST  1079 
PFF  33  LAST  1079 
REF  47  LAST  1C78 


C 1 , 2 4 C 4 C 2433  1 
! 1,  ?405  50  1 17  0 

; 1,2406  3 0000  1 

01,  2 4C7  5C  13'"'  0 
1,  2410  2 6 046  1 

01,2411  1 6073  1 


X AO 


XAD2 


TC  15ADRERS 

INDEX  POLISH 
CA  0 

INDEX  INDEX  ICC 
AOS  X 1 
TCF  DANZIG 


2313 

2314 

2315 


REF  3 l AST  1078 
RFF  30  LAST  1079 
REF  1 


Cl, 2412  C 2445  0 I NCR 
‘>1  ,2413  3 01  17  0 

Cl, 2414  1 2407  1 


TC  TAGSUB 

CA  POLISH 

TCF  XAC2 


2316 
231  7 
2319 
2319 


0 1,  24  15  0 2433  1 XSU 

0 1 ,24  16  50  1 1 7 0 

C 1,  24  17  4 CCCC  0 

0 1,  2420  1 2407  1 


INDEX 

CS 

TCF 


1 5ADRER S 
POL  ISH 
0 

XAD2 


2 320 

2321 

2322 

2323 


REF  4 LAST  1 C79 
PFF  fl  I AST  1079 
REF  12  LAST  956 
REF  c l A ST  1C79 
PEF  34  LAST  1079 

REF  4R  IAST  1079 


01  ,2421  C ->445  0 TIX 

0 1,24  52  5 C 13C  C 

01  ,2423  4 0050  0 

C I ,2454  CC  130  C 

I,  * 0046 

01  ,2426  C 0006  1 
01,  2427  6 6C73  0 


TC  TAGSUB 

INDFX  INDFXLOC 
CS  SI 
INOEX  INDEXLCC 
AD  XI 

EXTENO 

BZMF  DANZIG 


REE  1C  LAST  1079 
RFF  35  LAST  1C75 


'.1  ,243:  50  130  OOTIXBR  INDEX  INDEXLOC 

01  ,2431  56  046  0 XCH  XI 


2 32o 


REF  6 LAST  196R 


1,  ?4  32  1 6660  0 


TCF  30  TO 
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USER'S  PAGE  NC.  B7  F3  S3 

EXCHANGE  INDEX  REGISTER  WITH  ERASABLE. 


ADD  ERASABLE  TO  INDFX  REGISTER. 

IGNORING  OVERFLOWS. 

INCREMENT  INOEX  REGISTER. 

SUBTRACT  ERASABLE  FROM  INDEX  REGISTER. 

BRANCH  AND  DECREMENT  ON  INDEX. 

NO  OPERATION  IF  DECREMENTED  INDEX  IS 
NEGATIVE  OR  ZERO. 

IGNOR  ING  0VE3FL0WS. 

00  THE  RPANCH  USING  THE  CADP  IN  POLISH. 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:12  CCT.  21  * Lc70  SKIPPFR  .121  PAGE  UBi 


L INTERPRETER 


USER  'S  PAGE  NO.  88  E 3 S3 


P2  33  j 


SUBROUTINE  TO  CONVFR  T AN  ERASABLE  ADORE  SS  (11  BITS)  TC  AN  EBANK  SETTING  AND  SUBACCPESS. 


2332 

2333 
233* 
2335 
2 336 


REF  32 
RFF  2 
REF  3*7 
RFF  63 


LAST  1070 
LA'T  1 f ' 7 
I AM  17  7 
LAST  1068 


G 1 ,2*33 
:i  ,7*2* 
Ol,  24  3s 
01  , 2*36 
Cl,  2*3  7 


* 117  1 
6 *772  1 
10  TOO  0 
3 01 2C  1 
1 2***  0 


15A0KERS  CS 


POL  ISH 

DEC*5 

A 

F IXLOr 


DOFS  THE  ADDRESS  PC1NT  TO  THE  WORK  AREA? 
YES.  ADD  F IXLDf  . FRANK  OK  AS  IS. 


2337 
233A 
23?9 
2 3*0 
23*1 


REF  6 LAST  100  7 
RFF  33  LA<T  1080 
REF  70  I AST  1015 
RFF  13  LAST  1015 
PFF  3*  LAST  1C80 


01, 2**0 
01  ,2^*  1 
0 l,  2**2 
>1  ,7**3 
31  ,7*** 


3 50f  7 '■ 
56  117  0 
5*  CCT  0 
7 *357  0 
26  117  1 


CA  OC  T 1*00  Nil.  SET  EBANK  L HAKE  UP  SUBADURESS. 

XCH  POLISH 

TS  EBANK 

MASK  LOWB 

ADS  POLISH  FALL  INTO  TAGSUB,  AND  RETURN  VIA  0. 


R2  3*2 


SUBROUTINE  WHICH  SETS  THE  ADDRESS  OF  THE  SPECIFIED  INDEX  IN  INOEXLCC.  (ACTUALLY, 


THE  ADDRESS  -38 C.) 


23**  REF  6*  LAST  10R0 
23*5  REF  11  LAST  1079 


01  , 2**5  3 01 2 C 1 TAGSUB  CA 

01,  2**6  ?*  130  1 TS 


F IXLOC 
I NOEX  LFF 


2 3** 
2 3*7 
73*5 
2 3*o 


REF  32 
PCF  12 
RFF  28P 


RFF  2 8° 


I AST  1 n * 7 01, 2**7 
LAST  1 C80  01,2*50 

l AST  1:  7 1 - 1,  2*5  1 

LAST  108  I , ■ 


10  0 2S  1 
2*  130  0 
C Ot  C 2 0 
0 000  2 0 


CCS  CYR  BIT  15  SPFCIFIES  INDEX. 

INCK  1 NCEXLOC  D MEANS  USE  X2. 

TC  0 

TC  0 


1 FOR  XI. 


GAP:  ASSEMBLE  REVISION  St,  OF  AGS  PROGRAM  ZERLINA  RY  ZOROASTER 
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PAGE  1081 


I INTERPRETER  USER'S  p AG E NC.  89  E3  S3 

3 2350  MISCELLANEOUS  OPERATICN  COOES  WITH  DIRECT  AOORESSES.  INCLUDED  HERE  ARE: 


R 2 3 5 2 
R2356 
3 2356 
R235A 
R 2360 
R 236  1 


1.  ITA 

2.  CALL 
RTR 

A . R H 1 7 

5.  BOV 

6.  GOTO 


S10RE  UPRE  T (RETURN  ADDRESS)  IN  ERASARLf. 

CAIL  A SURRDJTINE,  LEAVING  RETURN  IN  QPRET. 

RETURN  TC  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS. 

BRANCH  IF  THE  HIGH  CROP  P OF  MPAC  IS  ZERO  (SINGLE  PRECISION). 
FRANCH  ON  OVERFLOW  . 

SIMPLE  SEQUENCE  CHANGE. 


2362  REF 

2363  RFF 
2366  REF 


LAS!  i090 
LAST  1C  BO 
(AST  932 


01,2663  in  020  1 RTR/RHIZ  CCS  C YP 

0 1,26  66  3 0117  0 PTP  CA  POLISH 

Cl,  2665  C 6621  0 TC  SWCALL  -1  SO  A "TC  Q»  FROM  ROUT  INF  LEADS  TD  DANZIG 


2365 

2366 

2367 

2368 

2360 


PEF 

REF 

RFF 

REF 


65 

7 


50 

8 


LAST  1076 
LAST  1 C 75 
L AST  1 '70 
LAST  1081 
LAST  1081 


01 , 2656 
Jl  ,2657 
0 1,  266C 
11  ,2661 
01,2662 


10  156  0 
I 6C73  l 
1 6660  0 
1 6073  I 
1 666C  0 


BH  17 


CCS 
TCF 
TCF 
T r f 
TCF 


MPAC 
DANZIG 
GOTO 
I-AN7  IG 
GOTO 


2 3 7C 
237  1 
237? 
2373 
2376 
2 375 

2376 

2377 


REF 

RFF 

REF 

RFF 

REF 


REF 


11  LAST  1069 

51  1 AST  108  1 

12  l AST  1 OP  1 
36  I AST  1C81 


9 LAST  1081 


0 I,  2663  10  1 21 

01,2666  1 2666 
' 1,2665  1 6C  73 

U,?666  5/,  121 

■'  I ,?667  1C  020 
1 1,  2670  1 2656 

01,2671  00360 

01,  2672  l 666C 


1 BO  VI  B ) CCS 

0 TCF 

1 TCF 

1 TS 

1 CCS 

1 TCF 

1 B5T0B8  OCT 

0 TCF 


OVFIND  BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP. 

+ 2 

DANZIG 
OVF  INO 
CY  R 

RTB  IF  BASIC. 

360 

GOTO 


GAP:  ASSEMBLE  REVISION  56  Jf  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L INTERPRETER 


7378 

>379 

2380 

?3«l 

2 m 


RTF  35  LAST  1 CS 1 
PFF  P t AST  10 7 5 
REF  52  LAST  lQfil 
h 6 F i C LAS'!  I I 
PFF  5 3 LAST  108  2 


01 ? 2 A73  1 0 0?< 

Ol»2A7A  C 6735 
^1  ,?A75  1 6C73 

L.2A76  1 6660 

0 1,  2 <+77  1 6073 


1 RZF/GOT C CCS 

C TC 

1 TCF 

0 TCF 

1 TCF 


CVR 

BRANCH 
PA.NZ  IG 
GOTO 
DANZIG 


2383 

P38A 

2385 


LAST  1 C 82 


31  ,?5C  ' 1 r ('20  1 RPl/ftMN 

01,  7501  T 2507  0 
01  ,2502  L2GGC  1 5B1C 


CCS 
TCF 
OF  C 


CY  R 
BPL 

5 B -*■  10 


2386  REF  9 

2387  RFF  5 A 

7388  REF  55 

? 389  REF  ll 


LAST  1C  8 2 
LAST  lOfl  2 
LAST  1082 
LAST  1U8  2 


1 1,2  SC  3 

0 1,2  5C  /, 

01  ,2  605 
01,  7 5C6 


S S?3  < 

1 6073  1 
1 6660  0 


IT  F 
TCF 
TCF 


ftp ANCH 
DANZIG 

PA NZ  IG 
GOTO 


2390  REF  IP 

2301  REF  12 

230?  RFF  13 

2303  PFF  56 


LAST  1082  01 

LAST  ICR  2 '’I 

l AST  108  2 0 1 

LAST  1082  01 


,2 507  C 6735 
,751  • 1 6660  p 

, 25  11  1 6660  0 

,2512  1 0073  1 


BPL 


TC  BRANCH 

TCF  GOT  0 

TCF  GOTO 

TCF  OANZ IG 


i 


37  LAST  108.2  01,2513 

1 0 1,2516 


1C  C20  1 CALL/I  TA  CCS  CYR 

1 6652  1 TCF  CALL 


2396 

7397 

7398 
2399 
2 A OP 


PEF  7 LAST  A5? 

RFF  7 LAST  1079 

RFF  65  LAST  1080 

REF  8 LAST  1 C6  8 

RFF  2 LAST  1079 


01  ,7515 

i , »<  1< 

0 1 ,2617 

01  , 252(' 

I, 


C 5706  0 
C 24  33  1 
50  120  1 
3 00  52  0 
1 2373  0 


TC  CCS  HOLE 

TC  15ADRERS 

INDEX  FIXLC1C 

CA  QPRET 

TCF  MS  TORE  1 
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USER'  S PAGE  NC.  9C  E3  S3 

SEE  WHICH  DP-CODE  IS  OE  SIRED. 

00  BZE. 

DO  GOTO. 

SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 
CO  BMN. 

ONLY  IF  NNZ. 

IF  PDS  IT IVE  DR  7ER0. 


STORE  QPR  ET  . (TAGSUP  AFTER  15AURERS  IS 
SLOW  IN  THIS  CASE,  BUT  SAVES  STORAGE.) 


GAP: 

P2  4 1 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
I NTERPR.E  TER 

THE  FOLLOWING  OPERATIONS  ARE  AVAILABLE  FOR  ALTERING  ANO 


9:12  0:  T.  2l»1970  SKIPPER 
USER  'S  PAGE  NO.  91 
TESTING  INTERPRETIVE  SWITCHES: 


.121  PAGE  1 G83 
E3  S3 


<24o3  OG 
R 2 A 3 A 0 1 
R 2 AOS  02 

*240  6 


SET  A SWITCH  ANO  00  A GOTO  IF  IT  WAS  ON. 

SFT  A SWITCH  AND  DO  A GOTO. 

S FT  A SWITCH  AN!)  DO  A GOTO  IT  IT  WAS  OFF 

SET  A SWITCH. 


R24D7  04  BON INV 

R 2 .40  8 C 5 INVGO 

R 240  9 C 6 BOF  INV 

R24l0  07  INVERT 


INVERT  A SWITCH  AND  BRANCH  IF  IT  WAS  CN. 
INVERT  A SWITCH  AND  DO  A GOTO. 

INVFRT  A SWITCH  AND  BRANCH  IF  IT  WAS  OFF 
IMVFRT  A SWITCH. 


< 241  l 
R2412 
R24  13 
* 24  14 


12 
1 3 


RCNC  LR 
CL  R GO 
BCFCLR 
C.LFAR 


CLEAR  A SWITCH  AND  BRANCH  IF  IT  WAS  UN. 
CLEAR  A SWITCH  ANO  DO  A GOTO. 

CLEAR  A SWITCH  AND  BRANCH  IF  IT  WAS  OFF. 
CLEAR  A SWITCH. 


R2  A 1 5 14  RON 

<2416  16  OOFF 


BRANCH  IF  A SWI  TC  H WA  S ON. 
BRANCH  IF  A SWITCH  WAS  OFF. 


R 24  1 7 


THE  ADDRESS  SUPPLIED  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS: 


R241  9 
< 242'' 
R2421 


'MTS  I -A  SWITCH  PIT  NHMBFR  (1-15). 

BITS  S-8  SWITCH  CPFRATICN  NUMBER. 

BITS  9-  SWITCH  WOP  D NUMBER  (UP  TD  6A  SWITCH  WORDS). 


< 2422 
R242'* 


ADDRESSES 


THF  ADDRESS  ITSELF  IS  RACE  DP  BY  THE  YUL  SYSTEM  ASSEMBLER.  THE  BRANCH  INSTRUCTIONS  REQUIRE  TWO 
. THE  SECOND  TAKEN  AS  THE  DIRECT  (OR  INDIRECT  IF  IN  ERASABLE)  ADDRESS  OF  T HF  BRANCH. 


2426 
24  2 T 
2429 

2429 

2430 


REF 

RCF 

RFF 

REF 

RFF 


2 

36 

343 

39 


LAST  1080 
LAST  1067 


C 1,2522 

. 

ly 

1 ,2525 
91,2526 


3 67o?  0 
7 0117  1 
50  OCO  1 
3 4/35  1 


LEAVE  THE  SWITCH  BIT  IN  SWRIT 


(NUMBER  FROM  LEFT  TC  RIGHT.) 


243  1 

2432 

2433 

2434 


REF  37  l AST  984 


REF 

REF 


37  LAST  109  3 


9 1,  25  27 
I]  . " I 

I . 

91,253? 


-•  4745  0 
0 0006  1 

7 C 1 1 7 1 
54  130  l 


CAF 

EXTEND 

MP 

TS 


31  T 7 

POLISH 

SWWPRD 


LEAVE  THE  SWITCH  NUMBER  IN  SWWORD. 


REF  344  LAST  108  3 
RFF  40  LAST  560 
REF  ?9C  LAST  1080 


0 0004  0 
50  000  1 
3 0074  1 
5 4 OC?  1 


[ NH I NT 
NDE 


TS 


4 

STATF 

0 


DJRING  SWITCH  CHANGE  SO  R UP  T CAN  USE  TUO 
LEAVE  THE  SWITCH  WCRD  ITSELF  IN  L. 

Q WILL  BF  USEO  AS  A CHANNEL. 


GAP:  ASSEMBLE  HE VI  SIGN  56  CF  AGO  PRfGPAM  2ERLINA  RY  20R0AST 6R 

L INTPPPPETFR 


2439  REF  25 

2440 

2 « '♦  1 REF  38 

2442  PFF  1 

2443  P EF  345 

2444 


LAST  Q10 
LAST  108  3 
LAST  1053 


. 

, 

0 1,  2541 

01  ,2542 
01,  2543 
'1,7544 


7 '117  1 
7 2602  0 
5 C COO  1 
1 2545  O 


CAP  PITll 
EXTEND 

MP  POLI  SH 

MASK  B3T0B4 
I NOE  X A 
TCF  ♦ 1 


2445  REF 

2446 

2447  PFF 

2448  RFF 


2 LAST  1083 

1 

1 


"1  ,2  545 
1,  2, 5 4t 
">1  ,2547 
01  ,.?55  0 


3 0131  1 
C 0CC6  1 

04  002  1 
L 2557  0 


CA  SWRIT 

E X TEND 

ROR  OCHAN 

TCF  SWSTORE 


2449  RFF 

2450 

2451  REF 

2452  RFF 


3 LAST  1084 

2 LAST  1084 
2 LAST  1084 


) 1,  255  1 
01,2557 
) 1.  2553 

'1,2554 


3 o i 1 i 

C 0006  1 

ce  cc?  o 

L 2557  r 


CA  SWRl  T 

EXTEND 

KXCR  OCHAN 
TCF  SWSTOPE 


2450 

7456 

7455 

2456 


PFF  4 | A ST  1084 

RFF  291  | AST  1PR  3 

RFF  2 LAST  1083 
REF  41  LAST  1083 


01,2555  4 0131  0 +9D  CS  SWPIT 

0 1,  2556  7 0002  1 MASK  0 

01  ,2557  50  130  0 SWSTORF  INDEX  SWWORD 

C1.2560  54  C 74  0 TS  STATE 


9:  12  OCT.  21,1970  SKIPPER  .121  PAGE  1084 
USER'S  PAGE  NC.  92  E3  S3 

DISPATCH  SWITCH  PIT  OPERATION  AS  IN  BITS 
7-8  OF  PULI SH. 

C.FTS  4X 2-BIT  CODE. 

00  - SET  SWITCH  IN  QUESTION. 

01  - INVERT  SWITCH. 

10  - CLEAR. 

NEW  SW  ITCH  W3RC. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  Cl  Y ZOROASTER 


L TNTERPPFTER 


2457 

2450 

2459 

2460 

2461 


246? 

2468 


REF  40 

REF  To 
RFF  2 
RFF  846 


LAST  988 

I AST  1084 
LAST  1CP4 
LAST  1084 


0 1,  2S62 

01  ,2563 
’ 1,  2 5 6 4 
i 1,2565 
01  ,2  566 
r 1,  2567 


0 0003  l 
2 4737  0 
C 0006  1 
7 0117  1 
7 26  02  0 
50  TOO  l 

1 2570  0 


RELINT 

CAF  3IT13 
EXT  END 

MP  POLISH 

MASK  S3T0B4 
INDEX  A 
TCF  +1 


2464 

2465 

2466 

2467 


RFF  29?  LAST  1084 
REF  5 LAST  1CR4 
REF  347  LAST  1085 
RFF  1 


01  ,2  570  4 000  2 1 + 1 

"■  1 , ? c 7 1 7 131  n TEST 

01,  2572  1C  000  0 
01 ,2578  1 2603  1 


CS  0 

MASK  SWPIT 
CC  S A 
TCF  SWSK1P 


2468 

2469 

2470 

2471 


2474 
? 4 7 5 


2476 

2477 


REF  1 

REF  2 LAST  108  5 

RFF  P 1 A ST  1CR2 
REF  9 LAST  10R5 

REF  293  LAST  1085 
REF  l 

RFF  29  LAST  1C77 
REF  1 

RFF  57  LAST  1082 


01,  2574 
U.2575 
91  ,2576 

)1  ,2600 

1,  ? 6C  1 

01,260? 

01  ,2608 

0 1,  2522 
'•I  ,2604 


1 6727  1 + 5 

1 260  3 1 

0 5706  0 

C 5706  0 

3 0002  0 +90 

1 2571  1 

GOO  14  1 8 8Tn8  4 

24  164  1 SWSKI P 

SW/ 

1 6078  1 +130 


TCF  S WBRANCH 

TC  F SW  SK  I P 

TC  CCSHOl  E 

TC  CC  SHDLE 

CA  Q 

TCF  TFST 

OCT  0014 

I NCR  LOC 

EQUALS  SWI  TCHES 

TCF  OANZIG 


9:12  0C1  . 21,1970  SKIPPER  .121  PAGE  1*.  85 
USER'S  PAGF  NC.  93  E3  S3 

11  - NOOP. 

DISPATCH  SEQUCE  CHANGING  UR  BRANCHING 
CODE. 

ORIGINALLY  STORED  IN  BITS  5-6. 

00  - BRANCH  IF  GN. 


01  - GO  TO. 

HERF  ONLY  ON  BIT  15. 


10  - BRANCH  I F OFF. 


11  - ND3P 


,AP:  ASSEMBLE  of  VI  SI  ON  56  OF-  AGC  PRCGRAM  ZERL  1 1 


BY  ZOROASTER 


9:12  OCT.  21,1070  SKIPPER  .121  PAGE  108b 


L FIXEC-FIXEC  CONST  ANT  <>DDL 


USER'S  PAGE  NO.  1 EC  S3 


000! 


<*732 


BLOCK  02 


0004 

0007 

AOOf’A 

* 0009 


REF  9 LAST  1073 


4734 

4734  57777 


INOEXFi).  D3 


LIMIT  S 
NEG1 /2 


COUNT  * 5 1/ F CONS 

NOT  INSERT  OR  REMOVE  ANY  CUANTITIES. 


OCT  37777  MUST  PRECEDF  POSMAX 

OCT  37777 


= NIEG1/2 

OCT  -20000  US  EO  BY  SIN  ROUTINE  (MUST  BE  TWO 

LOCATIONS  IN  FRCNT  r F RIT14I 


oMI 

Of  1 2 
3 5 13 

00  1 4 

00  1 5 
0016 

001  7 
3 3 1 B 
0019 
00  20 
5 52  1 
0C22 
00  23 
0024 


4735  40CCO  0 

4 734  2COOO  0 

4 73  7 1^000  0 

4 74  C 040 00  0 

4 74  1 02000  0 

4 742  01CCO  0 

4743  0040C  C 

4744  00200  0 

4745  COIOO  0 

4 74  6 00  0 4 0 0 

4747  00020  0 

4 750  COO  10  0 

4751  03004  0 

4752  OCCC?  0 

4753  OGOOl  0 


HI  715  OCT  4G0u0 

BTT14  OCT  20000 

RIT13  OCT  10000 

ft  I T 1 2 OCT  040GO 

BIT  l l OCT  020C0 

3IT10  OCT  01000 

BIT9  DC  T C0400 

81T8  OCT  00  200 

01 T7  OCT  00100 

8IT6  OCT  00040 

ft!  T5  OCT  00020 

81  T4  OCT  0001 0 

B IT  3 OCT  00004 

RI  T2  OCT  00002 

R I T 1 OCT  00001 


1 0025 
3327 
002  ft 
AP0  2° 
A3030 
A 003 1 
A0032 
0033 
A 00  34 
5 3 35 
A 0036 
A 0037 
3D  37  5 
A 003  R 
0039 
A0C4" 
00401 
A3D41 
0043 


DO  NOT  DESTROY  THIS  COMB  F NATION » SINCE 

4754  77777  0 

4755  00000  1 

4756  0000  5 1 

4757  CCCC7  0 

REF  6 LAST  465  4320 

4 760  000  13  0 

4761  00015  0 

4762  00017  l 


IT  IS  US  Ell  IN  DOUBLE  PRECISION 


NEGO 
7 ERO 
B I T1 
NO . WO  S 
OCT  AL  3 
R3I31 
FIVE 
RFVCNT 
SE  VFN 
BIT4 
R2  01 
OC  T 1 1 
BINCON 
ELEVEN 
0CT14 
OCT  15 
R1D1 
LO  W4 


OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OC  T 
OCT 
OCT 
OCT 
OCT 

OEC 
OEC 
OC  T 
OCT 
OCT 
OCT 


INSTR  UC  T ION  S. 

MUST  PRECEOE  ZERO 
MUST  FOLLOW  NF GO 

I NTERPRFTFR 
I NTbRPRE TER 
PINBALL 

INTERPRETER 


P INBALL 
P20  S 

PINBALL  (OCTAL  12) 

ALARM  AND  ABORT  ( F ILL  FR  1 
PINBALL 


V 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZEKl  IN  A BY  ZOROASTER 

L riXEO-FIXFO  CONSTANT  POOL 


A3044 

A0045 

A0046 

A3047 

A004R 

00  48  5 
A004O 

00491 

30492  REF  3 LAST  874 

00493 

OO40/,  PFF  2 LAST  731 

3353 
A 00  51 
A Of  52 
A3753 

0054 

0055 
A0056 

0057 

3358 

0059 

0060 
A0061 


4763 

4764 
4 7 64 

4765 
4 765 

4766 


4 76  7 

4770 

4771 
4 772 
4773 
4 774 


00030  1 
00033  1 
00035  1 
C0C32  0 


00045  0 
OOC46  0 

00050  1 
C0055  1 
P0O6C  1 

0006?  0 


VDl  OCT 

OC  T24  oc  T 
mo  i nr.T 

RITS4C5  OCT 
OCT  31  OCT 
0CT33  OCT 
DEC27 

0CT35  OCT 
0EC29 

CALLCOOE  OCT 
LOW 5 OCT 

33  DEC  OEC 
34DEC  DEC 
TPHILOFX  DEC 
TDECAYFX  OEC 
BIT6  OCT 

0CT50  OCT 
OEC  45  DEC 
SUPERO  11  OCT 
• 5SFC  DEC 
HI  T7  OCT 


A 3 3 6 3 
0064 
A PO 65 
A3  3 66 
0067 
A0068 
3 069 
A 0070 
A ‘37  1 
A 0072 
A 0073 
3374 
A 0075 
AO*'  76 
3077 
0079 
33«n 
00801 
A Or  81 
A3082 
A of, 83 
00  84 

0085 
OC  86 

0086  5 


38  LAST  1083 


4 745 

4775  C0120  1 


4776  00140  1 

4777  C0144  0 


50C0  CO 310  0 


5001  00401  1 

5002  00454  1 
5CC3  CC620  0 
5004  00777  0 


50G5  01124  1 

5006  01211  1 

5007  01400  1 

501C  C l 426  C 


SUPFR100  = 

SUPER  10  1 OCT 
OCT  1 2 1 OCT 

SUPER  110  OCT 

1 SEC  DEC 

LOW  7 OCT 

RIT8  OCT 

0 T 2 15  OCT 
8 t5  OCT 

2SFCS  DEC 
LOW  8 OCT 

BIT9  OCT 

GM/CCDDE  OC  T 
3SFCS  OEC 
4 SECS  DEC 
L0W9  OCT 

RIT13  OCT 
5.  5DE3S  MFC 
OCT l 10 3 OCT 
C5/2  DEC 

VC5N09  VN 
OCT  14  30  nCT 
V06N22  VN 


9:12  OCT.  21,1970 


SKIPPER  .121  PAGE  lo87 


USER • S PAGF  NO. 


EO  S3 


PINBALL 
P IN  BALL 

SERVICE  ROUT  INFS 
PI  NBA  LL 


SERVICE  ROUTINES 


PINBALL 

PINBALL  (OCTAL  41) 

PI  NBALL  (OCT  AL  42  ) 

BUILDUP  FOR  CONVIFNCE  I N DAPTE  STI  NG 
CONVENIENCE  FOP  DAPTFS1  ING 


BI TS  FOR 


SUPERBNK  SETTING  Oil. 


B IT  7 

120 

121 


140 

IOC 

177 

00200 

215 

00220 

200 

377 

00400 

00401 
300 
400 
777 

0 1000 

-03c  56 

1103 

.C363551 

0509 

0 1400 

0622 


BITS  FDR  SUPE  R BNK  SETTING 
(LAST  4 K OF  HOPE) 

BITS  FOR  SUPERBNK  SETTING 
SERVICE  ROUTINES 
(FIRST  RK  CF  ACM) 

RITSFOR  SUPERBNK  SETTING 
( LAST  8K  OF  ACM  ) 


no 


101 


1 1 0. 


INTERPRETER 

ALARM  AND  ABORT 
P20-P25  SUNDANCE 


PINBALL 

SET  S/C  CONTROL  SWITCH  TO  G/N 


P2  0 - P2  5 SUNDANCE  (OCTAL  00  765) 
ALARM  AND  ABORT 

(OCTAL  01124) 
(SAME  AS  OCTAL  1211) 


GAP:  ASSEMBL E REVISION  So  OF  AGC  PROGRAM  ZJ-RLINA  BY  ZOROASTER 

L F IX  FC-F  IX  EO  CONSTANT  POOL 


0088 

U089 

ADD?'* 

00?1 

00?? 
00?’ 
oo?s 
ADD?1- 
A 0094 
D no 7 
DD?R 
009? 
0 100 


5011 

501,1 


5 0 1 3 


so  Is 
5016 


so  17 
5020 
5 021 


C 1 776  0 
01777  1 


r 2 l 77  1 
C24CC  1 
03000  1 
0340G  0 


CSCtO  1 
06000  1 
0 7000  0 


Mirs 

8 1 1S2-10 
L0W1C 
81  Til 
2K+  3 
L nw  7 ♦ ?K 
FRANKS 
PR  ID  3 
E BANK 7 
L0W11 
8 I T 1 2 
RFITAR 
PRI  OS 
PR  106 
PRI  07 


17  AO 
1 776 
1777 
3 2000 
2003 
2177 
C 2 AOO 
C 3000 
j 3A00 
3777 
CACCO 
DA0  2S 
('5000 
C60GC 
0 7000 


OCT 
OCT 
□ CT 
CCT 
OCT 

oct 

OCT 
DC  T 
OCT 
OCT 
OCT 
OCT 
OC  T 
OCT 
CCT 


AOl  02 
A 0K  3 
AD  1 C*A 
0105 
\ 0 106 
D l 37 
OlOR 

A010O 

0110 

0111 
AD  1 1 2 

0113 

0 11A 
AD  1 1 S 
A 0 1 1 ft 
0117 
D 1 1 75 

01176  rr-F 

0119 
Oil? 

0120 
AD  1 2 1 
AC  12? 

0123 
D 1 2a 
0125 
AOl  26 
AOl  27 

0129 
D 1 29 

0130 
0 131 
D 1 3? 

A n 1 33 


5022 

5023 
Sf  ?A 

50  25 
5026 

512  7 
5030 


5031 

7722 

7722 

7723 
772A 


77?5 
7 72  6 
7727 


7 730 

7731 

7732 

7733 

7734 


110G0  1 

13TC0  0 
IAOOC  1 

1501 

16000  0 

1 7 0 GO  1 
1777"  1 


2 1000  1 


22CCC  1 
23000  0 
2A000  1 


25000  n 
260C0  0 
27000  1 


31000  0 

2 1 1 C 3 1 
32000  0 
33000  1 
3ACC0  0 


B I T 1 3 OC  T 

OCT 

13,7,2  OCT 

PR  10  1 1 OCT 

PR  1012  OCT 

PR  I 0 1 3 OC  T 

PR  in  l A OCT 

oct 

PR  10  15  DC  T 

PP  101 6 OCT 

05DE3S  DEC 

PPID17  DC  T 

CC  T 1 7 770  OCT 

R I T 1 4 OC  T 

oct 

PRI 021  OCT 

BLOCK 

COUNT 

PR  102?  OCT 

PR  10  2 3 OCT 

PRI02A  OCT 

5 / 8*  1 OC  T 

OCT 

PRIC2  5 OCT 

PR  1 0 2ft  DC  T 

PR  1027  OCT 

CHRPRIO  OCT 

OC  T 

PR  1031  OCT 

Cl/2  OEC 

PR  ID  32  OCT 

PRI  03 3 OCT 

PR  I 0 34  OCT 

OCT 


1G000 

1D003 

1310? 

1 1000 
1200C 
13000 
140C0 
1 403  1 
1 5000 
16000 
. A5556 
17000 
17770 
20000 
20C33 
21000 
03 

tt/FCONS 
22000 
23000 
2AOOO 
24001 
2AC17 
25000 
26000 
27000 
33000 
30036 
31000 
. 785313a 
3200C 
33000 
34000 
34034 


9:12  OCT.  21,  1970  SKIPPER 
USER'S  PAGE  NO.  3 
PINBALL 


. 121 


PAGE  1088 

e:  S3 


PINBALL 

OP  CHIDE  MASK  ♦ BANK  I FRANK  SETTING. 

PINBALL 
TAR  IJP  T 


T^RUPT  RFLTAR  +10 

P20-P2S  SUNCANCE 

BANKCALL 


T4RIIPT  RFLTAR  420 


P20-P25  SUNDANCE  (UCTAL  16450) 


TAR  LPT  RELTAB  +30 


SERV  ICE  ROUT  IN  ES 


SINGLE  PRECISION  SUBROUTINES 
T4PUPT  RELTAB  + AD 


PINBALL 

TARUPT  RELTAB  +5  0 

(OCTAI  3110  3) 


♦ 60 


TAR  UP  T 


RE  LTAB 


. A P : ASSEMBLE  REVISION  36  OF  AGO  PROGRAM  ZERL  INA  PY  ZOROASTER 
FIXEn-FIXEO  CONSTANT  POOL 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1069 
USER'S  PAGE  NO.  A EO  S3 


134 

0135 

0 136 

01  17 
A 01  38 

3139 
OHO 
0 141 
A3  14  1 1 
A 0142 
AO  143 
d 44 
0145 
A3  146 
01466 
C 146  6 
A3  1 47 
Af  148 
AO  149 
01495 
A 0150 
3151 

1' 

I r 3 
3154 
0155 
AO  156 
0157 
A 01 58 
A3  153 
AOlftl 

U l 
3163 
0164 


77  35 

7736 

7737 
7740 


7 7 50 

7751 

7752 

7753 

7754 

7755 

77^6 


7757 

776C 

7761 


35000  1 
36000  1 
37CC0  C 
37401  0 

37766  1 
37774  1 
37776  0 


40C14 

40015 


65552 
70000  1 
73777 

1 40C0 
74C56 


77774  0 

77775  1 

77776  1 


PRI 035 
PR  1036 
PRI  C37 
63/64+1 


OCT 
OCT 
OCT 
OC  T 
M I C7  OCT 

0CT37766  OCT 
OCT  37774  OCT 
CCT37776  OCT 
DPOSMAX  OCT 
PIT  15  ncT 
CCT40091  QCT 
oLOAocnn  oct 
CLOAC*  OCT 

oct 

BIT15+6  OCT 
CCT4920D  OCT 
OCT 
OCT 
OCT 

-PITH  OCT 
RELTAB11  OCT 
C3/2  OEC 

13,  14,  IS  OCT 
-l /R  OCT 

HIGH  4 OCT 
-ENDERAS  OEC 
HI  5 OCT 

HIGH9  OCT 
-ENflVAC  nFC 
-nc  T10 

NEG4 


NEG3 
NEG  2 
NEGONE 


OCT 

DEC 

OEC 

OCT 

OFC 


35000 

36000 

37000 

374C1 

37600 

37766 

37774 

37776 

37777 
40C00 
40001 
40014 
400  15 
40023 
40040 
40200 
44  035 
5C037 
54000 
57777 
60000 
-.3216H7 
70CC0 
73777 
74000 
-2001 
76000 
7770C 

-4  5 
-10 
- 4 


INTERPRETER  ( CS  1 INSTRUCTION) 


RELTAB  +70 


T4  RUPT 
T4R  IJP  T 
T 4 HURT 


RFLTAB  +80 
RELTAB  +90 
RFLTAB  +100 


PINBALL 

INTERPRETER 


(OCTAL  65552) 


(OCTAL  74056) 


(OCTAL  77722) 
(OCT  77767) 
(CCTAL  7777? ) 


SAP:  ASSEMBLE  REVISION  56  OF  ACC  P»CGR 


ZERLINA  BY  ZORO  AS T c-t 


12  OCT.  21.  1°70  SKIPPER  .121 


PAGE  1090 


FIXED-FIXED  CONSTANT  PnOL  USER'S  PAGE  NO.  5 EC  S3 

PC  1 65  DEFINED  BY  ECO ALS 

<166  IT  WOULD  RE  TO  THE  ISE«S  AT  VANTAGE  TO  OCCASIONALLY  CHECK  ANY  OF  THESE  SYMBOLS  IN  ORQER  TO  PREVENT  ANY 
RUS8  ACCIDENTAL  DEFINITION  CHANGE*. 


0169  OFF  6 

170  REF  12 

0171  REF  5C 

0172  PEF  65 

3173  REF  1 

Pi  76  PEF  36 

01  7S  RFF  ?? 
3176  REF  A 

0177  REF  17 

0178  REF  38 

Cl  79  PFF  7 

'■  180  RFF  A 
Till  REF  3 
0U2  REF  15 
01R25  REF  3 
318  3 REF  A 1 
0 1 PA  REF  7 
' 105  RFF  ?t 
0lR6  PFF  1 
0187  REE  ? 
3188  PEF  27 

^189  REF  28 
0190  PEF  29 
3191  RFF  13 
''19?  RFF  41 
01*13  REF  6? 
Cl  93  5 PEF  1 
J19A  REF  38 
3195  REF  67 

0196  RFF  68 

0197  RFF  5 
3198  REF  1C 
01985  REF  3 
0199  PEF  1 
O2or  RFF  4f 
02P1  PEF  61 
3232  REF  1 
0203  RFF  2 
0206  RFF  6 


LAST 
I A ST 
LAST 
I AST 

LAST 
I AST 
L AST 
L AST 
LAST 
l AST 
LA  S 1 
I AST 
LAST 
LAST 
L AST 
L AST 
l A ST 

I AST 
LAST 
LAST 
LAST 
l AST 
LAST 
LA  ST 


l AST 
LAST 

LAST 

LAST 


8P0 
1050 
995 
96  7 

1019 
89? 
0Q9 
1(  7 
567 
If  86 
508 
731 
666 
775 
106  6 
1000 
10  84 

883 

1CQ0 

1090 

820 

877 

1085 

1090 


If  8 3 
1090 

162 

905 


776  1 
776  1 
475  3 

4752 
6 ? 5 7 
6257 
4751 

6254 
4767 
6 7 5 J 
4 3 20 

4363 

476C 

4360 

*‘362 

4742 

5007 

4741 

4775 
4 7 76 
4741 
4741 
4740 
5015 
4737 
4737 
7675 
4736 

4776 
4 736 
4355 
4355 
6503 
7734 
47  35 
4735 
6121 
41  f 1 
4350 


LAST  1076 
l AST  1077 
LAST  1 • 
LAST  476 
LAST  1017 
LAST  1002 


MINUS  1 

NEG1 

ONE 

TWO 

THREE 

L0W2 

FOUR 

SI  x 

LOW  3 

EIGHT 

N INF 

TEN 

NOLTCON 
OCT  2 3 
OCT?  5 
PRI01 
FRANK  3 

pp  I r? 

or  t 12 0 

OCT140 

2K 

EBANK4 
PRIC4 
FBANK6 
QUARTFR 
PRI  CIO 
OCTlOOCl 
P0S1/2 
PRI 020 
HAL  F 
PRI 030 
BI  T 1 3-  1 4 
OCT  30002 
G12T14 
NFGMA  X 
VLOADCOD 
VLOAD* 

nc  T6O000 

BANKMASK 


N EG  1 
NEGONE 
81  T 1 
B IT  2 
0CTAL3 
THPEF 
RIT  3 
RE  VCNT 
SEVEN 
BIT4 
R2D  1 
R INC  ON 
F LEVEN 
VO  1 
M01 
81  HO 
0CT14CC 
PIT1  1 
SUPER  K 1 
SUPER  110 
BI  Til 
BI  Til 
B IT  1 2 
PRI  0-3 
B I T 1 3 
BIT13 
:c  SL 
HALF 
81  T14 
BI  T 14 
C HR  PR  10 
PRI  030 
TLOAD  +1 
PRI034 
B I Tl  5 
BIT  15 
OCT40001 
PE  LTAB  1 l 
H 15 


INTERPRETER  JS  ES  IN 


PROCESS  ING  STURECOUE 


: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z CRL  IN  A 0Y  ZOROASTER 


l INTERPRETIVE  CONSTANTS 


0001  REF 

0002 


, 

23,2507 


SETLOC  INTPRET1 
RANK 


0003 

0004 
3D'  4 

0005 
000  5 
D D?6 
000  6 
0007 
0007 

c oo  a 

DD08 

0009 
000° 
D D l r» 

0010 
Of  11 
0012 
0013 


REF  10  I A ST  90 1 


• 

23,  " ! 
23,2  511 
. 

23,  7 5 1 1 

23  ,2514 

23.2515 

23  ,2517 
2 1,  2 S 20 
23,2  521 
23  ,2522 
??,  2 52  3 
23  ,2524 

73.2515 
23,  2525 
23  ,2526 


1000C  0 
CfOOO  1 
00000  1 
00000  1 
CCCCC  1 
0 1000  1 
20000  0 
OCCCf:  1 

onooo  i 

CCCCO  1 
OOOCO  1 

00000  1 
COCOO  1 
1 

37777  1 
37777  1 


ZEROVECS  ? DEC 


OPHALF 

OP  POSH  AX  OCT 
OCT 


9- 


UNITX 

37777 

37777 


9:12  OCT.  21,  1970  SKIPPER  .121 
USER'S  PAGF  NO.  1 


PAGE  1091 
EO  S3 


GAP:  ASSEMBLE  REVISIUN  5b  OE  A3C  PRCGRAM  ZERLINA  RV  ZCRQASTER 


L INTERPRETIVE  CONSTANTS 

PO'14  INTERPRETIVE  CONSTANTS  IN  THE  fTEEP  HALf-MEMOPY 


0018 

0019 
OOlo 

0020 
3323 
0021 
0021 
3322 
0022 
0023 

0023 

0024 
3325 
0C26 
0027 
3327 
on?fl 
0928 

002o  REF  5 
0030  REF  7 


12,  2000 
12  ,2001 
12,  20C2 

12,  2or3 

12  ,2  004 
12, 2005 

12  ,20O& 
12  ,2007 
12,  20  10 
1?  ,2011 
17, 2012 
12,  20  13 

17.2014 

12.2015 
12  ,2016 
17  ,201  7 
12,  20  20 
12  ,2 021 
12,  2022 

LAST  957  12,  20C 6 
LAST  959  12,2  304 


COOGO  1 
00000  1 
CCCCO  l 
GO!  I 
20000  0 
croon  i 
orooc  l 
ooooo  1 
oocoo  i 
ooroo  1 

CCCCO  1 
OOOOO  1 
77777  0 
77771  0 
77763  G 
T 7777  1 
37777  1 
37777  1 
37777  1 


IINI  T 
YLINI  T 
XUNIT 

Z EROVEC 


DEC-6 

DEC-12 

LCQPMAX 


2DEC  0 

2 CEC  .5 

2 DEC  0 

2DEC  0 

2DEC  0 

OCT  77777 

DEC  -6 

DEC  -12 

2 OCT  3777737777 


L0CPMAX1  2HCT  3777737777 


ZEROOP 

HALFOP 


9:12  fiCT.  2l(1970  SKIPPER  .121  PAGE  lv92 
USER'S  PAGE  NO.  2 EO  S3 


-0,-6, -12  MUST  REMAIN  IN  THIS  ORDER 

THESE  TWO  CONSTANTS  MUST  REMAIN 
ADJACENT  AND  THE  SAME  FOR  FNTEGPATION 


GAP:  AS  S CMOL  F REVISION  56  OF  ASC  PROGRAM  ZERLINA  RY  ZOROASTER 


I SINGLE  FRFCIS  ICN  SUePOlIT  INES 


0001  5032  RLOCK  02 

R3DD2  SINGLE  PRECISION  SINE  AND  COSINE 


00<‘2  5 
000  3 
oom 
0005 
DD?6 

0007 

0008 
ODD1) 
0010 
00  11 
0012 
0013 
30  1 A 

oris 
0016 
3 3 17 
00 1R 
DO  1Q 
0020 
0021 
3322 

0023 

0024 
3325 
0026 
00  27 
0028 
Of  20 
3333 
DC  31 
003? 
3333 
0034 


REF  1 

REF  35  I AST  1C90 

PFF  1 

REF  1 

REF  2 LAST  1093 

RFF  3 LAST  1 C93 

PFF  1 

REF  4 LAST  1093 

RFF  5 LAST  10Q3 

REF  3 LAST  10l9 

REF  6 LAST  1003 

REF  7 LAST  109  3 

RFF  2 LAST  1093 

REF  1 

REF  fl  LAST  1093 

REF  1 


REF  1 
RFF  1 


REF  2 LAST  1093 

REF  1 

REF  9 LAST  109  3 

REF  If  LAST  109  3 

REF  294  LAST  1i05 
PFF  348  LAST  1035 
RFC  4 | AST  1093 

REF  295  LAST  1093 


5032  6 4736  1 SPCOS 

50  3 3 CF'C75  ■ SP  SIN 

5034  1 5036  0 

5035  A l C 7 5 0 

5036  6 OOCO  1 SP  T 

5937  55*075  0 

5040  1 5C  5 1 1 

5041  57*075  1 

504  2 5 1*0  75  1 

5043  6 4734  0 

5044  4 0000  0 

5045  ( 1 C 75  l 

5046  55 '075  0 

5047  1 5051  1 

5C50  1 5067  1 

5051  0 0006  1 POLL  EY 

5052  7 1075  Q 

5053  5 5 '076  0 

5054  0 0006  1 

5C55  7 5CC5  0 

5056  6 7751  0 

5057  C 0006  1 

5C60  7 1C76  0 

5061  6 7731  0 

5062  C 0006  1 

5C 6 3 1 1C75  0 

5064  20  001  1 

5C65  ? 5'C75  C 

5066  0 0002  0 

5067  50  000  1 ARG9D 

5C70  4 4734  1 

5071  0 0002  0 


COUNT*  t * / IN  TER 
AO  HALF 

TS  TFMK 

TCF  SPT 

CS  TEMK 

00U3LE 
TS  TEMK 

TCF  POLLFY 

XCH  TEMK 

INOEX  TEMK 

AO  LI  MI  TS 

COM 

AO  TF  MK 

TS  TFMK 

TCF  POLLFY 

TCF  ARG90 

FXT  END 
MP  TEMK 

TS  SO 

EXT  END 
RP  C5/2 

AD  3 3/2 

EXTEND 
MP  SO 

AO  Cl/2 

EXTENO 
MP  TFMK 

OOOUOL 

TS  TEMK 

TC  0 

INDEX  A 

CS  LIMITS 

TC  0 


9:  12  I'CT  . 21,  1970  SK  IPPER 
USEP*  S PAGE  NO.  1 


.121  PAGE  1093 
ED  S3 


ARGUMENTS  SCALED  AT  PI 


RESULT  SCALFD  AT  1 


sap: 


ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  fiv  ZOROASTER 


9:12  OCT.  21,1970  SKIPPER. 121  PAGE  1 C 94 


EXECUTIVE 


USER'S  PAGE  NO.  1 EO  S3 


0001  5072  RLOCK  02 

1 0002  TO  ENTER  A JCB  REQUEST  REQUIRING  NO  VAC  AREA: 


33325 

001  29 

0003 

00031 


PFF 

P FF 

PFF 


3 l AST  374 


COUNT*  F4 /EXEC 

5072  0 0004  0 NOVAC  INHINT 

5073  6 C164  1 AP  FAKFPRFT  LOC(HPAC  *6 ) - lOC(QPRFT) 

5074  54  Ct^C  TS  NEWPRIO  PRIORITY  OF  NEW  JOS  ♦ NOVAC  C(FIXIOC) 


0004 
3 335 

0005 

0*  ' T 

3338 

0009 

0010 

Oi  11 


PEF  2Q6  LAST  1093 


REF  1 
REF  1 

REF  25  LAST  1036 
PEE  1 
REF  1 


50  75 
5C76 
5o77 
5100 

5 in 


5 102 
5102 
5 4 


C 3006  l 
c <:C?  0 
3 000  1 0 
52  066  0 

: 5 i77  o 


56  004  0 
54  Otl  1 
1 2(71  0 


EXT  END 
1 NOE  X 0 

OCA  0 

OX  CH  NFWLOC 

CAF  CXFCSANK 

XCH  F BANK 

TS  EX  ECT  EMI 

TCF  NO  VAC  2 


0 WILL  RE  UNDISTUPBEO  THROUGHOUT. 
2CADR  OF  JOR  ENTERED. 


ENTER  EXECUTIVE  BANK. 


10012 


TO  FNTEP  A JCB  RECUEST  RECUIRINC  A VAC  AP  EA  - F.G..  ALL  (PARTIALLY)  INTERPRETIVE  JOBS. 


3314 

00 14  5 REF  4 LAST  1094 

00  15 

33  16  PEF  297  L AST  1094 

0017 

0018  REF  2 LAST  1094 

0019  PEF  ? LAST  1094 

0020  REF  26  LAST  1094 

3321  PEF  1 


5 1 C 5 
5106 
51  07 

5110 

5111 


5 112 
5113 


5114 

5115 


C 0004  0 
54  063  0 

0 0006  l 
5 CCC2  0 
3 0001  0 
52  066  C 
2 5163  0 
56  004  0 

1 2605  1 


F I NO  VAC 


SPVACI N 


I NH I NT 

TS  NEWPRIO 

EXT  END 
I NOE  X 0 

OCA  0 

OX  CH  NEWLOC 

CAF  EXECBANK 

XCH  FRANK 

TCF  F1NDVAC2 


OFF  TO  EXECUTIVE  S W IT C HFO- RANK  . 


R0n21 1 


TC  FNTFR  A FINCVAC  WITH  TEE  PRIORITY  IN  NFWP1ID  TO  THE  2CA0R  ARRIVING  IN  A AND  l: 


1002125 


USFRS  OF  SP  VAC  ML  ST  INHINT  BEFORE  STORING  IN  NEWPRIO. 


33213  REF  298  L AST  1094 

00214  PEF  7 IAST  866 

( 215  REF  29°  LAST  1094 

00216  REF  1 


5 1 16  56  002  0 SP  VAC  XCH  0 

51  17  6 7760  1 AD  VI EG2 

5120  56  CC2  0 XCH  0 

5121  1 5112  1 TCF  SP  VAC  I N 


1 Ofl  22 


TO  SUSPEND 


BASIC  JCB  SC  A HIGHER  PRIORITY  JOB  HAY  BE  SERVICED: 


3324  RFF  300  LAST  1094 
0025  REF  3 LAST  1094 


0026  REF  38  LAST  1016 

0027  PEF  1 


5 122  22  OC 2 0 

5123  3 5163  0 

5124  56  0C6  1 

5 125  1 27  12  0 


CHANS  1 L XCH 
CAF 
XCH 
TCF 


0 

F XECRANK 
BBANK 
C HAN  JOB 


1 00  T 


TO  SUSPEND  AN  INT6RPPETIVF  JOP: 


) 3 3 1 
ROOT L5 
0032 


REF  30 
RFF  237 


LAST  1085  5 126  4 01(4  0 CHANS  2 

ITPACE  (4)  REFERS  TO  "CHANG2". 

LAST  1 C73  5127  54  001  1 


CS  LOC 

TS  L 


NEGATIVE  LOC  SHOWS  JOR  = INTERPRETIVE. 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PRCGRAW  ZERL INA  BY  ZOROASTER 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1095 


L EXECUTIVE 


USER'S  PAGE  NC.  2 EO  S3 


0033  REF  6 LAST  1096  5130  3 5163  0 

00335  REF  3S  LAST  1C96  5131  56  006  0 

0036  REF  2 LAST  1096  5132  1 2711  0 


CAP  E XECBANK 

TS  BRANK 

TCF  C4ANJ0B  -1 


GA®:  ASSFMRLF  REVISION  56  CF  AGC  PRCGPAM  ZFRLINA  BY  ZGROASTER  9:  12  OCT.  21,  1970  SKIPPER  .121 

L EXECUTIVE  USER'S  PAGE  NC.  3 

PO 035  TO  VOLUNTARILY  SUSPEND  A JOB  UNTIL  THE  COMPLETION  OF  SOME  ANTICIPATED  EVENT  (I  /C  EVENT  ETC.) 


PAGE  1096 
EO  S3 


PEF 

REF 


LAST  1CS4 
LAST  1C9  5 
LAST  IC94 


5 13A 
5135 
5116 


54  004 
1 1CC2 


0 

0 


LOC 

E XECHANK 
F BANK 
JOBS  L Pi 


RQf  M 


TC  AViAKFN 


JOB  PUT  TC  SLEEP  IN  THE  ABOVE  FASHION: 


004? 

00421  PEF  3 

00 41  PFF  69 

>344  REF  301 

0045  PEF  6 

0046  RLE  28 

3347  PFF  1 


LAST  1096 
LAST  1011 
I AST  1 >46 
LAST  1096 
LAST  1C96 


c 1 ? 7 C CCC4  0 
5 140  5 4 Of 5 0 

6161  4 4752  1 

5142  26  CC2  1 

5143  3 5163  0 

5144  56  004  0 

* 145  1 2n  27  0 


JCBWAKE 


INHINT 

TS  NFWLOC 

CS  THO 

ADS  0 

CAF  EXECRANK 
XCH  F BANK 

TCF  JO  BWAK  E2 


EXIT  IS  VIA  FINDVAC /NflVAC  PPOCEDUHES. 


R 004fl 


TO  CHANGE  THE  PPTCRITY  OF 


A JOB  CUPRFNTLY  IINDEP 


E XFCIJT ION  : 


004  9 
0050 

0'»51 
3 3 5? 
Or  s? 

00  54 
3055 


REF  5 LAST  1C94 
RTF  7 IASI  1C96 
RIF  4 ( I AST  1095 
RFF  9 LAST  1016 

REF  30?  LAST  1096 
RFF  1 


5146 
5 147 
5150 
5 1 c l 
515? 
5153 
5 154 


C 00C4  0 
54  C 63  C 
3 5163  0 
56  C6  1 
54  165  1 
3 0002  0 
1 3076  1 


PRinCHNG  INHINT 
TS 
CAF 
XCH 


NEW  PRIORITY  ARRIVES  IN  A.  RETURNS  TO 
NEWPRIO  CALLER  AS  SOON  AS  NFW  JCB  PRIORITY  IS 

EXECRANK  HIGHEST.  PREPARE  FOP  POSSIBLE  BASIC- 

BBANK  STYLE  CHANGE-JOB. 

BANK  SET 

0 

P R I OC  H 2 


1 0058 


TO  REMOVE 


A JOB  FROM  EXECUTIVE  CONSIDERATIONS: 


0061 


p r f 
RFF 
RFF 


109  6 
1036 


5 1 c 5 ? 51  63  0 ENDOFJOB  CAF 

5156  54  0C4  1 TS 

5157  1 3107  0 TCF 


EX  EC BANK 

FRANK 

ENDJ0R1 


3362 
0061 
00  64 

0066 


REF  2 LAST  1094 

RFF  30  LAST  1096 

RFF  ? LAST  *10 

REF  2 LAST  1094 


5160  3 0061  0 

5 16  1 54  004  1 

5162  1 6753  1 

5 163  0 2fcC 5 0 


FNOFIND  CA 
TS 
TCF 

EXECBANK  CADI 


L XFCTERl 

FBANK 

0+2 

c I NO  VAC  2 


RETURN  TC  CALLER  AFTER  JOB  ENTRY 
COMPLF  TE. 


Of  662  KFF  745 


LAST  1081 


5164  00110 


FAKEPRET  ADRES  MPAC  -36D 


LOCIMPAC  +61  - LDC(QPRET) 


R3C66 5 
00  666 
006662 
336664 
006666 
006668 
0066  7 
006672 
336674 
00  6676 


RFF  1? 

REF  2 
REF  2 
REF  13 

REF  10 
PEF  349 
RFF  150 


REF  103 


TO)  CHANGF 
LAST  871 
IASI  239 
l AST  1094 
LAST  1096 
LAST  87? 
LAST  10°3 
LAST  1096 

LAST  1096 


A 


"FINDVAC'  JOB  TO  A 

5165  1 167  1 

5166  7 7737  l 

5167  6 5164  1 

5170  56  167  1 

5171  7 5CC4  1 

5172  10  000  0 

51  73  5 C 000  1 

5174  54  CCO  0 

5175  0 0002  0 


"NOVAC  » --  RELEASE  ITS  VAC  ARFA: 

VACRLFAS  CA  PRIORITY  CHANGE  TO  NOVAC  VALUE 

MASK  PR  1037 

AD  FAKEPRET 

XCH  PRIORITY 

MASK  L0W9 

CCS  A 

INDEX  A 

TS  0 

TC  0 


RELEASE  VAC  ARE. 


04 P:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLJNA  BY  ZOROASTER 


E XEf.  UTI  VE 


PO : t 7 


LOCATE  AN  AVAILABLE  VAC  AREA. 


006  8 
00  68  5 
0066 
0070 
D D 7 1 

0072 

0073 
3374 
0075 
00  76 

0077 

0078 
3379 
C079? 
00  7Q  A 
3383 
0081 


REF  1 
REF  3 
RFF  A 
REF  l 
REF  3 
RFF  2 
REF  3 
RFF  3 
REF  3 
RFF  A 
PCF  3 
REF  5 
PEF  A 
RFF  30 A 
REF  3 


LAST  109  6 
l AST  261 

LAST  25  1 
LAST  l CS  7 
I AST  251 
LAST  1 (,67 
LAST  251 
LAST  1067 
LAST  251 
LAST  1097 
LAST  1 A9  7 
LAST  1 C96 
l AST  252 


01  ,2605 

1,  260  5 
01 ,2606 
01,  26C 7 
> 1,2610 
01,2611 
01,  2612 
01  ,2613 
01  ,26 14 

0 1,  2615 

01  ,2616 

0 1,  26  17 
0 1,2  620 
01,2621 
01, 2622 

01  ,2623 


54  06 1 1 
1 0 400  1 
1 2624  1 
10  454  0 
1 2624  1 
1C  5 30  C 
I 2624  1 
10  604  1 
1 2624  1 
10  660  0 
1 2624  1 
22  061  0 
3 000?  0 
C 5717  0 
31201  0 


F INOVAC  2 


CCS 
TCF 
CCS 
TCF 
CC  S 
TCF 
CCS 


CCS 

TCF 

LXC.H 


D 1 

St/ EX  EC 
E XEf.  TEMl 

V AC11JS  E 
VACFCUND 
VAC  2USE 

V AC  FOUND 
VAC3USF 
VAC  FOUND 
VAC4US  E 
VACFOUND 
VAC5USE 
VACFCUND 
5 XFC  TF  Ml 
0 

RA1 L0UT1 

312C1 


0082 

0083 

0084 
33R5 

0086 


REF  70  LAST  ICS6 
RFF  351  LAST  1096 
REF  6 I AST  1096 


C 1,26  24 
0 1,  2625 
L ,2626 
01, 2627 
01 ,263.' 


50  000  1 
2 1 * 777  0 

26  063  0 


VACFOUND  AD 
7 L 

INDEX 

LXCH 

ADS 


TWC 

A 

0 -1 
NEWPRIO 


0089 

0090 

0091 
009? 
3303 

0094 


0095 

A3396 


PFF 

REF 

RFF 

REF 

REF 


LAST  1097 
LAST  1 C96 


RFF  2 LAST  1097 


j 1,  26.  *2 
01  ,2633 
C 1,26  34 

0 1,  26  25 

01  ,2636 
31,  26  37 
31,264 
01 ,2641 


54  064  1 
3 2640  1 
54  C 62  1 
50  C 6 4 0 
10  167  0 
1 2700  0 
00007  0 
1 2700  0 


NCVAC2  CAE 
TS 
CAT 

N0VAC3  TS 

INOE  X 

CCS 

TCF 

NO  .COPES  DEC 
TCF 


ZERO 
LOCC TR 
NO  .CORES 
EXECTEP2 
LOCC  TR 
PRIORITY 
NEXTCORE 
7 

NEXT  CORF 


9:  12  OCT.  21  ,1970  SKIPPEP  .121  PAGE  1197 


USER'S  PAGE  NO.  4 EC  S3 


( SAVE  CALLER'S  BANK  FIRST.) 


NO  VAC  AREAS 


RESERVE  THIS  VAC  AREA  BY  STORING  A ZtRO 
IN  ITS  VAC  USE  REGISTER  AND  STORE  THE 
ADDRESS  OF  THE  FIRM  WORD  DF  I T I N THE 
LOR  NINE  BITS  OF  THE  PRIORITY  WORD. 


NOV  AC  ENTERS  HfcRF  . FIND  A CORE  SET. 
SEVEN  SETS  OF  ELEVEN  REGISTERS  EACH. 


EACH  PRIORITY  REGISTER  CONTAINS  -0  IF 
THE  CORRESPONDING  COPE  SET  IS  AVAILABLE. 

AN  ACT  I V F J03  HAS  A POSITIVE  PRIORITY 
BUT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 


(, AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L EXECUTIVE 


0C97 

0098 

0099 

->m 

•1  i 

0 in  •> 


RFF 

PFF 

REF 

RFF 

KEF 


LA  ST 
I AS1 
LAST 
LAST 
LAST 
LAST 


54  167  0 
7 5CC4  1 
50  064  0 
54  164  1 


CCRFDUNC  CA 

INDE  X 
TS 

MASK 
I NOE  X 
TS 


N F W PR  IC 
LOCC  TP 
PRIORITY 
L0W9 
I OCCTR 
PUSHLOC 


3H3 
01'  4 
0108 
r 1 06 
01'  7 


PEF  o ( AST 
RCF  1 
PEE  13  LAST 
REF  3C  LAST 
PFF  A6  (AST 


1098  0 1,  2650 

01  ,265  1 

1081  01,2652 

1098  0 1,265  1 

1082  ?1  ,2654 


10  C 64  1 
1 2665  1 
5 A 121  1 
• 0166  0 
54  120  0 


CCS  l OCCTR 

TCF  SETLOC 

TS  OVFIND 

CA  PUSMLOC 

TS  FIXLOC 


10 

Cl  09 


Ml' 

1 1 1 
911? 

0113 

0114 


115 


REF  7 LAST 
REF  7 LAST 
PFF  19  LAST 
REF  11  LAST 
RFF  ft  (AST 
REF  4 LAST 
REF  32  LAST 
PEF  1 


9R4  01,  2655 

1C98  01,2656 

1 Cft  5 01,^657 
1 99  0 1,  2660 

199H  | ,2661 

1056  Cl,  2662 

1096  0 1,2663 

01  ,2664 


1C  067  1 SPFCTF 
1 2665  1 

0 51C6  0 
C 5706  0 
64  067  1 
52  C 66  0 
52  165  1 

1 5160  1 


ST  CC  S Nt  W JOB 

TCF  SETLOC 

TC  CCSHOLE 

TC  CODDLE 

TS  N FW JOB 

OXCH  NEWLCC 

OXCH  LOC 

TCF  LNCFINC 


3114 

117 

• 1 1ft 
01 1 9 
C 120 
0121 
- 122 
9 123 
3124 
Cl  25 
0 126 


RCF 

REF 

PEF 

RFF 

RFF 

RFF 

REF 

RCF 


I AST  1 0 9 ft 
LAST  10°P 
LA<T  10  9 6 
LAST  1098 
LAST  1098 
LAST  1098 

LAST  1090 
I AST  1098 
LAST  1098 
LAST  1098 


Cl,  2665 
31  ,2666 
01,2667 

0 1,  2670 

01  ,2671 
: 1,  2672 
01,2673 

• 

Cl, 2675 
01  ,2676 
'1,2677 


52  066  0 
50  064  0 
52  165  1 
50  0 67  0 
4 0167  0 
6 C C 6 3 1 
0 0006  1 
6 5160  0 

:•  ro64  o 

54  C'67  1 
1 5160  1 


n XCH 
INDEX 
OXCH 
INDE  X 


NE  WLOC 
L OCCTR 
LOC 

NE  WJOB 
PR  I QR  ITY 
NEWPRI  C 

FNCFINO 

LOCCTP 

NEWjnB 

ENCFIND 


0127  RFF  1 
128  RFF  12 
3129  REF  2 
0 1 3 0 PFF  1 
01302  PEF  5 
31304  PEF  305 
9131  PEF  4 


-.1,2700  2 3037  0 NEXTCORE  CAF 


LAST  1C9  8 01  ,2  701  26  064  1 ADS 

LAST  1097  01.27C2  10  062  1 CCS 

01,2703  1 2634  0 TCF 

LAST  1C97  01,2704  22  061  0 LX CH 

LAST  1097  C1,27C5  2 0002  0 CA 

LAST  1097  01  ,2706  0 5717  0 TC 

01,2707  312C2  0 OCT 


CORE  I NC 
L OCCTR 
FXECTFM2 
NO  VAC  3 
tX  ECT  EMI 
0 

BA  ILOUT  1 
31202 


: 1 2 OCT.  21,1970  SKIPPFP  .121  PAGE  1098 


USER'S  PAGE  NC.  5 EO  S3 

S FT  THE  PRIORITY  OF  THIS  JOB  IN  THE  CORE 
SET'S  PRIORITY  REGISTER  AND  SET  THE 
JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 
OF  THE  WnRK  AREA  AND  OVERFLOW  INDICATOR 

OFF  TO  PREPARE  FOR  IN  TEPPRF  TI VF  PROGRAMS 


IF  CORE  S FT  ZERT  IS  BEING  LOADED,  SET  JP 
OVFIND  AND  FIXLOC  IMMEDIATELY  . 


SEE  IF  ANY  ACTIVE  JOBS  WAITING  (RARE). 
MUST  BE  AWAKENED  BUT  UNCHANGEC  JOB. 


*0  SHOWS  ACTIVE  JOB  ALREADY  SET. 


SET  UP  THE  LOCATION  REGISTERS  FOP  THIS 


THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 
HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 
WITH  THE  NEW  PRIORITY  TC-  SEE  IF  NEWJDB 
SHOULD  BE  SET  TO  SIGNAL  A SWITCH. 

LCCCTR  IS  LEFT  SET  AT  THIS  COKE  SET  IF 
THE  ZALLER  WANTS  TC  LOAD  ANY  MPAC 
REGISTERS,  ETC. 


NO  CORE  SETS  A VAI  LABLE, 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCRCASTER 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1099 


I EXECUTIVE  USER'S  PAGE  NO.  6 ED  S3 

? 133  THE  rCLLCWING  ROUTIAE  SWAFS  CORE  SET  0 WITH  THAT  WHOSE  RELATIVE  ADORESS  IS  IN  NE  WJOB. 


31345 

REF 

34 

L AST 

1090 

01,  2710 

0135 

REF 

1 0 

LAST 

1 A96 

0 1 , 

,271  1 

0 136 

01 

,’712 

->1362 

1. 

77  13 

l 136  A 

REF 

1 5 

LAST 

992 

01 

,2714 

0 1 366 

REF 

2 38 

LAST 

1094 

1 , 

,2715 

. iHe 

RCF 

1 1 

LAST 

1090 

0 1, 

, 27  16 

0137 

IMF 

35 

LAST 

1C99 

l 

,2717 

3 130 

REF 

36 

L AST 

109g 

1 . 

, 2720 

01382 

REF 

11 

LAST 

1099 

' 1 

,772  1 

0 I 3 8 A 

01 

,2722 

01308 

REF 

16 

LAST 

1C?9 

1, 

, 2723 

C l 30 

REF 

746 

LA  ST 

1006 

1 

,2724 

3143 

P FF 

12 

LAST 

i 

Mt 

, 7725 

0141 

RFF 

74  7 

LAST 

1099 

■ 1, 

,7  726 

14  2 

RFF 

748 

LAST 

1099 

01 

,2727 

3 143 

REF 

7 49 

L AST 

1099 

ci, 

, 2730 

1 44 

REF 

1 3 

LAST 

1099 

01 

,2731 

0 146 

PEF 

75C 

LA  ST 

01 

,2732 

0 1 46 

P FF 

751 

l AST 

1(399 

1 , 

, 27  M 

0147 

RFF 

75? 

LAST 

1099 

bi 

,2789 

3148 

P EF 

14 

l AST 

I099 

L, 

, 2725 

pH  9 

REF 

753 

LAST 

1099 

1, 

,2736 

0 1 50 

REF 

754 

LAST 

1C9S 

01 

,2737 

MSI 

RCF 

755 

1 AST 

1099 

1, 

,2740 

Cl  52 

REF 

15 

1 AST 

loog 

01 

,274  1 

3 153 

RFF 

756 

LA  ST 

1099 

Cl 

,274  2 

0154 

RFF 

757 

L AST 

1099 

, 274  3 

0155 

REF 

2 32 

LAST 

1097 

01  , 

,2  744 

3156 

RFF 

14 

LAST 

1098 

i , 

2745 

01  57 

1 , 

,2746 

0 158 

Cl 

,2747 

3159 

RFF 

31 

L AST 

1090 

1 , 

, 2750 

0160 

REF 

3? 

LAST 

1099 

01 

,275  1 

REF 

33 

LAST 

1C99 

Cl 

, 2752 

0162 

PFF 

H 

LAST 

1099 

1. 

2753 

0163 

RFF 

34 

1 AST 

1099 

01  ,2  754 

3164 

REF 

35 

L AST 

1099 

) 1 , 

, 2755 

t 1 65 

REF 

12 

l AST 

1098 

01, 

2756 

0 166 

REF 

17 

LAST 

1 COB 

01 

,7757 

3 167 

REF 

67 

l AST 

1098 

01, 

, 2760 

0168 

RFF 

36 

LAST 

1099 

’ 

,2761 

16Q 

REF 

233 

L A ST 

1C  99 

Cl 

, 2762 

d7P 

PEF 

1 

1 1. 

2763 

22  164 

1 

-2  LXCH 

LOC 

30  165 

0 

-1  CAE 

RANK  SET 

C 0004 

0 

CHANJOB  INHINT 

0 COC  6 

1 

F XTEND 

04  007 

1 

ROR 

S JPFRBNK 

56  C01 

0 

XCH 

1 

50  C 67 

0 

+4  INDEX 

NEW  JUB 

52  165 

1 

DXCH 

LOC 

52  165 

1 

D XCH 

LOC 

30  165 

0 

CAE 

BANK  SET 

0 000  6 

1 

EXTEND 

ol  00  7 

1 

WRI  TE 

SUPERBNK 

52  155 

1 

DXCH 

X R AT 

5 C C 6 7 

o 

I NDEX 

NEWJCB 

52  155 

52  155 

1 

DXCH 

M P AC 

52  157 

0 

TTtctt — 

TTPAC  +2 

50  067 

0 

INDEX 

NEWJOB 

52  157 

0 

DXCH 

MP  AC  +2 

52  157 

0 

XCH 

MPAC  +2 

52  161 

.MAI  i-u 

5 C C 6 7 

c 

I NDEX 

NEWJOB 

52  161 

0 

DXCH 

MPAC  +4 

52  161 

0 

>J3X  CH 

MPAC  +4 

5 2 16  3 

1 

n xch 

MPAC  +6 

56  067 

n 

INCEX 

NEWJOB 

52  163 

1 

52  163 

T 

DXCH 

MPAC  *6 

3 4 755 

1 

CAT 

ZERO 

5t  121 

0 

XCH 

OVF I ND 

0 0006 

1 

EXTEND 

1 2752 

1 

B7F 

+ 3 

4 C 1 6 6 

1 

C S 

PUSHLOC 

54  166 

1 

TS 

PUSHLOC 

52  167 

0 

DXCH 

PUSHLCC 

50  067 

0 

INDE  X 

NE  WJOB 

52  167 

0 

DXCH 

pus  hi  or 

52  167 

0 

DXCH 

PUSHLCC 

3 50C4 

0 

CAF 

L0W9 

7 0167 

0 

MASK 

PR  IOKITY 

5 4 120 

0 

TS 

FI XLOC 

10  166 

1 

CCS 

PtISHI  nc 

2 4 i 5 5 

1 

CAF 

ZERO 

1 2770 

1 

TCF 

5 NDPRCHG  -1 

BANKSET,  NOT  BBANK , HAS  RIGHT  CONTENTS. 


PICK  UP  CURRFNT  SBANK  FOR  BBC  ON 
LOC  IN  A AND  BBCON  IN  L . 

SWAP  LOC  AND  BANKSFT. 


SET  SBANK  FOP  NEW  JOB. 

SWAP  MULTI-PURPOSE  ACC  UMUI  A TQR  AREAS. 


MAKE  PUSHLOC  NEGATIVE  IF  OVFIND  NZ . 


SWAPS  PUSHLOC  AND  PP  IflR  ITY  . 

SET  FIXLOC  TO  BASE  fF  VAC  AREA. 


SET  OVERFLOW  INDICATOR  ACCORDING  TO 
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PAGE  Hoi 


GAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L EXECUTIVE 


' 17? 

' 1 73 
} 1 79 
f‘.  1 75 


PEE  ? 7 LAST  1099 
RFF  3p  I AST  1130 
PEF  IOC  LAST  1C63 
REF  IS  LAST  1009 
PEF  17  LAST  1099 


3 1. 2765 

31 .2766 
0 l,  ?767 

1,2770 


A 01(6 
CA  166 
3 ->753 
56  121 
69  C 67 


1 

1 

1 

0 


CS  PUS  HI  OC 

TS  PUSHLOC 

CAF  ONE 

XCH  (IV F I NO 

TS  NEWJOB 


USER'S  PAGE  NC.  7 


176 
3 17  7 
1 7a 

179 

1 80 


REF  37  L AST  1099 


.1  ,2773 
r ),  ?779 
0 1,  2775 


C 0003  1 

^2  165  1 
G COG 6 1 
6 2776  C 
52  C06  0 


FNOPRCHG  PFLINT 
D XT.  H 
EXTEND 
B7PF 
0TC3 


LOC 

♦ 2 


RASIC  JOBS  HAVE  POSITIVE  ACCRESSES, 
01  SPA  TCH  Ml  TH  A OTCB. 

IF  INTERPRETIVE,  SET  UP  ERANK,  ETC. 


SO 


ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


FXECUT IVF 


01  R 1 

in? 
:>  i p 3 

• 196 


RFF  I r 1 LAST  1100 
REF  38  LAST  11C0 
REF  1 


01,2776  A OOOf)  0 
01  ,2111  6 A753  1 

01.30CC'  5 A 16A  i, 

0 1 ,5001  l 6062  l 


COM 

AO  ONE 

TS  LOC 

TCF  INTRSM 


R 1 9 7 


COMPLETE  JOBSLEEP  PRE  PARATI  CNS. 


OlRR 
0189 
0 1 00 
1<)1 


n IQ? 

01021 

01922 

0193 

01  9 A 

0195 

UPS 


REF  18 
REF  19 
REF  0 
REF  A 1 

RFF  17 
REF  1? 
REF  23a 
RFF  150 
RFF  1 


LAST  1C99 
LAST  1 in  1 
I AST  1035 
LAST  1096 

I AST  1099 
LAST  1099 
L AST  1099 
LAST  107  1 


0 1,  10C>  2 

01  ,3003 

C 1 , 3 C 9 
01,3005 
1,3 

0 1, 3007 

01  ,3010 
Cl, 3011 
( 1,  30  1 2 
o 1 , 30 1 3 
0 l,  30  1 A 


0 OCOA  0 
A 0167  0 
5A  167  0 
3 6106  0 
7 0006  0 
0 0006  1 
OA  007  1 
5 A 165  l 
A A7  5 5 0 
5A  131  0 

1 312A  1 


JOBSLP  1 INHINT 

CS  PRIORITY 

TS  PRIORITY 

CAF  LDW7 

MASK  RRANK 

F XTEND 

ROR  SUPERBNK 

TS  BANKS  ET 

CS  ZERO 

J0ESLP2  TS  BUF  +1 

TCF  F JSC  AN 


01  96  1 

0 19611  PEF 
3 196  12 


18  LAST  1100 

1 


01.3015  0 OOOA  0 

01.3016  10  067  1 

C 1,  3017  1 3052  0 

01,332  0 0003  l 

Cl,  30?  I 1 3220  0 


NIICHANG2  INHINT 
C CS 

TCF 

R EL  IN  T 
TCF 


NEW  JOB 
+ 3 

AOVAN  +2 


0196  2 RFF 
01963 

M96A  REF 
1965  REF 
0 1 96  6 RFF 


71 


30 

39 

3 


LAST  1097 

LAST  873 
I AST  113  1 
l AST  1095 


01,  3052 
01  ,3023 
01,  3 02 A 
01,3025 
01  ,3026 


2 A75?  0 
0 0006  1 

C 5 Cll  1 
52  165  1 
1 2716  1 


CAF  TWO 

EXTEND 

WOR  DSALVOUT 

DXCH  LHC 

TCF  CHANJOB  ♦ 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1101 
USER'S  PAGE  NO.  8 EO  S3 

EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 
RESUME . 


NNZ  PRIORITY  SHOWS  JOB  ASLEEP. 


SAVE  OLD  SUPERBANK  VALUE. 


HOLDS  - HIGHEST  PRIORITY. 

SCAN  FOR  HIGHEST  PRIORITY  Al  A FNOOFJDR. 

OUICK...  DONT  LET  NEWJOB  CHANGE  TO  +C  . 
N EW JOB  STILL  PNZ 

NEWJOB  HAS  CHANGED  TO  *C.  WAKE  UP  JOB 
VIA  NUOIRECT.  (VFRY  RARF  CASE.) 


TURN  ON  ACT  IV  IT Y L If.HT 
AND  SAVE  ADDRESS  I NF  C FCR  BFNFFIT  OF 
POSS  IBLE  SLEEPING  JOB. 


GAP: 


ASSEMBLE  REVISION  56  OF  ASC  PA  CGRA  * Z6ALINA  BY  ZOROASTEK 


9:  12  OCT  . 21,  1970  SK  IPPER 


121  PAGE  1102 


L EXECUTIVE 


USER*  S PAGE  NC. 


S3 


> 197 

R 020 1 


TC  WAKE  UP  A JOB,  FACE  OCRF  SET  IS  FOUND  TO  LOCATE  ALL  JOBS  WHICH  ARE  ASLEEP.  IF  THE  FCAOP  IK  THE 
LOC  RFC  1ST  E1'  if  ANY  SUC  H JHR  MATCHES  THAT  SUPPLIED  0Y  THF  CALLER,  THAT  JC8  IS  AWAKENED.  IF  NO  JOB  IS  FOUND, 
LCCCTP  IS  SET  TC  -1  AKC  NC  FUFTEER  ACTION  TAKES  PLACE. 


Sfif 

0204 
1205 
0206 
0 29  7 
3203 
f.?09 
9 2 10 
r?1  1 


PF  F 
REF 
PEE 
REF 
RFF 
PFF 


l A ST  1'  M 
LAST  11?  1 
LAST  1CSP 
I AST  109  7 
LAST  1098 
LAST  1102 
LAST  11)1 


REF 


. 1 , 3 o 3o 
Cl  ,3031 
Cl,  3022 
31, 3033 
C 1 ,3034 
0 1,  30  35 
r 1 ,30 36 
Cl,  30  37 
0 1,  3090 


59  061 
2 9755 
54  069 
2 2690 
54  062 
50  069 
1C  16  7 

1 309  1 

CCC19 

1 3c  50 


1 

l 

0 

0 

0 

1 

0 


JCPWAKE?  TS 
CAF 
TS 
CAF 

J0BWAKE6  TS 

I NDEX 
CCS 
TC  F 

CORE  I NC  OEC 
TC  F 


tX  ECTEM1 
7 = R0 
LOCCTR 
NO.CCRES 
E Xtt.  TEM  2 
LOCCTR 
PRIORI TY 
J0BWAKF3 
1 2 

WAKE  TF  ST 


BFGIN  CORE  SET  SCAN. 


ACTIVE  JOR  - CHFCK  NEXT  CORE  SET. 

12  REGISTERS  PER  CORE  SET. 

SLEEPING  JCB  - SEF  IF  CAOR  MATCHES. 


r 219 

3215 

3216 
217 

0218 


PFF  2 LAST  1C98 
REF  15  L AST  1102 
RFF  4 I AST  110? 
PFF  1 

RFF  102  L AST  111 
REF  16  LAST  1 1(  2 
REF  9 LAST  1098 


Cl  ,3  391 
Cl,  3092 
1,3  4 3 

01 ,3094 
0 1,  3096 
01 , 3396 

01,3097 


3 3037  0 
26  C 69  1 
10  06?  1 
1 3033  0 
9 9753  0 
59  064  1 
1 5160  1 


JCPWAKF3 


CAF  CORE  INC 

AO  S LOCCTR 

CCS  EXEC  TEH  2 

TCF  J0RWAKE9 

C S ONE 

TS  LOCCTR 

TCF  E NOFIND 


EXIT  IF  SLEEPING  JCB  NOT  FOUND. 


021o 

0 720 
3 22  ! 
'222 
T22  3 
■224 


PFF  6 
RFF  17 
PEF  90 


REF  2 


LAST  194R  01,3050  9 0065 

LAST  11  ' 1 ,3051  50  064 

I AST  1 10 1 01,  3052  6 0 l£4 

01  ,3053  0 0006 

Cl  ,3C54  1 3056 

I AST  1 1)  2 01,  30  5 5 1 30  4 1 


0 

0 


C 

0 


WAK  FTEST 


CS  NFWLOC 

INDEX  LOCCTR 

AO  LOC 

EXTEND 
BZF  ♦? 

TCF  JOB  WAKE  3 


IF  MATCH. 

FXAMINE  NEXT  CORF  SET  IF  NO  MATCH. 


"2?  5 
3 226 
0227 
n 22B 
3 229 


PEE  18  LAST  1102 
PFF  21  l A ST  1102 
REF  o LAST  1C98 
RFF  19  LAST  1102 
RFF  2?  LAST  11^2 


Cl  ,3  056  50  064  0 

Cl,  3C57  4 C l 6 7 0 

C 1 i 3060  54  063  < 

Cl ,3061  50  064  0 

01, 3062  59  167  n 


INDEX  LOCCTR  R F-  C3MPL  EMENT  PRIORITY  TO  SHOW  JOB  AWAKE 

CS  PRIORITY 

TS  NEWPRIO 
INDEX  LOCCTR 
TS  PRIORITY 


02  3L' 
i 231 
023? 
0233 

3 239 

0235 


r'  2 36 
3 2 3 7 


REF  7 
PEF  3 
RFF  P 
REF  2 
RFF  2D 
PFF  13 
REF  9 


LAST  1102 
LAST  If  1 9 
LAST  1102 
l AST  1 K 2 
LAST  Ilf? 
LAST  1101 
I AST  113  2 


( 1 ,3063 
11 ,3069 
<j1,  3065 
01 ,3  0.64 
C 1,  3067 
01,3073 
01 ,3071 
0 1,  3072 


6 4741  1 
56  065  1 

7 4350  1 
50  064  0 
6 0165  0 
54  C 6 6 C 


CS  FBANKMSK  MAKE  UP  THE  2CADR  OF  THE  WAKE  ADORESS 

MASK  NEWLCC  USING  THF  CAOR  IN  NEWLOC  AND  THF  FRANK 

AO  2K  HALF  OF  BBANK  SAVED  IN  BANKS  ET  . 

XCF  NEW10C 
MASK  FBANKMSK 
INDEX  LOCCTR 
AD  BANKS ET 

TS  NEWLOC  +1 


023H 

0239 

0240 


RFF 


i Asr  in? 
IASI  If  98 


71  ,3' 7 3 
- I , 3 0 74 

0 1,  30  7 5 


10  064  l 
1 2665  1 
1 2655  1 


CCS  LOCCTR  SPECIAL  TREATMENT  IF  THIS  JOB  WAS 

TCF  SETLOC  ALRFADY  IN  THE  RUN  10)  POSITION. 

TCF  SPEC  TF  ST 


'.AP:  ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  7.FRLINA  BY  ZOROASTER 
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L E XFC  UTI  VF 


USER 'S  PAGE  NO.  10  EO  S3 


P3241 


PRIORITY  CHANGE.  CHANGE  THE  C ONTF  NTS  OF  PRIORITY  AND  SCAN  FOR  THE  JOB  OF  HIGHEST  PRIORITY. 


1 243 

REF 

41 

LAST 

1 U 2 

01  ,3074 

54  144 

0 

PRI0CH2  TS 

l OC 

ft  24  4 

REF 

236 

LA  ST 

IK  2 

01 ,3077 

3 4755 

1 

CAF 

ZERO 

3245 

REF 

151 

l AST 

1 10  1 

0 1,  3 100 

5 4 130 

1 

TS 

3 UF 

0246 

RFF 

13 

LAST 

1099 

1 ,31<  1 

3 5004 

0 

CAF 

L0W9 

0?4  7 

RFF 

23 

l AST 

1 10  2 

01,  3LC2 

7 C 1 6 7 

0 

MASK 

PRI  GRI TY 

02  4P 

REF 

LAST 

1 10  2 

0 1,  3 1c  3 

6 0C63 

1 

AD 

NE WPRI 0 

0 249 

RFF 

24 

LAST 

1103 

01 ,3104 

54  167 

0 

TS 

PRIOR  IT Y 

3253 

01,3105 

4 COCn 

0 

COM 

0251 

RFF 

1 

L , 3 1 ■ 

1 30  13 

1 

TC  F 

JOBSLP  2 

SET  FLAG  TO  TELL  FNDJOB  SCANNER  IF  THIS 
JOB  IS  STILL  HIGHEST  PRIORITY. 


AND  TC  F JSC  AN. 


;AP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZCROAST Eft 


9:  12  OCT  . 2 l»  1970 


SKIPPER 


PAGE  lit*. 


EXECUTIVE  USER'S  PAGE  NO.  11 

RELEASE  THIS  CORE  SFT  ANC  VAC  AREA  ANC  SCAN  FOR  THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 


>254 
■255 
0 256 
>257 
• 25R 
'>258  1 


PCF  237 
REF  It? 
REF  25 
REF  14 
REF  23« 


01,3107  C CCC4  0 E NO  JOB  1 INHINT 


LAST  1 1 U3  01  ,3110  4 4,755 

LAST  1103  01,3111  54  131  0 

l AST  11o  3 0 1,3112  56  If  7 1 


ZERO 
B1IF  +1 
PP I OR  I TY 
L0W9 
L 


1 25"  REF  241  LAST  1 1<  4 01,3121  1C  CC1  1 

0260  REF  352  LAST  1097  0 1,  3122  60  CCO  1 

0261  01,3123  54  000  0 


NO  VAC  END  OF  JOB 


2iH 

0264 

3265 


PFF 

REF 

PFF 


26  LAST  1104 
1 

12  LAST  109  0 


01,3  124 
01,3125 
01  ,3126 
0 1,  3127 


1C  2 C 3 1 
C 3175  1 

0 5706  0 

1 3130  1 


E JSC  AN  CCS 


PRI OR  I TY  f 12  0 
EJ  1 

CCS  HOLE 


0266 
>2  67 
0268 
0269 


I A ST  1104 
I A ST  1 10  A 
LAST  11:4 


1 ,3  130 
01,3131 

0 1,  3 132 

01  ,3133 


10  217  1 
C 3175  1 
C 57C6  0 
1 3134  0 


CCS  PR  IOR  ITY  +240 

TO  F J1 

TC  CCSHOLF 

Ter  +i 


3273 
0271 
0 272 
027> 


RFF 

RFF 

REF 


I AST  1104 
I AST  11  4 
LAST  1104, 


1C  233  1 

0 3175  1 
67610  1 

1 1 40  0 


CC  S PP1  ORI  TY  +360 

TC  EJ  1 

-CCS  PRIORITY 

TC  F +1 


02  74 
^275 
"2  76 
0 277 


RFF 

RFF 

RFF 


LAST  1104 
I AST  1104 
LAST  1104 


01  ,3140 
Cl,  3141 
01,3142 
01  ,3143 


10  247  1 
f 3175  1 

0 5706  0 

1 3144  1 


PRIORITY  +480 
C Jl 

CC  SHOLF 


2 7 H 
• 279 
0 280 
6281 


REF 

REF 

RFF 


LAST  110  4 
1 A ST  1134 
LAST  110  4 


0 1,  3 144 
>1 ,3145 
01,3146 
0 1,  3 147 


10  263  1 
0 3175  l 
C 5 7C6  0 
1 3150  1 


CC  S PRIORI  TY  +600 
TC  EJ  1 

TC  CCSHCLF 

TCP  +1 


0282 
>283 
02  84 
0285 


PFF 

PFF 

PFF 


LAST  Ilf  4 
I AST  110  4 
LAST  1104 


01  ,3150 
1,3151 
01,3152 
01  ,3153 


10  277  1 
f 3175  1 
C 5706  0 
1 3154  0 


CCS  PRIORITY  +72D 
TC  E Jl 

TC  CCSHOLF 

T CF  +1 


>206  i 


LAST  11C  4 


" 1,3154 


PRIOR  I TY  +84D 
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L EXFCUTIVF 


285 2 PEE  7 I A ST  1104 
3 2 85  T REF  17  LAST  1134 
02854 


s\:\\n 

01  ,3157 


C 3175  l 
C 57C6  0 
1 3160  1 


TC  COSH  OLE 

TCP  +1 


USER’S  PAGE  NO.  12  EO  S3 


GAP: 


ASSI-MRLE  REVISION  56  3 F AGC  PROGRAM  ZERLINA  RV  ZOROASTER 


l EXECUTIVE 


8^286 


EVALUATE  THE  RE  SUI  T 5 CF  THF  SCAR. 


C 2 H 7 
0288 
’289 


REF  153 
PFF  18 
REF  19 


l as  r 1 1 : ^ 

LAST  110  5 
l AST  1 10t 


0 1,  3 160 
Cl  ,’161 

r.  1,  ’ If  2 


1G  131  G 
0 5706  0 
C 57C6  C 


CCS  3UF  * 1 

TC  CCSHOLE 

TC  CCSHCLE 


0290 
' 291 
’292 
1 293 
029  A 


PEF  2 
REF  154 

REF  2 


I A ST  220 
LAST  1136 

I AST  1C99 


01  ,3163 
'*1  ,31tA 

01,  3165 

01  ,’166 

Cl,  3U7 


1 3165  1 
1 3210  0 
1C  13C  1 
1 3170  0 
1 2 77C  l 


TCP 

TCF 
CC  S 
TCF 
TCF 


♦ 2 

OUMMY  JOB 
3 UF 
+2 


E NDPRCHG  - 


0295  REF  353  LAST  1134 
0 296 

3297  PFF  1 

0298  PFF  19  LAST  1101 

"290  pef  A LAST  1101 


01  ,31  71 
Cl,  3172 
01  ,3173 
"1,3174 


50  COP  1 

2*  ’777  0 

6 3 13.6  0 

54  067  1 
1 2710  l 


INDEX  A 

CAF  3 -1 

AO  -CCSPR 

TS  NFWJOB 

TCF  CHANJCR  -2 


0300 
03  ,»1 
3332 
0 3 03 


0 30 A 


0306 


RFF  155 
PFF  156 
REF  354 
RFF  157 
REF  1 

RFF  3 


LAST  1136 
LAST  1106 
LAST  1U.6 
LAST  1106 


LAST  1006 


1,  3 175 

"1  ,’l 76 
01,  3177 
"1 » 3?C ( 
Cl ,3201 
0 1,  ’202 
01  ,3203 


6 0131  1 
1C  CCO  0 
A 0132  f 
1 3204  0 
13  2C3  1 
1 6753  1 


TS  3 UF  *2 

AD  BUF  +1 

CCS  A 

CS  8UF  + 2 

TCF  EJ2 

NOOP 

TCF  Q +2 


3 308 
03  00 


031 1 
’311 


PFF  30f 
RFF  159 
RFF  A 


l ACT  not 
LAST  1098 
LAST  1106 
I AST  110  6 


0 1,3204 
0 1,  3 2c  5 
Cl ,3206 
C 1,  3 ?r’  7 


54  131  0 
-•  OCC  2 0 
54  130  1 
1 6753  1 


E J2 


TS  BUF  +1 

CA  0 

TS  BUF 

TCF  0*2 
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SEF  IF  THERE  ARE  ANY  ACTIVE  JOBS  WAITING 


BUF  IS  ZERO  IF  THIS  IS  A PPIOCHNG  AND 
CHANGED  PR  1 03  I T Y IS  STILL  HIGHEST. 


OTHERWISE,  SET  NE  WJCB  TC  THE  RELATIVE 
ADDRESS  OF  THE  NEW  JOB'S  CORE  SET. 


-OLD  HIGH  PR  IOPI  TY. 


NEW  HIGH  P3 TD3 ITY. 
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Pi  3 1 4 
RUJlfe 


LIGHT  MAINTENANCE.  THE 


USER  'S  PAGE  NO.  14  EO  S3 

I CLING  ROUT  INF  IS  NOT  A JOR  IN  ITSELF, 


7319 

0320 

0321 

0322 

0323 
3 324 
0 328 
0329 
? 3 3? 
0331 


LAST  295 


REF  72  LAST  11?  1 

REF  31  LAST  1101 
RFF  21  LAST  1107 
REF  1 

RFF  73  LAST  1107 


E8ANK=  SELFRET 


) 1,3210  4 47  c 5 0 OUMMYJOB  CS 


RFF 


1 


01  ,3211 
01,  3212 

0 1,3213 

01  ,3214 
C 1,  3215 
01  ,3216 
01,3217 

0 1,  3 2 20 

01  ,3221 


067  1 
C CCC3  1 
4 4752  1 
0 0006  1 
0?  C n 1 
10  067  1 
1 3015  1 
3 4752  0 
1 3230  1 


RE  LINT 
C S 

EXT  END 

WAND 

CCS 

TCF 

CAF 

TCF 


TWO 

DSALNGUT 

NFWJMR 

NUCHANG2 

TWO 

NUDIRECT 


SELF-CHECK  STORAGE  IN  E BANK . 
SET  NEW  JOB  TO  -0  FCR  IDLING. 

TURN  OFF  THE  ACTIVITY  LIGHT. 


I S A NE  W JOB  AC  TI VE  ? 

YES...  ONE  REQUIRING  A CHANGE  JOB. 
NEW  JOB  ALREADY  IN  POSITION  FOR 
EXECUTION. 


0335 

336 
>337 
? 333 

0339 

03  4*1 


LAST  ?1 2 >1,  3222  2C ' 

LAST  11-  7 01,3223  3 1361  l 
l AST  1 1 '4  01 ,3224  54  001  1 

0 1, 322b  3 32  2 7 C 

LAST  605  01,3226  1 5177  1 


0 1,  3227  66102  l 


I NCR  DUNLCCPS 


COUNT  OUMMYJOB  LOOPS  FOP  DOWNLINK 

PUT  RETURN  ADDRESS  IN  L. 

AND  DI  SPATCH  JCR. 


RFF  32  l AST  1107 
PCF  42  LAST  lir 3 
RFF  f LAST  1107 


01,3230  0 0006  1 NUDIRECT  EXTEND 

01,  3 2 ’ 1 05  C 1 1 1 WOR  DSALMOUT 

01 .3232  52  165  1 DXCH  LOC 

01.3233  1 51  76  0 TCF  SUPDXCHZ 


TURN  THE  GREEN  LIGHT  BACK  ON. 

JORS  STARTED  IN  THIS  FASHI  CN  MUST  BE 


4 1 
R034R 
R034  9 

A035O 

0351 

0352 

0353 
)354 

0355 


RFF  2 LAST  ICS4  TO  1097:  6B  68* 

SUPDXCHZ  - ROUTINE  TO  TR4NSFTR  TO  SUPERBANK. 
CALI  I NO  SFCUENCF 


REF  243  LAST  1107 

REF  IP  LAST  tlOi 
RFF  42  LAST  119  1 
REF  244  LAST  1 167 


5 176 
5 177 
c 200 
5 2 r.  1 

5202 


BLOCK  2 

COUNT*  ft/ EX  EC 

TCF  SJPDXCH7 


56  CCl  0 
0 1006  1 
Cl  0C7  1 
54  CC6  0 

C 0001  0 


IN  FIXED-FIXED  SO  CT HERS  MAY  USE. 


WITH  2C ADR  OF  DESIRED  LOCATION  IN  A f L. 
BAS  IC. 


77677  1 NEG100 
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DATE  - 10  OCTOBER  1966 
L CC  S ECT  ION  - HAITI  1ST 
ASSEMBLY  SUNBURST  KEY  5 


Pdf  < 7 3 pen  «.  BY  KERMAN  (TWinCLE  IN  54)  3/28/6P  SKIPPER  P F V 13. 

1 one  7 95 


I'.'I  PROGRAM  DESCRIPTION 
ROD' 7 MOD  NO  - 2 

p > j 0 1 5 HCD  BY  - MILLER  (CTvax  INCPEASEC  TO  162.5  SEC) 

ROf>  72  woo  3 PY  KEPOAN  (INHINT  INSERTED  AT  WAITLIST)  7/28/68  SKIPPER  REV  A 


R ) D '•  8 FUNCTIONAL  OfcSCRlPTlUN- 

FAOT  nr  A SECTION  OF  PROGRAMS, -WA  ITL  1ST  , TASKOVER,  T3RIJPT,  USED  TO  CALL  A PROGRAM,  (CALLED  A TASK), 

* 11  WHICH  IS  TO  BEGIN  IN  C ( A)  CE  N T I SFC  ONDS . WAITLIST  JPDATES  TIME3,  LST!  AN0LST2.  THE  MEANING  CF  THESE  LISTS 

R3T  1 3 FOL I OW  . 


R 001 4 CITIWE3  ) = 16384  - f T 1 -T  ) CENT  IS  ECON  OS,  ( T = PR  E SEN  T TIMF,  Tl-TIME  FOR  TASK1) 

R0016 


RDD1P 
R002D 
T 0 'l  2 1 
PDD22 
ROC  23 


C(LST  1)  = -(  T 2-  T 1 ) + 1 

f (LST1  +1  ) = - ( T 3 -T  7 )+1 
C ( L ST  1 +2)  = -(  T4-  T3  ) + 1 


C(LST1  +6) 
f(LSTl  +7  ) 


-(  T8-T71  + 1 
-(T9-T8J  + 1 


R00  24 
RDD25 
10026 
R0  ‘ 27 
R002H 
1 00/9 


2 C ADR  OF  TASK1 
2CA0R  OF  TASK 2 


CCLST2  *14)=  2CA0R  OF  TASKS 
C ( L ST2  +16)=  2C.ADR  OF  TASK9 


R303T 

R0031 

ROD  32 
R 00-3  3 
* 0034 


WARN  INGS  — 


1)  1 <=  CIA)  162500  (I  CE  NT  I SECOND  TO  162.5  SEC) 
2 ) 9 TASKS  MAX  I MUM 

3)  TASKS  CALLEC  UACFR  INTERRUPT  JNHIRITFO 

4)  TASKS  END  BY  TC  TA$KOVER 


R00.16  CALLING  SECUENCE- 


1 00  37 
R3D3R 

R 0040 
R0041 

R0042 


CA  OCLTAT  (TIME  IN  CFNTISECONDS  TO  TASK  START) 

TC  WAITLIST 

2CADR  DESIPEC  TASK 

(MINOR  OF  2CADRJ 

RELIMT  (RETURNS  HERE) 


1 Of  47  1 
R3D4?? 

R 004 2 3 
R 00425 


TWIODIF- 


TWIDOLE  IS  FOR  USE  WEEN  THE  TASK  BEING  SE  T UP  I S I N THE  SAME  EBANK  AND  FBANK  AS  THE  USEI 
SUCH  CASES,  IT  IMPROVES  UPON  WAITLIST  BY  ELIMINATING  T HP  NEEO  FOR  THE  B3C0N  HALF  OF  THE 


:.  IN 
2CADR, 
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WAITLIST  JSER'S  PAGE  NO.  2 EO  S3 

R0042  7 

SAVING  A WORD.  TWIDDLE  IS  LIKE  WAITLIST  IV  EVERY  RESPECT  EXCEPT  CALLING  SEQUENCE,  TC  WIT- 

R0043 
RJ7*3  1 
< 00432 
R00433 

L-  l CA  DELTAT 

I TC  TWIDOLF 

L+l  AORFS  DESIRED  TASK 

L + 2 RELINT  (RETURNS  HERE) 

R00439  NORMAL  EXIT  MODES- 


<004', 

AT  L+3  OF  CALLING  SFCUENCF 

ROTAS 

ALARM  OR  A ROPT  FXIT  MODES- 

R 004  6 
ROC  4 7 

TC  ABORT 

OC  T 1203  (WAITLIST  OVERFLOW  - TOO  MANY  TASKS) 

R00A8 

FRASAPLE  INITIALIZATION  RECUIREC- 

< 0049 
R5050 

ACC.OMPLI SHED  RY  FRESH  ST  ART  , — LST 2 , . . . , LST  2 +16  = EN  DT  ASK 

LST1  ...  . , LST1  +7  =NFG1  / 2 

R 0051 

OUTPUT-- 

R00  5’ 
R0053 

rf0  L STl  AND  LST2  UPDATED  WITH  NEW  TASK  AND  ASSOC  I AT  ED  T IME . 

< 0';5A 
R0O5*' 
ROOSb 

CENTRALS-  A , Q , L 

OTHFR  - WAITE  XIT,  WAI  TADR  , WAITTEVP,  WAI  TRANK 

DFTAILFD  ANALYSIS  OF  TIMINC- 

3 0057 
RDD59 

f CNTROI  WILL  NOT  RE  RETURNED  TC  THF  SPECIFIED  ADDRESS  (2CADR)  IN  EXACTLY  DELTA  T CE  NT  I SEC  OND  S. 

TFb  APPROXIMATE  TIME  MAY  BE  CALCULATED  AS  FOLLOWS 

R 0060 
ROC*  61 
RODS  2 

< 0063 
R3064 
R006S 

< 0067 
1006* 
R0069 
R0071 

LET  TC  = THF  TIRE  CF  THE  TC  WAITLIST 

1 F T TS  = TP  +147L  + CCUNTFR  INCREMENTS  (SET  UP  TIME) 

LET  X = TS  - ( 1(  OT  S ) / 1 ; (VARIANCE  FROM  COUNTERS) 

LET  Y = LENGTH  CF  TIME  OF  INHIBIT  INTERRUPT  AFTER  T 3RUPT 

IFT  Z = LENGTH  OF  TIME  TO  PROCESS  TASKS  WHICH  ARE  DUE  THIS  T3  RUPT  BUT  DISPATCHED  EARLIER. 

I Z=o  , USUALLY  ) 

IFT  MELT)  = THF  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2CADR 

THEN  DELTD  = TS+DELTA  T -X  +Y  +7  + 1.  05MS*  +COUNTE  RS* 

“THE  TIMT  TAKEN  BY  WAITLIST  ITSELF  AND  THE  COUNTER  TICKING  DIKING  THIS  WAITLIST  TI  MF. 

R00  72 
<0074 
R3T76 

IN  SHORT,  THF.  ACTJAL  TIME  TO  RETURN  CONTROL  TO  A 2C ADR  IS  AUGMENTED  BY  THE  TIME  TC  SET  UP  THE  TASK-’S 
INTFRPUPT,  ALL  CCIJNTFDS  TICKING,  THE  T3RUPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING  TIME  AND  THF  POSSIBILITY 
OF  OTHFR  TASKS  INHIBITING  THE  INTERRUPT. 

0077 


5204 


BLOCK  02 


GAP:  ASSEMBLE  REVISION  ^6  OF  AGC  PROGRAM  ZERL  IN  A BY  ZOROASTER 


337? 


REF  16  I AST  228  E3,  16CC 


ERA  NK=  I STl 


00  7^ 
00  79  5 
0080 
0081 
ns? 

0083 
008  3 2 
3'-B3* 
0086 


REF  1 

REF  265  L AST  1 13  7 
PFF  3?  LAST  1071 

PEF  30  7 LAST  llf-6 
PEF  '*3  LAST  110  7 

REF  l«*  I AST  1 K 7 
RFF  ?66  LAST  11K 


5206  C 0006  C 

5205  5«  001  1 

5206  3 67^  1 

52C7  l h 002  1 

5210  3 0006  1 

5211  0 0C06  1 

5212  C 6 CC  7 1 

5213  56  001  0 


TWIOOLE 


COUNT*  *i/WAIT 
INHINT 
TS  L 

CA  P3SMAX 

AOS  0 

CA  3BANK 

EXTEND 

ROP  SUPERBNK 
XCH  L 


00849 

0085 
0C86 
3 j 87 

0086 
0086 
3390 

0091 

0092 
0091 


RFF  3C8 
REF  1 

REF  2 

PEF  1 
REF  1 
REF  66 

REF  1 


LAST 


LAST 


LA  ST 


5216  C CCC6  0 WAITLIST  INHINT 


1110  5 215  56  CC  2 O XCH 

5216  56  C61  1 TS 

5 217  C CCC6  1 EXTEND 

1110  5220  5 0061  0 INDEX 

5?2 1 3 0001  0 DC A 

5222  56  C6-1  0 - 1 TS 

5223  3 5231  L DLY  2 CAF 

1 110  5226  56  CO 6 1 XCH 

5225  1 3236  0 TCF 


0 

WA  ITEX  IT 

W A I TF  XI  T 

: 

W A I TAOR 
WA  I TBB 
BBANK 

WA  I T2 


* 0096 


RETURN  TO  CALLFP  AFTER  TASK  INSERTION: 


3395  REF  3 LAST  1110 
OC  96  REF  7^  LAST  1LC7 
0097 


5226  52  062  1 LVWTLI  ST  DXCH  WA1TEXIT 

5227  6 6752  0 AD  TWO 

5230  52  006  0 OTCB 


0^99 

0100 


PEF  15  I AST  1110  F3,  1600 
RFF  2 LAST  1110  5231 


ERANK=  L STl 

02063  0 WAITBB  BBCON  W A IT 2 


RETURN  TO  CALLER  +2  AF  IF  R WAITING  OT  SPECIFIED  AT  CALLER  +1  . 
REF  309  LAST  1110 
PFF  3K'  I AST  1110 


6 23  2 50  CC2  0 FIXDELAY  INDEX 

5233  3 0000  1 CAF 

5236  ? 6 CC2  0 I NCR 


R 0 1 0 5 


RETURN  TO  CALLER  ♦!  AFTER  WAITING  THE  OT  AS  ARRIVING  IN  A. 


r 1(  7 
010H 
3109 

■ 1 1 
"lit 
3112 
113 

o 1 1 6 


PEF 

REF 

RFF 


LAST  1110 
I AST  1110 
LAST  1110 


REF  20  LAST  1110 
PFF  267  LAST  1110 
REF  1 

RFF  6 LAST  1110 

REF  1 


6 ?35  66  CC2  0 

5236  56  C 6 3 0 

5237  3 0006  1 

5260  C 0006  1 

5261  06  0C7  1 

5262  56  001  l 

526  3 I-  5 266  1 
5266  54  061  1 

5265  1 5223  0 


Q 

WA  I TADR 

BBANK 

SUPERBNK 

L 

DFLAYFX 
WA  IT6XIT 

DLY2 
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TASK  LISTS  IN  SHITCHEC  E BANS. 

SAVE  DELAY  TIME  IN  L 

CREATING  OVERFLOW  AND  0-1  IN  0 


SAVE  DELTA  T IN  0 AND  RETURN  IN 
WA I TEXI T. 

IF  TWIDDLING,  THF  TS  SKI  OS  TO  HERE 
PICK  IIP  2C.A07  OF  TASK. 

BBCCN  WILL  REMAIN  IN  l 

ENTRY  FROM  FIXDELAY  AND  VARCELAY. 


BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WA  ITL  I ST  CONTROL  AND  TERMINATE  THE  TASK 
IN  WHICH  THEY  WERE  CALLED. 

DT  TO  0.  TASS  A ORES  TO  WAITADR. 

BBANK  IS  SAVED  DURING  DELAY. 

ADD  SBANK  TO  BBCON. 


GO  TO  TASKOVER  AF  TF  P TASK  ENTRY. 


9:  12  OCT.  21*  1970 


SKIPPER 


121  PAGE  11 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZCRCASTER 

L WAITLIST  USER'S  PAGE  NC.  A E3  S3 

0115  PFF  6A  LAST  958  52A6  1 5270  0 OELAYEX  TCF  TASKOVER  -7  RETURNS  TO  TASKOVER 


GAP:  ASSfHBl  E REVISION  Kt>  OF  AGC  PPCGPAR  ZE  PL  I N A PV  ZOROASTER 


9:  12  OCT  . 21,  1970 


SK  IPPEP 


.121  PAGE  1112 


L WAITLIST 


USFR' S PAGE  NT.  5 


E3  S3 


nilA  ENDTASK  MUST  BE  ENTEREC  IN  FIXED-FIXED  ST  IT  IS  OIST  INGJ  IS  HA8L  E RY  ITS  ADRES  ALONE. 


PEE  1 6 LAST  1110  E3,  HOG 

PFE  1 5247 

PEE  1 5250 


ERANK=  LSTl 

72526  r FNCTASK  -2CADP  SVC  T 3 
7371 A 1 


r 12  - 

121 
) 122 

12* 


PEE  21  LAST  919 
REF  1 5 LAST  1111 
REF  66  LAST  1112 


525  1 1C  C 76  1 SVC  T 3 

5252  1 527?  1 

5253  1 527?  1 

5 254  1 5255  1 


TCF 

TCE 

TCF 


FLAGWPD2  DRIFT  FLAG 

T ASKOV  EP 

TASKCVER 


' 1 ?3  1 PFF 
,1212  K F F 
r 1233 
123*.  REF 
,1235  PFF 


LAST  229 

LAST  1112 
l AST  1112 


5’55  1 1 ' 30 1 0 

5256  1 c267  0 

5257  1 5262  0 

5 2 1 C 1 5267  C 
5261  1 5267  0 


CCS  IMl'CADP 

TCF  S VC  T 3 X 

TCF  +3 

TCF  SVCT3X 

TCF  SVCT3X 


DON'T  DO  NB03NLY  IF  SOMEONE  El  SE  IS  IN 
I MUST  ALL. 


!?4 
3125 
0126 
' 127 
. 127 
C 128 


PFE 
PFF 
PEF 
i El 
REF 
PEF 


LAST  P72 
LAST  850 

LAST  1112 


5262 

5263 
E3  ,1460 


5264 

5265 

5266 


3 7735  1 +3  CAF  PR  1035 

0 5C7  2 1 TC  NCI  VAC 

EBANK=  NBDX 

C3563  l 2CADR  NEOCMY 

14063  1 

1 5272  1 TCF  T ASKOV  EP 


COMPENSATE  FOP  NBD  COEFFICIENTS  ONLY. 
ENABLE  EVERY  Rl.93  SECONDS 


H2B1 
■1282 
' 1 28  3 


REF 


15  LAST  767 
2 LAST  1112 


5267  C 5232  1 

5270  CD  7 64  1 

5271  0 5251  1 


SVC  T3 


DEC 

TC 


FIXDELAY 

500 

SVCT3 


CEL  AY  MAX 


OF  2 T IMES  FCR  IMUZFKO. 


RIF 


CHECK  DR  I FT  FLAG  AGA  IN. 
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L WAITLIST 


USER'S  PAGE  NC.  6 E3  S3 


PC  129 


BEGIN  TASK  INSERTION. 


313.' 

0131  REF  1 

013?  REF  1 

01322  REF  312  LAST  1110 

0132  A 

3 1 3?  6 REF  l 


0 1,  323a 

Cl  ,3  23A  5 A 062  1 WAIT2 

0 1,  3 235  3 000  2 0 

01  ,3  2 30  0 0006  1 

01, 3237  6 3525  0 


BANK  01 
COUNT*  *$/WAIT 
TS  WAIT  BANK 

CA  0 

EXTEND 

BZMF  WAIT  PGCH 


BHANK  UF  CALLING  PROGRAM. 


0133 
I 3 A 

1 36 
AO  1 3? 
A 0.1 30 


RFF 
Pl-F 
I 1 F 


2 

39 

355 


i A 1 1 , 

I A ST  KAA  01  , 3 2 A 1 
LAST  1106  01,  32a2 


A 00  26  1 CS  TIME  3 

6 47AA  l AO  B II  8 BIT  8 = OCT  200 

10  000  0 CCS  A TEST  2D0  - C C T I ME3 ) . IF  POSITIVE, 

IT  MEANS  THAT  T IM  1 3 OVERFLOW  HAS  OCCURRED  PRIOR  TO  CS  TI  ME3  AND  THAT 
CITIME31  = T - Tl  , INSTEAD  OF  1 .C  - (T  l - T ) . THE  FOLLOWING  FOUR 
ORDER  S SET  C(  A J = TO  - Tl  * 1 1 N E I THE  R C AS  E. 


PFP  2 
REF  356 


LAST 
I AST 


01 , 32 A3  6 6121  0 

1 . 


AD  0CTA00C1  OVERFLOW  HAS  OCCURRED.  SETC(A)  = 

CS  A T-Tl+1. 0-201 


NORMAL  C AS  F (CIA)  NNZ)  YIELDS  SAME  C(A): 


RFF  357  LAST  1113  01.32A7  1C  000  0 


REF  31a  LAST  1H3 


-(  1.0—  ( T 1-T ) ) + 2CC  I - 1 
AD  OCTA0201 

AD  0 RESULT  = TD  - T 1 + 1 . 


CCS  A TEST  TD  - Tl  + 1 

AO  LS Tl  IF  TD  - Tl  POS , GO  TO  WTLST5  WITH 

TCF  W TL  ST  5 C(A)  = ( TD  - Tl  ) + C(LST1)  = T0-T2+1 


NOOP 

C S 0 


3 1 1 1 A9 

r 3 1 r-  :• 

R 0 1 5 1 
1 15? 


NOTE  THAT  THIS  PROGRAM  SFC.TICN  IS  NEVER  ENTFREC  WHEN  T-T  1 G/  E -1, 
SINFF  TU-Tl  + 1 = ( TO-  T 1 * IT-T1+1I,  A NO  DELTA  T = TO-T  G/E  +1  . ( G/ F 

SYMBOL  MEANS  GREATER  THAN  OR  EQUAL  TO  1 . THUS  THERE  NEED  8F  NO  C ON- 
CER N OVFR  A P'CVIOLS  OR  IMMINENT  CVERFLGW  CF  T I MF3  HERE. 


3 153 
r ' 1 5 A 

0 155 


156 

"167 


3 1 5fl 
Cl  59 


RFF  ? LAST  1 113  01  ,3255 

REF  3 LAST  1 11  3 01,3256 

P.FF  6 l AST  103a  O’,  3257 

REF  315  LAST  1113  1,3269 

01,  326  1 
01,3262 


6 A 7 3ft 
6 A736 
56  C26 
6 A 7 3 5 
6 0002 
(.  0CC6 
22  007 


0 

1 

0 

1 

0 


P0S1  /2 

POSl/2 

T I NE3 
NEC,  MA  X 


WHEN  TD  IS  NEXT,  FORM  QUANTITY 
1.0  - DELTA  T = 1.0  - (TO  - T) 


1.'  - OELTAT  T NOW  COMPLETE. 

ZERO  INOEX  0. 

( ZQ) 


GAP: 


ASSEMBLE  REVISION  56  uF  AGO  PROGRAM  ZFkLI'JA  BY  ZO^'iASIE* 


l WAITLIST 


;>  162 
5163 
164 
. 166 
( 1 66 
■ 1 67 


PFF 

PFF 

REF 

REF 

F 

RFF 

RfF 

REF 


IP  l AST  1113 
T«3  I AST  1114 
2C  l AST  1114 

21  LAST  1114 

22  LAST  1114 
2°  LAST  1114 

24  LAST  Hl4 

25  LAST  1114 


Ob,  3263  57'4C0  l 

1 1 , 3264  57 '46  1 ' 

01  ,3265  57*402  C 

: 1,  3 266  c 7 • 4C  3 1 
31  ,3267  57  ‘404  C 

?1  , 3270  c 7*  4C5  1 
01,  327’  57*406  1 

01  ,3272  57*407  0 


WTLST4 


XCH 

XCH 

XCH 

XCH 

XCH 

XCH 

XCH 

XCH 


LSTl 
L ST  1 *1 
LSTl  *2 
LSTl  +3 
LSTl  +4 
LSTl  +5 
LSTl  ♦ A 
LSTl  *7 


0 17« 


PFF  3 1 AST  1110 

RFF  316  I AST  1 1 1 3 


CL, 3273  ? OC63  1 CA  WAIT  ADR 

01,3274  50  002  0 INDEX  0 

31  ,3275  1 3276  0 T CF  +1 


17  1 
• 172 
< 173 


01  75 
3176 
" 1 77 
T'  178 
3179 
0180 
Af  1 81 
0182 
0183 
3184 


PFF  24  LAST  737 
RFF  25  LAST  1114 
PFF  26  I A ST  1114 
RFF  27  1 AST  1114 

PFF  28  LAST  1114 
REF  20  I AST  1 1 14 
PFF  30  LAST  1114 
REF  31  LAST  1114 
PFF  32  1 AST  1114 

REF  3 LAST  22  9 


RFF  1 
REF  1 


0 1,  3276  c 2 *411  C 
. 1 ,3277  53*413  1 

C 1 , 33C«  5 3*415  1 

0 1 , 3 30  1 5 I-  • <■  1 7 0 

01  ,3302  53*  421  0 

01,  3303  53*423  1 

01,3304  53*425  1 

01  ,3305  53*427  0 

H,  3 306  5 3*4  31  1 

01  ,3307  6 5247  0 

0 1,  13  10  0 00C6  1 

01  ,3311  1 5226  0 

01,  3312  1 3366  0 


0 XCH  LST2 

DXCH  1 ST2  +2 

DXCH  IST2  +4 

DXCH  L ST?  +6 

DXCH  1ST?  +8C 

OXCH  LST2  ♦ 1 CD 

DXCH  LST2  + 1 2D 

DXCH  LST2  +14D 

DXCH  1 ST2  + 1 6D 

AD  ENDTASK 


E XTENO 

BZF  LVWTL  1ST 

TCP  W T ABORT 


9:12  FCT.  21,1970 


SK  I PPfcR 


,121  PAGE  1114 


USER  • S PAGE  Nfl.  7 


E3  S3 


(MINOR  PART  OF  TASK  CAOR  HAS  BEEN  INI.) 


AT  END,  CHFCK  T FAT  C(LST2-»1C)  IS  STD 


END  ITEM,  AS  CHFCK  FOR  EXCEEDING 
T HE  L FNGTH  OF  THF  L 1ST. 

DUPPY  TASK  ADR  FS  SHOULD  BF  IN  FIXED- 
FIXED  SO  ITS  ADRES  ALONE  DISTINGUISHES 
IT. 


•AP:  ASSEMBLE  REVISION  Sb  UF  AGC  PROGRAM  7CRUNA  BY  ZOROASTER 


I.  WAITLIST 


' 1 fl5 
L'l  H6 

0187 
D 1 80 
C 1 89 
o ion 


LA  ST 
LAST 

LAST 


0 1,  13  1a 

01  ,i315 
Cl,  3316 
01,3317 
Cl  ,3  320 


10  000  0 
6 1 AO  1 0 
1 3321  0 
t A 7 53  1 
0 3377  1 
00001  0 


WTLST5 


CCS 

AO 

TCI 

AO 

TC 

OCT 


3191 
< 192 
0 193 
'1  9 A 
0199 
D19A 


PFF  1 0 A 
RFF  2 


LAST  1 1 15  01,  332  1 

LAST  Ills  01  ,3322 

Cl  , ->723 
l AST  1115  0 1,  3324 

I AST  1 11  5 01  ,3325 

01,  3326 


10  000  0 
6 LAC  2 0 
1 3327  C 
6 A 7 53  1 
0 3377  1 
CCCC2  0 


01  97 
' 1 op 
3199 
0200 
D 20  1 

02  02 


RFF  1C6 
RFF  3 


01,3327 

• 

: , 1 1 
i ,3332 
01  ,3333 
0 1,  33  3a 


10  GUO  0 
6 l A03  1 
1 3335  0 
6 4753  l 
0 3377  1 
OOCC  3 1 


CCS 
AO 
TCF 
AO 
TC 
OC  T 


02r  3 
3 2 1 A 
02(15 

0 206 
3237 
0208 


REF  361  LAST  1115 
RFF  29  [AST  1115 

RFF  106  LAST  1115 
RFF  4 l AST  1 115 


01,3335  10  000  0 

Cl,  3336  6 1404  0 

01,3337  1 3343  1 

01 ,3340  6 4753  1 

Cl,  334  1 0 3377  1 

01  ,3342  00004  0 


CCS 

AO 

TCF 

AO 

TC 

OCT 


0 209 
0210 


0211 

3212 

0213 

•'214 


REF  362 
REF  3f 

REF  107 
REF  5 


LA  ST 
I AST 

LAST 

LAST 


1115  01,3343  1 f COO  0 +4 

I 1 15  0 1,  3344  6 1 4C  5 1 

01,3345  1 3351  1 

1115  Cl, 3346  6 4753  1 

II  15  0 1,  -3347  0 3377  1 

Cl, 3350  00005  1 


CCS 

AD 

TCF 

AO 

TC 

OCT 


3215  PFF  363  L AST  1115 

0216  REF  31  I AST  1115 

0217 

0218  REF  1 09  LAST  1115 

0219  RFF  6 LAST  1115 

3223 


Cl,  336  1 10  COO  0 * 4 

01  ,3352  6 1406  1 

01.3353  1 3357  1 

01. 3354  6 4753  1 
1 ,3356  C 3377  1 

01,  3356  CCCC6  1 


CCS 

AO 

TCF 

AO 

TC 

OCT 
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A 

LSTl  tl 
+4 

ONE 

W TL ST  2 

1 

TEST  TO  - T2  + 1 

A 

LSTl  +2 
+4 

ONF 

»1TLST  2 

2 

TEST  TO  - T3  + 1 

LSTl  +3 
+ 4 

ONE 

WTLST2 

3 

TEST  TD  - T4  + 1 

LSTl  +A 

ONE 

WTLST2 

4 

TEST  TO  - T6  + 1 

A 

l ST1  *5 

ONE 

WTLST2 

5 

TEST  TO  - T6  ♦ I 

A 

LSTl  +6 
+4 

ONE 

T LS T 2 

TEST  TO  - T7  + 1 

5 


GAP:  ASSEMBLE  REVISION  56  OF  AGE.  PROGRAM  ZE^LI  NA  BY  ZOROASTtR 


L WAITLIST 


721 
>22? 
'22  3 


r 2?4 
)2?5 
i 226 


PFF  364 
RCF  32 

RFF  1C° 
REF  7 


LAST  1115 
l AST  1115 

LAST  1115 
LAST  1115 


Cl  ,3357 
Cl. 3360 
0 1,3361 
Cl  ,’362 
Cl,  3363 
0 1 ,3  364 


1C  000  0 
6 1407  0 
1 3365  0 
6 4753  1 
C 3377  1 
000C7  0 


CCS 

AO 

TCF 

AO 

TC 

OCT 


mi 

'229 
1231 
' 2 31 

0 232 


LAST  lllfe 

l AST  1116 
LAST  1116 


01,3365  1C  CCO  0 
0 1 , ’366  C 3374  1 
01  ,3367  1 3 370  1 

01,  3370  fc  4753  1 
01  ,3371  0 3377  1 

01  ,3372  00010  0 


+6  CCS  A 

WTAB.33T  TC  FILLED 

NOOP 

AO  ONE 

TC  WTLST2 

OCT  1 0 


0233 


01,3373  4020  1 C 0CT4Q2cl0CT  4G2g1 


9:12  OCT.  21,  1970  SKIPPER 
USER'  S PAGE  NG.  9 


.121  PAGE  1116 
E3  S3 


CAN  *T  GE T MET F 


PAGE  1117 


AP:  ASSEMBLE  REVISION  5 £>  OP  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
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WAI  TL  I ST 


USER'S  PAGE  NO . 1C  E 3 S3 


02332  REF  5 LAST  11l0 
02334  PEF  5 LAST  109fl 
32336 


0 1,  3 374  c 2 C E 2 1 F ILL  ED 
01,337S  0 5717  0 

Cl,  3376  31203  1 


n XCH  WA  I TE  XI  T 

TC  BA  I LOUT  1 

OCT  312Q3 


NO  ROOM  IN  THF  INN 


Apr  ASSEMBLE  REVISION  5o  OF  AGC  PRCGRAM  2FRLINA  HV  £OROAST6« 


WA  ITI  1ST 

THE  ENTRY  TO  WTLST2  J'JST  PPECECING  OCT  N 


IS  FOR  T LE  TO  LE  T 
N 


M+I 


N*1 

1 I,  AND 


•■242 
0 24? 
: 244 
0245 

0 244 
0247 
C 24  A 
J249 

0250 
'•251 
? 25? 


(LE  MEANS  LESS  THAN  OR  F'JIJAL  TO).  AT  F N TP  Y,  C(A)  = -(TO  - T 

THE  L ST  1 ENTRY  -(T  - T +1)  IS  TC  BE  REPLACED  BY  -(TO 

N*1  N N 

THF  ENTPY  -(T  - TO  «•  1)  IS  TC  BE  INSEPTEC  IMM  ED  I AT  El  Y FOLLOWING. 

R A ] TTFMP 


N+  1 


317  | AST  1114 


71 ,3377  6 4 064  1 WTLST  2 

1,  OC  50  002  0 

Cl,  340  2 0000  1 


REF  318  I AST  111  8 01  ,3402  54  002  1 


TS 


a EE  111  (AST  1116 
REF  2 LAST  1118 
RFF  310  I A ST  1118 
PEF  33  LAST  1116 

PEE  3 LAST  1118 
PEF  ??r  I A ST  11  1 8 
PEF  1 


01  » 344  5 50  002  0 

01,  34C6  27'  377  1 

01,3407  4 0064  1 

01  ,3410  50  002  P 

0 1,  34  11  1 3 2(3  1 


LST1  -1 

W A I TTFMP 
0 

WTL  ST4 


R0253  C(TIME3)  = 1.0  - ( T1  - T) 

R0254  C(LST  l ) = - (T2  - Tl)  ♦ 

R < 2 55  C(LSTWI)  = _ (T3  - T 2 ) 4 

l:t256  EILSTl+2)  =-  ( T4  - T3)  4 
R3257  C (LST  1 +3 ) = - (T5  - T4)  4 

R 02  58  CILST1  + 4)  = - ( TS  - T5  ) * 

RO  25?  C ( L ST2  ) = 2CA3R  TASK1 

R02fr  r (I  ST2  42  ) = 2 f AOR  TASK2 

1 0261  CILST2+4  ) = 2CA0R  TASK3 

R 3 262  C (L ST  2+6  ) = 2CA3R  TAS<4 

R026?  C ( LST2+8  ) = 2 C ADR  TASK5 
< 264  :(LST2+10)  = 2CADR  TA  SK6 


12  OCT.  21,1970  SKIPPER  .121 
USER'S  PAGE  NO.  11 


PAGE  1118 
83  S3 


CIA)  = -( TD  - T 61) 

I NOE  X VALUE  I NT  0 0. 

- T ) ♦ 1. 

N 


CIA) 


-(  TO 


,AP:  ASSEMBLE  REVISION  56  OF  A GC  PROGRAM  7.ERLINA  BY  ZOROASTER 


L WAITLIST 


R 0265 


ENTERS  HERE  CN  T3  RUFT  TC  DISPATCH  WAITLISTEO  TASK. 


0^67  PFF  21  LAST  11l0 
0268  RFF  6 I A ST  582 
3269 

0270  RFF  6 LAST  982 


0 l,  36  12 
-Ul3 
Cl  ,341'* 
Cl,  3 A 1 5 
0 1 ,3416 


C CG06  1 
04  CC7  1 
54  016  1 
C CCC6  1 
22  012  1 


T3RUPT 


EXTEND 

ROR  SHPFRBNK 

TS  BANKRUPT 

E XTEND 

QXCH  QRUPT 


02  7? 
0273 
'274 

02  75 
0276 
3277 

0278 

0279 
02  80 
0281 
D2R2 

0283 

0284 


RFF  1C 
RFF  34 
RFF  35 
RFF  36 
RFF  37 
PFF  38 
REF  39 
RFF  40 
REF  41 
RFF  33 
REF  4 
REF  4 
REF  23o 
RFF  5 


I A ST  1 f H 6 C 1 ,3'.  17 

LAST  1 1 18  0 1,  34  20 

I A ST  1119  01  ,3421 

1 AST  1 119  01,  3422 

I AST  1119  01 ,3423 

I A ST  11  19  01  ,3424 

LAST  1 11  5 01,34  25 

I AST  1 119  01  ,3426 

LAST  1115  01,3427 

LAST  1110  0 1,  3430 

LAST  1113  01,3431 

LAST  575  01,  3432 

LAST  1JC 7 01,3433 

LAST  111  9 01  ,3434 


2 6734  0 T3RIJPT2  CAF 


57 '40  7 0 XCH 

5 7'  406  1 XCH 

57' 4C5  1 XCH 

57 '404  0 XCH 

57*403  1 XCH 

5 7 ' 40  2 0 XCH 

57 '401  0 XCH 

57'4CO  1 XCH 

fc  6733  1 AO 

26  026  1 ADS 

54  332  1 TS 

4 4755  0 CS 

54  33?  1 TS 


L ST  1 + 7 
IST1  +6 
ISTl  +5 
L ST  1 *4 
LST1  +3 
LSTl  +2 
L ST  1 *1 
LSTl 
POSMA  X 
T I MF  3 
RUPTAGN 
ZERO 
RU  PT  AGN 


3286 
0286 
0287 
02  88 

0289 

0290 
02o1 


.>29  2 

0293 

0294 

0 205 


PFF  4 
R 6F  33 
PFF  34 
RFF  35 
REF  36 
RFF  27 
REF  38 
RFF  ?o 
RFF  40 
RFF  41 


LAST  1114 
LAST  1H4 
LAST  1119 
LAST  111° 
LAST  1119 
LAST  1119 
LAST  1119 
l AST  1119 
LAST  1119 
LAST  1115 


01  ,3436 
01,3437 

0 1,  3440 

0 1 ,3441 
01,  3442 

01.3443 

01 .3444 
01,  3445 

1 ,3446 
0 1 , 3447 


C OOC  6 1 

4 5250  1 

5 2'  431  1 
5:- '4  27  C 
53' 425  1 
53*423  1 
5 3 ' 4 ? 1 0 
53' 41 7 0 
53*415  1 
5 3 1 4 1 3 1 
5 3 ' 4 1 1 0 


E XTEND 

DCS  ENDTASK 
OXCH  LST2  +16  D 

DXCH  LST2  + 14D 

OXCH  LST2  +12D 

DXCH  LST2  + 10  D 

DXCH  L ST 2 + 80 

DXCH  LS  T 2 +4 

DXCH  LST2  >4 

OXCH  LST2  +2 

OXCH  LST2 


0296 

02  97 

3 2 93 
C'2  99 
0 300 


PFF  248 

REF  22 
REF  249 


LAST  1110 

LAST  1119 
LAST  1J19 


) 1,  T450 
n ,3451 
: 1, 3452 
01,3453 
91  ,34  54 


56  0C1  0 
C 0006  1 
Cl  CC7  1 
56  001  0 
5?  006  0 


XCH  L 

EXT  END 

WRITE  SUPERRNK 

XCH  L 

DTCB 
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READ  CURRENT  SUPEPnANK  VA1UF  AND 
SAVE  WITH  E AND  F RANK  VA  t Ut  S. 


DISPATCH  W A IT  L 1ST  TASK. 


1.  MOVE  UP  LSTl  CCNTFNTS,  ENTERING 
A VALUE  DF  1/2  +1  AT  THE  BOTTOM 
FOR  T6-T5,  CORRESPONDING  TO  THE 
INTERVAL  81.91  SEC  FOR  ENDTASK. 

2.  SET  T3  = 1.0  - T?  -T  USING  LIST  1 
S3  T 3 WONT  TICK  DURING  UPDATE. 


SETS  RUPTAGN  TO  + 1 ON  OVERFLOW. 
DI  SPATCH  TASK. 


SFT  SUPERBANS  FROM  B0CON  OF  2CADP 
KF  STORE  TO  L F OP  DXCH  7. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L WAIT!  [ST 

P0301  RETURN,  AFTER  FXECUTICN  CF  T3  OVERFLOW  TASK: 


« t /WAI  T 
RU  PTAGN 
W A I TRB 

BBANK 
T3  RUPT? 


81.1 

0304 

3335 

0306 
0 307 


REF 

RFF 

PEF 

REF 


LAST  1110  TO  111 
LAST  1H9  52  72 

l AST  1110  5273 

i 2 79 
52  75 


46  LAST  1110 


BLOCK 

54  54*  COLNT* 

10  332  1 TASKOVER  CCS 
? c231  1 CAF 

54  C06  0 TS 

1 3417  l TCF 


03CB  P F F 7 I AST  1 Ho 

0309 

3317  R CF  23  I A ST  1 1 1 <3 


5276  3 0C16  0 

5277  0 OOC 6 1 
53C0  Cl  0C7  1 


CA  BANKRUPT 

FX  T EN  0 

WRITE  SUPEPRNK 


0311 

0312 
7 313 
C 314 

315 

03155 

0316 


RFF 

RFF 

PFF 

PEF 


LAST  1119 
I AST  1120 
LAST  1120 
I AST  160 


5301  0 0006  1 

5302  22  012  1 

5303  3 0C16  0 

5304  56  006  1 

c305  e 2 011  O 
5 306  C 000  3 1 
5307  5 0017  1 


RESUME  EXTEND 

OX  CH  QRUPT 

NDQRSM  CA  BANKRUPT 

XCH  BBANK 
NCCBRSR  DX  CH  ARIJPT 

TEL INT 
RESUME 


9:12  OCT.  21,1570  SKIPPER  .121  PAGE  1120 
USER'S  PAGE  NC.  13  E3  S3 


IF  +1  RETURN  TO  T3RUPT,  IF  -0  RESUME. 

DISPATCH  NEXT  TASK  IF  IT  WAS  DUE. 


RESTORE  SUPERRANK  BEFORE  P ESJME  IS  OOVE 


GAP:  ASS EMQL E REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:  12  OCT  . 21.  1970  SK  IPPER 


121  PAGE  1121 


L WAITLIST  USER'S  PAGE  NO.  14  E3  S3 

} 317  LONGCALL 


R3310  PROGRAM  DESCRIPTION  DATE-  17  MARCH  1967 

R0H9  PROGRAM  WRITTEN  HY  W.H.  VANOEVER  LOG  SECTION  WAITLIST 

U>3?'  MOD  BY-  R.  MF  L ANSON  T'l  ADD  DCC  l ME NTA TI CN  ASSEMBLY  SUNDISK  REV.  LOO 


K3  321  FUNCTIONAL  DESCRIPTION- 

«'  T?2  LCNGCALL  IS  CALI  EC  WITH  THE  CELTA  TIME  ARRIVING  IN  A,L  SCALED  AS  TI  ME  2 » TI  ME  1 WITH  THE  2CADR  CF  THE  TASK 

3^4  IMMEDIATELY  HOLLOWING  HE  TC  LCNGCALL.  FOR  EXAMPLE,  IT  MIGHT  BE  DONE  AS  FOLLOWS  WHERE  TIMELOC  IS  THE  NAME  OF 
R1 1 2 6 A CP  REGISTER  CONTAINING  A DFLTA  TIME  AND  WHERE  TASKTODO  IS  THE  NA Mf  OF  THF  LOCATION  AT  WHICH  LONGCALL  IS  TO 
R032R  START 


R3329 
A 03  3 0 
A 0331 
A^  332 
A H33 


CALLING  SFOIJFNCE- 


EXTEND 

OCA  T IMELOC 

TC  LONGCALL 

2CAUR  TASKTODO 


30334  NORMAL  EXIT  MODE- 
RN 335  1 ).  TC  WAITL  1ST 

2).  OTC  8 (TC  L+3  CF  CALLING  PCUT  INE  1ST  PASS  THRU  LDN.GCYCL) 
’).  0 TC  B (TO  TASKOVER  ON  SUBSECUFNT  PASSES  THRU  LONGCYCLJ 

R 0 3 3 fl  ALAPM  OR  ABORT  FX  IT  MCDF- 

3 0339  NONE 


9934} 
ft  U’ 
3 ' 342 
R3343 
R 0344 


OUTPUT- 

LCNGTIMF  ANP  LGNCTlMfH  = 
LONGEXIT  AND  ICNGFXIT+I  = 
LONC.CACR  AND  LONGCAOP+1  = 
A = SINGLE  PRECISION  T IMF 


C El  TA  T IME 
RETURN  ?C  AOR 
TASK  2CADR 
FCR  WAITLIST 


R 145  ERASABLE  INITIALIZATION- 

R -1 346  A = MOST  SIGNIFICANT  PART  OF  DELTA  TIME 

3'34f  L = LEAST  SIGNIFICANT  PART  CF  CELTA  T IM  F 

R P»  3 9 0 = ADDRESS  OF  2C  ADR  TASK  VALUE 


R0349  DEBP  I S- 
A ,Q  , L 

RD351  LCNGCACR  AND  L ON GC ADR  + l 

3 352  LCNGFXI  T AND  ICNCFXlf+l 

353  LONGTIME  AND  LONG  TI  Mf  + 1 


R03 54  ***  TEE  FOLLOWING  IS  TO  BE  IN  FIXEC-FIXED  AND  UNSWITCHED  ERRASIBLF  *** 


PEF  42  LAST  1119 
REF  1 


531  9 
. I i 
5313 


53' 153  3 


LONGCALL 


8LCCK  3? 

E B A N K = LS  T 1 
OXCH  LONGTIME 


OBTAIN  THE  OELTA  T I ME 


03SB 


5311 


C 0006  1 


EXT  END 


OBTAIN  THE  2C  AOP 


A SSE  MB  LE  HE  VI  SI  ON  56  GE  AGC  PRfGRAM  ZERL  INA  BY  ZOROASTER 


L WAITLIST 


0359  PFF  321  LAST  1113 
0 360 

Q3  £>1  PEF  1 


5312  5 0002  0 

5313  1 0001  0 

53  H 5 3 ' 14  7 C 


N OX  0 

OCA  0 
OXCH  LUNGCAOR 


036? 

■>363  PFF  1 

0364 


5315  C 0006  1 

5316  ? 5321  1 

5317  52  006  0 


EXT  END 

OCA  LGCL2C0R 
0TC3 


365  REF  43 

5364  PFF  1 

0366  PFF  1 


ST  1121 


5 3 20 
5321 


CRANK=  LST1 

0 3455  0 LGCL2C0P  2CA0*  L NGCA  LL2 
02063  0 


R ' 36 7 THE  FOLIOWIN"  MAYBE  IN  A SMTCHFD  PANK,  INCLUDING  ITS  EPASAHLl 


f 3 7 1 

C 37? 
3333 


PFF 

RFF 

HFF 

RFF 

PEF 


2 LAST  111? 

1 

75  LAST  1110 

322  l A ST  1122 
2 I AST  1122 


TC 


0 1,  3455 

1 !?n: 
01. 3355 
"1 .3456 
01  ,3457 

n 1,  34^0 


145  145* 

23'  435  1 
3 4752  0 

26  002  1 
55*424  1 


BANK  01 

COUNT  * f 3/WAIT 
LNGCALL2  LXCH  LONGEXI  T -*-1 

C A TWO 

AOS  Q 

TS  L0N5E  XI  T 


.3731 
' 1732 
.3  73  3 
1 3714 
3 3735 
■3736 
' 3737 
"*  3 73  p 


PFF  2 
PEF  366 
REF  1 

REF  1 
REF  3 

PEF  2 


LAST  11?1 
LAST  1116 

LAST  1122 
LAST  1122 


'1  ,3461 
01,  3462 
: 1,  346  3 
01  ,3464 
01,  3465 
11  ,3466 
01 ,3467 
4 1,  3470 


3 1152  0 
1C  CCO  0 
1 3471  1 
1 3466  1 
1 3523  1 
3 1153  1 
0 0006  1 
6 3 f 23  0 


CA  LONGTIME 

CCS  A 

TCF  LONGGYC  L 

TCF  +2 

TCF  LONGPOCH 

+ 2 CA  LONGTIME  +• 

EX  TEND 

3ZMF  l ONG POOH 


RD  374 

0375 

0376  PFF 

0377  PFF 


***  HAITI  1ST  TASK  LONGC  Yf  L *** 

1 . 

H ,3472  4 3503  0 

LAST  1122  0 1,  3473  21*  153  0 


LONGCY  CL 


EXTEND 

DCS  DPBIT14 

DAS  LONGTIMF 


4 03  BO 
40381 
A3  3H  2 
40383 
A t 3B4 

0385 

0386 
5387 
0388 
0 3Bq 
3393 


R FF 
RFF 


5 LAST  1 1 ? 2 
I 


6 LAST  1122 
2 LAST  1122 


01  ,34  74 
01,  3475 


LONGT IMF  + 
MUCH T I ME 


0 T,  3476  13  477  1 

01  ,3477  1 3500  0 

01,  3 5C0  1 1*  152  1 

01,3501  l 3513  1 

01  ,3502  00000  1 
0 1,  3 5C  3 20000  0 


N30P 

TCF  +1 

CCS  LONGTIMF 

TCF  MUCHTIME 

DPBIT14  OCT  00000 

OCT  20000 


4 0391 


12  OCT.  21,  1970  SKIPPER 
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NOW  GO  TO  THE  APPROPRIATE  SWITCHED  BANK 
FOR  THE  PEST  OF  IDNGCALI 


SAVE  THE  CORRECT  BB  FOR  RETURN 
OBTAIN  THE  RFTUPN  AODPFSS 


CHFC<  FD»  LEGITIMATE  DFLTA-TIMF 

H I -ORDER  OK  — > ALL  IS  OK. 

H 1— ORDER  ZERO  — > CHECK  LU-ORDER. 

HI-CRDER  NEG.  — > NEG.  DT 

CHECK  LO-OKDER  FOR  ZEKC  OR  NEGATIVE. 

BAD  DELTA-TIME.  ABORT 


CAM  WE  SUCCESFULLY  TAKE  ABOUT  1.25 
MINUTES  OFF  OF  LONGTIME 


THE  3EAS3MIRG  BEHIND  THIS  PART  IS 
INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 
WORDS  MAY  MOT  BE  SIGNED  CORRECTED  (OP 
BASIC  INSTRUCTIONS 

DO  NOT  SIGN  CORRECT  I AND  THAT  WE  SUBTKAC 
TED  31  T 1 4 (1  nVFP  HALF  THE  POS.  VALUE 
REPRESENT  I PL  E IN  SINGLE  WORD) 

C A N :T  GET  HERE  ********** 


LONGC ALL 


Ap : ASSEMBLE  REVISION'  56  OF  AGC  PROGRAM  Z ERL  IN  A RY  ZOROASTER 


WAI TLI ST 


539? 

03^3 

0 395 
03  66 
f397 
5 390 
0400 
040  1 


REF 

REF 

PEF 

REF 

REF 

REF 

REF 


69  LAST  1 09  0 
7 I AST  1 122 
26  LAST  969 
44  LAST  1122 
1 
1 

3 LAST  1 1 22 


0 1»  1504 

01  ,3505 
G 1 , 3 50  6 

E 3,  1/.00 
01 , 3 50  7 
C I,  35  10 
01,3511 
01,351? 


3 4736  1 
27 ' 153  0 
C 52C4  1 

03520  0 
3 3522  1 
53 '435  0 
52  006  0 


LA  STTIME  CA  BI  Tl4 

ADS  LONGTIME 
TC  TWIUCLE 
E3ANK=  LST1 
ADRES  G FTC  A DR 
LONGRTRNCA  TSKCVCDR 

DXCH  LONGEXIT 
DTC8 


34T? 
0404 
0 40  5 
0406 
0406 


RTF 

PCF 

RFF 

REF 


70  LAST  1121  01,1513  2 4736  1 

34  LAST  8S8  01  ,3514  0 5214  0 

45  I AST  11?3  E3.14CC 

2 LAST  1122  Ol,l5l5  0347  1 0 

01,3516  02063  0 


MUCH  TIME  CA  3 1 Tl  4 

TC  WA  ITL  I ST 
FBA  NK=  LST1 
2CAD1  LONGCYCL 


3459  RFF 


01,  3517  1 3510 


TCF  LONG  RTRN 


R * 400 

0410  REF 

0411  REF 

0412  REF 
5413  REF 

04 1 4 

0415  REF 
3416  REF 
0417 


6 

2 


WAITL 
LAST  1 1?  2 
I AST  110  7 
LAST  1112 
LAST  1123 


LAST  1117 
L AST  1070 


1ST  TASK  CETCACR  *** 
'll  ,3520  53'  147  0 

01,  3521  1 5 176  0 

01  ,3522  05272  0 

Cl,  35  2 3 5 3' 43  5 C 

0 1,  3524  1 3526  1 

01 ,1525  52  062  1 

01,  1526  C 5727  0 
01,3527  21204  1 


GETCAOR  DXCH  LONGCADR 

TCF  SUPI5XCHZ 

TSKOVCCR  GENADR  TASKOVER 

LONGPOCH  DXCH  LONGEXIT 

TCF  +2 

WAIT  POCH  OX  CH  W A IT  EX  IT 

+ 2 TC  POODCOl 

OCT  21204 


9:12  OCT.  21,1970  SKIPPFR  .121  PAGE  1123 


USER  'S  RAGE  NO.  16  E3  S3 

GFT  BACK  THF  CORRECT  DELTA  T FOR  WAITLIST 


S FT  IT  UP  SO  THAT  ONLY  THE  FIRST  EXIT  IS 
TO  THE  CALLER  OF  LCNGC  ALL 
THF  REST  ARE  TO  TASKOVER 

WE  HAVE  OVER  OUR  ABOUT  1.25  MINUTES 
SO  SET  UP  FOR  ANOTHER  CYCLE  THROUGH  HERE 


NOW  EX  IT  PROPERLY 


GET  THE  LONGCALL  THAT  WF  WISHED  TO  START 
AND  TRANSFER  CONTROL 


GAP  : ASSEMBLE  REVISIGN  56  OF  AGC  FRCGRAK  ZERLlNA  8Y  ZOROASTER 


L LATITUTE  I.  ON G ITUOE  SUBRDUTINFS 

ROOOl  SUBRCUTINF  TT  CONVERT  RAO  VFCTCP  AT  GIVEN  T IM F TO  L AT « LONG  ANO  ALT 

ROOD?  CALI  ING  SEQUENCE 

ROOrT  L-1  CALI 

? 00^4  L LAT-LCNG 

HD0C5  SUBROUTINES  USED 


ROC  ' 6 R— TC-RF,/Rf.T  AA,S  FTCAMMA,  SET  RE 
J ' • 1 l 1 I | I . 


PV):  P AXO, -AYO,  A7P,  TEPFEM  (SET  A 1 LAUNCH  T I MF  > 

R 0009  A L PH  A V = PGSITICN  VECTOR  MFTERS  8-29 

TOPI  MP  AC — TIHF  (CSECSO-28) 

tO  11  ERADFLAG  = 1i  TO  COMPUTE  EARTH  RA01US,  =0  FDR  FIXED  EARTH  RADILS 
12  l UNA  F LAG  =0  FOR  f APTh,1  FOR  RCCN 
R001B  OUTPUT 


ROOU 

LATITUDE  IN 

LAI 

(REVS.  B - 

■0  ) 

3 Of  15 

LONGITUDE  IN  LCNG 

(REVS. 

e-o) 

R33  16 

ALT  ITU  CE 

IN  AL  T METERS  B- 2S 

Of  1 7 

33  ,3761 

BANK 

30 

00  18 

PFF 

1 

1 3 ,2000 

S FTLOC 

L ATLONG 

) J 1 Q 

1 3,  2 3A7 

RANK 

002' 

REF 

1 

COUNT  * 

Sf/LT-LG 

3121 

REF 

7 

LAST 

963 

E A,  1 A 2 1 

E QANK  = 

ALPI1AV 

0022 

13,2  -3 A 7 

A0220  0 

LAT-LONG  STQ 

SE  TPD 

0'^  ?3 

PEF 

2 

LAST 

1*8 

13  ,2350 

C367A  1 

INCOKPEX 

V>2* 

13,  2 3C  1 

COCCI  0 

CD 

0025 

l J , 2 3 5 2 

2A007  0 

STOVL 

60 

0026 

REF 

8 

LAST 

1124 

13  ,2353 

02032  1 

ALPHAV 

0027 

1 3,  2 354 

flA06  1 

P USH 

AB  VA  L 

0028 

RfF 

2 

LAST 

116 

i • , 

16070  l 

STOOL 

AL  PHAM 

3329 

REF 

6 

1 AST 

1092 

13,  ? 356 

2A0C7  0 

7FRCVEC 

0030 

13,2357 

71*1*  6 

BOFF 

cos 

00  31 

RFF 

6 

LAST 

96  3 

13,2360 

017A3  n 

LJNAFL  AG 

333? 

PEF 

1 

1 3,  2 36  1 

26162  1 

C ALLRTPP 

OC  33 

13  ,2362 

7762A  1 

CALL  RT  RP  CALL 

OP  34 

R EF 

5 

LA  ST 

970 

13,2363 

51  6 A A 0 

R-TO-RP 

C03S 

13,  64 

77656  1 

UN  I T 

0036 

RFF 

9 

1 A ST 

112A 

13  ,2  365 

36032  0 

STCALL 

Al  PHAV 

3337 

REF 

1 

13,  2366 

265A6  1 

SETGAMMA 

0038 

1 3,  2 367 

7762A  1 

CALL 

0039 

REF 

1 

13,2370 

26556  0 

S ETPE 

3DA0 

1 3,  2 37  1 

f.  i c A 5 0 

D LOAD 

OSQ 

0041 

REF 

10 

1 AST 

1 1 2 A 

13  ,2372 

02032  1 

AL  PHAV 

00  A? 

12,2373 

63525  C 

PDDL 

DSQ 

004  3 

REF 

1 1 

LAST 

1 12a 

1 1,  2 37  A 

0203A  1 

A L PH  A V +2 

0044 

13  ,?375 

75A15  0 

DAD 

SORT 

9:  12  OCT.  21,  1970 
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SAVE  TIME  IN  6-7D  F CR  P-TC-RP 
0-50=  R F CR  R-TC-PP 

ABS.  VALUE  OF  R FOR  ALT  FORMULA  BELOW 
S FT  M P AC=  9 FOR  EARTH, MON-ZERO  FOR  MOON 
USF  COS(O)  TO  GET  NCN-ZFRO  IN  MPAC 
0=  EAR  TH,  1 = MOON 


RP  VECTOR  CONVERTEO  FROM  R D-29 
UNIT  RP  B-l 

U?=  1/2  SI NL  FOR  SETRF  SUBR  BELOW 
SET  GAMMA=B2/A2  FOR  EAPTH,=  1 FOR  MOON 
SCALED  B-l 

CALC  RE  METERS  B-29 


AP  : 


ASSEMBLE  REVISION  56  OF  AGO  PRC  GRAM  ZERL  INA  BY  ZOROASTER 


9:  12  OS  T.  21,1970  SKI  PPFR 
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LATITUDF.  LONGITUDE  SUBROUTI  NF  S 


USER'S  PAGE  NO.  2 


E A S3 


00*5 

0046  REF 
3 D *7  REF 
004ft  PEE 
0049  RIF 
DD5D  RFF 
0051  REF 
005?  REF 

0053  REF 

0054  RFF 
DD56  REF 

0056  REF 

0057  RTF 
3368  PFF 

0059 

0060  REF 

0061  RFF 

0062  REF 


1 

7 LAST  593 

12  LAST  1124 
7 l AST  593 

4 LAST  593 

5 LAST  925 

13  LAST  1125 
P LAST  1125 

14  I A ST  1125 
P LAST  1125 

6 LAST  1125 

5 LAST  925 
3 1 AST  1 124 

2 LAST  1 48 
5 LAST  925 

3 LAST  1124 


13,  2376  76405  1 

13,2377  00011  1 

13,  2400  14021  1 

13.2401  02036  0 

13.2402  34023  1 

13,240  3 26506  C 

13  ,2404  15120  0 

13,2405  C2032  1 

13,  2406  140  21  1 

13,24'"  7 02034  1 

13,  2410  34023  1 

13.2411  26506  0 

13.2412  15122  1 

13,  24  13  02070  1 

13.2414  77625  0 

12.2415  C3673  0 

13,  24  16  2 c 1 24  0 

13,2417  C3674  1 


DMP  SL  1R 
GAMRP 

STOOL  COSTH  COS  (L  AT)  B-1 

ALPHA  V +4 

STCAI  L S INTH  S IN  (LAT  ) R-  1 

ARCTAN 

STOOL  LAT  I AT  BO 

ALPHAV 

STOOL  20STH  CCS  (LONG)  B-1 

ALPHAV  +2 

STCALL  SI  NTH  SINILONG)  B-1 

ARCTAN 

STCDL  LONG  LONG.  REVS  B-0  IN  RANGE  -1/2  TO  1/2 

ALPHAM 

DSU  A L T=  R-KE  METERS  B-29 

ER  ADR 

STCALL  ALT  EXIT  WITH  ALT  METERS  B-29 

INC  OR  PEX 


GAP:  ASSEMBLE  PE  VISION  56  OF  ASC  PRCGRAK  ZFRLINA  BY  ZCROASTER 


L IATITUOE  LCNGITIIOE  SUBROUTINES 

v~>-  63  SUBPOUTINF  Tr  CCNVERT  I AT  ,LCAC , ALT  at  given  time  to  radius  vfctor 
fO;*>4  CALLING  SEOUENCF 


R0C65  l-l  CALI 

R0066  L L A LO  TOR  V 

RVW  7 SUBROUT  INFS  US  FO 


? 0068  SC-  TGAMMA  , SF  TPF  ,P  P-TC-R 
WO  <>9  ERAS ABl  E IN  IT  . R E Q . 


R 0070  AXC.AYr,  AZr.T  rPFEM  SET  AT  LAUNCH  TIME 

* Or  7 1 LAT—  (ATITUOF  (RFVS  P oj 

R))7?  LONG—  LONGITUDE  (REVS  BO) 

RCC.73  ALT--AL  TI  TLOF  (MFTFRS)  e-?9 
Kl’C74  HP  AC — TIME  CSECSB-23) 

R007S  ERARFLAG  =1  TC  COMPUTE  EARTH  RADIUS,  =C  FOR  FIXED  EARTH  RADIUS 

tor  76  LUNAF  LAG  =C  FOP  F ARTH  , 1 F CR  MCCN 
R)377  OUTPUT 


RC078 

0079 

0081 
Df  «2 

00B3 
00  BA 
)D8f> 
00  BS 
f 0 B 7 
3389 
Of  89 
0090 
0C91 
0C9? 
3393 

0094 

0095 
3296 
0097 
OC'Tfl 
009*7 
0100 
3131 
Cl  02 
0 103 
3139 
0105 
0 106 

0107 

0108 


P — VECTOR  IN  / L PHAV  (l 
RFF  A LAST  1 1 2 5 


PFF  2 

REF 

PFF  2 
RFF  7 

REF  6 

RFF  8 
PFF  7 

REF  15 
REF  2 


LAST  112a 


LAST  112  5 
LAST  1176 

LAST  1125 

l AST  1126 
LAST  1126 

LAST  1125 
LAST  112a 


13  ,242° 
13,  24  2 1 
l 1 , • 

13 ,2423 
13,  2424 
13  ,2425 
1 . 

1 3,242  7 
13,243 
. 

I 3,2432 
13 ,2433 
13,  24  34 
13  ,2436 
l?,  2 4 3 6 
1 3,2  43  7 
13  ,2440 
1?,  2441 
13  ,2442 
IT  ,2443 
1 3,  2444 
13  ,2445 
13, 2446 
13,  ? 447 
13  ,? 45C 
13,  2 4 f 1 
13  ,2452 

13.2453 

13. 2454 
13  ,2455 


29  ) 

40220  C 
03674  1 
00001  0 
34007  1 
26546  1 
73545  1 
C 1 120  0 
65275  1 
00011  1 
C 1120  0 
65346  0 
01122  1 
57356  C 
71525  0 
C 1 1 20  0 
71525  0 
01122  1 
5 5 A 7 5 1 
41456  0 
36032  C 
26556  0 
43145  0 
2 4 0 C 7 0 
01743  0 
26452  0 
77746  1 
77624  l 
55720  1 
16032  1 
03673  0 


RFF  7 LAST  1124 
REF  7 LAST  1124 
REF  1 


RFF  6 LAST  969 
RFF  1 6 I AST  1 126 
REF  3 LAST  1125 


f LAST  1125 


LALOT DRV  STQ  S FT  PD 

INCCJRPEX 

OD 

STCALL  f>D 

SE  TGAMMA 
DLOAO  S IN 
LAT 

DMPR  POOL 
GAMRP 
LAT 

COS  P DDL 

LONG 
SIN  DMPP 

P DDL  COS 
LAT 

pool  cns 

LONG 
DMPR  VDFF 
UNIT  PUSH 
STCALL  ALPHAV 
SF  TPE 

DLOAD  BDFF 

ZERCVEC 
LUNAF  LAG 
CALLRPRT 

CDS 

CALLRPRT  CALL 

RP-TO-R 

STOOL  ALPHAV 
ERA  DM 


9:  12  OCT  . 21,  1970 
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USER'  S PAGE  NC. 


E4  S3 


LAT, LONG,  ALT  TO  R VECTOR 


6 —7 D=  TIME  FOR  RP-TO-R 

GAMMA  = B2/A2  FOR  FARTH,]  FOR  MOON  0- 1 

COSI  LONG  )COS(  LAT)  IN  MP  AC 
UNIT  RP=  S IN  (LONG)CQS(LAT  ) 2- 3D 

PO  2 GAMMAOSI  N(LAT)  0-1D 

o-l  n=  GAMMA*S  IN  (L  AT  ) B- 2 
PD  4 2-3D=COS(  LAT)  R-l  TEMPORARILY 

PD  2 

PD  4 2-  3D=  SIN(  LDNG)CPS(  LAT)  B-2 

PD  6 4-53=CCS(  LAT)  B-l  TEMPORARILY 

PD  4 MPAC=  CCS  (LONG) COS  (I  AT  ) B-2 
0- 5D=  UNI  I RP  F CR  RP-TC-R  SUBR. 

ALPHAV  +4=  SINL  FOR  SFTRE  SUB0  • 

RF  METERS  B-2  9 

SET  MP  AC=  0 FOR  EAR  TH  , NON-ZERO  FOR  MOON 


USE  COS  (0  ) TO  GET  NON-ZERO  IN  MPAC 


EXIT  WITH  UNIT  R VECTOR  IN  MPAC 


DAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L 

L ATITUDE 

LONG  I TUDE 

SU3R01JT1  NF 

s 

01C9 

13,  2556 

75215  1 

DAD 

VXSC 

0110 

RFF  6 

LAST  1125 

13,2557 

01125  1 

ALT 

Dill 

REF  17 

LAST  1126 

13,  256  C 

C2032  1 

ALPHAV 

Dll  2 

13,2561 

7777?  0 

VSL  l 

0113 

RFF  18 

LAST  1127 

13,2562 

36032  0 

ST  CALL 

AL  PHAV 

31  15 

REF  5 

LAST  1126 

13,  2563 

03675  1 

I NCORPFX 

R0115 

SUBROUTINE  TT  COMPUTE  EARTE  RACIUS 

RO  116 

INPUT 

R011  7 

1/2  SIN  LAT  IN  ALPHAV  +4 

1 0118 

OUTPUT 

RD119 

EARTH 

RADIUS  IN  ER  ADM  AND  MPAC  (METERS  R-?9) 

0120 

13,2565 

63555  0 

GETR  AO 

DLOAD 

D SO 

3121 

RFF  19 

LAST  1127 

13  ,2565 

02036  0 

ALPHAV  45 

312? 

13, 2566 

55352  0 

SL  1 

BDSU 

0123 

RFF  1 

13  ,2567 

250C5  1 

DP  1 n 

C 124 

12,2570 

55275  1 

DMPR 

BDSU 

0125 

REF  1 

13,  257  1 

26505  C 

EE 

0126 

REF  ? 

LAST  1127 

13  ,2572 

25005  1 

DP  1/2 

D 127 

13,  2573 

75565  1 

BDO  V 

SORT 

0l2fl 

REF  1 

13,2575 

265C1  1 

0 2XSC 

0 12« 

13  ,?575 

77622  1 

SR5R 

D 133 

RFF  5 

l AST  1 126 

12, 2576 

C3673  0 

STORE 

ERADM 

0131 

13  ,2577 

776  16  0 

RVQ 

R ' mi 

THF  FPI  LOWING  CONSTANTS  WFRF 

COMPUTED 

WITH  A=63781  66 , 8= 

6356785  MFT EPS 

R 0 1 31 2 

P2xSC=  «**2  SCALED 

B-5  1 

l 0131 3 

R?/A2=  R**?/A**2  SCALED  B-l 

RD1315 

FL=(  1-R**2/A**2)  SCALED  B-0 

013? 

13,2500 

00556  1 

B2XSC 

2DEC 

.0179550689 

0 132 

13  ,?50l 

00305  1 

3133 

REF  8 

LAST  1092 

12, 2 CCA 

DP  1/2 

XUM  T 

0135 

13  ,?502 

17711  0 

62/ A2 

2DEC 

.9933065885  B- 

0135 

13 ,2503 

05255  1 

0139 

13,  2505 

00155  0 

EE 

2oe; 

6.  6935H6  E-3 

0135 

13,2505 

25250  1 

9:12  0:T.  21,1970  SKIPPFR  .121  PAGE  1127 


US  ER  'S  PAGE  NO  . A E A S3 

(RE  + ALT! (UNIT  R)  PETERS  B-3D 

P METERS  B-29 

EXIT  WITH  R IN  METERS  B-29 


S IN  #*2( L 1 

COS**  2(  L) 


B**2  SCALEO  B -51 

1 GA  MMA  = 8**  2/A**  2 B-l 


( 1 -9**2/  A**2  ) B-C 


ASSFM0IF  RF  VI  SI  OK  6<>  OF  AGC  PR  CGP  A v 2 ERL  I N A 0V  20POAST  t» 


L LATITUnF  L CNF  1 TUDF  SUBROUTINES 

P'  137  ARC T AN  SUeRCUTINE 


*0l3B  CALLING  SFQLFNCF 

RD!?*  SIN  TFFTA  IN  S IN  TM  8-  1 

R0140  CCS  THFTA  IN  CHSTF  8-1 

R0  141  CALL  ARC  TAN 

R0lA2  OUTPUT 

30143  Arc  TAN  THFTA  IN  PPAC  ANO  TFFTA  P-0  IN  RANGE  -1/2  TD  +1/2 


0H5 

0 146 
3147 
0148 

C 149 
O'!  50 
0151 
3 142 
0153 
0 154 
3155 
0156 

0 157 

0158 

0159 
3160 

01  6 1 
0 162 
3 163 
0164 

0 165 

01  66 
0167 


REF 

REF 

P FF 


L AST  1125 
I A ST  1125 

1 

K LAST  112  8 
1 

4 LAST  938 
If  LAST  1 1 2 B 


RFF 

RCF 

RFF 


' • 

11,2507 
13,2510 
13,  2511 
13  ,2512 
13,2513 
13,  3514 
13  ,2515 
1 3,  2516 
I 3,  2 517 
13  ,2520 
13,  252  1 

i 

13,2523 
13,  2524 
13  ,2525 
1 3,  2526 
1 3,252  7 
13,2530 
, 

13  ,2532 
13,2533 
1 3,  2534 
13  ,2535 


776C0  1 
26510  l 
63545  0 
C0C23  0 
63525  i 
00021  1 
77615  0 
75454  0 
26534  1 
40065  0 
C0O23  0 
2fc  54  1 C 
67542  0 
00C25  0 
5 125  1 
00021  1 
26530  0 
43545  1 
57545  1 
43244  1 
26536  0 
2400  5 1 
00025  0 
77616  0 


BOV 

□ LOAD 
POOL 


SR  1 

STORE 

POOL 


DLOAD 
DLOAD 
B PL 


: LRO.yF.LM 
OS  Q 
SI  NTH 
OSO 
COST  F 

SORT 

ARCTANXX 
3 nv 
S I NTH 

A T AN  = 90 
A SIN 
THETA 
3 MN 
COST  H 
NFGCOS 
R VO 
DCOMP 
DAO 

NFGOUT 
DPI  /2 
THE  TA 


0 168 
Ol  6 9 
0 170 
3171 
017? 
0 173 
C'l  74 
0175 


RFF 

REF 

REF 


LAST  1128 
LAST  1 12  R 


LAST  1128 
LAST  1128 


13,2540 
1 3,  254  1 
13  ,2542 
13 ,2543 
13,  2544 
13  ,2545 


52C25  1 
24005  1 
26534  1 
75346  1 
110  11  1 
00023  0 
COC  25  o 
77616  0 


NEGOUT  DSU 


A TAN=90  DLOAD 


GOTC 
DP  1/2 
ARCTANXX 
SIGN 
LOOP  1/4 
S I NTH 
THE  TA 


LAST  930  12.2CC6 


9:  12  OCT.  21,1970  SKIPPER 


PAGE  1128 


JSER'S  PAGE  NO. 


. 121 
5 E 4 S3 


AT  AN=0/0  SET  T HCT  A=0 


ASSEMBLE  REVISION  56  OF  AGC  PRCGRAP  7EKLINA  BY  ZOROASTER 
l AT  I TUDE  LONGITUDE  SUPROJT1NES 


ROl  81 
* 182 
R J 1 «3 


R71R6  OUTPUT 

RC187  GAMMA  IN  GAMPP  ( e -1  ) 


0 1PB 

ilR9  RFE 
0190  PFF 
1191  REF 

0 1 92 

0193  REF 

' i ' • f C f 

0195 

0196 


P LAST  1126 
I 

1 

3 I AST  1126 


13  ,2550 
1 3,  255  1 
13,2  552 
13,2553 
13,  2 5 56 
13  ,2555 
0010 


01  763 
26  556 
77735 
26005 
C0C11 
77616 


0 

0 

0 

1 

0 

l 

1 

0 


SETGAMMA  DLOAD  BOFF 
3 2 /A  2 
LUNAFLAG 
SETGMEX 

SLOAO 

1 0 1 

SETGMEX  STORE  GAMRP 
RVQ 

GAMRP  = PD 


9:12  OCT,  2 L,  1970  SKIPPER 
USER'  S PAGE  NO.  6 


.121  PAGE 
F6  S3 


1129 


BRANCH  FOR  EARTH 
FARTH  GAMMA 


MOON  GAMMA 


GAP:  ASSEMBLE  REVISION  *6  OF  AGC  PROGRAM  ZFPLINA  9Y  ZOROASTER 


L LATITUDE  LONGITUDE  SUBROUTINES 

PC1«»7  SETRE  SLBPOUTINF  

R0l9R  SUBROUT  INF  Tf  S FI  RE  ( FAR  T H GR  MOON  RADIUS) 


*0199  PE  = PM  FOR  MOON 

RG20  fifs  PRfr  FOP  FIXFD  EARTH  RADIUS  OR  COMPUTED  RF  FOP  FISCHER  E I L I PS  01 


R02&1  CALLING  SECHEN’CF 
1 0202  L ('All 

RD2D3  L ♦ 1 SETP.E 


R0704  SLBPIj'.TINPS  USED 
r.FTFRAD 


R020 6 INPUT 

102  7 f H ADF  LAG  ='  FOR  FIXED  RE,  ) F CR  CCMPUTEO  P-E 

R D 2 . 9 ALPHAV  + 4=  1/2  SINl  IF  3FTERAD  IS  CALLED 

R C1 2 1 0 I UN'AF  I AG=°  FOR  EARTH,  = 1 FOP  MOON 


1C210  OUTPUT 

R?211  FRA  DM=  50  ARM  FOP  MOON  (METERS  B-/9) 

R 0212  £RAOM=  ERAD  CP  COMPUTED  RF  FCF  EARTH  IMET  EPS  B-29) 


m?  fiFF 

0215  RFF 
7216 

D2  1 7 REF 
02 IB  RFF 
7219  REF 
0220 

0 22)  REF 

0222  REF 

0223  REF 

>22*  RFF 
0225  REF 
0 226 

T227  REF 
0229  REF 

0229  REF 

0230 

0231 

7 232  RFF 
0233  REF 


2 

15 


LAST  1129 


LA  ST  # 964 


LAST  1127 
LAST  1130 

LAST  1130 
LAST  1130 
LAST  973 


LAST  1130 
LAST  962 


mm 

1 , 

11,  2 56  1 
13,2562 

1 3 ,2563 
1 3,  2566 
l 3 ,2565 

13.2566 

13. 2567 
1 3 ,2570 
13,  2571 
13,?57? 

1 3 ,2573 
1 3,  2576 
13  ,2575 

i ,2576 
13,  2577 
13  ,2600 
13,  ?6Cl 
0051 


10003  O 
71216  0 
01703  1 
26573  1 
1CCC1  1 
65C14  0 
00742  0 
26571  0 
26466  0 
37673  1 
5 l 

77214  G 
C0702  1 
26571  0 
02021  0 
64446  0 
77650  1 
26  571  0 


SETRE  STQ  DLCAD 
SE  TPF  X 
50  4RM 
BON  DLCAD 

LUNAF LAG 
TSTRLSRM 
E RAO 
BO  FF  CALL 

ER  ADFLAC- 
SE  TR  XX 
GETERAD 

SE  TR  XX  STCALL  E P ADM 

SE  TRE  X • 

TSTKLSRM  BON  VLOAC 

E R ADF L AG 
SETR  XX 
RLS 

ABVAL  SR  2R 
GOTO 

SETRXX 

SETREX  = S 2 


9:12  OCT.  21,1970  SK1°PER  -121  PAGE  113c 
USER'S  PAGE  NC.  7 E4  S3 


BRANCH  FOR  MOON 

FRA  OF  LAG  = 0 FOR  FIXED  RF  ,1  FOR  COMPUTEO 

FX  IT  WITH  RE  OR  PM  METERS  B-29 

ER  A DFL  AG=0  J SF  T RO=Rl  S 
= 1 R0=  RM 


SCALE  FROM  R-2  7 TO  B-29 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 

L PLANFTARY  INERTIAL  ORIENTATION 


9:12  CCT.  21  ,1970  SKIPPER 
USER  'S  PAGE  NO.  I 


.121  PAGE  1131 
EC  S3 


PDD1  PP-TO-P  SUBROUTINE  

R 000?  SUBROUTINE  TP  CONVERT  RP  (VECTCR  IN  PLANETARY  COORDINATE  S YSTEM , E I THER 
R3003  EARTH-FIXED  OR  MUON-FIXED)  TO  R (SAME  VECTOR  IN  THE  BASIC  P E F . SYSTEM) 


W 0004  P=MT  (T  >*(RP  + LPXPP  ) MT  = M MATRIX  TRANSPOSE 


TOC'S  CALLING  SEOUENCF 

R 0 0 0 6 L GALL 

R00C7  L+1  RP-TO-R 


* 0008  SUBROUTINE S L<Fn 
RD7D9  F APT  FMX  , MOONM  X,  EARTH. 


R0010  ITEMS  AVAILABLE  FPCM  LAUNCH  FATA 

RC"  11  Sf>ALM=  THE  LIBRA  TI  ON  VECTOR  L OF  THE  MOON  AT  TIME  T IMSUBL , FX  PRESS  ED 

ROi'12  IN  THF  MFCN-F  IXED  COORD.  SYSTEM  RADIANS  BO 

T 001 3 ITFMS  NFCFSSARY  FOR  SUBP.  USED  ISEE  CESOR1PTION  OF  SUBR.) 


R DO  1 A INPUT 

R 0 C T 5 M F AC  = C FOR  F ART H.NON-ZFRO  FOR  MOON 

T 0<  16  C-  5D  = RP  VEC  TCP 
ROD)  7 6-7  0=  T IME 


R0C18  OUTPUT 

R 0 ' ■ M P A 0=  R VECTOR  METERS  B-29  FOR  EARTH,  B-27  FOR  MOON 


0020  REF 
M 


26, 2000 

25  , 37  ?0 


SETLOO  P LA NTIN1 
BANK 


D T 2?  REF  2 LAST  S3  TO  159: 


20 


20* 


COUNT*  fS/LUPCT 


002  3 

0024  REF 
D325  RFF 
0026 

0027  RFF 

0C2fl 

0029  RFF 
D D 3D 

0C31  rfF 
0032  RFF 
DD33 

0034  PFF 

0035  REF 

0036 

00*7  RFF 
DD33 

0039  REF 

0040 

D D 4 1 REF 


2 I A R T 1131 


2 l AST  1131  26 


3720 
,3721 
3722 
,3723 
,3724 
372S 
,3726 
3727 
3730 
,3731 
3732 
,3733 
,3  734 
3 7 35 
,3735 
3737 
3740 
,3741 
3742 


46020  l RP-TO-R 

OOOSO  1 

55735  0 

77624  1 

51674  0 

77775  1 

02013  1 

53235  0 RPT0R8 
000C1  0 
00001  0 
52  105  1 
00025  0 
51662  1 

77624  1 RPT33A 
55745  1 
77624  1 
15761  0 

76521  0 
CCC25  0 


STQ  BHIZ 

R PR  EX  IT 
P P TOR  A 

CALL 

MOCNMX 

VLOAD 

50  4LM 

VXV  VAD 

504RPR 
50 4 R P R 
VXM  GOTO 

MM  A TP  I X 
RPRPXXXX 

CALL 

FARTHMX 

CALL 

EAP.THL 
MX  V VS  LI 

MMATRI X 


COMPUTE  M MATRIX  FOR  MOON 
LP=  LM  FOP  MOON  PAOIANS  BO 


MPAC  = R = M T ( T)  * ( P.P*  LFXRP) 

RESET  PUSHLOC  TO  0 BEFORE  EXITING 
EARTH  COMPUTAT  ICNS 
M M ATP  I X 8-  1 


L VECTOR  RADIANS  BO 
LP  = M(  T ) *L  RAD  P-0 


GAP: 


ASSEMBLE  PPV  ! S ION' 
PLANETARY  INERT 


S6  OR  AGO  PROGRAM  ZEP.LINA  8Y  ZOROASTER 
AL  ORIENT  AT  ICN 


9:1  OCT.  21,1970  SKIPPER 
USER'  S PAGE  KC.  2 


.121  PAGE  1132 
EO  S3 


00  A? 
30A3 
Goa  32 
CO  A 3A 
OOA  3 6 


PEE 

PEF 

°FE 


26, 37A3  776*5  0 I 

26, 3144  55127  C 

2 A ,20C0 
2 A ,3  6AA 


GOTO 

PPTCRB 

S ETLOC  puan.t. in 

BANK 

COIN  T«  R4/LUR0T 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  FRCGRAM  ZERLINA  RY  ZOROASTER 


9:  12  OCT.  2 L » 197C 


SKIPPER  . 121  PAGE  1133 


L PLANETARY  INERTIAL  ORIENTATION  USER'S  PAGE  NC.  3 EC  S3 

P0044  P-TC-PP  SUBROUTINE  

RC045  SUBROUTINE  TO  CONVERT  R (VECTOR  IN  REFERENCE  CCCRO.  SYSTEM)  TO  RP 
ROG'46  (VECTOR  IN  PLANETARY  COORD  SYSTEM)  EITHER  EARTH-FIXED  OR  MOON-FIXED 

* O'  4 7 PP  = M(  T I * ( R-LXR) 

RDDAB  CALLING  SEQIJFNCE 
R004O  L CALL 

R 0050  l+l  R-TO-RP 


R3  3 5 I SUBROUT  INES  USED 
R0n5?  FA,’THPX,PCCNMX,  CARTEL 


ROD  53  INPUT 

RC 0 5 -•  MPAC=  C FOR  E ART  H,NO  N-Z  ER  0 FOP  MOON 

* OC  55  0-50=  P VEC  TOR 

R0056  6-70=  TIME 


R 0057  ITFMS  AVAILABLE  FROM  LAUNCH  CATA 

5C4LM=  THF  LI  BRATI  ON  VECTOR  L CF  THE  MCON  AT  TIME  T IMSU  BL , EXPR  ESS  EO 
R3J59  IN  THE  MOON-FIXED  COORD . SYSTEM  RADIANS  90 

ITFMS  NECESSARY  FOR  SIJ  FRfllT  INES  US  EC  (SEE  DESCRIPTION  OF  SUBR . ) 


R0061  OUTPUT 

R3-6?  MP  A C=  R P VECTOR  METERS  B- 29  FOR  EARTH,  B-27  FOR  MOON 


0065 

0066 
J ? 67 
006H 

0069 

0070 

0071 
3372 

0073 

0074 
3375 
00  76 

0077 

0078 
0C7Q 
33R3 
0081 
OOP? 
3383 

0084 

0085 

0086 


1 

REF 

REF 

REF 
i y 

RFF 

RFF 

REF 

REF 

REF 

REF 

PEF 


2 

2 

3 


3 

? 


2 


LAST  1131 

LAST  113  1 

LAST  1131 
LAST  113  1 

LAST  113  1 
(AST  1133 

LAST  1133 

LAST  1133 
I A ST  1131 
LAST  1131 


74 ,3644 
2 4,  3645 
24,  3646 
24,3647 
24, 365C 
24  ,3651 
24,^652 
24,  36  5 1 
24  ,3654 
24,  3655 
24,  3656 
24,3657 
24, 3660 
24  ,3661 
24,3662 
24,  166  1 
24  ,3664 
74, 3665 
24,  1666 
24,3667 
7 4,  3670 
24  ,3671 
24,367? 
24,  3673 


51666  0 
77624  1 
51674  0 
61375  1 
02013  1 
00025  0 
7777?  0 
5 123c  l 
00001  0 
00001  0 
77721  0 
00(  25  0 
4037?  0 
C ( 1 
77650  1 
CCC50  1 
77624  1 
55  76  5 1 
77624  1 
15761  O 
77650  1 
5 16  55  C 


R-TO-RP 


R TORPB 


KPRPXXXX 


R TOR PA 


STQ 

CALL 

VLOAD 

VS  L 1 
VXV 

MXV 

VSL1 

GOTO 

CALL 

CALL 

GOTO 


BH  17 
R PREX I T 
R TOR  PA 

MCCNMX 
VXM 
5.Q  4 L M 

NMA  TR  I X 

BVSU 

504RPR 

504RPR 

MM  A TP  I X 

SETPO 

OD 

R PREX  1 T 

FART  HMX 
FARTHL 

R TORPB 


LP=LM 


L =MT{  T)*LP  RADIANS  BO 


M ( T ) * ( R— LX  R ) 8-2 


FAPTH  COMPUTATIONS 


MPAC=L=  (-AX, -AY,  C ) PAD  B-  o 


GAP:  ASSEMBLE  REVISION  Sft  Cl  F AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L PI ANETARY  INERTIAL  CP  l ENT  AT  I CN 


P0CR7  MOONMX  SLBPOLTINE  

R0088  SUBROUTINE  Tr  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THF  MOON 


<01-89  CALLING  SEQUENCE 

RCD9?  I CALI 

ftonol  1*1  MOCNMX 


T Of  9?  SUBROUTINE  S LSFD 
R 3 : 0 3 NEW  ANGIE 


RC094 
R0096 
R33R6 
R 0097 
R0C9B 
B0099 

« ulO'l 

mil 

R 1 2 


I NPUT 
fe-  70=  TIME 

ITEMS  AVAILABLE  FROM  LAUNCH  DATA 
B SLOG , BOOT 

TIMSUBO.NOOIO  fNOOOOT,F  SUBC.FDUT 
CCS  I = CCS  m B-1 
SIM  = SI  M I ) B-1 

I TS  THF  ANGLE  MFTWEEN  THE  MEAN  LUNAR  EQUATORIAL  PLANE  A NO 

PLANE  CF  THE  ECLIPTIC  (I  DEGREE  32.1  MINUTES) 


3x3  M M ATR  IX  B-  1 


(STORED  IN  VAC  AREA) 


0105 
310  6 

0107 

0108 
3130 

one 

1 1 1 

3112 
0113 
114 
£ 116 

0 li  6 

3117 
011  8 
0 1 lo 
3123 
o)?l 
3 12? 

- 123 

1 2 A 
3125 
0125 
n 127 
3129 

129 

0 130 

01  31 


REF  1 


REF  1 
REF  1 

REF  1 

RFF  1 

REF  1 
RFF  1 

RCF  1 


RFF  2 LAST  1134 
REF  I 
REF  1 

REF  1 


24  ,3674 
24, 3675 
24,  3676 
24,3677 
24, 37C0 
24  ,3701 
24,3702 
24,  3/0  3 
24  ,3704 
24,3  705 
24,  3706 
24  ,3707 
24,  37  10 
24,  3711 
24  ,3  712 
24, 3713 
.74  ,3714 
24,3  715 
24, 3716 
24  ,3717 

24. 3720 

24. 3721 
24 ,372? 
24, 3723 
74  ,3724 
24  ,3  725 
24,  3726 


CCC61  0 
00011  1 
77770  1 
000C5  1 
65346  0 
14017  1 
140  11  1 
45006  0 
5 1743  0 
7 1 4C6  0 
14041  1 
77756  C 
14043  0 
14015  0 
4 1525  0 
14007  0 
451  70  0 

00004  0 
51743  0 
14027  1 
14013  0 
41525  0 
14005  1 
45170  0 

00005  1 
51743  0 


STO  SETPD 

EARTHMXX 

8D 

AXT  ,1 

5 

DLOAD  P DDL 
BSURO 
BOOT 
PUSH  CALL 

NEWANGLE 
PUSH  COS 
STOOL  COB 
SI  N 

STOOL  SOB 

FSU  BO 

POD  L PUSH 

FOOT 
AX  T, 1 CALL 
4 

NEWANGLE 
STOOL  AVECTR  +2 
NOOIO 

POOL  PUSH 

NODDCT 
AXT,  l CALL 


REF  3 l AST  1134 


NE  WANGLF 


9:12  OCT.  21,1970  SKIPPER 


PAGE  1134 


USFH  • S PAGE  NC. 


B REQUIRES  SL  0,  SL  5 IN  NEWANGLE 
PD  10D  e-90=BSURC 


PD  12D 

EXIT  WITH  PO  8 D AND  MPAC=  B REVS  BO 
PD  ID  D 

PO  BD  COS(B)  B-1 
S IN  ( B ) B-1 

SETUP  INPUT  FOR  NEWANGLE 
8-  90  =F  SURU 

PD  10  D THEN  12  C 1C-11D=FOOT 


F REQUIRES  SL  1,  SL  6 IN  NEWANGLE 


EXIT  WITH  PD  80  AND  MPAC=  F REVS  BO 
S AV  E F T EMP 

8-9  D = NCDI  0 

PD  10D  THEN  1 2D  10- 1 1D  = N0DD0T 
M P A C=  T 

NODE  REQUIRES  SL  0,  SL  5 I N NFWANGLE 


EXIT  WITH  PD  8 C ANC  MPAC=  NODI  REVS  BO 


GAP:  ASSFMBIF  PFVISIDN  56  3F  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1135 


L PIANFTARY  INFRTIAL  ORIENT  AT  I C A USER'S  PAGE  NC.  5 EC  S3 


132 

24,3727 

714C6 

0 

PUSH 

COS 

PD 

10  D 

8-9D=  NODI  REVS  Bu 

r 1 3 3 

24,  37  30 

776C6 

1 

PUSH 

PO 

120 

10-110=  COS(NOCI)  B-l 

0134 

REF 

2 

LAST 

1134 

24  ,3731 

00025 

0 

STCRE 

AVECTR 

>135 

24,  3732 

764C5 

1 

OMP 

S Li  R 

01  36 

REF 

7 

1 AST 

1134 

24,3733 

00041 

1 

:ob 

CCS (NODI ) 

r-  1 37 

REF 

1 

24,3734 

14035 

1 

STOOL 

BVECTR  +2 

PO 

10  D 

20-  2 5D=A  VEC  TR=  C OB  * SI  N ( NOD  I ) 

3138 

24, 3735 

7 6 4C5 

1 

OMP 

SLIP 

S08*S  IN  (NODI  ) 

0139 

PEF 

2 

LAST 

1 1 34 

24  ,3736 

00043 

0 

SOB 

> 1 40 

REF 

2 

LA  ST 

113  5 

24,3737 

14037 

0 

STOOL 

BVECTR  +4 

PD 

BD 

0H1 

24,  3740 

41556 

1 

SIN 

PUSH 

PD 

IMP 

-SIN  (NODI)  B- 

0142 

24,3  741 

52076 

1 

DCflMP 

GOTO 

2 6-  3 1 D =B  VE  C TR  = C OV*C  PS(  NODI) 

3143 

PEF 

1 

2 4,  374  2 

5 3710 

1 

MOGNMX  A 

01475 

25, 3710 

BANK 

25 

>14  7 6 

REF 

1 

25,2000 

S ETLOC 

PLANT  IN3 

31477 

25,  3710 

BANK 

01478 

RFF 

1 

COUNT  * 

$*/L  UROT 

0 148 

PEF 

3 

LA  ST 

1135 

25,3710 

1 4 C 3 3 

1 

MOCNMXA  STODL 

BVECTR 

PO 

80 

S08*COS(NODI  1 

OUfll 

RFF 

3 

LAST 

1135 

25, 3711 

00027 

1 

A VEC  TR  +2 

MOVE  F 

FROM  TEMP  LCC.  TO  504F 

01482 

RFF 

1 

25,3  712 

14007 

0 

STOOL 

504F 

31493 

25,  3713 

7 6 4 f 5 

1 

OMP 

SL1  R 

nl  484 

REF 

3 

1 AST 

1 135 

25,3714 

00041 

1 

COB 

0 148  5 

RFF 

4 

1 A ST 

1135 

25,3715 

14027 

1 

STOOL 

AV  ECT  R +2 

3 149 

REF 

1 

25, 3716 

one  1 1 

1 

SI  NNODI 

8 -9  D=S  I N ( NODI  1 8-1 

0150 

25  ,3717 

76405 

1 

OMP 

SL  1R 

0 151 

REF 

3 

l A ST 

1135 

25,3720 

0CC43 

0 

SOB 

015? 

REF 

1 

LAST 

1135 

25,  37  2 1 

14031 

c 

STODL 

AVECTR  +4 

D 

0153 

RFF 

13 

LAST 

845 

25,3722 

06520 

0 

HI6ZER0S 

8-  1 3D=  C.  VE  C TR  = -SOB  8-1 

3154 

25,  3723 

5 7 525 

1 

POOL 

DC  CMP 

PO 

i r, 

COB 

0155 

REF 

4 

LAST 

1135 

25,3724 

00043 

0 

SOB 

0156 

25,3725 

63325 

0 

PDDL 

POVL 

PO 

120 

THEN  PD  140 

3157 

RFF 

4 

1 AST 

1135 

25,  3726 

00041 

1 

CC8 

0158 

RFF 

4 

1 AST 

1135 

25  ,3727 

00033 

1 

BVECTR 

>159 

25,3730 

63361 

0 

VXSC 

POVL 

PD 

20  D 

BVECTR* SIN  I B-2 

Ol  60 

REF 

1 

28, 3731 

140C  3 

1 

SI  NI 

0161 

RFF 

1 

25  ,3732 

00011 

1 

CVFCTR 

3 16? 

25, 3733 

53361 

0 

vxsc 

V AD 

PD 

HD 

C.V  ECT  R *COS  I B-2 

Ol  63 

REF 

1 

25, 3734 

14001 

0 

COS! 

0164 

25,3735 

77772 

0 

VS  LI 

3165 

RFF 

5 

1 AST 

1 133 

25,  3736 

2404  1 

1 

STOVl 

MMATRI X +12  0 

PO 

80 

M?  =BV  FCT  R*S  INI +CV  FCT  R *COS  I B- 

0166 

25  ,3737 

63361 

0 

VXSC 

POVL 

PO 

140 

167 

REF 

LAST 

1135 

25,3  740 

14003 

1 

S INI 

CV  ECTR  *S  IN  I B-2 

3168 

REF 

r 

1 AST 

11>5 

25,  374  1 

000  3.3 

1 

3 VEC  TR 

0169 

25  ,374? 

52361 

1 

VXSC 

VSU 

PO 

80 

B VE C TR*C  OSI  B-2 

0170 

R FF 

? 

LAST 

1135 

25,  314  3 

140C1 

0 

COSI 

Ol  7 1 

25,  3744 

65372 

1 

VSL  1 

PDDL 

PO 

140 

« 17? 

RFF 

2 

l A ST 

1135 

25  ,3  745 

00007 

0 

504F 

8-1 

1 3D=  0 VEC  TR  =9  VFC  TR*COSI-C  VFCTR*  SI  NI  f 

3173 

25,  3746 

74  346 

0 

COS 

VXSC 

01  74 

RFF 

1 

25  ,3747 

000  1 l 

1 

OV  EC.  TR 

0 175 

25,3750 

73525 

1 

PDDL 

S IN 

PO 

20  D 

14-190=  0VECTR*C0SF  B-2 

GAP:  ASSEMBLE  RF  VI  SI  ON  56  GF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 

t PI  AM  FT  APY  IWFRTIAL  OR  I EV  TA  T ION 


9:  12  OCT.  2 1 » 197 f.  SKIPPER 
USER'S  P AG F NC.  6 


121  PAGE  1136 
EC  S3 


3 J 78 
01  79 
0 180 
f<  1 fil 

1 82 
- 1°3 
Cl  8V 
0 185 
3 186 
0 1 P7 
188 
0189 
1C190 

*01  9J 
IK'  1 9? 

T 0 1 93 

R7  194 
R0195 
RO  196 


RFF  ? L AST  1135  25,3751  00007  0 

2 5, 37  c 2 52361  1 VXSC 

FEF  6 LAST  1135  25,  3753  C0C25  C 

25  ,3754  77772  0 VSL 1 

RFF  6 I A ST  1 135  25,3  755  14C33  1 STGCL 

RFF  4 I AST  1136  25,3756  00007  0 

25  ,3757  74356  1 SIN 

25,  3760  71525  0 POOL 

REF  5 LAST  1136  25,  3761  00.CC7  0 

25,3762  53361  0 VXSC 

REF  7 I AST  1 136  25,  3763  CCC25  0 

25  ,3764  57572  0 VSL  1 

RFF  7 LAST  1 136  25,3  765  34025  1 STCALL 

RFF  2 I AST  1134  25,  3766  OOC 5 1 0 

COMPUTE  X=X  + ( XDCT)  ( T + Tl  ) 

P.  -9  0=  X 0 (PFVS  8-0 ) ,P(JSH  LOT  SE  T AT  120 

Ir-lln^XOTT  (REVS/CSEC)  SCALEC  8 *2  3 FOR  WEA°  TH,B  + 28  FOR 
ANO  P+27  FCR  FOOT 

X 1=0IFFERENCE  IV  23  AND  SCALING  OF  XD0T,=0  FOR  HEARTH, 

8 COT  ANO  4 FOR 

6-  7C*=  T t C SEC  8-28)  , TIMSLQC  = (C  SEC  B-42  TRIPLE  PPEC.) 


504F 

VSU 

AVECTR 

MM  AT  R IX  + 
6 04F 
VXSC 
COS 
50  4F 
VAC 
AVECTR 
VCOMP 
MMATR  IX 
E A P THMXX 


MODDOT  AND  ROOT 


PO  140  AV  ECTR  *S  IN  F 8-2 

Ml=  AVECTR.*SIN  F-DV ECTR *C0  SF  fi-1 

PO  80 

PO  14D  8-1  30=  OVECTR  *S  INF  8-2 

PO  80  A VFC  TP *C0  SF  B-2 

M = - ( AV  E CT  R*CO  S F+  CVEf. TR  * S INF  ) 3- 


01962 
1Q64  RFF 

01366 


2 I A ST  1 132 


24,  374  3 
?4  ,?9r.o 
24,  3743 


BANK  24 
S FTLOC  PL  AMT  IN 
BANK 


01  97 
C 198 
0199 
opnn 

0 20  1 
0202 
0203 

0??4 

0205 

0206 
3 23  7 
0208 

0209 

0210 
021 1 
0212 

0213 

0214 
3 214) 
02142 

0215 


RFF  1 
REF  758 
REF  1 
RFF  2 


REF  3 


LAST  1099 
LAST  1136 

LAST  1136 


2 4 ,3 744 
24,  3745 
2 4 ,?  746 
24 ,3747 
24, 3750 
24  ,375  ) 
24,  3752 
24,  3753 
24 ,3  754 
24, 375s 
24  ,3756 
24,3757 
24,  3 76C 
24  ,3761 
24,  376  2 
24, 3763 
24,3  764 
24,  3 765 
24  ,3766 
2*, 3767 


2 Cf  17  0 
72371  1 
017C7  0 
00  155  0 
140  7 1 
0CC2O  0 
77605  1 
43257  0 

202c  6 1 

67206  1 
CCC17  1 
4 1261  1 
20212  1 
0CC13  0 
43257  0 
20213  U 
7 76 CO  1 
51767  0 
77616  0 


NEWAVGLE  DLOAD 

TAD 

STOOL 

OMP 

SL* 

PUSH 

SL 

SL* 

BOV 

RVO 


SR 
6D 
1 4D 
Tl  HAD 
T IMSU80 
MP4C 
T IMSUBM 
TI  MSUBM 

OAD 
5,1 
SLOAO 
T [ MSUBM 
OMP 
90 
1 0 D 
OAD 
10  D,  1 

+ 1 


ENTFR  PO  120 


CHANGE  MODE  TO  TP 


T+TO  C SE C B-42 

PO  100  MULT  BY  XDCT  IN  1 -110 

PD  BO  A 00  XO  IN  fl-90  AFTEP  SHIFTING 
SUCH  T HAT  SCAL  ING  IS  B-C 
PD  100  SAVF  PARTIAL  (XO+XDOT*T)  IN  8-90 


X DOT 

PO  80  SHIFT  SUCH  THAT  THIS  PART  OF  X 
IS  SCALEO  REVS/CSEC  8-0 
TURN  OFF  OVERFLOW  IF  SET  BY  SHIFT 
INSTRUCTION  BEFORE  EXITING 
Mp AC=X=  XC  + ( XDOT  ) ( T + TO)  REVS  80 


GAP  : 


ASSEMBLE  REVISION  56  OF  ACC  PRGGRAM  ZERL1NA  BY  ZOROASTER 


L PL  AN  FT  ARY  INERTIAL  ORIENTATION 

P 216  EAPTHMX  SUBROUTINE 

R '217  SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  M/TRI  X M FOR  THE  EARTH 


RC»21  8 CALLING  SFCUENCF 

3 02  1 Q L CALL 

R^PJ  L+l  EARTHMX 


R 0221  SURRCUTI  NFS  USEC 
RO  222  NFWANGLE 

R02?3  INPUT 

>'226  INPUT  AVAIIAPLE  FROM  LAUNCH  0 AT  A A70  REVS  B-0 

R3225  TEPHEM  C SEC  B-62 

R0226  6-70=  TIME  CS  EC  e-28 


3 0227  OUTPUT 

>'.'228  MM  AT  R I X=  ?X3  M MATRIX  B-  1 ISTOREO  IN  VAC  AREA) 


02282 
' 228A 
022  86 
f'22HP 


R OF 


RFF 


26  ,3765 

2 LAST  1131  26,2000 

26,  3 74, 5 

3 LA  ST  1131  TO  1132  : 21 


BANK  26 
SETLOC  PLANT  INI 
BANK 

COUNT  * f S/LUROT 


im 

3 231 
3 232 
r 2 33 
•734, 

< 23s 
M236 
3 2 37 
0238 
0 2 3P 
3?4»;i 
0261 
0 26  2 
0263 
0266 
3 2 6 S 
0266 
'267 
3268 
0269 
0 7 Si' 
C2S1 
0252 
'263 
('256 


RFF 


RFF 

REF 

RFF 

REF 

RFF 

REF 

RFF 

REF 

REF 

REf 


3 


2 

3 

15 


LAST  1136 


IAST  1136 


LAST  1135 
LAST  1137 
LAST  1137 
LAST  1137 
LAST  696 
LAST  1137 


’6,  3765 
26,  3 766 
26,3767 
26, 3750 
26  ,3751 
26,3  75  2 
26,  375-* 
26  ,3756 
26,  3755 
26,  3 7 56 
26,3757 
26,  3760 

26.3761 

26 . 3762 
26,  3763 
26  ,3766 
26,  3765 

26. 3766 

26.3767 
26, 3770 
26  ,377  1 
26,377? 
26,  377  3 
26  ,3776 

26. 3775 

26. 3776 


6C220  (' 
00051  0 
00011  1 
77770  1 
00000  1 

65365  0 
16023  0 
16021  1 
65CC6  0 
51763  0 
61601  1 
COO  2 3 0 

65366  0 
CCC23  0 
65356  1 
C 6520  0 
7 3525  1 
00023  0 
65276  1 
CCC23  0 
63366  0 
06  c20  0 
61525  C 
065 1 6 0 
7765C  1 

00C51  0 


EARTHMX  STO  SFTPO 

E ARTHMXX 
80 

A XT  1 1 

0 

OLOAD  POOL 
AZO 

W EARTH 
PUSH  CALL 

NE WANGLE 
SET  PD  PUSH 
1 80 

COS  POOL 

506  AZ 

SIN  POOL 

HI6ZER0S 
POOL  SIN 

506AZ 

DCOMP  POOL 

506  AZ 

COS  POVL 

H 16  ZEROS 

POOL  PUSH 

H I OP  HAL F 

GOTO 

FARTHMXX 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1137 
USER'S  PAGE  NC.  7 EG  S3 


SET  9-9  0 AZO 
1 0-  1 1 D=  WEAR  TH 

FOP  SL  5,  AND  SL  10  IN  NFWANGLE 
LEAVING  PC  SET  AT  120  FOR  NFWANGLE 


1 8- 190=  50  6A7 

COS  ( AZ)  S IN (AZ  I 0 

20-370=  MMATRI  X=  -SIN(AZ)  CCS(AZ)  0 B-l 
0 1 


SKIPPER  .121  PAGE  1138 
NO.  8 Ei  S3 

P7  255  EARTHL  SUBROUTINE  

RQ256  SUBROUTINE  TO  COMPUTE  L VECTOR  FOR  FAPTH 


R 257  CALI.  TNG  SEQUENCE 

RD2bp  l CAIL 

R025O  1*1  FAPTHL 


GAP:  ASSEMBLE  REVISION  S6  3F  AGC  PROGRAM  ZEHLINA  BY  ZOROASTER 

L PtANFTARY  INERTIAL  ORIENT  AT  I C A 


9:12  CCT.  21  ,1970 
USER  *S  PAGE 


INPUT 

AX  f » AY  C SET  AT  LAUNCH  TIME  HITE  AYO 


IMM  EO  IAT  ELY  FOLLOWING  A XO  IN  CORE 


<0262  OUTPUT 
R0263  -AX 

R'26A  M PAC  = -AY 

R 0 265  0 


RAC  IANS  B-A 


026505 
*2651  PFF 
326515 
02652  REF 


">6,  37 A 1 
36  ,2000 
36,  37X1 


BANK  06 
SETLUC  EAPTHLOC 
BANK 

COUNT*  *$/LUPOT 


0 266 
3267 
0268 
>260 

0270 

0271 
3272 

2 73 
0 2 7 A 


REF 
REF 
i • F 
REF 
RFF 
REF 
RFF 


LAST  1138 
LAST  327 
LAST  1138 
LAST  1138 


'6,  3762 
06  ,3763 
06 , ’764 

06,  3765 
06  ,3  766 
06,  3767 
06, 3770 
06,3  771 


1 AC  17 
01712 
1 AO  2 1 


1 

1 

l 


EARTHL 


2A007  0 
2AC23  0 

00017  1 
77616  0 


DLOAD  OCOMP 
AXC 

STOOL  50ALPI 
-AYO 

STOOL  5CALPL  +2 
L06ZER0S 
STCVL  50ALPL  +A 
50 ALP  L 

RVQ 


ASSEMBLE  REVISION  56 
PLANETARY  INERTIAL 


OF  AGE  PROGRAM  ZERLINA  BY  ZCROASTER 
ORIENT  AT  I C N 


•>276 
02  79 
0 280 
5281 
f 2 8? 
9 28? 
0 2 8 4 
0208 
0286 

0287 

0288 
D289 
0290 
U 29  1 
0292 
029? 


CONSTANTS  AND 
! i AST 
REF  13  LAST 
REF  1?  LAST 


ERASABLE  A S S I G N N E NT  S 
1128  12, 2004 

1079  0050 

1130  0051 

0000 
0010 
0010 
00  10 
0022 
0016 
0016 
0024 
0032 
0024 
0040 
0042 
0006 


1 B 1 

RPREX  IT 
FARTHMXX 
50  4KPR 
S TNNOD  I 
DVECTR 
cvec  n 

504  AZ 
TI  M SUB  M 
50  4LPL 
AVECTR 
BVEC  TR 
MM  AT  R I X 
CCB 
SOB 
504  F 


DPI/2 
SI 
S 2 
OD 
an 

8 D 
80 
IP  D 
140 
14D 
200 
2 6D 
2 OD 
32  D 
34D 
60 


# 


9:12  OCT.  21,  1970  SKIPPER  .121  PAGE  1139 
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1 SCALED  B-1 

R-TO-RP  AND  RP-TO-R  SUBP  EXIT 
EAP  THMX  , MOONMX  SUBR.  FXITS 
6 RFGS  R OR  RP  VECTOR 

2 SIN(NODI) 

6 0 V ECTOR  MOON 

6 C VECTR  MOCN 

2 AZ 

3 TIME  SUB  M (MOON)  T+TO  IN  GETAZ 

6 L OR  LP  VECTOR 

6 A VECTOR  ( MOON) 

6 B VECTOR  (MOON) 

18  M MATRI X 

2 COS ( B ) B-  1 

2 SIN(B)  B-1 

2 E (MOON) 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PRCGRA*  ZERIINA  BY  ZOROASTER 

L MEASURE  PENT  I NCCR PGRAT ION 

■>',  1 I NT  OR  P l — PERFORMS  THE  SIX  D I MfNS  ICNAL  STATE  VECTOR  DEVIATION  FOP.  POSITI 

K3  1 1 ? TN  ANOVCIOCITY  ')R  TFF  VINE  DIMENSIONAL  DEVIATION  OF  PO  SI  T I ON  , VE  l OC  I T Y , A 

J 00(  3 NL)  RAOAF  CR  L ANCMARK  GIAS.TFf  FUT  PUT  OF  THE  BV  ECTOR  ROUTINE  ALONG  WITH  T 

* HE  ERROR  TRANSITION  «ATR!X(W1  ARE  L'SFD  AS  INPUT  TC  THE  ROUTINE. THE  DEV  IA 

POOt'S  T I ON  IS  O PT  A IN  F r BY  COMPJT  ING  AN  ESTIMATE!)  TRACKING  MEASUREMENT  FROM  THE 

C IP  u F NT  STATE  VFCTCR  AND  CCMFAPINC  IT  WITH  AN  ACTUAL  TRACKING  MFASURFMFN 
R3DD7  T AND  APPLYING  A STATISTICAL  WEIGHTING  VECTOR. 

ROOQR  INPUT 

< 0009  D ME  NF  LG  = 0 6DI  NENSI ONAL  evECTCR  1=  °OIMENSICNAL 

R^DID  W = ERROR  TRANSITION  MATRIX  6X6  OR  9X9 

RC  II  v A PI ANCE  = VARIANCE  CSCAlAH) 

RO  12  OC- 1 TAO  = MF  A SCO  FT  OF  VIA  TI  CM  SCALAR) 

Rr  1 7 


9:12  OCT.  21.  1970  SKIPPER  .121  PAGE  1 HC 


USER'  S PAGE  NC. 


BV  ECTOR 


OR  9 DIMENSIONAL  BVFT  TOR 


TOC  14  OITPLT 

R 0 'IS  DEI  TAX  = STATE  VECTOR  DEVIATIONS  6 UP  9 DIMENSIONAL 

RTf  16  7 1 = VECTOR  USED  FOR  THE  INCORPORATION  6 OR  9 DIMENSIONAL 

<0017  GAMMA  = SCAIAR 

RD118  OMFOA  = OMEGA  WEIGHTING  VECTOR  6 OR  9 DIMFNTIONAL 

R00l<*  CALLING  SEQUENCE 
R0020  L CALL  INC0P.P1 

R0C21  NCRMAl  FXIT 

10022  1+1  OF  CAM  I NS  SECUFNCE 


7323 

on?4  PFF 
0025 


BANK  37 
SETLOC  MEASINC 
BANK 


3126  REF 


COUNT*  1L/INC0R 


0027  RFF  18  LAST  608 


E5  ,1400 


EBANK=  W 


002  8 
002o 
0030 
33  31 

0032 

0033 

3 3 34 
0035 
00  36 
0037 
00  3 8 
3339 
OCA  0 

004  1 
3342 
0043 


RFF 


REF 


REF 


fl  - F 
REF 
RFF 

REF 


14 


2? 

1c 


2 


23 


LAST  1139 


I A ST  1139 


I AST  59 4 
LAST  1140 
LAST  130 

LAST  1140 


. 

23,2531 
21,  21  32 
23,2533 
2 3,2  534 
23,  253s 
23  ,2536 
23,2537 

23. 2540 

23.2541 
2 3,  2 542 

23.2543 

23.2544 
23,  2545 
23  ,2546 


77620  0 
0 2 7 A 7 0 
66370  0 
CCC66  1 
00051  0 
0002 2 1 
66  374  1 
00022  1 
CCC52  0 
00006  1 
63775  1 
03525  C 
02467  0 
12665  1 
77775  1 
03533  1 


INC0RP1  STQ 

AXT.l 


A 


XT, 2 


Z123  V LOAD 


STORE 

VLOAD 


E5RFSS 
SS  P 
54D 

51 

1 RD 
SSP 
1 8D 

52 

6 

MX  V * 
RVCCTOR 
W ♦ 540 , 1 
7 I +1  8 C,  2 

BVFCTOR  +6 


IX  1 = 54  S 1=  18 

I X2  = 18  S2=6 

BVFCTOR  (0) 

B VEC  TOR  (1) 
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USER'S  PAGE  NO.  2 E5  S3 


0C44 

0045  REF 
3)45  REF 

0047  REF 

0048 

3349  RFF 

0050 

0051  REF 

0052  RFF 
0051  RFF 

3354, 

0055  RFF 

0056 

3357  REF 

0058  REF 

0059  REF 

0060 

0061  RFF 
3362  REF 

0063 

0064 

3)65  RFF 
0066 

0067  RFF 

0068 

0069  RFF 
3373 

CC71  REF 
00  7? 

3373  REF 
C074 

0075  RFF 
0075 

0077  RFF 
3378 

00  79  REF 

0080 

3381  RFF 
008? 

0083  REF 
008'- 

OC  35  RFF 
3386 

0087  PFF 

0088  RFF 
3)89 

0090 

0091  RFF 

0092 

C093  REF 


20  LAST  1140 

3 I AST  1140 

4 LAST  114  1 

24  I AST  1140 

21  LAST  1141 

5 LAST  1141 

6 LAST  1141 


3 I AST  596 


8 LAST  11M 

6 LAST  59  5 

9 LAST  1141 

7 LAST  1 HI 
K LAST  114  1 

8 LAST  1141 

11  LAST  595 
2 LAST  130 

12  LAST  1141 
1 


2 LAST  114  1 
2 I AST  1141 


3 LAST  1141 


23,  2547 
23  ,25  50 
23,  2551 
23,2  552 
23  ,2553 
23,  2554 
23  ,2555 
23,2556 
23,  2557 
2 3,2  560 
2?,  2561 
23,  2562 
23,2563 
23,  2564 
23  ,2565 
2 3 ,2566 
23,  2567 
23  ,?570 
23,  2 57  1 

23,2  572 

23,2573 
23,  2574 
. 

23,2576 
23,  2577 
23  ,2600 
23,  2601 

23  ,2603 
23,  26C4 
23  ,2605 
23,2606 
23,  2607 
23  ,2610 
23, 2611 

23,  ? 61 2 

23 ,261 3 
23,  2614 
23  ,2615 
23,2616 
23,  26  17 
23  ,2620 
. 

23,2622 

23,  2fc24 
23  ,2625 
23,26  26 

!3,  627 

. 


52717  1 
02555  0 
75112  1 
12665  1 
77775  1 
03541  1 
527  17  1 
02643  1 
75112  1 
12665  1 
777CO  0 
46563  0 

43104  0 INC0R1 
46541  0 
02706  1 
46572  0 
77775  1 
06520  0 
02657  1 

77201  1 INCDR1A 
00001  0 

0 264  3 1 
47036  1 
21615  0 
47515  0 
02651  l 
76234  0 
21615  0 
47515  0 
02657  1 
76234  0 
21615  0 

77171  0 

02  70  7 0 
CCOOO  1 
02665  0 
40151  0 
C27C7  0 
46616  1 
02670  1 
776  c4  0 
46627  0 

40112  1 1NC0R1B 
46627  0 
02670  1 
c 2 1 1 4 1 

00001  0 
46621  0 

6 1 5 c 1 1 INCOR  1C 
02665  0 


MXV*  VAD* 

W +1080,  1 
ZI  +180,2 
STORE  ZI  + 180,2 
VLOAD 

BVFCTOR  +120  BVECTOR  (2) 

M XV  # VAD* 

W +1620,1 

ZI  + 1 8D  ,2  B(C)*W+B(1  1*  (W+54  )+B(2  ) * ( W +13  8 JFIRST  PAS 

STORE  ZI  +180,  2 71  THEN  12  THEN  Z 3 

TI  X,l 

I NC  OR  1 
T IX  , 2 BON 

Z 1 23  LCCP  FOR  Zl  ,Z2 , 73 

DM  ENFLG 
INC0R1 A 

VLOAO 

Z EROVECS 
STCRF  ZI  +120 
SETPD  VLOAO 
0 

ZI 

VSQ  RT8 

TPMODE 
PD  VL  VSO 

Z I +6 

RTB  TAO 

TPMOOE 
POVL  VSQ 

ZI  +120 
RTB  TAD 

TPMODE 
TAD  A XT, 2 

V AP  IANCF 
) 

STORE  TRIPA  71*2  + Z2*2  + Z3*2  + VARIANCE 

T L CAD  BOV 

VARI ANCE  CLEAR  OVF INO 

+ 1 

STORF  TFMPVAR  TEMP  STORAGE  FOP  VARIANCE 

BZF 

INCOR  1C 
SL2  BOV 

INCOR  1C 
STORF  TFMPVAR 
I NCR, 2 GOTO 

DEC  1 

INC0R1 B 
TLOAD  ROUND 
TR  IPA 
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0094 

0095 
3396 
0097 
Of  98 
3399 
010f 
0 1<  1 
01C2 
0103 
0134 
r 1 os 
0106 
3137 
0108 
01U9 
(.1 1 r 
oill 


3 1 14 
3115 
0116 
3117 

0118 
0119 
3 119.3 
01196 
0 120 
3 121 
122 
0 123 
0124 
C 125 
3 126 
0127 
0 128 
3129 
C 1 30 
0 131 
9132 
0133 
3 1 3 A 
(135 
0136 
3137 
0138 
0 1 30 
OHO 
0141 


PFF  4 LAST  1141 

PFF  |o  L A S 1 1007 


LAST  912 
LAST  149 


MEASUREMENT  INCORPORATION 


2 3,  26  31 
23  ,2632 
23,  2623 

23.2634 

23.2635 
23,  2636 
23  ,2637 

23,  264  1 

23  ,264? 
2 ?,  2643 
2 3,  ? 6 44 

23,2645 
23,  2646 
2 3 ,2647 
23 ,2650 
2 1,  266  1 
23  ,265? 
2 3,  26  c 3 

23.2654 

23.2655 
23,  2656 
23  ,2657 
23,2660 

2 3,  2661 
23  ,2662 
23,  2663 
23,2664 
23  ,7665 
? 3,  2666 
23  ,2667 
23  ,2670 

3 3,  26  7 1 
23  ,2672 
2 3,  2672 
23,2674 
23  ,2675 
23, 2676 
23  ,2677 
2 3 , 2 7 CO 

•.  ' 1 
23  ,27  0 2 
23,  27C3 
23,2  704 
’ 3 ,2  705 

1 i,  2 7 C 6 
>3,27  '7 
23 ,2710 

2 3,  27  1 1 
23  ,2712 
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RFF  7 

REF  2 

RFF  5 LAST  1U2 
PFF  36  LAST  1A79 

REF  759  LAST  1136 
RCF  8 LAST  595 

PFF  15  LAST  1140 
PFF  16  LAST  1U2 

REF  1 

RFF  15  I AST  1 140 

REF  11  I AST  1l4l 
REF  2?  LAST  1141 

RFF  12  LAST  1142 
REF  23  I AST  1142 
RFF  13  LAST  1142 
REF  24  LAST  1142 
REF  1 

REF  2 LAST  149 
RFF  3 LAST  1142 
RFF  4 LAST  1142 


754C5  1 
C 2670  1 
76257  0 
57576  1 
02665  0 
6*1C1  1 

00050  1 
77775  1 
7 7 1 ? 4 1 
02102  t 
C0242  0 
40265  1 
06510  0 
CCCC1  0 
03500  1 
60351  C 
02665  C 
C0047  1 
65345  0 
00155  0 
03  54  7 1 
7 7 70  1 1 

00051  0 
70460  1 

' 

41471  0 
77650  1 
45663  0 
77731  1 

00052  0 
00066  1 
60775  1 
0 2643  1 
75134  0 
772C6  0 
02651  1 
53303  1 
75112  1 
77206  0 
02657  1 
5 3303  1 
75070  1 
61CC6  0 
4667J  l 
45575  1 
74260  0 
45575  1 
74266  0 
45575  1 
74274  0 


OMP 

SL* 


NORM 

XSU,1 


PUSH 

VX  M* 

PUSH 

VXM* 

PUSH 

VLOAO 

STORE 

VLOAD 

STORE 

VLOAD 

STORE 


SORT 
TEMPVAR 
TAO 
C,  ? 
TRIPA 
1 NCR, 2 
X2 
-2 

A XT, 2 

NORHGAM 

152D 

SFTPO 

0P1/4TH 

0 

GAMMA 

NORM 
TP  1 PA 
X 1 

PDDL 

MPAC 

DELTAQ 


SRI 

SI 

PJSH 


7 1 +6 

V AD 

W +1800,2 
VLOAD 
ZI  +12  0 
VAD 

W +1980,2 
TIX  ,? 

1 NC0R2 
ST  AOR 
OMEGA  +120 
ST  A OR 
OMEGA  +6 
STADP. 

OMEGA 


NORMAI  IZATION  COUNT  -2  FOR  GAMMA 


PO  0-1  = NORM  < A ) 


PD  ( - 1 - OF  L TAO /A 


COMPJTE  OMEGA  1,  2,  3 


PO  2— 7 = 0ME(~.  Al , 8-13=0MFGA2,  14-  1 9=  OMEGA  3 
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>H2 
0143 
3144 
O’ 45 
0146 
3147 
r 14P 

0 1/.Q 

0150 

• 151 
3 15? 
'153 

■»  154 
3156 

0156 

1 157 
0158 
0156 
3160 
0 1 6 1 

16? 
3 163 


REF 

REF 

REF 

REF 


REF 


RFF 


REF 

RFF 

REF 

REF 

REF 


16 


? 


LAST  1141 

LAST  H4l 
I A ST  1142 

I A ST  1142 

I A ST  1143 


LAST  569 


LAST 
L AST 
I AST 


1143 


114  3 


23,  27  13 
23  ,2714 
23,  2715 
?3,2716 
23  ,2  71  7 
2 3,  2720 
23  ,2721 

23.2722 

23. 2723 
23  ,2724 
23,  2725 
2 3,  2 72  6 
23  ,2727 
23,  2730 
23  ,2731 
23 ,2732 
23,  27  3 3 
23  ,2734 

, ' 1 
23,2  736 
23  ,2737 
23, 2740 


77214  0 
02706  1 
46720  0 
06520  0 
03517  1 
6(374  1 
00022  1 
00052  0 
00006  1 
77773  l 
74252  1 
53761  1 
00001  0 
20/01  0 
12707  1 
773C4  f 
46724  1 
02673  1 
77732  1 
02673  1 
77650  1 
C 2767  0 


1 NC0R2AR 

INC0R3 


RON  VLOAO 

OMENFLG 
I NC0R2  AB 
ZEROVEC S 

STOKE  OMEGA  *120 
AXT ,2  SSP 
18D 
S2 
6 

VLnAO* 

OMEGA  +1R0.2 
VXSC  VSL* 

0 

0,1 

STORE  OELTAX  +180,2 
TIX, 2 VLOAO 
I NC  0R3 
DEL  T AX  +6 

VSL3 

STORE  OELTAX  +6 
GOTO 


1 140 


EGRESS 
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USER'S  PAGE  NO. 
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G AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


9:  12  OCT.  21  .1970 


SKIPPER 


PAGE  1 144 


L MEASUREMENT  I NCrRPORATI  ON 

p 164  INC0PP2  -INCORPORATES  COMPUTED  STAT^  VECTOR  DEVIATIONS  INTO  THE 
Rr-165  ESTIMATED  STATF  VECTOR.  THF  STATE  VECTOR  JPCATFl)  MAY  BE  FOP  F I THFP  THF 

R 166  L Ey  Ok  THE  C SM  .05  TE  RMI  NfcO  BY  FLAG  VEHUPF  LG.  ( ZERO  = LEM)  II  = CS") 

R0l67  INPUT 

RC16R  PERMANENT  STATF  VECTOR  F C R EITHER  THE  LEM  CR  CS  M 

Rj!69  VFHTPP™  = UPDATE  VEHICLE  C=LF  M 1 =D  SM 

R\l76  Vi  = ERRCR  TRANSITION  MATRIX 

<171  DELTAX  = COMP  L TE  0 STATF  VECTTR  DEVIATIONS 

Rjl72  DMENFLG-"  SIZE  OF  W MATRIX  (ZERO  = 6X6)  (1=9X9) 

R 173  GAwpA  = SCALAR  FCH  I NC  C F F C R AT  I ON 

R0I74  7 1 = VC'  TOP  USE  3 IN  I NC  CP  PORATI  CN 

Rf  1 75  OMFO.A  = W E IGHT  INO,  VECTOR 


USER  'S  RAGE  NO. 


?,)!? 


0 1 BA  PEF  2 I AST  1140  TO  1144: 


138 


138* 


CCU NT*  *$/  INCOR 


3 1 R5 
01  86 
187 

P 1 88 
0189 
3190 
0 19  1 
0 19? 
3193 
9194 
0195 
Cl  96 
0197 
3198 
0199 
0?00 
3201 
0202 
3233 

0204 

0205 
3236 
0207 


REF 

REF 

REF 

RFF 

RFF 

REF 

RFF 


REF  1 
REF  2 
REF  1 
REF  240 
RFF  1 
REF  l 
PFF  101 


I AST  114  3 
LAST  114  2 
LAST  130 
I A ST  1 144 

LAST  1144 
I AST  130 
LAST  1144 


LAST  109 
LAST  1119 


2 3,  274  1 
2 3 ,2742 
2 ’ » 2 7 4 3 
23, 2744 
23  ,2745 
23,  2746 
2 3 ,2  747 
23,2  750 
23,  2751 
23  ,2752 
2 3,  2 7 5 3 
23,  2754 
23,2755 
23,  2 7 56 
23,2757 
23,2760 
23,  276  1 
• 

2 3,  276  3 
23,  2 764 
23,2  765 
23,  2766 
23  ,2767 


4502C  1 
02767  0 
27410  1 
74  375  0 
03503  1 
03500  1 
26713  0 
03511  l 
7776  1 1 
03500  1 
26721  1 
03517  1 
77761  1 
03500  1 
02727  1 
77776  1 
3 3242  0 
5 5 1 3 1 5 0 
55' 316  0 


0 5364  0 FAZA 


STO 

VLOAO 

STOVL 
VX  SC 


STORE 

EXIT 

CAF 


CA  LL 
EGRFSS 
I NTSTALL 
VXSC 
OMEGA 
GAMMA 
OMEGAM  1 
OMEGA  +6 

GAMMA 
0MFGAM2 
OMEGA  + 120 


5400 
W I X A 

wi  xe 

ZERO 
Z IXA 
ZI  XR 

P HA  SC  HN  G 


CAIC.  GAMMA  * 0MEGA1  ,2  ,3 


INITIAL  IX  1 SETTING  FOR  W MATRIX 


INITIAL  IX  2 SETTING  FOR  7 COMPONENT 


~.*P:  ASSFMBLF  REVISION  86  OF  AGC  PROGRAM  ZERLINA  RY 


MEA  SURF  ME  NT  INCORPORATION 


3 238 

2 3,  2 770 

04022 

0 

0209 

PFF 

70 

l AST 

974 

23  ,2771 

C 5515 

0 

0 210 

REF 

2 

1 A ST 

705 

23,2772 

CC236 

0 

0212 

PFF 

2 

last 

1144 

2 3,  2773 

3 1316 

1 FAZ  A 1 

0213 

RFF 

3 

LAST 

1144 

23,2774 

55*  315 

0 

321  A 

REF 

2 

LAST 

1 144 

23,  2775 

2 1320 

1 

0215 

REF 

2 

LAST 

1 144 

23,2776 

55*317 

1 

9216 

RFF 

715 

LA  ST 

1014 

23,?  777 

0 6051 

0 

3217 

2 3,  3.0 CO 

72  1 5 C 

1 

0218 

PFF 

4 

LAST 

1145 

23,30f  1 

01315 

1 

0 219 

RFF 

3 

LA  ST 

1145 

23,3002 

■ i 7 

0 

0220 

23, 300 3 

7C  721 

0 

0221 

PFF 

17 

LAST 

1142 

23  ,3004 

00051 

0 

3222 

23,  30C  5 

CCC06 

1 

0223 

PFF 

14 

LAST 

1 142 

23,  300  6 

75134 

0 

0 2 24 

’ , 

60?76 

1 

3225 

RFF 

17 

l AST 

1143 

23, 3010 

CCC62 

0 

0226 

23  ,3011 

65  161 

1 

22  7 

RFF 

3 

LA  ST 

1144 

23  ,3012 

02713 

0 

0228 

PEF 

18 

I AST 

1 1 4 5 

23,  30  1 3 

OC05  1 

0 

<229 

23  ,3014 

57144 

1 

3233 

REF 

20 

LAST 

1142 

2 3,  3..' 15 

CC047 

1 

02  31 

REF 

3 

1 AST 

1 14  2 

23,  3iU6 

02102 

0 

0232 

23  ,3017 

65057 

0 

3233 

23,  3020 

57  576 

1 

0234 

RFF 

1 9 

l AST 

1145 

23  ,3021 

OC  051 

0 

n 2 35 

23 ,3022 

776  53 

1 

02  3f, 

REF 

1 

l AST 

1 142 

23,  302  3 

02467 

0 

< 2 37 

PFF 

1 

23  ,3024 

02735 

1 

323H 

23,  3025 

57543 

1 

0239 

REF 

15 

LAST 

1 145 

23,  3026 

75134 

0 

0 240 

. 

74301 

0 

3241 

RFF 

20 

l AST 

1145 

23,  3030 

CGC52 

0 

0242 

RFF 

3 

1 AST 

1144 

23  ,3031 

02721 

1 

3 243 

23  ,3032 

71124 

0 

0244 

REF 

21 

L AST 

1U5 

23,  3p 3 3 

Of  C 51 

0 

0245 

REF 

21 

LAST 

1 145 

23 ,3034 

00047 

1 

3246 

23,  3035 

53674 

1 

?2  A 7 

REF 

4 

LAST 

1 1 4 p 

23,  3036 

02102 

0 

0 248 

23,3037 

57576 

1 

3249 

23, 3C40 

5 27  24 

1 

0250 

REF 

22 

l AST 

1 145 

23  ,304,1 

00051 

0 

0251 

REF 

26 

L A ST 

1145 

23  ,3042 

02555 

c 

0252 

RFF 

2 

l AST 

114  5 

23,  304  3 

02743 

0 

025  3 

2 3 ,3  344 

77614 

1 

3254 

RFF 

5 

l AST 

1 14  3 

23,  3045 

C2746 

0 

02  5 5 

REF 

1 

23,  3c  46 

47066 

1 

*256 

23  ,3047 

57543 

1 

3257 

RFF 

16 

L AST 

1 145 

23, 3050 

75  134 

0 

0258 

23  ,3051 

74  30  1 

0 
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OCT  04022 

TC  UP  FLAG 

AORES  RE1NTFLG 

CA  WI  XB  START  FIRST  PHASE  CF  INC0RP2 

TS  W I X A TO  UPDATE  6 OR  9 DIM.  W MATRIX  IN  TEMP 

C.  A 7 1 X B 

T S 2 I XA 

TC  I NT  PR  FT 

LXA.1  LXA.2 
W I XA 
Z IX  A 

SSP  D LOAD# 

S 1 
5 

Z I , 2 

DCCMP  NORM  CALC  UPPER  3X9  PARTITION  OF  W MATRIX 

S2 

VXSC  XC  HX,  2 

0MEGAM1 

S2 

LX C,  2 X AD,  2 
X? 

NOR  MG  AM 
VS  L#  X C HX , 2 

0,2 

S 2 

VAO* 

W +54D  ,1 
STORE  HOLDW 

0 LOAD#  OCCMP  CALC  MIODLF  3x9  PARTITION  OF  W MATRIX 

ZI  , 2 
NORM  VXSC 

S2 

0HEGAM2 
X CHX , 2 LX  C ,2 
S2 
X 2 

XAD  ,2  VS  L# 

NOP  MG  AM 

0 , 2 

XCHX.2  VAD* 

S 2 

W +1080,1 
STORE  HOLDW  + 6 
BOFF 

P ME  NF  LG  BRANCH  IF  6 DIMENSIONAL 

FA7R 

DLCAD*  DCCMP  CALC  LOWER  3X9  PARTITION  OF  W MATRIX 

Zi  ,2 

NORM  VXSC 
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?259 
G260 
^26  l 
02ft? 
0263 

02b5 

"266 

3267 

0268 

1 260 

02  70 
6271 


'5?  74 
!»275 
r 276 
'277 
0 2 78 
'270 
3293 
02  8 1 
O ?ft? 
3293 

0284 

0285 
C2  86 
02  87 
3288 
C 289 
0200 
320] 
0292 
0 297 
02  9 A 
C 205 
3206 
02  97 
'298 

3290 
0300 
0 3C  1 

0302 

0303 
3334 
0305 
0 306 
3337 
0308 


PFF  23 
PFF  3 

OFF  24 
PFF  22 

REF  5 


PFF  26 
PFF  27 
PFF  3 

REF  16 

PFF  5 
RFF  1 
PFF  3 

PEF  A 
RFF  2 
PEF  3 
PFF  316 

PFF  6 
RFF  18 


PEF  4 
RFF  28 

RFF  5 
REF  29 

REF  6 
RFF  1 
PFF  6 

R I F 30 


PFF  1 

RFF  1 

REF  A 
PEF  1 

PEF  2 
RFF  1 

RFF  17 


l AST  1 1 A5 
LAST  1144 

! AST  H46 
LAST  11A5 

LAST  1145 


LAST  1146 
LAST  1145 
LAST  1145 

LAST  596 

LAST  11A5 

I AST  1145 
LAST  1145 
I AST  226 
LAST  1145 
1AST  1145 

LAST  1 146 
LAST  1145 


L AST  1 1 4 6 
LAST  1146 

LAST  1146 
I A ST  1146 

LAST  1145 

I AST  1146 
LAST  1146 


LAST  1146 


LAST  1146 


LAST  1146 


23,  3052 
23  ,3053 
23,3054 

2 1,  3 55 

23  ,3056 
23,  3057 
2 3,  30  60 
23,3061 
23,  3C62 
27  ,3063 
2 3,3  C 64 
23,  3065 
23  ,3066 
2 3,  3C67 

2 3.  30 7C 

23 , 3 C71 
23,  3 C 7 2 
23  ,3073 

23 , 7 C 7 4 
23,  3075 
23  ,3076 
2 3,  3C 77 
2 3,  3100 
23,3101 
23,  3102 
23  ,3103 
23 ,7  104 
23,  3 10  5 
23  ,3106 
23,  3 1 C 7 
23,  3 1 1C 
33,3111 
23,  3112 
23  ,3117 
23,3114 
2.3,  3115 
23  ,3116 
. 

23.3120 

23.3121 

23. 3122 
23  ,3123 
23 ,3  L 24 
23,  3125 
23  ,3126 
23,  7127 
23,  7130 

27.3131 

23. 3132 

23.3133 


00C52  0 
02727  1 
71124  0 
00051  0 
00047  1 
53674  1 
02102  0 
57576  1 
52724  1 

00051  0 
07643  1 
0 27  c 1 C 
77624  1 
11216  1 
77  7 76  1 

3 1315  1 
6 3243  1 
55*316  0 
3 1317  0 
6 7760  1 
55 ' 320  0 
C 6C51  0 
66350  1 
01315  1 
CCC5  1 0 
00006  1 
77775  1 
C2735  1 
06467  1 
77775  1 
02743  0 
06555  1 
77214  0 
02746  0 
47124  0 
02751  0 
06643  0 

52  IOC  1 
47122  0 
4713?  1 
77634  0 
46767  C 
43335  0 
01321  0 
07245  0 
52C3C  0 
47132  1 
47117  0 
77624  1 
11216  1 


c A Z B 


FAZ81 


FAZB2 


FAZR5 


FAZC 


S2 

DM E GAM  3 
XCL'X,2  LX  C ,2 
S2 
X 2 

XAD  ,2  VS  L* 

NOR  MG  AM 
' . 2 

XCHX.2  VAD* 

5 2 

W +1620,1 
STORE  HOLOW  ♦ 1 20 
CALL 

GRP2  PC 

EXIT 

CA  rflXA 

AD  600 

T S W I XP 

CA  Z I X A 

AO  MI  NUS2 

TS  ZIXB 

TC  1NTPRET 

L XA , 1 SSP 
R IX  A 
Si 

6 

VLOAD 

HOLD  W 

STORE  rl  +540,  1 
VLOAO 

HOLOW  +6 
STORE  W +1080,  l 

BOFF  VLCAD 

DMENFLG 

FAZB5 

HOLOW  +120 
STORE  W +1620, 1 
TIX.l  GOTO 

+ 2 
FAZC 

RTB 

FAZA 

SLOAD  DAD 

Z I XB 
1 2DD 
BHIZ  GOTO 

FAZC 
FAZB2 

CALL 

GRP2PC 


9:12  OCT.  21  ,1970  SKIPPER 
USER  *S  PAGE  NO.  7 


.121  PAGE  1146 

E5  S3 


START  2ND  PHASE  OF  INC0RP2  TO  TRANSFER 
TEMP  REG  TC  PERM  W MATRIX 


DONE  WITH  W MATRIX.  UPDATE  STATE  VECTOR 


'•'VP  : ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


MEASUREMENT  INCORPORATION 


0303 

031°  REF 
: 3 1 L REF 
C3 1 2 PFF 
0313 

331 A RFF 
0315  REF 
0315  RFF 
3317 

0 318  RFF 

0319 

0320 

0321  REF 
332? 

0323 

0324 

3 3?5  REF 
03?  6 
0 327 

032P  REF 
0329  RFF 
333^  REF 

0331  RFF 

0332 
3333 

0334  REF 
C 335 

0.336  RFF 
0337  REF 
3339  RFF 
03  3 Q 

0340  RFF 
3341  RFF 

0342  RFF 

0343 

0344  REF 

0345  REF 
3346  REF 
0347 

C 348  RFF 
3343  REF 
03491 

9 349  2 RFF 

0350 

0351  RFF 
338?  RFF 
03S?  REF 
0 354 

3355  REF 
0356 


5 LAST  595 
R LAST  1143 
2 LAST  149 

12  LAST  594 
1 


2 LAST  577 


5 LAST  711 


Q I AST  1147 


4 l AST  326 
1 

5 LAST  1147 
In  LAST  1147 


4 I AST  326 


5 LAST  1147 


1?  LAST  774 
11  LAST  1147 
1*  LAST  1147 

11  1 AST  774 
1?  LAST  1147 

12  LAST  1147 

3 LAST  302 
1 

IP  I A ST  1146 

13  LAST  1147 

1 

2 LAST  37 


23, 3134 
23  ,3135 
23,3136 

73,  3 1 3 7 

23,3140 
23,  3141 

• 

23,3143 
23,  3144 
23  ,3145 
23  ,3  146 
23,3147 
23  ,3150 
,3151 
• 

23,3153 
23, ?154 
23  ,3155 
23,3  156 
2 3,  3 15  7 
23  ,?  163 
23,  3161 
. 

23,3163 

22,  3164 

23 .3165 

23.3 166 

23,  1167 
23  ,3171. 
23,  3171 
23,  3172 
23,3173 
23,  3174 
23  ,3175 
23,3  176 
23,  3177 
23  ,3200 
23,  3201 
73,  l2<>2 
23.32C3 
23, 3204 
23  ,3205 
?3 ,3206 
23,  3 207 
23  ,3210 
23,  32  1 1 
23,  3?  1 ? 
23,3213 
23,  3214 
23  ,32  15 


53375  0 
0170  1 0 
C27C1  0 
03472  C 
47014  1 
CC7C7  1 
47232  1 
26767  0 
770C4  0 
57735  l 
00000  1 
770  14  1 
04344  0 
47153  0 
00002  0 
53775  1 
02665  0 
57205  1 
40055  0 
01521  0 
47172  0 
25521  0 
C2673  1 
53257  1 
572C2  0 
01527  0 
77600  1 
47176  1 
35527  1 
47205  0 
53375  0 
01535  0 
C2665  0 
01535  n 
c3375  0 
01543  1 
02673  1 
Cl  543  1 
45134  0 
C2030  0 
27671  1 
77624  1 
11216  1 
47014  1 
00707  1 
47?35  0 
26  746  C 
77624  1 
26C70  1 
77624  1 


FAZAB 


FAZAB  1 


F AZAB2 


FAZAB3 


FAZA04 


VLOAO  VAD 
X780 

PELT  AX  +12 
STORE  TX789 
BON  RTB 

V E H U PF  LG 
DOC  SM 
MOVEPLFM 
BOVB  A X T ,2 

TCOANZ IG 


BOFF  A XT, 2 

MOONTHIS 
+ 2 
2 

VLCAD  VSR* 

DE  LTAX 
0 -7,  2 
VAC  BOV 

TDEl  TA  V 
FAZAB  1 

STCVL  TOELTAV 

3ELTAX  +6 
VSR*  VAC 

0 -4  ,2 
TNUV 

BOV 

= AZAB2 
STCALL  TNUV 

F AZAB3 
VLOAD  VAD 
RCV 

DE  LTAX 
STORE  RCV 
VLOAU  VAD 
VC  V 

DEL  TAX  +6 
STORE  VCV 
SXA.2  -All 
PRODY 
RECTI  FY 

CALL 

GRP2  PC 
BON  RTR 

VFHUPFLG 

DOCS  Ml 
MOVFALFM 

CALL 

S VDHN2 

CALL 
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USER'S  PAGE  NO.  8 E 5 S3 

START  3 RO  PHASE  OF  INC0RP2 

7TH ,8TH ,9TH, COMPONENT  OF  STATE  VECTOR 

INCORPORATION  FOP  X789 


R2  7 IF  MOON  ORBIT,  R29  IF  FART  H 


B5  IF  MOON  ORBIT,  B7  IF  EARTH 


STORF  DOWNLINK  STATE  VECTOR 


i»ft  P : 


ASSEMBLE  PFV1SICN  56  OF  AGC  PROGRAM  ZERl  1NA  BY  ZOROASTER 


MEASUREMENT  I NCORPnR  A TI  PN 


>357  RFF  19 

035R 

J 359  FEE  7 

0360  PEF  1 

0361  PFF  3 

7367  PFF  A 

0363 

0 364  RFF  6 

3365  RFF  9 

<366 

367  PFF  57 

036R  RFF  3 

0369 

337?  REF  1 

0 3, 7 1 RfF  1 

037? 

3373  RFF  1 

0376  REF  2 

0375 

0376  REF  1 

0377  RFF  18 

3 3 7H 

03  79 
0380 

363?  REF  1 

0601 

0402  REF  1 


t AST  1 147 
LAST  1146 

LAST  1147 
l A ST  1147 

LAST  1144 
LAST  1082 

LAST  874 
L AST  639 


I AST  302 


LAST  1143 


23, 7216 


23,  ->22  1 
23  ,3222 
23,  3273 
23,  3?24 
23,3225 
23, 7226 
23  ,3227 
23  ,3230 
23,  3231 
23  ,??3? 
23,  3233 
23,  3234 
23,3235 
73,  3236 
77  ,3237 
23 , 3240 
23,  324  1 
23  ,2517 
27,  3247 
23,  32  43 
33,7744 
22,  20C0 
22  ,3663 


11216  1 
77214  0 
02746  0 
47224  0 
07472  0 
C 1 701  C 

66150  0 FAZAR5 
02  767  0 
CCCS2  C 
77776  1 
0 4638  0 
27421  O 

52034  1 HOCSM 
26722  1 
4714  4 0 

45034  1 DOCS  Ml 

26673  1 
26114  1 
7 7 6 50  1 
47215  1 

ZERC10 

CCC66  1 5400 

77771  0 600 

00014  1 12  OD 


GPP2PC 

BOFF  VI  PAD 

OMENFLC 
FAZAB5 
T X 789 

STORE  X7  8° 

L XA  , 1 SXA,  1 
EGRESS 
QPRET 

EX  IT 

TC  POST  JUMP 

CAOR  JNTWAKF 

RTB  GOTO 

MOVE  PCS M 
FAZAH 

RTB  CALI 

MOVE ACSM 
SVDWN  1 

GOTO 

FAZAB4 

= ZEROVECS 

OEC  54 
DEC  -6 
DEC  12 

SETLOC  PE  NOE  Z 
RANK 

CCUNT*  ffc/INCOR 


0403 

04i.4 

3 4 ?•  5 

04  06 
0407 
3438 
C4f  9 
?4ir 

04 1 1 

04 1 2 
3417 
04 1 4 
34  1 6 
3416 
041  7 
0418 
04  1 9 
04  20 
3421 
04  22 
0 423 

3424 


PCF 

REF 

PEF 

PFF 

RFF 

PEF 

REF 

RFF 

PFF 

RFF 


17  LAST  1145 
1 

IB  LAST  1148 

2 I AST  1148 

3 LAST  1148 
19  LAST  1148 

4 LAST  1148 

5 LAST  1 148 

6 I AST  1 148 

7 I A ST  1148 


22,  3663 

22  ,3664 

. 

22,  36,66 
22  ,3667 
22,  3670 
22  ,3671 
12 ,767? 
22,  3673 
22  ,3674 
22,  3675 
22,  3676 
22  ,3677 
22,  3 7CC 
22  ,3701 
22  ,3702 
22,  37.  7 
12  ,37 r 4 
22,  37C5 
. 

22  ,7707 
22, 3710 


'1575  1 

02647  i 
2 4 C 4 5 C 
02651  1 
41446  1 
5CC/5  C 
00045  0 
456.75  1 
45545  1 
77732  1 
51575  1 
02657  l 
45206  1 
C0045  0 
71240  1 
45705  1 
77626  C 
7773 2 1 
66145  1 
00045  0 
00044  1 
62  1C  1 0 


N E WZ COM0  VI  PAD  APVAL 
7 I 

STCVL  NORMZI 
?!  +6 

ABVAL  PUSH 
DSU  BMN 

NORMZ I 
+3 

DLOAD  STAPR 
STORE  N0RM7I 
VLOAD  ABVAL 

Zl  +120 
PUSH  DSU 

NORMZ I 
BMN  OLOAO 


+3 

STADR 

STORE  NORMZ  I 
D LOAD  SX  A , 1 
NORMZ I 
NORMZ  I 
NORM  I NC  P , 1 


9:12  PCT.  21,1970  SKIPPER  .121 
USER  'S  D AGF  NO.  9 

PHASE  CHANGE 


PAGE  1140 
E5  S3 


6 DIMENSION  At 
9 DIMENSIONAL 


EX  IT 


STORE  DOWNLINK  STATE  VEOTOR 


LARGEST  ABVAL 


SAVE  XI 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L MEASUREMENT  I NCCR  PCR  AT  I ON 


0425 

REF 

37 

LAST 

1142 

22  ,3711 

00047  1 

XI 

9426 

22, 3712 

00002  0 

DEC 

2 

0427 

22  ,3713 

53775  1 

VLOAD 

VSL* 

9428 

REF 

?0 

LA  ST 

1148 

22  ,37  14 

C2643  1 

7 I 

"42q 

22, 3715 

20201  0 

0,1 

0430 

RFF 

2) 

I AST 

1 1 49 

22  ,3716 

26643  1 

STOVL 

7 I 

3 A 3 1 

RFF 

22 

LAST 

1 149 

22,  371  7 

02651  1 

ZI  +6 

0432 

2 2,  3 720 

77657  0 

VSL  * 

0433 

22,3721 

20201  0 

0 , 1 

9 434 

REF 

23 

l AST 

1149 

22,  3 722 

26651  1 

STOVL 

ZI  +6 

0435 

REF 

24 

LAST 

1149 

22,3723 

02657  l 

ZI  ♦ 1 219 

0 4 36 

22  ,3724 

66057  0 

VSL* 

SX  A,] 

0497 

22,  3725 

20  2d  0 

C,  1 

•'438 

RFF 

8 

LAST 

1148 

, 

00045  0 

NORM  Z I +1 

9 439 

REF 

25 

LAST 

1 149 

22,  3727 

C2657  1 

STORE 

ZI  +120 

044  0 

22,  3730 

54150  1 

LXA  , l 

XSU,  1 

13441 

RFF 

6 

LAST 

1146 

?2  ,3731 

0210?  0 

NORMGAM 

344? 

REF 

L AST 

1 149 

22, 3732 

0C045  0 

NORMZI  +1 

0443 

. 

77660  l 

XSU,  1 

0 444 

REF 

10 

LA  ST 

1 14Q 

22  ,3734 

00045  0 

NORM  Z I +1 

044  5 

22,  37  35 

7013C  1 

SXA  ,1 

LXC  ,1 

446 

REF 

7 

LAST 

1149 

22  ,3736 

02102  0 

NORMGAM 

9 44  7 

REF 

11 

LAST 

1 149 

22,  37  ? 7 

CCC45  0 

NCPMZI  +1 

0448 

22, 9740 

40270  0 

XAD  , 1 

SE  TPD 

0 449 

REF 

12 

LAST 

1 149 

22  ,3741 

00044  1 

NORMZI 

3453 

22, 3742 

CCCC  3 1 

20 

0451 

22  ,3743 

77650  1 

GOTO 

0452 

REF 

2 

LAST 

114? 

?2  ,3744 

46665  0 

INC0R2  -3 

0453 

0044 

NORM?  I 

- 

360 
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SAVE  SHIFT 


GAP  : 


ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  Z ERL  IN  A BY 


ZOROA  STB3 
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L CONIC  SUBROUTINES 


USER'S  PAGE  NO. 


EO  S3 


POD- I PPre-RAM  DESCRIPTION  - ENTIRE  CONIC  SUBROUTINE  IDG  SFCTJON 
ROOT  3 MOO  NO.  - r 

R0005  MCO  BY  KRALSC 

R0007 


DATE  - 1 S EPT  EMBER  1957 

LOG  SFCTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R 0C0  3 FUNCTIONAL  OESCRIPTICN  - 

■O.T9  THE  FOLLOWING  SET  3F  SUBROUTINES  SOLVE  VARIOUS  PROBLEMS  INVOLVING  THE  TRAJECTORY  PROOUCED  BY  A CENTRAL 

;;  11  i NVERSF-SCUAPE  FORCE  ACTING  CN  A POINT  MASS.  AS  OUTIINED  IN  THF  CMC  AND  LGC  LUNAR  LANDING  MISSION  GSOP,  SECTION 

< o 13  5.5.  1.2.  A GENERAL  LSAf.F  PC  I NT-CF -VI  E W WAS  TAKEN  IN  FORMULATING,  MECHANIZING,  AND  SCALING  THE  SUBROUTINES, 

R 1 > 1 5 pATHFP  THAN  OPTIMIZING  FACH  FOR  A PARTICULAR  USE.  THE  PFF  0 PF  , MULTIPIF  USAGE  CAN  HE  u ACE  CF  THF  SUBROUTINES 

R:<  17  INVOLVING  AMY  REALISTIC  SET  CF  CONSTRAINTS.  IT  SHOULD  BF  NOTEO  THAT  ONL  Y ONE  SET  OF  C COI  NG  IS  USED,  WHETHER  T HE 

RO  IP  EARTH,  MOON,  OP  ANY  OTHER  CELESTIAL  BODY  IS  SPECIFIED  AS  THE  CENTPAL  HCOY  OF  THE  PROBLEM,  PROVIDED  ONE  OBSERVES 

Rfl'21  TFE  INHEPCNT  SCALE  CHANGE  REflU  IRED  IN  PDSITIJN,  VELOCITY,  MU,  AND  TI  Kfc  , AS  OUTLINED  IN  MISSION  PROGRAMMING 

* :•  Z3  OFFINITION  MF  Mf  NC.  10.  THIS  CAN  0F  ACCOMPL  IS  HFC  BY  SIMPLY  ADDING  TO  THt  M UT  A8L  E AND  INITIALIZING  THE  SUBROU- 
R5:'?P  T INFS  APPROPRIATELY. 

^ 7b  DUE  TP  THE  UNIFORMITY  OF  T F F EQUATIONS  INVOLVFn,  CODING  WAS  MINIMIZED  RY  TREATING  INDIVIDUAL  EQUATIONS  AND 

1 i UA TI 01 SUB  11  TIM  5 rr  LOWER  RANK  WHENEVER  POSSIBLE.  AS  A RESULT,  THREE  BY-PRODUCTS  3'.--  UTINES, 

R333'J  CIPECTLY  USABLE  AS  INDEPENDENT  SUBROUTINES,  WERE  GFNFRATFn. 


T 0031  PE  STR  IC  TI  CNS  - 


i 00  36 
R33  T7 
R 0039 
R9P41 

R00A3 


THE  ONLY  L IM I TATIUN  IN 
LIMIT  OF  FACH  PAPAMETEP  AS 
TORIES  COULD  BE  HANDLED. 

S INC  F T HI  SUBROUTINE  S 
T"F  PISHIIST  (CUE  TP  ITS  LI 
TO  INTERRUPT  EACH  OTHER.  I 


THE  SCOPE  OF  PROBLEM  WHICH  CAN  BE  SGLVED  BY  A PARTICULAR  SUBROUTINE  IS  THE  SCALING 
SPECIFIED  IN  THE  GSOP.  THESE  SCALING  LIMITS  WERE  CHOSEN  SO  THAT  ALL  FEASIBLE  TRAJEC- 

IFXCFPT  KEPLFR)  USE  C OMMCN  SUBROUTINES  OF  I CWER  RANK  WHICH  US  F ERASABLE  OTHER  THAN 
M IT  E C SI7FI  ANC  COMMON  IN  T ERPT  ET  IVC  SWITCHES,  THE  CONIC  SUBROUTINES  CANNOT  BE  ALLOWED 
T I S UP  TC  THF  USER  TO  GUARANTEE  THIS  CONDITION. 


GAP:  AS  SC  MB  LE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1151 


CONIC  SUBROUTINES  USER'S  PAGE  NO.  2 EO  S3 

PDA  A 
R00A6 
ROOAR 
R0050 

PROGRAM  DESCRIPTION  - KEPLER  SUBROUTINE  DATE  - 11  OCTOBER  1967 

MOD  NO.  -1  LOG  SECTION  - CONIC  SUBROUTINES 

MOD  BY  KRAISE  ASSEMBLY  - COLOSSUS  103  AND  SUNDANCE  222 

PCO  NC-  - 2 (AUGUST  196B  ) BY  ROBERTSON:  TO  PERMIT  BACKDATING  BY  MORE  THAN  CNE  ORBITAL  PERIOD. 

100502  MOO  NO.  - 3 IOFC  1968)  RY  RCPERTSCN:  SUPPRESSION  OF  X-MODULO-ING 


RD3  5J  3 

MOD.  NO.  - A (JAN  1969  ) BY  ROBERTSON:  CLEAR  OVFIND  AT  KEPLEP  ENTRY 

10051 

R005? 

R005A 

100*56 

RDD5B 

R 0060 

ROC  62 
RO063 

10065 
R006c;  l 
R00653 

10066 

FUNCTIONAL  DESCRIPTICN  - 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  THE  DFS I RED  TRANSFFR  TIME  THPOUGH  WHICH  THE  STATE  IS  TO 

BL  UPCATED  A|  CNG  A CCNIC  T RAJ  FCTORY,  COMPUTES  THE  NEW,  UPDATED  STATE  VECTOR.  THE  TPAJECTCRY  MAY  BE  ANY  CONIC 
SECTION  - CIRCULAR,  ELLIPTIC,  PARABOLIC,  HYPERBOLIC,  OR  RECTILINEAR  WITH  R E S°  F C T TO  THF  FARTH  OR  THF  MOON.  THE 
USE  IF  THF  SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BCDIES  BY  SIMPLE  ADDITIONS  TC  THE  MUT  ABI  E WITHOUT 
INTRODUCING  ANY  CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGF  S IN  POSITION  AMD  VFLCCITY.  AN  ITERA- 
TION TECHNIQUE  IS  UTILIZED  IN  THE  COMPUTATION. 

IF  A N CG  AT  IV  E T I ME- OF- FL  IGHT  IS  INPUT,  THE  PROGRAM  WILL  SOLVE  FOR  THE  STATE  WHICH  WOULD  RE  PROTUCFD  BY 
EXTRAPOLATI  NG  THF  POSITION  BACKWARD  IN  TIME. 

TF  THE  ABSOLUTE  VALUE  OF  THE  OESIPED  TRANSFER  TIME  EXCEEDS  THE  ORBITAL  PERIOD,  THE  SUBROUTINE,  THROUGH  A 
MCDUI  Ap  TECHNIQUE,  WILL  COMPUTE  TEE  STATE  CORRESPONDING  TO  THE  DESIRED  TI  MF  (WHETHER  POSITIVE  OR  NEGATIVE). 

RD  . '.7 

R 0068 

R 0 0 7 1 
R0Q7  3 
10075 

TEE  RESTRICT  IONS  AR  E - 

1.  (PREVIOUS  RESTPICTIGN  CN  THF  NEGATIVE  DESIRED  TRANSFER  TIME  IS  NOW  DELETED.) 

2.  THE  PARAMETERS  IN  THE  PROBLEM  CANNOT  EXCEED  THEIR  SCALING  LIMITS  AS  SPECIFIED  IN  THE  GS3P  . IF 

ANY  OF  TEESF  LIMITS  ARE  EXC F FDED , THE  RESULTING  SOLUTION  WILL  PF  MEANINGLESS. 

RDD76 

R 0078 

10DRP 

RD  DP  1 

THE  NUMBER  OF  ITERATION*  AND,  THEREFORE,  THE  COMPUTATION  SPEFD  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE 

GUESS,  KKEPNLW.  THE  AGC  COMPUTATION  TIME  IS  APPR  J X I MA  TEL  Y .061  SECONDS  FOR  INITIALIZATION,  .'65  SECONDS  FOR  THE 
FINAL  CCMPUTATI  CNS , PLUS  .083  SFCCNDS  FOR  EACH  ITERATION. 

R0082 

R0083 

ROOB5 

1 0086 

REFERENCES  - 

p-479,  MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP,  SECTION  5.5,  SGA 

MEMO  67  —A  . 

RDDB7 

INPUT  - ERASABLF  INITIALIZATION  REQUIRED 

R008P 

10089 

RD  D D ^ 

* SCALF  FACTOR  * 

VAP  I AB  LE  * I N POWFRS  OF  2*  DESCRIPTION  AND  REMARKS 

R 0091 

R 009  2 

RRFfT  * *2  ° FC«  EARTE*DP  INITIAL  POS  I T I ON  V ECTOR  IN  METERS 

* +27  FOR  MOON  * 
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H0093 

R0096 

R0095 

3 0097 
R5D9B 
R009R7 

1 0099 
RD1  ' 
Roicl 

VFFCT  * +7  FOR  FART  H *0P  INITIAL  VELOCITY  VECTOR  IN  H ETER  S/C  FN  T I SECOND 

* + 5 FOP  MOON  7 

Xl  (380*  NCNE  ’INDEX  REGISTER  SET  TD  - 2q  OR  - IQ  ACCORDING  TC  WHETHER  THE  EARTH  CR  MOON, 

* 7RESPFCT  I VFLY  , IS  THE  CENTRAL  BOOV 

TAU.  * + 2fl  *OESIRFD  TRANSFER  TIME  I N f E NTI  SEC  ONOS  (DP) 

* * MAY  BE  POS  OP  NEG  ANO  AB  SOL  UTF  VALUE  MAY  BE  GREATER  nR  LESS  THAN  ONE  ORBITAL  PFPIOO. 

XKEPNFW  ’ 7 17  rna  EAPTH70P  GLESS  CF  won  X OF  KEPLERS  EON  IN  S URT  ( M ET  FRS  J . SIGN  SHOULD  AGREE  WITH  THAT  OF  TAU. 

* *16  FOR  MUON  * AND  ARS  VALUE  SHOULD  BE  LESS  THAN  THAT  CORRESPONDING  TC  A PEPICD.VIZ,  2PI  SQRTISEMI- 

N / JC°  AXIS), FOR  SPEED  OF  CQNV  ER  GEMC  E , B UT  IF  EITHER  CONDITION  FAILS,  XKEPNtW  IS  RESET 

R i*  10 1 7 * 7 BY  KEPLER  TO  A POOR  RUT  VALID  GUESS 


R0lc2 

3 0103 
RD1  IS 

roi  t 

TC  ’ *28  7qo  PPFV.  VALUE  OF  TIME  IN  CFNTISECS.  MUST  BE  LESS  THAN  ONE  ORBITAL  PERIOD. 

XPDFV  * M 7 FOR  EAPTHkOP  PPEV.  VAI  IJF  OF  X IN  S CRT  (MET  FRS  ) . MUST  RF  LFSS  THAN  AN  X Z ORP  E SPOND I NS  TO  ONE 

7 +16  FOR  MOON  7 ORBITAL  PF  R I 00  , VI  Z , 2PI  SOFT  (SEMI-MAJCR  AXIS) 

■■  i j 

R3ID8 

ROlOQ 

subroutine s called  - 

CELT  IMF 

R0110 

CAI  l INC,  SFQUFNCE  AND  NORMAL  F XI  T MCDE  S - 

R0111 

3 r 1 1 3 
RD1I6 

KFPPTN-2  GOTO  MUST  BE  IN  IN  TER  PR  P TI  VE  “ODE  BUT  OVFIND  ARBITRARY. 

K F PI’  T N-  1 K F P IF  R RETURNS  WITH  XPRFV  IN  MPAC  . PL  IS  AT  0. 

KEPRTN  ...  CONTINUE 

» 1)5 

T ” 117 
RD119 

R0120 

KEPLFP  MUST  NOT  BE  CALLED  DIRECTLY  SINCE  AN  INTERRUPTION  3F  IT  WOULD  DESTROY  THE  FRA  SABLE  S IT  NEEDS  TO  COMPLETE 
THE  INTERRUPTED  Jim.  THEREFORE  THF  USER  MUST  CALL  CSMCONIC  OR  LEMCONIC  WHICH  GUARANTEES  NO  INTFP3UPTS  ANO  WHICH 
ALSO  CAILS  KEPPREP  TO  COMPUTE  A GUESS  OF  XKE  RNE  W. 

R ' 1 121 
R?1?2 

R 0 1 2 3 

ABDR T F XI  T MODE  S - 
NONE 

R0124 

OUTPUT  - 

R0125 

3 '126 
R?1  27 

7 SCAI  E FACTOR  7 

VAR  I AH  LE*  I N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R0l2fi 

3 0 1 29 

R->  1 3D 
R013L 

RO  132 
R013*, 

3 0136 

RCV  * +29  FOP  EARTF70P  TERMINAL  POSITION  VECTOR  IN  METERS 

7 +27  FOR  MCON  * 

VCV  7 +7  FOR  FARTH  7DP  TERMINAL  VELOCITY  VECTOR  IN  ME  TE  R S /CENT  I S CC 

7 *6  FCP  MCCN  7 

Tf  7 +7R  *[)P  TRANSFER  TIME  IN  CENTISECS  TO  WHICH  KEPLER  CONVERGEO.  ALWAYS  LESS  THAN  ONE  PERIOD. 

XPREV  7 + 1 7 FOR  EAR  T H*D  P VALUE  OF  X IN  SQRT(METERS)  TO  WHC I H KEPLEP  CONVERGED.  ALWAYS  LESS  THAN  THE  X 

7 *16  FOR  MOON  7 CCR  RES  POND  INC  TO  ONE  PERIOD. 
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R013  7 
* 0138 

FOR  OTHER  CUT  PUT  WHICH  MAY  BE  OF  USF,  SEE  DEBRIS. 

R1139 

DEBP  IS  - 

roHo 

PARAMETERS  WHICH  MAY  RE  OF  USF  - 

UiKl 

R?  14? 
R0143 

* SCALE  FACTnR  * 

V AR  IARL  E*  IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

RO  144 
R0145 
10146 

RD  147 

R 0 1 4 R 
<('  148  1 
RM493 

UPRECT  * +1  *DP  UMT  VECTOR  CF  INITIAL  POSITION 

R1  ♦ +2P  FCR  EARTII#DP  MAGNITUDE  OF  INITIAL  POSITION  IN  METERS 

* + ?7  FOR  MCCN  * 

ALPHA  * -22  FOR  EAR  TH*DP  INVERSE  OF  SEMI  MAJOR  AXIS  IN  1/METEPS 

* -2C  FOR  MOON  * 

TMODULO  +28  +0  P INTEGRAL  NUMBER  OF  PFRIODS  IN  CENTISECS.  WHICH  WAS  SUBTRACTED  FROM  TAU.  TO  PRODUCE  4 

*TAU.  OF  LESS  THAN  ONE  PERIOD. 

R n 1 49 
Ri'l  r-f 

R • 1 1 *>  2 

PARA  VE  TF  RS  OF  NO  USE  - 

DP  PARAMETERS  - EPSILONT,  DElX,  DELT,  RCNORM,  XMODULO,  PLUS  PUSHLIST  REGISTERS  0 THROUGH  390. 
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POl 5 3 PPCGRAM  DESCRIPTION  - LAMBERT  SUBROUTINE  DATE  - 1 S FPT  EMBER  1967 

TCI  56  MOD  NO.  - 0 LOG  SECTION  - CONIC  SUBROUTINES 

RD157  PCD  BY  KRAUSE  ASSEMBLY  - CCLOSSUS  REVISION  88 

R Ol  5Q 


li  Iff,  EUNf,  TIONAL  DESCRIPTION  - 

R 1M  THIS  SUBROUTINE  CAlCJLATES  THE  INITIAL  VELOCITY  REQUIRED  TO  TP  A NSr  E R A POINT -MASS  ALONG  A CONIC  TRAJECTORY 

*|'165  r (fOM  An  InITUI  PCSlTICN  TC  A TERMINAL  POSITION  IN  A PRESCRIBED  TIME  INTFRVAL.  THE  PE  SUTING  TRAJECTORY  VAY  RE 

ICS  A SCCTION  OE  A CIRCLE,  ELLIPSE,  PA  RAH  CL  A , OR  HYPERBOLA  WITH  RESPECT  TC  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE 

R 0 1 6 7 SUBROUTINE  CAN  PF  FXTENDEC  U S IN  f OTHER  PR  IMAl  Y BODIES  BY  SIMPLE  ADDITION'S  TC  THF  MUTABLE  WITHOUT  INTRODUCING  ANY 

J 160  CODING  CHANGES,  ACCEPTING  THE  INHEPENT  SCAlE  FACTOR  CHANGES  IN  POSITION  AN p VELOCITY.  AN  ITERATION  TECHNIQUE  IS 
RJ171  UTILIZEC  IN  THF  COMPUTATION. 

Rr  17  2 


R 173  THE  RESTRICTIONS  ARE  - 

R(!l7A  1.  RECTILINEAR  TRAJECTORIES  C ANNI'T  8F  COMPUTED. 

< 1 75  2.  AN'  ACCURACY  DEGRACATlCN  CCCURS  AS  THE  COSINE  OF  THE  TRUE  ANOMALY  DIFFERENCE  APPROACHES  +1.0. 

K:i  77  3.  THF  ANGL=  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VFCTCR  MUST  BE  GREATER  THAN  1 DEGREE  67.5  MINUTES 

ROI79  AND  LFSS  THAN  173  CEGREES  12.5  MINUTES. 

< lfli  6.  NFGATIVF  TRANSFER  TIME  IS  AMBIGUOUS  AND  WILL  RES  JIT  IN  ND  SOL  UT  ION. 

RT1«2  5.  THF  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  FXCFrD  THEIR  SCALING  LIMITS  SPECIFIED  IN  THF  GSQP.  IF  THE 

R 186  I I MI  IS  A R F EXCEECEC,  THE  RESULTING  SOLUTION  WILL  BE  MEAN  INGL  FSS. 

9i  1 H 6 THF  NUMBER  OF  ITERATIONS  AND,  THEREFORE,  THE  COMPUTATION’S  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE  FIRST 

Ri1H7  GUESS  OF  THE  I NDFP  ENDENI  VARIABLE,  COGA.  THF  AGC  COMPUTATION  TIME  IS  APPROX  I MAT  E— 

< 109  LY  .105  SECONDS  FOR  I M T I ALI  ZAT I CN , .1  69  SECONDS  FOR  FINAL  COMPUTATIONS,  PIUS  .205  SECONDS  FOR  EACH  ITERATION. 
RJ19I 


R0l9?  REFERENCES  - 

10193  R — 6 7 9 , MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  ID,  LJNAK  I AND  ING  MISSION  GSOP- SECTION  5.5,  SG  A MEMO  67-8, 

RJL95.  SCA  MEMO  67-6. 

Rf'196 


RD  197  INPUT  - ERASABLE  I NI  TI  ALI  ZA  TI  CN  RFCUIRED 


Rd  98 
l C 19‘R 
RJ20D 
R020  I 
10  202 
RD20T 
R 0206 
R 020  5 
R020fc 
l 0?0R 
RD2J9 
RD  21 1 


* SCALE  FACTOR  * 
VAR  1 ABLE*!  N POWFRS  OF  2* 


DESCRIPTION  ANC  REMARKS 


R1VEC  * 
* 

R2VFC  * 
$ 

TOES  IP  ED* 
Xl  ( 3 8 D ) <■ 

GFOMSGN  * 
GUESSW  * 


+?Q  FOR  EARTH*DP  INITIAL  P DS  IT  ION  V ECTOR  IN  METERS 

<-27  FOR  MOON  * 

♦ 29  FOR  EARTH*DP  TARGET  OR  TERMINAL  POSITION  VECTOR  IN  METERS 
+27  FOR  MOON  * 

+ 28  #0  P DESIRFD  TRANSFER  TIME  I N CE  NT  ISECONDS 

NONE  * INCEX  REGISTER  SET  TO  -20  OR  - 100  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

^RESPECTIVELY  , IS  THE  CENTRAL  BOCY 

NOME  *SP  +.c  IF  DESIRED  TRANSFER  ANGLE  IS  LESS  THAN  180  CEGREES,  -.5  IF  GREATER  THAN  180  DEG. 

NONE  * AN  INTERPRETER  SWITCH  TO  BE  SET  IF  MO  GUESS  OF  COGA  IS  AVAILABLE,  CLEAR  IF  A GUESS  OF 
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R‘  21  3 
R0214 
R0216 
R0217 


<"219 

RT229 

R0222 


< 224 
R3226 
R0227 
R 12271 
R(  2272 

< 02273 
R 1 2 ? 7 A 


NCRMSW  * 
UN  * 

VTARGTAG* 
I TFPCTR  * 


NONE 
+ 1 

NONE 

NONE 


*COGA  IS  TO  BE  USEO  BY  LAMBFRT 

*DP  GUESS  CF  COT  ANGNT  OF  FLIGHT  PATH  ANGLE  ( ME  A SURF  D FROM  VERTICAL).  THIS  WILL  BE 
^IGNORED  IF  GUESSW  IS  SET. 

*AN  INTERPRETER  SWITCH  TO  BE  SET  IF  UN  I S TO  BE  AN  INPUT  TO  THF  SUBROUTINE,  CLEAR  IF 

♦ LAMBERT  IS  TO  COMPUTE  ITS  OWN  NOT  MAL  (UN). 

*HP  UNIT  NORMAL  TO  THE  DESIRED  ORBIT  PLANF  IN  THE  DIRECTION  OF  THE  RESULTING  ANGULAR 

♦ MOMENTUM  VECTOR.  THIS  WILL  8E  IGNORED  IF  NtlRMSW  IS  CLEAR. 

♦A  S.P.  TAG  TO  BE  SET  TC  ZERO  IF  LAMBERT  IS  TO  COMPJTE  THF  VELOCITY  AT  R2VFC  AS  WELL  AS 
♦ATT  1VEC  . 

♦ A S.  T.  COUNTER  WHICH  SPECIFIES  THF  MAXIMUM  NUMBER  OF  ITFRATIONS  ALLOWABLE. 

♦ ( A N I TFRATION  MEANS  A PASS  THRU  KFPLFR  ECN  (DELT  IMF).  AT  LEAST  ONE  OF  THF  SE  MUST 
♦ALWAYS  OCCUR,  EVEN  IF  COGA  CORRESPONDING  TO  SOLUTION  WERE  INPUT  AS  A GUESS.) 

♦ TWENTY  ITERATIONS  ARE  SUFFICIENT  TO  SOLVE  ALL  PROBLEMS  INCLUDING  THO  SF  WI  THOUT  GUE  SS. 


R02?8  SUBROUTINES  CALLEC  - 

<P??9  GEOM,  GFTX,  DFLTIME,  I TFRATCR  , LAMENTER  (PART  OF  NEWS  T AT  E ) 

R323D 


R • . 2 3 1 


CALLING  SEQUENCE  ANC  NORMAL  EXIT  MCOES  - 


R 23? 
R023a 
T 0236 
R3237 
RC239 
T0240 
R?  26  1 
R 0263 
RO  244 


L CALL 

L+1  LAMBFRT 

L +2  BON 


VLST  BE  IN  INTERPRETIVE  MODE  BUT  CV  F I ND  ARBITRARY. 

RETURNS  WITH  PL  A I • A ND  WITH  VVEC  IN'  MPAC  IF  VTARGTAG  WAS  N0N-7ERC  OR  VT  ARGFT 
IN  MPAC  IF  VTARGTAG  WAS  ZERO 

CONTINUE  IF  SOLNSW  CLEAR  SINCE  SOLUTION  IS  ACCEPTABLE 


L*  3 SCLNSW 

I +6  LAMABORT 

IF  A LAMBERT  RESULT  IS  TO  BE  A FIRST  GUESS  FOR  THE  NEXT  LAMBFRT  CALCULATION,  CCGA  MUST  BE  PRESERVED  AND 
GUFSSW  MUST  BE  CLEAR  FOR  EACH  SUCCEEDING  LAMBFRT  CALL. 


RC2A5 
< 0266 
R7268 
R0250 
RO  252 
R3253 
R 2 56 
RP  255 
R3256 
<0257 
R025B 
R025O 
R 0260 
R3261 
R0  262 


ABORT  TX IT  MOOES  - 

IF  SOLNSW  WAS  STT  UPON  FXITINC,  FITHFP  LAMBFRT  WAS  ASKFD  TO  COMPUTE  A TRANSFER  TOO  NEAR  C OR  36U  DEG,  C 
t AS  TOP  SMALI  TO  PRODUCE  A REALISTIC  TRANSFFR  BETWEEN  RlVEC  AND  R2VEC.  IN  EITHER  CASE  THE  FIX  MUST  BF  MADE 
ACCORD!  NC.  TO  THF  NFECS  OF  THE  PARTICULAR  USER.  THE  ABORT  F XI  T MODE  MAY  BE  CODED  AS  ... 


LAMABORT  01  OAD  ABS 

1-CSTH 
OSU  BMN 

ONEBI T 
CHANGER  2 
0 LOAD  DAD 

TDESI RED 
SCMET  IME 
STCALL  TDESI  REP 
L AMBER T 


A MEASURE  CF  PROX  I* 
360  DEGREE  S. 


IT Y TO  0 PR 


CHANGE  R2VEC  DIRECTION  SLIGHTLY. 


INCREASE  T DES  IRED 
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A' 263 
R 0 2 6 A 
R3265 
Rf  2 ft( 

’ 267 

Rl?49 

R027O 
1 127? 
R j 2 7 3 

*•■2  7S 
Rf  2 76 
p-277 


CUT  PUT  - 

* SCALE  FACTCR  * 

VAP  IAeL  E *IN  POWERS  OF  2*  DESCRIPTION  ANO  REMARKS 


VVFC  * ♦ 7 FOP  EARTH 

* 45  FOP  MOON 

VTARGET  * ♦ 7 TCR  EARTH 

* 4-5  FOP  MOON 

SCLNSW  * NONE 

FOP  OTHER  OUTPUT  WHICH 


♦ OP  IMTIAL  VELOCITY  VECTOR  IN  M FT  FPS  / CENT  IS  ECONO  REQUIRED  TO  SATISFY  THE  BOUNDARY 
♦PROBLEM  . 

♦ DP  RESULTANT  VELOCITY  VECTOR  AT  P 2VFC  IN  ME  TER  S/CEN  TI  SEC  OND. 

♦ INTERPRETER  SWITCH  WHICH  IS  SET  1=  HE  SUBROUTINE  CANNOT  SOLVE  THE  PROBLEM,  CLEAR 

♦ SCLUTICN  FX  ISTS  . 

MAY  BE  CF  LSE,  SEE  CEBP  IS. 


VALUE 


IF  THE 


BE  OF  LSE  - 


> 02  BO 
R ^ 2R  I 
R02f)2 

3 0283 
R3284 
R f 2 ft  5 

4 '2B6 
R)2B9 
R 0290 
RJ291 
R 02  p2 
4 0293 
R9?94 


* SCALE  FACTOR  * 
VAP  IAHL  F * IN  POWERS  OF  2* 


DESCRIPTION  ANC  REMARKS 


SNTH  * 
CSTH  ♦ 
1-CSTH  * 

c oga  * 

p * 

R 1 A * 

R 1 ( 32D J* 


UI  I 
IJ? 


4 1 ♦DP  SIN  CF  ANGLE  BETWEEN  R1V  EC  ANO  R2VEC 

4 1 *DP  COSINE  OF  ANGLE 

42  *0P  I-CSTH 

45  ♦ DP  CCTAN  CF  IMTIAL  RECUIREO  FLIGHT  PATH  ANGI  E MFASURED  FROM  VERTICAL 

44  *0P  RATIO  OF  SEMILATUS  RECTUM  TO  INITIAL  RADIUS 

46  *DP  PATIC  CF  INITIAL  RADIUS  TO  S EM  IM  AJOR  AXIS 
429  FOP  EARTl^DP  IMTIAL  RADIUS  IN  METERS 

427  FOR  MOON  * 

4 1 *np  UNIT  VFCTOR  OF  R1VEC 

4 1 ♦BP  UNIT  VECTOR  OF  R2  VEC 


R0295  PAPAMFT  EPS  OF  NO  US F 

4 2 96  DP  PARAMETERS  - FPSJLCN’L,  CSTH-PHC,  TPREV,  TERRLAMB,  R2,  RTNLAMB  (SP),  PLUS  PUSHLIST  REGISTER  0 THROUGH  410 

R 2 9 R ADD  IT  IONAI  INTERPRETIVE  SWITCHES  LSFD  - I NF  I NF  LG  , 360SW,  SICPESW,  OPDERSW 

R 0 30' 
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po3c  i 
< r 3r  3 

R3  3?5 

R 030  7 

PRCGRAM  DESCRIPTION  - TIME-THETA  SUBROUTINE  DA  T F - 1 SEPTEMBER  1967 

MOD  NO.  - 0 LOG  SECTION  - CONIC  SUBROUTINES 

MOO  BY  KRAUSE  ASSEMBLY  - COLOSSUS  REVISION  88 

RO  308 

FUNCTIONAL  DESCRIPTION  - 

R03  09 

R C 31 1 
RD31  3 

R 03 1 5 

3 0 317 
RD319 
R032C 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A DESIRED  TR  UE -ANOMAL  Y-OI  EF  ER  ENCE  THROUGH  WHICH  THE 

STATE  IS  TO  BE  UPDATED  ALCNG  A CCMC  TRAJECTORY,  CAL  CJ  L AT  ES  T HF  CORRESPONDING  TI  ME-OH-F 1 I GH  T AND,  IN  ADDITION, 
PROVIDES  THE  OPTION  OF  COMPUTING  THE  NEW  UPDATED  STATF  VECTOR.  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 
CIRCLE,  EtLIPSF,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MnON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 
FXTENDED  USING  OTHER  PRIMARY  BCDIFS  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 
ACCEPTING  TEF  INHFRENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

R 0 32  1 
R0322 
* 0324 
R3325 
<10327 

TEE  RESTR  IC  TIONS  ARE  - 

1.  TEE  ANGIE  BETWEEN  ANY  POSITION  VECT1R  AND  ITS  VELOCITY  VECTOR  MOST  BE  GRFATFR  THAN  1 OEGRFF  47.5  M IN  J T ES 
AND  LESS  THAE  1 7H  DEGREFS  12.5  MINUTES. 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP . IE  THE  LIMITS 
ARE  EXCFEQEO,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

R0  328 
R)32° 

THE  AGC  COMPUTATION  TIMF  IS  APPROXIMATELY  .292  SECONOS. 

R 0330 
R:»3  31 
R0333 

REFERENCES  - 

P-479,  MISSION  PROGRAMMING  DEFINITION  ME MC  NO.  ID,  LUNAR  LANDING  MISSION  GSOP-SFCTION  5.5,  SGA  MEMO  67-8. 

3 0334 

INPUT  - ERASABLE  I W T I ALI  I A T I C N PECUIREC 

R0335 

R 933C 

R 0 3 37 

* SCAI  E FACTOR  * 

VARI  ABLE®  I N POWERS  OF  2 =>  DESCRIPTION  AND  REMARKS 

R333B 

3 0339 
R034O 

R0341 

3 034? 
R334«. 

R ■'  346 

R 0 347 
R334P 

3 035r 
R0351 

RVEC  * FOR  EARTH*OP  INITIAL  POSITION  VECTOR  IN  METERS 

* +?7  FCR  MCC N o 

VVEC  * *7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  METE  PS/ CF  NT  I S ECONO 

• +5  FCR  MCCN  * 

SN  TH  * M *0P  SINE  CF  TRIJE-ANCMALY-DIFFERENCE  THROUGH  WHICH  THE  STATE  IS  TO  BE  UPDATED 

CST  H * +1  *DP  COSINE  OF  THE  ANGLE 

RVSW  * NCNE  *AN  INTERPRET  IVF  SWITCH  TO  BE  SET  IF  ONLY  TIME  IS  TO  RE  AN  OUTPUT,  CLEAR  IF  THE  NEW  STATE 

*1  S TC  BE  CCMPUTED  ALSO. 

XI  (3fiD>*N0NF  * INDEX  PEGISTER  TO  RE  SET  TO  - 2}  DR  - 1 OD  ACCORDING  TC  WHETHER  THE  EARTH  CR  MOON, 

‘RESPECTIVELY,  IS  T HF  CENTRAL  BODY. 

R 0352 

SUBRCUT I NES  CALLED  - 

GAP:  ASSEMBLE  REVISION  *6  OF  AGC  PROGRAM  ZERL  IMA  BY  ZOROASTER 

l CONIC  SUBROUTINES 

TO 353  PARAM,  CEOM,  GFTX,  DEI  TIME,  NEWSTATF 

R035A 
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10355  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 

R'1 356  IF  ONI  Y TIME  IS  OES  13  E D AS  OUTPUT  - 

R 0357  l 
Ri-3  5*»  I +1 
R036"  1*2 

10361  1+3 

R3  362 

RP363  ] 

l 364  L 
R3366  L+l 
R 0367  L + 2 

R 0 369 

R03  70  L +7 

1 0371  L + 4 

R ? 3 77  l +5 

R 0 374  L + 6 

10375 


RD376  ABORT  EXIT  MOOES  - 

■ 377  IF  COGAFLAG  ANO/OR  INFINFLG  IS  SET  AT  THE  EXIT  T 3 TIME- THETA,  TIME-THETA  WILL  TRANSFER  TO  POODOO  WITH 

R 370  AN  ALARM  CODE  (ORIGINALLY  00607),  A NO  NOT  RETURN  TO  THE  CALLING  PROGRAM.  ( P3  R 692  ANO  721). 

R33R6 


MUST  RF  IN  INTERPRET  IVE  «ODE  PUT  OVFINO  ARBITRARY 


[ F THF  IJ  PC  AT  E ST  AT  F V F 
CL  F AO  CALL 
RVSW 
T IMETHET 

STOVL  NEWVV6C 
STADR 

STOPF  NEWRVEC 


IS  DES  IRED  AS  WELL  - 

ML  ST  9E  IN  INTERPRETIVE  MODE  BUT  OVFINO  ARBITRARY. 


1 03  fl  7 
R03  88 
RL  3 99 

1 0390 

R0391 

R 0392 
RO  394 
RQ396 
1 0398 


OUTPUT  - 

* SCALE  FACTOR  * 

VAR  I ABLE*!  N POWERS  OF  2#  DESCRIPTION  AND  REMARKS 


T ( 3 D ) * +78  *I)P  TRANSFER  TIME  IN  CENTI  SECONDS 

INFINFLG*  NCNE  * AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  TRANSFER  ANGLE  RFQUIRFS  CLCSURF  THROUGH 

* INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

CCGAFl  AG*  NONE  *AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  SEEN  VIOLATEC  (NO  SOLUTION), 

* * CLE  AF  IF  NOT. 


R3399  IN  ADDITION,  IF  RVSW  IS  CLEAR,  THE  FOLLOWING  ARF  OUTPUT- 

R(fl<  MPAf  - * +7  FOR  EARTH  *DP  TERMINAL  VELOCITY  VECTOR  IN  ME  TER  S/CEN  TI  SEC . 

104<  1 MPAC  + E*  +5  FOR  MOON  * 

R3'02  00  - 5C  * +29  FOR  EARTH*DP  TERMINAL  POSITION  VECTOR  IN  METERS  I PL  AT  6D> 

R 040 3 * +27  FTP  MCCN  * 


R0404  FOR  OTHER  OITPIT  WHICH  MAY  BE  CF  LSE,  SEE  DEBRIS. 
R0405 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 

L CONIC  SLRRCllT  I NES 

R0436  OEBR  IS  - 

R 04  f‘7  PAPAKETF.PS  WHICH  MAY  eE  OF  US  F - 
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t 0408 
RD439 
R 04 1 r 
R 0 4 1 1 
R 04 1-1 
* 0414 
R341S 
R04 1 7 

< .410 

R1 4 ?0 
R042I 
R 0 42? 


DESCRIPTION  A NO  RF  MARKS 


P 1 I 320  )<■ 


P 1A  * 

P * 

COG  A * 


UR  1 

U2 

UN 


+ 2<>  FOR  EARTHED  P MAGM  TLDE  CF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 
+27  FCR  MCCN  * 

+ 6 *0P  RATIC  C F R1  TO  S FM  I MAJOR  AXIS  (NEG.  FOR  HYPERBOLIC  TRA  JFC  TOR  I E S ) 

+ 4 *DP  RATIO  OF  SF  MI  LA  TUS  RFC  TUM  TO  R1 

+ 5 # OP  COTAN  OF  ANGLE  BETWEEN  RVEC  AND  VVEC. 

+ 1 *0 P UNIT  VECTOR  OF  RVEC 

♦ 1 *DP  UNIT  VECTOR  OF  VVEC 

+ 1 *DP  UNIT  VECTOR  OF  UR1*U2 


R0423  PARAMETERS  OF  NO  USE  - 

1 0424  SP  PARAMETERS  - RTNTT  , GECMSCN,  RTNPRM,  MAGVEC2=R2  (DP),  PLUS  PUSHLIST  LOCATIONS  0-11D,  14D-21D,  24D-39D  , 41D 
R?4?6  ADDITIONAL  INTERPRETIVE  SWI  TCHF  S LSED  - NORMSW,  360SW 
R04?  7 
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ASSEMBLE  REVISION  56  OF  AbC  PROGRAM  ZfcRLlNA  RY  ZOROASTER 
CONIC  SUBROUTINES 

PROGRAM  OESCPIFTICN  - TIVE-RACIUS  SUBROUTINE 
MOD  NO.  - I 
MOD  RY  KRAUSE 


9:  12  OCT.  21,  1970 

JSER'S  PAGE  NO.  11  EC  S3 

DA  TF  - 11  OCTOBFP  1967 

l OG  SECTION  - CONIC  SU9R0UTINFS 
ASSEMBLY  - COLOSSUS  REVISION  88 


Q0442 
1 0 444 
R3446 

1-  4<.7 
H ^440 
RC491 


FUNCTIONAL  DESCRIPTION  - 

TF  IS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A DESIRED  RADIUS  TO  WHICH  THE 
STATF  I ' Tn  Rf  IJP0ATF3  A L r A 0 fl  CTMC  TPAJFCTORY,  CAL  CJ  L AT  ES  THE  CORRE  SPONOI  N",  TI  ME-OF  - F L I GH  T A NO  , IN  ADDITION, 
PROVIDES  THF  OPTION  OF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOR.  THE  RESUITING  TRAJECTORY  MAY  BE  A SECTION  OF  A 
CIRFLE,  ELLIPSE,  PARABOLA,  OP  FY°  FRBDL  A WlTHRFSPECT  TO  THE  E Aft  TH  OR  THF  MPnN.  THF  USF  OF  THE  SUBROUTINE  CAN  RE 
EXTENDED  USING  OTHER  PRIMARY  BCDIPS  RY  SIMPLE  ADDITIONS  TO  THE  MUTAHIE  WITHOUT  INTRODUCING  ANY  COOING  CHANGES, 
ACCEPTING  TEE  INEERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

IF  THE  DESIP  EC  RADIUS  IS  EEYCND  THE  RADIUS  OF  APOCEN  T EK  OF  THE  CONIC  OR  BELOW  THE  RADIUS  CF  PEPICENTEK, 
APSESW  WILL  BE  SET  AND  THE  SLRRCLTI  NE  WILL  RETURN  THE  APOCENTFR  OR  PEPICENTER  SOLUTION,  RESPECTIVELY. 


1 0452 

11453 

R0i55 

1 456 

R1458 

R r'  4 5 ft  ] 

R045B3 

RD45H5 

1045B7 


THF  RE  STRIC  TI IMS  ARE  - 

1.  THF  ANGLE  BETWEEN  ANY  POSITION  VC  TOR  AND  ITS  VEIOCITY  VECTOR  MUST  eE  GREATER  THAN  1 DEGREE  47.5  MINUTES 
AND  LFSS  THAN  173  CEGREES  12.5  MINUTES. 

7.  THF  PAPAMFTERS  IN  TEE  PROBLEM  RUST  NOT  EXCEEO  T HF  I R SCALING  LIMITS  SPECIFIED  IN  THF  GSOP.  IF  THE  LIMITS 
APE  EXGFFDFr,  THE  RESULTING  SOLLTION  WILL  BE  MEANINGLESS. 

3.  AN  arruPACY  DECRACAT  ITN  OCCURS  AS  THF  SENSITIVITIES  OF  TJMF  ANO  UPDATED  STATE  VFCTCP  TC  CHANGES  IN 
PDESIRED  INCREASE.  THIS  WILL  CCCUR  NEAR  EITHER  APSIS  OF  THE  CONIC  AND  WHEN  THE  CONIC  IS  NEARLY  CIRCULAR.  IN 
PARTICULAR,  IF  TEE  CONIC  IS  AN  EXACT  CIRCLE,  THE  PROBLEM  IS  UNDEFINED  AND  THE  SUBROUTINE  WILL  ABORT. 


RD450  THE  A GC  COMPUTATION  TIME  IS  APPROXIMATELY  .363  SECONDS 

R 0460 


1046  1 REEF  RENO. E S - 

R144?  R — 4 7 0 , MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  1c,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5,  SGA  MEMO  67-8. 

R 0464 


RD465 


INPUT  - FRA  SABLE 


INI  TI  A LI  Z ATI  CN  RECUI  RED 


P0466 
< 0467 
R D 46ft 
R 0469 
1 0470 
R3  471 
R 0472 
R0  473 
Rf .',75 
1 0476 
R)478 


* SCALE  FACTOR  * 
VAR  I ABIC*  IN  POWERS  CF  2* 


DESCRIPTION  AND  REMARKS 


RVEC  * 

* 

V V EC  * 

* 

PDFS  IP  ED* 
* 

SGNRDOT  * 


+ 20  FOR  EARTH* OP  INITIAL  POSITION  VECTOR  IN  METERS 
+ 27  FOR  MOON  * 

+7  FOR  EARTH  *0P  INITIAL  VELOCITY  VECTOR  IN  ME  TE  R S/C  E N TI  SEC  CND 
+ 5 FOR  MCFN  * 

+ ?9  FOP  EARTHED  P TERMINAL  RADIAL  DISTANCE  ON  CONIC  TRAJFCTCRY  FOP  WHICH  TRANSFER  TIME 
♦27  FOR  MOCN  *COMPUTFC. 

NONE  *SP  TAG  SET  TO  +.5  OR  -.5  ACCORDING  TO  WHETHER  THE  RADIAL  VELOCITY  AT  RDE 

POSITIVE  OR  NEGATIVE,  RESPECTIVELY.  THIS  TAG  REDUCES  THE  OOJ  R L E-V  ALU  E D 


IS  TO  BE 

SI  RED  IS  TO  BE 
PROBLEM  TO  A 
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10480 
RD481 
R 0483 
R 0 484 

R0<*  86 
a 04 8 7 


XI  ( 38 0 )*NON  E 
RVSW  * NONE 


♦ SINGLE-VALUED  PROBLEM. 

♦ INDEX  REGISTER  TO  RE  SET  TO  -2D  OR  -lOD  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 
♦RESPECTIVELY,  IS  THE  CENTRAL  BODY. 

♦ AN  INTERPRETIVE  SWITCH  TC  BE  SET  IF  ONLY  T IMF  IS  TO  BE  AN  OUTPUT,  CLEAR  IF  THE  NEW  STATE 
*1$  TP  BF  COMPUTED  AL  SO  . 


RD488  SUBROUTINES  CALLED  - 

80989  PARA1-*,  GFCM,  C ET  X , OELTIME,  NFWSTATE 

a 0490 


RDA91  CALLING  SEQUENCE  AND  NDPMAL  EXIT  MODES  - 


tt  0492 
R'HRT 
R0495 
a 04«6 
RD497 
R0A98 


I F 


L 

L+1 

L+2 

L*3 


ONLY  TIME  IS  DESIRED  AS  CUT FUT  - 

SET  CALL  ML  S T BE  IN  INTERPRETIVE  MODE  BUT  GVFIND  ARBITRARY. 

RVSW 

TIMERAD  RETURN  WITH  PL  AT  0 AND  T IN  MPAC 

...  CONTINUE 


a 0499 
RDBD-l 
R 050? 
RO  50  3 
R05  0r' 
R 0 50  6 
RD5D7 
R 051  8 

a 0510 

RD511 


L+I 
L <2 

Lf  3 
I +4 
L+5 
L + 6 


THE  UPOATE  STATE  VECTOR  IS  DESIRED  AS  WELL  - 

CLEAR  CALL  MIST  HE  IN  INTERPRETIVE  MODE  BUT  OVFINO  APRITRARY. 

PVSW 

TIMFRAD  RFTURNS  WITH  PL  AT  6.  THE  INITIAL  POSIT  ION  VECTOR  IS  IN  00  OF  THE  PUSHLIST  AND 

THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

STOVL  NEWVVEC 
STADR 

STORE  NEWRVEC  NEWVVEC  AND  NEWRVEC  ARE  SYMBOLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONS. 

...  CONTINUE 


R9512  ABORT  F XI T “DDES  - 

IT  SOLNSW  AND/OR  C OGAH  LAG  AND/OR  INFINFLG  IS  SET  AT  THE  EXIT  TO  TIME-RAOIJS,  TlvE-PAOIUS  WILL  TRANSFER 
TP  POCDQO  WITH  AN  ALARM  CODE  (OP  I GINALL  Y 006C7)  , AND  NOT  RETURN  TO  THE  CALLING  PROGRAM . (PCK  692  E 7211 

a 0522 


RD523 
R0524 
a P525 
RD526 
R 05?  7 
R 0 5 28 
K05  3o 


a 532 
RD  534 
R 05-35 


OUTPUT  - 

♦ SCALE  FACTOR  * 

VARIABLES  N POWERS  CF  2*  DESCRIPTION  AND  REMARKS 

* * 


T C 3 "P)  * 
IN  FIN  FIG* 

COGAFLAG* 

APSESW  * 


+?R 

NONE 

NCNE 


♦DP  TPANSFEP  TIME  IN  CENTISFCONDS 

♦AM  IMERPRETIVE  SWITGH  WHICH  IS  SET  IF  ROES  I P ED  AND  SGNRDOT  REQUIRE  Cl  C SUV  F THROUGH 
♦INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

< \N  INTEFPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VIOLATED  (NO  SOLUTION), 
♦3LEAR  IT  NOT. 

♦AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IE  R OF  SIR  ED  WAS  3REATEP  THAN  RADIUS  OF  APUCENTER  OR 


NONE 
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R T 5 3 7 
R 0 5 39 
RG541 

R :•  5 9 1 1 SOI  NSW 
R U 541 3 
R 9541 5 

R 0542 


* NONE 


♦LESS  THAN  RADIUS  OF  PERICENTER.  THE  APOCENTER  OR  PERICENTER  SCLUTICN,  RESPECTIVELY, 

*WII  L THEN  BE  RETURNED.  THE  SWITCH  IS  CLEAR  IF  POE  SIRED  WAS  BFTWEEN  PERICENTER  AND 

♦ APCC  ENTER. 

*AN  INTERPRETIVE  SWITCH  WHICH  I S SF  T I F THE  CONIC  IS  SO  CLOSE  TO  A CIRCLE  THAT  THE  TERMIN 

* P 0 1 NT  IS  AMBIGUOUS,  V 10L  AT  IMG  P ESTR  1CT  ION  3.  IF  ECCENTRICITY  IS  GREATER  THAN  2-TO-THE- 
♦MINUS-1P,  THF  SWITCH  IS  CLEAR. 


RD5A4 
R 0 5 A 5 
R 0 546 
R05A7 


IN  AD01TI0N,  IF  RVSW  IS  CLEAR,  THE  FOLLCWI  NG  ARE  OUTPUT- 

*DP  TERMINAL  VFLOCITY  VECTOR  IN  ME  TFR  S/CENTI  SEC  . 


FOP  OTHER  OUTPUT  WHICH  MAY  BE  CF  USE,  SEE  CEBR  IS  . 


R 0550  DEBRIS  - 


1 0^51 


PARAMFTERS  WHICH  MAY  RF  CF  USE  - 


R '952 
RC  553 
RO  554 
R0555 
1 0557 
RD5SR 
R 0560 
10561 

RO  55  3 
R056A 
RO  565 
R0566 
1 0568 
R 0 569 


EART  H*D,P 
MCCN  * 

♦ DP 
*DP 
*np 


DESCRIPTION  AND  REMARKS 

MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC  , IN  METERS 

PATIO  OF  0 1 TO  S^MI  MAJOR  AXIS  ( NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 

RATIO  OF  SEMILATUS  RECTUM  TO  M 

CCTAN  CF  ANGLE  BETWEEN  RVEC  AND  VVEC 

UNIT  VECTOR  OF  RVEC 

UNIT  VECTOR  OF  VVEC 

UNIT  VECTOR  OF  LRL*U2 

COSINE  OF  TRUE  ANOMALY  DIFFERENCE  BETWFEN  RVEC  AND  RDESIRFD. 

SINF  OF  TRUE  ANOMALY  DIFFERENCE. 


105  71 
1 1-571 
R j 573 
R 0 57^ 


PARAMETERS  OF  NO  US 
SP  PARAMFTERS  - RTNTT, 
ADDITIONAL  INTERPRETIVE 


E - 

GECMSGN , 
SWITCHt  S 


PTNPRM,  MAGV  EC2  =R2  (DP),  PLUS  PUSHLIST  LOCATIONS  0-110,  1 AD-  2 ID  , 2AD-39D, 
USED  - NOR  MS  W , 360SW 


AID 


) A P : ASSEMBLE  REVISION  56  GF  AGC  PROGRAM  ZERIINA  BY  ZOROASTER 
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P0575 
* 0577 
R3579 
R05R1 

PROGRAM  DESCRIPTION  - APSIDES  SUBROUTINE  DATE  - 1 SEPTEMBER  1967 

MOD  NO.  - 0 LOG  SECTION  - CONIC  SUBROUTINES 

MOO  BY  KRAUSE  ASSEMBLY  - COLOSSUS  REVISION  88 

<0582 

FUNCTIONAL  DESCRIPTION  - 

R3  583 

R 0585 
RO  587 
R0589 
< 0591 

R 3592 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  CALCULATES  THE  RADIUS  OF  PERI  CENT  ER  AND  OF  APOCENT  ER  AND  THE 
ECCENTRICITY  OF  THE  RESULTING  CTNIC  TRAJECTORY,  WHICH  MAY  BE  A STRAIGHT  LINE, 

CIRCLE,  ELLIPSE,  PARAROLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 
EXTENDED  1JS  ING  OT  H ER  PRIMARY  EOCIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 
ACCEPTING  IHF  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

R 05  93 
<0594 
R0596 

R 0598 
R0600 

THE  RESTRICTIONS  ARE  - 

1.  IF  A POC.F  N'TER  IS  BEYCNC  THE  SCALING  OF  POSITION,  THE  SCALE  FACTOR  1 IMIT  (536,  870,910  METERS  WITH  RESPECT 
TO  THE  F APT  H OP  134,  217,  727  ■ 5 METERS  WITH  RESPECT  TO  THE  MOON)  WILL  BE  RETURNED. 

2.  THE  PARAMETERS  IN  THE  FROELEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSCP.  IF  THE  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTICN  WILL  BE  MEANINGLESS. 

R06  01 
< 0602 

THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .103  SECONDS. 

R3SD3 

R 06  04 
<0606 

REFERENCES  - 

MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5 

R0607 

INPUT  - ERASABLE  INITIALIZATION  REQUIRED 

< 0608 
R060  9 
R06l0 

* SCALE  FACTCR  * 

VARIABLE*IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

< 0611 
R3612 
R06  13 
< 0614 

R j 6 1 5 
<0617 
R0618 

RVEC  * +29  FOP  EARTH*  DP  IMTIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 

VVEC  * +7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  M ET  ER  S /C  EN  T I SEC  OND 

* +5  FOR  MOON  * 

XI  ( <8  D ) *NON  E # INDE  X RFC  I STFR  TO  BE  SET  TO  - 2d  OR  -lOD  ACCORDING  TO  WHETHER  THE  EARTH  CR  MOON, 

* * PES  P ECT  IV  ELY  , IS  THE  CENTRAL  BODY. 

R 06 1 9 
< 0620 
R3621 

SUBROUTINES  CALLED  - 
PA  RAM,  GECM 

R 062? 

CALLING  SEQUENCE  ANC  NORMAL  EXIT  MCDES  - 

ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
CONIC  SUBROUTINES 
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RD52R 
R C62A 
R0S25 
R(  62p 

R 06  20 
R;'63*' 
R C 632 
R 0 6 3 3 


1+2 
L + 3 


AS  OUTPUT  - 

MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY. 

APSIDES  RETURNS  WITH  PL  AT  0,  RADIUS  CF  APOCENTER  IN  MPAC  AND  RADIUS  OF  PERICtNTER  IN  GO 

STCCL  A PC  A PS  F 

on 

STORc  PERIADSF  APOAPSE  AND  PERIAPSF  ARE  SYMBCLIC  REPRESENTATIONS  OF  THE  USFRS  LOCATIONS 


R063  A 
R 0635 
R0636 

R 0637 

R 0 638 
R363R 
R 0640 
R06A  1 
R0642 


OUTPUT  - 

* SCALE  FACTOR  * 
VARIABLEMN  POWERS  OF  2* 


DESCRIPTION  AND  REMARKS 


MPAC  * +29  FOR  EARTH*  DP  RACILS  CF  APOCENTER  IN  METERS 

* +27  FUR  MOON  * 

CO-ID  * +29  FOR  E A P T F* OP  RACIUS  OF  PERICENTER  IN  METERS 

* +? 7 FOR  MOON  * 

ECC  * +3  *DP  ECCENTRICITY  OF  CONIC  TRAJECTORY. 


FOR  OTHER  OUTPUT  WHICH  MAY  HE  CF  USE,  SEE  DEBRIS. 


R06A5 
< 0 6A6 


DEBPIS  - 

PARAMETERS  WHICH  MAY  BE  CF  USE 


P-6A7 
R06A8 
R06A9 
R0650 
1 0652 
RD553 
R 0555 
R 0656 
R0658 
R 0659 
R0  660 
R0661 
R 066? 
RD663 


DESCRIPTION  AND  REMAP 


T H*D  P MAGNITUDE  DF  INITIAL  POSITION  VECTOR,  RVEC  , IN  METERS 
N * 

*DP  RATIO  OF  R 1 TD  SE  MI  MA  JOR  AXIS  ( NEG.  FCP  HYPERBOLIC  TRAJECTORIES) 
*0P  RATIO  OF  SEMILATUS  PFCTUM  TD  11 
* DP  COTAN  CF  ANGLE  RETWEFN  RVEC  AND  VV  EC 

*DP  UNIT  VECTOR  OF  RVEC 

*DP  UNIT  VECTOR  OF  VV  EC 

*DP  UNIT  VECTOR  CF  LR1*U2 

H *DP  MAGNITUDE  OF  VVEC 


R 066  A 
1 066  5 
R)  667 
R0668 


PARAMETERS  OF  NO  US E - 

SP  PARAMETERS  - RTNAPSE,  GEOMSGN,  PTNPRM,  PLUS  PUSHLIST  LOCATIONS  0-5,  10D-11D,  1 AD-  21D , 31D-38D. 

ADDITIONAL  INTERPRETIVF  SWITCHES  USED  - NORMSW 


SETLCC  CONICS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERIINA  BY  ZCRQAST  ER 


L CGNIC  SU  BROUT  INFS 


0670 


12  ,2023 


BANK 


0678 
3679 
0680 
0681 
3 68  3 


i'  684 

0685 

0686 
0687 
3698 

0689 

0690 
3691 
069? 
0693 
06  94 
0695 


3696 

0697 


PEF 

REF 

RF.F 

REF 

PFF 

REF 

REF 

REF 
RF  F 


4 

2 

2 

5 
5 

3 

1 


LAST 


L AST 

LA  ST 

LAST 

LAST 

L AST 
LAST 

L AST 


129  65,1721 

12,2023 
12,  202 A 
12,2025 
12  ,2026 
688  12,  2027 

12  ,20  30 
704  12,2031 

12,  2n32 
683  12  ,2033 

12,  2034 
129  12,2035 

12  ,2036 
68  5 12,  203  7 

1165  12,2040 

12 ,204  1 
533  12,  2042 

12  ,2043 

12. 2044 

12.2045 


40001  1 
COCCI  0 
24026  0 
77773  1 
1CCC5  0 
240  17  1 
01  50  3 0 
66256  0 
00027  1 
CC024  1 
16647  0 
00045  0 
2404  1 1 
01503  0 
76441  1 
01511  0 
76405  1 
C0C23  0 
24043  C 


K E PL ERN 


COUNT*  St/CQNIC 
FRANK  = URl 
SETPD  BOV 
0 


VLCAO* 

MUTABLE, 1 
STOVL  140 

PRECT 

UN  I T S SP 

IT  ERCTR 
200 

STODL  URRECT 
360 

STCVL  PI 

RRFCT 

DOT  S LI R 

VREC  T 

OMP  SLIP 

1 /RCCTMU 
STOVL  KEPC1 


0698  REF 

0699 

0700  REF 

0701 

0702  REF 

0703 

3734  REF 
0705  REF 


4 LAST  1165  12  ,2046 

12, 2047 

1 12  ,2050 

12,2051 

6 LAST  1165  12,  2052 

12  ,2053 

l 12,  2054 

1 12,20  55 


01511  0 
'7236  1 
000  17  1 
5 240  5 1 
00041  1 
61425  0 
11CC7  0 
00045  0 


VRECT 
VSQ  DM  PR 

1/MU 

DMP  SL3 

P 1 

DSU  ROUND 

Dl/64 
STORE  KEPC2 


0706 

3737  REF 

0708 

0709  REF 

071 0 RFF 


2 


12,2056 
LAST  1 165  12,  2057 

12  ,2060 
LAST  1165  12,2061 

12,  2062 


74421  0 
1 1007  0 
77671  1 
00041  1 
00011  1 


BDSU 

DDV 

STORE 


S R1  R 
Dl  /64 

R1 

ALPHA 


0711 

371?  RFF 

0713  RFF 

0714 

3715  RFF 

0716  PFF 

0717 

07lR  REF 


2 

1 

2 


LAST  1165 


I AST  1 165 


12,  206  4 
12,2065 
12  ,2066 
12, 2C67 
12  ,2070 
12 ,2C7l 
12,  20  7 2 


71244  0 
2 4 C 7 3 0 
11025  0 
40071  0 
00011  1 
24077  1 
52166  1 
24077  1 


BPL  OLOAD 

1 REV 
- 50  SC 

DDV  BOV 

ALPHA 
STOREMA X 
SORT  GOTO 

STORE  MAX 


C 71  9 


12 ,2C73  55366  1 1 REV  SORT  BDDV 


> 
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1 / ROOT  MU  (-17  OR  -14) 

C 1 =R.  V/ROOTMU  (+17  OR  +15) 

1/MU  (-34  OP  -28) 

C2=R  V.  V/MU  -1  ( +6  ) 

ALPHA=(1-C2  l/Rl  (-22  OR  -20) 

MAXIMUM  X DEPENDS  ON  TYPE  OF  CONIC 


-50  SC  ( + 12) 


i 4P : ASSEMBLE  REVISION  56  OF  AGO  PRCGRAM  ZFRLINA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


r 720 

REF 

1 

12,  2074 

1 1027 

1 

2PI  SC 

0721 

12 ,2  C 75 

77600 

l 

BOV 

3 722 

REF 

3 

L AST 

1 16  5 

12,  2C 76 

24C77 

1 

STORE  MAX 

07  23 

REF 

l 

12  ,2077 

000  13 

0 

STORFMAX  STORE 

XMA  X 

0 724 

12  ,2100 

65205 

0 

OMP 

POOL 

0 7 2*5 

RFF 

2 

L AST 

1 165 

1 2,  2 1C  1 

CGC2  3 

0 

1 /ROOTMU 

0726 

REF 

3 

LAST 

1165 

12  ,2102 

000  11 

1 

ALPHA 

0727 

12  ,2K3 

6 5 301 

0 

NORM 

POOL 

0728 

REF 

38 

1.  AST 

1149 

12,  2 1c  4 

00047 

1 

Xl 

1.729 

12  ,2  1C  5 

56257 

1 

SL  * 

DDV 

0730 

12,  2 1C  6 

2C173 

0 

0 -6,1 

,'731 

12,2  107 

50000 

1 

BOV 

3 MN 

0732 

RFF 

1 

12  ,2110 

24124 

0 

MOCOONE 

) 7 33 

REF 

2 

L AST 

1166 

12,  2111 

2A  1 2 A 

0 

MOODGNE 

_ 0734 

12  ,2112 

5 1525 

1 

PERIODCH  PODL 

AB  S 

C 7 35 

REF 

2 

LAST 

117 

12,3113 

02C7A 

0 

T AU. 

07?6 

12,  2 1 1a 

50025 

0 

DSU 

3 MN 

f 737 

12  ,2115 

00001 

0 

OD 

0738 

RFF 

3 

LAST 

1166 

12,  2 116 

24124 

c 

MODDCNE 

073g 

12,211  7 

77765 

0 

SIGN 

0740 

REF 

3 

LAST 

1166 

12  ,2120 

02074 

0 

TAU. 

?7A 1 

REF 

4 

L AST 

1166 

12,  212  1 

16C74 

0 

STOOL 

TAU- 

07  50 

1 2 ,2122 

77650 

1 

GOTO 

0751 

R EF 

1 

12 ,2  123 

24112 

0 

PFRIODCH 

0782 

12,  2 124 

71201 

1 

MODDONE  SETPO 

D LOAD 

0753 

12  ,2125 

0000  1 

0 

0 

0754 

REF 

2 

LAST 

117 

1 2,  2 126 

C 2 12 1 

1 

X KE  PNEW 

-.755 

REF 

1 

12,2  127 

00025 

0 

STORE 

07555 

12,2130 

53165 

0 

SIGN 

BZE 

0756 

REF 

5 

L AST 

1166 

12,  21?  1 

02C7A 

0 

TAU- 

07565 

REF 

1 

12  ,2132 

24302 

0 

BA  D X 

0757 

12,2133 

51440 

0 

BMN 

ABS 

07575 

REF 

2 

L AST 

1166 

12,2134 

243C2 

0 

BAD  X 

.758 

12  ,2135 

51025 

1 

DSU 

BPL 

0 7;58  5 

REF 

2 

LAST 

1166 

12,  2136 

CCC13 

0 

X MAX 

' '75  9 

REF 

3 

LAST 

1166 

12,  2137 

24302 

0 

3 AD  X 

07595 

12  ,2140 

51145 

0 

STCRBNDS  DLOAD 

BPL 

0760 

REF 

6 

L AST 

1166 

12,  214  1 

C 2074 

0 

TAU. 

07605 

REF 

1 

12  ,2142 

24152 

1 

STOP  EM  IN 

0761 

12 ,2  143 

5 7 5 A 5 

1 

OLCAO 

DC  OMP 

0761  5 

REF 

3 

L AST 

1166 

12,  2144 

000  13 

0 

XMA  X 

0762 

REF 

1 

12  ,2145 

1 AO  1 5 

0 

STOOL 

XM  IN 

07625 

REF 

1 

12,  2146 

2 ACC  7 

0 

KE  PZERC 

0763 

REF 

4 

LAST 

1 166 

12,2147 

00013 

0 

STORE 

XMA  X 

07635 

12  ,2150 

77650 

1 

GOTO 

0764 

RFF 

I 

12,  21  = 1 

2A  155 

0 

DXCOMP 

0 764  5 

12  ,2152 

777A5 

1 

ST  OR  EM  IN  DLOAD 

0765 

R EF 

2 

LAST 

1166 

1?  ,2153 

2A00  7 

0 

K EPZERO 

07655 

REF 

2 

L AST 

1166 

12,  2154 

00015 

0 

STORE 

XMI  N 

0766 

12  ,2155 

573A5 

1 

DX  COMP  DLOAD 

DM  PR 
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0767 

0768 

D 768  5 

0769 

0770 
3779 

REF 

REF 

REF 

RFF 

7 

1 

1 

1 

LAST 

1166 

12,  2156 
12,2157 
12,  2160 

02074  0 

11020  0 

77646  0 

AB  S 

TA  U. 

BEE22 

12,2161 

12  ,2162 
12,  2163 

16170  0 

01553  0 

776  2 1 1 XO  IFF 

STOOL 

RD  SU 

EP  SI  LONT 

X PREV 

0780 

P.FF 

2 

LAST 

1166 

12  ,2164 

00025  0 

X 

0781 

REF 

2 

LA  ST 

129 

12 ,2165 

02643  1 

STORE 

DELX 

078-7 

12, 2166 

63545  0 KEPLOOP 

DLOAD 

D SO 

07  83 

REF 

3 

LAST 

1167 

12  ,2167 

00025  0 

X=  XKEP 

3784 

12, 2170 

41501  0 

NORM 

PUSH 

0D=  XS  0 (+34  OR  +32  -N  1 ) PL 

AT 

2 

0785 

REF 

39 

LAST 

1166 

12,2171 

00047  1 

XI 

0786 

12,217 2 

53605  1 

DMP 

SRR* 

3707 

RFF 

4 

L AST 

1 166 

12,  2173 

00011  1 

ALPHA 

0 783 

12  ,2  174 

21573  0 

0 -6,  1 

0789 

R EF 

1 

12 ,2175 

34031  1 

STCALL 

X I 

X 1=  AL  PHA  XSQ  ( +6) 

0790 

RFF 

1 

12, 2176 

24421  0 

0 E L T I ME 

0791 

12  ,2177 

44200  0 

BOV 

RDSU 

3792 

RFF 

1 

12, 2 2C0 

24311  1 

TI  MEOVFL 

UNL  IK  ELY 

0797 

REF 

8 

LAST 

1167 

12,2201 

02074  0 

TAU. 

0794 

RFF 

2 

LAST 

129 

12 ,2202 

02645  1 

STORE 

DELT 

DEL  T=  DEL  INDEP 

3 795 

12,  22C3 

44246  1 

ABS 

BO  SU 

0796 

REF 

2 

LAST 

1167 

12  ,2204 

02170  0 

EP  SILONT 

0797 

12 ,2205 

71244  0 

BPL 

OLOAD 

0798 

REF 

1 

12,  2 206 

24333  1 

KE  PC  ON  VG 

0799 

REF 

3 

LAST 

658 

12  ,2207 

00037  0 

T 

0803 

12,  2210 

6C225  1 

OSU 

NOPM 

0801 

REF 

2 

LAST 

113 

12,221 1 

01551  1 

TC 

0802 

RFF 

40 

LAST 

1167 

12  ,2212 

00047  1 

X 1 

3803 

12,  2213 

60225  0 

PDDL 

NORM 

0804 

REF 

3 

LAST 

1167 

12  ,2214 

02643  1 

DEL  X 

0805 

REF 

23 

1 A ST 

1146 

12 ,2215 

000  50  1 

X2 

0806 

12, 2216 

41260  0 

X SU,  1 

DMP 

0 807 

REF 

24 

LAST 

1167 

12  ,2217 

00047  1 

X 2 

3838 

REF 

3 

LAST 

1167 

12,  2220 

02645  1 

DELT 

080Q 

12,  2221 

56257  1 

SLR  * 

DDV 

0810 

12,2222 

21202  l 

1,  1 

3811 

12,  2223 

41542  1 

SRI 

PUSH 

OD=TR  IAL  DELX  PL 

AT 

2 

0812 

12  ,2224 

71244  0 

BPL 

OLOAD 

0813 

REF 

1 

12 ,2225 

24246  1 

POS  DELX 

0814 

RFF 

4 

L AST 

1 167 

12,  2226 

Of  0 2 5 0 

X 

0815 

REF 

5 

LA  ST 

1166 

12  ,2227 

00013  0 

STORE 

XMAX 

MOVE  MAX  BOUND  IN 

0016 

1 2,  2230 

45221  1 

BO  SU 

DSU 

PL 

AT 

0 

0817 

RFF 

3 

LAST 

1166 

12,2231 

00015  0 

XMI  N 

0818 

1?  ,223? 

51000  0 

BOV 

BPL 

3819 

REF 

1 

12,  2233 

24240  1 

NDXCHNGE 

0820 

REF 

2 

LAST 

1167 

12  ,2234 

24240  1 

NDXC  HNGE 

3821 

12 ,2235 

52145  0 

DLOAO 

GOTO 

GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L CCN  I C SUBROUT  IN  ES 


0822 

0823  PEF 


I?  ,2236  00001  0 
12,2237  24260  0 


00 

NEWDELX 


<825 

3826 
0827 
0 8 23 
3829 


REF  4 LAST 

PEF  8 LAST 

REF  1 

EFF  2 LAST 


12,  2240 
1167  12,2241 

1167  12,  2242 
12,2243 
12  ,2244 

1168  12,  2245 


4 c 345  1 NO  XCHNGE  OLOAD  0 SU 
00015  0 X M IN 

CCC25  0 X 

52075  1 OM  PR  SOTO 

11023  0 DP9/10 

24260  0 NEWDELX 


0830 

0831  REF 

0832  REF 

0833 

3934  REF 

0835 

0836  REF 
3837  REF 

0838 

0839 

0840  REF 

0841 

3842  REF 

0843  REF 

0844  PEF 
3845  PEF 
0846  REF 
0 847 

0848  PEF 

0849  REF 
3350 

0851  REF 


12  ,2246 

6 LAST  1168  12,2247 

5 L AST  1 168  12,  2250 

12  ,2251 

6 LAST  1167  12,2252 

12,2253 


2 LAST  1168 


LAST  1167 

LAST  1167 
LAST  1168 
LAST  1168 
LAST  1167 
LAST  1167 


12,2254 
12,  2255 

12,2257 
12, 2260 
12  ,2261 
12,  2262 
12,  ?263 
12  ,2264 
12,  2265 
12  ,2266 
12 ,2  267 
12,  2270 
12  ,2271 
• • 


77745  1 
00025  0 
00015  0 
45221  1 
CCC13  0 
50000  l 
24274  0 
24274  0 
77745  1 
00001  0 
02643  1 
43254  0 
24333  1 
00025  0 
14025  0 
C0037  0 
01551  1 
46034  1 
24644  1 
24333  1 
77650  1 
24166  0 


POS  DEL  X OLOAD 


STORE 

BDSJ 


BOV 


OLOAD 

NEWDELX  STORE 
BZE 


STOOL 


STORE 

BRNCHCTR  R T 8 


GOTO 


X 

XMI  N 
DSU 
X MAX 
3 MN 

PDXCHNGE 
PO XCHNGE 

0 D 
DE  LX 
DAO 

KE  PCONVG 
X 


TC 

BHIZ 

:hec  kc  tr 

< EPCONVG 
KC  PLDOP 


0852 

3353 

0854 

0855 
flP56 
6 857 


PEF 

PEF 

REF 

REF 


12  ,2274 
LAST  1 168  12,  2275 

LAST  1168  12,2276 

12 ,2277 
LAST  1 168  12,  2300 

LAST  1 L6H  12  ,2301 


00025  0 
52075  1 
1 1023  0 
24260  0 


PDXCHNGE  OLOAD 


DMPR 


DSU 

XMAX 

X 

GOTO 
3 P 9/1  0 
NEWOELX 


3958 

0859 

0860 
3861 

0862 

0863 


REF 

REF 

REF 


. 

LAST  1169  12,2303 

12 ,?  3 0A 

LAST  1167  12,  2305 

LAST  1 160  12  ,2306 

12,2307 


7C545  1 
00013  0 
77765  0 
C2C74  0 
00025  0 
77650  1 


BAD  X 


D LOAD  SRI 
XMA  X 

S IGN 

TAU. 

STORE  X 
GOTO 
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TO  FORCE  MP AC  +2  TC  ZERC 


MOVE  MIN  BOUND  IN 


I TERATE 


TO  FORCE  MP  AC  +2  TO  ZERO 


1 
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CONIC  SUBROUT  INES 


0864 

0879 

0880 
08805 
0881 
0882 
0888 
3884 

0885 
08855 

0886 
0887 
3883 

0889 

0890 
399  1 
0391  1 
08912 

0891  3 

0892 
3393 
0894 
08«5 
3396 

0897 

0898 
089^ 
0900 
393  i 

0902 

0903 
3904 

0905 

0906 

0907 

0908 
3909 
091  0 
0911 
3912 
0913 


R EF 
REF 
REF 
R EF 
RFF 


L AST 
LAST 


L AST 
LAST 
LAST 
LAST 


1159 
1169 
1 168 
1 168 


LAST  1165 


1 


3 L AST 

14  LAST 
41  LAST 

3 

15 


1 165 

1169 

1167 

1166 
1 169 


REF  6 LAST  1169 
REF  5 LAST  1165 

REF  15  LAST  1147 


12,2310 
12  ,231 1 
12,  2312 
12  ,2313 
12,  2314 

12.2315 

12.2316 
12,  2317 
12  ,2320 
12 ,2321 
1 2,  2322 
12  ,2323 
12,  2324 
12,  2 32  5 
12,2326 
12,  2327 
1?  ,2330 
12 ,2331 
12,  2332 
12  ,2333 
12,  2334 

• 

12,2336 
12,  2337 
12  ,2340 
12,2341 
12,  2 342 
12  ,2343 
12,  2344 
12,?  345 
12  ,2346 
12,  2347 
12  ,2350 
12,2351 
1 2,  2 35  2 
12  ,2353 
. 

12,2  355 
12  ,2  356 
1?,  2357 
1?  ,2360 


24  140  1 
50145  l 
CC025  0 
24330  1 
CC013  0 
70545  1 
02643  1 
C 2 f a 3 1 
44254  1 
02111  1 

00025  0 
14025  0 
Cl  551  1 
C0037  0 
77650  1 
24267  1 
000  15  0 
77650  1 
24315  0 
44545  0 
CCC41  1 
74225  1 
00035  1 
C2647  0 
65372  l 
00025  0 
60316  0 
00047  1 
57275  0 
OOG23  0 
00025  0 
5 3605  1 
00033  1 
21572  1 
77621  1 
00037  0 
74352  C 
01511  0 
53372  1 
77712  0 
01535  0 


TI MEOVFL  DLCAD 


NEGTOVFL 
X MAX 
SR  1 
OELX 
DE  LX 
BDSU 
KEPRTN 


KEPCflNVG  DLOAO 
DSU 

VSL  1 

o sg 

(3MPR 

DMP 

BO  SU 

SL1 

VS  LI 
VSL4 
STORE 


R1 

VXSC 

XSQC  (X  I ) 
UP.RECT 
POOL 
X 

NORM 


VXSC 
VREC  T 
V AO 


0914 

0915 

0916 
39  17 
09l  R 
0919 
3929 


REF 
REF 
P EF 


25  LAST  1167 


LAST  1167 


2 LAST  1169 


■ 

12,  2364 
12,2365 
12  ,2366 
12,  2367 


14043  0 
0CC31  0 
45275  0 
00033  1 
11C05  1 


A8 VAL  NORM 


STOOL  R C NORM 


DSU 
S (X  I ) 

01  /I  2 8 
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X WAS  TOO  RIG 


0D  = ( R 1-  XSQC  ( XI  ) ) URRECT  ( + 33  OR  +31) 


RCV  ( + 29  nR  +27) 


GAP:  ASSEMBLE  REVISION  56  OF  AS 2 PROGRAM  ZERLINA  BY  ZOROASTER 

L C CM  C SUBROUTINES 


0921 

3922  PEF 
0923 

C 9 ?4  PEF 

0925 

(•92  6 

3927  PEF 

0928  REF 

0929 

3933  REF 
0931 
09  32 

0933  REF 

0934 

3935  PEF 
093*.  REF 
0937 
3938 

0939  REF 

0940  REF 

0943  REF 

0944  REF 
3947  REF 

0948 

0949  REF 


16  LAST  1169 

2 LAST  1169 
A LAST  1169 

2 LAST  1169 


3 LAST  1170 
1 

6 LAST  1169 


13  LAST  1147 
7 LAST  1169 
5 LAST  1169 
17  LAST  1170 
2 LAST  1167 

2 LAST  1169 


12,  2 37  1 
12  ,2  372 
12  ,2373 
12,  2374 
12  , 2 375 
12,  2376 
1 2,  2 377 
12  ,7 4C0 
12, 240  1 
12  ,2402 
12,2403 
12,  2404 
12  ,2405 
12,  2406 
12,  2 407 
12  ,2410 
12,  2411 
12  ,2412 
12 ,2413 
12,  24  14 
12 ,2415 
12,  2416 
12,241  7 
12  ,2420 


76405  1 
00021  1 
53605  1 
00C25  0 
56601  0 
74271  0 
CCC43  0 
02647  0 
65372  1 
00035  1 
56257  1 
566C2  0 
OOC  4 3 o 
74221  0 
11021  1 
01511  0 
42455  0 
77626  0 
62234  0 
00037  0 
15551  1 
00025  0 
C l 5 53  C 
77650  1 
02111  1 


OMP  S LI R 

ROOTMU 
UMP  SLR* 

X 

0 -3,2 

onv  vxsc 

PCNGRM 
CWREC  T 
VS  LI  POOL 

X SQC ( XI ) 
SLR*  DOV 

0 -A  ,2 
RC  NORM 
BOSU  VXSC 

Dl/256 
VREC  T 

V AO  VSL8 
STAOR 

STOOL  VCV 
T 

STODL  TC 

STORE  XPREV 
GOTO 

KEPRTN 
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0 D=  UR  P E C T ( X I SC  X I 1-  1 ) X ROOTMU/RCV  (+15 
OR  +13  ) PL  AT  6 


PL  AT  0 


VCV  ( + 7 OR  +5) 


Ci  A P : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZE  RLI  NA  BY  ZOROASTER 


L CONIC  SUBROUT  IN  ES 


0950 

0951 

0952 

0953 
0 953 

0954 
OPV* 

0955 

0955 

0956 

0956 

0957 

0957 

0958 

0958 
095  9 

0959 

0960 

0960 

0961 

0961 

0962 
0 962 
0953 

0964 

0965 

0966 

0967 

0968 

0969 

0969 

0970 

0970 
097  1 

0971 

0972 

0972 
09  73 

0973 

0974 

0974 

0975 

0975 

0976 
0 9 74 

0977 
0077 

0978 

0978 

0979 


REF  217 
REF  3 
REF  3 

REF  5 


12  ,2421  77776  1 OELTIME  EXIT 


LAST  1076  12,  2422  C 7234  0 TO 

12.2423  00010  0 DEC 

12.2424  02525  1 2 DEC 

12,  2425  12526  C 

12  ,2426  67356  0 20EC 

12  , 24  27  7 5666  0 

12,  2430  15001  1 2DEC 

12  ,2431  23771  1 

12,  2432  64342  0 2DFC 

1 2, 2 433  43674  0 

12  ,2434  06563  1 2 DEC 

12,2435  C4645  1 

12  ,2436  75173  0 2DEC 

12,2437  52672  0 

12,  2440  0C656  1 2DEC 

12,2441  14331  0 

12,  2442  77633  1 2DEC 

12,2443  40512  0 

12  ,2444  00023  0 2 DEC 

12,  2445  1 12  10  1 

12  ,2446  77774  0 2DFC 

12,2447  67506  0 

LAST  1146  12,  2450  C 6051  0 TC 

LAST  1169  12  ,2451  14033  1 STOOL 

LAST  1169  12,2452  CCC31  0 

12,2  453  77776  1 FXIT 

LAST  1171  12  ,2454  C 7234  0 TC 

12,  24 c 5 C0010  0 DEC 

12  ,2456  01000  0 2DEC 

12,2457  00000  1 

12, 2460  72525  0 2DEC 

12  ,2461  52506  0 

12,  2462  13301  1 2DFC 

12,2463  15337  1 

12  ,2464  62776  0 2 DEC 

12,  2465  547  33  1 

12  ,2466  11  176  1 2 DEC 

12 ,2467  13267  0 

12,  2470  73410  C 2DEC 

12  ,2471  51674  0 

12. 2472  C 1446  0 2DEC 

12.2473  33641  1 

12  ,2474  77451  1 2 DEC 

12. 2475  65233  0 

12.2476  00055  1 20EC 

12 .2477  37266  l 

12,  2500  77767  1 2DEC 

1?  ,2501  52336  0 

LAST  1171  12,  2 5C 2 C 6051  0 TC 


POLY 

8 

.083333334 

- . 2666666P4 

. 4063491  55 

-.361198675 

.210 153242 

- .C86221951 

. 026268812 

-.006163316 

.00  1 177342 

- .000  199055 

I NTPRE  T 
S (X  I ) 

XI 

POLY 

8 

.031250001 
-. 16666671 9 
.355555413 
-.406347410 
. 288962C94 
-.  1401 1 7894 
.049247387 
-.0  13081923 
. C 0 2 806  3P9 
-. 000529414 


I NTPRET 
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USER'S  PAGE  NC.  22  E5  S3 

P AC=  XI  ( + 6),  0D=  X $Q  (+34  OR  +32  -N1 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


I.  CONIC  SUBROUTINES 


0980 
3 98  1 

0982 

0983  REF 
3984 

0985  RFF 

09R6 

0987  REF 

0988 

9989  REF 

0990 

0991 

3992  REF 

0903 

0904  REF 

0995  RFF 

0996 
3997 

0998 

0999  REF 
133?  REF 
1001 

1002 

1003 

1004  KEF 
1335  REF 
1 006 


3 

2 

9 


2 

1C 

9 


42 

18 


8 


LAST  1170 
LAST  1165 
LAST  1141 
LAST  1171 

LAST  1165 

LAST  1172 
LAST  1169 

LAST  1169 
LAST  1170 


LAST  1169 
LAST  1170 


12  ,2503 
12,  25C4 
12,2505 
12  ,2506 
12,  2507 
12  ,25  10 
12  ,25  l l 
12,  2512 
12  ,2513 
12,  25  14 
12,2515 
12  ,2516 
12,  2517 
12  ,2523 
12 ,2521 
12,  2522 
12  ,2523 
12,  2524 
12,2  525 
12  ,2526 
12,  2 52  7 
12  ,2530 
12,2531 
12,  2532 
12  ,2533 
12,  2534 
12,  25  35 


53605  1 
CCC01  0 
21574  1 
00C35  1 
72405  0 
00043  0 
65234  1 
21615  0 
53605  1 
CC033  1 
21574  1 
72405  0 
C0C45  0 
65234  1 
21615  0 
OOC  4 1 1 
76261  0 
2C6C7  1 
41301  0 
00047  1 
00025  0 
76257  0 
20576  1 
57232  0 
00023  0 
0CC37  0 
77616  0 


OMP  SRR* 

00 

0 -5,  1 

STORE  XSQC(XI) 
DMP  SLl 

K EPC  1 

RTB  POOL 

TPMODE 
DMP  S RR  * 

5 (XI  ) 

0 -5,  1 

OMP  SLl 

KEPC2 

RTB  POOL 

T PMODE 
R 1 

SR  TAD 

6 

NORM  DMP 

X l 

SR*  TAD 

? -3  ,1 
SL4R  DM  PR 

1 / ROOT  MU 

STORE  T 

RVQ 
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USER'  S PAGE  NC.  23  F5  S3 

PL  AT  0 

XSQC(  XI  ) ( +33  OR  +31) 

XCH  WITH  PL.  00=C1  XSO  C ( X I » (+49  OR  +46 
PL  AT  3,3 

3P=C  2 XSQ  S(XI)  ( + 35  OR  +33)  PL  AT  6 

PL  AT  3 

TO  PRESERVE  SIGNIF. 

X(C2  XSQ  S(  XI  ) +P1)  ( + 49  OR  +46)  PL  AT  0 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


1 DD7 
ICO  8 
1009 

idc 

10  11 
1D12 

1013 

1014 
115 
1016 
101  7 
i ni8 
1019 
ID  2D 
1021 
1022 
1 D 23 

1074 

1025 

1026 


CONIC  SUBROUTINES 

PEF  1 
P EF  1 
REF  1 


26  LAST  1169 


LAST  1173 
LAST  129 


12,  2536 
12  ,2537 
12,2540 

t ■ 

12  ,2 542 
12,  2543 
12  ,2544 
12  ,2545 
12,  2546 
12  ,2547 
12,  26  50 
12,  2551 
12,2552 
12,  2553 
12  ,2554 
12  ,2555 
12, 2556 
12  ,2557 
12, 2560 
' . 


71214  0 
00614  1 
246C6  1 
00037  0 
60225  1 
C 27  6 2 0 
00047  1 
60325  0 
00015  0 
00050  1 
41260  C 
00047  l 
02760  1 
56257  1 
21202  1 
43  142  1 
04351  1 
2456?  0 
75246  0 
02760  1 


FI RSTI ME 
OEP 
NORM 
DE  PREV 
X 1 


XSU,1  BMP 


1,  1 


BOFF 
ORDER  SW 
SONCHECK 
SIGN 
DELDEP 


10  27 
1 D 23 

1029 

1030 
1 0-31 
10  32 
1 D 33 


PEF 

REF 

PFF 

REF 


2 LAST  1173 


12  ,256? 

■ 

12  ,2564 
12  ,2565 
12,  2566 
12  ,2567 
12,  2570 


51006  0 
2462 0 0 
43145  0 
02766  1 
04311  o 
24571  1 
C001 7 1 


SGNCHECK  PUSH 


BPL 

POSDE  L 

RON 

INDEP 

OROtRSW 

M INCHECK 

MAX 


1,  34 
1035 
1 D 36 
1037 
1C3B 
1039 
l<  4 


2 LAST  1173 


12,2571 
12  ,2572 
12,  2573 
12  ,2574 
12  ,2575 
12, 2576 
12  ,2577 


45221  1 
00011  1 
MCOO  o 
24600  1 
24600  1 
77650  1 
24632  0 


M INCHFCK  BO  SU 


DSU 

MIN 

BPL 

MOONGOEL 

MOCNGDEL 

DELOK 


1 D 4 1 

1042  REF 

1043  REF 
1 '44 

1045  RFF 

1046  REF 


2 

2 


3 

1 


12,2  6C0  45345  1 

LAST  1173  L 2 , 260  1 000  1 L 1 

LAST  1173  12  ,2602  02766  1 

12,  2603  5 20G  5 0 

LAST  1168  12  ,2604  11023  0 

12,2605  24634  0 


MODNSDE  L D LOAD  DSU 
M I N 
INCEP 

DMP  GOTO 

OP  9/10 
NEWOEL 


1 04  7 

1048  REF 
1 D49  PEF 
1050 


LAST  1173 


12,  2606  41345  0 

12,260  7 00011  1 

12.2610  0C051  0 

12.2611  41325  0 


FIRSTIME  DLOAD  DMP 
M IN 

TWEEKIT 
PDDL  DMP 
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IN  CASE  2ND  PER  IV.  CHANGED  SIGN,  MUST 
DISREGARD  IT  TO  FIND  MIN. 

TRIAL  OEL  INDEP  PL  DGWN  2 


IF  NOT  2ND  ORDEP,  CAN  MOVE  MAX  BOUND  IN. 


TRIAL  DEL  INDEP  WOULD  EXCEED  MIN  BOUND 


DLOAD  TWEEK  IT  (40D  ) SENSITIVE  TO  CHANGE 
S2I41D)  SHOULDN'T  CONTAIN  HI  ORDER  ONES 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


13  51  R P F 

1052  REF 

1053 
1354 

1055  RFF 

1056  REF 


2 I AST  117?  12,  2612  CCC17  1 

2 LAST  1173  12,2613  00051  0 

12.2614  77625  0 

12.2615  5 2 16  5 1 

5 LAST  1173  12,2616  02760  1 

2 LAST  1 173  12  ,2617  24562  0 


MAX 

TWEEKI  T 

DSU 

SIGN  GOTO 

DELOEP 
S GNCHECK 


1057 

1C  58  RFF 

1059  REF 

1060  RFF 
106  1.  PEF 


LAST 

LAST 

LAST 


12,  26  20  4 2 14  5 0 

1173  12  ,2621  02766  1 

1173  12,2622  C4311  C 

12, 2623  24625  C 

1173  12,2624  00011  1 


PO  SOEL 


DLOAD  BON 

INDEP 
ORDERSW 
MA  XC.  HECK 
STORE  MIN 


1362 

1063 

1064 
1 065 
1066 
1367 
106  8 
10  69 

1373 


RFF 

REF 

RFF 


RFF 


12,  2625 

3 LAST  1174  12,2626 

12, 2627 

1 12,  26  30 

2 LAST  1174  12  ,2631 

12,  2632 
12,  2633 

2 LAST  1173  12,2634 

12, 26 35 


4 5*21  1 MAXC.rlFCK  UD  SU  l)SU 


000  17  1 
5CCC0  1 
24636  1 

24636  1 

77745  1 DELOK 
00CC1  0 

00 015  C NEWDEL 
77616  0 


MA  X 

BOV  BMN 

MODPSDE  L 
MOOPSDEL 

DLOAD 

( 0 

STORE  DEL INDEP 
R VO 


1071 
1C  7 2 
1-73 
1074 
1375 
1 076 


REF 

REF 

REF 

REF 


12  ,2636 

4 LAST  1174  12  ,2637 

4 LAST  1174  12,2640 

12  ,2641 

4 LAST  1 1 T 7 12,  2642 

2 LAST  1173  12,  2643 


45345  1 MOCPS  DEL  OLOAD  DSU 
COO  17  1 MAX 

02766  1 INDEP 

52005  0 DM P GOTO 

11023  0 DP9/10 

24634  0 NEWDEL 


10  77 
1 378 

1079 

1080 
1001 
1082 
1383 


REF  3 
REF  66- 
REF  4 
REF  760 


LAST  1165 
LAST  1174 
LAST  1174 
LAST  1142 


12  ,2644 
12, 2645 
12  ,2646 
12,2647 
12,  26  50 
12,2651 


4 4753  0 
5C  120  1 
6 0026  0 
50  120  1 
54  026  1 
54  154  0 


REF  58  LAST  1085  12,  2652  C 6C73  0 


UNE 

FI  XI  OC 
ITERC.  TR 
F IXLCC 
I TERC  TR 
MP  AC 
DANZIG 
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IF  NOT  2ND  03DER,  CAN  MOVE  MIN  BOUND  IN, 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZCRO ASTER 


L CCNIC  SUBPOUT  INFS 


1084 

10  85 

1089 

1090 

1091 
1C  92 
1093 
1 094 

1095 

1096 
1 097 
1098 
1 099 
1100 
1101 
11C? 
1 1 C 3 

1104 

1105 

1106 

1107 

1108 
1109 

11  If 

mi 

1112 

1113 

I 1 14 

1115 

1116 

1117 

1118 
111° 

II  20 
1121 
112? 

1123 

1124 

1125 

1126 

1127 

1128 
1129 
1 130 

1131 

1132 
1 1 33 

R113*. 


REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 


REF 


REF 


PEF 

RFF 

REF 

REF 

RFF 

KEF 


PEF 


PEF 

REF 

REF 


REF 


REF 


RFF 


10 


3 

19 


20 

5 


10 


45 

1 

4 

6 

2 

2 

21 


2 


3 


2 


11 


LAST  1172 

LAST  1172 
LAST  116  5 

LAST  1172 

LAST  1173 

LAST  117  2 
LAST  1175 

LAST  1172 

LAST  1172 
LAST  690 

LAST  1175 

LAST  1171 

LAST  1175 
LAST  1169 

LAST  1170 

LAST  1175 

LAST  1175 
LAST  1175 

LAST  11.78 

LAST  1175 
LAST  1170 
LAST  1175 


12,  26  54 
12  ,2655 
12  ,2656 
12,  2657 
12  ,2660 
12, 2661 
12,  2662 
12  ,2663 
12,  2664 
12, 2665 
12  ,2666 
12,  2667 
12  ,2670 
12  ,2671 
12, 2672 
12  ,2673 

12. 2674 

12. 2675 
12  ,2676 
12, 2677 
12  ,2700 
12  ,2701 
12,  270  2 
12  ,2703 
12,  2 7C4 
12,  2705 
12 ,2  7C6 
12,  27C7 
12  ,2710 
12,271  1 
12,  2712 
12  ,2713 

12.2714 

12. 2715 
12  ,2  71  6 
12, 2717 
12  ,2720 
12  ,2721 
1--,  '7;  2 
12  ,2723 
12, 2724 

• 

12  ,2726 
12,  2727 
12  ,2730 
12  ,2731 


44545  0 
0GC4 1 1 
74225  1 

00035  i 
02722  1 
65372  1 
00C25  0 
60316  0 
00047  1 
57275  0 
C0023  0 
00025  0 
536C5  1 
00033  1 
21  572  1 
77621  1 
00037  0 
74352  0 
02744  l 
53372  1 
41512  1 
77646  0 
77  701  1 
00047  1 
16720  0 
00C31  0 
45205  1 
00033  1 
11C05  1 
76405  1 
00021  1 
5 360  5 1 
00025  0 
21176  l 
74271  0 
02720  0 
C2722  1 
65372  l 
00035  I 
c 6 2 5 7 1 
21175  1 
C272C  0 
77621  1 
11021  1 
53361  0 
02744  1 
43412  1 


NEWSTATE  OLOAD 
OSU 


VSL1 

OSQ 

ONPR 


n m p 

BO  SU 

SLl 

VS  LI 
V SL4 
ARVAL 
LAMENTER  NORM 

STODL 

OMP 

CMP 

DMP 

on  v 

VSL  l 
SLP* 

BO  SU 
VXSC 
VSL8 


S R4R 

’ 

VXSC 

XSQCIX  I ) 
UR  1 
POOL 
X 

NORM 
X 1 

0 MPR 
1/ROtiTMU 


SR  R* 

S ( X I ) 

0 -7,1 


VXSC 

V VEC 

V AD 
PUSH 


Xl 
R 2 
X I 
OSU 
S (X  I ) 

D 1 /I  2 8 
SL  1R 
ROOT MU 
SLR’.'' 

X 

0 -3  ,1 
VXSC 
R2 
URl 
P ODL 

XSQCIX  I ) 
DO  V 
0 -4,  1 
R2 


01/  256 

V AO 

V V EC 
RVQ 


9:  12  OCT  . 21,  1970 


SKIPPER  .121 


PAGE  1175 


USER*  S PAGE  NC.  26  E5  S3 


0D=(R1-XSQC(XI  ) )UR1  I +33  OR  31)  PL  AT  6 


PL  AT  0 


6D  = V2 VEC  PART  ( + 15  OR  13) 


PL  AT  12 


PL  AT  6 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZER  LINA  BY  ZOROASTER 


L CCNIC  SUBROUTINES 


1135  RFF  3 LAST  46  C4,2,'>00 

1136  04,  30C  1 


SETLOC  CONICS1 
RANK 


1139 

1140 
114D 
1 HI 

1141 

1142 
1 14? 

1143 

1143 

1144 

1144 

1145 

1145 

1146 
1 146 

1147 
11^7 

1148 
1 148 

1149 

1150 
1153 

1151 
1151 
115? 

1153 

1154 

1154 

1155 

1155 

1156 
1156 

R 1 1 57 


RFF  2 LAST  46  TO  47:  16  16* 

DO  MOT  DISTURB  THE  ORDER  OF  THESE  COS, 


REF  5 


L AS  T 113  8 


04,  3oo  1 
04 , 3 0C2 
C 4,  3CC  3 
04,  300  4 
04  ,3005 
C 4,  3CC 6 
04  ,3^07 
04,3010 
04,  30  1 1 
04  ,3012 
04,  •’013 
0 4,  30  14 
04  ,3015 
C4,  3C16 
04,3017 
04,3020 
04,  30  2 1 
04 ,3022 
C 4 , 3023 
12,  2006 


00000  1 
04000  0 
COCCO  1 
002C0  0 
OOOOC  1 
CC4C0  0 
00000  1 
I 

OOCOO  1 
02C0G  0 
COCCO  1 

oicoo  0 
00000  1 
0CC20  0 
00000  1 
00100  0 
00000  1 
34631  1 
23146  0 


C4.3024  77467  1 

C 4,  3025  77777  0 

04,  30  26  03110  1 

04,3027  17665  1 


COUNT*  if. /CON  1C 
OVFRLAYS  HAVE  BEEN  MADE. 

BEE  1 7 DEC  0 

01/8  2 DEC  1.0  B-3 

01/128  2DEC  1.0  B-7 

Di/64  20FC  1.0  8-6 

Dl/4  2 DEC  1.0  B-2 

01/16  2DEC  1.0  B-4 

Dl/32  2DEC  1.0  R—  5 

Di/1024  2DEC  1.0  B-1 0 

Dl/256  2 DEC  1.0  B-B 

CP9/10  2 DEC  .9 

KEPZE30  EQUALS  LO6ZER0S 

-50SC  2 DEC  -50.0  B-12 

2PISC  20FC  6.  2831 8530 


B-i 


RFF  1 
REF  3 


C.  4,  3913 
LAST  1175  04,3017 

04  ,3030 
04,  3031 
04  ,3032 
C4 ,3033 
04,  30  34 
04,3035 


BEE  1 9 
BEE22 

00000  1 CNEBIT 
00C.C.1  0 

37767  0 COGUPLIM 
37737  C 

40010  1 COGLOLIM 
40040  1 


EQUALS  Dl  /32  -1 
EQUAL  S fU/256  - 1 
2 DEC  1.0  B-28 

2 DEC  .999511597 

2o  EC  -.  999511597 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1176 
USER'S  PAGE  NO.  27  E5  S3 


KFFP  WITH  01/8  2 DFC  1 .0  P-1 7 OOD32D4DOO) 


2 OF  C 1.0  R— 1 9 (00000  0 1000  ) 
2DFC  1.0  B- 22  (OC  000  00100) 


GAP: 


ASSEMBLE  REVISION  56  OE  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


1158  REF 
1156 


2 LAST  1164  12  ,2000 

12,  2732 


SETLOC  CONICS 
BANK 


1160  RFF 

1 161 

1162  REF 

1163 

11635 

11636 

1164 

1165  RFF 
11fc6  REF 

1167 

1168  REF 

1169 

1 170  REF 

1171  REF 

1172 

1173  REF 

1174  REF 

1175  REF 
1175 

1177  RFF 

1178  RFF 

1179 

1180  REF 
11P1  REF 
1 1 82  REF 

1183 

1184  REF 


2 LAST  1165  TO 


8 LAST  690 
12  LAST  1175 

1 

1 

1 

5 LAST  1175 
1 
1 

1 

2 LAST  1167 

7 LAST  658 

2 LAST  1177 

1 

3 LAST  1177 


11  76: 

12  ,2732 
12, 2733 
12  ,2734 
12  ,2735 
12,  2736 
12  ,2737 
12,  2740 
12,  274  1 
12  ,2742 
12,  2143 
12  ,2744 
12  ,2745 
12, 2746 
12  ,2747 
12,  2750 
12, 2751 
12  ,2752 
12,  2753 
12  ,2754 
12  ,2755 
12, 2756 
12  ,2757 
12,  2 7 6 C 
12,  2761 
12  ,2762 
12, 2763 


02710  0 
00001  0 
77600  1 
24737  1 
63375  r> 
C2655  0 
C2  744  1 
77624  1 
1 1 C 36  1 
45000  0 
2476  4 1 
24767  1 
43145  0 
CCC31  0 
04310  l 
25752  0 
4 5C 1 4 0 
04273  0 
24421  0 
45C14  0 
03706  0 
C2710  0 
24653  l 
77650  1 
C 27 1 0 0 


COUNT*  /CONIC 
T 1 METHET  ST  Q S ETP0 
RTNTT 

0 

BOV 

+ 1 

VLOAD  PDVL 
PVEC 
VVEC 

CALL 

PARAM 

BOV  CALL 

COGAOVFL 
GE  TX 

COMMNOUT  DLOAD  BON 
XI 

I NF  I NF  LG 
ABTC0N1C 
CLEAR  CALL 

COGAFLAG 
OFLT  IMF 
BON  CALL 

RVSW 
RTNTT 
NE  WSTA  TF 

GOTO 

RTNTT 


1185 

1186  REF 

1187  RFF 
11872 

11874  REF 
11876 
11878  REF 
1198 

1189  RFF 

1190  REF 

1190  1 

11902  RFF 

1191 

1192  RFF 

1193 

1194  RFF 
1 1 95 

1196 


2 

2 

4 

3 

2 

7 

3 

7 

1 


LA  ST 
L AST 

LA  ST 

LAST  1 

LAST 

LAST 

LAST 

L AST 


12  ,2764 

1177  12,2765 

1 177  12,  2766 

04  ,3036 

1176  C 4, 2000 
04,  30  36 

176  TO  1177: 

C4, 3036 
129  04,  3037 

764  04,3040 

04,  3C4  1 

1177  04,3042 
04  ,3043 

76  5 0 4,  3c  44 

04  ,3045 
C 4,  3046 
0 A,  3047 
04,3050 


77614  1 
04033  0 
25752  0 


29  45* 

43020  1 
02  75  3 1 
03665  l 
77614  1 
04273  0 
45131  0 
02673  1 
27777  0 
11102  1 
14045  0 
56261  1 


COGAOVFL  SET  GO 

COGAFL  AG 
A 8 TC  ONI  C 
BANK  4 
SETLOC  C0NICS1 
BANK 

COUNT*  It/  CONIC 
PARAM  STO  CLEAR 
RTNPRM 
NORMS W 

C LEAR 


COGAFLAG 
SSP  CALL 

3F  OMSGN 
37777 
GE  CM 

STOOL  360 
S R ODV 


9:  L2  OCT.  21,  1970  SKIPPER 
USER'  S PAGE  NO.  28 


.121  PAGE  1177 
E5  S3 


SETUP  FDR  P A3  AM  CALL  PL  AT  6 


PL  AT  0 


MP  AC=V  1 V EC,  0 D=  R 1 V EC  PL  AT  6 


GAMMA  ALWAYS  LESS  THAN  180DEG 
M P A C=  S N G A (+1),  0 D=  CS  GA  (+1)  PI  AT  2 
36D=SI  N GAMMA  (+1)  PI  AT  0 


1 1/VP : A S Sf-  MB  LE  REVISION  56  OF  AG  C PRTGRAM  ZFRLINA  kY  ZOROASTER 


L CONIC  SURROIITINES 


1 1 97 


04,3051  20606  0 


5 


1 198 

1199  REF 
1209  PFF 
120  1 REF 
1 2 02  REF 
1203 

1 234  REF 

12C5 

1206  REF 

1207  REF 

1208 

1209 

1210 

1211  REF 

1212  REF 


C4 ,3052 

3 LAST  130  04, 30  5.3 

5 LAST  1165  04  ,3054 

2 I A ST  1165  04  » 3n 5 5 

3 LAST  129  04,  3056 

04,3057 

46  LAST  1175  C4, 3C6C 

04,3061 

3 LAST  1178  04,3062 

11  LAST  1175  04,3063 

04  ,3064 
04 , 3065 
04,  3066 

2 LAST  1176  04,3067 

4 I AST  685  C 4,  3C70 


00045  0 
32766  1 
10005  0 
14017  l 
02720  0 
60316  0 
00C47  1 
41275  1 
00017  1 
OC04  1 1 
77657  0 
21576  0 
44206  0 
11015  C 
16742  1 


36  D 

STOVL*  COGA 

MUTABLE,  1 
STOOL  1/MU 

MAG  VEC  2 
DSO  NORM 
XI 

DM  PR  OMP 

1 / MU 
R 1 

SRR  * 

0 -3  ,1 
PUSH  30  SU 
01/32 
STODL  R1A 


1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 


REF 


47  LAST  1178 

4 LAST  633 
3 LAST  1177 


04,3072 
04,  3C73 
04 ,3074 
C4 , 3 C75 
0 4,  3.''  76 
04,3077 
04 ,3  ICO 
04,  3 10  1 


60  20  5 0 
00045  0 
0CC47  1 
53605  1 
00045  0 
20575  1 
02740  0 
77650  1 
02753  1 


DMP 

OMP 

STORE 

GOTO 


NORM 

360 

Xl 

SR* 

36  D 
0 -4,1 
P 


REF 


PTNPRM 


12  OCT.  21,  1970  SKIPPER  .121  PAGE  1178 
USER'S  PAGF  NO.  29  E 5 S 3 


0D  = R1  V1SQ/MJ  (+6)  PL  AT  2 

Rl  A (+6 ) PL  AT  0 


P (+4) 


GAP:  ASSEMBLE  REVISION  5 fa  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


1 2?  5 
1226 
1227 
122  b 
1220 

1230 

1231 

1232 

1233 
12  34 

1235 

1236 

1237 

1238 

1239 
124<> 

1241 

1242 

1243 

1244 

1245 
1 246 

1247 

1248 


CONIC  SUBROUTINES 

RFF  2 LAST  129 

REF  o.  LAST  1178 

REF  5 LAST  1175 

REF  3 LAST  1179 

PFF  12  LAST  1178 


REF 

REF 

REF 

REF 

REF 


LAST  1179 
LAST  1179 
LAST  1177 
LAST  1177 

LAST  765 


G4. 3 102 
04  ,3103 
04 ,3  104 
04,  3 1c  5 
04  ,3106 
C4,  31C7 
04,  31  10 
04,3111 
04,  3112 
04  ,3113 
04  ,3114 
04,  31  15 
04  ,3116 
04, 3 l 17 
0 4,  3 120 
C4.3121 
r 4,  3122 
, 

04  ,3124 
04, 3125 
04  ,3126 
04,  3127 
04,  3130 
04  ,3131 


77656  1 
16712  1 
00045  C 
26720  0 
77656  1 
C2722  1 
7244  1 0 
02712  1 
77725  1 
00045  0 
2404)  1 
02722  1 
76435  1 
C2712  1 
7 5214  l 
03705  0 
11134  1 
02673  l 
40056  0 
11132  1 
16674  0 
f CC45  0 
43565  0 
02673  1 


STO  VI 
UN  IT 
STCRE 
DOT 

PDDL 

STOVL 

VXV 

BON 

UNIT 

STOOL 

SIGN 


35  D 

MAG  VEC2 


UR  1 
VS  L 1 
U2 

SIGN 
NORMSW 
H A VE NORM 
GEOM  SON 
BOV 

SOLI  NEAR 
JN 
360 
R VO 

GEOMS GN 


REF  10  LAST  1179 


04.3134 

04. 3135 

04.3136 


HAVENOPM  ABVAL 


# 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  1179 

USER  'S  PAGE  NO.  3C  E 5 S3 

MPAC=V2 VEC , 3 0 = Rl V EC  PL  AT  6 

U2  (+1) 

PL  AT  0 

URl  (+1  ) 

OD=CST H (+1)  PL  AT  2 

R 1 (+29  OR  +27) 


UN  (+1) 

M PAC  = SNTH  (+1  ) , 34  D=SNTH.S  NTH  ( + 2) 


MP  AC=  SN  TH  (+1),  34D=SNTH.  SNTH  ( + 2) 


3AP:  ASSEMBLE  REVISION  66  OF  AGC  PRCGRAM  ZERL1NA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


1254  12,2767 

1255  REF  3 LAST  1177  12,2000 

1256  12,2767 


BANK  12 
SETLOC  CONICS 
BANK 


12565 

1257 

1250 

1259 

1250 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 
126° 

1 270 

1271 

1272 

1273 
12  74 

1275 

1276 
12  77 

1278 

1279 

1280 
1281 
1282 
1283 
1234 

1285 

1286 
1287 


PFF 

REF 

RFF 
REF 
REF 
R EF 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 


26 


5 

2 


1 


2 


761 


LAST  1177 

LAST  1146 

LAST  657 
LAST  37 
LAST  657 

LAST  1178 
LAST  1180 

LAST  1174 
LAST  1178 


1 1177: 
12,2767 
12,  2770 
12  ,2771 

12. 2772 

12. 2773 
12  ,2774 
12,  2776 
12  ,2776 
12  ,2777 
12, 3000 
12  ,3001 
12, 3CC2 

12,  366 3 
12,300* 
12,  3005 
12  ,3006. 
12  '07 

12,  30  10 
12  ,3011 
12,  3012 
12, 30  1 3 
12,301* 
12,  3015 
12  ,3016 
12  ,3017 

12,  36 20 
12  ,3021 
12,  3022 
12,  30  2 3 
12,3024 
12,  3025 


29  484* 

66374  1 GETX 
00003  1 
00052  0 
C0C01  0 
7761*  1 
04276  0 
65366  1 
02732  0 
443*2  1 
. 110  11  1 
5*325  1 
C 27  30  1 
21607  0 
77671  1 
77600  1 
25122  1 
*1225  1 
02766  1 
*013?  0 
25122  1 

63*06  0 WL OOP 
65351  0 
CO  1 55  0 
02742  1 
76202  0 
76440  0 
25205  1 
A 3306  C 
61000  0 
25120  0 
2 5 C 1 3 1 


COUNT*  tt /CONIC 
AX  T ,?  SSP 

3 

S 2 

1 

CLEAR 

36CSW 

SORT  POOL 
CSTH 
SRI  BOSU 
01/* 

P DDL  SRR 

5 NTH 

6 

DOV 

BOV 

36CCHECK 
DSU  DMP 

:oga 

SL2R  BOV 

3 60  CHECK 
PUSH  D SO 
T L CAD  POOL 
MPAC 
R 1A 

SR*  TAD 
RMN  SORT 

INFIN  ITY 
ROUND  0 AD 
BOV  T I X , 2 

RES  ETX2 
WLOOP 


1288 
1289 
12  90 

1291 

1292 

1293 
129* 

1295 

1296 

1297 

1298 

1299 


R EF 
REF 

RFF 


REF 

REF 


REF 


2 

3 


6 


LAST  1175 
l AST  1 180 

LAST  1180 

LAST  1178 
LAST  1180 

LAST  1171 


1 2 , 3 02  7 
12,  30  30 
12  ,3031 
12,  3C32 
12,  30  33 
12,303* 
12, 3035 
12  ,3036 
12 ,3037 
12,  30  40 
12  ,3041 


40065  0 
1100  5 1 
25205  1 
41440  1 
252C5  1 
77716  1 
41301  0 
00047  1 
C 274  2 1 
77457  1 
21567  0 
0 7234  0 


BDOV 

POLY  CO  EF  8MN 

OSO 

NORM 

SRR* 

TC 


BOV 
Dl/128 
I NFI  NI  TY 
PUSH 
I NFI NI TY 

DMP 

Xl 
R 1A 
EX  IT 

0 -10D  ,1 
POLY 
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JSER'S  PAGE  NO.  31  E5  S3 


ASSUMES  P (+4)  IN  MPAC 

CD=SORT(P»  PL  AT  2 

PL  AT  4D 

PL  AT  2 

PL  AT  0 

OD=W  ( + 5)  PL  AT  2 

2D=  WSQ  ( + 10)  PL  AT  5 

PL  A T 2 

PL  AT  OD 


0D=  1/W  ( + 2)  3 9 1 6 / In  1+6) 


PL  AT  2 


;ap: 


ASSFRRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


1300 

1301 
130  l 
1 3 C2 
130? 
133  3 

1303 

1304 

1304 

1305 
1335 
1 3 06 

1306 
1337 
13(  7 
1 30  8 
13^9 

1310 

1311 
1 312 

1313 

1314 

1315 

1316 

1317 
1 31  A 


REF  219 


REF  2 
REF  1 

REF  49 

REF  7 

REF  6 


• 12,  3042 

12,3043 
12,  3C44 
12,  30  45 
12  ,3046 
12,  3047 
12  ,3050 
12  ,3051 
12,  3052 
12  ,3053 
12,  3C54 
1 2,  30  55 
12,3056 
12,  3C  c 7 
12 ,3060 
LAST  1171  12,3061 

12,  3062 
12  ,3063 
LAST  1180  12,  3064 

12,  3065 
12,3066 
LAST  1180  12,  3067 

12  ,3070 
LAST  1180  12  ,3071 

12,  3072 
LAST  1177  12  ,3073 


00005  1 
20000  0 
CCCCO  1 
72525  0 
52471  1 
C3146  1 
15003  0 
75556  0 
45210  0 
Cl  61  5 1 
13553  C 
76  371  C 
63777  0 
C 1 232  0 
27367  0 
C 6051  0 
76405  1 
43006  0 
C4316  1 
25172  1 

60316  0 XCCMMCN 

C0047  1 

53605  1 

02  74  2 1 

21565  1 

14031  0 


20EC 
2DEC 
2 DEC 
2 DEC 
2DEC 
2DEC 
TC 


DSQ 
DM  P 


STOOL 


166666770 
. 1 00000392 
-.071401086 


.055503292 
-. 047264CS8 
. 040694204 

INTPRET 

SLlR 

BON 

360SW 

TRUF360X 

NORM 

Xl 

SRR  * 

R1  A 

0 -120  ,1 


1321 

132? 

1323 


REF  13  LAST  1179 

REF  22  LAST  1175 


' 1 

12.3075  75542  0 

12.3076  41306  1 

12, 3C77  77632  0 

12  ,3100  00025  0 


Rl 

SRI  SORT 
RCUND  DMP 
SL4R 

STORE  X 


1325  PEF 

1326 

1327  RFF 

1328  RFF 

1329 

1330 

1331  REF 

1332  REF 

1333  RFF 
1 334 

1335  REF 

1336  PCF 

1337  RFF 

1338 


50 


14 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LA  ST 
I AST 
LAST 


1 1 8 1 12,3102 

12  ,3103 
1178  12,3104 

1181  12,3105 

1?  ,3106 
12,  3107 
1190  12,3110 

1172  12,3111 

1 Ip  1 12,3  112 

12  ,3113 
1165  12,3114 

1177  12,3115 

1172  12,3116 

12,3117 


6C316 
00047 
41325 
C 2 7 4 0 
00041 
75452 
564  C 5 
02766 
14043 
02742 
43021 
11007 
04  270 
C0045 
7761  6 


0 

1 

0 

0 

1 

0 

0 

l 

0 

1 

0 

0 

0 

0 

0 


DSQ  NOR  R 
XI 

P DDL  DMP 
P 

R 1 

SL3  SORT 
DMP  SL3R 
COGA 

ST  DDL  KEPC1 
P 1 A 

BOSU  CLEAR 
D1  /64 
I NF  I NF  LG 
STORE  K EPC  2 
RVQ 
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USER'S  PAGE  NO.  32  E5  S3 


PL  AT  OD 


XI  ( + 6) 


X (+17  OR  +16) 


PL  AT  0 


0D= XSQ  ( +34  DR  +32  -N1 ) 


PL  AT  2 


Gap:  ASSEMBLE  REVISION  56  OF 


PROGRAM  ZERLINA  BY  ZCRO ASTER 


CONIC  SUBROUTINES 


RESETX?  AXT,2 


1 341 
1342 
1 343 

1344 

1345 


PFF 

REF 


3 LAST  1181 


12.3122 

12.3123 
12,  3124 
12  ,3125 
12,3126 


5 IOC  1 1 
1 

25127  1 
77614  1 
04076  1 


360C.HFCK  SETPD 

SET 


3 PL 
3D 

I NVRSECN 
360SW 


1346 

1 347 
1 34B 

1349 

1350 
135! 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 
1 374 

1375 

1376 

1377 
13  78 

1379 

1380 


RFF 

RFF 


LAST  11P0 
LAST  1178 


REF  5 1 LAST  1 Ip  1 
RFF  4 LAST  1182 


REF  4 LAST  1180 


12,  3127 
12,3130 
12,  3131 

12.3132 

12.3133 
12,  3 134 
12  ,3135 
12,3136 
12,  3 137 
12 ,3140 
12,  3141 
12,  3142 
12  ,3143 
12,  3 144 
12  ,3145 
12,3146 
12,  3 147 
12  ,3150 
12,  3151 
12,  3 152 
12,3153 
12,  3154 
12  ,3155 
12 ,31 56 
12,  3157 
12  ,3160 
12,  3161 
12,  3 162 
12  ,3163 
12,  3164 
12  ,3165 
12  ,3166 
12,  3167 
12  ,3170 
12, 3171 


75545  1 
02  740  0 
* 132  5 0 
02730  1 
02766  1 
65352  0 
02732  0 
432C2  0 
110  15  0 
41225  1 
553C1  0 
00047  1 
02730  1 
51457  0 
21174  0 
63406  0 
14043  0 
11013  0 
63406  C 
65234  1 
21615  0 
C 27  4 2 1 
40  41  r’  1 
00043  0 
77771  0 
75440  0 
252C5  1 
77615  0 
60304  0 
25151  0 
00047  1 
7766  5 1 
52057  1 
21172  0 
25031  1 


INVPSEQN  DLOAD  SORT 
P 

POOL 


SLl 

SR4 


OMP 

SNTH 

COC-A 

PDDL 

CSTH 

DAC 

Di/32 

DMP 

BDOV 

XI 

SNTH 

ABS 

0 -5,  1 
OS  Q 
3^0 
01/  16 
OS  0 
POOL 
T PMODE 
Rl  A 
SR  4 
34  0 


GOTO 
D -7,  1 
PCLYCCEF 


RFF  10  LAST  1182 


TRUE360X  OLOAD  9 MN 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1182 
USER'  S PAGE  NO.  33  E5  S3 


0 D=S  QRT  ( P ) (+2)  PL  AT  2 

20=SNTH  COGA  (+5)  PL  AT  4 

PL  AT  2 ,0 

NOTE:  NEAR  350  CASE  TREATED  DIFFERENTLY 
0D=  I/H^-l)  PL  AT  2 

2D=G(+4>  PL  AT  4 

PL  AT  7 

PL  AT  4 

PL  AT  2 


PL  AT  0 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER 


GAP  : 


CONIC  SUBROUTINES 


1383 

1384 

1385 

1386 

1387 

1388 

1389 
1393 
13q  1 
1 3°  ? 

1393 

1394 
13  95 
1396 


REF  5 LAST  1182 

REF  53  LAST  1182 

REF  2 LAST  1166 

REF  1 

REF  1 

REF  3 LAST  1 13 1 


12  ,'3175 
12,  3176 
12  ,3177 
12,  3 2CO 
12,  3 2C  1 
12  ,3202 
12, 3203 
12  ,3204 
1?  ,3205 
12,  3 20  6 
12  ,3207 
12,  3210 
12,  1211 


25205  1 
60366  l 
00047  1 
53665  1 
11027  1 
20176  0 
41425  1 
77650  1 
25066  0 

40001  1 INFINITY 
OOCOl  0 
25210  0 

43414  1 OVFLCLR 
04070  1 


INFIN  ITY 
SQRT  NORM 

XI 

BDDV  S L * 

2 PI  SC 

0 -3,1 

DSU  PUSH 

GOTO 

XCOMMON 
SET  PD  BOV 

0 

OVFLCLR 
SET  RVQ 

1 NF  I NF  LG 


9:  12  OCT.  21,1970  SKIPPER 


121  PAGE  1183 


USER'S  PAGE  NO.  34 


S3 


0D=  2P  I/SQRTIR  1A  ) 


PL  AT  0 


,2 


NO  SOLUTION  EXISTS  SINCE  CLOSURE  THROUGH 
INFINITY  IS  REQUIRED 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


CONIC  SUBROUTINES 


1397 

1398  REF 

13  79 
13Q95 
13996 
i40n 

1401  PFF 
143  3 REF 
14C4  PFF 
I4r>5  REF 
1436 

1407  REF 
14c  8 REF 

14  09 

1410  REF 

1411  REF 

1412 

1413  REF 

1414  REF 

1415  REF 

1416  REF 

1417 

1413  REF 
1419  REF 

H20 

1421 

1422 

1423 

1424  REF 

1425 

1426  REF 

1427  PEF 


6 

4 

3 

1 

2 

2 


10 

2 

10 

5 

54 

15 


LAST  129 


LAST  1178 
LAST  1178 
LAST  682 


LAST  129 

LAST  1173 
LAST  684 

LAST  684 
LAST  1177 
LAST  1132 
LAST  1179 

LAST  11R3 
LAST  1181 


l A ST  1182 

LAST  1180 
LAST  129 


12,3213 
12,  3 214 
12  ,3215 
12,32  16 
12,  32  17 
1?  ,3220 
12,  2221 
12,  3222 
12,3223 
12,  3224 
1 2 ,3225 
12  ,3226 
12,  3227 
12  ,3230 
12,  322  1 
12,  3232 
12,3233 
12,  3234 
12  ,3235 
12,3236 
12,  3 2 3 7 
12  ,3240 
12,  3241 
12,  3242 
12  ,3243 
12, 3244 
12  ,3245 
12  ,3246 
12, 3247 
12  ,3250 
12, 3251 


40  2 20  0 
02  710  0 
C(  CC1  0 
77600  1 
25217  1 
76614  0 
02674  0 
1 0C05  C 
14C17  1 
02671  0 
77675  0 
11014  1 
02764  0 
77214  C 
00474  0 
C2655  0 
4 5115  0 
02663  0 
1 1 1C  2 1 
16730  1 
02720  0 
65301  0 
00047  1 
00C41  1 
56  342  1 
65257  1 
2C 1 73  0 
77626  0 
75045  1 
44  342  1 
11011  1 
C2734  0 


LAMBFRT  STQ 

BOV 

CLEAR 

STOOL 

OMPR 

STORE 
SE  T 

PO  VL 

STOOL 

NORM 

SR  1 
SL* 

ST  A OR 
STORE 
SR  1 

STORE 


SETPD 
PT  NLAMR 
00 

+1 

VLOAD* 
SOLNSW 
MUTABLE  ,1 
1/MU 

T DES  IRED 

BEE  19 
EPS  ILONL 
VLOAO 
SLOPESW 
PI  VEC 

:all 

R2V  EC 
GEOM 
SNTH 
MAGVEC2 
POOL 
X 1 
R1 
00  V 
PODL 
0-6,1 

CSTH 
BO  SU 
01/4 
1 -CSTH 


1428 
14  2Q 
1 43-- 

1431 

1432 

1433 

1434 
1436 
1436 
1 437 
1438 
143° 

1440 
14401 

144  rz 

1441 
1 442 


REF  55  LAST  11B4 


REF  11  LAST  1184 


3 LAST  1184 


12,3252 
12 ,3?53 
12,  3254 
12  ,3255 
12  ,3256 
1?,  3257 
12  ,3260 
12,  3261 
12,  3262 
12  ,3263 
12,  3264 
12  ,3265 
12 ,3266 
12,  3267 
12  ,3270 
12,3271 
12,  3272 


53  106  0 
25473  0 
6S3C1  O 

00047  1 
00001  0 
56342  1 
75457  0 
2C176  C 
54325  1 
02  730  1 
2C6C7  1 
43271  1 
02734  0 
77626  0 
77760  0 
50000  1 
25277  1 


ROUND  3 ZE 

360  LAMB 
NORM  POOL 

X 1 

00 

SR  1 30  V 

SL  * SORT 

0 -3  ,1 

PDOL  SR 

SNTH 

6 

ODV  DAD 

1 -CSTH 

STADR 

STORE  COGAMAX 
BOV  BMN 

UP  LI  M 


: 1 2 DC  T . 21,  1970  SKIPPER  .121 


PAGE  1184 


USER'S  PAGE  NO.  35  E5  S3 


00=R1  VEC  (+29  OR  +27)  PL 

MPAC=R  2VEC  (+29  OP  +27) 

AT  6 

CD=C  STH  (+1)  PL 

AT  2 

PL 

AT  4 

PL 

OXCH  WITH  OD,  OD=R  1/R  2 (+7)  PL 

CSTH  ( +1  ) 

1-CSTH  (+2) 

AT  2 

AT  0,2 

PL 

AT  4 

PL 

AT  2 

2D=SQRT(2R1 /P2  (1-CSTH)  ) (+5)  PL 

AT  4 

PL 

AT  2 

IF  OVFL,  CO  GAM  A X=  CO  GUP  L IM 

IF  NEG,  USE  EVEN  IF  LT  C0GL0L1M, 

, S INCE 

GAP:  ASSEMBLE  REVISION  36  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L CONIC  SUBROUTINES 


1662  1 REF  l 

16622 

16623  REF  1 

16626  REF  2 

1 6625 

16626  REF  2 

16627  REF  2 

1663 

1666  REF  8 

1665 

1666 

1667 

1668  REF  2 

1669  REF  11 

1650 

1651  REF  1 

1652  REF  3 

1653 

1656  REF  12 

1655 

16^6  REF  2 

1657  RFF  l 

1 658 

1659  REF  3 

1660  RFF  1 

1 6 6 1 RFF  3 

1662 

1663 

1666  PEF  7 


12, 3273 
12,3276 
12  ,3275 
LAST  1185  12,  3276 

12  ,3277 
LAST  1165  12  ,3300 

LAST  1186  12,  3 30  1 

12  ,3302 
LAST  1186  12, 33C3 

12,  3306 
12  ,3305 
12, 3306 
LAST  129  12,3307 

LAST  1179  12  ,3310 

12,  33  1 1 
12  ,3312 
I A ST  1185  12,  3313 

12,  3316 
LAST  1 186  12  ,3315 

12,  3316 
LAST  1185  12  ,3317 

12  ,3320 
12,  3 2 1 
LAST  683  12  ,3322 

12, 3323 
LAST  1 176  12,  3326 

12  ,3325 
12,  3326 
LAST  1182  12  ,3327 


25302  1 
50025  0 
11033  1 
25302  1 

77765  1 IJ PL  IM 
11033  1 
00017  1 

77765  1 MAXCOGA 
C2732  0 
65261  0 
206C7  1 
77626  0 
61061  0 
02673  1 
71260  1 
25513  1 
02736  1 
56352  0 
02730  1 
77600  1 
25513  l 

000 11  1 MINCOGA 
66216  C 
00715  1 
25677  1 
00051  0 
00001  0 
77765  1 
02766  I 


OSU 


OLOAD 

STORE 

OLOAD 


STADP 

STOOL 

BMN 


SL  1 

BOV 

STORE 

BON 


OLOAD 


MAXCCG  A 
3 MN 

COGUPL  IM 
MAXCCG  A 

COGUPL  IM 
COG  A MAX 

CSTH 

OSU 

6 

CSTH-RHO 
GEOMS  GN 
OLOAD 
LOL  IM 
CSTH-RHO 
DDV 
S NT  H 


LOL  IM 
COGAM  IN 
SSP 

GU  ESSW 
NOGUESS 
TWEE  KI T 
00001 

COGA 


1665 
16  66 

1667 

1668 
1 669 

1670 

1671 

1672 

1673 
1 6 76 
1675 
1675 

1677 

1678 
16  79 
1680 
1681 
16  82 
1683 


PEF  13 

REF  6 

RFF  56 
RFF  6 


REE  1 
REF  2 
PEF  7 
REF  8 

RFF  1 

REF  6 7 
REF  8 


LAST 

LAST 

LA  ST 
LAST 


LAST 

LAST 

LAST 


L AST 
LAST 


12,3330 
1 185  12,  333  1 

12 ,7332 

1185  12,  3333 
12, 3336 

1186  12,3335 

1 186  12,  3326 

12  ,3337 
12  ,3360 
12,  336  1 
12  ,3362 
1 185  12,  3363 

1 182  1 2,  3 3^4 

1185  12,3365 

12, 3766 
12  ,3367 
12  ,3350 
1 iR  5 12,  3351 

1185  12  ,3352 


65362  0 
C2736  1 
653C1  0 
00067  1 
C 27 36  0 
56257  1 
20170  0 
5 3060  0 
25627  1 
25627  1 
16760  0 
02  766  I 
63316  1 
110  17  1 
61301  C 
00C67  1 
02760  0 


LAMBLOOP  DM P 
SRI 
NORM 


SL  * 
BMN 

STOOL 
0 SO 
NORM 


SNTH 

DSU 

CSTH-RHO 

POOL 

X 1 

1-CSTH 

DDV 

0 -9  0,1 
3 Z F 
NEGP 
NEGP 

COGA 

DAD 

Dl/1026 

OMP 

XI 
P 
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USER'S  PAGF  NO.  36  E5  S3 

THIS  WOULD  BE  RESET  IN  LAMBLOOP 
IF  COGAMAX  GT  CCGUPLIM,  COG  A MAX  = COGU  PL  IM 

OTHERWISE  OK,  SO  GC  TO  MAXCOGA 

COGUPL  IM=  .99951 1597  = MAX  VALUE  OF  COGA 
NCT  CAUSING  CV  EL  IN  R1A  CALCULATION 

PL  AT  0 


CO  GAMIN  (+5) 


00=  SN TH  CCIGA-I  CSTH-RHO  (+7  + C(Xl)>  PL  = 2 

1-C  STH  (+2)  PL  AT  0 


P=( 1-CSTH) /(SNTH  COGA-(CSTH-RHO) 


JAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


U84 

1486 
1 496 

1487 


1 APR 

1 4 R9 
1400 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 
150' 
1501 
1 90  2 

15  03 
1504 
157  5 

1506 

1507 

1508 

1509 

1509  1 
15','Q2 

15093 

15094 

15095 
1 509 1 
15097 

1510 

1510  5 

1511 
151  2 

1513 

151 4 

1515 
1 516 
15  17 

1518 

1519 


1 5?<  > 

1521 

1522 


CONIC  SUBROUTINES 


REF 

PFF 


12,  3353  44  257  1 

12,3354  20571  0 

LAST  1182  12, 3355  11015  0 

L AST  1 I?  2 12,  3356  16742  1 


SR* 


STOOL 


RFF  9 

REF  1 
REF  2 

RFF  10 
RFF  1 
REF  7 

REF  4 
REF  3 
REF  3 

REF  1 
REF  4 
REF  1 

REF  3 

REF  1 
REF  2 

REF  1 
REF  3 
REF  1 

RFF  1 1 
REF  2 

REF  2 
REF  1 


REF  762 
REF  3 

REF  9 
REF  10 

PEF  1 


I AST  1 195 

LAST  1177 

LAST  1175 

LAST  1 1 B 1 

LAST  1183 
LAST  1105 
LAST  1177 


LAST  1184 


LAST  1184 

LAST  1168 

LAST  1184 

LAST  1186 
LAST  1186 

LAST  1186 

LAST  1180 
LAST  1186 

LAST  1185 
LAST  1186 


12,  3 360 
12  ,336  1 
12  ,3362 
12,  3163 
12  , 5364 
12,  3365 
12,  3366 

12,3367 
12, 3370 
12  ,3371 
12  ,3372 
12, 3373 
12  ,3374 
12,  3375 
12,  3 376 
12  ,3377 
12,  3400 

12.3401 

12 .3402 
12,  340  3 
12  ,3404 
1?  ,3405 
1 , ♦ 

12  ,3407 
12, 3410 
12,  3411 
12  ,3412 
12, 3413 
12  ,3414 
12  ,3415 
12, 34  16 
12  ,3417 
12,  342C 
12, 3^2  1 

12.3422 

12. 3423 
12  ,3424 
12,3425 
12,  3426 


02  740  0 
45000  0 
25432  0 
24767  l 
77745  1 
00037  0 
1676?  C 
00031  0 
45014  0 
C4310  1 
25427  1 
244  ? 1 0 
442(10  0 
25447  1 
C2671  0 
02760  1 
44246  1 
02764  0 
47044  1 
25516  1 
24644  1 
43030  0 
25460  1 
OC  7 1 4 0 
25415  0 
45345  1 
C0C37  0 
02762  0 
77654  0 
25460  1 
77624  1 
24536  1 
53145  1 
CGI  55  0 
25460  1 
77615  0 
02766  1 
02766  1 
77650  1 
25330  0 


GOITER 


BOV 

OLUAO 

STOOL 

OGN 

BOV 

STORE 

ABS 

BPL 

BHIZ 

0 L CAD 

BZE 

CALL 

DLOAD 

OAC 

STORE 

GOTO 


REF  1 
PEF  1 


12  ,3427  51145  0 NFGP 

12. 3430  00015  0 

12.3431  25452  0 


DLOAD 


3D  SU 
D -80,  1 
Dl/32 
3 1A 


CALL 

HI  ENERGY 
GETX 


TPREV 

XI 

CALL 

I NFI  NFLG 
NEGP 
OELT  [ME 
3D  SU 
B IGT  IME 
TOESI REO 
TERRLAMB 
BDSU 

F PSI LCNL 
RTB 
IN  ITV 
: HFC KC  TR 
RON 

SUFFCHEK 
SLOPE  SW 
GO  IT  FR 
DSU 


T PREV 

SUFFCHEK 

I TERA  TOR 
BZ  E 
MPAC 

SUFFCHEK 

COG  A 
COGA 

LA  MB  LOOP 


BPL 
DCCGA 
LOENERG Y 


9:12  OGT.  21,1970  SKIPPER  .121  PAGE  1195 
USER'S  PAGE  NO.  37  F5  S3 


P1A  = ? — P (1+COGA  COGA)  ( *t  ) 


HAVE  EXCEEDED  THEORETICAL  BOUNDS 


IMPOSSIBLE  T1  A J EC  TOP  Y D LF  TO  INACCURATE 
BOJND  CALCULATION.  TRY  N Erl  COGA. 


GAP:  ASSEMBLF  REVISION  56  OF  AGO  PROGRAM  Z ERL  IN  A RY  ZOROASTER 


1 c.  2 i 

1 524 

1525 

1526 

1527 
1 5?  B 
1 52  Q 
1530 
1530 
1 531 

1532 

1533 
1 534 


CONIC  SUBROUTINES 


LAST  119  6 
LAST  1 1B  5 


REF 

PFF 

REF 


LAST  1 IB  6 
LAST  1 1 R 7 
LAST  11B7 


12,3^32 
12  ,3433 
12 ,3434 
1 2 , 3 A 3 5 
12  ,3436 
12,  3 A 2 7 
12, 3440 
12  ,3441 
12, 3442 
12  ,3443 
12  ,3444 
12,  34 A 5 
12  ,3446 


71201  1 
0C001  0 
02  766  1 
00011  1 
70545  1 
C0C15  0 
00015  0 
44254  1 
25460  1 
C 2766  1 
02766  1 
77650  1 
25330  0 


HIENERGY  SFTPD  OLOAD 
0 

COCA 

STORE  COGAMIN 
COMMONLM  OLOAO  SRI 

OCCGA 
STORE  3 COG  A 
8ZE  BDSU 

SUFFCHEK 
COGA 
COGA 


STORE 

GOTO 


L AMBLOOP 


1535 
1 63^ 
1537 


RTF  3 LAST  11B6 
REF  12  LAST  l 1 B6 


77  7 A 5 1 
0276?  0 
00037  0 


DIG  TI  Ml  OLCAD 


1538 

1536 

1540 

1541 

1542 
1 543 


12, 3452 
12  ,3453 
1?  ,3454 
12,  3 A 5 5 
12  ,3456 
12, 3457 


71201  1 
00001  0 
0276  6 1 
000 1 7 1 
77650  1 
25A36  l 


LOENERGY  SE  TPD  DLOAO 
0 

COGA 

STORE  COGA  MAX 
GOTO 

C OMMCNLM 


1 544 

1545 

1546 
1 547 
154ft 
1 546 

1550 

1551 

1552 

1553 

1554 

1555 

1556 
1 557 
1 55ft 


REF 

REF 


REF 

REF 

RFF 


LAST  1186 
LAST  1186 


2 LAST  1196 

2 LAST  1LR4 

3 LAST  1197 


REF  3 LAST  1 1ft  7 
RFF  6 LAST  11^4 


12,3460 

, 

12,  3462 
12  ,3463 
12,3464 
12,  3465 
12,3466 
12,  3467 
12,  3470 
12  ,3471 
12, 3472 
, 

12  ,3474 
12, 3475 
12  ,3476 


51545  1 
02760  1 
41325  0 
0267  1 0 
11CC2  0 
45215  0 
11031  0 
43044  0 
25516  1 
02434  0 
25516  1 
4300  1 1 
0000 l 0 
02434  0 
02710  0 


SUFFCHEK  OLOAD 


360LAM?  SETPD 


A9  S 

T FRRL  AMR 
DM  P 

TDESIRED 

BEE17 

0 SU 
3NEBIT 
SETGC 

1 N1  TV 
SOLNSW 
I NI  TV 
SETGO 


1553 

1560 

1561 
1 562 
1563 


REF 

REF 


4.  LAST  1185 

3 LAST  1187 


12, 3477 
17,  3500 
12  ,35C1 
12, 35C2 
12  ,3503 


71331  0 NOGUFSS  SSP  OLCAD 

( ' 1 TWEFK I T 

10000  0 20000 

CCC11  1 COGAMIN 

65342  I SR  l PODL 
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USER  'S  PAGE  NO.  38  E 5 S3 

FIGH  ENERGY  TRAJFCTCRY  RESULTED 

IN  OVFL  OF  P OR  P 1A,  OR  XI  EXCEEDING  50. 
TUT S IS  THE  NEW  BCUNC. 

USE  DCOGA/2  AS  DECREMENT 


RESTART  THIS  LOCP 


LOW  ENERGY  TRAJECTORY  RESULTED 

IN  OVERFLOW  OF  TIME. 

THIS  IS  THE  NFW  POUND. 


PL  AT  20 

PL  AT  3D 


LAMBERT  CANNOT  HANDLE  CSTH  = 1 


PL  AT  2 


3A  P:  ASSF^RLF  REVISION  56  OF  AGC  PROGRAM  2 ERL  IN  A RY  ZOROASTER 


CONIC  SUBROUTINES 


1 564  PFF 

1565 

1566 

1567  REF 

1568  PFF 
1 569 

1570  RFF 


4 LAST  1 1 fi  7 

16  LAST  118  7 
4 LAST  1197 

3 LAST  118  7 


12.36C4  OOC 1 7 1 
12,3505  43342  0 

12  ,3506  77626  0 

12,  3507  75C  1 1 0 

12  ,3510  C 001 5 0 

12,  ’5  1 1 7 7 £ 5 C 1 

12,  35  12  25330  0 


SR  1 
ST  AOR 
STORE 
STOR  F 
GOTO 


1574 

1576  RFF  1 
1576  REF  1 


12  ,3513  52145  C LOU  M OLOAC 

12,  3514  11035  1 

12  ,35  15  25320  1 


1 577 
1 67R 
1 579 
1 5R0 

1581 

1582 
1533 
1584 
1 585 
15  86 
1587 
1599 

1589 

1590 

1591 
1 59  2 
1593 
1 694 

1595 

1596 

1597 

1599 

1600 
1601 
1602 
u:  3 

1 604 


REF 

RFF 

REF 


RFF 

REF 

REF 

REF 

P EF 

RFF 

REF 
R EF 

P EF 


16 

58 

If 


3 


16 


R 


13 

5 

1 


LAST  110  4 
LAST  1185 

LAST  1186 

LAST  1175 
LAST  1188 

LAST  1179 

LAST  1179 
LAST  1188 
LAST  1177 
LAST  684 

LAST  1187 


12,  36  17 
12  ,3  520 
1 ?,  3 5 2 1 
12,3522 
12  ,3523 
1 2,  3524 
12  ,3525 
12, 3C26 
1 2,  3527 
12,3530 
12,  353  1 

12.3532 

12.3533 
12,  3534 
L 2 ,3535 
12  ,3536 
12,  3537 
12  ,3540 
12,  3541 
12,  3542 

12.3543 

12. 3544 
12  ,3545 
12  ,3546 
12, 3547 
12  ,3550 


6 C 34  5 0 
0004  1 1 
00047  1 
70525  1 
02740  0 
77671  1 
75457  0 

20  175  0 
724C5  0 

00021  1 
41206  0 
02766  1 
74261  1 
2 02  06  1 
C 27  2 2 1 
77725  1 
76561  1 
02674  0 
53235  0 
C2722  1 
77772  0 
02  744  1 
53135  0 
02702  0 
2555  L 1 
77650  1 
02710  0 


I M TV 


DLCIAD 

POOL 

ODV 

SL* 

DMP 

PUSH 

SL 


POOL 

VXSC 

VXV 

VSL  1 

STORE 

SLOAO 


GO  TO 


1605 

1606  REF 

1607  REF 
1509  RFF 
16C9 

1610  REF 


12,  355  1 

6 LAST  1184  12,7552 

1 12  ,3553 

4 LAST  685  12,  3554 

12  ,3555 

8 LAST  1188  12  ,3556 


45145  0 TARGFTV  OLOAO 
02720  0 
24701  1 

C2703  1 STORE 

77650  1 GOTO 

02710  0 


r nG AM AX 
UAD 

:oga 

DCOGA 
LA  MBLOOP 


GOTO 

rnGLnu  m 
M INCOGA 


NORN 
P 1 
X 1 
SRI 

P 

SORT 

0 -4,  l 
S LI 

ROOTMU 

DMP 

COGA 

VXSC 

5 

UR1 


VS  LI 
UN 
VAD 
UR1 

VV  EC 
BZE 

VTARGTAG 

TARGETV 

RTNLAMB 


CALL 
MAGVEC  2 
LAMENT  ER 
VTARGET 

PTNLAMB 
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C-OGLOL  IM  = -.9995ll597 


PL  AT  2 
PL  AT  0 

0D=  VTAN  (+7)  PL  AT  2 

XCH  WITH  00  PL  AT  0,6 


PL  AT  0 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  7QRO  AST  ER 


CON  IC  SUBROUTINES 


1 6 1 1 

1612  REF 

1613 
1613  5 
1613  6 

16U 

1615  REF 

1616  REF 

1617 

1618  RFF 

1619 

1620  REF 

1621  REF 

1622 

1623  REF 
16  26  REF 
1 6?  5 

1626  RFF 

1627 

1628  RFF 

1629 

1630  RFF 

1631  RLF 

1632 

1633  REF 

1634 

16345 

16346  RFF 

1635 

1636  REF 

1637  REF 

1638 

1639  REF 

1640  RFF 

1641 

1642 

1643 

1644  REF 

1645 

1646  REF 

1647 

1648  REF 

1649 

1650  REF 
16505  REF 

1651 

1657  REF 
16575 

1653  REF 


9 

14 

2 

2 

5 

12 

11 

17 

5 

13 

9 

1 

3 

59 

17 

12 

2 


LAST  1177 
LAST  1188 

LAST  1177 

LAST  1177 
LAST  1186 

LAST  1106 
LAST  1188 

LAST  1188 

LAST  1179 

LAST  1 1 8 1 
LAST  1109 

LAST  1188 


LAST  620 
LAST  1108 

LAST  118  8 
LAST  1189 


LAST  118  2 


LAST  118  4 
LAST  1189 

I AST  129 


12,3557 
12 ,3560 
12,  356  1 
12  ,3562 

12 .3563 

12. 3564 
12  ,3565 
12,  3566 
12, 3567 
12 ,35  70 
12, 3571 
12  ,3572 
12  ,3573 
12, 3574 
12  ,3575 

17. 3576 

12. 3577 
17  ,3600 
12, 3601 
17  ,3602 
1?  ,3603 
1 2,  3604 
12  ,3605 
12,  36C  6 
12,  3607 
12  ,3610 
12, 3611 
12  ,3612 
12,3613 
12,  3614 
12  ,3615 
12,  3616 
12,  3617 

12.3620 
12,  362  1 
1 • 

12,3623 
12,  36  24 
12  ,3625 
12,3626 

■ 

I?  ,3630 

12. 3621 
12,  3632 

12  ,3633 
12, 3634 
12  ,3635 

i . ' 

12,  3fc  3 7 


40  2 20  0 
02710  0 
00001  0 
776C0  1 
25564  1 
63375  0 
02655  0 
C2744  1 
77624  1 
11096  1 
71200  0 
24764  1 
11015  0 
41225  1 
02742  1 
02740  0 
41366  1 
02  766  1 
74212  0 
02712  1 
45325  1 
11CC  7 0 
07742  1 
c2  36 1 1 
C2722  1 
53512  1 
77600  1 
25670  1 
60325  0 
02756  1 
00C47  1 
41325  C 
0004  1 l 
02  740  0 
56257  1 
20  201  0 
56225  1 
11013  0 
0C045  0 
0CC31  0 
6 3400  C 

25674  0 

50C21  1 

lion  i 

25674  0 
75366  C 
02755  1 
77614  1 
C4  2 72  1 


T IMER  AO 


STO  SETPO 
RT  NT  R 
0 

BOV 

+1 

VLOAD  POVL 
R V EC 
V VEC 

CALL 

PARAM 
BOV  0 LOAD 

COGAOVFL 

01/32 

OSU  3MP 
R 1A 
P 

SORT  7 MP 

COGA 
SL4  VXSC 

U 2 

POOL  OSU 

3 1/64 
R 1A 

VXSC  VSU 
UR  1 

VSL4  J N IT 
BOV 

C IRCULAR 
POOL  NORM 

ROE  SIRED 
X 1 

POOL  OMP 
R 1 
P 

SL*  DO  V 

0,  1 

DSU  DOV 

31/16 

360 

STGRE  COSF 
BOV  OSO 

BA  DR  2 

80 SU  BMN 
D 1/4 
BADR2 

SORT  SIGN 

SGNPDOT 

CLEAR 


APSF  SW 
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PL  AT  0 


PL  AT  0 


PL  AT  6 

PL  AT  0 

3 D=UN IT ( ECC  ) ( ♦ 3)  PL  A T 6 

36  0 =ECC  (+3) 

PL  AT  8 

PL  AT  6 


36D=EC  C ( + 3) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PR  PGP  AM  ZFPLINA  BY  ZOROASTER 

I C CM  C SUBROUTINES 
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If  54 

1655 

1656 
16*7 
1 65  B 
1659 
165  3 


REF 


RFF 


P 


2 


12,7650  76561  1 

LAST  1 108  12,  365  1 02675  0 

12,3652  63235  0 

12,  3653  COCCI  0 

12,3655  53361  0 

I A ST  1 1 09  12,3655  00031  C 

12,  3656  51572  1 


TERMNVEC  VXSC 
VXV 


VXSC 
VSL  1 


VS  LI 
UN 

POVL 
00 
V A 0 
COS  F 
PUSH 


VXCH  WITH  00 


on=u2 


PL  AT  0,6 
PL  AT  0 


PL  AT  6 


1661 

1662  RFF  K 

16622  PEF  1 

16625 

15625 

1663  RFF  9 

1665  REF  11 

1665 

1666 

1667  RFF  9 

1668  REF  1 5 

1669  REF  13 

15  70 

1 ft  7l  RFF  3 

1672 

16725  REF  5 

1673  REF  1 


12 ,3657 
LAST  U89  1 2 » 36  5C 

12,  365  1 
12  ,7652 
12,  3653 
LAST  1195  12,3655 

LAST  1190  12,3655 

12,  3656 
12  ,3657 
LAST  1190  12  ,3  660 

LAST  1185  12,  3661 

LAST  1189  12  ,3662 

12, 3663 
LAST  1186  12,  3665 

12  ,3665 
LAST  1 187  12,  3666 

12  ,3667 


56251  0 
C2722  1 

25766  1 
5015?  1 
25655  1 
26732  0 
02722  1 
76535  1 
72551  0 
02674  0 
16730  1 
02 750  0 
77625  1 

25767  1 
77615  1 
02635  1 
25757  0 


DOT  DDV  LIMITS  RESULT  TO  POSMAX  OR  NEGMAX 

UR1 
DP  1/5 

SRI  BOV  SCAI  E BACK  DOWN  TO  NORMAL 

+ 1 CL  FAR  OVFIND  I F S FT 

STOVL  CSTH  CSTH  ( + 1) 

JR1 

VXV  VSI.1 

OOT  SL  1 

UN 

STOOL  SNTH  SNTH  (+1) 

P 

CALL 

3FTX 

CLRGO 

SCLNSW 

COMMNOUT 


16  73ft 
16736 
16777 


RFF 

REF 


12,3670  53CC1  1 CIRCULAR  SETPD  SETGC 

12,  3671  OOOC  1 0 C 

5 LAST  1190  12,3672  02535  0 SOLNSW 

3 LAST  1177  12,  3673  25752  0 ABTCGN'IC 


1675 

16751  RFF 
1675?  RFF 
16753  RFF 
16  75  REF 
16755 

1676  REF 

1677  REF 


2 

1 


12,3675 
LAST  328  12,3675 

LAST  1190  12,  3676 

LAST  1190  12  ,3677 

LAST  1166  12,3700 

12,  370  1 
LAST  1189  12  ,3702 

12, 37C3 


75355 
2506  5 
0CG31 
15031 
25CC  7 
7 76  15 
05C32 
25650 


0 

0 

0 

1 


BA  OR  2 


DLOAO  SIGN 

LOOPHALF 
CO  SF 
STODL  COSF 

KFPZERO 

SE  TGO 

APSESW 

TFRMNVEC 


GAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZFRLINA  BY  ZOROASTER 


CONIC  SIJBROUT  INES 


1 678 

12  ,3704 

40220 

0 

APS  I OES 

STQ 

S ETPO 

1679 

REF 

1 

12,  37C5 

C2710 

C 

RTNAPSE 

1680 

12, 3706 

00C01 

0 

.03 

16805 

1 2 ,3  7C  7 

77600 

1 

BOV 

1680  6 

12, 3710 

2 571  1 

1 

+ 1 

1681 

12  ,3711 

63375 

0 

VLOAD 

POVL 

1682 

R EF 

10 

LA  ST 

1189 

12  ,3712 

02655 

0 

PV  EC 

1683 

REF 

15 

L AST 

1189 

12,  37  13 

C 2 7 4 4 

1 

V VEC 

1684 

12  ,3714 

77624 

1 

CALL 

1635 

KEF 

3 

LAST 

1189 

12,  3715 

1 IC36 

1 

PARAM 

1 686 

12,  3716 

776CO 

1 

ROV 

1687 

REF 

1 

12  ,3717 

25720 

0 

GET  ECC 

1698 

12, 3720 

42405 

0 

GE  TECC 

DMP 

SL4 

1699 

P-EF 

14 

LAST 

1189 

12  ,3721 

02742 

1 

R 1A 

1690 

12 ,3722 

75421 

1 

BDSU 

SQRT 

1691 

REF 

5 

l AST 

1189 

1 2,  3723 

1 10C7 

0 

31/64 

1692 

PFF 

3 

LAST 

633 

1 2 ,3724 

0275? 

c 

STORE 

ECC 

1693 

12,  3725 

6521  5 

1 

0 AD 

POOL 

1 694 

RFF 

1 

12,  3726 

11003 

1 

3 1/8 

1695 

RFF 

18 

LAST 

1189 

12  ,3727 

C0041 

1 

Rl 

1696 

12,  3730 

724C* 

0 

OMP 

SL1 

1697 

RFF 

14 

LAST 

1190 

1?  ,3731 

0 2740 

0 

P 

1698 

1 2,373? 

7767  1 

1 

ODV 

1599 

12,  3733 

60325 

0 

POOL 

NORM 

1700 

RFF 

15 

LAST 

1191 

1 2 ,3734 

02742 

1 

3 1A 

1701 

REF 

60 

1 AST 

1 189 

12,  3735 

CCC47 

1 

XI 

1702 

12,  37  36 

5 3725 

1 

POOL 

S L* 

170  3 

REF 

19 

LAST 

1191 

12,3737 

00041 

1 

Rl 

1734 

12, 3740 

2C174 

1 

0 -5,1 

1705 

12  ,3741 

45271 

1 

00V 

OSU 

1706 

12 ,3742 

50000 

1 

ROV 

BMN 

1707 

REF 

1 

12,  3743 

25747 

1 

I NFI  NAPO 

1708 

REF 

2 

LAST 

1191 

12  ,3744 

25747 

1 

IN  F IN  APO 

1 709 

12, 3145 

17650 

1 

GOTO 

1710 

REF 

2 

LAST 

1191 

12,  3746 

02710 

0 

R T NA  P SF 

1711 

12  ,3747 

52145 

0 

INFINAPC 

OLOAO 

GOTO 

1712 

RFF 

1 

12, 3750 

24020 

0 

LDPCSMAX 

1 7 1 3 

REF 

3 

LAST 

1191 

12,3751 

C 27  10 

0 

RTNAPSE 
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USER'S  PAGE  NO.  42  E5  S3 

PL  AT  0 

PL  AT  6 

PL  AF  0 


PL  AT  2 

PI  A T 0 

0 D = R P ( + 29  OR  +27)  PL  AT  2 

PL  AT  4 

PL  AT  2 ,0 

RETURNS  WITH  APOAPSIS  IN  MPAC  , PE  Rl  APSI  S 
THA  T PL  I S AT  0. 


♦ 


SAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L CONIC  SUBROUTINES 


I 711  7 
17138 

1725 

1 1727 


REF  4 

REF  3 
FRA  SABLE 


LAST  819 

LAST  697 
ASSIGNMFN 


12,  1752 
12  ,3753 
12,3754 

12,  2c  17 


77776  1 
f,  5653  1 
2C6C7  1 


ABTCfjNIC 


EXI  T 

TC 

OCT 


POO OOO 
206C7 


L OPn  SMA  X 


FOUAL  S LODPMA  X 


R 1 728  KEPLER  SUBROUTINE 


R 1729  INI 

R 1 730  RRECT 

Rl  73 1 VRECT 

3 1732  TAU. 

R 1 733  XKEP 

Rl  734  TC 

3 1 738  XPRF  V 

1736 
17  37 
1738 

Rl 739  OUT 

R 1 740  P C V 

R 1 741  vrv 

Rl 742  RC 
11743  XPREV 


IT  - 

FRASE  +5 
ERASE  +5 
ERASE  +1 
ERASF  + l 
FRASE  +1 
ERASE  +1 


PUT  - 

ERASE  +5 
ERASE  + 5 
ERASE  +1 
ERASE  4-1 


0016  1/MU  EQUALS  14D 

0020  ROOT  MU  EQUALS  160 

0022  1/RCOTMU  EQUALS  18  D 


Rl  744 
1 745 
1746 
1 747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 
1 755 

1 1756 
R 1 7 5 7 
Pi  758 
1 1759 
R 1 760 


DELX 
OELT 
URRECT 
PC  NORM 
XPREV 


ERASE  M 
ERASE  +1 
ERASE  +5 
ERASE  +1 
EQUALS  XKEP 


oo  n 
UOl  2 
00  14 
0024 
0030 
0032 
0034 
0036 
0040 
0042 
0044 


ALPHA  EQUALS  80 

X V AX  EQUALS  10D 

XMIN  EQUAL  S 1 20 

X EQUALS  20  0 

XI  EQUALS  240 

SIX  I 1 EQUALS  260 

XSCC  (X  I ) EQUALS  28  0 

T EQUALS  300 

Rl  EQUAL  S 320 

KE  PCI  EQUALS  34  D 

KE  PC  2 EQUALS  36D 


R 1761  LAMBERT  SUBROUTINE 


R 1762  INPUT- 

81763  Pi  V EC  ERASE  +5 
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DPPCSMAX  IK  LOW  MEMORY . 


21 


PAGE 


193 


GAP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L C CM  C SUBROUTINES 


9:12  OCT.  2 
USER 


,1970  SKIPPER  .1 
S PAGE  NC.  AA  E5 


S3 


R I 76 A 
R1766 

* 1766 
R 1767 
Rl  76  B 

* 1769 
Rl  770 
« 1771 
R 177? 


P 2VEC 

1 CFS  IRFC 

GFOMSGN 

GUESS  W 

CCGA 

NORMSW 

UN 


ERASE  +5 
ERASE  +1 
ERASE  +0 

ERASE  +1 

ERASE  +5 
ERASE  +0 
EQUAL  S A 00 


0 IF  COGA  GUESS  AVAILABLE,  1 IF  NOT 
INPUT  ONLY  IE  GUFSSW  IS  ZERO. 

1 IF  UN  TO  RE  COMPUTED,  1 IF  UN  INPUT 
ONLY  USED  IF  NORMSW  I S 1 

CUY  USED  IE  GUESSW  IS  0 


Rl77l  OUTPUT  - 

*177A  V TARGE  T ERASE  +5  AVAILABLE  ONLY  IF  VTARGTAG  IS  ZFRO. 

Rl 775  V1VEC  FQUALS  MPAC 


Rl  773 
R 1779 

* 1780 

Rl  781 
R 1782 
Rl  783 
Rl  7 8A 
? 1785 
R 1 786 
1787 
1 7RR 
1789 
T 1790 
R 1 7 91 
R 1 792 

* 1793 
Rl  79 A 
1 1795 
R 1 7 96 
R 1797 
R 1798 
Rl  799 

* 1800 
RIF  1 
Rl  8'  ? 
? 1803 
R130A 


DEBRIS  - 

R TNI. A MR  ERASE  f 0 
U 2 FRASE  +5 

MAGVEC?  ERASE  +1 
UP1  ERASE  +5 

Rl  EQUALS  3 ID 

UN  ERASE  +5 

SNTH  ERASE  +1 

CSTh  ERASE  +1 
1-CSTH  ERASE  M 
CSTH-RHO  ERASE  +1 


TWEFKI  T EQUALS  AO D 

P ERASE  +1 

CCGA  ERASE  +1 

R 1A  ERASE  M 

X EQUALS  ?0D 

X SO  EQUAL  S 22D 

XI  EQUALS  ? AD 

SI  XI 1 EQUALS  26  C 

XSOCt  XI  ) EQUAL  S ? 8D 

T EQUALS  30  0 

KrPCl  FQUALS  3 A 0 

KCPC2  EQUALS  36D 

Sl.CPESW 

SOLNSW 
OTHERS  - 


0016 
001  0 
r 0 1 A 


COGAM  AX 
COG  A MI  N 
DCOGA 


EQUALS  1 AD  CLOBBERS  1/MU 

EQUALS  90 
EQUAL  S 120 


R 180  5 

P ipr  6 

Rl  337 
< 1 8C8 

Rl  809 

Rl«V 


RVEC 
V V EC 

CCCAFL AC 
R VSH 
IN  F IN  FI  G 
AFSESW 


FQUALS  Rl V EC 
ERASE  +6 


GAP:  ASSEMBLE  REVISION  So  OF  AGC  PROGRAM  ZERLIVA  BY  ZOROASTER 

L CONIC  SUBROUTINES 


1 1813 

R1R14 

R 181^ 
1 181  A 
1817 
R 181  B 
R1  819 
Rl«2o 


360  SW 
RTNTT 
ECC 
RT  NTH 
PTNAPSC 
P 2 

P TNPRM 
SGNROOT 
ROES  IRED 


ECUALS  RTNLAMB 
ERASE  +1 
EQUALS  RTNLAMB 
EQUALS  RTNLAMB 
EQUAL  S MAG  VFC  7 

00  30 

ERASE  +0 
ERASE  +0 
ERASE  +1 


CO  SF  EQUALS  240 


11821  ITERATOR  SUBROUTINE 


R 1 8 22 

1823 

1824 
R 1 8 2s 

1826 
182  7 
1828 
1 182° 
R 1 8 30 
1831 


OROERSW 

INDEP 


nCLOEP 

OFPREV 


CO  16 
0010 

ERASE  +1 

0014 
C026 
CO  36 

ERASE  H 
ERASE  +1 

0050 


MAX  EQUALS  140 

MI  N EQUALS  8 U 

CEL  INDEP  EQUALS  120 
1 TER C TR  EQUALS  22D 
OEP  EQUALS  300 


TWEEK  IT  EQUAL  S 400 


R 1832  MORE  KEPLER 
RlR33  EPSILONT  ERASE  +1 

11834  MORE  LAMBFRT 

EQUALS  DELOEP 
ECUALS  CEPREV 

FQUALS  EPSILONT  +2  DCUBLE  PRECISION  WORD 


K 1 R 35  TERR  LAMB 
R 1 83ft  TPRCV 

1 1837  EPSILONL 
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L INTEGRATION  INITIALIZATION 


USER'S  PAGE  NO. 


f:  S3 


T 0006 
ROD  0 7 
R 0008 

* 00C9 
RD  3 1 1 
ROO 1 3 
ROO  1 5 
R30l  7 

* 001  R 

ROM  9 
R0021 
R00?3 
RDC25 
R00P6 
ROC  27 
R0D29 
3 00  I 
R0P3P 
R003A 
3 00  3 5 
ROO  36 
R003B 
ROO  AO 
R0042 
3 00 A 3 
R 0 0 4 A 
30045 
3 0C46 
ROO  47 
ROC  49 
ROO  50 
R0051 
3 0052 
R O'  '5  3 
R0055 
3 00  57 
R0059 
R0061 
ROO  6 3 
K"* 

* 0067 
R 0 0 69 
R 0070 

* 0071 
R0073 
R 0 0 7 5 
RO1 1 76 
R0077 
10079 
R0OR1 


1.01  NTRODLC  TI  CN 


FROM  A USERS  POINT  CF  VIEW,  CPPITAL  INTEGRATION  IS  ESSENTIALLY  THE  SAME  AS  THE  278  INTEGRATION 

PROGRAM.  THE  SAME  ENTRANCES  TO  THE  PROGRAM  WILL  BE  MAINTAINED,  THE  SAME  STALLING  ROUTINE  WILL  BF  USED  AND 

OUTPUT  WILL  STILL  FE  VIA  T h>  £ FUSHLIST.  T HF  PRIMARY  DIFFERENCFS  TO  A USER  INVOLVE  THE  AODED  CAPABILITY  OF 

TERMINATING  INTEGRATION  AT  A SPECIFIC  FINAL  RADIUS  AND  THE  DIFFERENCE  IN  STATE  VECTOR  SCALING  INSIOE  AND  OUT- 

SIDE THE  LUNAR  SPHERE  OF  INFLUENCE. 

IN  ORDER  TO  MAKE  THE  C SMI  LEM ) PREC  AND  C SMI  LEM!  C ON  IC  ENTRANCES  SIMILAR  TO  FLIGHT  27H,  THE  INTEGRATION  PROGRAM 
WIIL  ITSELF  SET  THE  FINAL  RADIUS  (RFINAL)  TO  9 SO  THAT  REACHING  THE  DESIRED  TIME  ONLY  WILl  TERMINATE 
INTEGRATION.  THE  DP  REGISTER  PFINAL  MUST  BE  SET  BY  USERS  OF  I NT  EGRVS  AND  INTEG3V,  AND  MUST  BE  DONE  AFTER  THE 
CALL  TO  INTSTALL. 

WHEN  THE  LM  IS  ON  THE  LUNAR  SURFACE  (INDICATED  BY  LUNAR  SURFACE  FLAG  SET)  CALLS  TO  LEMCONIC,  LEMPREC,  AND 
INTEGRV  WITH  VINFLAG  = 0 WIIL  RESULT  IN  THE  USE  OF  THE  PLANETARY  INERTIAL  ORIENTATION  SUBROUTINES  TO  PROVIDE 
BOTH  THE  LMS  PCSITICN  AND  VELOCITY  IN  THE  REFERENCE  COORDINATE  SYSTEM. 

THE  PROGRAM  WILL  PROVIDE  OUTPUT  AS  IF  INTEGRATION  WAS  USED.  THAT  IS,  THE  PUSHLIST  WILL  BE  SET  AS  NOTED  BELOW  AND 
THE  PERMANENT  STATE  VECTOR  UPCATED  WHEN  SPECIFIEO  BY  AN  INTEGRV  CALL. 

USERS  OF  INT  EGRVS  DESIRING  INTEGRATION  ( I N TYPE  LG  = 0)  SHOULD  NCTE  THAT  THE  OBLATENESS  PERTURBATION  COMPUTATION 
IN  LUNAR  ORBIT  IS  TIME  DEPENDENT.  THEREFORE,  THE  USER  SHOULD  SUPPLY  AN  INITIAL  STATF  VECTOR  VALID  AT  SOME  REAL 
TIME  AND  THF  OE  SIRED  TI  MF  ( TDEC  1 ) ALSC  AT  SCME  PFAL  TIME.  FOR  CONIC  , , INT  EGRAT  ION,  , THE  USEP  MAY  STILL  USE  ZERO 
AS  THE  INITIAL  TIME  AND  DELTA  TIME  AS  THF  DESIRED  TIME. 

2.0  GENERAL  DESCRIPTION 


THF  I NT  EGRAT  ION  PROGRAM  DP  ER  A TE  S AS  A CLOSED  I NTE  R PRE  T I VF  SUBROUTINE  ANO  PERFORMS  THESE  FUNCTIONS 

l)  INTEGRATES  (PRECISION  OR  CCMC)  EITHER  CSM  OR  L M STATE  VECTOR 
?)  INTEGRATES  THE  ^-MATRIX 

3)  PERMANENT  OR  TEMPDRARY  UPD4TE  OF  THE  STATF  VFC  TOR 

T HER  f ARE  SIX  ENTRANCES  TO  THE  INTEGRATION  PROGRAM.  FOUR  OF  THFSE  (CSMPRFC,  LEMPREC,  CSMCONIC,  LEMCONIC)  SET 
All  THE  FLAGS  REQUIRED  IN  THF  INTEGRATION  PROGRAM  ITSELF  TO  CAUSE  THF  PRECISION  OP  CONIC  INTEGRATION  (KEPLER)  OF 
THF  LM  OR  CSM  STATE  VECTOR,  t S THF  NAMES  SUGGEST.  CNE  ENTRANCE  ( INT  EGRVS  ) PERMITS  THE  CALLING  PROGRAM  TO 
PROVIDE  A STATE  VECTOR  TO  BE  INTEGRATED.  THE  CALLING  PROGRAM  MUST  SET  THF  Ft  AGS  INDICATING  (1)  PRECISION  OR 
CCMC  INTEGRATION,  (?)  IN  OR  CUT  CF  LUNAR  SPHERE,  (3)  MIDCOURSE  OR  NOT,  AND  THE  INTEGRATION  PROGRAM  COMPLETES 
THF  FLAG  SETTING  Tfl  BYPASS  W-MATRIX  INTEGRATION.  THE  LAST  ENTRANCE  (INTEGRV,  USED  IN  GENERA!  BY  THE 
NAVIGATION  PROGRAMS)  PERMITS  THF  CALLER  TO  SF  T FIVE  FLAGS  (NOT  MOONFIAG  OR  MIDFLAG)  BUT  NOT  TO  INPUT  A STATE 
VECTOR.  ANY  PROGRAM  WHICH  CALLS  I NT  EGRVS  OR  INT  FGRV  MJST  CALL  INTSTALL  BFFOP-6  IT  SETS  THF  INTEGRATION  FLAGS 
AND/DR  STATE  VECTOR. 


THREE  SETS  OE  42  REGISTFRS  AND  2 FLAGS  ARE  USED  FOR  THE  STATE  VECTORS.  TWO  SETS,  WHICH  MAY  NOT  BE  OVERLAYED,  ARE 
USED  FOR  THE  PERMANENT  STATE  VECTORS  FOR  THE  CSM  AND  LM.  THE  THIRD  SET,  WHICH  MAY  BE  OVERLAYED  WHEN  INTEGRATION 
IS  ACT  BFING  DONE,  IS  USED  IN  THE  COMPUTATIONS. 


THE  PERMANENT  STATE  VECTORS  WILL  BE  PERIODICALLY  UPDATED  SO  THAT  THE  VECTORS  WILL  NOT  BE  CLCER  THAN  4 MMESTEPS. 
THE  PFPMANFNT  STATE  VECTORS  WILL  ALSO  PE  UPDATED  WHENEVER  THE  W-MATRIX  IS  INTEGRATED  OR  WHEN  A CALLfcft  OF  INTEGRV 
SETS  STATEFLG  (THE  NAVIGATION  PROGRAMS  P20,  P22.) 
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* 0002 
RD3R3 
R0C84 
3 0085 
RJ38ft 
ROOR  9 
ROC  90 
R3392 
1 0094 
R0096 
ROC  97 
300QR 
RD097 
R 0 IOC 
* 0 10  1 
RD  13  3 
R 0 1 0 5 
R01O7 
R01C9 
T ° 1 1 0 

r:  i ii 

R ( 112 
RC*  11  3 
R3  1 1 4 
R 0 1 1 5 
<0117 
R OH  9 
3 0121 
«•  122 
R 0 1 2 3 
30  124 
RD12S 
R 012f> 
R 0 1 2 7 
R f 1 2 9 
3 0129 
RD13D 
R0131 
3 0132 
R3  1 33 
R 0 l 34 
RO  1 35 
RD136 
3 0137 
R0139 
ROl  3P 
3 0 1 4' 1 
RD141 
RO  142 
RO  143 


APPENOIX  R OF  THE  ISERS  GUIDE  LISTS  THE  STATE  VECTOR  QUANTITIES. 
2.1  RESTARTS 


PHASE  CHANGES  WILL  BE  MAOF  IN  THE  INTEGRATION  PROGRAM  ONLY  FCR  THE  INTEGPV  ENTRANCE  I I - E - , WHEN  THE  W-MATRIX  IS 
INTEGRATED  OR  PERMANENT  STATE  VFCTCP  IS  UPDATED.)  THE  GROUP  NUMBER  USED  WI I L BE  THAT  E OR  THE  P20-25  PROGRAMS 
(I.E.,  GR0UP2I  SINCE  THE  INTEGRV  E MRANCF  WILL  CNLY  BE  USEC  BY  THESE  PROGRAMS.  IF  A RESTART  OCCURS  DU3ING  AN 
INTEGRATION  OF  THE  STATE  VECTOR  ONLY,  THE  RECOVERY  WILL  BE  TO  THE  LAST  PHASE  IN  THE  CALLING  PROGRAM.  CALLING 
PROGRAMS  WHICH  USE  THE  INTEGPV  CP.  INTEGPVS  ENTRANCE  OF  INTEGRATION  SHOULD  ENSURE  THAT  IF  PHASE  CHANGING  IS  DONE 
TEAT  IT  IS  PRIOR  TO  SETTING  THE  INTEGRATION  INPUTS  IN  THE  PUSHLIST. 

THIS  IS  BECAUSE  TEE  PUSHLIST  IS  LOST  DURING  A RESTART. 

2.2  SCAL  ING 

THE  INTEGRATION  POlTINC 
APPENDIX  fl  OF  THE  USERS 
SYSTEM  AT  THE  OE  SI  RED 
MULTIPLE  TIME  STEP  E NC.  KF 
DIFFERENT  SCALING. 

HOWE  VEP  , RA  TT  , VA  TT  WI  L 

3. C I NFU  T /CUT  PUT 


PROGRAM  INPUTS  ARE  THE  FLAGS  DESCRIBED  IN  APPENDIX  A AND  THE  PERMANENT  STATE  VECTOR  QUANTITIES  DESCRIBED  IN  AP- 
PENDIX R OF  THE  USERS  GUIDE,  PLUS  THE  DESIRED  TIME  TO  INTEGRATE  TO  IN  T 0EC1  (A  PUSH  LIST  LOCATION). 

FOR  INTEGRVS,  THE  RCV.VCV,  T ET  OF  THE  TEMPORARY  STATE  VECTOR  MUST  BE  SET,  PLUS  MOONFLAG  AND  MIDFLAG 

FOR  S IMIJI  AT  ION  THE  FOLLOWING  0 LAN  TI  TIE  S ML  S T BE  PRESET 


WILL  PA  I NT  A I N THE  PERMANENT  MEMORY  STATE  VECTORS  IN  THE  SCALING  AND  UNITS  DEFINED  IN 
GUIOE.  THF  SCALING  lc  THE  OUTPUT  POSITION  VE  f TCRDE  PE  NDS  ON  THE  ORIGIN  OF  THE  COORDINATE 
I NT  EG  P AT  I C N TIME.  TEE  COORDINATE  SYSTEM  TRANSFORMATION  WILL  RE  DONE  AUTOMATICALLY  CN 
INTEGRATION  ONLV.  THUS  IT  IS  POSSIBLE  TO  HAVF  OUTPUT  FROM  SUCCESSIVE  INTEGRATIONS  IN 

L ALWAYS  RE  SCALEC  THE  SAME. 


EARTH  MOON 
29  27 

RREC  TC  SM(  LE  M)  - RECTir-iEC  F CS  IT  I ON  V ECTOR  METERS  2 2 

7 5 

VRFC  TC  SMI  LF  M)  - RECTI  FT  FC  VELTCITY  VECTOR  M/ CS  EC  2 2 

28  29 

TETCSM(LEM)  - TIME  STATE  VECTOR  IS  VALID  CS  EC  2 2 

CUSTOMARILY  0,  BUT  NOTE  LUNAR 
ORBIT  CEPENCENCG  ON  RFAL  TIME. 


22  1 8 

DELTA  VC  SMI  LEM)  - POSITION  CEVIATION  METERS  2 2 

0 I : TCC  SM I LEM)  = 0 


NUVCSM  (L  FM  ) 


3 


VELOCITY  DEVIATION 
0 IF  TCCSM(LEM)  = f 


M/CSEC  2 


-1 


GAP:  ASSEMBLE  RF  VI  SION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L INTEGRATION  INITIALIZATION 


9:  12  OCT.  21,  1970  SKIPPER 
USER'S  PAGE  NC.  3 


121  PAGE  1197 
EO  S3 


RO  145 
RDH6 
* 0147 
R 0 1 4 h 
P0l49 
10150 
RT  151 
Rf  152 
RO  150 
R1154 
10155 
RT156 
R0157 
10158 
R0159 
R0160 
RO  161 
RI>162 
1 C 1 63 
R 0 1 6 4 
R0165 
1 166 
R3167 
R 0168 
RO  169 
R3  1 7 
1 0171 
R 0 1 7 ? 
R0173 
1 0174 
RT17^ 
R0176 
RO  17  r 
R' 1 78 
1 -'179 
R 0 1 80 
RC-1  8l 
101«? 

...  3 

ROl  84 
1 0185 
R5186 
R01P7 
R 0 I 8 8 
R0 1 89 
1 191 
ROl  91 
R<  192 
1 0193 


29  27 

Rf.  VC  SMI  LEM  ) - CONIC  POSITION  METERS  2 2 

EQUALS  RR  EC  TCSMI  LEM)  IF 
TCCS  M ( LEM  = 0 

7 5 

VC  VC  SMI  LEM)  - CCNIC  VELOCITY  M/ CS  EC  2 2 

EQUAL  S VP  EC  7C  SMI  LEM)  IF 
T.CCSM  I LEM  I = 0 

28  28 

TCCSM(LFM)  - TIME  SINCE  RECTIFICATION  CSECS  2 2 

CUSTOMARILY  0 


1/2  17  16 

XKEPCSMIIEM)  - ROOT  OF  KEPLERS  EOLATION  M 2 2 

0 IF  T CCS  M LEM ) = 0 


CMOONFLG 
C MI  OF  LAG 
LMODNFLG 
LMIDFLG 


PERMANENT  FLAGS  CORRESPONDING 
TC  MCCNFLAC  ANC  MICFLAG 
C = C SM,  L = LM 


0 

0,  1 

0 


0,1 


0 


0,  1 
0 

0, 1 


SURFFLAG  - I UNAR  SURFACE  FLAG 


IN  ADDITION,  IF  I L )C  MI  DF  LAG  IS  SET,  THE  INITIAL  INPUT  VALUES  FOR  LUNAR 
SOLAR  EPF  EM  EP  I DES  SUBROUTINE  AND  PLANETARY  INERTIAL  ORIENTATION  SUB- 
ROUTINE ML  S T RE  PRESET. 


OUTPUT 

AFTFP  EVERY  CALL  TC  INTEGRATICN 


OD 

6D 

1 2 D 

l^D 

20D 

260 

Xl 

X 2 
X2 


RATT  POSITION 
VATT  VELOCITY 
TAT  TIME 
R ATT  1 POSITION 
VATT1  VFLCCITY 
MU(P)  MU 

MUTABLE  FNTRY 
COORDI NT 

COORDINATE  SYSTEM  OR  IGFN 
(THIS,  NOT  MfCNFLAG,  SHCULC  BF 


EARTH  MOON 
29  29 

METERS  2 2 

7 7 

M/CSEC  2 2 

28  28 

2 2 
29  27 

ME  TE  RS  2 2 

7 5 

M/  CS  EC  2 2 

3 2 36  30 

M /CS  2 2 

-2  -1  CD 


0 2 
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ROl  9A 
3 '195 
R)19fc 
R 197 
R 198 
R?  199 
8 9200 
R0  20  1 
R)2?2 
3 0203 
R 2 A 
R02r>5 
3 0206 
RD2D7 
R0208 

P,0  209 
R j 2 1 1 
I 0211 
R0212 
R 0 2 1 3 
1 "214 
P^215 
R(  216 
R 0 2 1 7 
R 0 2 1 3 
1 0219 
R022P 
Rf  221 
1 222 
R1  2 2 3 
R 022  ^ 

1 0225 
RD  226 
R0227 
RO  228 
r:2?3 
1 0230 
R0231 
R0232 
1 0233 
R323A 
R '•  2 3 5 
RO  236 
R1237 
1 0238 
R023° 
R02A0 
3 0 241 
R02A2 
R 0 2 A3 


USED  TO  DETERMINE  ORIGIN.) 

IN  ADD  IT  1 1 IN  TO  THE  ABOVE,  THE  PERMANENT  STATE  VECTOR  IS  UPDATED  WHENEVER 
STATEFLG  WAS  SET  ANC  WEEN EV F P A W-MATKIX  IS  TO  BE  INTEGRATED.  THE  PUSH 
COUNTER  IS  SET  TP  C AND  OVERFlCW  IS  CLEARED  8EFCRE  RETURNING  TO  THE 
CALL  1NG  PROGRAM. 

A.  C CALLING  SEQUENCES  AND  SAMPLE  CCDE 


L *1 
L+2 
INPUT 
T DEC  1 
OUTPLT 


ORBITAL  INTEGRATION.  C SMPR  EC  , L FMPREC  ENTRANCES 
STORE  TIME  TO  95TE791T5  T 95  PUS  L 9ST  (T45R1) 
CALL 

C SMPR  EC  (OR  LEMPREC) 

RETURN 

(PD  3 2D  ) TIME  TO  INTEGRATE  TO.  . . CEN  TI  SEC  OND  S SCALED 


28 

2 


THE  DATA  LISTED  IN  SECTION  3.0  PLLS 

RCVV  POSITION  VECTOR  OF  VEHICLE  WITH  RESPECT  TO  SECONDARY 
ROOY...  METERS  B-29  CNLY  IE  MIDFLAG  = DIMOFLAG  = 1 
8)  CONIC  INTEGRATION.  C SMCON IC  , IFMCONIC  ENTRANCES 
L-X  STORE  TIME  IN  PUSH  LIST  (TDEC1) 

L CALL 

L+1  CSMCONIC  (OR  LEMCONIC) 

I NPUT/OUTPUT 

SAME  AS  PRECISION  INTEGRATION,  EXCEPT  RQVV  NOT  SET 
C>  INTEGRATE  GIVFN  STATE  VECTOR.  IN  TEGP  VS  FN  TR  ANC  E 
CALL 

TNTSTALL 

V LOAD 

POSITICN  VECTOR 
STOVL  RCV 

VELOCITY  VECTOR 
STOOL  VCV 

T IMF  STATE  VECTOR  VAL I 0 
STCDL  TET 

FINAL  RADIUS 
STCRE  P.FINAL 
SET(CLEAR)  SFT (CLEAR) 

IN  7 YPFLAG 
MOCNFLAG 

SET(CLEAR)  D L CAD 

DESIRED  TIME 
STCALL  TCEC1 

INTEGR  VS 

I NPUT 

RCV  POSITICN  VECTCR  METERS 

VCV  VELOCITY  VECTOR  M/CSEC 

TET  TIME  OF  STATE  V ECT  CR(  MAY  = 0)  CSEC  B-28 
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R3  2 44 
R0245 
RC246 
R?247 

< >241) 
R0249 
R 02  50 
1 0252 
R 3 253 
RP254 
R0255 
R)  2 56 

< ( 257 
R 0 2 5 8 

R025O 
3 0260 
S3  26  1 
R 0262 
RO  26  3 
R 1 2 64 
T 026  5 
R 0266 
RC-26  7 
* 0268 
R3269 
R0270 
R0271 
R?  27  2 

< C 273 
R0274 


n i 


T EEC  1 TIME  TO  INTEGRATE  TO  CSEC  B-28  (PO  320) 

(MAY  BE  INCREMENT  IF  T FT  = 0 ) 

0 UTP UT 

SAME  AS  FOR  PRECISION  OR  CONIC  INTEGRATION, 

DFPENDING  CN  INTYPFLG. 

INTEGRATE  STATE  VEC  TTR  . I N TO  P V FNTRANCE 

L-X  STGRE  TIME  IN  PUSH  LIST  (TDFClMMAY  BE  DONF  AFTFR  CALL  TO  INTSTALU 
L-fl  CALL 


I -7 


L-6 

L-5 

L-4 

L-3 

L-2 

L-1 

L 

L *1 
L+2 
L + 3 
L +4 
L 

L + l 
L+2 


SET (CLEAP ) S ET  (CLEAR  ) 

VI NTF LAG  1 =CS  M , 0 = LM 
I NTYPFLAG  1=C0NIC,  0=PRFCISI0N 
SET  (CLEAR)  S ET  (CLEAR) 

DIMOFLAG  l =W-MA  TR  I X , 0 = N0  W-MATRIX 
D60R9FLG  1=9X9,  0=6X6 

set  oir*r 

STATFFLG  DESIRE  PERMANENT  UPDATE 
FINAL  RAO.  GF  STATE  VECTOR 
STCALL  RFINAL 

INTEGRV 

CALL  NORMAL  USE—  WILL  JPDATE  STATE 

INTEGRV  VECTOR  I F D I MOF  LAG=1  . ( ST  AT  EFLG  IS 
RETURN  ALWAYS  RESET  IN  INTEGRATION  AFTER 

IT  IS  USED.  ) 


INPUT 

TDECI  (PC  320  TIME  TC  INTEGRATE  TO  CSFC  B-28 
OUTPUT 

S AM  F AS  FOP  PRECISION  OR  CONIC  INTEGRATION 
TOP  PROGRAM  WILL  S FT  MfCNFLAO,  M I CFL  AG  DEPFNPING  ON 
THE  PERMANENT  STATE  VECTOR  REPRESENTATION. 


T'2792 
32743 
n 2744 
. 2745 
0 2 75 

0276 

0277 

0278 
0 279 
02BD 
0280 
0281 
0282 
0283 
32B3  1 
02  83  2 
0 284 
3286 


REF  3 LAST 

REF  7 LAST 
REF  3 LA  ST 
RFF  1 02  L AST 

PFF  10  LAST 
PFF  3q  |.  AST 
RFF  8 LAST 
REF  2 l AST 

REF  68  LAST 
REF  220  LAST 

REF  2 LAST 
REF  3 
REF  32  LAST 
RFF  50  LAST 


11,2366 
243  13,2000 

13,  2fcC2 
974  F3.1554 

24  3 TO  246  : 

1 144  13,  260  2 

13  , 26C  3 
767  13.26C4 

95  8 13,?605 

1195  E3.1554 

247  13,  26C6 

13  ,2607 
1123  13,2610 

1 1 8 1 13,2611 

13  ,2612 
3<'->  13,2613 

l 3,2614 
970  13,261  5 

967  13,  2616 


34  36* 

0 5264  0 
00052  0 
2 5C17  1 
C 5105  0 

02611  0 
26063  0 
0 5272  0 
0 60  6 1 0 

47014  1 
C4712  1 
26652  1 
21555  1 
0004 1 1 


BANK  II 
SETLOC  INTINIT 
BANK 

F BANK  = R R EC  TC  SM 
COUNT*  It/  I NT  IN 
STATEINT  TC  PHASCHNG 

OCT  30052 
CAF  PKI05 
TC  FINDVAC 

CRANK=  RRECTCSM 
2CA0R  STATINT1 


STATIN  TI 


TC  TASKOVER 

TC  INTPRET 

BON  R T 8 

QUI TFLAG 
NOI  NT 
LOADT  IMF 
STORE  TDECI 


ILL  INTEGRATION  UNTIL  NEXT  PDD . 
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0323 

33?4 

0325 
03251 

0326 

0327 
3328 
03282 
0356 
3356 
0404 
040  6 
0408 
0400 
3411 

0412 

0413 
3414 

0415 
• 0415 

04 1 6 
0426 
3427 
042  8 
042° 
3433 
04301 
0 4 30  ? 

04303 

04304 
3433  5 


PFF  28  LAST  1144 


REF 

PEF 


PEF 

RFF 

RFF 

REF 


LAST  236 


LAST 
LA  SI 
L AST 


246 
72  C 
30  2 


PEF  133  LAST  966 


REF  104  LAST  1200 


13,2617 
1 3,  2620 
13  ,2621 
13  ,2622 
13, ?6  2 3 
13  ,2624 
1 ?,  2625 
1 3,2  626 
13  ,2527 
1 ?,  2630 

13.2631 

13 .2632 

' . 

12,  2635 

13,  2636 
1 3,2637 
E 3,  1626 
1 3 ,2640 
13,2641 
13,  2642 
13  ,2648 
12,  2644 
13,2645 
13  ,2646 
12,  2 647 
13  ,2650 
13,2651 
1 3,  2652 
13  ,2653 
13, 2654 


77624  1 

2 7 4 1C  1 

450  14  C 
01076  l 
26643  1 

52014  0 
f 1 4 60  1 
26  026  1 

00003  1 
25140  0 
77414  0 
01672  0 

C 5 364  0 
20032  1 
C COC 6 1 
3 2630  0 
0 5 3 1 C 0 

02602  1 
260  63  0 
C 5155  C 
43014  C 
C 1 4 72  1 
C1673  1 
43014  0 
C 1 6 76  1 
C 1675  1 
77616  0 
77776  1 
0 5364  0 

corrz  o 


600SECS  2 DEC 


I NT  ST  AL  L 
CALL 

NODPFL  AG 
SE  TI  F LG  S 
GOTH 

POCHFLAG 

STATEIJP 

60000 


CLEAR  EXIT 

ST  ATEFLG 
TC  PHASCHNG 

nCT  20032 
EXTENO 

OCA  600SECS 
TC  LONGCALL 

EB ANK=  PRECTHI S 
2CA0R  STATEINT 


TC 

S ET  I FL  GS  S FT 


ENDOF  JOB 
( l F AH 
ST  ATE F LG 
I NTYPFLG 
CL  EAR 
01 MOFLAG 
D60R9FLG 


04306  REF  95  LAST  971 

04307  RFF  3 LAST  1199 

343  38  RFF  134  LAST  1200 


13,2655 
! , - 
13,  2657 


: 5527  1 
00221  0 
C 5155  C 


DOWNFLAG 
QJ  IT  FL  AG 
FNOOF JOB 


ATOPCSM  TRANSFERS  RRECT  TO  RRECT  +41  TO  RRECTCSM  TO  RRECTCSM  +41 

CALL  ING  SEQUFNCE 
I C ALL 

L+  1 ATOPCSM 

NORMAL  EXIT  AT  L+2 


0 4 36 

3 4 37 

04  3 8 

0430 

3443 

0441 


REF 

RFF 


13  ,2660 
13 ,266  1 
13,  2662 
13  ,2663 
1 ?,  2664 
1 3,  ?665 


470 20  0 
000  51  0 
26673  1 
45014  0 
04C63  0 
26  114  1 


ATOPCSM  STQ 


R TB 
S2 

MOVFAC  SM 
CALL 

C MCGNFLG 
SVDWN1 
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344? 

12.  2666 

4 3 C 1 4 

0 

BON 

CLRGC 

0443 

REF 

14 

LAST 

774 

13,2  667 

00303 

1 

MO ONE  LAG 

0444 

REF 

28 

LAST 

1200 

13,2670 

00051 

0 

S 2 

D445 

PFF 

e 

L AST 

1200 

13,  2671 

C4223 

0 

C MCONE LG 

0446 

PE  F 

29 

LAST 

1 201 

13  ,2672 

00051 

0 

S 2 

0447 

R EF 

1 

13,2673 

c 3035 

1 

MCVEACSM 

TC 

S ET  BAN  K 

044  8 

REF 

2 

LAST 

1 1 3 

1 3,  2674 

55 '500 

1 

TS 

DIFEOCNT 

(449 

PFF 

3 

LAST 

1201 

13  ,2675 

51 ' 500 

0 

INDEX 

DIFEOCNT 

045? 

PFF 

6 

LAST 

1 165 

13, 2676 

3 1502 

1 

CA 

PRECT 

0451 

PFF 

4 

LAST 

12?  1 

13,  2677 

51 ' 5C0 

0 

INDEX 

DIFEOCNT 

045? 

RFF 

9 

LAST 

1199 

i , r 

55*554 

0 

TS 

RRECTCSM 

0453 

REF 

5 

1 AST 

120  1 

13,  27C1 

1 1 • EGO 

1 

CC  S 

0 I FEOCNT 

0454 

REF 

3 

LAST 

1200 

13  ,2702 

1 2674 

l 

TCP 

MOVEAC  SM 

0455 

R EF 

59 

LA  ST 

1174 

13 ,2703 

0 6C73 

0 

TC 

DANZ  IG 

R0456 

PTCACSM 

TRANSFERS  RRECTCSM  TO 

RRECTCSM 

+ 41  TO  RRECT  TO 

RREC  T +41 

R 457 

CALLI  NG 

SFOUF  NCE 

RO  4 58 

L 

C 

ALL 

R 0459 

FTC  ACS  M 

RQ460 

NORMAL  E 

XIT  AT  L+2 

0 461 

13,  2704 

43034 

1 

PTOAC  SM 

R TB 

B CN 

C4A2 

REF 

2 

1 AST 

1140 

13  ,2705 

26722 

1 

MOVEPCSM 

0463 

REF 

9 

I AST 

120  1 

13,  27C 6 

C4^C3 

0 

CMCCNFLG 

0464 

RFF 

1 

13,  2707 

2671  5 

0 

SETMOON 

C466 

13,2710 

66214 

0 

CLRMOCN 

CLEAR 

SS  P 

0 4 66 

RFF 

15 

L AST 

1201 

13, 2711 

C C 2 6 3 

0 

MUCNFLAG 

T 467 

REF 

4 

LAST 

1147 

13,2712 

02031 

1 

PROD  Y 

0468 

13  ,2713 

00000 

1 

D 

0469 

13,  2 714 

776  16 

0 

R VO 

0470 

13  ,2715 

66214 

0 

S ET  MOON 

SET 

SSP 

0471 

P EF 

16 

LAST 

120  1 

13,  2716 

CCC63 

1 

MOCNF  LAG 

0472 

REF 

5 

LAST 

120  1 

13,  2717 

0 2c  3 1 

l 

P80DY 

0473 

13  ,2720 

C0002 

0 

2 

0474 

13,  2721 

776  16 

0 

RVQ 

047  5 

RFF 

2 

LAST 

1201 

13  ,2722 

0 3035 

1 

MOVFPCSM 

TC 

SETRANK 

0476 

PFF 

6 

LA  ST 

1201 

13,27 23 

55 '500 

1 

TS 

DIFEOCNT 

0477 

REF 

7 

1 AST 

1 2r*  1 

1-3,  2724 

5 1 ' ECO 

c 

INDE  X 

DIFEOCNT 

<478 

REF 

10 

LAST 

12C1 

13  ,2725 

3 155^ 

1 

CA 

RRECTCSM 

<4  79 

REF 

8 

l AST 

120  1 

13,  2726 

51 ' 5C0 

0 

INDEX 

D I FEQCNT 

0480 

REF 

7 

LAST 

12?  1 

1 3,  27  27 

c5' 502 

0 

TS 

RRECT 

0481 

REF 

9 

LAST 

1201 

13,2730 

1 1 • 500 

1 

CCS 

DIFEOCNT 

0482 

RFF 

3 

L AST 

120  1 

13,  2731 

1 2723 

1 

TCF 

MOVEPCSM 

0483 

RFF 

60 

LAST 

1201 

13  ,2732 

0 6073 

0 

TC 

DAN7  IG 

R0  484  ATOPLEM 


TRANSFERS  RREC  T TO  RRECT  + 41  TO  RRECTLE  M TO  RRECTLEM  +41 


9 : 12  CCT.  21 


21 


PAGE  1201 


,1  970  SKIPPER 
USER ' S PAGE  NO.  7 


E3  S3 


INITIALIZE  I NO  EX 


1 


IS  TRANS  FER  COMPI  ET  E 
NO- LOOP 

COMPLETE-  RETURN 


GAP: 

L 

0485 

o 4 9 6 

0487 

0488 

3439 

0490 

0491 

04  92 

0493 

3434 

C49R 

0496 

3 49  7 

0498 

0499 

0500 

0501 

353? 

0503 

0 50  4 

R3505 

0506 

0507 

05  09 

0509 

3513 

0511 

0512 

3513 

0514 

0515 

05  1 5 

- 517 

3519 

05  19 

0 520 

3521 

0522 

3523 

052  4 

0525 

3 526 

0527 

0528 

0529 
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121  PAGE  12U2 
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PEF 

REF 

REF 

PFF 

PFF 

RFF 

REF 

REF 

RFF 

REF 

P.FF 

REF 

PFF 

REF 

REF 

RFF 

REF 


30 

3 


2 

17 

31 

32 
3 

10 

11 

P 

12 

2 

13 

61 


LAST  1201 
LAST  1147 

l AST  589 
LAST  1147 

L AS  T 1 20  1 
LAST  1202 
LAST  1202 
LAST  120  2 
I A ST  1201 
LAST  120  1 
LAST  1 2 f • 2 
LAST  1201 
LAST  123  2 
I A ST  114 
LAST  1202 
LAST  123  2 
LAST  1201 


1 3 ,7733 
13,  2734 
13,  2735 
1 3,2736 
1 3,  273  7 
1 3 ,71V 
13,274  1 
13,  274  2 
13  ,2743 

12,  2744 
1 3,?  745 
1 3 ,2  746 

13,  274  7 
13  ,2750 
13,2751 
13,  27  5 2 
1 1 ,2753 
1 3,  2754 
1 3,  2 755 
13  ,2756 


47020  0 
CCC51  0 
2 6 746  0 
45  C 1 4 
C4C64  1 
26070  1 

4301 4 0 
00  5C  3 1 
00051  0 
C4224  1 
C0C51  0 
C 3035  1 
5 5 ' 5C0  1 
51' 500  0 
3 1502  1 
5 1 ' 5C0  0 


5 5 ' 626  0 
11' 5C0  1 
1 2747  0 
C 6073  0 


ATOPLEM  STQ 


SET 

BON 


PCVFALEM  TC 
TS 

INOEX 

CA 

INDE  X 
TS 
CCS 
TC  F 
TC 


RTB 

S2 

MOVEA  LF  M 
CALL 

LMCOMFLG 
SVDWN2 
CLRGO 
MOONF  LAG 
S 2 

LMCOMFLG 
S 2 

S FT  BANK 
01  FEQCNT 
DIFEOCNT 
RRECT 
3IFEQCNT 
RRECTLEM 
01  FECCMT 
MOVE  A LEM 
DANZIG 


PTDALFM  TRANSFERS  RRECTLEM  TO  RRECTLEM  +4l  TO  RRECT  TO  RRECT  +4l 


REF  17 
REF  1 
REF  2 

REF  5 
REF  2 
REF  1 
REF  4 
REF  14 
REF  15 
REF  3 
PEF  16 
PFF  9 
REF  17 
REF  3 
REF  62 


LAST  834 

LAST  1147 

LAST  1202 
LA  ST  1201 

LAST  1202 
LAST  120  2 
LAST  1 20  2 
LA<T  1202 
LAST  120  2 
LAST  1202 
LAST  1202 
LAST  1 2n  2 
LAST  1202 


13  ,2757 
13,  276C 
1 3,  276  1 
13,2  762 
13,  2 7 6 3 
1 3 ,2764 
13,2765 
13,  2766 
13  ,2767 
13,  2770 
13,  277  1 
13,2772 
13,  2773 
13  ,2774 
13  ,2  775 
1 3,  2776 
13  ,2  777 


47014  1 
C43C7  1 
27000  l 
26767  0 
52014  0 
04304  1 
26715  0 
26710  0 

0 30  35  1 
55 ' 5C0  1 
51'  5C0  0 
3 1626  l 
51* SCO  0 
55*502  0 
11*500  1 

1 2770  1 
0 6073  0 


PTOALEM  BON  RTB 

SURFFLAG 
USEPI  OS 
MOV  EPL EM 
BON  GOTO 

LMOONFLG 
SETMOON 
: LR  MOON 

MOV  EPL  EM  TC  SET  BANK 

TS  DIFEOCNT 

INDEX  31 FE  QC  NT 

CA  RRECTLEM 

INDEX  DIFEQCMT 

TS  RRECT 

CCS  DIFEOCNT 

TC  F MOVEPLEM 

TC  DANZIG 


+ 1 


RFF 

RFF 

REF 

PEF 


16 


LAST  1130 

LAST  1199 
LAST  774 


1 3,3001 
13  ,3002 
13,  300  3 
13  ,3004 
13  ,3005 
13,  3006 


02021  0 
41525  0 
00C41  1 
15517  C 
27733  0 


USEPI  OS  SFTPD  V L CAD 

0 

RLS 

PDDL  PUSH 
TDEC1 

STOOL  TET 
5/8 
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L INTEGRATION  INITIALIZATION 


USER'S  PAGE  NC.  9 E3  S3 


0 53' 1 

0531 

0532 
? 533 

0534 

0535 

REF 

REF 

REF 

REF 

7 

16 

2 

L7 

LAST 

LAST 

LAST 

LAST 

1126 

1169 

37 

1 202 

13,3007 

13,  30  10 

13,3011 
13,  3012 

13.3013 

13.3014 

77624  1 
55720  1 
25535  0 
240C1  0 
14001  0 
01517  0 

CALL 

STOVL 

STOOL 

RP-TO-R 

RCV 

ZUNIT 

OD 

T ET 

D 536 

13,  3015 

140C7  0 

ST  DDL 

6D 

0537 

REF 

2 

LAST 

1202 

13  ,3016 

27733  0 

5/8 

3538 

13,3017 

45C14  0 

SET 

CALL 

053  R 1 

REF 

18 

LAST 

123  2 

13,  3o20 

0006 3 1 

MOONF  LAG 

0539 

RFF 

8 

LAST 

120  3 

13 ,3021 

5 5 72'.  1 

PP-TO-R 

3543 

13,  3022 

74235  0 

VXV 

VX  SC 

0541 

REF 

17 

LAST 

123  3 

13, 3023 

01535  0 

RCV 

0542 

REF 

l 

13  ,3024 

26001  1 

OMEGMOON 

3543 

REF 

14 

L AST 

1 170 

13,  3025 

25543  1 

STCVL 

VCV 

0544 

RFF 

a 

LAST 

1 126 

13  ,3026 

24007  0 

Z EROVEC 

0545 

RFF 

6 

LA  ST 

1 14  7 

l 3 ,3027 

01521  C 

STORE 

TOELTAV 

0546 

13,  30 30 

67174  1 

A XT , 2 

SXA  ,2 

0547 

13  ,3031 

00002  0 

2 

3 548 

REF 

6 

LAST 

120  1 

13,  3022 

02C30  0 

PBCDY 

054  9 

REF 

6 

LAST 

1 147 

13,  3033 

35527  1 

STCALL 

TNUV 

0550 

REF 

1 

13,3034 

27156  0 

A-PCHK 

3552 

RFF 

1 

13,  3035 

2 3C41  1 

SFTBANK  CAF 

I NTBANK 

0553 

REF 

48 

LAST 

1 120 

13  ,3036 

54  006  C 

TS 

BBANK 

0554 

REF 

I 

1 3 ,3037 

2 3446  1 

CAF 

FORTY  ON E 

0555 

REF 

323 

L AST 

1 122 

13, 3040 

0 0002  0 

TC 

Q 

0556 

REF 

11 

LAST 

1201 

E3 ,1554 

ERANK= 

RRECTCSM 

3557 

PEF 

IC 

LAST 

650 

l 3,  3041 

26C63  C 

INTHANK  BBC  QN 

1 NTEGPV 

NEEDED  FOR  SETTING 


XI  QN  EXIT 


R 055 8 SPECIAL  PURPOSE  ENTRIES  TO  ORBITAL  INTEGRATION.  THESE  ROUTINES  PROVIDE  ENTRANCES  TO  INTEGRATION  WITH 
<0560  APPROPRIATE  SWITCHES  SET  OR  CLEARED  FOR  THE  DESIRED  INTEGRATION. 

R3561  CSMTREC  AND  L FM  PR  EC  PERFORM  ORBIT  INTEGRATION  BY  THE  FNCKE  METHOD  TO  THE  TIME  INDICATED  IN  TDEC1 

ACCFLEPA  TI  ONS  DUF  TO  08L  AT  ENFSS  APE  INCLUOED.  NO  W-MATR  IX  INT  . IS  DONE. 

R0564  THE  PERMANENT  STATE  VECTOR  I S NOT  UPDATED. 

R 0 5 6 5 C SMC  ONI  C AND  LEMCCNIC  PERFORM  ORBIT  INTEG.  BY  KEPLERS  METHOD  TO  THE  TI  MF  INDICATED  IN  TDECI 

< '■‘567  NO  DISTURBING  ACCELERATIONS  ARE  INCLUDED.  IN  THE  PROGRAM  FLOW  THE  GIVEN 

RD558  STATF  VECTOR  IS  RECTIFIED  BEFORE  SOLUTION  OF  KEPLERS  EQUATION 


R '->569 
RC57- 
R0571 
1 '572 
R3573 
R0574 


VINTF  LAG 
INTYPFL  G 
DI  W'1  FLAG 


CSMPR  EC 
SET 
CLEAR 
CLEAR 


CSMCONIC 
SET 
SE  T 

CLEAR 


L EM  PR  EC 
CLEAR 
CLEAR 
CL  EAR 


L EMCONIC 
CL  EAR 
SET 
CL  EAR 


*0575  CALI  INC,  SEQUENCE 
RD57S  l -X  STORE  TDECI 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z6RLINA  BY  ZQPOASTER 


L INTEGRATION  INITIALIZATION 


L CALL 
L+1 


LEMPREC , 


LEMCONIC ) 


* 05  79  NORMAL  EXIT  TO  L+2 


R05B3  SUBROUTINES  CALLFO 
R'-SHl  I NT  EG  PV I 

U 582  PPCCOUT  FOP  CSMPREC  AND  LEVPPEC 

R * 5 R 3 CONICOIJT  FOR  CSMCON  If  AND  LEMCONIC 


R0  594 
R 9 58  5 
Ru586 
f 587 
05RP 

0589 

0590 
359  1 
05  92 


rUTPUT  - 
INPUT 
TDEC1 

REF  61 
REF  29 

REF  2 
PEE  19 


SEE  PAGE  2 CF  THIS  LCG  SECTION 


TIME  TO  INTEGRATE  TO  . C SE  CS  B-2e 

13,3042  4502  0 l CSMPREC  STO 

I AST  119  1 L?,  3C42  CCC46  0 

LAST  1230  13,30  46  27410  1 

13,3045  43130  1 SX A, 1 

L AST  117  13,  3046  C2  10 1 0 

LAST  650  13,3047  01474  1 


CALL 

XI 

I NTSTALL 

S ET 

I RETURN 
V INTFLAG 


0 59  3 

C594  REF 
0595  PEE 
3576 

C596 1 REF 
0 5^6  2 PEF 
3597 

0598  RFF 
0590  REF 
0600 

0601  REF 
363?  PEF 
0603  REF 


3 

15 

16 


6? 

3C 

3 

PC 

1 


13,3050 
LAST  24  3 13,  3051 

LAST  1200  13,3052 

13,  3053 
LAST  1230.  13,  3054 

13,3055 
13,  30  5 6 
LAST  1204  13  ,3057 

LAST  1204  13,3060 

13,  30 6 1 
LAST  1204  13  ,3062 

LAST  1 204  13,  3063 

1 3,  30  64 


43C14  C 
0 1 467  0 
01676  1 
77614  1 
01633  0- 
27135  0 
45020  1 
00046  0 
27410  1 
43130  1 
02101  0 
C l 6 34  1 
27050  1 


I F LAG  P SET 


C LRG  0 


LFMPRFC  STQ 


S XA  , 1 


CLEAR 
PR  EC  IF  LG 
D I MO  FLAG 

I NTYPFLG 
I NT  EGRV  1 
CALL 
X 1 

INTST ALL 
3 LRG  0 
IRETURN 
VI  NT  FLAG 
IF  LAGP 


0604 
3 63  5 
0606 
0 60  7 
06  OP 
0609 
3613 
0611 
0612 
3613 

0614 

0615 

0616 
0617 


REF 

REF 

REF 

RFF 

REF 

REF 

RFF 

REF 

RFF 


63  LAST  120  4 

31  LAST  1204 

4 LAST  1204 
21  LAST  1204 

1 6 LAST  1234 

17  LAST  1204 
2 L AST  1204 

64  LAST  1204 

32  LAST  1204 


13,3065 
13,  3C66 
13  ,3067 
13,3070 
13,  3., /I 
13  ,3072 
13,  3C73 
13,  30  74 
13,3075 
13,  3C76 
13  ,3077 
13,3  100 
13,  310  1 
13  ,3  102 


45020  1 
00046  0 
27410  1 
43130  1 
^ 2 1 f.  1 0 
01474  1 
4 3 C 1 4 0 
01676  1 
01433  1 
27135  0 
450  20  1 
00046  0 
274  10  1 
43130  1 


CSMCONIC  STQ  CALL 

Xl 

IN  T STALL 
SX  A,1  SET 

I RE  TURN 
V INTFLAG 

IFLAGC  CLEAR  SETGO 

3 I MOF  LAG 
I NTYPFLG 
I NTEGRVl 

LFMCON  IC  STO  CALL 

XI 

I NTSTALL 
SX  A,  1 CL  R GO 
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INTEGRATION  INITIALIZATION 


06lR  REF 
0619  REF 
3523  REF 


13,  3 10 3 
13,3104 
13,  3 LC  5 


02101  0 
01634  1 
27C73  0 


I RE  TURN 
V INT  FLAG 
IFLAGC 
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0621 

0622 

3623 

0624 

0625 

0626 
0627 
7628 

• 2 0 1 
0629 
363) 

0631 

0632 

0633 

0634 
3635 

0636 

0637 
7637  1 
06372 

0638 
R0539 
10640 
RD6A  1 
R0642 
10643 


REF  1 9 LAST  1 2?  3 


LAST  1205 


REF 

REF 

RFF 

REF 

REF 


PEF 

REF 


6 LAST  120  5 
9 I AST  1203 

7 LAST  1203 
7 LAST  120-3 
2 LAST  114  7 

17  LAST  1204 


13 ,3  106 

■ 

13, 3 1 10 
13  ,3111 
13,3112 
13,  3 113 
13  ,3114 
13,  3115 
13,  3116 
13,3117 

13. 3120 

13 .3121 
• 

1 I,  123 
13  ,3124 
13, 3125 
13,  3126 
13  ,3127 
13,  3130 
13  ,3131 
13,313  2 


66214  0 
Cl  467  0 
0 20  3 1 1 
00000  1 
66214  0 
003^3  0 
27117  0 
C2C31  1 
00002  0 
77220  1 
C21C1  0 
24007  0 
01521  C 
35527  1 
27671  1 
43014  0 
01676  1 
0406?  1 
77614  1 
040  20  1 
27147  0 


INTEGRVS  SET 


SSP 

PREO  IFL  G 
PBODY 


P80DY 


INTEGRV  IS  AN  ENTRY  TO  ORBIT  INTEGRATION 
NORMALLY  THE  NAVIGATION  PROGRAM  ,TG  SET 
IS  ENT  FP  ED  AT  INTEGRV1  RY  CSMPREC  FT.AL. 
THE  ROUTINE  SETS  UP  A -MEMORY  IF  ENTERED 
PROGRAM  FOR  PRECISION  OR  CONIC 


STQ  VLOAD 

I RETURN 
Z EROVEC 
STORE  TDELTAV 
STCALL  TNUV 

R EOT  IFY 
CLEAR  SET 

31 MOF  LAG 
NEW  IFLG 

SE  TGO 

RPOFLAG 

ALOADFD 

WHICH  PERMITS  THE  CALLER  , 

TEE  INTEG.  FLAGS.  THE  ROUTINE 
AND  AT  A LOADED  BY  INTEGRVS. 

AT  INTEGRV,  I AND  SETS  THE  INTFG. 


R3644 
Rf  645 
RO  646 
R0647 
1 0648 
R0649 
R0650 
30651 
RDS5? 
R0653 
R0654 
R)  655 
T 0656 
RH657 
R065R 
1 0 659 
RO  560 
R0661 
Rn  66? 


IS  IN  USE  BEFORE 


THE  CALLER  MUST  FIRST  CALL  INTSTALL  TO  CHECK  IF  INTFG. 

SETTING  ANY  FLAGS. 

THE  FLAGS  WHICH  SHOULD  RE  SF  T CR  CLEARED  ARE 

VINTFLAG  (IGNORED  WHEN  ENTFRED  FROM  INTEGRVS) 

I N TYPE  LG 
D IMPEL  AG 
D6  0R9FLG 

CALLING  SEQUENCE 

L-X  CALL 

L-Y  INTSTALI 

L - 1 SET  OP  CLEAR  ALL  FOUR  FLAGS.  ALSO  CAN  SET  STATEFLG  IF  DESIRED 

AND  DIM?  FLAG  IS  CLEAR. 

L CALL 

I +1  INTEGRV 

I NIT  IALI  ZATICN 
FLAGS  AS  ABOVE 

STORE  TIME  TO  INTEGRATE  TO  IN  TDEC  1 
OUTPUT 
RATT 


A S 
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I I NT  FGR  AT  ION  INITIALIZATION 

R0663  VATT  CEFINEC 

R0664  TAT  BEFORE 


0665 

0666 
3 66  7 
066  8 
0669 

' 7 
671 
' 67? 
06  7? 
0674 
3675 
06  76 
677 
3675 
06  79 
°6fi0 
06  81 
0682 
3 68  3 
C684 
‘ 685 
3586 
0687 
0 688 
C 689 
(690 
3692 

0693 

0694 
3695 
0696 
;«697 

0698 

0699 
3 730 
0701 
0 70? 
3 73  3 
0704 
0 70  5 

0706 

0707 
3738 
0709 
0 710 
3711 


RFF  7 LAST 

PFF  2 LAST 
REF  2 LAST 

PFF  1C  LAST 
PEF  ? LAST 

REF  23  LAST 

REF  1 

REF  2 LAST 

REF  5?  LAST 
PFF  2 LAST 

REF  Ip  LAST 
REF  1 
REF  1 

REF  6 LAST 

REF  1 

REF  105  LAST 

REF  7 1 LAST 
PEF  3 LAST 
REF  221  I AST 

REF  11  LAST 
REF  1 

REF  ?4  I A ST 
REF  3 LAST 
REF  2 LAST 

REF  2(  LAST 


REF  3 LAST 
REF  If  LAST 


REF  7 LAST 


1 3,  3 133 
1205  18,3134 

13,  3 135 
1205  1 3,  3136 

1205  13,3137 

13,  3 140 
1148  13,3141 

1205  13,? 142 
13,  3143 

12C5  13,3144 

13,  3145 
33  2 13,3146 

13,3147 
1202  13,  3150 

106  13,3151 

1 3 ,3  152 

1204  13,3153 
13  ,3154 
13,  3 16  5 
13,  3156 

1200  13,3157 

13,  3160 
1230  13,3161 

13,3162 
1145  13,3163 

1145  13,3164 

1199  13,3165 

13,  3166 

1206  13,3167 
13,  3170 
13  ,3171 

1 ?0  6 13,3  17? 

53  3 13,  3 173 

37  13,3174 

13,  3175 
1U8  13,3176 

13,3177 
13, 32CC 

1205  13  ,3201 
13  ,3202 

1232  13,  3 2o  3 

13  ,3204 
13,  32C5 
1170  13,3206 

13,3207 
13,  3210 


77  6 2'  0 

0?101  O 
43014  0 
04060  0 
C4062  1 
77731  1 
00053  1 
27147  0 
5 2C  14  0 
01714  1 
267C4  0 
26757  0 
77745  1 
CCC4 1 1 
01115  0 
52014  0 
OH53  1 
27256  0 
27242  0 
77414  0 
01752  0 
27177  0 
0 5364  0 
0402?  0 
C 5515  0 
00236  0 
C 6C  5 1 0 
77731  1 
00053  1 
27175  1 
520  14  0 
01714  1 
26660  0 
26733  1 
77624  1 
11216  1 
45001  1 
00CC1  0 
27671  1 
53775  1 
01503  0 
57576  1 
51715  1 
01511  0 
57576  1 
63325  0 


INTFG8V  STO 
INTEGRV1  SET 

INTEGRV2  SSP 


BON 


ALCAUED  DLQAD 

STOKE 

80FF 


A-PCHK  80F 


TC 

OCT 

TO 

ADR  ES 

TC 

SSP 


RON 


PHE  XI  T CALL 
RECTOUT  SET  PD 


VLOAD 


PD  VI. 


POOL 


IRETIJPN 

SET 

RPQFLAG 
NEW  IFLG 

QPR  E T 
ALOACED 

GO  TO 

V INTFLAG 
PTCACSP 
PTOALE  P 

TDECl 
T DEC 
GOTO 
I NTYPF  LG 
TESTI  OOP 
RVCCN 
E XI  T 

ST  AT  EEL  G 
RECTOUT 
P HA  SC.  HN  G 
0402? 

UPF  LAG 
R E INTFLG 
I NTPRET 


QPRET 
PHE  XI  T 
GO  TO 

V INTEL  AG 
A TOPC SM 
ATOPL  EM 

3RP2PC 

CALL 

0 

RECTIFY 
VS  L * 

RREC  T 
0,2 
VS  L* 
VRECT 
0,2 
PD  VL 
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PHASE  CHANGE  HAS  OCCURRED  BETWEEN 
INTSTALL  ANO  INTWAKE 


RATT  TO  PD? 


VATT  TO  P06 


TAT  TO  PC12 
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L INTEGRATION  INITIALIZATION 


USER*  S PAGE  NC.  13  E3  S3 


0712 

REF 

18 

LAST 

1203 

13,3211 

01517  0 

T ET 

D 7 1 3 

REF 

11 

L AST 

1206 

13, 3212 

01503  0 

PRECT 

0714 

L 3 ,3213 

64715  0 

P DVL 

P DDL  * 

0715 

REF 

8 

LA  ST 

1206 

13  ,32  14 

n i c 1 1 o 

VRECT 

071b 

REF 

2 

l AST 

68  2 

13,  3215 

51770  0 

MUEAR  TH  ,2 

0717 

13  ,3216 

76006  0 

PUS  H 

AXT  , 1 

D71B 

l 3,  32  17 

77765  0 

DEC 

-10 

0719 

13,  3220 

76  014  0 

BON 

A XT,  1 

0720 

REF 

20 

LAST 

12C5 

13  ,3221 

0030?  1 

MOONFLAG 

3721 

13,  3222 

27224  0 

+ 2 

072? 

13  ,3223 

77775  1 

DEC 

-2 

0723 

13  ,3224 

40001  1 

INTEXIT  SETPD 

BOV 

0724 

13, 3225 

oocoi  0 

0 

0725 

13  ,3226 

27227  0 

+ 1 

3725  1 

13,  3227 

43 C 1 4 0 

CLEAR 

CLEAR 

0725? 

RFF 

2 

LAST 

325 

13,  3230 

04676  1 

AVEMIDSW 

07253 

REF 

5 

LA  ST 

1205 

13,3231 

01667  l 

PR  EC  I FL  G 

37254 

13, 3232 

776  U 1 

CLEAR 

07255 

REF 

7 

LAST 

1206 

13  ,3233 

01672  0 

STA  TEFL  G 

0 726 

13  ,3  234 

77535  1 

SLOAD 

EX  IT 

0727 

REF 

8 

L AST 

1 2o  6 

13,  3235 

02  102  0 

I RE  TURN 

072* 

RFF 

763 

LAST 

1186 

13  ,3236 

3 0154  1 

CA 

MP  AC 

3729 

REF 

70 

LAST 

1 174 

1 3,  3237 

5C  120  1 

I NDE  X 

FIX  LCC 

0730 

REF 

12 

LAST 

1 2D  6 

13,  ?2 40 

54  052  1 

TS 

OPRET 

0731 

REF 

4 

LAST 

1148 

13,3241 

C 3421  0 

TC 

I NTW  AK E 

RD  732 

RV  CON  SETS  UP 

ORBIT 

INTEGRA  TION  TO  DO  A 

CONIC  SOLUTION 

FUR  POSITIC 

RC733 

VF  LOCI TY 

FDR 

THE  INTERVAL  (TFT 

-TDEC  1 

ALLOW  UPDATE  OF  DOWNLINK  STATF  VECTOR 


0 73  A 

0735  REF 

0736  RFF 

0737  REF 
073  R RFF 
0739 

974D  REF 
0741 

C 74  2 R EF 
0743  REF 
< 744  REF 
9745  REF 


13,3242 

3 LAST  1 2D  6 13,  3243 

19  LAST  1207  13,3244 

IP  LAST  1168  13,  3245 

4 LAST  1206  13,3246 

13  ,3247 

1 13,3250 
13  ,3251 

6 I A ST  1170  13  ,3252 

2f  LAST  120  7 13,  3253 

21  LAST  1207  13  ,3254 

2 LAST  1206  13,  3255 


01517  0 
36(74  1 
27671  1 
77624  1 

22366  1 
43345  1 
01551  1 
0 1 5 1 7 0 
35517  1 
27177  0 


RVCCN 


CLCAD  DSU 
TDEC 
TET 

STCALL  TAIJ. 

RECTIF  Y 

CALL 

KE  PPREP 
DLOAD  DAO 
TC 
TE  T 

STCALL  TFT 

RE  CT  CUT 
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INTEGRATION  INITIALIZATION 


°07455 

D746 
7 • ! 
D 74ft  ■* 
'7464 
07465 
D7466 
0747 
0 748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 
761 

076? 

0763 

0764 

0765 

0766 
r 767 
r 76  8 

0769 

0770 

0771 
077? 

0773 

0774 
0 775 

0776 

0777 

0778 

0779 

0780 
079  1 
07  8? 

0 78  3 

0784 

0785 

0786 

0787 

0788 


RFF  Q 
RFF  1 8 
REF  1 
REF  1 


I A ST  1200 
LAST  12?  7 


I AST  1 ?0 5 
LAST  1?'M 


? LAST  120  0 


RFF  3 LAST  1207 
RFF  l 

REF  764  LAST  120  7 


REF 

REF 


REF 

REF 

REF 


I AST  938 
LAST  117 


RFF  3 LAST  12C8 


13,  3256 

, 

13,3260 
1 3,  3 26  1 
13,3262 
13,  3263 
1 3, °264 
13,3265 
1.3,  3 266 
1 . 67 

13  ,B27  i 
13,  3 27  1 
13  ,3272 
13,  3273 
13,  32  74 
. 

13, 3276 
13  ,3277 
13,3300 

13,  3 30  1 
13 ,3  3C  2 
1 i , 3 3(  3 
1 3,  3304 
13,3305 
13,  3306 
13  ,3307 
13,331  I 
13,  331  1 
13  ,3312 
13,  3313 
13,3  314 
13,3315 
13,  3316 
13  ,3317 
13  ,3320 
13,  332  1 
13  ,3322 
. 

13,  24 

13,3325 
13,  3326 
13  ,3327 
13  ,333  0 
13,  3331 
13  ,3332 
13,  3333 
. 

13  ,3335 


43c  14  0 
04752  0 
27263  0 
01632  1 

27224  0 
73CC1  1 
0CO13  0 
02030  0 
51=75  1 
01535  0 
43006  0 
00262  1 
50023  0 
53755  0 
27277  0 
77614  1 
CCC62  0 
41345  0 
00013  0 
00O43  0 
55762  1 
61770  0 
41366  I 
2576?  0 
40442  1 
54345  1 
00155  0 
20220  0 
40006  0 
27340  0 
5002 1 1 

27407  1 

27340  0 
45345  1 
01115  0 
01517  0 
54234  0 
21574  1 
20211  1 
02076  1 
51400  1 
27344  1 
50025  0 
000 15  0 
27350  1 
75345  1 
0CC15  0 
02  076  1 


TESTLOQP  BflF 

+ 3 SFTPO 

VLOAD 
PUSH 
DSU  * 

SET 

NflRFINAL  OLOAD 

SR  1R 

SORT 

SR3 

OLOAD 


PUSH 

BOSU 

nT/2CHMP  OLOAD 


STA  TEFLG 

INTEX  IT 

LX  A, 2 

10D 

PRODY 

AHVAL 

REV 

CL  EAR 

MIDFLAG 

BMN 

R ME  ,2 


MI  OF  LAG 

DMP 

IDO 

340 

DDV* 

MUEARTH, 

DMP 

.30 

SR4 

SL 

MP  AC 
1 50 
ROV 
MAX  OT 
3 MN 

DT  / ?M  AX 
MAXDT 

nsu 

TOEC 
TE  T 


USEMAXOT  0 LOAD 


SL 


IDT/ 2 
ABS 

GETMA  XOT 
BMN 
120 

POOHCHK 

SIGN 

120 

DT/2 


PAGE  1208 
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STOP  INTEGRATION 

RC  TO  100 

M I DFL AG=  0 IF  3 G. T.  R MP 


OT  IS  TRUNCATED  TC  A MULTIPLE 

OF  128  CSECS. 


B-l  9 


IS  TIME  TO  INTEG. 


TO  GP  THAN  MAXTIME 


AP  : 
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INTEGRATION  INITIALIZATION 


US  ER'S  PAGE  NO.  15 


0789 

REF 

4 

LAST 

1208. 

13,3336 

36076 

0 

STCALL 

OT/2 

0790 

REF 

2 

1 A ST 

120  8 

13,3337 

2 7350 

1 

POOHCHK 

D 79  1 

1 3,  3 340 

6 5 345 

0 

MAXDT 

DLOAD 

PDDL 

0792 

REF 

2 

LAST 

1 2(  8 

13  ,3  34  1 

27407 

1 

DT/2MAX 

0791 

13,3342 

77  651 

1 

GOTO 

0794 

RFF 

1 

1 3,  .3  34  3 

27217 

1 

D T/2C0MP 

0795 

13,3344 

77634 

0 

GET  MAX  OT 

RTD 

D 796 

REF 

1* 

LAST 

862 

13,  3345 

21674 

1 

SI  GNMPAC 

0797 

RFF 

5 

L AST 

123  9 

1 3,  3 346 

36076 

0 

STCALL 

DT/2 

0798 

RFF 

1 

13  ,3347 

27333 

1 

JS  EM  AX  DT 

D799 

13,  3 3 5 0 

5 1545 

1 

POCHCH  K 

DLOAD 

ABS 

0800 

RC-F 

6 

LAST 

1209 

13  ,3351 

02076 

1 

DT/2 

08C  1 

13,3352 

5002  5 

0 

OSU 

BMN 

0802 

REF 

1 

13,  3 353 

274C5 

0 

DT/2  MI  N 

0803 

REF 

2 

LAST 

1203 

13  ,3354 

27156 

0 

A-PCHK 

D8D4 

l 3,  3355 

43C14 

0 

BOFF 

RON 

0805 

REF 

3 

LAST 

1230 

l 3,3356 

01740 

0 

PODHFI  AG 

0806 

PFF 

1 

13,3357 

23272 

1 

T IMFST  EP 

D8D7 

REF 

6 

L AST 

1207 

13,  336C 

C17C7 

0 

PRECIFLG 

0808 

RFF 

2 

LAST 

1209 

13  ,336) 

23272 

1 

1 IMESTEP 

0809 

13,3362 

45  345 

1 

DLOAD 

DSU 

0810 

REF 

7 

L AST 

1209 

13,  3 36  3 

02076 

1 

DT/2 

0811 

13  ,3364 

00015 

0 

1 2D 

D 8 1 2 

13,  3 36  5 

43040 

1 

BMN 

BCFCLR 

0813 

REF 

3 

LAST 

1239 

13,  3366 

27  156 

0 

A-PCHK 

081 A 

RFF 

3 

LA  ST 

1206 

13  ,3367 

04242 

1 

N EW  I FL  G 

3015 

REF 

3 

L AST 

1209 

1 3,  3370 

53272 

1 

TI  MESTEP 

0816 

13  ,3371 

45  345 

1 

DLOAD 

DSU 

08  17 

REF 

5 

LA  ST 

l 2C  8 

I 3,3372 

01115 

0 

TOEC 

0818 

REF 

23 

L AST 

120  8 

13,  3 37  3 

01517 

0 

TE  T 

08181 

1 3 ,3374 

77640 

0 

BMN 

38102 

P EF 

2 

LAST 

120  8 

13, 3375 

27224 

0 

I NTEX IT 

0819 

13,  1376 

40525 

1 

PDDL 

SR  4 

0 8 20 

RFF 

P 

1 AST 

1209 

13,3377 

02076 

1 

DT/2 

3321 

13, 34CC 

44  322 

1 

SR?R 

BDSU 

0822 

13  ,3401 

52040 

1 

BMN 

GO  TO 

0823 

P EF 

3 

1 A ST 

1 20  9 

13  ,3402 

27224 

0 

INTFX  IT 

082  4 

RFF 

4 

l AST 

1239 

13,  340  3 

53272 

1 

TI  MF  STFP 

0825 

13  ,3404 

00000 

1 

DT/2M  IN 

2 DEC 

3 8-20 

3325 

13,  34C5 

C14C0 

1 

0826 

13,  3406 

14152 

1 

DT/2MAX 

2DEC 

4000  E2R- 

0826 

13  ,3407 

09000 

1 

3828 

13, 3410 

77776 

1 

I NTSTALL 

E XI  T 

0831 

PEF 

1 

13  ,3411 

3 0106 

0 

CA 

RASFI.AG 

0833 

REF 

l 

13  ,3412 

7 3462 

0 

MASK 

INTPITAB 

0834 

13, 3413 

C COO 6 

1 

F XTEND 

'■•835 

RFF 

1 

13  ,3414 

1 3454 

0 

BZ  F 

DKTOGRAB 

3337 

REF 

1 

13,  3415 

3 3461 

1 

r.  af 

WAKEST  AL 

083  8 

RFF 

4 

LAST 

47  2 

13,  3416 

C 5 133 

0 

TC 

JOBSLEFP 

0839 

13,3417 

77776 

1 

INTWAKEO 

EX  IT 

EXCHANGE  DT  / 2 M AX  WITH  COMPUTED  MAX. 


NO  BACKWARDS  INTEGRATION 
WHEN  IN  POO 


NO  BACKWARD  INTEGRATION 

IS  4IDT)  LSITDEC  - TFT) 
NO 


IS  THIS  STALL  AREA  FREE 
YFS 


1,M>  : 


SSEMBLE  REVISION  56  OF  AGC  PRCGR. 


20RLFNA  BY  ZOROASTER 


INTEGRATION  INITIALIZATION 

REF  1 L3 » 3420 


0 840 
)04l 

0842 

0843 


REF 
REF  367 
REF  2 


? LAST  1209 


REF 

REF 

REF 


LAST  1207  11,  34  25 

LAST  I2C  7 1 3,3426 

L AST  888  13,  3427 


50  120  1 
3 0052  0 

c 5 ' C 54  0 


FI  XLOC 
UP  RET 
TRASE2 


PEF  106  LAST  1206 


PFF 

REF 

REF 


LAST  1210 
LAST  1210 
LAST  1210 


3 1C  54  1 
5G  120  1 
54  C 52  1 


CA  TBASE2 

INDEX  FIXLOC 
TS  QPRET 


0854 
0 8 5 5 
3856 
0857 


13,3435 

. 

13,  3437 
13  ,3440 


3 4745  0 
7 0106  1 
C OOCfc  1 

1 3457  0 


CAF  RF IN  TBIT 

MASK  R AS  FL  AG 
EXTEND 

BZF  GDBAC 


0863 

3864 

0865 

0866 
3868 
0860 

0870 

0871 
0 872 
3074 
0e74  5 
0875 
3076 
0877 
3888 
0892 


REF 

REF 

PEF 

RFF 

RFF 

RFF 


2 LAST  1209 

5 LAST  473 
22  LAST  1102 

3 LAST  1210 

2 LAST  12C9 

4 LAST  1210 

5 LAST  1210 


RFF  3?  LAST  1204 


13,3441 
13,  3442 
13  ,3443 
13,  3444 
13,  3445 
13,3446 
1 3,  3447 
13  ,3450 
13  ,345  1 
13,  3452 
13  ,3453 
13,  3454 
13, 3455 
13  ,3456 
13,  3457 
13  ,3460 
13,1461 
13,  3462 


3 3461  1 
C C004  0 

0 5137  1 
1C  064  1 

1 3441  1 
00051  0 

4 3462  0 
7 0 106  1 
54  106  1 
C 0003  1 

1 3457  0 

2 4736  1 
C 0004  0 
26  106  1 
C 6C  5 1 0 

77616  0 
27411  0 
20100  1 


CCS 

TCF 

FCRTYCNE  CEC 
C S 
MASK 


TS 
RELINT 
TCF 

OKTnSRAB  CAT 

INHINT 

ADS 

GOB  AC  TC 

RVQ 

WAKESTAL  CAOR 
INTBITAB  OCT 


WAKESTAL 

JOBWAKE 
LQCCTR 
I NTWAKE  I 
4 1 

I NTB I TAB 
RASFL  AG 
RASFL  AG 
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IS  THIS  INTSTALLED  ROUTINE  TD  BE 
PEST  ARTED 

NO 

YES,  DONT  RESTART  WITH  SOMEONE  ELSES  0 


DONT  INTWAKE  IF  WE  C A ME  HERF  VIA  RESTART 


RELEASE  STALL  AREA 
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L INTEGRATION  INITIALIZATION  USER'S  PAGE  NO.  17  E3  S3 

P 9395  AVETOMIO 

R0896  THIS  ROUTINE  PERFORMS  THE  TRANSITION  FROM  A THRUSTING  PHASE  TO  THE  COAST 
UI097  PHASE  BY  INITIALIZING  T-ll  S VEHICLES  PERMANENT  STATE  VECTOR  WITH  THE 
R0B98  VALUES  LEFT  BY  THE  AVERAGEG  ROUTINE  IN  RN , VN , P I P TI  ME  • 

R 0899  BEFORE  THIS  IS  DONE  THE  W-MATP1X,  IF  ITS  VALID  (ORWFLAG  OR  R ENDWFLG  IS 
R99D  SET)  IS  INTEGRATED  FORWARD  TO  PIPTIME  WITH  THE  PRE-THPUST  STATE  VECTOR. 

R 0901  IN  ADDITION,  THE  CTFER  VFHICLE  IS  INTEGRATED  (PERMANENT)  TO  PIPTIME. 

10902  FINALLY  TRKMKC  NT  IS  ZEROED 


0903  REF  A LAST  1 199  13,  2000 

0904  13,3463 


SE  TLO:  I N TI  NI  T 
BANK 


3905  REF 
0006 

0007  REF 
3933  REF 

0909  REF 

0910 

0911  REF 

0912  REF 


4 LAST 

5 L A ST 
11  L AST 

1 

1 

2 LAST 


1199  TO  1211: 

13,3463 
1149  13,3464 

834  13,  3465 

13  ,3466 
13,3467 
13,  3670 
1211  13  ,3471 


47?  469* 

43020  1 
02767  0 
02716  0 
27532  0 
77614  1 
01711  1 
27532  0 


COUNT*  t S/I  NT  I N 
AVETOMID  STO  3 ON 

EGRESS 

P.ENDWFLG 

INT/W 

BOM 

ORB  WF  LAG 
INT/W 


W- MATRIX  VALID 

W-MATR  I X VAL  I D 


,G  0 I NTEGRATE  IT 

,G0  INTEGRATE  IT 


0914 

0915 
3916 
0917 
9918 
092  3 
0924 


REF  23  LAST  964 
REF  34  LAST  1210 

RFF  25  l AST  1206 
REF  9 LAST  1200 
RFF  53  LAST  12?6 
RFF  11  l A ST  120  3 


13.3473 

17.3474 
13,  ?475 
13  ,3476 
13,3477 

13. 3500 

13.3501 


45145  0 
01234  0 
27416  1 
45014  0 
01474  1 
26643  1 
24041  0 
27133  0 


OTHERS 


D LOAD  CALL  GET  SET  FOR  OTHER  VFHICIE  INTEGRATION 

PIPTIME  DESIRED  TI  MF 

I NT ST  ALL 
SET  CALL 

VINTFLAG  CM 

SETIFLGS  SETS  UP  NONE  W-MAT.  PERMANENT  INTEG. 

STCALL  TDEC  1 

INTEGRV 


3926 
092  6 
0927 
3928 
0929 
69  30 

0931 

0932 
393? 
r 93  4 


RFF  35  l AST  1211 
REF  6 LAST  ] 147 

REF  17  I AST  964 


0934 

3936 

0937 

0938 

0939 


RFF  12  LAST  1207 
RFF  19  LAST  1 2C  ft 
REF  24  LAST  1211 
RFF  24  LAST  1209 
RFF  Q l AST  856 


13,  3602  45174  1 

13.3503  00002  6 

13.3504  27410  1 

13.3505  77014  1 

13  ,3506  04304  l 

13,3507  27511  1 

13,35  10  O'  '00  1 

13  ,351  1 53775  1 

1 3,  3512  C1220  0 

13,  3513  57176  0 

13,3614  01503  0 

13,  3515  1 c 5 25  0 

13  ,3516  01234  0 

13,3517  25517  0 

13,  3520  01226  0 


A X T , 2 CALL  NOW  MOVE  PROPERLY  SCALE  RN,  UN  AS  WELL  AS 

2 PIPTTMF  TO  INTEGRATION  ERASABLES. 

INTST ALL 
BON  A XT  *2 

MOONTHI S 
+2 
0 

VLOAO  VSR* 

RN 
0,  2 

STORE  PREC.T 
STOOL  RCV 

P IPTIME 
STCVL  TET 
VN 


GAP: 
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I I NTEGRATI CN  INITIALIZATION 


0942 

0993 

0944 

0945 


0946 

0947 

0948 


REF 

REF 

PFF 


PEF 


3 LAST  705 
1 

11  LAST  746 

2 LAST  1148 


l 

13,3523  27705  0 

1 3,  3524  66234  1 

1 3,  3525  26746  0 

13,3526  03463  0 

13,  3527  CCCCO  1 

13.3530  7765G  1 

13.3531  47224  0 


0951  REF  36 

0952 

0953  REF  18 

0954  REF  3 

0955 

0956  REF  9 

0957  RFF  26 

0964  RFF  54 

0965  REF  12 

0966 

0967  RFF  1 


LAST  121  1 
LAST  1211 


LAST  1200 
LAST  1211 
LAST  1211 
LAST  1211 


3,  3532 
3,3533 
3,  3534 

3.3535 

3.3536 
?,  3537 
1 ,3540 
3 ,3541 
3,  354  2 
J ,3543 
3,  3544 
3,  3545 
3,3546 


45145  0 
01234  0 
27410  1 
43014  0 
01476  0 
04476  0 
430  14  0 
01475  0 
G 1 6 74  0 
34041  0 
27133  0 
7765 0 l 
2 74  72  0 
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VSR*  CALL 

0,2 

MINI  RECT  FINISH  SETTING  UP  STATE  VECTOR 

RTR  SSP 

MOVATHIS  PUT  TEMP  STATE  VECTOR  I NT  C PERMANENT 

TRKMKCNT 

0 

GOTO 

FAZAB5 


OLOAD  CALL 

PIPTIME  INTEGRATE  W THRU  BURN 

I NTST  ALL 
SET  SET 

D I MO  FLAG  DO  W-MATRIX 

AVEMIOSW  SO  WONT  CLOBBER  RN, V N,  P IPT  IM E 

SET  CLEAR 

D60R9FLG  9X0  FOR  LM 

VINTFLAG  LM 

ST  CAL  L T DEC  1 

I NTEGRV 

GOTO 

OTHERS  NOW  GO  DO  THE  OTHER  VEHICLE 


.121  PAGE  1213 


E3  S3 


30968  M I 0 TO  A V 1 

RD959  THIS  ROUTINE  I NT  E GR  AT  GS  (PRECISION)  TO  THE  TIME  SPECIFIED  IN  TOECl. 

R 0970  IF,  AT  THE  END  OF  AN  INTEGRATION  TIME  STFP,  CURRENT  TIME  PLUS  A DELTA 

RC971  TIME  (SEE  T IME  OF.  1 T BASED  CN  THE  COMPLTATUON  TIME  FOR  ONE  TIME  STEP) 

R0972  IS  GREATER  THAN  THE  DESIREC  TIME,  ALARM  1703  IS  SET  AND  THE  INTEGRATION 
1 0973  I S DONE  TO  THE  CURRENT  TIME. 

R3974  RETURN  IS  IN  BASIC  TO  THE  RETLRN  ADDRESS  PLUS  ONE. 

R 0 9 7 5 IF  THF  INTEGRATION  IS  FINISHFC  TO  THE  DESIRED  TIME,  RETURN  IS  IN  BASIC 

R C 976  TO  THF  RETURN  ADDRESS 


R0977  IN  EITHER  CASE  , BEFORE  RETURNING,  THE  EXTRAPOLATED  STA  TF  VECTOR  IS  TRAN 
1 0978  FEPRED  FROM  R.VATT  TO  R , V N1  - P I PT  I ME1  IS  SET  TO  THE  FINISHING  INTEGRA- 

RD979  T ION  TIME  AND  MPAC  IS  SET  TO  THE  DELTA  TIME 

R 0980  TAT  MINUS  CUR1ENT  TIME. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT  • 21,1970  SKIPPER 
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10981  MIDT0AV2 

K) 982  THIS  ROUTINE  INTEGRATES  THIS  VEHICLES  STATE  VECTOR  TO  THE  CURRENT  TIME. 
1-983  MO  INPUTS  APF  PEOUIRFD  OF  THF  CALLER.  RETURN  IS  IN  BASIC  TO  THE  RETURN 
R3984  AOORESS  WITH  I HE  ABOVE  TRANSFERS  TO  R , VN1-PI  ° TI  ME1 -AND  MPAC  DCNE 


0985  REF 

0986 

) 9 97  REF 

0988  REF 

0989  RFF 


2 LAST  1213 


E7,  1744 
1?.  ,3547 
13, 3550 
13  ,3551 
13,3552 


43020  1 
03144  0 
04634  1 
27c66  l 


FRA  NX  = IRETUPN1 
MIDT0AV2  STQ  CL  R GO 

I RETURNl 
m I01FLAG 
ENT  MI  D2 


INTEGRATE  TO  PRESENT  TIME  PLUS  TIMEDELT 


0990 

0991  REF  3 

3992  REF  2 

0993 

0994  RFF  33 

0995  RFF  1 

C 996 

f 997  REF  55 

0998  RFF  1 

0999 

1 ODD  REF  1 


LAST  1213 
LAST  1213 

LAST  1199 

LAST  1212 


1 3,  355  3 43020  1 

13,3554  03744  0 

13,  3555  C4474  1 

13.3556  43234  0 

13.3557  21555  1 

13,  3560  27670  0 

13  ,3561  51021  0 

13,3562  00041  1 

13,  3563  27  572  1 

13,3564  77624  1 

13,  3565  27656  1 


MIDT3AV1  STO 


RTB 


BDSU 


CALL 


SET  INTEGRATE  TO  TDECl 

I RFTURNl 
MI  DlFLAG 

DAD  INITIAL  CHECK,  IS  TDECl  IN  THE  FUTURE 

LOADT  IME 

T I MEDELT 

BPL 

TOECl 

ENTMIOl  Y5S 

NOTIME  NO,  SET  ALARM,  SWITCH  TO  M IDTOAV  2 


10C.1 

100? 

n?3 

1004 


REF  34  LAST  1213 
REF  2 I. AST  1213 
REF  56  LAST  1213 


13.3566 

13.3567 
13, 3870 

13  ,3571 


43234  0 
21555  1 
27670  0 
00041  1 


ENTMID2  RTR 


STORE 


DAO 

LOADT  IME 
TI  MEDELT 
TDEC  1 


1005 

1005  RFF  37  LAST  1212 
1007 


77624  1 ENTMID1  CALL 

27410  1 INTSTALL 


13,3574  45014  0 


CLEAR  CALL 
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INTEGRATION  INITIALIZATION 


1008  REF 

1009  RFF 
1313 

111  R£F 
1012  RFF 
1313 

1014  REF 

1015 

1 1 1 6 REF 
1 17  REF 

1018  REF 

1019  REF 

1020  REF 
1321  REF 

1022  REF 
10  221 

1322?  RFF 
1223  RFF 

1023 


1 9 LAST  1212 


19  LAST  123  6 


13  LAST  1212 

2 LAST  1214 
33  LAST  96  7 
o LAST  8R1 
23  LAST  046 
9 LAST  869 

15  LAST  772 
10  LAST  854 

16  L AST  878 
13  LAST  752 


13,  3S75 
13,3574 
13,  3577 
13, 3600 
13  ,3601 
13,  36C? 
13  ,3603 
13  ,3  604 
13,  360  5 
13  ,3606 
1 ?,  36C7 
13,  36  10 
13  ,3611 
13, 3612 
13  ,3613 
13  ,3  614 
13,  76  is 
13  ,36  16 
13,^617 


0 16  76  1 
26066  0 
4 3 0 1 ^ 0 
01673  1 
04475  0 
77624  1 
27133  0 
77214  n 
04675  1 

ooboi 

27543  C 
00007  0 
17551  0 
C0C15  0 
03557  0 
66134  1 
C 27  7 7 1 
■ >776 
77776  1 


31  MOF  LAG 
T HISV INT 
CLEAR  SFT 

I NTYPF  LG 
MIOAVFLG 

CALL 

INTEGRV 
CLEAR  VLOAD 

MIIJA  VF  LG 
R ATT 

STCVL  PN1 
VATT 

STOOL  V N 1 
TAT 

STORE  P IP  T I ME  1 
S X A, 2 SX  A,  1 
R TX2 
RTX  1 

EXIT 


1024 
I"  25 
1326 
1 '27 

ID  28 


RFF  31 
RFF  765 
REF  15 


I AST  98  3 
LAST  1 2(  8 
LAST  1048 


13,3620 
13  ,3621 
13,3  22 
13  ,3623 
13  ,3624 


C 0004  0 
C 3006  1 
4 0055  1 
20  155  1 
0 7271  1 


INHINT 

EXTEND 

DCS  TI  RE2 

DAS  MP  AC 

TC  TPAGREE 


102  9 
1C  3' 
1331 
1032 


1033 
17  34 
1035 
10  36 
1 C3  7 
1 '38 
1339 
1 040 


RFF 

REF 

REF 

REF 

REF 


RFF 

REF 


1 5 

3 

1 

35 

3 

6 

2 

? 


LAST  1213 

L AST  1213 

LAST  1213 
LAST  1 2p  9 

I AST  1206 
LAST  1213 


13,  3625 
13,7626 
13, 3627 
1 3,3630 
13,3631 
12,  36  32 
13  ,3633 
13,3634 
1 3,  36  35 
13  ,3636 
1 3,  3637 
13, 3640 


2 1744  1 
G 4640  1 
47C14  1 
04754  0 
27646  0 
21555  1 
44215  1 
27  6 70  0 
01115  0 
45044  0 
27256  0 
27656  1 


C KMI02 


C A 
TC 
R OF 


DAD 


BPL 


I RE  TURN1 
RANKJUMP 
RT  B 

MI  0 IF  LAC, 
M I 02 
LC1ADTI  RE 
BDSU 
T IMEDELT 
TOEC 
CALL 

TESTLCCP 
NOTI  ME 


10  4 1 

1342  REF  36 

1*  43  REF  4 

1044  REF  7 

1045  REF  3 


13,3641 
LAST  1214  1 3,  3642 

LAST  1214  13,3643 

LAST  1214  13  ,3644 

LAST  1214  13,  3645 


43234  0 T I RE  I NC 
21555  1 
27670  0 
35115  1 
27256  0 


RT  B DAC 

LOAOTI  ME 
T IMEOEL  T 
STCALL  TOEC 

TE  STLOOP 


1 46 
1 0 47 
104  8 
1049 
1053 


REF  8 
RFF  25 

RFF  1 


13,3646  45345  l 

LAST  1 214  13,  364  7 Cl  115  0 

LAST  1211  13,3650  C1517  0 

13,3651  45246  0 

13,  3652  27666  1 


MIC2 


DLO  AD  DSU 
TOEC 
TE  T 

AGS  DSU 

3CSECS 
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USER'S  PAGE  NO.  ?C  E7  S3 

NC  W-KATR1 X 

LET  INTEG.  KNOW  THF  CALL  IS  FOR  MIDTOAV. 
GO  INTEGRATE 


Y ES 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 
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L INTEGRATION  INITIALIZATION 


USER'  S PAGE  NC.  21 


E7  S3 


1051 
13  52 
1053 


REF  A LAST  1209 
REF  1 


13,3653  520A0  1 

13,  3 6 5 A 27  156  0 

13  ,3655  276AI  1 


BMN 


GOTO 
A-PCHK 
T IME  INC 


1059 

1363 


RFF  u LAST  121a 
RFF  5 LAST  121A 
REF  A2  LAST  97A 

REF  223  LAST  1210 


13,3660 
13,  3661 

13.3662 

13.3663 

13,  3 6 6 A 


25' 7AA  1 
C 5600  1 
0170  3 1 
0 6051  0 
77616  0 


NC T I ME 


CLEAR 

INCR 
TC 
OCT 
TC 
R VO 


M I 0 1 F LAG 
IRETURN1 
ALARM 
1703 
I NT  PR  FT 


TOO  LATE 

SFT  ERROR  EXIT  (CAILOC  +21 
INSUFFICIENT  TIME  FOR  INTEGRATION  -- 
TIG  WI  LL  BE  SLI  PPED... 


1061 

1061 

1062 

106? 

1363 

1 06A  REF 
1065 

1366  REF 
1<  67  P F r 


13  ,3665 
l 3,3666 
1 3,  3667 
13,3670 
27,  3 3A2 

1 0 A, 2000 

OA  ,3137 

A LAST  976  E3,  17C6 

1 


OCOOO  1 
CCCC3  1 
00000  1 
03720  1 


3CSECS  2DEC  3 

TIMEDELT  2QEC  2000 

BANK  27 
SETLOC  UPDATE  2 

BANK 

EBANK=  TFPHEM 
COUNT  * IS/ IN  TIN 


107? 


REF  22A  LAST  1215 


OA , 3 1 37  C 6051  0 I NTWAKEU  TC 


INTPRET 


1C73 

1 07A  RFF 
1375  REF 


LAST 


219 


0 A, 3 1 AO 
OA ,31 A1 
OA,  31A2 


63135  0 
01502  1 
112C6  0 


SLOAD  RZF  IS  THIS  A CSM/LEM  STATE  VECTOR  UPDATE 

J PS  V FL  AG  REQUEST.  IF  NOT  GO  TO  INTWAKUP. 

I NTWAKUP 


1 076 

1 77  REF 

1078  RFF 

1079  REF 

1080 

1081  REF 

1082 

1393  REF 
1 08A 

10  R 5 REF 

1386  RFF 
1087 
1 0 88 

1089  REF 

1090  RFF 
1391 

1092 

1093  RFF 
1 39  A 

A 1095 

1096  RFF 

1097  REF 


13  LAST  1211 
20  LAST  1211 
9 LAST  1207 

c LAST  12c  7 

5 LAST  1215 


21  LAST  120  7 
1 

22  LAST  1215 

6 LAST  1215 
1 


1 A , 3 1 AA 
OA,  3 1 A5 
OA ,3 1A6 
0 A , 3 1 4 7 
OA,  3 150 
0 A , 3 l 51 
'"A,  3152 
OA, 3153 
OA  , 3 l 56 
OA,  3 155 
3A  ,3156 
C A , ? 1 c 7 
OA,  3 160 
0 A, 3 161 
OA,  3162 
0 A , 3 1 6 3 
CA , 3 1 6 A 
OA,  3 165 

CA  ,3  1 66 
OA,  3 1 6 7 


25635  C 
01511  0 
7762A  1 
277  t 
51535  0 
C 1 502  1 
53025  C 
11215  1 
11162  1 
A3  1 7 A 1 
CCCCO  1 
00223  1 
11165  0 
A317A  1 
00002  0 
00063  1 
50135  0 

015C2  1 

11175  1 


INTWAKFM 


I N TWA  KEC 


VLOAD 

RRECT 

STOVL  RCV 

VR  ECT 

CALL 

RECTIFY  + 1 3D 
SLOAD  ABS 

U PS VF  LAG 
DSU  3 Z E 

UPMNSVCD 
INTWAKEM 
AXT , 2 CLRGO 
OEC  0 

MOONF  LAG 
I NTWAKEC 
AXT, 2 SET 
DEC  2 

MOONFLAG 
SLOAD  BMN 

UPSVFLAG 
I NTWAKLM 


MOVE  RRECTI6)  AND  VRECT  (6  ) INTO 

RC  VI  6 ) AMO  VC  V(  61  RESPECTIVELY. 

NOW  30  TO  'RECTIFY  +13D'  TO 
STORE  VRECT  INTO  VCV  AND  ZERO  OUT 
TDE  LTAV  (6)  , TNUV(6  ) ,TC(2  ) AND  X KEPI  2 ) 
COMPARE  ABSOLUTE  VALUE  OF  'UPSVFLAG' 

TO  "JPDATE  MOON  STATE  VECTOR  CODE' 

TO  DETERMINE  WHETHER  THE  STATE  VECTOR  TO 
BE  UPDATED  IS  IN  THE  EARTH  OR  LUNAR 

SPHERE  OF  INFLUENCE 

EARTH  SPHERE  OF  I NFLUFNCE. 


LUNAR  SPHERE  OF  INFLUENCE- 


COMMON  CODING  AFTER  X2  INITIAL  IZED  AND 
MOONF  LAG  SFTIOR  CLEARED). 

IS  THIS  A REOUEST  FOR  A LFM  DP  C SM 
STATE  VECTOR  UPDATE 
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IMFGRATION  I NT  TI  AL  I ZAT  I CM 

C A » 3 l 

REF  A LAST  1236  DA,  31 

REF  2 LAST  1211 


1 


34,31  72 

04,  3173 

16  ,3  1 7A 


52014  0 
C 1 67  1 0 
11177  0 


CLEAR  GOTO 

ORBWFLAG 

IMTWAKEX 


RCF 


LAST  1206 


INTWAKLP  CALL 


113  6 


REF  12  LAS!  1211 


Hi  61 
11062 
1136  3 
11068 
110  7 

11  OR 
1 109 
111) 
1111 


RFF  2A1  LAST  1164 


REF 
RFF 
R FF 


I.AS1  218 
LAST  1215 
I A ST  1216 


REF  225  LAST  1215 
P FF  3 LAST  70  5 


06,3201 

CA,  32C3 
E3 , 1 5C  1 
OA  ,3?CA 

. 

) 4 , 32C  6 
OA,  3 2C7 
04,3210 


3 4755  1 
C 0006  1 
Cl  C 77  0 


0 6 C 5 1 0 
77624  1 
2 741  7 0 
77776  1 


CAF  ZERO 

EXT  END 

WRITE  CHAN77 
E8ANK=  UPSVFLAG 
TS  IJPSVFLAG 


TC 

INTWAKIJP  CALL 
EXIT 


I NTPRE  T 
1 NTWAKEO 


1 112 

1113 

1114 


RCF  1C7  LAST  1210 
REF  1 


04,3211 
04,  1212 
04  ,3213 


0 5364  0 
04026  1 
0 3716  1 


PHASCHNC 
04  026 
UPOUT  +1 


1117 

1118 

1119 

1120 
1 121 
1122 
1123 


REF  226  LAST  1216 


3 LAST  1216 


04  ,3216 
04, 3217 
04,3220 
04  ,3221 
04,3222 
-*4  ,3223 
04  ,3224 


77420  1 
C2711  1 
: 5364  0 

04  02  2 0 
0 6CC1  0 
77650  1 
027  11  1 


FX  IT 

GRP2SVC 

PHASCHNG 

04022 

INTPRET 

GRP2SV0 
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UPOAT  E LM  STATE  VECTOR 


ZERO  CHANNEI  77 


PEL  EASE  :GRAF:  OF  OPR  IT  INTEG 
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L 

ORBITAL 

INTEOP  AT  ICN 

USER'  S PAGE  NO.  1 

ED 

S3 

* 00'  1 

DELETE 

0002 

13,  3671 

BANK 

1 3 

0003 

REF 

1 

1 1,  2000 

se  tlo: 

ORBI TA  L 

0004 

11  ,2366 

BANK 

DDD5 

REF 

1 

COUNT* 

TS  /ORBI  T 

R 0006 

DELFT  E 

0007 

11  ,2366 

40354 

1 

KEPPREP  LX  A , 2 

S ETPO 

3308 

REF 

10 

L AST 

120  8 

11,  2 36  7 

C2030 

0 

PBCDY 

000  9 

11  ,2370 

00001 

0 

0 

00  10 

1 1 ,2371 

75643 

1 

DLOAD* 

SORT 

SORT  ( MU  ) ( + 18  OR  +15)  OD 

PL  2D 

3011 

PEF 

4 

l AST 

120  8 

1 1,  2372 

c 177C 

0 

MUEAR  TH  ,2 

0012 

11  ,2373 

53515 

0 

POVL 

JN  IT 

PL  8 D 

33  13 

REF 

21 

LAST 

1215 

11,  2374 

Cl  535 

0 

RCV 

00  n 

1 1,  2 375 

60325 

0 

POOL 

NORM 

NORM  R ( +29  OR  +27  - N1  1 2D 

PL  4 D 

00  is 

11  ,2376 

00045 

0 

360 

33  16 

REF 

65 

L AST 

120  4 

11,  2 7 7 7 

C0C47 

1 

xi 

0017 

11  ,2400 

777  15 

1 

POVL 

00  18 

11  ,240 l 

6 5241 

C 

DOT 

PDDL 

F*S  ORT  (MU  ) ( +7  OR+5)  4D 

PL 

6D 

001  0 

REF 

15 

L AST 

123  3 

1 1,  240  2 

01543 

1 

v:  v 

0020 

REF 

11 

LAST 

1207 

11  ,2403 

02074 

0 

TAU  . 

( + 28) 

3321 

11, 2 4C4 

60225 

1 

DSU 

NORM 

0022 

RFF 

7 

LAST 

1237 

11,2405 

01551 

1 

TC 

0023 

REF 

19 

LAST 

1146 

I , • 

00051 

0 

S 1 

33  24 

11,  24C7 

77742 

0 

SRI 

0025 

1 1 ,2410 

6527  1 

0 

ODV 

PDDL 

0026 

11  ,241 1 

0000  3 

1 

2 D 

0027 

1 1,  24  12 

4 1 4C  5 

0 

DMP 

P USH 

F S ( + 6 +N1-N21  6 C 

PL 

8 D 

0028 

1 1 ,2413 

00005 

l 

4D 

332° 

1 1,  24  14 

6 5316 

0 

DSQ 

PDDL 

(FS  >S  Q ( +1  2 +2  ( N 1-N  2 ) ) 80 

PL 

10D 

00?0 

11,2415 

0000  5 

1 

49 

00  31 

1 1 ,241  6 

64  71  6 

0 

DSO 

POOL* 

SS0/MUI-20R  + 2 ( N 1-  N 2 1 1 10D 

PL  12D 

3332 

REF 

5 

L AST 

1217 

11, 24  17 

5 1770 

0 

MUEARTH  ,2 

0033 

11  ,2420 

40442 

1 

SR  3 
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12 
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o 
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V LOAD 
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REF 
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L AST 

1205 

11,  2512 

24CG7 

0 
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REF 
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1 

STOVL 
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REF 

20 

LA  ST 
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1 
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1 
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0 
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1 
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1 
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MOONFLAG 

+5 

VSR  VAD 
9D 
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STORE  RPSV 
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RPSV 
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GOTO 
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ALPHAM 
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POOL  DAD  (1/6  ) +2  ( (0  + 1 )/6  ) TO  PD+16D 
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DSU  STADR 
STCALL  TET 

KEPPREP 

CALL 

RECTIFY 

SET  GO 

RPQFL  AG 
TE  S TL  OOP 


0280 

281 

0282 


1 1 ,3  J06 

11,3 
I . 


7777/  1 INT-ABRT  EX  IT 
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RETURN  IF  NO  OVERFLOW 
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PD283 
R f 285 
RO  287 
0209 

02  90 
5291 
o2o? 

293 
3299 
0Z95 
0 296 
r.  207 
0290 
3299 

03  CO 
0301 
333? 
0303 
0 30  9 
03  05 
0306 
3337 
0308 
0 309 
3313 

0311 

0312 

0313 
0319 
3315 

0316 

0317 
3318 
0319 
0 320 

0321 

0322 
3323 
0329 
0325 
3326 

0327 

0328 

0329 

0330 
3331 

0332 

0333 
3 339 
0335 


ORBITAL  INTEGRATION 

TFT  0 PL  AT  F RCUTINF  COMPUTES  THE  ACCFLERATICN  OUE  TC  CBLAT6NESS.  IT  USES 
POSITION  VECTOR  FOUND  I N ALPFAV  ANC  THE  DISTANCE  TO  THE  CENTER  IN  AIPHAM 
DISTURBING  ACCELERATIONS  IN  TV  AND  THE  PRC  FE  R OIFEC  STAGE  IS  CALLED  VIA 


P FF 
RFF 
PEF 


RFF 

REF 

REF 

PEF 


LAST  1222 
I AST  1223 


I A ST  1129 


’2  I A ST  1229 


2 LAST  1229 


l AST  1229 


1 1,  300  7 
11  ,301 
11, 3311 

1 1,  3012 

11,3013 
11,  30  19 

I l ,30  15 

II  ,3016 

I 1,  30  17 

II  ,3020 
11,  3021 

11. 3022 

11.3023 
11,  3029 
L 1 ,3025 
11  ,3026 

I 1,  3027 

II  ,3030 
11,  3031 

I 1 , 30  32 

II  ,3033 

I 1,  303A 

II  ,3035 
11  ,3  026 

I 1,  30  37 

II  ,3090 
11,  30  91 
1 1,  3092 

- 

1 1,  3099 

I 1 ,3095 

II  ,3096 
1 1,  30  9 7 

I 1 ,3050 
11, 3051 
11,30  52 

II  ,3053 
11, 3059 
11  ,3C  5 5 
11  ,3056 

I 1,  3057 

II  ,3060 
11,  3G6  1 

I 1,  30  62 

’ l , 63 

11,'  69 

II  ,3065 


713? 
02030  0 
f 2C  70  1 
99601  0 

000C1  0 
50C22  0 
93u99  0 
23295  C 
00393  0 
23259  0 
65375  0 

02C32  1 

01517  0 

95125  0 

25756  1 
51699  0 
290  17  1 
29001  0 
95CC6  C 
23262  0 
77715  1 
29CC5  1 
95006  0 
23262  C 
77772  0 
29091  1 
77772  C 
19C25  0 
00023  0 
65275  1 
25770  0 
00023  0 
57*16  1 
25772  1 
91925  1 
25769  0 
91275  1 
CCC23  0 
11230  0 
65372  1 
OCOOl  0 
99275  1 
11236  0 
57206  1 
00023  0 
65275  1 
11232  1 


USER  'S  0AGE  NCI.  8 EOS 

THE  UNIT  CF  THE  VFHICLE 

THIS  IS  ADDEO  TO  THE  SUM  OF  THE 
X 1 . 


PUSH 

V SL  1 
STOVL 
VSL1 

STOOL 

DMPR 


D LOAD 
PBOOY 
A L PH  A M 
3 SU* 

ROE  ,2 
RtlF 

N BRANCH 
MOONF  LAG 
CDSPHIF 
POOL 
ALPHAV 
T FT 
CALL 
3/5 

R-TO-RP 
UR  P V 
ZUN  IT 
CALL 
MA TRI  X 

XUNI  T 

CALL 

MATRIX 


UZ 

COS  PH  1/  2 

PDDL 

3/32 

COS  PH  1/2 

DMPR 

15/  16 

PUSH 

3/69 

DMP 

C OSPHI  /2 
7/12 
PDDL 
00 

BDSU 

2/3 

DMPR 

COSPHI/  2 

PDDL 

9/16 


GET  UPPV 


RP/R  B-l  IN  PLANETARY  COORDINATES 

ZUNIT  B— 1 IN  PLANETARY  COOROl  AT  OOD 

UZ  B-2  IN  INEPT  COORD  AT  OOD 

XUNI T B-l  IN  PLANETARY  COORD.  AT  06 D 


UX 


H- I IN  INERT.  COORD 


UZ  B-l  IN  INERTI  AL  COORD 
• Z -CDMPONE NT  OF  URPV 

P 8-6  , 3 COS  PH  1/69 


AT  320 

AT  20  D 
AT  OOD 


, ( 1 / 2 ) ( 15C0SPHI  -3) 


R-7  , ( 1 /3  ) ( 7C  OSPHI  P —9  P ) 
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L 

OR PI TAL 

I NTEGRATI  ON 

USER'S  PAGE  NO.  9 EG  S3 

: 336 

1 1, 3066 

OOCO  3 1 

20 

. 

0337 

11  ,3067 

44275  1 

DMPR 

BDSU 

P B-  10, ( 1/4)  (9CCSPHI  P -5  P ) 

0338 

REF 

1 

11 ,3C70 

11234  1 

5/128 

5 4 3 

033q 

11,  3(  7 1 

56203  0 

OMP* 

DD  V 

• 

03  AO 

REF 

l 

11  ,3072 

51764  C 

J4REQ/J3,  2 

B-  , ( J RP  /J  R ) P 

0341 

REF 

9 

LAST 

1224 

11,  30  7 3 

C2C70  1 

A L PH  AM 

4 3 5 

0342 

1 1,  30  74 

56615  0 

DAD 

DMPR* 

0 343 

11  ,3C75 

00005  1 

4 0 

2 2' 

0344 

REF 

1 

■ 

5 1 76C  1 

2 J3  PE  / j2  ,2  . 

B ,(2j  RP  / J2  R )P  +(2J  RP/J2R)P 

0345 

11  ,3077 

43271  1 

DCV 

OAO 

4 5 3 4 

0 346 

REF 

1C 

LA  SI 

1225 

11 ,3 100 

02070  1 

ALPHAM 

2 • 2 ' • 

0347 

11,  1101 

00003  1 

20 

(R/R)  (J  RP  P /R  + ?J  RP  P / + J P ) 

0349 

11,  3102 

77761  1 

vx  sc 

4 5 3 4 2 2 3 

0349 

REF 

28 

LAST 

1224 

11  , 3 103 

02032  1 

ALPHAV 

4 2 ' 

0350 

RFF 

! 

11,3104 

14033  1 

STOOL 

TV  EC 

B-6,(SUM((J  /R  IP  ( CO  SP  HI  > ) LR  » 

'■351 

11,  3 10  5 

70403  1 

DMP* 

SR  1 

1=2  I 1+1 

0357 

RFF 

2 

LAST 

1225 

. 

51764  0 

J4RE0/ J3,  2 

• 

0353 

11,  3 1C7 

43271  1 

DD  V 

DAD 

(J  Rp/J  R >P 

0354 

REF 

1 1 

LAST 

1225 

11,  3 110 

0 2C  70  1 

A LPHAM 

4 3 4 

0355 

11,3111 

50473  1 

OM  PR* 

S R 3 

2 2'  ' 

3356 

REF 

2 

L AST 

1225 

11,  3112 

5 1 76C  1 

2 J3RE/J2  ,2 

(2  J RP  / J R )P  + (2j  RP/J  R )P 

0 357 

11  ,3113 

43271  1 

DDV 

DAO 

4 2 4 3 2 3 

0358 

RFF 

12 

LA  ST 

1225 

11,3114 

02C70  l 

ALPHAM 

3359 

11,  3115 

76561  1 

VXSC 

VSL 1 

4 ■ 

0360 

REF 

2 

LAST 

1224 

1 1 ,31  16 

00025  0 

JZ 

B-6  SUKPICnSPHI  n uz 

0361 

11,3117 

17645  0 

RVSU 

1=2  I 

0362 

REF 

2 

L AST 

1225 

1 1 , 3 1 20 

00033  1 

TVEC 

1-2  • 

0363 

REF 

3 

LAST 

1225 

1 1,3121 

14C33  l 

STOOL 

TV  EC 

SUM!  (MU  J (RP/P)  HP  (COSPHI)UR  - 

336* 

REF 

13 

L AST 

1225 

11,  3122 

C2C70  1 

ALPHAM 

1=2  1 1 + 2 

0 365 

11  ,3123 

63501  0 

NORM 

OSO 

P (CCSPHI  ) U Z 1 ) B-6  AT  200 

0 366 

REF 

66 

LA  ST 

1217 

11  ,3124 

00047  1 

XI 

I 

3367 

11,  3125 

60316  0 

DSQ 

NORM 

036R 

REF 

27 

LAST 

1223 

11  ,3126 

00051  0 

S 1 

4 

0369 

11,  3127 

546C6  0 

PUSH 

8D0V* 

NORMAL  I ZED  R AT  GOD 

03  7 0 

REF 

1 

11,  3130 

51754  0 

J2RE0S0,  2 

0371 

11  ,M31 

40161  0 

VXSC 

BOV 

337? 

REF 

4 

L AST 

1225 

11,  3132 

CGC33  1 

TVFC 

0373 

11  ,H33 

23134  0 

+ 1 

R + 3 8 FOR  EARTH  , R+42  FOR  MOON 

0 374 

1 1 ,3134 

56070  0 

X AD,  1 

X AD,  1 

3375 

PFF 

6 7 

L AS! 

1225 

11,  3155 

00046  C 

Xl 

0376 

RFF 

68 

LAST 

1225 

1 1 ,3136 

00046  0 

X 1 

0 377 

11,3137 

5367C  0 

XAD.l 

VSL* 

0378 

REF 

28 

LAST 

1225 

1 1,  3 140 

00050  1 

SI 

0370 

11,3141 

20153  1 

0 -220,  1 

3383 

11,  3142 

4CC55  0 

VAD 

BOV 

0381 

REF 

5 

LAST 

1223 

11,  3143 

C2C62  l 

FV 

0382 

REF 

1 

l 1 ,3144 

22761  1 

GOBAQUF 

3393 

REF 

6 

L AST 

1225 

11,  3H5 

16062  1 

STOOL 

F V 

B+1 6 FOR  EARTH  , P + 20  FOR  MOON 

0386 

REF 

2 

LAST 

1224 

1 1 ,3 146 

00017  1 

IIPPV 

R—  1 X-COMPONENT  CF  POSITION  IN 

0385 

11,3147 

41414  C 

RGF 

PUSH 

PLANFTORY  COORO.  AT  020 
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0386 

RTF 

27 

LAST 

1224 

ll  .3150 

00343 

0 

MOONFLAG 

0387 

REF 

2 

LA  ST 

1224 

11.3151 

23245 

0 

NB RANCH 

2 

C3  8fi 

1 1,  3182 

65216 

0 

0 so 

POOL 

R-2  X 

AT  0 40 

0389 

REF 

3 

LAST 

1225 

11,3153 

C0021 

1 

U R PV  + 2 

B-l  Y-COMPONENT 

0390 

11,  3154 

45316 

1 

oso 

OSU 

f>3  9l 

11,  3185 

74205 

0 

OMP 

VXSC 

039? 

RFF 

3 

LAST 

120  3 

11  ,3156 

27733 

0 

5/8 

2 2 - 

0393 

REF 

29 

L AST 

1225 

11, 3157 

C2C32 

1 

AL  PHAV 

B-6  5 (Y  -X  )UP  2 2 - 

0394 

11  ,3160 

65332 

0 

V SL  3 

POOL 

B-3  51 Y -X  ) UR 

AT  02  0 

->395 

11  ,3161 

53361 

0 

vx  sc 

VAC 

03  96 

11,  3162 

F C04  1 

1 

320 

2 2-2 

< 397 

11  ,3  163 

47315 

0 

POVL 

V XV 

I5IY.-X  ) UR /R  ) +(?X/R)UX 

AT  020 

0398 

11,  3164 

CCC41 

1 

320 

R-1  UX 

03  99 

REF 

3 

LAST 

1225 

11,  3165 

00025 

0 

UZ 

B-2  -UY  =(  UX  * UZ) 

0400 

11  ,3166 

74372 

1 

VS  Ll 

VXSC 

8-3  -(2Y/RIUY 

0401 

REF 

4 

L AST 

1226 

11,  3 167 

cor  21 

1 

UR  PV  +2 

2 2 - 2 

- 

0402 

11  ,3170 

41455 

0 

V AO 

PUSH 

B-3  (5IX  -Y  ) LR/R  )+(?X/K)UX  -( 

0 49  3 

11,3171 

77745 

1 

OLCAD 

0404 

RFF 

L AST 

1224 

11,  3172 

00023 

0 

3 0SPHI  /2 

2 Y/RJUY 

AT  020 

0408 

11  ,3173 

41516 

0 

nso 

PUSH 

B-2  ( Z. COMPONENT) 

AT  080 

0 406 

11,  3174 

652C5 

0 

0 MP. 

POOL 

2 

04'. 7 

REF 

4 

LAST 

1226 

11,  31  78 

27733 

0 

8/8 

8-5  5COSPHI/2 

AT  080 

Q4(  8 

1 1 , 3 ] 76 

433C? 

1 

SR2 

OAC 

0409 

1 1,  3177 

cccii 

1 

080 

0410 

' . 

41221 

0 

BDSU 

DMP 

2 

0411 

REF 

6 

l A ST 

1109 

11  ,3201 

11015 

0 

01  /3  2 

B-5  ( 1 - 7C0SPHI  ) 

0412 

REF 

5 

L AST 

1226 

1 1,  3202 

000 17 

1 

URP  V 

0413 

1 1 ,3203 

74205 

0 

DMP 

VXSC 

0414 

REF 

5 

LAST 

122  6 

11,  3 2C4 

27733 

0 

5/8 

94 1 8 

RFF 

Or 

L AST 

1226 

11,  320  5 

0203? 

1 

A LPHA V 

2 - 

0416 

l l ,3206 

6527? 

0 

VSL5 

POOL 

B-5  ( 5X/R  )(  1-7C0SPHI  ) UR 

AT  080 

0417 

1 1,  3207 

74  225 

1 

OSU 

VXSC 

041  8 

REF 

7 

LAST 

1226 

1 1 ,3210 

110  15 

Q 

D 1/32 

4 1 9 

11  ,32  ll 

OOC  41 

1 

3?  0 

0420 

11,32  12 

53372 

1 

V SL  1 

VAO 

2 - 

- 

0421 

1 1 ,321  3 

41325 

0 

POOL 

OMP 

B-5  < 8X/R)  ( 1-7C0SPH1  ) UR 

+ (5C0SPHI 

0 422 

REF 

6 

LAST 

1226 

11,  3214 

00017 

1 

UR  PV 

- 

0423 

REF 

7 

LAST 

1226 

11,3215 

00023 

0 

UR  PV  +-4 

-1  ) UX 

AT  08  0 

0424 

1 1 ,3216 

74205 

0 

DMP 

VXSC 

0428 

REF 

6 

L AST 

1226 

1 1 , 17 

27733 

0 

5/8 

B-5  5X  Y 

0426 

REF 

4 

LAST 

1226 

1 1 ,32  29 

00025 

0 

UZ 

M M 

: 427 

11  ,3221 

53352 

0 

VSL2 

VAC 

2 - 

2 

0428 

11, 3222 

60325 

0 

POOL 

NORM 

B-5  (5X/R)  (1  — 7C0SPHI  )UR 

+ I5C0SPHI 

0429 

REF 

14 

LAST 

122  5 

ll  ,3223 

02C70 

1 

ALPHAM 

2 - 

0433 

RFF 

28 

LAST 

1173 

1 1 , 3 224 

C0C50 

l 

X2 

-1  >UX  +I10XZ/R  >uz 

AT  G8D 

0431 

11,3225 

67206 

l 

PUSH 

SLOAO 

0 432 

REF 

1 

1 1 ,3226 

01351 

1 

E32C31PM 

0433 

74  27  1 

0 

00  V 

VXSC 

0434 

ll  ,3230 

63257 

1 

V SL  * 

POVL 

0438 

1 1,3231 

576C1 

1 

0 -3,2 
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0436 

11  ,3232 

67206 

1 

PUSH 

SLOAD 

0437 

REF 

1 

11  ,3233 

Cl  350 

0 

E3  J22R2  M 

043  8 

1 1,  3234 

5 33fc  1 

0 

vxs: 

VAD 

0439 

1 1 ,3235 

70257 

0 

VSL  * 

V/SC 

3443 

11,  3236 

20146 

0 

0 -2  7 D , 1 

0441 

11,  1237 

40055 

0 

VAO 

30V 

0442 

REF 

7 

LA  ST 

1225 

11  ,3240 

02062 

1 

FV 

3 44  3 

REF 

2 

1 AST 

1225 

11,  324  1 

2276  1 

1 

GOBAQUE 

0444 

REF 

8 

LAST 

1?27 

11  ,3242 

02062 

1 

STORE 

FV 

0445 

1 1 ,3  24  3 

777  54 

1 

LX  A, 2 

0446 

REF 

14 

L AST 

1224 

1 1,  3244 

02C30 

0 

PBODY 

0447 

1 1 ,3245 

72135 

0 

NBRANCH 

SLOAO 

L XA,  1 

3 448 

REF 

23 

LAST 

1221 

1 1,  3246 

Cl  501 

1 

DI  FECCNT 

0449 

REF 

766 

LAST 

1214 

1 1,  3247 

00154 

1 

MPAC 

04  50 

1 1 ,3250 

73205 

1 

DMP 

C GOT  0 

3451 

REF 

1 

11,  3251 

277  35 

0 

-1  /1 2 

0452 

REF 

767 

LAST 

1227 

11  ,3252 

00155 

0 

MPAC 

045? 

RFF 

1 

1 1 ,3  25  3 

23267 

0 

DIFEOT AB 

0454 

11, 3254 

77745 

1 

CO  SP  H I E 

DLOAD 

0455 

PEF 

31 

LAST 

1226 

11  ,3255 

02036 

0 

ALPHAV  +4 

3456 

REF 

6 

LAST 

122  6 

1 1, 3256 

24C23 

0 

STCVL 

COSPHI/? 

0457 

REF 

4 

LAST 

1224 

1 1,  3257 

24001 

0 

ZUNI  T 

0458 

11 ,3260 

77650 

l 

GOTO 

3459 

REF 

l 

11,  326  1 

23C42 

0 

C GMTERM 

0428 

11  ,3262 

57635 

1 

MATRIX 

VXV 

VCOMP 

0429 

REF 

3 

LAST 

1 133 

11 ,326  3 

02013 

1 

504LM 

0430 

11, 3264 

77655 

1 

VAD 

0431 

1 1 ,3265 

43505 

0 

VXM 

R VO 

343? 

REF 

8 

LAST 

1136 

11,3266 

0CC25 

0 

MMATRIX 

0433 

REF 

1 

23456 

l 

OIFFOTAB 

CADR 

3 IFF  0+0 

9 434 

REF 

1 

1 1 ,3270 

23462 

0 

C ADR 

DIFEQ+1 

?'4B9 

RFF 

1 

11,  327  1 

2 3473 

0 

CADR 

DI  FEC+2 

0436 

1 1 ,3272 

77214 

0 

T IMFST  EP 

DOF 

VLOAO 

44  37 

REF 

4 

LA  ST 

1220 

11  ,3  273 

00  342 

1 

M l CEL  AC 

043  8 

REF 

1 

1 1,  3274 

23323 

1 

PCC  TE  ST 

0439 

REF 

23 

LAST 

1220 

11  ,3275 

01535 

0 

RCV 

344  3 

1 1,  3276 

41241 

0 

DOT 

DMP 

0441 

REF 

17 

LAST 

1217 

1 1,  3277 

01543 

1 

v:  V 

044? 

PEF 

10 

LAST 

121  9 

. 

02076 

1 

DT/2 

3443 

1 1,  33C1 

7 7 640 

0 

BMN 

0444 

REF 

2 

LAST 

1227 

1 l ,3302 

23323 

1 

R EC TF  ST 

0 445 

11  ,3303 

43014 

0 

BON 

BOF 

0446 

PEF 

28 

L AST 

1226 

1 1,  3304 

00303 

1 

MOONF LAG 

0447 

RFF 

1 

11  ,3305 

23400 

1 

LUNSPH 

^448 

REF 

5 

LAST 

1223 

1 1,  3 306 

C 4 340 

1 

RPQFL  AG 

0449 

REF 

1 

1 1,  3 30  7 

23375 

i 

E A P SPH 

0450 

l 1 ,3310 

45145 

0 

DLCAC 

CALL 

3451 

REF 

32 

L AST 

1224 

11,  3311 

C 1 5 1 7 

0 

TE  T 

0452 

REF 

4 

LAST 

1220 

11  ,3312 

33660 

1 

LSPOS 

0453 

REF 

5 

1 A ST 

1221 

1 1 ,33  13 

02104 

0 

STCRF 

RPQV 
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B+1 6 OR  B+20  (J  + C ) 
22  31 


ROUTINE  TRANSLATES  FROM  PLANETARY 
TO  INERTIAL  COORDINATES 


(R.V)  X (DELTA  T) 


RPQ  V I N MPAC 
RPOV 
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454 
r 45  S 
. 4 56 
( **5  7 

3459 

0450 

0460 

0 461 
<462 

1 461 

0464 

0465 
0 466 
C 4 67 

0468 

0469 
n 470 

0471 

0472 
C 4 73 
0474 
0476 
' 4 76 
0 4 7 7 
0478 
0 479 

0490 
'481 
' 48? 
04R3 

0484 

0485 
04  86 
• 487 
0439 
0489 
0 490 

0491 

0492 

0493 
04  94 
0 49  6 

0496 

0497 

0498 

0499 

0500 

0501 
C502 
0503 


REF 

PEF 

RFF 

RFF 

PEF 

PEF 

PEF 

PEF 

PEF 


REF 

REF 

REF 

REF 

PEF 

P EF 

RFF 

REF 

REF 

RFF 

REF 

REF 

REF 

PFF 

RFF 
REF 
R EF 

RFF 
R EF 
REF 


1* 

24 

1 

1 

9 


2 

2 

3 


7 

9 

1 

10 

2 


1 

3 

24 

32 

3 

3 

2 

1 

1 


L A c T 1227 
LAST  1227 

LAST  1223 

LAST  950 
LAST  1228 

LAST  1228 


LAST  1228 
LAST  1205 

LAST  1228 

LAST  1228 

LAST  1223 

LAST  1228 

LAST  1228 
LAST  106 

LAST  1228 
LAST  1227 

LAST  1227 
LAST  1128 
LAST  1223 

LAST  1228 


11  ,3314 
11,3215 
11,  3316 
11,3317 

I 1,  3320 

II  ,-’322 

I 1,  3323 

II  ,3324 
1 1 ,3325 
11,  3326 
1 1 ,3327 
11,  .3330 
1 1,  3 33 l 
1 1 ,3332 
Hi  3333 
1 1 ,3334 
1 1 , 1 >?5 

I 1,  3 336 

II  ,3337 
1 1,  3340 
1 1,  2 341 
1 1 ,3  342 

I 1,  3343 

I I ,3344 
1 1 ,3345 

I 1,  3 346 
t l ,3347 

II  ,3350 

I 1,  3 35  1 

II  ,3352 
11,3353 
1 1,  3 354 

I 1 ,3355 
1 1,  3356 

I I ,3357 
11  ,3360 

I 1,  3 36  1 

II  ,3  362 
11,  3363 

I 1,  3364 

II  ,3365 

I 1,  3366 

II  ,3367 
11  ,3370 
1 1,  337  1 
1 1 ,3372 
1 L,  3 373 
11,  3 374 
1 1 ,3375 


77754  l 
C2C30  0 
£1445  0 
Cl  535  0 
5CC25  C 
27741  0 
23415  0 
5 1 c 7 5 1 
01521  0 
77600  1 
2 3 3 £ 1 1 
51025  l 
11226  1 
23351  1 
53615  0 
11226  1 
57605  0 
45271  1 

OCC 1 3 o 

27737  1 
7 7244  0 
23351  1 
0152  7 0 
45246  0 
11226  l 
77600  1 
23351  1 

7764!  0 
23353  C 
77624  1 
27671  1 
77775  1 
C1527  0 
25134  0 
01521  0 
01126  0 
77614  1 
00261  1 
66375  0 
C l 1 26  0 
01501  1 
00000  1 
16C32  1 
24007  0 
02100  1 
5 2o 1 4 0 
00301  0 
23675  1 
22506  1 
52175  0 


LXA.2 

INLUNCHK  3VSU 
DSU 

RFC  TEST  VLOAD 
BOV 

nsu 

OAD 

nnv 

8 PL 

ABVAL 

BOV 

HMN 

CALL  3 FC  T CALL 


PBODY 
A3  VAL 
RCV 
8 MN 

R SPHERF 
DOSW  IT  C F 
ABVAL 
TDELTAV 

CA  LI  RFC  T 

RPL 

3/4 

3ALLRECT 

SL* 

3/4 

C - 7,  2 
DSU 
1 0D 

R ECRAT  10 
VLOAD 
CALLRECT 
T NUV 

osu 

3/4 

2ALLREC  T 
I NT  GRATE 


I NTGRATE 


DIFEQO 


EARS  PH 


RECT  IFY 

VLOAD 

TNUV 

STOVL  ZV 

TOELTAV 
STORE  YV 
CLEAR 

JSW1  TCH 
VLOAD  SSP 
YV 

DIFEOCNT 

0 

STCDL  ALPIIAV 
DP  ZERO 
STORE  H 
BON  30  TO 

JSW  ITCH 
DOW.  . 
A3C0MP 
VLOAD  GOTO 
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RECTIFY  IF 


1)  FI  THE?  TOFLTAV  OP  TNUV  EQUALS  OR 

EXCEEDS  -3/4  IN  MAGNITUDE 

OR 

2)  AB  VALI  TOF  l TAV)  EQUALS  OR  LXCEEDS 
.0  I ( A8V  AL  (P  CV  ) ) 


STAPT  H AT  ZERO.  GOES  0(  DEL  T /2  IDE  L T. 
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0504 
0 50  5 
3506 
0507 
0 50  8 
05  C 9 
0510 
D 5 1 1 

0512 

0513 
>514 
0 515 
0516 
3517 
0518 
05  1 Q 
0520 
0571 
3522 
0 523 
3 5 24 
3525 
■ 526 

0527 

0528 
C529 
3533- 
(•531 
0 532 
3533 
"637 

0538 

0539 

f 54" 
3541 
0542 
0 54  3 
3544 
054  5 
(546 
05  4 7 
0548 
3 549 


0551 
356? 
0553 
3 554 


REF  6 
RFF  1 


REF  2 
RFF  3 

REF  6 
RFF  ? 
RCF  33 

REF  2 

REF  7 

REF  1 

REF  2 


PEF  3 
REF  8 

REF  25 


LAST  1227 

LAST  1228 
LAST  1227 

LAST  122? 

I A ST  127  8 
LAST  1227 

LAST  495 

LAST  1229 

LAST  1228 

LAST  117 
LAST  1228 

LAST  1228 


REF  8 LAST  1229 

PEF  14  LAST  1215 
REF  26  LAST  1229 


REF  29  LAST  1227 

PEF  18  LAST  1227 


REF  IP  LAST  1215 
REF  1 9 [AST  1229 

REF  4 LAST  1229 
PFF  15  LAST  1210 

RTF  30  LAST  1229 
PEF  2 LAST  1 2r  2 
RFF  3 LAST  1202 


11,3376 
11  ,3377 
11, 3400 
11  ,340  1 
11  ,3402 
11,  3 41'  3 

I 1 ,3404 
11,  3405 
11,  34C6 

II  ,3407 

I 1,  3 4 1) 

II  ,3411 
11  ,3412 
11,  34  13 
1 1 ,3414 
1 1,  341  5 

I 1,  3416 

II  ,341 7 
11,  3420 
1 1 ,3421 
11  ,3422 

I 1,  342  3 

II  ,3424 
1 1,  3425 

I 1,  3426 

II  ,3427 
1 l,  34  20 
1 1 ,-431 
11 ,343? 

I 1,  34  2 3 

II  ,3434 
1 1,  3435 
1 1,  3436 
11,3437 

I 1,  3440 

II  ,3441 
1 1 ,344? 
1 1,  3443 
l 1 ,3444 
1 l , 3445 
1 1,  3446 
11,3447 
1 l,  345C 

11.3451 

11 .3452 

I 1,  3453 

II  ,3454 
11  ,3455 


0 2104  0 
22316  1 
6C545  0 
00013  0 
50026  0 
27741  0 
23323  1 
71214  0 
04340  1 
23415  0 
C 1 5 1 7 0 
77624  l 
33660  l 
77676  0 
021C4  0 
77624  1 
23421  1 

77650  1 
23353  0 
45020  1 
C2111  1 
27671  1 
53775  1 
Cl  535  C 
57576  l 
53651  0 
021C4  0 
57574  0 
0150?  0 
01535  0 
57414  1 
C 034  3 0 
23437  0 
53715  1 
Clc4l  1 
57576  1 

77651  0 
7 7 1 c 7 0 
57574  0 
01511  0 
0154?  1 
67154  0 
02111  1 
00052  0 
52014  0 
C 0 3 C 3 1 
267 1 : 0 
26715  C 


LUNSPH  DLOAD 
OSU 


BOF 


CALL 

VC  LIMP 
STORE 

DO  S Vi  l TCH  CALL 
GOTO 

OR  IGCHNG  STQ 


VLPAD 


VSU 


STORE 

STORE 

BOF 


POVL 


VSU 

VSL* 


STORE 
STORE 
LX  A, 2 


BCN 


RPOV 

INLUNChK 

SR2 

10D 

BMN 

R SPHFRF 
RECTFST 
D LOAD 
RPQF  LAG 
DOS W ITCH 
TF  T 


LUNPOS 

RPOV 

OR  IGCHNG 


I NTGRATF 
CALL 
OR  I G EX 
RECTIFY 
VSL  * 

RCV 
0,2 
V S L * 

RPQV 
2,  2 
RRECT 
RC  V 
VCOMP 
MOCNFLAG 
+ l 

VS  L* 

VC  V 
0,  2 


D *2,  2 

VRECT 

VC  V 

SX  A,  2 

ORIGFX 

QPRET 

GOTO 

MOCNFLAG 

CLKMOON 

SETMOON 


( 
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P 0 5 5 5 

j 5^7 

(■518 

0519 

3560 

0561 

' 56? 

0563 

.666 

3565 

'.'566 

! 567 

3568 

0569 

0 570 

05  71 

0572 

3573 

0576 

9575 

3576 

"577 

0 578 

05  79 

0 580 

3581 

0582 

0583 

3586 
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THE  RECTIFY  SUBROUTINE  18  CAILEC  PY  THE 
ROUTINES  TO  ESTABLISH  A NEW  CCNIC. 
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NCORPORAT ION 


REF  ? LAST  67 


13,  3671 
1 3 ,2000 
13,  3671 


BANK  13 
SETLOC  ORBITAL? 

BANK 


PEE  16 
RFF  1 1 


REF  27 
REF  15 
REF  28 
RFF  IT 


RFF  20 
REF  11 
REF  21 
RC-F  11 
REF  12 
REF  11 
REF  12 
REF  1C 
REF  3 


REF  2 


I AST  1 22B 
I AST  122fl 


LAST  1229 
LAST  1229 
I AST  1230 
I AST  1228 


LAST  1229 
LAST  1229 
LAST  1 23f 
LAST  1 ?2  0 
LAST  1230 
LAST  1230 
LAST  1230 
LAST  122  3 
LAST  1218 


LAST  1217 


13  ,3o7l 
13 ,3672 
13,  3673 
13  ,3676 
13,  3675 
13, 3676 
13  ,3677 
13, 37CC 
13  ,3701 
13 ,3702 
1 3,  370  3 
13  ,3706 
13,  37C5 

I 3,  8 706 
13 ,37C7 
13,  3710 
13  ,3711 
13  ,3712 
13,  3713 
13  ,3716 
13,  3715 
11,  3656 

II  ,2000 

11,  3656 


77356  0 
02030  0 
C 1521  0 
53?  57  1 
57605  0 
01535  0 
01503  0 
25535  0 
01527  0 
53257  1 
57602  1 
01563  1 
Clcll  0 
25563  1 
26007  0 
01521  C 
15527  0 
2600  7 0 

0 1 5 5 1 1 

01  553  0 
77616  0 


RECTIFY  L X A,  2 VLOAD 
PBOOY 
TOE  L TA V 
VSL*  VAO 

0 -7  ,2 
RC  V 

STCRE  PRECT 
STCVL  RCV 
TNUV 

VSL*  VAO 

0 -6  ,2 


VCV 

MINIRECT  STCRE  VRECT 
STOVL  VCV 

7FR0V  EC 
STCRE  TOELTAV 
STOOL  TNUV 

ZEROVEC 
STORE  TC 
STORE  X K EP 
RVQ 

BANK  11 
SETLOC  ORBITAL 
BANK 
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CP81TAL  I NTECRATI ON 


USER  ' S PAGE  NC.  1 5 


p : 58 

05B9 

0590 

0591 
L'59  2 
3593 
0 594 
0595 
0595 
0597 
3598 

05  99 
0600 
0631 
0602 
0603 
060A 

0605 

0606 
0607 
060  8 
0509 
0610 
0611 
0512 
061  3 
0616 

0615 

0616 
3517 
061  B 

0619 

0620 
0621 
0522 
0623 

06  26 

0625 

0626 
0 627 
0528 
0629 
3630 

0631 

06  32 
3633 


REF  9 LAST  1227 

REF  2 LAST  116 

REF  1 

RFF  10  LAST  1231 

REF  3 LAST  1231 

REF  2 LAST  116 

REF  6 LAST  1231 

REF  5 LAST  1231 

REF  2 LAST  1231 


I AST  123  1 


REF 

REF 

REF 

RFF 


REF 

REF 

REF 
P FF 
REF 


5 LAST  1231 

6 LAST  1228 
5 LAST  123  1 

11  LAST  1231 


LAST  10  6 
I AST  1231 


REF  31  l AST  1 U6 


6 LAST  1231 


32  l AST  1231 


11 .3456 

11. 3457 

11 . 3460 

11 .3461 
11,  3462 
IL  ,3463 
1 l , 3464 

1, 

11 ,3466 

I 1,  3467 

I I , 3470 
11  ,3^71 
11, 3472 
11  ,3473 

11 .3474 

11. 3475 
11  ,3476 
11,  3477 
11,  3500 
1 1,3501 
11,  3502 

. 

11  ,3504 

I 1,  350  5 

LI  , ■ ■ 

1 1,  35C7 
11,  -3510 

II  ,351 1 
11,  3512 
11  ,3513 
11  ,3514 
11,  J 5 1 5 
11  ,3516 
11, 3517 
1 1,  3520 
ll ,3521 

I 1,  3522 

II  ,3523 
ll  ,3524 

I 1,  3525 

II  ,3526 
1 1,  35  27 

11. 3530 

11 .3531 
ll,  3532 


64575  1 
C2C62  1 
36046  0 
23636  0 
74575  0 
02062  1 
532C6  0 
02046  1 
26054  1 
53362  0 
02046  1 
36046  0 
23636  C 
57345  1 
02100  1 
11236  0 
74206  0 
C2C46  1 
53372  1 
01134  0 
53361  0 
02100  1 
01126  0 
25126  0 
02062  1 
53322  1 
02054  1 
76561  1 
77655  1 
01134  0 
01134  0 
450  14  0 
00341  1 
23567  1 
11216  1 
77354  0 
01116  0 
01134  0 
77732  1 
12467  1 
77775  1 
Cl  1 26  0 
4013?  0 
23661  1 
124C1  1 


OIFEO+O  V LOAD  VSR3 
F V 

STCALL  PHIV 

01 FEQCOM 

OIFEQ+1  VLOAD  VSRl 
FV 

PUSH  VAD 
P -4 1 V 
STCVL  PS  IV 
VSRl  V AO 
PHIV 
STCALL  PHIV 

DI FEQCOM 

OIFEQ  + 2 CLOAO  DM  PR 
H 

0P2/3 

PUSH  VXSC 
PHI  V 

VSL  1 VAD 
ZV 

VXSC  VAD 


VAD 
p SI  V 
VS  L 1 

ZV 

ZV 

CALL 

JSW  ITCH 

ENDS  TATE 

3RP2PC 

VLOAD 

COLREG 

ZV 


VSL3 

STORE 

VLOAD 


AOJUST  W-POS  IT  ION  FOR  ST')PAO,E 


30V 

W M AT  EN  C 
W ,2 


22  LAST  1231 


GRP2PC 
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L 


ORBITAL  INT  FOR  AT  ION 


0638 
'.639 
36A3 
0641 
064  2 
3543 

0644 

0645 
3646 
'647 

0649 


R FF 
P E c 


REF 

PEF 
P EF 

R FF 

R FF 


1 

23 


LAST 


l AST 

LAST 

LAST 


11,3535  66354 

L23 1 11,3536  01116 

1223  1 1,  3537  0C052 

11,3540  00000 

1 1,  354  1 671  14 

11,3542  00006 

1231  11,3543  01125 

I 1,  3544  45104 

II  ,3545  23632 

1231  11,3546  11216 

1 1,  3547  67  154 

1232  11,3550  01125 

1232  1L,  3551  01116 


L X A , 2 


SSP 

COLPEG 

S2 


I NCR, 2 SX  A ,2 
6 

YV 

TI  X, 2 CALL 

3EL0ADSV 
GRP2  PC 

L XA  , 2 SXA  ,2 
YV 

COLREG 


0649 

0650  PEE 
3551 

0652  REF 

0653  REF 

0654 

0655  REF 
3656 

0657  RFF 

0658 

3659 

0660  RFF 

0661  REF 


24 


33 
9 

34 

6 


11,3552  77624  1 NEXTCDL  CALL 


LAST  1232  1 1 ,3553  1121  6 1 

11, 3554  76754  0 LXA,2 

I AST  1232  1 1 ,3555  C 1 1 16  0 

LAST  1231  1 1 ,3556  75376  1 

11,  3 6 5 7 77722  0 - V SR  3 

LAST  1232  11,3560  01126  C STORE 

I 1,  3561  76173  0 VLCAO* 

LAST  1232  1 1,  3562  75310  1 

11,3563  00000  1 

11,  3564  77722  0 VSR3 

LAST  1231  1 1 ,3565  35134  1 ST  CAL  L 

II  ,3566  23362  1 


0RP2PC 
VLCAO* 
COLREG 
W ,2 


YV 

AXT  ,1 
W + 540 , 2 

0 


zv 

DIFEQO 


0662 

0663 

3664 

0665 

0666 
366  7 
0668 

0669 

0670 

0671 
3672 
06  73 
r 674 
3675 

0676 

0677 

0678 

0679 
3 S 9 3 
0681 
0 68  2 
3683 


REF  3 
REF  7 
REF  12 
REF  10 
REF  13 

REF  3 
RFF  1 
REF  22 
REF  5 

REF  109 

REF  72 
REF  4 
REF  227 

PEF  16 
REF  1 


REF  27 


LAST  1227 
LAST  1212 
LAST  1230 
LAST  1232 
l AST  1230 

LAST  1214 

LAST  1221 
LAST  1223 

LA  ST  1216 

LAST  1206 
LAST  1206 
LAST  1216 

LAST  1229 


1212 


1 1,  3567 

I 1 ,357f 
11,  3571 

11. 3572 

11 .3573 
11,  3574 

II  ,3575 
11  ,3576 
11,  3577 
1 1 ,3600 
11,  36C  l 
11, 3602 
1 1 , 3 6C3 
11, 3604 
11  ,3605 
1 1 ,3606 
1 1,  3607 
■ I . 

1 1,  3611 

11. 3612 

11.3613 

11. 3614 


77200  0 
22761  l 
01134  0 
25527  0 
01  126  0 
01521  0 
43014  0 
04715  0 
27627  1 
01756  1 
27256  0 
77776  1 
C 5364  0 
04022  0 
0 5515  0 
00236  0 
C 60  El  0 
77731  1 
CCC53  1 
23617  0 
52014  0 
C 1 7 1 4 1 


ENDSTATE  BOV 


STOVL 

STORE 

BON 


EXIT 
TC 
OC  T 
TC 

ADRES 

TC 

SSP 


80N 


VLCAO 
CO  BAOUE 
ZV 

TNUV 

YV 

TOELTAV 

BUFF 

M IDAVFLG 
:kmio2 
D IMO  FLAG 
TESTLCCP 

PHASCHNG 
04  022 
UP  FLAG 
RE  INT  F LG 
I N TPRE T 

OPRET 

AMOVFD 

GOTO 

VI  NTFLAG 


L AST 
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ADJUST  W-POSITICN  FOR  INTEGRATION 


ACJUST  W-VELOCITY  FOR  INTEGRATION 


CHECK  FOR  MI  02  BEFORE  GOING  TO  TIMEINC 


PHASE  1 

PHASE  CHANGE  HAS  OCCURRED  BETWEEN 
I NT  ST  ALL  AND  INTWAKE 


GAP:  ASSEMBLE  REVISION  5to  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 
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0684  REF  5 

3585  REF  4 

0686 

C 687  REF  4 

0688  REF  6 

0689 
3690 

0691  REF  10 

0692  REF  1 

3693  REF  7 

0694 

0696 

0696  REF  2 


I A ST 
L AST 


LAST 
L AST 


L AST 


1212 

1233 

123  3 


11,  36  16 
11  ,3617 
11  ,3  6 20 

I 1,  362  1 

II  ,3622 
1 1,  3623 

I 1,  3624 

II  ,3625 
11, 3626 
1 1 ,3627 
1 1 ,3630 
11,  3fc3  1 


26733  1 
65214  f 
00061  C 
C 1 11 7 1 
77741  0 
66214  0 
01755  l 
23552  1 
G 1 1 1 7 1 
77717  0 
77650  1 
23552  1 


ATOPCSM 

ATOPLEM 

AMOVED  SET  SSP 

JSWITCH 
COLREG 
DEC  -30 

BOFF  SSP 

3 60R9FLG 
NEXT  COL 
COLREG 
DEC  -48 

GOTO 

NE  XTCOL 


f'697 

3638 

0699 

0700 
373  1 
0702 
0 70  3 
07r  A 
07nt; 
3736 
0707 
0 70  8 
3739 
0710 

711 
0712 
071  3 

3716 
0716 
0716 

3717 
0718 
3 719 


REF  9 
RFF  67 
REF  1 

REF  1 1 
REF  6 


REF  25 
REF  7 

REF  12 


REF  P 
REF  9 

REF  11 
REF  33 

REF  5 
REF  2 
REF  1 


LAST  1214 
LAST  1213 


LAST  1227 
LAST  123  1 


l AST  1228 
LAST  1233 

LAST  123  1 

LAST  1232 
I AST  123  3 

LAST  1232 
LAST  1 22r 

LAST  1233 
LAST  122  8 


11,  3 6 3 3 

11.3634 

11 .3635 
11,  3fc36 

1 1 ,3637 
11, ?64C 
1 1,  364  1 
11,3642 
1 l,  3643 
11,3644 
1 1 ,3645 

11. 3646 

11 .3647 
1 1 ,3650 
1 1,  365  1 
1 1 ,3652 
1 1,  36  5 3 

I 1,  3654 

II  ,3655 
1 1,  3656 

I l ,3657 

II  ,3660 


77745  1 
C 1 1 1 5 0 
34041  0 
2714C  1 
4-3  34  5 1 
02076  1 
C2100  1 
66110  1 
77763  n 
Cl  500  0 
02103  1 
74561  0 
0 206  2 1 
74255  0 
01134  0 
C 2 IlO  1 
77655  1 
Cl  126  0 
02032  1 
52014  0 
CC301  0 
23675  1 
22466  0 


RFLOADSV  DLOAD 

TDEC 

STCALL  TOEC  1 

I NT  EGRV2 

DIFEQCOM  DLOAD  DAD 
DT/2 
H 

INCR  , 1 S XA  , 1 
DEC  -12 

01  FEQCNT 
STORE  H 
VXSC  VSR1 
F V 

V A 0 VXSC 

ZV 
H 

VAD 


Y V 

STORE  ALPHAV 
BON  GOTO 

JSWl TCH 
DOW.  . 
FBR3 


07  2r 
• 721 
372? 
0723 
0 7 24 
3725 
( 726 
727 
072  8 
0729 


RFF  23 
REF  3 

RFF  13 

REF  9 
P EF  43 

RCF  228 


LAST  1232 
LAST  1216 

LAST  1216 

LAST  1208 
LAST  1215 

LAST  1232 


11,  366  1 
11  ,3662 
1 1,  366  3 
11, 3664 

I 1 ,3665 
ll, 3666 

II  ,3667 
11,3670 
11,  3671 
11  ,3672 


4 30  14  0 
01676  1 
01671  0 
776  14  1 
02676  1 
7 7 4 1 4 0 
C 1472  1 
C 56.0  0 1 
00421  0 
0 6051  0 


WM  A TFN  0 


CLFAR 


CLFAR 
SE  T 

TC 

OC  T 
TC 


C LFAR 
D IMOFLAG 
ORBWFLAG 

RENCW  FL  C 
E XI  T 
ST  A TEFL  G 
ALARM 
421 

INTPRFT 


9:12  OCT  . 21 


1970 


SK  IP  PEP- 


121  PAGE  1233 


USFR'  S PAGE  NG.  17 


E3  S3 


RELOAD  TEMPORARY  STATE  VECTOR 
FROM  PERMANENT  IN  CAS  F OF 

BY  STARTING  AT  INTEGRV2. 
INCREMENT  H AND  D I FEQCNT  . 


OIFEQCNT  SET  FOR  NEXT  ENTRY. 


DONT  INTEGRATE  W THIS  TIME 
INV  AL  I DAT  E W 


PICK  UP  STA  Tr  VECTCR  UPDATE 


A P : 


ASSEMBLE  REVISION  56  OF 


AGC  PRC  GRAM  7ERL  INA  BY  ZOROASTER 


9:  1?  O:  T.  21,1970 


SKIPPER  .121 


PAGE  123 


ORBITAL  INTEGRATION 


'i730 

731 


9FF  6 LAST  1232 


II, ^673  7765C  1 
11  ,367 A 27256  0 


GO  TO 

TEST!  OOP 


USER'S  PAGF  NO.  18 


FO  S3 


FINISH  INTEGRATING  STATE  VECTOR 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


Pr'73? 
R0734 
3 0736 


f RBI  TAL  I NTECP AT  I CN 

ORBITAL  ROUTINE  FOR 
VECTOR  CF  THE  MATRIX 
USE  S A TABLE  OF  VEHI 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1235 

USER'S  PAGE  NO.  19  EG  S3 

E XTRAPOLATI  C N CF  THE  W MATRIX.  IT  COMPUTES  THE  SECOND  DERIVATIVE  OF  EACH  COLUMN  POSITION 
AND  CALLS  THF  NYSTROM  INTEGRATION  ROUTINES  TO  SOLVETHE  DIFFERENTIAL  ECUAT  ICNS  . THE  PROGRAM 
CLE  PGS I TICK  VECTORS  COMPUT  EO  DURING  THE  INTEGRATION  OF  THE  VEHICLES  POSITION  AND  VELOCITY. 


: 739 
0739 

0 74!' 

REF 

REF 

17 

7 

LAST 

LAST 

1230 
122  3 

11,  3675 

I 1 ,3676 

II  ,3677 

7C754  0 DOk.. 
02030  0 

51 770  0 

LXA  ,2 

DLCAD* 

PBOD  Y 

MLJ  EART  H,  2 

3741 

REF 

4 

LAST 

1222 

1 1,  3700 

36C72  1 

STCALL 

BE  TAM 

0742 

REF 

1 

11  ,3701 

23723  0 

DOW.  . 1 

0743 

REF 

13 

LAST 

1233 

11,3702 

02C62  1 

STCRE 

F V 

0744 

1 1,  370  3 

62014  0 

BOF 

I NCR  ,1 

0745 

REF 

5 

LAST 

1227 

1 1 ,3704 

00342  1 

Ml  DFL  AG 

3746 

REF 

3 

LAST 

122  e 

1 L,  3705 

23245  0 

NB  RANCH 

074  7 

11 ,3706 

77771  0 

DEC 

-6 

0748 

1 1 ,3707 

70744  1 

LX  C , 2 

DLOAD* 

3 749 

REF 

18 

1 AST 

1235 

11,  3710 

02C30  0 

PBODY 

0750 

REF 

8 

LAST 

1235 

1 1 ,371  1 

51772  l 

MUEARTH  -2,2 

r 7*1 

REF 

5 

LAST 

1235 

11  ,3712 

36072  l 

STCALL 

BETAM 

075  2 

REF 

: 

LAST 

1235 

11,  37  13 

23723  0 

DO  W.  . 1 

0753 

11  ,3714 

50414  0 

BON 

V S R 6 

3 754 

REF 

31 

LAST 

1229 

1 1,  3715 

CC303  1 

MOCNF  LAG 

, 75* 

11,  3716 

2 37  17  1 

♦ 1 

0756 

11  ,371 7 

77655  1 

V AD 

3757 

REF 

14 

L AST 

1235 

11,  3720 

C 2C6  2 1 

FV 

0758 

REF 

15 

LAST 

1235 

1 I ,3721 

36062  0 

STCALL 

FV 

0759 

RFF 

4 

1 A ST 

1235 

11  ,3722 

23245  0 

NBRANCH 

0760 

1 1,  3723 

60575  C DOW..  1 

VLOAD 

VSR  4 

0761 

REF 

34 

LAST 

1233 

11  ,3724 

02032  1 

ALPHAV 

3 7*2 

1 1,  3725 

53513  0 

POVL* 

UNI  T 

0763 

RFF 

8 

LAST 

1221 

1 1 , 3 72  6 

02123  0 

VEC  TAB , 1 

- 764 

11  ,3727 

46315  1 

PDVL 

V PROJ 

3 765 

REF 

35 

L AST 

1235 

11, 3730 

02C32  1 

ALPHAV 

0766 

11  ,3731 

52361  1 

VXSC 

VSU 

0767 

REF 

5 

LA  ST 

1228 

11  ,3732 

11226  1 

3/4 

768 

1 1,  3733 

60325  0 

PDDL 

NORM 

‘76H 

11  ,3734 

00045  0 

360 

3773 

REF 

37 

LAST 

1232 

11, 3735 

C0C52  0 

S2 

0771 

0772 
? 77  3 

>774 
0 775 
077* 
0777 
3779 
r 770 

0780 

7781 

0782 

0783 
078 A 


RFF  3p 
REF  39 


LAST  1235 
LAST  1235 


REF  40  LAST  12  35 


I 1,  3736 

II  ,3737 

I 1,  3740 

I I ,^741 
11  ,37*2 

I 1,  374  3 

I I ,3  744 
1 1,  3745 
1 1,  3746 
1 I ,37*7 
11,  3750 
1 1 ,3751 
1 ! ,3752 
11,  3753 


63*06  0 
77605  1 
t 5 3C  1 0 
00043  0 
020  72  0 
56  3*2  1 
77761  1 
57154  0 
00051  0 
00051  0 
57074  0 
00051  0 
00042  1 
* 3457  0 


PUSH 

OMP 

NORM 


SR  1 
VXSC 
LXA  ,2 


DSQ 

PDDL 
34D 
BETAM 
DD  V 

X AD  ,2 


XAD  ,2  X AO ,2 
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785 
f 787 
0780 


r RRI  TAL  iNTFGPATf CN 


1 1 , 3754 

12,  2000 
12  ,3755 


0 -8  0,2 

SE  Tin;  ORB  I TALI 
BANK 


USER'S  PAGE  NC.  2 0 EO  S3 

ft******************************* 


3789  12,3755 

0789  12,375ft 

0790  17,3757 

3793  12, 3760 

0791  12  ,376  1 

0791  12  ,3762 

079?  12,  376  3 

792  12  ,37 6ft 

3793  12,3765 

793  12,3766 

079/,  P.EF  2 LAST  1190  12,3  765 

1795  REF  3 LAST  1236  12,  3765 

079ft  12  ,3767 

0796  12,3  770 

3797  12,  3771 

0797  12,3772 

07982  05,  3776 

- 7983  RFF  1 Oft, 2000 

0798ft  Oft,  322 5 

37986  08,  3225 

07986  Oft  ,3226 

0799  Oft, 3227 

07Q9  Oft, 3230 

0800  Oft, 3231 

3833  Oft, 3232 

0801  04,  3233 

0801  Oft  ,3?3ft 

383  2 REF  13  LAST  1230  12.  20C6 

0803  Oft  ,3235 

0803  Oft, 3 236 

080ft  REF  3 LAST  1231  Oft,  3235 

0805  Oft, 3237 

3935  13,  3716 

0807  REF  3 LAST  1230  13,2000 

0808  13,3716 

R3839  IT  IS  VITAL  THAT  THE  FOLLOWING 

0810  13  ,3716 

0811  13,3717 

0812  13,  3720 

0813  13  ,3721 

381ft  1 2,  3722 

08 1 5 13,  3723 

0 816  1 3 , 3 72ft 

381  7 13,  3725 

0818  13  ,3726 


Cft631  1 
23 1 ft6  C 
14000  1 

coooo  1 

0 23  14  0 
31463  1 
01400  1 

00000  1 
10000  0 
00000  1 


THREE/8  2 DEC 


030C0  1 
00000  1 
36000  1 
00000  1 


3CCC0  1 
COOOO  1 
22525  0 
12525  0 
22000  1 
OOCOO  1 
Cl  200  1 
00000  1 

25252  0 

25253  1 


CGU ART  ER  EQUALS  OP  1/4 
PDS1/4  FOUALS  DPI  /4 
3/  32  2DEC  3 B-5 


BANK 
SE  TLfC 
BANK 


OPRI  TA  L3 


3/4 

7/12 


2/:- 

0CT27 


CONSTANTS  NOT  BE 
77764  1 
77775  1 
77766  0 
77771  0 
77775  1 
77775  1 
00000  1 
77763  0 
77766  0 


20 EC  3.0  R -2 

2 DEC  .5833333333 


EQUAL  S DP  2/3 
OCT  27 
BANK  13 
SETLOC  ORBI TAL  2 
RANK 

SH  UFT  LED 


OEC 

DEC 

DEC 

DCC 

DEC 

DEC 

OEC 

DEC 

DEC 


- 11 

-2 
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9:12  OCT.  21  ,1970  SKIPPER 
USER  'S  PAGE  NO.  21 


.121  PAGE  1237 
EO  S3 


0821 
0822 
0822 
3823 
082  3 

0824 
33  24 

0825 

0825 

0826 
0826 
0827 
f 827 
0 828 
0329 

0830 

0831 

0832 

0833 

0834 

0836 

0R36  REF 

0837 

0838 


13,  3727 
13  ,3730 
13  ,3731 
13, 3732 
13  ,3733 
I?,  3734 

13. 3735 

13.3736 

13. 3737 
1 3 ,3740 
13  ,374  1 
13,  3742 
13  ,3743 
13,  3744 
13,3  745 

0000 
00C6 
0014 
0016 
00  24 
0032 
0040 
0016 

8 LAST  1226  0022 

0024 

0032 


77771  C 
24000  1 
OOOOC  1 
74631  0 
63145  1 
00243  1 
327C3  1 
03654  0 
21000  1 
0 3654  0 
2 1 CO  0 1 
C4627  0 
25200  L 


OEC  -4 

AS  CAL  E DEC  -7 

OEC  -6 

5/6  2DEC  5 8-3 

-1  /12  20EC  -.1 

RECRATIO  2 DEC  .0  1 

RSPHERE  20EC  64373.76  F3  8-29 

RDM  2DEC  16093.44  E3  B-27 

RDE  2 DEC  90467.20  F3  8-29 

PATT  EQUALS  OD 

VATT  EQUALS  60 

TAT  EQUAL  S 120 

RATT1  EQUALS  14 D 

VATTl  EQUALS  2 0D 

MU  IP)  EQUALS  26 D 

TO  EC  1 EQUALS  32  D 

UR  P V EQUALS  14D 

CrSPHI/P  EQUALS  JRPV  +4 
UZ  EQUALS  2 OD 

TV  EC  EQUALS  26D 


SAP  : 

L 

' 001 

0002 

3353 

0004 

•033*5 

POC'  7 

ROOC9 

PCClO 

3 0012 

33  13 

0014 

00  15 

3 3 16 

0017 

00  18 

OOlP 

0020 

3321 

0022 

0023 

3-  24 

0025 

0026 

0027 

0028 

3329 

0030 

0031 

3332 

0033 

00  34 

0035 

00  36 

3337 

0038 

DC-  39 

3343 

00  41 

0042 


SSEMRLF  PE  VI  SIGN  56  OF  AGC  PROGRAM  Z ERL  INA  8Y  ZOROASTER 
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INFLIGHT  ALIGNMENT  ROUTINES 


USER'S  PAGE  NC. 


EC  S3 


REF 


325 


22  ,3745 
2 3 ,?  moo 
23,  3245 


BANK  22 
SETLOC  I NFL  I GHT 
BANK 


PCF  22  LAST  965  65  ,1642 


EBANK=  XSM 


CALCGTA  COMPUTES  THE  GYRO  TORQUE  ANGLES  RFQUIREO  TO  BRING  THE  STABLE  MEMBER  INTO  THE  DESIRED  ORIENTATION. 

THF  TNPUT  IS  THE  C FS  1 RED  STABLE  MEMBER  COORDINATES  REFEPREO  TD  PRESENT  STABLE  MEMBER  COORDINATES.  THE  THREE 
HALF-UNIT  VECTORS  ARE  STORED  AT  XDC,  Y DC , AND  7DC. 


TEE  OUTPUTS  APE  1 EE  T HREF  GYPO  TORQUING  AN  GL  F S TO  BE  APPLIED  TO  THE  Y,  Z,  AND  X GYROS  AND  ARE  STORED  DP  AT  IGC, 
MGC  , AND  CGC  RESPECTI VFI Y. 


REF 

R f F 
REF 

REF 

REF 


RFF 

REF 


23,  3245 

41  LAST  1235  23,3246 

6 LAST  965  23,3247 

23  ,3250 

16  LAST  1137  23  ,3251 

7 1 AST  1238  23,  3252 

23  ,3253 
23,  3254 

1 23,3?55 

2 LAST  1238  23  ,3256 


71220  1 
00051  0 
C2t65  0 
65325  0 
06520  0 
02671  0 
55476  1 
77656  1 
14027  1 
00027  l 


CALCGTA 


COUNT*  Sf/INFLT 
ITA  D LOAD 
S 2 
XDC 

POOL  P DDL 

H 16  ZEROS 
XDC  +4 
DCOMP  V DEF 
UNI  T 

STODL  Z PR  I ME 
ZPR  IME 


PUSHDOWN  00-03  ,160-27  D,3 4 
XDC  = { XD  l XD  2 XD  31 
Y DC  = (Y  01  YD2  YC3  ) 

ZDC  = (ZD1  ZD  2 ZD3J 


ZP  = UNITI-XD3  0 X01  1 = (ZP1  ZP2  ZP3 ) 


PFF 

RFF 

PEF 

REF 


LAST  1128 
LAST  1238 

LAST  1128 
I AST  327 


23,3257  77742  0 

23  ,3262  14023  0 

23.3261  00033  1 

23. 3262  77742  0 

23  ,3263  34021  0 

23,  3264  47316  0 


SRl 

STODL  SINTH  SIN  (I  GC)  = ZP1 

ZPR  IME  +4 

SR  1 

STCALL  COST  H COS(IGC)  = ZP  3 

ARCTRIG 


4 

8 


13 

4 


LAST  204  23,3265 

LAST  1238  33  ,3266 

23, 3267 
LAST  1238  23  ,3270 

LAST  1238  23,327  1 


16  742  1 
02667  1 
77742  0 
14023  0 
00027  1 


STOOL  IGC  Y GYRO  TORQUI  NG  ANGLE  FRACTION  OF  REV. 

X DC  +2 

SRl 

STOOL  SINTH  SINIMGC)  = XD  2 

ZPR IME 


RFF 

PEF 


23,  3272 

9 LAST  1238  73  ,3273 
5 LAST  1238  23,  3274 


652C5  0 
02671  0 
C0C33  1 


DMP 


POOL 
XDC  +4 
Z P PI  ME  +4 


PD  00  = ( ZP  1)  ( XD  3) 


RFF 


REF 

REF 


K 


12 

5 


LAST  1238 

LAST  1238 
LAST  1238 


23.3275 

23 .3276 
23,  3277 
2 3 ,3  300 
23,330  1 


77626  0 
43756  l 
47316  0 


DMP  DSU 

X DC  MPAC  = ( ZP  3 ) ( X01) 

STADP 

STCALL  CO  STH  COS(MGC)  = MPAC  - PDOO 

ARCTR  IG 


G A 0 : 


ASSEMBLE  RF  VI  SION  56  OF  AGS  PROGRAM  ZERLINA  BY  ZOROASTER 


L 


INFLIGHT  ALIGNMENT  ROUT  IVES 


0043  REF  3 

0044  REF  6 

0045 

0046  REF  4 

0047  REF  13 

004ft  REF  7 

0049 

0050  REF  4 

0051  REF  14 

0052  REF  6 


LAST  204 
LAST  1238 

LAST  523 
LAST  1238 
LAST  1239 

LAST  923 
LAST  1238 
LAST  1238 


23,  ?3C3 
2 3,  3 30  4 
23,3305 
2 3,  3306 
23  ,3307 
23  ,33  10 
23,  3311 
23  ,3312 
2 3,  3313 


26744  1 
C0C27  1 
7 764  1 1 
C2  701  0 
24C21  1 
00027  1 
77641  1 
02673  1 
34023  1 
47316  0 


STOVL  MGC 

ZPRI  ME 

DOT 


7 DC 

STOVL  COSTH 
ZPP  IMF 

DOT 


YOC 

STCALL  SINTH 

ARCTRIG 


0053 

0054 


REF  15  LAST  962  23,3314  36740  1 
RFF  42  LAST  1238  23,3315  00051  0 


STCALL  OGC 
S 2 


9:12  OCT.  21,  1970  SKIPPER  .121  PAGE  1239 
USER'S  PAGE  NC.  2 E5  S3 

Z GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 

COS ( OGC ) = ZP  . ZOC 

SIN (OGC)  = ZP  . YDC 

X GYRO  TOROUTNG  ANGLE  FRACTION  OF  REV. 
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L INFLIGHT  ALIGNMENT  ROUTINES  USFR*  S PAGE  NC.  3 E5  S3 

30055  ARCTRIG  COMPUTES  AN  ANGLE  GIVEN  THE  SINE  ANO  CCSINE  OF  THIS  ANGL  F. 

R0056  TEE  INPUTS  ARE  SIN/4  ANO  COS/4  STORED  DP  AT  SI  N TH  AND  COSTH. 

3 0057  THE  OUTPUT  IS  THE  CALCULATED  ANGLE  BETWEEN  +.5  ANO  -.5  REVOLUTIONS  AND  STORED  AT  THETA.  THE  OUTPUT  IS  ALSO 
R)369  AVAILARIE  AT  MPAT  . 


0060 

0061  PFF 
3362 

0063  RFF 

0064  REF 


15  LAST  1239 


23,3316 

■ 

23, 3120 
• 321 

23,3322 


51545  l 
00023  0 
50025  0 
07532  1 
47331  0 


AUCTRIG  DLOAO 


ARS 
S INTH 
3 MN 
0TSN45 
TRIG1 


PUSHDOWN  1 60- 2 ID 


AB  S(  SIN/4)  - SIN  I 45)  fu 
IF  (-45,  45)  OR  (139,-135) 


0066 
OP  66 

0067 

0068 

0069 

0070 


RFF  14  LAST  1239 

REF  16  LAST  1240 
REF  7 LAST  1128 


23,3323  72545  0 

23,^324  Of  02 1 1 

23,  ">325  75326  1 

23  ,3326  0P023  0 

23,3327  00025  0 

23, ?330  77616  0 


OLOAD  SL  1 

COST  E 

ACOS  SIGN 
S INTH 
STORE  THETA 
R VQ 


(45,135)  OR  (-135  ,-45) 


X = ARCCOS  ( COS  ) WITH  SIGN(SIN) 


0071 

0072 

0073 

0074 

0075 
OC  76 
0 <"'77 


REF  17  l AST  1240 

REF  8 LAST  1240 
RFF  15  LAST  1240 

REF  1 


23,3331 
23,  3332 

23.3333 

23 .3334 
2 3,  3 315 
23  ,3336 
23  ,3337 


72545 

CCC23 

77736 

14025 

G0C21 

77640 

47342 


0 

0 

0 

0 

1 

0 


TR  IG1 


DLOAD  SL1  (-45,  45)  OR  (135,-135) 

ST  NTH 

ASIN 

STOOL  THETA  X = ARCSIN(SIN)  WITH  SIGN(SIN) 

COSTH 

BMN 

TRIG2  IF  (135,-135) 


0078 

0079  REF 


23, 3340  43545  1 

LAST  124C  23  ,3341  00025  0 


DLOAD  R VO 

THETA  X = ARC  SI  N ( SI  N ) (-45,45) 


0030 

0081 

0082 

0033 

0084 

0085 

0086 


REF  6 LAST  1137 
RFF  18  LAST  1240 

REF  1C  LAST  1240 
REF  11  LAST  1240 


2 3,  3343 
23  ,3344 
23,  3345 
23  ,3346 
23  ,3347 
23,  3350 


16345  1 
06516  0 
00023  0 
77 1 2 5 0 
00025  0 
0002 5 0 
7 7 1 1 6 0 


TPIG2 


DLOAD  SIGN 

HI DPHALF 
S INTH 

DSU 

THETA 
STORE  THETA 
R VO 


X 


.5  H ITH  S I GN(S  IN) 
( + ) 


ARC  SIN(  SIN ) 

( + ) OR  (-  ) - (-  ) 
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SMNB,  NBSM,  AND  AXISROT,  WHICH  USED  TC  APPEAR  HERE,  HAVE  BEEN 
PCf  B8  CCMBINFC  IN  A POJTINE  CALLEC  AX*SR*T,  WHICH  APPEARS  AMONG  THE  POWERED 
10089  FLIGHT  SUBROUTINES. 
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RDD9? 
R 0094 
R 009ft 


00  pp 
DIO'' 
OK  1 

0 10  2 

0103 

0104 


0107 

D10B 

0109 

0110 
0111 
0112 
7 113 
0114 
0 115 


0 1 IB 
011° 
0120 
7 121 
0122 
0 123 
7124 

0125 

0126 

0127 

0128 
3129 
0130 

0 131 
3132 
0133 
0 134 
0135 


INFLIGHT  ALIGNMENT  RCTJTINES  USER'S  PAGE  NC.  5 E5  S3 

CALCGA  COMPUTES  THE  CDU  DRIVING  ANGIES  RFOUIREO  TO  BRING  THE  STABLE  MEMBER  INTO  THE  3ESIRE0  ORIENTATION. 

THE  INPUTS  ARE  1)  TFE  NAVIGATION  BASE  COORDINATES  REFERRED  TO  ANY  COORDINATE  SYSTEM.  THE  THREE  HALF-UNIT 
VECTORS  A PF  STORED  AT  XNR.YNB,  ANC  7NB.  2)  THE  DESIRED  STABLE  MEMRER  COORDINATES  REFERRED  TO  THE  SAME 
COORDINATE  SYSTEM  ARE  STORED  AT  XSM,  YSM,  AND  ZSM. 

THE  OUTPUTS  ARE  THE  THREE  CDU  CRIVINC-  ANGLES  AND  ARE  STORED  SP  AT  THF  TAD  » THE  TA  0 +1  , AND  THETAD  +2. 


REF 

REF 

RFF 


REF 

REF 

REF 

REF 


REF 
REF 
REF 
R EF 


REF 

REF 


LAST  97  2 
LAST  1239 
L AST  1240 


1 AST  97  2 
LAST  1240 
LAST  1239 
LAST  1239 


AST  1242 
1ST  1242 


I A ST  124? 
LAST  1242 
LAST  1242 
LAST  1239 


23  ,?^>51 
23,  3352 
23  ,3353 
. 

23,  3355 
23  ,3356 


23,3361 
23,  3362 
23  ,3363 
23,3364 
23,  3365 
23  ,3366 
23,  3367 
23,  3370 
23,3371 

23,  3372 
23  ,3373 
23,3374 
23,  3375 
23  ,3376 
23,  3377 
2 3,  3 ADO 
23  ,3401 
23,  3402 


23,  3405 
23  ,3406 
23,  3407 
23, 3410 

23,341  1 
23,  3412 
23  ,3413 
23,3414 
23,  34  15 


47  37  5 0 
02665  0 

0 26  5 1 1 
41456  C 

4404 1 1 
02701  0 
00051  0 
2 4 C 2 1 1 

00001  0 
77641  1 
02673  1 
34023  1 
4731  6 0 
26740  0 
00001  0 

50235  0 
02665  0 
C2651  1 
77752  1 

24C21  1 
C2651  1 
77641  1 
02665  0 
34023  1 
47316  0 
02744  1 


45246  0 
07534  1 
77644  1 
47427  0 


50375  0 
C2657  1 
G0001  C 
24021  1 
02643  1 


S ET  PO 
VLOA-D 

UN  IT 
DOT 

STGVL 

DOT 

STCALL 

STOVL 


YNB 
S IN'TH 
ARCTRIG 
OGC 


SL  1 
STOVL 

OOT 

STCALL 
STORE 
AB  S 
B PL 

V LOAD 

STOVL 


DOT 

XNR 

YSM 


SI  NTH 
ARC TR  IG 
MGC 


PUSHDOWN  00-05,  16D-21P,  34D- 37D 

XNB  = OGA  (OUTER  GIMBAL  AXIS) 

YSM  = IGA  (INNFP  GIMBAL  AXIS) 

PD  0 = UNI  T ( 0 3 A X IGA)  = MG  A 


COS(OG)  = MGA  . ZNe 


SIN  (3G ) = MGA  . YNB 


PROVISION  FOP  MC-  ANCLE  OF  9C  DEGREES 


COS(MG)  = IGA  . (MGA  X OGA) 


SIN(MG)  = IGA  . OGA 


IF  ANGLE  GREATER  THAN  6C  DEGREES 


COS  ( I G ) = ZSM  .MGA 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


I.  INFLIGHT  ALIGNMENT  ROUTINES 


138 


23,3416 

REF  21  LAST  12*2  23,  3/.17 
REF  9 LAST  1242  23  ,3420 


45441  1 
43754  0 
47316  0 


DOT  ST  ADR 
STCALL  SI  NTH 

ARCTRI  G 


3 139 
014C 
0 141 
3 1415 


REF  5 I AST  1238 
RFF  17  LAST  1242 

REF  4 LAST  491 
REF  24  LAST  9.5° 
REF  44  | A ST  1242 


23, 3421  26742  1 

2 7 ,3422  02740  0 

23,3423  77634  0 

23,  3424  2 1602  0 

23  ,3425  34322  0 

23  ,3426  00051  0 


STOVL  IGC 
D GC 

RTB 

Vi  ST 02 S 
STCALL  THETAD 
S2 


01  45 
0146 
7 1 47 
Cl  48 
014« 


KEF  44  LAST  1233 

RFF  73  LAST  1232 
REF  3 LAST  379 


23, 3427  77776  1 

23.3430  0 5600  1 

23.3431  0C4C1  l 

23,  3432  0 5515  0 

23,3433  00056  1 


GIML3CK1  EXIT 
TC 
OCT 
TC 

ADRES 


ALARM 

00401 

UPFLAG 

GLOKFAIL 


0150  RFF  229  l AST  1233 

0151 

0152  REF  1 


23,  3434 
23  ,3435 
23  ,3436 


0 6G  5 1 0 
77650  1 
47411  0 


TC  INTPRET 

GOTO 

C.ALCGA1 
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SI  N ( I G ) = XSM  . MG  A 


GIMBAL  LOCK  HAS  OCCURED 


» 
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INFLIGHT  ALIGNMENT  ROUTINES 
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I 


*'153  AXISGFN  COMPLTFS  THE  COORDINATES  CF  ONE  COORDINATE  SYSTEM  REFERRED  TO  ANOTHER  COORDINATE  SYSTEM. 

R ! 1 5 S THE  INPUTS  AR  F 1)  THE  S T AR  1 VECTOR  REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAD.  2)  THE  STAR2  VECTOR 

* 1 57  REFfPRFD  Tn  COORDINATE  SYSTEF  A STORED  AT  ST  ARAD  +6.  3)  THE  STAR!  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED 

R01S9  AT  LOCATION  (■  OF  THE  VAC  AREA.  A)  THE  STAR2  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  8 STORED  AT  LOCATION  1 2D  OF 

R n 1 6 1 THF  VAC  AREA. 


9 


THE  OUTPUT  DEFINES  COORDINATE  SYSTEM  A REFERRED  TO  COORDINATE  SYSTEM  B.  THF  THREE  HALF-UNIT  VFCTOPS  ARE  STORED 
AT  LOCATIONS  XOC,  XOC  +6,  XDC  +120,  AND  STARAD,  STARAD  +6,  STARAD  +12D. 


» 

0165 

0166 

I Ol  67 

0168 


REF  29  LAST  962 
RFF  2a  LAST  1225 
REF  30  LAST  1244 


23 ,3417 
21,  3 A AC 
23,  lAAl 
23  ,3 AA2 


66379  p 
C271A  1 
00C51  0 
02700  1 


AXISGFN  AX  T , 1 


SSP 

STARAD  +6 
SI 

STARAD  -6 


PUSHDOWN  00- 30D,34D-37D 


* DISQ 

0170 
9171 
t 0172 

0173 
1174 
► C 1 76 

0 1 76 
1177 

0178 
0 179 
t i 1 80 


REF  31 
REF  32 

RFF  33 

REF  3A 


LAST  1 2A4 
LAST  1244 

LAST  1 2a4 

LAST  1244 


21,  3 A A 1 
23  ,1 AAA 
23  ,34A5 
23,  3 4A6 
23  ,34A7 
23,  3 A 50 
21,3451 
23  ,1452 
23,  3 A 5 3 


77601  0 
CCC01  0 
A 6 7 71  0 
02723  Q 
02731  0 
77656  1 
06731  1 
77778  1 
C 27  2 3 0 


SF  TPD 

0 

AXISGEN1  VLOAD*  VXV* 

STARAD 

STARAD 

UNI  T 

STORE  STARAD 
VLOAD* 

STARAD 


06  D UA  = SI 

+ 120,1  STARAD  +00  D UB  = SI 

+ 18D,  1 

12  0 VA  = UN  IT  (S  1 X S 2 ) 

+ 180,1  STARAD  +06D  VB  = UNIT  (SI  X S 2 ) 

+ 120,1 


2 3 ,3 45 A 76 A? 3 1 
RFF  15  I AST  1 2*  4 23,3A55  C2731  0 
RFF  36  LAST  12A4  23, 3A56  06737  1 


VXV*  VSL1 

STARAD  +18  D,  1 18  D W A = UA  X VA 

STORE  STARAD  +2AD,1  STARAD  +12  D WR  = UB  X VR 


» 


R FF 


23,3457  77700  C 
23,  3460  47445  1 


T IX  , 1 


AXISGEN1 


» 


183 
7 18  4 
1185 


23,3461  66160  0 

23,346?  00006  1 

23,  346  3 C < C 3 6 1 


A XC  , 1 S XA  , 1 
6 

3 OD 


C 1 86 
0 187 
1188 
0 1 89 


23  ,3464  66  371  0 

23,3465  00022  1 

REF  3C  LAST  1244  23,  3466  00051  0 

23  ,3467  00006  1 


AXT,  1 SSP 
18  D 

si 


D 193  23,3470 

0l9l  23,  1 471 

9192  REF  45  LAST  1243  23,3472 

1193  23,  3473 


66374  1 
00006  1 
00052  0 
000C2  0 


AXT, 2 


SSP 

6 

52 

2 


° 1 94 
0 19  5 
0196 


23  ,3474 
23 , 347  5 
23, 3476 


7672r  0 AXISGFN2  XCHX,  1 VLOAO* 
00C36  1 300 

00001  0 0,1 


X 1=  —6  X 2=  +6  X 1=  — 6 X 2=  +4 


X2  = + 2 
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ALIGNMENT 

RCUT INES 

USER  • S 

PAGE  NO.  8 

E5  S3 

0 197 

Cl  98 

REF 

37 

LAST 

1244 

23,3477 
23,  3500 

62757  0 
75062  1 

VXSC* 

PDVL* 

STARAO  +6,2 

J=  (U  A)  (UB1  ) 

J= ( U A ) ( UB  2 ) 

J=  ( UA  ) ( UB  3) 

0199 

23  »3  501 

00007  0 

6,  1 

D 2 19 

2 3,  3 502 

77757  1 

VXSC* 

0201 

REF 

38 

LAST 

1245 

23,3  503 

75054  1 

STARAD  +120,2 

0 20  2 

23,3504 

30031  0 

STOVL* 

240 

K= ( VA ) ( VB 1 ) 

J = ( VA  ) ( VB  2) 

J=  ( VA)  ( VB3) 

0213 

23, 35C5 

COO  1 5 0 

1 2D  ,1 

0204 

23  ,3506 

53357  0 

VXSC* 

VAD 

0 20  5 

REF 

39 

LA  ST 

1245 

23 , 3507 

7 504  6 1 

STARAO  +180,2 

L=  (WA)  (WB1I 

J=  ( WA)  ( WB2) 

J = ( WA  ) ( WB  3 ) 

02  06 

23,  35  10 

76455  1 

VAO 

VSL 1 

0207 

23  ,351  1 

00031  0 

240 

3208 

23,  3512 

5 3 52  C 0 

XCHX  ,1 

UNI  T 

0209 

23,  3513 

00036  l 

300 

0210 

RFF 

11 

LAST 

1238 

23,3514 

06707  1 

STORE 

XDC  +18D,  1 

XDC  = L+J+K 

YOC  = L+J+K 

ZDC  = L+J+K 

0 211 

23,  3515 

nice  0 

TI  X,1 

0212 

RFF 

1 

23  ,3516 

47517  1 

A X I SGEN  3 

2IL3 

REF 

1 

fcfil 

777C4  1 
47474  0 

AXISGEN3  TI X ,2 

A XI  SGE  N2 

21  6 

23 ,3521 

77775  1 

V LOAD 

0216 

REF 

12 

LAST 

124  5 

23,  3522 

C2665  0 

XOC 

0217 

REF 

4C 

LAST 

1245 

23,3523 

26707  0 

STOVL 

STARAD 

0218 

P-EF 

5 

LA  ST 

1239 

23 ,3524 

02673  1 

Y DC 

0219 

REF 

A 1 

L AST 

1245 

23, 3525 

26715  0 

STGVL 

STARAD  +6 

0220 

RFF 

5 

LAST 

1239 

23  ,3526 

02701  0 

7 DC 

0221 

RFF 

42 

LAST 

124  5 

23,3527 

02723  0 

STORE 

STARAD  +120 

0222 

23,  3530 

77616  0 

R VO 
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C5520  0 
26075  1 
05252  1 


2 DEC  .1768 


. 1666666667 


ft 

ft 


* 

> 

> 

I 


I 


'V 
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G A * : 

L POWERED  FI  IGHT  SUBROUTINES 


fr 


0001 

3)32  REF 
0003 


1 4 ,3  7 75 

. 

23, 3525 


» 


0094  PFF  1 
3305  RFF  1 


5 142 


USER'S  PAGE  NO.  1 63  S3 

BANK  14  SAME  FBANK  AS  THE  FINOCDUO  SUB-PROGRAM 

SETLOC  POWFLITF 

BANK 


EBANIK=  OFXOEX 
COUNT*  ?f. /PCWFL 


9 

9 

9 


ROOOA  COUTPIG,  CCUTRIG1,  COUTR  I G2,  AND  CD*TR*GS  ALL  COMPUTE  THE  SI  NF  S AND 

Un  7 COSINFS  OF  THREE  2'S  C.  0 MP  LE  Mfc  M ANGLES  AND  PLACE  THE  RESJLT,  DOUBLE 

R3  ) B PRECIS  ION,  IN  THF  SAME  ORDER  AS  THE  INPUTS,  AT  SI  NCOU  AND  COSCDU.  AN 

RG09Q  ADDITIONAL  CL'TPUT  IS  T HF  l'S  TCP  PL  EM  ENT  ANGLES  AT  CDUSPOT.  THESE 

|9  1 ROUT  IN  F c GO  OUT  !7F  THEIR  WAY  TC  LFAVF  THE  MPAC  AREA  AS  THEY  FIND  IT, 

R0i.11  EXCEPT  FCR  TEE  GENERALLY  UNIMPORTANT  MPAC  +2.  THEY  DIFFER  ONLY  IN 

10012  WHEPF  THEY  GFT  THE  ANGLES,  AND  IN  METHOD  OF  CALLING. 


9 


R 3 3 1 3 
RO  14 
R0<  15 

R331S 


9 


XOC.ll 


CDUTRIG  (AND  CCIJTRIG1,  WHICH  CAN  BE  CALLED  IN  BASIC)  COMPUTE  THE 
SINES  AND  COSINES  FPOM  T HF  CURRENT  CONTFNTS  OF  T HF  COD  REGISTERS. 

THE  CONTENTS  flF  3 0 LTE  MP  , ETC.,  ARE  NCT  TOUCHED  SO  TEAT  THEY  MAY 
CONTINUE  TO  FORM  A CONSISTENT  SET  WITH  THE  LATEST  PIPA  REAPINGS. 


CDUTRIGI  IS  LIKE  CDUTRIG  EXCEPT  THAT  IT  CAN  BE  CALLED  IN  BASIC. 


> 

* 

i 

\ 


R3  3 IB 
ROf'1  o 

* 00  20 
R3321 
R 0022 
R 0 0 2 3 
R0024 
1 0025 
R3  3 26 
R 002  7 


CO*TP*GS  FINDS  CDU  VAL  UF  S IN  CDUSPOT  RATHER  THAN  IN  COUTEMF.  THIS 
AILTWS  USERS  TC  MAKE  T R ANS  FOPM  AT  IONS  USING  ARBITRARY  ANGLES,  DR  RFAL 
ANGLES  IN  AN  ORDER  OTHER  THAN  X Y Z.  A CALL  TO  THIS  ROJT  INE  IS 
NECESSARY  IN  PREPARATION  FOR  A CALL  TO  AX*SR*T  IN  EITHER  OF  ITS  TWO 
MODES  I SMN8  OP  N8SM).  SINCE  AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND 
COSINES  IN  THF  ORDER.  Y Z X THE  ANGLES  MUST  HAVE  BEEN  PLACEC  IN  CDUSPOT 
IN  THIS  ORDER.  CD*TR*GS  NEED  MOT  BE  REPEATED  WHEN  AX*SR*T  IS  CALLET 
MORE  THAN  CNCE,  PRCVIOED  THF  ANCLES  HAVE  NOT  CHANGED.  NOTE  THAT  SINCE 
IT  CLOBBERS  BUF  2 (IN  THE  SINE  AND  COSINE  ROUTINES)  CD*TR*GS  CANNOT  BE 
CALLED  USING  BANKCALL.  SORRY. 


R0G2B  CD*  TP  *G  IS  LIKE  CD*TP*GS  EXCEPT  THAT  IT  CAN  BE  CALLED  IN 

R3329  INTERPRETIVE. 


0030 

0031  REF  1 

0032  REF  230  LAST  1243 

0033 


23  ,3535 
23  ,3536 
23,  1537 
23  ,3540 


CDUTRIG  EXIT 


CDUTR  IGS 
I N TPRE T 


REF  1 

REF  231  LAST  1248 


23.3542 

23.3543 

23. 3544 


77776  1 

0 3553  1 
C 6051  0 
77616  0 


CD  * TR*G  EXIT 
TC 


RVQ 


CD  *TR  *G  S 
INTPRET 


0038 

0039 
004  0 
0041 


REF  17  LAST  941 
REF  17  LAST  959 
REF  11  LAST  940 
REF  18  LAST  1248 


23, 3547 
23,3550 


3 (032  0 
54  771  1 
3 0033  1 
54  765  l 


CDUTR  IGS  CA 
TS 


CA 

TS 


C DIJ  X 
CDUSPOT 
CD  UY 
CDUSPOT 


AP  : 


ASSFMBLE  REVISION  5o  OF  AGC  PRC  GRAM  ZERLINA  BY  ZOROASTER 


POWERED  FLIGHT  SUBROUTINES 


0042  REP  15  LAST  940 

0043  PEE  LAST  1248 


23,  355  1 3 0034  0 

23,3552  54  767  0 


ca  :ouz 

TS  CDUSPOT  + 


3344 

C045  RFF 
0046  REF 
3347  REF 

0048  REF 

0049  REF 

0050  RFF 

0051  RFF 

3352  REF 

0053  RFF 

0054  PEF 

0055 

0056  RFF 
3357  RFF 

0058  RFF 

0059  REF 

3353  REF 

0061  REF 

0062  REF 
0053  RFF 
0064 

0365  REF 
0064  PEF 
0067  REF 
3368  REF 

0069  RFF 

0070  RFF 

0071  RFF 

0072  RFF 
3373  REF 

0074  RFF 

0075  REF 


28  LAST  914 

24  LAST  1068 

1 8 LAST  10  38 

13  LAST  914 

14  LAST  1249 

20  I AST  1249 

768  LAST  1227 

67  LAST  1064 
5 LAST  855 

15  LAST  583 

769  LAST  1249 

15  LAST  1249 

21  LAST  1249 
fc  LAST  1249 
2 LAST  100  4 

770  LAST  1249 

16  LAST  1249 
4 LAST  13  2 

17  LAST  1249 

22  LAST  1249 
7 LAST  1249 
2 LAST  1004 

68  LAST  1249 

771  I A ST  1249 

1 8 I AST  1249 
4 LAST  102 

1°  LAST  1249 
1 

29  LAST  1249 


23  ,3  554 
23,3555 
23,  3556 
23 ,3557 
23,  3560 
21,  3561 
23,3562 
23,  3563 
23  ,3564 
23,3565 
23,  3566 
23  ,3567 
23,  3570 
23,  3571 
23  ,3572 
23,  3573 
23  ,3574 
23  ,3575 
23, 3576 
23  ,3577 
23,  36C0 

23. 3601 

23 .3602 
23,  36C  3 
23  , 3 6 C 4 

23.3605 

23. 3606 
23  ,3607 
23,  36  10 
23,  3611 
23,3612 


C 00C6  1 
22  142  P 
3 4751  0 
7 6254  0 
54  143  0 
5C  143  1 
3 C 765  0 
52  155  1 
52  127  1 
0 4713  0 
21560  1 
0 0006  1 
3 0155  0 
5C  143  1 
52  766  l 
0 4713  0 
C1517  0 
52  155  1 
50  143  1 
52  744  1 
C 0006  1 
5 C 1 43  1 
3 0766  0 

0 4713  0 
C 1 5 3 1 1 

52  127  1 
52  155  l 
50  143  1 
52  736  1 
10  143  0 

1 3556  0 
C 0142  0 


tr*gl**p  MASK 


TC 

C ADR 

EXTEND 

DCA 

I NOEX 

OXCH 

TC 

C ADR 

DXCH 

INDEX 

D XCH 

EXT  END 

I NDE  X 

DCA 

TC 

CADR 
DXCH 
DXCH 
INDE  X 
DXCH 
CCS 
TC  F 
TC 


TFM2 
FOUR 
SI  X 
TFM3 
TE  M3 
CDUSPOT 
M P AC 
VBUF  +4 
IJSPRCADR 
CDULOG  IC 

MPAC 
TE  M3 
CDUSPOT 
US  PRC  ADR 
COSI  NE 
M P AC 
TEM3 
C 0 SC  0 U 

TE  M3 
CDUSPOT 
JS PPC ADR 
SI NE  +1 
VBUF  +4 
MP  AC 
TE  M3 
S INCDU 
TE  M3 

TR*GL**P 
T EM2 


MAKE  I T EVEN  AND  S MALLEP 


STORING  2'S  COMP  ANGLE,  LOAD  I NG  MPAC 
STORING  MPAC  FCR  LATER  RESTORATION 


STORING  I'S  COMPLEMENT  ANGLF 


STORING  COSINE 


LOAniNG  l'S  COMPLEMENT  ANGLE 

SINE  +1  EXPECTS  ARGUMENT  IN  A AND  L 
BRINGING  UP  PR  ICR  MPAC  TO  BE  RESTORED 


i 
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ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

\ 


) 


3 0076  **4#**#ft*#A***<t*t*  *******:*«:<■  **  *$**#$****$***«:*$#*£$*:***$*$  $*$$***«#***  $#**#*#  X"**#*#*  #***#***#$*#$*$  S********** 


RD  378  OUICTHlG,  INTENDED  P DR  GUDANCE  CYCLE  LSE  WHERE  TIME  IS  CRITICAL,  IS  A MJ  CH  FASTER  VERSION  OF  CD*TR*GS. 

RCORr  OUICTRIG  CCMPUTES  AND  STORES  TFE  SINES  AND  COSINES  OF  THF  2'S  COMPLEMENT  ANGLES  AT  CDUSP0T,  COUSPCT  *2, 
nr.p?  ANC  CDUSPOT  + A.  LNLIKE  CD*TR*OS,  OUICTRIG  COES  NOT  LEAVE  THE  l'S  COMPLEMENT  VERSIONS  OF  THE  ANGL  F S IN 

RD  DR  CnUSPOT.  QUtCTRIG'S  EXECUTION  T I MF  IS  A.  1 MS:  THIS  IS  1o  TIMES  AS  FAST  AS  CD*TP*GS.  OUICTRIG  MAY  BE 

R 0086  CALLED  FROM  INTERPRETIVE  AS  AN  RT  R OP-CODE,  OR  FROM  BASIC  VIA  BANKCALL  OR  IBNKCALL. 


00891 

PC  392  RFF 
00893  REF 
D3R9*  ref 

00895  REF 

00896  RFF 
00997  REF 


18 


l? 

5 

16 

5 


I AST  12A8 
LAST  902 
I AST  1 24 8 

LAST  902 
LAST  1249 
LAST  90  2 


23,3613 
23,  36  14 
23,3615 
P 3,  3616 
23,3617 
23,3620 
23,  36  2 1 


C UC4  0 

2 CC32  O 
54  771  1 
- 0033  1 
54  765  l 

3 0034  0 
54  767  C 


0 TPROLOG  INHINT 


CO  UX 
C DUS  POT  X 
CDUY 

CDUSPO  TY 
CDU  7 

CDUSPOTZ 


0090 

0090  1 
00902 

0091 

0092 
00«3 

0094 

0095 

0096 

0097 
0090 
0099 
5130 

oir  i 

0 IP  2 

0103 

0104 

0105 
0105 
0107 

0109 
0 IP  9 
0 109  i 

0110 

01101 


REF  46  LAST  898 
REF  25  LAST  1249 
REF  IQ  LAST  1249 
REF  18  LAST  895 
RFF  IQ  LAST  1260 
RFF  23  L AST  1249 
RFF  3 LAST  194 

REF  7 1 LAST  1123 
RFF  20  LAST  1250 
PEF  5 LAST  1249 
PFF  ?1  LAST  1250 
RFF  24  LAST  1250 
REF  5 LAST  80  1 

PEF  72  LAST  1260 
PFF  22  LAST  1250 
RFF  5 LAST  1249 
REF  23  LAST  1250 
REF  4 LAST  903 
REF  47  LAST  L250 

RFF  368  LAST  1210 


23,3622  0 0004 

23,  3 (-2  1 C f 006 

23. 3624  22  061 

23.3625  3 4751 

23. 3626  7 6254 

3 i ,3627  54  062 

50  ( € 2 
23,  36  3 1 3 C 76  5 

23,3532  0 5033 

23,  3633  C CCC6 
23,  3634  7 4736 

23,3635  50  062 

23,  3636  52  736 

? 3 ,3637  50  06? 

23 ,3640  3 C765 

23,  364  1 C 5032 
23  ,3642  C 0006 
23,  364  3 7 4736 

23,  3644  50  C 6? 

23,3645  5?  744 

23,  3646  10  C62 

23  ,3647  1 3626 

23  ,3650  3 0061 

23,  3651  C 0003 
23  ,3652  0 0000 


OUICTRIG  IN  H IN  T 
EXTEND 

OXCH  ITEMP1 
CAP  FOUR 
+ 4 MASK  SIX 

TS  ITEMP2 

INDEX  ITEMP2 
CA  CDUSPOT 

TC  SPSIN 

FXTEND 

MP  3 I T 14 

INDEX  ITEMP2 
DXCH  SI  NCDU 
INDEX  ITFMP2 
CA  CDUSPOT 

TC  SPCOS 

EXTEND 

MP  RIT14 

INDEX  I TEMP? 
DXCH  COS  CDU 
CCS  ITEMP2 
TCF  QUICTRIG 
CA  I T EM  PI 

3ELINT 
TC  A 


+ 4 


INHINT  SINCE  DAP  USES  THF  SAME  Tt  MPS 


SCALE  DOWN  TO  MATCH  INTERPRETER  OJTPJTS 
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R 1 113  THESE  INTERFACE  FCLTINES  M KE  IT  POSSIBLE  TC  CALL  AX*SR*T,  ETC.,  IN 

R ? 1 I A INT  ERPRET  IV  E.  LATER,  WHERE  POSSIBLE,  THF  Y WILL  RE  ELIMINATED. 


R 01 2 7 THESE  INTERFACE  ROUTINES  ARE  PERMANENT.  ALL  RESTORE  USER'S  FBANK 

R012*  SETTING.  ALL  A 3 E STRICT  INTERPRETIVE  SUBROUTINES,  CALLEO  USING  "CALL", 
R0129  RETURNING  VIA  QPPET.  ALL  EXPECT  AND  RETURN  THE  VECTOR  TO  BE  TRANSFOR- 

3 "13  MED  INTERPRETER-STYLE  IN  MPAC;  COMPONENTS  AT  MPAC,  MPAC  +3,  AND  MPAC  +5. 

R1131  TRG*SMNR  AND  TRG*NBSM  BOTH  EXPECT  TO  SEE  THE  2'S  COMPLEMENT  ANGLES 

R0132  AT  CDUSPCT  ( CRDER  Y Z X,  AT  CCUSPOT,  CDUSPOT  +2,  AND  CDUSPOT  * A ; ODD 
30133  LOCATIONS  NEED  NOT  BE  ZEROED).  TRG*  NBS  M DOES  THE  NB  TO  SM  TRANSFOR- 
R313A  MAT  ION:  TPG*SMNB,  VICE  VERSA. 


3 -135  CDU*NBSM  DCES  ITS  T R ANS  F C R M AT  I C N USING  THE  PRESENT  CONTENTS  OF 

K'  135  THE  CDU  COUNTERS.  OTHERWISE  IT  IS  LIKE  TRG*  NR  SM. 


R01361  CDU*  S MNH  IS  THE  COMPLEMENT  OF  CDU*NBSM. 


"136? 

01363  REF 
< 1 364  RFF 


23,3653  77776  1 CDU*SMN0  EXIT 

? LAST  12a  fl  23,  3655  C 3555  C TC  CDUTRIGS 

1 23,3655  1 3660  0 TC.F  C*MM*NT 


0 1 39 
3 1*2 
OKI 


0 LA  2 
0 1 A3 
0 1 A A 


REF  2 LAST  12a8 
RFF  3 LAST  106  L 
REF  35  LAST  1090 
RFF  1 

RFF  232  LAST  12A8 
REF  69  LAST  12^9 


23,  3657 

• 

23,  366  1 

23.3662 

23.3663 
23,  36 6 A 
23  ,3665 


77776  1 
C 3553  1 
0 75A A 0 
A 6257  0 
0 370  2 1 
0 6051  0 
A 357 5 1 
00123  1 


TRG*  SMNB  EXIT 
TC 

C*MM*N1  TC 
CS 

C*MM*N2  TC 
TC 

VLOAD 


:d*tr*g  s 

MP  ACVBUF 
THREE 
A X*SR*T 
INTPRET 
RVQ 
VBUF 


A X* SR* T EXPF7,  TS  VECTOR  IN  VBUF 
SIGNAL  FOR  SM  TO  NB  TRANSFORMATION 


-I1A5 

0K6  REF 
01A7  REF 


LAST  125  1 


23,3666  77776  1 CDU*NBSM 

23,  3667  C 3 5 A 5 0 
23,3670  1 3673  1 


CDUTRIG  S 
C *MM *N  3 


MAB 
0 1 A9 
" 1 50 
3151 
0152 


REF  3 LAST  1251 
REF  A LAST  1251 
RFF  3r  LAST  125  1 

REF  1 


23  ,3672 
23,3673 
23,  367 A 
23  ,3675 


77776  1 

0 3553  1 
C 7 5AA  0 
-•  6 2 57  1 

1 3662  1 


TRG* NB  SM  E XI  T 

TC  CD*TR*GS 

C*  MM*  N3  TC  MPACVBUF 

Z A THRFF 

TCF  C *MM  *N  2 


FOR  AX  *S  R*T 

SIGNAL  FOR  NB  TO  SM  TRANSFORMATION 


RD163  *NBSM*  AND  *SMNH * EXPECT  TO  SEE  THE  SINES  AND  COSINES  (AT  SINCCU 

R'15£.  AND  COS  CDU ) FATHER  THAN  THE  ANCLES  THEMSELVES.  OTHERWISE  THEY  ARE 
3. '155  LIKE  TF  G*N  B SM  AND  TRG*  SMNB. 


R 156  NOTE  THAT  JUST  AS  CD*TP  *GS  NEED  BE  CALLED  ONLY  ONCE  FOR  FACH  SERIES 

R0157  OF  TR  ANSFORMATICNS  USING  THE  S/!NE  ANGLES,  SO  TOO  ONLY  ONE  OF  TR  G*NRSM 
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R?1  5 fl  ANC  TRG*SMN  6 N E EO  EE  CALLED  FOR  EACH  SERIFS.  EOT  SU3SE0UENT  TRANSFCR- 
R0159  MATIONS  L SE  *NRSM*  AND  *SPNB*. 


23,  3676  77776  1 

REF  2 LAST  1251  23,3677  1 3660  0 


* SMNB* 


F XI  T 

TCF  :*HM#N1 


23  ,3700  77776  1 

REF  2 LAST  125  1 23,  370  1 1 3*73  1 


C*MM*N3 


= 0166  A X*  SR*  T COMBINES  THE  CLC  S MMB  ANC  NBSM.  FOR  THE  NB  TO  SM 

R 16  5 TRANSFORMATION,  ENTER  WITH  +?  IN  A.  FOR  SM  TO  NR,  ENTEP  WITH  -3. 

R ' ' 1 6 6 TEE  VECTOR  TO  PF  TRANSFORMED  ARRIVFS,  AND  IS  p E TLP  NF  i)  , IN  VR  UF  . 

3 0167  AX*SR*T  FxPECTS  TO  FIND  THE  SINES  AND  COSINES  DF  THE  ANGLES  OF  ROTATION 

R ' 168  AT  S INCDU  ANC  COSCDU,  IN  THF  ORDER  Y 7 X.  A CALL  TO  CD*TR*GS,  WITH 

R 0 16  9 THF  2 ' S COMPLEMENT  ANGLES  (OROER  Y Z X ) AT  CDUSPOT,  WILL  TAKE  CARE  OF 

30170  THIS.  HERE  ISA  SAMPLE  CALLING  SEOUENCE:- 

R>  1 7l  TC  CDUTRIGS 

3017?  CS  THREE  CCA  THREE"  FOR  NBSM) 

R0173  TC  A X*  SR*  T 


Rol76  THE  CALL  TO  CD*TP*CS  NEED  NOT  BE  REPEATED,  WHEN  AX*S3*T  IS  CALLED  MOR F 
3 175  THAN  ONCE,  LNLESS  TH p ANGLES  HAVE  CHANGED. 


R 3 1 7 AX*SR*T  IS  GUARANTEED  SAFE  ONLY  FOR  VECTORS  OF  MAGNITUDE  LESS  THAN 

K0177  UNITY.  A LCOK  AT  THE  CASE  IN  WHICH  A VECTOR  OF  GREATER  MAGNITUDE 

R ' 178  HAPPENS  TO  LIE  ALONG  AN  AXIS  CF  THE  SYSTEM  TO  WHICH  IT  IS  TC  BE  TRANS- 

R 1 179  FORMED  CONVINCES  CNE  T HAT  THIS  IS  A RESTRICTION  WHICH  MUST  RE  ACCFPTFO. 


0 1 BO  PEF 
3 IB  1 

0182  PEF 


2 LAST  1268 


23,3706  22  165  1 


AX*SR*T 


TS  DEXDEX 

E XTEND 

QXCH  RTN  SAVER 


WHERE  IT  BECOMES  THF  INDEX  OF  INDEXES 


3 1 83 
< 1 86 
0185 
• 1 36 
01  fl  7 
0 18P 
1199 


RFF  3 LAST  1252 
REF  6 LAST  125  2 
REF  37  l A ST  1 25  1 

REF  369  LAST  1250 
PFF  1 
REF  1 


23,  370  6 
? 3 , 3 70  7 
23, 3710 
23,  3711 
23 ,3712 
2 3,  3713 


6 6257  I 
C Of.  0 6 1 
5 0000  1 
3 3771  0 
52  166  1 


R*  TL* 


* P 


CCS  DEXDEX 

C S DE  XDE  X 

AD  THREF 

F X TE  ND 
INDEX  A 

DC  A INDEX  I 

DXCH  DEXI 


0190 

0 19  l 

01  92 
0193 
3 196 
01  95 


REF  11?  LAST  1176 
REF  I6f  LAST  1106 

REF  2 LAST  99 
REF  70  LAST  1251 
RFF  1 


23  ,3716  3 6753  1 

23.3715  56  130  1 

23. 3716  0 0006  1 

23  ,3717  5 0163  1 

23,  3720  6 'il23  0 

23,  3721  1 3723  0 


CA  ONE 

TS  BUF 

E XTEND 
INOEX  DEXI 

DCS  VBUF 

TCF  L OOP  1 


REALLY  BF  A SUBTRACT,  AND  VICE  VERSA 


0 196 


REF  161  LAST  1252 


23,3722  52  131  0 L0CP2 


DX  CH  BU  F 


LOADING  VECTOR  COMPONENT,  STORING  INOEX 


;AP  : 


ASSFMRLE  REVISION  56  CF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L PCWEREO  FLIGHT  SUBROUTIMES 


0197 

0 198 

01  99 
0200 


REF  772  LAST  1249 
P EF  1 

PEF  7 LAST  1 25  2 
PFF  81  LAST  1067 


23,3723  52  155  1 L00P1 

23  ,3  72  A 2 3767  1 
23,  3725  6 0 1^3  1 

23  ,3726  54  1 16  0 


DXCH  MPAC 

CA  SINESLOC 

AD  DEXl 

TS  ADDRWD 


D2D1  PFF  21 

0202  REF  5 

0203  PEF  773 

D2D* 

0205 

0206  REF  7 7 A 

0207  REF  1 


LAST 

LAST 

LAST 


1^7  6 

1752 

1753 


LAST  1253 


73,  3777 

23.3730 

23.3731 
23,  3732 
2 3 ,3733 
23,3738 
2 3,  37  35 


52  155  1 
1 3735  1 
0 0006  1 
A C 1 55  1 
57  160  1 


TC  DMPSUP 

CCS  DEXOEX 

DXCH  MP  AC 

TCF  + 3 

EXTEND 
DCS  MPAC 

DXCH  TERM1TMP 


0208  RFF  20  LAST  1250 
3239  F EF  82  LAST  1253 


23,3736  3 625A  1 

23,  3737  26  1 16  0 


CA  S IX 

ADS  ADDRWD 


0 211 
3212 
0213 
92  1A 

0215 

0216 
3217 
0218 
0 21^ 
3 220 
0221 
'22  7 
0223 


RFF  162 
REF  4 
REF  71 
PEF  775 
RFF  22 
RCF  776 
REF  2 
PFF  3 

REF  163 
RFF  5 
RFF  72 
RFF  1 64 


LAST  1252 
LAST  125  3 
LAST  1252 
I AST  1253 
LAST  1253 
LAST  1253 
LAST  1253 
LAST  1253 

LAST  1253 
LAST  1253 
I AST  1253 
LAST  125  3 


23,3741 
23,  3742 
23 ,3743 
23,  37A4 
1 3,  3 7 A 5 
23  ,3746 
23,  3 7 A 7 
23  ,3750 
23  ,3751 
2 3,  3752 
23  ,3753 
23,  37  5 A 
73,  3755 


f 0006  1 
5 0130  0 
5 0 1 A 3 1 
3 0123  1 
52  155  1 
C 7121  1 
52  155  1 
2C  160  1 
52  160  1 
20  001  1 
50  130  0 
50  143  l 
52  123  0 
52  131  0 


EXTFNO 

INOEX 

I NOE  X 

DCA 

DXCH 

TC 

DX  CH 

DAS 

DXCH 

DDOUBL 

INDE  X 

INDEX 

DXCH 

DXCH 


RUF 

3 E Xl 

VBUF 

MPAC 

3MPSUB 

MPAC 

TE  RM  TMP 
TERM  1TMP 

8 UF 

OEX  1 
VBUF 
3 UF 


0224  RFF  370  LAST  1252 

0226  REF  1 


0 

1 


CCS  A 

TCF  L0GP2 


0226  23,371 

r ?27  REF  6 LAST  1253  23,3  761  26  1A2 


FXTEND 

DIM  DEXOEX 


0228  REF 
0220  PEF 

0230  PEF 

0231  RFF 

0232  PEF 


7 LAST  1 2s  3 
1 

? LAST  1252 

2 LAST  1253 

3 LAST  1253 


23,  3762  10  1A2  1 TSTPOINTCTS 


23,3763  1 3705  1 TCF 

23,  3764  C C 1 45  1 TC 

23.3765  1 3705  1 TCF 

23.3766  0 0145  1 TC 


OE  XDE  X 
R *T  I **P 
RT NS  AVER 
R *TL**P 
RT  NS  AV  ER 


0233  REF  6 LAST  1250  23,  3767 


00735  0 SINESLOC  ADRES  SINCDU 


■ 234 
0235 

(,23b 


23 ,3  770 
2 3,  3 77  1 
23,3772 


OOOOA  0 INOEX I OFC  4 

COCC?  0 DEC  2 

00000  1 DEC  0 
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USER'S  PAGE  NC.  6 


EC-  S3 


MJ  L T I PL  Y BY  S IN  ( C CU  AN  GL  F ) 
NBSM  CASE 
SMNB  CASE 


SINCDU  AND  CD  SC  DU  (EACH  6 WORDS)  MUST 
BE  CONSECUTIVE  AND  IN  THAT  ORDER 


MULTIPLY  BY  COSICDUANGLE  ) 


LOADING  INDEX,  STORING  VECTOR  COMPONENT 
'CAUSE  THAT'S  WHERE  THE  INDEX  NOW  IS 

DECREMENT  M AGN I TU D E PR E SER V ING  SIGN 
ONLY  THE  BRANCHING  FUNCTION  IS  USED 


FOR  USE  IN  SETTING  ADCRWO 


********** 

********** 

********** 


********** 

********** 


DUN  • T 
TOUCF 
THE  SF 
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3237  23,  3773  CCCC9  0 DEC  9 **********  CONSTANTS  ********** 

P,  02 3 R **************************************************************************************************************** 


0 290 

0291  REF 

0292 

3293  PFF 


10,203 
10,  20(  0 
10  ,2033 


BANK  10 
SETLDC  FLESHLCC 
BANS 

COUNT*  tt/PCWFL 


R 299  PCUTINF  FLESHPCT  COMPUTES  T E c BODY-STABLE  MEMBER  TRANSFORMATION  MATRIX  (COMMONLY  CALLED  XNB)  AND  STORES 

P'296  IT  IN  THE  LOCATIONS  SPECIFIED  BY  THE  ECADR  ENTERING  IN  A. 


297 
n29R 
29R  1 
029B2 
02983 


10 , 20  30 

PEF  3D2  I A ST  96  0 l 0 ,2031 

REF  3 LAST  86D  10,2022 

REF  233  LAST  126  1 10,2633 

10  ,2039 


7 7 7 76  1 CALC  SM  SC  E XI  T 


0 9616  1 TC 

20036  0 CADR 

0 6051  0 TC 

77616  0 RVO 


BANKCALL 
FLESHPCT  -I 
I N TPRF  T 


3299 

0250 


PEF  11  LAST  1292  1C,  2025  C26fc9  1 
REF  1 10,2036  3 2035  0 


XN8EC ADR  ECADR  XNB 

-1  CAF  XVI  RFC  A DR 


0251 
1252 
'2  53 
'259 
0255 
0 2 5 6 


RFF 
PFF 
REF 
R EF 


RFF  8 
PCF  23 


LAST  1299 
LAST  1080 
LAST  1259 
LAST  1080 
LAST  1090 
I A ST  1C61 


ID  ,2091 
10, 2092 
10  , 20  4 3 
10,2099 


56  192  l 
7 9 357 
6 5C07 
59  191 


FLESHPCT 


TS 

XCH 

XCH 

MASK 

AD 

TS 


TEM2 
EBANK 
r EM2 
LCWB 
DC  T 1900 
T EMI 


3267 

0258 

0259 

0260 
0261 
3262 
0263 


0269 

3266 


PEF  3 LAST  986 
REF  777  LAST  1253 
REF  18  LAST  782 
RFF  7 LAST  909 
REF  778  LAST  1259 

REF  29  LAST  1259 


10,  2095  C 0CC6  1 
10  ,2096  3 0798  0 

10,2097  52  155  1 

10,  ?0  50  0 7 115  0 

10,2051  00795  1 

10,  2052  52  155  1 

10,2053  20  001  1 

10,2059  50  191  0 

10, 2C55  52  CCl  1 


E XTEND 

DC  A CDSCDUY 
DXCH  MP  AC 
TC  3 MP 

ADRES  CD  S C DU  Z 
DXCH  MPAC 
DDOUBL 
INDEX  T EMI 

dxch  c = cosy  cnsz 


•■>266 

''267 

0268 

0269 


REF  6 
RFF  25 


LAST  909 
LAST  1259 


10  ,2056 
Id  ,2057 
1C , 2060 
10  ,2061 


0 C 006  1 
3 0 79C  1 
50  1 9 1 0 
52  003  0 


EXTEND 

DC  A SINCDUZ 

INDEX  TEMl 

DXCH  2 = SI  NZ 


027? 

3273 


_ 10,  2062  C C0C6  1 

RFF  3 LAST  986  1",2063  9 0736  1 

RFF  779  LAST  1259  1C, 2069  52  155  1 

REF  23  LAST  1253  10,  2065  C 7121  1 


E XTEND 

DCS  SINCDUY 

DXCH  MPAC 
TC  DMPSUB 


AODPWD  SET  TP  C0SCCU7 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERLINA  RY  ZOROASTER 


L POWERED  FLIGHT  SUBROUTINES 


0 27  A 

REF 

780 

1 AST 

1254 

10,2066 

52  155 

1 

DXCH 

MP  AC 

3275 

10, 2067 

20  001 

1 

DDOUBL 

0276 

PEF 

26 

LAST 

1254 

10  ,2070 

50  141 

0 

INDEX 

T EM  1 

0277 

10,2071 

52  CC5 

0 

DXCH 

* 

0278 

10  , 20  7 2 

C 0006 

1 

E XTEND 

0279 

RFF 

5 

LAST 

909 

10  ,2073 

4 0742 

1 

DCS 

S INC  DUX 

3293 

REF 

781 

LAST 

1255 

LO, 2C74 

c 2 155 

1 

DXCH 

MPAC 

0281 

REF 

2A 

LAST 

1254 

10,2075 

0 7121 

1 

TC 

D MP  SUB 

0 28? 

REF 

78? 

LAST 

1255 

10,2076 

52  155 

1 

DXCH 

MPAC 

32P3 

1C, 2C77 

2 C 0C1 

1 

DD  CUB  L 

G284 

PEF 

783 

LAST 

12*5 

If  ,2100 

52  160 

1 

DXCH 

MPAC 

0285 

10  » 2 1C  1 

C CC06 

1 

EXTEND 

0286 

REF 

6 

LAST 

1255 

lO  ,2102 

6 C T 4 2 

1 

DC  S 

SI  NCDUX 

0287 

REF 

7 PA 

LAST 

1255 

10  ,2103 

52  155 

1 

DXCH 

MPAC 

3289 

REF 

19 

LAST 

12*4 

1C,  2 1 C 4 

C 7115 

0 

TC 

D MP 

02  89 

REF 

7 

LAST 

1254 

10,2105 

00737 

1 

AORES 

SINCDUZ 

0 2°0 

10,2106 

C 0006 

1 

EXT  END 

3291 

REF 

785 

1 AST 

1255 

10,  21C7 

4 0155 

1 

DC  S 

MPAC 

0292 

RFF 

786 

LAST 

1255 

10  ,2110 

52  162 

0 

DXCH 

MPAC 

C 29  3 

RFF 

20 

LA  ST 

1255 

10,2111 

0 7115 

0 

TC 

DM  P 

02  94 

REF 

A 

L AST 

1256 

10, 2 1 12 

00735 

0 

ADRE  S 

SI  NCDUY 

C 295 

REF 

787 

LAST 

1255 

10,2113 

52  155 

1 

DX  CH 

MPAC 

3296 

10, 2114 

2C  CC1 

1 

DDOUBL 

0207 

10,2  115 

20  001 

1 

DD0U3L 

0298 

REF 

788 

LAST 

1255 

10  ,? 1 1 6 

52  162 

0 

DXCH 

MPAC 

3299 

REF 

789 

L AST 

1255 

10,  2 117 

52  155 

1 

DXCH 

MPAC 

0300 

RFF 

21 

L AST 

1255 

l ,2  120 

0 7 115 

0 

TC 

DM  P 

030  1 

REF 

A 

LAST 

1254 

10,2121 

CC743 

1 

ADRES 

COSCOUY 

0302 

REF 

790 

LAST 

1255 

10, 2122 

52  155 

1 

DXCH 

MPAC 

0303 

10  ,2123 

20  001 

1 

DDOUBL 

3 33  A 

1 :,  2124 

2C  0C1 

1 

DDOUBL 

0305 

REF 

165 

LAST 

125  3 

10,2125 

52  131 

0 

DXCH 

3 UF 

0 306 

10,2126 

C 0006 

1 

EXTEND 

3337 

RFF 

5 

L AST 

1255 

10,  2127 

2 0744 

0 

DC  A 

COSCDUY 

0308 

PEF 

791 

I AST 

1255 

10  ,2130 

52  155 

1 

DXCH 

M P AC 

0 300 

REF 

22 

1 A ST 

1255 

10,2131 

C 7115 

0 

TC 

DM  P 

0310 

RFF 

6 

LAST 

939 

1(  ,2132 

CC747 

0 

ADRES 

COSCDUX 

0311 

REF 

792 

LA  ST 

1255 

13  ,?133 

52  155 

1 

DXCH 

MPAC 

3312 

10, 2134 

2 C CC1 

1 

DDOUBL 

0313 

REF 

793 

LAST 

1255 

10,213  5 

20  162 

0 

DAS 

MPAC 

0 31 A 

10,2136 

0 0(  06 

1 

EXT  END 

3315 

RFF 

5 

L AST 

1255 

10,2137 

2 0726 

c 

DC  A 

SI  NCDUY 

0316 

REF 

796 

LAST 

1255 

l ,2140 

52  155 

1 

DXCH 

MPAC 

0317 

RFF 

25 

LA  ST 

1255 

10,2141 

C 7121 

1 

TC 

DMPSUR 

0318 

REF 

705 

1 AST 

12^s 

10,  2142 

52  155 

1 

DXCH 

MPAC 

9:12  OCT.  21,1973  SKIPPER  .121  PAGE  1255 
USER'S  PAGE  NO.  8 ED  S3 


= - S I NY  cnsz 


AODRWD  SET  TO  COSCDUZ  STILL 


+ 5 


ADDRWD  SFT  TD  COSCDUX 


GAP:  ASSEMBLE  PFVISION  56  IF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


L 

POWERED 

FLIGHT  SUBPCUT I NFS 

10,2  143 

20  CC1 

1 

DDOUBL 

u32r 

PEF 

1 66 

LAST 

1255 

10, 2 144 

20  131 

0 

DA  S 

3 UF 

0321 

REF 

167 

LAST 

1256 

10,2145 

52  131 

0 

DXCH 

BJ  F 

3 32? 

RFF 

796 

last 

l?cc 

10,  2146 

52  155 

1 

OXCH 

M P AC 

0323 

10,2147 

0 0006 

l 

EXTEND 

3324 

RFF 

75  7 

LAST 

1256 

10  ,2  150 

3 0155 

0 

DC  A 

MPAC 

3325 

REF 

27 

L AST 

1255 

10,  2151 

60  1 4 1 

0 

I NDE  X 

TEMl 

0326 

10  ,2152 

5 2 0 15 

1 

DXCH 

14 

327 

10,2153 

C noC6 

1 

EXTEND 

032  ft 

PEF 

798 

LAST 

1256 

In  , 2154 

3 3160 

0 

DC  A 

MPAC 

0329 

RFF 

28 

LAST 

1256 

10  ,2155 

50  141 

0 

INDEX 

T FM1 

3333 

10,  2156 

52  C 1 7 

0 

OXCH 

16 

0331 

10,2157 

0 0006 

1 

EXTEND 

3 332 

RFF 

799 

LAST 

1256 

1 i ,21 60 

3 1162 

1 

DCA 

MPAC 

3333 

REF 

29 

L AST 

1256 

10,  2161 

5 < 1 4 1 

0 

I NDE  X 

TEMl 

0336 

10  ,2  162 

52  021 

0 

DXCH 

20 

’3  35 

REF 

30 

LA  ST 

1256 

10,2163 

2 -3141 

0 

CA 

TEMl 

03  3 6 

REF 

83 

LAST 

125  3 

in,  2164 

64  116 

0 

TS 

A DDR  WD 

0337 

13  ,2165 

0 0006 

1 

EXTEND 

3339 

REF 

23 

LAST 

880 

LO,  2166 

3 CC06 

1 

DCA 

z 

033  9 

REF 

26 

LAST 

1250 

10,2167 

6 4751 

0 

AO 

FOUR 

0 340 

REF 

43 

LAST 

1 1 C 7 

10,2170 

52  165 

1 

DXCH 

LOC 

3341 

REF 

40 

1 AST 

1113 

10,  217  1 

5 4744 

1 

CAP 

BI  T 8 

0342 

REF 

11 

LAST 

994 

1C  ,2172 

54  023 

1 

TS 

EDOP 

' 34  3 

RFF 

2 

LA  ST 

1002 

10,2173 

1 7 4 7? 

0 

TCF 

VX  V 

0344 

REF 

800 

L AST 

1256 

10,  2 174 

‘2  155 

1 

DXCH 

MPAC 

0345 

10  ,2175 

20  001 

1 

DDOUBL 

3346 

REF 

31 

LAST 

1256 

1C,  2176 

6 C 141 

0 

I NDE  X 

TEMl 

(347 

10,2177 

52  007 

1 

DXCH 

6 

0 34  R 

RFF 

801 

LAST 

1256 

■ 

52  160 

1 

DXCH 

MPAC 

1C,  220  1 

20  OCl 

1 

DDOUBL 

( J5 

REF 

32 

LAST 

1256 

10  ,2202 

50  141 

0 

INDEX 

TEMl 

0351 

10.22G3 

52  Cll 

0 

DXCH 

10 

035? 

REF 

802 

LAST 

1256 

10,  2204 

52  162 

0 

D XCH 

MPAC 

0353 

t C ,2  2 05 

2 0 001 

1 

DOCURL 

3354 

RFF 

33 

LAST 

1256 

10, 2206 

50  141 

0 

I NDE  X 

TEMl 

0355 

LO ,2207 

52  013 

1 

DXCH 

12 

0356 

REF 

32 

LA  ST 

1254 

10,2210 

3 3142 

0 

CA 

T EM2 

3357 

REF 

72 

L AST 

1264 

In  , 3 2 11 

54  CC  3 

0 

TS 

FRANK 

0358 

REF 

6 

1 A ST 

974 

10  ,2212 

1 46  31 

0 

TCF 

SWRETURN 
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= SI  NY  COSX  + SI  NX  SINZ  COSY 


= - S INX  COSZ 


+5 


= COSX  COSY  - SI  NX  SI  NY  SINZ 


+3 


*■  5 


AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  PY  ZOROASTER 


9:12  OCT.  2 1,1970  SKIPPER  .121  PAGE  1257 


L TIME  OF  FREE  FALL  USER'S  PAGE  NO.  1 EO  S3 

R 0 0 0 1 TFE  TFF  SUBROUTINES  MAY  BE  USED  IN  EITHER  EARTH  OR  MOON  CENTFRED  COORDINATES.  THE  TFF  ROUTINES  NEVER 

R 000  3 KNO  W WHICH  ORIGIN  APPLIES.  IT  IS  THE  USER  WHO  KNOWS,  AND  W HO  SUPPLIES  RONE,  VONE  AND  l/SQPTIMU)  AT  THE 
RD0j5  APPROPRIATE  SCALE  LEVEL  FOR  THF  PROPER  PRIMARY  BODY. 


R 00'  6 
3 000  7 
ROOD3 


EARTH  ORIGIN 


POSITION  -29  METERS 

VELOCITY  -7  MET  ERS/CENT  IS  ECOND 

1/SQRTIMU)  +17  SQRTICS  SQ/METERS  CUBED) 


R 0 011 
R 0 0 1 2 

rooh 


MCCN  ORIGIN 


PCS  IT  ION  -27 

VELOCITY  -5 

1/SORTIMU)  + 14 


METERS 

METEPS/CENT  IS  FCONDS 
SQRTICS  SQ/MFTERS  CUBED) 


O'Mb  ALL  DATA  PROVIDED  TC  AND  RECEIVEO  FROM  ANY  TFF  SUBROUTINE  WILL  BE  AT  ONE  OF  THE  LEVELS  ABOVE.  IN  ALL  CASES, 

RUMS  TFE  FREE  FALL  TIME  IS  RETURNED  I N C E N TI  SEC  OND  S A T (-28).  PROGRAM  TFF/CONIC  WILL  GENER  AT  E V ON  E/ RT  MU  AND 

R 0020  LEAVE  II  IN  VCNE'  at  (+10)  IF  EARTH  ORIGIN  AND  (+9)  IF  MOON  ORIGIN. 

R0f21  THE  USFR  MLSI  STORE  1HE  STATE  VECTOR  IN  RONE,  VONE  AND  MU  IN  THE  FORM  1/SQRTIMU)  IN  TFF/3TMU 

R002T  AT  THF  PROPER  SCALE  BEFORE  CALLING  TFF/CONIC.  SINCE  RONE,  VONE  ARE  IN  THE  EXTENDED  V FR  B STORAGE  AREA, 

?o  25  THF  USER  ML  ST  ALSC  LOCK  OUT  THE  EXTENCED  VERBS,  AND  RELEASE  THEM  WHEN  FINISHED. 

PROGRAMS  CALC  /TFF  AND  CALC/TPER  ASSUMF  THAT  THE  TERMINAL  RAC1US  IS  LESS  THAN  THF  PRESENT 

R 002  9 RADIUS.  THIS  RESTRICTION  CAN  eE  REMOVED  BY  A 15  W CODING  CHANGE,  RUT  AT  PRESENT  IT  IS  NOT  DEEMED  NECESSARY. 
3 0031 

TFE  FOLLOWING  ERASABLE  QUANTITIES  ARE  USED  BY  THE  TFF  RCUTINFS,  ANC  ARE  LOCATED  IN  THE  PUSH  LIST. 

R 0034 


BELCW  E:  IS  USED  FDR  EARTH  ORIGIN  SCALE 

M:  IS  USED  FCR  MOON  ORIGIN  SCALE 


AO'  37 
D338 
0039 
A 00  40 
D 3 4 1 
A 0042 
00  4 3 
A0044 
004  5 
ADO  46 
0047 
OC  4R 
D ?49 
A 0050 
0051 
005? 
0053 
AV>  54 
005=1 
0056 
AO  D 5 7 
On  58 
0059 


CO  1 2 
0014 

00  16 

0016 

0020 

0022 
0 024 
0026 

0030 
00  32 
0034 

0036 

0040 

0042 

0044 


TFFSW 

TFFOFLQ  = 
R MAGI 
R PE  R 
TFFQ1 
S DEL  F/2 
CDELF/2  = 
RAP3 
NRTFRM 


RTERM 
TFFVSO 
TFF1/ALF  = 

TFFRTALF  = 
TFFALFA  = 
TFFNP 

TFF/RTMU  = 
NR  MAG 

T FFX 
TFFTEM 


1 OD 
1 2D 
1 4 C 
14D 

14  D 

l fin 

16  c 

1 BO 
20  D 
220 

240 

2 6D 
28  0 

3CD 
3?  C 


340 
36  D 


0 = CALC  TFF 
Q2  — Ql 

ABVALIRN)  M 
PER  IGEE  RAOIJS  M 
R.  V / SORT  (MJE) 
SIN(THETA)  /? 

CDS  IT  HET  A > /? 
APOGEE  RADIUS  M 
TERMINAL  RADIUS  M 

TER  MI  NAL  RADI  US  M 
-IV  S3JAR  FD/MU  ) 
SEMI  MAJ  AXIS  M 

SORT  (ALFA)  E:  (1( 
ALFA  1/M  E:  (26 
SEM  I LATUS  RFC  TUM 

1 / SQR  T ( MU) 

PRESENT  RAOIJS  M 


T EMPORARY 


1 = CALCTPER 
E:  (-16)  M:  (-15) 
F:  (-29)  M:  (-27) 
E:  (-29)  M:  (-27) 
E:  (-15)  M:  (-15) 


F:  (-29  I M:  (-27  ) 
E:  ( —29+ NR) 

M:  (-27+NR) 

E:  (-29)  M:  (-27) 
,/M  E : ( 20)  M:  < 18) 
E:  (-22-2  NA) 

M:  (-20-2  NA) 
i+NA)  M:  (9  + NA) 

-NR)  M:  (24 -NR) 

M E : (-384-2  NR) 

M:  (-36+2  NR) 

E:  (17)  M:  (14) 

E:  (-29+NR) 

M:  (-27+NR) 


GA£>:  ASSEMBLE  REVISION  56  OF  AT,;  PRCGRAM  ZERLINA  BY  7QROASTEP 

L T IME  OF  FREE  FAI  l 


9:12  OCT.  21,  1970  SKIPPER 
USER'S  PAGE  NC.  2 


121  PAGE  1258 
ED  S3 


A 0060 
A 0361 
A 0062 
A 0063 
AD?6A 
A 0065 


REGISTERS  SI,  S2  APE  UNTOUCHFD  BY  ANY  TFF  SU330UTINF 

INDEX  REGISTERS  *1  , X2  ARE  US  EC  8Y  ALL  TFF  SUBROUTINES.  THEY  ARE  ESTAB- 
LISHED IN  TFF  /CONI  C AND  MUST  BE  PRESERVED  BETWEEN  CALLS  TO  SUBSEQUENT 
SUBROUTINES. 

-NR  C (X 1 > = NORM  COUNT  OF  PM  AG 

-NA  C(X?J=  NORM  COUNT  OF  SQPT  ( ABS  I ALF  A )) 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L TIME  CF  FREE  FALl 


9:12  OCT.  21,  1970  SKIPPER 
USER'  S PAGE  NC.  3 


.121  PAGE  1259 
EO  S3 


' 066 


10067 
R 0069 
R0071 
RD372 
1 0073 
R 007  5 
R0077 
1 OC  70 
ROORl 
ROOR? 
3 OOP 3 
R30B5 
R 008  6 
R 00  88 
R0089 


TFFCON  IC 

0 

MOD  BY:  PR  BAIRNSFATHER 

MOD  NO:  1 MOD  RY:  RR  BAIRNSFATHER  DATE:  11  APR  67 

MOD  NO:  2 MCD  BY:  RR  e A I RNS  FAT  HER  DATE:  21  NOV  67 

MOD  NO:  3 MOO  BY:  RR  BAIRNSFATHER  DATE:  21  MAR  68 

FUNCTIONAL  DESCRIPTION:  THIS  SUBROUTINE  IS  CALLED  TO  COMPUTE  THOSE  CONIC  PARAMETERS  REQUIRED  BY  THE  T FF 

SUBROUTINES  AND  TC  ESTABLISH  THEM  IN  THE  PUSH  LIST  AREA.  THE  PARAMETERS  ARE  LISTED  UNDER  OUTPUT. 

THE  EQUAT  IONS  AR  E 


H = R N#  VN 

LCP  = H.H  / MU 

AI  FA  = 2/RN  - VN.VN  / MU 


ANGULAR  MOMENTUM 

SEMI  LATUS  RECTUM 

RECIPROCAL  SEMI  MAJ  AXIS,  SIGNED 


R 0091  AND  ALFA  IS  PCS  FOR  ELLIPTIC  ORBITS 

R 0 0 9 2 0 FOR  PARABOLIC  ORBITS 

R 009^  NEG  FOR  HYPERBOLIC  ORBITS. 

R 0094  SLBROUTI  NE  ALSO  COMPUTES  AND  SAVES  RMAG. 

RD098  CALL  ING  S FQUENCE: 

R0CO6  TFFCCMC  EXPECTS  CALLER  TO  ENTER  WITH  CORRECT  GRAVITATIONAL  CONSTANT  IN  MPAC  , IN  THE  FORM 

R0098  l/SORTIMU).  PROGRAM  WILL  SAVE  IN  TFF/RTMU  . THE  SCALE  IS  DETERMINED  BY  WHETHER  EAR  TH  UR  MOON 

ROlOf’  ORIGIN  IS  USED.  THE  CALLER  MUST  LOCK  OUT  THE  EXTENDED  VERBS  BEFORE  PROVIDING  STATE  VECTOR  IN  RONE, 

R 0 1 0 2 VONE  AT  PROPER  SCALE.  THE  EXTENDED  VERBS  MUST  BE  RESTORED  WHEN  THE  CALLER  IS  FINISHED  USING  THE 

R3134  TFF  ROUTINES. 

R0l05  ENTPY  POINT  T FFCONMU  EXPECTS  THAT  TFF/RTMU  IS  ALREADY  LOADEO. 

R 0 107  TO  SPECIFY  MU:  CLCAD  CALL  IF  MU  ALREADY  STORED:  CALL 

RD1D9  YU  UR  MU  1 /RTMU  E:  C 1 7 > M:  (14)  T FFCONMU 

R011L  TFFCONIC 

R0112  PUSHLOC  = PpL+P,  ARBITRARY  IF  LEQ  18D 


R0111 
R OH4 
RO 115 
R 0 1 1 6 
R r 1 17 
RM19 
80119 
P 0 1 20 
R3121 
R 0 1 2 3 
R"  1 24 
R?1  2S 
R 0 127 
RD128 
R 0 1 29 
RO  1 30 


SUBROUTINES  CALI  ED:  NONE 
NORMA  L F XI  7 MODES  : RVQ 

ALARMS:  NONE 

OUTPUT:  THE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  AREA. 

R MAG  1 E : ( -29)  M : (-27)  M RN,  PRESENT  RADIUS  LENGTH. 

NRMAG  E:  (-29+NR)  M RMAG,  NORMALIZED 

M:  (-27+NR) 

xl  -NR  , NORM  CCUNT 

TFFNP  E:  (-38+2NR)  M LCP,  SEMI  LATUS  RECTUM,  WEIGHTED  BY  NR. 

M:  (-36+2NP) 

TFF/PTMU  E : ( 17)  M:(14)  1/SQRTIMU) 

TFFVSC  E:(2<)  M:  ( 1 8 ) l/M  -(V  S3/MU):  PRESENT  VE  LDC  l TY,  NORML  I ZED. 

TFFALFA  E:  (26-NH)  1 /M  ALFA,  WEIGHTED  BY  NR 

M:  ( 24-NR ) 

TFFPTALF  E:  ( 1 +N  A ) 

M : I °+  NA  ) 


FOR  VGAMCALC 


FOR  VGAMCALC 


SCRT(ALFA),  NORMAI  ized 


GAP:  ASSEMBLE  RE  VI  SI  ON  56  CF  AGC  PRCGPA«  ZFRLINA  BY  ZOROASTER 


L T IME  OF  FREE  FALL 


’ 0 l ■*  l 
RT  112 
K .1  33 


10134 
«r 135 

ROl-16 


* "137 
r:  1 3R 
R31  A 
R 7 14? 
RDH'4 
? 145 


X?  -NA,  NORM  COUNT 

TF  F 1 /A  l F E:  1-22-2NA)  SIGNED  SEMI  MAJ  AXIS,  WEIGHTED  BY  NA 
M:  (-20-2NA) 

PLSHLOC  AT  PDL+O 

THE  FOI  LOWING  IS  STCRFO  IN  GENERAL  ERASABLE 
Vr  NF 1 P:  ( 10  ) M:(9)  V/RTIMIJ),  NORMALIZED  VELOCITY 

FPA  SABLE  INITIALIZATION  RECUIREC: 

RONE  E:  (-  25 ) M : ( - 27  > M STATE  VECTOR 

VCNE  £ : ( -7  ) M : C -5  ) M/CS  STATE  VECTOR 
TFF/RTMU  E:(17)  M:(14)  l/PTICS  S Q/ M CUBE) 

CEBRIS:  OPR  FT , ° DL  +0  ...  PDL+3 


3144 

3 3,  37  66 

BANK 

33 

•'  1 7 

REF 

1 

?7,20(  ' 

SFTLOC 

TOF-FF 

0 14B 

27,3342 

RANK 

D 14P 

RFF 

2 

1 AST 

4 7 TO 

47  : 

2 2* 

COUNT* 

Sf /TF  F 

0150 

REF 

« 

LAST 

711 

27  ,3342 

00037  0 

TFFGONIC  STORE 

TFF/RTMU 

'151 

21,  3343 

53575  0 

TFFCONMU  VLOAO 

UNIT 

f.  1 S2 

REF 

15 

1 AST 

7 14 

27, 3144 

C22 CO  1 

RONE 

0153 

77725  1 

POOL 

3154 

27, 3346 

00C45  0 

3 60 

C 155 

PEF 

1 

27  ,3347 

000  15  0 

STORE 

°0??76 

REF 

69 

1.  AST 

1225 

37,3150 
27,  ’35  1 

777C1  l 
O0C47  1 

NORM 

xi 

01  5B 

REF 

1 

21  ,3352 

24041  1 

STOVL 

NRMAG 

315-7 

REF 

10 

LAST 

714 

27,  3353 

02206  1 

VONE 

1 

77761  1 

VXSC 

r 161 

REF 

5 

LAST 

1260 

27,3355 

00017  0 

T FF/RTM1J 

3162 

REF 

1 

21,  3156 

C 2 16  1 0 

STORE 

VONE* 

0163 

27  ,3357 

47361  0 

VXSC 

VXV 

0 164 
AClfc5 

R EF 

2 

LA  ST 

1260 

27,3360 

00041  1 

NRMAG 

01  66 

27  ,3161 

47572  1 

VS  L 1 

VSO 

'167 

REF 

1 

27,  1162 

14C35  1 

STOOL 

TFFNP 

A ! 1 6 f) 

0169 

RFF 

1 

27,1363 

C6510  0 

TFF1/4 

3173 

27, 3164 

62271  0 

DDV 

PD  VL 

0171 

REF 

3 

LAST 

1260 

27 ,3365 

00041  1 

NRMAG 

0 172 

REF 

2 

LAST 

1260 

27,3366 

02  1 M C 

VONF1 

nl  73 

27, 1167 

67436  1 

VSO 

DC  OMP 

0174 

PEF 

1 

27 ,3170 

00025  0 

STORE 

TFFVSQ 

A3  1 75 

01  76 

27,  3371 

43257  0 

SR  * 

DAD 

9:  12  OCT.  21,  1970  SKIPPER 
USER'S  PAGE  NC.  4 


121  PAGE  1260 
EO  S3 


LEFT  BY  CALLER 
LEFT  BY  CALLER 
IF  ENTER  VIA  TFFCONMU. 


l/SORTIMU)  E : (17)  M:  (14) 

COME  HERE  WITH  TFFRTMU  LOADED . 

SAVE!)  RN.  M E:  (-29)  M:  (-27) 

UR/2  TD  PDL+O,  +5 

MAGNITUDE 

M E:  (-29)  M:  (-27) 


-NR 

RMAG  M E:  (-29+NP)  M:  (-27+NR) 
SAVED  VN.  M/CS  E:  (-7)  M:  (-5) 

E:  ( 17  ) M : ( 14) 

VN/  SORT  ( MU  ) E:  ( 10  ) M:  (9) 


E:  (-29+NP. ) M:  (-27+NR) 

UR/2  FROM  PDL 

BEFORE:  F:(-15+NR)  M:(-lfl+NR) 

LC  P M E:(-38+2NR)  M:(-36+2\jR) 

SAVE  ALSO  FOR  VGAMCALC 

(2  / RMAG ) 1/M  E:  (26-NR)  M:(24-NR) 

RMAG  M E : ( - 2 9+  NR)  M:(-27+NR) 

SAVFO  VN.  E:  CIO)  M:  ( 9) 

KEEP  MPAC  + 2 HONEST  FOR  SORT. 

-(  V SO /MU)  E :(  20)  M:(  1 fl) 

S AV  E FOR  V GAM  CAL  C 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERl  IMA  BY  ZOROASTER 


L TIME  OF  FREE  FALL 


"1BI 
' 18? 
Cl  83 
01  BA 
D 185 
1B6 


'?  187 
A J 1 8 8 


■ 189 
0 190 
C 1 91 
0 1 92 
3 193 


27,  3372  2C573  1 
27,3373  77626  0 


0 -6  ,1 

STAOR 


RFF  1 


REF  2°  LAST  1226 
REF  1 


27,  3 37A  7 7 7 A A 0 

27  ,3375  AIA57  1 

27,3376  20173  0 

27,  3377  7 5 A A 6 0 

27.3AC0  77701  1 

27,  3 AC  1 CCG50  1 

2 7 , 3 A 0 2 000  31  0 

2 7 , 3 A03  75316  1 


STORF  TFFAI.FA 

SL*  PUSH 

0 -6  ,1 

ABS  SORT 

NORM 

*2 

STORE  TFFRTALF 
OS  0 SI GN 


RFF 

PFF 


27  ,3 AOA 
27, 3AC5 

2 LAST  1260  27, 3A06 

1 27.3A07 

27,  3 A 1 0 


5525A  1 
5 7 A C 7 C 
06510  C 
00027  1 
77616  0 


BZE  BODV 
+2 

TFF  1/A 

+2  STORE  TFF1/ALF 

DUMPCNIC  R VO 


A 01  9A 


: 12  OCT.  21  ,1970  SKIPPER  .121  PAGE  1261 
USER • S PAGE  NO.  5 EO  S3 

GET  -VS  0/  MU  E:(26-NR)  M:(2a-MR> 

2/RMAG  FROM  PDL  + 2 

ALFA  1/M  F:  (26-NP)  M:  I2A-NR  ) 

TEMP  SAVE  ALFA  E:(2  0)  M : ( 1 8 J 

E : (10)  M : (9 ) 

X2  = -NA 

SORT!  ABS(ALFA)  ) EMIO+NA)  M:(9+NA) 

NOT  SD  ACCUPATE,  PUT  OK 

ALFA  FROM  POL  + 2 E:(20)  M:(lfl) 

SET  1/ALFA  =C , TO  SHOW  SMALL  ALFA 


1/ALFA  E : ( - 22-  2 NA  ) M:(-20-2  NA) 


39  W 


'.40:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


<5:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1262 


T Ime  OF  FREE  F ALL 


USER'S  PAGE  NO. 


P 01 96 
RC  197 
IU19? 
* 0 20' 
R0201 
R02r.3 
3 0205 
RD2:7 
R 0208 
3 0 210 
R T>  2 1 2 
RG213 
RC  214 
R02 1 6 
1 021  7 
R)?1M 
R;:21o 
’ 221 
RD  222 
R 0223 
RO  224 

RG225 
* 0226 
RC227 

R022  R 
1 0229 
RD2  3D 
R 02  32 
? 0 234 
RT  2 3ft 
? 1 2 3 7 
R0238 
R0240 
< ' 241 
R)  243 
R 0 2 44 
RO  246 
R3  2 48 


MOO  BY: 
MOO  NO: 
MOO  NO: 


TFFRP/  RA 

RR  BAIRNS  FAT  HER 

1 MCI)  BY: 

2 MOD  BY: 


DATE:  21  MAR  68  ACCEPT  DIFFERENT  EAR  TH/MDDN  SCALES 

ALSO  IMPROVE  ACCURACY  CF  °APO. 

US  EC  RY  CALCTPER  AND  TFF  DISPLAYS  TO  CALCULATE  PERIGEE  RADIUS  AND  ALSO 
GENERAL  CONIC. 

ACIUS  AS  APOGEE  RADIUS  IS  GIVEN  BY 

RA  = ( 1 +E  ) / AL  FA 


FUNCTIONAL  DFSCRIPTICN: 

APOCEE  RADIUS  FOR 
FRCGRAW  GIVES  PtRIGEF 
RP  = P /(  1+E  ) 

WHERE  2 

F = I - P ALFA 

IF  PA  IS  NEGATIVE  OR  SHCWS  01  VIDE  OVERFLOW,  THEN  PA  = PCSMAX  BECAUSE 

1.  APOGEE  RACIUS  IS  NOT  MEANINGFUL  FOR  HYPERBOLA 

2.  APCGEE  RACILS  IS  NOT  CEFINEC  FOR  PARABOLA 

3.  APOGEE  RAHILS  EXCEEDS  THE  SCALING  FUR  ELLIPSE. 

THIS  SUHRGJTINF  REQUIRES  T HF  SIGNED  RECIPROCAL  SEMI 

CALI  INF.  SEQUENCE:  CALL 

TFFRP/RA 

PUSHLOC  = POL+D  , ARBITRARY  IF  L EQ  10  D 
C(MPAC)  UNSPECIFIED 


AXIS,  ALFA,  AND  SEMI  LATUS  RECTUM  AS  DATA. 


SUBROUTINES  CALLED: 

NORMA  L E X|  T RODE  : 

IF  ELLIPSE 
CTHERW  IS  E , 

ALARMS:  NCME 

OUTPUT:  STUPED  IN  PUSH  LIST  AREA 

PPFP  E:  (-29  ) M: (-27  ) 
PAPO  F : ( - 2 9 ) M:( -27) 

PUSFLOC  AT  POL+O 

ERASABLE  INITIALIZATION  RECUIREC: 

TFFALFA  E : ( 26-NRJ  M 

M:  ( 24 -NR  ) 

TFF  N P E:  (-38+2  NR)  M 


NONE 

RVQ 

WITHIN  NORMAL  SCALING,  RAPO  IS  CORRECT. 
RAPO  = POSMAX. 


SCALE  OF  OUTPUT  AGPEES 
V PERIGEE  RADIUS 

N APCGEE  RADIUS 


fITH  DATA  SUPPLIED  TO  TFF/CONIC. 

DESTROYED  BY  C A LC  TFF /C  A LOT  PER  , TFFTRIG. 
W II  L BE  DESTROYED  BY  CAL  C TFF  /C  A L C TPER 


(- 


i 6 + 2NR  ) 


1/SEMI  MAJ  AXIS 
LC  P,  SEMI  LATUS  RECT'JM 


LEFT  BY  TFF  CON  I C 


I EFT  BY  TF FC ON  IC. 


XI 

X2 

CEBRIS:  OPRET, 


-NR,  NORM  COUNT  OF  RMAG 
-NA,  NORM  CCU NT  OF  ALFA 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  l N A BY  ZOROASTER 

L TIME  OF  FREE  FALL 


0 251 
A3252 
0253 
0256 
0255 
C 2 56 
D 257 
0258 
4 0 2 50 
•'260 
0261 
026? 
026^ 
0 2 66 
•>265 
0266 

0267 

0268 
A 026Q 

0270 

0271 
f 272 
0273 
02  76 
n 27  5 

0276 

0277 
"278 

0279 

0280 
028  1 
02fl2 
0 28  3 
0 296 


RFF 

REF 


RFF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 


0020  RAPO  = 1 60 

0016  RPER  = 160 


27  ,3611  61365  0 

2 LAST  1261  27,3612  00033  1 

2 LAST  1260  27,  36  13  00035  1 

27  ,3616  57657  0 

27, 3615  2C571  C 

27,  3616  51615  0 


TFFRP/RA  DLOAO 


SR  * 
DAO 


OMP 

T FFAL  FA 
TFF  NP 
OCOMP 
0 -8  D , 1 
A 8 S 


3 

3 


LAST  1261 
LAST  1263 


LAST  715 


27,  36  17  17767  0 

27  ,3620  63366  0 

27.3621  06510  0 

27. 3622  55206  0 

27  ,3623  00035  1 

27, 3626  53657  0 

27.3625  206  C l 1 

27.3626  20572  0 
27,  3627  16C17  1 


DP2  (-6  ) 
SORT  DA  0 

TFF1/6 
PUSH  300  V 
TFFNP 
SR*  SR* 

0,  1 

' -7,  I 

STOOL  RPER 


2 I AST  126  1 
5 LAST  1223 

1 

2 LAST  1263 


-3  LAST  86  9 
1 


2 7,3630 
27,  36  31 
77  ,3632 
27, 3623 
27,  3636 

27.3635 

27. 3636 
27  ,3637 
27,3660 
27,  366  1 
27  ,0662 
27,  3663 
27,3666 
27  ,36^5 
27,  3666 


6 IOC  5 l 
00027  1 
57735  1 
5 3 6 56  0 
57663  0 
576C3  0 
60C57  1 
57576  1 
57643  0 
77666  1 
57665  0 
77765  1 
17753  C 
00021  1 
77616  0 


OMP  BOV  B 

T=Fl  /ALF 
TCOANZ IG 
BZE  SL* 

MA  XRA 
D -5,2 
SL*  BCV 

C,  2 
MAX  R A 

BPL 

+ 3 

MAXPA  0 LOAD 

NEAP.  ONE 

+3  STORE  RAPO 

DUMPRPRA  R VO 


A 0285 


9:12  GCT.  21,1970  SKIPPFR 
USER  *S  PAGE  NO.  7 


.121  PAGE  1263 
EC  S3 


APOGEE  RADIUS  M F:(-29)  M: ( -27 ) 
PERIGEE  RADIUS  M E : C - 29)  M:(-27) 


ALFA  l/M  E:  ( 2 6- NR)  MM  26-NR  ) 

LC  P M E:  (-38+2  NR)  M:(-36+2NR) 

ALFA  P (-  12+NR ) 

ALFA  P (-6  ) 

(OCOMP  GIVFS  VALID  TP  RESULT  FOR  SORT) 
(ARS  PROTECTS  SORT  IF  F IS  VERY  NEAR  0) 

E SO  = ( 1-  P ALFA)  (-6) 

( 1+  E ) (-2)  TO  PCL+O 

LCP  M F : ( - 38*-  2NR  ) M:(-36+2NR) 

(DOES  SP  THEN  SL  TO  AVOIO  OVFL  ) 

XI =-NR 

(EFFECTIVE  SL  ) 

PERIGEE  RADIUS  M E:(-29)  M : (-271 
( 1+E ) (-2)  FROM  POL+O 


E : ( -22  -2  N A)  M:  (-20-2NA) 
CLEAR  nVFINO,  IF  ON. 

SET  POSMAX,  IF  A LF  A=0 
— 5 +N  A 


S FT  POSMAX  IF  OV  FI  . 

CONTINUE  WITH  VALID  RAPO. 

RAPO  CALC  IS  NOT  VALID.  SET  RAPO  = 
POSMAX  AS  A TAG. 

APOGEE  RADIUS  M E:(-29)  M:(-27) 


30  W 


ftp:  ASSEMBLE  RFVISION  56  CF  AGC  PRCGRA 

T IMF  OF  FREE  FALI 


ZERLINA  BY  ZORN  AST 


P C'2  86 
? 02RB 
RD29D 
RP29) 
R0  292 
R"233 
3 0295 
RC2  97 
R0299 
•'  } : 
RD3D3 
RP3C5 


MCD  BY:  RR  BAIPNSFATHES 

MCD  NC : 1 MOD  BY: 

MOP  ND : 7 MOD  BY: 

MOP  NO:  3 MOP  BY: 

MOO  NO:  * MTP  BY: 

MOO  NO:  6 MOD  BY: 

FUNCTIONAL  DFS  CR  I PT  I CN: 

VE  LCC  I T3 


RR  PA IRNS  FAT  HFR 
PR  RAI RNSFATHER 
PR  BAIPNSFATHF3 
PP  eAI  PNSFATFEH 
RR  BAIRNSFATHER 


OAT  E: 
DATE: 
OA  TE  : 
DAT  E: 
DATE  : 


21  MAR  67 
16  APR  67 
6JUL  6 7 
21  NOV  67 
21  MAR  6B 


°:  1 2 ODT.  21,1970  SKIPPER  .121  PAGE  1266 
USER'S  PAGE  NO.  8 EC  S3 


NEAR  EARTH  MUF  ANC  NEG  T FF  (GONEPAST) 
ADD  VARIABLE  MU. 

ACCEPT  DIFFERENT  EAPTH/MQON  SCALES 


MAY  BE  ON  EITHER  SIDE  OF  THE  CONIC 
THE  ECUATTCNS  AR F 


PROGRAM  CALCULATES  THE  F3EE-FALL  TIME  OF  FLIGHT  FROM  PRESENT  PCSITICN  RN  AND 
PACIUS  LENGTH  SPECIFIED  BY  PT  ERM  , SUPPLIEO  BY  THE  USE*  . THE  POSITION  VECTOR 
BUT  RTERM  IS  CCNSIDEREP  ON  THE  INROUND  SICE. 


RO  306  02  = -SORTIRTERM  (2-RTERM  ALFA)  - LCP)  (INBCUNC  SIDE))  LEO  ♦ - L C E/SOR  T(  AL  FA  ) 

R 0 3 C 8 - - 

3 0309  Q1  = P ft.  VN  / S CRT  ( MU  ) LEO  +-  LCE /SQR  T(  A LF  A) 


Z =■  NUM  / PEN 


LEO  +-  1/SORTI  ALFA  ) 


<3031  3 
3 0 316 
RD316 


WHERE, 


IF  INBOUND 
NLM  = RTERM 
DEN  = 0 2+0  1 


F N 


LEO  +-  2 LCE /ALFA 

LEO  +-  2 LCE/SORT  ( AL  FA  ) 


R 0 3 1 fl 
RO  319 
R0321 


AND, 


IF  CL'TRCUND 
NUM  = 0 2-01 
DEN  = 2 - ALFA 


(RTERM  ♦ RN  ) 


L EQ  +-  2 LCE /SQR  T(  ALFA  ) 
LEO  + - 2 LCE 


3'  323 


IF  ALFA  ZZ  < 1.0 


(FOR  ALL  CONICS  EXCEPT  ELLIPSES  HAVING  ABStDFL  ECC  A NOM)  C.  90  DEG) 


RD325  THEN  X = ALFA  Z Z 

R(  326  AND  TFF  = (RTERM  ^N  -2  ZZ  T(X)  ) Z/SQRT(MU) 


RO  327 
Rf>32fl 

3 0329 

RD331 
R 033  2 

RO  336 
R0335 


EXCFPT  IF  ALFA  PNZ  , AND  IF  TFF  NEG, 

THEN  TFF  = 2 PI  /(ALFA  SQR  T(  ALFA))  + TF  F 

OR  IF  ALFA  ZZ  GEO  1.0  (FOR  ELLIPSES  HAVING  APS  ( DEL  ECC  ANOM  ) GEQ  9C  DEG) 

THEN  X = 1/ALFA  7 l 

AND  TFF  - (PI/SQRT  (ALFA)  -02  -tQl  +2(X  T(X)  -1)  /ALFA  Z)  /ALFA  SQR  T(  MU) 

WHERE  T(  X ) ISA  POL  YNC  MI  AL  A PPRC  XI  M ATI  ON  TO  THE  SERIES 
2 2 2 
1/3  — X/5  +X  H -X  / 9 ...  (X  < 1.0) 


RD  337 
R033  9 
3 0 360 
R ) 362 
R 0366 
RO  365 


CALLING  SEQULNCE : TIME  TO  RTERM 
CALI 

CA  LCTFF 

C(MPAC)  = TERMNL  RAO  M 
FCP  EITHER,  E:  (-29)  M:  (-27) 

FOR  EITHER,  PUSHLOC  = FOL+O  , ARBITRARY  IF  L EQ  BD 


TI MF  TO  PERIGEE 
CALL 

CALCTPER 

C(MPAC)  = PERIGEE  RAD 


\ 


* 


GAP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21,  1Q70  SKIPPER 


PAGE  1265 


L 


T IMF  OF  FREE  FALL 


USER'S  PAGE  NO. 


R r'346 
RO  347 
P.D3«,9 
* 035" 
R 035? 
R 03  5 3 
3 0355 
R3357 
RO  358 
RO  360 
R)  362 
1 0363 
R0365 
R0367 
30368 
RO  369 
R 037  0 
RO  371 
R3372 
3 0373 
R03  75 
R o3  7 7 
3 « 3 79 


SLBROLTINFS  CALLED:  TIX),  VIA  RT  E 
NORMAL  F XI T MODE  : R VO 

HOWEVER,  PROGRAM  EXITS  WITH  ONE  OF  THE  FOLLOWING  VALUE 

A.  TFF  = FLIGHT  TIME.  NORMAL  CASE  FOR  POSITIVE 

B.  (THIS  CPI  ION  IS  NO  LONGER  USED.) 

C.  TFF  = POSMAX.  THIS  INDICATES  THAT  THE  CONI 
THE  SPECIFIED  ALTITUDE.  ALSO  INDICATES  OUT 


S FOR  TFF  (-28)  CS  IN  MPAC.  USER  MUST  STORE. 
FLIGHT  TIME  LESS  THAN  ONE  ORBITAL  PERIOD. 


OUTPUT: 


C(MPAC) 
TFFX 
NR  TERM 


(-28) 

(0» 


( -?9+  NR) 
(-27+NR  ) 
(-59  + 2NR) 
(-55+2NR) 


C FROM  THE  PRESENT  POSITION  WILL  NTT  RETURN  TO 
ROUND  PARABOLA  OR  HYPERBOLA. 

TIMF  OF  FLIGHT,  OR  TIME  TO  PERIGEE 

LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTRY  OISPLAY  TFF  ROUTINES 


M RTERM,  WEIGHTED  BY  NR 


NOT  E : 
P MAG  1 
T FFO  1 


TFFTFM  = PDL  3fcC  AND  WILL  BE  DESTROYED  BY  .:UNIT:. 


E : (-29)  M:(-27) 

E : (-16)  M:(-15) 

TFFrELO  E:  (-16  ) M:  (-15  ) 
PLSHLOC  AT  PDL+O 

ERASABLE  INITIALIZATION  REQUIRED: 

RCNE  F : ( -2 9 ) M : ( -27  ) 

VONE  • E : ( + 10)  M:(  + s» 

RMAGl  E:  (-29  ) M:  (-27  ) 

C(  MPAOE  : (-29)  M:(-?7) 


PDL  12  NCT  TOUCHED. 
PDL  14D 
POL  IOC 


M STATE  VECTOR 
VN/SQR  T(  MU) 

PRESENT  RADIUS,  M 

RTERM,  TERMINAL  RADIUS  LENGTH 


LEFT  FOR  FNT3Y  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTRY  OISPIAY  TFF  ROUTINES 


LFFT  BY  USFR 
LEFT  BY  TFF/CON  1C 
LFFT  BY  TFFCONIC 
LEFT  BY  USER 


RD381 
R 038? 
<30384 
R03  06 
> 0 <R7 
R3389 
R0301 
3 0 39? 
R3334 
K 039  5 
R0  397 
RD  398 
3 0400 
R0402 

R0403 
3 0404 
RD405 
R 04r  6 


THE  FOLLOWING  A 3 6 STORED  IN  THE  PUSH  LIST  AREA. 


F:  (17  ) 

NRMAG  E:  ( - 2q+  NR ) 

M:  (-27+NR) 

XI 

TFFNP  E:  (-38+2NR) 

M:  (-36+2NR) 
TFFALFA  E:  (26-NR) 

M:  (24-NR) 
TFFPTALF  E:(10+NA) 

M:(  Q4-NA) 

X 2 

TF  F 1 / A Lc  E:  ( -22-2  NA) 

M:  ( - 20-  2 NA) 

CPRET,  PDL+O  ...  PCL  + 3 
RTFRM  F : ( -?  9)  M:(-27J 

RAPO  F:  (-29)  M : ( - Z 7 ) 

R PEP  E:  (-29  ) M:(-?7) 


1/SQRT  (MU  ) 

R MAG , NORM ALI  ZED 


-NR,  NORM  COUNT 

LrP,  SF  MI  LATUS  RECTUM,  WEIGHT 


1/M  ALFA,  WEIGHT 


SCRT(ALFA),  NORMALIZED 


WEIGHTED  BY  NA 


RTFRM,  TERMINAL  RACIJS  LENGTH 
POL  1 60  ( = NR  TE  R M) 

POL  14D  ( = T FFQ  1 ) 


LEFT 
LEF  T 


BY  TFFCONIC 
BY  TFFCONIC 


ASSEMBLE  RFVISICN  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


9:1?  O:  T.  21  ,1970  SKIPPER  .121  PAGE  12SS 


L TIME  OF  FREE  FALL 


USER'S  P AGF  NO.  1C  EC  S3 


P0407 

0408 

3 '43  7 REF 
04  1 0 
0411 

7A12  PFF 

041 3 PEF 

0414 
0A15 

0416  REF 
3 A 1 7 

OAlR  PFF 
0419  PFF 
3 4 23 

3421  REF 
342? 

A3  42  3 

0424  REF 

0425 

0426 
A 0 427 
A3  42  8 

0429 

0430 
U431 

0432  REF 
3433 

04-H  REF 
0435 


1 

2 LAST  1266 
1 

1 

3 LAST  1263 

4 LAST  1263 

2 LAST  12S6 

4 LAST  1263 


3 LAST  1256 


27  ,3447 
27,  3450 
27,  ’451 
27,345? 
2 7,  345  3 
27  ,3454 
27  » 34 5 5 
27,  3456 
27  ,3457 
27,  •’460 
27,  3461 
27,346? 
27,  3463 
27  ,3464 
27,3465 

27  ,3466 
27, 3467 
27, 3470 


77614  1 
C3436  0 
57454  0 
77614  1 
C 3fc  7 6 0 
00023  0 
17657  0 
2020l  0 
OOC21  1 
4 4 2 C 5 0 
00033  1 
06510  0 
412C6  0 
00021  1 
53725  1 

00035  1 
2C573  1 
43276  0 


27  ,3471 
27,347? 
27,  3473 
27  ,3474 
27,  3475 
27,3476 
2 7,3477 


77657  0 
20(01  1 
71214  0 
03  756  0 
51477  1 
06  520  r: 
75440  0 


C AL  CT  P ER  S ET  GO 

TFFSW 
+ 3 

CALCTFF  CLEAR 

TFFSW 

+ 3 STORE  R TER M 

SL* 

0,1 

STORE  NRTFRM 
DMP  BOSU 

TFFA I FA 
T F F 1/  4 
PUSH  P NP 

NR  TERM 
POOL  SR* 

TFFNP 
0 -6  ,1 
DCOMP  0 AO 


+ 2 


SR* 

BOFF 


8MN 


0 ,1 
3 LOAD 
T FFSW 
+ 2 

TF  F ZERO S 
SORT 


ENTER  WITH  RP ER  IN  MPAC 


ENTER  WITH  R TER  M IN  MPAG 
E:  (-29)  M:  (-27) 


X l =-NR 

RTERM  F:  (-29+NP)  M:  (-2  7+ NR) 

ALFA  E:  ( 2 6— NR  ) M : (24-NR) 

(2  - AL  FA  RTERM)  (-3)  TO  P CL +0 
E:  ( - 29+  NR)  M:  (-27+NR) 

RT  ERM  ( 2-AL  F A RTERM)  TO  PDL+2 
E:  (—32+  NR)  M:  (-30+NP) 

LC  P F : ( - 38+  2NR  ) M:(-36+2NR) 

XI  = -NR 

DUE  TO  SHIFTS,  KEEP  PRECISION  FOR  SORT 
R TERM  ( 2-AL  FA  RTERM)  FROM  PDL+2 
E:  (-32+NR)  M:  (-3P+NR) 

LEAVE  F:  (-32)  m:  (-30) 

X 1 = -NR 

CHECK  TFF  / T P ER  SWITCH 

IF  TFF,  CONT  INU  E 
IF  TPER  , SF  T 02  =0 
E:  (-16)  M:  (-15) 


436  REF  1 27,  3500  57632 

A 0437 


MAXTFFl  NO  FREE  FALL  CCNIC  TO  RTERM  FROM  HERE 

RESET  POL,  SET  TFF  = POSMAX,  AND  EXIT. 


0440 
3 441 

0442 

0443 
3444 

A ^445 

0446 

0447 

0448 


REF  6 LAST  1263 

PFF  1 

REF  3 LAST  1260 

REF  16  LAST  1260 

REF  1 


27,  3^C1 
27,  3 50  2 
27,3503 
2 7,  3 5C4 
27  ,3505 
27,3506 
27,  3507 


4 1 C 76  0 
57735  1 
24045  0 
02161  0 
52441  1 
02200  ) 
00017  1 


REF  1 

RFF  2 LAST  1266 


27, 3510  44240  1 

27,35  1 1 5 7 522  l 

27,3512  00045  0 


DCOMP  BOVR  PT  IS  ON  INBOUNC  SIDE.  ASSURE  OVFIND=G 

TOOANZIG  ANY  PORT  IN  A STORM. 

STOVL  TFFTFM  0 2 E:  (-16)  M:  (-15) 

VONE*  VN/ SORT  ( MU  ) E:  (10>  M:  (9) 

DOT  SL  3 

RONE  SAVED  RN.  E:  (-29)  M:  (-27) 

STORE  TFFQ1  Ql  , SAVE  FOR  GONFPAST  TEST. 

E:  ( - 16)  M : ( - 15) 

RMN  BDSU 

INBOUND  USE  ALTERNATE  Z 

T F FT  EM  02  E:  (-16)  M:  (-15) 


A3  443 


OUTBOUND  Z CALC  CONTINUES  HERE 


0450  PFF  1 

0451  REF  4 LAST  1266 

0452 


37  ,3513 
27,3514 
27,  35  15 


14043  0 
CCC33  1 
44205  0 


STOOL  TFF  X NUM=Q2-Q1  E:  (-16)  M:  (-15) 

TFFALFA  ALFA  E:  (26-NR)  M:  (24-NR) 

OMP  3D  SU 


0453 
A0454 
0455 
A?  456 
0457 
0 455 
3 459 

0460 

0461 
A0462 

0463 

0464 

0465 

0466 


ASSFMBLE  REVISION  56  IT  AGC  PROGRAM  ZERIINA  BY  ZOROASTER 
TIME  OF  FREE  FALL 

REF  4 LAST  1260  27,3516  0C041  1 

27,3517  5L406  1 SAVEOEN 


REF 

REF 


2 LAST  1266 


I AST  1266 


27,35 2D 

27.3521 

27. 3522 
27  ,3523 
27,3524 

27  ,3525 
27,  3526 
27,3527 
27,3530 


400  15  1 
17741  0 
57543  1 
65345  0 
06520  0 

57545  1 
00033  1 
71240  1 
57637  1 


PUSH 

OAD 


NR  MAG 
ABS 


BOV 
L IMI-22  ) 
TFFXTEST 
OLOAD  POOL 

T F F ZEROS 


OLOAD 
3 MN 


DCOMP 
TFFALF A 
OLOAD 
T FFEL1 
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RM  AG  E:  (-29+NR)  M:  (-27+NR) 

(2-RTERM  ALFA)  (-3)  FROM  PDL+O 
DEN  TO  PDL  + O E:  (-3)  OR  (-16) 

M:  (-3  ) OR  (-15) 

I NDE  TER  MI  NANCY  TEST 

= 1 .0-  B ( - 2 2 ) 

GO  IF  DEN  >/=  B ( -2 2 ) 

SFT  DEN=0  OTHERWI  SE 

XCH  ZERO  WITH  PDL+O 

ALFA  E:  (26-NR  > M:  ( 24-NR  ) 

FOR  TPER:  Z I NDET  AT  DELF/2=0  AND  90. 
ASSUME  90,  AND  LEAVE  0 IN  PDL  : 1/Z  = D/N 


77616  0 OU MPT  F F 1 RVO 


AO  46c> 

0470 

0471 
5472 
0473 
0 474 
5475 

0476 

0477 

0478 


REF 

REF 

REF 

REF 


2 LAST  1266 
2 LAST  1260 

2 LAST  1266 

3 LAST  1266 

2 LAST  1266 


27,  3532 
27,3533 
27,  3 5 ? 4 

27.3535 

27.3536 

27. 3537 
27  ,3540 
27,354 1 
27,  3542 


77745  1 
45345  1 
00C23  0 
000  15  0 
14043  0 
00C45  0 
520  15  1 
00017  1 
57517  0 


CALC  CONTINUES  HERE 


INBOUND  DLOAD 

OLOAD  DSU 

RTF  RM 


TF  F TF  M 
GO  TO 
TFFQ1 
SA  VFDEN 


| RESET  PDL+O 
ALTERNATE  Z CALC 
F:  (-29)  M:  (-27) 

F:  (-29)  M:  (-27) 
Nl)M=RT  ER M-R N E:  (-29) 
Q2  E:  (-16)  M:  (-15) 


04  70 
A34B0 
04B1 
0482 
5483 
< 484 
: 485 
0486 


LAST  1267 


27.3543 

27.3544 

27.3545 
27,  3=46 
27  ,3547 
27, 35Cf' 
27,  3SS  1 


77,3552 
LAST  1267  77,  3853 

27  ,3554 


65215  1 TFFXTEST  OAD  PODL 

17743  1 DP  ( - 2 

00043  0 TFFX 

5 3605  1 DMP  SR* 

000  31  0 TFFP.  T 

57201  0 0 -3  , 

77671  1 DDV 


40145 

00043 

57635 


OLOAD  BOV 
TFFX 
TFFELL 


(ABS(DEN)  T3  PDL  + 2))  E:  (-3)  OR  (-16) 
M:  (-3)  OR  (-15) 
RESTORE  ABS(DEN)  TC  MPAC 
NUM  E : ( — 16)  33  (-29)  M : ( - 1 5)  OR  (-27) 

SQRT(ALFA)  E:  (10+NA)  M:  (9  + NA) 

X 2= -N  A 

C(MPAC)  = NUM  SORT  (ALFA)  F:  (-3  ) OR  (-16) 
M : ( -3)  OR  (-15) 

ABS(OEN)  FROM  PCL+2  E:  ( - 3 ) OR  (-16) 

M : ( -3  ) OR  (-15) 

(THE  DLOAD  IS  SHAREO  WITH  TFFELL) 

NUM  E:  (-16)  CP  (-29)  M:(-l5)  OP.  (-27) 

USE  EQN  FOR  OF  LE  GFO  90,  LEO  -90 


04  94 
A ( 495 
A3  49  6 
04q  7 


, 3555  45471  1 


OTHERWISE,  CONTINUE  FCR  GENERAL 
00V  STADR 


CONIC  FOR  TFF  EQN 


DFN  FROM  PDL  + O E:  (-3)  OR  (-16) 

M:  (-3)  OR  (-15) 
Z SAVE  FOR  SIGN  OF  SDFLF. 


4 LAST  1267  ?7  ,3556 


77732  1 


STORF  TFFTTM 


GAP:  ASSEMBLE  REVISION  5ft  OF  AGC  PROGRAM  7ERL  IMA  BY  ZOROASTER 


L TIME  OF  FRFE  FALL 


A D 4 9 8 

0499 
0 500 
C501 
0502 
353"» 
0504 
0 50  5 

A3536 
A 0507 
9 50  8 

0500 
0510 
3 511 

0512 

0513 
3514 

A 0 51  5 
0516 
051  7 
(518 
3519 
A0520 
0571 
352? 
0523 
3524 
0525 
■ 52ft 
3527 

0528 

0529 


REF 


RFF 

PEF 


27  ,3557 
27  , 3560 

5 LAST  1266  27,  356  1 

27 ,3562 
27,  3 56  3 

c LAST  1267  27,  3564 

6 LAST  1268  27,3565 


634C6  0 
41206  C 
00035  1 
75261  C 
202C6  l 
0C045  0 
14045  0 


PUSH  OSO 
PUSH  DMP 

T=FNP 

SL  SIGN 

5 

TFFTFM 
STOOL  T F FT  EM 


PEF 


REF 


REF 


I AST  1267 
LAST  1267 


27,3566  4 1 2C  ft  C 

27,  3567  00033  1 

27,3570  77657  0 

27,  3571  202C1  0 

27,  3572  00043  0 

27,3573  41234  1 

27,  3 c74  57717  1 


PUSH  OMP 

TFFALFA 

SL  * 

0 ,1 

STORE  TFF  X 
RT  8 OMP 
T ( X) 


PEF  3 LAST  126  7 

RFF  3 I AST  1267 

REF  1 

REF  3 LAST  1267 

REF  1 

RTF  3 LAST  1263 

REF  2 LAST  1268 


27,3575  A A 302  0 

27,  3576  COC  23  0 

27,3577  41215  1 

27, 36C0  COC 1 5 0 

27,3601  51042  0 

27.36C2  57623  1 

27  ,3603  75206  1 

27,3604  00017  1 

27,  3 60 5 71244  0 

27  ,3606  57627  0 

>7,  36C  7 00027  l 

27.3610  51076  1 

27.3611  57627  0 


SR2  ROSU 

R TERM 
DAD  OMP 

RMAGl 

SR3  RPL 

ENDTFF 
PUSH  SIGN 

TFF01 
RPL  0 LOAD 

VEGTFF 
TFF1 / ALF 
OCOMP  8PL 

NEGT  FF 


A3533 


CORRECT  FOP  ORBITAL  PERIOD. 


0531 

0532 

0533  REF 

0534  PEF 
3535 

05  36 
0537 
3 53  8 
0539 
AO  54  0 
C 54 1 

0542  REF 
7543  REF 


27  ,3612  77676  0 

27,2613  662C5  0 

1 27,  36  14  17737  1 

3 LAST  1267  27,3615  00031  0 

27,  3616  53657  0 

27  ,3617  576C2  1 

27.3620  57602  1 

27. 3621  43257  0 

27  ,3622  57576  1 


OCOMP 

OMP 


SL* 


SL* 


ODV 
PI  /16 
T FFRT  ALF 
SL* 

0 -4,  2 
D -4,2 
DAD 


D,  2 


6 LAST  1260 


27. 3623 

27.3624 

27. 3625 


400 G 5 C 
0003  7 0 
57633  0 


ENDTFF 


OMP 


30V 

T FF/ RT  MU 
MAXTFF 


0544 


27  ,362b 


77616  0 DUMPTFF2  RVQ 
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E:  (-13)  M:  (-12) 

7 TO  PDL+O 

Z SQ  TO  POL  +2  E:  (-26)  M:  (-24) 

LC  P E:  (-38+2  NR)  M:  (-36+2NR) 


AFFIX  SIGN  FOR  SDELF  (FNTRY  DISPLAY) 
P Z S3  E:  (-59  + 2NR)  M:  (-55+2NR) 
(ARG  IS  US  ED  IN  T FF/TRIG) 

ZSO  FROM  PDL+2  F:  (-26)  M:  (-24) 

RESTORF  PUSH  LOC 

ALFA  E : (26-NR)  M:  (24-NR  ) 


XI  = -NR 


X 


POLY 

7 SO  FROM  POL+2  F:  (-26)  M : (-24) 
2 ZSO  T (X  ) F:  (-29)  M:  (-27) 
RTERM  E:  (-29)  M:  (-27) 

E:  (-29)  M:  (-27) 

Z FROM  PDL+O  E:  (-13)  M:  (-12) 
TFF  SORTTMU)  E:  (-45)  M:  (-42) 
(NO  PUSH  UP) 

TFF  SQRT(MU)  TO  PDL+O 
01  FOR  GONEPAST  TEST 
GONE  PAST  ? 

YES.  TFF  < 0 . 

1/ALFA  F:  (-22-2NA)  M:  (-20-2NA) 
ALFA  > 0 ? 

NO.  TFF  IS  NEGATIVE. 


YES.  CORRECT  FOR  ORP  PFPIOO. 

2 PI  (-5) 

SQRT(ALFA)  E:  ( 10+NA  ) M:  (9+NA) 
X2=-NA 


TFF  SORT  (MU)  FROM  PDL+O  E:(-45)  M:<-42) 
TFF  SORT  ( MU)  IN  MPAf  EM-45)  M:(-42) 

E:  (17)  M:  ( 14) 

SET  POSMAX  IF  OV  FL  . 


RETURN  TFF  (-28)  CS  IN  MPAC. 


I 


* 


GAP:  ASSFNBL6  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


TIME  of  free  fall 


'545 
A 0 54  6 
0 547 
0548 


RFF 


27,3627  77745  1 NEGTFF  DLOAO 


27,3630  77650  1 

LAST  1268  27,  363  1 57623  1 


GOTO 

END  TFF 


0549 

7560 

0551 


REF  4 LAST  1263 


27,3632 
27,  3623 
27,  3634 


77745  1 
43545  I 
17753  0 


DLOAD 

D LOAD  RVQ 

NEAR  ONE 


3 0552  TIME  ITF  FLIGHT  ELLIPSE  WHEN  DEL  (ECCENTRIC  ANO”)  GEQ  90  AND  L EQ  -90. 


A ^ 5 6 3 
A 0554 

0555 

0556 
A 0557 
AO  558 

0569 
0 560 

0561 

0562 
AO  56? 

0564 

0565 

0566 

0567 

0568 
0 569 
0 5 7 < 

0571 

0572 

0573 

0574 
05  76 
0 576 

0577 

0578 

0579 
05  80 

• , , 

A 05  8 2 
A 05  83 
C584 

0585 

0586 

0587 
05  88 

0589 

0590 
05  91 


27.3635 

27. 3636 


77712  0 TFFELL  SL2 
4 1465  0 30D  V PUSH 


RFF 

REF 

REF 


7 LAST  1268 
LAST  1268 


27,3637 
27,3640 
27,  364  1 
27  ,3642 


45346  1 
00045  0 
00017  1 
140 13  0 


TFFEL1  DLOAD 


STOOL 


DSU 

T F FT  EM 

TFFOl 

TFFOELQ 


REF 

RFF 

RFF 

PFF 

RFF 

RFF 

RFF 

R EF 


8 LAST  1269 
4 LAST  1268 

9 l AST  1269 

15  LAST  1209 

6 LAST  1268 

2 LAST  1268 

7 LAST  1269 


27,  3643  77626  0 

27  ,3644  7773?  1 

27,  3645  5 36C5  1 

27. 3646  OC027  1 

27.3647  57576  1 

27,  3660  41206  0 

27  ,3651  00045  0 

27,3652  41057  0 

27,  3653  57  576  1 

27,3654  21674  1 

27, 3665  CCC43  0 

27.3656  41234  1 

27.3657  57717  1 

27, ^660  0CC43  0 

27  ,3661  45242  1 

27,3662  17745  1 

27,  3663  41405  0 


STADR 

STORE  T F FT  EM 
DMP  SL* 

TFF  l/ALF 

0.2 

PUSH  DMP 

TFFTFM 
SL*  BOV  B 

. 

S IGNMPAC 
STORE  TFFX 
RTR  DMP 
T IX  ) 

TFFX 

SR  3 DSU 

DP2 (-3  ) 
DMP  PUSH 


REF  10  l AST  1269 
REF  4 LAST  1268 

REF  5 LAST  1269 
REF  11  LAST  1269 
RFF  6 LAST  1268 


27,3664  41345  0 

27,  3665  C0C45  0 

27  ,3666  000  15  0 

27,3667  43312  C 

7 17  1 

27,3671  14045  0 

27,  3672  CCC35  1 

27,  3673  53605  1 


DLOAD  DMP 

TFFTEM 
RMAG1 
SL2  DAD 

TFFOl 

STOOL  TFFTEM 
TFFNP 

DMP  SL* 
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USER  'S  PAGE  NO.  13  E 0 S3 

TFF  SORT(MU)  FROM  PDL+O,  NEGATIVE. 

RESET  PDL 


MJM  FROM  TFFX.  E:  (-16)  OR  (-29) 

M:  (-15)  OR  (-27) 

NUM  E:  (-14)  OR  (-27)  M : ( - 13)  OR  (-25) 
TEMP  SAVE  D/N  IN  PCL+O 

DEN  FROM  PDL  + O F:(-3)/(  16)  M : ( -3)  / (— 1 5 ) 

N/0  TO  PDL+9  E:  (11)  M:  ( 10 ) 

(ENTER  WITH  0/N=0  IN  PDL+") 

02  E:  (-16)  M:  (-15) 

Ql  E:  (-16)  M:  (-15) 

Q 2-0 1 E:  (-16)  M:  (-15) 

0/N  FROM  PDl  +0 

D/N  E : (11)  M:  ( 10) 

1/ALFA  E:  (-22-2NA)  M:  (-20-2NA) 

1/ALFA  Z E:  (-11-NA)  M:  (-1Q-NA) 

TO  PDL+O 

l/Z  E : ( 11)  M:  (16) 

X 2=  -NA 

IN  CA  SE  X=  1.  0,  CONTI  NUE 
X =1  / AL  F A ZSQ 

POL  Y 


2 ( X T(X)-l)  /Z  ALFA  E:  (-15-NA) 

M:  (-14-NA) 

1/ALFA  Z FROM  P a +0  E:  (-11-NA) 

M:  (-10-NA) 

GET  SIGN  FOR  SOELF 
1/Z  E:  (11  ) M:  (10  ) 

E:  (-29)  M:  (-27) 

Ql  E:  (-16)  M:  (-15  » 

(Ql+R  1/Z)  = SGN  OF  SOELF  EM-16)  M:(-15 

LC  P E:  l -38  +2 NR  ) M:  (-36  + 2NR) 

CALC  FOR  ARG  FOR  TFF/TPIG. 


GAP: 


ASSEMBLE  P FV  IS  ION  c6  OF  AGC  PROGRAM  ZERLINA  BY  ZQRUA  STFR 


L TIMF  OF  FREE  FALL 


C 594 
3 595 
0596 
r 507 


A(  5 OR 
0590 
0533 
06  0 1 
060? 
A)S3^ 
A 0604 

0605 

0606 
06C7 
3608 

0609 


0610 

3611 

0612 

0613 


FFF 

REF 

PEF 

PFF 

RFF 


PFF 

REF 

R FF 


5 I AST  1269  27,  3674 

27,  3675 
27,3676 

12  LAST  1269  27,  3677 

? 7 ,3703 

1?  LAST  127C  2 7 , 3 7C  1 


53765  0 
C0G45  C 
57576  1 
14C45  0 


TF  F 1 / A LF 

1, 2 

SIGN  SL* 

TFFTEM 

' , 2 

6TCQL  TFFTEM 


6 LAST  1270  27,3702  00027  1 

27,  37C3  41366  1 

2 LAST  1263  27,  3704  17737  1 

27,3705  77615  " 


TFF1/ALF 
SORT  DMP 

PI  /16 

DAC 


? 7 , 3 7C6  A 6 2 6 7 0 

27,  3707  37577  0 

2 LAST  1269  27,3710  00013  0 

27, 3711  536C5  1 

7 LAST  1270  27,3712  00027  1 

27,3713  57601  1 

27,  3714  52C57  1 

27,3715  57602  1 

3 LAST  1269  27,3716  57623  1 


SL*  DSU 

0 -1  ,2 
F FFDELO 
DMP  SL* 

TF  F 1 /ALF 
3 -3,  2 
SL*  GOTC 

0.  -4,  2 
ENDTFF 
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USER  • S PAGE  NO.  14  EG  S3 

1/ALFA  E:(-22-2NA)  M:(-2C-2na> 

X2=-NA 

AFF  IX  S IGN  FOR  S DEL  F 

P/ALFA  F:  ( -CQ4-2NR  ) M : (- 55+2NR  > 

( ARG  FOR  US  E I N TFF/TR IG) 

1/ALFA  E:(-22-2NA)  M:(-20-2NAl 

PI  (-4) 

2 CXT(X  ) — 1 )/  7 ALFA  FROM  POL  F:(-15-NA» 

M : (-14-NA) 

Q 2-0  1 P:  (-16)  M:  (-15) 

1/ALFA  F:(— 22— 2NA1  MM-20-2NA) 

T FF  S QRT  (MU  1 IN  MPAC  E:<-45)  M:(-42> 


GAP:  ASSFM8LE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  OY  ZOROASTER 
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L TI  ME  OF  FREE  FALL 


USER  • S PAGE  NO.  15  EO  S3 


P'  614 
R0616 
1 0618 
R0619 
R0621 
l 062? 
R0623 


PROGRAM  NAME  : T(  X) 

ROD  NC:  d 

MOD  BY:  RR  BAI RNSFATHER 

FUNCTIONAL  DESCRIPTION:  THE  POLYNOMIAL  T(  X) 

CALCTPEP  TO  APPROXIMATE  THE  SERIES 
2 3 

1/3  -X/5  +X  / 7 -X  /9  ... 


DATE:  0 1.17.67 

LOG  SECTION:  TIRE  CF  FREE  FALL 


IS  USED  BY  TIME  OF  FLIGHT  SUBROUTINES  CALCTFF  AND 


R 0624  WHERE  X = ALFA  7 7 IF  ALFA  Z Z LEO  1 

R0625  X = l/IALFA  Z Z ) IF  ALFA  Z Z G 1 


R0626  ALSC  X IS  NEG  FOR  HYPERBOLIC  ORBITS 

1 0627  X = 0 FOR  FARAeCLIC  ORBITS 

R3628  X IS  POSITIVE  FOR  ELLIPTIC  ORBITS 

R0629  FCR  FLIGHT  273  » THE  POLYNOMIAL  T ( X ) IS  FITTED  OVER  THE  RANGE  (0,+l)  AND  HAS  A RAXI  MUM 

* '631  DEVIATION  FROM  THE  SERIES  OF  2 E-5  (T  IX  I IS  A CHEBYCHEV  TYPE  FIT  AND  WAS  OBTAINED  USING 

RI^O  MAC  PROGRAM  AUT CUR F I T /94RRB  AND  IS  VALID  TO  THE  SAME  TOLERANCE  OVER  THE  RANGE  (-.08, +1).  ) 

R 0635  CALLING  SEQLENCF : RTR 
R0636  T ( X) 

RC637  C (MPAC  ) = X 

<<*'638  SUBROUTINE  S CALLED:  NONE 

R3639  NORMAL  EXIT  MODE:  TC.  DANZIG 

R064P  ALARMS:  NONE 

R064I  OUTPUT:  C(MPAC)  = T(  X) 

R3 64 2 ERASABLE  INITIALIZATION  REQUIRED: 

10643  C ( MPAC)  = X 

R0644  DFBRIS:  NONE 


064  5 

REF  7 LAST  1180 

2 7,3  717 

0 7234 

0 

0646 

2 7,3720 

00004 

0 

3647 

27,  3721 

12525 

0 

0647 

27  ,3722 

12525 

0 

0648 

27,3723 

71463 

0 

0648 

27, 3724 

57703 

1 

0649 

27  ,3725 

04  423 

0 

3649 

27,  3726 

17645 

0 

0650 

27,  3727 

746  04 

0 

0650 

27,3730 

43667 

1 

365  1 

27,  3731 

C 1 6 2 6 

1 

0651 

27  ,3732 

37256 

1 

0652 

27,3733 

77404 

1 

0652 

27, 3734 

5 2t  71 

0 

0653 

RFF  63  l A ST  1202 

27  ,3735 

0 6073 

0 

3654  RFF  1 27,  3735 


T ( X ) TC  POLY 

DEC  4 N-l 

2QEC  3.  333333333  E-1 

2 DEC*  -1  .999819135  E-1  * 

2 DEC*  1 .418  148467  E-l  * 

2DEC*  - 1.01310997  E-l  * 

20EC*  5.609004  986  E-2  * 

2 DEC*  -1  .536156925  F-2  * 

ENCT  (X  ) TC  DANZ  IG 

TCDANZIG  = ENDT(X) 
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SK  IPPEP 


PAGE  1272 


L TINE  CF  FREE  FALL 

5 0655  TFF  CONSTANTS 
3656  32,  372-3 


C657  PFF  2 LAST 
0658 


' • 

27,3736 


.121 

USER'  S PAGE  NC.  16  ED  S3 

BANK  32 

SETLOC  TDF-FF1 
BANK 


A065 ° NOTE  _ NOTE  _ ADJUSTEC  MUE  FOR  NEAR  EARTH  TRAJ. 

A 066'  MIJ  E = 3.990  815  971  E10  M CUBE/C  S SO 

A3 66 1 RTMUE  = 1.997702549  E5  B-1p*  MOCIFIED  FARTHMU 


A 0663 


NOTE  _ NOTE  _ ADJUSTFP  MUE  F CP  NEAR  EARTH  TRAJ. 


A 664 


MUM  = A .902  778  E8  M CUBE  /CS  SO 


A0665 
C 666 
3566 
0567 

0667 
3668 

0668 

0669 
066  9 

0670 
3673 

R0671  R P AD  1 


27,3736 
27,  3737 
27,  3740 
27,3741 
27,  3742 
27  ,3743 
27,:  744 
27,  37<,5 
27  ,3746 
2 7,  374  7 
2 CEC  6373338  B-29 


RTMUM  2DCC*  2.  21422176  E 

06220  1 PI/16  2 OEC  3.141592653 

37553  0 

37777  1 L IM ( - 2 2 ) 20CT  37777  37700 
37700  1 

CCCOO  1 0 P ( - 22)  20CT  0.0000  OOlOO 

1 D 

04000  0 DP2(-3)  ? CEC  1 R-3 

00000  1 

02000  0 DP2  1-4)  2 DEC  1 B-4 

CCCOO  1 

M (-29)  =20  909  901.  57  FT 


1.0  -Bl-22) 
EC-22  ) 


1/16 


0672 
3673 

0673 

0674 
06  74 

0675 
D676 


REF  4 LAST  711  23,2335 

27,  3750 
27  ,3751 
27,3752 
27,  375.3 

REF  17  LAST  1238  23  ,2517 

REF  1 23,  2507 


R P ADI 

00305  1 R 30OK  2DEC 
11205  0 
37777  1 
37777  1 


K-P  AO 

6464778  B-29  (-29  ) M 

.999999999 


NEARONE  2 DEC 


TFF7ER0S  EQUALS  HI6ZEP0S 
TFF1  / 4 EQUALS  HI  DPI  /4 
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AGC  BLOCK  TWO  SELF-CHECK  USER'S  PAGE  NC.  1 EO  S3 

ROOOl 
Rood 
* 0005 
R3337 

PROGRAM  DESCRIPTION  DATE  20  DECEMBER  1967 

PROGRAM  NAME  - SELF-CHECK  LOG  SECTION  AGC  BLOCK  TWO  SELF-CHECK 

MOD  NO  - 1 ASSEMBLY  SUBROUTINE  UTI  LI  TYM  REV  25 

MOD  BY  - GAUNTT 

ROOOR 

FUNCTIONAL  DESCRIPTION 

* 0009 

RD  Dll 

R 00 1 3 

ROO  14 

Ron  5 

R 0020 
R3222 
R0O24 
< 00  26 
R0D2R 
R0032 
R0033 
R33  34 
< 0036 

R 0037 

PROGRAM  HAS  TWO  MAIN  PARTS.  THE  FIRST  IS  SELF-CHECK  WHICH  RUNS  AS  A ZERO  PRIORITY  JOB  WITH  NO  CORE  SET,  AS 
PART  OF  THE  BACK-UP  IDLE  LOOP.  THE  SECOND  IS  SHOW-BANKSUM  WHICH  RUNS  AS  A REGULAR  EXECUTIVE  JOB  WITH  ITS  OWN 
STARTING  VFPB. 

THF  PURPOSE  OF  SELF-CHECK  IS  TC  CHECK  CUT  VARIOUS  PARTS  OF  THE  COMPUTER  AS  OUTLINED  BELOW  IN  THE  OPTIONS. 
THE  PURPOSE  OF  SHOW-BANKSUM  IS  TO  DISPLAY  THE  SUM  OF  EACH  BANK  , ONE  AT  A TIME. 

IN  ALL  THERE  ARE  7 POSSIBLE  OPTIONS  IN  THIS  BLOCK  II  VERSION  OF  SELF-CHECK.  MORE  DETAIL  DESCRIPTION  MAY  BE 
FOUND  IN  E-2065  BLOCK  II  AGC  SELF-CHECK  AND  SHOW  BANKSUM  BY  EDWIN  D.  SMALLY  DECEMBER  1966,  AND  ADDENDA  2 AND  3. 

TH  P DIFFER  FNT  OPTIONS  ARE  CONTROLLED  BY  PUTTING  DIFFERENT  NUMBERS  IN  THE  SMODE  REGISTER  ( NOUN  27).  BELOW  IS 

A DESCRIPTION  OF  WHAT  PAPTS  CF  THE  COMPUTEP  THAT  ARE  CHECKED  BY  THE  OPTIONS,  AND  THF  CORRESPONDING  NUMBER,  IN 
OCTAL,  TO  LOAD  INTO  SMODE. 

+ -4  E P A S A El  E MEMORY 

+— 5 FI  XED  MEMOR  Y 

+ -1,2,3,6,7,13  EVERYTHING  IN  OPTIONS  4 AND  5. 

-C  SAME  AS  +-1C  UNTIL  AN  FFRCR  IS  DETECTED. 

+0  NO  CHECK,  POTS  COMPUTEP  INTO  THE  BACKUP  IDLE  LOOP. 

R003R 

WARM  NGS 

<0039 

R3341 

USE  Of  H MFMOPY  RESERVED  F CR  SELF-CHECK  (EVEN  IN  IDLE  LOOP)  AS  TEMP  STORAGE  BY  OTHER  PROGRAMS  IS  DANGEROUS. 
SMODE  S FT  GREATER  THAN  OCT  1(3  PUTS  COMPUTER  INTO  BACKUP  IDLE  LOOP. 

R 0042 

CALLING  SEQUENCE 

R3043 

R 0044 
< 0047 
R)3*8 
ROO  49 

TO  CALL  SELC -CHECK  KEY  IN 

V 21  N 27  E OPTION  NUMBER  E 

TO  CALL  SHOW-BANKSUM  KEY  IN 

V 91  E DISPLAYS  FIRST  BANK 

V 33  E PROCEEC,  DISPLAYS  NEXT  RANK 

^R00  50 

EXIT  MODES,  NORMAL  AND  ALARM 

R0051 

< 0053 

R 3 3 54 

R 0057 

< 0059 

SEIF-CHECK  NORMALLY  CONTINUES  INDEFINITELY  UNLESS  THERF  IS  AN  ERROR  DETECTED.  IF  SC  + CPT  ION  NUMBERS  PUT 
COMPUTER  INTO  BACKUP  IDLE  LOfP,  - OPTION  NUMBERS  RESTART  THE  OPTION. 

THF  -0  OPTION  ° R 0 C F E D S FROM  THF  LINE  FOLLOWING  THE  LINE  WHERE  THE  ERROR  WAS  DETECTED. 

SHOW-BANKSUM  PROCEEDS  UNTIL  A TERMINATE  IS  KEYED  IN  IV  34  E).  THF  COMPUTFR  IS  PUT  I NT  C THE  BACKUP  IDLE  LOOP 

R0060 

CUT  PUT 

GAP: 
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9 0361  SEIF-CHFCK  UPON  DETFCTING  AN  ERROR  LCAOS  THE  SELF-CHECK  ALARM  CONSTANT  (Oil*?)  INTO  THE  F A I L PEG  SET  AND 

R3'*3  URNS  ON  THE  AL  APM  LIGHT.  THE  OPERATOR  MAY  THEN  DISPLAY  THE  THREE  FAILREGS  BY  KEYING  I N V 05  N 09  E.  FOR  FURTHER 

RGC  65  INFORMATION  HE  MAY  KEY  IN  V 15  N 08  E,  THE  CSKY  DISPLAY  IN  R l WILL  BE  ADORE  SS*  1 OF  WHERE  THE  ERROR  WAS  DETECTED, 

RO  *7  IN  R?  THE  B 3C  ON  OF  SEL;-CHECK,  AND  IN  R3  THE  TOTAL  NUMBER  CF  ERRORS  OFTECTEO  BY  SELF-CHECK  SINCF  THE  LAST  MAN 

RPC69  INITIATED  FPESH  START  (SIAPl). 

1 no  73  SHOW-BANKSUM  STARTING  WITH  E ANK  CISPLAYS  IN  R1  THE  HANK  SUM  (A  +-NUMBER  EQUAL  TO  THE  BANK  NUMBFR),  IN  R2 

R3?75  THE  BANK  NUMRER,  AND  IN  R 3 THE  BUGGER  WORD. 


R 0076  ERASABLE  INITIALIZATION  RECUIREC 

R0077  ACCOMPLISHED  BY  FRESH  START 

RD378  SMODE  SET  TO  +0 


1 0079  PEBP  I S 


93383 
R 00  82 
9 00  86 


AL  I EXITS  FROM  THE 
EXCE  PT  IGNIS  A RFST  ART  . 
E MEMORY,  IN  WHICH  CASE 


CHECK  OF  ERASABLE  (ERA  SC  H K ) RESTORE  ORIGINAL  CONTENTS  TO  REGISTERS  UNDER  CHECK. 

RESTART  THAT  OCC’JRS  DURING  FRA  S C H < RESTORES  ERASABLE,  UNLESS  THERE  IS  EVIDENCE  TO  OOU  BT 
PROGRAM  THEN  ODES  A FRESH  START  (COFSTART). 


3 385 

008*  RFF 


25,3767  BANK  25 

63  ,2000  SETLOC  SELFCHEC 


0087 


A3,  3231 


BANK 


00  88 
Of  89 
3393 

0091 

0092 

0093 
0096 
3395 

0096 

0097 
3393 
0099 
0 100 

0101 

0102 
3133 


REF  1 
PFF  51  LAST 
RFF  66  LAST 
RFF  33  LAST 
RFF  39  LAST 
PFF  4C  LAST 
REF  66  LAST 
RFF  3°  LAST 
RFF  6 1 LAST 
RFF  2 5 LAST 
REF  62  LAST 
REF  29  LAST 
REF  30  LAST 
REF  63  L AST 
REF  73  LAST 
REF  62  LAST 


1090  4753 

1090  4752 

1090  4751 

1090  4750 

1035  4747 

1047  4746 

1087  4745 

1256  4744 

<574  4 743 

1090  4742 

1090  4741 

1 C90  4740 

1090  4737 

1250  4736 

109Q  4735 


SBIT1 
SRI  T 2 
SB  IT  3 
SB  I T4 
SB  I T 5 
S6IT6 
SB  I T7 
SB  IT fi 
SBIT9 

SBI TlO 
SB  IT  11 
SBI  T12 
SB  IT  13 
SR  IT14 
SB  I Tl 5 


COUNT* 
EQUALS 
EQUAL  S 
FQUAl  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 


BIT  1 
BI  T2 
R I T 3 
BIT4 
BI  T5 
B IT  6 
BI  T7 
31  T 8 

HIT9 

BI  TlO 
R I T 1 1 
6IT12 
31  Tl  9 
P IT  14 
BI  Tl 5 


0104 

0 10  5 
3 136 
0107 
0 108 

0 1 09 
0110 


RFF 

REF 

REF 

REF 

PFF 


LAST  12L6 
LAST  1274 
LAST  1274 
I AST  1252 
LAST  1256 
LAST  1r 
LAST  1253 


4755 
4753 
47  5 2 
6257 
47  5 1 

4756 
6254 


S+ZERO 
S+l 
S+  2 
S+3 
S+4 
S + 5 
S +6 


EQUALS  ZERO 
EQUALS  B IT  1 
FQUAL  S BI  72 
EQUALS  THREF 
EQUALS  FOUR 
EQUAL  S FI  VE 
EQUALS  S IX 


TAP: 
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0111 

0112 
D 1 1 3 
OlH 
0 115 
1116 
0117 

0 hr 

011  9 
ni2^ 

1 121 
0122 
0 123 
1124 
C 1 25 
0 126 
0127 

012  8 
3 129 
0130 
0 131 
3132 
0133 


REF 
RTF 
P EF 


REF 


REF 

RFF 

REF 


REF 

REF 

REF 

REF 

RFF 

RFF 


10  LAST  1090  4757 

15  LAST  1254  4357 

3 LAST  309  4771 

43.3231 

43.3232 

9 LAST  1254  5007 

43  ,3233 
43,3234 

20  LAST  10 1 5 50  12 

3 LAST  097  5020 

7 LAST  1090  4350 


43.3235 

43.3236 

43.3237 
43  ,3240 
43,3241 
4 3,  3242 

2 LAST  240  5661 

2 LAST  999  6 124 

4 LAST  875  7757 

R LAST  l C94  7760 

13  LAST  1090  7761 

23  LAST  908  4754 


00061  0 
01373  1 

01461  0 
Cl  773  0 


00060  1 
60017  1 
17777  0 
25252  0 
524CC  l 
76777  1 


S+7 

SR  BITS 
CNTRCON 
ER  ASCI1N  1 
ERASC0N2 
ERA  SCON  6 
ERASC0N3 
ERASC0N4 
S 1 CB  I T S 
SPNK03 
-MAXADRS 
S I XT  Y 
SU  PRC  ON 
S 1 3BI  TS 
C0NC+S1 
CONC+  S2 
ERA  SCON  5 
S-7 
S-4 
S-3 
S-2 
S-  1 

S-ZERO 


SE  VEN 
LOW  8 
0CT5  0 
00061 
01373 
OC  T1400 
01461 
01773 
L0W1G 
PR  1 06 
HI  5 
00060 
50017 
1 7777 
25252 
52400 
76777 
OCT  77770 
NEG4 
NEG3 
NEG2 
NEGONE 
NEGO 


EQUAL  S 
EQUALS 

OCTAL 

OCTAL 

OCTAL 

OCTAL 

EQUALS 

EQUALS 

OCTAI 
OCTAL 
OCTAL 
OCTAL 
OCTAL 
OC  TAL 

EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 


im 

0 136 

A'  137 
A 0 1 38 
AO  1 3° 


R FF 
RFF 
RFF 


46  LAST  1123 
1 LAST  296 
4 LAST  1107 


E 3,  1400 
4 3,  32  43 
43,3244 


EBANK=  LST1 

01371  0 A0RS1  AORES  SKEEPl 
03335  1 SE  LF AO RS  AORES  SELFCHK 


014  0 
0141 
114? 
Ol  4 3 
0144 
1145 
0146 
U 147 
Ol  48 
i'  1 49 
1151 
0 1 5 1 

0 152 
1153 
0154 

1 156 
l 155 
0157 
1158 


REF  6 
REF  1 

REF  3 
RFF  3 

REF  2 
REF  7 


REF  324 
REF  3 
RFF  3 
REF  3 
REF  1 

REF  5 
REF  3 
REF  6 


LAST  222 


LAST  222 
LAST  222 

LAST  295 
LAST  1275 

LAST  120  3 
LAST  479 
LAST  310 
LAST  218 


LAST  310 
LAST  1275 
LAST  1275 


43,  3 245 
43,3246 
43,  3247 
43,  32  50 
43,3251 
43,  3252 
43  ,3253 
43  ,3254 
4 3,  3 255 
43  ,3256 
43,  3257 
43,  3?60 
43,^261 
43,  3262 
43  ,3263 
43  ,3  264 
4 3,  3 265 
43  ,3266 
42,  326  7 


3 1260  0 
0 0006  1 

1 3256  1 
C 0006  1 
3 1376  l 
51*377  0 
52  00  1 1 
3 4755  1 
' 

0 9004  0 
3 CCC2  0 
55*357  0 
55 ' 363  1 
25*365  0 
C 5602  0 
01102  0 
11*362  0 
3 4755  1 
55*362  0 


PR FRR3R  S CA  ERE  STORF 

EXTEND 

BZF  ERRORS 

FXTEN9 

OCA  SKEEP5 

INDEX  SKEFP7 

QXC.H  0000 

CA  S+ZERO 

TS  EKE  STORE 

ERRORS  IN  HINT 

CA  0 

TS  SFAIL 

TS  ALMCAOR 

I NCR  ERCCUNT 

T C AL  ARM 2 TC  AL  ARM  2 

OCT  01102 

CC  S SMODE 

SIDLOOP  CA  S+ZERO 

TS  SMODF 


< 
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00377 

US  E 0 IN  CNTPCHK 
USED  IN  FRASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
01777,  USED  IN  ERASCHK 
06000,  USED  IN  ROPECHK 
FOR  ROPECHK 


USED  IN  ROPECHK 

USED  IN  CYCLSHFT 
USED  IN  CYCLSHFT 


SELFCHK  RETURN  ADDRESS.  SHOULD  BE  PUT 
IN  SELFRET  WHEN  GOING  FROM  SELFCHK  TO 
SHOUSUM  AND  PUT  IN  SKEEPl  WHEN  GOING 
FROM  SHOWSUM  TO  SFLF-CHFCK. 

IS  IT  NECESSARY  TO  RESTORE  ERASABLE 
NO 


RESTORE  THE  TWO  ERASABLE  REGISTERS 


SAVE  Q FOR  FAILURE  LOCATION 

FDR  DISPLAY  WTTH  BBANK  AND  ERCOUNT 

KEEP  TRACK  CF  NUMBER  OF  MALFUNCTIONS. 

SELF-CHECK  MALFUNCTION  INDICATOR 


GAP: 
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16  1 
0 16  7 
->163 
( 164 
165 
«'1  65 


REF  371  LAST  1253  43,3272  10  000  0 


PFF 
REF 

RFF  372  LAST  1276 
REF  3 LAST  1276 
REF  325  LAST  1275 


43,3273  1 3245 

LAST  1276  43,  3274  1 3245 

43  ,3275  10  000 

63,3276  1 3245 

',3,  3 277  C 0 C 0 2 


CCS  A 

TCF  PRERRORS 

TCF  PPFRRORS 

CCS  A 

TCF  PRERRCRS 


167 
7 1 4 R 
0169 
0 170 
3171 
• 17? 

173 
r 1 74 
0175 


RFF 
REF 
REF 
REF 
REF 
R EF 
REF 
PFF 


4 l AST  1275 


7 LAST  1275 


LAST  1276 
LAST  HI 
LAST  1276 


43,3300 
43,  33 C 1 
43  ,3302 
43,3303 
4 3,  3 30  4 
43  ,3305 
43, 3306 
4 3,  3 30  7 
43  ,3310 


C 0006  1 
22*371  n 
0 3331  0 
11' 36  2 0 
r 3311  1 
C 3302  0 
C 3311  l 
2 5*366  0 
0 1371  0 


SKEF  Pi 
CHECKNJ 
SMODF 
SOPH  ONS 
SMOOECHK 
SCPT1  CAS 
SCOUNT 
SKEEP1 


2 176 
<-177 
178 


RFF 

RFF 

REF 


43,  33  1 1 
43  ,3312 
43  ,33  1 3 
43,  3314 
43  ,3315 
43,  3316 


f 5661  0 
0 0006  1 
6 3315  0 
0 2266  0 
2 5 ' 366  0 
6 4757  0 


S-7 


BNKOPTN  TC 


T 184 
0185 

0 1R6 

01  87 
C 1 88 
313  9 
ol  90 
0101 


RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 


LAST  1276 
LAST  1276 
I A ST  1276 


I AST  1 ?7  6 
LAST  1276 
LAST  1276 


43,3317 
4 3,3320 
4 3,  .3  3 2 1 
, 

43,3323 

, , 

43  ,3325 
43,  3326 
4-3,332  7 

43,3330 


5C  000  1 
C 3321  1 
0 1371  0 
C 1371  0 
C 1371  0 
C 3336  1 
0 3517  1 
C 1371  C 
0 1371  0 
0 1371  0 


TC 

S0PT10N1  TO 
SDPT  ION  2 TO 
SCPTI0A3  TC 
S0PTI0N4  re 
S0PTI0N5  TC 
S0PTI0N6  TC 
S0PTI0N7  TC 
S OPT  ONTO  TC 


S OPT  I ONI 

SKEEPl 

SKEEP  1 

SKEEPl 

ERASCHK 

R.OPECHK 

SKEEPl 

SKEEP  1 

SKEEPl 


3192 
• 193 
C 194 


PFF 
R EF 
REF 


l AST  1107 
L A ST  114  8 
I AST  1 1D  1 


4 3,  3 334  022  16  1 


CHECKNJ  EXTEND 

QXCH  SELFRET 
TC  POSTJUMP 

0AD3  A 3 VAN 


LAST  1276  43,3335  C 3300  1 SELFCHK  TC 


R3197 
P 0198 
3 0 199 

R3  2 33 
3 0201 


SKEEP7  HOLES 
SKEEP6  HOLDS 
SKEEP  5 HOLDS 
SKEEP4  FOLDS 
SKEEP3  HOLDS 


LOWEST  OF  TWO  ADDRESSES  BEING  CHECKED, 
e (X+l  1 . 

B ( X)  . 

C ( FRANK  > DURING  ERASL03P  AND  CHECKNJ. 

LAST  ADDRESS  EE  I AG  CHECKED  (HIGHEST  AODRESS). 
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GO  TO  IDLE  LOOP 
CONTINUE  WITH  SELF-CHECK 


CHFCK  FOR  NEW  JOB 

2 TO  BACKUP  IDLE  LOOP 

CONTINUE  WITH  SELF-CHECK 


FOR  OPTIONS  BELOW  NINE. 

I LI  EG AL  OPTION.  GO  TO  TOLE  LOOP. 
FOR  OPTIONS  BELOW  NINE. 


WAS  TC+TCF 
WAS  I N :0UT1 
WAS  COUNT  CHK 


CONTINUE  WITH  SELF-CHECK 

SAVF  RETURN  ADDRESS  WHILE  TESTING  NEWJOB 
TO  SEE  IF  ANY  JOBS  HAVE  BECOME  ACTIVE. 

**  CHARLEY,  COME  IN  HERE 


< 
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ACC  BLOCK  TWO  SELF-CHECK 


R0202 

*0204 

3235 

0206 

' 

3238 
0209 
3 210 
0211 
0212 
3213 


SKFEP2  CONTROLS  CHECKING  OF  NON-SW I T CHARL  F ERA  SABLE  MEMORY  WITH  BANt 


ERA  SC  FI  K TAKES  APPRCX  MAT  ELY  7 


REF 
REF 
REF 
RFF 
REF 
RFF 
REF 
RFF 
R CF 


LAST  295 
LAST  295 
LAST  1275 
LAST  1256 

LAST  1275 

LAST  29  5 


3,  3336 
43,3337 
43,3340 
43,  3 34  1 
, 

43,3343 
4 3,  3 34  4 
43,3345 
43,  3346 


IECCNDS 
3 4753  1 
55*372  1 
3 4755  1 
54  CO 3 0 
3 3233  0 
5 5*  377  1 
5012  1 
55 ' 373  0 
C 3366  1 


ERASCHK  CA 


S+1 

SKEFP2 
S +ZERO 
E8ANK 
ERA  SCON  3 
SKEEP7 
S10BI  TS 
SKEEP3 
ERASLOOP 


214 

0215 

0216 
0217 
0 218 


REF 

REF 

REF 

RFF 

REF 


43,3347 

i . 

43,  335  1 
43  ,3352 
43,3353 


3 5007  0 
55*377  1 
2 5012  1 
55*373  0 
C 3366  1 


E134567B  CA 


ERA  SCON  fc 
SK  EFP7 
. SlOBI  TS 
SKEFP  3 
ERAS  LCGP 


0219 

0220 
0 221 
0222 
*22  3 


REF 

REF 

RFF 

RFF 

REF 


LAST  1277 
LAST  1277 


43,  3354 
43,3355 
43,  3356 
43,3357 
43,3360 


- 50  C 7 0 
55' 377  1 
2 3234  1 
55*373  0 
0 3366  1 


2EBANK  CA 


EPA  SC  ON 6 
SKFEP7 
E RASCCN4 
SKEFP  3 
ERASLOOP 


0224 

0225 

0226 
'22  7 
0228 


REF 

REF 

REF 

REF 

RFF 


LAST  1277 
LAST  1277 


43,  3361 
43  ,3362 
42,  3363 
4 3,  3 364 
43,3365 


55*272  1 
3 3231  I 
55*  377  1 
2 32  3 2 1 
5 5 ' 3 73  0 


NOEBANK  TS 


SKEEP2 
ERASCON  I 
SKEEP7 
ERASC0N2 
SKEEP3 


0229 

0230 

0231 

0232 

0233 

0234 

0235 
n 236 
1237 

0238 

0239 

0240 

0241 

0242 
024  3 

0244 

0245 

0246 

0247 

0248 


LAST  1277 
LAST  222 


RFF  8 

RFF  4 
REF  o 
REF  P 
REF  250 
RFF  ?C1 
RFF  774 

RFF  10 
RFF  11 


LAST  1275 
LAST  1277 


LAST  1277 
LAST  1277 

LAST  1277 


43, 3 366 
43  ,3367 

43.3370 

43. 3371 
43  ,3372 
43, 3373 
4 3,  3 374 
43  ,3  3 75 
43, 3376 
43  ,3377 
43  ,3400 
43,  14(  1 
43  ,3402 

• 

43, 3404 

• , 

43,  1 4 C 6 

. 

43  ,34  10 
' 1 


0 C C i A 0 
3 0003  l 
5 5*  374  1 
C 0006  1 
5 1377  0 
3 0CC1  0 
5 3 ' 376  0 

3 1377  0 
5 5 ' 36  0 1 
54  001  1 
24  001  0 
5C  000  1 
52  001  1 
51*377  0 

4 0001  l 
51 ' 377  0 
fc  COCO  1 
0 3272  0 
3 1360  0 
C 0006  1 


FRA  SLOOP  INHINT 
CA 
TS 

F X Tc  N 3 

NDX 

OCA 

OXCH 

CA 


TS 


SK  EEP7 
3300 
SKEFP5 
SK  EEP7 
ERESTCPE 


3000 

SKEEP7 

0001 

SK  EEP7 
0000 
- 1C  HK 
ERESTORE 


USER'S  PAGE  NO.  5 E3  S4 


NUMRERS  IN  EB. 


01461 

ST  ART  ING  A OCR  ESS 
01777 

L AST  AOOR  ESS  CHEC  KED 


01400 

STARTING  ADDRESS 
01777 

LA  ST  ADDRESS  CHEC  KED 


C 1400 

STARTING  ADD?  F SS 
01773 

LAST  ADDRESS  CHEC  KED 


+ 0 

00061 

ST  ART  ING  ADCPESS 
01  373 

LAST  AODRFSS  CHECKED 


STORE  S C ( E8ANK) 


STORES  C<  X)  AND  C(X+1)  IN  SKEEP6  AND  5. 
IF  RESTART,  RESTORE  C (X  ) AND  C(X  + 1] 


PUTS  OWN  ADD?  ESS  IN  X A NO  X +•  1 


CS  X+l 
AD  X 


HAS  ERASABLE  BEEN  R ESTOP  FD 


GAP:  ASSEMBLE  REVISION  56  3F  AGC  PROGRAM  ZEP-LINA  BY  ZOROASTER 
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L 

02«o 

0250 

0251 

9 252 

0253 

0254 
9255 
02  56 
? 257 

0258 
02  59 
5 269 
0261 
0262 
9263 

0264 

0265 

0266 
0267 
9258 

0259 
0 270 
9271 

0272 

0273 

0274 

0275 
9276 
02  77 
0278 
9 279 
0 280 
0281 
9282 
0283 
020  4 
0285 
G 286 
9297 
0 288 
0 289 
9 2 90 
0201 

R9  2Q2 
R0293 
0294 
9 29  5 

0296 

0297 
02  98 


AGC  BLOCK  TWO  SFLF-CEECK 


R EF 
REF 
RFF 
RFF 
P-EF 


1 

12  LAST 

13  LAST 

14  LAST 

15  LAST 


43,3412  1 3436  l 


1277 

1278 
1278 
1278 


REF 

RFF 

REF 

RFF 

REF 

REF 


2 LAST 
4 L AST 
75  LAST 

17  LAST 

1 8 LAST 
7 LAST 


1276 

1277 

1277 

1278 
1278 
1277 


RFF 
REF 
REF 
REF 
REF 
PFF 
REF 
REF 

REF 
RFF 
REF 
RFF 
REF 

CNTRCHK  PER  FOR 
INCLUDED  ARE 
RFF  1 
RFF 
REF  1 

REF  375  LAST  1277 


77  I AST  1279 


78  LAST  1278 


79 


1277 

1278 
MS  A C 
LI.  CCU 


LAST  1278 


43, 3413 
43  ,3414 
4 3,  34  15 
43,  341  6 
43 ,341 7 
43,  3420 
43  ,3421 
43 ,3422 
43,  342  3 
43  ,3424 
43,  3425 
43,  3426 
43  ,3427 
43,  3430 
43  ,3431 
40  ,3422 
43,  34  33 
43  ,3434 
43,  3435 
4 3,  3 43  6 
43  ,3437 
43,  3440 
43  ,3441 
43  , ? 44  2 
43, 3443 
43  ,3444 
4">,  3445 
43,  3446 
43 ,3447 
43,  3450 
43  ,3451 
43 ,3432 
43,  3453 
43  ,3454 
43,  3455 
43,  3456 
43  ,3457 

42,  34 6 C 
43  ,3461 
43,3462 
4 3,  346  3 
43  ,3464 

S OF  ALL 
NTERS,  T< 

43.3465 

43. 3466 

. 

43,3470 

43,  3471 


C COG 6 1 
5 13  77  t. 

4 C001  1 

5 1 '377  0 
52  001  1 
* 1 ' -•  7 7 0 

4 0000  0 
5 1 1 377  0 

6 red  0 

0 3277  0 
3 1360  0 
C 0006  1 

1 3436  1 
C 0006  1 
3 1376  1 

5 1 ' 3 7 7 0 
52  001  1 
3 4755  1 

5 5 1 3 6C  1 
0 0003  1 

0 3331  0 

3 1274  0 
54  003  0 

2 5*  377  0 

4 1377  1 

6 1373  1 
C CCC6  1 

1 3450  1 
0 3366  1 
1 1 • 3 7 2 1 

0 3361  0 
25  ■ 37  2 0 

3 OGO 3 1 
6 4743  0 
c 4 CC3  0 
6 3242  0 
C 0006  1 

1 3354  1 
10  00  3 0 
0 3347  1 
3 50C 7 0 
54  003  0 

R EG  I STERS 
-1,  CYCLE 

3 4771  1 
55*372  1 
6 4750  1 
5C  000  1 

4 0000  0 


B7F 

E XTEN9 

NDX 

DCS 

NDX 

OX  CH 

NDX 

CS 


TC 

CA 

EXTEND 
87  F 

E XTEND 
DCA 
NDX 
D XCH 


CA 
TS 

ELQDP  F IN  RELINT 


AD 
EXTEND 
BZF 
CCS 


ELGCPF  IN 

SK  EEP7 

9000 

SKEFP7 

SKEFP7 
0000 
SKEEP7 
0001 
- 1CHK 
EPESTORE 

ELOOPF  IN 

SK  EFP 5 
SK  EEP7 
0000 
S + Z EF  0 
E RESTORE 

CHECK NJ 

SKEEP4 

FBANK 

SKEEP7 

SKEEP7 

SKEEP3 


ER  ASL  OOP 
SKEEP2 
NOEBANK 
SKEEP2 
EBANK 
SB  IT9 
FRANK 
ERA  SC  ON 5 


2 E BANK 
EBANK 
TC  F134567  B 

CA  ERASC0N6 

TS  EBANK 

FROM  OCT.  60  THROUGH  OCT.  10. 
ANO  SHIFT,  AND  ALL  RUPT  REGI5 
CNTRCHK  CA  CNTRCON 

C NTR  LOOP  TS  SKEEP2 

AD  SBIT4 


USER’S  PAGE  NC.  6 E3  S4 

YES,  EXIT  FRASLOOP. 

COMPLEMENT  OF  ADDRESS  OF  X AND  X+ 1 
PUT  COMPLEMENT  OF  ADDRESS  OF  X ANO  X+ 1 
C S X 
AD  X+l 

HAS  ERASABLE  BFEN  RESTORED 
YES,  EXIT  ERA  SLOOP. 

PUT  B ( X ) AND  B (X  + l » BACK  INTO  X ANO  X +1 
IF  RESTART,  DO  NOT  RESTORE  C(X),  CIX+1) 


GO  TO  NEXT  ADDRESS  IN  SAME  BANK 


PUT  +1  IN  SKEEP2. 


76777,  CHECK  FOP  RANK  E2 


00050 
+ 10  OCTAL 


(,4 P:  ASSEM8LF  REVISION  56  OF  AGO  PROGRAM  ZERLINA  RY  ZOROASTER 
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AGC  BIPCK  TWO  SELF-CHECK 


9:12  OCT.  21,1970  SKIPPER  . 
USER  • S PAGE  NO.  7 


LAST  1278 


l 03G1 
3 33  2 
0303 
0 30  A 
3305 
0306 
0 30  7 
03  08 
0309 
3313 

0311 

0312 
3313 
0 3 1 A 

0315 

0316 
031  7 
3318 


REF 
REF 
REF 
REF 
REF 
RFF 
REF 
RFF 
REF 
REF 
RFF 
RFF 
R FF 
RFF 
RFF 
P FF 


A3, 3*77  5 A 021  C 


CHECKS  THE  CYCLE  AM) 
A3,  3 A 7A 
LAST  1082  43 t 3475 

LAST  1072  A3.3A76 

LAST  1072 
LAST  125b 
LAST  1279 
LAST  1279 
LAST  1279 
I AST  1279 


LAST  1278 
LAST  1279 
l AST  1279 
LAST  1279 
LAST  1270 
LAST  1277 
LAST  1279 


3 ,3503 
3 , 3 5C  1 
3,  350  2 
3,3503 
3,  3 50  A 
3,3505 
3 ,3506 
3,  3507 
3 ,3510 
3,3511 
3,  35  12 
3,3513 


5 A 023  1 
6 CC20  0 
6 0022  1 
6 0021  1 
6 CC23  0 
6 32A1  0 
C 3272  0 
6 0020  0 
6 0022  1 
t CC 21  l 
6 0023  0 
6 A75 3 1 
C 3272  0 


E D CP 
:0NC+S2 
-1  CHK 


25252 

C(C  YR)  = 12  525 
C ( CYL  ) = 5 2 52 A 
C (SR)  = 12525 
C(EDOP)  = 00125 
37777 
00-1252A 
00-25251 
00-25376 
C ( C ONC  + S?  ) 


C ( C YR  ) = A5252 
C(CYL)  = 25251 
C(  SR  ) = 052  52 
C( EDOP  1 = +0 
5 2 A 0 0 


A5252 

72523 

77775 

77775 

77776 


C3lo 
0320 
RD321 
R 0322 

RO  323 
R032A 
3 ( 325 
R3326 
R 03  2 7 
30328 
R3329 
R 0330 


PFF  A LAST  1276  A3, 3515  25'367  1 INCR  SCOUNT+1 

REF  3 I A ST  1276  A3, 3516  C 3300  1 TC  S MODECHK 

SKFEP1  HOLCS  SUM 

SKEFP2  HOLDS  PRESENT  CONTENTS  OF  ACORESS  IN  ROPE  CHK  AMD  SHOWSUM  ROUTINES 
SKFEP2  HOLDS  BANK  NUMBER  IN  ICW  CRDE  R BITS  DURING  SHOWSUM  DISPLAY 
S K F E p3  HOLDS  PRFSENT  ARDPESS  (COCOC  TO  01777  IN  COMMON  FIXED  BANKS) 
(CAOCO  TO  07777  IN  FX  FX  BANKS) 

SKEEP3  HOLDS  BUGGER  WORD  DURING  SHOWSUM  DISPLAY 
SKEEPA  HOLDS  BANK  NUMBER  ANO  SUPER  RANK  NUMBER 
SKEFP5  COUNTS  2 SUCCESSIVE  TO  SELF  WORDS 
SKFEP6  CONTROLS  ROPECHK  OR  SHOWSUM  OPTION 

SKEEP7  CONTROLS  WHEN  ROUNTINE  IS  IN  COMMON  FIXED  OR  FIXED  FIXED  RANKS 


Sl!Ii 

03312 


1 


LAST  296 
EAST  1278 


43,  3517 
A3,  3 5*0 

- 


3 A75A  0 
55' -76  0 
3 A755  1 


ROPECHK  CA 
TS 

STSHCSUM  CA 


< 

S +ZERO 


3 33? 
0333 
033A 

0335 

0336 
3337 
033R 
0 33° 
D 3 AD 
03A1 
0 3A? 


RFF 

RFF 

REF 

RFF 

REF 

RFF 

PFF 

REF 

RFF 

RFF 

PFF 


LAST  1270 
LAST  1270 
LAST  1278 
L AS  1 1279 
LAST  1276 
I AST  1278 
LAST  1279 
LAST  1278 
LAST  1279 
LAST  1277 
LAST  1275 


A 3,  3 52  2 
A3  ,3523 
43  ,^5?s 

. 

A3  ,3526 

. 

43,  1 53 
4 1,3531 
4 >,  3 532 
43  ,3533 
A3 , 3 5 ? A 


5 5 ' 37 A 1 
3 A753  1 
5 5 ' 377  1 
3 A 7 5 5 1 
55*371  1 
5 5*  373  C 
3 A753  1 
55*375  0 
3 137A  0 
5 A 001  l 
7 A 3 50  1 


C0MA9PS  CA 


SKEEPA 
S + l 
SK  EEP7 
S+ZFRO 
SK  EEP  1 
SKEEP3 
S+  1 


BANK  NUMBEP 


COUNTS  DOWN  2 TC  SELF  WORDS 
TO  SET  SUPER  BANK 


SAP:  ASSFMBL6  REVISION  56  CF  AGC  PRCGR  AM  ZERLINA  BY  ZOROASTER 

L AGC  BLOCK  TWO  SELF-CHEC< 


''343  PFF 
r 344  PFF 
GH5  REF 
0346  PFF 
3347  PEF 


9 LAST  1279 
2 LAST  44« 
1 


43,3535  6 1373  1 

'.3,3  5 36  C 46  51  1 
4 3,  3537  0 3562  C 

43,3543  6 4741  1 

43,  3541  C 3573  0 


AO  SKEEP3 

TC  SUPDACAL 

TC  AD  SUM 

AO  SBIT11 

TC  ADRSCHK 


034H 

0 349 
0353 
0351 
0 357 
0353 
0 354 
3355 

0356 

0357 
3354 
0359 
0 360 

0361 

0362 
"'363 


REF  376 
REF  2C 


R EF  1 

REF  1 
REF  10 
REF  8 
PEF  13 
RFF  6 
REF  7 
REF  11 

REF  2 
REF  2 


LAST  1273 
1 AST  1279 


LAST  1280 
LAST  1279 
LAST  1279 
LAST  1279 
LAST  1279 
LAST  1280 

LAST  1280 
I AST  1280 


43,3592 

43.3543 

43. 3544 
43 ,^545 
43  ,3546 
43,  3547 
43  ,3550 
43,  3551 
4 3,  3552 
43,3553 
4 3,  3 5 54 
43  ,3955 

43 . 3556 

43. 3557 
43  .3560 
43,  356  1 


55 • 377  1 

C OOC 6 1 

1 3550  0 
3 4740  0 
0 3551  0 
3 5020  0 
55' 373  0 
3 4755  1 
55*371  1 
3 4753  1 
5 5 ' 375  0 

5 1 * 373  1 F X ADR  S 
3 0000  1 
0 3562  0 
C 3573  0 


CS  A 

TS  SKEEP7 

EXTEND 
BZF  +3 

CA  SBIT12 

TC  + 2 

CA  SBNK03 

TS  SKEEP3 

CA  S+ZFRO 

TS  SKEEP1 

CA  S+1 

TS  SKEEP5 

INDEX  SKEEP3 
CA  0000 

TC  ADSUM 

TC  ADRSCHK 


0364 
9 365 
3366 

0367 

0368 

0369 

0370 
3371 
03  72 


PEF  9 LAST  1279 
PEF  14  LAST  1280 
RFF  15  l AST  1280 
PEF  9 LAST  1280 
REF  16  LAST  12PC 
REF  17  LAST  1289 
REF  10  LAST  1280 
REF  12  LAST  1280 
REF  326  LAST  1276 


43,3562  55*372  1 ADSUM 

43,9563  6 1371  0 

43. 3564  55*371  1 

43.3565  3 4755  1 

47.3566  6 1371  0 

43,  3567  55  *371  1 

43,3570  4 1372  1 

43,  3571  6 1373  1 

43,3572  6 0002  0 


TS  SKEEP2 

AD  SKEEP1 

TS  SKEFPl 

CAF  S+ZERO 

AD  SKEEP1 

TS  SKEFPl 

CS  SKEEP2 

AD  SKEFP3 

TC  0 


• i375 
0376 
03  77 
03  78 
3 379 

0380 

0381 
3332 

'383 

0384 

0385 

0386 
0 38  7 
03  88 
0 389 


PEF 

REF 

RFF 

REF 


REF 

REF 


REF 
RFF 
R EF 
REF 
REF 
REF 
REF 
PEF 


377  LAST  128C 
13  | AST  1280 

21  LAST  1275 


1 

8 LAST  1280 


2 LAST  1280 
253  LAST  1279 
1 

2 LAST  1280 

3 LAST  1280 
Q LAST  1280 

4 LAST  1290 


4 3,  9 574 

41 .3575 

43.3576 
43,  3577 
43  ,3600 
41,  3601 
43,3602 
. . 

43,  36C4 
43  ,3605 
43 ,3606 
43,  360  7 
43  ,361  j 
43,  361  1 
43,  3612 
43 ,3613 


22  000  1 
3 1373  1 
7 5012  A 
6 4350  0 

0 00C6  1 

1 3667  1 
11*375  0 
C 3605  1 
C 3605  l 
C 3667  0 
10  00  1 l 
C 3615  0 
0 3615  C 
0 3615  0 
1 1 ' 3 7 5 0 
0 3616  0 
3 7761  0 


CA  SKEFP3 

MASK  L0W10 

AD  -MAXADRS 

E XTENO 

BZF  SDPTION 

CCS  SKEEP5 

TC  + 3 

TC  +2 

TC  SOPTI  ON 

CCS  L 

TC  CONTINU 

TC  CONTI  NU 

TC  CONTTNtJ 

CCS  SKEEP5 

TC  CONTI  NU  + 

CA  S-l 


9:12  OCT.  21,  1970  SKIPPER 
USFR'S  PAGE  NG.  8 


PAGE  1280 
E3  S 4 


SUPER  DATA  CALL 
02000 


04000,  STARTING  ADDRESS  DF  BANK  02 
06000,  STARTING  A DDRF  S S OF  BANK  03 


COUNTS  DOWN  2 TC  SELF  WCROS 


RELATIVE  ADDRESS 

SUBTRACT  MAX  RELATIVE  AODRESS  = 1777. 

CHECKSUM  FINISHED  IF  LAST  ADDRESS. 

IS  CHECKSUM  FINISHFD 

NO 

NO 

GO  TO  ROPECFK  SHOWSUM  OPTION 
-0  MEANS  A TC  SELF  WORD. 


< 


AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PRCGPAM  ZERLINA  BY  ZOROASTER 


AGC  BLOCK  TWO  SELF-CHECK 


0390  RFF 

0391  REF 

3392  REF 

03921  REF 

03922  RFF 

03923  REF 

0392  A 

3393  REF 


10 

5 

22 

5 


3 


LAST  1280 
LAST  1280 
LAST  1280 
1 AST  1279 
I A ST  1107 
LAST  711 

LAST  1278 


A3 , 361 5 
43,  36  16 
43  ,3617 
43,3620 
43,  362  1 
43.3622 
43,  3623 


0 36  16  0 TC 

3 4753  l CONTI  NU  CA 
55*375  0 TS 

11*376  0 CCS 

1C  C 67  1 CCS 

0 5122  0 TC 

0 3624  1 TC 

C 3331  0 TC 


CONTI  N U + 
S +1 

SKEEP5 
SKEEP6 
NEW JOB 
CHANG  1 
+ 2 

CHECKNJ 


0394  RFF 

0395  RFF 

0396  REF 

0397  RFF 

0398  REF 

0399  PEF 


14  LAST  1280 
21  LAST  12R0 
1 

2 LAST  1281 
1 

2 LAST  123  1 


43.3624  25*373  1 ADRS+1  INCR 

43.3625  1 1 • 377  1 CCS 

43. 3626  0 3522  0 TC 

43  ,3627  0 3532  0 TC 

43.363C  C 3556  1 TC 

43,  3631  0 3556  1 TC 


SKEFP  3 
SKEEP7 
COMAD R S 
COMADRS 
FXADRS 
c XADRS 


0400  PEF  7 

0431  REF  l 

0402 

0403  REF  1 

0404  REF  8 

0405  REF  2 

0406  REF  9 

0407  REF  1 

04 C 8 REF  1 

0409  REF  10 

0410  REF  1 

0411  REF  9 

0412 

0413  RFF  1 

0414  REF  1 

04 1 5 

0416 

0417  REF  2 

0418  REF  1 

0419  REF  11 

0420  REF  3 

0421  PEF  1 

0422  RFF  12 

0423  REF  22 

0424  REF  1 

0429  REF  R 

0426  REF  1 

0427  REF  1 

0428  REF  2 


LAST  1279 

LAST  128  1 
LAST  1280 
LAST  1281 

LAST  120  1 
LAST  1279 

LAST  128  1 

LAST  1281 
LAST  128  1 

LAST  1281 
LAST  1 29  1 

l AST  128  1 

L AST  1 28  1 


43,3632 
4 3,  3 6 ? 3 
43  ,3634 
43,3635 
43,  3636 
43  ,3637 
4’,  3640 
43,  364  1 
43,3642 
43,  3643 
43  ,3644 
43  ,3645 
4 3,  3646 
43  ,3647 
43,  3650 
43,  365  1 
43  ,3652 
43, 3653 
43  ,3654 
43,3655 
43,  3656 
43  ,3657 
43, 366C 
4 3,  3661 
4 3 ,3  662 
43,  3663 
43  ,3664 
43  ,3665 
43,  3666 


4 1 374  1 
6 3722  0 
0 0006  1 
1 3 124  1 
3 1374  0 

6 4741  1 
55*  374  1 
0 3645  0 
3 4735  1 
27*374  1 
0 3661  0 

7 4350  1 

0 OCO 6 1 

1 3657  1 
6 3237  1 
C 0006  l 

1 3654  1 
C 3661  0 
3 3235  0 

2 7*3  74  1 
C 3661  0 
6 3236  0 
27*  374  1 
11 '377  l 
0 3524  1 

3 4753  1 
0 3542  1 
3 4745  0 
0 3524  1 


NXTBNK  CS 
AD 

EXTEND 

BZF 

CA 

AD 

TS 

TC 

17TC20  CA 
ADS 
TC 

CHKSIJPR  MASK 

EXTEND 
BZ  F 

27T030  AD 

EXTEND 

BZF 

TC 

CA 

ADS 

TC 

NXTSUPR  AD 
ADS 

G'JNXTBNK  CCS 
TC 
CA 
TC 
CA 
TC 


SKFEP4 

LSTBNKCH 

ENDSUMS 
SKEEP4 
SB  IT  11 
SKEEP4 
CHKSUPR 
SB  IT  15 
SKFEP4 
GONXTBNK 
H 15 

NXTSUPR 
S13  BITS 

+ 2 

GONXTBNK 
S I XT  Y 
SK  EEP4 
GONXTBNK 
S JPRCDN 
SKEEP4 
SKEF  P7 
COMMFX 
S+  1 
FXFX 
SRIT7 
COMMF  X 


0429  REF 

0430  RFF 

0431  RFF 

0432  REF 


254 


LAST  128  1 4 3 ,0667 

LAST  123  1 43,  367:.; 

LAST  445  43,3671 

LAST  1280  43,3672 


3 1374 
7 4350 
0 4331 
54  001 


SCPT  ION 


CA 

MASK 

TC 

TS 


SK  EEP4 

HI5 

LEFTS 
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AD  IN  THE  BUGGER  WCRD 

MAKE  SURE  TWO  CONSECUTIVE  TC  SELF  WORDS 

* +1,  S HOW  SUN 

-0  IN  SKEEP6  FOR  ROPECHK 


LAST  BANK  TO  BE  CHECKED 
END  OF  SUMMING  OF  BANKS. 

37  TO  40  INCRMTS  SKEEP4  BY  FND  RND  CARRY 

SET  FOR  BANK  20 

INCREMENT  SUPER  BANK 

BANK  SET  FOR  30 
FIRST  SUPER  BANK 

SET  BNK  30  + INCR  SUPR  BNK  AND  CANCEL 
ERC  BIT  OF  THE  37  TO  40  ADVANCE. 

HAS  TO  BE  LARGER  THAN  NO  OF  FXSW  BANKS. 

= BANK  BITS 


RANK  NUMBER  REFORE  SUPER  BANK 


ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  2 ERL  IN  A BY  ZOROASTER 


AGC  BLOCK  TWO  SELF -CHECK 


43  3 RFF 
0434  RTF 
3435 

0436  RFF 
'437  PFF 
0438  RFF 
'439  PFF 
3443  RFF 
441  REF 
344?  PFF 


445  REF 
0446  REF 
04461 
34462 
'’4  463  REF 
04464  PFF 
3447  REF 

0448  REF 

0449  REF 

0450  RFF 

0451  RFF 


14  L AST  128  1 
1 

1 

23  LAST  1279 
254  LaST  128  1 

18  LAST  1275 

24  LAST  1282 
256  LAST  1282 

6 LAST  1281 


1 8 LAST  1280 


9 I AST  128  L 
18  LAST  1282 
257  LAST  128  2 
20  LAST  1282 
2 LAST  1280 
5 LAST  1279 
2 I A ST  296 


43.3673  3 1374  0 CA 

43.3674  7 4357  0 MASK 

43,  3675  C 0CC6  1 E XTEMD 

43  ,3676  1 3704  0 RZ  F 

43, 3677  54  C21  0 TS 

43. 3700  9 0C01  0 CA 

43.3701  7 4757  1 MASK 

42,  3 7C2  6 CC 2 1 1 AO 

43  ,3703  54  001  1 TS 

43  ,3  704  3 1376  1 SORT  CA 

43,  ■<705  C CCC6  1 EXTEND 

43  ,3706  1 3710  0 RZ  F 

43,  3 7G7  C 3106  0 TC 

43,  3710  1 1*371  1 CCS 

43  ,3711  C 3713  1 TC 

4 3,  2712  C 3 7 1 4 C TC 

43  ,3713  6 4753  1 AD 

43,3714  55*371  1 TS 

43,  37  15  4 OCC  1 1 BNKCHK  C S 

43,3716  6 1371  0 AO 

42,  3717  £ 7761  0 AO 

43,  3720  0 3272  0 TC 

43,3721  0 3632  0 TC 


SK  EEP  4 
SB  BITS 

SOPT 

SR 


S EVEN 

SK 

L 

SKEEP6 
+ 2 

SOI  SPLAY 
SKEEP  1 
+2 
+ 2 
S + l 

SKEEP1 

L 

SKEEP  1 
S-l 
- ICHK 
NXTBNK 


:>454 

0455 


PEF 


23  LAST  1281  1067 

43  ,3722 


E BA  NK=  NE  W JOB 
66100  0 LST8NKCH  BBCON  * 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1262 
USER'S  PAGE  VO . 1C  F 3 S4 

= SUPER  BANK  B ITS 

BEFORE  SUPER  BANK 
SUPER  BANK  NECESSARY 


BANK  NUMBER  WI  TH  SUPER  BANK 


* ON  -0  CONTINUE  KITH  ROPE  CHECK. 

* ON  +1  GO  TO  OISPLAY  OF  SUM. 
FORCF  SUM  TO  ABSOLUTE  VALUE. 


= - BANK  NUMBER 


CHECK  SUM 


CONSTANT,  LAST  RANK, 


GftP:  ASSEMBLE  REVISION  56  OF  AGO  PR  f GR  AM  ZERLINA  8Y  ZOROASTER 
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PAGE  1203 


PHASE  TABLE  MAINTENANCE 


USER'S  PAGE  NC. 


P0001 


SURPOUTINF  TO  UPDATE  TEE  PROGRAM  NUMRER  DISPLAY  ON  THE  DSKY. 


00  >2  R EF 

0003 

0004  REF 
3335 


5:22 

4000 

5122 


COUNT*  ft/ PH AS  F 
BLOCK  02 
SFTLOC  FFTAG1 
BANK 


0006  REF  327  LAST  1280 

0007 


5322  50  002  0 NEWMODEX  INDEX  0 

5323  3 0000  1 CAF  0 


3008  REF  32P  LAST  1203 


5 324  24  C C 2 C 


I NCR  Q 


UPDATE  M0DRE3.  ENTRY  FCR  MODE  IN  FIXED. 


0009  REF  20 

00  14 

0015  REF  49 

0016  PEF  16 

3317  REF  1 


LAST  1221 

LAST  1233 
LAST  1214 


5325  55*010  0 

5326  3 5331  0 

5327  22  006  1 

5330  1 4640  0 

5321  2C213  0 


NEWMODEA 
MMDSPL  AY 
PR  ERJ  UMP 


TS  MO  DR  EG 

CAF  +3 

LXCH  BBANK 

TCF  BANKJUMP 

CAOR  SETUPDSP 


ENTRY  FOR  MODE  IN  A. 
DISPLAY  MAJOR  MODE. 
PUTS  BBANK  IN  L 
PUTS  Q INTO  A 


ROOl  8 


RETURN  TO  CALLER  +3  IF  MODE  = THAT  AT  CALLER  +1.  OTHFPWISE  RETURN  TO  CALLER  +2. 


00  20 
3321 
00  22 
00  23 

0024 

0025 


RFF  32<? 
REF  ?I 

REF  5 
PFF  4 


LAST  1283 
LAST  1283 

LAST  1 1"  6 
LAST  530 


5332  50  002  0 

5333  4 OOCO  0 

5334  6 1010  1 

5335  C 0CC6  1 

5136  1 6753  1 

5337  1 6751  0 


CHECKMM 


INDEX 

CS 

AD 

EXTEND 

BZF 

TCF 


0 

0 

M 3 DR  EG 

0+2 

0+1 


NO  MATCH 


3326 


RFF  6 LAST  1283 


TCQ 


0+2  +1 


( 27 

0028  REF 
3329 


14  ,3775 

1 f ,2  9c  0 
10,  2211 


BANK  14 
SFTLOC  PHASETAB 
BANK 


003C  REF 

0031 

0032  RFF 

0033  REF 
3334  REF 

0035  REF 

0036  REF 

0036  PEF 

0037  REF 
3338 

0039  PEF 


1 

27 

11 

22 

22 


28 

24 


LAST  984 
LAST  1090 
LAST  1112 
LAST  1283 


LAST  1283 
LAST  1256 


19, 2213 
1(  ,2214 
10,231  5 
10,  22  16 
1010 
10,2217 
1c  , 2 220 
1 ,2221 
10, 2222 
10,2223 


C C C 04  0 
52  C71  0 
3 4355  0 
C 5C  7 2 1 

03574  1 
60102  1 
52  071  0 
C CCC3  1 

52  006  0 


RIJPTRFG  1 
PR  1030 
NOVAC 
MO  DR  EG 
DSPMMJOB 


DXCH  RUPTREG1 
RE  LI  NT 
DXCH  Z 


SAVE  CALLEP-S  RETURN  2CADR 

EITHER  A TASK  OP  JOB  CAN  COME  TO 
NEWMODEX 


RETURN 


0040  RFF 


2 LAST  465  40,3574 


DSPMMJOB  EQUALS  DS  PMMJ  R 


3341 

0042  REF  2 LAST  1283 

0043 


5140 

4000 

5340 


BLOCK  02 
SETLOC  F FT  AG  1 
BANK 


ASSEMBLE  REVISION  56  OF  A3C  PR  COR  i 


ZERLINA  BY  ZCRCASTER 


9:12  OCT.  21,1970  SKIPPER  .121 


PAGE  1284 
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PHASE  TABI  E MAINTENANCE  USER'S  PAGE  NO.  2 EC  S4 


5 0044 
RDD46 

PHASCHNG  IS  THE  MAIN  WAY  OF  MKTNG  PHAS  F CHANGES  FCR  RESTARTS.  THERE  ARE  THREE  FORMS  OF  PHASCHNG,  KNOWN  AS  TYPE 
A,  TYPE  R,  AND  TYPE  C.  THEY  ARE  ALL  CALLED  AS  FOLLOWS,  WHERE  OCT  XXXXX  CONTAINS  THE  P HAS  F INFORMATION, 

A004R 

A 004° 

TC  PHASCHNG 

OCT  XXXXX 

RCSC 

R 0052 

TYPE  A IS  CONCERNED  WITH  FIXED  PHASE  CHANGES,  THAT  IS,  PHASE  I NF  ORMA  TI  ONTH  AT  IS  STORFD  PERMANENTLY.  THESE 
OPTIONS  ARE,  WHERE  G STANDS  FCR  A GROUP  AN  C .X  FOR  THE  PHASE, 

RD053 
ROC  55 
<0^57 
RD359 

R 0060 

G.O  INACTIVE,  UILLNOT  PERMIT  A GROUP  G RESTART 

G.l  WILL  CAUSF  THE  LAST  DISPLAY  TO  BE  REACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 

G.EVFN  A D CUR  LE  TABLE  RESTART,  CAN  CAUSE  ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AND/OR 

LONGCALL  TO  BF  RESTARTED. 

G.CCO  NOT  .1  A SINGLE  TABLE  RESTART,  CAN  CAUSE  EITHER  A JOB,  TASK,  OR  LCNGCALL  RESTART 

R0062 

THIS  INFORMATION  IS  PUT  INTO  THE  OCTAL  WCRD  AFTER  TC  PHASCHNG  AS  FOLLOWS 

R0063 

TLO  OOP  pop  ppp  GGG  , 

R 00  65 
RD  j 6 7 

R 0069 
R0071 

WHERE  EACH  LETTER  CR  NUMPEP  STANCS  FOR  A BIT.  THE  G:  S STAND  FOR  THE  GROUP,  OCTAL  1 - 7,  THE  P:S  FOR  THE  PHASF, 
OCTAL  C - 127.  C : S MUST  RE  C.  IF  ONE  WISHES  TO  HAVE  THE  T BAS  E OF  GROUP  G TO  eE  SET  AT  THIS  TIME, 

T IS  SFT  TT  1 , CTFERWISE  IT  IS  SET  TOO.  SlMIARLY  IF  ONE  WISHES  TO  SF  T LONGBA  SE  , THEN  L IS  SET  TO  1 , OTHERWISE 
IT  IS  SET  TO  0.  SOME  EXAMPLES, 

A007  2 

A 0073 

TC  PHASCHNG  THIS  WILL  CAUSE  GROUP  3 TOBE  SET  TO  0, 

OCT  3000  3 MAKING  GROUP  3 INACTIVE 

AD  ) 74 

A 0^75 

TC  PHASCHNG  IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 

OCT  000 12  GROUP  2 TO  RESTART  THE  LAST  DISPLAY 

A 00  76 
A3  3 77 

A 0078 

A 007  9 
A0080 

A 0081 
AD  D 8 ? 

A 0083 

A 3 0 8 4 
A0085 

A 0086 

TC  PHASCHNG  THIS  SETS  THE  T BAS  E OF  GROUP  4 AND  IN 

DC  T 40064  CASE  OF  A RESTART  WCULO  START  UP  THE  IWD 

THINGS  LOCATED  IN  THE  DOUBLE  4.6  RESTART 
LOC  AT  ION 

TC  PHASCHNG  THIS  SETS  LONGBASE  AND  UPON  A RESTART 

OCT  20  135  CAUSES  5.13  TO  BF  RE  STAR  TF  D < SI  NCF 

LONGBASE  WAS  SET  THIS  SINGLE  ENTRY 

SHOULD  BE  A LONGCALL) 

TC  PHASCHNG  SINCE  BOTH  TBASE4  AND  LONGBASE  ARE  SET, 

OCT  60124  4.  12  SHOULD  CONTAIN  BOTH  A TASK  AND  A 

LONGCALL  TO  BE  RESTARTED 

R3D87 

R0089 

TYPE  C PHASCHNG  CONTAINS  THE  VARIABLE  TYPE  OF  PHASCHNG  INFORMATION.  INSTEAD  UF  THE  INFORMATION  BEING  IN  A 
PERMANENT  FORM,  ONE  STORES  TFE  DESIRED  RESTART  INFORMATION  IN  A VARIABKE  LOCATION.  THE  BITS  ARE  AS  FOLLOWS, 

* 009  l 

TLO  1 AD  XXX  CJW  GGG 

R0092 

R 0094 

R 0097) 

WHERE  FACF  LFTTFR  OR  NUMBER  STANDS  FOR  A BIT.  THE  G:S  STAND  FOR  THE  GROUP,  OCTAL  1-7.  IF  THE  RESTART  IS  TO 

RE  BY  WAITLIST,  W IS  SET  TO  1,  IF  IT  IS  A JOB,  J IS  SET  TO  1,  IF  IT  IS  A LONGCALL,  C I S SF  T TO  1.  ONLY  ONE  OF 
THESE  THREE  BIT  S MAY  BE  SET.  X:  S ARE  IGNOREO  1 MUST  BE  I,  AND  0 MUST  BE  0.  AGAIN  T STANDS  FOR  THE  TBASE  , 

ASSEMBLE  REVISION  56  OF  A! 
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L PHASE  TABLE  MAINTENANCE  USER'S  PAGE  NO.  3 EO  S4 

1 0098  AND  L FOR  LCNGBASE.  THE  BITS  A AND  0 ARE  CONCERNED  WITH  THE  VARIABLE  INFORMATION.  IF  D IS  SET  TO  l , A PRIORITY 
R3133  OR  DELTA  TIME  WILL  BF  READ  FROM  THE  NEXT  LOCATION  AFTER  THE  OCTAL  INFORMATION,  IF  THIS  IS  TO  BE  INDIRECT,  THAT 
R 0 1 0 2 IS,  THE  NAME  OF  A LOCATION  CQMT  + INING  THE  INFORMATION  (DELTA  TIME  ONLY),  THEN  THIS  IS  GIVEN  AS  THE  -GENADR  OF 

1 0 10 A THAT  LOCATION  WHICH  CONTAINS  THE  DELTA  TIME.  IF  THE  OLD  PRIORITY  OR  DELTA  TIME  IS  TO  BE  USED,  THAT  WHICH  IS 

10136  ALREADY  IN  TEE  VARIABLE  STORAGE,  THEN  D IS  SET  TO  0.  NEXT  THE  A BIT  IS  USED.  IF  IT  IS  SET  TO  0,  THE  ADDRESS 

R 01 08  THAT  WOULD  RF  RESTARTED  DUPING  A RESTART  IS  THE  NEXT  LOCATION  AFTER  THE  PHASE  INFORMATION,  THAT  IS,  EITHER 

RO  1 lr  (TC  PHASCHNG)  +2  OR  +3,  DEPENDING  CN  WHETHER  D HAD  BEEN  SET  OR  NOT.  IF  A IS  SET  TO  1,  THEM  THE  ADDRESS  THAT 

Roll  2 WOULD  BE  RESTARTED  IS  THE  2CACR  TEAT  IS  READ  FROM  THE  NEXT  TWO  LOCATIONS.  EXAMPLES, 


A "114 

A3  11  5 
A 0116 
AO  117 


AC  TC  PHASCHNG  THIS  WOULD  CAUSE  LOCATION  AD  + 3 TO  BE 

AD+1  OCT  C5023  RESTARTED  BY  GROUP  THREE  WITHA  PRIORITY 

AD  +2  OCT  23000  OF  23.  NOTE  UPON  RETURNING  IT  WOULD 

AD+3  ALSO  GO  TO  AD  + 3 


AOl  1 8 
V 119 
A3  1 23 
A 1-1 
A 0 122 
A3  1 2 3 
A 0124 


AD 

AD+1 

AD+2 

AD  + 3 

AD+4 

AD+5 


TC  PHASCHNG  GROUP  1 WOULO  CAUSE  CAUSE  CALLCALL  TO 

OCT  27441  BE  STARTED  AS  A LONGCALL  FROM  THE  TIME 

-GENADR  DELTIME  STORED  IN  LONGBASE  (LONGBASF  WAS  SET)  BY 

2CADR  CALLCALL  A DELTATIME  STORED  IN  DELTIME.  THE 

BBCON  OF  THE  2C ADR  SHOULD  CONTAIN  THE  E 
RANK  OF  DELTIME.  PHASCHNG  RETURNS  TO 
LOCATION  AD+5 


NOTE  THAT  IF 
NEGATIVE,  AS 


A VARIABLE  PRIORITY  IS  GIVEN  FOR  A JOB, 
A FINOVAC  IF  THF  PRIORITY  IS  POSITIVE. 


THE  JOB  WILL  BE  RESTARTED  AS 


NOVAC  IF  THF  PRIORITY  IS 


10128  TYPC  B PHASCHNG  IS  ft  CCMBINATICN  OF  VARIA8LF  AND  FIXED  PHASE  CHANGES.  IT  WILL  START  UP  A JOB  A S INDICATED 
R J 1 3ft  BFLOW  AND  ALSO  START  UP  ONE  FIXED  RF  STAR  T , TIAT  IS  EITHEP  AN  G.  1 OR  A G.ODD  OR  THE  FIRST  ENTRY  OF  G.FVEN 
RO 132  DCUBLF  ENTRY.  THE  BIT  INFORMATION  IS  AS  FOLLOWS, 


TL1  DAP  PPP  PPP  GGG 


ROl  3 4 WHERE  EACH  LETTER  OR  NUMBER  STANDS  FOR  A BIT.  THF  G:S  STAND  FOR  THE  GROUP,  OCTAL  1 - 7.  THE  P:S  FOR  THE  FIXED 
1 136  PHASE  INFORMATION,  OCTAL  0 - 127.  1 MUST  HE  1.  AND  AGAIN  T STANDS  FOR  THE  TBASE  AND  L FOR  LONGBASE.  0 THIS 

R 3 138  TIME  STANDS  ONLY  FOR  PRI3PIT3  SINCE  THIS  WILL  BE  CONSIDERED  A JOB,  ANC  IT  MUST  RE  GIVEN  DIRECTLY  IF  GIVEN. 

R0l4<-  AGAIN  A STANDS  FOR  TEE  ADDRESS  OF  THE  LOCATION  Tn  BE  RESTARTED,  1 IF  THF  2CA9R  IS  3 1 VF  N , OR  0 I F IT  IS  TO  BE 
10142  THE  NEXT  LOCA  TI  ON.  ( THE  RETURN  LCCATION  GF  PHASCHNG)  EXAMPLES, 


A3  143 
A C 144 
A r'  1 4 5 
AOl  46 
A (ft  147 
A3  148 


AD  TC  PHASCHNG 

AD+1  OCT  56043 

AO+2  OCT  31000 

AD+3  2CAD1  A JOBA  JOB 

A 0+4 
AD+5 


TBASE  IS  SET  AND  ARESTAPT 
TO  START  THE  JOB  A JOBA  JOB 
31  AND  THE  FIRST  ENTRY  OF 
ASSUME  I T I S A TASK  SINCE 
UPON  RETURN  FROM  PHASCHNG 


CAUSE  GROUP  3 
WI  TH  PRI  ORI  TY 
3.4SP0T ( WE  CAN 
WE  SET  T BAS  E3) 
CONTROL  WOULD 


GO  TO  AD+5 


A 0 1 4 9 
A"  1 50 
AOl  51 
A f 1 1 52 


AD  TC  PHASCHNG 

AD+1  OCT  I DO  1 5 

AD+2 


UPON  A RESTART  THE  LAST  DISPLAY  WOULD  BE 
RESTARTED  AND  A JOB  WITH  THE  PREVIOUSLY 
STORED  PRIORITY  WOULD  BE  BEGUN  AT  AD  + 2 
BY  MEANS  OF  GROUP  5 
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R0l53  THE  NCVAC-F I NOV  AC  CHOICE  FOR  jrBS  HOL  OS  HERE  ALSO  - NEGATIVE  PRIORITY  CAUSES  A NOVAC  CALL,  POSITIVE  A FINDVAC. 


10155 
R 1 5 6 
? r 1 57 
RT15R 


SUMMARY  OF  R I TS 
TYPE  A TLO  OOP 

TYPE  B T LI  DAP 

TYPE  C TLC  1A0 


PPP  PPP  GGG 
PFF  FFF  GGG 
XXX  CJW  GGG 


GAP: 
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L PHASE  TARLE  MAINTENANCE  USER'S  PAGE  NO.  5 EO  S4 

PD159  2 PHS  CENG  IS  USED  WEEN  ONE  WISHES  TO  START  UP  A GROUP  OR  CHANGE  A GROUP  WHILE  UNDER  THE  CONTROL  OF  A DIFFERENT 

R 0161  GROUP.  FOR  FXAMPLE,  CHANGE  TEE  PHASE  OF  GROUP  3 WHILE  THE  PORTION  OF  THE  PROGRAM  IS  UNDER  GROUP  5.  A LI  2PHSCHNG 
R 0 1 6 3 CALLS  ARE  MADE  IN  THE  FOLLOWING  MANNER, 

A0l64  TC  2PHSCHNG 

A C 1 65  OCT  XXXXX 

A3166  OCT  YYYYY 


R 0 1 67  WHERE  OCT  XXXXX  MUST  BE  OF  TYPE  A AND  OCT  YYYYY  MAY  BE  OF  EITHER  TYPE  A OR  TYPE  B OR  TYPEC.  THERE  IS  ONE 

*.169  DIFFERENCE NOTE-  IF  LONG  PA  SF  IS  TO  BE  SET  THIS  INFORMATION  IS  GIVEN  IN  THE  OCT  YYYYY  INFORMATION , IT  WILI 

R0171  BE  DISREGARDED  IF  GIVEN  WITH  THE  OCT  XXXXX  INFORMATION.  A COUPLE  OF  EXAMPLES  MAY  HELP, 


A>  173 
A3  1 74 
4^75 


A 176 
A3  1 7 7 


AO 

AD+1 
AO  + 2 
AI3+3 
AD+4 


TC 

OCT 

OCT 

OCT 


2PHSCHNG 
40083 
05025 
1 8000 


SET  TBASE3  AND  IE  A RESTART  OCCURS  START 
THE  TWO  ENTRIES  IN  3.8  TABLE  LOCATION 
THIS  IS  OF  TYPE  C,  SET  THE  JOB  TO  BE 
TO  8E  LOCATION  AD  + 4,  WITH  A PRIORITY  18, 
FOR  GROUP  5 PHASE  INFORMATION 


0178  REF  1 

0 179 

0180  REF  33c  LAST  128  3 

0181 

3 18  2 REF  331  LAST  1287 

0183  REF  1 


5340 
5 34  1 
5 342 

5343 

5344 


C GO 04  0 
5C  0C2  0 
3 OOOO  1 
2 4 f C2  0 
54  C72  0 


COUNT* 
2PHSCHNG  INHINT 
NDX 


THE  ENTRY  FOR  A DOUBLF  PHASE  CHANGE 


0184  REF 
3 185 

0186  REF 


5345  7 4757  1 

5346  6 0000  1 

5347  54  071  0 


MASK  0CT7 
D0U3LE 

TS  TFMPG2 


0 189 
3190 
0191 


REF  ? LAST  1287 

RFF  1 

REF  31  LAST  1274 

REF  3 LAST  1287 


5 3 50  2 C C 72  1 

535  1 7 5030  0 

5352  C 0006  1 

5353  7 4740  1 

5354  56  072  1 


CA  TEMPP2 

MASK  3C  T 17770 

EXT  END 

MP  BIT12 

XCH  TFMPP2 


NEED  ONLY  1 770  , RUT  WHY  GET  A NEW  CONST. 


01<32  PFF  4"’  LAST  1274 

0193  REF  1 


5355  7 4735  C 

5356  54  066  0 


MASK  BIT15 

TS  TFMPSW2  INDICATES  WHETHER  TO  SET  T BAS  E OR  NOT 


01932  REF  332  LAST  1287 

3 19  3 4 

'1936  REF  33?  | AST  1287 

01938  REF  1 


5357 
5 36  C 
5 361 
5362 


50  002  0 
3 OCCO  1 
24  002  0 
54  C65  0 


0194  REF 


5-36  3 1 5 374  0 


TC  F PHASJUMP 


■195 
C 196 
1 97 

0198 

0199 


RFF  334  LAST  1287 
RFF  335  LAST  1287 


5364  0 0004  0 PHASCHNG  INHINI 

5 365  5 C CC2  C INOEX  0 

5366  3 0000  1 CA  0 

5367  24  002  0 INCR  0 

5370  C 0CC4  0 PHSCHNGA  INHINT 


NORMAL  PHASCHNG  ENTRY  POINT. 


FIRST  OCTAL  PARAMETER  IN  A 


GAP:  ASSFMRLE  REVISION  56  OF 


PROGRAM  ZERLINA  BY  ZOROASTER 


L PHASE  TABLE  M A I NT  ENA  NC  E 


O20P  REF 
0251  REF  1 
02q1  5 RET 
0 20  2 

3203  RFF 
0204 


2 LAST  1287 
14  LAST  1252 
2 LAST  1237 


5371  54  065  0 

5372  3 4753  1 

5373  54  C66  0 

5374  C 0006  1 

5375  3 5400  0 

5376  52  006  0 


TS  TEMPSW 

PA  ONE 

TS  TFMPSW2 

PH  AS  JUMP  EXTENO 

OCA  ADRPCHN2 

DTCB 


0205  RFF  47  LAST  1275 

0206  REF  1 

0206  RFF  1 


E3.14CO 

5 377 
5400 


ERANK=  LST1 

02224  1 ADRPC  HN  2 2C  ADR  PHSCHNG2 
20103  1 


3237  REF  1 

0208  RFF  50  LAST  1283 

0209  RFF  2 LAST  1288 


5401  22  C 73  0 ONEORTWO  LXCH  TEMPBBCN 

5402  22  006  1 LXCH  BBANK 

5403  22  073  0 LXCH  T EMPBBCN 


3213  REF  1 

0211  PFF  378  LAST  1280 


5404  7 5024  0 

5405  10  000  0 


MASK  OCTUOOO 
CCS  A 


0212  REF 


54C6  1 7762  1 TCF  CHECKS 


0213  REF  1 

0214  RFF  40  LAST  1274 

3215  RFF  379  I AST  1288 

0216  REF  1 


5407  3 0062  0 CA  TEMPP 

5410  7 4745  1 MASK  RIT7 

5411  1C  000  0 CCS  A 

5412  1 5434  0 TCF  GETPR 10 


0217  REF  1 

G?19  RFF  1 

0210  REF  1 


54  13  50  061  0 OLDPRTO  NDX  TEMPG 

54  14  3 1051  1 CA  PHSPRDT1 

5415  54  070  1 TS  TEMPPR 


0 222 
3223 


REF  2 
PFF  42 
REF  380 
REF  1 


LAST  1288 
LAST  1274 
LAST  1288 


54  16  3 C C 62  0 

5417  7 4744  0 

5420  10  000  0 

5421  1 5440  C 


C ONI 


CA  TEMPP 

MASK  91  T8 

CCS  A 

TCF  GETNEWNM 


0224 

0225 

0226 
0227 
3223 
02  2 9 


RCF  336  LAST  1287 
REF  1 
REF  1 


REF  24  LAST  1120 
REF  1 


5422  3 0002  0 

c 4 2 3 5 4 C63  0 

54  24  3 OOC 6 1 

5425  0 0006  1 

5426  C 4 CC  7 1 

5427  54  064  l 


CA  Q 

TS  TEMPNM 

CA  38 

EX  T EN  0 

ROR  SUPERBNK 

TS  TEMP8B 


0 230  REF  1 

3231  REF  3 LAST  1288 

0232 


5430  3 5433  0 T0CCN2 

5431  22  073  0 

5432  52  006  0 


CA  C0N2ADR 

LXCH  TEMPBBCN 
0TC8 


'23  3 REF 


C22  12  0 C0N2ACR  GFNADR  C0N2 


02  34 
0235 
3236 


REF  337 
REF  338 


LAST  128  8 


1288 


5434  50  0C2  0 

5435  3 0000  1 

5436  24  0C2  0 


GETPR 10 


NDX  0 
CA  . 0 
I NCR  0 


LAST 
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USER*  S PAGE  NC.  6 


.121  PAGE  1288 
ED  S4 


OFF  TO  SWITCHED  BANK 


SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 
IT  IS  OF  TYPE  : B: 


S HAL!  WE  USE  THE  CLD  PRIORITY 
NO  GET  A NEW  PRI  CRI  TV  (OR  DELTA  T) 

JSE  THE  OLD  PRIORITY  (OR  DELTA  T> 


SEE  IF  A 2 C ADR  IS  GIVEN 


PICK  UP  USERS  SUPERBANK 


BACK  T 3 SWITCHED  BANK 


DON  :T  CARE  IF  DIRECT  OR  INDIRECT 
LEAVE  THAT  DECISION  TO  RESTARTS 
OBTAIN  RETURN  ADDRESS 


* 


« 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


PHASE  TABLE  MAINTENANCE 


3 2 38 
0239 
0 2 AO 
02A1 
02A2 
3 2 A3 


REF  339  LAST  1288 


REF  2 
PEF  76 
REF  3 AO 


LAST  1288 
l AST  1122 
LAST  1289 


5 A37  1 5A15  0 


5 A AO 
5AA1 
5 AA  2 
5 AA  3 
5AA  A 
5 AA  5 


C CCC6  1 
5 0002  0 
3 0001  0 


GE  TNE WNM  E XTENO 
INDEX 
OCA 
D XCH 


0?AA 

92A5 
3 2A6 
02A7 
0 2A8 
02  A 9 
02  50 
3251 

0252 

0253 
325A 


REF 

PEF 

REF 

KEF 

PEF 

PEF 

REF 

REF 

PEF 

REF 


I A ST  1250 
737 


LAST 
LAST 
L AST 


737 

610 

610 


LAST  12  83 
LAST  26A 
LAST  ool 


5 AA6  1 5A30  1 


0062 
OC  63 
0P6A 

0065 

0066 

0070 

0071 

0072 


0CT1A000  EQUALS  PPI01A 


TEMPG 
T EMPP 
TEMPNM 
TFMPBB 
TEMPSW 
TF  MP  SW2 
T FMPPR 
TFMPG2 
TEMPP  2 


EQUAL  S I TEMPI 
EQUALS  I TEMP? 
EQUALS  ITEMP3 
EQUAL  S I TEMPA 
EQUALS  ITEMP5 
EQUALS  ITEMP6 
EQUALS  R UP  TP.  EG  1 
EQUALS  RUPTREG2 
EQUALS  RUPTREG3 


0257 

0258  REF 
3259 


LACT  1 ? 83 


1 A » 3 7 7 5 
10,2000 
10, 222A 


BANK  1A 
SHTLOC  PH  AS  ET  A 8 
BANK 


0260  REF 

0261  REF 
C 2 62  REF 
0263  RCF 
3 26 A RFF 

0265 

0266  REF 


1 

2 LAST  1283  TO 
A LAST  1288 

3 LAST  1288 
2 LAST  1287 

2 LAST  1288 


E3  » 1 A36 
1287: 

10, 2 22a 

13  ,2225 
10, 2226 
10,2227 
10,2230 


5 9* 

22  C 7 3 0 
3 0065  1 
7 AT  57  1 
6 0000  1 
5 A 061  1 


EB  ANK=  PHSNAME1 
COUNT*  1 S/ PH AS  E 
PHSCHNG2  LXCH  TEMPBBCN 
CA  TEMPSW 

MASK  0CT7 
OOUBLE 

TS  TEMPC- 


>267  REF  A LAST  1289 

02t>8  RFF  2 LAST  1287 

0 269 

0?7r  PEF  32  LAST  1287 

0271  RFF  3 LAST  1288 


10,2221  2 CC65  1 

l o ,2232  7 5030  C 

l1',  2233  0 CCC6  1 

10, 223a  7 A7A0  1 

10,2235  5A  062  l 


CA  TEMPSW 

MASK  DC  T 17770 
EXTEND 

MP  B I T 1 2 

TS  TEMPP 


327?  REF  5 

027?  RFF  1 

027A  REF  6 

3275  REF  2 

0276  REF  381 


LAST  1289  10,  2236 

10,2237 
LAST  1289  1 0 , 2 2A0 

LAST  1288  In  , 2 2a  1 
LAST  1288  13  ,22A 2 


56  065  1 
7 50  2 A 0 

10  000  0 


CA  TEMPSW 

MASK  DCT6000( 
XCH  TEMPSW 

MASK  OCTlAOOO 
CCS  A 
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OBTAIN  RETURN  ADDRESS 


1 AP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L PHASE  TABLE  MAINTENANCE 


0277  P EF 


10 , 2 24  3 1 5401  0 


TCF  ONEORTWO 


0278 

3279 

02fl0 


REF 

REF 

PFF 


LAST  1289  10,2244 

I AST  1289  10, 2245 

LAST  876  10,2246 


3 0062  0 
50  C 6 1 0 
54  750  1 


CA  TEMPP 

NOX  TEMPO 

TS  PHASE  1-2 


0281  RFF  3 LAST  1288 

3 28  2 P EF  1 


10,2247  10  066  0 BEL0W1  CCS 

10,2250  1 2264  1 TCF 


T EM  PS  VI 2 
3FLOW2 


• V *4 

n2  85 

r^86 

0287 


REF 

REF 

REF 

REF 


13,2251  1 2252  1 

LAST  1287  10,  2252  4 C C 72  0 

LAST  1260  10,  2253  22  C 72  1 

LAST  1287  10,2254  50  C71  1 

LAST  P74  10,  2255  52  750  1 


LXCH 
NOX 
0 XCH 


+ 1 

TE  MPP2 
TF  MPP? 
T EMPG2 
-PH  AS  El 


-2 


0268  RFF  4 LAST  1290 

0289 

0200  REF  2 I AST  1290 


1*  ,2256 
1 "',2257 

In,  2260 


10  066  0 
12  2 60  C 
1 2264  1 


CCS  TEMPSW2 

NOCP 

TCF  BE  L0W2 


USER  *S  PAGE  NO.  8 E3  S4 


START  STORING  THE  PHASE  INFORMATION 


IS  IT  A PHASCHNG  OR  A 2PHSCHNG 
I T : S A PHASCHNG 

I T:  S A 2PHSCHNG 


CAN:  T GET  HERE 


0291 

329? 

0293 


RFF  21  LAST  988  10  ,2261  4 0025  1 

REF  3 LAST  1290  10,  2262  5C  C71  1 

REF  2 LAST  722  10,2263  55*050  1 


CS  T I ME  1 

NOX  TEMPG2 

TS  TBASE  1-2 


0 2 96 


REF  7 LAST  1289  10,2264 

P.FF  1 10,  2265 

REF  1 10  ,2266 


10  065  0 RE10W2  CCS  T EMPSW 

1 2300  1 TCF  3ELOW3 

1 2303  1 TCF  BEL0W4 


SEE  IF  ri  F SHOULD  SET  TBASE  OR  LONGBASE 
SET  LONGBASE  ONLY 
SET  NEI THER 


0297  REF  22  LAST  1290 

298  REF  4 LAST  1290 


0299  rff 


LAST  1290 


10,2267  4 C025  1 

10,  2270  50  C6  1 0 

10,2271  55 ' 050  1 


CS  TIME1  S FT  T BAS  F TO  BEGIN  WITH 

NOX  TEMPG 

TS  TBASE1  -2 


3300 

1 

0 30  2 
0303 
0 30  4 
0305 


REF  8 
PCF  1 
REF  382 


LAST  1290 
LAST  1289 


10,  2272 

10.2274 

10. 2275 
10  ,2276 
10,2277 


3 0065  1 
6 2276  0 
10  COO  0 
12  276  1 
17777  0 
1 2303  1 


CA  TEMPSW  SHALL  WE  NOW  SET  LONGBASE 

AD  BIT14C0M 

CCS  A 

NOOP  *****  CANT  GET  HEPE  ***** 

BIT14C0M  OCT  17777  *****  CANT  GET  HERE  ***** 

TCF  BEL0W4  NO  WE  NEED  ONLY  SET  TBASE 


0306 

0307 
0303 


32  LAST  1214 


10. 2300 

10.2301 
1C,  2302 


000  6 1 
0025  0 
3*151  1 


EXTEND 
DC  A 
D XCH 


SET  LONGBASE 


0309 

0310 

0311 


REF 
R EF 
REF 


LAST  1290 
LAST  1290 
LAST  1290 


10  ,2303  4 0062  1 

10,2304  50  061  0 

10,  2 30  5 5 4 74  7 1 


BELOW  4 


CS 

NOX 

TS 


TEMPP 
TEMPG 
-PHASE1  -2 


AND  STORE  THE  FINAL  PART  CF  THE  PHASE 


9 313 

0314 

0315 


13  ,2306  3 0002  0 

10, 2 3C7  22  C 73  0 

10,2310  0 0003  1 

10,231  1 52  006  0 


CA  3 

LXCH  TEMPBBCN 

RELINT 

DTCB 


A P : 


ASSEMBLE  REVISION  56  OF  AGE  PROGRAM  7ERLINA  BY  ZOROASTER 


PHASE  TABLE  MAINTENANCE 


0316 


RFF  6 LAST  1290 


13,2312  22  073  0 C0N2 


LXCH  TEMPBBCN 


r 317  RI  F 6 LA  ST  1290 

33TB  RFF  6 I AST  1290 

0319  REF  4 LAST  1290 


10,2313  3 0062  0 

10,  2 3 14  50  Cfl  0 

13,2315  54  750  1 


CA  TEMPP 

NO  X TF  MPG 

TS  P HAS  E 1 -2 


REF 

REF 

REF 


LAST  1280 


10, 2316 
10,2  3l 7 
10,2320 


3 C C 70  0 
50  061  0 
55*051  0 


CA  TEMPPR 

NOX  TF  MPG 

TS  PHSPR0T1 


3323 

0324  REF 
3325  REF 
0326  REF 


LAST  12B9 
1 A ST  129  1 
LAST  1289 


10, 2321 
10  ,2322 
10,2323 
10,  2 3 24 


C 0006  1 
3 0064  0 
EC  C 61  0 
5 3 '6  35  0 


EXTEND 

DC A TEMPNM 

NDX  TENPG 

DXCH  PH  SNA  ME  1 


0327  REF 


10,2325  1 2247  0 


TCF  BEL0W1 


3328 

0329  REF  4 LAST  736 

0330 


7762 

SOOO 

7762 


BLOCK  03 
SETLOC  FFTAG6 
BANK 


3 33  1 
0332 
0 333 
0334 


PEF  1 

REF  3?  LAST  1289  7762  7 4740  1 CHECK  R 

REF  383  LAST  1290  7763  10  CCO  0 

REF  2 LAST  1288  7764  1 5634  0 


COUNT*  $$ /PHASE 
MASK  BIT  12 
CCS  A 

TCF  5ETPRI0 


335  REF 


7765  1 5413  0 


TCF  OLCPRIO 


9:  12  OCT.  21,  1970  SKIPPER  .121  PAGE  1291 


US ER'S  PAGE  NO . 9 


E 3 S 4 


2 


2 


SINCE  THIS  IS  OF  TYPF  B,  THIS  BIT  SHOULD 
BE  HERE  IF  ri  E ARE  TO  GET  A NEW  PRIORITY 
IT  IS,  SO  GET  NEW  PRIORITY 


IT  I SN : T » USE  THE  OLD  PRIORITY 


SAP:  ASSEMBLE  REVISION  56  OF  ASC  PROGRAM  ZERLINA  BY  ZOROASTER 


00^1 

TO''? 

0003 


RESTARTS  POUT IKE 

RFF  2 LAST  246 


01 *3530 
01,  20C0 
01,3530 


BANK  0 1 
SETLCC  RESTART 
BANK 


0005 

0006 

0007 

0008 


01  ,3530  3 0161  1 

Cl,  35  21  6 CCCC  1 

0 1,  3532  5 A 155  1 


E5ANK=  PHSNAME1 

COUNT*  * $ /R  SR  OU 
RESTARTS  CA  MPAC  +5 

DOUBLE 

TS  TEMP2G 


OOl  3 

0014 

0015 
OC  16 


REF  1 
REF  10 
REF  3e4 
PEF  1 


0 1,  35  27 
01,3540 
01,  354  1 
01,3542 


3 0154  1 
7 5007  1 
1C  000  0 
1 3553  0 


CA  TFMPPHS 

MASK  OCT  1400 

CCS  A 

TCF  ITSAVAR 


Ol.^B  1C  154 
0 1, 3544  lo  oon 
01  ,3545  1 3653 


GETPART2  CCS 
CC  S 
TCF 


TEMPPHS 
ITS  AT  0 L 


00  2? 
0023 
0023 


REF 

REF 

REF 

REF 

REF 


LAST  1289 
LAST  1199 
LAST  1288 


0 1,  3546 
01,3547 
E 3 , 1 4 0 0 
01, 3550 

01  ,3551 


03040  0 
2010  3 1 


CA  PRIG14 

TC  FINDVAC 

E R ANK=  LST 1 
2C ADR  INI  TO SP 


0024  REF  2 LAST  1292  01,3552  C 3567  C 


0025 

0026 
0027 


REF 

RFF 

REF 


0 1,  355  3 
01 ,3554 
01,  3555 


7 50C  7 1 
1C  COO  0 
1 3624  0 


PTRNCADR 

OC  T140C 
A 

TCF  ITSLIKEB 


002  8 
00  29 

0030 

0031 


KEF 

REF 

REF 


LAST  1292 
I AST  129  2 
LAST  1292 


- - 

Cl  ,3557 

0 1,  3560 

01  ,3561 


0 0006  1 
5 015  5 o 

2 1437  0 
52  706  1 


PB  SNA  ME  1 
GOLOC 


0032 

0033 
00  34 

0035 

0036 


PEF  3 
REF  3 
REF  ? 
REF  387 
RFF  1 


LAST  12^2 
LAST  1289 
I AST  1 146 
L AST  1292 


01,  3562 

01.3563 

01.3564 
01,  3565 
01  ,3566 


? 0154  1 
7 4757  1 
6 7760  1 
1C  000  0 
1 3736  l 


TEMPPHS 
3C  T 7 
MINUS2 


LAST  1256  01,3567  C 4631  1 RTRNCAOR  TC 


SWRETUPN 
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USER'  S PAGE  NC.  1 EO  S4 

GOPROG  MUST  SWITCH  TO  THIS  EBANK 

GET  GRID  UP  NUMBER  -1 
S AV  E FOR  INDEX  ING 


SET  UP  EXIT  in  CASE  IT  IS  AN  FVEN 
TABLE  PHASE 

TO  SAVE  TIME  ASSUME  IT  WILL  GET  NEXT 
GPOU P AFTER  THIS 

IS  IT  A VARIABLE  OR  T ABI  E RESTAPT 
I T : S A VARIABLE  RESTART 

IS  IT  AN  X.  1 R ESTART 

NO,  I TS  A TABLE  RE  START 

IT  IS  AN  X.1  RESTART,  THEREFORE  START 
THE  Dl SPLAY  RE  START  JCB 

FINISHED  WITH  THIS  GROUP,  GET  NEXT  ONE 
I S I T TYPE  B ? 

YES, IT  IS  TYPE  B 

STORE  THE  JOB  (OR  TASK)  2 C ADR  FOR  EXIT 


SEE  IF  THIS  IS  A JOB,  TASK,  OR  A LONGCAL 

I TS  A LONGC ALL 

CANT  GET  HERE  ^ 

I 


« 


GAP:  ASSEMBLE  REVISIGN  56  OF  AGC  PRCGRAN  ZERLINA  BY  ZOROASTER 


RESTARTS  ROUTINE 


0038 

0:39 


REF 

REF 


31  ,3570  1 3572  0 

01,  357  1 1 3637  1 


TCF 

TCF 


ITSAWA1T 
I TSAJCR 


LAST  1292 


3 0 A? 
0043 
00  44 
00*5 
0046 

3 3 47 
0048 
R0049 


REF  3 
REF  3 
REF  388 
REF  389 
REF  1 


LAST  129  2 
LAST  1291 
LAST  1292 
LAST  129  3 


3 1,  3574 
01  ,3575 
0 1,3576 

0 1,  3577 

01  ,3600 


50  155  0 
3 1053  0 
1C  fCC  0 
24  COO  1 
1 3603  0 


REF  l 
REF  1 

*****  THIS  MUST  3 E IN  FIXED  FIXED  ***** 


01,  3601  l 5447  1 
01  ,3602  1 3622  0 


Tl  RETEST  CCS 
I NCR 
TCF 

TCF 

TCF 


A 

A 

F INDT IME 
I TSI NDI R 
I M ED  I A TE 


REF 


1 


5447 

4000 

5447 


BLOCK 
S ETLOC 
BANK 


0053 
00  54 
3355 


REF 

REF 

REF 


5447  22  706  0 


COUNT* 

ITSINDIR  LX  CH 
LXCH 


REF  39C,  LAST  1293 


33  63 
R 006 1 


0063 

0064 


2 LAST  1293 


5455  1 36C3  0 


*****  YCU  PAY  RETURN  TO  SWITCHED  FIXED  ***** 
REF  3 LAST  12g2  5^,’KoO 


GOLOC  +1 
FI NDTI PE 


BANK 
SE  TLOC 
BANK 


3 3 65 
0066 
0067 
3368 

0069 

0070 

0071 

0072 
3373 


REF  2 L AST  1292  TO  1293: 

01, 3603 

REF  258  LAST  1282 

RFF  4 LAST  1 29  3 

RFF  4 LAST  1290 


REF  23 
REF  391 


LAST  1290 
LAST  1293 


01 ,3604 
01,  360  5 
01  ,3636 
Cl,  36C7 
0 1,  36  10 
01,3611 
0 I,  3612 


43  43* 

4 0000  0 
54  PCI  1 
5C  155  0 
4 1052  0 
C CCC6  1 
60  025  0 


F INDT IMF  CON 


COUNT*  t $ / RS  RCU 
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ITS  A JOB 

SET  UP  WAI  TLI  ST  CALL 

OIRECTLY  STORED 

IS  IT  AN  IMMEDIATE  RESTART 
NO, 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

STORED  INDIRECTLY 

IT  WANTS  AN  IMMEDIATE  RESTART 


GET  THE  CORRECT  E BANK  IN  CASE  THIS  IS 
SWITCHED  ERRAS  I BL  E 

GET  THE  TI  ME  I NDI  RFCTLY 

RESTORE  THE  RB  ANC  GOLOC 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 


MAKE  NEGITIVE  SINCE  IT  WILL  BE  SUBTRACTD 
AND  SAVE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


L RESTARTS  ROUT INE 


0074 
3375 
QC  76 
OC  77 
3379 
0079 
00  80 
OOSl 
00  82 
3383 
CCR4 


REF  3 LAST  812 
REF  llc  IAST  1288 
REF  259  LAST  1293 
REF  352  LAST  1293 
REF  243  LAST  1274 


REF  116  LAST  1294 

REF  6 LAST  1293 

PFF  3 LAST  1792 

REF  2 LAST  12p2 


01  ,3613 
Cl,  3fc  14 

01.3615 

01.3616 
01,  3617 
3 1 ,3620 
01  ,3621 
0 1,  3622 

1 ,3623 
01,  3624 
01,3625 


6 7743  0 
6 4753  1 
6 000  1 0 
10  000  n 
3 4755  1 
1 3622  0 
1 3622  0 
6 4753  1 
0 0 7C4  1 
3 3567  C 
54  157  0 


AD 

AD 

AD 

CCS 

CA 

TCF 

TCF 

IMFDIA  TF  AO 
TC 

I tsli  KEB  CA 
TS 


OCT  37776 
ONE 
L 
A 

ZERO 

*2 

+1 

ONE 

GOLOC  -1 
RTRNC ADR 
TE  MPSWCH 


0085  REF 
3086  REF 


LAST  1294 


01  ,3626  3 3773  1 

0 1,  3627  5 4 7C  7 0 


CA  PRT2CADP 

TS  GOLOC  +2 


0087  PFF 

0088  RFF 

0089  RFF 


LAST  129  2 
LAST  1294 


01  ,3630 
Cl, 36 31 
0 1,  3632 


3 0154  l 
7 61C6  1 
1540 


CA  TEMPPHS 

MASK  0CT177 
TS  TEMPPHS 


0090 
339  1 
0C92 
009  3 


Rf  F 
RFF 
REF 


LAST  1293 
LAST  1 2a2 
LAST  12Q4 


01  ,3633 
Cl,  3634 

0 1 ,3635 

01  ,3636 


0 0006  1 
5 C 1 55  0 
3 1437  0 
5?  706  1 


EXT  END 

ND  X TEMP2G 

DC  A PHSNAMF1 

DXf H GOLOC 


0094 

0095 
3396 

0097 

0098 


REF 

REF 

RFF 


6 LAST  1294 
4 LAST  1293 
9 LAST  1294 


0 1,  3637 

01  ,3640 
Cl,  36  4 1 

01.3642 

01 .3643 


50  155  0 
3 1053  0 
54  7C4  0 
0 0006  1 
6 3647  1 


ITSAJQB  ND  X TEMP2G 

CA  PHSPRDT1 

CH KNO VAC  TS  GOLOC  -1 

EXTEND 

RZMF  IT  S NOV  AC 


3399 

0100 

0101 


REF  1 

REF  If  LAST  1294 
REF  11  LAST  1294 


01,  3644  3 4354  1 

01  ,3645  56  704  1 

01,3646  C C7C4  1 


CAF  FV  ACC  ADR 

XCH  GDLDC  -1 

TC  GOLCC  -1 


0102 
0 1 0 3 
3134 
0105 


REF  1 

REF  12  LAST  1294 
REF  13  LAST  1294 


0 1,  364  7 3 4 351 

91,3650  56  704 

01,  3651  4 CCCO 

01,3652  0 0704 


1 ITSNDVAC  CAF 
1 XCH 

0 COM 

1 TC 


NOVACADR 
GOLOC  -1 

GOLOC  -1 


0 106 
3137 
0108 
0109 


REF  41  LAST  1279 
RFF  42  LAST  1294 

REF  1 


01 ,3653  54  020 

J 1,  3654  1C  0 20 

01.3655  1 3656 

01.3656  1 3754 


1 I TS AT  BL  TS 

i cr.  s 

0 TCF 

C TCF 


CYR 
C YR 
+ 1 

ITSEVFN 


olio 

0 111 


REF  LAST  1294 

RFF  14  LAST  1294 


0 1,  3657  3 3567  0 

01  , 366' ' 54  707  0 


CA  RTRNCADR 

TS  GOLOC  +2 


3112 
0113 
0 114 


REF  6 LAST  1294 
RFF  25  LAST  1282 
RFF  26  LAST  1294 


01,  366  1 3 0 1 c4  1 

01  ,3662  54  021  0 

0 1,3663  6 C C 2 1 1 


CA  TEMPPHS 

TS  SR 

AO  SR 
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type  R,  SO  STORE  RETURN  IN 

TEMPSWCH  IN  CASF  OF  AN  EVEN  PHASE 

SET  JP  EXIT  TO  GET  TABLE  PART  OF  THIS 
VARI ABLE  TY  PE  OF  PEAS  E 

MAKF  THE  PHASE  LOOK  RIGHT  FOR  THE  TABLE 
PART  OF  THIS  VARIABLE  PHASE 


OBTAIN  THE  JOB:S  2 CADR 


NOW  ADD  THE  PRIORITY  ANC  L ET : S GO 

SAVE  PRIO  UNTIL  WE  SEE  IF  ITS 
A FINDVAC  OR  A NOVAC 


POSITIVE,  SET  UP  FINDVAC  CALL. 

PICK  UP  PR  I 0, 

AND  GO 

NEG  ATI VF  , 

SET  UP  NOVAC  CALL, 

CORRECT  PRIO, 

AND  GO 

FIND  OUT  IF  THE  PHASE  IS  ODD  OR  EVEN 
IT:  S EVEN 


IN  CASE  THIS  IS  THE  SECOND  PART  OF  A 
TYPE  B RESTART,  WE  NEFD  PROPER  EXIT 


SET  UP  POINTER  FOR  FINDING  OUR  PLACE  IN 
THE  RESTART  TABLES 


« 


» 


GAP  : ASSEMBLE  REVISION  56  OF  AGC  PRCC-RAM  ZERLINA  BY  ZOROASTER 


RESTARTS  ROUTINE 


0115 
:>I16 
C’1 17 


REF 

REF 

REF 


01  ,3664 
01,  3666 


50  155  0 
6 2 C03  C 
54  156  1 


NDX  TFMP2G 

AO  SIZETA8 

TS  POINTER 


lift 

Mil 

0120 


2 LAST  1295 


01  ,3667  0 0006  1 

01  ,3671  3 2002  1 


CCNTBL2  EXTEND 


REF  15  LAST  1294  01,3672  22  7C6  0 


l 122 
('123 
5124 


REF  393 
REF  394 
REF  1 


0 1,  3673 
Cl ,3674 

01,  3675 


10  000  0 
24  000  1 
1 3750  1 


LXCH  GOLOC  +1 

CC  S A 

I NCR  A 

TCF  ITSAJ0B2 


0129 

r>13o 

0131 
A3  132 
A ('  1 33 
0 134 


REF  18 
REE  43 
PFF  3S6 


LAST  1295 


Cl,  37C2 
01 ,3704 


3 LAST  1295 


2 C 706 
7 4 742 
10  000 


01  ,3705  1 3743  0 


CA  GOLDC 
MASK  RIT10 
CCS  A 


TCF 
ND  X 


01,  3710  1 5456  1 


*****  this  MLS  T BE  IN  FIX  EC  FIX  EC  ***** 
5456 

RFF  2 LAST  1293  4000 

54  56 


BLOCK  02 
SFTLOO  F F TAG  2 
BANK 


REF  ? LAST  1 293  TO  1293:  7 7*  CCUNT*  tf/RSROU 

REF  1 9 LAST  1295  *456  22  706  O ITSLGCLl  LXCH  OOLOC  +1 

RFF  4 LAST  1 2°  3 5457  22  006  l 

REF  20  LAST  1295  5460  22  706  0 


146 

0147  REF  3S7  LAST  1295 
0149 


5461  0 0006  1 

*462  5 0O0C  1 

5463  3 0001  o 


EXTEND 
NOX 
DC  A 


A 

0 


0149  RFF 

0150  REF 

0151  REF 


LAST  12^5 
LAST  1 ?9  5 
LAST  1 2p  5 


*464 
*465 
5 466 


22  706  0 
22  CC6  1 
22  706  0 


LXCH  GOLDC  +1 
LXCH  HR 
LXCH  3 0L0C  «■  1 
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FIND  OUT  WHAT : S IN  THE  TABLE 

GET  THE  2CADP 

STORE  THE  BB  INFORMATION 

I S I T A JOB  OR  IS  IT  T IMED 
POSITIVF,  MUST  RE  A JOB 


MUST  BE  EITHER  A WAITLIST  CR  LONGCALL 
LET-S  STOPE  THE  CORRECT  CADR 

SET  UP  OUR  FXIT  TO  WAITLIST 


NOW  FINO  OUT  IF  IT  IS  A WAITLIST  CALL 
THIS  SHOULD  BE  ONE  IF  WE  HAVE  -BB 
FOR  THAT  MATTER  SO  SHOULD  BE  BITS  9,8,7, 
6,5,  AND  LAST  BUT  NOT  LEAST  (PERHAPS  NOT 
IN  IMPORTANCE  ANYWAY.  BIT  4 
IT  IS  A W AITL  I ST  CALL 


OBTAIN  THE  ORIGINAL  OEITA  T 
ADDRESS  FOR  THIS  LONGCALL 


NOW  GO  GET  THE  DELTA  TIME 


OBTAIN  THE  CORRECT  E BANK 
AND  PRES  ERV  F OUR  E AND  F RAN< S 
GET  THE  DELTA  TI  ME 


RESTORE  OUR  E A ND  F BANK 
RESTORE  THE  TASKS  F AND  F BANKS 
AND  PRESERVE  OUR  L 


GAP: 


ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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0152 

R0153 

9 154 
3155 
0156 


R F STARTS  ROLTINF 

PFF  1 5467  ] 3711  1 

*****  YCU  MAY  RETURN  TU  SW  ITCFEC  FIXEO  ***** 


PFF 


4 LAST  1293 


01  ,3711 

31, 2000 
'1,3711 


BANK  31 
SFTLCC  RESTART 
BANK 


USFR'S  PAGF  NO.  5 E3  S4 

NOW  L ET : S PROCESS  THIS  LONGCALL 


0150 

3 lf>0 

0U1 
0 162 
3163 

0164 

0165 
Pi  66 
0167 
3168 
Pi  69 
O 170 
3171 
0172 
0 173 


REF 

REF 

RFF 


LAST  1290 
LAST  1 2°6 


11  LAST  1296 


LAST  12«3 
LAST  129  6 
LAST  1296 


23  LAST  1295 


LAST  1296 
LAST  1296 


01  ,3712 
01,  3713 

01.3719 
01 ,3715 
01,  3716 
01  ,3717 

01.3720 

0 1 , 37  2 1 

01  ,3722 
01,  ^723 

0 1,  3724 
91  ,3725 
01,  3726 
31  ,3727 

01  ,3730 


01,  3733 
01,3734 
01  ,3735 


0 0006  1 
4 C 02  5 1 
21  • 153  0 
0 0006  1 
3 1151  0 
21 • 153  0 

11* 152  1 
1 3731  0 
1 3724  1 
1 3617  0 
11*15  3 0 
1 3731  0 
13  727  1 
1 36  17  0 
1 3622  C 


EXT  END 

OCS  TIME2 

DAS  LONG  TI MF 

EXTEND 

OCA  l ONGBASE 

DAS  LONGTIME 

CCS  LONGTIME 

TCF  LONGCLCL 

TCF 
TCF 


CCS 

TCF 

NOOP 

TCF 

TCF 


I MEOI  ATE 
LONG  TI  MF 
LONGCLCL 


0 LONGCLCL  CA 


CCC6  1 
1153  1 
0704  1 


EXTEND 

D C A LONGTIME 
TC  GOLOC  -1 


CALCUL  ATF  TIME  LEF  T 


FINO  OUT  HOW  THIS  SHOULD  BE  RESTARTED 


C AN : T GET  HEPE 


********* 


I TSLNGCL  C A 


WE  WI  LL  GO  TO  LONGCALL 

PREPARE  OUR  ENTRY  TO  LONGCALL 

ASSUME  IT  WILL  GO  TO  WAITLIST 


P 183  RFF 


LAST  1295  01,3742  l 5456  1 


TCF 

I TSWTL  ST  C S 


GET  THE  DELTA  T ADDRESS 
NOW  GET  THE  DELTA  TIME 
CORRECT  THE  BBC  ON  INFORMATION 


3186 
Pi  87 

0 188 


01,3747  1 3576  1 


FINO  OUT  HOW  THE  TIME  IS  STORED 


GAP:  ASSFMRLE  REVISION'  56  GF  AGf-  PROGRAM  ZERLINA  BY  ZOROASTER- 


0189 

0L9.Q 
nl  pi 


REST  ARTS  ROUT  IN  E 
RFF  2 B LAST  1296 


01  ,3750  56  705  0 IT S AJ O 02  XCH 


01,3753  1 3641  O 


IT  SEVEN  CA 


0 195 

01  96 
0197 
0193 
C'1  9Q 
0 200 


RFF 

REF 

REF 

REF 

REF 

RFF 


I A ST  129fc 
L AS  T 1 29  5 
LAST  1294 
LAST  1297 
LAST  1 2o  7 
LAST  1297 


Cl  ,3756 
■ 

01  ,3760 
Cl,  3761 
01 ,3762 
01  ,3763 


50  155  o 
3 200  2 1 
6 0154  1 
6 Cl  54  1 
6 0154  1 
54  156  1 


TEMP2G 
SI  ZF  TAB 
T EMPPHS 
TEMPPHS 
TEMPPHS 
POINTER 


3231 


01,  3764  1 3667  1 


C0NTBL2 


0204 

0205 
A3  20  6 

0207 


LAST  1297  01,3771  1 3667  1 


TCF 


CONTBL  2 


0208 

3209 

0210 

0211 

0213 

0214 


REF  804 
RFF 

REF  8C6 
REF  8C7 
REF  9 
REF  9 


LAST  1292 
LAST  1297 
LAST  1297 
LAST  1297 
LAST  127  5 
LAST  1101 


01  54 
0 155 
3156 
0157 
7760 
6106 


TEMPPHS  EQUALS  MPAC 
TFMP  20  EQUAL  S MPAC  +1 
POINTER  EQUALS  MPAC  +2 
TEMP  SWCH  EQUALS  MPAC  +3 
M INUS?  EQUAL  S NEG2 
QCT177  EQUALS  L0W7 


3219  PFF  1 0 1,  3 772  C3765  0 PHS2CA0R  GENAOR  PH  SPART2 

02 1 6 RFF  1 01  ,3773  03543  0 PRT2CACR  GENAOR  GETPART2 

0217  REF  5 LAST  1200  01  ,3774  05310  0 LGCLC  ADR  GENAOR  LONGCALL 

0?  1.8  REF  2 LAST  456  4 354  FVACCA  DR  = TC  F 1 NO  VC 

^219  PFF  2 LAST  456  4352  WTLTCAOR  = TCWAIT 

3223  REF  2 LAST  455  4 35  1 NO  VAC  AOR  = TCNCVAC 
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STORE  THE  CADR 

AOD  T HE  PRIOR  IT  Y AND  l ET:  S GO 


SET  UP  FOR  FIT  HER  THE  SECOND  PART  OF  THE 
TABLE,  OK  A RETURN  FOR  THE  NEXT  GROUP 


SET  UP  POINTER  FOR  OUP  LOCATION  WITHIN 
THE  TABLE 

THIS  MAY  LOOK  BAD  BUT  LF  T : S SEE  YCU  DO 
BETTER  IN  TIME  OR  NUMBERR  OF  LOCATIONS 


NOW  PROCESS  WHAT  IS  IN  THE  TABLE 


SET  THE  POINTER  FOR  THE  SECONO  HALF  OF 
THE  T ABL  E 


THIS  WILL  BE  OUR  LAST  TIME  THROUGH  THE 
FVEN  TABLE  , SO  AFTER  IT  GET  THE  NEXT 
GROUP 

SO  LE  T : S GET  THE  SECOND  ENTRY  IN  THE  T BL 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
I MU  MCOF  SWITCHING  ROUTINES 


000  1 
DDT? 
0003 


5470 

4000 

5470 


BLOCK  :2 
SETLOC  FFTAG3 
BANK 


0004  REF  1 E 3 f 1 47 1 

R0005  FIXEC-FIXEC  ROUTINES. 


0006 
DDT7 
OOCft 
oono 
DD1D 
001 1 


RFF  1 9 
RFF  1 1 
RFF  17 
REF  34? 


B 470 

5471 

5472 
5 47  3 
5474 


3 4755  1 
54  032  l 
54  033  0 
c 4 0 34  1 
C 0002  0 


EBANK=  COMMAND 


**/  IMODE 
7E  RO 
C DUX 
CDUY 
CD  UZ 


REF  26  LAST  1274 


SP  SC  ODE  = 
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ZERO  I CDU  COUNTERS. 


1 

* 


* 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


IMIJ  MODE  SWITCHING  RCLTINES 


PDD13 


IMIJ  ZERO  IMG  ROUT  INE  . 


0014 

0015  REF 

0016 


II  ,3755 
C 7, 2000 
07, 2661 


RANK  II 
SETLOC  MODES W 
HANK 


00  1 7 
3)18 
0019 


30  20 
33  21 
0022 


REF  1 

REF  4? 
REF  A 
REF  398 
REF  1 


LAST  534 
LAST  219 
LAST  1295 


C 7,  2661 

07.2662 

07.2663 
C 7,  2664 
07  ,2665 


C C0C4  0 
4 1035  1 
7 4771  0 
10  000  0 
1 267  1 1 


I MLZERO 


f 5/  I MODE 

3 SP  TAB  +1 

BITS4&6 

A 

IMUZEROA 


COUNT  * 
I NHI  NT 
CS 

MASK 
CC  S 
TCP 


0023  RFF  45  LAST  1243 

0024 


07.2666  C 5600  1 

07. 2667  00206  0 


TC  ALARM 

OCT  00206 


0 26  RFF 


07,2670  1 3656  0 


TCF  CAGETSTJ 


3332  REF 
R0033 
0034  REF 
3)35  REF 
0036  REF 


2 LAST  1299 
DELETE 

37  LAST  657 

3 LAST  850 

38  LAST  1299 


07,  2671 


3652  0 IMUZEROA  TC 


CAGETSTJ 


07  ,2672  4 1300  1 

07,2673  7 4773  1 

07  ,2674  27*300  1 


CS  I M0DES33 

MASK  SUPER011 
ADS  IMODES  33 


003  8 
00  39 


REF  48  LAST  974 
REF  1 

REF  49  LAST  1299 


07, 2675  4 1277  0 

' 7,  2676  7 5752  0 

07,2677  27*277  0 


CS  I M0DES30 

MASK  31  TS  3(14 
ADS  I MODES  30 


REF  5 
RFF  51 


LAST  1299 
LAST  897 


07, 2700 
•>7  ,2701 
C 7 , 2 70  2 


4 4771  0 
0 0006  1 
C 3 012  1 


CS  BITS4C6 

EXTEND 

WAND  CHAN12 


0043 


REF  3 LAST  172 


07,  2703  0 3233  0 


TC  N OAT  TOFF 


O'  44  RFF  41  LAST  1274 

0 3 45 

0046  RFF  52  LAST  1299 


07 ,2  7C4  3 4747  1 

C 7,  27 C 5 C 0CC6  1 
07,2706  05  012  1 


CAF  B IT  5 

E XTEND 

WOR  CHAN  12 


00461  RFF  3 

0047  REF  45 

0048  RFF  35 

) ? 49  REF  3 

0050  RFF  1 

0050  RFF  1 


ikll 

1123 

176 


07,2707 
r)  7 , 27  10 
07 ,271  1 
E 3,  1 474 

07.2712 

07.2713 


02724  1 
16103  1 


TC  ZERO  I CDU 

CAF  31 T6 
TC  WAITLIST 

F BANK=  CDUI NO 
2C  ADR  IMUZER02 


3)51  RFF  50  LAST  12<J9 

0052  «FF  27  LAST  12«>8 

0053  REF  399  LAST  1295 

0054  REF  1 


07,  27  14  4 1277  0 

'*7  ,27  15  7 4743  1 

07,2716  1C  CCO  0 
07,  27  17  1 2722  0 


CS  I MODE  S3  0 

MASK  P I T9 

CCS  A 

TCF  MOOEFXIT 
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ROUT INE  TO  ZERO  ICOUS  . 

DONT  ZERO  CDUS  IF  IMIJ  IN  GIMBAL  LOCK  AND 
COARSE  ALIGN  (GIMBAL  RUNAWAY  PROTECTION) 


IMMEDIATE  FAILURE. 


DISABLE  DAP  AUTO  AND  HOLD  MOOES 
BIT5  FOR  GROUNC 


INHIBIT  ICDUFAIL  AND  IMUFA  IL  (IN  CASE  WE 
JUST  CAME  OUT  OF  COARSE  ALIGN). 


SEND  ZERO  ENCODE  WITH  COARS  F AND  ERROR 
COUNTER  DT  SABLED. 


TURN  OFF  NO  ATT  LAMP. 


WAIT  320  MS  TO  GIVE  AGS  ADEQUATE  TIME  TO 
RECEIVE  I TS  PUL  SF  TRA  IN. 


SEE  IF  1 MU  OPERATING  ANC  ALARM  IF  NOT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


I MU  MODF  SWITCHING  RCUTINES 
REF  46  LAST  1299  07,2720 


LAST  1292 


0062 

0063 

3064 


REF 

REF 


A I A ST  1299 
42  LAST  1299 
53  LAST  1299 


07,  2726 
07,2727 
C 7,  2730 


t 4747  0 
C 0006  1 
C 3 C 1 2 1 


r.  S 3 I T 5 

EXTEND 

WAND  CHAN12 


REF 

RFF 

REF 

REF 


2 LAST  133  0 
2 LAST  1299 

51  LAST  1299 

52  LAST  1300 


07,  2733 
07  ,2734 
07,  2735 
07,2736 


C 3640  0 
4 5752  0 
7 1277  0 
55*277  0 


IMUZER0  3 TC 


CAGE  TE  ST 
BITS  3 64 
I MODE S30 


REF 

RFF 

REF 


LAST  1?Q9 
L AST  1299 
LAST  1300 


07,2741  55*300  1 


07,  2742 
07,  274  3 


07,2744  1 3613  1 


CADR 

TCF 
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GENERAL  MODE- S WI  TC  H I NG  EXIT. 

ZERO  CDUX,  CDUY,  CDUZ 
REMOVE  ZERO  OISCPETF. 

WAIT  10  SECS  FOR  CTRS  TO  FIND  GIMBALS 

REMOVE  IMUFAIL  AND  ICDUFAIL  INHIBIT. 

ENABLE  DAP  AJTO  AND  HOLD  MODES 
RIT5  FCP  GRQJNC 


SET  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 
PRE  SENT. 


GAP:  ASSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZORCASTER 


L IMU  MODE  SWITCHING  ROUTINES 


3 0078 


I MU  COARSE  ALIGN  RCDE. 


3379 

0080  REF 

0081  REF 


3 LAST  1299 
2 I A ST  175 


0 7,  2 7 A 5 C CCC  A 0 
07  ,2746  0 3652  0 

C7,2  747  0 3111  0 


I M DC  OAR  S I NHI  NT 


CAGETSTJ 
S ETCC1ARS 


0082 
0083 
3 3 84 
0085 
0085 


REF  22 
REF  36 
PEF  4 
REF  1 
RFF  1 


LAST  1274 
LAST  1299 
LAST  1299 


07, 2750 
07  ,2751 
E 3,  1474 
07,2752 
'7,2753 


3 6254  1 
0 5214  0 

02755  l 
16103  1 


CAF  SI  X 

TC  WAITLIST 

E BANK=  CDUI ND 
2CA0R  30ARS 


5086  REF 


LAST  1299  07,  2754 


1 2722  0 


TCF  MODEEXIT 


0087  REF 

0088  REF 

0089 

0090  RFF 


3 LAST  1300 
46  LAST  1299 

54  LAST  1300 


07  ,2755  0 3640  0 

07,2756  7 4746  0 

07,  2757  0 0006  1 

07  ,2760  05  012  1 


CHARS 


TC  CAGETEST 

CAF  BIT6 

E XTEN3 

WHR  CHAN  12 


REF  77  LAST  1289 
REF  K LAST  1301 


C 7,  2761  3 4752  0 CAF 

07,2762  55  '474  0 CQARS1  TS 


TWO 

CDUIND 


00  9 3 
3394 
OC  95 

0096 

0097 

0098 


3099 

- lot 
0 10  1 
3132 
0103 
0 104 


REF  49 
RFF  261 


LAST  1301 
LAST  1298 

LAST  1274 
LAST  129  4 


I AST  1289 
LAST  1301 


0 7, 2764 
07  ,2765 
C 7 , 2 766 
07,  2767 
07,2770 
C7, 2771 

07.2772 

07.2773 

07. 2774 
07  ,2775 
07,2776 


51*474  1 
3 0321  1 


0 0006  1 


0 0006  1 
7 4737  1 
56  001  0 
6 0000  1 
54  C 6 1 1 
1 2777  0 
26  001  1 


INOEX  COUINO 
CA  THE  TAD 

EXTEND 

INDEX  CDUIND 

m su  :dux 
ex  T EN  D 

MP  0IT13 
XCH  L 
DOUBLE 

TS  ITEMPl 

TCF  +2 
ADS  L 


0105  PEF  8 

0106  REF  2 

3137  REF  o 

0108  REF  1 


LAST 

LAST 

LAST 


13*  1 
1298 
130  1 


47,  2777  5 1 *474  1 

07,3000  23*471  1 

C7,  3CC  1 1 1 * 474  0 

07,3002  0 2762  0 


INDEX  CDUIND 
LX  CH  COMMAND 
CCS  CDUIND 

TC  C OAR  S 1 


0109  RFF  78  LAST  1301 
311?  RFF  8 l AST  1330 


:7,3003  3 4752  0 

0 7,  300  4 C 5 2 3 5 C 


CAF  TWO 

TC  VARDELAY 


121  PAGE  1301 


9:  12  OCT  . 21,  1970  SK  IPPER  . 
USER*  S PAGE  NO.  4 


E3  S 4 


ENAeLE  ALL  THREE  ISS  CDU  ERROR  COUNTERS 

SET  CDU  INDICATOR 

COMP JT  E THETAD  - THFTAA  IN  1:S 
COMPLEMENT  FORM 


SHI  FT  R IGHT  2 
ROUND 


DIFFERENCF  TO  BF  COMPUTFD 


M IN  I MU  M OF 


IS  W A IT 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L I MU  MCPF  SWITCHING  ROUTINES 


‘ 11  1 
-*112 
0113 
0]  I A 


RFF 

REF 

REF 

REF 


IAST  1301  07,3005 

I AST  13C  1 07,  3006 

LAST  13:  1 .7  ,3007 

I AST  1301  C 7,  30  1C 


0 36 AO  0 CCAPS2 
5 A Cfcl  1 
3 6752  0 
55'676  C +3 


TC  CAGETEST 

TS  ITFMPl 

CAF  TWO 

TS  CDUIND 


i 115 
1 l-s 
3117 
lift 
11«> 
0120 


RFF  11 
RFF  3 
RFF  1 
REF  l 
RFF  1 
REF  2 


LAST  13p2 
LAST  1301 

LAST  13^2 


"7, 301 1 
C7 , 301 ? 
0 7,  3013 
07  ,3016 
07,30  15 
17,  30  1 6 


5 1 ' 67  6 1 
1 1 1 671  0 
0 3g  1 7 1 
C 3026  0 
C 3C66  C 
0 3 026  0 


INDEX  CDUIND 

CCS  COMMAND 

TC  COMPOS 

TC  NE  XTCDU  + 1 

TC  COMNEG 

TC  N=  XTCDU  «-  1 


121 
M2? 
f 123 


126 

3125 

0126 


RFF 

PEF 

RFF 

RFF 

REF 


1 C7 ,3017  6 3766 

C7, 3020  0 0006 

1 07,3021  6 3076 

1?  LAST  130?  07,3:22  5 1 ' 6 76 

6 l AST  1702  C 7 , 302  3 55'67l 

1 07  ,3026  6 3765 


0 COMPOS  AD  -COMMAX 

1 F X TE  NO 

1 BZMF  COMZERO 

1 INOEX  CDUIND 

0 TS  COMMAND 

0 CS  -COMMAX- 


c*  12a 

"1  2R 

3133 


PFF  51  LAST  1302 
PEF  26  LAST  1275 
RFF  13  LAST  1302 
RFF  7 |AST  2fl  7 


07,3025  26  C61  0 NF  XTCDU  INCR  ITFMPl 

^7,  3026  6 6756  0 AD  NEGC 

07  ,30  27  51*6  76  1 INOFX  CDUIND 

C7,  3020  56  C50  0 TS  CDUXC.MD 


(.131 


0 132 


LAST  1302 


07, 303  1 1 1 '676  0 

07,30,32  0 3010  0 


CCS  CDUIND 

TC  C0ARS2  +3 


133 

0136 


RFF  52  LAST  1 33  2 
REF  1 


07,  30  3 3 10  061  1 

07  ,3034  1 3100  1 


CCS  I TEMPI 

TCF  SENDPULS 


0135  REF  16  LAST  1112  C7.3C25  C 5232  1 TC  FIXOELAY 

0136  07,  3036  00226  1 DEC  150 


0137 
3 1 3ft 
0139 
0 160 
M 6 1 
0162 
•'163 
0166 
0165 
3166 
C 167 


RfF  AC  LAST  1302 
RFF  53  I AST  1702 
RFF  600  LAST  1299 
RFF  21  I A ST  1301 

RFF  56  LAST  1302 
REF  26  LAST  130  1 
REF  60 1 LAST  130  2 
RFF  1 
RFF  1 

REF  2 LAST  1302 


0 7 ,3337 
■'7,  3T60 
07  ,3061 
C7.3C62 
07,  3063 
07 ,3066 
07,  7 C6 5 
07,  30  46 
C7 ,3067 
07,  3C50 
07,3051 


3 6752  0 
5 6 C 6 1 1 
50  000  1 
3 0032  0 
C 00C6  1 
5 0061  0 
2 C 321  0 
10  COO  0 
1 3055  0 
1 3052  1 
1 3055  0 


C H KC.  OP.  S 


CAF  TWO 
TS  ITFMPl 

INOEX  A 
CA  C DUX 

EXTEND 

INDEX  ITEMP1 
MSU  THETAD 
CC  S A 
TCF  COARSFRR 

TCF  C0RSCHK2 

TCF  CD AR  SERR 


9:12  OCT.  21,1970  SKIPPER  .121 


PAGE  1302 


USER'S  PAGE  NC.  5 E3  S6 

DONT  CONTINUE  IF  CAGED. 

SFTS  TO 

SET  CPU  INDICATOR 


NUMBER  OF  PUISES  REOUIRED 
GREATER  THAN  MAX  ALLOWEC 


COMMAX  = MAX  NUMBER  OF  PULSES  ALLOWED 
MINUS  ONE 


REDUCE  COMMAND  BY  MAX  NUMBER  OF  PULSES 
A LLOWFD 


SET  UP  COMMAND  REGISTER. 

SFE  IF  ANY  PJLSES  TO  GO  OUT. 

WAIT  FOR  GIMBALS  TO  SETTLE. 


AT  END  OF  COMMAND,  CHECK  TO  SEE  THAT 
GIMBALS  ARE  WITHIN  2 DEGREES  DF  THETAD. 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L I MU  MODE  SWITCHING  ROUTINES 


0150 


REF  55  LAST  1302 
REF  1 

RFF  2 LAST  1300 


07,  3052  1C  C 6 1 

07.3053  1 3040 

07.3054  1 3613 


1 CORSCH  K2  CC  S 
1 TCF 

1 TCF 


I TEMPI 
CHKCOR  S 
END  I MU 


'151  REF 

0152 

0153  REF 


2 


I AST  1302 


J7.  3055  6 3063  1 COARSERR  AO  COARSTOL 

07  ,305b  f 0006  l EXT  END 

07,  3057  6 3C52  0 B Z MF  C0RSCHK2 


Cl  54  REF  47  LAST  1 3D  I 
0 155 


TC  ALARM 

OCT  2 1 1 


3156  REF 
0157 


LAST  171  07,  3062  1 36  36  0 TCF 

07,3063  77511  1 COARSTOL  DEC 


I MUBAD 

-.01111 


: 15? 

' 156 

c 160 

3161 

0162 

0 163 

1 1 64 
0165 


R EF 
RFF 

REF 
R EF 
RFF 
RFF 


2 l AST  1302 
2 LAST  1302 

15  LAST  1302 
6 LAST  1302 

2 LAST  130  2 

3 LAST  1302 


0 7,  30  65 
C 7 , 3 066 
07,  3067 
07  ,3070 
07,3071 
07,  3072 
07  ,3073 


6 3744  0 
0 0006  1 
6 3074  1 
4 OCCO  0 
51 1 474  1 
55*471  0 
3 3745  1 
0 3025  0 


CC1MNEG 


AD 

FXTEND 

BZMF 

COM 

INDEX 

TS 

CA 


-C  CM, MAX 


COMZERO 

CDUIND 
COMMAND 
-COMMA  X- 
MEXTCDU 


3166 
O'  67 
0 1 6 fl 
3169 


RFF  245  I AST  1298 
REF  16  LAST  1 T33 
REF  6 LAST  130  3 
REF  4 I AST  1303 


07,  3C74 
07,3075 
0.7 ,3076 
C7, 3077 


3 47  55 
5 1*474 
57*471 


G 3025  C 


COMZERO  CAF  ZF  RO 

INDEX  CDUINO 


XCH  COMMANO 


TC  NE  XTCDU 


0170  REF  3 

0 171 

0172  REF  17 

0173  REF  1 

3174  REF  ? 


LAST  541  07,3100 

■ 

LAST  893  07,  3102 

C-7, 31  03 
l AST  1302  C7,  3104 


3 7752  0 
C 00C6  1 
05  Cl4  1 
3 3746  1 
1 3C04  1 


SENOPULS  CAF  13,  14,  15 

EXTEND 

WOR  CHAN  14 

CAF  600MS 

TCF  C0ARS2  -1 


C 175 
"176 
Pi  77 
C178 


REF  47  I AST  1301 

RFF  55  [AST  1 3D  1 
REF  70  LAST  1199 


07  ,3105 
07, ? If  6 
07,  3 107 
07  ,311" 


3 4746  0 
C CCC6  1 
C 5 0 1 2 1 
C 5272  0 


CA  + C-CF 


CAF  BIT6 

EXTEND 

WOP  CHAN  12 

TC  TASKOVER 


9:12  CCT.  21  ,1970  SKIPPER  .121  RAGE  1303 
USER  *S  PAGE  NO.  6 E3  S4 

END  OF  COARSE  ALIGNMENT. 

2 DEGREES. 

COARSE  ALIGN  ERROR. 


2 DEGREFS  SCALED  AT  HALF-REVOLUTIONS 


THEN  TO  VAROELAY 


ENABLE  ALL  THREE  I SS  CDU  ERROR  COUNTERS 


TAP:  ASSEMBLE  RFVISION  Sb  OF  AGC  PR  C GR  AM  ZERLINA  BY  ZOROASTER 


L I M If  MODE  SWITCHING  ROUTINFS 


ol  79 

RFF 

40 

LAST 

1274 

07, 3111 

• 4750 

1 

SETCDAR  S CAF 

8 1 T4 

G180 

07,31 12 

C 0006 

1 

EXT  END 

) 1 B 1 

REF 

56 

1 AST 

130  3 

C 7,  3 1 13 

C 2 C12 

0 

RAND 

CLIAN12 

01*2 

REF 

402 

l AST 

1 3C2 

07  ,31  14 

10  000 

0 

CCS 

A 

0183 

RFF 

343 

1 A ST 

1298 

07,3115 

C OOC  2 

0 

TC 

0 

Ol  84 

REF 

48 

L AST 

1303 

07, 3 1 16 

i 4746 

1 

C S 

31  T6 

' 185 

07,3117 

r 0C06 

1 

EXTEND 

R EF 

57 

LAST 

C 7 , 2 1 2 G 

C 2 C 1 2 

1 

C H A N1 2 

Ol  R7 

REF 

LAST 

1295 

07,9121 

4 4742 

0 

CS 

31  T10 

r iflR 

07,312? 

0 9006 

1 

EX  T END 

MR  9 

REF 

18 

1 AST 

130  3 

C 7,  3123 

C 2 C14 

1 

WAND 

CH  AMI  4 

0190 

REF 

246 

L AST 

1303 

07  ,3124 

4 4755 

0 

CS 

ZERO 

0191 

REF 

2 

LAST 

lai 

C7,3 125 

54  047 

0 

TS 

GYROCMD 

0192 

REF 

4.1 

LAST 

1304 

07,  3126 

? 4750 

1 

CAF 

31  T4 

0 1 03 

07,3127 

0 0006 

1 

EXT  FND 

0194 

REF 

5B 

LAST 

130  4 

07,  3 13C 

C 5 C 1 2 

1 

WOR 

CHAM  2 

01  95 

REF 

43 

LAST 

1299 

07,3131 

4 10  35 

1 

CS 

3SPTAB  +111) 

0196 

REF 

1 

C 7 , 3 1 32 

7 3154 

0 

MASK 

OCT^OOID 

3197 

REF 

44 

L AST 

1304 

07,  3 133 

27*035 

1 

ADS 

DSP  TAP  +11D 

01  98 

REF 

41 

LAST 

1300 

07  ,3134 

4 1300 

1 

CS 

IMODES  33 

0199 

REF 

49 

LAST 

1 30  4 

07,  3125 

7 4146 

1 

MASK 

BI  T6 

0200 

REF 

42 

LAST 

1334 

07,  3136 

27*  300 

l 

ADS 

I MODE  S33 

0 201 

REF 

53 

LAST 

1300 

C7.3137 

4 1277 

0 

CS 

I MODES  30 

323? 

REF 

4? 

L AST 

1 30  4 

C7,  3 1 40 

7 4750 

0 

MA  SK 

PI  T£ 

0203 

RFF 

54 

LAST 

1304 

07  ,3141 

27*277 

0 

AOS 

I MODES  30 

02^4 

REF 

14 

1 A ST 

527 

C7,31 *2 

4 4 74  7 

0 

RNDREFDR  CS 

TRACKBIT 

0205 

RFF 

35 

LAST 

896 

07, 3143 

7 0075 

1 

MA  SK 

FLAGWRO  l 

0206 

REF 

36 

LAST 

1304 

07 ,3144 

54  C75 

1 

TS 

FLAGWRD1 

3237 

REF 

2 

L AST 

17  1 

07,  3145 

4 4735 

0 

CS 

DRFT8IT 

02  OB 

REF 

22 

LAST 

1112 

07 ,3146 

7 0076 

1 

MASK 

FLAGWRD2 

0209 

REF 

23 

LAST 

1304 

07,3147 

54  076 

1 

TS 

FLAGWRD2 

3213 

REF 

6 

L AST 

967 

C 7 , 3150 

4 4737 

1 

C S 

REF  SMB  I T 

0211 

REF 

1? 

1 AST 

96  7 

07  ,315  1 

7 0077 

0 

MASK 

FL  AGWR0  3 

3212 

REF 

13 

1 A ST 

1304 

07,3152 

54  C 7 7 

0 

TS 

FL  AGWRD3 

0213 

REF 

344 

LAST 

1304 

07, 3153 

C OCC 2 

0 

TC 

Q 

0214 

07,3154 

40010 

1 

CCT4001T  OCT 

400  10 
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US  ER'S  PAGE  NO.  7 E 3 S4 

BYPASS  IF  ALFEACY  IN  COARSE  ALIGN 

CLEAR  ISS  ERROR  COUNTERS 

KNOCK  DOWN  GYR  0 ACTIVITY 

PUT  I SS  I N COARSE  AL I GN 

TURN  ON  NO  ATT  LAMP 

DISABLE  DAP  AUTO  AND  HOLD  MOOES 

DISABLE  IMUFAIL 

CLEAR  TRACK  FLAG 

CLEAR  DRIFT  FLAG 


CLEAR  REFSMMAT  FLAG 


ASSEMBLE  REVISION  56  OF  AGO  PRGGRAM  ZERLINA  BY  ZOROASTER 


I MU  MODE  SWITCHING  ROUTINES 

IMU  FINE  ALIGN  MODE  SWITCH. 


INUFINE  INHINT 


0218 
0219 
022  0 


REF  59  LAST  1304 


07  ,3157 
■ 

07,  3161 


A 3743  0 
C 00C6  1 
03  012  1 


CS  RITS4-5 

EXTEND 

WAND  CHAN12 


•'221 
D 222 
0223 


RFF 

REF 

REF 


50  I A ST  1304 

43  LAST  130  4 

44  LAST  1305 


07,3162 
07,  3163 
07,3164 


4 4746  1 
7 1 3 OC  1 

5 5 ' 300  l 


B IT  6 

I MODES  3 3 
I MODE  S 3 3 


0224 

02  2 5 
0226 
3227 
022  8 
0228 


REF 

REF 

REF 

RFF 

REF 


LAST  1299  07,3165  0 3 23  3 0 


45  LAST  1 3?  4 
37  LAST  1301 
17  LAST  1303 


07, 3 166 
07  ,3167 
E 3,  1 474 
>7,317  > 
07,3171 


TC 

CAP 


NOATTOFF 


31  TlO 
TC  WAITLIST 

FRANK=  CDIJIND 
2CADR  IFAILOK 


3229 

0230 

0231 

0232 
0232 


REF 

RFF 

RFF 

RFF 

REF 


6 LAST  958 
38  LAST  1305 
18  LAST  1305 


C7 , 3172 
07,3173 
E 3 ,1474 
07,  3 174 
07  ,3175 


0-177  0- 
16103  1 


CAF  2 SEC  S 

TC  WAITLIST 

EBANK=  CCU IND 
2CADR  IMUHNEO 


3 LAST  1301 


C 7,  3 176  1 2722  0 


12  OCT.  21,  1970  SKIPPER  .121 
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JSER'S  PAGE  NO.  8 E3  S4 

SEE  IF  IMU  BEING  CAGED. 

RESET  ZERO  AND  COARSE 

INSURE  DAP  AUTO  AND  HOLD  MODES  ENABLED 


IMU  FAIL  WAS  INHIBITED  CURING  THE 
PRESUMABLY  PRECEDING  COARSE  ALIGN.  LEAVE 

IT  ON  FOR  THE  FIRST  5 SECS  OF  FINE  ALIGN 


SEE  THAT  NO  ONF  HAS  CAGED  THE  IMU 


ASSEMBLE  REVISION  66  OF  AGO  PkCGPAM  ZFRLINA  BY  ZCRCASTER 
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L IMJ  MODE  SWITCHING  ROUT  INFS 


USER'S  PAGE  NC.  9 E3  S4 


0236 

3237 


PEE  1 

REF  71  I A ST  1303 


07,3201  0 3645  0 IFAILOK  TC 
C 7,  32C 2 1 5 2 72  1 TC F 


CAGETSTO 
T ASKCVER 


ENABLE  IMU  FI  A L UNLESS  I ML  BEING  CAGED. 
IT  IS  . 


023r  RFF  43 

" 2 39 

3 243  REF  60 

0241  REF  403 

3242  RFF  72 


I AST  1304 

L AST  130  5 
LAST  1304 
I A ST  1306 


C 7 , 3203  3 4753  1 

C7 ,3204  C 0006  1 
C 7,  32C5  P 5 C12  0 

07.3206  10  000  0 

07.3207  1 5272  1 


CAF  ? I T4  DONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 

EXTEND  HAS  GONE  INTO  COARSF  ALIGN. 

RAND  CHAN12 

CCS  A 

TCF  TASKOVER 


024  3 
0244 
3245 

0246 
C 247 
3248 
C 249 
C 2 50 
n25l 


REF 

REF 

REF 

RFF 

REF 

REF 


5C 
4 c 
56 
44 
67 
58 
51 
6 
73 


L AST 
LAST 
I AST 
LAST 


1 304  37,  1 2 10 

1 3n l 07,3211 
1306  07,  2212 

13(6  07,3213 

1306  07,3214 

1306  07,  32  15 

1300  07,3215 

1300  07, ’2 17 

1 30  6 07,  3220 


4 1277  C 
7 4737  1 
27-  277  0 
4 4750  0 

7 1277  0 PF  AI  LCK2 
55  '277  0 
0 4674  0 
14703  0 
1 5272  1 


C S 1 MODE  S30 

MASK  R IT  1 3 

AOS  I MODES 3 0 

CS  Bl  T4 

MASK  I MODFS30 

TS  I MODE  S3 0 

TC  IBNKCALL 

CADR  SETISSW 

TCF  TASKOVER 


RESET  I MUFAIL. 


THE  I SS  WARNING  I IGHT  MAY  COME  ON  NOW 
THAT  THE  IN  Hi  R IT  HAS  BEEN  REMOVED. 


2 LAST  1306 
74  I AST  13C6 


07.3221  P 3645  0 PFAILOK  TC  CAGETSTO 

07. 3222  1 5272  1 TCF  TASKGVER 


ENABLE  PIP  FAIL  PROG  ALARM. 


02  54 
"1255 

0256 


PEE  59  LAST  1306 
REF  46  I AST  1305 
REF  6f  LAST  1306 


07  ,3?23  4 1277  0 

'7,3224  7 4142  0 

07,  3225  2 7 ' 277  0 


CS  IM0DES3C 

MASK  BIT19 
ADS  I MODE  S3P 


RESET  IMU  AND  PI  PA  FAIL  BITS. 


0257 

2 


0269 


RFF  46  LAST  13D6 


07, 3226 
07,  3227 
07,3230 


4 1300  1 
7 4737  1 
27*300  1 


MASK 

ADS 


I MOOES  33 
H I T 1 3 
IMODE  S?-1 


P 260 
3 261 


RCF  43  LAST  1300 
RFF  1 


07.3231  4 4747  0 

07. 3232  1 3214  1 


CS  BIT5 

TCF  PFAIL0K2 


r 262 
0263 
026  4 
0265 
D 266 


PEE  2 
REF  46 
REF  44 
REF  46 
REF  345 


LAST  1304 
l AST  1 3L1 4 
LAST  1287 
LAST  1306 
I AST  1 30  4 


07  ,3233 
>34 

07. 3235 

07.3236 
07,  3237 


4 3154  0 
7 1 C 3 5 1 
6 4735  1 
55*  035  1 
C 0CC2  0 


3 CT  400  10 
DSPTAB  +110 
B I T 1 5 

OS  PT  AB  + 1 1 D 

0 


SUBROUTINE  TO  TURN  OFF  NO  ATT  LAMP. 


GAP:  ASSEMRLE  REVISION  56  OE  AGG  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  1307 


I MU  MODE  SWITCHING  ROUTINES 


USER  ' S PAGF  NO.  1 C 


E3  S4 


P:  267 


ROUITNES  TO  INITIATE 


AND  TERMINATE  PROGRAM  USE 


OF  THE  PI  PAS. 


NO  IMUSTALL  REQUIRED  IN  EITHER  CASE. 


n 2 72 
0 273 
3274 
0275 


REF  247  LAST  1334 
RFF  IP  IAST  944 
REF  17  LAST  944 
REF  10  LAST  944 


07.3240  4 4756  0 

07.3241  54  037  1 

07. 3242  5 4 C40  1 

07  ,3243  54  041  0 


P 


IP  US E 


CS  ZERO 

T$  PIPAX 

TS  PI  PAY 

TS  PIPA7 


3 

9 


7.3244  0 3646 

7.3245  1 4631 


3645  0 PI PUSE1  TC 


00  NUT  ENABLE  PIPA  FAIL  IF  IMU  IS  CAGED 


6 2 7 5 6 
■>276 

0277 

0278 


REF  53  LAST  1274 
REF  61  LAST  1336 
REF  62  LAST  1307 


07.3246  C 0004  0 

07. 3247  4 4753  0 

07.3250  7 1277  0 

07.3251  55 ' 2 77  0 


INF  INT 

CS  B I T 1 IF  PIPA  FAILS  FROM  NOW  ON  (UNTIL 

MASK  I MODE  S 30  PIPFREE),  LIGHT  ISS  WARNING. 

TS  I MODES30 


‘.279  REF  52  LAST  13.36 
■200  RFF  7 [AST  1306 


07,  3252  C 4674  0 PIPFRFE2  TC 
07,3253  14703  0 CADR 


I RNKCA  LI. 
SET  ISSW 


ISS  WARNING  MIGHT  COME  ON  NOW. 
( OR  GO  OFF  0\l  PIPFREE)  . 


328  1 


REF  4 LAST  130  5 


C 7 , 3 2 5 4 1 2722 


TCF  MODEEXIT 


0282 

0283  REF 
3284  REF 
0285  REF 


63 

64 
6^ 


07,3255  0 0004 

LAST  13C7  07,3256  4 1277 
I AST  1307  07,  3 2C7  7 47  5 3 

LAST  1307  07,3260  27*277 


0 

0 

C 

0 


P IP  FREE 


INHINT  PROGRAM  DONE  WITH  PI  PAS.  OQNT  LIGHT 

CS  I MODES  30  ISS  WARNING. 

MASK  BI  Tl 
ADS  IM0DES30 


0286 
52  87 
0288 


REF  4 7 
PEF  4C4 
RFF  5 


3 7,  3 26  2 
07  ,3263 


7 4742  0 
10  000  0 
1 2722  0 


MASK  RIT10  IF  PIP  FAIL  ON,  DO  PROG  AL  SRM  AND  RESET 

GC  S A ISS  WARNI  NG. 

TCF  MODEEXIT 


■>289  RFF  48  LAST  1303 
0290 


07,  3264  C 5600  1 
07  ,3265  00212  0 


TC  ALARM 

OCT  212 


0291 

0292  REF 


07,3266  C 0004  0 INHJNT 

07,  3267  1 3252  0 TCF 


PI PFRFE  2 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPL  INA  BY  ZOROASTER 


9:12  OCT.  21,1970  SKIPPER  .121  PAGE  I3u8 


L I MU  MOPE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  11  E3  S4 

P32°7  THE  FOLLOWING  ROUTINE  TORQUES  THE  IRIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  IN  THE  SIX  PEGISTERS 

R 0295  BEGINNING  «T  THF  EC  ADR  ARRIVING  IN  A.  THE  MINIMUM  SIZF  DF  ANY  PULSE  TRAIN  IS  16  PULSES  (.25  CDU  COUNTS).  THE 

R 0 2 9 7 UNSENT  PORTION  Or  THE  COMMAND  IS  LEFT  INTACT  IN  THF  INPUT  COMMAND  REGISTERS. 


0299 


e3,  hoc 


EBANK=  1400  VARIABLE,  ACTUAILY. 


300 
D 30  I 


REF  are  I A ST  1 2° 7 
PEE  5 LAST  130  5 


07,3270  54  161  0 IMUPULSE  TS 

Cl,  3 211  C 3652  0 TC 


MP  AC  +5 
C AGE  T ST  J 


SAVE  ARRIVING  EC.  A DR. 

DONT  PROCEED  IF  I MU  BEING  CAGED. 


0302  REF 

0303  REF 


2 LAST  229  07  ,3272  11*311  1 

1 07,3273  C 3334  0 


CCS  L GYRO  SEE  IF  GYROS  BUSY. 

TC  GYRORUSY  SLFFP. 


03  0 4 
03  05 
3 30  5 
0307 


RCF  809 
REF  51 

REF  7 9 


LAST  1308 
I A ST  1 3C 5 

LAST  1304 


.77,  3274 
07,^275 
C 7,  3276 
0 7,  32  77 


54  156  1 
3 4746  0 
f 00C6  1 
05  014  1 


TS  MPAC  +2 

CAF  B IT 6 ENABLE  THE  POWER  SUPPLY. 

EXTEND 

WOR  CHAN  1 4 


030R 
0 313 

0311 
0 312 

0312 


REF  28  I A ST  1274 
REF  39  LAST  130  5 
REF  19  LAST  1305 
REF  1 
RFF  1 


07,3300  3 4751  0 

07,  33C  1 0 5214  0 Gl 

E3 ,1474 

07,3302  C3352  0 

07,  7 3c  3 16103  1 


CAF  FOUR 

i KE  2 TC  WAITLIST 

EBANK  = CDU  IND 
2 C ADR  ST  RT  GY  RC 


(IF  A JOB  WAS  PUT  TO  SLEFP,  THE  POWER 
SUPPLY  IS  LEFT  ON  BY  THF  WAKING  JOB). 


'.'313 
0 314 
0315 
J 3 16 
0 317 
'318 


REF  810 
REF  80 
REF  8 1 1 
REF  2 
REF  16 
REF  86 


1 A ST  1308 
LAST  1278 
LAST  1308 
LAST  13C8 
IAST  1275 
LAST  1303 


07,3304 
07,  3305 

07.3306 

07.3307 
07,  33  10 
>7  ,3311 


3 0161  1 
56  0C3  l 
56  161  L 
55*311  1 
7 4357  0 
54  061  1 


CA  MPAC  +5  SET  UP  EBANK,  SAVING  CALLER'S  EBANK  FOR 

XCH  EBANK  RESTORATION  ON  RETURN. 

XCH  MPAC  +5 

TS  LGYRO  RESERVES  GYROS  . 

MASK  L0W8 

TS  I TEMP  1 


C 321 

0322 

0323 


0 324 
0328 

0326 

0327 

0328 

0329 

0330 

0331 


PEF  PI  I A ST  1 30  2 
REF  8 12  LAST  1308 

REF  57  l AST  1308 
PEF  813  L AST  1 3?8 

REF  405  L AST  1307 

PEF  814  LAST  13C8 
PEF  1 6 l AST  1214 
REF  815  LAST  1300 
REF  8 16  LAST  130  8 


07,’ 111? 
07  ,3314 
07,  3315 
07,3316 
C 7 ,3  31 7 
C7, 3320 
07  ,3321 
C7,33 22 
C7,  332  3 
07  ,3324 
C7,  33  25 
07, 3326 


6 0000  1 
6 CC61  0 
54  160  1 
0 0006  1 
c 0000  1 
3 140  1 0 
52  155  1 
0 7271  1 
52  155  1 
5 C 160  0 
53 '401  1 


CAF  TWO 

GYROAGRE  TS  MPAC  +3 

DOUBLE 

AD  I TEMPI 

TS  MPAC  +4 

EXTEND 
I NDE  X A 

OCA  1400 

DXCH  MPAC 

TC  TPAGREE 

DXCH  MPAC 

1 NDE  X MPAC  +4 

DXCH  1400 


FORCE  SIGN  AGREEMENT  ON  INPUTS. 


">33  2 RFF  817  LAST  1308 

333?  REF  1 


CCS  MPAC  +3 

TC  F GYROAGRE 


0 334 
0 335 
0336 


PEF  818  LAST  1308  i’7  ,3331  3 0161  1 

REF  81  LAST  1308  C7.3332  54  CC3  0 

REF  6 LAST  1307  07,  3333  1 2722  0 


CA  MPAC  +5  RESTORE  CALLER'S  E8ANK. 

TS  EBANK 

TC  F MODE  EXIT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L I MU  MOnF  SWITCHING  PCUTINES 


PD3B7 


ROUTINES  TO  ALLOW  TORO  UI NG  BY  ONLY  ONE  JOB  AT  A TIME. 


;3R« 
0 339 
0341 
'341 
0 342 


REF  22  LAST  1C76 
REF  8 19  L AST  1300 
REF  1 

REF  5 LAST  1209 


07.3334 

07.3335 

07.3336 
07  ,3337 
C7 ,3340 


0 0006  1 
3 0134  1 
52  155  1 
3 3351  0 
1 5133  1 


GYR08USY 

REGSL  FEP 


EXTEND 
OCA  BUF2 

0 XCH  MP  AC 

CAF  LGWAKE 

TCF  JOBSLEEP 


0343  RFF  4 LAST  1308 

0344  REF  1 


07,  3 34  1 1 1 '311  1 GWAKE 

07,3342  1 3337  1 


CCS  LGYRO 
TCF  REGSLEFP 


3346 

0346 

0347 
3 348 

0349 

0350 


RCF  8 20 

RFF  821 
REF  23 
RFF  117 
RFF  1 


LAST  1309 

l A ST  1309 
LAST  1309 
LAST  1294 


07.3344 

07.3345 
07,  3346 
07  ,3347 
07,3350 


54  156  1 
0 0006  1 
3 0155  0 
52  134  0 
3 4753  1 
1 3301  1 


TS  MPAC  +2 

EXTEND 
DC  A MPAC 

D XCH  RUF2 

CAF  ONE 

TCF  GWAKE2 


0351  RFF 


07,  335  1 17341 


LGWAKE  CADR  3 WA  KF 
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USER  • S PAGF  NO.  12 


E3  S4 


SAVE  RE  TURN  2FCADR. 


WHEN  AWAKENED,  SEE  IF  C-YROS  STILL  BUSY. 
IF  S3,  SLEEP  SOME  MORE. 


RESTORE  SWREIURN  INFO 


i A P : ASSEMBLE  REVISION  56  OF  ACC  PROGRAM  ZERL  INA  BV  ZOROASTER 


35  3 
•'355 


SWITCHING  ROUTINES 

GY  RC-T  OR  GU  I NG  WAITLIST  TASKS. 


REF  1 
REF  20 


07,3352 
Cl,  3353 
07  ,3355 


03  015  1 


ST  RT  GYRO  CS  GOES  EL  CT 

E XTEND 

WAND  CHAN  15 


0356 

03  5 7 
0358 
3350 

0360 

0361 
3362 
0363 


R EF 
REF 


07,3355  0 3626  0 


07, 3356 
C 7 , 3357 
07,  3 36 C 

37.3361 

07.3362 
07,  3363 
07  ,3365 


2 1311  0 
C 00C6  1 
7 6750  0 
50  000  1 
1 3363  0 
0 3600  0 
002C2  1 


CAGETSTG 
LG  YRQ 


REF  2 LAST  1310 


0368 
n 360 
03  70 
0371 


REF  3 LAST  1310 


REF  26H 
R EF  6 
REF  2 
REF  6 


LAST  1307 
LAST  131 
LAST  1309 
LAST  1210 


07 .3371 

07.3372 
07,  3373 
07 ,3376 


3 6755  1 
c 5 ' 3 1 1 1 

3 3251  0 
0 5137  1 


OCT 

CAF 


ZERO 
L GY  RD 
LG  WA  KE 
JOBWAKE 


REF  2 LAST  1305  C7,  3375  1 3177  1 NORE  SF  T TCF 
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USER'S  PAGE  NO.  13  E3  S6 

DE-SELECT  LAST  GYRO. 

JUMP  ON  PHASE  CCUNTER  IN  BITS  13-16. 

=0.  DQ  Y GY  RO. 

= 1.  00  Z GYRO. 

= 2.  00  X GYRO. 

= 3.  DONE 

WAKE  A POSSIBLE  SLEEPING  JOB. 

00  NOT  RESET  POWER  SUPPLY 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L I MU  MODE  SWITCHING  ROUTINES 


-2 


CS  FOUR 

ADS  LGYRO 


0475 
3 376 

0377 

0378 
3 379 

0380 

0381 

0382 

0383 


PFF  346 

REF  in 
RFF  20 
REF  47 
REF  8 
R EF  82 
REF  17 
REF  58 


LAST  1306 

LAST 
LAST 
L AST 
LAST 
LA  ST 
LAST 
LA  ST 


7 , * 

C 7,  3401 
07,3*02 
07,3403 
C 7,  34 C 4 
07  ,3405 
7 . 

07,  3 40 7 
07  ,3410 


5 0 002  0 
3 CCOO  1 
54  064  1 
7 4757  1 

6 4737  0 
27*311  1 
54  0C3  0 

7 43=7  0 
54  061  1 


123  9 
1282 
1 30  6 
131  1 
130  8 
1308 
1308 


GS  ELECT  INDEX  Q 

CAF  3 

TS  1 TEMP  4 

MASK  SEVEN 

AO  B I T 1 3 

AOS  L GYRO 

TS  EBANK 

MASK  LD  W8 

TS  ITEMP1 


REF  21  LAST  13  11 
REF  11  LAST  1311 
RFF  12  LAST  nil 


07,  341  1 4 4757  1 

07.3412  7 0064  1 

07.3413  54  064  l 


CS  SEVEN 

MASK  I TEMP  4 
TS  ITEMP4 


9 387 

C 388 
0 309 
03  °C 


REF  59  LAST  131 1 
REF  30  LAST  1299 


07,  34  14  0 0006  1 

07  ,3*15  5 0061  0 

07.3416  3 l 4 C 1 C 

07. 3417  52  071  0 


EXTEND 

INDEX  ITEMP1 
DC  A 1400 
DXCH  RUPTREG1 


03°1 
3392 
0393 
0 394 


LAST 


131  1 


07,3420  10  070  1 

07,  342  1 1 3434  b 

07. 3422  1 3424  I 

07.3423  1 3571  0 


CCS  RUPTREG1 

TCF  MAJ+ 

TCP  +2 

TCF  MAJ- 


0395  REF 
r 396  PFF 
f-  397  REF 

0398  REF 

0399  REF 


LAST  1289 

LAST  131  1 


07, 3424 
07  ,3425 
0 7 , 3 4 26 
07,  3427 
07  ,3430 


1C  C 7 1 0 
1 3431  0 
1 3356  0 
1 3=66  C 
1 3356  0 


CCS  RUPTREG2 

TCF  M IN  + 

TCF  STRTGYR2 

TCF  MI  N- 

TCF  STRTGYR2 
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SPECIAL  ENTRY  TO  REGRFSS  LGYRO  FOR  X. 


SELECT  GYRO. 

PACKED  WORD  CONTAINS  GYPO  SELECT  BITS 
AND  INCREMENT  TO  LGYRC. 


MOVE  DP  CCMMAND  TO  RUPTREGS  FOR  TESTING. 


SAP:  ASSEMBLE  REVISION  So  OF  AGC  PRCGRAM  Z ERL  l N A BY  ZOROASTER 


IMJ  MODE  SWITCHING  ROUTINES 


0<-  On 
340  1 
3402 


REF  1 


REF  3 LAST  1311 


07.3431  6 3465  0 MIN  + 

07.3432  0 0006  1 

07,3423  6 3356  1 


AO  -GYROMIN 

EXTEND 

BZMF  STRTGYR2 


0403 

0404  REF  1 

0405  REF  32 


LAST 


' 7,3434  0 0006  1 

07,3435  3 3612  1 

07,  3436  20  C 7 1 0 


EXT  END 

OF  A GYROFRAC 

DAS  RUPTREGl 


04  6 RFF  13  LA  ST  131  1 

34  37 

04 C 8 REF  21  LAST  1 3 IQ 


C7.3437  3 0064  0 CA  ITEMP4 

07,  3440  C CCC6  1 EXTEND 

07,  3441  C5  014  1 WOR  CHAN  1 4 


0400 
34  10 
0411 
04  12 
04  1 3 
0414 
3415 
04  1 6 
04  17 
3413 
0419 
0 4 20 

0421 

0422 


RFF  10 
REF  10 
REF  11 

REF  43 
RFF  ?5 
REF  33 

REF  2e 
RFF  74 
REF  262 

REF  74 
REF  26 


I A ST  1297 
LAST  1311 
LAST  1312 

LAST  1 2r  8 
LAST  1289 
LAST  1312 

LAST  1299 
LAST  1712 
LAST  1 3f  l 

LAST  1274 
LAST  1312 


07,3442 
7,  14,4  3 
0 7 ,3444 
C 7 ,344  5 
07,  3446 
07,3447 
07,  3450 
07,7451 
07,3452 
C7,  3453 
07  ,3454 

07.3455 

07. 3456 
07  ,3457 


3 6106  0 
1 0071  0 
56  071  1 
C 00C6  l 
7 4744  0 
54  062  1 
3 CC 70  0 
0 0006  1 
7 4743  1 
54  070  1 
3 0001  0 
C 0006  1 
7 4736  0 
26  062  1 


GRFRGE 


CAF  LOW 7 

MASK  RUPTREG2 

XCH  RIJPTRFG2 

EXTEND 
«P  PI T8 

TS  ITEMP2 

CA  RUPTREGl 

E XTEND 
MP  BIT9 

TS  RUPTREGl 

CA  L 

EXTEND 

MP  3 I Tl 4 

ADS  ITEMP2 


-.<.24 
0 425 
0426 
042  7 
0 42  8 
0429 


RFF  35 
REF  1 
REF  407 
RFF  1 


LAST  1312 
LAST  1310 


07. 3460 

07.3461 
07  ,7  462 
07, 3463 
07  ,3464 
C 7 , 3465 
07, 3466 


C CCC6  1 
3 0071  1 
6 7761  0 
10  000  0 
1 3532  1 
776C1  0 
1 3472  1 


CCS 

TCF 

-GYROMIN  OCT 


RUPTR  EG  1 

MINUS1 

A 

LONGGYRD 
-176 
+ 4 


04  3 < 
0 A3 1 
0432 


RFF  75  LAST  1312  07,3467  3 4736  l 
REF  27  LAST  1312  07,  3470  26  C62  1 


REF  249  LAST  1310 


07,3471  3 4755  1 


OAF  BIT  14 

ADS  ITEMP2 

CAF  ZERO 


0433 
04  34 


RFF  60  LAST  1311 


C7.3472  50  061  0 

07,3473  51*401  1 


INDEX  1TEMP1 
DXCH  14  00 
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SMALL  PO SI  TI  VE  COMPAND.  SEF  IT  AT  LEAST 
16  GYRO  PULSES. 

DEFINITE  POSITIVE  OUTPUT. 


SELECT  POSITIVE  TOROUING  FOR  THIS  GYRO. 


LEAVE  NUMBER  OF  POSSIBLE  8192  AUGMENTS 
TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 
TERM  STORAGE  AND  TRUNCATEO  FRACTION 
IN  MINOR  PART.  THE  MAJOR  PART  WILL  BE 
COUNTED  DOWN  TC  ZERO  IN  THE  COURSE  OF 
PUTTING  OUT  THE  ENTIRE  COMMAND. 


INITIAL  COMMAND. 

SEE  IF  MORE  THAN  CNF  PULSE  TRAIN  NEEDED 
(MORE  THAN  16383  PULSES). 


MAY  BE  AOJUSTED  TO  SPECIFY  MINIMUM  CMD 


ASSEMBLE  REVISION  56  nF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
I MU  MODE  SWITCHING  ROUTINES 


07 ,3476  0 3621  l 


TC 


COARSTST 


34367  REF 
04 T 7 

0438  RFF 
343Q  REF 
0440  PFF 
REF 
RFF 
RFF 
R EF 
RFF 
REF 
REF 
RFF 


0441 
044  2 

0442 
34475 

04476 

04477 
34478 
0448 
!3  446 

0450 

0451 

3451  1 
0451  2 
3 4513 
34514 
0451  5 
04516 
0451  7 

0451  8 
345  10 

0452 

3452  l 
34522 

0453 

3 4531 

04  54 
0455 
3456 


REF  22 
REF  347 
REF  29 


REF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 

RFF 

REF 


LAST  1313 

LAST  1307 
l AST  1297 
LAST  1308 
LAST  1308 


LAST  13C  6 
LAST  1274 
LAST  1313 
LAST  1313 

LAST  1312 
LAST  1311 
LAST  1212 


23  LAST  1313 
1 

55  LAST  1307 
27  LAST  1123 
2 LAST  130  8 
30  LAST  1313 

24  LAST  1313 
2 LAST  1313 

76  LAST  1313 
61  LAST  1312 

76  LAST  1312 
29  LAST  1313 
6 LAST  1713 


7,  <'-77 
) 7 , 3 5 ( 0 
07,3501 
07,  3502 
07 ,3503 
E 3 , 1474 
07,  3504 
07  ,3505 
07,  3 5C6 
07,  3507 
07,3510 
07,  351  1 
07  ,3512 
07,3513 
07,  3514 
07  ,3515 
07,  35  16 
07,  351  7 
7 , 52 
07,  3521 
07  ,3522 
07,3623 
07,  3524 
07  ,3525 
07,  3526 
07,  3527 
07,3530 
07,  3531 
07  ,3532 
07,35  3? 
C 7,  35  34 
07  ,35  35 
07,  3536 


2 CC47  1 
0 0006  l 
7 4742  0 
6 6257  1 

0 5214  0 

03516  0 
16103  1 
C 3512  1 

1 5272  1 

3 4752  0 
54  047  0 

3 4742  l 
0 0006  l 
C 5 014  1 
0 0002  0 

4 4743  1 
C 0006  1 
03  014  1 
0 3510  0 
3 4753  l 
0 5204  1 

03252  0 
3 4743  0 
C CCC6  1 

05  014  l 

0 3510  0 

1 5272  1 
50  061  0 

5 3 ' 40 1 l 
3 4736  1 

6 0062  0 
54  C47  0 


CA  GYRCCMO 

EXTEND 

MP  BIT10 

AD  THREE 

TC  WAITLIST 

EBANK=  CDUIND 
2c  A D R TWDPULSE 


EXITGYRO  TC 
TCF 

CUTPULSE  CA 
TS 

GYROEXIT  CAF 

EXTFND 

WOR 

TC 

TWOPULSE  CS 

EXTEND 

WAND 


TC 

TCF 

LONGGYRO  INDEX 
DXCH 
CAF 
AD 
TS 


GYROEXIT 
TA  SKOVER 
8 IT  2 
GYROCMO 
R I T 10 

:han14 


B I T9 

CHAN  1 4 
OUTPULSE 
R I T 1 
T W 1 DDL  E 
STRTG  YRO 
R IT 9 

C HAN l 4 
OUTPULSE 
TASKOVER 
I TEMP  1 
1 400 
91  Tl4 
IT  FMP2 
GYRCCMD 


0457 

0458 
3 4 5Q 
046^ 

0461 

0462 
046? 
1463 
0464 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1313 
l AST  1275 
LAST  1313 
LAST  1313 


07,3537 
07,3540 
C7 , 354  1 
07  ,3542 
F 3, 1 474 
07, 3543 
0 7,3  544 
0 7,  35  4 5 
07,  •»546 


0 0006  1 
7 4742  0 
6 7757  G 

0 5214  0 

03546  0 
16103  1 

1 3506  C 
0 3621  1 


EXTEND 

MP  R IT  1 0 

AD  NEG3 
TC  WAITLIST 

EBANK=  CDUIND 
2CADR  8192AUG 

TCF  EXITGYRC 


0 46  5 
D 4 66 


LGYRO 

FRANK 


« 
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WAITLIST  OT 

TRUNCATION  AND  PH  AS  E UNCERT  A INT  I ES  . 


8192.  INITIAL  COMMAND  IS  AT  LEAST  8192. 


GET  WAITLIST  DT  TC  TIME  WHEN  TRAIN  IS 
ALMOST  OUT. 


ADD  8 19  2 PUtSES  TO  GYROCMD 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


L I PU  MCDE  SWITCHING  ROUTINES 


0 467 
3463 


7 4357  0 
54  C6l  1 


MASK  LOW  8 

TS  I TEMPI 


C46Q  REF  63 

0470 

0471  pef  1 


LA  ST 


1314 


07 ,3553 
•'7,  3 554 
"7, 3555 


50  061  0 
1 1 1 4C0  0 
1 3561  1 


INDEX  ITEMP1 
CCS  1400 
TCF  AUG  2 


0474 


RFF 

REF 

RCF 


07,3556  3 4736  1 

07,  3557  It  C 4 7 O 
07  ,3563  1 3476  0 


CAF  RIT14 
ADS  GYROCMU 
TCF  LASTSEG 


1476 

0476 

0477 
3 478 

'4  70 


REF 

RFF 

REF 

RFF 


64 

7R 


1 


LAST  1314  0 7,3561  c0  Cfl  0 AIJG2  INDEX 


0 7 , 3562  55*400  0 TS 

LAST  1314  07,3563  3 4736  1 CAF 

LAST  1314  07,3564  26  C47  0 ADS 

07,3565  1 3537  1 TCF 


ITEPP1 
1400 
B IT  14 
GYRQCMD 
AUG  3 
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SFF  IF  THIS  IS  THE  LAST  AUG. 
MflR  F TO  CDME. 


COMPUTE  DT. 


AP  : ASSEMBLE  REVISION  5f>  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


IMU  MODE  SWITCHING  ROUTINES 


04  80 

REF 

2 

LAST 

1 31  2 

07,3566 

6 3465 

0 

MIN-  AD 

-G YROMIN 

9481 

07,3567 

C 0006 

1 

EXTEND 

3482 

REF 

4 

L AST 

1312 

C 7,  3570 

6 3356 

1 

BZMF 

STRTGYR2 

0483 

07  ,3571 

0 0006 

1 

MAJ-  EXTEND 

0 484 

RFF 

2 

LA  ST 

1312 

07, 3577 

4 3612 

0 

DCS 

GY  ROE  RAC 

0485 

REF 

36 

LAST 

1312 

07,  3573 

20  C 7 1 

0 

DA  S 

R UP  TRFG  1 

'486 

REF 

14 

LAST 

1312 

C 7,3574 

3 00.64 

0 

CA 

IT  EMP4 

3 40  7 

REF 

31 

1 AST 

13  13 

07, 3575 

6 4743 

0 

AD 

B 1 T9 

0488 

07,  3576 

0 000  6 

1 

EXTEND 

489 

RFF 

25 

1 AST 

1313 

G 7 ,3  5 77 

05  014 

1 

WOR 

CHAN1  4 

3490 

REF 

37 

L AST 

1315 

07, 3600 

4 0070 

1 

CS 

RUPTREG1 

0491 

REF 

38 

LAST 

1315 

07  ,3601 

54  070 

1 

TS 

RUPTREG1 

0 492 

REF 

12 

LA  ST 

1312 

07.36C2 

4 C C 7 1 

0 

CS 

PUPTPFG2 

r 493 

REF 

1 1 

LAST 

1312 

07,  3603 

7 6106 

1 

MA  SK 

L0W7 

i 494 

07  ,3604 

4 0000 

0 

COM 

3495 

REF 

13 

1.  AST 

1315 

C7,  36C  5 

5t  C 7 1 

1 

XCH 

RUPTREG2 

0496 

4 0000 

0 

COM 

0497 

REF 

1 

07 ,36C7 

1 3445 

0 

TCP 

GMERGE 

3498 

07,  3610 

C 1700 

1 

GOESELCT  DC  T 

1 700 

0499 

07  ,3611 

00000 

1 

GYROFRAC  2 DEC 

.215  b 

3499 

07, 3612 

0CC34 

0 
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POSSIBLF  NEGATIVE  OUTPUT. 


DEFINITE  NEGATIVE  OUTPUT. 


SELECT  NEGATIVE  TORQUING  FOR  THIS  GYRO. 


SET  UP  RUPTRFGS  TO  FALL  INTO  GMERGE. 
ALL  NUMBERS  PUT  INTO  GYROCMD  ARE 
POSITIVE  - B IT  9 OF  CHAN  K DETERMINES 
THE  SIGN  OF  THE  COMMAND. 


TURN  OFF  SELECT  ANC  ACTIVITY  BITS 


ASSEMBLE  REVISION  St,  OF  AGC  PROGR. 


ZERLINA  B Y ZOROASTEI 


P 533 

0*01 
P 50? 
3533 
05n* 
0 50  5 


I MU  MnnE  SWITCHING  ROUTINES 

I Ml)  HOOF  SWITCHING  ROUTINES  COME  HERE  WHEN  ACTIGN  COMPLETE 


REF  33 
RFF  56 
RFF  4CB 
R EF  3 


LAST  1107 
LAST  1313 
1 AST  1312 
LAST  1303 


07,3613 
C 7 , 3 6 1 * 
07,  3615 
07  ,36  16 
'7,  (a  17 


0 0006  1 
00  011  1 
7 4753  C 
10  000  0 
1 3636  0 


EXTEND 

READ  DSAIMOUT 
MASK  BI  Tl 
CCS  A 

TCF  IMUPAO 


0506 


REF 


0506  2 RFF 
353605 
05060  7 PEF 
050600  RFF  405  LAST  1316 
353613  REF 


LAST  575 
LAST  1310 
LAST  13C6 


37,  3620  1 3664  1 IMUG030  TCF 


GOODE ND 


05061 5 REF  65 
3576 17  RFF  62 
0506 1 5 RFF  4 1 0 
050621  RFF  340 

357623  REF  250 
05''625  PCF  10 


LAST  1367 
LAST  1 30  0 
I AST  13  16 
LAST  1313 

I AST  171? 
LAST  1313 


37,3621 

07  ,3623 
07,3524 
07, 3625 

07  . J6  2 6 

C 7,  7627 

07,  3630 
07,3631 


3 4750  1 
C CCC6  1 
02  012  0 
1 0 000  0 
1 3622  1 

4 1277  0 
7 4746  1 

10  000  0 
0 0002  0 


CCARSTST  CAF 

F XTFND 
RAND 
CCS 
TCF 

CACETSTG  CS 


'7,3633  55*311  1 


1755  1 DUNT°  UL  S CAF 


0 50*7 
0510 
3511 

0512 

0513 


RFF  53 
R EF  66 
REF  411 

RFF  4 
REF  34° 


LAST  1316 
I AST  1316 
LAST  1316 
LAST  1316 
LAST  1316 


07  ,3640 
■ 

07,  3642 
07  ,3643 
07,  3644 


3 4746  0 
7 1277  0 
10  000  C 
1 3636  C 


AGFTFST  CAF 
MASK 
CCS 

TCF 


05  1 4 
0515 
3516 
0517 
051R 


REF  412 
REF  350 
RFF  351 


LAST  1316 
LAST  1316 
LAST  17  16 
I AST  1 31 6 
LAST  1316 


0 7,  3 645 
07,3646 
Cl,  3647 
07  ,3650 
^ 7 ,365  1 


4 1277  0 
7 4746  1 
1C  CCO  0 
24  002  C 
C 0002  0 


CA  GETS  TO  CS 

MASK 

CCS 

INCR 


0519 

0520 
352  1 
0522 


REF  60 
PEF  55 
PEF  413 
P.FF  )52 


LAST  1316 
LAST  1316 
LAST  1316 
LAST  1316 


07. 3652 

07.3653 
07,  3654 
07,3655 


4 1277  0 
7 4746  I 
1C  GCO  0 
0 0002  0 


CAGFTSTJ  C S 

MASK 

CCS 


0523 
3524 
0 52  5 


REF  252  LAST  1316 
REF  4 l AS1  1112 
REF  7 LAST  13C8 


07.3656 

07. 3657 
07  ,3660 


4 4 755 
55*301 
1 2722 


ZERO 
I MUCADR 
VODEEX I T 
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MODE  IS  BAD  IF  CAGE  HAS  OCCUREU  OR  IF 
ISS  WARNING  IS  ON. 


WITH  CIA)  = 0. 


SUBROUTINE  TO  TERMINATE  I MLJ  MODE 
SWITCH  IF  IMJ  HAS  BEEN  CAGED. 

DIRECTL  Y. 

WITH  CIA)  = +0  . 

SKIP  IF  I MU  NOT  BEING  CAGED. 


IF  DURING  MODE  SWITCH  INIT  1 AL  I ZAT  ION 
IT  IS  FOUND  THAT  THE  I MU  IS  BEING  CAGED 
SET  IMUCADR  TO  -0  TO  INDICATE  OPERATION 
COMPLETE  BUTFAIIED.  RETURN  IMMEDIATELY 


TO  SWPETURN 
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P0526  GENERALIZED  MODE  SWITCHING  TERMINATION.  ENTER  AT  GOODEND  FOR  SUCCESSFUL  COMPLETION  OF  AN  I/O  OPERATION 

1 052  8 OR  ATBADFND  FOR  A N UNSUCCESSFUL  ONE.  C ( A ) OP  ARRIVAL  = 3 FOR  IMU,  1 FOR  OPTICS. 


0532 


R F F 1 A 
REF  253 
REF  A 


I AST  1315  C7,  366  1 
LAST  1316  07,3662 
LAST  1316  07,3663 


c4  C71  0 BADEND  TS 

A A755  0 CS 

1 3666  0 TCF 


RUPTREG2 

ZERO 

GOODEND  +? 


DEVICE  INDEX. 
FOR  FAILURE. 


RFF  15  LAST  1317 
REF  HR  LAST  1309 


07,  366 A 5 A C 7 1 0 
07 ,3665  A A753  0 


GOODEND  TS 
CS 


R UPTREG2 

3NE  FOR  SUCCESS. 


C,  535 

0536 

0537 
353R 
0539 


07,3666  5 A C72  0 

07,  3667  50  C71  1 

07,3670  11*301  0 

07,  3671  1 3675  1 

07,3672  1 3705  1 


TS  RUPTRFG3 

INOEX  RUPTRFG2 

CCS  MOCECACR 

TCF  + A 

TCF  ENOMODE 


SFF  IF  USING  PROGRAM  ASLEEP. 

YFS  - WAKE  IT  UP. 

IF  0,  PROGRAM  NOT  I N YET. 


2 LAST  1317 


07.3673  C 0006  1 

07.3674  1 3706  1 


EXTEND 

RZF  END  MODE 


R7F  = TCF  IF  MOCECACR  = . 


05A0 
3 5 A l 
05A2 
0 5A3 


LAST  1317 
I AST  1317 
LAST  1-3x7 
l AST  1316 


07  ,3675 
C 7,  3676 
07, 3677 
f 7.37C0 


3 A755  1 
50  C 7 1 1 
57*30  1 l 
0 5137  1 


CAF  ZERO 

INDEX  RUPTREG2 

XCH  MODECADR 

TC  JOBWAKE 


WAKE  SLEEPING  PROGRAM. 


3 5A A 
0 5A5 
0 5A6 


REF  ft 
REF  23 
REF  AA 


LAST  1317 
LAST  1210 
LAST  1256 


07,  370  1 
07  ,3702 
C7, 37C3 


A OC 7 2 0 
50  06A  0 
26  1 6 A 0 


CS  RUPTREG3  ADVANCE  LOC  IF  SUCCESSFUL. 

INDEX  LOCCTR 
ADS  LOC 


05  i 7 


REF  77  LAST  1313 


07,  3704 


5272 


TCF  TASKOVER 


0 5A8 
3549 
0 550 
0551 


REF  9 LAST  1317 
REF  18  LAST  1317 
RFF  8 LAST  1317 
REF  78  LAST  1317 


07,3705  3 0072  1 

07,  37C6  50  C71  1 

97  ,376  7 55  *30  1 0 

07,3710  l 5272  1 


ENCMOOE  CA  RUPTREG3  -0  IND  ICA  TE  S OPERA  TI  ON  C OMPLE  TE  RUT 

♦ 1 INDEX  PUPTREG2  UNSUCCESSFUL:  -1  INDICATES  COMPLETE  AN  0 

TS  MODECADR  SUCCESSFUL. 

TCF  TASKOVER 


GAP: 

L 

P 3 552 


R355^ 
R 0555 
RO  5C6 


ASSEMBLE  REVISION  56  OE  A3C 
I MU  MCDF  SWITCHING  ROJT  IN 
GENERAL  STALLING 
PPOGRAM  DESCRIPTION 
HPD  BY-  R .ME  LAN  SON  TO  ADD 


PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21.1970 

ES  USEP'  S PAGE 

ROLTINE.  USING  PROGRAMS  COME  HERE  TO  WAIT  FOR  I/O  COMPLETION. 

DATE-  21  E EB  1967 
LOG  SECTION  IMU  MODE  SWITCHING 
OOCLMENTATI  CN  ASSEMRLY  SUNCISK  REV.  82 


SK  IPPER 
NC.  21 
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R G 5 6 7 
1 0558 
RD  559 
R 0560 
* 0561 
RT56? 
R 0 563 
R 0 564 
R3565 
? 566 

K0567 
R 05  68 
8 0569 


FUNCTIONAL  OESCPIPTICN- 

TO  DEI  AY  FURTHER  EXECUTION  CF  TEE  CALL  INC  ROUTINE  UNTIL  ITS  SELECTED 
I/O  FUNCTION  IS  COMPLETE. TEE  FOLLOWING  CHECKS  ON  THE  CALLING  RCUTINE:S 
MCDECADR  APE  MADE  ANO  ACTEC  UPON. 

II  +C  INDICATES  INCOMPLETE  I /C  OPE  RAT  I CN.  C ALL  I NG  ROUTINE  IS  PUT  TO 
SI  EEP. 

2)  -l  INCICATES  CCMPLETEC  I/O  CPFRATION.  STALL  BYPASSES  JOBSLEEP 
CALL  AND  8 E TURN  S TO  CALLING  ROUTINE  AT  L+3 

3)  -0  INCICATES  COMPLETED  I/O  WITH  FAILURE.  STALL  CLEARS  MODECADR 
AND  RETURNS  TO  CALLING  PCUTINE  AT  L +2  . 

6)  VALUE  GREATER  THAN  C INDICATES  TWO  ROUTINES  CALLING  FOP  USE  OF 
SAME  DEVICE.  STALL  EXITS  TP  ABORT  WHICH  EXECUTES  A PROGRAM 
RESTART  WHICH  IN  TURN  CLEARS  ALL  MCDECADR  REGISTERS. 


R357D 
R ''571 
!8°  572 
R3573 


ING  S 
TC 

C.AOP 


EQU  ENCE- 
EANKCALL 

(ONE  OF  5 STALL  ADDRESSES  I 
AOTST ALL .OR  ATTSTALL  ) 


I MUST  ALL, OPT STALL. RAOST  ALL . 


RD578  OUTPUT- 

R0579  MCDEC ADR=  CACR  IF  JCBSLEEP 

P.  0 580  MO  DEC  ADR  = + 0 IF  I/O  COMPLETE 

R5551  RU  F2=  L +3  IF  I/O  COMPLETC  AND  GOOD. 

3 0 582  R UF  2 = 1+2  IF  I/O  CCMFLETE  BUT  FAILED. 


80583 
R0584 
8 0 585 
R?535 


BUF2  CCNTAINS  RETURN  ADDRESS  PLUS  1.  CL  +2 ) 

BUF2+1  CONTAINS  FRANK  VALUE  GF  CALLING  RCUTINE. 

MODECADR  OF  CALL  ING  ROUTINE  CONTAINS  +0.-1.-0  OR  CAOR  RETURN  ADORESS  * 


82 


8152 

3716 


RAOSTALL  CAF 
TC  F 


TWO 

STALL 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


L I MU  MOT  E SWITCHING  ROUTINES 


3 593  RFF  3 LAST  952 
0594  REF  255  LAST  1317 


07, 3711 

07,3715  3 4755 


OPTSTALL  EQUALS  AOTSTAL  L 
IMUSTALL  CAF  ZERO 


0595 

0596  RFF  1“ 

0597  REF  414 

3 598  REF  9 

0599  REF  1 

0600  RFF  1 

0631  REF  1 


LAST  1317 
LAST  1316 
1 AST  1317 


07,3716  C CCC4  0 
07,  37 17  54  C 7 1 n 

07,3720  50  000  1 

07,  372  1 11*  3 C 1 0 

07.3722  1 3740  0 

07.3723  1 3734  0 

07.3724  1 3730  1 


STALL 


INHINT 

TS  RUPTREG2 

INDEX  A 

CCS  MODE  C ADR 

TCF  MODABOR  T 

TCF  MODESLP 

TCF  MODEGOOD 


05  04 


REF  20  LAST  1319 
REF  10  LAST  1319 
REF  8 LAST  1316 


07 .3725  50  07 l 1 WG2 

07.3726  5 5' 3 C 1 0 

07. 3727  1 2722  Q 


INDEX  RUPTREG2 
TS  MODECADR 

TCF  MODEFXIT 


07,3730  10  COC  0 MCDCGOCD  CCS 

07,  373  1 1 3740  0 TCF 


A 

MODABORT 


0607  REF  24  l AST  1309 

0608  REF  1 


07  ,3732  24  133  0 

07,3733  1 3725  0 


IN  CR  BUF2 
TCF  MG2 


0609  RFF 

0610  RFF 
3611  REF 
0612  RFF 


13  LAST  ^29  07,  3734  0 4645  1 M3DFSLP  TC  MAKECADR 

21  LAST  131S  C7 , 3735  50  071  1 INDEX  RUPTREG? 

11  LAST  1319  07,3736  55'3C1  0 TS  MODECADR 

6 LAST  1 30  9 07,3737  1 5133  l TCF  JOBSLEEP 


25 


07,3740  52  136  0 MCDAR CRT  DX  CH  RU  F2 

07,  374  1 C 57  17  0 TC  3AIL0UT1 


0614 


07  ,3742  31210  0 


OCT  31210 
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IMU. 


SAVF  DEVICE  INCEX. 

SEE  IF  OPERATION  COMPLETE. 

ALLOWABLE  STATES  ARE  +0,  -1  , AND  -0 . 
OPERATION  INCOMPLETE. 

COMPLETE  AND  GCOC  IF  = -1. 


COMPLETE  AND  FAILED  IF  -0.  RESET  TO  +0. 
RETURN  TO  CALL  ER  . 


MAKE  SURE  INITIAL  STATE  -1. 


IF  SO,  INCREMENT  RETURN  ADDRESS  AND 
RETURN  IMMEDIATELY,  SETTING  CADR  = +0- 

CALL  FROM  SWITCHABLE  FIXED  ONLY. 


TWO  PROGRAMS  USING  THE  SAME  DEVICE. 


SSFMBLE  RF  VI  SI  ON  56  OF  AGC  PRCC-RAM  ZERLINA  BY  ZOROASTER 


0610 

1M9 

062  0 
0621 
3622 

0623 

0624 

0625 
C626 
? 627 
0629 
0 6 30 
3 632 


IMJ  MODE  SWITCHING  ROIJT  I vj  F S 

CONSTANTS  F CR  RODE  SWITCHING  ROUTINES 


5762 
4771 
07,3  743 
4744 

07.3744 

07.3745 
07,  37 46 
07  ,3155 
07,3747 
07, 3750 
07  ,3751 
C 7,  3752 
C 7, 7753 
07,3754 

L AST  1320  C 7,  3755 


RFF  3 LAST  1319 
PFF  26  LAST  1319 


77500  1 
77477  0 
OC074  1 

3 1 3C4  1 
C OOC  6 1 
1 3753  1 
C 3740  1 
C 0006  1 
3 0134  1 
53 « 30 5 1 


01  TS3F.4 
B ITS4F.6 
PITS4-5 
I MUSFF  L". 
-COMM  AX 
-C  CRM  AX  - 
60CMS 
I MU  FIN  20 
GCMANUR 


OCT 

EQUALS 

DEC 

DEC 

DEC 

CA 


UCT14 
OS  T 50 
00030 
PI  T9 
- 191 
-192 
60 


EXTEND 
DC  A 

dxch 


0633 

0634 

0635 


RFF 

PFF 

REF 


LAST  1209 
LAST  1311 
LAST  1320 


07  ,3756  3 0G06  1 

C 7 , 3 7 5 7 7 4757  1 

07,3760  27*30,5  1 


CA  BBANK 

MASK  SEVEN 
ADS  ATTCADR 


C 642 
3643 
0644 


REF 

RFF 

RFF 


LAST  1 1 C 4 
L AST  109  6 
LAST  374 


C7.3761  3 0167  1 

C 7,  3762  7 7737  1 

' , 37 


PRIOPITY 
PR  I 0-3  7 
ATTPRIO 


06452 
3 645-3 

06454 

06455 
064  5 6 


REF 
REF 
REF 
P EF 
REF 


LAST  1313 
LAST  1276 


13  LAST  493 


C 7 , 3 764 
07, 3765 
07  , 766 
07,  3767 
07,  3770 


3 3770 
5 4 CO 3 
3 4635  1 
44C04 
C3?75 


KALEBCON 
FBANK 
POST  JUMP 
KALCMAN3 
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INTERPRETER  SW  ITCH  7. 

IS  KALCMANU  FREE 

BAILOUT 

SAVE  FINAL  RETURN  FOR  K AL  f M AN  3 


SAVE  USFRS  PR  I 0 


SET  EBANK  FOR  K ALC MAN  3 
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P0646 
3 0647 
R3648 
R0649 
* 0650 
R0551 
R 065? 

R 0 653 
R)654 

< 0655 
RC656 
R0657 
T 0658 
r:i559 
RO  660 
R0661 
R3  66? 
1 066? 
R0664 
R 0665 
3 0666 
R3S67 
Rf  668 
RO  673 
R3  674 
T 0675 
R06  7S 
R 1 6 77 

< 067B 
"*679 
0680 
0681 
3682 
'683 
0 686 
3 685 
0686 
0687 


PROGRAM  DESCRIPTION 

IMU  STATUS  CHECK  ROUTINE  R02  (SUBROUTINE  UTILITY! 

MOD  NO  - l 

MCD  RY  - N.ePCCEUP 

FUNCTIONAI  DESCRIPTION 

TO  CHECK  WHETHER  I Mu  IS  ON  AND  IF  ON  WHETHER  IT  IS  ALIGNED  Tn  AN 
ORTFNTATION  KNOWN  BY  THE  CMC.  TO  REQUEST  SELECTION  OF  THE  APPROPRIATE 
PROGRAM  IF  THE  IMU  IS  OFF  OR  NOT  ALIGNED  TO  AN  ORIENTATION  KNOWN  BY  THE 
CMC.  CALLED  THROUGH  PANKCALL 
CALL  ING  SEQUENCE- 

L TC  BANKCALL 

L+l  CADR  R02BOTH 

SUBROUTINES  CALLEC 

V ARAL  ARM 
F LAG  UP 

NORMAL  EXIT  MODES 

AT  L+2  OF  CALLING  SEQUENCE 
ALARM  OP  ABORT  EXIT  MODFS 
GOTLIPOCH,  WITH  ALARM 
ERASABLE  INITIALIZATION  REQUIRED 

NONE 
DEBR  IS 


r ENTRAl  S-A  ,Q,L 


REF  1 

REF  1 

RCF  7 
REF  K 
REF  A l 6 
REF  1 


LAST  130  A 
LAST  13:  A 
LAST  1319 


34,  3774 

04,2000 
C 4 ,3?40 

04  ,3240 
C 4 , 3 2 4 I 
0 4,  3 24  2 
04,3243 
C 4,  3244 


00063  1 
3 4737  0 
7 OC 7 7 O 

10  000  0 
C 3255  0 


BANK  34 

SETLOC  R 0 2 

BANK 

COUNT*  f!/R02 

0EC51  DEC  51 

R02B0TH  CAE  REFSMRIT 

MASK  FLAGWR03 

CCS  A 

TC  R02ZERC 


'.6  89 
3690 
0691 
0 692 
06  93 

C 694 


LAST  131 
AST  17 


REF  47  LAST  1316 
RFF  1 

RFF  4 LAST  619 


04,7245 
04,3246 
04,  3247 
04,3250 
04  ,3  25  1 
0 4,  3 25  2 
04  ,3253 


0 0006  1 
1 3252  0 
t-  475 0 0 
e 3 2 to  o 

0 5745  1 


CA  I MODE  S30 

MASK  RIT9 

E XTEND 
BZ  F +2 

CS  BIT4 

AD  0:T220 

TC  VARALARM 


3695  REF  61  LAST 


974 


04,  ?, 2 c 4 


0 


TC  G OTGPOCH 


LAST  1243 


04,3255  0 5515  0 


R0  2ZERO  TC 


0700  REF  74 


UPFLAG 


12  OC  T.  2 1 ,1970 


SKI P PE  R 


PAGE  1321 


.121 


USER'S  PAGE  NO.  24 


E 3 S4 


ZERO  IMUS 


IS  1SS  INITIALIZED 


SEND  IMU  ALARM  CODE  210 
SEND  RF  FS  MM  ALARM 


GAP:  ASSEMBLE  R EV  IS  ION  56  OF  AGC  PROGRAM  7 ERL  IN  A BY  ZOROASTER 

L I MU  MODE  SWITCHING  ROUTINES 


9:12  CCT.  21,1970  SKIPPER 
USEP  »S  PAGE  NO.  25 


.121  PAGE  1322 
E3  S4 


)7M 
0 70  2 
07025 


PFF 

PFF 


6 LAST  974 
IT  LAST  1307 


C4,  3256 
J4  ,3297 
04,3260 


CCCC7  0 
1 4631  0 
00220  1 CCT22  0 


ADRE  S 1 MUSE 
TCF  SWR  F TURN 
OCT  220 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  1323 


USER  *S  PAGE  NO.  26 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 

L I MU  MODE  SWITCHING  ROUTINES 

PD7D3  PROGRAM  DESCRIPTION  P 06  10FFB67 

R0704  TRANSFER  THE  ISS/CMC  FRCM  THE  CFERATE  TO  THE  STANOBY  CONDITION. 

R0705  THE  NORMAL  CONDITION  OF  READINESS  OF  THE  GNCS  WHEN  NOT  IN  USE  IS  STANDBY.  IN  THIS  CONDITION  THE  IMIJ 

R'  70  7 HEATER  POWER  IS  ON.  TEE  IMIJ  OPERATE  POWER  IS  OFF.  THE  COMPUTER  POWER  IS  ON.  THE  OPTICS  POWFP  IS  GFF.  THE 

* 0709  CMC  STANDBY  ON  THF  MAIN  AND  LEe  EISKYS  IS  ON. 


V 37 E 06E. 


R 3 7 1 3 
* 0716 
RO  71  9 


GAP:  ASSEMBLE  «EVISION  56  OF  AGC  PROGRAM  ZERI  IMA  BY  ZOROA  STEP 


9:12  CCT . 21  ,1070 


SKIPPER  .121  PAGE  1324 


L I MU  MODE  SWITCHING  ROUTINES 


USFR  ' S PAGE  NO.  27 


10 
T-’flll 
R G 8 1 2 


PRESTANC  PREPARES  FOR  STANDBY  BY  SNAPSHOTTING  TMF  SCALER  AND  TIPEl  TIME2 
THE  LOW  5 HITS  CF  THE  SCALER  ARE  INSPECTED  TO  INSIJP  F C0MPATA8IL  ITY 
BETWEEN  THE  SCALER  READING  AND  THE  TI  ME  1 TIRE?  READING. 


E 3 S A 


PRl 2 5 PEF 
OBI  2 6 


37,  2000  SETLOC  PG5P06 

37  ,3654  BANK 


3 813  RFF  ? LAST  100 

08H  RFF  1 


FRA  NK=  TI MF2S AV 
COUNT  * 1S/P06 


98145  RFF 
38146  RFF 


7 c LAST  1321  37,3654 

7 L AST  1 2t r 37,  3655 


C 5515  0 P06 

00C54  O 


TC  JPFLAG 

ADPES  NODOFLAC 


SET  N0D0V37  BIT 


0 815 
0916 
CRl7 
0 fl  1 8 
3913 
0820 
0 821 
0822 
'82  3 
3 8 24 
0825 


REF  34 
REF  3 
PEF  1 
RFF  1 
RFF  F 22 
REF  1 

REF  30  3 
RFF  3 


37  ,3656  C 0004 

37,  36  5 7 C CCC6 

LAST  1296  37,  3660  3 0025 

LAST  1324  37,3661  52  315 

’7,  366?  C 3713 

37,3663  0 3656 

LAST  1309  37,3664  5 2 155 

37,  3665  52  217 

3 7 ,366  6 O 0004 

LAST  1254  37, 3667  C 4616 

LAST  182  37,  3670  17  142 


0 PRESTANO  INHINT 

1 EXTEND 
OCA 

1 OX  CH 

1 TC 

1 TC 

1 DXCH 

OXC.H 

0 INFINT 

1 TC 

f)  C ADR 


TI  ME  2 
T IME2S  AV 
SC ALPREP 
PRESTAND 
MP  AC 
SCALSA  VE 

BANKCALL 

RNDRFFOR 


SNAPSHOT  TIME1TIME2 


T1.T2, SCALER  NCT  C CMPATI  BLE 
T 1,T2  ANO  SCAL  ER  OK 
STORE  SCALER 


REFSMM,  DRIFT,  TRACK  FLAGS  DOWN 


0826  REF  Sfc  LAST  1700  37,3671  0 5527  1 

3827  PEF  7 LAST  1 322  37,  3672  0,00.07  0 

08271  REF  97  LAST  1324  37,3673  0 5527  1 

8272  RFF  7 LAST  829  37,3674  COCIO  0 


TC  DOWNFLAG 

ADRES  1 MUSE  I MUSE  DOWN 

TC  DOWNFLAG 

ADRES  PNDV7FLG  RNDVZFLG  DOWN 


0828  PEF  31  LAST  1330 

0829 

3830  REF  18  LAST  984 


37. 3675  2 4741  1 

37.3676  C 0006  1 
37,  3677  C 5 C13  0 


EXT  END 
WOR 


81  Til 
CHAN13 


SET  STANOBY  ENABLE  BIT 


0831 

OR32 

0833 
(8335 

0834 
0834 
0 83  5 

0836 

0837 

0839 
0939 

0840 


REF 


REF 
R FF 
PEF 
REF 
REF 
RFF 


110  LAST  1232 


2 LAST  1324 
1 


3C4  LAST  1324 
10  LAST  963 


37,  3 7 u J 
37,3701 
37,  3702 


0316 

37.3703 

37. 3704 
37  ,3705 
37,  37C6 
37, 3707 
37,371  0 
37,  3711 
37  ,3712 


C 5364 
C 7024 
20000 


0 

0 

0 


C 3 7 3 3 0 
76060  0 
3 4774  1 

0 4616  1 
20624  0 

1 3705  1 
1 37C5  1 
1 3705  l 


TC  PHASCHNG  SET  RESTART  TCI  POSTAND  WHEN  ST  AND8Y 

OCT  07024  RECOVERS 

OCT  20000 

EB ANK=  SCAL  SAVE 
2 C ADR  POSTAND 

CAF  OCT  62 

TC  BANKCALL 

C A DR  S0PERF1 
TCF  -3 

TCP  -4 

TCF  - 5 


08405  REF  2 LAST  525  4774  0CT62  EQUALS  .5  S EC  DFC  50  = OCT  62 

R084 1 THE  LCW  5 BITS  OF  THE  SCALER  READS  10000  FOR  THE  FIRST  INTERVAL  AFTER  A 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21  ,1970  SKIPPER  .121  PAGE  1325 

L I MU  MODE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  2P  EO  S3 

R3342  Tl  INCREMENT.  IF  SCAl  PREP  DETECTS  THIS  INTERVAL  THE  T1.T2  ANO  SCALER 
R 084 3 DATA  APE  NCT  CCMPATARLE  ANC  RETURN  IS  TO  L+l  FOR  ANOTHEP  READING  OF  THE 

*0844  DATA.  OTHERWISE,  THE  RETURN  IS  TC  L+2  TO  PROCEED.  ROUTINE  ALSO  PREPARES 

R7845  THE  SCALER  READING  FOR  COMPUTATION  OF  THE  I NC  RF  MF  NT  TO  UPDATE  rlT2.  (THE 

R 0 846  10  WS  PIT  ( (?  I T 6)  CF  THE  SCALER  IS  INCREMENTED  5 MS  OUT  OF  PHASE  FROM 

RO  847  Tl.)  ADDITION  OF  5 MS  (HIT  5)  TC  THE  SCALER  READING  HAS  THE  EFFECT  OF 

R3B48  ACJUSTING  BIT  6 IN  THE  SCALER  TO  BE  IN  PHASE  WITH  HIT  1 OF  Tl  . THF  LOW  5 

*0049  BITS  OF  THE  SCALER  READING  APE  THEN  SET  TO  ZERO,  TO  TRUNCATE  THE  SCAI  ER 

R0350  DATA  TO  10  MS.  RESULTS  ARE  STOPED  IN  MPAC  , +1. 


385? 

3353 

0854 

0855 
085  6 
0857 
3858 

0859 

0860 
3861 
0862 
0863 

A0864 
A 0865 
3866 

0867 

0868 


REF  823 
REF  3 

REF  824 
RFF  44 
REF  263 
REF  256 
REF  8 2h 
REF  11 
REF  326 
REF  827 
RFF  12 


REF  4 17 
REF  828 
RFF  829 


LAST  1324 
LAST  386 

LAST  1325 
LAST  13?  6 
LAST  1312 
LAST  1219 
LAST  1325 
LAST  730 
LAST  1325 
LAST  1325 
LAST  1325 


LAST  1221 
LAST  1325 
l A ST  1325 


3 7 ,3714 
37,  37  15 
37  ,3716 
37,3717 
37,  3720 
37  ,3721 
37,  3722 
37,  3723 
37,3724 
37,  3725 
37  ,3726 
3 7 , 3 7 ?7 


0 0006  1 
22  156  0 
C 4 10  3 1 
0 0003  l 
52  155  1 
3 4747  1 
54  U01  1 

3 4755  1 
2C  155  1 

4 4346  0 
7 0155  1 
56  155  0 
7 4346  0 


37,  37  ? C 1C  CCO  0 

37.3731  24  156  0 

37.3732  0 C 1 56  0 


SCAL PP.  FP  EXTEND 

OX  CH  MPAC 

TC  FINETIME 

REL  INT 
DXCH  MPAC 

CA  31  T5 

TS  L 

CA  ZERO 

OAS  MPAC 

CS  LOW  5 

MASK  MPAC 

X C H MPAC 

MASK  L0W5 


+2 


1 


CCS  A 

INC  R MPAC  +2 

TC  MPAC  42 


ADO  5 MS  TO  THE  SCALER  READING. 


SET  L 3 W 5 BITS  OF  ( SC  A LE  R4  5MS)  TO  ZERO 
AND  STORE  RESULTS  IN  MPAC,  *1. 

TEST  LOW  5 BITS  OF  SCAL  FR  FOR  THE  FIRST 
INTERVAL  AFTER  THF  Tl  INCREMENT 
(NOW  = COOOO,  SINCE  BIT  5 ADDED). 

IS  IT  1ST  INTERVAL  AFTER  Tl  INCREMENT 

NO 

YES 


R3369  POSTAND  "FCOVFRS  TIME  AFTER  STANDBY. THE  SCALER  IS  SNAPSHOTTED  AND  THE 
R 0 870  TIME  l T1VE?  COUNTER  IS  SET  TC  ZEPC.  THE  LOW  5 BITS  OF  THE  SCALER  ARE 

R0R71  INSPECTED  TO  INSURF  C OMPA  TAR  I LI  T Y BETWEEN  THE  SCALER  READING  AND  THE 

R0872  CLEARING  CF  TEE  TIME  COUNTER.  IT  THEN  COMPUTES  THE  DIFFERENCE  IN  SCALER 
< *8  7?  VA  L UF  S (IN  DP)  AND  ADOS  THIS  TC  THt  PPFVIOUSLY  SNAPSHOTTED  VALUES  OF 

R 3 3 7 4 TIME1  T IMF  2 AND  PLACES  THIS  NEW  TIME  INTO  THE  Tl  ME  l Tl  ME2  COUNTER. 


0875  RFF 


COUNT*  f $ /P  0 5 


0876  REF  32 

3377 

878  RFF  19 

0 879 

0880  REF  257 

0881  RFF  264 

3332  REF  35 

0883  RFF  2 

0884  REF  2 

3885 

0886  REF  3 

:3887  REF  8 30 


LAST 

LAST 

L AST 
LAST 
I AST 
LAST 
LAST 

LAST 
LA  ST 


1 324 
1324 

1 325 
13  25 
1324 
1324 
1324 

1324 
132  5 


37,  37?/, 
37 ,3735 
37,37?6 
37,  ?7  37 
37  ,3740 

37. 3741 

37.3742 
37 , 3 743 
37, 3744 
37  ,3745 
37,3746 


4 4741  0 
0 00 C 6 1 
03  013  C 
C CCC4  0 

3 4755  1 
54  001  1 
52  C25  1 
0 3713  1 
C 3 734  0 
C 0006  1 

4 0317  0 
2C  155  1 


POSTAND 


CS  BITll 

E XTEND 

WAND  CHAN  13 

INHINT 
CA  ZERO 

TS  L 

DXCH  Tl  ME2 

TC  SCALPPEP 

TC  POSTAND  43 

E XTEND 

DCS  SCAL  SAVE 

DAS  MPAC 


RECOVER  TIME  AFTER  STANDBY. 
CLEAR  STANOBY  ENABLE  BIT 


CL  EAR  T IMElT  IM  E2 
STORE  SCALER  IN  MPAC,  M P A C 4 1 
T1.T2.SCALEP  NOT  COMPATIBLE 
Tl  ,T2  AND  SCALER  CK 

FORM  DP  DIFFERENCE  OF  POSTSTANDBY  SCALER 


SAP  : 


ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  PROGRAM 


ZFRLINA  BY 


ZOROASTER 


9:12  OCT.  2 1 » 1°70  SKIPPER 


121  PAGE  1326 


L IMJ 


MOO E SWITCHING  ROUTINES 


USER'S  PAGE  NO.  29 


EO  S3 


0*88 

988° 

0890 

0891 
3 9 9? 
08  9 8 
989* 
3395 
0896 
' H97 
0898 
0R9Q 

3 333 

0901 

0902 

0903 

0004 
3*945 

0904  6 


REF  51 
R EF  15 
REF  258 
REF  E 3 1 
REF  17 
RFF  83? 
PFF  1 
RFF  2 

REF  8? 
RFF  833 

REF  4 
PFF  834 
RFF  18 
REF  935 
PFF  36 
REF  98 
REF  8 


LAST  131  3 
LAST  86  4 
LAST  1325 
LAST  1??5 
LAST  13o8 
LAST  1326 

LAST  1326 


LAST  1 326 
LAST  1326 

LAST  1324 
LAST  1326 
IASI  1326 
LAST  1326 
LAST  1325 
LAST  1 3 ? 4 
LAST  1324 


37  ,3747 
37,3750 
37,  375  1 
37,3752 
37,  3753 
37  ,3754 
37,3755 
37,  9756 
37,3757 
37, 3760 
37,  376  1 
37,376? 
37,  3763 
37  ,3764 
37,3765 
37,  3766 
37  ,3767 
37, 3770 
37,  3771 


3 4742  1 
C 7321  n 
3 4755  1 
54  156  1 
C 7271  1 
10  154  0 
C 3762  1 
C 3762  1 
0 3760  0 
? 4742  1 
26  1 54  0 
C 0006  1 
2 0315  0 
20  155  1 
0 7271  1 
51  155  1 
20  025  1 
C 5527  1 
0CC54  0 


CAF  RIT10 

TC  SHORT  MP 

CAF  ZERO 

TS  M P AC  +2 

TC  T PAG  REE 

CCS  MP  AC 

TC  POSTCOM 

TC  POSTCOM 

TC  +1 

CAF  BIT10 

ADS  MPAC 

PCSTC.OM  EXTEND 

DC  A TIMF2SAV 

DAS  MPAC 

TC  T P AGREE 

OXCH  MPAC 

DAS  T IME2 

TC  DOWNFLAG 

A ORES  NOD OF  LAG 


MINUS  PPF  STANDBY  SCALER  AND  SHIFT  RIGHT 
5 TO  ALIGN  BITS  WITH  T IME  iTIME  2. 

NEEDED  FOR  TP  AGREE 
MAKE  DP  DIFF  A GRFF 

IF  DJ  DIFF  NFT  +,  NO  SCALER  OVERFLOW 
BETWEEN  PRE  AND  POST  STANDBY. 

IF  DP  DIFF  NET  SCALER  OVERFLOWED.  ADO 
PIT  10  TO  HIGH  DIFF  TO  CORRECT. 

CIMPAC,  +1  1 IS  MAGNITUDE  OF  DELTA  SCALER. 
PRESTANDBY  T IMElT  IME2 

FORCE  S IGN  AGREEMENT 
UPDATED  VALUE  FOR  T1  , T2  . 

LOAD  UPDATED  VALUE  INTO  T1  , T2  , WITH 
CLEAR  NODOFLAG 


0905  REF  62 


LAST  1321  37,3772  C 6001  0 


TC  GOTOPOOH 


9:12  QCT • 21,1970 


SK  IPPER 


PAGE  1327 


GAP:  ASSEMBLE  REVISION  56  OF  A 3C  PROGRAM  ZERLINA  BY  ZOROASTER 


L KFYRUPT,  UPRUPT 


USER'  S PAGE  NO. 


ED  S3 


000  1 

DDD?  REF 

0003 

0004  REF 


14,3775 
0 4,  2000 
04  ,3261 


BANK  14 
SETLOC  KEYRUP7 
BANK 

COUNT*  SS/KEYUP 


0005  RFF 

0006  P.FF  3 

0007  REF 

0008  REF 

0009  RFF 

0010  . 

0011  REF 

0012  REF 

0013  REF 

0014  RFF 

0015  RFF 


9 LAST  1120 
53  LAST  13  16 
R LAST  1120 
2 LAST  446 
13  LAST  1325 

2 LAST  225 
6 LAST  128  9 

27  LAST  9C7 
1 

28  LAST  1327 


04,  326  I 54  016 
04,3262  56  002 

04,  326  3 54  C12 

04.3264  0 4400 

04.3265  3 4346 

04.3266  C 0006 

04  ,3267  02  0 15 

04,3270  54  C73 

04,  327  1 4 0101 

04,3272  7 4735 

C 4,  3273  26  101 


1 

0 

0 


1 

1 

1 

0 

0 

0 


KFYRUPT1  TS 
XCH 
TS 
TC 
CAF 

E XTFND 
RANG 

KFYCOM  TS 
C S 
MASK 
ADS 


3 A NKR  UPT 

0 

ORUPT 
LDDSAMPT 
LOW  5 

MNKEYIN 
RUPTREC-4 
FLAGWRD5 
DS  KYFB  IT 
F LAC.WP05 


TIME  IS  SNATCHED  I N 


CHECK  IF  KEYS  5P-1N 


RUPT  FCR  NOUN  65. 


CN 


6016  REF 
0017  REF 
0010  REF 
0019  RET 

0019  REF 

0020  REF 
0 121  REF 
0 D 22  REF 
0023  RFF 


6 LAST  1090 

23  LAST  1283 
66  LAST  466 

1 

1 

7 LAST  1327 

24  LAST  1317 
336  LAST  1326 

23  LAST  986 


04,3274  3 4355  0 ACCFPTUP  CAF  f HR  PR  I O 


04.3275  0 5072  1 
0 776 

04.3276  02057  1 
04,3  2 77  601  Cl  1 

04. 3300  2 0073  0 

04.3301  50  064  0 

04. 3302  54  ] 54  0 

04.3303  0 5301  0 


TC  NOV  AC 

E BAN  K=  DSPCOLNT 
2CADR  CHAR  IN 

CA  RUPTREG4 

INDEX  LOCCTR 
TS  MPAC 

TC  RESUME 


(NOTE:  PUPTRE34  = KEYTFMP1) 


LEAVE  5 BIT  < EY  CDE  IN  MPAC  FOR  CHARIN 


3AR  : 


ASSEMBLE  REVISION  56  OF  AGE  PROGRAM  ZERLINA  BY  ZOROASTER 


KFYRUPT,  JPRIIPT 


00  25 
3325 
0027 
00  20 

0029 

0030 
3331 

0031  2 
0031  3 
33314 
0031  5 
00316 
0031  7 
0031  0 
333? 
or, 3 3 
0034 
3335 
0036 
00  3 7 

003  fl 
0030 
3343 

0041 

0042 
3343 

0044 

0045 

004  6 
0047 
3348 
004  9 


UPRUPT  PROGRAM 

RFF  10  LAST  l 
RFF  354  LAST  1 
REF  9 LAST  1 
REF  3 
REF  ?SQ 


REF  2 
REF  2 
RFF  15 
REF  5 
REF  4 l R 


RFF 

REF 

REF 

RFF 

RCF 

REF 

RFF 

REF 

REF 

REF 
R EF 
REF 
REF 
RFF 
REF 


LAST  1326 
LAST  229 


l 


53  LAST  1326 
1 

15  LAST  1328 
1 

1 

54  LAST  1328 

2 LAST  132ft 

16  LAST  1328 

2 LAST  132ft 


34 .3304 

34. 3305 
04  ,3306 
04,3307 

3 4,  3 3 10 
34  ,3311 
04,  32  12 
0 4,  3 313 
34,3314 
C 4,  3315 

04  ,3316 
C4.33  17 
04,  3320 
04  ,3321 
;4,  3 3 22 
0 4,  -3  3?ft 
04,3324 
C 4,  3325 

04.3326 

04.3327 

, 

04, 3322 
0 4,  3 3ft  3 
04 ,3334 
? 4,  3335 
04  ,3336 
04 ,33  27 
0 4,  3340 
04,3341 
C 4,  3342 
0 4,  3 343 


54  016  1 
56  (.  C 2 r 
54  012  0 
C 4400  1 
3 4755  1 
56  045  0 
54  C 73  1 
3 LC77  1 
7 4741  0 
1C  CCO  0 

1 332?  0 

2 0073  0 
27 ' 2 4 7 0 
25*250  1 

3 4751  0 
0 0006  1 
C5  011  1 
3 4246  1 
7 C073  1 
c 6 073  C 
0 0006  1 
7 474?  0 
54  332  1 
7 4346  0 

6 3370  0 
C 3365  1 

3 4742  1 
C 0006  1 

7 0332  1 
7 4346  0 

4 CCOO  0 
C 3365  1 


MASK 
CCS 
TCP 
CA 
AO  S 
INCR 
CAF 

EXTENO 

WOR 

CAF 

MASK 

XCH 

E XTENO 


MP 

TS 


RANK  RU  PT 
0 

OR  UP  T 
LOOS  AMPT 
7 E RO 
INL  INK 
KEYTEMP1 
F LAG WRO  3 
N0PC7BIT 
A 

UPRPT1 
KEYTEMP1 
UP  SUM 
JPSUM  +1 
B I T3 

OS  ALMOUT 
LOWS 

< E YTEMP  1 
K EYTFMP1 

B IT  10 
KEYTEMP2 
LOW  5 
HI  1( 
UPTEST 
B 1 T 10 

KE  YTE  MP2 
LOWS 


0050 

3351 

0052 

0053 

0054 

0055 
3356 

0057 

0058 

3059 

0060 

0061 

0062 


6 L AST  132ft 


REF  1 
REF  26 
REF  419 
REF  24 


PEE 

PFF 

RFF 

REF 


LAST  08  5 
LAST  1328 
LAST  1327 


L AST  132  ft 
LAST  1 32  B 
LAST  1328 
LAST  1328 


, 

04,3351 
C 4,  3352 

04.3353 

04.3354 

04. 3355 

04 .3356 

04.3357 
04,  3360 


4 3373  1 

6 0073  r 
0 0006  1 
1 3355  C 

? 4750  1 

7 0103  1 
1C  000  0 
0 5 30  1 0 
0 3274  0 

4 4750  0 
7 0103  1 
54  1C3  1 
0 3274  0 


CS  EL  RCODE 

AO  KEYTEMPl 

EXT  END 

BZF  CLUPLCCK 


UPLUCRl T 
FI  ACWRD7 
F L AGWR  07 
ACCEPTUP 
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T IME  IS  SNATCHED  IN  RUPT  FOR  ND  UN  65. 


AFTER  EARTH  LAUNCH? 

YE  S 

NO:  SUM  UPL  IN<  OATA 


TURN  ON  UPACT  L IGHT 
( BI  T 3 OF  CHANNEL  11  1 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

LOW 5 OF  WORD 

LOW  5 INTO  K EYT  EMP  1 

SHIFT  RIGHT  5 

MID  5 


SHI  FT  RIGHT  5 
HIGH  5 


CODE  IS  GOOD.  IF  CODE  = 'ERROP  RESET*, 
CLEAR  U PLOCKFL  (S  ET  BIT4  OF  EL  AGWR  07  = 0) 
IF  CODE  DOES  NCT  = * F RROR  RESET',  ACCEPT 
CODE  ONLY  IF  UPLOCKFL  IS  CLEAR  (=0). 


TEST  UPLOCKFL  FOR  0 OR  1 


UPLOCKFL  = 1 
UPLOCKFL  = 0 


CLEAR  UPLOCKFL  (I.E.,SET  BIT  4 OF  ) 
FLAGWR07  = 0) 
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A0063 

006 A REF 
0065  REF 
D 0 66  REF 
0067  PFF 
0069  REF 
3 0 70  RFF 

0071  RFF 

0072 

0073  RFF 
007'+  RFF 


29  LAST  1328 
3 LAST  1328 

30  LAST  1329 
25  LAST  1 32  R 

7 LAST  1 3 ? R 
420  LAST  1328 


2 LAST  1329 
355  LAST  1328 


04,  336  1 4 0 1C3  \ TMFAIL2  CS 


04,3362  7 4750  0 MASK 

C 4,  3363  26  1C3  1 AOS 

04  ,3364  0 5301  0 TC 

04,3365  6 0073  0 IJPTEST  AD 

04,  3366  1C  OCO  0 CC  S 

04  ,3367  0 3361  0 TC 

04,  3370  1774C  l HI  10  OCT 

04,  3371  0 3361  0 TC 

04,33  72  C 0002  0 TC 


F LAG  WRD7 
JPLOCBIT 
F LAGWR07 
P F SUM  F 
KEYT  EMP1 

T M FA  IL  2 
77740 
TMFAI  L 2 
0 


CODE  IS  BAO 

LOCK  OUT  FURTHER  UPLINK  ACT  IV  ITY 
(BY  SETTING  UPLOCKFL  = 1)  UNTIL 
•ERROR  RES  FT'  IS  SENT  VIA  UPLINK. 


D07S 


04,3373  00022  1 ELRCODE  OCT  22 


R 0076 
ROC  77 
R0P78 
3 0079 


' UPLINK 


ACTIVITY  LIGHT'  IS  TURNED  OFF  BY  

1.  VBRFLOSP 

2.  ERRCR  PFSET 

3.  UPDATE  PROGRAM  F27)  ENTFREC  BY  V70  ,V7  1 , V7  2 , AND  V 73. 


R3D8D 

R0C81  THE  RFCEPTI CN  CF  A RAC  CODE!  I. E CCC  FAILURE)  LOCKS  OUT  FURTHER  UPLINK  ACTIVITY  BY  SETTING  BI  T4  OF  FLAGWRD7  = 1. 
« 1 p3  THIS  INDICATION  WILL  HE  TRANSFERRED  TO  THE  GROUND  BY  THE  DOWNLINK  WHICH  DOWNLINKS  ALL  FLAGWORDS. 

RDjPS  WHEN  UPLINK  ACT  IV  ITY  IS  LOCKED  OUT  ,IT  CAN  BE  ALLOWED  WHEN  THE  GROUND  UPLINKS  AND  'ERROR  RES  FT'  CODE. 

3 0087  (IT  IS  RECOMMENDED  THAT  THE  ' E P F OR  LIGHT  RESET'  CODE  IS  PRECEEDED  BY  16  BITS  THE  FIRST  OF  WHICH  IS  1 FOLLOWED 

R3D89  BY  15  ZEROES.  THIS  WILL  ELIMINATE  EXTRANEOUS  BITS  FRUM  INLINK  WHICH  MAY  HAVE  BEEN  LEFT  OVER  FROM  THE  ORIGINAL 

RCC91  FAILURE) 

30092  UPLINK  ACTIVITY  IS  ALSO  AL  LO  W E C ( UNLOC  KED  ) DURING  FRESH  START  WHEN  FRESH  START  SETS  8IT4  OF  F LAG  WRD  7 = 0. 
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*00f-l  DISPLAYS  CAN  BE  CLASSIFIED  I NTC  TF  E FOLLOWING  CAT  EGOR  I ES  - 


«33D2 
R0004 
R 000  5 
R0007 
* COG 9 

ROOl  r 

RDO 1 2 


PRIORITY  DISPLAYS-  DISPLAYS  WHICH  TAKE  PRIORITY  OVER  ALL  OTHER  DISPLAYS.  USUALLY 
CLT  UNDER  CRITICAL  A L A 5 M CONDITIONS. 

EXTENDED  VFR«  DISPLAYS-  ALL  EXTENOEC  VERBS  ANO  MARK  ROUTINES  SHOULD  USE  EXTENDEO 
NORMAL  DISPLAYS-  ALL  MISSION  PROGRAM  DISPLAYS  WH  1 1 H INTERFACE  WITH  THF  ASTRONAUT 
SEQUFNCF  OF  EVENTS. 

MISC.  DISPLAYS-  ALL  DISPLAYS  NOT  HANDLFD  BY  THF  OISPLAY  I NT  EP  F ACEROUT  INES  . THESE 
m M DISPLAYS  ANC  SPECIAL  PURPOSE  DISPLAYS  HANDLED  3Y  PINBALL. 


THES  E DISPLAYS  ARE  SENT 

VERB  (MARK  ) DI  SPLA  YS. 
DURING  THE  NORMAL 

INCLUDE  SUCH  DISPLAYS  AS 


loop  5.  ASTRONALT  INITIATED  DISPLAYS-  ALL  DISPLAYS  INITIATED  FXTERNALIY. 

R3M4  TEE  FOI  LOW  ING  TERMS  AR  F USED  TO  DESCRIBE  THE  STATUS  OF  DISPLAYS- 


R 00 1 5 
K 0 r 1 7 
ROCl  9 
* 002' 
R3D22 
R 0029 
R0026 
R D 5 2 B 


1.  ACTIVE-THE  DISPLAY  WHICH  IS  (1)  BEING  DISPLAYED  TO  THE  ASTRONAUT  AND  WAITING  FDR  A RESPONSF  OR 

(2)  WAITING  FIRST  IN  LINE  FDR  THE  ASTRONAUT  TO  FINISH  USING  THE  OSKY  OR  (3)  BEING  DISPLAYED  ON  THE  D SKY 
BUT  NCT  WAITING  FOR  A RESPONSE. 

2.  INACTIVE  -A  DISPLAY  WHICH  HAS  (1)  BEEN  ACTIVE  BUT  WAS  INT  ERPUPTEDRY  A DISPLAY  OF  HIGHER  PRIORITY, 

(2)  BEEN  3 UT  TNTD  THE  WAITING  LIST  AT  TIME  IT  WAS  REQUESTED  DUE  TO  THE  FACT  A HIGHER  PRIORITY  DISPLAY 
WAS  ALREADY  GOING,  (3)  BEEN  INTERRUPTED  BY  THE  ASTRONAUT  (CALLED  A PI  NB  RANCH  CONDI  TICK,  SINCE  THIS  TYPE 
OF  INACTIVE  DISPLAY  IS  USUALLY  REACTIVATED  ONLY  BY  PINBALL)  OR  (A)  A OISPLAY  WHICH  HAS  E IN  I SHED  BUT  STILL 
FAS  INFO  SAVED  FOR  RESTART  PURPOSES. 


* 0029  DISPLAY  PRIORITIES  WORK  AS  FCLLCWS- 


R D D 3 D INTERRUPTS  — 

R0C.31  1.  THF  ASTRONAUT  CAN  INTERRUPT  ANY  DISPLAY  WITH  AN.  EXTFRNAL  DISPLAY  RFQUEST. 

*0033  ?.  INTERNAL  DISPLAYS  CAN  NCT  8F  SENT  CUT  WHEN  THE  ASTRONAUT  IS  USING  THE  DS*Y. 

RDD35  3.  PRIORITY  DISPLAYS  INTERRUPT  ALL  OTHER  TYPES  OF  INTFRNAL  DISPLAYS.  A PRIORITY  DISPLAY  INTERRUPTING  ANOTHER 

R 0037  PRIORITY  DISPLAY  WILL  CAUSE  AN  ABORT  UNLESS  BIT14  IS  SET  FOR  THE  LINUS  ROUTINE. 

R0039  4.  A MARK  DISPLAY  INTERRIFTS  ANY  NORMAL  DISPLAY. 

R0040  5.  A MARK  THAT  INTERRUPTS  A MARK  COMPLETELY  REPLACES  IT. 


* 004  l 
R 3 ' 4? 
It  00  4 3 
R 00  44 
RD3  45 


ORDER  OF  WAITING  01 SPLAYS- 
L.  ASTRONAUT  EXTERNAL  USE 
7.  PRIORITY 

3.  INTERRUPTED  MARK 

4.  INTERRUPTED  NORMAL 


* 0044 
RDD47 


5.  MARK  TO  BE  PEQUFSTEC 
4.  MARK  WAITING 


(SEE  DESCRIPT  ION  OF 


EN  DM  AR  K ) 


ROO40 


7.  NORMAL  W AIT  ING 
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P0D49  TFE  DISPLAY  ROUTINES  ARE  INTENDED  TO  SERVE  AS  AN  INTERFACE  BETWEEN  THE  USER  AND  PINBALL.  THF 

R 00  51  FCLLCWING  STATEMENTS  CAM  0E  MADE  ABOUT  NORMAL  DISPLAYS  AND  PRIORITY  DISPLAYS  (A  DESCRIPTION  OF  MARK  ROUTINES 

R0053  WILL  FOLLOW  LATER  ) : 


p o n 5 a 
* D056 
RDD58 
R 0059 

3 0061 
R3063 
R0065 
RP066 
RODS  7 
3 0069 
R037D 
R 007? 
3 00 7 A 
RDD75 


1.  ALL  ROUTINES  THAT  END  IN  R HAVF  AN  IMMEDIATE  PETURN  TO  THE  USER.  FOR  ALL  FLASHING  CISPLAYS  THIS  RETURN 
IS  TO  THE  USERS  CALL  CADR  +4.  FOR  THE  ONLY  NON  FLASHING  IMMFDTATF  RETURN  DISPLAY  (GODSPR)  THIS  RETURN 
IS  TO  THE  USERS  CALLING  LOC  + 1 . 

2.  ALL  ROUTINES  NOT  EN  C IN  G IN  R 00  NOT  DO  AN  IMMEDIATE  RETURN  TO  THE  USER. 

3.  ALL  ROUTINES  THAT  END  IN  R START  A SEPARATE  JOB  (MAKEPLAY)  WITH  USERS  JOB  PRIORITY. 

A.  ALL  ROUTINES  NOT  ENDING  IN  R BRANCH  DIRECTLY  TO  MAKEPLAY  WHICH  MAKES  THESE  DISPLAYS  A PART  OF  THE 

LSFRS  JOB. 

5.  ALL  DISPLAY  ROUTINES  ARE  CALLED  VIA  BANKCALL. 

6.  TO  RESTART  A OISPLAY  THE  USER  WILL  GENERALLY  USE  A PHASE  OF  ONE  WITH  DESIRED  RESTART  GROUP  (SEE 
DESCRIPTION  CF  RESTARTS). 

7.  ALL  FLASHING  DISPLAYS  HAVE  3 RETURNS  TO  THE  USER.  FROM  ASTRONAUT  RESPONSES.  A TERMINATE  (VT4>  BRANCHES 

TO  THE  USERS  CALL  CACR  +1.  A PROCEED  (V33)  BRANCHES  TO  THE  USERS  CALL  CADR  «-2.  AN  FNTER  OR  RECYCLE 

( V32)  BRANCHES  TO  THE  LSERS  CALL  CADR  +3. 

8.  ALL  ROUT  INFS  MUST  BF  USED  UNDFR  EXECUTIVE  CONTROL. 


R0076  A DESCRIPTION  OF  EACH  ROUTINE  WITH  AN  EXAMPLE  FOLLOWS: 


RD377  GOOSP  IS  USED  TO  DISPLAY  A VERB  NOIN  ARRIVING  I N A.  NO  RETURN  IS  MADE  TO  THE  USER. 


R 0079 
3 0080 
ADDR1 
A0C82 
AO  0 8 3 


GODS  P IS  NCT  REST  ART  ABLE 

A VFRB  PASTE  WITH  GOCSP  ALWAYS  TURNS  ON  THE  FLASH. 

CAF  VXXNYY 

TC  BANKCALL 

CADR  GO DSP 


A0084  VXXNYY  DC  T GXXYY 

3 0085  GODSPR  IS  THF  SAME  AS  GCOSF  CNLY  PETURN  IS  TO  THE  USER. 


A 3 D B 6 
A 0 DR 7 
4 00  88 


CAF  VXXNYY 

TC  BANKCALL 

CADR  GODSPR 


A33R9  IMMEDIATE  RETURN  OF  GODSPR 

R0P90  GDFLASH  DISPLAYS  A FLASHING  VERe  NCUN  WITH  NO  IMMEDIATE  RETURN  TO  THE  USER.  3 PETURNS  ARE  POSSIBLE  FROM 
TIE  ASTRONAUT  ( Sf  ( N(  . 7 ABOVE ) . 


4 00^3 
4 0094 
AD  39  5 
AP0*>6 
A0P97 
A0098 


CAF  VXXNYY  VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN. 

TC  BANKCALL 

CADR  GOFLASH 

TERMINATE  RETURN 

PROCEED  RETURN 

...  ...  ENTFR  OR  RECYCLE  RETURN 


G0PERF1  IS  FNTERFO  WITH  DES  I PEC  CHECKLIST  VALUE  IN  A. 


3 0099 


G0PERF1  WILL  DISPLAY  THIS  VALUE  IN  R1  BY  MEANS  OF  A 
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RD 194  GOPERF1  PLANKS  REGISTERS  R2  AND  R3 

A0105 
AO  10  6 
AOl  07 
A 01(  R 
AD  1 09 
AOllO 


CAF 

TC 

CADR 


DCTXX 

BANKCALL 

GOPEPFl 


COOF  FOR  CHECKLIST  VALUE 


TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 


1111 
R1  1 13 
Ri  115 


GPPERF2  IS  FNTEPEO  WITH  A VARIABLE  NOUN  AND  VO  1 ( VOO  FOR  NlO  OR  Nil  I IN  A.  G0PERF2  WILL  FIRST  DISPLAY  THE 
REGUESTEC  NOUN  BY  MEANS  DF  A VC  1NYY  OR  A VCONYY.  PLEASE  PERFORM  ON  NOUN  (V59  NYY  ) THEN  BECOMES  A FLASHING 
DISPLAY.  NO  IMMECIATE  RETURN  IS  MADE  TO  TEE  USER  (SEE  NO.  7 ABOVE!. 


R 116  G0PERF2  DOFS  NOT  BLANK  AMY  RFGI  STEPS 

AOl  17 
AT  HR 

ad  1 19 

A 0 1 2f 
AO  121 
AD  122 


CAF 

TC 

CADR 


VXXNYY 
TANK  C ALl 
G0PERF2 


VARIABLE  NOUN  YY.  XX=OC  OR  C 1 . 


TERMINATE  RETURN 
PROCEEO  RETURN 
FNTFP  RETURN 


3 012'* 
RC  125 
ROl  2 7 


GCPERF3  IS  USED  FOR  A PLEASE  PERFORM  ON  A PROGRAM  NUMBER.  THE  DESIRED  PROGRAM  NO.  IS  ENTFREO  IN  A.  G0PERF3 
DISPLAYS  THE  NO.  BY  MEANS  OF  A V C 6 N07  FOLLOWED  BY  A FLASHING  V50  NP7  FOR  A PLEASE  PERFORM.  NO  IMMEDIATE  RETURN 
IS  MADE  TO  TFF  USER  (SEE  NO.  7 ABOVE). 


*0128  G0PERF3  BLANKS  REGISTERS  R2  AND  R3 

AD  l 29 
A 0130 
AO  131 
AD  132 
AOl  33 
AO  134 


CAF 

TC 

CACR 


DECXX 

BANKCALL 

G0PERF3 


REQUEST  PERFORM  ON  PXX 


TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 


ROl  35 
i C l 37 
RD  1 39 


G0PERF4  IS  USED  FOR  A PL  F AS  E PERFORM  ON  AN  OPTION.  THE  DESIRED  OPTION  ISENTEREO  IN  A ANC  STORED  IN  CPTI0N1. 
G0PFRF4  DISPLAYS  Rl  AND  R2  BY  MEANS  OF  A V04N06  FOLLOWEO  BY  A FLASHING  V50N06  FOR  A PLFASE  PERFORM.  NO 
IMMEDIATF  RETURN  IS  MADE  TO  THE  LSEP.  (SEE  NO.  7 ABOVE). 


A 0 14  0 
AO  141 
AD  142 
A 0 1 43 
AO  144 
A0l45 


CAF 

TC 

CADR 


DC  T XX 

BANKCALL 

G0PERF4 


REQUEST  PERFORM  ON  CPTICN  XX 


TERMINATE  RETURN 
PROCEED  RFTURN 
FNTER  RETURN 


G0PERF4  BLANKS  REGISTER  R3 
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R0U7 

3 0149 

GOOSPRET  IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A WITH  A RETURN  TO  THE  USER  AFTER  THE  DISPLAY  HAS  BEEN  SENT 
OUT. 

A316T 

40151 

A 0 152 

CAF  VXXNYY 

TC  BANKCALL 

CAOR  GOCS  PR  ET 

A)  1 5 3 

RETURN  TO  USER 

R 01  54 
RC  156 

REGODSP  IS  USED  TO  DISPLAY  A VER3  NOUN  ARRIVING  IN  A.  REGODSP  IS  THE  SAME  AS  OODSP  ONLY  REGODSP  REPLACES  ANY 
ACTIVE  NORMAL  DISPLAY  IE  ONE  WAS  ACTIVE. 

AQl  5 7 

A 0 1 58 
A3  159 

CAF  VXXNYY 

TC  BANKCALL 

CADR  REGODSP 

ROl  60 

REFLASH  IS  THE  SAME  AS  GOFLASF  ONLY  REFLASH  REPLACES  ANY  ACTIVE  NORMAL  DISPLAY  IF  ONF  WAS  ACTIVE. 

A 0 16  ? 
A3  16  3 

A 0164 
AO  165 
A0166 

A 0167 

CAF  VXXNYY  VXX  NYY  WILL  3E  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  REFLASH 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RETURN 

RD  168 

GO  FL  AS  HR  IS  SAME  AS  GOFLASH  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4. 

A 01  70 
AO  17  1 

A3  172 

A o 1 73 
AO  174 
A0175 

CAF  VXXNYY 

TC  BANKCALL 

CAOR  GOFLASHR 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  OR  RECYCLE  RETURN 

A'  176 

TMMEOIATF  PETURN  FROM  GOFLASHR 

R3177 

G0PERF1R  IS  THE  SAME  AS  G0PERF1  ONLY  GOPERF  iR  HAS  AN  IMMEDIATE  RETURN  TOIJSERS  CALL  CADR  +4. 

R3179 

G0PERF1R  eLANKS  REGISTERS  R2  AN  C R3 

v 1 3( 

A0 1 8 1 
' 1 1 
4*183 
AOl  84 

A 0 1 R 5 

CAF  OCTXX  CODE  FOR  CHECKLIST  VALUE  XX. 

TC  BANKCALL 

CAOR  GOP  ER  FIR 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RFTURN 

A3  186 

...  ...  IMMEDIATE  RETURN  FROM  GOPERFlR 

R 0187 

G0PERF2R  IS  THE  SAME  AS  G0PERF2  CNLY  AN  IMMEDIATE  RFTURN  IS  MADE  TO  USERS  CALL  CADR  f 4. 
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R0lft9 

G0PERF2R  OOFS  NOT  BLANK  ANY  REGISTERS 

4 0190 
A?  1 7 1 

4 01  9? 

4 0193 
4D194 
40195 

CAF  VXXNYY  VARIABLE  NOUN  YY  REQUESTED.  XX=00  UR  01 

TC  BANKCALL 

CAPR  G0PERF2R 

TERMINATE  RETURN 

PROCEED  RETURN 

...  ...  ENTER  RE  TURN 

AO  196 

IMMEDIATE  RETURN  HERE  FROM  GDPERF2R 

POl  97 

COPER  FT  R IS  THE  SAME  AS  G0PEPF3  ONLY  AN  IMMFOTATE  RETURN  IS  MADE  TO  USFPS  CALL  CAOR  + 4 . 

R 0199 

G0PERF3R  BLANKS  REGI  STFRS  R2  ARC  P3 

AD2DD 

4 020  1 
AO  20  2 
A320T 
40204 
AD2D5 

CAF  PRCGXX  PEPFOPM  PRGGR AM  XX 

TC  BANKCALL 

CARR  G0PERF3R 

TF  R MI  NAT  E RETURN 

PROCEED  R E TUI N 

...  ...  ENTER  RETURN 

A02(  6 

...  ...  G0PERF3R  IMMEDIATELY  RETURNS  HERE 

R 0 20  7 

G0PERF4R  IS  THE  SAME  AS  30PERF4  CNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  USERS  CALL  CADR  +4. 

A32D7 

A 021  o 

AO  ?U 

AD  2 1 2 
40213 

AD  2 1 A 

CAF  OCTXX  REQUEST  PERFORM  ON  OPT  IONXX 

TC  BANKCALL 

CADR  G0PERF4R 

TERMINATE  RETURN 

...  ...  PROCEED  RF  TURN 

FNTER  RETURN 

A 0 2 1 5 

...  ...  IMMEDIATE  RETURN  TO  USER 

R 0216 

GOP ERF  4R  BLANK S REGI  STEP  R3 

RD217 

REFLASHR  IS  THE  SAME  AS  REFLASH  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4. 

40219 

AD22? 

40221 

A 0222 

AD  223 

A 0224 

CAF  VXXNYY  VXX  N YY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  REFLASHR 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RETURN 

A 225 

IMMEDIATE  RETURN  TO  USER 

R0226 

REGGCSPR  IS  THE  SAME  AS  REGOCSP  ONLY  A RETURN  (IMMEDIATE)  IS  MADE  TO  THE  USER. 
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CAF  VXXNYY 

TC  BANKCALL 

CADR  RE  GODS  PR 


AD  23 1 


IMMEDIATE  RETURN  TC  USER 


P0232 

R"234 
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G C MARK  IS  US  EO  TO  CISPLAY  A HARK  VERB  NOUN  APP  IV  TNG  IN  A.  NO  RETURN  IS  MADE  TO  THE  USER. 

GOXDSP  = GOMARK 


PAGE  1336 
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A)  237 
R0?38 
IP  239 


CAF  VXXNYY  VXXNYY  CONTAINS  VEPP  ANC  NOUN 

TC  BANKCALL 

CADR  GOMARK  OTHER  EXTENOED  VERBS  USE  CAOR  GOXDSP 

GCMARKP  IS  THE  SAME  AS  GOMARK  ONLY  RETURN  IS  10  THE  USER. 

GOXDSPR  = GOMARKR 


A)2^ 

A 0241 
AO  2 42 


CAF  VXXNYY 

TC  BANKCALL 

CAOR  GOMARKR  OT  HER  EXTENDED  VERBS  USE  CADR  GOXDSPR 


A 2 4 3 


IMMEDIATE  RETURN  CF  GOMARKR 


1 244  GOMARKF  DISPLAYS  A FLASHING  MARK  VERB  NOUN  WITH  NO  IMMEDIATE  RETURN  TO  THE  USER,  i RETURNS  ARE  POSSIBLE  FROM 
RD246  THF  ASTRONAUT  (SEE  NU  . 7 ABOVE  >. 


R 247  GCXDSPF  = GCM ARKF 


A0  2 4B 
A 02  4 9 
4 02 50 
A ? 2 5 l 
A 02  52 
A I 25  3 


CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  MARK  VERB  NOUN 

TC  BANKCALL 

CAOR  GOMARKF  OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPF 

TERMINATE  RETURN 

...  ...  PROCEEO  R FTURN 

ENTER  DR  RECYCLE  RETURN 


RD  254  GOMARK  FR  IS  THE  SAME  AS  GOMARKF  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  CALL  CADR  +4. 
R 02  56  GOXDSPFR  = GOMARKF  R 


A1'  2^7 
A025B 
A >'Z59 

AD250 

AC261 
A 0 26  2 


CAF  VXXNYY  FLASHING  MARS  VERB  NOUN 

TC  3 A N KC  A L L 

CADR  GOMARK  FR  OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPFR 

TFRMINATE  RETURN 

PROCEED  RETURN 

ENTER  DR  RECYCLE  RETURN 


AD  263 


IMMEDIATE  RETURN  TT  THF  USER 


R 0264  G0MARK1  IS  USED  F CR  A PLEASE  FERFCRM  ON  A MARK  REQUEST  WITH  ONLY  1 ASTRONAUT  RETURN  TO  THE  USER.  NO  IMMEDIATE 

R ' 266  RETURN  IS  MADE . THE  DESIRED  MARK  PLEASE  PERFORM  VERB  AND  DESIRED  NOUN  IS  ENTERED  IN  A.  GOM  ARK  1 DISPLAYS  Rl,  R2,  R 

Ph26R  MEANS  OF  A VO  5 NY  Y FOLLOW  FD  BY  l FLASHING  V5XNYY  FOR  A PLEASE  PERFORM.  THE  ASTRONAUT  WILL  RESPOND  WITH  A MARK 

1 0270  OR  MARK  REJECT  OR  AN  ENTER.  THE  ENTER  IS  THE  CNLY  ASTRONAUT  RESPONSE  THAT  KILL  COMF  BACK  TO  THE  USER. 


AD272  CAF  V5XNYY  X =1  ,2,3,4  Y=  NOUN 

A 0273  TC  BANKCALL 
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AD  274 

C AO  R GOMARKl 

A 0275 

ENTER  RETURN 

R0276 

***  IF  BLANKING  DESIRED  ON  NON  R ROUTINES,  NOTIFY  DISPLAYER. 

R0277 

A 0 279 
AD2BD 

A 0 281 

GCMARKlR  IS  THE  SAME  AS  A GOMARKl  ONLY  AN  IMMEDIATE  RETURN  IS  MADF  TO  THE  USERS  CALL  CADR  +2. 

CAF  V5XNYY  X=l,2,3,4  YY  = NOUN 

TC  BANKCALL 

CADR  GOMARK  1R 

' 

A02  83 

ASTRONAUT  ENTER  RETURN 

IMMEDIATE  RETURN  TO  USER 

RQ284 

AD2R6 

A 02  R7 

A 9 288 

AD  289 

A 0290 
AO  29  1 

RD  292 

G0MARK2  IS  THE  SAME  AS  GCMARK1  CMY  3 RETURNS  AR  F MADE  TO  THE  USER  FROM  THF  ASTRONAUT. 

CAF  V5XNYY  X=1,2,3f4  Y Y =NOU  N 

TC  BANKCALL 

CADR  GOMARK? 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RETURN 

G0MARK2  R IS  THE  SAME  AS  GOMARK  1R  ONLY  3 ASTRONAUT  RETURNS  ARE  MADE  TO  THF  USER. 

A 0294 
AD295 

A 02  96 

A 0 297 
AD298 

A 0299 

CAF  V5XNYY  X=0,  1,2,  3,  A YY=NOUN 

TC  BANKCALL 

CADR  GOMARK  2R 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RETURN 

AO  300 

IMMEDIATE  RETURN  TO  THE  USER 

R03Q1 

1 0303 
RD3D5 

GCMARK3  IS  USED  FOR  A PLEASE  FERFORM  ON  A MARK  REQUEST  WI  TH  A 3 COMP.  DEC  DISPLAY.  THE  DESIRED  MARK  PLEASE 
PERFORM  VERB  AND  NOUN  ARF  ENTEPEC  IN  A.  G0MARK3  DISPLAYS  Rl,  R 2,  R3  BY  MEANS  OF  A VC6NYY  FOLLOWFO  BY  A FLASHING 
V5XNYY  FOR  A PLEASE  PERFORM.  G0MARK3  HAS  3 ASTRONAUT  RETURNS  TC  THE  USER  WITH  NO  IMMEDIATE  FETURN. 

A : 30  7 
AO  308 
A03  C 9 

A 0310 
AD  3 1 1 

A 0312 

CAF  V5XNYY  X=  1 , 2,3,4  YY  = NOUN 

TC  BANKCALL 

CADR  G0MARK3 

TERMINATE  RETURN 

PROCEED  RETURN 

...  ...  ENTER  RETURN 

R 0 3 1 3 

G0MARK4  IS  THE  SAME  AS  G0MARK3  CMY  R2  AND  R3  ARE  BLANKED  ANO  Rl  IS  DISPLAYED  IN  OCTAL. 

A 315 

A 0 3 1 6 
A9317 
A031  8 

A 0 31  9 

CAF  V5XNYY  X=1  ,2  ,3  ,4  Y Y = NCU  N 

TC  BANKCALL 

CADR  G0MARK4 

...  ...  TERMINATE  RETURN 

PROCEED  RETURN 

AQ320 

< '321 
R 3 3?  3 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
DISPLAY  INTERFACE  ROUTINES 

EXDSPRET  IS  USED  TC  DISPLAY  A VERR  NOUN  ARRIVING  IN  A 
SENT  OUT, 


9:  1 2 OCT.  2 1 » 1970  SKIPPER 
US  EP  'S  PAGE  NO  . 9 

...  FNTER  RETURN 

WITH  A RETURN  MADE  TO  THE  USER  AFTER  THE  DI 


.121  PAGE  1 338 
EO  S3 

SPLAY  HAS  BEEN 


A 324 
1 '325 
A1326 


A 0327 


3 '32* 
ro53o 


GAF  VXXNYY 

TC  RANKCALL 

CADR  EXDSPRET 


RETURN  TO  USER 

KLEENEX  CLEANS  OUT  ALL  MARK  DISPLAYS  (ACTIVE  AND  1NACTIVE1.  A RETURN  IS  MADE  TO  THE  JSER  A FTFP  THF  MAT  K DISPIAYS 
HAVE  BEEN  CLEANED  CUT . 


TC  BANKCALL 
CADR  KLEENEX 


4 333  ...  ...  R F TUT  N TO  USER 

RO  334  MARKBRAN  IS  A SPECIAL  PURPOSE  fflCUTI  NE  USEO  FOR  SAVING  JOB  VAC  AREAS  (SEE  DESCRIPTION  OF  MARKBRAN  BELOW). 

A03T  6 TC  BANKCALL 

4 0337  CADR  MARKBRAN 


AD33B  ...  ...  BAP  RETURN  IF  MARK  DISPLAY  NOT  ACTIVE 

4 3Tg  (G0D3  RETURN  TO  IMMEDIATE  RETURN  LOC  OF 

40340  LAST  FLASHING  MARK  R ROUTINE) 


R'341  PINBRNCH  RFESTAR.  ISEES  THF  LAST  ACTIVE  FI  ASHING  DISPLAY.  |F  THF  RE  IS  NO  ACTIVE  FLASHING  DISPLAY,  THF  DSKY  IS 
R0343  BLANKETS  AND  CONTROL  IS  SENT  TC  ENDOFJOB. 


A0344  TC  POSTJUMP 

A0345  CADR  PINBRNCH 


< 1 346  PPIOOSP  IS  USED  AS  A PRIORITY  DISPLAY.  IT  WILL  DISPLAY  A GOFLASH  TYPF  DISPLAY  WITH  THREE  POSSIBLE  RETURNS  FROM 
RO 348  TEE  A STR ONAUT ( SEE  NO. 7 ABOVE). 


R0349  THE  MAIN  PURPOSE  OF  PRIOCSP  IS  Til  REPLACE  THE  PRESENT  DISPLAY  WITH  A DISPLAY  OF  HIGHER  PRIORITY  AND  TO 

? 351  PROVIDE  A MEANS  FOR  PE  STORING  THE  OLD  DISPLAY  WHEN  THE  PRIORITY  DISPLAY 

RD352  IS  RESPONDED  TO  BY  TEE  ASTRONAUT. 


THE  FORMER  DI  SPLAY 
PR  Id  D TSPLAY. 


IS  RESTCREC  BY 


AN  AUTOMATIC  BRANCH  TO  WAKE  UP  THE  DISPLAY  THAT 


WA  S I NTERR  UPTED  BY  THE 


40356 
4 0357 
A335R 
40359 
AO  360 


CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NCUN 

TC  RANKCALL 

CADR  PRIODSP 

...  ...  TERMINATE  RETURN 

PROCEED  RETURN 
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A 0361 

ENTER  OR  RECYCLE  RETURN 

Ri  362 

PRIOOSPR  IS  THE  SAME  AS  PRIODSPCNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CAOR  +4. 

A 036* 

A n 365 

AD  366 
A0367 
A036B 

AD  369 

CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  RANKCALL 

CADR  PRICDSPR 

TERMINATE  RETURN 

PROCEED  RETURN 

•••  •••  ENTER  OR  RECYCLE  RETURN 

A 0370 

...  ,vr  IMMEDIATE  RETURN 

R0371 

R0372 

1 0374 

PR  IOL  ARM  DOES  A V05N09  PRICDSPR. 

CLFANCSP  CLEANS  OUT  ALL  NORMAL  DISPLAYS  (ACTIVE  AND  INACTIVE).  A RETURN  IS  MADE  TO  THE  USER  AFTER  NORMAL 
DISPLAYS  ARE  CLEANED  CUT. 

AD375 

A 03  76 

TC  BANKCALL 

CADR  CLEANOSP 

A 0 37  7 

RETURN  TO  USER 

GAP:  ASSEM8LF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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3 0380  AIAPM  OR  ABORT  EXIT  MCOES — 


PR  I OB  OR  T TC  ABORT 

OCT  1502 


J > 3B 3 PRIOBORT  IS  BRANCED  TO  WHFN  (1)  A NORMAL  DISPLAY  IS  REQJESTEC  AND  ANOTHER  NORMAL  DISPLAY  IS  ALREADY  ACTIVE 
P j 3 8 5 (REFLASE  AND  RECOCSP  ARE  EXCEPTIONS)  OR  (2)  A PRIORITY  DISPLAY  IS  REOUESTED  WHEN  ANCIHER  PRIORITY  DISPLAY  IS 
P’387  ALREADY  ACTIVE  (A  PRIORITY  WITF  LINUS  B IT  1 A IS  AN  EXCEPTION). 


R03A8  ERASABLE  IN  I TIAL  I7ATI  ON  RE  GUI  REO  — 


Rf  380 
3 0 391 
R3393 


ACCCVPL  ISHFO  PY  ERFSF  START-  1. 

2 . 


FLAGWPD4  (USFD  EXCLUSIVELY  RY  01  SPLAY  INTERFACE  ROUTINES) 

NVSAVE  = NORMAL  VERB  AND  NOUN  PFGISTEP. 

EBANKTEM  = NORMAL  INACTIVE  EL  AGWORD  ( ALSO  CONTAINS  NORMALS  EBANK  ) . 


R 0395  5.  R1SAVE  = MARKRRAN  CONTROL  WORD 

R 0 396  A.  RESTREG  = PRIORITY  30  AND  SUPERBANK  3. 

R 0-3  9R  OUTPUT  — 


3 0399  NVWORD  = PRI  C VERB  AND  NCUN 

R 040 ' NVWORD  + 1 ( MAR  KNV ) = MARK  VERB  AND  NOUN 

RCAf  l NVWORD  +2  (NVSAVE)  = NORMAL  VERB  AND  NOUN 

30402  nSPFlG(EBANKSAV)  = PPIC  FIAGWCRO  (INCLUDING  FRANK) 

R D A > 3 DSPFLG  + l (M  ARK  EB’AN  ) = MARK  FLAGWORD  (INCLUDING  EBANK) 

ROAOA  DSPFLG  +2  (EBANKTEM)  = NCPMAL  FLAGWORD  (INCLUOIG  EBANK) 


RCA  5 
R0AO6 

< 7 


CADRFL  SH  = OR  10  L SF  R S 
CACRFLSF  + 1 ( MAP  K ELS  H ) 
CADRFL  SH  +2(TFMPFISH) 


CALL  CADR  +1  LCCATICN 
= MARK  USERS  CALL  CADR  +1  LOCATION 
= NCPMAL  USERS  CALI  CADR  +1  LOCATION 


RDA08  PRIOTIME  = TIME  EACH  PR  10  REQUEST  FIRST  SENT  OUT 

RCA09  0PTICN1  = DESIREC  OPTION  FROM  GOPERFA 

3 DAI"  FLAGWPOA  = BIT  INFO  FOR  CCNTPCL  OF  ALL  OISPLAY  ROUTINES 

R 3 A 1 1 DSPTEMl  = R1  INFO  FDR  ASTRONAUT  FROM  PERFORM  DI  SPL  A Y S ( NOR  M AL  ) 

R 041 2 SUBROUTINES  USED — NVSUH,  FLAGUP,  FLAGDOWN,  ENCOFJOR,  BLANKSUB,  ABORT,  JOBWAKE,  JOBSLFEP,  F I ND  V AC, , PRIOC.HNG, 

R 0 4 1 A JAMTERM,  NVSUBLSY,  FLASHON,  ENOIDLE,  CHANG1  , BANK  JUMP  , MAKECADR,  NOVAC, 

ROA 1 5 DEBRIS — (ST  CR  ED  INTO) 


> 416  TEMPORARY  TEMPORARIES-  A,  C,  L»  MPAC  +2,  MPAC  +3,  MPAC  + 4,  MPAC  +5,  MPAC.  +6,  P U°  TREG  2 , RUPTREG3,  ( YL  , 

R D A 1 R EBANK,  RUPTREGA,  LOC,  BANK  SET,  MODE,  MPAC,  MPAC  +1  A,  FACEREG 

p 04  20  ERAS  AeES  ( SHAREC  AND  USFC  WITF  OTHER  PROGRAMS)  CADRSTOR,  DSPLIST,  LOC,  D SP  TE  Ml  , 0PTI0N1 


R 'j  42?  ERASABLE  S(  USED  ONLY  BY  DISPLAY  ROUTINES)-  NVW  ORO,  +1 , +2  , DSP  FLG, +1  , +2  , CADRFL  SH,  + 1 ,+ 2,  PRIOTIME,  FLAGWRD4, 


PAGE  1341 
EO  S3 

R 0424  R1SAVE,  MARK2PAC, 
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R ‘425  DERR  IS — (USED  RUT  NUT  STORED  INTO!-  NOUNREG,  VER8REG  * LOCCTR,  MCNSAVE1 
R0426  F LAG  W CRD  DES  CRI  PT  I CNS  — 

^ ''427  FLAGWRD4-  SEF  DESCRIPTION  LNCER  LCG  SECTION  ERASABLE  ASSIGNMENTS 


R 0*30 
R04  5 1 
? 0432 
R0433 
R0434 
1 0435 
R3  436 
R 04  37 
R0438 
RD43P 
1 0440 
R0441 
R f 4 4 2 
1 044  3 

R?  444 
RC  445 


DSPFLG,  CS  P FL  G ■»  1 , 0 SD  FL  G ♦ 2- 

RITS  l BLANK  R1 

2 BLANK  R2 

3 BLANK  R3 

4 FLASHING  3 1 SPLAY  REQUESTED 

5 PERFORM  DISPLAY  REQUESTED 

6 EXDSFRET 

7 PRIO  DISPLAY  

B DEC  MARK  PERFORM 

EBANK 
EBANK 


10 

11  EBANK 

12 


13  2nd  PART  OF  PERFORM 

15  RFTLASH  OP  REnC  

15 MARK  REQUEST 

RFSTARTING  DISPLAYS — 


V99PASTE 

REFLASH  OR  REDO 


R 0446  RULES  FOR  THE  D SK  Y OPERATOR — 


R3  451 
R0453 
1 ? 454 
R3456 
R045B 
RC46G 
R0462 
3 0464 
R0465 
R0466 
? 0468 
R3473 

R 4 7 4 
R0475 
J 476 
R-'478 


1.  PROCEEO  AND  TERMINATE  SERVE  AS  RESPONSES  TO  REQUESTS  FOR  OPERATOR  RESPONSE  (FLASHING  V/N).  AS  LONG 
AS  THE  RE  IS  ANY  REQUEST  AWAITING  OPERATOR  RESPONSE,  ANY  USE  OF  oR0C  FE  D OR  TERMINATE  WILI  SERVE  AS 
RESPONSES  TO  THAT  REQUEST.  CARE  SHOULD  BE  EXERCISED  IN  ATT  F M PT  I N'G  TO  KILL  AN  OPERATOR  INITIATED  MONITOR 
WITH  PROCEED  AND  TERMINATE  FOR  THIS  REASON. 

2.  THE  ASTRONAUT  ML  ST  RESPCND  TO  A PRIORITY  DISPLAY  NO  SOONER  THAN  2 SECONDS  FROM  THE  TIME  THE 

PROGRAM  SENT  OUT  THE  REQUEST  FOR  OPERATOR  RF  SPONSE  ( THF  ASTRONAUT  WCULD  SEE  THIS  C IS  PL  AY  FOR  LESS  TIME 
DUE  TO  TIME  IT  TAKES  TC  GET  DISPLAY  SENT  OUT.)  IF  THE  ASTRONAUT  RESPONDS  TOO  SCON,  THE  PRIORITY  DISPLAY 

IS  SENT  OUT  AGAIN  --  AND  AGAIN  UNTIL  AN  ACCUMULATED  2 SECS  FROM  THE  TIME  THF  FIRST  PRIORITY  DISPLAY 

OUT.  THE  SAME  2 SEC.  CEL  AY  WILL  OCCUR  AT  163.84  SECS  OR  IN  ANY  MULTIPLE  OF  THAT  TIME  DUE  TC  PROGRAM 

CONSI  DERATI  CN. 

3.  KEY  RELEASE  BUTTCN- 

A>  IF  THE  KEY  PEL  F AS  F LIGHT  IS  DM,  IT  SIMPLY  RELEASES  THE  KEYBOARD  AND  DISPLAY  FOR  INTERNAL  USE. 

B)  IT  THF  KEY  REl^ASE  LIGHT  IS  OFF,  AND  IF  SOME  REQUFST  FOR  OPERATOR  RESPONSE  (FLASHING  V/N)  IS  STILL 
AWAITING  RESPONSE  THEN  IT  RE-ESTABLISHES  THF  DISPLAYS  THAT  ORIGINALLY  REQUEST  EC  RESPONSE. 

IF  AN  OPERATOR  WANTS  THEREFORE  TO  RE-ESTABLISH  BUT  CONDITION  (A)  IS  ENCOUNTERED,  A SECCND  OEPRFSSION  OF 
KEY  RELEASE  RLTTON  MAY  RF  NECESSARY. 

4.  IT  IS  IMPORTANT  TO  ANSWER  ALL  REQUESTS  FOR  OPFRATUR  RFSPONSF. 

5.  IT  IS  ALWAYS  GOOD  PRACTICE  TO  TERMINATE  AN  CXIENDEO  VERB  BEFORE  ASKING  FOR  ANOTHER  ONE  OR  THE  SAME  ONE 

OVER  AGAIN. 


R 0479  SPECIAL  CCNSIDERAT  ICNS  — 
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roar:) 

R 0*81 
RC  483 
R048A 
l 04B6 
RDAR9 
R 0*  89 
*0401 
R049  1 l 


].  MP  AC  +2  SAVED  ONLY  IN  MARK  DISPLAYS 

2.  GCDSP(R)  , R EGOCS  P ( R ):,  GCK  ARK  ( R I ALWAYS  TURN  ON  THE  FLASH  IF  ENTERED  WITH  A PASTE  VERR  REQUEST. 

3.  ALL  NORMA  I OISPIAYS  ARE  RF  ST  ART  ABLE  EXCEPT  GODS P ( R ) , REGCCS  P ( R ) 

A.  ALL  FXTENDEC  V FP«S  WITH  DISPLAYS  SHOULD  START  WITH  A TC  TFSTXACT  AND  FINISH  WITH  A TC  ENDEXT  . 

5.  GODSPIR)  AND  RFGQDS  P(P)  '“UST  RE  IN  THE  SAME  FRANK  AND  SU  PER?  ANK  AS  THE  LAST  NORMAL  DISPLAY  RESTARTED 
BY  A . 1 RESTART  PHASE  CHANGE. 

6.  IN  ORDER  T ( SET  UP  A NON  CISPLAY  .1  RESTART  POINT,  THE  USER  MUST  MAKE  CERTAIN  THAT  PESTREG  CONTAINS  THE 
CORRECT  PRIORITY  AND  SUPFKBANK  AND  THAT  ERANKT  EM  CONTAINS  THE  CD 

7.  IF  CL  E AN  DSP  IS  RESTARTED  VIA  A .1  PHASE  CHANGE,  C AF  ZERO  SHOULD  BE  EXECUTED  BEFORE  THE  TC  BANK  CAL  L . 
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P 04 92  CALLING  SEQUENCE  FCP  BLANKING 
A 0493 
A3494 
A 0495 


CAF  RITX  X=  1 , 2,  3 BLANK  R1,R2,R3  RESPECTIVELY 

TC  BLANKET 

RFTLRN  TO  USER  HERE 


R0494  IN  ORDER  TO  USE  3 LAN  KE  T CORRECTLY  THE  USER  MUST  USE  A DISPLAY  ROUTINE  THAT  ENDS  IN  R FIRST  FOLLOWED  BY  THE  CALL 
R0498  TC  BLANKET  AT  THE  IMMEDIATE  RETURN  LOC. 


0499 

3539  REF 
0501 


5475 

40C0 

5475 


BLOCK  02 
SETLOC  EFTAG4 
BANK 


0 50  2 
3533 

0504 
0 59  5 

0505 
0507 


REF 

REF 

REF 

REF 

REF 

REF 


I 

B37 

1 

338 

839 

2 


LAST  1327 

LAST  1343 
LAST  134  3 
LAST  134  3 


5475  54  162  0 

5476  4 0160  1 

5477  7 016?  0 

5500  50  16  1 1 

55CI  26  160  1 


BLANKE 


CCU  NT*  $ $/  DS  PL  A 
TS  MPAC  +6 

CS  P L AY  TEM  4 

MASK  MPAC  +6 
INDEX  MPAC  +5 
ADS  PLAYTEM4 


3538  REF  356  LAST  1329 


55C2  C C C C 2 0 


TC 


0 


0511  REF  60  LAST  1320 

0512  REF  1 


55C3  0 4635  0 

5504  20326  I 


ENCMARK  TC 

CADR 


POSTJUMP 
MARK  END 


05121  REF  260  LAST  1328 

05122  PEE  16  LAST  712 


5505  3 47  55  1 CLEARMRK  CAF  ZERO 

5506  55*043  0 TS  FXTVBACT 


35123 

05124  REF  1 

05125  REF  5 LAST  483 

35126  REF  6 l AST  1343 


55C7  C 0CC4  0 
5 5 1C'  4 4753  0 

5511  7 0100  1 

5512  54  ICO  1 


I NH I NT 

CS  XDSP8IT 

MASK  FLAGWRD4 
TS  F LAG WRD4 


05127 

"5128  REF  357  LAST  1343 
R051 3 ***ALL  EXTENDED  VERB 
* 051 5 FINISHED. 


5513  0 0003  1 

5514  0 0002  0 
ROUTINES  THAT  IIAVF  AT  LEAST 


R EL  IN  T 
TC  0 

ONE  FLASHING  DISPLAY  MUST 


ENDMARK  OR  TCP  ENDEXT  WHEN 


3516 

0517  REF 
0 5 l R 


10, 2226 
1 0 » 2 G ( 0 
10,2326 


BANK  10 
SETLOC  D I SPLA  YS 
BANK 


0519  ref  l COUNT*  5f/DSPLA 

^ 0 52c  NTFPCNLY  IS  USED  TO  DIFFERENTIATE  THE  MARK  ROUTINE  WITH  ONLY  ONF  RETURN  TO  THE  USER  FROM  THE  MARKING  ROUTINE  WIT 

R0522  3 RETURNS  TO  THE  USER.  THIS  RCLTINE  IS  ONLY  USEO  BY  G0MARK1  AND  GCMARK1R. 


05291  REF  2 LAST  232  10,2326 
052^7  REE  1 10,2327 


5 50  5 1 MARK  END  TC 
3403  1 TCP 


: leapmpk 

MARKOV  EP. 


0530  REF 


10,2330  54  155 


GOMARK  TS 


PLAYTEMl 


ENTRANCE  FOR  MARK  GODS P 
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INTERFACE  ROUTINES 
LAST  1 3C6  10,233 


D53=» 

054i' 

'541 


PFF 
PFT 
R FF 


LAST  1344 
LAST  1344 
LAST  1344 


10,  2 3 37 
10  ,?34J 
1C  , 234  1 


GOMARK 2 TS 
MARKFORM  CAF 
TCF 


RFF 
R FF 
RFF 


LAST  1344 
LAST  1344 


1 ,2342 

10.2343 

10. 2344 


54  1 55  1 
3 3467  1 
1 2 5C  1 0 


GOMARK 3 TS 
CAr 
TCF 


0545 

r 546 
0547 


PFF 

REF 

REF 


LAST  1344 
LAST  1344 


10  ,2345 
10,2346 
10,  2347 


54  155  l 
2 3470  1 
1 250  1 0 


GOMARK 4 TS 
CAF 
TCF 


0548  PFF 


LAST  1344 
LAST  134  4 


10  ,235^  54  155  1 GOMARK  R TS 


r *>5  1 RFF 


LAST  1344 
LAST  1344 


10,2353  54  155  1 GGMARKFR  TS 


3559  REF 
0560  REF 
3 561  REF 


LAST  1344 
LAST  1344 
LAST  1344 


10,  2 356 

. 

14,2360 


54  155  1 
3 3502  0 
1 2640  0 


G0MARK2R  TS 
CAF 

TCF 


^ 56 1 ( 5 PFF 

05611  RFF 

05612  RFF 

05613  REF 


LAST  958 
LAST  1344 
LAST  1344 
LAST  1344 


10,  23ft  1 
10  ,2362 
10,2363 
, 


6 5C23  0 
54  155  1 
3 3467  1 
1 2640  0 


GOMARK  3R  TS 
CAF 
TCF 


MAKCMARK  CAF 


0564  REF  7 

0565  REF  1 
2566  REF  421 
0567  REF  1 


LAST  1343 
LAST  1329 


10,2367 

. 

1C,  237  1 
10  ,2372 


3 0 100  0 
7 3503  0 
1C  OCO  0 
1 2430  0 


MASK 

CCS 

TCF 


LAST  1344 


o:12  OCT.  21,1973  SKIPPER 


121  PAGE  134- 


USER'S  PAGE  NC.  15  ED  S3 

B IT  1 5 

GOFLA  SH2 

BIT  15  SET  FOR  ALL  MARK  REQUESTS 

ZERO 

PLAYTFMl 

CLEAN  OUT  EXTENDED  VERBS 

ENTRANCE  FOR  MARK  G0FLASH 

MARKFMSK 

GO  FLASH? 

MARK, FLA  SH 

PLAYTFMl 

VP  EP  FMSK 
G0FLASH2 

MARK  GOPERFS-3  AST.  RETURNS 

MARK,  PERFORM,  FI  ASH 

PLAYTFMl 

MARK3MSK 

GOF  LASH2 

USED  FOR  3 COMP  DECIMAL  PERFORM 

PL  AYTEM 1 
MARK4  MS  K 
GOFLA  SH2 

MARK,  PERFORM,  FL  ASH,  BLANK 

PLAYTEM1 

BI  T 1 5 

GO  DSP R 2 

FNTR+NC  E FOR  MARK  GOD SPR 

PLAYT  EMI 

MAR  KF  MSK 
GOOSPRS 

ENTRANCE  FOR  MARK  GO  FLASH* 

PLAYTFMl 

MPEPFMSK 

GODSPRS 

PPI013 
PLAYTEM 1 
MARK3  MS  K 

3 00  SPR  S 

ONE 

COPI  ES 

MARK  GOPERFS-3  AST.  R FT  S + IMMEDIATE  RET. 
MARK,  PERFORM,  FLASH 

FLAGWRD4 

0CT34300 

A 

CHKPR  10 

IS  NORM  OR  PRI  0 BUSY  OR  WAITING 

FLAGWRC4 
MR  KNVBI  T 


IS  MARK  SLEEPING  OUE  TO  ASTRO  BUSY 
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121 


PAGE  1345 


L DISPLAY  INTERFACE  RCUTINFS 


0 5 70 

0571  REF  1 

0572  RFF  135  LAST  1200 


18:53 


10  *2  377  1 5155  1 


9:12  OCT  . 21  ,1970  SKIPPER  . 

USER'S  PAGE  NC.  16  EO  S3 

EXTEND 

RZF  MARKPLAY  NO 

TCF  ENDOF  J OH 


0 594 
0505 
0 596 
05965 

0597 

0598 


PFF  17  LAST  1274 
REF  9 LAST  1344 
REF  121  L AST  1344 
PFF  10  LAST  1345 


l C , 2 4 C C C CCC4  0 
10,2  401  4 4756  0 

10,2402  7 0100  1 

1C.24C3  6 4753  1 

10  ,2404  54  100  1 

10,2405  C 0003  1 


MARKPLAY  I NHI  NT 


FI  VE 

FL  AGWR04 
ONE 

FL  ACWRD4 


RESET  MARK  OVER  NORM,  SET  MARK 


0599 

0600 
3691 
0602 
0603 
3634 


REF  1 
REF  45 
REF  422 
REF  1 
REF  1 
REF  2 


LAST  1325 
LAST  1344 

LAST  1345 


10,  2406 
10 ,2407 
1C,  24  10 

10.2411 

10.2412 
1C,  2413 


4 1C70  0 
7 4 747  0 
1C  COO  0 
1 2414  0 
4 0370  1 
54  370  1 


GO  GOMARK 


CS  MARKFLAG 

MASK  BIT  5 

CCS  A 

TCF  MARKCOP 

CS  MARKNV 

TS  MARKNV 


PERFORM 


06C5  REF  122  LAST  1345 

0606  REF  1 


10  ,2414  3 4753  1 

10,2415  1 2617  1 


MARKCOP  CAF 
TCF 


ONE 

PRICPLAY 


MARK  1 NDE  X 


0607  REF  1 

0 60  8 REF  B40  LAST  134  3 


10,  2416 
10  ,2  41 7 


3 0 165  0 COPYTOGO  CA  MP  AC  2 SA  V 

54  156  1 TS  MPAC  +2 


3639  REF  1 

061 0 RFF  1 

0611  RFF  1 


10.  242C  EC  164  1 

10.2421  3 3513  0 

10.2422  54  162  0 


COPYPAC  S 


I NO  EX 

CAF 

TS 


COPI  NDE  X 

PRIOOCT 

GENMASK 


2 LAST  1345 
2 LAST  104 
1 


10,  2423  50  164  1 

10  ,2424  3 1067  1 

1C, 2425  E 4 160  1 


INDEX  COPINDEX 
CAF  EBANKSAV 

TS  TFMP0R2  ACTIVE  EBANK  AND  FLAG 


0615 


RFF  85  LAST  1320 


10,  2426 


003  0 


TS 


EBANK 


RFF  358  LAST  134  3 


10,2427  C 0002  0 


TC 


0 


R)617  PINO-EK  CHECKS  T3  SEE  IF  THE  CURRENT  MARK  REQUEST  IS 
R0619  (A  NCR  MAI  CR  A PRIG)  . IF  THE  ASTRONAUT  TRIES  TO  MARK 
R 621  REQUEST  IS  ENDED.  IF  HE  TRIES  TC  MARK  DURING  A NORM, 
R0623  UNTIL  ALL  MARKING  IS  FINISHED. 


MADE  BY  THE  ASTRONAUT  WHILE  INTERRUPTING  A GO  PL  AY  DISPLAY 
DURING  A PR  10,  THE  CHECK  FAIL  LIGHT  G CE  S ON  AND  THE  MARK 
THE  MARK  IS  ALIOWED.  IN  THIS  CASF  THE  NORM  IS  PUT  TO  SLEEP 


* '\62A  IF  THE  MARK  REQUEST  CCMFS  FPCM  THE  PROGRAM  CURING  A TIME  THE  ASTRONAUT  IS  NOT  INTERRUPTING  A NORMAL  OR  A 

R3626  PP  10,  THE  MARK  Rr  QUEST  IS  PUT  TO  SLEEP  UNTIL  THE  PRESENT  ACTIVE  DISPLAY  IS  RESPONDED  TO  BY  THE  ASTRONAUT. 


( 629 
3533 
0631 


PFF  II  LAST  1345  1C  ,2430  3 OICO  0 CHKPRIO  CA  FLAGWRD4 

PFF  1 10  ,2431  7 3255  1 MASK  OCT24100 

REF  423  LAST  1345  10,  2432  10  OCO  0 CC  S A 

10  ,2433  1 3436  1 TCP  MARSLEEP 


MARK  ATTE  MPT  DURI  NG  PR  I C 


JAP: 


ASSEMBLE  REVISION  36  OF  AGC  PROGR 


Z ERL  IN  A BY  ZOROASTER 
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DISPLAY  INTERFACE  ROUTINES 


0632 

0633 
3634 
06?5 


0637 

0638 

0639 


REF  13 
REF  1 


RFF 
PC  F 
P EF 


LAST  1348 
LAST  1346 


3 LAST  1345 


10,  29  34 

, 

10,  2436 
10,2  93  7 

10,2440 

10,  244  1 
10  ,2442 
10,2443 


4 C1C0  1 
7 4751  1 
C CCC4  C 
26  ICO  1 

1 2535  1 

370  c 

7 4144  C 
1 3121  1 


MASK 
I NHI NT 
ADS 


VARKPFRF  CA 

MASK 

TCF 


F LAGWRD4 

S ETNORM 

MARKNV 

VERRMASK 

NV50DSP 


REF  10  LAST  1344 


1 n, 


15  5 1 GODSP 


RFF  11 

REF  56 


10  ,2447  54  155  1 GODSPRET  TS 


RFF  12  LAST  1346  10  ,2452  54  155  1 GOCSPR  TS 


LAST  1346 


10 , 2455  3 4755  1 

V.,  2456  1 2642  1 


JSEP  *S  PA GF  NO.  17  EO  S3 

SET  MARK  OVER  NORM 


ENTRANCE  FOR  A GODSP  WITH  A PASTE 

SET  B IT  6 TO  GO  BACK  TO  USER  AFTER  NVSUB 


* DONT  MOVE 


?'i65)  CLEANDSP  IS  USE 0 FOP  CLEARING  OUT  A NORMAL  DISPLAY  THAT  IS  PRESENTl  Y ACTIVE  OR  A NORMAL  DISPLAY  THAT  IS 

RD653  SET  UP  TO  BE  STARTED  OR  RESTARTED. 


R 065  4 NORMALIY  THE  USER  WILL  NOT  NEED  TO  USE  THIS  ROUTINE  SINCE  A NEW  NORMAL  DISPLAY  AUTOMATICALLY  CLEARS  OUT  AN 

> '656  OLO  01  SPL  A Y. 


R7657 


CALL  ING  S EQUENCF  FOR  CLEANOSP- 


TC  BANKCALL 

CAUR  CLEANDSP 


0680  REF  265  LAST  1346 
0661  RFF  13  LAST  1346 


10,2457  3 4755  1 CLEANDSP  CAF 
10,2460  64  155  1 RFFLASH  TS 


ZERO 
PL  AYT  EMI 


3662 

0663 


LAST  1346 


10,  246  1 
10  ,2462 


3 3466  0 
1 250  1 0 


CAF  REDOMASK  FLASH  AND  PERMIT 

TCF  G0FLASH2 


> 664  REF  14 


LAST  1346 


10,2463 


155  1 REFLASHR  TS 


PL  AYT  EMI 


0665  RFF  2 LAST  1346 

0666  REF  4 LAST  1344 


10,  2464  2 34  66  0 

10,2465  1 2640  0 


CAF  REDOMASK  FLASH  AND  PERMIT 

TCF  GODSPRS 


A?  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0 ISPLAY 
REF  15 


INTERFACE  ROUTINES 
LAST  1346  10,2466 


54  155  1 REGOOSP  TS 


REF  16 

REF  80 
REF  2 


LAST  1347  10,2471  54  155  1 REGOOSPR  TS 


067?  1 
16722 
0 672  3 


LAST  1347 
LAST  1347 


54  155  1 
3 3525  0 
1 250  1 C 


CLCCPLAY  TS 


PL  AYT  EMI 
CLOC  KC  ON 
G0FLASH2 


REF  18  LAST  1347 


GOF  LA  SH 

GCFLASH? 


: 676 
0677 
3579 
0579 


REF  1 
REF  19 


10,  2502 
1 ,25 1 3 
1C,  2504 
10,2505 


0 2723  0 

0 0003  1 

1 2547  1 
54  155  1 


REL  INT 
TCF 


PR  IOOSPR  TS 


MAKEPLAY 
PLA  YTEM 1 


LAST  1346 
LAST  1347 


10  ,2510  54  155  1 


PRIOOSP 
SE  TPRI  0 


. 

10,  25  14 


MAKFPRIO  CAF 


r.68  7 
0588 
06  89 
0690 
369  1 
069? 

0693 
06  94 
0695 
3696 


REF  1 
REF  1 
RFF  1 4 
REF  1 
REF  424 
RFF  1 


LAST  1346 
LAST  1345 

l A ST  1347 


10  ,2515 
1C,  2516 

. 

1 1,2520 
10,  2521 
10  ,2522 

10,2523 
1C  , 2^26 
l ,2525 
10, 2526 


0 3356  1 

1 >523  C 
3 0100  0 
7 3524  0 
1C  000  0 

1 2576  0 

2 0100  0 
7 5643  1 
0 0006  1 
l 2531  0 


MASK 
CC  S 
TCF 


L INUSCHR 
HI PRI 0 
F LAGWRD4 
OCT  20  100 
A 

PR  IOBORT 


MA  SK 
EXT  END 
BZF 
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USER'S  PAGE  NO.  18 


EO  S3 


LEAVE  ONLY  FLASH  BI  T SET 


BRANCH  DIRECT  WITH  NO  SEPARATE  JOB  CALL 


LINUS  RETURN 

IS  PRIO  IN  ENDIOLE  OR  BUSY 
YES,  ABORT 
MARK  ACT  IV  E 

NO 


ASSEMBLE  P E V I SION  56  UF  AGC  PROGRAM  Z6KLINA  RY  ZCRC  ASTER 


L DISPLAY  INTFPFACE  ROUTINES 


( 697 

REF 

267 

LAST 

1 3A7 

10,2527 

3 

4755 

1 

SFTMARK 

CAF 

ZERO 

D69R 

REF 

1 

10,  2530 

1 

2775 

1 

TCP 

JOBXCHS 

0699 

REF 

16 

LAST 

1347 

10  ,2531 

3 

0100 

0 

AS  K I FN  RM 

CA 

FL  AGWRD4 

07PO 

P FF 

1 

1 0,2532 

7 

3522 

0 

MASK 

OCT10200 

0701 

10,  25  3 3 

0 

0006 

1 

E X TEND 

0702 

REF 

1 

10  ,’534 

1 

2537 

0 

ftZF 

OKTflCOPY 

D7D3 

REF 

123 

LAST 

134  5 

10,  25  3 5 

0704 

PFF 

2 

LAST 

1 3aa 

K-,2536 

1 

2775 

1 

TCF 

J 3 8 XC  H S 

0705 

REF 

1 

1 r ,2  53  7 

0 

2735 

1 

CKTCCOPY 

TC 

COPY  NORM 

D7D6 

REF 

l 

10, 2540 

c 

3^06 

0 

TC 

WI  TCHONE 

0707 

REF 

9 

LAST 

131  7 

LO  ,?541 

0 

5137 

1 

TC 

JOflWAKE 

070ft 

R FF 

1 

10,2542 

c 

??2  3 

1 

TC 

XCHTCEND 

0709 

REF 

2a 

LAST 

129  3 

10,  2543 

3 

00  2 5 

0 

RFDOPR  10 

CA 

TI  ME  1 

71 

REF 

1 

10,2544 

55*164 

1 

TS 

PR  IOT IME 

D 7 1 1 

R FF 

26ft 

L AST 

13A8 

lO,  2545 

3 

47  55 

1 

KEEPPRI 0 

CAF 

ZERO 

0712 

PFF 

2 

LAST 

1345 

10 ,2546 

I 

26  17 

l 

TCF 

PR  IPP LAY 

07  13 

REF 

35 

LA  ST 

1320 

10,2547 

2 

0167 

1 

MAKE  PL  AY 

CA 

PR  ICR  ITY 

0 7 1 3 1 

REF 

LAST 

132c 

10, 2550 

7 

77  37 

1 

MA  SK 

PR  I 0 37 

07132 

REF 

1 

10  ,2551 

5A  1 63 

1 

TS 

JS  ERPR 10 

.'7133 

REF 

1 

10,  2 5 5 2 

, 

7733 

1 

CAF 

PRI 033 

971  3 A 

RFF 

21 

L AST 

fl4  1 

10,2553 

0 

5 146 

1 

TC 

PRIOCHNG 

r 71  35 

REF 

5 

LA  ST 

134  7 

10,2554 

3 

0160 

0 

CA 

PL  AYT  EM4 

3 71  A 

RFF 

1 

10, 2555 

7 

3504 

1 

MA  SK 

J I TCI  5+  7 

0715 

RFF 

A25 

LA  ST 

1347 

1C  ,2556 

10  000 

0 

CCS 

A 

0716 

REF 

1 

IC,  2557 

1 

2513 

c 

TCF 

MAKE PPI C 

'717 

RFF 

1 

In,  2560 

1 

2 5 62 

0 

TCF 

IFLEGAL 

071ft 

REF 

1 

10,2561 

1 

2365 

1 

TCF 

MAK  EMARK 

D 7 1 9 

RFF 

83 

L AST 

1318 

lO,  2562 

3 

47  5 2 

0 

IF  LEGAL 

CAF 

TWO 

0720 

RFF 

LAST 

1347 

10  ,2563 

54 

y 164 

0 

TS 

COP  INDEX 

0721 

RFF 

2 

LA  ST 

1347 

10,2564 

C 

3356 

1 

TC 

LINUSCHR 

0722 

REF 

1 

In, 2565 

1 

2600 

1 

TCF 

DK  TOP  LAY 

0723 

REF 

3 

LAST 

237 

10,2566 

4 

1071 

1 

CS 

EBANKT EM 

' 72 A 

RFF 

A9 

L AST 

1347 

10,  2567 

7 

47  50 

0 

MASK 

B 1 T 4 

0725 

RFF  • 

42  6 

LAST 

134ft 

10,2570 

10 

000 

0 

CCS 

A 

0726 

REF 

2 

LAST 

1 34  ft 

1 0,2571 

1 

2600 

1 

TCF 

OKTOPL  AY 

D 72  7 

REF 

17 

L AST 

1348 

10,  2572 

3 

0100 

0 

CA 

F LAG  WRD4 
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USER' S PAGE  NO.  19 


ED  S3 


NORMAL  ACTIVE 
BITS  13+B 

NO 


SAVE  TIME  PRIODSP  SENT  OUT 

START  UP  PR  10  DISPLAY 

S AV  E US  ERS  PR IOR  IT  Y 

RAISE  PRIORITY  FOR  FAST  JOBS  AFTER  WAKE 

IS  IT  MARK  OR  PRIO  OR  NORM 

ITS  PRIO 
ITS  MARK 


LINUS  RETURN 

NO 


WAS  NORM  ASLEEP 


GAP:  ASSEMBLE  REVISION  *56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


-728 
072  q 
0730 


07-12 

0733 

D733  1 

07332 

07333 
0733A 

0737 

3738 

0739 
0 7 AO 


01  SPLAY  INTERFACE  ROUTINES 
REF 
REF 


RCF 

RFF 

REF 


LAST  13A8 
LAST  46  3 


PFF  *27  LAST  1 3A8 
RFF  1 


10,2575  1 2600  1 


LAST  1288 
LAST  23a 


MASK 
E XTEND 
BZF 


NBUSMAS  K 
OKTOPL  AY 


PR  I OB  OR  T TC 


10,2600  0 2737  0 CKTOPLAY  TC 


1 . 
' • 


CA  007  1 
54  366  0 


10,2607  1C  000  0 
10,2610  1 2755  0 


C0PIES2 
USERPRI  0 


SUPERBNK 
PF  STRFG 


MASK 

CCS 

TCF 


RT7A3 
07  A A 
07A5 


COULD  PUT  NOP  M BUSY  CHECK  HF  RF  TO  SAVF  TIME 


LAST  1 3A8 
10  LAST  13A8 


10,  26  1 3 C 3 20  6 0 
1 0 , 261 A C 5137  1 


REF  2 LAST  13A8  10,26  15  C 3223  1 

PFF  8 A LAST  13A8 


07A9 

0750 


REF  1 

RFF  21  LAST  13A7 


10,2620  1 3071  0 

10  ,2621  5A  155  1 


EXCSPRET  TS 


GOPLA  Y 
PL  AY T EM  1 


2 LAST  938 


; 


GCPERF1  TS 


PFF  22  LAST  13A9  10  ,2626  5A  155  1 GOPFRFS  TS 


RFF  23  LAST  13AO 
RFF  1 

RFF  1A  LAST  13A9 


10,2631  5A  155  l GGPERF?  TS 


9:12  OCT.  21  ,1970  SKIPPER 
USER'S  PAGE  NG.  20 
ARE  ANY  NORMS  ASL FEP 
NO 


.121  PAGE  1349 
EO  S3 


PRIO  OR  MARK  GOING 

YES 

MARK  GOING 

IS  IT  NVSUB  BUSY,  END  IDLF  OR  NOONE 


STORE  DESIRED  CHECKLIST  VALUE 

USFP  TO  DISPLAY  CHECKLIST  VALUE  IN  Rl 

LEAVE  ONLY  FLASH,  PERFORM,  BLAN<  ING 
OESIRFD  VE3R-N0UN  TO  DISPLAY  3 1,32,33 


iSSEPBLE  REVISION  56  OE  AGC  PKCCRAM  Z ERL  I N A BY  ZOROASTER 


0764 


0 7 65 


7 766 


0 767 
76ft 


076° 


0 770 
7 771 


.7772 

7 7 7 
r.774 


DISPLAY  INTERFACE  ROUTINES 


PFF 

REF 


15  LAST  1349 


REF  24  LAST  1349 
PFF  50  LAST  1348 


P EF 
RFF 


10, 2634 
1.0,2635 
10, 2(36 


LAST  134ft 
LAST  13  13 


REF  10  LAST  1317 


PFF  36  LAST  1348  10  ,2644 

REF  5 I A ST  1348  10,2648 

REF  11  LAST  1133  lo,  2646 


O 2716  C 

] 2501  0 

54  1 5 5 1 

3 4750  1 
54  1(0  1 


3 (257  1 

0 0004  0 
54  C 7 2 C 


3 0167  l 
7 7737  1 
54  C(3  C 


G0PERF4 

GOFLA  SHR 

GCDSPRS 

GCCSPRS1 


TC 

TCE 

TS 

CAF 

TS 


CAF 


INHINT 

TS 


CA 

MASK 

TS 


PURR  S4 

G0FLASH2 

PLAYTFMl 

RIT4 
PLAYT  EM4 

THREE 


RUPTREG3 


PR  IOR  I TY 
PRI037 
NE  WPRI  n 


•<7  74  2 

7743 

7744 
1774  5 
.'7746 
7774  7 
0774  8 

i7748 

17749 


PFF 
REF 
RFF 
REF 
P EF 
REF 


REF 

REF 


'•  EF 


7 

51 

428 

1 

12 

24 

4 

2 


LAST  1350 
I AST  1350 
LAST  1349 


LAST  135  0 
LAST  1327 
LAST  767 
LAST  1347 


10  ,2647 
1C,  2(50 
10,2651 
US 2652 
10 ,265  3 
10  ,2654 
F7,  1471 
10,  2655 
1C  ,2656 
10,  2(5  7 


3 0160  0 
7 4750  0 
10  000  0 
I 2660  1 
3 00(3  1 
0 5072  1 


02547  0 
20067  1 
1 2(66  1 


CA  PLAYTEM4 

MASK  BIT4 
CCS  A 
TCF  VACDSP 
CA  NEWPRIO 

TC  NO  VAC 

E8ANK=  WHCCARES 
2C  ADR  MAKFPLAY 

TCF  BOTH  JOBS 


07  7C 
: 776 
3777 
0 778 
■ 776 
07  80 


RFF  5 3 

REF  26 
PEF  265 
P EF  1 
REF  3 


LAST  1320 

L AST  1349 
LAST  1325 

l AST  374 


. 

1C, 2662 
10  ,2663 
10,2664 
10,  266  5 


3 0006  l 
C 0006  1 
C 4 CC7  1 
54  001  1 
3 3521  1 
0 5116  1 


VACDSP 


CA  39ANK 

EXTEND 

ROR  SUPERBNK 
TS  L 

CAF  MAKEC-EN 

TC  SP  VAC 


0781  REF  2 LAST  1347 


10  ,2666  D 2723  0 RnTHJOBS-TC 


SAVFLOCS 


3 782 

0783 

0784 
3785 


RFF  841 
RFF  25 
REF  842 


LAST  1345 
LAST  1327 
LAST  1350 


: ■ 

I 0,2671 
10,  2672 


C C006  1 
3 0 156  0 
50  064  0 
■=;  156  1 


EXTEND 

DCA  M p AC  +1 
INDEX  LOCCTR 
DXCH  MP  AC  +1 


0786 
'7  87 
78R 
"780 


REF  ft 43  LAST  1350 
RFF  26  LAST  1350 
REF  E 44  LAST  1350 


10  ,2673  0 0006  1 

10, 2674  3 C160  0 

10,  267  5 50  C 64  0 

10,2  676  52  160  1 


EX  T EN  D 

DCA  MPAC  +3 
INDEX  LOCCTR 
DXCH  MPAC  +3 


3790 

0791 


REF  27 
REF  845 


LAST  1350 
LAST  1350 


1C, 2677 
10  ,2  700 


3 0064  0 
54  161  0 


CA  LOCCTR 

TS  MPAC  +5 


9:12  OCT.  21,1970  SKIPPER  .121 
JS  EP  *S  PAGE  NO  . 21 


PAGE  1350 
EO  S3 


LEAVE  ONLY  FLASH  BIT  SET 


IMMEDIATE  RETURN  IS  CALL  CAOR  +4 

MAKE  DISPLAY  ONE  HIGHER  THAN  USER 

IS  THIS  A FLASHING  R DISPLAY 

YES,  MAKE  DSP L A Y JOB  A VAC 
NO,  MAKE  OS  PL  AY  JOB  A NOV  AC 


COPY  TEMPS  INTO  PERMANENT  REGISTERS 
SAVE  NVWORD  AND  USERS  MPAC  +2 


SAVE  USERS  CADR  , FLAGS  AND  EBANK 


A P : ASSEMBLE  KFVISICN  56  OF  AGf.  PROGRAM  ZERLINA  BY  ZOROASTER 


3794 
07Q5 
0796 
3 79  7 


01  SPLAY 
REF  1 

REF  17 
REF  3 
REF  2 
RFF  25 


INTERFACE  ROUTINES 


I AST  1233 
LAST  1349 
LAST  1349 
LAST  1350 


1 . 7 

10.2704 

10.2705 

10 , 27<  a 


1 4640  0 
55  '044  1 
3 3460  0 
54  155  1 


REL  INT 
TCF 


GOP ER  F IP  TS 


GOPFRFRS  TS 


SA  VELOCR 

BANK JUMP 
NORMTEM 1 
V01N25 
PLA  YTE  Ml 


REF  26  LAST  1351  10,2711  54  155  1 G0PF.RF2R  TS 


0806 

3807 

0803 


08  15 
3 816 
0817 
0 818 


REF 

REF 

REF 


LAST  1350 
LAST  1351 
LAST  967 

LAST  1351 

LAST  1345 


REF  1 
REF  8 
REF  86 
REF  9 


10  ,2714 

1C, 2715 

10,2716 

10,271  7 
10,  27  20 


0 2716  0 

1 264C  0 
5 5 ' 143  1 


G0PERF4P  TC 


CAF 


PURR  S 4 
GOOSPRS 
OPTION  1 


LAST  1350 
LAST  1345 
LAST  1351 

LAST  1351 

LAST  1319 


TC 

10,2723  0 0004  0 SAVELOCS  INHINT 

CS 

MASK 


l i,2  724 
’ ,2725 
10  ,2  726 
10,2727 


4 34  74  1 
7 0 160  1 
6 0003  1 
54  160  l 


OCT 3 400 
PLA  YTE  M4 
EBANK 
P L AY  T F M4 


002  0 SA  VELOCR  LXCH 


0824 
C 82  5 
1326 
0827 


RFF  10  LAST  1351 


10,  2735 
l ,2736 
10, 2737 
10,2740 


3 4755  1 
54  164  0 
0 C0C4  0 
3 0160  0 


COP  YNURM 
CCPIES 
COPIE  S2 


CAF 

TS 

I NHI  NT 


PL  AYTFM4 
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USER  'S  D A GE  NO.  22  E 0 S3 

CALL  CAOR  +4 

OESIRED  CHECKLIST  VALUE 

DISPLAYS  CHECKLIST  VALUE  IN  R1 

LEAVE  ONLY  FLASH,  PFRFORM , BLANKING 

DESIRED  VERB-NOUN  TO  DISPLAY  R1,R2,R3 


DESIRED  OPTION  CODE 


FLASH, PERFORM  AND  BLANK  R3 


FBANK  BITS 


NOT  USED  FOR  NCN  R ROUTINES 


FLAG  WORD 


GAP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERL  IN  A BY  ZOROASTER 


L DISPLAY  INTEPFACE  ROUTINES 


3828  REF  7 LAST  1351 
f 829  REF  3 LAST  13*5 


1C,  2 7*1  5C  1fc4  1 
10  ,2 742  5 5 '067  0 


INDEX  GOPINDEX 
TS  ERANKSAV 


0830  REF  l 

0831 

0832  PFF  1 


10, 2'/ *3 
1(  ,2744 
10  ,2745 


7 3512  0 
C 0006  1 
1 2 751  1 


MASK  fACRMASK 
E XTfcND 

BZF  SK  IPADO 


0835 


REF 
PE  F 
PFF 


2 

8 


1351 

1 


LAST  201 


10. 2746  3 0157  1 

10.2747  50  164  l 

10,2750  54  37?  0 


C A P L AY  T F M3 

INDEX  COPINDE  X 
TS  CADRFLSF 


0836  PEF  2p 

0 837  RFF  9 

0838  REF  2 


LAST  135  1 
LAST  1352 
LAST  731 


In,  275  1 

10  ,2752 
10  » ? 7 c 3 


3 0155  0 
50  164  1 
54  367  1 


SKIPADD  CA  PLAYTEMl 

INDEX  COP  INDEX 
TS  NVWORD 


0842  REF 


1^,  27  54  1 3 2 32  C 


TCF  RELINTQ 


0843 
3844 
0845 
0 846 

0847 

0848 
3949 
0850 


RFF  2 
RFF  1 
REF  1 

PFF  124 
PFF  11 
PEF  1 


LAST  1346 
LAST  1352 


10.2755 

10. 2756 
10  ,2757 
10,2760 
l , 76 1 
10,2762 
10,  *763 
10,2  764 


7 2761 
0 3526 
03004 
4 4753 
6 C 1 64 
54  154 


1 GCSLEEPS  INDEX 

0 CA 

1 MASK 

C TC 

0 WAITMASK  DC  T 

0 CS 

1 AD 

0 TS 


COPINDEX 
PRI OCCT 
WA  I TMA  SK 
UPENT2 
3004 
ONE 

CDPI  NDEX 
FACERFG 


0851  REF  ? LAST  1352 

3952  REF  1 

C 853 

'854  REF  11  LAST  1349 


1 9 , ? 765  50  154  1 XCHSLEEP  INDEX  FACEREG 
1C, 2766  3 3472  0 CAF  WAKECAOP 


10  ,2  767  0 0004  0 


IN  HINT 


1 i- , ?770  0 5137 


TC  jnewAKE 


0855 


REF  3 LAST  1349 


10,  2771  0 3223 


XCHTOFND 


■'858  RFF 
3859  REF 
0860  RFF 


3 LAST  L352 
? LAST  1 3C2 
7 LAST  1319 


10.2772  50  154  1 

10. 2773  2 3472  0 

10.2774  1 5133  1 


INDEX  FACEREG 
CAF  WAKFC  ADR 

TCF  JOB  SLEEP 


0 861 
3 862 
0863 
0964 

0865 

0866 


RFF 

RFF 

REF 

REF 

RFF 

REF 


LA  ST 
L AST 
LAST 
LAST 
LAST 
LAST 


1352 

1349 
1352 
1352 

1350 
1352 


10.2775 

10. 2776 
10  ,2777 
1C, 30C0 
10,  300  1 
10,3002 


0 5137  l 
3 C 1 54  1 
c0  C 64  0 
54  154  0 


JGBXCHS 


TS  FACEREG 

TC  WITCH  ONE 

TC  JDBWAKE 

CA  FACEREG 

INDEX  LOCCTR 
TS  FACEREG 


3867  RFF  1 
0868  PEF  1 


10,  30C3  3 3016  0 

in  ,3004  0 3224  0 


CAF  XCHQADD 

TC  XC  HN YL DC 


0869  RFF 

0870  REF 

0871  REF 


J LAST  135  2 


IC,30C5  ‘C  154  1 
10,  3006  - 3 514  1 

10,3007  7 3516  1 


INDEX 

CA 

MASK 


FACEREG 
MAR  KOC T 
IDLESLEP 
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USER  ‘S  PAGE  NO.  23  E 0 S3 

EOUIV  TO  DSPFLG 
FLASH  ANO  GODS  PR  ET 

VFRB  NOUN 


FIND  CADR  IN  JOB  ARFA 

CAUSES  AWAKENED  JOR  TO  GO  TO  ENDOFJOB 
REPIACE  SAME  CADP.  RUT  NEW  JOB  AREA 


CONTROLS  TYPE  OF  DISPLAY  PUT  TO  SLEEP 


SAP: 


SSEMRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L DISPLAY  INTERFACE  ROUTINES 


US  ER  'S  PAGE  NO  . 24  EO  S3 


REF 


10,3n10  0 35  36  1 

10,3011  74004  0 


I DL EM  ASK  OCT 


D0WNENT2 
7 400  4 


* DONT  MOVE 


3974  REF  8 

0875  REF  46 

1876  PEF  30 

3877  REF  2 

0878  PEF  1 

.0879  REF  19 

0880  REF  2 

0881  REF  429 

3882  REF  2 

088-3  REF  2 


LAST  1352 
LAST  1346 
LAST  1311 
LAST  1352 

LAST  1349 
LAST  1346 
LAST  1350 
LAST  1345 
LAST  1348 


10. 3012 

10.3013 
10,3  01  4 
10,  3015 
10  ,3016 
10,3017 
10,  30  20 
1 0 , 3 02 1 
10,  3022 
10,3023 


5 C 154  1 
3 4747  1 

6 4751  0 

0 3526  0 
02765  1 

2 0100  0 

7 4751  1 
10  000  0 
C 24  CO  1 

1 2537  0 


XCHOADD 


GF  NMAR  K 


F ACEREG 
31  T5 
FOUR 
UPENT2 
XCHSL  EEP 
FLAGWRC4 
MKOVRI  T 
A 

MARKPL  AY 

OKTOCOPY 


BIT  SHOWS  PRIO  INTERRUPTED  NORM  OR  MARX 
BIT5  FOR  MARK,  BI  T4  FCP  NORMAL 

FLAG  ROUTINE  DOES  RELINT 
* DONT  MOVE 

MARK  OVER  NORM  ? 

USEC  AS  GENADR  FOR  JOBWAKE 


3 4755 
54  1 60 


MARKWAKE  CAF 
WAKF^LAY  TS 


ZERO 
TF  MP0R2 


0886 

0887 

0888 
0889 
3933 


REF  3 LAST  1353 
REF  1 

RFF  31  LAST  1353 
REF  2 LAST  1353 


10  ,3026  50  160  0 

10, 3027  3 35C6  1 

10,  30  30  6 4 751  0 

10.3031  0 3536  1 

10. 3032  40010  1 


MARKF  MSK  OC  T 


T FMPOR 2 
BITS5+11 
FOUR 

DOWNENT  2 
40010 


***DONT  MOVE 


0891  REF  4 LAST  1353 

0892  REF  3 LAST  1352 

0893 


10  ,3033  50  160  0 

10,3034  3 3472  0 

10,  30  35  0 OOC  4 0 


INDEX  TEMPDR2 
CAF  WAKECADR 
INHINT 


0894  REF  13  LAST  1352 


10,3036  0 5137 


TC  JOBWAKE 


3995  RFF 


10,  3027  1 3331 


TCF  FNDRET 


RC896  ALL  .1  RESTARTS  RRANCH  CIRFCTLY  TO  INITDSP.  NORMAL  DISPLAYS  ARE  THEONLY  DISPLAYS  ALLOWED  TO  USE  .1  RESTARTS 

1 ■' 898  INITDSP  FIRST  RESTORES  THE  ERANK  AND  THE  SUPER8ANK  TO  THE  MOST  RECENT  NORMAL  EBANK  ANO  SUPERBANK. 

R39D  IF  THE  MOST  RECENT  NORMAL  DISPLAY  REQUEST  WAS  NOT  FINISHED,  CONTRCLIS  SENT  BACK  TO  THE  LAST  NORMAL  USER. 

R 0902  OTHERWISE  THE  NORMAL  DISPLAY  SET  UP  IN  THE  NORMAL  DISPLAY  REGS  IS  STARTED  UP  IMMEDIATELY. 


OQ04 

0905 


REF  4 LAST  1348 
RFF  87  LAST  1351 


10,3040  3 1071  0 INITDSP  CA 

10,  304  1 54  OC 3 0 TS 


EBANKTEM 

EBANK 


RESTORE  MOST  RECFCT  NORMAL  EBANK 


0906 
33  17 


LAST  1349  10,3042  3 0366  1 
LAST  235  l",  3043  C 4727  1 


CA  RESTREG  SUP  fcR  BANK  AND  JOR  PRIORITY 

TC  SUPER  SW  RESTORE  S U P FR  BANK 


0908  REF  6 

0909  REF  22 


LAST  1350 
LAST  1348 


10  ,3044 
10,3045 


7 7737  1 
C 5146  1 


MASK  PR  10  37 
TC  PR IOCHNG 


091  0 
0911 
33  12 


RFF  A 2 LAST  1350 
PFF  ? LAST  238 
REF  18  LAST  1351 


10,  3046  4 6257  0 

10,3047  6 0374  1 

1C, 3050  1 4640  0 


CS  THREE 

AD  TFMPFLSH 

TCF  BANKJIIMP 


0 0003  1 PINBRNCH  RELINT 
3 1072  0 CA  M 


IARK2PAC 


FOR  GOP!  N USERS 

NFEDED  TO  SAVE  MPAC  +2  FOR  M A3  K USERS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2 ERL  I N A eY  ZOROASTER 

L DISPLAY  INTER  FACF  ROUTINES 

REF  046  LAST  1350  10,3053  54  156  l TS 


0014 

0°  1 5 

0015 
0017 
391? 
001  9 
09?0 


I A ST  1353 
LAST  13*3 

LAST  1353 
LAST  1324 


10,3054  3 OICO  C 

ir,  1055  7 77*2  1 


10  ,3056 
lo,  3057 

10,  30  60 
10,3061 


10  000  0 
1 3C62  1 
1 3453  1 
1 2400  0 


HA  SK 

CCS 

TCF 

TCF 

TCF 


0923 

0924 

0925 
3926 


REF  1 
REF  21 
PFF  431 
RFF  1 


092R  RFF  1 

39281  REF  5 
09202  RFF  23 
0920  3 REF  267 


LAST  1354 
LAST  1354 


LAST  1353 
LAST  1 32  C 
LAST  1351 


1C.3C64  2 4736  1 

If  , 3065  7 0100  1 

10  ,30  66  10  000  0 

10, 3C67  1 2545  C 

10.3070  1 2616  0 

10.3071  0 2420  0 NVDSP 

1C,  3072  3 0160  0 

10  ,3073  7 4757  1 

10, 3C74  54  0C1  1 


CAF 
MA  SK 
CCS 
TCF 


KEEPPRI  C 
PLAYJ  UM1 
COPYPACS 


0929 

0930 
3331 
0932 
0 9 33 


REF 

REF 

REF 

REF 

PFF 


10,3075 
1 0 ,3  C 76 
1C,  3077 

10 .3100 

10.3101 

10,  3102 
10,3103 


4 4737  l 
50  164  1 
7 1067  0 
5C  164  l 
55'  C 6 7 C 


1 NDEX 
MASK 
INDEX 


31  T13 
COPINDEX 
DSPFLG 
COP  INDEX 
DSPFLG 


093R 
093  9 
0940 
3941 

0942 

0943 
3944 
C 945 
0946 
0047 
0940 
3949 
0950 


RFF  1 4 
PFF  3 
RFF  l 
RFF  1 
REF  4 
PEF  5 
REF  12 
P EF  1 
REF  35 
RFF  125 
REF  1 
RFF  1 


111? 

1352 


LAST 

LAST 

LAST 


1346 

1354 

1315 

1354 

1352 


,3110 
,3111 
,3112 
,31  13 
,3114 
,3115 
,3  1 16 
,3117 
,3  1 20 
,3121 
, 3122 


10  367  1 
1 3120  0 
1 3234  0 
4 0370  1 
54  370  1 
7 6106  1 
( 3477  0 
6 0 1 4 1 0 
6 4753  1 
C 4155  l 
1 3246  0 


TS 

INDEX 

CCS 

TCF 

TCF 

CS 

TS 


MARK2  PAC 
' 

NVWORD 
NVDS  PI 
: LEANE  ND 
MARKNV 
MARKNV 
LOW  7 
VO5N0DM1 
TE  Ml 
ONF 

NV  MONO  PT 
RE  ST 
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PAGE  1354 


USER'S  PAGE  NC.  25  EO  S3 

ONI  Y 

P IN  BRANCH  CON  0 IT  ION 

**  NOTHING  IN  ENOIOLF 

SET  PI  NBRANCH  BIT 

PR  10  INTERRUPTED 


SET  IIP  RLANK  BITS  FOR  NVMONOPT  IN  CASE 
USER  REQUESTS  BLANKING  MONITOR 


BITR  SET  IF  DEC  MARK  PERFORM  DISPLAY 


* FOR  DISK  ONLY  * 


IN  CASE  MARKPLAY  AWAKENED  AFTER  SLEEPING 


IF  BUSY 


GAP:  ASSEMBLF  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


DISPLAY  INTERFACE  ROUTINES 


0952 

0953 

3954 

0954  1 
09  542 

09543 

09544 

3955 

0956 

0957 
3948 

0959 

0960 

0961 


REF 

REF  1 
RFF  99 
REF  1 
RFF  IOC 
REF  1 
REF  101 
REF  1 
REF  6 
REF  2 
RFF  1 
REF  47 
REF  7 
REF  422 


LAST  477  10, 3123  C 4433  1 


1326 

1355 

1355 


RFF 


1 


LAST 
LAST 
LA  ST 


1353 
1355 

1354 


10,3124 
1 C ,3125 
10,  3 126 
10  ,3127 
10,3120 
10,  3131 
10,3132 
10,  3 133 

10.3134 

10.3135 
10,  3136 

. 

10,3  140 
10,  3 14  1 


0 2416  0 
0 5527  1 
00  1C  2 1 
0 5527  1 
C01C3  0 
0 5527  1 
00104  1 
3 0160  0 

0 4255  1 

1 3 C 71  0 

2 4747  1 
7 0 160  1 
10  000  0 
1 3164  0 


TC 

TCF 

PFRFCHE  K CAF 
MASK 
CCS 
TCF 


F LASHOFF 

COP  Y TOGO 
DOW NFL  AG 
MR  KNVF  LG 
DOWN  FL  A C. 
NFMNVFLG 
3 0WNF  LAG 
PRONVFLC 
TE  MPGR2 
BL  ANK  SUB 
NV  DSP 
R I T5 
TEMPOR  2 
A 

1 S TOR  2ND 


0962  PFF  52  LAST  1350  10  ,3142  3 4750  1 GOANTDLE  CAF  P,  IT4 

0963  RFF  8 LAST  1355  10,  3143  7 0160  1 MASK  TE  MP0R2 

0964  pff  433  LAST  1355  10,3144  10  000  0 CCS  A 

0965  REF  1 10,3145  1 3261  0 TCF  FLASHSUB 


3966  REF 

0967  RFF 

0968  REF 

0969  PFF 


LAST  1355 
LAST  1346 
LAST  1355 


1r, 3146 
1 ,3147 
■ 

10  , 3 1 5 1 


4 0 1 60  1 
7 4746  1 
1C  CCO  0 
1 3156  1 


CS  TEMP0R2 

MASK  BIT6 

CCS  A 

TCF  I SI  TNOO 


09691 
3969  2 

09693 

09694 


RFF 

REF 

RFF 

REF 


,31  52  50  164  1 

10.3153  3 C 372  1 

10.3154  54  157  0 

10.3155  1 3347  0 


INDEX  COPINDEX 

CA  CADRFLSH 

TS  M P AC  + 3 

TCF  ENDIT 


397?  rf.F  16  LAST  13  95  10,3  156  50  1fc4  1 I SI  TNOO  INDEX  COPINDEX 

047?  RFF  4 LAST  1354  10  ,3157  3 0367  0 CA  NVWORp 

0°7*  PFF  13  LAST  1354  10,3160  7 61C6  1 MASK  L0W7 

0975  10,  3 16  1 C 0006  1 EXTEND 

0976  REF  2 LAST  1355  10  ,3162  1 3261  0 BZ  F FLASHSUB 


3977  REF  136  l AST  1345  10,  3163  1 5155  1 


0978 

0970 

3980 

0981 


RFF  10 
RFF  44 
REF  435 
RFF  1 


LAST  135  5 
LAST  1354 
LAST  1355 


1", 3164 
10,3165 
ID,  3166 
10,3167 


3 0 160  0 
7 4737  1 
10  000  0 
1 3142  1 


TCF 

IS  TOR  2ND  CA 

MASK 
CC  S 
TCF 


0982 
098  3 
0984 


PFF 

RFF 

REF 


I AST  1 355 
I AS  1 1355 
LAST  1354 


1C, 3170 
I ,3171 

10,3172 


2 4737  C 
50  164  1 
2 7' 067  0 


CA  RIT13 

INDEX  COPINDEX 
AOS  DSPFLG 


39845 


10, 3173 


22  OC  7 0 
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USER  ' S PAGE  NO.  26  EG  S3 

IN  CASE  OF  EXTENDED  VERB  NON  FLASH 

MP  AC  S DESTROYED  BY  NVSUB 
UNSET  SLEEP  IMG  BITS 


BLANK  BITS  1,2,3  I F S ET 

PIT  5 FOR  PERFORM 

IS  THIS  A GOPERF  DISPLAY 
YES 


IT  IS 

IS  THIS  A GCOS  PRET 


IS  THIS  A PASTE 

CHECK  MAOE  FDR  PINBRNCH  ANO  PR  IU  ON  MARK 
YES,  ASSUME  PASTE  ALWAYS  ON  FLASH 
NOT  FLASH,  NOT  GOPERF,  THFR  FOR  E EXIT 


SECOND 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGR 


ZERLINA  BY  ZOROASTER 


DISPLAY  INTERFACE  ROUTINES 


5986 


REE 


0*587 

0987  1 

OOH72  REF 
1 9 87  A REF 
39B741  PFF 
09875  REF 

0988  REF 


PEE  34  LAST  12Q1 


0989 


REF 


10,3  176 

l ,3177 

10,  3 2oO 

1C.32C1 
LC,  32 
1C  ,320  3 
1 C,3 204 
10,  3 20  5 


7 4740  1 
C CCC6  1 
1 32CA  o 
4 1066  1 
6 3f23  0 
1 3121  1 
? 3462  l 
1 2121  1 


MASK 

EXTEND 

RZF 

CS 

AD 

TCF 

V50PASTE  CAF 
TCF 


RIT  12 

V50PASTE 

NVW0RD1 

V97N00 

NV50DSP 

V50NG0 

NV50DSP 


0900  RFF  48  LAST  135  5 

3991 

(.992  REF  35  LAST  1328 


1C  ,3296  4 4747  0 

19,3207  C COO  6 1 
1C,  3210  02  Cli  1 


WITCHONE  CS  BITS 

E XTEND 

WAND  DSALMDUT 


0993 
3 994 
C995 

0996 

0997 

0998 

0999 
1 000 


RTF  22 
RFF  1 
RFF  436 
RFF  126 
REF  268 
REF  271 
REF  269 
RFF  1 1 


LAST  1354 

1 AST  13S5 
I A ST  1354 
LAST  1354 
LAST  1353 
1 AST  1356 
LAST  466 


10,?21 1 
10,  32  12 
10  ,3213 
10,3214 
10,  3 5 15 
10  ,3216 
10, 3217 
10,3220 


3 01 OO  0 
7 3500  0 
10  000  0 
3 4753  1 
54  CCl  1 
3 4755  1 
5 C CCl  n 
67 '04 1 r 


CAF 
I NDEX 
XC  H 


REF  361  LAST  1351 


! . 


1003 

1094 

1005 

1006 
1 307 

lore 

1009 


REF 

REF 

RFF 

PFF 


LAST  1352 
LAST  1356 
LAST  1356 
LAST  1317 


10  ,3223 
10,3224 
1 , 

10  ,3226 
10,  1327 
10,  ?3< 

10,3231 


3 4217  1 
56  C 64  9 
C 0CC6  1 
6 3232  1 
56  C 64  0 
50  C64  0 
54  164  0 


XCFTOEND  CAF 
XCHNYLOC  XCH 

E XTEND 

BZMF 

XCH 

INOEX 

TS 


REL  INTO 
LOCCTR 
LOCCTR 
LOC 


RFF  362  LAST  1356 


RFLINTQ  RELINT 


10  12 

ion 

1015 

1316 

ion 


REF 

REF 

RFF 

REF 

RFF 


LAST  Q 76 
LAST  129  2 
LAST  218 


1C  ,3234 
l:,  3235 
C371 
10,  3236 
10,3237 


04231 

04060 


CLFANENO  CAF  PR1C32 

TC  F I ND  VAC 

ERANK=  NVSAVE 
2C  ADR  JAPTERM 


1 on 

1019 

1322 


LAST  1355 


10,3240  1 326?  0 


19 , 3 24  1 
1 0 ,3242 
10, 3243 


3 0100  0 
7 3267  0 
C CCC6  1 


TCF  FLASHSUB  +1 

1SITPRI3  CA  FLAGWRD4 

MASK  IT  ISMASK 

EXTEND 
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USER'  S PAGE  NC.  27  E3  S3 

IS  IT  MARK 
YES 


NVOWR  D 1=  -0  IS  V97.  NVWORD  1 = -400  IS  V 99 

DISPLAY  SFCCND  PART  OF  GOPERF 
TURN  OFF  KEY  RELEASE  LIGHT 

IS  IT  NVSIJB  ASLFEP 


TC  FNDOF  JOR  REPLACES  GENAOR  IN  LOC  FOR 
WAS  THIS  ADDRESS  SLEEPING 


NO 
Y ES 


BACK  TO  USER 

CNF  LOWER  THAN  OISPLAYS  SLEEPING 


IS  PIN3RFLG,  MAP  K I OF  LG  SET 


GAP:  ASSEMBLE  REVISION  56  OF  A! 


PROGRAM  ZEKLINA  8Y  ZOROASTER 


L TISPLAY  INTER  FACE  ROUT  INES 


I AST 
LAST 


10,324*  1 2576  0 

10,3245  1 5155  1 


BZF  PRIOBORT 
TCF  ENDOFJCB 


If. 2 3 

1'  24 
13  25 


P.FF  12  LAST 
RFF  138  LAST 
REF  l 


1356  10,3246 

1357  L '1  ,3247 
10 , 3 250 


11*041  1 REST 
1 5155  1 
1 3252  0 


CCS 

TCF 

TCF 


CADRSTOR 

FNHOFJOR 

RESTSLEP 


1026  REF  135  LAST  1357 


10  ,3251  l 5 155  1 


TCF  ENOOFJOR 


l 27  REF  2 LAST  1345 

*o2a  REF  1 

1 29  RFF  3 LAST  1353 

1 3 3D 


Yo’jm 

1 0 ,3254 
10, 3255 


3 C 1 62  1 RESTSLEP  CA 

7 3 501  1 MASK 

C 3526  0 TC 

24100  0 0CT24100  OCT 


GEN  MAS  K 
A STROMSK 
J PENT  2 

24100 


1031 

1032 
103  3 


REF  18  LAST  1355 
RFF  1 

REF  2 LAST  472 


l<  ,3256  5C  164  1 
10,3257  3 3471  C 

10,  3260  0 4442  1 


INDEX  COPINOEX 
CAF  NVCADR 

t:  nvsubusy 


LAST  455  10,3261  0 4427  1 FLASHSUB  TC 


1039 

1D4D 


RFF 

REF 

REF 


LAST  1357 


10,  3265 
10, 3267 


2 0162  1 
7 3C 1 1 0 
0 3526  0 
4CC40  1 


I TI  SMA  SK  OCT 


GENMASK 
IOLEMA  SK 
JP  ENT  2 
40040 


1046  PEE  13  LAST  1357 

10^7  REF  1 

1340 

1049  RFF  2 LAST  1357 


10,  327 2 
10  ,3273 


l 3241  1 
1 3274  1 
l 3241  1 


CCS  :aorstor 

TCP  IS  IT  PR  10 

TCF  +2 

TCF  ISITPRIO 


1050  RFF  1 

1051  RFF  1 


10.3274  C 42C7 

10.3275  1 3354 


0 TC 

1 IDLETET1  TCF 


ENCIL'LE 
TE  R MA  TE 


1052  REE 


10,3276  1 3373 


TCF  PROCEEO 


1053  REF  1 

1054  RFF  840  LAST  1355 

1055 

1056  REF  437  LAST  1356 

1057 

1058  REF  1 

1 D 59  RFF  85  LAST  1349 

1060  REF  1 


10,  3277  4 3510  1 

10,3303  6 0154  1 

l 0 ,3  3C1  C 0006  1 

1G,  3302  26  COO  0 

10  ,3303  0 00C6  1 

1C, 3304  1 3443  0 

10,  3 3p  5 3 4752  C OK  TOENT 

10  ,3  306  54  161  0 ENCOUT 


CS  LOWLCAO 

AID  M P AC 

EXTEND 
DIM  A 

EXTEND 

BZF  LOAD  IT  IS 
CAF  TWO 

TS  OUT  HER  F 


10  63 


EFF  24 
RFF  2 
REF  438 


LAST  1?46 
LAST  1209 
LAST  1357 


in, 3 3C  7 

10.3310 

10.3311 


2 0100  0 
7 4101  1 
10  OUO  0 


CA  FLAGWR04 

MASK  DC  T 60000 

CCS  A 
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USER*  S PAGE  NC.  28  EO  S3 

IS  SOMEONE  IN  END  I OLE 
YES 

SET  NVSLEEP  BITS 

***  DONT  MOVE 

BUSY  OR  ABORT  IF  ILLEGAL 

COPINOEX  DESTROYED  BY  FNDIDLE 


***  ENDIDLE  ALLOW  ***  DONT  M3 V F 
SEE  IF  SOMEONE  ALREADY  IN  ENDIDLE 


ENDIDLE  RETURNS  HERE  ON  PROCEED 

VERBRE3 

V 2 1 OR  V 2 2 OR  V23  ON  DSKY 


CHECK  NATURE  OF  ENDIDLE  RETURN 


3 AP  : 


ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


lot  A 
1065 
1 366 


DISPLAY  INTERFACE  ROUTINES 


REF 

PFF 

RFF 


I . ’ 

1(  , 33H 


l 3315  1 
1 3^11  1 
1 3375  1 


TCF  TIMECHEK 

TCF  NORMRFT 

TCF  MARKRET 


U6P 
1<  7' 
1371 
P'72 
1073 
13  74 
K-75 


PFF  25 
REF  ? 
RFF  439 

REF  4 
PFF  127 
P EF  1 


LAST  1348 
I AST  134P 
LAST  1357 

LAST  1294 
LAST  1356 


1 ,nir 
10, 3316 

10,  3 317 
10,3320 
10,  3321 
1 '•  ,3122 
10,3323 
10,  3354 
10  ,"*325 


4 0025  1 
6 1164  o 

10  OCO  0 
4 0000  0 
6 7743  0 
6 4753  1 
6 35  5 2 P 
0 OOC  6 1 
6 2545  1 


TIMFCHEK  CS 


0CT37776 
3NE 
-2  SEC 


10  76 


LAST  1358  10,3326  1 3411  1 


1 0 R 6 
1087 
1 OBp 
1 89 

1090 
13  91 
1092 


REF  2 LAST  1357 
REF  129  LAST  1358 

PEF  Hr  LAST  1357 
RFF  2 LAST  1357 
REF  7 LAST  1355 
REF  8 5 ( ■ LAST  1357 


10,  13  3 1 
10  .3  332 
■ , 

10,  3 3 34 
10,3335 
10,  1 , 2 6 
I i 37 


10  1 6 1 G 
6 4753  1 
1 3335  C 
1 6155  1 
5C  157  1 
6 C 372  1 
54  157  0 


ENDRET  CCS 
AD 
TCF 
TCF 
INDEX 


ENDOF  JflB 
COPMPAC 
CADPFLSH 
MP  AC  +3 


REF 

PEF 

REF 


4 LAST  1357 
1 

3 LAST  1353 


CA  GFNMASK 

MASK  PINIDMSK 

TC  DOWN  ENT  2 

PINIDMSK  OCT  74044 


1 097 
1(  98 
1099 


10,3344  4 6257  0 

1 n » 3 345  C 4154  0 
10,  3 346  1 3347  0 


1 100 
1 101 
1 102 
1 103 
1104 


RFF  3 
R EF  7 
REF  23 
REF  851 
REF  19 


LAST  1349 
LAST  13  5 3 
LAST  1353 
LAST  1358 
LAST  1353 


10  ,3347 
10,3350 
. 

. 1 

1C,  3353 


3 0163  0 
7 7737  l 

0 5H6  1 
3 0157  1 

1 4640  0 


USER  PR  in 
PRI037 
PR  I DCHNG 
MP  AC  +3 
BANKJUMF 


LAST  1356  10,3354  3 4755  1 TERMATE  CAF 

10,3355  1 3306  0 TCF 


1117 

1118 

1119 

1120 
1121 


PEF  11 
REF  81 
PFF  4 40 
REF  5 
REF  3 


LAST  1361 
LAST  1347 
LAST  1368 
l AST  1283 
LAST  1352 


10, 3356 
1 0 ,3357 
If.  ,3360 

10 , 3 361 

. 


4 0 1 60  1 
7 4736  0 
1C  OOP  0 
1 6751  0 
4 01  57  0 


LI  NUSCHR  C S 

.MASK 

CCS 

TCF 
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PAGE  1358 


. 121 

JSER'S  PAGE  NO  • 2o  EO  S3 

PRIO  ENDIDLE  RETURN 
NORMAL  ENDIDLE  RETURN 
MARK  ENDIDLE  RETURN 


NORMAL  ENDICLE  EXIT 

REMOVE  ENCIDLE  AND  P INBRANCH  8 ITS 

***  DONT  MOVE 

BLANK  EVERYTHING  EXCEPT  MM 

RETURN  TO  USERS  PRIORITY 

ASTRONAUT  TERMINATE  (V34)  RETURNS  TO 

IS  THIS  A LINUS 

NO 

YES,  IS  IT  ALREADY  IN  ENDIDLE 


SAP:  ASSEMBLE  REVISION  56  OF  ABC  PROGRAM  ZERlINA  BY  ZOROASTER 
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PAGE  1359 


L DISPLAY  INTERFACE  ROUTINES 


USER  'S  PAGE  NO.  30  EO  S3 


1122  REF  20  LAST  1357 

1123  REF  8 LAST  1358 

1124 

1125 


10,3  36  3 5C  16  4 1 
10  ,3364  6 0372  1 

1C, 3365  C 0006  1 
10,3366  1 3370  1 


INDEX  COPINOEX 
AD  CADRFLSH 

EXTEND 

BZF  +2  YES 


1 126 

1127 

1128 
1120 


PEE  363 
RFF  12 
RFF  141 
REF  364 


LAST 
L AST 
LAST 
LAST 


1356 

478 

1358 

1359 


10,3367  0 0002  0 

1C, 3370  11*011  1 

10  ,3371  0 5155  C 

10,3372  C 0002  0 


TC  Q NO 

CCS  DSPLOCK  IS  THF  ASTRONAUT  BUSY 

TC  ENDOFJOB  END  THE  NEW  DISPLAY,  ITS  ALREADY  ACTIVE 

TC  Q 


ftl  130 
1137 
1133 


MORE  LOGIC  COULD  BE 
LAST  1358 
REF  2 LAST  1358 


INCORPORATED  HERE  TO  MAKE  SIRE  A RECYCLE  IS  A RECYCLAND  CCNVERSLY  THAT  A LOAD  IS  A LOAD. 
10  ,3373  3 4753  1 PROCEEO  CAE  3 NF  ASTRONAUT  PROCEED  (V33)  RETURNS 

10,  3374  1 33C6  0 TCF  ENDOUT 


R 1 1 38  LASTPLAY  CHECKS  TO  SEE  IF  (1)  THE  LAST  NORMAL  DISPLAY  WAS  EITHER  INTERRUPTED  BY  A PRI  C OR  A MARK  (MARK 

3 114  COULD  ONLY  HAPPEN  DURING  PINBRANCH)  OR  IF  (2)  THE  LAST  NORMAL  DISPLAY  WAS  PE3UESTED  WHILE  A HIGHER  PRIORITY 
R 1 1 4 2 DISPLAY  WAS  COING  RESULTING  IN  THE  NORMAL  BEING  PUT  TO  SIEFP. 


3 114  3 IF  FITHER  OF  THE  ABOVE  2 CCNOITIONS  EXISTS  , THE  NORMAL  DISPLAY  IS  AWAKENED  TO  30  TD  PLAYJUM1  WHICH  STARTS 

3 1145  UP  THF  MOST  RECENT  VALID  NORMAL  DISPLAY.  IF  THESE  2 CONDITIONS  DC  NOT  EXIST,  CONTROL  GOES  TO  PLAYJUMl  WHICH  IS 

R 1 1 47  STAPTED  IMMEDIATELY  WITH  TEE  ASSUMPTION  THAT  THE  MOST  RECENT  NORMAL  DISPLAY  IS  ALREADY  IN-ENDIDLE  (DURING  A 

3 11 49  PINRRANCH)  DR  THAT  A RESTART  HAS  OCCURRED  AND  THE  DISPLAY  CAN  BE  STARTEO  AS  A .1  RESTAPT. 


1163 

1164 

1165 

1166 


23  LAST  1301 
25  LAST  1357 


REF  26  LAST  1359 


10, 3375 
10  ,3  376 
10,3377 
10  , 3400 


4 6254  0 
7 0100  1 
C 0C04  0 
54  100  1 


MARKRE  T 


C S 
MASK 
I NHINT 
TS 


SI  X 

EL  AGWR04 
F LAG  WRD4 


***  MAY  MOVE  DISPLAY  FLAGWORD  OUT  OF 


10 ,3401  C 0003  1 
REF  2 LAST  1353  10,3402  1 3331  1 


P.  EL  INT  IN  HINT  REALM 

TCF  END  RET 


1169 
1 170 


? 

3 


3 7761  0 MARKOV  ER  CAF 
54  161  0 TS 


MINUS1 

OUTHERE 


RUPTREG2  IS  - MEANS  ENDCFJCB  TO  ENORET 


1172 

I 173 

I I 74 


PEF  27 
REF  12 
REF  441 
REF  1 


13  59 
12«3 
1358 


It  , 34C5  3 0 ICO  0 

1 ,34C6  7 4355  1 

10,3407  1C  CCO  0 
1C,  34  10  1 30  6 2 1 


CA  FLAGWRD4  IS  ENDIDFLG  SET 

MAS<  PR  1030  IS  NORMAL  OR  PRI  0 IN  ENDIOLF 

CCS  A 

TCF  NORMBNCH 


1175 
1 176 

1177 

1178 


RFF  28 
RFF  ? 
REF  442 
REF  1 


LAST  13*9 
I.  A ST  1363 
LAST  1359 


10  ,341  1 

10,  <41 2 

10.3413 

10.3414 


3 J100  0 NORMRCT  CA 

1 35C6  0 MASK 

10  000  0 CCS 

1 3024  0 TCF 


FLAGWRD4 
BI TS5+1 1 

MARKW  AK  F 


I S MARK  SL  EE3  ING 
OR  W AIT  ING 


1180 
118  I 
1182 


REF 

REF 

RFF 

RFF 


1.  AST 
LA  ST 


1359  10,  34  15  3 OlOO  0 

10  ,3416  7 3507  1 

1359  10,3417  1C  CCO  0 

10,  34  20  1 3 3270 


CA  FLAGWRD4 

MASK  BITS4+1C 

CCS  A 

TCF  NORM  WA  KF 


NO 

IS  NORMAL  INTERRUPTED  CP  WAITING 
YES 


LAST  1353  10  ,3421  3 1071  0 


CA  EBANKTFM 


NO,  WAS  I T A FLA  SH  REOUE  ST 


3&p: 


ASSEMBLE  REVISICN  56  OF  AGC  PRC  CRAM  2ERL  IN  A BY  ZOROASTER 


L DISPLAY  INTERFACE  ROUTINES 


118* 
1185 
118  6 
1 1 87 
1188 
1 180 


PFF  5 LAST 

REF  AAA  LAST 

REF  3 LAST 

REF  3 LAST 

PEF  A LAST 


1320  It  t 3 A 2 2 
1359  10  »3A23 

1359  1C, 342* 

1356  10 * 3A25 

1 0 , 3A2  6 
I860  10, 3 A 27 


1191 
1 192 
1103 
119* 
119* 


REF 

REF 
PFF 
R FF 


5 LAST  *76  10 ,3*30 

10 , 3 A 3 1 

25  LAST  1 150  If  ,3*32 

c LAST  135  6 ' '■  7 

2 LAST  1 35  A 10,3*33 

10 , 343* 


1195  REF 


LAST  1360  10,3*35 


1196  R FF  30 

11*7  RFF  3 

1198  REF  **5 

1 1 90  RFF  1*2 

11991  PEF  3 


l AST  1159  If,  34  36 

LAST  1359  10  ,3*37 

LAST  1360  1C  , 3 A A C 

LAST  1359  10,  3**1 

LAST  13*9  10,3*42 


123? 
12C  1 
1202 


120* 
12^5 
12  06 
1 207 


REF  3 LAST  135R 
REF  6 LAST  1360 
RFF  1*  LAST  1355 

REF  952  LAST  1358 

REF  1 

REF  7 LAST  827 


1?,  3 A A 3 
l,  ,344* 

10 ,8**5 
10,  1**6 
10  ,3**7 
10, 1450 
10,  3*5  1 
10  ,3*52 


1208 

1209 

1210 
1211 


REF  **  LAST 
RFF  3 LAST 
RFF  143  LAST 
PFF  1*4  L AST 


1358  10,3*53 

1358  10  ,3*5* 

1360  1 0,3*55 

1360  10,  3*56 


1215 

1216 
1217 
1 2 1 R 

1219 

1220 
1221 
1222 
1223 
122* 
122  5 


REF  8 LAST  1360 


REF  1 

REF  * LAST  135* 
REF  3 LAST  1360 


10  ,3*57 
10, 3460 
10,  1*6  1 
10,3*62 
1C,  3*63 
10  ,3*6* 
10,3*65 
10,  305  1 
10  ,3*66 
10, 3467 

10. 3470 

10.3471 
1C,  3472 
10  ,3*73 


7 4771  0 
10  000  0 
1 3331  1 
3 37  1 1 
0 00^6  1 
1 3351  1 


3 5025  0 
C OCC*  0 

0 5C  7 2 1 

C2616  1 

20060  0 

1 3331  1 

2 OlCO  0 
7 3506  0 
1C  CCO  0 
1 5155  1 
1 2755  0 

EC  157  1 

3 0 367  G 
7 6106  1 
A 0000  0 
6 0155  0 
C CCC6  1 
1 3 ?0  5 0 
1 3051  1 


A 6257  0 

0 *15*  0 
! 5155  1 

1 5 1 5 5 1 


00036  1 
CC231  1 
01407  0 
1A4C0  0 
C0030  1 
01006  0 
CC01*  1 

200 1 G 1 
40230  1 
*0036  0 
2 0543  1 
20400  1 
20616  1 


MASK  0CT50 

CCS  A 

TCF  END  RET 

:a  NVSAVE 

EXT  END 

BZF  FNORET 


CAF  PR  1015 

INHINT 

TC  NO  VAC 

EBAN  K=  NVWORO 
2CA0R  PLAYJUM 


TCF  ENDRET 

MARSLFEP  CA  F LAG  WRO* 

MASK  RITS5+11 

CCS  A 

TCF  END  OF  JOB 

TCF  GOSLEEPS 


LOAOI  TI  S I NOF  X 
CA 

MASK 

COM 


EXTEND 

BZF 

TCF 


COPMPAC 

\ivwnp  n 

LOW  7 

MP  AC  +1 

OKTOE  NT 
P I NBRNCH 


ERASER 


C S 
TC 
TCF 
TCF 


THREE 
V V SUB 
ENDOF JOB 
ENDOF  JOB 


PERFM  ASK 
V01N25 
VC6N07 
V5  0N3  0 
PERF  2MSK 
VO4N06 
PE  RF*  MS  K 
GOAGIN 
REDOMASK 
MARK3MSK 
MARK  AM  SK 
NVCAOR 
WA  KECAOR 


OC  T 

VN 

OCT 

EQUAL  S 

OCT 

OCT 

OCT 

CAOR 

CADR 

CADR 


0036 

00125 

CC607 

500C 

00030 

00406 

1* 


PI  NBRNCH 
20010 
*0230 
*0036 
PECOPR 10 
MARKPLAY 
PL  AYJ  UM  1 


9:  12  OCT.  21,1970  SKIPPER  .121  PAGE 
US  ER  *S  PAGE  NO.  31  EC  S3 

CR  A GCDSPRET 
YES 


360 


IS  PARK  ALREADY  IN 


YES 


NOUNREG 

NO,  THEN  LOAD  IS  VALID 

YES,  ACCEPT  LOAD  BUT  ASK  FOP  LAST  AGAIN 
BLANK  EVERYTH!  NGEX  CEPT  MM 


FLA  SH, PERFORM , BLANK  R2  AND  R3 
G0PERF3  VN  Cl  SPLAY  BEFORE  V50 
FLASH,  PERFORM 
FLASH,  BLANK  R3 
BITS  * AND  1* 

MARK,  DECIMAL  NOUN,  P ER  FORM  , FL  A S H 
MARK, PERFORM, FLASH, BLANK  2 AND  3 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


niSPLAY  INTERFACE  ROUTINES 


1226 

1227 

1228 
1 22  Q 
1230 
1 231 

1232 

1233 

1234 

1235 

1236 
1 23fl 
12385 

1239 

1240 

124  1 
1242 

1246 

1247 

1249 

1250 

1252 

1253 

1254 
A1255 

1256 

1257 

1258 

1259 

1260 
1261 
126? 

1263 

1264 


REF 
REF 
RFF 
REF 
REF 
R EF 


12  LAST  698 
c L AST  497 
2 LAST  260 
14  LAST  1102 


REF  853 
REF  854 
REF  855 
RFF  46 
REF  32 
PFF  856 


LAST  130  3 
LAST  1355 


LAST  136  1 
LAST  1356 


10 ,3  474 
10  ,3476 
10 ,3476 
4 144 
1C  ,3477 
10,  2330 
10,2350 
10,2  334 
10,  2 35  3 
5503 
0165 
ID, 3500 
10  ,3501 
1C,  3502 
10,  3503 
10,3504 

I ,.35  5 

10  ,3506 
10,3507 
10, 35  10 
1.0  ,3511 

10. 3512 
7752 

10,3071 

0157 
0160 
0 161 
3164 
0163 
' 

10.3513 

10. 3514 
1 , 1 5 1 5 


03400  C 
11210  1 
66521  1 


CC 700  0 
00704  1 
4CC30  0 
34300  0 
40100  1 
CC110  1 
020  20  l 
01010  1 
00026  0 
77730  0 
CCC50  1 


20144  1 
42424  0 
11254  1 


or.  T 3400 
NBUSM  ASK 
PPPASK 
VFRRMA  SK 
V05N00M1 
GOXOSP 
GO X OS PR 
GCXDS  PF 
GO  XO  SPFR 
ENCEXT 
PPAC2  SAV 
N VBUSM  SK 
AST R OMSK 
MPERFMSK 
0CT3430O 
8 ITS  15  +7 
8 I T S 7+  4 
PITS  5 +11 
BITS4  + 10 
LOWLOAO 
BUSYMASK 
CADR  MA  SK 
P INMASK 
GOPLAY 
PR  I OSA  VE 
COPMPAC 
TEMP0R2 
OUTHERE 
COP  INDEX 
USERPRIO 
GENMA  SK 
PR ICOCT 
MARK11C  T 


OC  T 
OCT 
OCT 

OCT 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

OC  T 

OCT 

OCT 

3CT 

OCT 

OC  T 

OCT 

OCT 

DEC 

OCT 

OC  T 

EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQU  ALS 
FOUAL  S 
EQUALS 
F QUA  L S 
EQUALS 
OCT 
OC  T 
OCT 


3400 
11210 
66521 
MI  U7 
1177 
GOPARK 
SOMARKR 
GOMARK  F 
GOMARKFR 
ENOMARK 
BANKS  FT 
700 
704 
40030 
34300 
40  100 
110 
2020 
1010 
22 

77  7 30 
50 

13,  14,  15 
NV  OS  P 
R 1 SAVE 
MP  AC  +2 
MP  AC  +4 
MPAC  +5 
LHC 
MODE 
MPAC  +6 
20  144 
42424 
11254 


Mil 

1267 

1268 
1269 
127.) 
1271 

1273 

1274 
12  75 
1276 
1276  l 
12762 


REF  o 
REF  857 
PFF  85p 
RFF  859 
REF  860 

REF  3 


LAST  4<*7 
LAST  1361 
LAST  136  1 
LAST  1361 
LAST  1361 

LAST  1350 


5475 

'154 

0 155 
0157 
0160 

• 

10,352 1 
10,  3522 
1 ,3523 
10, 3524 
10,  3525 


40420  0 
02547  0 

102C0  1 
30200  0 
20100  I 
24030  1 


I DLESLFP 
DC.  T67777 
L I NUS 
FACFREG 
PL  AY  TEM 1 
P L AY  T F P3 
PL  A YTF  M4 
OCT  40420 
MAKEGEN 
0CT102CC 
V97N00 
OC  T2  01  00 
CLOCKCON 


OCT 

3C  T 

EQUALS 

EQUALS 

FOIJALS 

EQUALS 

EQUALS 

OCT 

GENADR 

OC  T 

VN 


7 4 704 
67777 
BL  ANK  FT 
MPAC 
MPAC  + 1 
MPAC  +3 
MPAC  +4 
40420 
MAKEPLAY 
1 02  00 
09700 
20100 
24030 


9:12  OCT.  21  ,1970  SKIPPER 
USER  'S  PAGE  NO.  32 
EBANK  MASK 


.121  PAGE  1361 
EO  S3 


(OCT  37600) 
V05  MINUS  ONF 


BIT  15,5,4  FOR  MARK, P ERFORM,  FLASH 


* DONT  MOVE 

* DONT  MOVE 


PR  in 
PARK 
NORM 


PASTE  FOR  V 97  OR  VSC 


FLASH,  PERFORM,  V<>9  CR  V97  P AS  T E , R EFL  AS  H 


ASSEMPLE  REVISION  *6  OF  AGC  PROGRAM 


ZERL  INA  BY  Z03OA  STE  3 


L SERVICE  ROUTINES 


3301 
0002 
300  3 

3034 


REF  2 LAST  1343 

REF  2 L AST  1343  TO 


in, 3526 
10,2000 
10,3526 

1362:  64  C 640* 


BANK  1C 
SETLOC  DI  SPLAYS 
BANK 

COUNT*  *$/DSPLA 


0005 

0006 
0007 
OLf  8 
3300 
00 10 
00  11 
33  12 


REF  3 
REF  27f 
REF  31 
PEF  ?7l 
RFF  32 

REF  6 


LAST  1275 
LAST  13*6 
LAST  1 36C 
LAST  1362 
LAST  136  2 

I AST  1358 


1 3 ,3526 
10,3527 
1r,  3530 
13,3531 
1C, 3522 
10,  3533 
10,3534 
10,  3525 


0 COn 4 n 
7 *661  1 
54  00 1 1 
4 0100  1 
7 CCC1  1 
26  100  1 
C 0003  1 

1 6751  C 


UP  ENT  2 IN  HINT 

MASK  0CT77770 

TS  L 

CS  FLAGWRD4 

MASK  L 

AOS  F LAGWR04 

JCIN  RELINT 

TCF  0*1 


0013 

0014  PEF  4 

0015 

0016  PFF  33 

0317  RFF  34 

OOlR  REF  1 


LAST  1362 

LAST  1362 
LAST  1362 


10  ,3536  0 0004  0 

10,3527  7 5661  1 

10, 3540  4 0000  C 

10  ,3541  7 Oi CO  1 

10,  3542  54  ICO  l 

10, 3543  1 3534  1 


0CT77770 

FL  A GW  P 0 4 
F LAGWRD4 
JOI  N 


RFF  24  LAST  1354 


EQUALS  SEVEN 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  1362 
USER  'S  PAGE  NO.  1 EO  S3 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  2 1 T 1 9 7G  SKIPPER  .121  PAGE  1363 


L SERVICF  ROUTINES  USER'S  PAGE  NC.  2 EO  S3 

5 00  3 3 

RD134  UPFLAG  AN  0 DOWN  FLAG  ARE  ENTIRELY  GENERAL  FLAG  SETTING  AND  CLEARING  SUBROUTINES.  USING  THEM,  WHETHER  OR 

R 0036  NOT  IN'  INTERRUPT,  ONE  MAY  SET  CR  CLEAR  ANY  SINGLE,  MAMED  BIT  IN  ANY  ERASABLE  REGISTER,  SUBJECT  CF  COURSE  TO 

R0P38  EBANK  SETTING.  A "NAMED"  BIT,  AS  THE  WORD  IS  USED  HERE,  IS  ANY  BIT  WITH  A NAME  FORMALLY  ASSIGNED  BY  THE  YUL 

R0040  ASSEMBLER. 


*0041  AT  PRESENT  THE  C N LY  NAMED  BITS  ARE  THOSE  IN  THE  EL  A GW  OR  OS  . ASSEMBLER  CHANGES  WILL  MAKE  IT  POSSIBLE  TO 

RD343  NAME  AMY  BIT  IN  ERASABLE  MEMORY. 


RO'  44 


CALLING  SEQUENCES  ARF  AS  FOLLOWS:- 


R00  45 
RD346 


TC  UPFLAG  TC  DOWN F|.  AG 

ADR  ES  NAME  OF  FLAG  ADRES  NAME  OF  FLAG 


R0G47  RE-TLRN  IS  TO  THE  LCCATICN  FCLLCWING  THE  "ADRES"  ABOUT  .58  MS  AFTER  THE  "TCI. 


R3349  UPON  RETURN  A CONTAINS  THE  CURRENT  FLAG WRD  SETTING. 


0050 

0051  REF  3 LAST  1283 

3 3 52 

0053  REF  1 


^ 5 1 5 
4000 
5515 


BLOCK  0 2 
SETLOC  FFTAG1 
BANK 

COUNT*  SS/FLAG 


0?5^ 
0055 
00  56 
3357 
00  58 
00  59 
0060 
0061 
3362 
006-1 


REF  365  LAST  1359 
REF  2 LAST  729 


PFF  15  LAST  1017 
REF  65  LAST  1314 
REF  2r  LAST  957 
RFF  24  LAST  1289 

REF  272  LAST  136  2 


5515  3 0002  0 

5516  C 5533  1 

5517  4 0000  0 

5520  C 0CC6  1 

5521  04  0G1  1 

5522  50  061  0 

5523  54  C 74  C 

5524  22  063  1 

5525  C 0CC3  1 

5526  C 0CC1  0 


UPFLAG 


COMFLAG 


CA  0 

TC  DEBIT 

COM 

E XTEND 

ROR  L C HAN 

INDEX  I TEMPI 
TS  FLAG  WRDC 

LXCH  ITEMP3 
RE  LI  NT 
TC  L 


+(15  - BIT) 
SE  T BIT 


00  64 
3365 
0066 
0067 


REF 

REF 

REF 

REF 


366 

3 

273 

2 


LAST 
L AST 
LAST 
LAST 


1363 

1363 

1363 

729 


5527 
55  30 
5531 


3 0002 

0 5533 
7 000  1 

1 5522 


0 

1 

1 

0 


DCWNFLAG  CA 
TC 

MASK 

TCP 


0 

DEB  I T 
L 

COMFLAG 


RESET  B I T 


0068  RFF  131 

00  6<R 

3373  RFF  25 

0C71  RFF  3 

0072  RFF  66 

0071  RFF  2f 

0074 

3375  REF  274 

0076  RFF  27-3 


LAST  1359 

LAST  1363 
LAST  1083 
LAST  1363 
LAST  136  3 

LAST  1363 
LAST  1358 


^ 533 
5 534 
5535 
5 5 36 
5537 

5540 

5541 

5542 

5543 


6 4753  1 
0 0004  0 
54  C 6 3 0 
3 4762  0 
54  061  l 
50  C 6 3 1 
2*7777  0 
54  CC1  1 
3 4755  1 


AD 

INHINT 

TS 

CA 

TS 

INDE  X 
CA 
TS 
CA 


ONE 

I TE  MP3 
l 0 W 4 
ITEMP1 
I TEMP 3 
3 -1 
L 

ZERO 


GET  OE  BITS 


DFC  15 


A ORES 


GAP:  ASSEMBLE  REVISION  66  HE  AGC  PROGRAM  7 ERL  I N A BY  ZOROASTER 
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L SERVICE  ROUTINES 


USER • S PAGE  NO.  3 


EC  S3 


3 3 77 

Ofi  78  REF  67 

0079  REF  68 

DORP  REF  69 

0081  RFF  29 

'1 0 8 2 RFF  ?75 

OCflT  RFF  3C 

0G8*  REF  *7 

DOBS  REF  367 


LAST 
LAST 
L AST 
LAST 
LAST 
L AST 
LAST 
LAST 


116  3 
136* 
136* 
1363 
1 363 
1313 
13** 
1363 


c54* 

*145 

55*6 
^ c A 7 
5 55C 
656  l 

5552 

5553 
556* 


C CC06  1 FXTENO 

10  061  I DV 

52  062  1 DXCH 

ec  cei  o i noex 

3 007*  1 CA 

5*  ooi  i rs 

50  C 6 2 o INDEX 

* *735  0 CS 

C CCC2  0 TC 


I TEMP  1 
IT  EMP1 
I TEMPI 
FL  AGWRDO 
L 

I TEMP2 
B IT  15 
Q 


A = FLAGWRD  , L = (15  - BI T I 


CUPPFNT  STATE 
-( 15  - BI T) 


» A P : 


iSSEPRLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


<3:12  OS  T.  21  ,1970  SKIPPER  .121  PAGE  1365 


3 0088 
AOf'89 
A 00<J0 

a on<n 


SERVICE  ROUTINES 

DELAYJOG-  A GENERAL  ROUTINE  TO  OELAY 
ENTRANCE  REQUIREMENTS... 


JOB  A SPECIFIC  AMOUNT  OF  TIME 


USER  *S  R AGE  NO.  A EO  S3 

BEFORE  PICKING  UP  AGAIN. 

OELAY  JOB  FOP  DT  CENTISFCS 


D092 

0093 

0094 


06, 3772 

> 

OC  ,3735 


BANK  06 
SETLOC  OLAYJOB 
BANK 


R0095 

0096 
30965 

0097 

0098 

0399 

0100 

0101 

01C2 

0103 

0104 


THIS  MUST  REMAIN  IN 
RFF  1 

REF  7 LAST  1305 
REF  368  LAST  1364 


RFF  446  LAST  1360 


REF 

REF 


OC, 3735 
00,3736 
00,3737 


00,  3743 
00,3  744 
OC,  3745 


3 5CC0 

0 0004 
54  002 

3 47  5 2 
54  070 
5 C OCO 
3 1323 
C 0006 

1 3753 


COUNT*  fS/OELAY 
1 2SEC0ELYCAF  2 SECS 

0 OELAY JOB  INHINT 

1 TS  Q 


1 DELLOOP 


CAF  DELAYNLM 

TS  RJPTREG1 

INDEX  A 

CA  OELAYLOC 

EXTEND 

BZF  0K2DE  LAY 


STORE  DELAY  OT  IN  0 FOP  DL  Y -1  IN 
WAI  TLIST 

IS  THIS  OELAYLOC  AVAILABLE 


NO,  TRY  NEXT  DELAYLCC 


0107 
0 1 C 8 
7109 


REF  27  LAST  1320 


Oi  , 7 7 5- 
DO  , 3751 
00,  3752 


134 
0 5717 
“311  C4 


D XCH 
TC 
OC  T 


B IJF  2 
BA  I L OUT  1 
3 1 104 


NO  AVA  ILABLE  L OC  S. 


7 LAST  1123 


1 0K2DELAY  CA 


SET  WAITLIST  IMMEDIATE  RETURN 


112 

0113 

0114 


LAST  1096 
LAST  1365 
LAST  1364 


00, 3755 
00  ,3756 
00,  3757 


3 0CC4 
6 0070  - 
54  CC1 


STORE  RRANK  FDR  TASK  CALI 


LAST  1110 
LAST  1381 


00,  3762  0 4645  1 TCGFTCAD  TC 


CO  ,3763 
CO, 3764 


LAST  1352  00,3765  0 5133  0 


GET  CALLERS  FCACR 

SAVE  OELAY  CADRS 


GAP:  ASSEMBl.  F REVISION  56  OF  AGG  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:1?  OCT.  21,1970  SKIPPER  .121  PAGE  1366 


L SERVICE  ROUTINES 


USER'S  PAGE  NC.  5 ED  S3 


0123  REF  6 LAST  1365  00»3770  57*  323  1 

7124  RFF  14  I AST  1353  00*3771  C 5137  1 


XCH  DELAYLOC  MAK  F OELAYLOC  AVAILABLE 

TC  J08WAKE 


125  REF  7Q  LAST  1317 


00  ,3772  0 5272  0 


TC  TASKOVER 


P FF 
RFF 


00,  3773  C3760  C TCSLEFP  GF  NAPR  TCGET CAP  -2 

00,3774  03766  0 WAKFCAO  GBNAOR  WAKER 


GAP:  ASSEMBLE  REVISION  56  OF  AQC  PROGRAM  ZERLINA  BY  ZOROASTER 
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L SERVICE  ROUTINES  USER'S  PAGE  NC.  6 ED  S3 

50128  GENTRAN,  A BLOCK  TRANSFER  ROUTINE. 

RD 123  WR  ITTEN  BY  I).  EYLES 

R 01 3 0 MOD  1 BY  KERNAN  UTI  LI  TYM  RE  V I 7 11/18/67 

*0  13?  MOD  2 RY  SCHULENBERG  (REMOVE  RELINT)  SKIPPER  REV  A 2/28/68 

R3  1 33  THIS  ROIJT  INF  IS  USEFULL  FOP  TRAN  SFE  3 1 NG  N CONSECUTIVE  ERASABLE  CR  FIXED  QUANTITIES  TO  SOME  OTHER  N 

R0135  CONSECUTIVE  FRASABLF  LOCATIONS.  IF  BOTH  BLOCKS  OF  DATA  ARE  IN  SWITCHARLE  EBANKS,  THEY  MUST  BE  IN  THE  SAME  ONE. 


10137 


GENTRAN  IS  CALLABLE  IN  A JOB  AS  WELL  AS  A RUPT.  THE  CALLING  SECJENCE  IS: 


AOl  36 
AO  140 
AD  1 A I 
A 0142 
A;'  143 


I CA  N-l  U OF  QUANTITIES  MINUS  ONE. 

I +1  TC  GENTRAN  IN  FIXED-FIXED. 

I +2  ADRES  L STARTING  ADRES  OF  CAT  A TO  BE  MOVED. 

I +3  ADRES  M STARTING  ADRES  CF  DUPLICATION  BLOCK. 

I +4  RETURNS  HERE. 


R0144 


GENTRAN  TAKES  25  MCT 'S  ( 300  MICROSECONDS)  PER  I Tc  M + 5 MCT'S  (60  MICS)  FOR  ENTERING  AND  EXITING. 


H 146 


A,  L AND  I TEMPI  ARE  NC  T PRESERVED. 


3147 

"148  REF  2 LAST  1343 


5 5 c5 
4003 


BLOCK  02 
SETLOC  FFTAG4 


0 140 


5555 


BANK 


D 1 50 


REF  70  LAST  1364 


006  1 


E BANK=  I TEMPI 


0151  RFF 


COUNT*  f.  f /TR  AN 


0152 

F 1 53  REF  7 1 

0154  RFF  369 

3155 

0156  REF  447 

157 

m 5R  REF  277 

0159  REF  72 

3163  REF  370 

0l4l 

0 162  RFF  448 

3163 

0164  REF  73 

0165  REF  2 

3166  RFF  7 


LAST  1367 
LAST  1365 

LAST  1365 

LAST  136  5 
LAST  1367 
LAST  1367 

I A ST  1367 

LAST  1367 
LAST  3"2 
LAST  1283 


5555  C 0CC4  0 
6556  54  061  1 

5557  50  002  0 

5560  6 OCOO  1 

5561  50  000  1 

5562  3 0000  1 

5563  54  rol  1 

5564  3 0061  0 

5565  5 C CC2  0 

5566  6 0001  0 

5567  50  000  1 

6570  22  000  1 

557  1 1C  C 6 1 1 

5572  1 5556  0 

5573  1 6753  1 


GENTRAN  INHINT 

TS  ITFMPI 

I NDEX  Q 
AD  0 

INDEX  A 
CA  D 
TS  L 
CA  ITEMP1 

INDEX  Q 
AD  1 

INDEX  A 
LXCH  0 
CCS  ITEMP1 
T CF  GENTRAN 
TCP  Q+2 


SAVF  N-l. 

C ( Q ) = ADRES  L . 
ADRES  (L  + N - 

C( ABOVE  ) . 

SAVE  DATA. 


ADR  ES  ( M + N - 

STUFF  IT. 

LOOP  UNTIL  N-l 


1 ) . 


1 ) . 


= 0. 


RETURN  TO  CALLER. 
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o 0167 
ROl  68 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 
SFRVICF  ROUTINES 

B50FF  ZERO  BIT  5 OF  FXTVRACT,  WHICH  IS  SET  RY  TESTXACT. 

MAY  BF  US  EC  AS  NEECEC  8Y  ANY  EXTENDED  VERB  WHICH  HAS  OONE  TESTXACT 


USER  • S PAGE  NO. 


0170  RFF 


COUNT*  5.S/EXTVR 


3171 
0172 
( 173 
f 176 


69 

17 

IF 

H5 


I AST  1 3 6 fc 
LAST  1363 
LAST  1368 
LAST  13&0 


5576  * 6767  0 
6575  7 1063  0 
5576  56*063  0 
6577  0 6165  0 


B50FF 


CS  RIT5 

MASK  FXTVBACT 

TS  FXTVBACT 

TC  F NDOF  JOB 


GAP:  ASSFMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21,1970  SKIPPER  .121  PAGE  1369 


L ALARM  AND  ABORT 


USER*  S PAGE  NC. 


ED  S3 


R. OC  ■ 1 THE  FOLLOWING  SUBROUTINE  NAY  BE  CALLED  TO  DISPLAY  A NON-ABORTIVE  ALARM  CONDITION.  IT  MAY  BF  CALLED 

RDD~>3  EITHER  IN  INTERRUPT  OR  UNDER  EXECUTIVE  CONTROL. 


R 0004 


CALLING  SEQUENCE  IS  AS  FCLLOWS: 


ROOCR 
ROOf'6 
3 00'  >7 


ALARM  NO.  NN  IN  GENERAL  AREA  AAA. 
(RETURNS  HERE) 


DDOP 

0009  PEE 

0010 


^600 

4000 

5600 


BLOCK  02 
SETLOC  FFTAG7 
BANK 


Dll  REF  P l AST  479 


0375 


E BA  NK=  FAILREG 


0012  REF  1 COUNT*  Sf/ALARM 

R0O1T  ALARM  TURNS  ON  THE  PROGRAM  A LA  R f>  LIGHT,  BUT  006S  NOT  DISPLAY. 


0014 


5600  C 0004  0 ALARM  INHINT 


CO  15 
D D 1 6 
0017 
GO  IB 
0019 


REF  371  LAST  1367 
RFF  4 I AST  1275 
REF  372  LAST  1369 

RFF  27B  LAST  1367 


56C 1 
5CC  2 
5 6G3 

5604 

5605 


3 0002  0 CA 

55*363  1 A L AR  M2  TS 
50  002  0 INDEX 

3 0000  l CA 


c 4 001  1 BORTENT  TS 


0 

AL VC  ADR 


0 

0 


0020  REF  55  LAST  136  5 

D D 2 1 

0022  rff  27  I AST  1350 

0023  RFF  5 LAST  1369 


5606  3 0006  l 

56C7  C 06  1 

5610  04  007  1 

5611  55*364  0 


PR  WENT  CA  PBANK 

+ 1 FXTEND 

ROR  SUPERBNK 

TS  ALMCADR 


ADD  SUPER  BITS. 


D 24  RFF  373  L AST  1369 
0025  REF  74  LAST  1367 


56  12 
5613 


2 0002  0 I ARMEN  T CA 
54  061  1 TS 


ST C RE  RETURN  FOR  ALARM 


0:26 

0027 

0C2A 

DD2R5 

0029 


REF  9 
REF  1 
RFF  279 
REF  10 
REF  1 


LAST  1365 

LAST  1369 
LAST  1369 


5614  1C  375  1 

5615  1 5621  0 

5616  3 0001  0 

5617  54  375  1 


F A I LPEG 
CHKFAT  L? 
L 

F AI LREG 


5623  1 5625 


TCF  PROGLARM 


IS  ANYTHING  IN  FA  ILP  EG 
YFS  TRY  NEXT  REG 


TURN  ALARM  LIGHT  CN  FCP  FIRST  ALARM 


0032 


RFF  2 PC 


LAST 

LAST 

LAST 


1369 


D333 


REF  l?  LAST  1365 


562  1 
5622 


5623  3 0001  0 

5624  54  376  1 


CHKF  A I L2 


CCS  FAILREG  +1 

TCF  PROGLAPV 

CA  I. 

TS  F AI LREG  +1 


0039 


REF  13  LAST  1369 


5625  22  377 


PROGLARM  LXCH 


FAILREG  +2 


STORE  AS  "MCST  RECENT"  ALARM  CODE 


0040  RFF  47  LAST  1306 
3D41  PEF  2 LAST  1347 


0042 


PCF  48  LAST  1369 


5626  4 1035  1 

5627  7 5(43  1 

5630  27*035  1 


CS  DSPTAB  +1 1 D TURN  ON  PROGRAM  ALARM  IF  OFF 

MA  SK  OC  T4040C 
ADS  DSPTAB  +11D 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGPAM  ZERLINA  BY  ZOROASTER 


L ALARM  AND  ABORT 

0043  PFF  75  LAST  13.59 

0044 

3345  REF  449  LAST  1367 

0046 


5631  56  C 6 1 0 

5632  C 0003  1 

5633  5 C CCO  1 

5634  0 0001  0 


XCH  I TE  HP  1 

R FL INT 
I NDE  X A 
TC  1 


3 CO  5 1 
R3  0 53 
A 0054 
A 0 0 5 5 
A00c;  6 


OCTXX 

BANKCALL 

PRIOLARM 


A 006  7 
A:'05P 
A 00^9 
A006C 
A3:  61 


TC  PHASCHNG 

OCT  X.  1 


0062 

0063 

0064 


R EF 


3 LAST  1362 


lo  ,3544 

1 , 2 0 C 0 
10,  3544 


RANK  10 
SETLOC  DISPLAYS 
RANK 


0065 
3 3 64 
0067 


RFF  3 L 
PFF  2fl  1 


AST  1 362  TC  1363: 

10,  3544 
LAST  1369  10,3545 


14  654*  COUNT*  tf/DSPLA 

C 00C4  0 PRIOLARM  I NHI NT 
54  001  1 TS  L 


0068 

3369 

0070 

0071 
00  72 
0073 
3074 


RFF 

REF 

RFF 

REF 

REF 

REF 


fc 

2 


LAST 
L AST 
LA  ST 


LAST 
L AST 


1365  10,3546 

1369  10,  3547 

1370  10  ,3550 
LC  , 355  1 
1C,  355  2 

. 

524  10,3554 


3 0133  0 
5 5 * 36  -3  1 
3 0134  1 
C 56C7  0 
77467  1 - 2 SEC 

3 5006  1 
1 2505  1 


C A BU  F2 

TS  ALMCADR 

CA  RUF2  +1 

TC  PRIOENT  +1 

DEC  -200 

CAF  V05NO9 

TCF  PRIOOSPR 


0075 

CC  76  REF  2 LAST  1369 
3777 


5635 

4000 

563s 


RLOC<  02 
SETLOC  FFTAG7 
RANK 


0C78 
3379 
0080 
008  1 


REF  2 LA  ST  1 369  TO  1370  : 

5635 

REF  374  LAST  1369  5636 

REF  7 LAST  1370  5637 


29  29* 

C 0CC4  0 BAILOUT 
3 0002  0 
55*363  l 


COUNT*  $$/ ALARM 
I NHI  NT 
CA  Q 

TS  ALMCADR 


3382  RFF  375  L AST  1370 

0083 

0084  REF  1 

0085 


5640 

5641 

5642 
564  3 


50  002  0 
3 0000  1 
0 5605  1 
40400  1 


OC  T40400 


I NOE  X 
CAF 
TC 
DC  T 


Q 

0 

BORTENT 

40400 


0086 

3387  REF  86  LAST  1357 
0088  REF  25  LAST  12B3 


5 644 
564  5 


C 0004  0 IN  HINT 

3 4752  C WHIMPER  CA  TWO 


5546  6 0005 


AD 


Z 
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OBTAIN  RETURN  ADDRESS  IN  A 


THE  ASTRONAUT  AT  CALL  LOC  +l,  + 2,  + 3 AN3 
ALARM  CODE 


ASTRONAUT  RETURN 

IMMEDIATE  RETURN  TO  USER.  RESTART 
PHASE  CHANGE  FOR  PRIG  CISPLAY 


* * * KEEP  IN  DISPLAY  ROJT  INES  BANK 
SAVE  ALAR  M CODE 

2 CADR  OF  PRIOLARM  USER 


l EAV  E L ALON  E 
* DONT  MOVE 


GAP:  ASSEMBLE  REVISION  5b  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


A LAP  M A NO  ABORT 


3389 

REF 

2 

L AST 

822 

5647 

54  C 1 7 

0090 

5650 

5 0017 

0091 

REF 

61 

LA  ST 

1343 

5651 

C 4635 

339? 

REF 

2 

L AST 

824 

5652 

13001 

0093 

5653 

0 0004 

0094 

REF 

376 

LA  ST 

137C 

565  4 

3 0002 

0095 

REF 

8 

L AST 

1370 

5655 

55*363 

0096 

REF 

377 

LAST 

1371 

5656 

50  OC  2 

3097 

5657 

3 CCCO 

009B 

REF 

2 

LAST 

1370 

5660 

0 5605 

0099 

5661 

77770 

3133 

REF 

3 

LAST 

1087 

5662 

3 4765 

0101 

REF 

2 82 

LAST 

1370 

5663 

54  001 

0 102 

566  4 

4 0000 

0103 

REF 

9 

L AST 

874 

5665 

52  760 

0104 

5666 

0 0004 

31342 

RFF 

305 

LAST 

1324 

5667 

C 4616 

011  4 4 

PFF 

1 

5670 

27746 

0 105 

RFF 

31 

LAST 

1329 

5671 

3 0103 

3136 

REF 

4 

L AST 

2B9 

5672 

7 4746 

0107 

PFF 

450 

LAST 

1370 

5673 

10  000 

0 10  8 

REF 

1 

5674 

1 5702 

0109 

PFF 

306 

LAST 

137  1 

5675 

0 4 6 1 6 

0110 

RFF 

2 

L A *•  T 

237 

5676 

12666 

3 113  2 

REF 

307 

LAST 

1371 

5677 

C 4616 

01 1 04 

RFF 

2 

LAST 

219 

5700 

12657 

Bill 

RFF 

2 

LA  ST 

874 

57C1 

1 5645 

3112 

REF 

1 

57C2 

3 5744 

01122 

RFF 

LAST 

1353 

5703 

0 4727 

1124 

REF 

3C8 

LA  ST 

1371 

57C4 

0 4616 

'1125 

REF 

1 

5705 

67  546 

0114 

5706 

0 0004 

3115 

REF 

378 

LAST 

1371 

57C7 

2 CCC2 

OH  6 

PFF 

1 

5710 

0 5655 

0 117 

5711 

21103 

3 118 

5712 

C CCC4 

0119 

REF 

379 

LAST 

1371 

5713 

3 0002 

0 120 

REF 

2 

LAST 

1275 

5714 

C 5602 

0121 

57  15 

00217 

012? 

RFF 

9 

LAST 

1371 

5716 

0 1363 

3123 

5717 

C 0 C C 4 

0124 

REF 

10 

LAST 

1371 

5 720 

53*364 

0125 

RFF 

1 

5721 

3 5743 

3126 

RFF 

7 h 

L AST 

1370 

5722 

c 4 Cfcl 

0127 

REF 

38C 

LAST 

1371 

5723 

50  or.  2 

0128 

5724 

3 0000 

0120 

PFF 

283 

L AST 

137  1 

5 7 25 

5 4 OCl 

0130 

RFF 

1 

5726 

1 5614 

CADR 

INHINT 


0 

ALMCADR 


ABORT2  TS 


CCT7777?  OCT 


COM 

DXCH  -PHASER 

go poo  non  in  hint 

TC  8ANKCALL 

CADR  c L AS  S 

FL  AGWRD7 
V37FLBI  T 


MASK 
CCS 
TC  F 
TC 

CADR 

TC 

CADR 

TCF 

STRTIOLE  CAF 
TC 
TC 


STRTIOLE 

3 ANKCALL 

V37KLEAN 

BANKCALL 

MR. KLEAN 

WHIMPER 

BBSEPVOL 

SUP  FR SW 

BANKCALL 

SERVIDLE 


OCT? 1103  OCT 
CUPTAI  NS  I NHI  NT 


Q 

AL ARM2 
0021  7 
ALMCADR 


RAIL0UT1  INHINT 
DXCH 
CAF 

B0THA8RT  TS 

INDEX 

CAF 

TS 

TCF 


ALMCADR 
ADR40 40  C 

I TEMPI 


CHKFA  IL  1 
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USER 'S  PAGE  NO.  3 EO  S3 

RESUME  SENDS  CONTROL  HERE 


DON  * T MOVE 

4 .3 5 S POT  FOR  GOPOOCOO 


RESET  STATEFLG,  R E INT  FL  G,  AND  NOOOFL  AG  • 
IS  SERVICER  CURRENTLY  IN  OPERATION? 

TERMINATE  GRPS  1,  3,  5,  AND  6 

TERMINATE  GRPS  2,  4,  1,  3,  5,  AND  6 
(I. E.  , GRP  4 LAST! 

PUT  SERVICER  INTO  ITS  "GROUND"  STATE 
AND  PROCEED  TO  GOTCPOOH. 


RETURN  TO  USE 


DAP: 


ASSEMPLE  REVISION 


OF  AGC  PRC CR 


ZFRLINA  BY  ZOROASTER 


L ALARM  ANO  ABORT 


>1  J1 

0132 
3 133 
0134 


REF  11  LAST  1 37  L 
REF  1 
RFF  1 


5727  C 00C4  0 

5730  53*3*4  0 

5731  2 5742  C 

5732  1 5722  1 


POOODO  1 


INHINT 

DXCH 

CAF 

TCF 


ALMCAOR 
ADR7777G 
30THABR  T 


o 1 35 
‘ 1 3* 
1 37 
C 138 
r13o 


3141 


REF  12  LAST  1372 

P.EF  381  LAST  1371 

PEF  284  LAST  1371 
REF  1 


5 733  0 OC'04  0 

57 '4  5 3 '3*4  0 

5735  0 0004  0 

5726  50  002  C 

5737  3 '‘•COO  1 

5740  54  001  1 

5741  1 5612  0 


ALARM1  INHINT 

OXCH  ALMCAOR 

ALMNCADR  INWIVT 

INDEX  0 

CA  0 

TS  L 

TCF  LARMFNT 


143 
0 144 
< 1 444 
r 1445 
R0145 


RFF 

REF 

RFF 

RFF 

PEF 

CALL 


146 

55 

2 

INC 


LAST  1362  5742 

LAST  136  9 5743 

LAST  1368  5 155 

LAST  8R8  £7,1513 

LAST  137  1 5744 

SEQUENCE  FOR  VAPALARM 


66C67 


0 


ADR7777Q 
A D R4  3 4 J 9 
DOALARM 

8RSERV0L 


TCF  DC  T 77770 

TCF  0CT4040C 

E0LA1  S FNOOFJOP 
E8ANK=  OVCNTR 
RBCON  SERVIDLE 


A 146 
AD  147 


CAF  (ALARM) 

TC  VARALARM 


R 0 1 4 8 
0149 


3 150 

0151 

152 


0153 

0154 


D 1 55 


VARALARM 

REF  285 

RFF  382 
RFF  13 

PEF  2 

RFF  14 


TURFS  CN  PROGRAM  ALA 
5 74  5 


LAST  13  72  5 746 

LAST  1372  5747 

LAST  1372  5750 


LAST  1370  5751 

5752 


LAST  1372  5753 


RM  L 1 GHT 
C 0004 


54  001 

3 0002 
cc' 363 


C 5606 
00014 

C 1363 


0 

1 

0 

1 

1 

1 


BUT  DDES  NOT  OISPLAY 
VARALARM  INHINT 


TS  L 


CA  Q 

TS  ALMCAOR 


TC  PRIOENT 

CCT14  OCT  14 


TC  ALMCAOR 


0156  RFF 
0 157 

Ol 5 8 PEF 
0159 

0 160  PEF 


3 LAST  1371 


5645 
12,3746 
13,  2000 
13  ,3746 


ABORT 


EQUALS  WHIMPER 
RANK  13 
SETLOC  ABTFLGS 
BANK 

COUNTS  11/  ALARM 


0161 

0162 
D 163 
0 1 64 
0 165 
0166 
0167 
n 16R 


REF 

RFF 

REF 

PFF 

PFF 

RFF 

REF 

REF 


1 

16  LAST  1328 

17  LAST  1272 
3 LAST  1210 

20  LAST  C 7 1 

21  LAST  1372 
3 LAST  236 

24  LAST  1304 


1 3,  3746  4 4 747 

13  ,3747  7 0077 

1 3,  3 7 50  5 4 C77 

13,  3751  4 4745 

13,3752  7 0106 

13,3  7 5 3 5 4 1C6 

13.3754  4 4753 

13.3755  7 0076 


FLAGS 


C S S TA  TF  B I T 

MASK  FLAGWRD3 

TS  F LAGWRD3 

CS  RE  INTO  IT 

MASK  FLC-WRD10 

TS  FLGWR01C 

CS  NODOBIT 

MASK  FLAGWRD2 
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SAVE  USERS  ALARM  CCDE 
SAVF  USERS  Q 

DONT  MOVE 


RETURN  TO  USER. 


1373 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER 

L ALARM  ANC  ABORT 


9:  12  OCT.  21,1970  SKIPPER 
USER'S  PAGE  NC.  5 


121  PAGE 
EO  S3 


13 

13 


,3756 

,3757 


54  076  1 
C CCC2  0 


TS  FLAGWR02 

TC  0 


ASSEMBLE  REVISION  S6  OF  AGC  PROGRAM  ZERLINA  BV  ZOROASTER 
UPDATE  PROGRAM 


9:  12  OCT.  21  ,1970  SKIPPER  .121  PAGE  137* 
USER  'S  3 AGE  MO.  1 EO  S3 


ROD'  1 PROGRAM  NAME: 
R 0002  HR  I T TEN  BY  : 


P 27 

K I LROY/  DE  WC IF 


ROO  3 MOD  VO: 
R00C4  MCC  BY: 
ROODS  DATE: 


b 

K ILPOY 

OinFr67 


RD306  LOG  SECTION:  UPCATE  PROGRAM. 


R 0 0 0 7 
RPPCfl 
RPOOO 

* 001  ° 
ROC n 


FUNCT.  OESCR:  P27  ( T F c UPCATE  PROGRAM  ) PPOCESSFS  COMMANDS  AND  DATA 

INSERTIONS  RE  CUE  STFD  BY  THE  GROUND  VIA  UPLINK. 
ThF  p27  PPOGRAM  WILL  ACCEPT  UPDATES 
CNLY  DURING  PC  0 FOR  THE  LM,  AND  ONLY  OURING  POO, 
P 0 2 , AND  FPESH  START  FOR  THF  C SM 


R0(  12  CALLING  SEC: 


PROGRAM,  IS  INITIATED  BY  UPLINK  ENTRY  OF  VERBS  7C,  71,  72  AND  73. 


? '^0  IB 
R3316 


SUBROUTINES: 


TESTXACT,  NEHMCDEX,  NEWMPOEX  +1,  GOXDSPF,  BANKCALL,  EINOVAC,  INTPPFT, 
INTWAKEU,  FNDEXT,  POSTJIJMP,  FALTON,  NEWPHASF,  PHASCHNG 


INTSTALL , TPAGPEE, 


R 0G1 7 NORMA  I EXIT: 
R0018  ALAP-M/ABOPT: 


TC  ENDEXT 

TC  F AL  TON  FULLOWFD  BY  TC  ENDEXT 


R0019 
TOC  20 
R3?22 
R 0023 
R0D2S 
R002  7 
* 0029 
RD331 


RESTARTS : 


P27  IS  RESTART  PROTECTED  IN  TWO  WAYS... 

1.  PRIOR  TC  VER  IF  LAG  I NVERS I ON  (WH I CH  IS  CAUSEC  BY  THE  GROUND/ASTRONAUT'S  VERIFICATION  OF  UPDATE 

DATA  BY  SENDING  A V 33E  WHEN  V21N02  IS  FLASHING) 

NC  PROTECTION  EXCEPT  PRE-°27  MQOE  IS  RESTORED,  COAST  + ALIGN  DOWNLIST  IS  SELECTED  AND  UPLINK 
ACTIVITY  LIGHT  IS  TURNED  OFF.  (JUST  AS  I F A V34E  WAS  SENT  DURING  P27  DATA  LOADS). 

V 7 ) , V7  1,  V 75  OR  V73  WILL  HA  VF  TO  BF  COMPLETELY  RESENT  BY  USFR. 

2.  AFTER  VFRIFLAG  I NVERS  ION  (WHEN  UPDATE  OF  THE  SPECIFIED  ERASABLES  IS  BEING  PERFORMED) 

PROTECTED  AGAINST  RESTARTS. 


TEMP  STORAGE  FOR  ADDRESSES  AND  CON  TFT  T S. 

VERB  NUMBER  MINUS  70  0 (E.G.  FOR  V72,  UPVERB  = 72D  - 70D  = 2) 

FOR  MAJOR  MODE  INTERRUPTED  BY  P27. 

TCTAL  NUMBER  OF  COMPONENTS  TO  BE  TRANSMITTED. 

ACTUAL  NUMBER  OF  COMPONENTS  RECEIVED. 

SCRATCH,  BUT  USUALLY  CONTAINS  COMPONENT  NUMBER  TO  BE  CHANGED  DURING  VERIFY  CYCLE 


R 0041  INPUT: 

R0042  ENTRY:  DESCRIPTION 


R 00?  2 DEBRIS: 

*01  33 

R0035 

R 0036 

R 003  B 

R0039 


UPPUFF  ( 20  C 
UPVFR3  (1) 
JPOL  DMO D ( 1 ) 
CCNPNUMB  (1  ) 
UPCOUNT  ( I) 
UPTEMP  (1) 


R0C43  V70FXXXXXEXXXXXE  (LIFTOFF  TIME  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIMF  INCREMENT,  XXXXX  XXXXX, 

30045  IS  ADDED  TO  TEPHFN,  SUBTRACTED  FROM  AGC  CLOCK  (T  I ME2  , T I ME  I ),  SUBTRACTED  FROM  C SM  STATE 

R0047  VECTOR  T IME  (TETCSM  ) ANO  SUBTRACTED  FROM  LEM  STATE  VECTCR  TI  ME  (T  ET  LEM ) . 

*0049  THE  DP  OCTAL  TIME  INCREMENT  IS  SCALED  AT  2(28). 


TAP:  ASSEMBLE  REVISION  56  OF  ACC  PRC  GRAM  ZERLINA  BY  ZOROASTER 
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L UPDATE  PROGRAM 


USER'S  PAGE  NO. 


EO  S3 


R0050  V7 1 EIIEAAAAE 

< 0051  XXXXXE 

RDD52  XXXXXE 
R 00  53 

K0059  9 NE  XT  BANK 

R3355 


(CONTIGUOUS  eLOCK  UPDATE)  I I- 2 OCTAL  COMPONE  NT  S , XXX  XX, 
ARE  LOADED  INTO  ERASABLE  STARTING  AT  EC  ADR,  AAAA. 

IT  IS  .GE.  2 .AND.  .LE.  20D., 

AND  (AAAA  -»  I I - 3 ) DOES  NOT  PRODUCE  AN  ADDRESS  IN  THE 
SCALING  IS  SAME  AS  INTERNAL  REGISTERS. 


<0056 
R3357 
R 0058 
< 0060 


V72EI IF 

AAA AEXXXXXE 

AAAAEXXXXXF 


(SCATTER  UFCATE)  (II-l)/2  OCT  AL  COMPONENTS  , X X X X X , ARE 
LOADED  INTO  ERASABLE  LOCATIONS,  AAAA. 

II  IS  .CE.  3 .AND.  .LE.  190,  AND  MUST  BE  ODO. 

SCALING  IS  SANE  AS  INTERNAL  REGISTERS. 


RD26  L 
ROOfi? 
R0063 
R0069 


V73EXXXXXEXXXXXE 


(OCTAL  CLOCK  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME 
INCREMENT  XXXXX  XXXXX,  IS  ADDED  TO  THE  AGC  CLOCK,  IN 
CENTI  SECONDS  SCALED  AT  (2)28. 

THIS  L 0 A C IS  THE  OCTAL  EQUIVALENT  OF  V5  5. 


<0065  OUTPUT: 
R3366 


I N ADDI TI CN  TC  THE 
COMPLEMENT  BIT?  OF 


ABOVE  REGISTER  LOADS 
F LAG  W0RD7. 


ALL  UPDATES 


R0C67  ADDITIONAL  NOTES:  VERB  71,  JUST  DEFINED  ABOVE  WILL  BE  USED  TO  PERFORM  BUT  NOT  LIMITED  TC  THE  FOLLOWING  UPDATES  — 

R0C69  1.  CSM/LM  STATE  VECTOR  UPDATE 

R0072  2 . PEFSMMAT  UPDATE 


< 0073 
RD079 


THE  FOLLOWING  COMMENTS  DELINEATE  EACH  SPECIAL  UPDATE 

1.  CSM/IM  STATE  VECTOR  UPDATF(ALL  DATA  ENTRIFS  IN  OCTAL) 


R0C75  ENTRIES: 

RC  Y7  v 7 i r 
R0C78  21 F 

< G080  AAAAE 
R3382  XXXXXE 
R 0083 

<0089  XXXXXEXXXXXF 
R3C86  XXXXXEXXXXXE 
R0C8R  XXXXXFXXXXXF 
R 0090  XXXXXF XXXXXE 
R0092  XXXXXEXXXXXE 

< 0099  XXXXXF  XXXXXF 
R0DR6  XXXXXEXXXXXE 
R 0098  V3  3 E 


DATA  DEFI  MT  If  N : 

CONTIGUOUS  BLOCK  LPDATE  VERB 
NUMBER  OF  COMPONENTS  FOR  STATE 
FC ADR  CF  • LPSVFLAG' 

STATE  VECTOR  IDENTIFIER:  00001 
00C0  2 

X POSI  TION 

Y POS  IT  ION 
7 PCSITICN 
X VELOCITY 

Y VELOCITY 
7 VELCCITY 

TIME  FROM  AGC  CLOCK  ZFRO 
VERB  33  TO  SIGNAL  THAT  THE  STATE  VECTOR  IS  PFAOY  TO  RF  STORFO. 


SCALE  FACTORS: 


VECTOR  UPDATE 


2.  REF  SMM  A T(  AL  L 

ENT  R I ES  : 


SCALE  FACTORS: 


GAP:  ASSEMHLF  RFVIS1HN  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 

L UPDATF  PROGRAM 


R 0 147  V 7 ir 
Pol  4R  24  E 

10150  AAA AE 
R.'  15?  X X X XX  EX XX X XF 

arl54  xxxxxexxxxxt 

*0156  XXXXXFXXXXXF 
P3158  XXXXXFXXXXXF 
R 01 60  XXXXXFXXXXXF 
R 162  XXXXXFXXXXXF 
ROl 64  XXXXX  EXXXXX  E 
*01 66  XXXXXFXXXXXF 
KU6R  XXXXXFXXXXXF 
ROl 70  V33p 


CONTIGUOUS  RICCK  UPDATF  VERB 

NUMBER  OF  COMPONENTS  FOP.  R EF  SMMA  T UPDATE 

F C ADR  CF  • REFSMM  AT' 

ROW  1 COLUMN  1 
ROW  1 COLUMN  2 
ROW  1 CCLLMN  3 
ROW  2 COLUMN  1 
ROW  2 COLUMN  2 
ROW  2 COLUMN  ? 

ROW  3 COLUMN  1 
ROW  3 COLUMN  ? 

ROW  3 COLUMN  ? 

VERB  33  TO  SIGNAL  THAT  RFF$MMAT  IS  RFADY  TO  RE  STORED 


0 171 
- 17? 
r 1 73 


REF 


7 I AST  302 


HANK  C 7 
SFTLOC  EXTVERBS 
BANK 


C 1 74  REF 


I A ST  1215  E 3 , 1 7 C 6 


E8ANK=  TEPHEM 


175  PEE 

176  REF 
3177  RFF 


1 COIN  T*  J.S/P27 

1 43 » 3 723  3 4755  1 V70UPDAT  CAF  JP70 

2 I AST  268  43,  3724  1 3732  0 TCF  V73U POAT  + 1 


0178  REF 
1:179  REF 


43  ,3725  3 4753  1 V7  1UPDAT  CAF  UP  71 

LAST  1376  43,3726  1 3732  0 TCF  V7  3UPDAT  +1 


OlRO  REF 
0181  P EF 


1 43,  3727 

4 LAST  1376  43,3730 


4752  C V72UPDAT  CAF  UP72 

3 732  0 TCF  V73UPDAT  +1 


3182  REF  1 

0183  REF  1 

0184  REF  19  LAST 

AC  185 


30 


43,  373  1 3 6257 

43  ,3732  55 ' 165 

43,3733  C 2C76 


0 

l 


V73UPDAT  CAT  UP73 

+ 1 TS  IJPVERBSV 

TC  TESTXACT 


' 197  REF  62  LAST  1371 

3198  RFF  1 


43,3734  0 4635  0 

43,  3735  11274  1 


TC  POSTJUMP 

CADR  UP  PAR  T2 


0211 
0212 
n21  3 
0214 


REF  275 
RFF  11? 
REF  87 
REF  45 


LAST 

LAST 

LAST 

LAST 


1365 
136  3 
1 370 
1360 


4755 
4 7 6 3 
47  5 2 
6257 


UP70  EQUALS  ZERO 

UP71  EQUALS  ONE- 

UP  72  EQUALS  TWO 

UP73  EQUALS  THREE 
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EC  S3 


2 (-1  ) 
2(  - 1 ) 
?<-  I ) 
2 (-1  ) 
2(  - 1 1 
2 (-1  ) 
21-1) 
2(  - 1) 
2 (-1  ) 


COMES  HERE  ON  V70E 


COMES  HERE  ON  V71E 


COMES  HERE  CN  V72  E 


COMES  HERE  ON  V73  E 

SAVE  UP  VERB  UNTIL  IT'S  CK  TO  ENTER  P27 

GRAB  DISPLAY  IF  AVAILABLE,  OTHERWISE 
TURN*  OPERATOR  ERPCR*  CN  AND  T FRM  I NAT  FJOB 

LEAVE  EXTENDED  VFPB  BANK  AND 
GG  TO  U PD  AT  F PR0GRAMIP27)  BANK  . 


AP:  ASSEMBLF  REVISION  56  OF  AGC  F MG  RAN  ZERLINA  BY  ZOROASTER 


12  OCT.  2 1 » 1 *570  SKIPPER  .121 


PAGE  1377 


UPDATE  PROGRAM 


US  ER'S  PAGE  NO.  A E3  S4 


0215 

0216  REF 
3 217 


2 LAST  1215 


04,  3374 
C4 , 2 000 
04,  3374 


BANK  04 

S FT  LOG  J PCAT  E2 

BANK 


0218  REF 


COUNT  * $ $ /P  2 7 


0219 


04,3374 


UP  PART  2 EQUALS 


UPDATE  PROGRAM  - PART  2 


322'. 
022 1 
0222 


REF  23  LAST  128  3 
REF  1 


04,  3374  3 1010  1 

04  ,3375  0 0006  1 

C 4,  3376  1 34C0  1 


CA  MOORES  IS  UPDATE  ALLOWED  AT  THIS  TIME? 

EXTEND  IS  MODREG  +0  (POOH)  OR  -0  (FRESH  START)? 

BZF  UPDATCK 


0223  REF 


04,3377 


0 3766  0 UP  ERROR  TC 


UPERROUT  +2  TURN  ON  OPERATOP  ERROR  LIGHT  AND  EXIT 


0224  RFF  4 


LAST  212  04,3400  55'  170 


UPDATOK  TS 


JPOLDMOO 


RCF  2 l AST  1376 
RFF  4 LAST  212 


04,  340  1 :•  1 • 1 f 5 1 

'34  ,3-,r.?  55*17  1 0 


CAE  UPVERBSV  SET  UPVERB  TO  TELL  P27  WHICH  EXTENDED 

TS  UP  VERB  VERB  CALLED  IT 


'227 
. 23fl 


REF  133  LAST  137 


f 1 2 


l 

0 


CAF  ONE 

TS  UPCOUNT 


7 229 
3233 

0231 

0232 
023  3 
0 233 


REF  111  LAST  1324 

REF  6 LAST  212 
REF  2 LAST  1216 


04.3405  C 5364  0 

04.3406  C7C26  1 

04  ,3407  30000  1 

1 173 

04,34  10  03716  1 

04  ,341  1 10102  0 


TC  PHASCHNG  SET  RESTART  GROUP  6 TO  RESTORE  OLD  MODE 

OCT  07C26  AND  DOWNL  1ST  AND  EXIT  IF  RESTART  OCCURS. 

OCT  3000C  PRIORITY  SAME  AS  CHRPRIC 

EPANK=  UPBUFF 
2CA3R  UPOUT  +1 


REF  l?4  LAST  1377 


3 4753 
54  333 


0 


CAF  ONE 

TS  DNLSTCOO  DOWNLI  ST 


0236  REF 
3237 


4 LAST  802 


\t\%  % m 


TC  NEW  MOO  EX  SET  MAJOR  MODE  = 27 

DEC  27 


0238  REF 
0 239 

0240 

0241  REF 
??4?  RFF 
0 24  3 RFF 
0244  REF 
3245  REF 


5 LAST  1377 


l 

? LAST  1377 
88  LAST  1376 
4 LAST  211 
1 


74  ,34  16 
04,3417 
0 4,  3420 


04.3421 

04. 3422 

04.3423 

04 .3424 
04,  3425 


1 3423  0 
1 3426  0 
1 3426  0 
3 4752  0 
55*167  1 
1 3451  C 


INDEX  UPVERB 

TC  F +1 

TC  F +3 

TCF  0HWELL1 

TC  F OH  WE  L LI 

CA  TWO 

TS  COMPNUMB 

TCF  OH  V»E  L L2 


BRANCH  DEPENDING  ON  WHETHER  THE  UPOATF 
VERB  REQUIRES  A FIXED  OP  VARIABLE  NUMBER 

V70  FIXED.  (OF  COMPONENTS. 

V 7 1 VARIABLF  - GO  GET  NO.  OF  COMPONENTS 
V7 2 VARIABLF  - GO  GET  NO.  OF  COMPONENTS 
V73  (AND  V70)  FIXED 

SET  NUMBER  OF  COMPONENTS  TO  2. 

GO  GFT  THE  TWO  UPDATE  COMPONENTS 


0246 
3247 
024  8 
0249 
3257 
0251 


REF  1 
REF  861 
REF  1 
REF  30° 
RFF  1 1 
RFF  1 


LAST  1361 

l A ST  1371 
LAST  711 


04 , 3426 
74,  34  2 7 
04,  3430 
04 ,3431 
C 4 , 34,2? 
04  ,3433 


3 3521  1 
54  156  1 
3 3522  1 

0 4616  1 
20  3 34  1 

1 37  16  0 


0HWFLL1 
+ 2 


CAF  ADUPRUFF 

TS  MPAC  +2 

CAF  UP  LOAON  V 

TC  BANKCALL 

CADR  GOXDSPF 

TCF  UPOUT  4 


7 REQUEST  USER  TO  SEND  NUMBER  7 
7 OF  COMPONENTS  P AR  AM  FT  ER  ( I l>  • 7 
(CK4V32  PETUPNS  HERE  IF  V 3 2 ENCOUNTERED) 
DISPLAY  A FLASHING  V21N01 
TO  REQUEST  II. 

V34  TERMINATE  UPDATF(P27)  RETURN 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZF«LINA  BY  ZOROASTER 
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GAP: 


L UPDATF  PROGRAM 


25?  REF 
-253  PFF 
"254  REF 
0255  PEF 
C256 

3257  PFF 
0258  REF 
0250  RFF 

. 2 5 :■ 

0261  RFF 
026?  RFF 
0263  RFF 


3 LAST  1377 
1 

.c  LAST  1313 
7 LAST  1377 

4 LAST  1378 
P LAST  1 37  8 


5 LAST  1378 
° IAST  1378 
5 LAST  1377 


04,  3434 
04  ,34?5 
C4.3426 
04,  34,37 

04.3440 

04. 3441 

04. 3442 

04.3443 

04. 3444 
04  ,3445 

34.3446 

04. 3447 


1 3430  1 
0 3512  1 
4 4752  1 
6 1173  0 

r 0006  1 

6 3430  0 

4 1173  1 
6 4362  1 
C CCC  6 1 
6 3430  0 
21' 173  0 

5 5' 1 6 7 1 


TCF  OH  WE  L Li  +2 

TC  CK4V32 

CS  RIT2 

AD  UPBUFF 

EXT  END 

BZMF  PH  WF  L Li  *2 

CS  UPBUFF 

AD  JP21 

E XTEND 

BZMF  OHWELL  1 +2 

CAE  UPBUFF 

TS  30MPNUMR 


3 0264 


UPBUFF  LGADi  NG  SECUFACC 


0265 
n?66 
267 
0268 
0269 
32  7? 
0271 
( 27? 

0273 

0274 
-275 
02  76 
02  7 7 
0273 
02  79 


REF  6 
REF  862 
RFF  2 
PFF  310 
RFF  12 
RFF  2 
RFF  2 
RFF  2 
REF  7 
RFF  6 

REF  1 
RFF  3 


LAST  1377 

LAST  1378 
LAST  137  7 
LAST  1377 
LAST  1377 
LAST  1377 
LAST  1377 
LAST  1377 
LAST  1378 
LAST  1378 
LAST  1378 


LAST  1378 


C 4,  3450 
04  ,3451 
C4.345  ? 
04,  345  3 
04  ,3  454 
C 4 , <4C5 

04. 3456 

04.3457 
04,  3460 
04  ,3461 
C4, 3462 
04,  346  3 
04,3464 
0 4,  346  5 
04,3466 


25*172  1 
3 3666  1 
6 1172  1 
54  156  1 

3 3522  1 
C 4616  1 

20334  1 
1 3716  0 
1 3454  C 

0 3512  1 

4 1 172  0 
6 1167  0 
C 0006  1 
6 3467  1 

1 3450  1 


DHW  ELL  ? 

+ 2 
+3 


I NCR  UPCCUNT 

CAF  ADUPBFM1 

AD  UPCOUNT 

TS  MPAC  +2 

CAF  JPLOADNV 

TC  BANKCALL 

CADR  30X0SPF 

TCF  J POUT  4 

TCF  0HWFLL2  +3 

TC  CK4V32 

CS  UPCCUNT 

AD  2 QMPNUMB 

EXTEND 

BZMF  UPVERIFY 

TCF  3HWFLL2  -1 


R 0 280 


VFKIFY  SEQUENCE 


02  81 
028? 
3 283 

02  84 

3 285 
3286 
r>287 
0 288 

02  89 
C290 

3 ?9 1 
02q? 
0293 
3294 
0295 


REF  1 
REF  863 
REF  1 
RFF  311 
RFF  1 3 
REF  3 
RTF  1 
REF  ? 
RFF  3 

RFF  2 
RFF  4 
REF  7 
REF  57 


LAST  1378 

LAST  1378 
LAST  1378 
I AST  1378 

LAST  1378 
LAST  10  7 

LAST  1378 
LAST  1378 
LAST  1378 
LAST  13U 


04,  3667 
04  ,3470 
04,  3471 

04.3472 

04 .3473 
C 4,  3474 
04  ,3475 
C 4 ,34  76 
04,  3477 
04,3500 
C 4,  35C1. 

04.3502 

04.3503 
04,  -3 5C 4 
04  ,3505 


3 3520  0 
54  156  1 

2 3523  0 

0 4616  1 
20334  1 

1 3716  0 
1 3524  0 
C 3512  1 

3 1166  1 
C 0006  1 
6 3467  1 

4 1 166  0 
6 1167  0 
6 4753  1 
0 0006  l 


UP  VFR  IFY  CAF 


CADR 

TCF 

TCF 


EXT  END 
R7MF 


AOUPTEMP 
MPAC  +2 
UPVRFY  NV 
BANKCALL 
GOX  DSPF 
UPCUT4 
UP  STORE 
CK4V32 
UP  TEMP 

UPVERI  FY 
UPTFMP 
C-OMPNUMB 
B I Tl 


USER  'S  PAGE  NO.  5 E 3 S4 


OATA  OR  V 32  PF TURN 

IS  II (NUMBER  OF  COMPONENTS  PARAMETER) 
.GF  . 3 AND  .LE.  20D. 


SAVF  II  IN  COMPNUMB 


INCREMENT  COUNT  CF  COMPONENTS  RECEIVED. 
CALCULATE  LHC  A TI  ON  ( EC  ADR)  IN  UPBUFF 
WHERE  NEXT  COMPONENT  SHOULD  BE  STORED. 
PLACE  ECAOR  INTO  R3  . 

(CK4V32  RETURNS  HERE  IF  V32  ENCOUNTERED) 
DISPLAY  A FLASHING  V2  INC  1 
TO  REQUEST  DATA. 

V34  TERM  INA  TF  UPDATE(P27)  RF  TURN. 

V33  PROCEED  RETURN 

DATA  OR  V32  RETURN 

HAVE  WE  FINISHED  RECEIVING  ALL 

THE  OATA  WE  EXPECTED. 

YES-  GO  TO  VERIFICATION  SEQUENCE 
NO-  RFQUFST  ADDI  TI  CNAL  DATA. 


PLACE  ECADP  WHERE  COMPONFNT  NO.  INDEX 
IS  TO  BE  STORED  I N TO  R3. 

(CK4V32  RETURNS  HERE  IF  V 32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N02  TO  REQJEST 
DATA  CORRECTION  OR  VERIFICATION. 

V 34  TFRMINATF  UPDATFIP27)  RETURN 
V33  DATA  SF  NT  IS  G COD.  GO  STORE  IT. 
COMPONENT  NO.  INDEX  OR  V 32  RETURN 
DOES  THE  COMPONENT  NO.  INDEX  JUST  SENT 
SPECIFY  A LEGAL  COMPONENT  NUMBER? 

NO,  IT  IS  NOT  POSITIVE  NONZERO 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  70R0ASTER 


0 296 
0297 
0 298 
02  9*3 


UPDATE  PROGRAM 


REF 

REF 

REF 

RFF 


LAST  1378 
LAST  1378 
LAST  1778 
LAST  1378 


04,  3506 
04  ,3507 
C4.3510 
04,  35  1 1 


6 3467  1 
3 3666  1 
6 1166  1 
1 3453  1 


UP  VER I FY 
ADUPBFM  1 
UPTEMP 
0HWFLL2  + 


LAST  1377 


EQUALS  J POUT 


RO 30  ) 


CHECK  FOR  VERB  32  SEQUENCE 


0302 
0 30  3 
03  04 

0305 

0306 

0307 


REF  864 
RFF  58 
REF  451 
REF  3 84 
REF  385 


I AST  1378 
LAST  1385 
LAST  137  1 
LAST  1373 
LAST  1379 


04,3512 
C 4 , 3 5 1 3 
04,  35  14 
04,3515 
04,  3516 


4 j 154 
1 4746 
10  000 
C 0002 
CC2 


04,3517  7 '777 1 0 


TC 


0 30  8 

0309 

0310 
0 311 

0312 

0313 


REF 

RFF 


LAST  10*>o 
LAST  1345 


n4  ,3520 
04, 3521 
04  ,3522 
04,3523 
4 3fc2 
4756 


01166  1 
01173  0 
05201  1 
052C2  1 


ADUPTEMP  AORES 
ADUPBUFF  ADRES 
UPLOADNV  VN 
UPVRFYNV  VN 
UP  21 


UPT  EMP 
UPBUFF 
2101 
2 102 
MO  1 


UP  DTP  HAS  EQUALS  FIVF 


PRE-STORE  AND  FAN  TO  APPROPRIATE  BRANCH  SEQUFNCE 


0316 


04,3524  UPSTORE  EQUALS 

04,3524  C 0GC4  0 INHINT 


0317 

0318 

0319 

032  0 

0321 

0322 


REF  32 
RFF  286 
P EF  l 


LAST  1*6  3 


0 4,  3 5 25 
04,3526 
0 4,  3 5 27 

04.3530 

04.3531 


LAST  1370  04,  3532  54  1c3  1 


CAE 

XCH 

CAF 

EXTEND 

RXGR 

TS 


0326 

0327 

0328 


LAST  1377  04  ,3533 

04,  3C  34 
04, 3535 


0 5364  0 
C4C26  1 
0 0004  0 


TC  PHASCHNG 

OCT  .04026 

INHINT 


0 3 29 
0 330 
0331 
0 332 


LAST  1 37  7 '4,8536 

LAST  1377  04,  3537 

04  ,3540 
04  ,3541 

VERB  73  BRANCH 


0006  1 
3550  1 


CS  two 

AD  UPVERB 

EXTEND 

R7MF  UPFNDVAC 


REF  11  IAST  1379  .'4,  3543 


UPBUFF 
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NO 

YES-  BASED  ON  THE  COMPONENT  NO.  INDEX 
CALCJLATE  THE  ECADR  OF  LOCATION  IN 
UPBUFF  WHICH  USFR  WANTS  TO  CHANGE. 


COMES  HERE  ON  V 34  TO  TERMINATE  UPDATE 


ON  DATA  RETURN  FROM  'GCXDSPF' 

ON  DATA  RETUPN  FROM  "G0XDSP"6  THE  CON- 
TENTS OF  MP AC  = VERB.  SO  TEST  FOR  V32. 
IT'S  NOT  A V 32,  IT'S  DATA.  PROCEED. 

V32  ENCOUNTERED  - GC  BACK  AND  GET  DATA 

ADDRESS  OF  TEMP  STORAGE  FOR  CORRECTIONS 
ADDRESS  OF  UPDATE  CAT  A STORAGE  BUFFER 
VERB  21  NOUN  01 
VF.PB  21  NUUN  02 

DEC  21  = MAX  NO  OF  COMPONENTS  +1 


GROUND  HAS  VERIFIED  UPDATE.  STORE  DATA. 


INVERT  VERI  FLAG  ( B IT3  OF  FLAGWPD7)  TO 
INDICATE  TO  THF  GROUND!  VIA  DOWNLINK) 

THAT  THE  V33  (WHICH  THE  GROUND  SENT  TO 
VERIFY  THE  UPDATE)  HAS  BEE  N SU  COES  S FJ  LLY 
RECEIVED  RY  THE  UPDATE  PROGRAM 


SET  RESTART  GROUP  6 TO  REDO  THE  UPDATE 
DATA  STORE  IF  A RESTAPT  OCCURS. 
(BECAUSE  PHASCHNG  DIO  A RELINT) 


GO  TO  UPFNDVAC.  IF  INSTALL  IS  REQUIRED, 
THAT  IS  , IF  IT'S  A V70  - V 72. 

GO  TO  UPEND  73  IF  IT'S  A V 73. 


V 73-P  ER  FORM  DP  OCTAL  AGC  CLOCK  INCREMENT 


GAP:  ASSEMBLE  REVISION  56  OF  ASC.  PR  CORAH  ZERLINA  BY  ZOROASTEP 

L UPDATE  PRCGRAM 


0:12  OCT.  21,  1970  SKIPPER 
USER'  S PAGE  NT.  7 


.121  PAGE  1380 
E3  S4 


) 3 36 
j 3 77 
0338 

0739 


PCF  12  LAST  1375 

REF  I 

REF  8 LAST  827 

RFF  A LAST  1379 


04,3594  57*204  1 

04. 3545  C 3573  C 

04.3546  G 4364  1 

04.3547  0 3716  1 


DXCH  UP  PUFF  + 8D 
TC  TIMEOIDL 

TC  FALTtlN  ERROR.-  TURN  ON  * OPE  RATCR  ERROR*  LIGHT 

TC  UPOUT  +1  GO  TO  COMMON  UPDATE  PROGRAM  EXIT 


0740 

341 
7342 
0343 
0 743 
‘ 344 


RFF  7 LAST  1327 

RFF  42  I A ST  1356 

REF  6 I AST  1376 

REF  1 

REF  1 

RFF  147  LAST  1372 


04,  7550  3 4355 

04,7551  ( 5105 

E 3,  17T6 

04,355 2 03555 

C 4 ,7553  1 7103 
04,  7 e 54  C 5155 


0 

0 

1 

1 

0 


UP  FNDVAC 


CAF  chrprto 

TC  FI  NOV  AC 

E B ANK=  TEPHFM 
2C  ADR  UP  JOB 


TC  ENOCFJCB 


IUSF  EXTENDED  VERB  PRIORITY) 

GET  VAC  AREA  FOR  'CALL  I NT  STA  L L ' 

(NOTE:  THIS  WILL  ALSO  SET  EBANK  FOR 

•TFPHEM*  UPDATE  BY  V70  ) 


0 345 
0746 
C 3 4 7 
A f'348 


RFF  234 


REF  38 


LAST  1254 
LAST  1213 


4,3555 
04,1556 
04,  3557 


0 6051  0 
77624  l 
27410  1 


UPJOB 


TC  INTPRET 

CALL 

I N T STA 1 L 


THIS  COULD  BE  A STATE  VECTOP  UPDATE — SO 
WAIT  ( P J T JOP  TO  SLEEP)  IF  ORBIT  INT(OI) 
IS  IN  PROGRESS--OR— GPA8  01  AND  RETJRN 
TD  UPWAKE  IF  DI  IS  NOT  IN  PP05RE  SS. 


0747 


04,3560  77776 


UP  WAKE  EXIT 


0350  REF  113  LAST  1370 
0 351 


0 5364  0 
C4026  1 


TC  PHASCHNG 

OCT  3 402  6 


RESTART  PROTEC  T (GR  CUP  6) 


352 
«t  353 
0 354 
0355 


REF  77  L AST  1354 
REF  5 LAST  1232 


04, 3563 
.74  ,3544 

74.3565 

04. 3566 


G 5 5 1 5 C 
00236  0 
C CCC4  0 


UP  PAR  T 3 


TC 

A OP  ES 
INHINT 
EQUAL  S 


UP  FLAG 
p E INTFLG 


SET  INTEGRATION  RESTART  BIT 


: 356  RFF 
? 357 

0358  PFF 

0359  REF 
7367  REF 


LAST  1379 


04,3566  51*171  1 

C4, 3567  1 3570  1 

04.3570  1 3727  1 

04.3571  1 3636  0 

04. 3572  1 3670  1 


INDEX  JPVERB  BRANCH  TO  THE  APPROPRIATE  UPDATE  VERB 

TC F +1  ROUTINE  TO  ACTUALLY  PERFORM  THE  UPDATE 

TC  F UP  ENO  70  V 70 

TCF  JPEN071  V71 

TC  F UPEND72  V72 


R 0 361 


ROUTINE  TO  INCREMENT  C L CCK  IT  I ME2,  T IM  El  ) WITH  CONTENTS  OF  DP  WORO  AT  UPBUFF. 


0364 

0365 
3366 
0367 
0 36  8 


REF  7 
REF  276 

REF  37 
REF  13 


LAST  1379 
LAST  1376 

LAST  1326 
LAST  1380 


04,  3574 
04,3575 
04,  3576 
04  ,3577 
04  ,3600 


C CCC6  1 
23*166  1 
3 4755  1 
22  007  0 
52  025  1 
5 3*216  1 


T I MFD  1 0 L 


EXTEND 

QXCH 

CAF 

ZL 

QXCH 

OXCH 


UP  TEMP 
ZERO 

T IME2 

UPRUFF  +18  D 


SAVE  Q FOR  RFTURN 

ZERO  AND  SAVE  TIME  2, TIME  1 

STORE  IN  CASE  OF  OVERFLOW 


0369  REF  1 

0370  REF  287  LAST  1379 

3371 

0-372  RFF  4 LAST  874 


04. 360 1 3 4756  1 

04.3602  54  001  1 

04. 3603  4 OCCO  0 

04,  3604  52  764  0 


CAF 

TS 

COM 

OXCH 


UPOTPHAS  DO 

L A 

QU  I CK 

-PHASE6  PHASCHNG 


0373 


04,3605  C 0004  0 


TIMEOIOR  INHINf 


GAP  : 


ASSEMBLE  REVISION  56  OF  AGC.  PRCGPAM  ZERLINA  BY  ZOROASTER 


L UPDATE  PROGRAM 


' 374 
0 37  5 
3376 
• 1 377 
0378 


REF  277 

REF  865 
RFF  14 
REF  866 


LAST  1380 

LAST  1379 
LAST  13R0 
LAST  1381 


04  ,3606 
04,3607 
0 4,  36  10 
C 4 ,361  1 
C 4,  3612 


3 4755  1 
22  007  0 
54  156  1 
53*204  1 
52  155  1 


CAF  ZERO 

ZL 

TS  MPAC  + 2 

OX  CH  JPBUFF  +8D 
DXCH  MPAC 


0380 

3331 

0382 

0383 

0384 
0 385 
3386 


RFF  15 
REF  867 

PEF  1 
REF  278 
REF  16 
REF  38 


LAST  1381 
LAST  138  1 


LAST  138  1 
LAST  1381 
LAST  1380 


04,3614 
04,  36  15 
04  ,3616 
C4  ,3617 
0 4,  36  20 
04  ,3621 
04,  3622 


C 0006  1 
3 1216  0 
20  155  1 
0 0006  1 
1 3626  1 
3 4755  1 
53*216  1 
20  C25  1 


EXTEND 

DC  A UPBUFF  +180 
DAS  MPAC 

EXTEND 

BZF  OELTATOK 

CAF  ZERO 

DXCH  UPBUFF  +18D 
DAS  T1ME2 


REF  114  LAST  1380 


04,362?  0 5364  0 

04,3624  04026  1 


TC  PHASCHNG 

OCT  34026 


3389 


REF  8 LAST  1330 


04,  3625  0 1166 


TC  UP  TF  MP 


0390 

0301 

039?- 


KEF  19  LAST  1326 
PFF  868  LAST  1381 
RFF  30  LAST  138  1 


04  ,3626  C 7271  1 
C 4 , 3627  52  155  1 

04,  36  3c  20  C2  5 1 


DELT ATOK 


TC 

OXCH 

DAS 


TPAGR  EE 
MPAC 
T I ME  2 


0383  REF  115  LAST  1381 
3 394 


04.3631  C 5364  0 

04.3632  04026  1 


TC  PHASCHNG 

OCT  04026 


0395 

0 396  REF 
03  97 


I A ST 


1381 


0 * ,3633  C 00C4  0 
04 ,3634  5 L*  166  1 

04, 3625  0 000 1 0 


1 0398 


VERB  71  BRANCH 


IN  HINT 

INDEX  UPTEMP 
TC  1 


3393 
04  00 

04!'  1 
3 43? 


REF  17  LAST  1381 
RFF  88  LAST  135  3 
PFF  10  LAST  1314 
REF  10  LAST  1381 


C 4,  3636  31*  174  1 

04, 3637  54  003  0 

04,3640  7 4357  0 

04,  364  1 55*  1 66  0 


UP  END  71 


CAE  UPBUFF  +1 

TS  EBANK 

MASK  LOWS 

TS  UPTEMP 


0405 

0406 
3 437 

0408 

0409 


6 

P 


REF  1 

RFF  33  LAST  1321 
RFF  452  LAST  1379 
RFF  2 LAST  1377 


04,3642  6 7757  0 

C 4 , 36  4 3 £ 1167  0 

04,  3644  0 0006  1 

^ 4 , 3 64  5 1 3653  0 

C 4,  3646  7 4743  1 

04,3647  10  000  0 

04,3650  1 3764  0 


AD 

AD 

E XTEND 
BZ  F 
MASK 

CCS 

TCF 


NEG3 

COMPMJMB 

STDRLP71 

BIT9 

A 

JPERROUT 


341  PFF  7 LAST  13fi1  (34,  365  1 3 7 757  0 CA  NEG3 

411  RTF  O LAST  1381  04  ,365?  6 1167  0 AD  mMPNUMP 

8412  REF  8 6°  LAST  1381  04,3653  54  154  0 ST0RLP71  TS  MPAC 

0413  PFF  453  LAST  13r  1 04,  3654  50  000  1 INDEX  A 

0414  RFF  IP  LAST  1381  C4.3655  3 1175  0 CA  JPeUFF  +2 
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USER'S  PAGE  NC. 


E 3 S 4 


PICK  UP  INCREMENTFRIAND  ZERO 
IT  I N CASE  CF  REST  ARTS  ) AND 
STORE  IT 

INTO  MPAC  FC1R  TPAGREE. 


FORM  SUM  I N MPAC 
TFST  FOR  OVERFLOW 

OVERFLOW,  RFSTOPF  OLD  VALUE  OF  CLOCK 
AND  TURN  ON  OPERATOR  ERROR 

RESTART  PROTECTIGROUP  6) 

GOTO  ERROR  EX  IT 
FORCE  SIGN  AGREEMENT 
INCREMENT  TIME2  ,TIME1 
RESTART  PROTECTIGROUP  6) 


(CODED  THIS  rl  AY  FOR  RESTART  PROTECTION) 
NORMAL  RETURN 


SET  EBANK 
ANO 

CALCULATE 

S-REG  VALUE  OF  RECEIVING  AREA 

IN  THE  PROCESS  OF 
PERFORM  ING 

THT  S UPDATE 
WILL  WE 
OV  EPFLOW 

INTO  THE  NEXT  EBANK.... 

YES 


NC-  CALCULATE  NUMBER  OF 

WORDS  TO  BF  STORFD  MINUS  ONE 

SAVF  NO.  OF  WO  R OS  REMAINING  MINUS  ONE 

TAKE  NEXT  UPDATE  WCRD  FROM 

UPBUFF  AND 


3A0:  ASSEMBLE  PFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


l UPDATE  PROGRAM 


0415 

0416 
3 417 

0418 

0419 

0420 

0421 
9422 
0423 

*?4 

342^ 

<9426 


REF  288  LAST  1380 
PFF  P7T  LAST  1381 
PFF  11  LAST  1381 
RTF  454  LAST  1381 


PCF  7 LAST  1380 
PEF  871  LAST  1382 
REF  2 LAST  13ei 
PFF  5 LAST  1 38  P 
REF  19  LAST  1381 
RFF  6 LAST  1382 


04,3556  54  DC  1 1 

04,3657  3 "9154  1 

04,  3660  t H66  1 
04,3661  50  000  1 

E 3, 1 400 

0 4,  366  2 2 3*400  1 

E3  ,1706 
C 4,  3663 
04,3664 
C4.3665 
04, 3666 
04  ,3667 


TS  L 

CA  M P AC 

AD  UP  TEMP 

INDEX  A 
E8ANK=  1400 
LXCH  1 40C 
EPAN  K=  TEPHFM 
CCS  MPAC 
TCF  STORl.P  7 1 
J POUT 
UPBUFF  -1 

upout 


1C  154  0 

1 3653  0 

1 3715  0 TCF 

01172  1 A0UPPFM1  AORES 

1 3715  0 TCF 


R 427 


VERB  7 2 BRANCH 


0429 
04  3: 
0431 
0 4 32 
0433 
04  34 

0435 

0436 

0437 
0433 

0439 

0 440 

0441 

0442 

0443 

0444 
0 44  5 


PFF 

RFF 

REF 


55 


REF  3 
PFF  50 
RFF  11 
REF  87? 
RFF  456 
RFF  20 
REF  457 
PFF  873 
RFF  0 7 4 
REF  458 
REF  21 
R EF  89 
REF  20 
RFF  459 


REF  R 
REF  875 
RFF  1 


LAST  1378 

'AST  1381 
LAST  1382 

LAST  1381 
LAST  1378 
LAST  1382 
LAST  1382 
L AST  138  2 
LAST  1382 
L AST  1382 
LAST  1382 
LAST  1382 
L AST  1 38 2 
LAST  1382 
LAST  1381 
LAST  13ft  1 
LAST  1382 


04,3670 
C4 ,’‘6  71 
04,  3672 
4 ,3673 
04,3674 
04,  3675 

34 .3676 

04. 3677 
0 4,  3700 
C 4 , 3 7C 1 
C 4,  37C2 

4,37  1 
04,3  70  4 
0 4,  370  5 
04 ,3706 
04,  3707 
0 4,  3710 
3 4 ,-’711 
P?,  1400 
04  ,3712 
E3  , 1706 
04,  37  13 
04  ,3714 


3 4753  1 
7 1167  1 

1C  CCO  C 
1 3675  1 
1 3764  C 

4 4752  9 

6 1167  0 
54  154  0 
50  OCO  1 
31*174  1 
22  COO  1 
1C  154  ( 
54  154  0 
5C  000  1 
31 ' 174  1 
54  CC3  0 

7 4357  0 
50  000  1 

23*400  1 

10  154  0 
1 3677  0 


UPEND72  CAF  6IT1 

MASK  COMPNUMB 

CCS  A 

TCF  +2 

TCF  UPERROUT 

C S 3 I T2 

AD  COMPNUMB 

LD  LOOP72  TS  MPAC 


INDEX  A 

CAE  UPBUFF  +1 
LXCH  A 
CCS  MPAC 
TS  MPAC 

INDEX  A 

CAE  UPBUFF  +1 
TS  E8ANK 

MASK  LOW  8 
INDEX  A 
E B A NK=  1400 
LXCH  1400 
EBANK=  TEPHEM 
CCS  MPAC 
TCF  LDL00P72 


RD451 


NORMAL  FINISH  3 F P 27 


f 455 
0456 
04  5 7 
04  58 


REF  1 
PEF  5 
REF  5 
PFF  270 
REF  1 1 
RFF  l 


LAST  1377 
I AST  1377 
LAST  1381 
LAST  1377 


04  ,3715 
04,3715 
04,  37  16 
04  ,3717 
C 4,  3720 
0 4,  37  2 1 
04,3722 


C 3137  1 
21*170  0 
0 5325  0 
3 4755  l 
54  333  0 
0 3771  0 


UPOUT  EQUALS 

TC  INTWAKEU 

+ 1 CAE  UPOLDMOD 

TC  NtWMODEX 

CAF  ZERO 

TS  0 N L S TC  00 

TC  JPACTOFF 
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USER'S  PAGE  NO.  9 E3  S4 

SA  VF  IT  IN  L 
CALCULATE  NEXT 
RECEIVING  AOORESS 


UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

ARE  THERE  ANY  WORDS  LEFT  TO  BE  STORED 
YE  S 

NO-  THEN  EXIT  UPDATE  PPOGRAM 

SAMF  AS  ADUPBUFF  BUT  LESS  1 ( OON ' T MOVE) 

NO-  EXIT  UPDATE (HERE  WHEN  COMPNUMB  = 31 


HAVE  AN  000  NO.  OF  COMPONENTS 
BEEN  SENT  F03  A V 72  UPDATE... 

YF  S 

ERROR-  SHOULD  BE  ODD  NO.  OF  COMPONENTS 


NOW  PERFORM  THE  UPDATE 

PICK  UP  NEXT  UPDATE  WORD 

SET  POINTER  TO  ECAORCMUST  BE  CCS) 


PICK  UP  NEXT  ECADR  OF  REG  TO  BE  UPDATED 
SET  EBANK 

ISOLATE  RELATIVE  ADORESS 


UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

ARE  WE  THROUGH  THE  V72  UPDATE... 

NO 


RELEASE  GRA8  OF  ORBITAL  INTEGRATION 
RESTORE  PRIOR  P27  MOOE 


TURN  OFF  'UPLINK  ACTIVITY 


LIGHT 


: 


SSEMBLE  REVISION  56  OF  ACC  PROGRAM  ZERLINA  P.Y  ZOROASTER 


L UPDATE  PROGRAM 


045  ° 
0 460 
D 46 1 


RFF  25 
REF  5 


LAST  1302 
LAST  1380 


04.3723 

04.3724 
C4, 3725 


0 0006  1 
3 4755  1 
52  764  0 


EXTEND 

DC  A NEGO 

DXCH  -PHASE6 


0462 


REF  4?  LAST  712 


04  ,3726  0 5503 


TC  ENDEXT 


R3463 


VERB  70  BRANCH 


0464 

0465 
3466 
0467 


04,3727  0 3006  1 

RFF  22  LAST  1382  04,3730  4 11  74  0 

REF  23  LAST  1383  04,  373  1 5 2 • 2C4  1 

REF  2 LAST  1380  04,3732  0 3573  0 


UP  END70 


EXTEND 

DCS  JP8UFF 

DXCH  UP  BUFF  +BD 
TC  TIMEDIDL 


468  REF 


LAST  1382  C4 , 3 7 33  C 3764  1 


TC  UPERROUT 


0460 
0470 
347  1 

0472 

0473 

0474 

0475 


REF  9 LAST  1 38  2 

REF  24  LAST  13B3 
REF  25  LAST  1383 

REF  26  LAST  1 3fl  3 
RFF  27  LAST  1383 


E 3,  1706 

04.3734  0 0006  1 

04. 3735  4 1174  0 

04  ,3  7 36  5 3' 206  0 

04  ,3  737  0 0006  1 

04, 3740  4 1174  0 

04  ,3741  53*210  1 


EBANK=  TEPHEM 
EXTEND 

DCS  UPBUFF 

DXCH  UPBUFF  +10D 
EXTEND 

DCS  UPBUFF 

OX  CH  JPBUFF  +12D 


PEF  116  LAST  1381 


04. 3742  C 5364  0 

04.3743  04026  1 


TC  PH  AS  CH  NG 

DC  T 0 4026 


f'478  RFF  280 
3 4 79 

0480  REF  28 

0481  RFF  5 


LAST  1382  04,3744 

04, 3745 
1 AST  1383  i4  ,3746 

LAST  509  04,3747 


3 .4755 
^ CC  7 
53*206 
21*  571 


0 

0 

1 


CAF  ZERO 

ZL 

DXCH  UPRUFF  + 10D 
DAS  T ETCS  M 


04 H2  RFF  28 1 

04H3 

3 48  4 REF  29 
0488  RFF  4 


LAST  138  3 

LAST  1383 
LAST  620 


04,  3750 
04,3751 
04,  3752 
04,3753 


3 4755  1 
22  007  0 
52*210  1 
2 1 '643  0 


CAF  ZERO 

ZL 

DXCH  UPRUFF  +12D 
DAS  TETLFM 


0486 
) 4 0 7 
0488 


RFF  282 

RFF  30 
RF.F  1C 
RFF  1 1 


LA  ST 

LAST 

LAST 

LAST 


1383 

1383 
1383 
138  3 


04,3754 
04,  3755 
04  ,3756 
04,3757 
04,  3760 


5 3 ' 17  A 0 
21*710  1 
27*706  C 


CAF  ZERO 

ZL 

DXCH  UPRUFF 

DAS  TEPHEM  +1 

ADS  TFPHEM 


0491  REF  117  LAST  1383 

D492 

0493  RFF  31  LAST  1383 

0494  REF  7 LAST  1382 


1 173 
04  ,3763 


0 5364  0 
C4C26  1 

0 37  15  1 


TC  PHASCHNG 

OCT  04026 

F BANK  = UPBUFF 

TC  UPOUT 
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USER'S  PAGE  NO.  1C  E3  S4 

K F L L GROUP  6. 


EXTENDED  VERB  EXIT 


V70  DOES  THE  FOLLOWING  KITH  DP  DELTA 
TIME  IN  UPBUFF 

DECREMENT  AGC  CLOCK 

ERROR  WHILE  DECREMENTING  CLOCK  --  EXIT 


COPY  DECREMENT ERS  FOR 
RE  START  PROTECTI  ON 


RESTART  PROTECT  (GROUP  6) 


OF  C RE  ME  NT  C SM  STATE  VFCTOR  TIME 


CECPEMENT  L STATE  VECTOR  TIME 


INCREMENT  TP  TEPHEM 

RESTART  PROTEC  TtGROUP  6) 


GO  TO  STANDARD  UPDATE  PROGRAM  EXIT 


GAP:  ASSfc  MR  L6  REVISION  56  OF  AG:  PROGRAM  2ESLINA  BY  ZOROASTER 

L IJPCATE  PROGRAM 


9:1?  OCT.  21,1970  SKIPPER 
USER'S  PAGE  NC.  11 


. 121  PAGE  1384 
E2  S4 


R 0495 


ERROR  SEQUENCE 


'.96  REF 
■ '♦  97  REF 


C 4364  1 UPE&&OLT  TC 

i 3715  o t;f 


FALTCN 

UPOUT 


TURN  ON  ^OPERATOR  ERROR*  LIGHT 
GO  TO  COMMON  UPDATE  PROGRAM  EX  IT 


0 498 

0499 

0500 
AO  50  1 
A05  02 
A 0503 
A}6  ->4 


P EF 
RFF 
PFF 


1C 

2 

43 


LAST  1384 
LAST  1382 
LAST  1383 


C4,^766  0 

04,  3767  G 
04  ,3770  0 

(THE  PURPOSE  OF  UPERROUT  +2  EXIT  IS 
TO  PROVIDE  AN  ERROR  EXIT  WHICH  DOES  NOT 
RESET  ANY  RESTART  GROUPS) 


4364  1 ♦ ? TC  FALTON  TURN  ON  ‘OPEPATOP  ERROR  * LIGHT 

3 7 7 1 0 TC  UPAOTOFF  TURN  OFF'UPLINK  ACT  IV  ITY  *1  I GHT 

5503  1 TC  ENOEXT  EXTENDED  VERB  EXIT 


R0505 


: U PACT  OFF : IS  A 


ROUTINE  TO  TURN  OFF  UPLINK  ACTIVITY  LIGHT  DN  ALL  EXITS  FROM  UPDATE  PROGRAM  ( P2  7 ) . 


0 50  7 
3508 

0509 

0510 


REF  35 

REF  36 
REF  3R6 


LAST 

l AST 
LAST 


1328  04,3771  4 475  1 l UPACTOFF  CS 

T4,  3772  0 0CC6  1 E XTEN9 

1356  04  ,3773  03  011  I WAND 

1379  C 4,  3714  C CCC2  0 TC 


BIT3 

DSALMDUT 

Q 


TURN  OFF  UPLINK  ACTIVITY  LIGHT 
(BIT  3 OF  CHANNEL  11) 


GAP:  ASSEMBLE  REVISION  56  0. 


AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  SKIPPER 


PAGE  1385 


L RTB  OP  COOES 


USER  • S PAGE  NO.  1 EO  S4 


9391 

0002  REF 

0003 


22,  3 7 4 5 

' , 

10,3555 


BANK  22 
SETLOC  R TBCODE S 
BANK 


3094  REF  12  LAST  1254 

0005  RFF  1 


E5, 1664 


FRANK=  XNB 
COUNT*  *S/RTB 


R 0006 


LOAD  TIME  2 , TIME!  I NTC  MPAC: 


0007 

0008  RFF  40 
3.339  REF  2 


10, 3555  C Of  C6  1 
LAST  1381  10  ,3566  3 0026  0 
LAST  1010  10,  3557  1 6C67  1 


LOADTIME  EXTEND 
OCA 
TCF 


T IMF? 
SLCA02 


R001P  CCNVERT  THE  SINGLE  PRECISION  2'S  COMPLEMENT  NUMBER  ARRIVING  IN  MPAC  (SCALED  IN  HALF-REVOLUTIONS)  TO  A 

R 00  12  DP  1 *S  COMPLEMENT  NLM8FR  SCALED  IN  REVOLUTIONS. 


3 • 16 
0017 

00  IB 

00 1 9 

0020 


REF  876  LAST  1302 
REF  ? 83  LAST  I3B3 

REF  40  LAST  1093 


10  154 
H ,3661  3 4755 

10,3562  1 3565 

In,  356  3 1 3 564 

10  ,3564  4 4736 


0 C0U1  3GIC  CC  S 

1 CAF 

C TCF 

1 NOOP 

0 CS 


MPAC 
Z ERO 
+3 


HALF 


0023 
3 9 ? 4 
0C25 
0026 
0027 


RFF  877  LAST  1385 
RFF  284  LAST  i3R5 
REF  878  LAST  1385 

RFF  41  LAST  1385 
P FF  878  | A ST  1385 

REF  64  LAST  127  1 


10. 3565  54  156  l 

10.3566  3 4766  l 

10.3567  56  154  1 

10, 3570  C 0006  1 
10  ,3571  7 4736  0 

IC.  3572  2 C 155  1 

10, 35  7 3 1 60  7 3 1 


TS  MPAC 

CAF  ZERO 

XCH  MPAC 

E XTEND 
MP  HALF 

OAS  MPAC 

TCF  3ANZI 


+ 1 


MOPE  IS  ALREADY  AT  DOUBLE-PRECISION 


FORCE  TP  SIGN  AGREE  RENT  IN  MPAC: 

REF  2(  LAST  138  1 10,  3574  C 7271  l SG  NAG  REE  TC  T PAG  REE 

REF  65  IASI  1385  10,3575  1 6C73  1 TCF  DANZIG 


CONVERT  THE  OP  1 ' S COMPLEMENT  ANGLE  SCALED  IN  REVOLUTIONS  T P A SINGLE  PRECISION  2'S  COMPLFMENT  ANGLE 
SCALED  IN  HALF-REVOLUTIONS. 


0060  RFF  1 

33bl  RFF  28c  LAST  1305 

0062  RFF  880  LAST  1 385 

0063  REF  5 LAST  1038 


10  ,3576  C 3626  0 1 ST02S 

10,  3577  3 47  6 6 i 

10,3601  54  155  I 

10,3601  1 6072  0 


TC  IT02SUB 

CAF  ZERO 

TS  MPAC  + 1 

TCF  NEW  MODE 


R3  3 64 

0065  REF 


DO  1ST02S  ON  A VECTOR  OF  ANGLES: 

LAST  1385  10,3602  0 3626  0 V1ST02S  TC  1T02SUR 


ANSWER  ARRIVES  IN  A AND  MPAC. 


3066  RFF  881 

0067  RFF  882 

0068  RFF  3 


LAST  1385 


K,  3bC  ? 62  1 C 2 

10,  3604  52  155 

1C, 3605  0 3626 


DXOH  MPAC  +c 
DXCH  MPAC 
TC  1T02SUB 


00  70 
0071 
007? 
00  71 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
RTB  OP  COOES 

REF  883  LAST  1385  10,3606  54  156  1 TS 

RFF  8e4  LAST  1386  10,3607  52  160  1 DXCH 

RFF  885  LAST  13?6  10,3610  c2  155  1 DXCH 

RFF  4 LAST  1385  10  ,3611  0 3626  0 TC 

RFF  886  LAST  1?R6  10,3612  c 4 155  1 TS 


MPAC  +3 

mpac 

1T0  2SUB 
MPAC  +1 
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MODE  IS  TP. 


R0078 

0079 

0080 
3 08) 
0082 
0083 
3094 
OC  85 


REF  5 
RFF  889 
PFF  890 
REF  6 
RFF  2e9 
REF  89 1 
PFF  3 


V1ST02S  FOR  2 COMPONENT  VECTOR.  USED  8Y  RR. 
10,  36  17 


LAST  1 3b  6 
IAST  1 3 E 6 
LAST  1386 
LAST  1386 
LAST  1382 
LAST  1386 
LAST  1385 


i ,362 
10, 3621 
■ 

10,3623 
IQ , 36  24 
10  ,3625 


C 3626  C 
52  160  1 
52  155'  1 

0 36  26  0 
54  001  l 
3 0157  1 

1 6067  1 


2V1ST02S  TC 


1T02SUB 
MPAC  +3 
MPAC 
1 TO  2 S UR 


R0086 

0087 
UC  88 
3080 

0090 

0091 

0092 


SUSP  OUT  IMF  TO  30  DOUBLING  AND  l'S  TO  2'S  CONVERSION: 


REF  892  LAST  1386 

REF  460  LAST  1382 
REF  136  LAST  1386 


10.3626 

10.3627 
10, 3630 
10  ,3631 
10,3632 
10,  3633 


52  155  1 
20  001  1 
1C  CCO  0 
6 4753  1 
l 3634  1 
4 OOCO  0 


DXCH  MPAC 
ODCJBL 
CCS  A 

AD  ONE 

TCF  +2 

COM 


FINAL  MPAC  +1  UNSPECIFIED. 


THIS  WAS  REVERSE  OF  MSU. 


TS 


MPAC 


AND  SK  IP  ON  OVERFLOW. 


OC^S 

0096 

0097 
0C98 


PEF  894 
REF  388 


LAST  1386  10,3636 
LAST  1093  10,3637 
LAST  1386  10,3640 
LAST  1386  10  ,3641 


50  Cor.  1 
3 4734  0 
26  154  0 
0 0002  0 


INDEX  A 
CAF  LIMITS 
ADS  MPAC 

TC  Q 


OVERFLOW  UNCORRFCT  AMI  IN  MSU. 


ROl  18 


THE  FOLLOWIN'.  ROUTINE  INCREMENTS  IN  2S  COMPLEMENT  THE  REGISTER  WHOSE  ADDRESS  IS  IN  HUF  BY  THE  IS  COMPL. 
QUANTITY  ECU  NO  IN  T F *>'  2 . THIS  MAY  BE  USED  TO  INCREMENT  DESIRED  I MU  AND  OPTICS  CDU  ANGLES  OR  ANY  CTHER  ?S  COMPL. 
(+0  UNEQUAL  TO  -0)  QUANTITY.  MAY  GE  CALLEC  BY  8 ANKC  AL  L/ SW  C.  AL  L . 


0119 

0120 
0121 
0122 

0123 

0124 


REF  137  LAST  1386 
REF  138  LAST  1386 


10,  3642 

. t 

10,3644 
10,  3645 

. 

10, 3647 


54  142  1 
50  130  0 
1C  COO  0 
6 4753  1 
1 3652  1 
6 4753  1 


IS  COMPL. QUANT.  ARRIVES  IN  ACC.  STORE  IT 
CHANGE  2S  COMPL.  ANGLE!  IN  BUFUNTO  IS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  RY  ZOROASTER 


L RT 8 OP  COOES 


i 2 5 REF  139  LAST  1386 

3126 


10,3650  6 4753  1 

10,  3651  A 0000  0 


AO  ONE 

COM 


0127 
0 12*) 
3130 

131 

132 
Cl  33 
013* 
3 1 35 
013  7 
0 138 


RFF  34 
REF  46? 
RFF  140 


REF  35 

REF  463 
REF  6 
REF  36 


LAST  1386 
LAST  13R6 
LAST  1387 


LAST  1387 

LAST  1337 
LAST  1386 
I A ST  1387 


10.3652 

10.3653 
1C, 3654 
10  ,3655 

10 . 3656 

10. 3657 
10  ,366  0 
10,  366  1 

10. 3662 

10.3663 


6 0142  0 
10  000  0 
6 4753  1 
1 3657  1 
4 CCOO  0 
54  14  2 1 
1 3664  1 
5 C OCO  1 
3 4734  0 
6 014?  0 


AO  TEM2 

CCS  A 

AO  ONE 

TCF  +2 

COM 

TS  TE  M2 

TCF  +4 

INDEX  A 

GAF  I I MI  ' 

AO  TEM2 


0 139 
0 1 40 
0 141 


REF  1 69  LAST  1386 
REF  38*5  LAST  1386 


10, 3664  50  120  0 

1 0 ,3665  54  000  0 

10,3666  C OCO?  0 


INDEX  RUF 
TS  0 

TC  0 
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USER*  S PAGE  NO.  3 E5  S4 

OVERFLOW  HERE  IF  2S  COMPL.  IS  180  DEG. 

SUIT  MOVES  FROM  2ND  TC  3D  QUAD.  (OR  BACK) 
BACK  TO  2S  COMPL. 


STORE  14BIT  OUANTITY  WITH  PRESENT  SIGN 
S IGN. 

FIX  IT, BY  ADDING  IN  37777  OR  4D3DD 


STORE  NEW  ANGLE  IN  2S  COMPLEMENT. 


l.  AP: 


ASS  tV  RL  E REVISION  5t>  OF  AGC  PROGRAM  7ERL  INA  BY  ZOROASTER 


9:12  CCT.  21  ,1970  SKIPPER  .121  PAGE  1388 


L RTH  OP  COOPS 


USER  » S PAGE  NO.  4 E5  S4 


PDl*? 


RTB  TO  TORQUE  GYROS,  EXCEPT  FOR  THF  CALL  TC  IMUSTALL.  ECAOP  OF  COMMANOS  ARRIVES  IN  Xl. 


1*4 

145 

3146 

0147 

0148 


REF  73  LAST  12U 
PFF  70  LAST  1260 
RFF  112  LAST  1378 
RFF  7 LAST  959 
REF  66  LAST  1385 


10  ,3667  50  L20  1 

IO, 1670  3 (046  C 

IP,  167  1 C 46  16  1 

19  ,3672  1727?  1 

1C, 3673  1 6C73  1 


PULSE  I MU  INDEX 


FIXLDG  ADDRESS  OF  GYRO  COMMANDS  SHOULO  BE  IN  XI 

XI 

RANKCA  LL 
TMUPULSF 
DANZIG 


) AP  : 


ASSEMBLE  PFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  n:  T.  21  ,1970 


SKI  PPFR 


PAGE  1389 


RTR  OP  CODES 


USER  'S  PA GF  NO. 


-0  YIFLDS  NEGMAX. 


RD  195 

R 01  9^ 
10  197 
R0198 


« -199 

R020C 

R02p1 


ENTRY  MAY  RE  BY  EITHER  0=  THE  FOLLOWING: 


1.  LIMIT  THE  SIZE  OF  MPAC  ON  INTERPRETIVE  OVERFLOW: 

FNTRY:  BOVB 

S IGNMPAC 


2.  GFNFRATF  IN  MPAC  THE  SIGNUM  FUNCTION  OF  MPAC: 

FNTRY:  RTB 

S IGNMPAC 


1 0202 


IN  EITHER  CASE,  RETURN  IS  TO  THE  NEXT  INTERPRETIVE  INSTRUCTION  IN  THE  CALLING  SEQUENCE. 


3234 

0205  REF  2 

0 206  REF  895 

0207  REF  464 

0208  REF  286 

3239  RFF  4 

0210 

0211 

7212  REF  3 

0213  RFF  5 


LAST  449 
LAST  1386 
LAST  1387 
LAST  1385 
LAST  1386 


LAST  1389 
LAST  1389 


10, 3674 
10  ,3675 
I , 

10,  367  7 
10  ,3700 
10,  37C1 

10. 3702 

10.3703 
10, 37C4 
10  ,3705 


C CCC6  1 
3 4733  1 
52  155  1 
10  000  0 

3 4755  1 
1 6C71  0 
1 37C3  l 
C 0006  1 

4 4733  o 
1 6067  1 


SIGNMPAC  EXTEND 
DC  A 

dxch 

cc  s 

opmode  caf 
TCF 
TCF 

EXT  END 
DC  S 
TCF 


PPOSMAX 

MPAC 

A 

ZERO 

SL0AD2  +2 
+ 1 

DPGSMAX 

SL0AD2 


SETS  MPAC  4-2  TO  ZERO  IN  THE  PROCESS 


l}  214  RTB  OP  CflpF  NORMlJNI  T IS  LIKE  INTERPRETIVE  INSTRUCTION  UNIT,  EXCEPT  THAT  IT  CAN  BE  DEPENDED  ON  NOT  TO  BLOW 

R«21ft  UP  WEFN  THE  VECTOR  BEING  UNITIZED  IS  VERY  SMALL  --  IT  WILL  BLOW  UP  WHEN  ALL  COMPONENTS  ARE  ZERO.  IF  NORMUNIT 

''218  IS  USED  AND  THE  UPPER  C ROE  R IHALVFS  OF  ALL  COMPONENTS  ARE  ZERO,  THE  MAGNITUDE  RETURNFD  IN  360  WILL  BE  TOO  LARGE 

R322D  BY  A FACTOR  OF  2(13)  ANP  THE  SQUARED  MAGNITUDE  RETURNED  AT  340  WILL  PF  TOO  PIG  BY  A FACTOR  OF  2(26). 


222 


02221 
3 222  2 
'2223 
■222  4 

o22?5 


i 223 
7224 
0225 
'226 
7 227 
C 22  8 
r 229 
023(, 
0231 
7232 
•233 
0 234 
7235 


REF  141 
REF  11 
REF  287 
PEF  74 
RFF  89ft 
RFF  313 
RFF  3 
REF  897 
RFF  1 


REF  2 
RFF  898 
REF  3 

RFF  4 
REF  89Q 
RFF  6 

REF  6 


LAST  1387 
LAST  903 
LAST  1389 
LAST  1388 
(AST  1389 
LAST  1388 
LAST  1061 
LAST  1389 


LAST  1389 
LAST  1389 
LAST  1389 


LAST  138  7 
LAST  1389 
LAST  1389 


l C , 3 7 C 7 
10 , 3 7 10 

13.3711 

10.3712 
1C,  3713 

10.3714 

10. 3715 

10.3716 

10.3717 
1 G,  3720 
10  ,3721 
10,3722 
10,  37  2 3 
10  ,3724 
1",  3725 
10,  3726 
10,3727 
10,  3 7 30 


3 4755  1 
6 0 1 20  1 
54  156  1 

0 46 1 6 1 
01010  1 

1C  154  0 

1 3752  0 
1 3721  1 
1 3752  0 
10  157  0 
1 3752  0 
1 3?25  C 
1 3752  0 
1C  161  0 
l 3752  0 
1 3731  0 
1 3752  0 


NORMUNX  1 C AF 
TCF 

NURMUNI T CAF 
AD 
TS 
TC 

CADR 

CCS 

TCF 

TCF 

TCF 

CCS 

TCF 

TCF 

TCF 

CCS 

TCF 

TCF 

TCF 


ONE 

NORMUN  IT 
ZERO 
F IXIOC 
MPAC  +2 
BANKCA  LL 
V ECACREE 
MPAC 
NO  SHI  FT 
+2 

NO  SHI  FT 
MPAC  +3 
NOSHIFT 
+ 2 

NOSHIFT 
MPAC  +5 
NOSH  IF  T 
+ 2 


GET  SIGN  AGREEMENT  IN  ALL  COMPONENTS 


l.  AST 


1389 


NOSHI  FT 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFKLINA  BY  ZOROASTER 


ptr  rp  ceres 


..238 
'<  ?30 
02*') 
0241 
5 2 A 1 l 
'2*1  2 
2 A 1 3 
32414 
0 2 A I 5 
'2416 
0 2 A 1 7 
0241  8 
32419 
o2a? 

0 24  3 


PFF 

REF 

PFF 

RFF 

REF 

RFF 

REF 

RFF 

PFF 

REF 

REF 

PFF 

PFF 


900 

82 
<101 
M ? 

83 

903 

SCA 

PA 

qr  r 
2 

906 

63 

2 


I AST  1389 

LAST  1358 
LAST  1390 
LAST  1390 

LAST  1390 
LAST  1390 
LAST  1390 

LAST  13Q0 
LAST  13«r 
LAST  106  1 
LAST  1390 

LAST  1376 
LAST  100A 


if  ,3732 
1C  ,3733 
1 0 , 3 7 7 A 
10,  7735 
10  ,3736 
If, 3737 
10,37*0 
10  ,3741 
10, 37 A 2 
If'  ,37A3 
\f  , 37AA 
10,  3745 
10  , 3 7A6 
1C, 3747 
1 ; , 3 7 50 
1C,  •'751 


3 0] 55  0 
C 00C6  1 
7 4736  0 

2 L 155  1 

3 0 1 6L  0 
C 0006  1 
7 4736  0 
2C  160  1 
3 0162  1 
0 0006  1 
7 4736  0 
2 C 162  0 
C-  A 76  1 0 
50  156  0 
54  C A 5 1 
C 4635  0 

01024  0 


CA  MP  AC  +1 

E XTEND 

MP  BIT14 

HAS  MP AC 

CA  MP AC  +4 

EXT  EM  0 

MP  PIT1A 

OAS  MPAC  +3 

CA  MPAC  +6 

E XTEND 

MP  BIT1A 

OAS  MPAC  +5 

CAF  THIRTEEN 

INDEX  MPAC  +2 

TS  3 7 D 

0 F F TUN  IT  TC  POSTJUMP 

CADR  J N IT  +1 


? 243 1 RFF  2 8R  L AST  1389 
02432  REF  1 


10,  3752  !•  4 7 5 5 1 NOSHIFT  CAF  ZERO 

1C  ,3753  1 3746  0 TCF  OFFTUN  I T 


RO 300  RTB  VFCSGNAG  ...FORCES  SIGN  AGREEMENT  OF  VECTOR  IN  MPAC. 


0301 

0302 
3333 


REF  314  LAST  1389 
REF  4 LAST  1385 
PFF  67  I AST  1 388 


10, 3756 


0 4616  1 VECSGNAG  TC 
C1010  1 C ADR 

C 6C73  0 TC 


BANKCALL 
V ECAGREE 
DANZIG 


END  OF  SKIPPER  . 121 


9:1?  OCT.  21,1970  SKIPPER  .121  PAGE  1 3go 
USER'S  PAGE  NC.  6 E5  S4 

SHIFT  ALL  COMPONENTS  LEFT  13 

CAS  GAINS  A LITTLF  ACCURACY 


SKIP  THE  "TC  VEC  AGREE  " DONE  AT  UNIT 


2 


GAP  : ASSEMRLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 
L T6-RUPT  PROGRAMS 


9:  12  OCT.  21,  1970  ZLMDAP 
USER'S  PAGE  NO.  1 


.001  PAGE  1391 
EG  S5 


R 0001  PROGRAM  NAMES:  (1)  T6  JPBCHK  MOO.  NO.  5 OCTORER  2,  1967 

R0002  ( 2)  0 0T6RUPT 


ROOCT 

ft  0005 
RDDD6 
ROOD  8 
R0009 
ROD  1.1 
<0^11 
ROM  12 
R COl  1 
100H 
RD015 
ROC  1 6 
ROD  1« 
ROD  20 
ft  0021 
ROD  23 
R 002  5 
ft  0026 
RD  D 2ft 


MCOIFICATICN  BY:  LCWFLL  G FULL  ( A . C . EL  ECTR  ON  I C S ) 

THESE  PROGRAMS  ENABLE  TH r LM  C A F TC  CONTROL  THE  THRUST  TIMES  OF  THE  REACTION  CONTROL  SYSTFM  JETS  BY  USING  TIME6. 
SINCE  TFF  LM  OAP  MAINTAINS  EXCLLSIVE  CONTROL  OVER  TI  ME  6 AND  ITS  INTERRUPTS,  THE  FOLLOWING  CONV  ENT  IONS  HAVE  BEEN 
ESTABLISHEC  ANC  MUST  NGT  BE  T AMPEPED  WITH: 

1.  MO  NUMBER  IS  E VE  P PLACED  I NT  C TIME6  EXCEPT  BY  LM  OAP. 

2.  NO  PROGRAM  OTHER  THAN  LM  DAP  ENABLES  THE  TI  ME  6 COUNTER. 

3.  TO  USE  TIME6,  THE  FOLLOWING  SEQUENCE  IS  ALWAYS  EMPLOYED: 

A.  A POSITIVE  (NON-ZERO)  NUMBER  IS  STORED  IN  TIME6. 

B.  THE  T I M F 6 CLOCK  IS  ENABLED. 

C.  TIME6  IS  INTERROGATED  AND  IS: 

I.  NEVFR  FOUND  NEG  A TI  VE  ( NON-ZE  R C)  OR  +0. 

II.  SOMETIMES  FOUND  POS  IT  IV  E ( BETW  EEN  1 AMD  250D ) INDICATING  THAT  IT  IS  ACTIVE. 

III.  SOMETIMES  FOUND  FOS  MAX  INDICATING  THAT  IT  IS  INACTIVE  AND  NOT  FNA8LED. 

IV.  SOMETIMES  FOUND  NEGATIVE  ZERO  INDICATING  THAT: 

A.  A T6RUPT  IS  ABOUT  TO  OCCUR  AT  THE  NF  XT  DINT,  OR 

R.  A T6RUPT  IS  WAITING  IN  THE  PRI  CRITY  CHAIN,  OR 

C.  A T6RUPT  IS  IN  PROCESS  NOW. 

A)  ALL  PROGRAMS  WHICH  CPFRATE  IN  EITHER  INTERRUPT  MODE  OR  WITH  INTERRUPT  INHIBITED  MUST  CA1L  T6J0BCHK 
EVEPY  5 MILLISECONDS  TO  PROCESS  A POSSIBLE  WAITING  T6RUPT  BEFOPE  IT  CAN  BE  HONORED  eY  THE  HARDWARE. 


P003A  (5.  PRCGPAM  JTLST,  IN  C,R-AXES,  HANDLES  THE  INPUT  LIST.) 

ROD  3 1 TCJOBCHK  CALLING  SEQUENCE: 


AQO  3,2  L TC  T6JQBCHK 

4 0033  L +1  (RETURN) 


RDD35  DDT6RUPT  CALLING  SEQUENCE: 


4 0'J  35 
4 00  36 
AD  ^ 37 
A o 0 3 B 


DXCH  ARUPT  T6RUPT  LEAD  IN  AT  LOCATION  ADDA. 

EXT  END 

OCA  T6ADR 
DTCB 


ROD 39  SUBROUTINES  CALLED:  D0T6RUPT  CALLS  T6J0BCHK. 


HO  GAO  NCRMAL  EXIT  MODES:  T6J0BCHK  RETURNS  TO  L +1. 

ft  0051  DCT6RUPT  TRANSFERS  CONTROL  TO  RESUME. 


RD  '<*?  ALARM/AeORT  MOOES:  NON  F . 


ft  0053 
ROC  55 
ROU4  5 
ft  0156 


INPUT:  TIME6  MX  T6  ADR 

T6NE  XT  T6NF  XT  + 1 

T6FURTHA  T6FUPTHA  +1 
DEBPIS:  T6JDPCHK  CLCRBFRS  A. 


CUT  PUT  : TIME6  NXT6ADR 

T6NEXT  T6NEXT  +1 
T 6 FUR  THA  T6FURTHA  + 
CCT6RUPT  CLOBOFRS  NOTHING. 


CHANNEL  5 
CHANNEL  6 
1 BIT15/CH13 


DD57 


BLOCK  0 2 


GAP:  ASSEMBLE  REVISION  OF  AGC  PROGRAM  ZFRLINA  BY  ZCRGASTER 

L T6-PUPT  PROGRAMS 


9:1?  OCT.  21,  1970  ZLMOAP 
USER' S PAGE  NC.  ? 


.0  1 PAGE  1392 
EO  S4 


00  55 

OC  57 
or.  sr 
3359 


1 7 ,2  051 

REF  1 17, ?0C0 

17  ,2055 

PFF  2 l A ST  226  E6.1466 

REF  1 


BANK  17 
SETLCC  DAPS2 
BANK 

F 0 ANK  = T6  NEXT 
COUNT*  &S/DAPT6 


0060 

3361 

PFF 

REF 

1 

390 

LAST 

17  ,2055 
1387  17,  2056 

0062 

REF 

2C 

LAST 

1136  17.2C57 

0063 

RFF 

21 

LAST 

1392  l 7 , 2 C 60 

R3064 

CO  NT 

ROL 

PASSES 

TO  T6J3R  ONLY 

10  031  1 T6J0BCHX  CCS  T I ME6 

C CCC2  0 TC  0 

G 5706  0 TC  CCSHOLE 

0 5706  0 TC  CCSHOLE 

WHEN  C ( T I ME  6)  = -0  (I.F.  WHEN  A T6R UP 


CHE  C<  T 1 M E 6 FDR  WAITING  T6RUPT: 
NONE:  CLOCK  COUTING  DOWN  • 


T MUST  BE  PROCESS  EO)  . 


0069 
00  70 
Ot7l 
GO  72 
DD73 
0074 


REF  34 

REF  1 
REF  3 
REF  ? 
REF  2 


LAST  1119 


LAST  1392 
LAST  226 
LAST  139  2 


17,2061 
17.2C62 
17,  2063 
1 7 ,206 
17, ?G65 
17,2066 


3 4733  l 
22  CC7  0 
53*471  0 
53*467  1 
23*465  1 
54  031  1 


T6J0H 


CA  POSMAX 

ZL 

DXCH  T6FUP.THA 
DXCH  T6NEXT 
LXCH  NX  T6  ADR 
TS  TIMF6 


0075 
3 3 76 
0077 
or  78 
0079 
OOBO 
338  1 
00812 
OOP  1 25 
D 0 8 1 3 

00814 

00815 
0081 55 
00  81  6 
0382 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 


REF  8 
PEF  465 
REF  1 
PEF  35 
RFF  3 
REF  1 

PEF  3 
PEF  43 
REF  8 

REF  4 
REF  44 
REF  48 

RFF  20 
REF  4 
RFF  9 
REF  466 
REF  2 
RFF  36 
RE-F  5 
RFF  290 
RFF  1 


LAST  1 3°2 
LAST  139  2 


LAST  984 
LAST  1365 
LAST  984 

LAST  13Q2 
LAST  1392 
LAST  1364 

LAST  1325 
LAST  1392 
LAST  1392 
LAST  1392 
LAST  1392 
I AST  139  2 
LAST  1392 
LAST  1386 


17,  20  70 
17  ,2071 
17, 2C72 
17,  2073 
17  ,2074 
17,  2C75 
17,2076 
1 7 ,2  C77 
17,  ? ICO 
17  ,2101 
17,2102 
17,  2103 
17  ,21C4 
17,  2 l (.5 
1 7,  2 1 C6 
17,2107 
17,  2 110 
17  ,21  1 1 
17,2112 
17, 2 113 
17,2114 
17,  2115 
17,2116 


6 7737  0 
54  000  0 

1 2075  0 

2 4739  1 
c 4 C 2 1 1 

1 2115  1 
C C0C6  l 
23*265  1 
22  C70  0 
C 6C22  1 
0 0006  1 

2 3'  2 65  1 
22  070  0 

3 4735  1 
C CGC6  l 
C5  013  0 
3 1466  1 
6 7737  0 
54  000  0 

1 2115  1 

2 4733  1 
5 5*466  0 
5 C C01  0 
1 5754  0 


AD 

TS 

TC  F 

CA 

TS 

TCF 

ENABLET6  EXTEND 
QXCH 
LXCH 
TC 

EXTEND 
QXCH 
L XCH 
CAF 

E X TE  ND 

WOR 

CA 

AD 

TS 

TCF 

CA 

TS 

G0CH56  INDEX 
TCF 


PR  1037 
A 

ENAHLET6 
POSMAX 
TI  MF  6 

G0CH56 

C 13QSAV 
RU  PTRECl 
Cl  3 STALL 

C13QS  AV 
P UPTREGl 
B IT  15 

C HAN  1 3 
T6NEXT 
PRI  G3 7 
A 

GOCH5  6 
PO  SMA  X 
T6NFXT 
L 


0092 

3093 

0094 

0095 

0096 


5 754 

PEF  1 4000 

5754 

RFF  18  LAST  905  E6,1634 

REF  1 


BLCCK  02 
SETLOC  FFTAG9 
BANK 

E BANK=  f. DUX  D 
COUNT*  $$  /DAPT6 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L T6-PUPT  PROGRAMS 


0097 

0098 

REF 

4 

LAST 

226 

57  54 
5755 

3 1472  1 

C 0006  1 

0099 

PFF 

2 

LAST 

219 

5756 

Cl  006  0 

D 103 

RFF 

39  1 

L AST 

1392 

57  5 7 

C 0CC2  0 

0101 

REF 

5760 

B 1473  0 

0 10? 

RFF 

291 

L A ST 

1392 

5761 

54  001  i 

D1D3 

PEF 

1 

5762 

4 5775  0 

0104 

5763 

0 0006  1 

0105 

REF 

3 

LAST 

1017 

5764 

C 2 CC5  0 

01  06 

REF 

292 

LAST 

13o3 

5765 

6 COOl  0 

0107 

5766 

0 0006  1 

D1D8 

REF 

4 

1 AST 

1393 

5767 

Cl  005  0 

0l09 

PFF 

39  2 

LAST 

1393 

5770 

0 0002  0 

0 110 

RFF 

1 

5771 

3 1474  1 

Dll  1 

RF.F 

293 

LAST 

139  3 

5772 

54  001  1 

0112 

REF 

2 

LAST 

1393 

5773 

3 5775  1 

011  3 

5774 

1 5763  1 

0114 

5775 

00314  1 

0 115 

17,21  1 7 

D 11  6 

REF 

2 

L AST 

1392 

17,  2 0 C 0 

0117 

17  ,21  17 

0 118 
0119 

REF 

REF 

! 

LAST 
LAST  1 

ijSto 

m*66 

34  34* 

12 

REF 

1 1 

LAST 

1328 

17,  117 

22  16  < 

D 1 ? 1 

17, 2120 

C 0CC6  1 

0122 

RFF 

if 

LAST 

1320 

17,2121 

22  012  1 

0 123 

REF 

l 

17,212? 

0 2.055  0 

D 1 24 

REF 

26 

L AST 

1329 

17, 2123 

1 5 301  1 

CA  NEXT  P 

WRITER  EXTEND 

WRITE  CHAN6 
TC  0 


CA  NFXTU 

WRITEU  TS  L 

CS  003140CT 

EX  T EN  D 

PA  NO  CHAN5 

AD  L 

EXTEND 

WRITE  CHAN5 

TC  Q 

CA  NEXTV 

WRITEV  TS  L 

CA  DO  3 140 CT 

TC  F -9  D 

003140CT  OCT  00314 


RANK  17 
SFTLOC  0APS2 
BANK 


E 8 ANK  = T6  NEXT 
COUNT*  *S  /DAP T 6 


D0T6RUPT  LX  C H BANKRUPT 
EXTENO 

OXCH  ORUPT 


TC  T6J0BCHK 

TC  F RESUME 


9:12  OCT.  21,1970  ZLMDAP 
USER  ' S PAGF  NC.  3 


.00  1 PAGE  1 393 
E?  S4 


(INTERRUPT  LEAD  INS  CONTINUED) 


CALL  T6J0BCHK. 


F NO  TIME6  INTERRUPT  PROCESSOR 


GAP:  ASSFMRLE  PFVISIDN  56  OF  AGO  PROGRA”  ZFRL  INA  BY  ZOROASTER 


9:12  OCT.  21,1970  ZLMDAP  .001  PAGE  1394 


L 

HAP  INTERFACE  SUBROUTINES  USER'S  PAGE  NO.  1 EO  S4 

ODDI 

00(2 

0003 

20,  2115  BANK  20 

PFF  3 LAST  ^4  20,  20C3  SFTLOC  0APS3 

20,2115  BANK 

033* 

0009 

REF  19  LAST  1^92  E6.1634  EBANK=CDUXO 

PFF  1 CniJNT*  f.  5 /DAP  I F 

R0006 

MOO  0 DATE  11/15/66  BY  GEORGE  W.  CHERRY 

P 000  7 

MCO  1 1/22/67  MODIFICATION  RY  PETER  AOLFP 

R OCOR 

FUNCTIONAL  DESCRIPTION 

RDDD9 

R 001 1 

HFRFIN  APE  A COLLECTION  OF  SUBROUTINES  WHICH  ALLOW  MISSION  CONTROL  PROGRAMS  TO  CCNTROL  THE  MOOE 

AND  INTERFACE  WITH  TEE  DAP. 

R001  2 

CALLING  SEQLFNCES 

R0013 

1 0014 
R0015 

IN  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED 

TC  IBNKCALI. 

FCADP.  ROUTINE 

R OOl  6 
? O'l  1 7 
R3?1R 

R 0019 

T 00  20 

IN  A JOB  WITHOUT  INTERRUPT  INHIBITED 

1 NH I N T 

TC  IBNKCALL 

FC  ADR  ROUTINE 

RELIN  T 

R0  021 

OUTPUT 

R OC  22 

SEE  INDIVIDUAL  ROUTINES  PELOW 

RDD23 

DEBR  IS 

R 0024 

A , L , AND  SOMETIMES  MCUETEMP  ODE  NOT  IN  PULSFS  MODE 

GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L DAP  INTERFACE  SUBROLTIMES 

RD087  SUBROUTINE  NAMES: 

R OC  80  SETMAXCB,  SETMINDB,  REST  CRDB,  PFLITEDB 


9:12  OCT.  21  ,1970  ZLMDAP  .001 
USER  'S  PAGE  NO.  2 


PAGE  1395 
F.  ? S4 


ROOB9  MODIFIED:  30  JANUARY  1968  BY  P S WEISSMAN  TO  CREATE  RESTORDB. 

P 0090  MODIFIED:  1 MARCH  1968  BY  P S WFISSMAN  TO  SAVE  FRANK  AND  CREATE  PF  LI  TFDB 


R 009 1 FUNCTIONAL  DESCRIPTION: 

RD092  SETMAXDB  - SET  DEADBAND  TO  5.0  DEGREES 

R 00°  3 SETMINDB  - SET  CE  ADR  AND  TO  .3  DEGREE 

R 0 0 9 A RESTORDB  - SET  DEADBAND  TC  .3,1,  CR  5 ACCORDING  TO  BITS  4 AND  5 OF  DAPBOOLS 

R3395  PFLITEDB  - S FT  DEADBAND  TO  1.0  OEGREF  AND  7FR0  THE  COMMANDED  ATTITUDE  CHANGE  AND  COMMANDED  RATE 

R 0098  ALL  ENTRIES  SET  UP  A NCVAC  jnB  TO  DO  1/ACCS  SO  THAT  THE  TJFTLAW  SWITCH  CURVES  ARE  POSITIONED  TO 

R0100  REFLECT  THE  NEW  OEADBANO.  IT  SHOULD  BE  NOTED  THAT  THE  DEADBAND  REFERS  TO  THE  ATTITUDE  IN  THE  P-,U-,AND  V-AXES. 


R0102  SUBROUTINE  CALLED:  NOV  AC 


10103  CALLING  SEQUENCE:  SAME  AS  ABOVE 

AT  10 A OR  TC  RESTORDB  +1  FROM  ALLCOAST 

R 0105  DEBRIS:  A,  L,  Q,  RUPTREG1  , (ITEMPS  IN  NOV  AC ) 


0 1 6 
Of  06  1 
01062 
3 1063 
Ol  06  A 
01065 
3137 
0108 
0 109 


REF 

REF 

REF 

REF 


34 

1 

6 


I A ST  90  1 

LAST  1395 

LAST  845 


20,  21  15  t C 111  f RESTORDB  CAE  DA  PRfCLS 


20,  2 1 16  7 4747  0 

20,2117  C 0006  1 

20, 2120  1 2122  0 

20.2121  1 2130  0 

20.2122  30  111  0 

2C, 2123  7 8750  0 

20  ,2126  C 0006  1 
20,2125  1 2141  0 


MASK  3BSLFCT2 

EXTEND 

BZF  +2 

TC  F SETMAXDB 

CAE  DAPBOOLS 

MASK  DB  SELECT 

EXTEND 

BZF  SETMINDB 


DETERMINE  CR  FW -S  EL  ECT  ED  DEADBAND. 

CHECK  FOR  MAX  CR  (5  DEG) 

BIT5  DAPROOLS  IS  SET  - CRFW  WANTS  5 DEG 
CHECK  FOP  1 DEG  DE ADBAN D S EL  ECT  ION 


Ol  0°  1 REF 
01092  REF 
3113  REF 
0111  REF 


1 

2 LAST  1395 
1 

5 I AST  822 


20  , 2 1 26  2 2 15  3 

20  ,212  7 1 2131 

2C,  2130  3 21  52 

20,2131  55*343 


1 CAF 

1 TCF 

o SFTM4XDB  CAF 

0+1  TS 


POUERDB 
S ETMAXDB 
WI  DEDB 
OB 


BIT4  DAPBOOLS  IS  SET  - CREW  WANTS  1 DEG 
SET  5 DEGREE  DEADBAND. 


‘115 

'US 

0117 

3117 


REF 

PFF 

REF 

PFF 

REF 


45  | 4 ST  1392 

4 LAST  730 
26  LAST  136C 
9 LAST  726 
2 LAST  1Q8 


20,2132 

, 1 

,20  ,2134 
. 12  5 
E6,  15  36 
20,21 36 
20, 21?7 


0 0006  1 
22  070  0 
3 7727  1 
C 5C72  1 

03555  1 
42106  0 


EXTENO 

QXCH 

CAL L ACCS  CAF 
TC 

EB ANK  = 
2CADR 


R UPTREGl 
PR  1027 
NOVAC 
4 0 SO 
1/ ACCJOB 


SET  UP  JOB  TO  RE-POSITION  SWITCH  CURVES. 


0118 


REF  46  LAST  1395 


20,2140  0 007C  0 


TC  RUPTREG1  RETURN  TO  CALLER. 


i 


LAST  1 39  8 20,234  2 


0 

1 


SETMINDB  CAF 
TC  F 


MARROW  DR 
SE  TMA  XOB  +1 


S ET  3.3  OEGREE  DEADBAND • 


GAP:  ASSEMBLE  REVISION  66  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


I GAP  INTEPFACF  SUBROUTINES 


121 

20,2143 

C 0CC6  1 

PFLI TEC8 

EXTEND 

0122 

PEE 

47 

LAST 

1395 

20, 2144 

22  ( 7i  C 

3XCH 

3 UP  TREG  l 

0123 

RTF 

8 

LAST 

84  4 

20  ,2145 

C 2154  0 

TC 

ZATT  EROK 

312^ 

PEE 

2 

L AST 

139  5 

20,  2 146 

3 2153  1 

CAP 

POWEROB 

0125 

REF 

6 

LAST 

1395 

20,2147 

55  *343  0 

TS 

D B 

0 1 24 

RFF 

1 

20,2150 

1 2134  1 

TCF 

CALI  ACCS 

31261 

20,  2 15  1 

00155  0 

NAPPO  RDR 

OC  TAL 

00155 

1262 

23  ,2152 

03434  1 

W ICEDB 

OCTAL 

3 3434 

0127  2Ct2153  CC554  0 POUERDB  OEC  .02222 


fl  2 8 

RFF 

1 0 

LAST 

894 

20,2154 

3 50  15 

P 

7 ATT ER OR  CAF 

EBANK  6 

129 

RFF 

50 

LAST 

1 382 

20  ,2155 

66  003 

1 

X CH 

FBANK 

3133 

REF 

?94 

LAST 

1 39  3 

20, 2156 

54  CC1 

1 

TS 

L 

0131 

RFF 

22 

1 AST 

1302 

2C  ,2157 

30  0 32 

0 

CAE 

C DU  X 

r 132 

P EF 

20 

LAST 

1394 

20,2160 

cc, (34 

0 

TS 

CDUX  D 

0133 

PEF 

1 4 

l AST 

1?9  8 

20,  2161 

20  0 33 

1 

CAE 

:duy 

0 1 34 

R FF 

8 

LA  ST 

902 

2°  ,216? 

55' 635 

1 

TS 

COtJYD 

3 135 

PEF 

18 

LAST 

1298 

20, 2163 

2 C C34 

0 

CAE 

r nuz 

0136 

RFF 

7 

LAST 

93  2 

20,21 64 

55*636 

1 

TS 

CDUZD 

0137  REF  -5  LAST  916  20,2165  1 2171  0 TCF  STOPRATE  +3 


31  38 

PEF 

11 

L AST 

1 ^96 

2n,  2166 

- 5015 

0 

STOPRATE  CAF 

FBANK6 

0 13^ 

REF 

91 

1 A ST 

1396 

26  ,2167 

56  003 

1 

XCH 

FRANK 

0 140 

REF 

295 

LA  ST 

139  6 

20,2170 

54  CC1 

1 

TS 

L 

0 1 4 1 

PEF 

289 

LAST 

1390 

20,  2171 

3 4755 

1 

+ 3 CAF 

ZERO 

0142 

PEF 

12 

LAST 

910 

20,2172 

55 ' 642 

1 

TS 

OMFGAPD 

114  3 

REF 

R 

LAST 

909 

20,  2173 

55*643 

0 

TS 

PMEGAQO 

0l44 

RFF 

7 

LAST 

909 

20,2174 

55  *644 

1 

TS 

OMEGARO 

0 145 

REF 

5 

1 AST 

910 

20,2175 

55*637 

0 

TS 

DELCDUX 

3146 

REF 

2 

L AST 

139 

2C,  2176 

5 5 ' 6 40 

0 

TS 

DELCDUY 

0147 

REF 

2 

LAST 

139 

20  ,2177 

55 ' 64  1 

1 

TS 

DELCDUZ 

0 148 

R FF 

4 

1 A SI 

91 C 

20,2290 

55*274 

0 

TS 

OELPERCK 

Cl  49 

REF 

2 

LAST 

37  4 

2C,  220  1 

55*275 

1 

TS 

DE  LOEROR 

r 1 50 

RFF 

2 

LA  ST 

374 

?°  ,2202 

5 5*  276 

] 

TS 

DFLR  EP  OR 

3151 

P FF 

92 

1 AST 

1396 

2C,  22C3 

2 2 003 

1 

LXCH 

EBANK 

0152 

RFF 

393 

1 AST 

139  3 

20,2  204 

0 0002 

0 

TC 

0 

RO  153  SUBROUTINE  NAME:  ALLCOAST 


RT  1 54  WILL  BE  CALLED  BY  FRESH  STARTS  AND  ENGINE  OFF  ROUTINES. 

R 01 56  CALLING  SEQUFNCF:  (SAME  AS  AECVE) 

R0157  EX  IT:  RETURN  TO  0. 

R0 1 6 8 SUBROUTINES  CALLEC:  STOPRATE,  RESTOROB,  NOVAC 

RO 159  ZFRO:  (FOR  ALL  AXES)  AOS,  ALPHA,  AOSTERM,  OMEGAO,  DEL  CDU,  DELEROR 


9:12  CCT.  21,1970  ZLMDAP  .Of  1 PAGE  1396 

USER'S  PAGE  NG.  3 E6  S4 

THF  RETURN  FROM  CALL  ACC  S IS  TO  R UP  TR  E G 1 . 

ZERO  THE  E-RR3RS  AND  COMMANDED  RATES. 

SET  OB  TO  1 .3  DEG. 

S FT  JP  1/ACCS  AMD  RFTURN  TO  CALLER. 

0.3  DEGREE  SCALED  AT  45  . 

5.0  DEGREFS  SCALED  AT  45. 

1.0  DEGREE  SCAL  ED  AT  45. 


SAVE  CALLERS  EPANK  IN  L . 


S AV  E CALL  ERS  EBANK  IN  L . 


RESTORE  CALLERS  EBANK 


GAP:  ASSEMBLE  REVISION  56  CF  AGC  FPCC-RAM  ZERLINA  BY  ZOROASTER 


L TAP  IMTERFACF  SUBROUTINES 


3 0160  OUTPUT:  DR  I F T 6 I T / DA  PROC  IS  , re,  JOB  TO  DO  1/ACCS 

R 161  DEBRIS:  A,  L,  Q,  RUPTRES  1,  RUPTREG2,  (I  TEMPS  IN  NOVAC  ) 


0H2 

0 163  REF  22 

1164  REF  10 

0165  RFF  93 

0 166  REF  10 

0167  RFF  11 

0168  REF  2 

0169  REF  3 

'17'  REF  4 

0171  REF  3 

017?  REF  2 

0173  RFF  1 

0174  REF  94 


20,  2205  C 0006  I ALLCDAST  EXTEND 


LAST  1319  20,2206  22  C71  1 QXCH 

LAST  1396  2C,  2 2C  7 C 2166  1 TO 

LAST  1396  20  ,2210  22  003  1 LXCH 

LAST  1 395  20,22  1 1 55*  536  1 TS 

LAST  1397  20,  2212  55  * 537  C TS 

LAST  726  2 0 , ? 2 1 3 55'540  0 TS 

LAST  1397  20,  22  1 4 55  * 541  1 TS 

LAST  239  20,2215  55'424  0 TS 

LAST  210  2 0 , ? 2 16  55'425  1 TS 

LAST  137  20,  2217  55*544  1 " .IS 

20  ,2220  55*545  0 TS 

LAST  1397  20,2221  22  003  1 LXCH 


RUPTREG2 

STGPRATE 

EBANK 

AHSO 

AO  SO  +1 

ADSR 

AOS  R +1 

ALPHAO 

ALPHAR 

AOSQTERM 

AO  SR  TERM 

EBANK 


0 1 76 
3177 
>•178 


REF  35  LAST  1395 
REF  2 LAST  7 26 
REF  36  LAST  1397 
REF  8 LAST  845 


20, 2222  40111  1 

20  ,2223  7 4744  0 

20,  2224  26  111  1 

20 , 2??5  0 ? 1 16  0 


CS  DAPBOOLS 

MASK  DRIFT  BIT 

ADS  DAPRCOLS 

TC  RFSTORDB 


0179  RFF  23 


LAST  1397 


20,2226  0 0071  1 


TC  RUPTREG2 


9:  12  OCT.  21,  1970  ZLMDAP 
USER'S  PAGE  NC.  4 


.001  PAGE  1397 
E6  S4 


SAVF  0 FOR  RETURN 

CLEAR  RATE  INTERFACE.  RETURN  WITH  A=  C 
AMD  L=EBANK6.  SAVE  CALLERS  EBANK. 


FOR  DOWNL 1ST. 

RESTORE  E BANS  (EBANK 6 NO  LONGER  NEEDED ) 
SET  UP  DRIFTBIT 

RESTORE  DEADBANK  TC  CREW-SELECTED  VALUE. 


RETURN 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:12  OCT . 21, 1970  ZLMOAP 


.0  1 PAGE  1 390 


l DAPIDLFP  PROGRAM  USEP'S  PAGE  NC.  1 ED  S«» 

*300  1 THF  OAPTOI.ER  PROGRAM  IS  STARTED  BY  FRESH  START  AND  REST  APT.  THE  DAP  IDLER  PROGRAM  IS  OONF  10  TIMES 

.0X1  PFR  SECOND  UNTIL  THE  ASTRONAUT  OESIRFS  THF  D A°  TO  WAKE  IJP,  AND  THE  I HU  A NO  CDUS  ARE  PFADY  FOR  USE  BY  THE  OAP  . 
100D5  THE  NECESSARY  INITIALIZATION  CF  TFE  CAP  IS  DONE  BY  THE  DAP  IDLER  PROGRAM. 

0006  16, ?OCC  BANK  16 

OCC-7  REF  1 16,  2000  SE  TLOC  0APS1 

OOOB  16,2000  RANK 


3309  RFF  12  IAST  1397  E6,  1C?6 


F B A NK=  AOSO 


0010  RFF 


COUNT*  fS/DAPIP 


ROD  1 Of  5 f HEK  BITS  IS  TAILED  EVERY  '.1  SEC  AT  THF  BEGINNING  OF  THE  DAP  PASS,  WHETHER  THE  AUTOPILOT  IS  ACTIVE  OR  IDLING. 
ROCI0I5  IT  CHECKS  FOP  THE  FOLLOWING 

* 00102  A.  I S THF  PGNCS  HCDE  SELECT  SWITCH  TURNED  TO  "OFF"? 

RDD  ID  25  B . IS  THE  IMU  UNAVAILABLE  A S AN  ATTITUDE  REFERENCE? 

ROOlt  3 C.  IS  THF  SPACECRAFT  UNDER  AGS  CONTROL? 


lonin”  IF  A OR  p HOLD,  THE  F DA  I NEEDLES  CANNOT  BE  UPDATED  AND  A PIT  IS  SET  TP  INITIALIZE  THE  UPDATE  ROUTINE.  OTHER 

RDDT'65  WISE,  TFE  NFEDLES  ARE  UPDATED. 


* 0010  5 IF  A OP.  B OR  C ARE  TRUE,  TFE  C A F IS  MACE  TO  IDLE  THIS  PASS.  OTHERWISE,  CONTROL  IS  TRANSFERRED  BACK  TO  THE 

R30106  CAI  I FP  OF  CHEK8ITS. 


Of  11 
00  12 
DD13 
OC  1 6 
0016 
OOl  6 


RFF 

PEF 

PFF 


8 LAST  902 
6 LAST  506 


16 ,2''00 
16  ,2001 
16,  2002 
16  ,2003 
16 , 20  C 6 
16, 20C 5 


0 0006 

00  031 
6 0000 
7 6355 
C CCC6 

1 2C12 


1 

0 

0 

1 

I 

1 


CHEKBITS  EXTEND 
READ 
COM 
MASK 
EXTEND 
BZF 


CHAN31 

BIT13-14 

NONEEDLE 


IF  BOTH  B IT  13  AND  BIT16  ARE  ONF , THEN 
THE  MODE  SELECT  SWITCH  IS  IN  THE  OFF 
POSITION,  AND  SC  THE  DAP  SHOULD  BE  OFF, 
WITH  NO  ATTITUDE  ERROR  DISPLAY. 


0017 
3)18 
001  ^ 
OC  ?0 
1D21 
0022 
0023 
0026 


REF  67 
REF  59 
REF  667 
PEF  1 
PFF  6 
RFF  36 
REF  5 
REF  1 


LAST  1306  16,2006 

LAST  1379  16,  2307 

LAST  1392  16,2010 

16 ,201 1 

LAST  226  16,  2012 

LAST  13  86  16  ,2013 

LAST  1398  16,2016 

16,  20  15 


6 1300  1 

7 6766  1 
10  000  0 
1 2206  o 

6 1262  1 NONFFD 

7 6751  1 
27*262  1 
1 21(3  0 


CS  I MODES  33 

MASK  BIT6 

CCS  A 

T CF  JJMPDSP 

LE  CS  RCSFLAGS 

MASK  B I T 3 

ADS  RCSFLAGS 

TCF  SHUTDOWN 


IF  IMU  NOT  USARLE,  OAP  SHOULD  IDLE  WITH 
NO  FDAI  NEFOLF  DISPLAY. 


SET  FLAG  TO  INITIALI7F  NFEOLE  DISPLAY. 


0025  RFF 
3326 

0027  RFF 

0028  RFF 
3329  REF 


55  LAST  1328 

12  LAST  902 
66P  LAST  1398 


16.2016  3 6762  1 

16. 2017  C CCC6  1 

16.2020  02  030  0 

16.2021  1 0 000  0 

16,  2022  1 2157  1 


CHEKMDRE  CAF 

EXTEND 

RAND 

CCS 

TCF 


P IT  10 

CHAN30 

A 

MOREI DLE 


BIT  10  OF  30  I S PGNCS  CONTROL  OF  S/C 
BITS  IN  30  ARE  INVERTED 


0030 


16  ,2023  0 0002  0 


RETURN 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


0032 

0033 
003  a 


OAPIDLFR  PR  OF  RAM 
CAPIDLER  ENTRY. 

REF  12  LAST  1393 
REF  11  LAST  1 3q  3 


16  ,2024 
16,2025 
16,  2026 


22  0 16  0 
C C0C6  1 
22  012  1 


DAP  IDLER  LXCH  BANKRUPT 

EXTEND 

QXCH  OR  LPT 


0'  35 
3336 

003  7 
0O3R 
30  38  1 
00382 
00  38  3 

0039 

0040 
3341 

004  l 


REF  6 
REF  51 
RFF  469 
REF  1 
RFF  62 
RFF  7 
REF  5 
REF  27 
REF  13 
REF  l 
REF  1 


LAST  1398 
LAST  1355 
LAST  1398 

LAST  1 3og 
LAST  1399 
LAST  1395 
LAST  1395 
LAST  1398 


L6,2 

■ 

16,2031 

i ,2 

1 6 , 2o  3 3 

I . 

16,2035 
16,  20  36 
E6.1536 
16,  2027 
16,2040 


3 1262  0 
7 4737  1 
10  000  0 
1 2041  1 
3 4127  C 
27*262  1 
3 7727  1 
C 5072  1 

03550  1 

42106  0 


MASK  BIT13 

CCS  A 

TCF  CHECKUP 

CA  B I T 1 3 

ADS  RCSF1  AGS 

CAF  PR  1 02 7 

TC  NO  VAC 

EB ANK=  AOS  Q 

2CADR  1 /ACC  SE  T 


16,2  041  C 2000  0 CHECKUP  TC 


0044 

3345 

0046 


2 LAST  1398 


16,2042 
i . ' 43 

16 . 2044 

16.2045 


3 C 111  0 
7 4751  1 
0 0006  1 
1 2157  1 


CAE  DA PRPOL  S 

MASK  ACCS  OK  AY 

EXTEND 

BZF  MORE  I DL  F 


3348 
004  9 
00  50 

0051 

0052 
3 D 53 

0054 

0055 
3356 

0057 

0058 

0059 

0060 
334  1 
0062 
0063 
3364 
0065 
00  66 

0067 

0068 
3069 

0070 

0071 


RTF 
REF 
REF 
REF 
REF 
REF 
R EF 
REF 
REF 
REF 
RFF 
REF 
REF 
RFF 
REF 
REF 
RFF 
P EF 
RFF 
RFF 


LAST 
LAST 
L AST 
LAST 


LAST  1399 
LAST  1 3U9 
LAST  139  7 
LAST  1399 
LAST  139  7 
LAST  13Q7 
LAST  138 


16, 2046 
16  ,2047 
16,2050 

1 ■ 

16,  2053 
16,20  54 
16,2  55 
16,  2056 
16  ,2057 
. 

16,  2061 
16 ,2062 
16,  20  6 3 
Ip, 2064 
16,2065 
16,  2066 
. 

16,2070 
16,  2o 7 1 
16  ,2072 
16,  2C73 

16.2074 

16.2075 


0 4674  0 
40154  0 
3 4755  1 
55*524  1 
55*  525  0 
55*  526  0 
55*421  0 
55*422  0 
55*423  1 
55 '430  0 
55*  431  1 
6 5 '432  1 
5 5'  536  1 
55*  c37  0 
55*540  . 
55*541  1 
55*424  0 
55*425  1 
55*  501  0 
5 5 ' 50  3 1 
55' 544  1 
5 5'  545  0 
55*510  0 
55*51?  1 


IBNKCALL 
ZATTEROR 
ZERO 
TJP 
T JU 
T JV 

OMEGAP 
OMEGAQ 
OMFGAP 
TR  APEOP 
T RAPFDO 
TR  A PE  DR 
ADSO 
AflSC  +1 
AO  SR 
AOS  R +1 
AL  PHAQ 
ALPHAR 
NEGUQ 
NEGLR 
AOSOTERM 
AOSRTERM 
OACCDOT 
R ACCCDT 


9:12  CCT.  21  ,1970  ZLMDAP  .001  PAGE  1399 
USER  *S  PAGE  NO.  2 E 6 S4 

INTERRUPT  LEAD  INS  (CONTINUED) 


CHECK  IF  1/ACCJCB  HAS  BEEN  SET  UP  SINCE 
THE  LAST  FRESH  START  OR  RESTART. 


BIT  13  IS  1. 

SET  UP  JOB  TO  CO  A LITTLE  INITIALIZATION 
AND  EXECUTE  1/ACCS. 

(WILL  BRANCH  TO  MOPFIDLE  ON  ACCSOKAY) 


CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  ON  AND 
DC  ERROR  DIS  PL  AY. 


IF  1/ACCS  HAS  NOT  BEEN  COMPLETED,  IDLE. 
NOTE:  ONLY  FRESH  START  AND  RESTART 
KNOCK  THIS  RIT  DCWN. 


ZERO  ATTITUDE  ERROR  AND  DESIRED  KATES. 
**********  INITIALIZE:  ***4****** 


RATES  IN  BODY  (PILCT)  COORDINATES. 


OFFSET  ACCELERATION  ESTIMATES. 


COPIES  OF  OFFSET  FSTIMATFS  FOR  DOWNLIST. 


QRAXIS  HATE  DERIVATION  TERMS  AND  KALMAN 
FILTER  INITIALIZATION  TERMS. 

DESCENT  ACCELERATION  DERIVATIVE  EST  . 


GAP:  ASSEMRLE  RE  VI  SI  ON  56  OF  AGC  PROGRAM  ZFRLINA  PY  ZOROASTER 


t OAP  IDLER  PROGRAM 


007? 

REF 

1 

16,2076 

6 5*502 

0 

TS 

ALLDWGTS 

00  7 B 

REF 

1 

16,2077 

65*  63f 

1 

TS 

COT  POL  ER 

DO  7 A 

REF 

1 

16, 210C 

55  *632 

0 

TS 

1NGTS 

00  75 

RFF 

3 

LAST 

138 

16  ,2101 

55 '631 

0 

TS 

OGIMTIMR 

00  70 

P FF 

l 

1 6 , 2 1C  2 

55'  633 

1 

TS 

RGIMT IMP 

pr-77 

REF 

1 

16,  2 10  3 

cc  , 

0 

TS 

OLD PMI  N 

0078 

P FF 

1 

16,2104 

55 ' 461 

1 

TS 

OLDQRMIN 

3773  1 

P FF 

3 

LAST 

14  1 

16,  2105 

6C*  766 

0 

TS 

P JET  0 T R 

00  782 

REF 

1 

16,2106 

55*767 

1 

TS 

UJETC  TR 

00783 

RFF 

1 

16,2107 

55' 770 

1 

TS 

V J ET  CT  R 

3379 

REF 

50 

L AST 

1368 

4747 

C A L 1.3  M3  L EQUALS 

R I T5 

0080 

RFF 

1 

16  ,21  10 

4 2202 

1 

CS 

M AN  FL  AG 

OCR  1 

REF 

8 

LA  ST 

1399 

16,2111 

7 1262 

1 

MASK 

RCS  FL AGS 

0082 

REF 

9 

L AST 

1430 

16, 2 1 12 

55*262 

1 

TS 

PC  SF  LAG  S 

< 00B3 

SET 

UP 

"OLD" 

MEASURED  CDU  ANGLES: 

3384 

0085 

PEF 

23 

LAST 

1-39  6 

16,2114 

3 0033 

1 

DC  A 

CDUX 

00  86 

RFF 

3 

LA  ST 

134 

16  ,2115 

53' 441 

0 

dxch 

OL  OX FORP 

3387 

REF 

19 

LAST 

1396 

16,  2 116 

3 CC 34 

0 

CA 

CD  UZ 

0088 

PFF 

1 

16  ,2117 

65  '442 

0 

TS 

OLDZFnPO 

0089 

R EF 

10 

L A ST 

1400 

16,2120 

4 1262 

1 

CS 

P CS  FL AGS 

0090 

PFF 

35 

L AST 

1356 

16, 2121 

7 4740 

1 

MA  SK 

31  T12 

00901 

RFF 

11 

LAST 

1400 

16  ,2122 

27*262 

1 

ADS 

PCSFL  AGS 

3391 

REF 

32 

LAST 

1353 

16,  2123 

3 4751 

0 

CA 

FOUR 

0092 

PEF 

2 

LAST 

137 

16,2124 

55*534 

0 

TS 

SKI  PU 

0093 

RFF 

1 

16,2125 

55*535 

1 

TS 

SK  IPV 

3394 

REF 

37 

L AST 

1392 

16,  2126 

4733 

1 

CA 

POSMAX 

0095 

RFF 

LAST 

1392 

16  ,2127 

54  031 

1 

TS 

T IMF 6 

0096 

REF 

7 

LAST 

1393 

16,2130 

5 5*466 

0 

TS 

T6NEXT 

0097 

RFF 

2 

L AST 

1392 

16, 2131 

55*470 

1 

TS 

T6F  UR  THA 

0098 

REF 

?91 

LAST 

1399 

16  ,2132 

3 4755 

1 

CA 

Z ERO 

3099 

REF 

8 

I AST 

1400 

16, 2133 

c5*  467 

1 

TS 

T6NEXT  +1 

oioc 

PEF 

3 

LAST 

1430 

16,2 134 

55*471 

0 

TS 

T6FUPTHA  h 

0 10  l 

RFF 

3 

LAST 

1392 

16,2135 

55*465 

0 

TS 

NXT6ADR 

313? 

REF 

5 

L AST 

1393 

16,  7136 

55*472 

0 

TS 

NE  XT P 

0103 

RTF 

2 

LAST 

1393 

16  ,2137 

5 5 ' 473 

1 

TS 

N E XTU 

0104 

KEF 

2 

LA  ST 

1393 

16 ,2140 

55' 474 

0 

TS 

NEXT  V 

0105 

REF 

P 

L AST 

1029 

16,  214  1 

4 4 36  3 

1 

C S 

TEN 

0106 

REF 

1 

16  ,2142 

55*  756 

0 

TS 

OAPZRUPT 

3137 

RFF 

90 

LAST 

1379 

16, 2143 

3 475  2 

0 

C A 

TWO 

01  08 

REF 

1 

16,2 1 64 

55*433 

0 

TS 

NP TRAPS 

0109 

REF 

1 

16,2145 

55*434 

1 

TS 

NOTRAPS 

3113 

REF 

1 

16,  2 146 

55*435 

0 

TS 

NRTRAPS 

0111 

16  ,2147 

f 0006 

1 

EXT  END 

0112 

REF 

1 

16,2150 

3 2205 

1 

DC  A 

PAX ADIDL 

0113 

REF 

LAST 

809 

16,2151 

5 ; * 264 

1 

0 XCH 

T5ADR 

0114 

REF 

1 

16  ,2152 

3 7741 

1 

SETTIME5  CAF 

MS  100 

3115 

REF 

2 

LAST 

226 

lfc, 2153 

64  C30 

0 

TS 

T I ME5 

12  OCT.  21,  1970  ZLMDAP  .001  RAGE  1400 
USER'S  PAGE  NO.  3 E6  S4 

AOSTASK  FLAG  FOR  QRAXIS  RCS  CONTROL  USE. 
DO  TRY GT S 3N  FIRST  PASS  (WILL  GO  TO  RCS) 
RFC CGNI  ZE  FIRST  GTS  PASS  AS  SUCH. 

STOP  GIMBAL  DRIVES.  (PROBABLY  WOULD  BE 
GOOD  ENOUGH  JUST  TO  INACTIVATE  TIMERS) 
MINIMUM  IMPULSE  MODE  ERAS  ARLES 

INITIALIZE  OOCKED  JET  INHIBITION 
COUNTER  S 

RCS  FLAGS  INITIALIZATION. 

NFGUQ(R)  HAVE  BEEN  GENERATED. 


OLOXFORP  AND  OLDYFCPP 


RIT  12  SET  TO  1. 


JASK  NOT  IN  PROGRESS,  INITIALIZE  NEG, 


G AP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

L C AP  I 01.  ER  PROGRAM 


116 

REF 

27 

LA  S T 

1393 

16  ,2154 

1 5301 

1 

TCF 

RESUME 

1117 

PEF 

16 

LAST 

1399 

E 6,  1526 

E B A NK  = 

A OS  Q 

OH  8 

REF 

3 

LAST 

811 

16,2155 

< 

0 

IDLER  A DR 

2CA0R 

OAP  IDLER 

0 118 

16, 2156 

34106 

1 

0119 

REF 

54 

LAST 

1399 

16,2157 

C 4674 

0 

MORFI  OLF 

TC 

I BNKCALI 

0120 

RFF 

1 

16  ,2160 

36655 

1 

CAOR 

3 FRRCALC 

0 121 

REF 

55 

LA  ST 

1401 

16,2161 

C 4674 

0 

TC 

I BNKC ALL 

0122 

REF 

1 

Ife,  2 162 

3545  1 

1 

CAOR 

CALCPERR 

123 

l 6 ,2163 

C 0006 

1 

SHUT  DOWN 

EXT  END 

1124 

REF 

1 

16,  2 164 

2 2156 

1 

DC  A 

I0LERA0R 

0125 

REF 

5 

LAST 

1400 

16,2165 

5 3 ' 264 

1 

OXCH 

T 5ADR 

0 126 

RFF 

292 

LA  ST 

1400 

16,2166 

3 4755 

1 

CAF 

ZERO 

1127 

PEF 

6 

1 AST 

1410 

16, 2 167 

55 '472 

0 

TS 

NF  XTP 

0128 

RTF 

3 

LAST 

1400 

16  ,2 170 

55*473 

1 

TS 

NFXTU 

0129 

REF 

3 

LAST 

1400 

16,  2171 

55' 474 

0 

TS 

NEXTV 

0130 

16,  2 172 

C 0006 

1 

EXTEND 

0131 

REF 

5 

LAST 

1393 

16,21  73 

Cl  005 

0 

WRIT  E 

CHAN5 

1132 

16,  2174 

C OCC 6 

1 

EXTEND 

0133 

REF 

3 

LAST 

1393 

16  ,2175 

01  006 

0 

WRITE 

CHAN  6 

0 134 

RFF 

1 

16,7176 

4 7203 

0 

CS 

BG  I M2  3 

1135 

16, 2177 

0 00C6 

1 

E XTEND 

0136 

PEF 

6? 

LAST 

1316 

16  ,2200 

03  012 

1 

WAND 

C HAN  1 2 

0137 

REF 

1 

16, 2201 

1 2152 

1 

TCF 

SETTI ME5 

01371 

16,2202 

030  21 

1 

MANFLAG 

OCT 

03021 

0138 

16,2203 

C7400 

1 

BG I M2  3 

OCT  AL 

07  400 

0139 

REF 

10 

L AST 

1399 

E 6,  1421 

ERA  NK= 

OMEGAP 

0140 

RFF 

1 

16  ,2204 

02213 

0 

PAXADIOL 

2CADR 

PAXIS 

0140 

REF 

1 

16,2205 

34106 

1 

0H1 

REF 

.? 

L AST 

16.1 

774  1 

M SlQO 

= 

OC  T37766 

0142 

REF 

77 

LA  ST 

1371 

0061 

COSMO. 

= 

ITEMP  1 

11431 

16, 7206 

C 0CC6 

1 

JUMPD  SP 

EXTENO 

0U32 

REF 

1 

16,2207 

3 2212 

l 

DCA 

7SPCA0R 

01433 

16,2210 

52  006 

0 

DTCB 

11434 

REF 

3 

L AST 

14  1 

F6,  1760 

E B A NK  = 

AK 

<1435 

PEF 

1 

16  ,22  11 

02227 

1 

OS  PC  ADR 

2CA0P 

AL  TOSPL  Y 

0 14  3 5 

RFF 

1 

1 6, 3212 

40  1C  6 

l 

9:12  OCT.  21il970  ZLMOAP 


001  PAGE  1401 


USER'  S PAGE  NC.  4 E6  S4 

CALCULATE  Q.R-AXES  ATTITUDE  ERRORS. 

CALCULATE  P AXIS  ATTITUDE  ERRORS. 

KILL  ANY  POSSIBLE  JET  REQUESTS 

COMMAND  JETS  OFF. 

TURN  TR IM  GIMBAL  OFF 

RETURN  IN  100  MSEC. 


TRANSFER  TO  RANK  20 

FOR  ATTITUDE  ERROR  OISPLAYS 


34P:  ASSEMBLE  RF  VI  SI  ON  56  OF  AGC  PR CGR  AM  ZERLINA  0Y  ZCROAS7  ER 

L CAP  I CL  FR  PROGRAM 


P 1 A 7 7 

OU38 

1439 


R'  145 
R0146 
R01A7 
*0149 


20  ,2227 

REF  4 IAST  1304  20,2000 

2fl, 2227 

PEF  1 

PROGRAM:  ALTPSPLY 
MCD  n.  6 DEC  1967 

AUTHOR:  CRAIG  WORK,  DON  KFE  NE  , MI  T I L 

MOD  3 BY  DOM  KEENE  AUG  1,  1968  MOVED  PROGRAM  TO  BANK  20 

PROGRAM  DF  SCRI  PTI  CN  : 


BANK  20 
SETLOC  0APS3 
BANK 

COUNT*  ti/NEEDL 


9:12  OCT.  21,  1970  7LMDAP  .001 
USER'S  PAGF  NC.  5 


PAGE  1402 
E6  S4 


R3147  ALTOSPIY  REVERSES  THE  DSPLYALT  BIT  OF  RC  SF  LAG  S EACH  TIME  IT  IS  CALLED,  WHICH  IS  PRESUMABLY  EVERY  10C  MS. 

V < 1 1 5 1 IT  THE  REVERSED  BIT  IS  CNC,  NEECLEP  IS  CALLED  TO  DISPLAY  ATTITUDE  ER  R no  S.  IF  THE  PIT  IS  ZERO,  THE  ATTITUDE  EPR- 

PP s APF  CALCULATED  AS  11  ESTIMATED  PATES  (FCLLCWING)  IF  NEEC2FLG  = 1,  OTHERWISE  AS  2)  DAP  FOLLOWING  ERRORS  FOR 
R31541  NEEDLFLG  = 0 AND  3)  TOTAL  ATTITLOE  ERRORS  FOR  NEED  LF  LG  = 1. 


R0155  WARNING:  ALTDSPLY  MAY  CNLY  EF  CALLED  WITH  INTERRUPT  INHIBITED. 

R " 1 56  WARNING:  EBANK  MUST  BE  SET  TC  t WHEN  USING  THIS  ROUTINE. 


R 0 1 5 7 INPUT:  PCSFLAGS  AND  1 ) IF  N E E CL  FL  G=  , INPUT  P ERROR,  QERROR  , RERROR. 

33158  2)  IF  N E FO  L F L G=1  , INPUT  C PHI  , CT  HET  A,  CPS  I,  CCIJX,  CDUY,  CDUZ  , M 1 L,  M 2 1 , M 3 1 , M 2 2 , M32.  (GPMATRIX) 


R3159  1 3)  IF  NEE02FLG  = 1f  INPUT  OMF  GAP,  0MEGA3 , AND  OMEGAR. 

R 0T6r  OUTPUTS:  RC  SF  LAG  S WITH  DSPLYALT  REV  ERS  ED,  AK  , AK1  , AK2,  + NFEDLER  OUTPUTS. 

R0161  FNTRY:  TCF  ALTDSPLY 

ROl 62  EXIT:  TCF  CFEKMORE 


3C163  ALARM  OR  ABORT  EXITS:  NONE 


RO  164  SUBPROGRAMS  CALLED:  NEEDIER,  OV  ER  SUB  2 
RD165  DEBRIS:  A , L , A NO  NEEOLER  DEBRIS. 


P166 
° i 6 7 
0169 
3169 
017D 
0171 


RFF  1? 
REF  206 
RFF  1 


REF  17  LAST  1379 
PEE  13  LAST  1402 


20.2231 

20. 2232 
20  ,2233 
20,2234 


? 1262 
c4  001 
3 4750 
0 CCC6 
06  00  1 
55*26  2 


0 

1 

1 

1 

0 


ALTDSPLY 


PCSFLAGS 

L 

DS  PLY  ALT 

L C HAN 
RCSFL  AGS 


INVERT  THE  CISPLAY  ALTERNATION  BIT. 


0172  REF  2 LAST  1432 

0173  PEF  470  I A ST  1399 


20, 2235  7 4750  0 

20  ,2236  10  000  0 


MASK  DSPLYALT 
CCS  A 


IS  ALTERNATION  FLAG  ZERO? 


3AP  : 


ASSFMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  ZLMOAP  .001  PAGE  1403 


L DAP  IDLER  PROGRAM 


USER'S  PAGF  NO.  6 E6  S4 


Ol  7U  REF 


20,  2237  1 2336  1 


TCF  NEEDLER 


01741 
3 1742 
01743 
: 174  4 


LAST  1364 


20  ,2240  4 0074  0 

20,  2 24  1 7 4 73  5 C 

20.2242  0 0006  1 

20.2243  ] 2257  1 


CS  FLAGWRDO  CHECK  FOR  RATE  DISPLAY  TO  ERROR  NEEDLES 

MASK  NEED2R1T  VIA  EXTENDED  VERB  6G 

EXTEND 

BZF  DISPRATE 


3176  REF  31  LAST  1403 

0176  PEF  1 

0177  REF  471  LAST  1402 

Ol  78  REF  1 


20,  2244  30  074  1 

20  ,2245  7 4750  0 

, 

20,  2247  1 2266  0 


CAE  FLAGWRDO  NEEDLFLG  WILL  INOICATE  TOTAL  OR  DAP  AT- 

MASK  NEEDLBIT  TI  TUDE  ERRflP  DISPLAY  REQUEST. 

CCS  A 

TCF  D SPLYTOT  TOTAL  ERROR  IS  NEECEC  IN  AK  , AK  +1 , AK  +2 


3183 
0181 
' IP  15 
3182 
f 183 


REF 

RFF 

REF 

RFF 

RFF 

RFF 


2 

4 

2 

6 

? 

6 


LAST 
LAST 
I AST 
L AST 
I AST 


140  1 
136 
1403 
160 
1403 


20, 2250  4 1450  0 

20,  2251  5 5' 761  1 

20.2252  4 1452  1 

20.2253  55* 762  1 

20,  2254  4 1464  1 

20  ,2255  57*760  1 


CS  QERRUR  YES.  DISPLAY  ATT  ERRORS  ON  THE  ,-BALL. 

TS  AK  +1  ERROR  COMPLEMENTS  ARE  INPUT  TO  NEEDLER. 

CS  RERROR 

TS  AK  +2 

CS  P ERR  OR 

XCH  AK 


01R4  REF 


20,2256  1 2456  0 


TCF  RETNMORE  DISPLAY  THESE  THE  NEXT  TIME  THROUGH 


l'1  84  1 RFF 

0 184  2 RFF 
3 1843  REF 

01  844  REF 
01845  RFF 
31846  PEF 
01847  RFF 


12 

7 


2 


LAST  1390 
I A ST  1403 
1 AST  1390 
LAST  1403 
LAST  1401 
LAST  140  3 
LAST  1403 


20, 2257 
20,2261 
2C,  2261 
20,2262 

20.2263 

20. 2264 
20  ,2265 


4 1422  0 
55' 761  1 

4 1423  1 

5 5 ' 762  1 

4 1421  0 

5 7 ' 7.60  1 
1 2456  0 


0ISP3  A TF 


CS  0ME3AQ 

TS  AK  +1 

CS  OMFGAR 

TS  AK  +2 

CS  OMEGAP 

XCH  AK 

TCF  RETNMORE 


LOAD  ESTIMATED  RATES  (FOLLOWING) 


ROl  86 


CALCULATE  GIMBAI  ANGLE  TOTAL  ERRORS, 


RESOLVE  INTO  PILOT  AXES,  STCRE  TOTAL  ERRORS  FOP  N EFOL  ER  • 


Q-AXIS  FIRST. 


REF  78  LAST  1401 


0 0006  I DSPLYTOT  EXTEND 

22  061  0 QXCH  ITEMP1 


SAVE  Q FDR  CHEKBITS  RETURN. 


^ 19  1 
Ol  92 
0193 
i 1 34 

01  05 
0 196 
? 1 97 
0198 
0 190 

02  CO 
0201 
32  3? 

0203 

0204 


REF  3 

RFF  15 
p E F 1 r 

REF  2 
REF  1l 
REF  5 

PEF  20 
RFF  12 

PEF  10 
REF  13 
RFF  1 
REF  14 


L AST  486 

LAST  1396 
LAST  1433 

LAST  195 
LAST  143  3 
LAST  528 

LAST  1400 
I A ST  1403 

I AST  895 
LAST  1403 


LAST  1403 


20,  2270 
2D ,2271 
20,2272 
20,  2273 
20 ,2  7 74 

20. 2275 

20.2276 

20.2277 
20,  2.300 
20  ,23C  1 
20,2302 
20 , 2 3r  3 
20  ,2304 
20,  230  5 
20,2  306 
20,2307 


3 0322  1 
0 0006  l 
2 C C 33  0 
56*760  0 
0 0006  1 
7 1415  1 
57*761  0 
3 0323  0 
0 0006  1 
20  0 34  1 

5 6*  762  1 
0 00 C 6 1 
7 1417  0 

6 1761  0 
0 2451  0 
55*761  1 


CA  CTHFTA 

EXTEND 
MSU  CDUY 

TS  AK 

EXTEND 
MP  M2 1 

XCH  AK  +1 

CA  CPS  I 

E XTEND 
MSU  CDUZ 

TS  AK  +2 

F X TEND 
MP  M 2 2 

AO  AK  +1 

TC  OVER  SUB  2 

TS  AK  +1 


DESIRED  ATTITUDE,  Y-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  1*S  CDMP  . 

SAVE  FOR  R-FRROR  CALCULATION. 

(CHTET  A-CDUY  )*M21  SCALED  AT  PI  RADIANS. 
STORE  FIRST  TERM  OF  Q ERROR. 

DES  IREO  ATT  ITUDE,7-AX!  S,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  l'S  COMP. 

SAVE  Z-AXIS  TERM  FOR  R ERROR  CALCULATION 

(CPSI-CDUZ)  *M22,  SCALED  AT  PI  RADIANS. 

0 FRROR  COMPLETE  , AT  PI  RAD. 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW . 


ASSEMBLE  REVISION  *6  OF  AGC  PROGRAM  ZtRL INA  0V  ZOROASTER 


9:  1?  OCT.  2 l * l *>70  ZLMOAP 


001  PAGE  1406 


i AP  : 


R02T5 

0 206 
D 2 ">  7 
0208 
0209 
A 02 10 
'211 
3 212 
0213 
0 216 
0218 


30216 


0 2 1 « 
021o 

0 2 20 


1221 
0222 
0 223 
0226 


3 0225 
R1226 
R0227 


im 


0APID1ER  PROGRAM 
P FRRCR  C ALCU LAT  I CN  NEXT. 


PEF  15 

PFF  2 
REF  16 


REF  8 
PEF  17 
RFF  2 
REF  1 fl 


LAST  1603 

LAST  195 
LAST  1606 


LAST  905 
LAST  1606 
LAST  1603 
LAST  1636 


2C  , 2 T 1 1 
20  ,2312 
20, 2313 

20,2316 
2C, 2215 
20  ,2316 
70,2  31  7 
2o  , 2 i 2o 


3 1760  1 
0 0006  1 
7 1616  1 
57' 762  0 


C 0006  l 
7 1620  1 
6 1762  0 
0 2651  0 
5 c ' 7 6 2 1 


CA  AK 

E X TEND 
MP  M31 

XCH  AK  *2 


EXTEND 
MP  M3  2 

AD  AK  +2 

TC  0VERSUB2 

TS  A K +2 


JSER'S  PAGE  NO.  7 E6  S6 


Y-AXIS  DIFFERENCE  STORED  BY  D-A XI S CALC. 

I CTHETA-CDUY)  31 , SCALED  AT  PI  RAOIANS. 
FIRST  T ERM  (IF  R ERROR  . 

Z-AXIS  DIFFERENCE,  STGREO  BY  A CALC.  IS 
RECOVERED  BY  THE  EXCHANGE. 

( C PS  I - CDU  Z > *M3  2 , SCALED  AT  PI  RADIANS. 

R ERROR  COMPLFTE  , AT  PI  RAD. 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 


NOW  CALCULATE  P ERROR.  ( NTT  F THAT  Ml  3 = 1,  SCALED  AT  1,  SO  THE  MULTIPLICATION  IS  BY-PASSED.) 


REF  19  LAST  1606 

REF  7 LAST  196 
RFF  20  LAST  1606 
RFF  11  LAST  905 

PFF  26  LAST  1400 


20. 2321  3 1760  1 CA  AK 

20.2322  C C006  1 EXTEND 

20.2323  7 1416  0 MP  Ml l 

20.2324  5 7 ' 760  1 XCH  AK 

20  ,2325  30  321  1 CAE  CPHI 

20,2326  C CCC6  1 EXTEND 

2c » 2 3 2 7 20  C32  1 M SU  CDUX 


Y-AXIS  DIFFERENCE  STORED  BY  0 AXIS  CALC. 

(CT  HET  A-C  OU  Y ) *M  1 1 SCALED  AT  PI  RAOIANS. 
FIRST  TERM  OF  P ERROR  IN  AK , AT  PI  RAO. 
DESIRED  ATTITUDE,  X-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  X ATTITUDE. 

X-AXIS  DIFFERENCE,  l'S  CCMP,  AT  PI  RAD. 


Ml  3 


SO  BYPASS  THE  MULTIPLICATION. 

EXTEND 

MP  Ml  3 (CPHI-CDUX  ) *M  13  SCALED  AT  PI  RADIANS. 


REF  21  LAST  1404  20,2330  6 1760  1 AD  AK  P ERROR  COMPLETE  , SCALED  AT  PI  RAD 

REF  3 LAST  1404  20,  2331  0 2451  0 TC  0 VF  R S UR  2 PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 


RFF  22  LAST  14.6 


3 0 ,23  3?  5 5'  760  ft 


TS  A< 


PEF  79  LAST  14D3 
RFF  3 LAST  1403 


20,  2333  C CCC6  1 EXTEND 

20.2334  22  061  0 OXCH  ITEMP1  RESTORE  Q FOR  CHEKBITS  RETURN. 

20.2335  1 2456  0 TCF  RETNMORE  DISPLAY  THESE  THE  NEXT  TIME  THROUGH 
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L 

CAPIDLER  PROGRAM  USER'S  PAGE  NC.  8 E6  S4 

Pi  234 

F DA  I ATTITUDE  ERROR  01  SPLAY  SiePCUTINF 

RD  2 35 

PROGRAM  DESCRIPTION:  D.  KEENE  5/24/67 

R 0236 

MCO  1 R Y CRAIG  WORK,  12  DEC  67 

R0237 

MOO  2 BY  CRAIG  WORK,  6 APRIL  68  CONVERTS  ATTITUDE  ERROR  DISPLAY  SCALING  FROM  16  7/8  DEG.  TO  42  3/16  DEGREES. 

RC23g 

1 0241 

R 3 2 4 3 
R0245 

THIS  SUBROUTINE  IS  US  EC  TO  CISPLAY  ATTITUDE  ERRORS  ON  THE  FOAI  VIA  THE  DIGITAL  TO  ANALOG  C C AVERT  EPS  ( OACS  ) 

IN  THE  COLS.  CAPE  IS  TAKEN  TC  METEP  OUT  THE  APPROPRIATE  NUMBER  OF  PULSES  TO  THE  IMU  ERROR  COUNTERS  AND  PREVENT 
OVERFLOW,  TO  CONTROL  THE  RFLAY  SEQLFNC I NG  , ANO  TO  AVOID  INTERFERENCE  WITH  THE  COARSE  ALIGN  LOOP  WHICH  ALSO  USES 
THE  OACS. 

R 0 246 

CALLING  SEQUENCE: 

R J?47 
« 0249 

DURING  THF  INITIALIZATION  SECTION  OF  THE  USER'S  PROGRAM,  BIT'*  OF  RC  SF  LAGS  SHOULD  BE  SET  TO  INITIATE  THE 
TURN-ON  SEQUENCE  WITHIN  THE  NEECLES  PROGRAM: 

R0250 

R02S1 

1 025? 

CS  RCSFLAGS  IN  E3ANK6 

MASK  B IT  3 

ADS  RCSFLAGS 

R3253 

THEREAFTER,  THE  ATTITUDE  ERRORS  GENERATED  BY  THE  USER  SHOULD  BF  TR  ANSFFRED  TO  THE  FOLLOWING  LOCATIONS  IN  EBANK  6: 

1 0255 

RO  256 
R0257 

A K SCALED  1H  DECREES  NOTE:  THESE  LOCATIONS  ARE  SUBJECT 

AKl  SCALED  ISO  DEGREES  TC  CHANGE 

AK2  SCALEC  180  DECREES 

10?5fl 

R D 263 

FULL  SCALED  DFF  LECTI  CN  OF  THE  NEEDLES  CORRESPONDS  TO  5 1/16  OFGREFS,  WHILE  384  BITS  IN  THE  IMU  ERROR  COUNTER 
CORRESPONDS  TO  42  3/16  DEGREES.  ( DAC  MAXIMUM  CAPACITY  IS  384  BITS.)  46  BITS  EFFECTIVELY  PIN  THF  NEEDLES. 

R G 261 1 
RO  262 

FOR  RATE  CISPLAY,  FULL  SCALE  NECDLC  DEFLECTION  IS  1 17/64  DEG/SEC,  AND  A FULL  COUNTER  IS  ABOUT  10.5  DEG/SEC. 

A CALL  TO  NFFDLER  WILL  THEN  LPDATF  THE  DISPLAY: 

R026? 

1 0264 
R3265 
R0266 

INHINT 

TC  IBNKCALL  NOTE:  EBANK  SHOULD  RE  SET  TO  E6 

CADP  NEEDLER 

P E L I NT 

» 0 267 
RD269 

R 0270 

THIS  PROOF  SS  SHOULD  BF  REPEATED  EACH  TIME  THE  ERRORS  AR  F UPDATED.  AT  LEAST  3 PASSFS  THRU  THE  PROGRAM  ARE 
REQUIRED  BEFORE  ANYTHING  IS  ACTUALLY  DISPLAYED  ON  THE  ERROR  METERS. 

NOTE : FACH  CALL  TO  NEECLER  MUST  BE  SEPARATED  BY  AT  LEAST  50M  S TO  ASSURE  PROPER  RELAY  SEQUENCING. 

mi 

^ 0274 
RO?  75 
R0276 

R 0277 

ERASABLE  USED: 

AK  CDUXCMD 

AKl  CCUYCMD 

AK2  CDU/CMD 

ECRIVEX  A,  L , Q 

FDRIVEY  T5TEMP 

I 
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R0278 

10270 

P32B3 
R'  2B1 

RC28? 


DAPIDLFR  PROGRAM 


SWI  TCHF Si 
I/O  CHANNELS: 


EORIVEZ  C IN  OX 
RC  SF  LAG  S BITS  3 ,2 


CHAN  12 
CHAN12 
CHAN14 


BIT  4 (COARSE  ALIGN  - READ  ONLY) 
BIT  6 ( IMU  FRROR  COUNTER  ENABLE! 
BIT  13*14,15  ( OAC  ACTIVITY) 


R028‘»  SICE  CONVENTION*  AK  = TEFTAC  - THETA 

1 i OR/.  UUP  DC  TUCTAf  = rrHlnANr  AM 


3 - 2R4 

WHF  RF 

THETAC  = i 

ccnmec 

ANGLE 

R7  2RS 

TPFTA  = PR  E SEN  T > 

\ NG  1 F 

N E EDI.  ER  C A 

R C SFL  A G S 

4 787 

F FF 

24 

LA  ST 

1359 

20,2337 

7 6254 

0 

MASK 

S IX 

02  8fl 

20,  2340 

C CCC6 

1 

F X TEND 

0289 

PEE 

1 

27  ,2341 

1 2376 

0 

RZ  F 

NFEDL  FS  3 

3273 

REF 

37 

LAST 

139  8 

20, 2342 

7 47  51 

1 

MASK 

R I T3 

02  91 

20,2  343 

C 0006 

1 

EXTEND 

0 29  2 

REF 

1 

20  ,2344 

1 2367 

0 

BZF 

NEEDL  ER2 

7 29  3 

REF 

60 

LAST 

1398 

2C, 2345 

* 4746 

1 

C S 

BI  T6 

n294 

? ' ,2  346 

0 0006 

l 

EXTEND 

0295 

REF 

63 

LAST 

1401 

2C  ? 234  7 

C 3 C 12 

1 

WAND 

CHANl  2 

< 2 96 

REF 

293 

LAST 

143  1 

20, 2350 

4 4755 

0 

NEEDLE  11  C S 

ZERO 

0297 

REF 

23 

LAST 

1404 

20  ,2351 

55' 760 

0 

TS 

AK 

329R 

R FF 

1 

20, 2 152 

55' 761 

1 

TS 

AKl 

029Q 

REF 

1 

20,2353 

5 5 ' 762 

l 

TS 

AK  2 

0 300 

REF 

3 

LA  ST 

14  1 

20,2354 

55' 763 

0 

TS 

EDR IV  EX 

333  1 

REF 

1 

20, 2355 

55*764 

1 

TS 

EDRI  vr  y 

0302 

RFF 

1 

20  ,2356 

55 '765 

0 

TS 

EDR IVEZ 

0 303 

P.  EF 

LA  ST 

1302 

2C  ,2357 

54  0 50 

o 

TS 

CDUX  CM  D 

03  04 

REF 

2 

L AST 

’ 

2o,  ? 360 

5 4 051 

1 

TS 

CO  UYC  MD 

0305 

REF 

2 

LAST 

181 

23 ,2361 

54  052 

1 

TS 

CDIJZCMD 

3336 

PFF 

25 

LAST 

140  6 

20/,  2 36  2 

4 6254 

0 

CS 

SI  X 

0307 

REF 

15 

LAST 

1436 

20 , 2 363 

7 1262 

1 

MASK 

RC  SFLAGS 

0308 

REF 

51 

LAST 

1382 

20,2364 

6 4752 

0 

AD 

B IT  2 

3339 

REF 

16 

L AST 

1406 

20,  2365 

5 5 ' 26  2 

1 

TS 

RC  SFLAGS 

« 3 1 

RFF 

LAST 

1404 

20  ,2366 

1 2456 

0 

TCF 

R ETNMDPE 

3311 

REF 

61 

LA  ST 

1406 

20,2367 

3 4746 

c 

NEEDLER2  CAF 

BIT6 

03T2 

20, 2 370 

0 OCC  6 

1 

E XTEND 

0313 

RFF 

64 

LAST 

1406 

20  ,2371 

05  01  2 

1 

WOR 

CHAN  12 

3314 

REF 

26 

LAST 

1406 

20,  2372 

4 6 2 54 

0 

CS 

SIX 

0315 

REF 

17 

LAST 

1436 

. 

7 1262 

1 

MASK 

PC  SFLAGS 

0316 

RFF 

18 

LA  ST 

1406 

20,2374 

55*26? 

1 

TS 

PCS  FL  AGS 

3317 

RFF 

5 

L AST 

1406 

20,  2375 

1 2456 

0 

TCF 

RE  TNMORE 

0318 

RFF 

62 

LAST 

1406 

20  ,2376 

3 4746 

0 

NEEDLES3  CAF 

B IT6 
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BIT3  = 0,  BIT2  = 1 
F IRST  PASS  RIT3  = 1 

01  SABLE  I MIJ  ERROR  COUNTER  TO  ZERO  OACS 
MUST  WAIT  AT  LEAST  60  MS  BEFORE 
ENABLI  NG  COUNT  EPS  . 

ZERO  THE  INPUTS  ON  FIRST  PASS 


ZERO  THE  DISPLAY  REGISTERS 


ZERO  THE  OUT  COUNTERS 

RESET  RCS  FLAGS  FOR  PASS  2 


ENABLE  IMU  EPROR  COUNTERS 


RESET  RCS  FL  AGS  TO  OISPLAY  ATTITUDE 
ERPORS  WAIT  AT  LEAST  A MS  FOR 
RELAY  CLOSURE 


CHECK  TO  SEE  IF  IMU  ERROR  COUNTER 


JAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


L DAPTDLER  PROGRAM 


3310 

20, 2377 

C 0C06 

1 

E XTEND 

0320 

REF 

65 

LAST 

1406 

20  ,2400 

02  012 

0 

RAND 

CHAN  12 

0321 

REF 

472 

LAST 

1403 

20.24C1 

1C  OCO 

0 

CCS 

A 

0322 

RFF 

1 

20,  240  2 

1 2407 

1 

TCF 

NEEDLE  S 

r . 

RFF 

ft  U 

1406 

20,2403 

126? 

. 

P CS  FL  AGS 

33?A 

REF 

3R 

LAST 

140  6 

20, 2404 

7 4751 

1 

MASK 

B I T3 

0325 

REF 

2C 

LAST 

140  7 

20  ,2405 

27*262 

1 

ADS 

RC  SFLAGS 

0324 

RFF 

6 

LAST 

1406 

20,2406 

1 2456 

0 

TCF 

RETNMORE 

032  7 

REF 

91 

L AST 

1400 

20, 240  7 

3 47  5 2 

c 

NEEDLES 

CAF 

TWO 

0328 

REF 

1 

20  ,2410 

54  063 

0 

CACLOOP 

TS 

DINDX 

0329 

R EF 

1 

20, 2811 

4 2450 

0 

CS 

ONETENTH 

0330 

20,2412 

0 00  C 6 

1 

EXTEND 

0331 

REF 

2 

LAST 

1407 

20,2413 

5 0063 

1 

INDEX 

DINDX 

0332 

REF 

24 

1 AST 

1406 

20, 2414 

7 1760 

0 

MP 

AK 

0333 

RFF 

2 97 

LAST 

14C2 

20  ,2415 

54  001 

1 

TS 

L 

0334 

RFF 

473 

l A ST 

14C7 

20,24  16 

1C  000 

0 

CCS 

A 

033  5 

REF 

1 

20,  24  17 

3 2446 

0 

CA 

DAC  LI  MI  T 

0336 

20  ,2420 

1 2422 

0 

TCF 

+ 2 

0337 

REF 

2 

LAST 

1407 

20, 2821 

< 2486 

1 

CS 

DACLI  MIT 

033fi 

REF 

298 

LAST 

1407 

20,2  422 

6 0001 

0 

AD 

L 

0 3 39 

RFF 

l 

20,2423 

54  061 

1 

TS 

T5T  EMP 

03  A 0 

20, 2824 

1 2830 

0 

TCF 

0341 

REF 

474 

LAST 

1407 

20  ,2425 

50  000 

1 

INDEX 

A 

0342 

REF 

3 

LAST 

1407 

20,2826 

2 2886 

0 

CAF 

DACLIMIT 

0343 

REF 

299 

l AST 

1407 

20,  28  27 

c8  OC  1 

1 

TS 

L 

0344 

REF 

3 

LAST 

1407 

20 ,2430 

50  063 

1 

INDEX 

DINDX 

T345 

REF 

4 

LAST 

140  6 

20, 2831 

8 1763 

0 

C S 

EDRI  VEX 

0346 

RFF 

300 

LAST 

140  7 

20,2  832 

6 0001 

0 

AD 

L 

0347 

RFF 

4 

LAST 

14C7 

20,2433 

50  063 

1 

INDEX 

DINDX 

0348 

REF 

5 

L AST 

140  6 

20, 2834 

26  050 

0 

ADS 

CDUXCMD 

0349 

REF 

5 

LAST 

1407 

20  ,2435 

50  063 

1 

INDEX 

DINDX 

0 350 

REF 

5 

LA  ST 

1 4C7 

20,24  36 

2V  763 

1 

LX  CH 

ECRIVEX 

0351 

REF 

6 

L AST 

1407 

20,  2437 

10  Ct  3 

0 

CC  S 

DI  ND  X 

0352 

REF 

1 

20  ,2440 

1 2410 

1 

TCF 

DACLOOP 

0353 

REF 

5 

LAST 

1361 

20,  288  1 

2 7752 

0 

CAF 

13,14,15 

035  4 

20,2  482 

0 0006 

1 

EXTEND 

0355 

RFF 

26 

LAST 

1315 

20,2483 

05  014 

1 

WOR 

CHAN  14 

0356 

REF 

7 

L AST 

1407 

20, 2884 

1 2456 

0 

TCF 

RETNMORE 

0357 

20  ,2445 

77177 

0 

DEC 

-3  88 

0358 

20,2886 

372C0 

l 

DACLI MI T 

DEC 

16000 

0359 

20,  248  7 

00600 

1 

DEC 

388 

0360 

20,2450 

03146 

l 

ONET  ENTH 

OCT 

0 3146 

0361 

REF 

53 

L AST 

1355 

87  50 

DSPLYALT 

EQUALS 

HIT-1. 

0362 

20  ,2851 

54  007 

l 

OV  ERSIJB2 

TS 

7 

9:12  0:T.  21  ,1970  ZLMDAP  .001  PAGE  1407 
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IS  ENABLED 

IF  NOT,  RE- INITIAL  IZE  NEEOLER. 

SET  UP  INITIALIZATION  FLAG  IN  RCSFLAGS. 


RESCALE  INPUTS  TO  + OR  - 1800  DEGREES. 


OVFLO  CHK 

ON  OVERFLOW  LIMIT  CUTPUT  TO  +-384 

CURRENT  VALUE  OF  DAC 


SET  DAC  ACTIVITY  BITS 


DEC  IMAL  +0.1,  SCALED  ATI. 

10'  MS  ALTERNATION  BIT  IN  RCSFLAGS 


RETURNS  A UNCHANGED 


CR  LIMITED  TO 
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L DAPIOLER  PROGRAM 


^363 

RFF 

3 94 

L AST 

1 396 

20, 2452 

C OOC  2 

0 

TC 

0 

C 364 

PFF 

475 

LAST 

1407 

20  ,2453 

5C  OGO 

1 

INDEX 

A 

0 36  5 

REF 

7 

I AST 

1387 

20,2454 

4 4734 

1 

CS 

L I P ITS 

0366 

REF 

395 

LAST 

1408 

20, 2455 

C 0C02 

0 

TC 

0 

0367 

20,2456 

0 0006 

1 

RETNMORE  EXTEND 

3368 

PEF 

1 

20, 2457 

2 2462 

0 

DCA 

MORECADR 

0369 

20  ,2460 

52  006 

0 

DTCB 

0 370 

R FF 

17 

LA  ST 

1401 

Efc,  1 526 

EBANK= 

AOS  Q 

q3  7 1 

RFF 

1 

2o  f 2 46  1 

0 20  16 

1 

MORECADR  ?C  A l)R 

"HE K MORE 

0371 

PFF 

1 

20 ,2462 

3410  6 

1 
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USER  'S  PAGE  NO.  11 
PCS  PAX  OR  NEGMAX  IF  A HAS 
DUPLICATE  CUD  IN  G IN  BANK 


E 6 S4 
OVER  FLOW 
1 6 


RETURN  TO  CHEKMORE 
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.00 


1 


L P-AXIS  RCS  AUTOPILOT 


USER'  S PAGE  NC. 


000  1 
0002 
0003 


REF 


LAST  1390 


16,2213 
16,  2000 
16  ,2213 


BANK  16 
SETLOC  DAP  Si 
BANK 


0004  REF  3 LAST  1403  E6.1464 

0006  REF  1 


EBANK=  PERROR 
COUNT*  **/OAPP 


1 0006  THE  FOLLOWING  T5RUPT  ENTRY  BEGINS  THE  PROGRAM  WHICH  CONTROLS  THE  P-AXIS  ACTION  OF  THE  LEM  LSI  NG  THE  RCS  JETS. 

ROODS  THE!  NOMINAL  TIMF  BETWEEN  THE  P-AXIS  RUPTS  IS  100  MS  IN  ALL  NON-IDLING  MODES  OF  THE  DAP. 


001'  RFF 
0011  RFF 
A3  9 11  5 


2 LAST  1400 
* LAST  1400 


16.2213  3 7741  l PAXIS 

16.2214  26  030  0 


CA  ^'S  100 

ADS  TIMES 


***  NECESSARY  IN  ORDER  TO  ALLOW  SYN- 
CHRONIZATION  WITH  OTHER  INTERRUPTS  *** 


OC 1 2 REF  13  LAST  1399 
001  3 

00 1 4 REF  12  LAST  13^9 


16  ,2215  22  U 16  0 

16,2216  C CCC6  1 
16,  22  17  22  012  i 


LXCH  BANKRUPT  INTERRUPT  LEAD  IN  (CONTINUED) 

EXTEND 

QXCH  OPUPT 


10015  CHECK  IF  DAP  PASS  IS  PERMISSIBLE 


0016 
0017 
00  IB 


REF  2 
RFF  3 


LAST  1400 
LAST  1349 


16, 2220 
16  ,2221 
16,2222 


1 1 ' 7 56  0 
0 5635  1 
32CCO  0 


CCS  DAPZRUPT  IF  DAPZRUPT  POSITIVE,  DAP  (JASK)  IS 

TC  BAILOUT  STILL  IN  PROGRESS  AND  A RESTART  IS 

OCT  32000  CALLED  FOR.  IT  IS  NEVER  ZERO 


OOl  9 REF 


LAST  1399 


16, 2223  0 2000  0 


TC  CHEKBITS  RETURN  IS  TO  I +1  IF  DAP  SHOULD  STAY  ON. 


00  IQ  1 
00  192 
00193 

00  194 

001  95 
00196 


RFF 

RFF 

RFF 


25  LAST  1404 
1 

16  LAST  1403 
2 LAST  135 
21  LAST  1403 
2 LAST  137 


16  ,2226 
16,  ?227 

■ . 

16  ,2231 


3 G032 

' 

3 0033 
55*  150 
2 OC 34 
55«  751 


*****  KALCMANU-DAP  AND  "1 A TE-HOLD"-PAP  INTERFACE  ***** 


CDUX 

DAPTREG4 
C DU  Y 
DAPTREG5 
COUZ 

DAPTR  EG6 


READ  AND  STORE  CDU'S 


R0G21  THE  F CL  LOW  I NC  SFCTION  IS  FXECuTED  EVERY  100  MS  (1  TIMES  A SFCOND)  WITHIN  THE  P-AXIS  RE  AC  T I CN  CCNTROL  SYSTEM 

10023  A U TO  P I L 1 1 T (WHENEVER  THE  DAP  IS  IN  C PE  RAT  I CN)  . 


0"24  RFF 

0025 

0026  REF 
( .'27  REF 
002B  REF 
0029  REF 
003  G 

0031  RFF 
003?  RFF 

0033  RFF 

0034  REF 

0035 

0036 


21  LAST  1396 

6 LAST  1396 
1 

22  LAST  14P9 
9 LAST  1396 

3 LAST  1396 
2 LAST  1409 
1C  LAST  14C.9 
8 LA«T  1396 


16,2232  I-  1634  1 
16  ,2233  0 00C6  1 

1 6,2234  21 ' 637  0 

16,  2235  C 2556  1 
16  ,?236  55 ' 634  0 

16,  2237  3 1 635  0 

16.2240  C 0006  1 

16.2241  2 1 ' 640  0 

16,  2242  0 2256  1 

16  ,2243  55*635  1 

16,2244  3 1636  0 

16,  2245  C 0C06  1 
16,2246  21*641  1 


CA  CDUXD 

EXTEND 

MSU  DEL  CDUX 

TC  1STOTWOS 

TS  CDUXD 

CA  CDUYD 

EXTEND 

MSU  DEL  CDUY 

TC  1 STOTWCS 

TS  CDUYD 

CA  CDUZD 

E XTENO 

MSU  DELCDUZ 


REF 


3 LAST  1396 
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P-AX  IS  RC S AUTOPILOT 


0C?  7 
0038 
3 j 38  1 
00  3r2 
00  38  3 
333B4 


16,  2247  C 2256  1 TC  1ST0TW0S 

16,2250  5 5 ' 636  1 TS  COUZO 

16,  2251  C 0006  1 E XTEND 

16.2252  27'445  1 DIM  TCP 

16.2253  C 0006  1 EXTEND 

16,  22c4  2 7*457  1 01  M TCGR 

RATFLOOP  COMPUTES  JETRATEO, 
RETURNS  TO  PACKP. 


US  EP  *S  PAGE  NO  . 


JETRATER,  AND  1JACC*NC.  PJETS  IN  I TEMPI  . 


A3343 


JETRATE  = IjACC  *N0.  P JE  TS*TJP  ( NOTE  TJ  IS  THE  TIME  FIRED  CURING  CS  P ) 
JFT  RAT  EQ=  1 J ACCO  (T  JU  *N0  .U J ETS  - TJV*NO  . VJFTS  > 

JE  TP  A TF  R = 1 JACf  R ( T JU*  NC.  UJETS  + T JV*NO  .V  J FT  S ) 


0044 

0045 
00  AS 
0047 
3348 
0C49 
0050 
03  51 
0052 


RFC  1 
RFF  476 
RFF  142 
REF  396 
REF  477 
REF  ??7 


LAST  1 4C  8 
LAST  13R9 
LAST  1408 
LAST  1410 
LAST  1410 

LAST  137 


16  ,2255 

: , 

16, 2257 

, 

. 

16,2262 

16.2263 

16. 2264 

16.2265 


PAXFILT 


6 4153  1 
C 0002  0 
4 CCOO  0 
C 0002  0 
0 0006  1 

7 1740  1 
21*427  0 


SUBOIVDE  EXTEND 


PROCEEDS  TO  FATFLCCP  AF TF P SUPERJOB 


OVERFLOW  PROCTION  ROUTINE  TO  GIVE 

PCS  MAX  OR  NEGMAX  IF  THE  DIVIDE  WOULD 

overflow 


00  53 

0053  1 
00532 
30533 

0054 

0055 
3356 
00  57 
OC  58 


REF 

RFF 

PEF 


LAST  HIO 
LAST  135 
LAST  1410 


LAST  1410 


16,2266 
16,  2267 
16,2270 
16,  2271 

16.2272 

16.2273 
16,  2274 
16  ,2275 
16,2276 


C 0CC6  1 
3 1427  1 
53 ' 743  1 
11*426  1 
1 2274  0 
1 2304  0 
6 2315  1 
0 00C6  1 
6 2304  1 


OX  C H 
CCS 
TC  F 
TCF 
AO 


0C59 

0060 

3361 

0062 

0063 


REF  6 LAST  1410 
RFF  38  LAST  1400 
REF  398  LAST  1410 
REF  39  LAST  1410 
REF  399  LAST  1410 


16, 2277 

■ 

16,  2301 
16,2302 
1 6 ,2  3 C3 


11*426  1 

3 4733  1 
C 00C2  0 

4 4733  0 
0 0002  0 


3364 

0065 

0066 
0067 


REF  7 LAST  UlO 


REF  2 
REF  400 


LAST  1409 
LAST  UlO 


16,  2304 

16  ,2305 
16,2306 
16,  2307 


27  0 01  VIDER 


0 0006  1 
11 ' 747 
0 0002 


DXCH  OMEGA  U 
FXT  END 

DV  DAPTREG4 


0068 
3 366 

0070 

0071 


LAST  1 4 1 1 1 
LAST  1410 
I AST  1392 


16.2310  54  007  1 

16. 2311  C CCC?  0 

16.2312  50  ODD  1 

16.2313  4 4734  1 


OVERSUB  TS 


R IT  1 5 -1 


0072 

0073 
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16,2605  27*423  1 

16,  2606  C 2310  1 
16,2607  55*423  1 


MP  FIVE 

EXTEND 

DV  0APTFMP2 

AOS  AO  SR 

IN  CR  NR  TRAPS 

C A JETRATEP. 

AD  AO  SR  TERM 

ADS  3MEGAR 

TC  OVEPSUB 

TS  OMEGAR 


40239 
A3  243 
A 0241 


END  OF  PAT  E DER  IV  AT  ION 
BEGI  N OFFSET  E STI  MATER 

IN  POWERED  FLIGHT,  AOSTASK  WILL  BE  CALLED  EVEPY  2 SECONDS. 


A 242 


AOS  = AOS  + K*SIJMRATE 


0243  RFF  39 

0244  RFF  3 

3245  ref  479 

0246  RFF  1 

0247  REF  6 

0248  REF  5 

0249  REF  6 

3255  REF  5 

0251  RFF  I” 

0252  RFF  7 

3253  REF  1 

0254 

0255  REF  2 

0256 

4267  RTF  3 

4268  RFF  20 

0259  RFF  21 

0260  PFF  7 

3251 

0262  PFF  1 

3 263  REF  7 

0264  REF  2 

0265 

3266  REF  4 

0267  REF  8 

U?6«  RFF  c 

3269  REF  6 

02  70 

0271  REF  2 

0272  REF  6 

02721  REF  2 


LAST  1413 
LAST  1397 
LAST  1410 

LAST  1399 
I AST  1399 
LAST  1414 
LAST  1415 
LAST  1414 
LAST  1415 


LAST  1399 

LAST  1006 
LAST  1415 
LAST  1416 
LAST  1415 


LAST  1416 
LAST  1399 

LAST  1415 
LAST  1415 
LAST  1415 
LAST  1415 

LAST  1415 
LAST  1415 
LAST  1415 


16,2610 
lb, 2611 
16,  2612 
16  ,2613 
16,2614 
16,  2615 

15  ,2616 
16,  2617 
16,2620 
16,2621 
16,  2622 

16  ,2623 

16.2624 

16. 2625 
16  ,2626 
Lb, 2627 
16,2  630 
16  ,2631 
16, 2632 
16  ,2633 
16,2634 
16,  2fclS 

15  ,26  36 
16, 2637 

16.2640 

16.2641 
16,  2642 

16  ,2643 

16.2644 

16. 2645 
15  ,2646 


7 4744  0 
1C  CCO  0 
1 2624  1 
55*424  0 
55*425  1 

55*544  1 
. 5 ' 545  0 
55*536  1 
55*540  0 
1 2667  0 
00074  1 
7 1510  1 
0 0006  1 
7 4766  0 
21' 537  0 
3 1536  0 
55*424  0 
C OCO 6 1 
7 3621  0 
c 5 ’ 544  1 
3 1512  0 
0 0006  1 
7 4766  0 
21*541  l 
3 1540  1 
55*425  1 
0 0006  1 
7 3621  0 
55*545  0 
1 2667  0 


CS 

MASK 

CCS 

TC  F 

TS 

TS 

TS 

TS 

TS 

TS 

TC  F 

KAOS  DEC 

WORKTI ME  CA 

E XTEND 

MP 

OAS 

CA 

TS 

E XTE NO 
MP 
TS 
CA 

EXT  END 

MP 

DAS 

CA 

TS 

EXTEND 

MP 

TS 

TCF 


DA  PBOOL  S 
DR  IFTBIT 
A 

WORK  T IM F 

AL  PHAO 

ALPHAR 

AOSQTERM 

AOSRTERM 

AOSQ 

AOS  R 

PRE  TI  MCK 

60 

QACCDOT 

CALLCODE 

AOSQ 

AOSQ 

ALPHAQ 

20CMS 

AOSOTFRM 

RACCDOT 

CALLCOOE 
AO  SR 
AOS  R 
ALPHAR 

2D0MS 
AO  SR  TFR  V 
PR  ET  I MCK 


7FR0  THE  OFFSET  ACCEL  FR  AT  ION  VAL  UF  S. 


OCTAL  00032  IS  OECIMAL  .1  AT  2(6). 


.2  AT  1 


OCT  AL  OOD  32  IS  OEC  IM  AL 


.1  AT  2(  6). 


.2  AT  1 


1AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7ERL  1NA  8Y  ZOROASTER 


L P-AXIS  RC S AUTOPILOT 

R0273 


02  74  REF  1 
32742  REF  21 
0274-4  RFF  480 
02746  PFF  1 


16,2647  3 4747  1 PAXFILT  CA  CALLGMBL 

LAST  1 AO 7 16,2650  7 1262  1 MASK  RCSF  LAGS 


LAST  141  5 16,2651  10  000  0 CCS  A 

16,2652  0 3741  0 TC  ACDT+C12 


327^ 
0276 
i 277 
'278 

1270 


0280 
02  81 


'282 
J 28  3 


0284 


RFF  12 
REF  4 
REF  1 
PEF  3 
RFF  13 
PEF  1 
RFF  1 
REF  1 
REF  3 
REF  1 


LAST  112C 
LAST  141 

LAST  1771 
LAST  1409 


LAST  1409 


16,  2653 
16  ,2554 
16,2655 
16,  2656 
16  ,2657 
16,  2 6 6 C 
16,2661 
16,2662 
16,  2663 
16  , 7 564 


52  OH  0 
53 ' 753  0 
2 2666  0 
c 6 017  1 
2?  012  1 
52' 755  C 
3 2665  0 
52  016  1 
5 : * 757  1 
1 5306  0 


OXCH 

QXCH 

CA 

XCH 

LX  FH 

DXCH 

CA 

DXCH 

OXCH 

TCF 


AKUPT 

DAPARUPT 

SUPER JCB 

3RLPT 

QRUPT 

DAPBGRPT 

SUPERAOR 

ZRUPT 

D A PZPUPT 

NOQRPSM  +1 


0286  REF  2 LAST  Ul6  16,  2665  02667  1 SUP  E3  A 03  GENADR  SUPER  JOB  ♦-  1 

?'287  COUNT  DOWN  GI  MBAL  DRIVE  TIMERS  AND  TUP-N  OFF  DRIVES  IF  REQUIRED. 


0289 
3293 
0291 
P2o2 
02  93 


REF 
REF 
RFF 
RFF 
REF 
R FF 
PFF 


LAST  1400 

LAST  1400 


16, 2666 
14,2667 
16  ,2670 
16,  267  1 
16  ,2672 
16 ,267  3 
16, 2674 


1 3£  44  0 
1 1 '631  0 
1 2710  1 
1 2714  0 
11'633  1 
1 2712  0 
1 2724  0 


SUPER  JOB  TCF 
PRETIMCK  CCS 
TCF 
TCF 

CHKRT  IMR  CCS 
TCF 
TCF 


PATELOCP 
051 MTT MR 
DECQT  IMR 
TURNOFFQ 
RGIMTIMR 
OECRT IMR 
TURNOFFR 


0294 

7295  RFF 
02  96 

0297  RFF 
7 298 

0299  RFF 
0 300  REF 
0301  REF 
03C2 

7373  REF 
03(74  RFF 
0305  REF 
3336  REF 

0307  PFF 

0308  REF 


2 

2 

36 

22 


LAST  1400 

LAST  1400 

LAST  1430 
I A ST  140C 
LAST  1416 


I A ST  1416 

LAST  1416 
LAST  1416 


16,2675 
16,  2676 
16,2677 
16,2700 
1h,  2 7C  1 
16  ,2702 
l fc  » 27C 3 
16,  2704 
Lb, 2705 
16,  27C6 
16,270  7 
16,2710 
16,  2711 
16  ,271? 
16,2713 


C 0006  1 
27 ' 766  0 

0 C 006  l 
27*767  1 
0 0006  1 
2 7 ' 770  1 
- 4740  0 
7 1262  1 
0 0006  1 

1 2734  1 

0 274 0 0 
55' 63 1 0 

1 2672  1 
55*633  1 
1 2675  0 


EXT  END 

DIM  PJETCTR 

EXTEND 

DIM  J J ET  CT  R 

E XTF ND 

DIM  VJETCTR 

CA  BIT12 

MASK  RCSF  LAGS 

EX  T EM  D 

RZF  SKIPPAXS 

TC  CHKVI  SF  7. 

DECQTI  MP.  TS  QGIMT  IMR 

TCF  CM KRTI  MR 

CECRT  IMR  TS  RGIMTIMR 

TCF  CHKRT  IMR  +3 


03  09 
I 

3311 

0312 


PEF 

REF 

REF 


1399 
141  5 


16,  2714  55*501  0 

16,2715  55*  510  0 

16,  2716  4 5CC  7 1 

16,2717  0 0006  1 


TURNOFFQ  TS 


NEGUQ 
GACCDOT 
QGI MBITS 


9:12  OCT.  21,1970  ZLMOAP  .001  PAGE  1<*15 


USER'S  PAGF  NO.  8 E6  S4 

EXECUTE  ACDT+C12,  IF  NEEDED. 

C A L LG  M3  L IS  NOT  BIT15,  SO  THIS  TEST  IS 
VAI  ID. 

SETTING  UP  THE  SUPERJOB 


RELINT  (JUST  IN  CASE)  AND  RESUMP,  IN  THE 
FORM  OF  A JASK,  AT  SUPERJOB. 


POSITIVE-  COUNTING  DOWN 
NEGATIVE-  DRIVE  SHOULD  BE  ENDED 
NEGATI  ME-  I NACTI  VF 
(NFG  ZERO-  IMPOSS  IBL  E ) 

REPEATED  (ABOVE)  FCR  R AXIS. 

DECREMENT  DOCKED  JET  INHIBITION  COUNTERS 


COUNT  TIMERS  DOWN  TO  POS  ZERO. 


HALT  DRI  VES. 


> AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 
L P-A  XI  S RC  S AUTOPI  LOT 


9:12  CCT.  21  » 1 970  ZLMOAP  .001  PAGE  1417 
USER  • S PAGE  NO.  9 E6  S4 


3313 

REF 

66 

L AST 

1407 

16,  2720 

C 3 C 12 

1 

WAND 

CHAN12 

0-31  4 

RFF 

7 

LAST 

1113 

16,2721 

3 4735 

l 

CAF 

NEGMA  X 

0315 

REF 

6 

LAST 

1416 

16,2722 

55' 631 

0 

TS 

QGIMT  IMR 

3316 

REF 

3 

1 AST 

1 41  6 

16,  2723 

1 2672 

1 

TCF 

CHKRTI  MP 

0317 

REF 

? 

LAST 

1399 

16  ,2724 

55*503 

1 

TURNflFFR  TS 

NEGUR 

r>  31P 

RCF 

3 

l A ST 

1415 

16,2725 

55'  512 

1 

TS 

RACCDOT 

0319 

RFF 

1 

16, 2726 

4 5020 

1 

C S 

RG I MB I TS 

0320 

16  ,2727 

0 0006 

1 

EXT  END 

3321 

REF 

67 

LAST 

1417 

16, 2730 

C 3 C 1 2 

1 

WA  ND 

CHAN12 

032? 

REF 

8 

LAST 

14  1 7 

16,2731 

3 4735 

1 

CAF 

NEGMA  X 

0323 

RFF 

4 

LAST 

1416 

16  ,2732 

55*633 

1 

TS 

RGIMT  IMR 

3324 

RFF 

4 

L AST 

1417 

16,  273.3 

1 2675 

0 

TCF 

CHKRTI  MR  +3 

0325 

RFF 

12 

LAST 

1292 

5007 

QGIMBITS  EQUALS 

3 C T 1400 

BITS  9 AND  10  (OF  CHANNEL  12). 

0326 

REF 

* 

LAST 

1275 

5020 

RGI MBITS  EQUALS 

PR  106 

BITS  11  AND  12  (OF  CHANNEL  12). 

0327 

RFF 

23 

LAST 

1416 

16,  27  ? 4 

4 1262 

1 

SK  IPPA  XS  C S 

RC  SF  LAG  S 

0 3?  8 

REF 

37 

LAST 

14  lb 

16,2  735 

7 4740 

1 

MASK 

B IT  12 

3329 

RFF 

24 

LAST 

1417 

16, ?736 

27*  262 

1 

ADS 

RC  SF  L AGS 

BIT  12  SET  TO  1 . 

0330 

RFF 

1 

16,2737 

1 3627 

0 

TCF 

QRA  XI  S 

GO  TO  QRA  XI  S OR  TO  GTS. 

A 0 331 

Y-Z  TRANSLAT  ION 

A ' 33? 

I NPUT : BI  TS  9- 

12  OF  CH31  (FROM  TRANSLATION  CONTROLERI 

4,0333 

OUTPUT:  NEXTP 

A 334 

NEXT  P IS  THE 

CHANNEL  6 CCOE 

OF  JETS  FOR  THF.  DESIRED  TRANSLATION- 

A'  3 55 

IF  THERE  ARE  1 

FA  I LURE  S IN  THE 

OF  S I RED  POLICY,  THEN 

A M 37  6 

(1)  FOR  DIAGONAL  TRANS: 

UN  FAIL  ED  PA  !R 

A3337 

ALARM  ( IF  NO  PAIR  ) 

4 0338 

( 2)  FOR  PR  INC  IPAl  TRANS: 

TRY  TO  TACK  WITH  DIAGONAL  PAIRS 

4 0 339 

ALARM  (IF  DIAGONAL  PAIRS  ARE  FAILED) 

3343 

16,  2740 

C 0006 

1 

CHKVI  SFZ  EXTEND 

0341 

REF 

9 

LAST 

1398 

16  ,2741 

00  031 

0 

READ 

CHAN  31 

034? 

REF 

481 

1 A ST 

1416 

16,2742 

4 OCCC 

0 

CS 

A 

0343 

REF 

1 

16,  2743 

7 3616 

1 

MA  SK 

074000C  T 

0344 

16  ,2744 

0 0006 

1 

EX  T EN  D 

3345 

R EF 

1 

16,  2745 

1 3C14 

0 

BZF 

TSNEXT  P 

0346 

16,?  746 

C 0006 

1 

EXTEND 

0347 

REF 

41 

LAST 

1288 

16,2747 

7 4745 

1 

MP 

B IT  7 

3348 

REF 

48? 

1 AST 

1417 

16,  275C 

5 C ECO 

1 

I NDE  X 

A 

0349 

REF 

1 

16  ,2751 

3 3575 

0 

CA 

INDXYZ 

0350 

REF 

1 

16,2752 

5 5 * 743 

1 

TS 

ROT  INDEX 

0351 

RFF 

27 

L AST 

1436 

16,  2753 

' 6254 

1 

TRYUDRV  CA 

SI  X 

0352 

RFF 

1 

16  ,2754 

0 3 554 

0 

TC 

SFL  ECTYZ 

3353 

REF 

28 

LAST 

1417 

L6,  2755 

4 6254 

0 

CS 

SIX 

0354 

RFF 

1 

16,2756 

6 1742 

1 

AD 

NUMBER  T 

0355 

16,2757 

0 0006 

1 

EXTEND 

3A?  ; 


SSCMBLE  REVISION  S6  OF  A(.C  PROGRAM  ZEPLINA  BY  ZOROASTER 


P-AX  IS  RCS  AUTOPILOT 


035  6 REF  2 

'357  PFF  21 

3358  REF  2 

0359 

' 360  PEF  1 

03M  PFF  2 

0362  PFF  33 

3363 

0364  REF  3 

0365  RCF  45 

3366 

0367  PFF  50 

0368  REF  25 

0369 
. 0370 

3371  REF  26 

( 372  REF  n 

0373  REF  4 

3374  REF  60 

0375  PFF  27 

0 376 

0377 

0378  REF  28 

3379  PFF  61 

0380  REF  34 

0381  REF  3 

3382  REF  1 

0383  REF  I 

0 38*  PEF  7 

A03  85 


LAST  1417 
LAST  1415 
(AST  1417 


LAST  1417 
LAST  1400 

LAST  1*1 8 
LAST  13C7 

LAST  1382 
LAST  1417 


LAST  1418 
LAST  1414 
I A ST  1418 
LAST  1418 
LAST  1418 


LAST  1418 
LAST  1418 
LAST  1418 
LAST  1418 


I A ST  1401 


16.2760 

16.2761 
16,  2762 
16  ,2763 

16 . 2764 

16. 2765 

16 .2766 

16. 2767 
16,?77C 
16,2  771 
16, 2772 
16  ,2773 

16.2774 

16. 2775 
16  ,2776 
16, 2777 
16,  3000 
16,3001 
16, 30C2 
16  ,3003 
16,3004 
16,  3005 
16  ,3006 
IF, 3007 
16,  3010 
16,3611 
16,  3C12 
16  ,3013 
16,3014 


l 3013  1 
4 4756  0 
6 1743  C 
C 0006  1 
ft  3002  C 
c 1742  0 
6 4751  0 
f 0CC6  1 
6 3C13  0 
C 5600  1 
C2CC1  1 
3 4753  1 
23' 262  0 
C 0CC6  1 

06  L01  0 
c5'2ft 2 1 
3 4755  1 
1 3014  0 
3 4753  1 
2 3 ' 262  0 
C 0006  L 
C 6 GCl  0 
55' 262  1 

7 4753  0 
6 4751  0 
27' 743  1 
1 2753  0 
3 1740  0 
55*  472  0 


BZF 

CS 

AO 

EXTEND 
9ZMF 
C S 
AO 

EXTEND 

BZMF 

A8CRTYZ  TC 
OCT 
CA 

LXCH 
E XTEND 
RX  OR 
TS 
CA 
TCF 

ALTERYZ  CA 

L XCH 
EXTEND 
P XOR 
TS 

MASK 

AD 

ADS 

TCF 

CA 

TSNEXTP  TS 
STATE  LOGIC 


TSNFXTP  - 
F IV  E 

ROTINDEX 

ALTERYZ 
NUMBER  T 
FOUR 

TSNE  XTP  1 
AL  ARM 

02CC1 
P IT  1 
RCS  FL AGS 


1 

RC  SF  LAGS 
ZERO 
TSNEXTP 
BI  Tl 

P.C  SFLAGS 
1 

RCS  FL  AGS 
81  Tl 

FOUR 

ROT  INDEX 
TRYUCRV 
POL  YTFMP 
NEX  T P 


A P 3 86 
A0387 
A0388 


\ C 3R9 
A3  390 

0391 

0392 
03  93 
0394 
3395 


REF  53 
REF  1C 
REF  1 


LAST  1399 
LAST  1417 


16  ,3015 
16  ,3016 
16,  30  17 
16  ,3020 
16,  302  1 


3 4737  0 
C 0006  1 
02  031  1 

0 0006  I 

1 3C2  7 C 


CHECK  IN  ORDER: 
LPOPHASE 
PULSES 

DETENT  (BIT  15  CH31  ) 
GO  TC  PURGE  NCY 

CA  B IT 1 3 

EXTEND 

RAND  CHAN31 
EXTEND 

BZF  MANMCOE 


03  96 

0397 

0398 

0399 


REF  40 
RFF  2 
REF  483 
REF  1 


LAST  1415 
LAST  901 
LAST  1417 


16.3022 

16.3023 

16. 3024 
16  ,3025 


3 0111  0 
7 4743  1 
10  OCO  0 
1 3466  1 


CA  DAP800L  S 

MASK  XOVINHIB 
CCS  A 

TCF  PURGFNCY 


0409 

0401 

0402 


R EF  l 

RFF  2 LAST  724 
REF  41  LAST  141B 


MANMODE  CA 


16,3030  7 0111  1 


DETFNTCK 
P ULSE  S 
DAPBOOLS 


9:  12  OCT.  21,  1970  ZLMDAP 


PAGE  1418 


. 001 


USER'S  PAGE  NO.  If 


INVERT  BIT  1 OF  PCSFLAGS. 


INVERT  BIT  1 OF  RCS  FL  AGS  . 


IF  ON 

GO  TO  PURGENCY 
MINIMUM  PULSF  LOGIC 
RATE  COMMAND 


CHECK  STICK  IF  IN  ATT.  HOLD. 


ATTITUDE  STEER  DURING  VISIBILITY  PHASE 


PULSES  IS  ONE  FCR  PULSE  MODE 


3 AP: 


ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,1970  ZLNDAP  .001  PAGE  1919 


L P-AXIS  P.CS  AUTOPILOT 


USER'S  PAGE  NO.  11  E6  S4 


04  03 

0 AO  4 REF 


LAST  141  8 


16,  30  31  C 0006  1 
16  ,3032  1 3071  0 


EXTEND 

BZF  DETENTCK  BRANCH  FOR  RATE  COMMAND 


D 4?  5 REF  ?9P 

0406  RFF  4 

R0  4C7  MINIMUM 


LAST  l4l0  16,  3033 

LAST  14C9  16  ,3034 

IMPULSF  MODE 


3 4755  1 
55 ' 464  1 


CA  ZERO 

TS  P ERROR 


16,  30  35  3 0032  0 

16,3036  55*634  0 


CA  CDUX 

TS  CUUXD 


RCF  2 LAST  1400  1 6,  3C37  1 1*460  0 

0411  REF  1 16,3040  1 3054  1 


CCS  OLDPMIN 

TCF  CHECK  P 


sm 

0414 
r 415 
04  1 6 


REF 

REF 

REF 


39 

1 1 


1 


LA  ST 
LAST 


14C7  16,3041  3 475  1 0 

16,  3042  C OC 0 6 1 
1418  16 ,3043  02  031  1 

16,  3 (*>44  C CCC6  1 
16,  3045  1 3064  l 


FI  REP 


CA  BIT3 

E XTEND 

RAND  C HAN  3 1 
EXTEND 

BZF  +XMIN 


0417  RFF 
) 4 1 9 

'419  REF 
0420 

.’421  RFF 


54 

12 


1 


LA  ST 


LAST 


140  7 

141  9 


16,3046  3 4750  1 

16,  3047  C C C 0 6 1 
16  ,3050  02  031  1 

16  ,3051  C 0006  1 
16,  3052  1 3062  1 


CA  BIT  4 

EXTE  ND 

RAND  CHAN  31 
EXTEND 

BZF  -XMIN 


0422  REF 


16  ,3053  1 3445  0 


TCF  J ETSDFF 


3423 
0424 
• i42  5 
3426 
"42  7 
3 428 


REF  13 
RFF  484 
REF  5 
RFF  3 
REF  2 


LAST  1419 
LAST  1418 
LAST  1320 
LAST  1419 
LAST  1419 


16. 3054 

16.3055 

16.3056 
16,  3C57 
16  ,3060 
16,3061 


C 0006  1 

00  031  0 
4 0000  0 
7 5752  0 
55 '460  0 

1 3445  0 


CHFC KP 


EXTEND 

READ  CHAN31 

CS  A 

MASK  0CT14 

TS  OLDPMIN 

TCF  JETSOFF 


0429 

0430 
3 431 
0432 
0 43  3 
1434 

•;  435 


RFF  9 

REF  10 
REF  4 
REF  143 
RFF  4 
RFF  1 


LAST  1400 

LAST  1419 
LAST  1-399 
LAST  1410 
LAST  1419 


16,  3062 
16,3063 
16, 3C64 
16,3065 
1 6 ,'<066 
16, 3067 
' , 7 


4 4363  1 

1 3066  0 

2 4363  0 
55*524  1 

3 4753  1 

5 c ' 46C  C 
1 3353  0 


CS  TEN  ANYTHING  LESS  THAN  14MS.  CORRECTED 

TCF  +2  IN  JET  SELECTION  ROUTINE 

CA  TEN 

TS  TJP 

CA  UNE 

TS  OLDPMIN 

TCF  PJETSLFC  -6 


R 436  MANUAL  RATE  CCMMAMO  MODE 

R04 3 7 = = ==  = = ==  = ===  = = = = = = = = = = = = 

3 0,43,8  BY  ROBERT  F.  STENGEL 

R0439 

R 044  0 THIS  MTUF  PROVIOES  RCAh  MANUAL  CONTROL  TH°  U 2 CONTROL  LAWS:  1)  DIRFCT  PATF  AND  2)  PS  EU  DO-AUT  t). 

3 "442  THF  DIRECT  PATE  MODE  AFFORDS  IMMEDIATE  CONTROL  WITHOUT  OVERSHOOT.  THF  PSEUDO-AUTO  MODE  PROVIDES  PRECISE 
RD44<.  R AT  E CONTROL  AN  C ATTITUDE  HOLD. 

R0445 
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L P-AXI  S RC  S ALTCPI  I C 7 


USER  *S  PAGE  NO.  12  ft  S4 


R5446 
- • 

K 9 4 50 
R(  '^.5^ 
R 0455 
R1455 
R0457 
1 045  5 
Rj4t: 
« ' 462 
R 0 46  5 
R546& 
< ' 4 66 
R 4 5 R 
RC4  7 
A "47  ? 
A ’475 
A ’ *»  74 
A 0 475 
5476 
0477 
C 4 78 
04  79 
0480 
04R1 

0482 

0483 
5484 
0485 

RO  486 
0487 
04  8 8 
5499 
0490 
0 491 
5492 

0493 

0494 
C495 


IN  DIRECT  RATE,  JETS  ARE  FIRED  WHEN  STICK  POSITION  CHANGFS  BY  A FIXED  NUMBER  OF  INCRFMENTS  IN  ONE  DAP  CYCLE. 

THE  '8PFAK0UT  LFVEL'  IS  .6  D/S  FOR  LM-ONLY  AND  .3  D/S  FOR  CSM-DDCKED.  THIS  LAW  NULLS  THF  PATE  ERROR  TO  WITHIN 
THE  ' TARGF  7 DEADBAND  ' , WHICH  ECLALS  THE  BREAKOUT  LEVEL. 

IN  PSEUOO-AIJTO,  HOCY-FIXFD  RATE  AND  ATTITUDE  ERRORS  ARE  SUPPLIED  TO  TJFTLAW,  WHICH  EXERCISES  CONTROL. 

CONTROL  SWITCHES  FPCM  DI  PFCT  PATE  TO  PSEUDO-AUTO  IF  THE  TARGET  D8  IS  ACHIEVED  5R  IF  TIME  IN  (1)  EXCEEDS  4 SEC. 

IF  THE  INITIAL  COMMAND  DOES  NOT  EXCEED  THF  BREAKOUT  LEVEL.  CCNTRCL  GCES  TO  PSEUDO-AUTO  IMMEDIATELY. 

SINCE  P-AXIS  CCNTPCL  IS  SEFAFATE  FROM  Q,R  AX  FS  CONTROL,  IT  IS  POSSIBLE  TO  USE  (1)  IN  P-AXI  S AND  (2)  IN  Q,R  AXES, 
OR  VICE  V EPS  A . THIS  ALLOWS  A OEGREE  of  ATTITUDE  HOLD  IN  UNCONTROLLED  AXES.  DUE  TO  J,V  CONTROL,  HOWEVER,  0 AND 
R AXFS  ARE  COUPLEC  AND  MijST  USE  TFE  SAME  CONTROL  l AW . 

HANn  CCNTPOLl  ER  COMMANCS  ARE  SCAL  FD  RY  A L l N E A R /5  UA  0 R A TIC  LAW.  FOR  THF  LM-ALONE,  MAXIMUM  COMMANDED  PATES  ARE  25 
AMD  4 0/S  IN  NORMAL  AND  FINE  SCALING;  HOWEVER,  STICK  SENSITIVITY  AT  ZERO  COUNTS  (OBTAINED  AT  A STICK  DEFLECTICN 
OF  2 DEGREES  FROM  THF  CENTERED  POSITION)  I S . 5 OR  .1  0/S  PER  DEGREE.  NORMAL  ANO  FINE  SCALINGS  FOR  THE  CSM-DOCKED 
CASE  IS  AUTOMATICALLY  SET  TO  1/1.0  THF  ABOVE  VALUES.  SCALING  IS  DETERMINED  IN  ROUTINE  3. 

ZEROENeL  ENABLES  COUNTERS  SO  THF Y CAN  BE  R F AO  NEXT  TIME 

JL  STOUT  FIRST  DETECTION  OF  OUT  OF  DETENT  ( PY  OUPRCBIT) 


PEF  14  LAST  1419 
P EF  1 

PTE  50  I AST  V,l0 

R EF  l 
REF  1 

REF  42  LAST  1418 
REF  2 LAST  1418 


16,  3C  7 1 
16  ,3072 
16  ,3C73 
16,  30  74 
16  ,3075 
, 

16,  3077 
16,3100 
16,  31C1 
16  ,3102 


C 0006  1 D6TENTCK  EXTEND 

00  031  0 READ  C HAN  3 1 

5?'443  1 TS  CH31TEMP 

7 4735  0 MA  SK  3 1 T 1 5 

0 0006  1 EXTEND 

1 3222  1 BZF  RHC  MOVED 

3 4740  0 CAF  OURRCBI  T 

7 0111  1 MASK  UAPBOOLS 

C CCC6  1 EXTEND 

1 3466  1 BZF  PURGENCY 


CHECK  OUT-OF-DETENT  BIT. 

BRANCH  IF  OUT  OF  DETENT. 

IN  DETENT.  CHECK  THE  RATE  COMMAND  BIT. 


BRANCH  IF  NOT  IN  PATE  COMMAND  LAST  PASS. 


REF  34 
REF  29 

REF  1 
RFF  54 

RFF  15 

PEF  1 


l AST  138  1 
LAST  1418 

LAST  1418 
LAST  1420 


16,  3 1C  3 
16  ,3  104 
16,  3105 
1 6 , 3106 
16,3107 

16, 3110 
16  ,311  1 
16,?  1 12 
16,  3 1 13 


3 4743  0 
7 1262  1 
C 0006  1 
1 3120  0 
3 4737  0 
C 0CC6  1 
02031  L 
0 0006  1 
1 3217  1 


CA  BI T9  JUST  I N DETENT?? 

MASK  RCSFLAGS 

EXTEND 

BZF  RUTH 

CAF  BIT  13  CHECK  FOR  ATTITUDE  HOLD. 

E XTFND 

RAND  CHAN  3 I 

EXTEND 

BZF  RA7EDAMP  BRANCH  IF  IN  ATTITUCE  HOLD. 


0496 
5 49  7 
0498 
049° 


PFF  1 

PEF  30  LAST  1420 
PEF  31  LAST  1420 
PFF  2 LAST  1420 


16,3114  4 5014  0 

16,  3115  7 1262  1 

16.3116  55 ' 26  2 1 

16.3117  1 3217  1 


CS  B ITS 9 , 11  IN  AUTO . 

MASK  RCSFLAGS  (X-AXIS  OVERRIDE) 

TS  RCSFLAGS  ZERO  ORBIT  (BIT  11)  AND  JUST-IN  BIT  (9). 

TCF  RATEDAMP 


5550  REF 

0501  RFF 

0502 
05  ('3 

0504  REF 


32  LAST  1 42c 
1 

3 LAST  1420 


16 , 3 1 20  3 

16.3121  7 

16.3122  C 

16.3123  1 

16.3124  1 


1262  0 RUTH 
4742  C 
0CC6  1 
3125  0 
3217  1 


CA  RCSFLAGS 

MASK  P B IT  IN  ATTITUDE  HOLD. 

EXTEND 

BZF  +2  BRANCH  IF  P-RATE  CAMPING  IS  FINISHED. 

TCF  RATEDAMP 


CAP:  ASSEMBLE  REVISION  5b  OF  AGO  PRC  GR  AM  ZERLINA  BY  ZOROASTER 


L P-AXISRCS  AUTOPILOT 


0505 

0506 
D 5 0 7 
0508 
0500 

R0510 

0511 

0512 

0513 

0514 

0516 
R 0 5 1 6 

0517 
05 1 8 
0519 
3520 


REF  33  LAST  1-420 
REF  1 

REF  1 

REF  A LAST  1420 


16. 3125  3 1262  0 

16.3126  7 4741  0 

16. 3127  C 0006  1 

16  ,3130  1 3134  0 

16,3131  1 3217  1 


CA  RCSFLAGS 

MASK  ORBIT 

E X TE  NO 

BZF  PATEOONE 

TCF  RATEOAMP 


REF  62  LAST  1410 
REF  6 I AST  1360 

REF  13  LAST  94  9 


4753 
4771 
16, 3132 
6014 
16,  3133 


1/10SEC  = B IT  1 

40CYC  = 0CT50 

74777  0 PQR6IT  OCT  74777 

BITS9.il  EQUALS  EBANK5 
C0C56  1 LI  NR A TP  OEC  ^6 


REF  2 LAST  1420 

REF  43  LAST  1420 
R FF  44  I AST  142 1 


16,3  134 
16, 3135 
16  ,3136 
16, 3 137 


4 4740  1 RATEOCNE  CS 
0 0004  0 INHINT 

7 0111  1 MASK 

54  111  1 TS 


OURRCBIT 

DAPBOOLS 

OAPBOOLS 


R0521  READ  CDtJS  INTO  CDU  OESIRED  REGISTERS 


0522 

3523 

0524 

0525 

0526 

0527 
052B 
052Q 
0530 
3 531 
0532 
0 533 


REF 

REF 


PEF 

REF 

REF 

REF 

REF 


55 

16 


27 

24 

56 

10 


I A ST  1420 
LAST  1420 

LAST  1419 
1 AST  14  19 

I AST  140  l 
LAST  1399 

LAST  1420 


16,  3141 

16  ,3142 

16.3143 

16. 3144 

16.3145 
16,  3 146 
16,3147 
16,3150 
16,  3 16  1 
16  ,3152 
16,3  163 


3 4737  0 

0 00C6  1 

02  031  1 
f CCC6  1 

1 3150  1 

3 0032  0 
55 ' (34  0 
0 3152  1 
0 4674  0 

40154  0 

0 0003  1 

1 3466  1 


CAF  B IT  1 3 

E XTEND 

RAND  CHAN  31 

EXTEND 
BZF  +4 

CA  C DUX 

TS  CDUXO 

TC  +3 

TC  IBNKCALL 

FCADR  7 ATTE  ROR 

REL  INT 

TCF  PURGENCY 


0534  REF  5 

0538  REF  5 

3539  PEF  6 

0540  REF  4 

0541  REF  5 

3542  REF  4 

C 543  RFF  6 

0544  REF  2 

0545  RFF  ? 

0546  REF  2 

0547  RFF  I 

0548  REF  1 

0540  REF  I 

0550  REF  34 

0551  RFF  35 

0555  REF  1 

05551  RFF  3 

<'5562  RFF  45 


LAST  1419 
LAST  1412 
LAST  1421 
LAST  1412 
I AST  1421 
LAST  1413 
LAST  1421 
LAST  1412 
LAST  1412 
LAST  14  13 


I AST  1421 
LAST  1421 

LAST  U21 
LAST  1421 


16,  3154 
16,3155 
16,  3 156 
16,3157 
16,3160 
16,  3 161 
16,3162 
U,  3163 
1 6,  3 16  4 

16.3165 

16. 3166 
16,  3l 67 
16,31 70 
16,  3171 
16  ,3  172 
16,3  173 
16,  3 174 
16 ,3175 


55*464  1 
55*446  1 
56*447  0 
5 5 '450  0 
55*451  1 
55*452  1 
55*453  0 
55' 454  1 
56*455  C 
55*456  0 
64  C 42  0 
54  C44  0 
3 3132  1 
7 12fc2  1 
55 ' 262  1 
C 3200  0 
3 4740  0 
26  111  1 


JUSTOUT 


TS  PERROR 

TS  OX  ERROR 

TS  OXERRCR  +1 

TS  OYFRROR 

TS  DY ERROR  +1 

TS  DZERROR 

TS  DZERROR  +1 

TS  PLAST 

TS  OLAST 

TS  R LAST 

TS  Q-RHCCT  R 

TS  R-RHCCTR 

CA  PQRRIT 

MASK  RCSFLAGS 

TS  RCSFLAGS 

TC  ZEROENBL 

CA  OURPCBI  T 

ADS  DAPRODLS 
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BRANCH  IF  0 ,R  RATF  DAMPING  IS  FINISHED. 


MANUAL  COMMAND  AND  DAMPING  COMPLETED  IN 
ALL  AXES. 


(X-AXIS  OVERT  IDE  ) 


INITIALIZATION  - FIRST  MANUAL  PASS  ( A = 0 ) 


BITS  10  AND  11  OF  RCSFLAGS  ARE  (. 

SET  INTERNAL  RATE  COMMANO  FLAG  (WHICH 
WAS  FOUND  TO  RF  ZERO  EARLIER) 


AP  : 


ASSEMBLE  REVISION  5o  CF  AGC  PR C GRAM  ZEKL INA  BY  ZOROASTER 


L P-AX  I S RC  S AUTOP I LOT 


0550 

0556  PFF  3 

3557  REF  2 

0558  RFF  2 

0559  R PF  1 

■>563  OFF  ?9« 

0561  RFF  1 

0562  REF  3 

0563  RFF  3 

056305 

3562  i 

05632  REF  5 

05633  PFF  9 


I AST  1MQ 
LAST  1621 
LAST  1421 

LAST  1419 

IAST  1422 
LAST  K22 


LAST  139  2 
IAST  1292 


16,  3 176 
16  ,3177 
16,  3200 
14,  320  l 
16,3202 
16,  3203 
16  ,3204 
16,3205 
16,  3 20  6 
16  ,3207 
16,  3 2 1 C 

V-,  3211 

16,3712 


C 0003  1 
1 3445  0 
22  C 44  1 
3 0042  1 
53' 463  0 
3 4755  1 
54  043  1 
5 4 042  0 
e 4 C 44  0 
0 000 4 0 
C CCC6  1 
23' 265  1 
0 6022  1 


RELINT 
T C F 

ZERUENBL  LXCH 


INHINT 
E X TE  NO 
OXF.H 


J ETSOFF 
R-RHCCTR 
Q-RHC  F.  TR 
S AV  EHANH 
ZERO 

P-RHCCTR 
Q-RHCCTP 
R-RHCC  TR 


S 130SAV 
C12ST ALL 


)5b<.  REF 
0566 

0 566  PbF 

0567  RTF 


1 16,  32  13  3 3622  1 

16,3214  C 0006  1 
21  LAST  1392  16,32  15  05  f'13  O 

6 LAST  1432  16,  3216  ( 1265  1 


C A BI  TSS  ,9 

EXTEND 

WOR  CHAN13 

TC  : 1 30  SA  V 


0568 
3569 
05  70 


REF  300  LAST  1422  16,3217 
REF  2 LAST  1422  16,  3220 
RFF  1 1 6 , 3 2 7 1 


3 4755  1 RATEDAMP  CA 
54  C43  1 TS 

1 3231  0 TC  F 


Z FRO 
P-RHCCTR 
R A TERRnR 


0 570  l PTF  36 

357 32  RFF  35 

05703  PFF  37 

0571  REF  4 

0572  REF  46 

0573 

7574  REF  1 

0574  RFF  28 

0576  REF  25 

3577  REF  3 

0578 

0579 

0580 

0581 
3582 

0583  REF  1 

0584 

3595  RFF  4 

0586  RFF  304 

0587 

0588  REF  6 

0589  REF  3 

3593 

0591  PEF  4 

059?  RFF  25 

3593  RFF  2 

05931 


l A ST 
L AST 
I A ST 
LA  ST 
LAST 


LAST 
LA  ST 
LAST 


L AST 
LAST 

L AST 
LAST 

LAST 
I A ST 
L AST 


1421 
14?0 

1422 
142  1 
142  1 


1421 
142  1 

1422 


1422 

1412 

299 

1421 

1422 
1414 
142  1 


16, 3223 
16  ,3224 
16, 3225 
16,  3226 
16,3227 
16,  3230 

16.3231 

16.3232 

16. 3233 
16  ,3234 
It  ,7235 

16. 3236 

16.3237 
16,  3240 
16,3241 
16 , 3 ?42 
It,  3243 
16  ,3244 
16,3  245 
16,  3246 
16  ,3247 
16,  ->250 
1 6,  3251 
16,3252 
16,  3253 
16  ,3254 


27  1 262  1 
1 4740  0 
7 0111  1 
C 0006  1 
1 3154  0 
3 0032  0 
55 ' 634  0 
10  0 43  1 
1 3237  0 
l 1237  0 
1 3237  0 
6 0000  1 
6 0000  1 

6 3133  0 
C 0006  1 

7 0043  1 

3 000  1 0 
0 0006  1 
7 1444  0 
57 ' 454  0 

4 CCCO  0 
6 1454  0 

5 5 ' 736  0 
C 32CO  0 
0 0003  1 


RHCMCVED  CS 

MA  SK 
ADS 
CA 

MA  SK 
EXT  END 
BZF 

PAT  ERROR  CA 
TS 
CCS 

TC  F 
TCF 
TC  F 

DOUBLE 

DOUBLE 

AD 

EXT  END 

MP 

CA 

EXTEND 

MP 

XCH 


PCS  FL  AGS 
81  T9 
RCSFLAGS 
0URRC8IT 
3APB00LS 

JUSTCUT 
CDU  X 
CDUXD 
P-RHCC  TR 
+ 3 
+2 
+ 1 


LINRATP 

P-RHCCTR 


STI  KSFNS 
PLAST 

PLAST 
DAPT  FMP1 
7ER0FNBL 
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COUNTERS  ZEPDEC  AND  FNABLED 


SET  JUST  IN  BIT  TO  1 

P CONTROL 

FINDCDUW  REQUIRES  THAT  CDUXD=CDUX  DURING 
X-AX  IS  OVERRIDE 


L INEAR /QUADRATIC  CONTROLLER  SCALING 
(SEE  EXPLANATION  IN  Q.R-AXES  RCS 
AUTOPI  LOT) 


INTERVAL 


ZERO  ANC  ENABLE  ACA  COUNTERS 


GAP:  ASSEMBLE  PEVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 
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L P-A  VI  S RC  S A L1  TO  PI  LOT 


USER'S  PAGE  NO.  15  E6  S4 


0594 
0 595 
0596 

05  97 
059B 

0599 

0600 
060  1 
060? 

06  C3 

0604 

0605 

0606 
0607 
06C8 
060*3 
0610 
0611 
0612 

0613 

0614 

0615 
06 1 6 
0617 
06  IB 
0619 
0 620 
0521 
0622 
0623 

062  4 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 
C 636 

063  7 

0638 

0639 

0640 

0641 
0542 
0643 


REF  5 
RFF  17 
REF  1 
PFF  26 


REF  5 


REF  1 
REF  2 
RFF  1 
REF  38 
REF  2 


REF  2 
REF  7 
RFF  1 
REF  6 
REF  4 
RFF  29 
RFF  26 
REF  3(1 
REF  8 
R EF  Q 
REF  7 
REF  2 


REF  1 
RFF  1 

REF  1 

REF  3 

REF  2 
RFF  ?9 
REF  3 
REF  40 


REF  4 
PFF  41 
REF  42 
REF  3 


REF  1 
REF  485 


LAST  1422 
LAST  1413 

LAST  1422 


LAST  299 


LAST  1410 

LAST  1422 
LAST  1420 


LAST  14?  3 
LAST  1421 

LAST  1421 
LAST  1421 
LAST  1422 
LAST  1422 
LAST  1422 
I AST  1423 
LAST  1423 
LAST  1423 
LAST  14?3 


LAST  1423 

LAST  142  3 
LAST  1423 
l AST  1423 
LAST  1423 

LAST  1423 
LAST  142  3 
LAST  1423 
LAST  142  3 


LAST  1419 


16,3255 
16  ,3256 
16,3257 
1h, 3260 
16,3261 
1 . 

16.3263 

16.3264 
16,  3265 
16  ,3266 
16,3267 
’ . 

16  ,3271 
16,  3272 
16,3273 

. 

16,  3275 
16  ,3276 
16,3  277 
1 6 , 3 300 
16  ,3301 
16,  3302 
16,  3 303 
16,3304 
16,  33C5 
16  ,3306 
16,3307 
16,  3 3 10 
16  ,3311 

16. 3312 

16.3313 

16.3314 

16. 3315 
16  ,3316 
16  ,3317 
16, 3320 
16  ,3321 
16, 3322 
1 ■ 

16,3324 
16,  3325 

' . 

16,33  27 

. 

16  ,3331 
16,  3 3 3 2 

16.3333 

16.3334 
16,  3335 
16  ,3336 


4 1454  1 
6 1421  1 
55*427  0 
1 1*736  0 
1 3264  0 
1 3272  1 

1 3264  0 
6 1476  0 
C 0006  1 

6 3272  0 

2 4771  1 
6 5 '445  1 

0 3303  1 
2 126?  0 

7 4742  0 
C 0006  1 

1 3277  1 
0 3 30  3 1 

3 1446  0 
55*751  1 
55*464  1 
C 3472  0 

3 0032  0 
5 5 ' 634  0 

2 4755  1 

5 5 ' 446  1 

5 5 ' 44  7 0 
55 '464  1 
1 1 ' 42  7 0 
C 3215  C 
0 3315  0 

0 3315  0 
55*736  0 

6 1476  0 
C 0006  l 
6 3330  1 

3 1445  0 
C CCC6  1 

6 3330  1 

4 1262  1 

7 4742  0 
27*262  l 

1 3333  C 

4 4742  0 
7 126?  1 

5 5 ' 262  1 
4 1427  0 
0 0006  1 
7 1550  1 
2C  00  1 1 


PFGI 


LA  ST 


CS  PLAST 

AD  OMEGAP 

TS  EOOTP 

CCS  DAPTEMP1 

TCF  +3 

TCF  +8 

TCF  +1 

AD  -RAT  EOB 

E XTEND 
8ZMF  +4 

CA  40  CYC 

TS  TCP 

TC  PEG  I 

CA  RCSFLAGS 

MASK  PBIT 

EXTEND 
BZF  +2 

TC  P EG  I 

CA  DX ERROR 

TS  E 

TS  PERROR 

TC  PURGENCY  +4 

CA  CDUX 

TS  C DUX  D 

CA  ZERO 

TS  DXERROR 

TS  DXERROR  +1 

TS  PERROR 

CCS  FDOTP 

TC  +3 

TC  +2 

TC  +1 

TS  ABSEDOTP 

AD  TARGETDB 

EXTEND 
3ZMF  LAST 

CA  TCP 

EXTEND 
B7MF  LAST 

CS  RCSFLAGS 

MASK  PBIT 

ADS  RCSFLAGS 

TCF  +4 

CS  P3I  T 

MASK  RCSFLAGS 

TS  RCSFLAGS 

CS  FDOTP 

EXTENO 

MP  1/ANETP 

DAS  A 


IF  P COMMAND  CHANGE  EXCEEDS  BP  EAKOUT 
LEVEL,  GO  TU  DIRECT  RATE  CONTROL.  IF  NOT 
CHECK  FOR  DIRECT  R AT  F CONTROL  LAST  TIME. 


CHECK  FOR  DIRECT  RATE  COMMAND  LAST  TIME. 


TO  PURE  RATE  COMMAND 
PSEUDO- AUTO  CONTROL. 

X-ATTITUOE  ERROR  (SP) 

LOAD  P-AXIS  ERROR  FOR  MODE  1 F DA  I 01  SPLAY 
DIRECT  RATE  CONTROL. 


ZERC  P-AXIS  ERRCR  FOR  MU0E1  FI;AI  DISPLAY 


IF  RATE  FRROR  IS  LESS  THAN  DEADBAND, 
FIRE,  AND  SWITCH  TO  PSEUOO-AUTO. 

IF  TIME  IN  RATE  COMMAND  EXCEEDS  4 SEC., 


BIT  1C  IS  1. 


1/2JTACC  SCALED  AT  2EXP(7)/PI 


GAP:  ASSFMBLF  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 
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: 6 A A 
06A5 
06A6 
06A7 
06A8 
)SAQ 

0650 

0651 


P-AXI  S RC  S A L TOP  I LOT 
RFF  IP  | AST  1 A 1 5 


REF 
RFF 
«FF 
P EF 


LAST  1A19 
LAST  1A23 
LAST  13A 


16,  7337 
16  » 3 3A0 
lt,33Al 
16,  3 3A  2 
16  ,3343 
16,  ^ 3 A A 
16, 33A5 
16, 3 3 A6 


2310  1 
0006  1 
7730  0 
5 ' 5 2 A 1 
1 736  1 
1A75  0 
0006  1 
3351  0 


OVER  SUB 

25/32 

TJP 

ABSEOOTP 
-2  JET  LI  M 


USER  'S  =>AGE  NO.  16 


COMPARING  OEITA  RATE  WITH  2 JET  LIMIT 


365  2 
0 653 
0 65A 
65 

A 0656 


REF  29  LAST  U17 


16,  3 3A  7 2 6 2 6 A 1 CA  SI  X 

16  , 3 3 5 C 1 3 360  C TCF  + RD 

16,3351  ? 1C?A  C CA  TJP 

16,-3352  2 7 • e 2a  1 AOS  TJP 

GOES  TO  PJETSLEC  FOR  TWO  JETS 


P- JE  T-SE  LEC  TI  ON-POIJT  I NE  (P-CT  AT  ION) 


A 366.0 
A C 661 
AO  662 


CHANNEL  6 
P JUMP  A DR 
(JTLST  CALL) 


A0663 
A 066A 
A3665 
A 0666 
A 0 66  7 
A3  66ft 
AC  669 
A0670 
A)67l 
0672 
< 7 . 
06  7A 
0675 
3676 
C677 
0 67P 
1679 
0680 
06B1 
0682 
0683 
16RA 
0 685 
0686 
168? 
0680 


ORDER  OF  POLICIES  TRIED  IN  CASE  OF  FAILURE. 


RFF  l 
REF  2Q 
RFF  A86 
REF  1AA 
RFF  35 
REF  3 
F F F l A 5 
REF  305 
RFF  R 

REF  A 


RFF  1A6 
REF  1 
REF  A 


LAST  1 A L 9 
LAST  1 A 1 8 
LAST  1 A I 8 
LAST  IA2A 
LAST  1 A2  2 
LAST  1A2A 

LAST  1 A22 

LAST  1 A2  A 

I A ST  1 A2  A 

LAST  1A1 8 


16 ,3353 
It,  ■*  3 5 A 

16. 3355 

16.3356 

16. 3357 
16  ,3360 
16,3361 
16,  3 362 
I . 

16,  336 A 
16,  3365 
16,3366 
16,  3367 
16  ,3370 
16,3371 
16,  3372 
16  ,3373 


3 A7A7  1 
7 01C1  C 
1C  000  0 
3 A753  1 
6 A7  5 1 0 
55  '7A2  0 
3 A75 3 l 

5 A 00 1 1 
11' 52A  1 
l 3371  0 
1 3AA5  0 
1 3370  I 

1 3AA5  0 

2 2 OC  7 0 

6 A7  53  1 
55*736  0 
2 3'  7A3  0 


+ P 

7,15 
A,  12 
A ,7 
7,12 
12,  15 
A ,15 
ALARM 


PJETSLEC  CA 
TS 
CCS 
TCF 
TCF 
TCF 
TCF 


-P 
8 ,1  6 
3,  11 
8,  11 
11  , 1 6 
3,  16 
3 ,8 
ALARM 


AORRSYST 
F LAGWRD5 
A 

ONE 

FOUR 

NUMBERT 

ONE 

L 

TJP 


ONE 
AB  ST J 
ROT  INDEX 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


AP  : 


P-AX IS  RC S AOTOPI LOT 


0689 

0690 
D531 
0692 

0691 


REF  1 

REF  30  LAST  1924 
REF  4 LAST  1424 


16, 3374  0 3f 34  0 

16  ,3375  4 6254  0 

It, 3376  fc  1742  1 
16,3377  C 0006  1 
16,3400  1 3402  0 


TC  SE  LEG  TP 

CS  S IX 

AO  NUMBERT 

EXTEND 
RZF  +2 


369^  REF 

0695  PFF 

0 696  REF 

0697  RFF 

0698  REF 
•599  RFF 

0700  PFF 

0701 

D7D2  REF 


9 2 LAST  140  7 
36  LAST  1424 
2 LAST  137 
2 LAST  I4lfi 
2 LAST  139  2 
2 I AST  1424 
1 


2 LAST  1417 


16. 3401  4 4152  1 

16.3402  6 4751  0 

16.3403  55' 521  1 

16. 3404  2 1740  0 

16.3405  0 5755  0 

16,  3406  4 1736  0 

16,3407  6 3615  0 

16,3410  C 0006  1 
16,  341  1 6 3627  1 


C S TWO 

AD  FOUR 

TS  NO.PJETS 

CA  POLYTEMP 

TC  WR  IT  FP 

CS  ABSTJ 

AD  + 150MST6 

EXTEND 

BZMF  QRAXIS 


0703  RCF  1 

0 70  4 

0705 


16.3412  6 3575  0 

16.3413  c ( C C 6 1 

16,  34  14  6 3421  0 


AO  -136MST6 

EXTEND 

HZMF  +5 


0706  REF  3 

3707  REF  5 

0708  PFF  1 

0709  REF  9 


LAST  1425  16,3415  27*736 

LAST  1424  16,3416  51*143 

15,3417  3 3624 

LAST  1424  16,3420  55'524 


0 

0 

1 

1 


ADS  ABSTJ 

INDEX  ROT  INDEX 

CA  MINTIMES 

TS  T JP 


3710 

REF 

4 

L AST 

1425 

16,3421 

2 1736 

1 

0711 

16  ,3422 

22  007 

0 

0712 

16,3423 

C 0004 

0 

0713 

REF 

4 

1 AST 

1430 

16,  3424 

52*471 

0 

0714 

RFF 

57 

LA  ST 

14?  1 

16  ,3425 

C 4674 

0 

3715 

RFF 

1 

16, 3426 

27143 

0 

0716 

REF 

38 

LAST 

1417 

16,  342  7 

4 4740 

1 

(717 

PFF 

43 

LA  ST 

1423 

16,3430 

7 126? 

1 

: 7 18 

REF 

44 

L AST 

14?5 

16, 3431 

55*262 

1 

0719 

RFF 

1 

16  ,3432 

G 3434 

1 

(720 

R FF 

3 

1 A ST 

1425 

16  ,3423 

1 3627 

0 

CA  ABSTJ 

ZL 

INHINT 

OXCH  T6FURTHA 

TC  IRNKCALI 

CADR  JTLST 

CS  3 I T 1 2 

MASK  PCS  FLAGS 

TS  RCSFLAGS 

TC  ALTSYST 

TC F ORAX  IS 


0721 

0722 
'7  23 
072  4 

725 
"726 
0727 
5 72R 


REF 

REF 

RFF 

REF 

REF 


30  LAST  1424 

306  1 A ST  1424 

2 LAST  1424 

18  LAST  1402 

31  LAST  142  6 


4C3  LAST  1411 


16,  3*34  3 Old  1 

16,3435  54  001  1 

16, 3426  2 4147  1 

16,3437  0 0006  l 

16,3440  06  001  0 

16,  344  1 54  10 1 0 

16  ,3442  0 0003  1 

16,3443  C 0002  0 


AL  TSYST 


CA  FLASWRD5 

TS  L 

CA  AORBSYST 

EXTEND 

RX  OR  L CHAN 
TS  FLAGWRD5 

REL  INT 
TC  Q 


0729 


RFF  2 LAST  1*25 


16,  3444  C 3434 


DK  AL  E 


TC 


A l TSYST 


0730 
373  1 


REF  3 LAST  14 
REF  30?  LAST  1423 


16,3446  0 5754 

16, 3446  2 4755 


JETSOFF  TC 
CA 


WRITEP  -1 
7ER0 


9:12  OCT.  21,1970  ZLMDAP  .001 


PAGE  1425 


USER'S  PAGE  NO.  17 


E 6 S4 


GO  TO  QRAX  IS  OR  TO  GTS  . 


eiT  12  SET  TOO. 


ALTERNATE  P-AX I S JETS 


> AP : ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


L P-AXIS  RCS  AUTOPILOT 


0732 

3733 

RC73* 


REF  10  LAST  1 A?  5 1 6 ,344  7 
REF  ^ LAST  1424  16,  3450 
(NOTE  — Ml  3 = i I CENT  I GALL Y 


55 ' 524  1 TS  TJP 

1 3627  0 TCF  QP.AXIS 

IMPLIES  NULL  MULTIPLICATION.) 


0735  RFF  17 

3 7 36 

0737  REF  11 

0738 

0739  REF  9 

0740  RFF  2 

3741  PFF  30 

0742 

3743  PFF  27 

R3744 
RC  745 

0746  RTF  5 

3 747  PEF  3 

( 748  PFF  R 

0749  REF  404 


LAST  1409 
LAST  14C9 

last  14H 
LAST  1423 
LAST  1423 

LAST  142  3 


LAST  1396 
LAST  U26 
LAST  1423 
LAST  1425 


16,  3452 
16  ,3453 
16, 3454 
16,  3455 
16,3456 
16, 34=7 
16, 346f 
16,3461 


16,3462 
16,  3 46-3 
16  ,3464 

16, 3465 


3 C033  l 
C 0006  1 
21  '635  1 
C CCC  6 1 
7 1414  0 
57' 751  0 
3 CC  32  0 
0 0006  1 
21*634  0 


6 1274  1 
27*751  1 

57*464  0 

C OOC2  0 


C A LC  DE  RH 


CA  COUY 

E XTEND 

MSU  CDUYD 

EXTEND 
MP  Mil 

XCH  E 

CA  C DUX 

EXTEND 

MSU  CDUXO 

F XTEND 

MP  M 13 

AD  DELPEROR 

ADS  F 

Xf.E  PERROR 

TC  0 


R0750  P-AXIS  URGENCY  FUNCTION  CALCULATION. 


0 7 5? 
0754 


RFF 

REF 

RFF 

REF 


2 
13 
1 « 


I AST  14^1 
L AST  1 39  6 
LAST  1423 
LAST  142  3 


16.3466 

16. 3467 

16 .3470 

16.3471 


6 1421  1 
55*427  0 


PURGE  NCY 


TC 
C S 
AD 
TS 


CALCPERR 

OMEGAPD 

OMEGAP 

EDOTP 


0755 
746 
3757 
0758 
■7  59 
3 76', 
r 761 
r 762 
-'76  3 


REF  147 
RFF  2 
R FF  47 
REF  8 

REF  l 


R FF 

RFF  1 


LAST  1424 
LAST  136 
l AST  1422 
LAST  1413 


I A ST  1425 


16,  3472 
16,3473 
16,  3474 

16.3475 

16.3476 
16,  3477 
16  ,3500 
16,3501 
16,  3502 


4 4753  0 
55*505  1 
3 0111  0 
7 47  37  1 
C 0006  1 
1 3510  1 
0 0004  C 

0 4674  0 

4364  1 0 


TS 

CA 

MASK 

EXTEND 

BZF 

INHINT 

TC 

CADR 


ONE 

AX  IS  OTR 
DAPBOOLS 
C SMDOCKD 

HEADTJET 

I RNKCALL 
SP  SRC  S 


0764  REF  11 

3 765 

0766  REF  1 

0767 

3765  PEF  2 

0769  REF  303 

0770  REF  1 

0771 

0772  PEF  59 

3773  RFF  1 

0774 


LAST  1426 

LAST  1419 
LAST  1425 

LAST  1426 


16,3503 
16,  3504 
16,  3505 
16,3506 
16,  3507 
16  ,3510 
16,35  11 
16, 3512 
16  ,3613 
16,  3514 
16,  351 6 


3 1524  0 
C CLC6  1 
1 3444  1 

0 0003  1 

1 3353  0 
3 4755  1 
5 5 • 50C  1 
0 00C4  0 
0 4674  0 

273C4  1 
C 0003  1 


CA 

E XTEND 
BZF 
RELINT 
TCF 


HEADTJET  CA 
TS 


TJP 

OKALT 

PJETSLEC 
Z FRO 

SENSETYP 

IRNKCAL  L 
T JETLAW 


9:1?  OCT.  21,  1970  ZLMDAP  .001  PAGE  1426 
USER*  S PAGE  NO.  18  F6  S4 


P-ERROR  CALCJl  A T I ON  . 

CD  U VALUE  - ANGLE  DP’S!  RED  (Y-AXIS) 

(CDUY-CDUYD)  Ml  1 SCALEC  AT  PI  RADIANS 
SAVE  FIRST  TERM  (OF  TWO) 

THIRD  COMPONENT 

CDU  VALUE  - ANGLE  DESIRED  (X-AXIS) 


KALCMANU  INEPFACE  ERROR 

SAVE  SUM  OF  TERMS.  COULD  BF  OVERFLOW. 
SAVE  P-ERROP  FOP  EIGHT-BALL  DISPLAY. 
RETURN  TO  CALL  ER 


CALCULATE  P-AXIS  ERRORS. 

THIS  CODING  TS  COMMON  TO  BOTH  LM  DAP  AV D 
SPS-8ACKUP  MODE. 

EOOTP  = OMEGAP  - OMEGAPD  AT  P I /4  RAD/SEC 


IF  CSMDOCKD  = 1,  GC  TC  DOCKED  RCS  LOGIC 


IF  TJP  = ZERO,  CHANGE  ACRBSYST . 


SELECT  ACRBSYST  AND  USE  TWO  JETS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  I N A BY  ZOROASTER 

L P-A  XI  S RC  S AUTOPI  LOT 


9:12  CCT.  21  ,1970  ZLMDAP 
USER ' S PAGE  NO.  1 9 


.001  PAGE  1427 
E6  S4 


0775 
0775 
0777 
3778 
0779 
0 7 BO 
07B1 
07B2 

0783 

0784 
0 7B5 

0786 

0787 

0788 


REF 

REF 


PEF 

REF 

RFF 

RFF 

RFF 


1 

1 

3 

12 

6 

1 


LAST  1426 
LAST  1426 

LAST  1424 


LAST  1427 
LAST  1425 
I AST  1427 


16,3517 
16,3520 
16,  3521 
16  ,3522 

16.3523 

16. 3524 
16  ,3525 
16, 3526 
16,  362  7 
16,353° 
16,  3531 
16  ,3532 
16,3533 


0 0006  1 
6 3353  1 
1 1 ' 5 24  1 
1 3525  1 
1 3445  0 
6 3532  0 

0 C006  1 
6 3353  1 
3 62  54  1 

1 3360  0 
77377  1 
75117  1 


C S 
AO 

EXTEND 

RZMF 

CCS 

TCF 

TCF 

AO 

EXTEND 

BZMF 

CA 

TCF 

-160MST6  DEC 
-FOURDEG  DEC 


F I REF  CT 
-FOUROEG 

PJFTSLEC  -6 
TJP 
+2 

JE  TSOFF 
- 160MST6 

PJFTSLEC  -6 
S IX 

PJFTSLEC  -1 
-256 
-.08888 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 

L P-AXI  S RC  S AtJTCPI  LOT 

JET  PCI  ICY  CONSTRUCTION  SUBROUTINE 


9:12  CCT.  21,1970  ZLMOAP  .001  PAGE  1926 
USFR'S  PAGE  NO.  20  E6  S4 


P079a 

A 0790 

A 079  l 

AC79? 
?793 
0794 
0794 
0 796 
0797 
' 

0799 

0800 

' 

030,? 

0RO3 

0809 

0304 

0806 

0807 

0808 
0809 
0910 

08l  1 
0812 
0813 
''814 
0 R 1 3 
3816 
0817 
0813 
081° 
0820 
0821 
0822 
0823 
0829 
0825 
0926 

0827 

0828 
0329 
08  30 
0 831 
0332 

0833 

0834 

0835 


REF 
REF 
REF 
RFF 
PFF 
RFF 
REF 
REF 
REF  ■ 


32  LAST  14 


LAST  1 4 ? 5 

LAST  14?  5 
LAST  219 
LAST  1424 

LAST  U26 
LAST  1426 


REF  50  LAST  1418 


REF 

RFF 

REF 

REF 


LAST  1427 
LAST  1428 
LAST  1425 


LAST  1425 


15  ,3534 
16,  3535 

16.3536 

16.3537 
16, 3540 

16  ,3541 

16.3542 

16. 3543 
16  ,3544 
16, 3545 
16 , ^546 

' , 

16,  3550 
16  ,3551 
16,3552 
1 6,  3853 
16  ,3554 
16,  3555 

16. 3556 

16.3557 
16,  3 56C 
16  ,3561 

16.3562 

16. 3563 
16  ,3564 
16,  3565 

16. 3566 

16.3567 
16,  3570 
16  ,3571 
16,3572 
16,  3573 
16  ,3574 
16, 3575 
16, 3575 
1 6 ,3576 
16, 3577 
16  ,3600 

. 

16,  3602 
16  ,3603 
16,  3604 
16,  3605 


3 6254  1 
65* 141  C 
51*742  l 
3 3566  1 
5 1*743  0 
7 3557  1 
55'  74<  1 
7 1260  0 
10  000  0 
1 3547  C 
0 0002  0 
11*741  0 
1 3554  1 

0 5600  l 
02003  0 

1 3445  0 
55*742  0 
1 3535  0 
1 2773  1 

00252  1 
C0 125  1 
00  140  1 
00006  1 
C0220  1 
00011  1 
CC151  1 
00146  1 
00226  1 
CC231  1 
00151  1 
00132  1 
00245  1 
00377  1 

77445  1 

00004  0 
CC0C2  0 
07776  0 

00005  1 
00011  1 
00012  1 
C 7 776  0 
00003  l 


INPUT:  ROT  1 NO:  X,  NUMBERT 


OUTPUT:  POLYTEMP  (JET  POLICY) 


TEPPNUV 
NUMBERT 
TYPEP 
ROTI  NOEX 
JETSALL 
POLY T EM  P 
CH6MA  SK 


HAS  NO  FAILURE 


MA  SK 

CCS 

TCF 


TC 


- 1 

JETSALL 


OCT 

TCF 

SELECTYZ  TS 
TCF 
TCF 
OCT 
OC  T 
nr.T 
OCT 
OCT 
OCT 
OCT 

TYPEP  OCT 
OCT 
OCT 
OCT 
OCT 
OC  T 
OCT 

INDXYZ 

- 1 36M ST6  OEC 
DEC 
DEC 
OCT 
OEC 
DEC 
DEC 
OCT 
DEC 


T CMPNUM 

ALARM 
02003 
JE  TSOFF 
NUMBERT 
SELECTP  + 
ABORTYZ  + 
00252 
00125 
00140 
00006 
00220 
000  11 
00151 
OC  146 
00226 
00231 
00151 
00132 
00245 
00377 
-136MST6 
- 218 


1- 3 

2- 4 
ALL 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


9:12  GCT.  21,1970  ZLMDAP  .Ol  PAGE  1429 


L P-AXI  S RCS  AUTOPI  LCT 


USER  • S PAGE  NO.  21  E6  S4 


0 8 38 
3839 

0840 

0841 
084  2 
0843 
3844 

R0845 


16,  360  7 

16.3610 

16. 3611 
16  ,3612 

16.3613 

16. 3614 


T-JET  LAW  FIX  FD  CONST 


16  ,3615 
16,  2 6 16 
ANTS 


CCC10  0 DEC 

00007  0 DEC 

07776  0 OCT 

C7776  0 OCT 

07776  0 OCT 

07776  C OCT 

07776  0 OCT 

00360  1 +150MST6  DEC 

C 7 4 0 0 l 074C00C  T OCT 


8 

7 

37776 

0 7 776 

07776 

0 7776 

07776 

240 

37400 


THESE  INDEXES  OF  MASK  JETSALL  WILL 
CHANGE  THE  INSTRUCTION  AT  SELECTP  +4 
TO  BE  TC  JETSALL  -1 
ONLY  USED  FOP  TRANSLATION  FAILURE 


0846 

3347 

0848 

0849 

0850 

0851 
3952 

0853 

0854 


REF 


PEP 


LAST  957 


I A ST  1416 


16,361  7 
16, 3620 
16  ,3621 
7730 
16, 3622 


16  ,3623 

16. 3624 

16.3625 

16.3626 


00266  0 
74631  0 
06315  0 

C06C0  1 
00632  0 
77751  1 
00026  0 
02734  0 


NCPMSCL  OCT  266 

-100MS  DEC  -.1 

200MS  DEC  .2 

25/32  = PR  103 1 

B I T S 8,  9 OCTAL  00600 

1/40  DEC  .0  2500 

MI  NTI  MES  DFC  -22 

DFC  22 


PSKIPADR  GENADR  SKIPPAXS 


(DEC  .78  125) 


ADB55 

0856 

6867 

REF 

REF 

0858 

REF 

0859 

REF 

3863 

REF 

0861 

RFF 

0862 

REF 

3963 

RFF 

0864 

0865 

RFF 

0866 

8 I AST  1396 
11  LAST  1415 

11  LAST  1424 

2 LAST  134 

9 LAST  1396 
1 8 LAST  1414 

12  LAST  1429 

3 LAST  134 


1 


16  ,3627 
16,3620 
16,  3fc31 
16,3632 
16,  36  23 
16,2634 
16 ,3635 
16,  36  36 
16  ,3637 
16  ,3640 
16,  364  1 


4 1644  1 
6 1423  0 

0 2310  1 

55' 437  1 

4 1643  0 
6 1422  1 
0 2310  1 

5 5 '4  36  0 
0 0006  1 
2 3647  0 
52  OC 6 0 


GOES  TO  Q.R-AXES  RCS  AUTOPILOT 
OR  AX  rs  CS  3MEGARD 

AD  OMEGAR 

TC  OVERSUR 

TS  EDOTR 

CS  OMEGAQD 

AD  OMEGAO 

TC  OVERSUB 

TS  EDOTO 

EXTEND 

DC  A OERRC ALL 
D TCB 


0867  PEE  77  LAST  1415 

7868  RFF  1 

0868  REF  1 


E6.1536  EBANK=  AOSO 

16,7642  C2124  1 QERRCALL  2 C 'AD R CALLQERR 

16,3643  36106  0 


i&P:  ASSEVBLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 

Q.P-AXF  S PCS  ALTOPILOT 


9:  12  o;  T.  21  ,1970  ZLMDAP 
USER  'S  PAGF  NO.  1 


.0C1  PAGE  14  30 
EO  S4 


33  1 

000?  PFF 
0003 


LAST  1393 


17, 212a 
17  ,2000 
17 , 2 1 2 A 


BANK  17 
SFTLOC  DAPS  2 
BANK 


0C04  RTF  2p  LAST  1426  F6,16  2a 

0005  RFF  l 


EBANK=  COUXD 
COUNT*  1S/DAPQR 


RD006 
00061 
0006? 
03063 
0006A 
0005  5 
0307 
0007  l 
0007? 
30073 
0007A 


REF 

REF 

RFF 

1 f 

PFF 

PFF 

REF 


56  LAST  IA21 

17  LAST  1 A?  1 
AflP  LAST  1 A2  8 

A8  I AST  1 A26 
5 LAST  1A22 

1 

2 I A ST  1 AO  1 


17  ,212A  3 4737  0 

1 7 , ? 1 2 5 C 0006  1 
17,  2 126  05  031  1 

17 ,? 12?  10  000  0 

17,  2120  1 ?13  5 0 

17,2131  A Clll  1 
17  ,?  1 32  7 A7A0  1 

17,2133  0 0006  1 

17,213a  1 2136  C 

17,2135  0 2655  0 


C ALL  OF  RR  CA 

EXTEND 

RAND 

CCS 

TCF 

CS 

MASK 

EXT  ENO 

BZF 

TC 


RIT13 

CHAN31 

A 

+ 5 

DAPBDOLS 
OURRCR IT 

0 ,PDRG  T S 
0 ERR  CAL  C 


CALCULATE  0 ,P.  ERRORS  UNLESS  THESE  AXES 
ARE  IN  MANUAL  RATE  COMMAND. 


IN  AJTC1  COMPUTE  Q,R  ERRORS 
IN  MANUAL  RATE  COMMAND? 


IF  SO  BYPASS  CALCULATION  OF  ERRORS. 


R0008 
000Q 
0010 
331  1 
0012 
0013 


RFF  2 
REF  1 
RFF  1 
RFF  30A 
RFF  3 


LAST  1 A30  17,  2136  11*630  1 Q,R3RGTS  CCS  COTROLFP  CHOOSE  CONTROL  SYSTEM  FOR  THIS  DAP  PASS: 

1 7 ,?  1 37  1 2636  1 TCF  GOTOGTS  GTS  (ALTERNATES  hi  TH  RC  S WHEN  DOCKED! 

17,  ? 140  1 2623  0 TCF  TRYGTS  GTS  IF  ALLOWED,  CT  FERW  IS  E RCS 

LAST  1426  17  ,2141  3 4755  1 RCS  CAF  ZERO  RCS  (TRYGTS  MAY  BRANCH  TC  HERE1 

LAST  1430  17,2142  E5'630  1 TS  COTROLER 


001 4 
0C1  5 
3116 


PFF  4 LAST  1429 
REF  1 

REF  11  LAST  1412 


17,2  14  3 5 2 *437  1 

17  ,2144  C 3200  0 
17,  2 145  53*  427  0 


DXCH  EDOTO 
TC  ROT-TnuV 
DXCH  OMEGAU 


40i  17 


X - TRANSLATION: 


Af.n  l fl 
A3  3 1 9 
A 0020 
A0021 


I N PUT  : 


BITS  7,8  OF  CH31  (TRANSLATION  CONTROLLER) 
ULLAGER 

APS  FLAG,  DR  I FT  BIT 
A£C40R2X,  ACRBTRAN 


40022  OUTPUT:  NEXTU,  NE  XTV  COOES  OF  TRANSLATION  FOR  AFTER  ROTATION 

A 00 23  SENSETYP  TELL  ROTATION  DIRECTION  AND  OESIRE 


R3D24  X-TRANS  POLICIES  ARE  EITHER  4 JETS  OR  A DIAGONAL  PAIR.  IN  2-JFT  TRANSLATION  THE  SYSTEM  IS  SPECIFIED.  A FAILURE 

R 0026  WILL  OVFPPIDF  THIS  SPECIFICATION.  AN  ALARM  RESULTS  WHEN  NO  POLICY  IS  AVAILABLE  BECAUSE  OF  FAILURES. 


0028  REF  42  LAST  1417 

0029 

0030  PFF  18  LAST  1430 

0331 

0032  RFF  1 


H.’iW 


17,2150  02  031  1 

17,  215  l C 0CG6  1 
17,2  1 52  1 22 CO  0 


SENSEGET  CA 

E XTFN3 
RAND 
EXTEND 
BZF 


BIT7 
CHAN31 
+ XORULGE 


INPUT  BITS  OVERRIDE  THE  INTERNAL  BITS 
SENSFTYP  WILL  NOT  CPPCSF  4NYTRANS 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  Z ERL  IN  A BY  ZOROASTER 


0 ,R-AXE  S RC  S A UTOPI  LOT 


0333  REF  46  LAST  1354 

0034 

0035  REF  19  LAST  1430 

0336 

0037  PEE  l 


17, 2153  3 4744  1 

17  ,2 154  0 0006  1 

17,2155  C2  031  1 
1 7,  2 156  C 0006  1 
17,2157  l 2201  1 


CA  BI  T 8 

EXTEND 

RANO  CHAN31 
E XTEND 

BZF  -XTRAMS 


0033 

003q 

0040 

0041 


REF  3 LAST  729 
PEE  49  I AST  1430 
REF  485  LAST  143C 
REF  2 l AST  143'"' 


17,  2160 

17.2161 

17.2162 
17,  2 163 


2 4746  C 
70111  1 
1C  000  0 
1 2200  0 


CA  ULLAGER 

MASK  OAPBOOLS 
CCS  A 

TCF  +-XORULGE 


0042  REF  4 

0043  REF  4 

0C*7  RFF  50 

0048  REF  4 

0049 

0050  REF  1 

0051  RFF  22 

0052  REF  14 

0053  REF  490 

0054  REF  63 

0056  REF  2 

0056  PFF  1 


LAST  1431 
LAST  1415 


1 A ST  1372 
LAST  87  1 
LAST  1431 
LAST  142  5 
I AST  14  26 


17  ,2164 
17,216  5 
17, 2166 
17  ,2167 
17,  2 170 
17,2171 
1 7,2172 
17,  2173 
17  ,2174 
17,  ? 175 
17,  2 176 
17,2177 


55*473  1 
66*474  0 

4 0111  1 
7 4744  0 
C 0006  1 

1 2176  1 
3 0106  0 
7 4737  1 
10  000  0 

2 47  52  C 

5 5 • 5G0  1 
1 2232  1 


TS  NEXTU 

TS  NEXTV 

CS  0 A PR  00  L S 

MASK  DRIFTS  IT 

FXTEND 
RZF 


MASK 

CCS 

CAF 


TSENSE 
F L GW  R D 10 
APSFLRI  T 
A 

TWO 

SENSE  TYP 
0PCONTP1 


0057 
005  R 

0059 

0060 


0060  1 
0061 

0062 

0063 


0064 


REF  14R  LAST  1426 
REF  37  la<;T  1425 
REF  7 LAST  1428 
RFF  8 I AST  1 381 
RFF  3 I AST  1431 
REF  51  LAST  1431 
RFF  2 LAST  299 
PEF  491  LAST  1431 
REF  1 


17,  12CC  3 4753  l + XORULGE  CAF 
17,2201  6 4751  0 -XTPANS  AD 


17,2202  55' 743  1 TS 

17,  2 2C  3 fc  7757  0 AD 

17,2204  55*500  l TS 

1 7 , 22C  5 2 0111  0 CA 

17,  2 2c  6 7 4741  0 MA  SK 

17,2207  1 0 000  0 CCS 

17,  2210  1 2352  0 TCF 


ONE 

FOUR 

ROT  INDEX 

NFG3 

SENSFTYP 

DAPRCCLS 

ACC40R2X 

A 

TRANS4 


0'>65 
0066 
00  6 7 
OC  68 
00  69 
0070 


RFF  5?  LAST  1431 
RFF  1 

PEE  492  I.  AST  K3  1 
RFF  149  LAST  1431 
REF  9/,  LAST  143  L 
RFF  7 LAST  U28 


17.2211  3 0111  0 CA 

17.2212  7 4742  0 MASK 

17,  22  13  10  000  0 CC  S 

17  ,2214  3 4753  1 CA 

17,2215  6 4752  0 AD 


17,  22  16  66*742  0 TSNIJMRR  T TS 


DAPROOL  S 
AORRT  RAN 
A 

ONE 

TWO 

NUMBER  T 


O’- 7 1 


REF  l 


17,2217  0 3225  1 


TC  SELCTSUB 


0072  RFF 

0073 

0074  REF 
OC  75 

0C76  PFF 

0077  REF 

0078  RFF 


LAST  1428 
LAST  1428 

LAST  13Q3 
LAST  1431 
I AS  1 143  1 


1 7 ,222  1 
1 7,2222 
17,  222  3 
17  ,2724 
17,  2225 
17,2226 


1 1 ' 740  1 
1 2224  0 
C 5600  1 
C 20C  2 1 
3 5775  1 
1 1740  1 
5 5 ' 473  1 


TSNEXTS 


CCS  POLYTEMP 

TCF  +3 

TC  ALARM 

OCT  020C2 

CA  003140CT 

MASK  POLYTEMP 

TS  NEXTU 


9:12  CC T.  21  ,1970  ZLMDAP 
USER • S PAGE  NO.  2 


.001  PAGE  1431 
E 6 $4 


STORE  NULL  TRANSLATION  POLICIES 
BURNING  CR  DRIFTING? 

DPS  (INCLUDING  DOCKED)  OR  APS? 

FAVOR  +X  JETS  DURING  AN  APS  BURN. 


FAVOR  APPROPRIATE  JETS  DURING  TRANS. 


THREE  FOP  B 

TWO  FOR  A SYSTEM  2 JET  X TRANS 


GAP: 

307« 

0080 

DCS  1 

A3  3 82 

A 0083 

AD0P5 

A 0086 

A 0087 

3393 

0089 

0090 

0091 

000? 

3393 

0094 

0095 

3396 

9 0097 

0098 

0099 

0100 

3131 

01  9 2 

r 103 

3134 

0105 

0 106 

0 1 07 

0108 

3139 

Ql  1 1 

111 

3 112 

r>113 

0116 

3117 

01 1 8 

0119 


ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21  ,1970  ZLMOAP  .031  PAGE  1432 


0 ,P- A XF  S PC  S AUTOPILOT 


USER 'S  PAGE  NO. 


E6  S4 


RFF  4 
REF  6 
REF  5 


LAST  1431 
LAST  1431 
LAST  1431 


17,  2221 

17.2230 

17.2231 


4 5775  C 
7 1740  1 

5 5' 474  0 


CS  G0314CCT 

MASK  PDLYTFMP 
TS  NEXTV 


3, R-AXES  RC  S CONTROL  MODE  SELECTION 

SWITCHES  INDICATION  WHEN  SET 

BIT13/CHAN31  AUTC.  GO  TO  ATTSTEER 

PULSES  MINIMUM  IMPULSF  MODE 

(OTHERWISE)  RATE  COMM  AN  0/  ATT  IT  JDE  HOLD  MODE 


RFF  57 

REF  2( 
RFF  493 
REF  1 
RFF  3 
REF  53 

REF  1 


L AST 

LAST 

LAST 

l AST 
I AST 


1430 

1431 
143  1 

141  8 
1431 


17,  2232  3 4737  0 QRCONTRL  CA  8 1 Tl  3 

17  ,2233  0 0006  1 EXTEND 

17,  2234  C2  C31  1 RAND  CHAN31 

17,  2235  10  OCO  0 CC  S A 

17,2236  1 2710  1 TCF  ATTSTEER 

17,  7 ?3 7 ? 4735  1 CHKRITlO  CAF  PULSES 

17.2240  7 0111  1 MASK  DAPROOL  S 

17.2241  C 0006  1 EXTEND 

17,  2242  1 2354  0 BZF  QHEKSTIK 


CHECK  MODE  SELECT  SWITCH. 
eiTS  INVERTED 

PULSES  = 1 FDR  MIN  IMP  USE  OF  RHC 
IN  ATT-HGLD/RAT  E-COMMANO  IF  BITlG=0 


MI  NI  MUM  I MPULSF  MODE 


PFF  60 
REF  1 1 
REF  30  5 
RFF  3 
REF  3 


LAST  1426 
LAST  14  21 
LAST  1430 
I AST  14'  3 
LAST  1403 


\]'Ml 

L7  ,2245 
17,  2246 
17,2247 
1 7 , ? ? 50 
17, 2251 


40154  0 

3 4755  1 
5 5 ' 450  0 
55*45?  1 
0 OOC  3 1 


INHINT 

TC  I3NKCALL 

CADR  ZATTEPOR 

CA  ZERO 

TS  QFRROR 

TS  RFRROR  FDR  DISPLAYS 

RELI NT 


R FF 
REF 
RFF 
REF 


1 7 ,2252 
LAST  1432  1 7,2253 

17, 2254 
LAST  1400  17 ,2255 

17, 2256 


0 00C6  1 

00  031  0 
c 5 ' 7 36  0 
11*461  1 

1 2300  1 


EXTEND 

READ  CHAN31 

TS  TEMP31  IS  EQUAL  TC  DAPTEMP1 

CCS  OL DOR  MIN 

TCF  CHECKIN 


REF  1 


17,2257 
17,2260 
17,  226  1 
17  ,2262 


3 L736  1 
7 4753  0 

0 OCO 6 1 

1 2304  0 


CA  TFMP31 

MASK  R IT  1 
E XTEND 
BZF  +QMIN 


REF  1 


17,  2264 
1 7,2265 
17,  2266 


0006  1 
2310  0 


MA  SK 

EXTEND 

BZF 


T F MP3 1 
B I T 2 

-QMI  N 


REF  4 LAST  1432  17,2267  3 1736  1 
PEF  51  LAST  1 40U  1 7,2270  7 4747  0 


CA  TFMP31 

MASK  B IT  5 


ASSEMBLE  REVISION  56  OF  AGC  PRTC-RAM  ZERLINA  BY  ZOROASTER 


0 ,R- AXES  RCS  AUTOPILOT 


01  2 0 

17,2271 

0 0006 

1 

EXTEND 

0 121 

RFF 

1 

17  ,2272 

1 2314 

1 

BZF 

+ RMIN 

0122 

RFF 

5 

L AST 

1432 

17,  2273 

2 1736 

1 

CA 

TEMP31 

■ 123 

RFF 

63 

LAST 

1406 

17  ,2274 

7 4746 

1 

MASK 

B IT6 

0124 

17,2275 

C CCC6 

1 

EXTFND 

0125 

REF 

1 

17, 2276 

1 2216 

0 

BZF 

-R  MI  N 

0126 

REF 

1 

17,2277 

1 3112 

1 

TCP 

X TRANS 

0127 

REF 

6 

1 AST 

1433 

17,  2 3 CO 

4 1736 

C 

CHEC.KI  N 

CS 

TE  MP3 1 

• l2o 

PFF 

1 

17,2301 

7 235  1 

0 

MASK 

3 C T63 

( 129 

REF 

3 

LA  ST 

143  2 

17,2302 

• 

1 

TS 

OLDQRM  IN 

0130 

REF 

2 

L AST 

143  3 

17,  2303 

1 2 112 

1 

TCF 

XTRANS 

0131 

REF 

1 

: 7 , 

3 3136 

0 

+0M  IN 

CA 

14MS 

013? 

RFF 

3 

LA  ST 

139  9 

17,2305 

5 5'  525 

0 

TS 

T JU 

0 133 

RFF 

2 

LAST 

143  3 

17,  2306 

4 5136 

1 

C S 

1 4MS 

0134 

REF 

l 

17  ,2307 

1 2320 

0 

TCF 

MINOR 

1135 

REF 

3 

L AST 

1433 

17,  2 3 10 

4 3136 

1 

-OMI  N 

CS 

1 4 MS 

0136 

RFF 

4 

LAST 

143  3 

17  ,2311 

55 '525 

0 

TS 

TJU 

0 1 37 

PFF 

4 

I A ST 

1433 

17,2312 

3 3136 

0 

CA 

14  MS 

013R 

REF 

2 

L AST 

H33 

17, 2313 

1 2320 

0 

TCF 

Ml  NOR 

i 139 

REF 

5 

LAST 

1433 

17  ,2314 

3 3136 

0 

+ RM  IN 

CA 

14MS 

014" 

17, 2315 

1 2317 

1 

TCF 

+ 2 

GUI 

REF 

6 

LAST 

1433 

17,  2316 

4 3136 

1 

-RM  IN 

C S 

14MS 

C 142 

PFF 

5 

LA  SI 

1433 

17,2317 

55' 525 

0 

TS 

TJU 

0 143 

REF 

2 

L AST 

1399 

17, 2320 

55*526 

0 

MI  NQR 

TS 

TJV 

C 144 

PFF 

1 

17  ,2321 

3 235C 

0 

CA 

M IN ADR 

0 145 

RFF 

1 

17,2322 

55*477 

0 

TS 

RETJ ADR 

0146 

RFF 

150 

LAST 

143  1 

17, 2323 

2 47  5 3 

1 

CA 

DNF 

0147 

RFF 

4 

LAST 

1433 

17  ,2324 

55' 461 

1 

TS 

DLDQRM  IN 

014R 

P EF 

3 

LAST 

1426 

17, 2325 

55' 5C5 

l 

MI  NR  TN 

TS 

AXISCTR 

nl  4 9 

REF 

54 

L AST 

1432 

17, 2326 

3 0111 

0 

CA 

3APR00LS 

"150 

RFF 

9 

1A  ST 

1426 

17  ,2327 

7 4737 

1 

MASK 

CS  MUOCK  C 

0 151 

17,  2330 

0 0006 

1 

E XTEND 

0152 

RFF 

1 

17  ,2331 

1 2341 

1 

BZF 

M IMRET 

153 

RFF 

4 

LAST 

1433 

17,2332 

51 *505 

0 

I NDEX 

AX  ISCTR 

) 1 54 

RFF 

6 

L AST 

1433 

17, 2333 

11*525 

0 

CC  S 

TJU 

155 

P FF 

1 

17  ,2334 

3 4776 

0 

CA 

60MS 

01  96 

17,2335 

1 2337 

0 

TC  F 

+2 

0157 

REF 

2 

LAST 

1433 

17, 2336 

4 4776 

1 

C S 

60MS 

0158 

REF 

5 

LAST 

1433 

17,2337 

51' 505 

0 

INDEX 

AX  ISCTR 

0159 

RFF 

7 

l AST 

1433 

17, 2340 

55*525 

c 

TS 

TJU 

0160 

REF 

55 

LAST 

1433 

17  ,2341 

3 0 111 

0 

MIMRET 

CA 

DAPBOOL  S 

161 

RFF 

2 

LA  ST 

143  1 

1 7,2342 

7 4742 

0 

MASK 

ADRBTRAN 

"*162 

REF 

494 

l AST 

1432 

17,  2343 

1C  COO 

0 

CC  S 

A 

0163 

REF 

151 

LAST 

143  3 

17  ,2344 

3 4753 

1 

CA 

3NE 

' 164 

REF 

95 

1 AST 

143  1 

17,  2345 

6 4752 

0 

AD 

TWC 

01  65 

REF 

8 

LAST 

143  1 

17, 2346 

55*742 

0 

TS 

NUMBERT 

9:  12  OCT.  21,  1970  ZLMDAP  .001  PAGE  1433 


USER'S  PAGE  NO. 


E 6 S 4 


IF  DOCKED, USF  60M  S MINIMUM  IMPULSE 


G AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZE-LINA  BY  ZOROASTER 


9:12  OCT.  21,1970 


ZL  MO AP 


PAGE  1434 


-AXE  S PC  S AUTOPI  LOT 


< w 

.t 168 
D 1 69 
0170 


REF 

REF 


17,  2 3 A 7 l 2756  0 


A 776 
1 7 ,2150 
17,  2351 
17  ,1136 


60MS 

02125  1 MI  N ADR 
C006 3 1 OC  T 6 3 
14MS 


= .13  T 160 

GENADR  MINRTN 
OC  T 63 

= +TJMINT6 


USEP  'S  PAGE  NO. 


38  LAST  1431 


A 01  7 3 
A)  174 

175 

0 176 
3177 

0178 

0179 

01  80 
0181 
3 132 
0 1 83 

0 184 
3185 
0186 
3187 

01  88 
189 

■'ll! 

0191 

0 192 
P.3  1 93 

0 1 94 
3195 
01  96 
0197 
3193 

01  99 
3 200 
|2<  1 
0202 
3233 

02  04 
0 205 
3236 

0207 

0208 
02  09 
0210 


REF  2 
PEF  152 
REF  4 
REF  51 
REF  2 


REF 


PFF 

REF 

REF 

REF 

RFF 

PFF 

REF 


LAST  14  t 
LAST  1413 
LAST  H30 
LAST  1420 
LAST  1420 


1 


LAST  1430 
LAST  1 4?  3 


LAST  1422 
LAST  1425 
LAST  1 4 34 


17  ,2  354 
1 7,2355 
17,  2356 
17  ,2357 
17,  2360 

17. 2361 

17.2362 
17,  2 36  3 
1 7 ,2  364 
1 7,2365 
17, 2366 
17  ,2367 
17,  237C 
17,  2 371 

17.2372 
4 77  1 
4753 

17.2373 


LAST  1432 
LAST  1422 
LAST  1434 
LAST  1434 


REF  307  LAST  1425 
REF  7 LAST  1422 


55*632  0 
4 4753  0 
55*63  1 

3 4735  1 
7 1443  1 
0 0006  1 
1 2377  1 
I-  4740  0 
7 Till  1 
0 0006  1 
1 2710  1 

4 4743  1 
7 1262  1 

5 5*262  1 
1 2374  1 


00056  1 


17,2374 
17,  2375 
17,2  376 
17,2377 
17,  2400 
17  ,2401 
1 

17,  240  3 
17 ,2404 
1 7,  2405 

17.2406 

17.2407 
17,  2410 
17  ,2411 
17,2412 

. 

17  ,2414 


3 4755  1 
5 5 ' 462  1 

5 5 *463  0 
11*462  1 
1 2403  0 
1 240  3 0 
1 2403  C 

6 0000  1 
6 0000  1 

6 2373  1 
0 0006  1 

7 1462  1 

3 0001  0 
0 0006  1 
7 1444  0 
57 '455  1 

4 0000  0 


RATE  COMMAND  MODE: 

DESCRIPTION  (SAME  AS  P-AXIS) 

CHEKSTIK  TS  INGTS 

CS  ONE 

TS  COTROLFR 

CA  RIT15 

CH31TEMP 

R HC ACT  IV 
OUPPCRI T 
DAPBOOL  S 


MASK 

EXTEND 

BZF 


40C  YC  L 
1/  10S 
LI  NR AT 


MASK 
EXTEND 

BZF  STILLRCS 

CS  BIT9 

P.C  SF  LAGS 
RCSF  LAG  S 
DAMP  ING 
0CT50 
R IT1 


MASK 


TCF 


DEC 


DAMPING  CA 
TS 
TS 

RHCACT  IV  CCS 
TCF 
TCF 
TCF 

DOLBLE 
DOUBL  F 
AD 

EXTEND 


Z FRO 

SAVEH AND 
SAVFHAND 
S AV  EHAND 


ST  IKSENS 
OLA  ST 


NOT  IN  GTS  WHEN  IN  ATT  HOLD 
1/ACCS  WILL  DO  THE  NULLING  DPI  VE  S 
CCME  BACK  TC  PCS  NEXT  TIME 


BRANCH  IF  OUT  OF  DETENT. 

*****$***** 

*IN  DETENT*  CHECK  FCR  MANUAL  CONTROL 
***********  LAST  TIMF. 


BIT  9 IS  0. 


******************* 
Q,P  MANUAL  CONTROL 
******************* 


WC  = A*(B+|  D|  )*D 


WC  = COMMANDED  ROTATIONAL  RATE 
A = QUADRATIC  SENSITIVITY  FACTOR 
B = LINEAR/QUADRATIC  SENSITIVITY 
|0|=  ABS.  VALUE  OF  DEFLECTION 
D = HAND  C CNTRCLLE  R DEFLECTION 


COMMAND  Q PATE 


SCALED  45  OEG/SEC 


ASSEMBLE  REVISION  56  OF  AGC  PRCCRAM  ZERLINA  BY  ZOROASTER 


9:  12  OS  T.  21»  1970 


Z LMDAP 


001  PAGE  1435 


AP  : 


Q , R—  AXES  RC S AUTOPILOT 


0211 

REF 

LAST 

1434 

17,  24  15 

6 

1455 

1 

AD 

OLA  ST 

0212 

REF 

5 

LAST 

1412 

17,2416 

55 

• 740 

1 

TS 

DAPT  EMP3 

3213 

REF 

6 

L AST 

1434 

17,  2417 

11 

•463 

0 

CCS 

SAVEH AND 

+ 1 

02  H 

17.2420 

l 

2423 

1 

TCF 

+ 3 

0215 

17,2421 

1 

2423 

1 

TCF 

+2 

3216 

17, 2422 

1 

2423 

1 

TCF 

+ 1 

0217 

17  ,2423 

6 

0000 

1 

DOUBLE 

0218 

17,2424 

6 

0000 

1 

DOUBLE 

0219 

REF 

2 

L AST 

1434 

17,  2425 

6 

2373 

1 

AD 

LI  NRAT 

0220 

17  ,2426 

0 

0006 

1 

EXTEND 

3221 

REF 

7 

LAST 

1 435 

17, 2427 

7 

1463 

0 

MP 

SAVEH ANO 

+ 1 

0222 

REF 

308 

LAST 

1434 

13,2430 

3 

000  1 

0 

CA 

L 

0223 

17,2431 

0 

0006 

1 

EXT  END 

3224 

REF 

8 

LAST 

1434 

17,  2432 

7 

1444 

0 

MP 

STI  KSENS 

0225 

RFF 

3 

LAST 

1421 

17  ,2433 

57 

•456 

1 

XCH 

RL  AST 

0226 

1 7,2434 

4 

0000 

0 

COM 

0227 

REF 

4 

l AST 

1435 

17, 2435 

6 

1456 

1 

AD 

RLA  ST 

0228 

RFF 

3 

1 AST 

137 

17  ,2436 

55 

• 741 

0 

TS 

DAPT  EMP 4 

3229 

REF 

5 

LAST 

1435 

17,  2437 

4 

1455 

0 

CS 

QLAST 

0230 

REF 

1 Q 

LAST 

1429 

17,2440 

6 

1422 

1 

AD 

OMEGAO 

0231 

RFF 

1 

17,2441 

55 

•436 

0 

TS 

QR  AT  ED  I F 

3232 

RFF 

5 

1 AST 

1435 

17,  2442 

4 

14  56 

0 

CS 

BLAST 

0233 

RFF 

12 

LAST 

1429 

17  ,2443 

6 

1423 

0 

AD 

DMEGAR 

0 234 

REF 

l 

17,244  4 

5? 

'437 

1 

TS 

RR  AT  ED  I F 

0235 

RFF 

2 

1 AST 

1435 

17, 2445 

5: 

• *437 

1 

ENTFRQR  DXCH 

ORATEDIF 

0236 

RFF 

2 

LAST 

1430 

17  ,2446 

0 

3200 

0 

TC 

ROT-TOUV 

3 237 

REF 

1 

17,  2447 

5 j 

:'427 

0 

0 XCH 

URATEDI F 

.,2  37  1 

17,2450 

C 

0004 

0 

INHINT 

U 237  2 

REF 

61 

1 AST 

1432 

L 7 ,2451 

C 

4674 

0 

TC 

I BNKCALL 

3 2 373 

REF 

12 

L AST 

1432 

17,  2452 

40164 

0 

FCADR 

ZATTFRCR 

"2374 

17  ,2453 

0 

0003 

1 

REL  INT 

C 238 

R EF 

6 

LA  ST 

1435 

17,2454 

1 1 

740 

1 

CCS 

OAPT  EMP3 

O2  3o 

17, 2455 

0 

2460 

1 

TC 

+ 3 

0240 

17  ,2456 

0 

2460 

1 

TC 

+ 2 

3241 

17,  2457 

c 

246C 

1 

TC 

+ 1 

02*2 

RFF 

6 

LAST 

1423 

17,2460 

6 

1476 

0 

AD 

-RATEDB 

0243 

17,2461 

0 

0006 

1 

EXTEND 

3244 

17,  2462 

6 

2464 

0 

BZMF 

+ 2 

0245 

REF 

l 

17  ,2463 

1 

250? 

0 

TCF 

ENTFRUV  - 

2 

r 246 

R FF 

4 

LAST 

1435 

l 7 , .7464 

1 1 

[ ' 741 

0 

CCS 

DAPT  EMP4 

024  7 

17, 2465 

0 

24  70 

0 

TC 

+ 3 

0248 

17  ,2466 

0 

2470 

0 

TC 

+2 

3 243 

1 7,  2467 

c 

2470 

0 

TC 

+ 1 

0250 

REF 

7 

LAST 

1435 

17,2470 

6 

1476 

0 

AD 

-RATEDB 

'251 

1 7,2471 

0 

0006 

1 

EXT  END 

325? 

17,  2472 

fc 

2474 

1 

BZMF 

+ 2 

0253 

REF 

2 

LAST 

143  5 

17  ,2473 

1 

2502 

0 

TCF 

ENTERUV  - 

2 

: 254 

R EF 

47 

LA  ST 

1434 

17,2474 

2 

1262 

0 

CA 

RCSFL  AGS 

0255 

REF 

2 

L AST 

142  1 

17, 2475 

7 

474  1 

0 

MA  SK 

QR8I  T 

0256 

17  ,2476 

0 

0 006 

1 

EXTEND 

USER'S  PAGE  NO.  A 
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I NT  ERV  AL  . 


TRANSFORM  RATES  FROM  Q,  P TO  U,V  AXES 

SET  AUTO  DESIRED  ATTITUDE  TO  ACTUAL 
ATTITUDE  AND  ZERO  AUTO  DESIRED  RATE 


CHECK  IF  Q CD  N M AN  D CHANGE  EXCEEDS 
BREAKOUT  LEVEL.  IF  NOT,  CHECK  R. 


BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 
R COMMAND  BREAKOUT  CHECK. 


BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 
BREAKOUT  LEVEL  NUT  EXCEEDED.  CHECK  FOR 
DIRECT  RATE  CONTROL  LAST  TIME. 


GA P:  ASSEMBLE  REVISION 


OF  AGC  PR C GR  AM  ZPRLINA  8Y  ZOROASTER 


0 »R- AXE S PCS  AUTOPILOT 


0287 

0258  REF  3 

3259  REF  2 

0260  PEF  1 

0261  RFF  2 

3 266  PEF  30  7 

0267  RFF  6 

C 268  REF  7 

0269  REF  6 

0270  P.FF  7 

0271  REF  2 

0272 

0273 

0274 

0275  RFF  2 

0276 

(•277  REF  1 

027B  RFF  1 

0279 

0280 
0281 

0282  REF  3 

0283 
3 284 

0288  PEF  1 

<'■•286  REF  308 

0287  PEF  2 

0288  REF  2 

0289  PEF  3 

0293 

0291 
0 292 

029^  REF  4 

02  94 

0298  REF  1 

02  96  REF  309 

0297  REF  3 

0293  REF  3 

0299 
0 300 

0301  RFF  48 

0302  REF  3 

0303  RFF  49 

03  04 

0305  RFF  4 

0306  RFF  50 

0307  PEF  51 

0308  PFF  1 

03  09  REF  2 

0310  RFF  153 


LAST  143  5 
LAST  1434 

LAST  1410 
I AST  1434 
I AST  1421 
I A ST  1436 
LAST  1421 
LAST  1436 
LAST  1435 


LAST  1423 


LAST  1436 


LAST  1436 
LAST  1436 
I AST  14  36 
LAST  1436 


LAST  1436 


LAST  1436 
LAST  1436 
LAST  1436 


LAST  1435 
LAST  1435 
LAST  1436 

LAST  1436 
LAST  1436 
L AST  1436 

I AST  1433 
LAST  1434 


17, 2477 
17,2500 
17,  25CI 

17.2502 

17.2503 
1 7,  2804 
17  ,2505 

17.2506 

17. 2507 
17  ,251  0 
17, 25  1 1 

17.2512 

17.2513 
17,  2514 
17  ,2515 
17,2516 
17,  28  17 
17  ,95 2^ 
17,  2521 
17,2  522 
17,2523 
17,  2524 
17  ,2525 

17 .2526 

17. 2527 
17  ,2530 
17,  253  1 

17.2532 

17.2533 
17,  2534, 
17  ,2535 
1 7, 25  36 
17,  2537 
17 ,2540 
17,  2541 

17. 2542 

17.2543 

17. 2544 
17  ,2545 

17.2546 

17. 2547 
17  ,2550 
17,  255  1 
17,2  552 
17,2553 
17,  2554 
17  ,2555 

17 . 2556 

17. 2557 
17  ,2560 


1 2501  0 
1 2504  n 
l 2710  1 
3 477  1 l 
55*457  1 
3 4755  1 
55*450  0 
55*451  l 
55*452  1 
55*453  0 
1 1*426  1 
1 2516  o 
1 2515  0 
1 2515  0 
6 1476  0 

0 0CC6  1 
6 2533  0 

1 1*427  0 
1 2524  1 
1 2524  1 
1 2524  1 
6 1476  0 

0 00C6  1 
6 2530  0 

1 2544  1 
9 4755  1 
55*427  0 
1 2544  1 
11 *427  0 
C 2537  1 
0 2537  1 
C 2537  1 
6 1476  0 
0 0006  1 
6 2553  0 
3 4755  1 
55*426  1 

3 1457  0 
0 0006  1 

6 2553  0 

4 1262  1 

7 4741  0 
27*262  1 
0 2556  0 
4 4741  0 
7 1262  1 
55 ' 262  1 
3 262?  0 
55*477  0 
3 4753  1 


BZF 

TCF 

TCF 

CA 

TS 

ENTERUV  CA 
TS 
TS 
TS 
TS 
CC  S 
TCF 
TCF 
TCF 
AO 

EXTEND 

BZMF 

CCS 

TCF 

TCF 

TCF 

AD 

EXTEND 

BZMF 

TCF 

CA 

TS 

TCF 

VDB  CCS 

TC 
TC 
TC 
AO 

EXTEND 

BZMF 

CA 

TS 

OR  TIME  CA 

EXTEND 

BZMF 

C S 

MASK 

ADS 

TC 

TCPSEUDO  CS 

MASK 

TS 

CA 

TS 

CA 


*2 

ENTERUV 
STI LLRCS 
4 OC  YCL 
T COR 
ZERO 
DYERROR 
DY  ERROR  +1 
OZERROR 
DZERROR  +1 
URATEDI F 
+ 3 
+ 2 
+ 1 

TARGETUB 

VDR 

VR  AT  ED l F 
+ 3 
+ 2 
+ 1 

TARGETD8 


+2 

OR  TI  MF 
Z FRO 

VRATEDI F 
QR  TI  ME 
VRAT  EDI  F 
+ 3 
+ 2 
+1 

TARGE  TDB 

T OPSEUDC 
ZERO 

URAT  ED  I F 
TCQR 

+5 

RC  SE  LAGS 
ORBIT 
RC  SF  LAGS 

ORBIT 
RC  SFL  AGS 
RCSFLAGS 
HANDAOR 
RE  TJADR 
ON  F 
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CON T IN UF  DIRECT  RATE  CONTROL. 
PSEUDU-AUTO  CONTROL. 

***  DIRECT  RATE  CONTROL  *** 


IF  TARGET  DP  IS  EXCEEDED,  CONTINUE 
DIRECT  RAT  E CONTROL  . 


IF  TARGET  DB  IS  EXCEEDED,  CONT  INJ  E 
DIRECT  RATE  CONTROL.  IF  NOT,  FIRE  AND 
SWITCH  TO'  PSEUDO-AUTO  CONTROL  ON  NEXT 
PA  SS. 

OIRECT  RATE  T IMF  CHECK. 

BRANCH  IF  TIME  EXCEEDS  4 SEC. 


BIT  11 


IS  1 . 


BIT  11  IS  0. 
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0311 

REF 

6 

LAST 

H33 

17,  2561 

55 '505 

1 

BACKHAND  TS 

A XI  SC  TR 

031  2 

REF 

39 

LAST 

1434 

17,2562 

3 4751 

0 

CA 

FOUR 

1313 

REF 

9 

L AST 

1433 

17,  2563 

5 5' 74  2 

0 

TS 

NUM8ERT 

0314 

REF 

7 

LAST 

1437 

17  ,2564 

5 1*505 

0 

IN  HEX 

A X I SC  TP 

0315 

REF 

3 

LA  ST 

1400 

17,2565 

51*534 

1 

INDEX 

SK  IPII 

1315 

17,  2566 

1 2567 

0 

TCF 

+ 1 

0317 

RFF 

40 

LAST 

1437 

17  ,2567 

3 4751 

0 

CA 

FOUR 

0313 

REF 

8 

LAST 

1437 

17,  2570 

61' 5C5 

0 

INDEX 

AX  I SCTR 

0319 

REF 

4 

LAST 

1437 

17,  257  1 

55*  c34 

0 

TS 

SKI  PU 

0320 

REF 

1 

1 7 ,2572 

1 3034 

1 

TCF 

I OOPER 

1321 

REF 

9 

L AST 

1437 

1 7,  257  3 

5 1 ' 505 

0 

I NDE  X 

A XI  SCTR 

0322 

REF 

4 

LAST 

1436 

1 7 ,2574 

11 '426 

l 

CCS 

URATED IF 

INDEX  AXIS  QUA  M TY 

0323 

REF 

310 

LA  ST 

1436 

17,2575 

3 4755 

1 

CA 

ZERO 

0 -U  1/J ETACC-AO SU 

0324 

17, 2576 

1 2600 

1 

TCF 

+ 2 

1 +U  1 / J FT  ACC  + AOSU 

0325 

REF 

154 

LAST 

1436 

1 7 ,2577 

3 4753 

1 

CA 

ONE 

16  -V  1/JETACC— AOSV 

1326 

REF 

10 

1 AST 

1437 

17,  2600 

51' 505 

0 

I NDE  X 

AXISCTR 

17  +V  1/J  ET  ACC+AOSV 

032  7 

REF 

1 

17,2601 

6 3755 

0 

AD 

A XI SDIFF 

JE  T ACC  = 2 JET  ACCELERATION  (1  FOR  FAIL) 

0328 

REF 

455 

LAST 

1433 

17,2  602 

5 

1 

I NDEX 

A 

132Q 

REF 

1 

17, 2603 

4 1570 

0 

c s 

1/ANET2  +1 

0330 

17  ,2604 

0 0006 

1 

EXTEND 

0331 

REF 

11 

LA  ST 

1437 

1 7.26C5 

5 150  5 

0 

I NDEX 

AX  ISCTR 

U RAT  ED  I F IS  SCALED  AT  P I /4  RAD/SEC 

0332 

REF 

5 

L AST 

1437 

1 7,  2606. 

7 1426 

1 

MP 

URATED I F 

JET  TIMF  IN  A SCALED  32  SEC 

0333 

PEF 

4C6 

LAST 

142  8 

17  ,2607 

54  002 

1 

TS 

Q 

1334 

REF 

496 

LAST 

1437 

17,  26  1C 

2 C CC1 

1 

DAS 

A 

0335 

REF 

4(  7 

1 AST 

1437 

17,2611 

6 00C2 

0 

AD 

0 

0336 

RFF 

457 

LAST 

1437 

17,2612 

54  000 

0 

TS 

A 

OVERFLOW  SKIP 

1337 

17,  2613 

0 

TCF 

+ 2 

0338 

REF 

4C8 

1 AST 

1437 

17,2614 

3 000  2 

0 

CA 

0 

RIGHT  SIGN  AND  BIGGER  THAN  150MS 

0 330 

PEF 

12 

LA  ST 

143  7 

1 7,2615 

51*  5C5 

0 

SETTIME  INDEX 

AX  ISCTR 

034  0 

REF 

8 

L AST 

1433 

1 7,  26  16 

cc  '525 

0 

TS 

TJU 

SCALED  AT  1C. 67  WHICH  IS  CLOSE  TO  10.24 

0341 

REF 

2 

LAST 

1434 

17  ,2617 

1 2756 

0 

TCF 

AFTERTJ 

1342 

R FF 

311 

LAST 

1437 

17,  2620 

3 4755 

1 

ZE  ROT  J CA 

ZERO 

0343 

REF 

1 

17,2621 

1 2615 

0 

TCF 

SF  TTIME 

0 344 

REF 

1 

17,2622 

02561 

1 

HANDADR  GENADR 

BACKHAND 

A?  345 

GTS  WILL  BF  TRIED  IF 

A 0 346 

1.  US  FOR J TS= 

0, 

AO  347 

2.  ALLOWGTS 

POS  , 

AC  3 48 

3.  JETS  ARE 

OFF  ( Q ,R-AXE  S) 

0349 

RFF 

4 

LAST 

872 

17  ,2623 

3 4736 

l 

TRY  GTS  CAF 

JSEQKJTS 

IS  JET  USE  MANDATORY.  (AS  LONG  AS 

1352 

RFF 

57 

LAST 

1434 

17,  2624 

7 0111 

1 

MASK 

DAPBOCLS 

USFQRJTS  BIT  IS  NOT  BIT  15,  CCS  IS  SAFE) 

0351 

RFF 

498 

LAST 

1437 

17,2625 

10  000 

0 

CCS 

A 

0352 

RFF 

1 

17,2626 

1 2141 

0 

TCF 

RCS 

1353 

REF 

2 

L AST 

1400 

17, 2627 

1 1 ' 5C2 

0 

CC  S 

ALLOWGTS 

NO.  DOES  AOS  TASK  CK  CONTROL  FOR  GTS? 
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L Q.R-AXES  RCS  AUTOPILOT 


P 354 
P 355 

0356 

0357 
C'358 
0350 
3363 
03fe1 
0362 


RFF  2 I AST  1437 

RFF  6 LAST  1401 

RFF  499  L AST  K37 

RFF  l 

REF  1 


17,  263  1 
17,2632 
17,7633 
17, 363a 
17  ,2635 
17,  2 6 36 
17,2637 
17,2640 


0 G0C6  1 
CO  005  1 
10  000  0 

1 2641  1 
C CCC6  1 
3 2654  1 
52  006  0 


GO  TOG  T S 


TCF  +2 

TCF  PCS 

EXTEND 

READ  CHAN5 

CC  S A 

TCF  C HK  IN  GTS 

E X TE  NO 

OCA  3 T SC  ADR 

OT  CB 


3 36  ^ 
0364 

9365 

0366 

>367 

3358 

0369 


0 370 
337  1 
0372 


RFF  3 

PEF  3 

P.EF  62 
RFF  1 

RFF  312 
RFF  4 
RFF  4 


LAST  14-34 
I A ST  1438 
LAST  1435 

LAST  1437 
I.  AST  1438 
LAST  1438 


17,  2641 
17  ,2642 
17,3643 
17,  2644 
17,2645 
17,  2646 
17,2647 
17,2650 
17,  265  1 
17  ,2652 


1 1 *632  0 
1 2644  1 
1 2141  0 
C 0004  0 
0 4674  0 
43232  0 

0 0G03  1 
3 4756  1 
55*632  0 

1 2141  0 


CHK1  NO  TS  CC  S 
TCF 


TCF 

INHINT 

TC 

CADR 

R EL  INT 

CAF 

TS 

TCF 


INGTS 

+2 

RCS 

IBNKCALL 
TI  MFGMBL 

ZERO 
I NGTS 
RCS 


3379  PEF  26  LAST  1430 

0374  RFF  1 

0374  REF  1 


E 6,1  634  EBANK=  CDUXD 

17,  2653  0 300  1 C GTSCADR  2C  ADR  GTS 

17  ,2654  42106  0 
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WAS  THE  TRIM  GIMRAL  CONTROLLING 

YES.  SFT  IJP  A DAMPED  NULLING  ORIVE. 
NO.  NULLING  WAS  SET  UP  BFFORfc  • DO  RCS 
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3 0375  SUBROUTINE  TC  COMPUTE  G.R-AXFS  ATTITUDE  ERRORS  FOR  USE  IN  THE  RCS  AND  GTS  CONTROL  LAWS  AND  THE  DISPLAYS. 


0379 

3393 

0381 

0382 

0383 
1384 

3385 
0 3 86 
0387 
3388 
0389 
C300 
0 3o1 
0 39? 


REF 

REF 

REF 

P EF 
REF 
REF 

REF 

RFF 

REF 
REF 
R r F 
REF 


18  L AST  1426 

12  LAST  1426 
27  LAST  142  3 

4 I AST  1412 

4 LAST  1426 
22  LAST  1409 

If  LAST  1 4 1 C 
9 LAST  1415 

12  LAST  1412 

3 LAST  1396 

5 LAST  1439 

4 LAST  1432 


17,2^56 
17,2657 
17,  2660 
17  ,2661 
1 7,266  2 
17,  2663 
17  , 266  4 
17,  2665 
17,?  666 
17  ,2667 
17,  2 6 70 
17  ,2671 
1 7,267? 
17,  2673 
17  ,2674 


21*  635  1 
55*736  0 
0 0006  1 
7 1415  1 
55*751  1 
30  034  0 
C CCC6  1 
21*636  1 

5 5 ' 73  7 1 
C 0006  1 
7 1417  0 

6 1275  0 
6 1751  0 
57*450  1 


QERRCALC  CAE 

EXTEND 
MS  U 
TS 


CDUY 

CCUYC 
3A  PTE  MPl 


EXTEND 
MP  M2 1 

TS  £ 

CAE  C DU  Z 

EXTEND 

MSU  CDUZO 

TS  DAPTEMP2 

E X TE  NO 

MP  M 22 

AD  OELQEROR 

AD  E 

XCH  Q ERROR 


Q-ERRUR  CALCULATION 

CDU  ANGLE  - ANGLE  DESIPED  (Y-AXIS) 
SAVE  FOR  RERRCALC 

(CDUY -CDUY  D )*M  21  SCALED  AT  PI  RADIANS 

SECOND  TERM  CALCULATION: 

COU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 

SAVE  FDR  RERRCALC 

(CDUZ-CDUZD)*M22  SCALED  AT  PI  RADIANS 
KALCMAN'J  IN  ER  F AC  F ERROR 

SAVF  O-ERROR  FOR  EIGHT-BALL  DISPLAY. 


3393 

0394 

2395 

3396 

0397 

0398 

03  99 
0400 
3431 

04  02 


REF  28  LAST  1439 

REF  4 LAST  1412 
REF  6 L AST  1439 
REF 


REF 

REF 

REF 

REF 


10  LAST  1439 


LAST  1412 
LAST  1396 


040,3  RFF  409  | AST  1437 


17,  2675  3 1*736  l 

17.2676  0 0 C 0 6 1 

17.2677  7 1416  1 

17,  2700  55*751  1 

17  ,270  1 31*737  0 

17.27C2  C 0006  1 
17,  2703  7 1420  1 

17,2704  6 1276  0 

17,  27C  5 6 1751  0 

17.2706  57 '452  0 

17.2707  0 0002  0 


RE 


RRCALC  CAE 

EXTEND 

MP 

TS 

CAE 

EXTEND 

MP 

AD 

AD 

XCH 

TC 


DA  PTE  MPl 

M31 

E 

DAP  TEMP  2 

M32 

DELRFROR 

E 

RERROR 

0 


R-ERROR  CALCULATION: 

CDU  ANGLE  -ANGLE  DESIRED  (Y-AXIS) 
(CDUY-CDUYD  ) *M  3 1 SCALED  AT  PI  RADIANS 


SECOND  TERM  CALCULATION: 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 
(CDUZ-CDUZD)*M32  SCALED  AT  PI  RADIANS 
KALCMANU  IN  ER  FACE  ERROR 

SAVE  R-ERPOR  FOR  EIGHT-BALL  DISPLAY. 
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L CtR-AXES  RCS  AUTOPILOT 


USER'  S PAGE  NC.  11  E6  S4 


0404  "ATTSTEFR"  IS  THC  ENTRY  POINT 
3406  REF  3 LAST  1436  l7,27lQ 


FCP  Q , R— AX  ES  (U.V-AXESJ  ATTITUDE  CONTROL  USING  THE  RFAITION  CONTROL  SYSTEM 

ATTSTEER  FOUALS  STILLRCS  "STILLRCS"  IS  THE  RCS  EXIT  FROM  TRYGTS. 


0407  RFF  5 

C 40  R RFF  5C0 

04fQ  RFF  5 

0410  REF  3 

3411  RFF  2 


l AST  1439  17  ,2710 

IAST  1438  17,2711 

| AST  I4l9  17,  2712 

LAST  1435  17  ,2713 

LAST  135  17,  2 714 


3 1452  0 
22  OCO  1 
3 1450  1 
0 3200  0 
5 3*  151  1 


ST  ILLRCS  CA 

LXCH 

CA 

TC 

DXCH 


P ERROR 
A 

OFRROR 
R OT-TOUV 
UE  RRCR 


A 4*2 
4 •'  4 1 3 
3414 
C 41  5 
0416 
'>417 

0418 

0419 

0420 

0421 
3422 
'■423 

0424 

0425 

■ < 

3427 
0428 
0 4 29 
3430 
<431 
0432 

043  3 
0434 
3 435 
0436 

437 

3438 

0439 

0440 
C44 1 
(442 
0443 

044  4 
0445 
3446 


REF  1 
REF  3 
KEF  155 
REF  13 
REF  14 
REF  5 

REF  41 
REF  15 
RFF  6 
RFF  2 
REF  1 6 
RFF  3 
REF  R 
REF  17 
REF  12 
REF  2 
REF  58 
REF  10 
REF  50 1 

REF  2 
REF  3 
REF  59 
RFF  5 
REF  502 
REF  5 


REF  63 
REF  2 

REF  42 
REF  IP 


LAST  1436 
LAST  1437 
LAST  1437 
LAST  1^4 1 
LAST  1437 

LAST  1437 
LAST  1440 
LAST  1440 
LAST  1437 
l AST  1440 
LAST  1440 
LAST  1439 
LAST  1440 
LAST  143^ 
I AST  1 34 
LAST  1^37 
LAST  1433 
LAST  1440 

LAST  1426 
LAST  14’7 
LAST  1440 
LAST  143  7 
LAST  1440 
LAST  1434 

LAST  1438 
LAST  1426 


LAST  1440 
LAST  1437 


17, 2715 
17  ,2716 
17,2717 
17,  2720 
17  ,2  721 
17,  2722 
17,2723 
1 7,2724 
17,  2725 
17  ,2726 
17,2727 
17, 2730 
17  ,2731 
17,  2732 

17.2733 

17.2734 
17,  2735 
l 7 ,2736 
17,2727 
17,  2740 
17  ,2741 
1 7,  2742 
17,2743 
17,2  744 
17, ?745 
17  ,2746 
17,2747 
17, ?750 
17  ,27M 
17,  2752 
1 7,  2 753 
17,2754 
17,  2755 


PR  EPAR  FS 
PREFORMS 
2 3142  0 TJLAW 
55 '47  7 0 

2 4753  1 
5 5 ' 50  5 1 
51' 505  0 
cl*  534  l 
1 2724  0 

3 4751  0 
5 1'  50  5 0 
55 ' 534  0 
1 3C34  1 
5 1 • 505  0 
3 1750  1 
55*751  1 
5 1 ' 505  0 
3 1426  0 
5 5 ' 4 2 7 C 

3 Dill  0 
7 4737  1 
10  000  0 
1 2 744  0 
C 3304  0 
1 2756  0 

4 0111  1 +3 

7 4736  0 

10  000  0 

5 5 ' 63  0 1 
0 0004  0 
0 4674  0 

43641  0 
C 0003  1 
3 4751  0 
55*742  0 


CALL  TO  TJFTLAW  (DR 
SKIP  LOGIC  ON  U OR  ' 
CA  TJLAWADR 

TS  RETJAOR 

CA  ONE 

FS  A XI  SC  TR 

INDEX  AX  ISCTR 

INDEX  SKI  PU 

TC  F + 1 

CA  FOUR 

INDEX  AX1SCTR 

TS  SKIPU 

TC  F LOOPER 

INDEX  A XI  SC  TR 

CA  J ERR  OR 

TS  E 

INDEX  A XI  SC  TR 

CA  OMEGAU 

TS  FOOT 

CA  DAPROOLS 

MASK  CSMDOCKD 

CC  S A 

TCF  +3 

TC  T JET  LAW 

TCF  AFTEPTJ 

CS  DAPROOLS 

MASK  USEQRJTS 

CCS  A 

TS  COT  RCLER 

INHINT 

TC  IBNKC ALL 

CADR  S PS  RCS 

RELINT 
CAF  FOUR 

TS  NUMBERT 


SP  SRC  SI  DOC  KEO)  ) 

Y AX  IS  IF  NEEDED. 


OOCKED.  IF  GIMBAL  USABLE  DO  GTS  CONTROL 
ON  THE  NEXT  PASS  . 

USEQRJTS  BIT  MUST  NCT  BE  BIT  15. 

GIMBAL  USABLE.  STORE  POSITIVE  VALUE. 


DETERMINE  RCS  CONTROL 

ALWAYS  CALL  FOR  2- JET  CONTROL  ABOUT  U,V. 
FALL  THROUGH  TO  JET  SELECTION,  ETC. 


A 044  7 


Q,  R-J  ET-SEL  ECT  ION-LOGIC 


A 0 44  8 
A0449 


INPUT:  AXISCTR 
SN  UFFB  I T 


0,1  FOR  U,V 

ZERO  TJETU.V  AND  TRANS.  ONLY  IF  SET  IN  A DPS  BJ  RN 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  GCT.  21,1970  ZLMDAP  .00  1 PAGE  1441 


L Q , R- AXE  S RCS  AUTOPILnT 


USER'S  PAGE  NO.  12  E6  S4 


A0450 
A045 1 
A 0452 


TJU,TJV  JET  TIME  SCALED  10-24  SEC. 

NUMRERT  INDICATES  NUMBER  OF  JETS  AND  TYPE  OF  POLICY 

RETJADR  WHERE  TO  RETURN  TD 


AD 453  OUTPUT:  N0.1J(V)JETS  RATE  DERIVATION  FEEDBACK 

A 0 454  CHANNEL  5 

A C 455  SKIPU,SKIRV  FOR  LESS  THAN  150MS  FIRING 


A0456  NOTES:  IN  CASE  OF  FAILURE  IN  DESIRED  ROTATION  POL  ICY,  "ALL"  UNFAILED 

A 0457  JETS  OF  THE  DESIRED  POLICY  ARE  SELECTED.  SINCE  THERE  ARE  ONLY 

A045R  TWO  JETS,  THIS  MEANS  THE  OTHER  ONE  OR  NONE.  THE  ALARM  IS  SENT 

A 04 5 9 IF  NONE  DAN  BE  FOUND. 


A 0460  TIMES  LESS  THAN  14  MSEC  ARE  TAKEN  TO  CALL  FOR  A SINGLE-JET 

AD  45  1 MINIMUM  IMPULSE,  WITH  THE  JET  CHOS  EN  S EM  I -RANDOMLY  . 


0462 
0 46  3 

0464 

0465 
D 466 
0467 
0 4 6 B 
D469 
0470 
C471 
0472 
C 473 


REF 

PFF 

RFF 

REF 

REF 

REF 


32  LAST  1425 
1 


23  LAST  1431 
15  LAST  1431 

2 LAST  144  1 
60  LAST  1440 

5 LAST  1431 

3 l A ST  1433 


17,  2 7 5 7 
1 7 , 2760 
17,2761 
17,  2762 
17  ,2763 
1 7,2764 
17, 2765 
17  ,2766 
17, 2767 

17. 2770 

1 7.2771 


3 0101  1 
7 4737  l 
0 0006  1 
1 2772  0 

4 0106  1 
7 47  37  1 
0 0006  1 
1 2772  0 
3 0111  0 
7 4744  0 
C 0006  1 
1 3112  1 


AFT ERTJ 


CA  FLAGWRD5 

MASK  SNUFFBIT 

EXTEND 

8ZF  DOROTAT 

CS  ELGWRDlO 

MASK  APSFLBIT 

EXTEND 

BZF  DOROTAT 

CA  DAPBDOL  S 

MASK  DRIFTBIT 

EXTEND 

BZF  XTRANS 


IF  SNUFFBIT  SET  DURING  A DPS  BURN  GO  TO 
XTRANS:  T FAT  IS,  INHIBIT  CONTROL. 


3474 

0475 

0476 
CW7 
0478 
D 479 
0480 
04  R1 
D 43  2 

0483 

0484 


REF  96 
RFF  309 
REF  19 
REF  9 


L AST 
LAST 
LAST 
LAST 


1433 

1435 

1440 

1437 


R EF 


REF  2 LAST  1441 

REF  156  LAST  1440 
RFF  5 LAST  1425 


1 7,  2772  3 4752  0 

17  ,2773  54  001  1 

17,2774  5 l'  5C5  0 

17,  2775  11*525  0 

17  ,2776  1 3003  0 

17,  2777  1 3026  1 

i7, Toco  i 3002  1 

17,3001  1 3026  1 

17,  3002  22  CC 7 0 

17.3003  6 4753  l 

17.3004  55 1 736  0 


DOROTA  T 


CAF  TWO 

TS  L 

INOEX  AXISCTR 

CCS  TJU 

TCF  +5 

TCF  NOROT  AT 

TCF  +2 

TCF  NOROTAT 

ZL 

AD  ONE 

TS  ABSTJ 


0488  P E F 19 

0 486  REF  310 

D 43  7 REF  8 


LAST  1 44  1 
LAST  144  1 
LAST  1431 


1 7,  3005 
17  ,300  6 
17,  30C  7 


3 1505  0 
6 00C1  0 
5 5'  743  1 


CA  A X!  SC  TR 

AO  L 

TS  ROTINDEX  0 12  3 = -J  -V  - *U  +V 


C 4 88  PEF 
'489  RFF 
D49D 

04Ql  PEF 


6 LAST  1 4**  1 
1 

1 


17,3)1 
17 ,3911 

17,  3c  12 
17  ,30  13 


0 0006  1 
6 3037  0 


CA  ABSTJ 

AD  -150  MS 

E X TEND 

BZMF  DOSKIP 


JAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZEPLINA  BY  ZOROASTER 


0 » P- A XF  S PCS  AUTOPI  LOT 


0492 


RFF 


2 LAST  1431  17,  30  14  0 3225 


TC  SELCTSL'B 


4^3 
3494 
4 95 


PEF  2C 
RFF  1 
REF  -311 


LAST  1 44  1 
LAST  1 44  1 


L 7 ,30  15 
17,  3016 
17, 3017 


51*505  0 
3 3134  l 
54  0C1  1 


INDEX  AXISCTR 
CA  INDEXES 

TS  L 


REF  7 l A ST  1432 

RFF  312  LAST  1442 
PEF  4 I A ST  1425 


1 7,3020 
1 7,  3021 
17 ,3022 
1^,3023 


3 1 740  0 
C C 004  r 
5C  001  0 
C 5755  0 


CA  POLYTEMP 

I NHI  NT 
INDEX  L 
TC  WP  IT  EP 


0500 

0501  REF 


17,  3024  C OCC  3 1 9ELINT 

17,3025  1 3100  1 TCF  FEEDBACK 


DSD?  REF  21  LAST 

0503  REF  2 LAST 

0 50  4 

0505  RFF  503  LAST 

0506  RFF  5 LAST 


1442  17,  3026  51*  5C5  C 

1442  17,3027  ? 3134  1 

17,3030  0 0004  0 

1440  1 7,  303 1 SC  OCO  1 

1442  17,3032  C 5754  1 


NOROTA  T 


INDEX  AXISCTR 
CA  INDEXES 

INHINT 
I NOE  X A 

TC  WR ITEP  - 1 


0 50  7 
05  OB 
*■500 
05  I 0 
05 1 1 
0 512 
3 513 
0514 


RFF  22  LAST  1442 

RFF  4 LAST  1440 

R EF  1 

REF  7 LAST  144  1 

REF  2 LAST  1434 

REF  1 


17,  30  34 
17 ,3035 
17,  3C36 
17,  3037 
17,3040 
1 7,  304  1 
17  ,3042 


C CCC3  1 

11*505  1 LODPER 

0 1477  l 

1 3270  0 

4 1736  0 DOSK  IP 
6 3136  0 
C CCC6  1 
fc  3061  0 


RELINT 

CC  S A XI  SC-  TR 

TC  RETJADR 

TCF  C LOSE  CUT 

CS  ABSTJ 

AD  +TJMINT6 

E XTEND 

BZMF  NO  TWIN 


0 5 1 5 
C5 1 6 
0517 
3 518 

0519 

0520 

0521 

0522 


P EF 
RFF 
REF 
REF 


REF 

REF 

RFF 


fi  LAST  144  2 

23  LAST  144  2 

10  LAST  1441 

3 LAST  1442 

4 LAST  1442 

24  l AST  1442 

11  LAST  1442 


17,3045 
17,  3C46 
17, 3047 
17,3050 
17,  3C5  1 
17  ,3052 


11' 525 
2 3136 
1 3051 

4 3136 

5 1 * f05 


55*525 


0 

0 

0 

0 

1 

1 

0 

0 


ADS  ABSTJ 
INDEX  AXISCTR 
CCS  TJU 

CA  4-TJMINT6 

TCF  +2 

CS  +TJMINT6 

I NDE X A X I SCTR 

TS  TJU 


,523 
052  4 
0 52  5 
3526 
05  2 7 
0528 


REF  4 LAST  1431  17.3C53  1 1*  500  1 

RFF  2 LAST  1442  17,3054  1 3060  0 

17  ,3055  C 0006  1 

RFF  7 LAST  BO  1 17,  3056  CO  004  0 

RFF  157  LAST  1441  17,3057  7 4753  0 

REF  11  LAST  1440  17,3060  55'742  0 


CCS  SF.NSETYP 

TCF  NOTMI  N - 1 

EX  T BN  D 

READ  LOSCALAR 

MASK  ONE 

TS  NUMBERT 


3529 


REF  3 LAST  1442 


17,  3061  0 3225  1 NOTMI  N TC 


SELC  TSUB 


0530 

0 531 

053? 


RTF  25  LAST  1442 
REF  3 LAST  1442 


17  ,3062  5 1' 505  0 

17,  3C6  3 2 3134  1 

1 7,  3064  0 0004  0 


INDEX  AXISCTP 
CA  INDEXES 

INHINT 


9:  12  O;  T.  21  ,1970 


Z LMDAP 


PAGE  1442 


.0  1 


USER  *S  PAGE  NO.  13 


F 6 S4 


14MS 


ENSURE  M IN—  IM  PUL  S E NOT  AGAINST  TRANS 


GAP: 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


0 ,R-A  XE  S RC  S AUTOPI  LCT 


D 533 

REF 

5 

LAST 

1425 

17,  3065 

55*  471 

0 

TS 

T6FUPTHA  +1 

0534 

REF 

8 

LAST 

1442 

17,3066 

3 1740 

0 

CA 

PDL  YTFMP 

0535 

REF 

6 

LAST 

146  3 

17,3067 

51* 471 

1 

INDEX 

T6FURTHA  +1 

3536 

PFF 

6 

1 AST 

1442 

17, 3070 

C 5755 

0 

TC 

WRI TEP 

P537 

PFF 

9 

LAST 

1442 

17  ,3071 

3 1736 

1 

CA 

A8STJ 

0538 

REF 

7 

LAST 

144  3 

1 7 , 3C  7 2 

55*470 

1 

TS 

T 6 FUPT HA 

05 1 9 

REF 

2 

LAST 

1425 

17,  3073 

0 3 14  3 

1 

t: 

JTLST 

0540 

17,3074 

C 0003 

1 

RELINT 

0541 

REF 

313 

1 Ac  T 

1438 

17,  3C75 

3 4755 

1 

CA 

ZERO 

0542 

REF 

26 

L AST 

1442 

17,3076 

5 1 '505 

0 

INDEX 

A XI  SC  TR 

0 543 

RFF 

7 

1 A ST 

1440 

17,3077 

55’ 534 

0 

TS 

SK  IPU 

? 544 

REF 

46 

L AST 

1376 

17,  3100 

4 6257 

0 

FEEDBACK 

C S 

THREE 

0 54  5 

REF 

12 

LAST 

1442 

1 7 ,3101 

6 1742 

1 

AO 

NJMBFRT 

0546 

17,  9 i c 2 

C CCC6 

1 

EXTEND 

0547 

17,  3 103 

6 3lC6 

0 

BZMF 

*■  3 

0 5^8 

PEF 

57 

LAST 

1441 

1 7,3104 

3 4752 

0 

CA 

TWO 

0549 

1 7,  3105 

1 3 10  7 

0 

TC  F 

♦ 2 

055C 

REF 

158 

LAST 

1442 

17  ,3  106 

3 4753 

1 

CA 

ONE 

9551 

REF 

27 

LA  ST 

144  3 

17,3  107 

51*  505 

0 

I NDEX 

AX  I S CT  R 

0552 

REF 

2 

L AST 

137 

17,  3 110 

55*522 

1 

TS 

NO. UJE  TS 

0553 

REF 

3 

LAST 

1440 

17  ,3111 

1 3034 

1 

TCP 

LOOPER 

0554 

P EF 

314 

LAST 

1443 

17,  3112 

3 4755 

1 

XTRANS 

CA 

ZERO 

0555 

PEF 

12 

L AST 

14^2 

1 7,?l 13 

55*525 

0 

TS 

TJU 

'556. 

RFF 

LAST 

1 433 

17,3114 

55*  526 

0 

TS 

T JV 

3557 

REF 

43 

L AST 

1440 

17,  3115 

3 47  5 1 

0 

CA 

FOUR 

0558 

17  ,3116 

0 0004 

0 

INHINT 

0 559 

REF 

8 

LA  ST 

1443 

17,3117 

57*  534 

1 

XCH 

SK  IPU 

0560 

17,  3120 

0 0006 

1 

F XTFNO 

0561 

17  ,3121 

1 3123 

0 

BZF 

+ 2 

3562 

REF 

1 

17,  3122 

C 5760 

0 

TC 

WPITEU  -1 

0561 

REF 

44 

LAST 

1443 

17, 3123 

3 4751 

0 

CA 

FOUR 

0564 

REF 

2 

LA  ST 

1400 

17,3124 

57*  535 

0 

XCH 

SK  IPV 

3556 

17,  3125 

C CCC3 

1 

RE  LI  NT 

0566 

17  ,3126 

C 0006 

1 

EXTEND 

0 567 

REF 

2 

LA  ST 

1462 

17,3  127 

1 3270 

0 

BZF 

CLOSEOUT 

0568 

17,  3130 

C OOC 4 

0 

INHINT 

0569 

REF 

1 

17  ,3  131 

0 5771 

0 

TC 

WR  ITEV  - 1 

3573 

17,  3 132 

C 00C3 

1 

RE  LI  NT 

0671 

REF 

3 

LAST 

1 4**  3 

17,3133 

1 3270 

0 

TC  F 

CLOSEOUT 

0572 

17 ,3134 

00004 

0 

I NOFXES 

DEC 

3573 

17,  31.35 

COO  1 5 

0 

DEC 

13 

0574 

17  ,3136 

00026 

0 

+TJM  INT 6 

DEC 

22 

9:12  CCT.  21  ,1970  ZLMDAP 
USFR  *S  PAGE  NO.  14 
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IN  QR  BANK  BY  NOW 
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Q.R-AXF  S RC  S ALTOPILOT 


USER  'S  t»AGE  NO.  15  E 6 S4 


' 57s; 
r 576 
r 5 77 
05  78 


PEF 


17,  3 137 
17  , 3 14f 
17,3141 
17,  3 1 4 2 


77417  0 - 1 5 CM  S DEC  -240 

00600  1 BITS, 9 OCT  00600 

C0266  0 SCLNORM  OCT  26 6 

C 27 20  C TJLAWADR  GENAOR  TJLAW  +3 


RETURN  ADORES S FOR  RCS  ATTITUDE  CONTROL 


AC579  THE  JET  LIST: 

AO  5 30  THIS  IS  A WAITLIST  FCR  T6  RUPTS  • 


A < ■ 581 
A 582 

Af  5 83 
4 (j  584 
AO  585 
A 0586 


CALL  EC  RY: 


CA  TJ 

TS  T6FURTHA 
CA  INDEX 
TS  T6FURTHA 
TC  JTLST 


T IME  WHEN  NEXT  J ET S 
AXIS  TO  RE  WIRTTEN  « 


WILL  BE  WR  ITTEN 
T IJ  (FROM  NOW) 


A 0 587  EXAMPLE-  IJ  — AX  IS  AUTOPILOT  WILL  WRITE  ITS  ROTATION  CODE  OF 

AJ598  JETS  INTO  CHANNEL  5.  IF  IT  DESIRES  TO  TURN  OFF  THIS  POLICY  WITHIN 

A 0589  150MS  AND  THEN  FIRE  NEXTU,  A CALL  TO  JTLST  IS  MADE  WITH  T6FURTHA 

A"  5°0  CONTAINING  THE  TIME  TC  TURN  OFF  THE  POLICY,  T6FURTHA  +1  THE  INDEX 

A0591  OF  THE  U-AXJS(4),  AND  NEXTU  WILL  CONTAIN  THE  "U-TRANS"  POLICY  OP  ZERO. 


A 0592  THE  LIST  IS  EXACTLY  3 LONG.  (THIS  L EADS  TO  SKIP  LOGIC  AND  150MS  LIMIT) 

A} 5 ^ 3 THE  INPUT  IS  THF  LAST  MEMBER  OF  THE  LIST 


A 05  Q4  RETURNS  BY: 

A 0 595  + TC  0 


A3  596 

a '.'S«7 

a ri  5 9 8 
A059O 

a 0600 

A35  3 1 
4(602 
060  3 
36  5 4 

0605 

0606 


REF 

REF 

P EF 


8 LAST  1443 
5 LAST  1400 

1 


17.3143  4 1470  1 

17. 3144  6 0031  0 

17  ,3145  0 C006  1 

17,3146  6 3163  0 


DFFI  Nl  TI  HNS:  (DUTP  IJT) 

T I M F6  T IME  OF  NEXT  R UPT 

T6NEXT  DELTA  TIME  TO  NEXT  RUPT 

T 6 FUR  THA  DELTA  TIME  FROM  2ND  TO  LAST  RUPT 

NX  T6  ADR  AXIS  INDEX  Q - P-AXIS 

T6NEXT  +1  AXIS  INDEX  4 - U- AX  IS 

T 6 FUR T HA  +1  AXIS  INDEX  13  - V-AXIS 

JTLST  CS  T6FURTHA 

AO  TI ME6 

EXTEND 

BZMF  MIDORLST  T IME6  - T IS  IN  A 


0607  PEF 

0608  REF 
3659  RFF 

0610  REF 

0611  PFF 


4 LAST  1450 
9 LAST  1400 
9 LAST  1444 
6 LAST  1444 

5 I A ST  1444 


17,  3 147  2 3 1 4 6 5 1 

17  ,3150  53 ' 467  1 

17,  1 1 5 1 c ?'  471  0 

17.3152  54  031  1 

17.3153  23*465  1 


L XCH 
DXCH 
D XCH 
TS 

LX  CH 


N XT6ADR 
T 6 NEXT 
T4FURTHA 
TIME  6 
NXT6ADR 


3512 

'■6121  REF  7 LAST  1422 
06172  RFF  10  LAST  1422 


17,3154  C COG  6 1 TURNON 
17  ,3155  23*265  1 

17,3156  C 6022  1 


E XTEND 

QXCH  C130SAV 
TC  Cl  3 ST  ALL 


06123  REF  52  LAST  1434  17,  3 157  3 4735 


CA 


31  T 1 5 
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REF  22  LAST  H22 
REF  8 LAST  1444 


E X TE  NO 

WOR  CHANI3 

TC  C130SAV 


3616 
061  7 

0618 


REF 


R EF 


10 


1 


LAST  1444  17,  1163  6 1466  1 MIDORLST  AO  T6NEXT 

1 7 ,3164  0 OOC 6 1 EXTEND 

1 7,3165  6 3174  0 BZMF  L ASTCHG 


T IME6  + T6NEXT  - T I S IN  A 


06 1 9 REF 

0620  RFF 
3621 

0622  RFF 

0623  RFF 


1445 

1444 

1444 

1445 


17,  3 166  23*467  0 

17  ,3167  53' 471  0 

17, 3170  f CC06  1 
17,  1l  71  60  031  0 

17,317?  53 ' 467  1 


L XCH  T6NE  XT  + 1 
DXCH  T6FURTHA 
EXTEND 

SU  TIME6 
DXCH  T6  NEXT 


3 5 24 


REF  410  LAST  1439 


17,3173  G 0002  0 


TC 


0 


0625  RFF  504  LAST  1442  17  ,3174  4 0000  0 LASTCHG  CS  A 

r 626  P.FF  26  LAST  1383  17,31  75  6 4754  0 AD  NE  GO 

0627  REF  11  LAST  1445  17,  3176  55*470  1 TS  T6FURTHA 


0628 


REF  411  LAST  1445 


17,3177  C 0002  0 


T C 


0 


R3S29  RDT  -T  OUV  IS  ENTERED  WITH  THE  Q-COMPONFNT  OF  THF  QUANTITY  TO  BF  TRANSFORMED  IN  A AND  THE  R-COMPONFNT  IN  l. 

1 0631  ROT-TOUV  TRANSFORMS  THF  QUANTITY  INTO  THE  NON-ORT  HD  GON  AL  U-V  AXIS  SYSTEM.  IN  THE  U- V SYSTEM  NO  CROSS-COUPLING  IS 

R 0 6 3 3 PRODUCED  FROM  RC  S JET  FIRINGS.  AT  THE  COMPLETION  OF  ROT-TOUV,  THE  U-COMPONENT  OF  THE  TRANSFORMED  QUANTITY  IS  IN 

R063S  A ANC  THE  V-CCMFONENT  IS  IN  L . 


06  38 
0 6 39 
3641 
0641 
C 64? 
0641 
'644 
3545 
06.46 
647 
064  8 
064  9 
3 65  3 

065 1 

0652 
3653 
0654 
f 655 

0656 

0657 


REF  l 1 7,3200  23’  737  0 RCT-TOUV  LXCH 


17,  32C1  C 00G6  1 E XTEND 

REF  ? LAST  138  17,3202  7 1626  0 MP 

REF  2 LAST  1445  17,3203  57*737  0 XCH 

17,  3 204  C 00U6  1 EXTEND 

REF  1 17  ,3205  7 1627  1 MP 

PFF  313  LAST  1442  17,  32C6  54  OCl  1 TS 

REF  3 LAST  1445  17,  3207  6 1 737  0 AD 

REF  1 17,3210  55' 736  0 TS 

17,  3211  1 3215  0 TCF 

REF  505  LAST  1445  17  ,3212  50  0.00  1 INDEX 

REF  « LAST  1408  1 7,32  13  4 47  34  1 CS 

REF  2 L AS  1 1445  17,  32  14  55'736  0 TS 

PEF  4 LAST  1445  17  ,3215  4 1737  1 CS 

RFF  314  LAST  1445  17,3216  6 CC01  0 AD 

17,  3;?  1 7 54  0C7  1 TS 

1 7 ,32?0  1 3223  0 TCF 

RFF  506  LAST  1445  17,  3221  50  000  1 INDEX 

REF  9 LAST  1445  17,3??2  4 4734  1 CS 

REF  3 LAST  1445  17,3223  23'736  1 LXCH 

REF  412  i AST  l4<-5  17,  3224  C 00C2  0 TC 


REF  9 LAST  1441  17,3225  51*743  0 S ELCTSU8  INDEX 


ROT  EMP2 

COEFFQ 

R0TEMP2 

COEFFR 

L 

P0TEMP2 
ROT  EMP1 
♦ 4 
A 

L IMITS 
R 0 TF  MP  1 
P.0TEMP2 
L 
7 

+ 3 
A 

L IM  ITS 
R0TEMP1 

Q 


(R  ) I S PUT  INTO  R 0 TE  MP  2 


(P  ) GOES  TO  A AND  COEFFQ.  (Q)  TO  R 0 TE  MP  2 


COEFFR.  (R)  IS  PUT  INTO  l 

COEFFQ.  (Q  l+COEFFR.  (R  ) IS  PUT  IN  RCTEMP1 

COEFFQ.  (Q)  + COEFFR.  (R)  HAS  OVERFLOWED 
AND  IS  LIMITED  TO  POSMAX  OR  NtGMA  X 


-COEFFQ.  (Q)  + COEFFR.(R)  IS  NOW  IN  A 


-COEFFQ. (3)  * COEFFR . ( P ) HAS  OVERFLOWED 
AND  IS  LIMITEO  TO  POSMAX  OR  NEGMAX 
COEFFQ.  (Q)  + COEFFR  .(R)  IS  PUT  INTO  L 


ROT  inde: 
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0 , R—  AXES  RCS  AUTOPILOT 


3 6 79 
0680 
0681 
0682 
0603 

3684 

0685 
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0658 

PFF 

1 

17, 3226 

3 3 2 5 7 

1 

CA 

ALLJE  TS 

:A659 

PEF 

13 

LAST 

144  3 

17  ,3227 

51 • 7A2 

1 

INDEX 

NUMRFRT 

0660 

PEF 

17, 3230 

7 3263 

1 

TY  PC  POLY 

0661 

REF 

° 

LAST 

144  3 

17,  323! 

55  *7aH 

1 

TS 

POLYTF  MP 

0662 

RFF 

7 

1 AST 

219 

17,3232 

7 1257 

1 

MASK 

CH5MASK 

3663 

REF 

507 

L AST 

1445 

1 7,  3233 

10  COO 

0 

CCS 

A 

0664 

17  ,3234 

1 3236 

1 

TCF 

+ 2 

0665 

REF 

4 1 3 

LA  ST 

144  5 

17,3235 

C 0C02 

0 

TC 

0 

C 666 

REF 

47 

L AST 

1/  3 

. - 

, _ 

1 

r 

0667 

REF 

14 

LAST 

1 A46 

17,3237 

55' 7A2 

0 

FAIIOOP  TS 

NU  MBERT 

3668 

RFF 

10 

L AST 

144  5 

17,  3240 

51* 743 

0 

I NHE  X 

ROTI NDEX 

066  9 

REF 

2 

LAST 

1446 

17,3241 

3 3257 

1 

CA 

ALLJFTS 

0670 

REF 

15 

LAST 

1446 

17,3242 

51 • 742 

1 

I NDEX 

NU MBERT 

3671 

PFF 

2 

L AST 

144  6 

17, 3243 

7 2263 

1 

MASK 

TYPF  POLY 

067? 

REF 

10 

LA  ST 

1446 

17  ,3244 

55 '740 

1 

TS 

0 9 L Y TFMP 

1 67  3 

PEF 

8 

LA  ST 

1446 

17,3245 

7 1257 

1 

MASK 

CH5  MASK 

0674 

17,  3246 

C 0006 

1 

E XTEN3 

0675 

REF 

1 

17  ,3247 

1 3235 

1 

BZ  F 

FA  ILOOP  - 2 

3676 

RFF 

16 

LAST 

1446 

17, 3250 

11' 742 

0 

CC  S 

NU MBERT 

0677 

PFF 

2 

LAST 

1446 

17,  32*1 

1 3237 

0 

TCF 

F A I LOOP 

('678 

REF 

28 

1 AST 

144  3 

17,3252 

51*  505 

0 

INDEX 

AX  ISCTR 

REF  3 LAST  144  1 


17,  3253 
17  , 

L 7 , 3 255 
17,  3256 
17 ,3257 
17,  326C 
17, 3261 


55*525  0 

0 5600  1 
0200 A 1 

1 3026  1 
00110  1 
0CC22  1 
C0204  1 


OCT 

TCF 

OCT 

or.  t 

OCT 


TJU 
ALARM 
02  00  A 
NOROTA  T 

on  no 
00022 
002C4 


0 686 
36B7 
0688 


17,3262 
17,  3263 
17  , 3 26 A 
17,3265 
17,  3266 
17,3267 


00041  1 
00lz5  1 
00252  1 
CC1A6  1 

C0231  1 
0C377  1 


OCT 

OCT 

OCT 

OCT 

OC  T 
OCT 


30041 
Of  125 
00252 
00146 
00231 
00377 


+ X 2 6 10  1A 

A 2 5 10  13 

R 1 6 9 14 

ALL  1 2 5 6 9 10  13  1A 


THE  FOLLOWING  SFTS  THE  IN  TERR  LP  T FLIP-FLOP  AS  SOON  AS  POSSIBLE,  WHICH  PERMITS 
RFF  1 17  ,3270  3 3272  0 CLOSEOUT  CA  A DR  P UP  T 


RETJRN  TO  THE  INTERRUPTED  J3B. 


0697 
3698 
0699 
0 700 


PEF 

REF 

REF 

REF 


LAST  1416 

I A S T 141 6 
LAST  1 A 16 
LAST  LA  1 6 


17,  3272  C 3 2 7 3 1 ADRR  UP  T ADRES  ENDJASK 


1 7,3273  53*753  0 

1 7,  3274  52  C 1 1 c 

17.3275  53 '755  0 

17.3276  56  017  1 


ENCJASK  DXCH 
OXCH 
DXCH 
XCH 


DAPARU  PT 
ARUPT 
3APBQRPT 
BRUPT 


SAP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  OY  ZOROASTER 


R,R-AXFS  PCS  AUTDP I LOT 


0701  REF  414  LAST  1446 

0702  RFF  0 LAST  1417 

3733  REF  4 LAST  I4I6 

0704  REF  2 LAST  1416 

0705  REF  1 

0705 

0707  REF  5 LAST  12^1 

373B 


17,3277  22  002  0 

17,3300  3 4735  1 

17,  330  1 5 3*757  1 

17.3302  52  016  1 

17.3303  1 5303  0 
7766 

6000 

7766 


L XCH 
CAF 
D XCH 
OXCH 
TCF 
BLOCK  3 
SETLOC  FFTAG6 
BANK 


NEGMAX 
DAPZR  UPT 
7P  OP  T 
NOQRSM 


0709  RFF 


COUNT  * fS/DAP 


0710  7766  0 0006  1 MAKERUPT  EXTEND 

3711  RFF  2 LAST  1446  7767  C7  766  1 EDRUPT  MAKERUPT 
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NEGATIVE  DAPZR  UPT  SIGNALS  JASK  IS  OVER. 
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001  PAGE  1449 


L 

TJET  LAW  USER'S  PAGE  NO.  1 EO  S4 

R00C.1 

PROGRAM  CES  CP  I PT  ION 

R 0002 

DESIGNFD  BY:  R.  D.  GOSS  AND  F.  S.  WEISSMAN 

R3333 

CODEC  BY:  P.  S.  WEISSMAN  2P  FFBRUARY  196R 

■ 

ROOCft 

P.0008 

3 0009 
RD3n 
roci  1 

3 00  1 3 
<03  IB 
ROCI  7 
ROr‘  i« 
P.002  ( 

3 0022 
RJD24 

R 002ft 

3 00  28 
R333C 

TJETLAW  IS  CALLEC  AS  A SUBROUTINE  WHEN  T H F LEM  IS  NOT  DOCKED  AND  THE  AUTOPILOT  IS  IN  THE  AUTOMATIC  OR 

ATT  ITUDF-HOLP  MODE  TO  CALCULATE  THE  JE  T-F I PI  NG-T  I MF  (TJET)  REQUIRED  FOR  THE  AXIS  INDICATED  BY  A X I SC  T3  : 

-1  INDICATFS  THE  P-AXIS 
+ 0 I NDICATES  TEE  U-AX  IS 
+ 1 INDICATES  THE  V-A  XI  S. 

THE  RFC  I ST  EPS  E ANC  EOOT  CONTAIN  TEE  APPROPRIATE  ATTITUDE  EPPOR  AND  FPROR  RATE  AND  SENSETYP  SHOWS  WHETHER 
UNBALANCED  COUPLES  ARE  PREFERRED.  TJETLAW  ALSO  USES  VARIOUS  FUNCTIONS  OF  ACC  EL  ER  AT  I DN  AND  DEADBAND  WHICH  ARE 
CCMPUT  ED  IN  THE  1/ACCONT  SECTION  OF  1/ACCS  AND  ARE  STORED  IN  SUCH  AN  CRDE  R THAT  THEY  CAN  BE  CONVENIENTLY 

ACCESSFC  BY  INDEXING. 

THE  SIGN  OF  THE  REQUIRED  ROTATION  IS  CARRIED  THROUGH  TJETLAW  AS  ROTSENSE  AND  IS  FINALLY  APPLIED  TO  TJET  JUST 
PREVIOUS  TO  ITS  STORAGE  IN  THE  LOCATION  CORRESPONDING  TO  THE  AXIS  (TJP,  TJU  OR  T JV ) . THE  NUMBER  OF  JETS  THAT 

TJETLAW  ASSUMES  WILL  BF  USED  IS  INCICATEO  eY  THE  SETTING  OF  NIJMRERT  FOP  THE  U-  OR  V-AXIS.  TWO  JETS  ARE  ALWAYS 

ASSUMED  FDR  THE  P-AXIS  ALTHOUGH  FOUR  JETS  WI  UU  BE  FIRED  WHEN  FIREFCT  IS  MORE  NEGATIVE  THAN  -4.0  DEGREES 
(FIREFCT  IS  THE  DISTANCE  TO  A SWITCH  CURVE  IN  THF  PHASE  PLANE)  AND  A LONG  F I P I NG  IS  CALLED  FOR. 

IN  ORDER  TO  AVOID  SCALING  DIFFICULTIES,  SIMPLE  ALGORITHMS  TAGGED  RUFLAWL,  -2  AND  -3  ARE  RESORTED  TO  WHEN  THE 

ERROR  AND/OR  ERROR  RATE  ARC  LARGE. 

R 0031 
ROC  32 
R3333 

R 0034 
R0f'35 
ROT1 3 ft 

3 0017 

CALLING  SEQUENCE: 

TC  TJETLAW  (MUST  BE  IN  JASK) 

OR 

I NHINT  (MUST  BE  IN  JASK  ) 

TC  I3NKCALL 

CADR  TJETLAW 

RE  LI  NT 

R3038 

EX  IT:  RETURN  TO  Q . 

P 0039 
POOAn 
ROOAl 

I NPLT : 

FROM  THE  CAIIER:  E,  EOOT,  AXISCTR,  SENSETYP,  TJP,-U,-V. 

FROM  1/ACCONT:  4fl  ERASABLES  BEGINNING  AT  BLOCKTOP  (INCLUDING  FLAT,  ZONE  3 LI  M AND  ACCSWU,-V). 

3 0043 
R0044 

OUTPUT  : 

TJ  P , - U OR  -V,  NUMBERT  (DAPIEMP5),  FIREFCT  ( DA  PTE  MP3  ) • 

R 0045 

3 004ft 

DEBRIS : 

A,  L,  0 , E,  EDCT,  0APTFMP1-6,  CAPTREG1-4. 

RD3A7 

ALARM:  NONE 

004  8 
0049 

005  0 
0051 

17  ,3304  BANK  17 

REF  4 LAST  1430  17,2000  SETLOC  DAPS2 

17,  3 304  BANK 

PFF  13  LAST  1427  E6  .1524  EB  ANK=  TJP 

AS  SF  MB  LF  RFVISICN  56  OF  AGC  PRCC-RAM  ZERLINA  8Y  ZOROASTER 
TJET  LAW 

REF  1 COUNT*  tt/OAPTJ 


REF 


TJ  ETL AW 
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SAVE  0 FOR  RETURN. 


0056 

00^7 

0068 


SET  TNDFXERS  TC  CORRESPOND  TO  TEE  AXIS  AND  TO  THF  SIGN  OF  EDOT 


REF 

REF 

RFF 


17.3306  51*505 

17.3307  3 37  55 

17  ,3310  55*765 


INDEX  AXISCTR 
CAF  A X I SO  I F F 

TS  ADRSDIF1 


AX  ISOIFFC-l  > = N0  OF  LOCATIONS  BER  P AND  U 
AXISDI  FF  (0  ) = 0 

AXI  SDIFF  (+  1)=N0  OF  LOCATIONS  BET  V AND  U 


"050 

0060 

0061 

3062 

0063 

0066 

0065 


RFF 

REF 

REF 

RFF 

RFF 


3 LAST  1660 


2 LAST  1669 


17,  3311 

17.3312 

17.3313 
17,  3316 
17  ,3315 
17,33  16 
17,  33  17 


?1'427  1 
0 0006  1 
6 3320  0 
: 1 ' 765  0 
55*763  1 
3 3757  l 

1 3330  0 


CAE  EDOT 

EXTEND 

BZMF  NEGEDOT 

CAE  ADRSDIFl 

TS  ADRSDIF2 

CAF  SENSOR 

TCF  SETSENSE 


IF  EDOT  NEGATIVE,  PICK  UP  SET  OF  VALUES 
THAT  ALLOW  USE  OF  SAME  CODING  AS  FOR 
POSITIVE  EDOT. 

SET  A SECOND  INDEXER  WHICH  MAY  BE 

MODIFIED  BY  A IF  C I SI  CN  FCR  MAX  JETS. 
FOR  POSITIVE  ECOT,  ROTSENSE  IS 
I NITTALI  ZFD  POSITIVE. 


00  66 
0057 
0068 
006Q 
00  70 

0071 

0072 
0 C 7 3 
0076 


REF 

REF 

RFF 

RFF 

REF 

REF 

REF 

REF 

REF 


LAST  1660 
LAST  1669 
LAST  14*9 
LAST  1440 
I AST  1434 
LAST  1449 
LAST  1449 
LAST  1449 


17,3320 

17,  3321 

, 

17.3323 

17. 3324 
17  ,3325 

17.3326 

17. 3327 
17  ,3330 


4 1751  1 
55*751  1 
4 1427  0 
55*427  0 

3 4753  1 

27*745  1 
55*  743  1 TS 

4 3757  C C S 

55*737  1 SFTSENSE  TS 


NEGEDOT  CS 


CAF 

AOS 


FOOT 
EDOT 
BI  T1 

ADRSDIFl 
ADRSCIF2 
SF  N SOR 
R OT  S E NS  E 


IN  ORDER  FOR  NEG  EDOT  CASE  TO  USE  CODING 
OF  POS  EDOf,  MUST  MODIFY  AS  FOLLOWS: 

1. COMPLEMENT  E AND  FDCT. 

2. SET  SENSE  OF  ROTATION  TO  NEGATIVE 
(REVERSED  LATER  IF  NECESSARY). 

3.  INCREMENT  INDEXERS  BY  ONE  SO  THAT 
THE  PROPER  PARAMETERS  ARE  ACCESSED. 


R0075 
R0077 
3 00  70 


TEST  MAGNITUDE  OF  F (ATTITUDE  ERROR,  SI  NGLF-PREC I SI  ON,  SCALED  AT  PI  RADIANS): 

IF  GREATER  THAN  (OR  EQUAL  TO)  P 1/  16  RADIANS,  GO  TO  THF  SIMPLIFIED  TJET  ROUTINE. 
IF  LESS  THAN  PI/16  RADIANS.  RESCALE  TC  PI/4. 


3380 
Or  HI 
00  82 

0083 

0084 

0085 

0086 
0087 
0 0 9 9 

0089 

0090 


REF  11  LAST  1449 

REF  52  LAST  1432 
REF  508  LAST  14*6 
RFF  1 
REF  1 
REF  1 
RFF 


58  I AST  1432 


RFF  315  LAST  1445 


17, 3331 
17  ,3332 
17,  3333 

17. 3334 

17.3335 
17,  3336 
17  ,3937 
17,3340 

17,  3341 
17  ,3342 


RFF  12  LAST  1449  17,3343 


7 4747  0 
10  000  0 
1 3717  1 
1 3340  1 
1 3663  0 
3 4737  0 
C 0C06  1 
7 0001  1 
55' 751  1 


MP 

CC  S 

TCF 

TCF 

TCF 

CAF 

E XTEND 

MP 

TS 


BI  T5 
A 

RU  FLAW  2 
SCALFE 
RUFI  AW1 
BIT13 


PICK  UP  ATTITUDE  FRROR  FOR  THIS  AXIS 


ERROR  IS  IN  L SCALED  AT  PI/16.  RESCALE 
IT  TO  PI/4  AND  SAVE  IT  . 


R0C91 
ROC  9? 
RO  094 


TEST  MAGNITUDE  OF  FOOT  (FRROR  RATE  SCALED  AT  PI/4  R AD  I A N S / SE  C FIND  ) 

TF  GREATER  THAN  (OR  ECUAL  TO)  PI/32  R ADI  ANS/S  ECOND,  GO  TO  THE  SIMPLIFIED  TJF  T ROUTINE. 
IF  I FSS  THAN  Pl/32  R AD  IAN  S/ SEC  OND  , THEN  RESCALE  TC  PI  /32  RADI  ANS/ S ECOND  . 


6 LAST  1449 


17  ,3344  3 1 ' 4 27  1 


CAE 


EDOT 


ICK  UP  SINGLE-PRECISION  ERROR-RATE 


JAP:  ASSEMBLF  REVISION  66  OF  ACC  PROGRAM  ZERLINA  8Y  ZOROASTER 


0097 

17,  3345 

0 0CC6 

1 

E XTENO 

0098 

REF 

55 

LAST 

1419 

17  ,3346 

7 4750 

0 

MP 

B IT4 

C CCG6 

1 

EXTEND 

i 

PEF 

1 

17,  ’’350 

1 ? ? 52 

1 

BZF 

SC  A l FOOT 

• 1 1 

REF 

1 

17,3351 

1 3725 

0 

TCF 

P.UFLAW3 

R")  I ■>  ? 

*** 

1-  gft  E *** 

, 1 c 3 

REF 

7 

LAST 

1449 

17  ,3352 

23 '4  27 

1 

S CAL  EDOT 

L XCH 

EDOT 

0104 

REF 

P 

1 A ST 

1450 

17,335? 

21 ' 427 

1 

CAE 

EDOT 

01  05 

17,  3 364 

r CCC6 

1 

E XTEND 

0106 

17  ,3355 

7 0000 

0 

SQUAR  F 

010  7 

17,  3 356 

C CCC6 

1 

E XTEND 

OlOB 

REF 

59 

LAST 

1449 

17,  3 357 

7 47  37 

1 

MP 

B I T 1 3 

0109 

REF 

1 

17,3360 

55*736 

0 

TS 

CDOTSQ 

0110 

REF 

13 

L AST 

144  9 

17,3361 

11*751 

1 

ERRTE  ST 

CC  S 

E 

0111 

1 7 ,3  362 

1 3365 

0 

TCF 

+ 3 

0 112 

17,3363 

1 3365 

0 

TCF 

+2 

01125 

17, 3364 

0 

TCF 

+ 1 

0113 

PEF 

l 

1 7 ,3365 

6 3760 

0 

AO 

-3DEG 

114 

1 !,  j 3(  t 

C CC06 

l 

E X TE  ND 

oils 

PFF 

4 

LAST 

1449 

17,  3367 

5 1745 

c 

INDEX 

ADR  SO  I F 1 

0 1 16 

REF 

1 

17,3370 

61 ' 60C 

0 

SU 

F I R FOB 

1117 

17,  3371 

C CC06 

1 

E XTEND 

C11B 

REF 

1 

17,3372 

6 3377 

1 

BZMF 

SENSTEST 

0119 

REF 

98 

LA  ST 

1443 

17,3373 

3 4 75  2 

0 

MAX  JETS 

CAF 

TWO 

0120 

REF 

3 

l AST 

1440 

17, 1 374 

27*743 

1 

AO  S 

A 0 R SD I F 2 

0121 

REF 

45 

LAST 

1443 

17  ,3375 

3 4751 

0 

CAF 

FOUR 

012? 

REF 

1 

17, 3376 

1 3402 

c 

TCF 

TJCALC 

0121 

PEF 

5 

LAST 

1442 

17,  3377 

1 1*  500 

1 

SEN  STE  ST 

CC  S 

SFNSE  TYP 

0124 

REF 

2 

l AST 

1450 

17,3400 

1 3402 

0 

TCF 

TJCALC 

0125 

REF 

1 

17, 3401 

1 3373 

1 

TCF 

MAXJFTS 

0126 

PEF 

1 7 

LAST 

1446 

17  ,3402 

55*742 

0 

TJCALC 

TS 

NUMRER  T 

R0127 

BEG  INN  INC 

1 OF  1 

rJET  CALCULATION'S: 

0128 

REF 

2 

L AST 

1450 

17,  3 140  3 

4 1736 

0 

C S 

EDOTSQ 

012^ 

17.34C4 

C 0006 

1 

EXT  END 

0130 

PEF 

4 

LAST 

1450 

17,  3 4C  5 

5 1743 

0 

I NDE  X 

ADRSDIF2 

131 

RFF 

B 

1 AST 

l3fl 

17,3406 

7 1566 

l 

MP 

1/ANET1 

0132 

RFF 

5 

1 AST 

1450 

17,7407 

51 • 745 

0 

INDEX 

ADRS0IF1 

0133 

RFF 

2 

l AST 

1450 

17,  3410 

6 UOO 

0 

AD 

F I RE08 

Cl  34 

17  ,3411 

0 0006 

1 

EXTEND 

0 135 

REF 

14 

LA  ST 

1450 

17,3412 

61*  751 

0 

SU 

E 

Cl  3 6 

RFF 

2 

L AST 

1427 

17,  34  13 

5 c ' 740 

1 

TS 

FIREFCT 

0137 

17 ,3414 

0 0006 

1 

EX  T EN  D 

0138 

REF 

1 

17,  3415 

6 3575 

0 

BZMF 

Z ONI  ,2  ,3 

0139 

REF 

6 

LAST 

1450 

17,3416 

51 '745 

0 

Z0NE4,  5 

INDEX 

ADR  SD I F 1 

9:12  OH.  2L.1V70  ZLMDAP  .001  PAGE  1450 
USER  'S  PAGE  NO.  3 E 6 S4 

FOP  THIS  AX  IS  = 

SHIFT  RIGHT  ELEVEN  BITS,  IF  THE  A-REG  IS 
ZERO,  THEN  RESCALF  AND  USE  FINELAW. 


EDOT  IS  SCALED  AT  PI  /32  RADIANS/SECOND. 
COMPJTE  ( EDOT  )(  EDOT  > 

PRODUCT  SCALED  AT  PI(2)/2(10I  RAD/SEC. 

SHIFT  RIGHT  TWO  BITS  TC  RESCALE  EDOTS  Q 
TO  P I ( 2 ) /2(  8 ) R A 0 ( 2 ) / SEC  ( 2)  • 

DOES  BIG  ERROR  (THREE  DEG  BEYOND  THE 
DEADBAND)  REQUIRE  MAXI  MUM  JFTS? 


IF  NOT:  ARE  UNBALANCED  JETS  PREFERREDl 
IF  YES  : INCREMENT  ADDRESS  LOCATOR  AND 
SET  SWITCH  FGR  JET  SELECT  LOGIC  TO  4. 
(ALWAYS  DO  THIS  FOR  P-AXIS) 

DOES  TRANSLATION  PREFER  MIN  JETS. 

YES.  USE  MIN- JET  PARAMETERS. 

NO.  GET  MAX-JET  PARAMETERS. 

SET  TO  +0,1, A FOP  (U.V-AXES)  JET  SELECT. 


SCALED  AT  PI  (2  ) /?  (8  ) . 


.5/ACC  SCALED  AT2(6>/PI  S FC  (2  > / R AD  I AN  . 

DEADBAND  SCALED  AT  PI/4  RADIAN. 

ATTITUDE  ERROR  SCALED  AT  PI/4  RADIAN. 
-E-.  5 ( EDOTS  Q)  / ACC-C8  AT  PI/4  RADIAN. 


GAP:  ASSEMBLE  REVISION  56  OF  A GC  PROGRAM  ZERLINA  BY  ZOROASTER 


L 

TJF  T 

LA  W 

3 140 

REF 

1 

17,  3^17 

2 ] 

.'572 

C 

CAE 

1 /ACOAST 

0 1 41 

17  ,3420 

0 

DOC  6 

1 

EXTEND 

: 14  2 

REF 

3 

LAST 

1450 

17,3421 

7 

1736 
IT  5 1 

0 

MP 

EDOTS  Q 

1K3 

REF 

15 

L AST 

1450 

17, 3422 

6 

0 

AO 

F 

0144 

PEE 

7 

LAST 

1450 

17  ,3423 

51 

• 745 

0 

INOEX 

ADRSDIF1 

0145 

REF 

1 

17,  3424 

6 

16C2 

1 

AD 

C OAST  DB 

0 1 46 

17, 3425 

0 

0006 

1 

EXTEND 

0147 

AO  1 48 

REF 

l 

17,3426 

6 

3461 

1 

BZMF 

Z0NE5 

R 0149 

ZONE  4 

I S THE  COAST  REGION. 

HOWEVER, 

IF  THE  J ETS  AR  E 

DN  AND  DP  1 

RD  151 

A.  THE  A XI 

S WI  THIN  + OR  - 

(DB  * FLAT)  FCR  DRIFTING  1 

FLIGHT,  DR 

R0152 

B.  THE  USUAL  TARGET  PARAeOLA  FOR 

POWERED  FLIGHT 

10153 

THEN 

THE 

THRUSTERS 

ARF  KEPT  Cf>. 

0154 

P EF 

30 

l AST 

1 449 

17,  3427 

5! 

L*  5 C 5 

0 

ZONE  4 

I NO  EX 

AXISCTR 

0I55 

REF 

1 

17,3430 

4 

1525 

0 

CS 

TJETU 

0 156 

17,3431 

0 

0006 

l 

EXT  END 

0157 

RFF 

2 

L AST 

1 449 

17, 3432 

7 

1737 

1 

MP 

ROTSENSE 

C l 58 

17  ,3433 

0 

0006 

1 

EXTEND 

0159 

R EF 

1 

17,3434 

6 

3455 

0 

BZMF 

COASTT J 

0160 

REF 

1 

17, 3435 

1 1 ' c64 

0 

J ET  SDN 

CC  S 

FLAT 

0161 

RFF 

1 

17,3436 

1 

3447 

1 

TCF 

DR  I FT /ON 

0 162 

REF 

3 

L AST 

1450 

17,  3437 

4 

1740 

1 

CS 

FI REFCT 

16  3 

REF 

8 

LAST 

1451 

17,3440 

L '745 

0 

INDEX 

ADR  SO  I F 1 

0 164 

PEE 

1 

17,3441 

6 

1604 

l 

AD 

AX  ISCIST 

0165 

17,  3^42 

0 

0006 

1 

F X TEND 

0166 

REF 

2 

LAST 

1451 

17  ,3443 

6 

34  55 

0 

BZMF 

COASTT J 

ri  67 

REF 

1 

17,3444 

C 

3561 

0 

TC 

Z123C0MP 

Ol  68 

REF 

4 

LAST 

145  1 

17,  3445 

T 740 

0 

CAE 

F I REF C T 

0169 

REF 

1 

17,3446 

1 

3615 

1 

TCF 

ZONE  1 

0 170 

REF 

Q 

L AST 

1 4 c l 

1 7,  3447 

5 

1 ■ 745 

0 

DRIFT /ON 

I NDE  X 

ADRSOIFl 

<'171 

RFF 

3 

LAST 

1450 

17  ,3450 

4 

1600 

1 

CS 

F IREOB 

0 172 

17 ,3451 

6 

OCGO 

1 

DOUBLE 

0173 

RFF 

5 

LAST 

145  1 

17,  3452 

6 

1740 

0 

AD 

FIREFC  T 

C 1 74 

17  ,3453 

0 

0006 

1 

EXTEND 

0175 

17,  3454 

6 

3457 

1 

BZMF 

+ 3 

Ol  76 

PFF 

315 

LAST 

144  3 

17, 3455 

3 

4755 

1 

CO  AS  T T J 

CAF 

ZERO 

0 177 

REF 

l 

17,3456 

1 

3521 

0 

TCF 

returntj 

0178 

RFF 

7 

LAST 

14  51 

1 7,  3457 

0 

3561 

0 

TC 

Z123COMP 

0179 

RFF 

1 

17  ,3460 

1 

3602 

1 

TCF 

ZONE 2, 3 

W* 

R EF 

316 

LAST 

17,3461 
17,  3462 

) • 7 37 

1 

ZTNE5 

TS 

L 

RFF 

3 

LAST 

1 

1 

::  s 

ROTSE  NSF 

0182 

17,3463 

1 

3467 

0 

TCF 

+ 4 

019  3 

REF 

22 

LAST 

139  2 

1 7,  3464 

C 

5706 

0 

TC 

CC  SH  CL  E 

9:12  CCT.  21,1970  ZLMOAP  .00  1 PAGE  1451 
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.5/ACC  SCALED  AT  2 <6  >/  P I WHERE 
ACC  = MAXIAMIN,  AOS-). 

SCALEO  AT  P 1/  2 ( fl  ) . 

SCALED  AT  PI/4 

SCALED  AT  PI/A  POS.  FDR  NEG.  INTERCEPT. 
TEST  E+.5 (EDOTSO) /ACC+DB  AT  PI/4  RADIAN. 
IF  FUNCTION  NEGATIVE,  FIND  TJET. 

IF  FUNCTION  POSITIVE,  IN  ZONE  4. 


IS  THE  CURRENT  VALUE  IN  TJET  NON-ZERD 
WITH  SENSE  OPPOSITE  TC  EDOT, 

(I.E.,  ARE  JETS  ON  AND  FIRING  TOWARD 
THE  DES  IRABLE  ST  AT  E)  . 

NO.  COAST. 

YFS.  IS  THIS  DRIFTING  OR  POWERED  FLIGHTl 

DRIFTING.  GO  MAKE  FURTHER  TEST. 

POWERED  (OR  ULLAGE).  CAN  TARGET  PARABOLA 
BE  REACHED  FROM  THIS  POINT  IN  THE 
PHASE  PLANE  I 

NO.  SET  TJET  = 0. 

YES.  CALCULATE  TJ  FT  AS  THOUGH  IN  ZONE  1 
AFTER  COMPUTING  THE  REQUIRED 
PARAMETER  S. 

CAN  TARGET  STRIP  OF  AXIS  BE  REACHED  FROM 
THIS  POINT  IN  THE  PHASE  PLANF  | 


NO.  SET  TJET  = 0. 


YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  2 
OR  3 AFTER  COMPUTING  REOUTRED  VALUES. 

TEMPORARILY  STORE  FUNCTION  IN  L. 

MODIFY  ADRSDIF2  FOR  ACCESSING  1/ANET2 
AND  ACCFCTZ5,  WHICH  MUST  BE  PICKED  UP 
FROM  THF  NEXT  LOWER  REGISTER  IF  THE 


,AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZF  RLI  NA  BY  ZOROASTER 


L T JET  LAW 


' 187 
319* 
"189 

0 ion 

01  91 
192 

0193 
1 94 

0 195 
1 o s 
"197 


PEE  317  LAST  1451 

REF  6 LAST  1452 
REF  1 


REF  1 

REF  7 LAST  1452 

REF  2 LAST  14-37 

RFF  9 LAST  1450 

REF  1 


17,3467  30  001  0 

17,3470  C 0CO6  1 
17,  347  1 5 1743  0 

17 .3472  7 1575  0 

17.3473  20  CC1  1 

17,  3474  20  00 1 1 

17,3475  53*747  0 

17,  3476  5 1'  743  0 

17,  3477  31 '567  1 

17,3500  C 0006  1 
17,  3 5C1  7 U27  0 

17  ,3502  55 ' 74 1 0 


R 0 1 9 w TEST 

Ql  9Q 

0200  RFF 
3231  REF 

020 2 REF 

0203 

3234  REF 


WHETHER 

1 

2 LAST 
10  LAST 


TJFT  GREATER  THAN  50  MSFC. 

17,  3503  f 0006  1 

17,3504  7 3767  0 

1452  17,  3505  6 1746  0 

1297  17,3506  6 7760  1 

17,3507  C 0006  1 

17, 3510  6 3536  1 


CS  TWO 

ADS  ADRSDIF2 


ADRSOI F2 
ACCFOTZ  5 


DDOUBL 
DD0U3L 
DXCH 
I NDEX 
CAF 

EXTEND 

MP 

TS 


E X TEND 

MP  -.05AT2 

AD  HH 

AD  NEG  2 

EXTEND 

BZMF  FURMULAl 


R 0205 
0 20  6 
0207 
020B 
3239 

n2 1 o 

321  1 
3212 


TEST  WHETHER  TJET  Of 
REF  2 LAST  1452 

REF  1 

REF  3 LAST  1452 

RFF  1 


REF  1 


EATER  THAN  150  MS  EC. 
17,3511  21* 741  1 

17,  35  12  C 0006  1 
17  ,3513  7 3770  0 

17,  35  14  6 1746  0 

17,3  515  6 3761  1 

17,3516  0 3006  1 

17,  3517  6 3546  0 


CAE  TTOAXIS 

EXTEND 

MP  - . 15AT  2 

AD  HH 

AD  -.0112AR 

EXTEND 

BZMF  F0RMULA2 


(213  IF  TJET  GREATER  THAN  150  MSEC,  ASSIGN  IT  V ALU  F OF  250  M SFC , SINCE  THI 
RO  214  IS  ENOUGH  TO  ASSURE  NO  SKIP  NF  XT  C SP  (100  MSEC). 


0215  REF  33  LAST  1325  17,  3520  2 4141  1 FULLTIME  CAF  31  Til 


* 02 16  RETURN  TO  CALLING  PROGRAM  WITH  JET  TIME  SCALED  AS  T IME.6  ANC  SIC-NCD. 


0219 

0220 
0221 
3222 
0223 
"•  224 
3225 
"226 


RFF  4 
REF  31 
RFF  2 

REF  32 
REF  2 
REF  ?lfl 


LAST  1451 
LAST  1451 
LAST  145  1 

LAST  1452 
IAST  l 33 
LAST  1452 


1 7,  3521 
17  ,3522 
17,3523 
1 7 , 3524 
17  ,3525 
17,  3526 
17,3527 
17,3530 

17,  353  1 
17  ,3532 


C 0006  1 
7 1737  1 
51' 5C5  0 
c 5 * 5 25  0 
C 0006  1 
c 1 5C5  0 
7 1546  0 
30  001  0 
0 OOC 6 1 
6 3535  1 


RE  TUR  NT  J E XTEND 


CAE 

E XTEND 
BZMF 


R 0 T SEN  SF 
AX  ISCTR 
TJE  TU 

AXIS  CT  R 

a:c  swu 


9:12  OCT.  21,  1970  ZLMDAP 


iOGI  PAGE  1452 


USER'  S PAGE  NC.  5 E6  S4 

(ACTUAL)  ERROR  RATE  IS  NEGATIVE. 


TTOAXIS  AND  HH  APE  THE  PARAMETERS  UPON 
WHICH  THE  APPROXIMATIONS  TO  TJET  ARE 
BASED. 

DOUBLE  PRECISION  H SCALED  AT  8 SEC(2). 

SCALED  AT  2(7)  /PI  SFC(2)/RA0. 

SCALED  AT  P 1/ 2 (5  ) 

SCALED  AT  4 SEC. 


H - .05  TTOAXIS  - . 00125  G.T.  ZERO 
(SCALED  AT  8 S EC  ( 2 ) ). 


H - .15  TTOAXIS  - .01125  G.T.  ZERO 
(SCALED  AT  8 S E C C 2 » ) 


250  MSEC  SCALED  AT  4 SEC. 


ALL  8RANCHES  TERMINATF  HERE  WITH  TJET 
(SCALED  AT  4 SEC)  IN  THE  ACCUMULATOR. 
ROTSENSE  APPLIES  SIGN  AND  CHANGES  SCALE. 


SET  SWITCH  FOR  JET  SELECT  IF  ROTATION  IS 

IN  A SENSE  FOR  WHICH  1/ACCS  HAS  FORCED 
A MAX-JET  CALCULATION. 
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' 227 
0228 
0 229 


REF 

REF 

REF 


LAST  1450 
LAST  1450 
LAST  1449 


17,3533 
17  ,3534 
17,3525 


3 4751 
55 '74  2 
0 1744 


FOUR 
MUMBER  T 
HOLDQ 


USER  *S  PAGE  MO. 


RETURN  VIA  SAV  ED  0 . 


R023o 

0231 
3232 
0233 
0 234 

0235 

0236 
3 2 37 
0238 


T JET  = HZ  (.025 


FUR  TJ  ET  LESS  THAN  50  MSEC 


REF 

PFF 

REF 


REF 

REF 


84  LAST  1411 


17.3536 

17. 3537 
L 7 ,3540 
17,3541 

, 

17  ,3543 
17, 3544 
17,  3545 


4 3766  1 

6 1741  1 
53 '747  0 

0 00C6  1 

1 1 1 746  1 
0 0006  1 

7 4736  0 
1 3656  0 


FOR  MU  LAI  CS 


.025  SEC  SCALED  AT  4. 

SCALED  AT  4 S ECONDS  . 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  BE  PRESERVED.  PICK  UP 
DP  H AND  DIVIDE  PY  DENOMINATOR. 

RESCALE  T J ET  FROM  2 TO  USUAL  4 SEC. 

CHECK  THAT  TJE  T IS  NOT  LESS  THAN  MINIMJM 


*0239 

J24  ' 
0 241 
0 242 
A0243 
0244 
3245 

0246 

0247 
0 248 
0249 
0 250 
0251 


TJ F T = (H  «■  .00375)  /(  O.i 


REF 

REF 

REF 


6 LAST  1453 

4 LAST  145  3 
1 

7 LAST  1453 

8 LAST  1453 

87  LAST  1453 
2 LAST  1 45  1 


17, 3546 
17  ,3547 
17,3550 

17  ,3551 

17. 3552 

17.3553 

17.3554 

17. 3555 
1 7 ,3556 
17,3557 
17, 3560 


0 0006  1 
3 3772  0 
21*  747  C 

31' 741  1 

6 3762  1 
53*747  0 
f 0006  1 
11*746  1 
0 0006  1 

7 4736  0 

1 3521  0 


FCR  TJFT  GREATER  THAN  50  MSEC. 

FORM IJL  A 2 F XTEND 

OCA  .00  37  5A  8 

DAS  HH 


BIT14 
RE  TURNTJ 


. 00375  SEC  ( 2)  SCALED  AT  8. 

STORE  NUMERATOR  IN  DP  H,  WHICH  NEED  NOT 
BE  PRESERVED. 

SCALED  AT  4 SEC. 

0.1  SEC  SCAI  ED  AT  4. 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  BE  PRESERVED.  PICK  UP 
DP  NUMERATOR  AND  CIV  IDE  BY  DENOMINATOR 

RESCALE  T J ET  FROM  2 TO  USUAL  4 SEC. 

END  SUBROUTINE. 


*0252 

RD254 

255 
0 256 
3257 
0258 
_0259 
0260 
0 261 
3262 
C 263 

0264 

0265 

0266 

3767 

RC268 


SUBROLTT  NI  ZED  COMPUTATIONS  RFCUIREC  FOR  ALL  ENTRIES  INTO  CODING  FOR  ZONES  1, 
REACHEO  BY  TC  FROM  3 POINTS  IN  TJE  TLA  W. 


PE  F 
REF 
REF 

REF 

REF 


10  LAST  1452 

8 LAST  1452 

9 LAST  1450 
5 l A ST  1453 


17  ,3561  4 1737  1 

17,3562  ^5*737  1 

U, 3563  31*427  1 

17,3564  C 0C06  1 
17,  3565  5 1743  0 

U,  3566  7 1566  1 

17,3567  55*741  0 

17,  3570  6 3773  1 

17.3571  0 0006  1 

17.3572  6 3574  1 

1 7,  3573  1 3520  1 

17  ,3574  C 0002  ( 


Z 1 2 3 COMP  CS 
TS 

CAE 


RO  T SEN  SE 
POTS  ENS  E 

EDOT 

EXT  END 

INDEX  ADRSDIF2 
MP  1 /A NET  I 

TS  TTOAXIS 

AD  -TJMAX 

EXTEND 
RZMF  +2 

TC  F c ULL  TI  MF 

RETURN 


LAST  1451  1 7,  3575  C 3561  n Z0N1  ,2  ,3  TC 


Z123CCNP 


USED  IN  RE'  TUP  NT  J SECTION  TO  RESCALE  T J ET 
AS  TIME6  ANO  GIVE  IT  PROP  E*  SIGN. 
SCALED  AT  PI/2  (5  ) RAC/SEC. 


IS  TIME  TO  AXIS  LESS  THAN  150  MSEC. 


SUBROUT  1MIZF0  PREPARATION  FOR  ZONE  1,  2,  3. 


IF  THE  (KEG)  DISTANCE  BEYOND  PARAeOLA  IS  LESS  THAN  FLAT,  USE  SPECIAL 
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L TJFT  IAW 


USER  'S  PAGE  NO.  7 E6  S4 


R j 2 6 9 LOG  I C TO  ACQUIRE  MINIMUM  IMPLLSE  LIMIT  CYCLE.  DURING  PCWERED  FLIGHT 

Rr  270  CP  ULLAGE,  FLAT  = r 


RFF  6 LAST  1451  17,3576  21'  740  0 
REF  2 LAST  145  1 17,  3577  £ 1554  1 


f 273 


17  ,360°  r 0006  1 


3274 


REF  2 LAST  1451  17,36C1  fc  3615  0 


CAE  FIREFCT  SCALEO  AT  PI/4  RAD. 

AD  FLAT 

EXTEND 

0ZNF  ZCNE1  NOT  IN  SPECIAL  ZONES. 


R 275  FIRE  F C R AXIS  OR,  IF  CLOSE,  FIRE  MINIMUM  IMPULSE.  IF  ON  AXIS,  COAST. 


'279 

c2ao 

C2.BI 
3 282 
0 2R3 

0 284 
3235 
0286 


RFF  l 

REF  6 I AST 


R EF  1 
REF  7 LAST 
RFF  3 LAST 
REF  11  LAST 
REF  64  LAST 
RFF  4 LAST 
P EF  23  LAST 
REF  5 LAST 


17.36C2 

1453  17,  3603 
17  ,3604 
17,  36C5 

1454  17,  3606 

1453  17,3607 

1453  17,  3610 

1433  17  ,361  1 

1454  17,3612 
1451  17,  3613 
1454  17  ,3614 


4 1555  1 ZONE?  ,3  CS  ZONES  L IM  HEIGHT  OF  MIN-1MPULSE  ZONE  SET  BY  l/ACCS 

6 1741  1 AO  TTOAXIS  35  MSEC  IN  DRIFTING  FLIGHT 

0 0006  1 EXTEND  ZERO  WHFN  T3YING  TO  ENTER  GTS  CONTROL. 

£ 3 £ 1 0 0 BZMF  Z0NE3 

2 1 1 7 41  1 Z0NE2  CAE  TTOAXIS  FIRE  TO  AXIS. 

1 3521  0 TCF  RETURNTJ 

1 1*427  0 ZONE  3 CCS  EDCT  CHECK  IF  EOCT  IS  ZERO. 

3 4746  0 CAF  BIT6  FIRF  A ONP-JET  MINIMUM  IMPULSE. 

1 3521  0 TCF  RETURNTJ  TJET  = +0. 

0 57C6  0 TC  C C SH OLE  CANNOT  BE  8ECAUSE  NFG  ECOT  COMPLEMENTED. 

1 3521  0 TCF  RETURNTJ  TJET  = +0. 


3 287 
n2flR 

3289 

3290 
0291 
0 29  2 
02  o3 
0294 
3295 


RFF  10 
REF  2 

REF  9 
REF  1 


REF  Q 


LAST  145  1 
LAST  1451 

LAST  1453 

LAST  1453 


17,  36  15 
17,  36] 6 
17,3617 
17, 3620 
17  ,3621 
1 7,3622 
17,  36  2 3 
17  ,3624 
17,  3625 


C CC06  1 
5 1745  0 
6 1 * 604  1 
C 0006  1 
5 1743  0 
7 1574  1 
20  OCl  1 
20  001  1 
53'  747  0 


Z ONE  1 


E XTEND 

INDEX  AORSDIF  l 
SU  AXISDIST 

E XTEND 

INDEX  ADRSDIF2 

MP  ACCFCTZ1 

DD0U3L 

ODOUBL 

DXCH  HH 


SCALED  AT  PI/4  RAD. 


SCALED  AT  2I7I/PI  SECI21/RAD. 


OOIJBLE  PRECISION  H SCALED  AT  8 SEC(2>. 


RC-296  TEST  WHETHER  TGTAL  TIME  REQUIREC  GREATER  THAN  150  MSEC: 

R 0 297  2 2 

Rj  29  9 IS  • 5 ( . 1 50  - TTfl  A X I S ) - H NEGATIVE  (SCALED  AT  8 SECONDS  > 


02Q9 
0 300 
G 3 L 1 
0 30  2 
3333 
03  04 
0 30  5 
3336 


RFF  8 
RFF  2 

RFF  ID 
REF  2 


LAST  1454 
LAST  1452 

LAST  1454 
LAST  1452 


17,3627 
17, 3630 
1 7 ,3631 
17,  '’622 

17. 3633 

1 7.3634 
17,  3635 


0 0006  1 
7 OOOO  0 
C CCC6  1 
61*746  0 

0 0006  1 
6 3?20  0 


CAE  TTOAXIS 
AO  -TJMAX 

E XTEND 
SOUAR  E 
EXTEND 
SU  HH 

EXTEND 

BZMF  FULLTIME 


TTOAXIS  SCALED  AT  4 SECONDS. 

-.150  SECOND  SCALED  AT  4. 

HIGH  WORD  OF  H SCALFD  AT  P SEC12). 
YES.  NEED  NOT  CAL  CU  L AT  E T J ET  . 


TEST  WHFTHER  TIME  REYCND  AXIS  GREATFR  THAN  50  MSEC  TO  DETERMINE  WHITH  APPROXIMATION  TO  USE. 


0309  REF 

0310  REF 

0311 


17,3640  0 0006  1 
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001  PAGE  1455 


TJ  FT  LAW 


US  ER»S  PAGE  NO  . 8 E6  S4 


0312  REF 


17,  3641  6 365 1 C 


BZMF  FOR  MULA  3 


3 1*313  TJFT  = H/0.  1 + TTOAXIS  + .0375  FOR  APPROXIMATION  OVF.R  MORE  THAN  50  MSEC. 


1315 

0316 

0317 

0318 
031  ^ 
1323 

- 321 


REF  1 
RFF  12 

RFF  13 
REF  9 
REF  l 
PFF  6 


LAST  1454 

LAST  1455 
LAST  1454 

LAST  145  4 


17,  3642 
17  ,3643 

17. 3644 

17. 3645 

17.3646 

17. 3647 
■ 


3 3763  0 
53*747  0 
C C006  1 
11*746  1 
6 1741  1 
6 3764  1 
1 3521  0 


CAF 

ox  r h 

EXTEND 
0 V 
AO 

AD 

TCF 


. 1AT2 
HH 

-H 

TTOAXIS 
.0375  AT4 
RE  TUP  N T J 


STORE  .1  SEC  SCALEC  AT  2 FOR  DIVISION. 
OP  H SCALED  AT  P SEC(?)  NEED  NOT  BE 
PRES  ERV  ED. 

QUOTIENT  SCALEC  AT  4 SECONDS. 

SCAL  ED  AT  4 SEC  . 

.0375  SEC  SCALED  AT  4. 

END  COMPUTATION. 


1 .322 


TJET  = H/.  025  + TTOAXIS  F CR  APPROXIMATION  OVER  LESS  THAN  53  MSEC. 


3 323 

0324 

0325 

0326 


0327 


REF  1 

PEF  14  LAST  1455 

REF  15  LAST  1455 
REF  10  LAST  1455 


17,  365  1 4 3765  1 FORM  ULA  3 C S -.  025AT2 

17  ,3652  53*  747  0 OXCH  HH 

17,  36  53  C CCC6  1 EXTEND 

17. 3654  1 1*  746  1 D V HH 

17.3655  6 1741  1 AD  TTOAXIS 


STORE  +.025  SEC  SCALEC  AT  2 FOR  DIVISION 
PICK  UP  DP  H AT  8,  WHICH  NEED  NOT  BE 
PRES  ERV  FO. 

QUOTIENT  SCALED  AT  4 SECONDS. 

SCALED  AT  4 SEC. 


R3328 
RG32<1 
3 1 

0332 

0333 
3334 
0335 


REF 

PEF 

REF 


7 LAST  1455 


17,3656 
1 7 , 3657 
17  ,3660 
17,  3661 
17,3662 


6 3775  1 
C 00C6  1 
6 3455  0 
6 3774  0 
1 3521  0 


MI  NT  J AD 

F XTEND 
RZMF 


CO  AST  T J 
T J MI  N 
RE  TURNTJ 


NA  TURALL  Y. 

IS  COMPUTED  TIMF  L FSS  THAN  THE  MINIMUM. 

YES,  SET  TIME  TO  ZERO. 

NO,  RESTORE  COMPUTED  TIME. 

END  COMPUTATION. 
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L TJGT  LAW  USER'S  PAGE  NO.  9 E6  S4 

P0336  ***  PQUGHLAW  *** 


1 0 337 
=0338 
R 0 340 
R3342 
R03a3 


BEFOPE  ENTPY  TO  RUFLAW: 

1.  INDEXERS  ADRSDIF1  AND  A0PSDIF2  ARE  SET  ON  BASIS  OF  AXIS,  ANO  SIGN  OF  EOOT  . 

2.  IF  EOfT  WAS  NEGATIVE.  E AND  EDCT  ARE  ROTATED  INTO  UPPER  HALF-PLANE  A NO  ROTSENSE  IS  BADE  NEGATIVE. 

3.  E IS  SCALED  AT  PI  RADI  A N 5 AND  FOOT  AT  PI/4  RAO/S  Ff . 

(EXCEPT  TEE  RUFLAW  3 ENTRY  WHEN  E IS  AT  PI/4) 


7 344  RUFLAWl:  ERROR  MCRE  NEGATIVE  THAN  PI/16  RAD.  FIRE  TO  A RATE  OF  6.5  DEG/SEC  (IF  JET  TIME  EXCEFDS  20  MSEC.). 

RU FLAW 2:  ERROR  MORE  POSITIVE  THAN  PI/16  PAD.  FIRE  TO  AN  OPPOSING  RATE  OF  6.5  OEG/SEC. 

R 0 3 4 8 RUFLAW3:  ERROR  RATE  GREATER  THAN  P 1/ 32  RAD/SFC  AND  ERROR  WITHIN  BOUNDS.  COAST  IF  BELOW  FIREFCT,  FIRE  IF  ABOVE 


0350 

5351 

0352 

0353 
035  4 
0355 


REF  1 

R FF  12  LAST  1454 

REF  1 
REF  1 

PFF  I’  LAST  1456 


17,3663  4 3776  0 

17,  3664  27*^27  0 

17  ,3665  0 0006  1 

17,  3666  6 37C7  l 

17,3667  0 3745  i 

17,3670  3 1 ' 4 2 7 1 


RUFLAWl 


CS  RUFRATE 

ADS  EDOT 

EXT  END 

BZMF  5MALRATE 

TC  RUF  SETUP 

CAE  EDOT 


DECREMENT  EDOT  BY  . 1444  RAD/SFC  AT  P I /4 
WHICH  IS  THE  TARGET  RATE 

BRANCH  IF  RATE  LFSS  THAN  TARGET. 

REVERSE  POTSENSE  AND  INDICATE  MAX  JETS. 
PICK  UP  DESIRED  PATE  CHANGE. 


3356 

0357 

0358 

0359 

0360 

REF 

REF 

REF 

10 

10 

LAST 

LAST 

LAST 

1454 

1453 

986 

1 7,  3671 
17  ,3672 

17 . 3673 

17. 3674 

1 7 .3675 

C OOC 6 

5 1743 

7 1570 

6 7753 
C 0006 

1 

0 

0 

1 

l 

3361 

0362 

REF 

3 

LAST 

1454 

17,  3676 
17,  3677 

6 3 7C0 

1 3520 

0 

1 

03621 

33622 

PCF 

4 

L AST 

1456 

17,3700 
17,  3 7 C 1 

0 0006 

1 3520 

1 

1 

0363 

RFF 

39 

L AST 

1425 

17  ,3702 

6 4740 

0 

0364 

RFF 

509 

l A ST 

1449 

1 7,37C3 

l(  i 

1 

3365 

REF 

SlO 

1.  AST 

1456 

17, 3704 

1 

1 

0366 

RFF 

511 

LAST 

1456 

17  ,3705 

20  001 

1 

0367 

REF 

2 

LAST 

1453 

17,  37C 6 

1 3656 

0 

RUF  LAW  12  EXTEND 
INDEX 
MP 
AD 

EXTEND 
BZMF 
TC  F 

EXT  END 

BZF 

AO 

DAS 

DA  S 

DAS 

TC  F 


ADRSDIF2 

1/ANFTl  +2 
-1  /R 


*•  2 

FULLTI  ME 


COMPUTE  T JET 

= ( DE  SI  RED  RATE  CH ANGE ) / ( 2 - J FT  ACCEL.) 

IF  TJFT,  SCALED  AT  32  SEC,  EXCEEDS 
4 SECONDS,  SET  TJE  T TO  TJMAX. 


RESTORE  COMPUTED  T JET  TC  ACCUMULATOR. 


RFSCALEO  TJET  AT  4 SECONDS. 
RETURN  AS  FROM  FIN  EL  AW. 


0 3 6 8 

0369 
D 373 
0371 
0 372 
0373 


REF  2 
REF  7 
REF  159 


REF  14 
REF  1 1 


LAST 
LAST 
L AST 


1466 

1453 

1443 


LAST  1275 
LAST  1456 


17,3710 
17,  3711 
17  ,3712 

17.3713 

17. 3714 


0 3747  0 
11 ' 737  1 
3 4753  1 

1 37  14  1 

2 7761  0 
27*743  1 


SMALRATE  TC 
CCS 
CAF 
TCF 
CAF 
ADS 


RUF  SETUP 
ROTS  ENS  F 
ONE 
+ 2 

NEGONE 
ADR  SDIF2 


+ 2 SFT  NUMBERT  ANO  FIREFCT  FOR  MAXIMUM  JETS 

MODIFY  INDEXER  TC  POINT  TO  V AN  ET 
CORRESPONDING  TO  THE  PROPER  SENSE. 


0374  RFF  14  LAST  1466 

3375  REF  l 


17.3715  4 1427  0 

17. 3716  1 3671  0 


CS  EDOT  (.144  AT  P I /4  - EDOT)  =DE  SI  RED  RATE  CHNG. 

TCF  RUFLAW12 


03  76 
0377 
3378 

0379 

0380 
o3ei 


RFF  3 
PFF  2 
REF  15 
REF  512 
REF  2 
REF  5 


LAST  1456 
LAST  1456 
LAST  1456 
IAST  1456 
LAST  1456 
LAST  1456 


17,372.) 
1 7,  372  1 
17  ,3722 
17 , 3723 
17,  3724 


0 3745  1 
3 3776  1 
6 1427  1 
54  000  0 

1 3671  0 
1 3520  1 


RU  FLAW  2 


TC 

CAF 

AD 

TS 

TCF 

TCF 


RUF  SF  TUP 
RJ  FRAT  E 
EOOT 
A 

RUFLAW12 
F ULLTI  ME 


REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

(.144  AT  PI/4  + EDCT  )=CES  I RED  RATE  CHNG. 
TF  OVERFLOW  SKIP,  FIRF  FOR  FULL  TIME. 
OTHERWISE,  COMPUTE  JET  TIME. 
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0384 
3385 
03R6 
P 387 
3388 
0389 
03  90 

0 3 9 1 

039? 
3393 
03  94 
0395 
3396 
0397 


R EF 
PFF 
P.EF 
REF 

REF 

REF 


RCF 

REF 

REF 


LAST  1456 
LAST  1954 
LAST  1451 
LAST  1451 

LAST  1452 
LAST  1456 


LAST  1457 
LAST  1456 
LAST  1457 

LAST  1455 
LAST  1456 


RUFLAW3  TC 


17,3727 
17,  3730 
17  ,3731 
17,3732 
17,  3733 
17  ,3734 
17,  3735 
17,  37  36 
17,3737 

17. 3740 

17.3741 
17,3  7^2 
17, 3743 
17  ,3744 


0006  1 
CCCO  0 
CO  C 6 1 
1 745  0 
1570  0 
1427  1 
0006  1 
3455  0 
3520  1 


RUFSETUP 
AORSOIF  1 
FIREDB 


EXTEND 

MP 

XCH 

EX  T EN  0 

SQUARE 

EXTEND 

INOEX 

MP 


BIT11 

EDOT 


AD 

EXTENO 

BZMF 

TCF 


ADRSDIFl 
1/ANET1  + 

EDOT 

COASTTJ 
FULL  TIME 


R0798  SUBROUTINE  USED  IN  ALL  E NTRI  E S TO  ROUGHLAW. 


03  99 
0400 
343  1 

04  f 2 
0 40  3 
3434 
0405 


RP406 


REF  8 LAST 
RFF  9 LAST 
RFF  47  LAST 
PFF  19  LAST 
REF  10  LAST 
RFF  7 LAST 
RFF  415  LAST 

l 

CONSTANTS  FOP 


1456  17, 3745 

1457  17,3746 
14  5 1 17,  3747 

1453  17,3750 

1447  17,3751 

1454  17, 3752 

1447  17  ,3753 


T JC  TLA W 


4 1737  1 
55' 737  1 
3 4751  f 
55 '742  0 
3 4735  1 
55*740  1 
0 0002  0 


RUFSETUP  CS  ROTSENSE 

TS  ROTSENSE 

+2  CAF  FOUR 

TS  NUMBER  T 

CAF  NEGMAX 

TS  FIREFCT 

TC  0 


04  07 
0408 
3439 
0410 
AO  4 1 1 

0412 

0413 
3414 
04l  5 
0 416 
3417 

- 41  8 
0 4 1 9 

0420 

0421 
34?.l 
042? 
0 423 
3 424 

0425 


17.3754  77757  1 

17.3755  00000  1 AXISDIFF 

17. 3756  00020  0 

17  ,3757  14403  C SENSOR 


DEC 

DEC 

DEC 

OCT 


-16 

+0 

16 

1 4400 


1 7,  3760  75673 

1 7,3761  77750 

17,  3762  C0632 

17.3763  01463 

17.3764  0023? 

17.3765  77462 

17  ,3766  77631 

17, 3767  77145 

17.3770  75462 

17.3771  00007 

17,  3772  256CS 

17,  3773  76631 

17,8774  00122 

17.3775  77(5^ 

17.3776  04476 


1 - 30FG  DEC 

0 -.C112A8  DEC 

0 • 1 A T4  DEC 

1 . 1AT  2 OEC 

1 .9375 AT4  DEC 

1 0 2 5A T 2 DEC 

0 -.025AT4  OFC 

1 -.05  AT?  DEC 

0 -.15AT2  DEC 

0 .00375  A8  2 DEC 
0 

1 -TJMAX  OFC 

0 TJMIN  DEC 

1 -TJMIN  DEC 
0 RUFRATE  DEC 


-.06667 
-.00  141 
.025 
.05 
.00938 
-.  0125 
- .00625 
-.025 
-.075 
.00375  R-3 

-.0375 
.005 
-.  005 
. 1444 
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USER'S  PAGE  NO.  10  Eb  S4 

EXECUTE  COMMON  RUFLAW  SUBROUTINE. 

CALCULATE  DISTANCE  FROM  SWITCH  CURVE 

1 / ANET  1 *E  DOT  *EDOT  +E  - FIREDB  = 0 
SCALED  AT  4 PI  RADI  ANS 


COAST  IF  BELOW  IT. 

FIRE  FOR  FULL  PERIOD  IF  ABOVE  IT. 

REVERSE  ROTSENSE  WHEN  ENTER  HERE. 
REQUIRE  MAXIMUM  (2)  JETS  IN  U,V-AXES. 
SUGGEST  MAXIMUM  (4)  JETS  IN  P-A  XI  S. 


AXI  SDIFFI  INDEX!  = NUMBER  OF  REGISTERS 
RETWEFN  STORED  1/ACCS  PARAMETERS  FOR 
THE  INDEXFD  AXIS  ANO  THE  U-AXIS. 

RATIO  OF  TJFT  SCALING  WITHIN  TJETLAW 

(4  SEC)  TO  SCAL  INC  FOR  T6  ( 10,24  SEC). 
-3.0  DEGREES  SCAIFC  AT  45. 

-.(.1125  SFC  ( 2 ) SCALEO  AT  8. 

0.1  S ECONO  SCAL  ED  AT  4. 

o.  i se:  scalfd  at  2. 

.0375  SEC  SCALED  AT  4. 

-.025  SEC  SCALED  AT  2. 


LARGEST  CALCULATFO  TIME.  .153  SEC  AT  4. 
SMALLEST  ALLOWABLE  TIME.  .029  SEC  AT  4. 


CORRESPONDS  TO  TARGET  PATE  OF  6.5  OEG/S 


» ft  P : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  IMA  BY  ZOROASTER 


KALMAN  Ell  TER 


DO  1 

RFF 

3 

L AST 

1443 

E6,  15  22 

ERANK= 

NO. UJE  TS 

1 2 

16  ,3644 

BANK 

16 

000  3 

KEF 

3 

LAST 

1409 

16, 20C0 

SETLOC 

DAPS1 

0004 

16, 3644 

SANK 

000*! 

REF 

1 

COUNT  * 

**/  DAP 

DO  06 

RFF 

100 

LAST 

1452 

16,  3644 

3 47  52 

0 

RATELOOP  CA 

TWC 

0007 

REF 

3 

LAST 

137 

16,3645 

55  >743 

1 

TS 

DAP  TEMP  6 

0007  1 

16,3646 

6 0000 

1 

OOJBLE 

DDD72 

PEF 

416 

L AST 

1457 

16,  3647 

54  CC 2 

1 

TS 

Q 

odor 

RFF 

4 

LAST 

1 458 

16  ,3656 

51*743 

0 

INDEX 

paptemp  5 

REF 

14 

LA  ST 

I/,.-.  8 

16,3651 

11*  524 

1 

CCS 

TJP 

Dole 

16,  365 2 

1 3fc54 

1 

TC  F 

+ 2 

0011 

REF 

1 

16  ,3653 

1 3673 

1 

TCF 

LOOPPAT  E 

3012 

REF 

1 

16, 3654 

6 3 7 34 

I 

AD 

-100  MST6 

or  13 

16, 3655 

C 0006 

1 

EXTEND 

00  14 

REF 

1 

1 6 ,3656 

6 3712 

0 

B7MF 

S MALLTJU 

3 315 

RFF 

5 

L AST 

1458 

16,  3657 

51*743 

0 

I NDE  X 

PAPTEMP6 

0016 

REF 

15 

LAST 

1458 

. 

l 1 ‘524 

1 

CCS 

TJP 

00  17 

REF 

2 

LAST 

145  8 

16,3661 

2 3734 

1 

CA 

-LOOMS!  6 

OOlfi 

16,  366 2 

1 3664 

1 

TCF 

+ 2 

0019 

PEF 

3 

LAST 

1458 

16  ,366  3 

4 3734 

0 

CS 

- 100MST6 

3320 

R EF 

6 

LAST 

1458 

16, 3664 

51* 743 

0 

I NDEX 

DAPTFMP6 

U021 

PEF 

1 6 

LAST 

145  8 

16, 3665 

27*524 

1 

ADS 

TJP 

00  22 

REF 

7 

LAST 

1458 

16,3666 

51*  743 

0 

INDEX 

DAPT  EMP6 

3323 

REF 

17 

L AST 

145  8 

. 

11*524 

1 

CCS 

TJP 

0 024 

RFF 

1 

lb  ,3670 

4 36  2C 

1 

CS 

- 1G0MS 

0025 

16,3671 

1 3673 

1 

TCF 

+2 

0026 

RFF 

2 

L AST 

1458 

1 6,  3672 

3 3620 

0 

C A 

- 1 GOMS 

(027 

IS  ,3673 

0 0006 

1 

LOOPRATE  EXTEND 

3328 

RFF 

a 

LAST 

1458 

16, 3674 

5 1743 

c 

I NDEX 

DAPTEMP6 

002  9 

REF 

3 

LAST 

1425 

16, 3675 

7 1521 

1 

MP 

NO.PJETS 

00  30 

REF 

319 

LAST 

1452 

1 6 ,3676 

3 0001 

0 

CA 

L 

3331 

REF 

9 

L AST 

1458 

If-,  3677 

51*743 

0 

I NDEX 

DAPTFMP6 

0031  1 

REF 

29 

LAST 

1439 

16  ,3700 

5 5 '736 

0 

TS 

OAPTFMP  l 

00  312 

16,3701 

0 00C6 

1 

EXTEND 

0031  3 

RFF 

56 

LAST 

1398 

16,  3702 

7 4742 

0 

MP 

31  T10 

0031  4 

16  ,3703 

0 0006 

1 

EXTEND 

33  31  5 

R FF 

l 

16,  3 7C4 

6 3735 

0 

BZMF 

NEGTCPK 

0031  6 

PEF 

4 1 7 

LAST 

1458 

1 6,  3 705 

5C  C02 

0 

STORTORK  INDEX 

0 

0031  7 

REF 

7 

LAST 

137 

16  ,3706 

27*  513 

0 

ADS 

DOWNTORK 

3332 

P FF 

10 

L AST 

1 45  8 

16,  3707 

11*743 

1 

CC  S 

DAPTEMP6 

0033 

RTF 

2 

LAST 

1416 

16  ,3710 

1 3645 

1 

TCF 

RATELOOP 

0034 

REF 

1 

16,3711 

1 3721 

1 

TCF 

ROTORQUE 

0035 

REF 

316 

LAST 

145  1 

16,  3712 

3 4755 

1 

SMALL  TJU  CA 

ZERO 

0036 

REF 

11 

LAST 

1458 

16,3713 

51 • 743 

0 

INDEX 

DAPT  EMP6 

3337 

REF 

18 

LAST 

1458 

16,  3714 

57*  524 

0 

XCH 

TJP 

003fl 

16,3715 

0 00C6 

1 

EXTEND 

9:  12  n:  T.  21  ,1970  Z LPOAP 
USER  'S  PAGE  NO.  1 


.001  PAGE  1458 
EO  S4 


0.  1 A T 1 


SIGNED  TORQUE  AT  1 JET-SEC  FOR  FILTER 
RESCALE  TC  32;  ONE  BIT  ABOUT  2 JET-MSEC 

INCREMENT  DOWNLIST  REGISTFR. 

NOTE:  NOT  INITIALIZED;  OVERFLOWS. 


GAP:  ASSEMBLE  REVISION  56  OF  AGf.  PROGRAM  ZERLINIA  BY  ZOROASTER 


L KALMAN  FI  LTER 


3 3 39 

004  0 
0C4I 
3342 
C043 
004^ 

0045 

0046 
3347 

0048 

0049 
3353 

0051 

0052 

0053 
3 OC  54 

0058 

0056 

0057 


REF  4 
REF  320 
REF  2 
REF  11 
REF  7 

REF  1 
REF  3 
RFF  8 
REF  ] 2 

REF  I 
RFF  3 
REF  1 


REF  4 1 8 
REF  I 


LAST  1090 
LAST  145  8 
LAST  1458 
LAST  1439 
LAST  1435 


LAST  1415 
LAST  1459 
LAST  145  9 


LAST  1414 


LAST  1458 


16. 3716 

16.3717 
16,3720 
16,  37  2 1 
16  ,3722 
16,3723 
16,  3724 
16,3725 
16,  3726 
16,3727 
16,3730 
16,  3731 
16  ,3732 
16,3723 
16, 3734 

16,  3735 

16. 3736 

16.3737 


7 4760  0 

3 0001  0 
1 3673  1 
: 1737  C 

6 1740  0 
C G0C6  1 

7 1532  0 
55' 746  1 

4 1740  1 

6 1737  0 
0 0006  1 

7 1531  0 
55*745  1 
1 2316  0 

77537  0 

4 COOO  0 
24  0C2  0 
l 3705  1 


MP 
C A 
TCF 

RO  TORQUE  CA 
AD 

EXTEND 

MP 

TS 

CS 

AO 

EXT  END 
MP 
TS 
TCF 

- 1C0M  ST6  DEC 


ELEVEN 

L 

LOOPRAT  E 
DAPTFMP2 
PAPTEMP3 

1 JACCR 
JET  RATER 
DAPTEMP3 
OAPTEMP  2 

1 J ACC  Q 
JETRATEQ 
BACKP 
- 1 60 


NEGTORK 


COM 

INCR 

TCF 


Q 

STORTORK 
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GAP:  ASSEMBLE  REVISION  5 fc  OF  A',:  PROGRAM  ZFKLINA  BY  ZOROASTER 


9: 12  OCT . 21, 1970  ZLMOAP 


PAGE  i960 


TRIM  GIMPAL  CCNTRQL  SYSTEM 


USE  P'S  PAGE  NC. 


21,3001 
E6 , 1950 
21  ,2000 
21 , 3001 


BANK  21 
E BANK  = 0D1FF 
SETinC  DAPS9 
RANK 


00095  PFF 


1 


COUNT*  «S/DAPGT 


ROO'5  C ON  TROI  POACHES  THIS  PCI  NT  UNDER  EITHER  CF  THE  FOLLOWING  TWO  CONDITIONS  ONCE  THE  DESCENT  ENGINE  AND  THE  DIGITAL 
RD  3 3 7 AUTOPILOT  APE  P.QT  h ON: 

R OOP  8 A)  THE  TRIP  GIMBAL  CCNTPCL  LAW  WAS  ON  DURING  THE  PREVIOUS  Q ,R-A  XI  S TI  ME  5 INTERRUPT  (CP  THE  DAPIDLER 

R 0 ' INI  TIAI  IZATICIN  WAS  SET  FOR  TRIM  GIMBAL  CONTROL  AND  THIS  IS  THE  FIRST  PASS!,  OR 

R3«  12  R)  THF  3,R-AXES  RCS  AUTOPILOT  DFTERMINFD  THAT  THE  VEHICLF  WAS  ENTERING  (OR  HAD  JUST  ENTEREO)  A COAST 

3 0l'19  ZONE  WITH  A SMALL  OFFSET  ANGULAR  ACCELERATION. 

R3  3 15  GTS  IS  THE  ENTRY  TO  THE  GIMBAL  TRIM  SYSTFM  FOR  CONTROLLING  ATTITUDE  ERRORS  AND  RATES  AS  WELL  AS  ACCELERATIONS. 


001  R 
90  19 

3923 

0021 

0022 


RFF  98  LAST  1957 
RFF  9 LAST  1993 
REF  3 LAST  1993 


21,3  V 1 

21 .3002 

21. 300 3 
21  ,3009 
21,3005 


3 7761  0 
55*630  1 
2 9751  0 
5 5 ' 5 39  0 
55*  535  1 


CAF 

TS 

CAF 


NEGONE 
COT  ROLER 
FOUR 
SK  IPU 
SKIPV 


MAKE  THE  NEXT  PASS  THROUGH  THE  DAP  BE 
THROJGH  RCS  CONTROL, 

AND  FNSURE  THAT  IT  IS  NOT  A SKIP. 


Of  22  5 
0023 
3929 
0025 


LAST  1958 
LAST  19^8 
LAST  1917 
LAST  1917 


21,  3006 
21  ,3  307 
2 1,  3010 
21,3011 


3 9752  0 
55*63?  o 
55*  631  0 
55*633  1 


TWO 
INGTS 
QGI  MT  I MR 
RG I M TI MR 


SFT  INDICATOR  OF  GTS  CONTROL  POSITIVE. 
SET  TIMERS  TO  20C  MSEC  TO  AVOIO  BOTH 
RUNAWAY  AND  INTERFERENCE  BY  NULLING. 


R0026 
9002  7 


THE  DRIVE  SETTING  ALGORITHM 

CEL  = S GN  (OM  EG  A + AL  PHA  *ARS  ( AL  PH  A ) / ( 2*K  ) ) 


NEGUSUM  = ERROR  *K  + ALPHA*! DEL* OMEGA 
DRIVE  = -SGN(NFGUSUM) 


ALPHA  /I  3*  K ) ) 


ALPHA  / (2  *K  ) ) 


0033 
3 3 39 
0035 


21,3012  3 0021  1 

21, 3o  13  6 0000  1 

21,3019  55*505  1 


21 ,3015  3 9752  0 

2 1,30  16  1 -30  20  1 


SET  INDEXER  FOR  R-AXIS  CALCULATIONS. 


GOQTRIMG  CAF 


SET  INDEXER  FOR  O-AXIS  CALCULATIONS 


oc<  ’ 

' 4 I 
3392 
0093 


REF  53  LAST  1932 


21,3021  51*797  1 

21  ,3022  3 1 536  0 

2 1,  302  3 C 0006  1 
21  ,3029  7 9752  1 


AOS  SCALED  AT  PI  /2 

RE  SC  A LE  AOS  TO  PI  /9 


GAP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


TRIM  GIHBAL  CONTROL  SYSTEM 


334** 

0045  REF  1 


21,  TO  25  0 0006  1 

21  ,3026  I 3032  1 


E XTEND 

BZF  GTSOAXIS 


; 346 
004  7 
0048 


RFF  514  LAST  1460 
RFF  1r  LAST  1445 
RFF  321  LAST  1459 


5 C CCO  1 
4 4734  1 


21  ,3031  56  001  0 


INDEX  A 
CS  LIMITS 

XCH  L 


3349 
0050 
0'"'  5 1 
0052 


REF  3 LAST  14  60 

REF  515  LAST  1461 

RFF  5 LAST  1430 

PEF  1 


21,  3032  1 1 • 747  0 

21  ,3033  50  GOO  l 

21,3034  2 1436  1 

2.1 , To  3 5 5 2*743  1 


GTSQA  XI  S 0 XCH 


ORCNTR 

A 

EOOTC 
WCENTPA  L 


0053  REF 
3354  REF 
0055  REF 


4 LAST  1461 
3 LAST  136 
1 


21.3036  51*747  1 

21.3037  3 1504  l 

21,3040  56*740  1 


INDEX  QRCNTR 
C A KO 

TS  KCENTRAL 


EXTEND 

BZF  PC)  SDR  I VF 


5 LAST  1461  21  ,3043  51'747  1 
2 LAST  1460  21,  3044  31*450  1 


INDEX  ORCNTR 
CAE  QDIFF 


0060 

0061  RFF  2 

3062  REF  1 

0063 

0064  REF  53 

0065  RFF  2 

0066 

3367  REF  54 

0068  REF  3 


LAST  1461 


LAST  1449 
LAST  1 46  1 


LAST  1461 
LAST  146  1 


2 1,3045 
?1  ,3  046 
21,  TQ47 
21  ,3050 
21  ,3051 
21,  3052 
21  ,3053 
21,  3C54 
2l  ,30  55 


0 0006  1 
7 1 740  1 
22*736  1 
0 0006  1 
7 4747  0 
52*737  1 
0 0006  1 
7 4747  0 
27 '737  1 


ALGORTHM  EXTEND 


LXCH 

EXTEND 


D XCH 
EXT  END 


K CENTRAL 
K2THETA 

RIT5 
K2  THETA 

HI  T5 
K2THETA 


0071 

0072 
007T 
0074 
3 3 75 
0076 


REF  1 
REF  88 

RFF  2 
REF  3 

REF  1 


LAST  1453 

LAST  146  1 
LAST  1461 


21  ,3063 
21 , 3C61 
21,  30  6 2 
21  , 1 C 63 
21,  3C64 
21,  3065 


4 1743  l 
C 0006  T 
7 4736  0 
0 CC06  1 
7 1743  1 
6 1740  0 
C CCC6  1 
6 3102  1 


CS 

E XTEND 
MP 

EXTEND 

MP 

AD 

EXTEND 

BZMF 


ACENTRAL 

BIT14 

ACENTRAL 
KC  ENT  R AL 

HUGE  QUOT 


0077 

3379  REF 
0079  RFF 
OOPO 

3081  P FF 
0082  RFF 
3383  REF 

0084 

0085 


LAST  1461 
LAST  1461 

LAST  1 46  1 

LAST  1461 


?1 ,3066 
2 1,  3^67 
21  ,3070 
21  » ^ C 7 1 
21,  3072 
21  ,3'  73 
2 1,  3C  74 
21,  30  75 
21  , 3 C 76 


0 0006  1 
4 C C C 1 1 
6 1740  0 
0 0006  1 
11*740  1 
57*  745  0 
2 CCC1  0 
22  007  0 
0 0006  1 


A 

K C EN  TR  AL 

KCENTRAL 

A2CNTRAL 

L 
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3 USE  FULL  SCALE  FOR  LARGER  AOS  ESTIMATES. 


LIMITS  +1  CONTAINS  NEGMAX. 
LIMITS  -1  CONTAINS  POSMAX. 


PICK  UP  RATE  FOR  THIS  AXIS.  RATE  CELLS 
ARE  ADJACENT,  NOT  SEPARATED.  AT  PI/4 


COLLECT  K FOT  THI  S AXIS 


CONTROL  AUTHORITY  ZERO.  A V3  I D DRIVING 
1 ENGINE  BELL  TO  THF  STOPS. 

QDIFF,  RDIFF  ARE  STORED  IN  D. P. 


Q ( R ) 3 I F F IS  THETA  (FRRCP)  SCALEO  AT  PI. 
FORM  K*FRROR  AT  PI(2)/2(A),  IN  D.P. 


R£S  CALF  TO  4*P  I (2) 


FIRST  TERM  OF  NFGUSUM  IN  K2THETA. 

1 NO  CARRY  NEEDED  D.P.  AT  4*PI(2) 

FORM  ALPHA!  2)/ ( 2*K  ) AT  16#P  I , IN  O.P., 
LIMITING  CUOMFNT  T 0 AVOIC  OVERFLOW. 
-ALPHA/2  IN  A,  SCALEO  AT  P I /4 

-AL  PH  A (2  ) /2  IN  A , L * SCALED  AT  PI(2)/16 


K-  ALPHA  (21/2  SHOULD  BE  PM  FO  DIVISION 


AL  PH A ( 2 )/ 2 - K 


HIGH  ORDER  CF  QUOTIENT. 

SHIFT  UP  THF  REMAINDER. 
ZFRO  LOW-ORDER  OIVIDEND. 


'.A*  : ASSEMBLE  RE  VI  SI  ON 


OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


TRIM  GIMRAL  CONTROL  SYSTEM 


0086 

3087 

3389 


REF  6 
REF  2 
PEF  I 


LAST  1461 
LAST  1461 


21,3077 
21  ,M00 
21,  3 1C  1 


11*740  1 
57*746  0 
1 2105  1 


ov  kcentral 

XCH  A2CNTRAL  +1 

TCF  HAVEQUOT 


0089  REF  40  LAST  1410 

90  RPF  523  LAST  1461 

0091  RFF  3 LAST  1462 


>1  ,3102  3 4733  1 

21.MC3  c 4 rd  1 
21,  310  4 5 2*746  1 


HUGFQUOT  CA 
TS 


n xch 


PO SMAX 
L 

a 2C  N TP  A L 


0 0«2 
3393 
0C<»4 
00Q5 


REF  2 LAST  L461  21,3105 

21,  3106 

REF  37  LAST  1434  21  ,3107 

RFF  1 21,3110 


3 1742  1 HAVEQUGT  CA  W CENT  RAL 

C 0CC6  1 EXTENO 

7 4743  1 MP  BITS 

53*742  0 DXCH  K2CNTRAL 


0096 

OC  9 7 REF 
3393  REF 


21,  3111 

2 LAST  1462  21  ,31  12 

l 21,3113 


0 OCO  6 1 

3 1 742  1 
E 2 * 7 51  1 


F XTENO 

DC A < 2CNTR AL 
0 XCH  FUNCTION 


0099  PEF  3 

0 100 
3131 


LAST  1461 


21.3114  3 1743  0 CA  ACENTPAL 

21.3115  C 0006  1 EXTEND 

21,  3116  6 2122  0 B Z MF  +4 


01C2 

0103  REF 

m 04 


4 LAST  1462 


? 1 ,31 17  C 0006  1 
?1  ,3  120  ? 1746  C 

21,3121  1 2124  1 


EXTEND 

DC  A A2CNTRAL 

TCF  + 3 


R EF 


LAST 


1462 


C 0006  1 
* 1746  1 


EXT  END 

DCS  A2CNTRAL 


01  07 


REF  2 LAST  1462  21,3124  21*751 


DAS  FUNCTION 


3 LAST  1462  21  ,3125  1 1 '750  0 

1 21,  3 126  1 2132  0 

21  ,3127  1 31  31  0 

1 21,  3 130  1 3134  0 


CCS  FUNCTION 

TCF  POSFNCTl 

TCF  +2 

TCF  NFGFNCT1 


112 
'113 
3 114 
0 115 
' 116 


REF  67  LAST  1462 
REF  1 


21  , ? 1 3 1 

. 

21,3133 
21  ,3134 
21 ,3  125 


11*751  1 

3 4753  1 
1 2135  1 

4 4753  0 
55*  744  0 


CCS  c UNC  T 

PCSFNCT1  CAF  BIT1 

TCF  +2 

NEGFNCT1  CS  B I T 1 

TS  DEL 


0117 

0118 
3 119 
0120 


2 LAST  146  2 
1 
1 


21,  3126  1 1*744  0 

21 ,3137  1 3151  0 

2 1,  3140  1 3142  1 

21,  3141  1 3146  0 


CCS  3EL 

TCF  FUNCT2 

TCF  DEFUNCT 

TCF  NEGFNCT2 


0 121 
M2? 
0123 


RFF 

RFF 

REF 


3 

4 
? 


LAST  1462 
L AST  1462 
LAST  1462 


21  ,3142 
21,  3 143 
21  ,3144 


55' 741  0 
55*742  0 
1 3151  0 


DEFUNCT 


TS  K2CNTRAL 

TS  K2CNTRAL  +1 

TCF  FUNCT2 


9:  12  OCT.  21,  1970  ZLMOAP  .001  PAGE  1462 
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QUOTIENT  ST09ED  AT  16*PI  , D.P. 


LIMITED  QUOTIENT  STORED  AT  16*PI,  D.P. 


RESCALE  OMEGA  AT  16*  PI  IN  D.P. 

LOWER  WORD  OVERLAYS  OMEGA  IN  WCENTRAL 


GET  ALPHA*ABS(  ALPHA)/(2*K) 


OMEGA  + ALPHA*ABS(  ALPHA) /?*K)  AT  16*PI 

DEL  = +1  FOR  FUNCT1  GREATER  THAN  ZERO. 
OTHERWISE  DEL  = -1 


USE  LOW  ORDER  WORO  SINCE  HIGH  IS  ZERO 


REPLACE  OMEGA  BY  D EL*OM  EG A 
POSITIVE  DEL  VALUE.  PROCEED, 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


TRIM  GIMBAL  CONTROL  SYSTEM 


V12<, 

21,  3145 

65252 

1 

NEG  1/3 

DEC 

-.33333 

0125 

21  ,3146 

0 0006 

1 

NEGFNCT2 

FXT  FSin 

3126 

REF 

5 

LAST 

146  2 

21,  316  7 

4 1762 

0 

DCS 

K2CNTRAL 

0127 

REF 

fc 

LAST 

146  9 

21,  3150 

53*762 

0 

DXCH 

K2CNTRAL 

0 12R 

21  ,3151 

0 0006 

1 

FUNCT2 

EXTEND 

3 129 

REF 

6 

L AST 

1462 

21, 3 152 

3 1766 

0 

DC  A 

A2CNTRAL 

0130 

REF 

7 

LAST 

1463 

21  ,3153 

21*762 

0 

DAS 

< 2CNTRAL 

REF 

7 

LA  ST 

1463 

21,3156 

2 1765 

0 

FUNCT3 

CA 

A2  CNTRAL 

2 1,  3 155 

C 0006 

1 

E X TEND 

0133 

REF 

1 

21  ,3156 

7 3165 

0 

MP 

NEG1/3 

9 134 

REF 

8 

LAST 

1463 

21, 3157 

5 2*  766 

1 

DXCH 

A2  CNTRAL 

Q13S 

REF 

324 

LAST 

146  2 

21,  3i60 

3 0001 

o 

CA 

L 

0 136 

21  ,3161 

0 0006 

1 

EXTENO 

3137 

RFF 

2 

L AST 

1463 

21,3162 

7 214  5 

0 

MP 

NEGl /3 

( 138 

REF 

9 

LAST 

1463 

21  ,3163 

27 '766 

1 

ADS 

A2CNTRAL 

4-1 

0 139 

REF 

325 

LA  ST 

1463 

21,3166 

56  0C1 

1 

TS 

L 

oHo 

21,  3165 

1 2167 

0 

TCF 

4-2 

0141 

REF 

10 

LAST 

146  3 

21  ,3166 

27*  765 

1 

ADS 

A 2CNTRAL 

ittS 

REF 

8 

LAST 

146  3 

C CCC6 
3 1742 

1 

1 

EXTEND 
DC  A 

K2C  NTRAL 

0 144 

REF 

11 

LAST 

1463 

21  ,3171 

21*  746 

1 

DAS 

A2CNT  RAL 

145 

REF 

12 

L AST 

1463 

21,  3172 

3 174  5 

- 

A2  CN  TR  A L 

0146 

21  ,3173 

0 0006 

1 

EXTEND 

0 147 

REF 

4 

LAST 

1462 

21  ,3  174 

7 1743 

l 

MP 

ACENTRAL 

Ol  48 

RFF 

L AST 

1 46  1 

21,  9175 

21*737 

1 

DA  S 

k2  the  ta 

0149 

REF 

13 

LAST 

146  3 

21  ,3176 

3 1746 

0 

CA 

A2CNTRAL 

+ 1 

3153 

21,3177 

C CC06 

1 

EXTENO 

( '151 

REF 

5 

LAST 

1463 

21,  3200 

7 1743 

1 

MP 

ACENTRAL 

0 152 

RFF 

5 

LA  ST 

1463 

21  ,3201 

27*  737 

1 

AOS 

K2T  HET  A 

+ 1 

3153 

REF 

3 26 

L AST 

1463 

21, 3 2C  2 

54  001 

1 

TS 

L 

0154 

' . 

1 3205 

1 

TCF 

+ 2 

0 155 

REF 

6 

LAST 

1463 

21,3206 

27'  736 

0 

ADS 

K2THETA 

0156 

REF 

9 

LAST 

1463 

21,  3205 
21,3206 

2 174 1 

1 

getrdd  t 

K 2C  N TRA  L 

0157 

0 0006 

1 

EXTEND 

3158 

REF 

7 

LAST 

1462 

21,  3207 

7 1740 

1 

MP 

KCENTRAL 

0159 

REF 

5 

LAST 

146  2 

21,3210 

53*751 

1 

DXCH 

FUNC  TION 

0 160 

REF 

10 

LAST 

1463 

21,3211 

3 1742 

1 

CA 

K2  CNTRAL 

+1 

3 161 

1, 

0 000  6 

1 

E XTEND 

1162 

RFF 

8 

LAST 

146  3 

21  ,3213 

7 1740 

1 

MP 

KCENTRAL 

163 

R EF 

6 

LA  ST 

166  3 

21,3216 

2 7' 7 51 

1 

ADS 

FUNCT I CN 

+1 

0164 

REF 

127 

LAST 

1463 

1* 

54  COl 

1 

TS 

L 

f 165 

21,3216 

1 3220 

0 

TCF 

+ 2 

1 166 

REF 

7 

LAST 

1463 

21,  2217 

27*750 

0 

ADS 

FUNCT I ON 

9:  12  0:  T.  21 ,1970  ZLMDAP 
USER  *S  D AGE  NO.  A 
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DEL*OMEGA  + A L PHA  ( 2)  / (2*K)  AT  16*PI,D.P. 


A2CNTRAL  NGW  CONTAINS  - AL  P F A ( 2 )/  ( 6 *K  ) , 
SCALEO  AT  16*P  I , IN  D.P. 


OEL*OMEGA  + A L PH  A ( 2 ) / ( 3 *K ) IN  A2CNTRAL, 
SCALEO  AT  16*P  I , D.P. 


ACENTRAL  MAY  NOW  BE  OVERLAID. 


TWO  TERMS  OF  NEGUSL'M  ACCUMUI  ATED,  SO  FAR 
SCALED  AT  4*PI(2),  IN  D.P. 

K*  ( DEL*  OMEGA  4-  £1  PHA  (2  )/ (2  *K  ) ) IS  THE 
TERM  FDR  WHICH  A SQUARE  ROOT  IS  NEEDED. 

K AT  PI/2  (9  ) 


DESIRED  TERM  IN  FUNCTION,  AT  P 1 ( 2 ) / 16 


GAP:  ASSEMBLE  RFVISION  S6  of  asc  prcgram  zerlina  by  zorcaster 
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L TPIP  GI«PAL  CCNTRGL  SYSTEM 


USER' S PAGE  NC.  5 F6  S4 


'167  RFF 
316B  PEF 
C'  1 69  PEF 
0170  REF 
' 1 71  RFF 


3 LAST  1462 
1 
1 
1 

2 I AST  1464 


21  ,3270  1 1' 744  0 

21,  ? 2 2 1 1 3426  0 

21  ,3222  1 3470  C 

21  ,3223  1 322  5 0 

21,  3224  1 3470  0 


CCS  DEL 

TCF  RSTCFGTS 

TCF  N E GU SUM 

TCF  NEGATE 

TCF  NEGUSUM 


0172 
3 173 
( 174 
: 1 7S 


RFF  11  LAST  1463 
REF  12  LAST  1464 
PEF  2 LAST  1464 


21  ,3275  C 0006  1 NEGATE 
2 1,  3 22  6 ‘ 114?  0 

21,3227  53*742  G 

21,3230  1 3426  0 


EX  T EN  D 

DCS  K2CNTRAL 
OXCH  <2CNTRAL 
TCF  RSTOFGTS 


>17' 
0177 
? 178 
C 179 


16,  3740 

REF  5 LAST  141  6 E6  ,150 1 

REF  4 LAST  145  8 16,2000 

16,  3740 


BANK  1 6 
EBANK  = N E GUO 
SETLOC  DAPS1 
BANK 


R r- 1 8 r THE  WRCHN12  SUBROUTI  NF  SETS  PITS  9,10,11,12  OF  CHANNEL  12  ON  T HF  BASIS  OF  THE  CONTENTS  OF  NEGUO.NFGUR  WHICH  ARE 

4 >13?  THE  NEGATIVES  OF  THE  OF  SI  3 FO  ACCELERATION  CHANGFS.  AC0T+C12  SETS  OIRlACCOOT  TO  P EFt  FCT  THE  NEW  05  IVES. 


R r 1 B4  WARNING:  ACDT  + C12  ANC  WPCEN12  MUST  BE  CALLEO  WITH  INTERRUPT  INHIBITED. 


0 IBS 

3186  REF 
187  RFF 

3188 

0lB9  RFF 
0190  REF 
3191  REF 
019? 

0193  RFF 
3 1 94  REF 


16,3740 

6 LAST  1289  0066 

6 LA  ST  1464  16  ,3741 

16, 3742 

4 LAST  136  16, 3743 

4 LAST  1416  16,3744 

3 L AST  14  17  16,  3745 

16  ,3746 

l 16,2747 

4 LAST  1417  16,  3750 


07400  1 BGIM  OCTAL  07400 

CHNL  12  FOUAL  S I TFMP6 

4 1501  0 ACCT+Cl?  CS  NFGUQ 

C CC06  1 EXTEND 

7 1507  0 MP  AECDOTQ 

23' 510  1 LX  CH  OACCDOT 

4 1503  1 CS  NEGUR 

0 0006  l EXTEND 

7 1511  1 MP  ACCDOTR 

23*512  0 LXCH  RACCDOT 


GIMeAL  DRIVE  REQUESTS. 


0195 
) 196 
01  97 
C 198 

3199 


REF 

REF 


LAST  1464  16,3751 

LAST  1458  16,3752 

16,3753 
LAST  1462  16,3754 

16, 3755 


11*501  0 

2 4742  l 
1 3755  1 

3 4743  0 
54  C 6 6 0 


CCS  NEGUO 

CAE  BlTlO 

TCF  +2 
CAF  BIT9 

TS  CHNLl 2 


0200 
0 2'  1 
G2o2 
0203 
0234 


RFF  4 LAST 
REF  40  LAST 

RFF  35  LAST 
REF  2 LAST 


1464  16,3754 

1456  16,3757 
16, 3760 

1457  16,3761 

1464  16,  3762 


1 1 • 50  3 

2 4740 
1 3762 

3 4741 

26  C 66 


0 

0 

1 

0 


CCS  NEGUR 

CAF  8IT12 

TCF  +2 

CAF  B IT  1 1 

ADS  CHNL12 


(STORED  RESULT  NUT  USED  AT  PRESENT) 


02  r 5 
0 206 

3 23  7 
0208 
0 209 
3210 


REF  1 

RFF  68 
REF  3 

REF  69 


L AST  1417 
LAST  1464 

LAST  1464 


16.3763 

16.3764 

16. 3765 
16  ,3766 
16,3767 
16, 3770 


4 3740  0 
C 0006  1 
C 2 C 1 2 0 
6 C066  1 
C 0006  1 
Cl  C 1 2 0 


CS  BGIM 

EXT  END 

RANO  CH  AM  2 

AO  CHNL  12 

EXTEND 

WRITE  2HAN12 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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PAGE  1465 


L TRIM  GI  MEAL  CONTROL  SYSTEM 


USER'S  PAGE  NC.  6 E6  S4 


R'  211 
9212 

0213 

0214 


REF  2 
REF  52 
REF  53 


LAST  1 4 1 6 
LAST  1436 
LAST  1465 


16,  377  1 
16  ,3772 
16, 3773 


4 4747  0 
7 1262  1 
55*262  1 


CS  2ALLGMRL  TURN  OFF  REQUEST  FCR  ACCT+C12  EXECUTION. 

M ASK  RCS  FLAGS 

TS  RC  SF  LAGS 


0215  REF  419  LAST  1459 


16,  3774  C 0002  0 


0 


RETURN  TO  CALLER. 


0216  „ , 21  ,3231 

9 217  REF  3 LAST  1461  E6,l45C 
0218  REF  2 LAST  1460  21,2000 
0 2 19  21,3231 


BANK  21 
E BANK  = QniFF 
SETLOC  DAPS4 
BANK 


GAP:  ASSFM8LF  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


9:12  OCT.  21  ,1970  ZLMDAp  .031  PAGE  1- 


L TRIM  GIMBAL  CCNTRCL  SYSTEM  USER'S  PAGE  NO.  7 E?  S4 

P:'220  SUBROUTINE  TIMEGMBL:  M3D  C,  OCTOBER  1967,  CRAIG  WORK 

TIMEGMBL  COMPUTES  TEE  DRIVE  TIRE  NEEDED  FOR  THE  TRIM  GIMBAL  TO  POSITION  THE  3 b SC  E NT  ENGINE  NCZZLE  SO  AS  TC  NULL 

< 223  ThE  OFFSET  ANGULAR  ACCELERAT1  C N ABCUT  THE  C (CR  R)  AXIS.  INST  EAD  OF  USING  AOS  0 ( R ) , T IMEGMBL  USES  .4*A0SQ(R>, 

R02  ? 5 SC  At  FD  AT  PI/3.  EDO  EACH  AXIS,  THE  DRIVF  TIMF  IS  CCMPUTFO  AS  A8S(ALPHA/  ACC  DOT  ) . A ZFRO 

* 227  ALPHA  OR  ACCOOT  OR  A ZERO  QUCTIFNT  TURNS  OFF  THE  GIMBAL  DRIVE  IMMEDIATELY.  OTHERWISE,  THE  GIMBAL  IS  TURNED  ON 
R ? 2 2 R DRIVING  IN  THE  CORRECT  DIRECTION.  THE  0(R)GIMTIMR  IS  SET  TC  TERMINATE  THE  DRIVF  AND  0(R)ACCDnT 
R0231  IS  STCRFD  TO  REFLECT  THE  NEW  ACCELERATION  DERIVATIVE.  NEGUO(R)  WILL  CONTAIN  +lt+0«-l  F CP  A QIRIACCDOT  VALUE 
<<•233  WHICH  IS  NEGATIVE,  ZERO,  OR  POSITIVE. 


R3234  INPUTS:  AOSQ,AOSR,  SCALED  AT  PI/2,  AND  ACCDOTQ,  ACCDO  TR  AT  PI  /2  ( 7 > . PI/2(7). 


30236  OUTPUTS:  NEW  GIMBAL  DRIVE  BITS  IN  CHANNEL  1 2 , N EGUQ,  N E GJR  , 0 ACCOOT  AND  R ACC  DO  T,  THE  LAST  SCALFD  AT  PI/2I7I. 

R3  23°  Q(  P,  )GI  MTIMR  WILL  BE  SET  TO  TIMF  AND  TERMINATE  GIMBAL  DRIVE(S) 


R023q  DEBRIS:  A,L,Q,  IT  EMPS  2,3,6,  RUPTREG2  AN  C AC0T+C12  DEBRIS. 


3 0 240  EXITS:  VIA  TC  0. 

R12A1  ALARMS,  ABORTS,  : NONE 


30242  SLBPOLTINFS:  ACDT+C12,  IBNKCALL 


R3243  WARNING:  THIS  SUBROUTINE  WRITES  INTO  CHANNEL  12  AND  USES  THE  TTEMPS.  THEREFORE  IT  M AY  ONLY  RE  CALLED  WITH 
R0245  INTERRUPT  INHIBIT  EE. 


<0246  ERASABLE  STORAGE  CONE  I G URA  T I C N (NEEDED  BY  THE  INDEXING  METHOCS): 

A 7 4 7 NEGUQ  F3  A SE  +2  NEGATIVE  OF  Q-AX  IS  GIMBA1  OR  IV  E 

A '243  (SPWORC)  EQUALS  NEGUQ  +1  ANY  S.P.  ERASABLF  NUMBER,  NOW  THRSTCMD 

AO  249  NEGUR  EQUALS  NEGUQ  +2  NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 


AG250 
A '251 
A3  25? 
AC 25  3 
A '254 
AT  2 55 


ACCDOTQ  ERASE  <-2  Q-JERK  TERM  SCALEC  AT  P 1/2  (7  ) RAD/S  EC  ( 3 ) 

(SFWORD)  EQUALS  ACCOOTQ  *1  ANY  S.P.  ERASABLE  NUMBER  NOW  QACCDOT 

ACCDOTR  EQUALS  ACCDOTQ  +2  P-JERK  TERM  SCALED  AT  P 1/  2 ( 7 > RAD/SEC(3) 

ACCDOTQ  ,ACCOOTR  ARE  MAGNITUDES. 

AOS  Q ERASE  +4  Q-AX  IS  ACC..O.P.  AT  P I /2  R /SEC  ( 2) 

AO  SR  EQUALS  AOSO  +2  R-AXIS  ACCELERATION  SCALEO  AT  PI/2  R/S2 


0256  RFF 
1257 


7 LAST  1464  0066 

21,  3231 


QRNCXER  EQUALS  ITEMP6 
23  146  0 0CT23146  OCTAL  23146 


0258  REF  27  LAST  136  3 0063 


N 7 A C- C DO T EQUALS  ITEMP3 


DECIMAL  .6 


3 4753  1 
5 5 1 5 C 2 0 


T I MEGMBL  C.AF 
TS 


ONE 

ALLOWGTS 


IN  ITIAL  IZE  Al  LOWGTS. 


i i 2 bl  PFF  103  LAST  1460  31  ,3234 

0 26?  REF  4 20  LAST  146  5 21  ,3  235 

02&3  REF  24  LAST  1397  21,  3236 


3 h7  52  0 
22  CC2  0 
22  C 7 1 1 


CAF  TWO  SET  UP  LOOP  FOR  R AXIS. 

LXCH  Q SAVE  RETURN  ADDRESS. 

L XCH 


RUP  TREG2 


GAP:  ASSEMRLE  REVISION  60  OP  AGC  PROGRAM  ZERL  INA  BY  ZOROASTER 


TRIM  G I MB A L CONTRCL  SYSTEM 


3264 

21,  3237 

1 3241 

1 

TCF 

+ 2 

0265 

REF 

318 

LAST 

1460 

21,3240 

3 4756 

1 

T IMQGMBL 

CAF 

Z FRO 

0 266 

REF 

1 

21,3241 

54  C66 

0 

TS 

ORNDXER 

3267 

REF 

2 

L AST 

1467 

21,  3242 

5 C C 66 

1 

I NOEX 

QRNOXER 

0268 

REF 

5 

LAST 

1464 

21  ,3243 

3 150  7 

1 

CA 

AC  COO TQ 

f 269 

21  ,3244 

0 0006 

1 

FX  TEND 

02  70 

REF 

1 

21,  3245 

6 3 3 15 

0 

BZMF 

TG  OFF  NOW 

0271 

REF 

1 

21  ,3246 

54  063 

0 

TS 

NZ ACC  DOT 

3272 

P EF 

3 

LAST 

1467 

21,  3 24  7 

5 C C 66 

1 

ALPHA  TRY 

I NDEX 

OR.NDXFP 

0273 

PEE 

24 

LAST 

1460 

21,3250 

4 1536 

1 

CS 

AO  SO 

9274 

21  ,3251 

0 0006 

l 

EXT  FND 

3275 

REF 

2 

L AST 

1467 

21,  3252 

1 3315 

1 

B ZF 

TG  OF  F NC W 

ACT 

54  002 

'277 

21,3254 

C 0CC6 

1 

EXT  END 

C2  78 

REF 

1 

21,  3 255 

7 3231 

0 

MP 

OC  T23 146 

•'279 

PEE 

422 

LAST 

1467 

21  ,3256 

6 0002 

0 

AD 

0 

3230 

REF 

3 28 

LAST 

1463 

21,  3257 

54  CC1 

1 

TS 

L 

0281 

REF 

1 

21,3260 

1 3265 

1 

TCF 

SETNEGU 

0282 

REF 

517 

LAST 

1461 

21  ,3261 

4 0000 

0 

CS 

A 

328? 

RCF 

4 

1 AST 

1467 

21,  3262 

50  066 

1 

INDEX 

(JR  NO  XFR 

0284 

REF 

a 

LAST 

1464 

21  ,3263 

57*501 

1 

XCH 

NEGUQ 

0285 

REF 

1 

21,3264 

1 3321 

0 

TCF 

NOT  AL  LOW 

02  86 

21,3265 

0 0006 

1 

SETNEGU 

E XTEND 

o ?.e-r 

REF 

1 

21  ,3266 

6 3273 

1 

BZMF 

POSALPH 

3298 

2 1,  3267 

4 CCOO 

0 

COM 

G289 

PEF 

31 

LAST 

1364 

21  ,3270 

54  062 

1 

TS 

ITEMP  2 

0 290 

REF 

68 

l A ST 

1462 

21  ,3271 

4 4753 

c 

CS 

BIT1 

0291 

PEF 

2 

1 AST 

1467 

2 1,  3272 

1 3 275 

c 

TCF 

POSALPH  +- 

•292 

REF 

32 

l A ST 

1467 

21  ,3273 

54  062 

1 

POSALPH 

TS 

IT  FMP  2 

3233 

REF 

69 

LAST 

146  7 

21,  3274 

3 4753 

1 

CA 

81  T1 

0294 

REF 

LAST 

1467 

2 1,  3275 

5 C 066 

1 

+ 2 

INDEX 

QRND  XFR 

0295 

REF 

9 

1 AST 

1467 

21  ,3276. 

55*  501 

0 

TS 

NEGUQ 

3296 

REF 

2 

L AST 

21,3  277 

3 0063 

1 

N Z ACC  DO  T 

297 

21  ,3300 

0 0006 

1 

EXTENO 

0 298 

RCF 

41 

LAST 

1464 

21 ,3301 

7 474f 

1 

MP 

BIT12 

02  99 

REF 

33 

L AST 

1467 

2 1,  3 302 

6 0062 

0 

AO 

I TEMP 2 

0300 

21  ,3303 

0 0006 

1 

EX  T EN  0 

333  1 

REF 

2 

LAST 

1467 

21,  33C4 

6 3321 

1 

B 7 ME 

NOT  ALLCW 

03  02 

REF 

34 

LAST 

l4h7 

2 1 , 3 3c  5 

4 006? 

1 

CS 

I TFMP2 

0 30  3 

21  ,33C6 

0 0006 

1 

EXT  tNO 

3 33  4 

RCF 

1 

21,  3 3C7 

7 3342 

0 

MP 

□CT00240 

0305 

21  ,3310 

0 0006 

1 

EXTEND 

0 30  6 

RFF 

3 

LA  ST 

1467 

21  ,3311 

10  063 

0 

DV 

NZ ACCDOT 

9:12  CCT.  21,1970  ZLMDAP 


.3  3 1 PAGE  1467 


USER  • S PAGE  NO.  6 E6  S4 


NOW  DO  THE  Q-AXIS 


A C COOT  IS  PRESUMED  TO  BE  AT  PI/2  (7). 

IS  ACC  DOT  LESS  THAN  OR  EQUAL  TO  3? 
NO.  STORE  NON-ZERO,  POSITIVE  ACCDOT. 


IS  ALPHA  ZERO? 


SAVE  A COPY  OF  -ACS. 

NO.  RESCALE  FOR  TIMEGMBL  USE. 

OCTAL  23146  IS  DECIMAL  .6 
— 1.  6*A0  S AT  PI/2  = -.4+AOS  AT  PI  /8. 
WAS  THERE  OVERFLOW? 

NO.  COMPUTE  DRIVE  TIME. 


RECOVER  -SGNIAOS)  IN  THE  A REGISTER. 
YES.  START  DRIVE  WITHOUT  WAITLIST. 

KNOCK  DOWN  THE  AILOWGTS  FLAG. 


STORE  -ARS(.4*A0S)  SCALED  AT  PI/8. 

STORE  - AR  S(  • 4*A0  S)  SCALED  AT  PI /8. 

SGNIAOS)  INTO  NEGU 
STORE  SGN(APLHA)  AS  NEGU 


2 ♦A CCDUT , SCALED  AT  PI/P. 

-ABSIALPHA)  + 2*ACCDOT,  AT  PI/B. 

IS  DRIVE  T IMF  MORE  THAN  TWO  SECONDS? 
NO.  COMPUTE  DRIVE  TIME. 

ABSIALPHA  ) AT  PI/8. 

DECIMAL  13/1324 

QUOTIENT  IS  DRIVE  TIME  AT  WAITLIST. 
ABS  (ALPHA)/ ACCDOT  AT  2I14I/10C 


GAP:  ASSEMBLE  REVISION  5t>  OF  AGC  PROGRAM  ZEKLINA  BY  ZOROASTER 


TPIM  GIMPAL  CONTPOL  SYSTEM 


0310 

1311 

0312 


0315 

3316 

'"7 

031* 

A33la 

0320 


REF 

PEF 

RFF 

PEF 

RFF 

R FF 


PFF  6 
REF  7 
RFF  8 
REF  320 
REF  A 

REF  2 


EAST  1467 


l AST  1467 
L AST  1467 
LAST  1467 


1 


21,3314  1 3327  0 


LAST  883 
LAST  1468 
I AST  1460 
LAST  1468 
LAST  1466 

LAST  1468 


21  ,7315 
2 1,  3316 
21  ,3317 

21.3320 

21. 3321 
21  ,3322 

21. 3323 

21.3324 

21.3325 


55 '50  1 0 

1 3331  1 

3 6010  0 
50  G66  1 
55*631  0 
3 4755  1 
55*502  0 


21  ,3326  1 3331  l 


S3H 


Hi:  13!  o7 


TO  F 

OR  I VF  ON  INDEX 


TG OFF  NOW 

OR  I VEON 

ZERO 

QRNDXER 

NEGUQ 

OONF.YET 

E T - i 
QRNDX ER 
QGI MTI MR 
7.  ERO 

ALLOW  GTS 
HONEY  ET 


0331 

0332 


REF  25  LAST  1466 


21,3341 
21,  3342 


C C C 7 1 1 

00240  1 


OCT 00240  OCTAL 


RIJPTREG2 

00240 


8:12  OCT.  21,1870  7 LMPAP  .001  RAGE  1468 


US  ER*  S PAGE  NO.  8 E6  S4 


DRIVE  TIMF  MJST  BE  GREATER  THAN  ZERO. 


TURN  OFF  GIMBAL  NOW. 


DRIVE  TIME  IS  MORE  THAN  2 SECONDS,  SO 
DO  NOT  PERMIT  FURTHER  GTS  ATTITUDE-RATE 
CCNTROL  UNTIL  AOS T ASK  APPROVES. 

NO  WAITLIST  CALL  IS  MAPE. 


CHOOSE  Q OR  R AXIS. 


PROTECT  IBNKC.ALL  ERASABLES.  ACDT+C12 
LEAVES  ITEMPS2,  3 ALONE. 

TURN  OF  CHANNEL  BITS,  SET  Q(R»ACCOOTS. 

RESTORE  ERASARLES  FOR  IBNKCALL. 

RETURN  TO  CALL  ER. 

DECIMAL  10/1024 


G A P 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERL  INA  8Y  ZOROASTER 


9:12  OCT.  21,1970  ZLMDAP  .001  PAGE  1469 


TRIM  GI MBAL  CONTROL  SYSTEM  USER'S  PAGE  NO.  10  E6  S4 

P • 333  THE  FOLLOWING  SECTION  IS  A CONTINUATION  OF  THE  TRIM  GIMBAL  CONTROL  FROM  THE  LAST  GTS  ENTRY.  THE  QUANTITY  NEGUSUM 
R 0335  IS  COMPUTED  FOR  EACH  AXIS  (Q,P>,  .707  * CEL*  FU  NCT  ION  ( 3/ 2 ) + K2THETA  = NEGUSUM.  NEW  DRIVES  ARE  ENTERED  TO  CH  12. 

P 337  THE  SUBROUTINE  GTSORT  ACCEPTS  A DOUBLE  PRECISION  VALUE  IN  FUNCTION,  FUNCTION  +1  AND  RETURNS  A SINGLE-PRECISION 

R0339  SQUARE  RCCT  CF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  THE  ARGUMENT.  ALSO,  THE  CELL  SHF  TF  LAG  CCf'TAINS  A BINARY 

<'.341  EXPONENT  S,  SUCH  THAT  THE  SQUARE  RCCT  (RETURNED  IN  THE  A REGISTER)  MUST  BE  SHIFTED  RIGHT  (MULTIPLIED  BY  2 TO  THE 

RD  343  POWER  ( -S  ) ) IN  ORDER  TD  BE  THE  TRUE  SQUARE  ROOT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  FUNCTION,  FUNCTION  +1. 

R 034  5 SQUARE  PCOT  ERROR  IS  NCT  MCRE  THAN  2 IN  THE  14TH  SIGNIFICANT  BIT.  CELLS  CLOBBERED  ARE  A, L,SHFTFL  AG, ININDEX, 

RC  347  HAL  FARG,  SCRA  TCH,  SR  ,F  UNC  TI  ON  , FUNCTION  +1.  GTSQRT  IS  CALI  EC  BY  TC  GTSQRT  AND  RETURNS  VIA  TC  Q OR  TC  FUNCTION  +1. 

R 0 3 4 9 ZERO  OR  NEGATIVE  ARGUMENTS  YIELD  ZERO  FOR  SQUARE  ROOTS. 


0350  RFF 
3351  REF 

0352 

0353  REF 


LAST  1463 


21  ,3.343 
21,  3344 

21.3345 

21.3346 


11*  750  0 
1 3362  1 
1 3347  0 
1 3353  0 


GTSQRT 


CCS 
TC  F 
TC  F 
TCF 


FUNCT  ION 
GOODARG 
+ 2 

ZEPOOT 


FUNCTION  IS  POSITIVE.  TAKE  SQUARE  R33T. 
HIGH  ORDER  WORD  IS  ZERO.  TRY  THE  LOWER. 
NEGATIVE.  USE  ZERO  FOR  1/2  POWER. 


354 
0356 
0 3 56 


LAST  1469 
LAST  1469 


21, 3347 
21  ,3350 
21  ,3351 


3 1751  0 
0 0006  1 
6 3353  1 


CA  FUNC  TION  +1 

FXTEND 

BZMF  ZEROOT 


0357 
0 3 5R 

0359 

0360 


REF  1 
PEF  321 
P FF  1 
REF  423 


LAST  1 46  B 
LAST  1467 


21,  3352 
21  ,3363 
21,  3354 
2 1,  3365 


1 2356  0 
3 4755  1 
55*740  1 
C OCO?  0 


TCF 

ZEROOT  CA 
TS 
TC 


ZEROHIGH 

ZERO 

SHFTFLAG 

0 


PROCEED. 


0361  REF  10  LAST  1469 

736?  REF  11  LAST  1469 

.'363  RFF  25  LAST  1362 

0364  REF  2 LAST  1469 


21  ,3356 
21, 3357 
21 ,3360 


57*750 
57-751 
3 4757 


0 

0 


ZEROHIGH 


X CH 
XCH 
CA 


21,3361  1 3363 


TCF 


FUNCT  ION 
FUNCTION 
SEVFN 
GOOCARG 


14  MOST  SIGNIFICANT  BITS  ARE  IN  THE 
LOWER  WORD.  EXCHANGE  THEM. 


0365 

0366 
7367 
c36B 
0 369 


REF  322  LAST  1469 

PFF  2 LAST  1469 

RFF  3 LAST  892 

RFF  l 

REF  1 


21,  3362  3 4755 

21,3363  55*740 

21,  3364  3 5752 

21.3365  55 '743 

21.3366  1 3375 


1 GDODARG  CA 
1 TS 

1 CA 

1 TS 

1 TCF 


ZERO 

S HFT  FLAG 
TWELVE 
ININDEX 
S CAI  LOOP 


INITIALIZE  THE  SCALING  LOOP. 


RFF  12  LAST  1469 
REF  1 


21,3  367  3 1750 

?1  ,3370  1 3411 


1 SCALSTRT  CA 
1 TCF 


F UNCTION 
SCAL  DONE 


gf# 

0374 
3375 
A 03  76 
0377 
J 378 
0379 
0 380 
0381 
A 0 382 


1464 

1469 


21  ,3373 
2 1,  3 37  A 


x T 760  1 

27*763  1 


CA  NEG2 

ADS  ININDEX 

EXT  END 

BZMF  SCALSTRT 


REF  13  I.AST  1469 
RFF  3 LAST  1469 
RFF  53  LAST  1444 

REF  1 


21  ,3375  4 1750  0 

21,  3376  5 1 * 743  C 

?I  ,3377  6 4735  I 

2 l , 3 4C0  C CCC6  1 
21,  340  1 6 3371  1 


SCALLCOP  CS 

I NDE  X 


EXTEND 

BZMF 


FUNCT  ION 
I N I NDEX 
B IT  1 5 

MULBUSH 


IF  ARG  IS  NOT  LESS  THAN  1/4,  INDEX  IS 
ZERO,  INDICATING  NO  SHIFT  NEEDED. 
BRANCH  IF  APG  IS  NOT  LF  SS  THAN  1/4. 
OTHERWISE  COMPARE  ARG  WITH  A REFERENCE 
WHICH  IS  4 TIMES  LARGER  THAN  THE  LAST. 


REFERENCE  MAGNITUDE  LESS  OR  EOUAL  TO  1/4 

IF  ARG  IS  NCT  LESS  THAN  REFERENCE,  GO 
AROUND  THE  MULBEPPY  BUSH  ONCE  MORE. 
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TRIM  GTHBAL  CONTROL  SYSTEM 


03  83 
384 
3 3 3 5 
0386 
33B7 
3388 
0389 
AO  390 


PFF  4 LAST  1469 
PFF  54  LAST  1469 
REF  1 

RCF  14  LAST  1469 


21,  340  2 
21,3403 
21,  3404 

21 . 3405 

21 .3406 
21,  3407 
1 1 , 3 4 I - 


£7' 746  0 
0 0006  1 
3 1751  0 
0 0006  1 
11*746  1 


INOEX  ININDEX 

CA  B IT  1 5 

XCH  4ALFARG 

EXTEND 

DC  A FJNCTION 

E X TEND 

DV  HAL  FAR G 


US  FR  *S  PAGE  MO  . 


THIS  IS  THE  SCALE  MAGNITUDE 

2**  (-IN  INDEX  ) IS  TEE  SHIFT  DIVISOR. 

RESCALE  ARGUMFNT. 


ININOEX  AND  SHFTFLAG  PRESERVE  INFO  FOR 


A0301 
C 39? 
7393 

0 3°  4 
0395 

3396 
( 397 
0399 

0399 

0400 


REF  16  | AST  1470 


REF 

REF 

REF 

PFF 

PFF 

RFF 


21,3411  G 0006  1 SCALOCNF  EXTEND 


LAST  1461 
LAST  1470 
LAST  1450 
LAST  1467 


21,  3412 
21  ,3413 
21 , 3414 
21,  3415 
21,3416 
2 1,  34  17 
21,  3420 
21 ,3421 


23*751 
0 0006  1 
7 4736  0 
55*746  1 
7 4737  1 
1C  COO  0 
3 3 53  6 l 
6 3534  0 


QXCH 

EXTEND 


BIT14 
HA  LFARG 
BIT  13 

n:TH276 
ROOT  HAL  F 


RESCALING  AFTER  PCCT  PRCCFSS  . 
SAVF  0 FOR  RFTURN 


INITIAL  GUESS  IS  ROOT  1/2  OR  POSMAx 


.■'47  1 
0402 
040  3 


21,3424  C 3540  0 


ROOTCYCL 
ROOTC  YCL 
ROCTCYCL 


0404 
1 0405 


REF  1 6 LAST  1470  21,  3425  0 175 1 0 TC  F UNC  TI  ON  + 1 


3 40  7 

0408 

0409 
C4  1 0 
0411 
3412 

0413 

0414 
3 415 
0416 
■1417 

4041  8 


REF  1 

RFF  13  LAST 

PEF  14  LAST 
RFF  16  LAST 

REF  329  LAST 
REF  16  LAST 
REF  330  LAST 

P.EF  17  LAST 


2 1,  7426 
1464  21,3427 

21,3420 
1470  21,  3431 

1470  21,3432 

21,  3433 
1467  21,3434 

1470  21,3435 

1470  21,  3436 

21  ,3437 
1470  21,3440 


C 3343  C 
57*741  1 
C 0CC6  1 
7 17410 
53*742  0 
C OOC6  1 
7 0001  1 
27*742  0 
54  OC 1 1 
1 3441  1 
27*741  0 


RSTOFGTS  TC  GTSQRT 

PRODUCT  XCH  K2CNTRAL 

EXTEND 

MP  K2CNTRAL 

DXCH  K2CNTRAL 

E X TF  ND 
MP  L 

ADS  K2CNTRAL 

TS  L 

TCF  +2 

ADS  K2CNTRAL 


+1 


THE  PRODUCT  OF 

1/2  2 1/2 
K *(DEL  IOMEGA  + ALPHA  /(2*K11 
ANC 

2 

DFL*(DEL*OMEG  A + ALPHA  /(  2*K  ) ) Nil  W IN 
K2CNTRAL 


0419 
3 42  3 
0421 
'4  22 
3423 
0424 
■425 
0426 


RFF  5 LAST  1470 

REF  90  LAST  1470 
REF  3 LAST  1469 

RFF  1 

REF  4 LAST  1470 
RFF  66  LAST  1470 


21.3441  3 1743  0 

21. 3442  C C006  1 

21.3443  7 4736  0 

21  ,3444  27*  740  1 

21, 3445  0 0006  1 

21  ,3446  1 3465  1 

21  ,3447  51*740  0 

21,3450  3 4735  1 


DOS  HI  FT 


CA  ININDEX 

F XTEND 

MP  BIT14 

ADS  SHFTFLAG 
E XTEND 

BZF  ADDITIN 

INDEX  SHFTFLAG 
CA  31  Tl5 


MULTIPLY  IN  THE  FACTOR  2(-S),  RETURNED 
BY  THE  GTSQRT  SUBROUTINE 
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' 427 
04  2 8 
0429 
3433 
0431 
1 4 3? 
1433 
04  34 

0435 

0436 
'437 


REF  18  LAST  1470 

REF  19  LAST  1471 
REF 
RFF 


20  LAST  147  1 


REF  21 
REF  8 
REF  331 


LAST  1470 


21,3451 
21,  3452 
' 1 ,3453 
21,  3454 
2 1,  14^5 
21  ,3456 
21,  3457 
21  ,3460 
21, 346  1 
2 1,  3462 
21  ,3463 


57' 741  1 
0 0006  1 
7 1741  0 
21* 737  1 
57*741  1 
C 0006  1 
7 1742  0 
27*737  1 
54  C01  1 
1 34(4  0 
27*  736  0 


XCh  K2CNTRAL 

E XTEND 

MP  < 2CNTRAL 

OAS  K2THFTA 

XCH  K2CNTRAL 

EXTEND 

MP  K2CNTRAL  +1 

ADS  K2THETA  +1 

TS  L 

TCF  +2 

ADS  < 2T  HET  A 


343R 


LAST  1464  21, 34(4  1 3470  0 


TCF 


C 43  9 
0 440 
3 44  1 
' 442 
0443 
044  4 
0445 


PFF 

RFF 

RFF 

REF 


2?  LAST  1471 

10  LAST  1471 

11  LAST  1471 


LAST  146  1 


21 , 3465 

, 

21  ,3470 
21 ,3471 
21,  3472 
21  ,3473 


0 0006  l 

3 174?  1 
21*737  1 
11 '736  0 

1 3475  0 
1 3474  1 
1 3477  1 


EXTEND 

DC  A 

DAS 

CCS 

TCF 

TCF 

TCF 


K2  CNT  RAL 
K2THETA 
K 2THETA 
NEGDRIVE 
+ 2 

POSDRIVE 


3 446 
044  7 
0448 
3449 

04  50 
(.451 
0452 


RFF  70 

REF  71 
REF  332 
REF  6 
REF  11 


LAST  147  1 
LAST  1471 
LAST  1461 
LAST  1468 


21,  3474 
21,3475 
21  ,3476 
21, 3477 
21  ,3500 
21,3501 
21,  3502 


11*737  1 

3 4753  l 
1 3500  0 

4 4753  0 
54  001  1 
M*  747  1 

5 7' 5C  1 1 


CCS 

NEGDRIVE  CA 
TCF 

PO  SDR  I VE  CS 
TS 

INDEX 

XCH 


ORCNTR 

NFGUQ 


0 45  3 
"'454 
0455 


REF  333 
RTF  334 
RFF  1 


21 ,3503 
21,  3 5C4 
21  ,3505 
21  ,3506 


0 0006  1 
7 C001  1 
10  001  1 
1 3523  1 


21,  3507  1 3520  1 


LAST  1471 


046" 

0461 

0462 

0463 
0 464 
0465 


RFF  7 LAST  1471 

REF  5 LAST  1464 

RFF  8 LAST  147  1 

REF  l 

REF  70  LAST  1464 


21,3512  5 1 *747  1 REVERSAL  INDEX  ORCNTR 

55*510  TS  CACCDOT 

2 1,  35  14  5 1 ' 747  1 INDEX  ORCNTR 

21  ,3515  4 3535  0 CS  GMBLBITA 

21.3516  C LC06  1 EXTEND 

21.3517  030121  WAND  3HAN12 


'466 

3467 

0468 


RFF 

REF 

PFF 


LAST  1465 
LAST  146  5 
LAST  1471 


21  ,3520  4 1262  1 

2 1,  3521  7 4 7 47  0 

21  ,3522  27 ' 26 2 1 


7ER0L0UP  CS  RCSFLAGS 

MASK  CALLGMRL 
ADS  RCSFLAGS 


9:12  OCT.  21,1970  ZLMDAP 
USEP  ' S PAGE  NC.  12 


.001  PAGE  1471 
E6  S4 


NOW  ADD  IN  THE  K2T  HET  A TERM. 
TF  ST  SIGN  OF  HIGH  CRDEP  PART. 


SIGN  1EST  FOR  LCW  CRDER  PART. 

STOP  GIMBAL  DRIVE  FOR  A ZERO  NEGUSUM. 
SAVE  FOR  DRIVE  REVERSAL  TEST. 


MULTIPLY  OLD  NEGU  AND  NEW  N EGU  . 

NON-ZERO  GIMRAL  DR  IVE  BEING  CONTINUED. 

NO  REVERSAL  PRCBLEM  HERE. 

NON-ZERO  GIMRAL  DRIVE  BEING  REVFRSED. 

NO  REVERSAL  PROBLEM  HERE. 

A ZERO-DRIVE  PAUSE  IS  NEEDED  HERE.  ZERO 
IS  IN  A REGISTER  FROM  CCS  ON  (-1). 


SET  UP  REQUEST  FOR  ACDT+C12  CALL. 
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2469  PEF  9 LAST  147  1 
0470  RFF  2 LAST  1460 


21, 3 c 23  1 1 • 7 4 7 0 L OUPE 

21  ,3524  l 3017  0 


CCS  QKCNTR 

TCP  GOO TR  IMG 


HAVF  BUTH  AXES  BEEN  PROCESSED? 
NO.  DO  Q A XI  S NF  XT. 


PEF  2 LAST  1460 
PFF  2p  LAST  1460 


3 15C5  C 
54  C2l  0 


CA  SAVESR  RESTORE  THE  SR 

TS  SR 


0 47  3 

3474  RFF 
0475 


21  .3527  C 0006  l GCCLCSE  EXTEND 


21,  3530  2 3533  1 

21  ,3531  52  C 06  0 


DC  A CLOSEADR 
DTCB 


TERMINATE  THE  JASK. 


0 476 
i-477 
'.477 
R 3 4 7 fl 
'479 
0480 
34?  1 
3482 
0 48  3 
R3484 
R(  485 
3 0^86 
R348R 
R 0<490 
R 3 49  2 


Mi 


EBANK=  AOS  C 

CLOSEADR  2CADR  3 LOSE  OUT 


TERMINATE  THF  JASK. 


REF 


6 


LAST 


1419  5752 

21,3534  26501  1 

21,  3535  C l4Cn  1 

2 1,  3536  11276  1 

21  ,3537  06000  1 


TWEL  VE  EQUALS  OC  T14 
RCTTHALF  OCTAL  2650  1 
G MB  LB  I TA  OCTAL  <0  400 
OC  T 1 1 276  OCTAL  11276 

GMBLRITfl  OCTAL  060C0 


SQUARE  ROOT  OF  1/2 
INDEX  ED  WRT  GMBLBITP 
POSMAX  - ROOTHALF 
INDEXED  WPT  0 MB  LB  I TA 


DO  NOT  MOVE****** 
DO  NOT  MOVE****** 


SUBROUTINE  RCCTCYCL:  BY  CPA  1 C-  WORK,  3 APRIL  68 

POOTCYCL  IS  A SUBROUTINE  WHICH  EXECUTES  CNF  NEWTON  SQJARE  ROOT  ALGORITHM  ITERATION.  THE  INITIAL  GUESS  AT  THE 
SQUARE  ROOT  IS  PRESUMED  TO  BE  IN  THF  A REGISTER  AND  ONE-HALF  THE  SQUARE  IS  TAKEN  FROM  8ALFARG.  THE  NEW  APPROXI- 
MATION TO  THE  SQUARE  ROOT  IS  RETURNED  IN  THF  A REGISTER.  DEBRIS:  A , L , SR  , SC  R A TCH.  ROOTCYCL  IS  CALLED  FROM 

LOCATION  (LOC)  B Y A TC  ROOTCVCL,  AND  RETURNS  ( TC  Q)  TO  LOC  +1. 


R0493  WARNING:  IF  THE  INITIAL  GUESS  IS  NOT  GREATER  THAN  THE  SQUARE,  DI  VI  OE  OR  ADD  OVERFLOW  IS  A REAL  POSSIBILITY. 


0495  PEF  l 

:4  96  REF  29  LAST  1472 

0497  RFF  4 LAST  1470 

0408 

0499 

05G>'.  REF  2 LAST  1472 

05(1  REF  30  LAST  1472 

05C2  REF  424  LAST  1469 


21,3549  55*745  1 RnCTCYCL  TS 


21,  354  1 5 4 C21  0 TS 

21.3542  3 1746  0 CA 

21.3543  22  007  0 ZL 

21,  3544  0 0006  1 EXTEND 

21.3545  11‘745  1 DV 

21.3546  fc  0C21  1 AD 

21,  3547  0 0002  0 TC 


S CRAT  CH 
SR 

MAL  FARG 


SCRATCH 

SR 

Q 


STORE  X 
X/2  NOW  IN  SR 
ARG/2  IN  THE  A REG 
PREPARE  FDR  OlVISION 

I ARC./X)  / 2 

(X  + ARG/X  ) / 2 IN  TEE  A REG 


3 0503 
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L 

AOSTASK  AND  AOSJOB  USER'S  PAGE  NO  . 1 EO  S4 

ft  0001 
10002 
R3303 

PROGRAM  NAME:  1/ACCS 

PROGRAM  WRITTEN  BY:  RQ8  COVEILI  AND  MIKE  HOUSTON 

LAST  MODIFICATION:  FEB.  14,  1969  BY  G.KALAN 

R00C4 

PROGRAM  DESCRIPTION: 

R00O5 

R0007 

1 0009 

1/ACCS  PROVIDES  THE  INTERFACE  BETWEEN  THE  GUIDANCE  PROGRAMS  AND  THE  DIGITAL  AUTOPILOT.  WHENEVER  THERE  IS  A 
CHANGE  IN  THE  MASS  OF  THE  VEHICLE,  IN  THE  DEADBAND  SELECTED,  IN  THE  VEHICLE  CONFIGURATION  ( ASCENT-DES  CENT - 
DOCKED),  AND  DURING  A FRESH  START  OR  A RESTART,  1/ ACCS  IS  CALLED  TO  COMMUN  ICATE  THE  DATA  CHANGES  TO  THE  DAP. 

R3  0 1 1 
Ron  3 
R0015 

THE  INPUTS  TO  1/ACCS  ARE  MASS,  ACCELERATION  (ABDELV),  DEADBAND  (OB),  OFFSET  ACCELERATIONS  (AOSO  AND  AOSR  ), 
STAGE  VFRIFY  BIT  ( CHAN3  3 , B IT2  ) , DCCKED  BIT  ( OAP BOOL S, B IT  1 3 ) , DR  I E T B I T ( DAPBOOL S ,BI  TR)  , USEQRJTS  (DAP&OOLS, 

B IT  14  ),  AND  SURFACE  FLAG  I F LAG hRD  8 ,R I T B ) , AND  CH5  MASK  . 

KG015 

10015 

R3320 

R0022 

1/ACCS  COMPUTES  THE  JET  ACCELERATIONS  (1JACC,  1JACCQ  , 1JACCK)  AS  FUNCTIONS  OF  MASS.  1JACCU  AND  1JACCV  ARE 
FORMED  BY  RESOLVING  lJACCQ  NAC  1JACCR.  IN  THE  DESCENT  CASE,  THE  DESCENT  ENGINE  MOMENT  ARM  (L.PVT-CG)  IS  ALSO 
COMPUTED  AS  A FUNCTION  OF  MASS.  THE  RATE  OF  CHANGF  OF  ACCELERATION  DU  F TO  POTATION  OF  T HF  GIMBAL  ( ACCDOTO, 
ACCDCTR)  IS  ALSO  COMPUTED  IN  TEE  DESCENT  CASE. 

10023 

R)  3 25 

R 0027 
R0(  1 ' * 
roc31 

1 0033 

AFTEF  THE  ABOVE  COMPUTATIONS,  THE  PROGRAM  1/ACCONT  COMPUTES  TEE  RECIPROCAL  NET  ACCELERATIONS  ABOUT  THE  P,  U, 
AND  V AXES  (2  JETS  FOR  P AXIS,  BOTH  1 AND  2 JETS  FOR  U ANO  V AXES),  AND  THE  RECIPROCAL  COAST  ACCELERATIONS  ABO J T 
THP  P,  U,  AND  V AXES.  THE  ACCELERATION  FUNCTIONS  (ACCFCTZ1  ANO  ACC  FCTZ  5)  AR  E ALSO  COMPUTED  FOR  THESE  AXES.  THE 

FIRE  AND  COAST  DEADBANDS  AND  AXISDIST  ARE  COMPUTED  FOR  EACH  AXIS.  FLAT  AND  Z0N63LIM,  THE  WIDTH  AND  HEIGHT  OF  THE 
MINIMUM  IMPULSE  ZUNE,  ARE  COMPUTED.  l/ACCONT  ALSO  SETS  ACCSWU  AND  ACCSWV,  WHICH  INDICATE  WHEN  1 JET  ACCELERATION 
IS  NOT  SUFFICIENT  TC  PRODUCE  MINIMUM  ACCELERATION.  AT  THE  COMPLETION  OF  1/ACCS,  THE  ACCSOKAY  RIT  IS  SET. 

R3335 

SUBROUT  INES  CALL  ED: 

R 0036 

R 0 0 3 7 
R3  3 3 R 

T I MEGMBL 

MAKECADR 

R0T45DEG 

10039 

CALLING  SEQUENCE: 

A 3 0 4 7 

A 0041 

TC  BANKCALL  (1/ACCS  MUST  BE  CALL  BY  BANKCALL 

CADI  I/ACCS 

10042 

NORMAL  EXIT:  VIA  BANK  JUMP  ALARM  AND  ABORT  EXIT  MODES:  NONE. 

R3043 

INPUT/OUTPUT:  SEE  PROGRAM  DESCRIPTION 

R 0044 

DEBR  I S: 

ROC‘4  5 

ALL  OF  THE  EXECUTIVE  TEMPORARY  REGISTERS,  EXCEPT  FJXLOC  AND  OVFIND,  AND  THE  CORE  SET  AREA  FROM  MPAC  TO  BANKSET. 

R 004  7 

RESTRICTIONS: 

R 0048 
RD  34  9 

1/ACCS  MUST  RE  CALLED  8Y  "ANKCALL 

E 8 ANK  IS  SET  TO  6,  BUT  NOT  RESTORED. 
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001  PAGE  1974 


L ACS  TASK  AND  AOS  JD  8 


USER'S  PAGE  NO.  2 


E3  S 4 


0050 

3 3 51  PEE 
0C52 


LAST 


146  5 


21  ,3550 
21,  20 CO 
21 , 3550 


BANK  21 
SETLCC  PAPS4 
BANK 


0053  RFF  1 

D >54  REF  26  LAST  1472  E6,l536 


CCU  NT  * t */  DAP  AO 

EBANK=  AOSO 


-55  ENTRY  IS  THROUGH  1/ACCJOB  CR  1/ACCSET  WHEN  1/ACCS  IS  TO  HE  DONE  AS  A SEPARATE  N3VAC  JOB. 


«D057  IT  IS  POSSIBLE  FOR  MORE  THAN  ONE  OF  THESE  JOBS  TO  BE  SET  UP  CONCURRENTLY.  HOWEVER,  SINCE  THERE  IS  NO  CHECK  OF 
R0<  50  NEWJCR,  A SECCNO  M AN  I FEST  AT  ICN  CANNOT  BF  STARTED  UNTIL  THE  FIRST  IS  COMPLETED. 


0061  PFF  323 

335.2  PFF  27 

0063  RFF  10 

0 0 64  REF  B 

0065  RFF  7 


5 5 ' 5 3 6 1 
LAST  1415  21  ,3552  55*  540  0 

LAST  14  15  21,  3 5 F 3 55*424  C 

LAST  1415  21,  3554  55*  425  1 


l /ACCSET 


CAF 

TS 

TS 

TS 

TS 


ZERO 
AOSO 
AOSR 
A L PH  AC 
A LPHAR 


ENTRY  FROM  FRESH  S T AR  T /P  E STAR  T COOING. 
NULL  THE  OFFSET  ESTIMATES  FOR  1/ACCS. 

NULL  THE  OFFSET  ESTIMATES  FOP  DOWNLIST 


1390 
■37  3 


21,3555  C 4616  l l/ACCJOB  TC 
21,  3556  40465  1 CAOR 


BANKCALL  1/ACCS  ASSUMES  ENTRY  VIA  BANKCALL. 

1/ACCS  +2  SKIP  EBANK  SETTING. 


0068 


RFF  I4R 


LAST  1 380 


21  ,3557  0 5155  0 


TC  FNOOFJCIR 


00  68  2 
00683 
006B4 
DD6R5 


REF 

PFF 


5 LAST 
3 LAST 


20,2463 
143  2 20,  2000 

2C  ,2463 
44  TO  45: 


4* 


BANK  20 
SETLOC  TAP  S3 
BANK 

COUNT*  f,*/DAPAG 


0069 

0070 


12 

56 


LAST  1 3°6 
LAST  13^7 


2C ,2463  3 6015  O 1/ACCS  CA  E BANK  6 

20,2464  54  003  0 TS  EBANK 


*****  EBANK  SET  BUT  NCT  RESTORED  ***** 


0071  REF  16  LAST  1365 

0072  RFF  1 


20,  2465  0 4645  1 

23  ,2466  54  117  1 


TC  MAKECADR  SAVE  RETURN  SO  THAT  BU  F2  MAY  BE  USED 

TS  ACCR  ETRN 


R3  373 
0074 
OC  75 

0076 

0077 


0078 

0079 

0080 


DETERMINE  MASS  OF 
L Ar  T 1441 
RFF  11  LAST  1440 
REF  1 

RFF  519  LAST  1470 
REF  II  LAST  319 
REF  11  LAST  855 
REF  12  LAST  319 


' 20, 2 467 
20,2470 
2C,  247  1 
20  ,2472 

20.2473 

20 . 2474 
20  ,2475 


3 0111  0 
7 4737  1 
54  157  0 
10  000  C 

4 1327  1 
6 12450 
55 ' 326  0 


CA  3APB00LS  IS  CSM  OOCKEO 

MASK  CS  M COCK  C 

TS  DOCKTEMP  STORE  RECORD  OF  STATE  IN  TEMP  (MPAC  +3). 

CCS  A 

CS  CS  MM  ASS  DOCKED:  LFMMASS  = MASS  - C SMMA  SS 

AD  MASS  LFM  ALONE:  LFMMASS  = MASS 

TS  LEMMASS 


R3081 
R 0082 
3 0083 
RD386 


ON  THF  BASIS  OF  APSFLAG: 

SET  THF  P-AXIS  PATE  COMMANT  LIMIT  FOR  2- JET  / 4- JET  CONTROL 

SFT  MPAC,  WHICH  INDICATES  THF  PROPER  SET  CF  COEFFICIENTS  FOR  THE  LEM-ALONE  F(MASS)  CALCULATIONS 
ENSURE  THAT  THE  LEM  MASS  VALUE  IS  WITHIN  THE  ACCEPTABLE  RANGE 


00855 


20  ,2476  0 C004  0 


INHINT 
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3086 

PEF 

2 4 

L AST 

144  1 

20, 2477 

30 

106 

0 

CAE 

FLGWRDl  0 

DETERMINE  WHETHER  STAGED. 

0087 

REF 

16 

LAST 

1441 

20  ,2500 

7 

4737 

1 

MASK 

AP  SFL  B I T 

0088 

20,2501 

C 

CC06 

1 

EXTEND 

0089 

PEF 

1 

2(  , 2 5(  2 

1 

2526 

0 

8ZF 

0 P SF  LI  TF 

0090 

RFF 

41 

LAST 

146  2 

20  ,2  503 

4 

4733 

0 

CS 

POSMAX 

ASCFNT  (OR  ON  LUNAR  SURFACE) 

339  1 

REF 

3 

LAST 

14  26 
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LA  ST 

1478 

20,2753 

3 150  7 

1 

CA 

ACCDOT  Q 

0275 

REF 

2 

LAST 

1478 

20,  2754 

1 2756 

0 

TCF 

STACCDOT 

0276 

REF 

326 

LAST 

1478 

20,2755 

3 4755 

1 

Z ACCDOT 

CAF 

ZERO 

9:12  OCT.  21,1970  ZLNDAP 


001  PAGE  1470 


USEP’S  PAGE  NO.  A E6  S4 

D AT  2(141 . 


SCALED  AT  B FEET  . 


GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

STALED  AT  PI/2C7) 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

SCALED  AT  P 1/2  (7  ) 

• 3ACCD0TQ  SCALED  AT  PI/2(8) 

• 3ACCD0TR  AT  PI/218) 


NOW  COMPUTE  QACCDOT , RACCDOT,  THE  SIGNED 
JERK  TERMS.  STORE  CHANNEL  12.  WITH  GIM 
BAL  DRIVE  BITS  9 THROUGH  12.  SET  LOOP 
INDEX  TO  COMPUTE  RACCDOT,  THEN  OACCDUT. 

ACC  DOT  Q AND  ACCDOTR  ARE  NOT  NEGATIVE, 
BECAUSE  THEY  ARE  MAGNITUDES 

MASK  CHANNEL  IMAGE  FOR  ANY  GIMBAL  MOTION 


IF  NONE,  Q ( R ) ACCDOT  IS  ZERO. 

GIMBAL  IS  MOVING.  IS  ROTATION  POSITIVE. 


IF  NOT  POSITIVE,  BRANCH 

POSITIVE  ROTATION,  NEGATIVE  0(P)  ACCDOT. 


NEGATIVE  ROTATION, 


POST  TI  V E Q ( R ) ACCDOT  . 


AP:  ASSEMBLE  REVISION  56  OF  AGC  PRC  GRAM  ZERLINA  BY  ZOROASTER 


AOSTASK  AND  AO  SJOB 


0277 

REF 

931 

LAST 

147  8 

2Q, 2756 

60  154 

1 

STACCDOT  INDEX 

MP  AC 

02  78 

REF 

6 

LAST 

147  1 

20  ,2757 

55*510 

0 

TS 

3ACCD0T 

9279 

REF 

932 

LAST 

1479 

20, 2760 

10  154 

0 

CCS 

MPAC 

02  RO 

REF 

2 

LAST 

1478 

20,2761 

1 2733 

0 

TCF 

LOOP  3 - 1 

0281 

REF 

6? 

LAST 

1474 

20,2762 

4 Dill 

1 

CS 

0 A PBC10L  S 

9 282 

REF 

6 

L AST 

1440 

2C,  2763 

7 4736 

0 

MASK 

USEOR  JTS 

0283 

20  ,2764 

0 0006 

1 

EXTEND 

0 284 

REF 

1 

20,2765 

1 3712 

1 

BZF 

DOWNGTS 

02  85 

RFF 

6 

L AST 

149  1 

20, 2766 

4 12t3 

0 

C S 

T5ADR 

0286 

REF 

1 

20  ,2767 

6 3772 

0 

AD 

PAX  ISADR 

02  R7 

20, 2770 

C CCC6 

1 

EXTEND 

C 2 88 

20,-2  771 

1 2773 

1 

BZF 

+ 2 

0289 

REF 

2 

LAST 

1479 

20,2772 

1 3712 

1 

TCF 

DOWNGTS 

9290 

REF 

6 

L AST 

1460 

20,  2773 

1 1 '632 

0 

CC  S 

I NG  TS 

0291 

RFF 

1 

20  ,2  774 

1 2777 

0 

TCF 

DOCK  TEST 

0292 

REF 

65 

LA  ST 

1468 

20,2775 

0 4674 

0 

TC 

IBNKCALL 

0293 

RFF 

2 

L AST 

1438 

20,  2776 

43232 

0 

CADR 

TI  MEG  MR  L 

0294 

REF 

4 

LAST 

147  5 

20  ,2777 

10  157 

0 

COCKTEST  CCS 

DOCKTEMP 

9295 

R EF 

1 

20,  3000 

1 3675 

1 

TCF 

1/ ACCRET 

02  96 

REF 

2 

LAST 

1477 

20,3001 

1 3235 

l 

TCF 

1 /ACCOM  T 

9:  12  OST.  21,1970  ZLMDAP 


PAGE  1*79 


.001 

USER'S  PAGE  NO.  7 E6  S4 


STORE  Q ( R ) ACCOO  T . 

NOW  DO  QACCDOT. 

IS  GIMBAL  USABLE? 


NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YES.  IS  THE  DAP  RUNNING? 


NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YES.  IS  GTS  IN  CONTROL? 

YES.  PROCEED  WITH  1/ACCS. 

NO.  NULL  OFFSET  AND  FIND  ALLOWGTS 


BYPASS  1/ACCDN  T WHEN  DOCKED. 


GAP  : ASSEMBLE  RE  VI  SIGN  56  GF  AGC  FRCGRAM  ZERLINA  BY  ZOROASTER 
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L A OS  TASK  ANC  AOSJOB  US  F.R  • S PAGE  NC.  8 Eft  S4 

P'297  SUBROUTINE:  CVCVSUB 

RO 298  AUTHOR:  C.  WORK,  MOO  C 12  JLNE  68 

RC?99  PURPOSE:  THIS  SUBROUTINE  PROVIDES  A S IN  GL  E-PR  EC  I SI  ON  MARINE  LANGUAGE  DIVISION  OPERATI  ON  WHICH  RETURNS 
10?'  1 (1)  THF  QUOTIENT,  IF  TEE  DIVISION  WAS  NORMAL. 

R3332  (2)  NEGMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  NEGATIVE. 

R03(  ? (3)  POSMAX,  IF  TEE  QUOTIENT  WAS  IMPROPFR  AND  POSITIVE  OR  IF  THERE  WAS  A ZERO  DIVISOR. 

303"  5 THE  CALLING  PROGRAM  IS  PRESUMED  T C.  BE  A JOB  IN  THE  F BANK  WHICH  CONTAINS  DVOVSUB.  E BANK  MUST  BE 

R3  3‘  7 ThE  DIVISOR  FDR  THIS  ROUTINE  MAY  BE  IN  EITHER  FIXED  OP.  ERASABLE  STORAGE.  SIGN  AGREEMENT  IS 

RC3(  ^ ASSUMED  BETWEEN  THE  TWC  HALVES  OF  THE  QIVIOEND.  (THIS  IS  CERTAIN  IF  THE 

R'  311  SOI  T OF  A MULTI  PLI  CATI  CN  OPERATION.  ) 

R0312  CALI  SEQUENCE: 

A 03 1 3 L TC  DVOVSUB 

A3  3 1 4 L +1  ADPES  (DIVISOR) 

A 031 5 L +2  RETURN  HERF  , WITH  RESULT  IN  A , L 

>9316  INPUT: 


PFGl  STER  S AP  E THE  RE- 


R 032 0 OUTPUT:  QUOTIENT  AND  REMAINCEF,  f R PCSMAX  (NEGMAX),  WHICHEVER  IS  APPROPRIATE. 

RD322  DEBRIS:  SCRA  TC  HX,  SC  R A TC  H Y,  SC  RA  TC.HZ  , A , L (NOTE:  SCRATCHX,Y,Z  ARE  EQUATED  TO  MPAC  +4,  +5, AND  +6.) 

R '*  3 2 4 ABORTS  OR  ALARMS:  NGNE 

30  325  EXITS:  TQ  THE  CALL  POINT  + 2. 

R0326  SUBROUTINES  CALLED:  NONE. 


0327 
0 328 
0329 
0 330 

0331 

0332 
0 333 

0334 

0335 


REF  1 
PEF  l 
REF  425 


PEF  426 
RFF  62C 


LAST  1472 

LAST  1480 
LAST  1474 


20  ,-»0C2 
2 f ,3003 
20, 3004 
2 C , 30  C 5 

. 

20,  300  7 
20,3010 
2C, 3011 
20  ,30  12 


54  161  0 
5 4 160  1 
50  002  0 
3 0000  1 
24  CC2  0 
50  OOO  l 
3 0000  1 
C 0CC6  1 
1 3041  0 


OV  OVSUB 


TS  SCRATCHY 

TS  S CRATCHX 

INDEX  Q 
CA  0 

I NCR  Q 
INDEX  A 
CA  0 

E XTE ND 

BZF  MAXPLUS 


SAVE  UPPER  HALF  OF  DIVIDEND 

OBTAIN  ADDRESS  CF  DIVISOR. 

ST  F P Q FOR  PROPER  RETURN  SEQUENCE. 

P ICK  UP  THE  DIVISOR. 

RETURN  POSMAX  FOR  A ZERO  DIVISOR. 


0336  REF 


20,3013  54  162  0 


TS  S CR  AT  CF  Z STORE  DIVISOR. 


03  3 7 
0 33  8 
J 339 
03  4r 


REF  521  LAST  143  0 
RFF  72  LAST  1471 
PEF  1 

RFF  73  1 AST  ] 4«0 


20, 30  14  10  000  0 

20.3015  6 4753  1 

20. 3016  1 3C20  1 

20 , 3 C 1 7 6 4753  1 


CCS  A GET  ABS(DIVISOR)  IN  THE  A REGISTER. 

AD  B IT  1 

TCF  ZERCPLUS 

AD  RIT1 


$}}  ref 

0343  REF 


LAST  1480 


; : 

20  ,3022 


56  161  1 ZEPOPLUS  XCH  SCRATCHY 

C 0006  1 EXTEND 

6 3024  1 BZMF  GOODNEG 


STORE  ABS  (D  IV  ISOR  ) . PICK  UP  TOP  HALF  OF 
DIVIDEND. 

GET  -ABS(DIVIDEND) 


SAP:  ASSEMBLE  REVISION  56  OE  AGC  PRCC-RAM  ZERLINA  BY  ZOROASTER 
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L AOSTASK  ANO  AO  SJOB 


USER'S  PAGE  NO.  9 E6  S4 


0344  REF  522  LAST  1480 


20,  30  23  A OCOO  0 


C S A 


345  REE 
3346 

0347  REF 


3 LAST  1480 
1 


20.3024  6 0161  1 

20. 3025  C C0C6  1 

20,  3026  6 3033  1 


GOODNEG 


AD  SCRATCHY 

EXTEND 

3ZMF  MAKE  MAX 


ABS(  DIVISOR)  - AB  S(  DI  VIDEND) 
BRANCH  IF  DIVISION  IS  NCT  PROPER. 


0348 
3349 
0350 
035  1 


REF  2 

REF  2 
PFF  A 2 7 


LAST  1480 

LAST  1480 
I A ST  148r 


20,3027 
20,  3o  30 
20,3031 
20.3C32 


3 0160  0 
0 0006  1 
10  162  0 
C 0CC2  0 


CA  SCRATCHX 

E XTEND 

DV  SCRATCHZ 

TC  0 


RE-ESTABLISH  THE  DIVIDEND. 

QUOTIENT  IN  THE  A,  REMAINDER  IN  L. 
RETURN  TO  CALL  EP  . 


0352 

0353 
3354 
0355 
0 356 
3357 
0358 
03  59 


REF  3 LAST  148  1 
RFF  3 LAST  1481 
REF  2 LAST  1480 
REF  4 LAST  1481 
REF  12  LAST  1477 
REF  428  L AST  148  1 
RFF  43  LAST  1476 
REF  429  LAST  1481 


20, 3o  3 3 

20.3034 

20. 3035 

20.3036 

20.3037 
20,  30  40 
20  ,304  1 
20, 3042 


10  160  1 MAKEVAX 
10  162  0 
1 3C41  0 
10  162  0 
3 4735  l 
0 0002  0 

3 4733  l MAXPLUS 
C 0C02  0 


CCS  SCRATCHX 

CCS  SCRATCHZ 

TC  F MAXPLUS 

CCS  SCRATCHZ 

CAF  NEGMAX 

TC  Q 

CAF  PDSMAX 

TC  Q 


DETERMINE  THE  SIGN  OF  THE  QUOTIFNT. 
SCRATCHX  AND  SCRATCHZ  ARE  NON-ZERO. 


R036C  COEFFICIENTS  FOR  THE  JET  ACCELERATION  CURVE  FITS 
3C361  THE  CURVE  FITS  APE  OF  THE  FOPM  - 

R0  36  2 1 J ACC  = A/IMASS  + C)  + B 


R 0363  A IS  SCALED  AT  PI/4  RAC/SEC**2  B + 16KG,  R IS  SCALED  AT  PI/4  RAD/SEC**?,  AND  C IS  SCALED  AT  B +16  KG. 


THE  CUPVF  FIT  F OT  L,PVT-CG  I S CF  THE  SAMF  FORM,  EXCEPT  THAT  A IS  SCALED  AT  8 FT  B + 16  KG,  B IS  SCALED  AT  H FT, 
AND  C IS  SC  ALEC  AT  P + 16  KG. 


( 368 
3 368 


20,3043  01240  0 2 DEC  +.0410511917  L A DESCENT 

20,  3044  22m  0 


0369 
0 369 
03  70 

0370 
2 3 7 1 

0371 


20  ,3  >45  0014  1 

2C, 3946  C 7 4 1 6 
20,  3047  00030 
20  ,3050  21261 

20.3051  CCC21 

20.3052  03766 


0 I NERCON  A 2DFC 
0 

1 2de: 
i 

1 2DEC 

0 


+.0059347674 
+ . 0014979264 
♦.0010451889 


1JACCP  A OF  SCE  NT 
1JACC0  A DESCENT 
1JACCR  A DESCENT 


0 373 

0373 

0374 
'>374 


2t,  39  54 

• 

2f , 30  c 6 
20,  30  57 
1 . ( 


00072 
241  C3 
00  1 75 
11511 


0 

1 
1 
0 
0 
1 


2 DEC  +.0065443852 
2DEC  +.0035784354 
20FC  +. 0C5 69 46631 


1JACCP  A ASCENT 
1JACCQ  A ASCENT 
1JACCR  A ASCENT 


20. 3061  C4754  0 

20.3062  77  142  0 


DEC  +.  155044  L B DESCENT 

DEC  -.  025233  L C DESCENT 


GAP: 


ASSEMBLE  REVISICN  56  OF  AGC  PROGRAM  7ERL  IMA  BY  ZOROASTER 


L AOSTASK  AND  AOSJOB 


*>377 
0378 
0 370 

0380 

0381 
3382 


20,  3C  6 3 CCC6 1 0 

20  ,3064  00217  0 

20,3065  00464  1 

20,  3066  75642  0 

20,3067  00536  1 

20,  3C70  7 5 7C 5 1 


I NERCONB  DEC  +.0029R9 

IMERCOMC  DEC  +.008721 

DEC  +.018791 

DEC  -.068163 

DEC  +.021345 

DEC  -.066027 


0 3 R 3 
: 384 
33R5 


0 386 

0387 

0388 


20,3071  00001  0 

20 , 3 0 72  77616  0 

20,  3073  05  154  1 

20  ,3074  0O052  0 

2C , OC  75  C 02  31  1 

2o, 3076  77174  0 


DEC  +.0CO032 
DEC  -.006923 
DEC  +.162862 
DEC  + . 002588 
OEC  +.00931? 
DEC  -.  023608 


0389 
9393 
0 391 

0 39? 
7393 
0394 
0 39  5 
03  96 
0397 
3398 
R0399 


20,3077  01400  1 

20. 3100  C1C00  C 

20.3101  06000  1 

2 C , 3 1 02  04000  0 

20,  3103  22146  0 

20  ,3104  13241  1 

2C , 3 1C5  CC337  0 

20,  3106  2fc60l  1 

20,3107  51276  0 

20,  3110  62362  1 

-DCCKED  INERTIA  COMPUTATIONS 


G 1 MBLBTS  OCTAL  D 1400 
OCTAL  01 000 
OCTAL  060C0 
OCTAL  04000 
DGBF  DEC  0.6 

0.35356  DEC  0.35356 

GFACTM  OCT  337 

.7071  DEC  .70711 

-.7071  DFC  -.70711 

-EPSMAX  DEC  -.42265 


0400 
04  ( 1 
0402 
3433 


REF  162  LAST  1477 
PEF  1 

PFF  163  LAST  148? 
PEF  1 


3 4753  1 OCCKED  CA 
54  160  1 SP  SLOOP  1 TS 


20,3113  3 4753  1 CA 


20, 3114  64  161  0 


TS 


ONE 

COEFC  TR 
ONE 

MASSCTR 


04.  4 
04(5 
3406 
040  7 
0 40  8 
04  09 


REF  20 
REF  13 


LAST  1482 

LAST  1476 
LAST  1475 


20.3115 

20.3116 
2C, 3117 
20  ,3120 
2<  , 3121 
20 , 3 1 2 2 


50  160  0 
3 3216  1 
C 0006  1 
7 1326  0 
C CCC6  1 
7 1327  1 


INDEX  COEFC  TR 
CA  CC3EFF  -1 

E XTEND 

MP  LEMMASS 

EXTEND 

MP  CSMMASS 


041' 

3411 

0412 

0413 


RFF  3 LAST 
REF  2 LAST 
RFF  933  LAST 


1482  20,3123 

1482  2C, 2124 

1479  20,  1125 

20,3126 


50  160  0 
6 3217  0 
54  154  o 
1 3132  0 


INDEX  COEFCTR 
AD  COEFF 

TS  MPAC 

TCF  +4 


3414  REF 
041  5 

0416  PFF 

04 1 7 REF 

0418  PEF 
3419 


2 


LAST  1482 

1 A ST  1482 
I AST  1 4R  2 
LAST  1482 


20,  3127 
20  ,3133 
20,3  131 
20, 3 132 
20  ,3133 
20, 3 134 


5 4 1 6. 1 0 
0 OOC 6 1 
26  160  1 
50  IfcC  0 
3 3221  0 
C 0CC6  1 


SPSL00P2  TS  MASSCTR 

EXTEND 

DIM  COEFCTR 

INDEX  COEFCTR 

CA  COEFF  +2 

EXTENO 


9:12  CCT.  21,l<»70  ZLMCAP  .001  PAGE  1482 
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1 JACCP 
1JACCP 
1JACCQ 
l JACCO 
1J  ACCR 
1 J ACCR 


1 JACCP 
1JACCP 
1 J ACC  C 
1 JACCO 
1 J ACCR 
1 JACCR 


DFS  CENT 
PE  SCENT 
CESCFNT 
DESCENT 
DE  SCFNT 
DESCENT 


ASCENT 

ASCENT 

ASCENT 

ASCENT 

ASCFNT 

ASCENT 


.3  SCALED  AT  1/2 
. 7C 7 1 1 SCALED  AT  2 
979.24/  2.20462  AT  B + 15 


COFFTR  = 1 FDR  INERTIA  COEFFICIENTS 

= 7 FOR  CG  COEFFICIENTS 

MASSCTR  = 1 FOR  C SM 

= 3 FOR  L EM 


COEFF  - 1 


C 


LET  X = CSMMASS  ANC  Y = LEMMASS 


COEFF  = F 

MPAC  = C X Y + F 


LOOP  TWICE  THROUGH  HERE  TO  OBTAIN 
MPAC  = MPAC  + (A  X +D ) X + (B  Y +E)Y 
LOOP  HI  LOOP  HZ 


COEFF  +2  = A DR  B 


GAP:  ASSEMBLE  REVISION  56  OF  A3C  PROGRAM  ZERLIKA  8Y  ZOROASTER 


L AOS  TASK  AND  AnSJOB 


C420 

RFF 

3 

l AST 

1482 

2C  ,3135 

5 0161 

1 

INDEX 

MASSCTR 

5421 

REF 

21 

LAST 

14H2 

20, 3136 

7 1326 

0 

MP 

LE  MMASS 

0422 

REF 

6 

LAST 

1492 

20,3137 

50  160 

0 

INDEX 

COEFCTR 

'423 

RFF 

4 

L AST 

1482 

20,3140 

6 3223 

1 

AD 

COEFF  +4 

5 42  4 

20,  3141 

C 0006 

1 

E XTEND 

0425 

RFF 

4 

LAST 

148  3 

20  ,3142 

5 0 16  1 

1 

INDEX 

MASSC  TR 

C 4 26 

REF 

22 

LAST 

1483 

20,3143 

1 1326 

0 

MP 

LEMMASS 

0427 

RFF 

934 

LAST 

148  2 

20, 3144 

2t  154 

0 

AD  S 

MPAC 

042  8 

REF 

5 

LAST 

1483 

20,3145 

1 C 1 61 

0 

CCS 

MASSCTR 

5422 

RFF 

1 

20,  3146 

1 3127 

1 

TCF 

SPSL00P2 

0430 

REF 

7 

LAST 

1483 

20,3147 

1C  160 

1 

CCS 

COEFCTR 

0431 

20,31 50 

1 3157 

0 

TCF 

+7 

3432 

2C, 3151 

00000 

1 

TORQCONS  2DFC 

0.  51443  B-14 

0432 

20  ,3152 

20354 

1 

'■433 

REF 

9 35 

LA  ST 

1483 

20,3153 

2 0154 

1 

CA 

MPAC 

043  4 

REF 

936 

L AST 

14H  3 

20, 3154 

54  155 

1 

TS 

MPAC  +1 

r 435 

PFF 

26 

LAST 

146  9 

20  ,3155 

3 4757 

0 

CA 

S EVEN 

3436 

P EF 

1 

20,  3156 

1 2112 

1 

TCF 

S PSL00P1 

04-7 

REF 

1 

20,3157 

3 3216 

1 

CA 

1JACCC0N 

>438 

20,3160 

2 2 007 

0 

ZL 

3439 

REF 

4 

1 AST 

1478 

2C,  316  1 

C 3C02 

c 

TC 

DVOVSUB 

0440 

REF 

14 

LAST 

1477 

20 ,3162 

01245 

0 

ADRES 

MASS 

0441 

R FF 

e 

LAST 

1476 

20,3  163 

5 5*  5 30 

l 

TS 

1 J ACC 

0442 

REF 

44 

L AST 

1481 

2j,3  164 

4733 

1 

CA 

POSMAX 

T 44  3 

PFF 

2 

LAST 

1423 

20  ,3165 

55' 550 

1 

TS 

1/ ANETP 

3444 

RFF 

3 

LAST 

1 4 c 2 

20, 3166 

55' 570 

0 

TS 

1/ANET2  +1 

0445 

RFF 

4 

LAST 

1483 

20 ,3167 

5 6 1 57  1 

1 

TS 

1/ANET2  +2 

0446 

RFF 

5 

LAST 

1463 

2 C , 3 1 70 

55' 61 0 

0 

TS 

1/ANET2  +170 

3447 

REF 

6 

1 AST 

14  83 

20,  3171 

55*611 

1 

TS 

1/ANET2  +180 

'448 

20  ,3172 

0 0006 

1 

EXTEND 

0 449 

REF 

1 

2C,3 173 

3 3152 

1 

DC  A 

TORQCONS 

04  50 

20, 3174 

C 00  C 6 

1 

E XTEND 

0451 

REF 

937 

LAST 

1483 

20  ,3  175 

10  155 

1 

DV 

MPAC  +1 

345? 

20, 3176 

C 0004 

0 

I NH I NT 

0453 

REF 

6 

LAST 

1478 

20,  3i  77 

55*531 

0 

TS 

1 JACC  Q 

0454 

REF 

6 

LAST 

1478 

20,3200 

55*  532 

0 

TS 

1 J ACCR 

3455 

REF 

2 

L AST 

14  77 

2o,  3 20  1 

3 3107 

1 

CA 

7071 

0 4 56 

RFF 

7 

LAST 

14  77 

20  ,3202 

5 5*6  26 

0 

TS 

COEFFQ 

: 457 

REF 

2 

LAST 

1476 

2°  , ? 2L  3 

3 3106 

0 

CA 

.7071 

0458 

REF 

6 

LAST 

1477 

20 , 3 2o  4 

c5  *627 

1 

TS 

COEFFR 

0459 

REF 

15 

L AST 

14  8 3 

20,320  5 

3 1245 

0 

CA 

MASS 

3463 

20, 32C6 

C 00C6 

1 

EXTEND 

0461 

REF 

93r 

LAST 

148  3 

20,  3?0  7 

7 0154 

0 

MP 

MPAC 

0462 

20,3210 

0 0006 

1 

EXTEND 

3463 

*REF 

6 

LAST 

1477 

2C,  32  1 1 

7 1250 

0 

MP 

ABDVACC 

0464 

REF 

5 

LAST 

1483 

20 ,3212 

0 3002 

0 

TC 

DVOVSUB 
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COEFF  +4  = E OR  D 


IF  COE  FC  TR  IS  POS  , EXIT  FROM  LOCP  WITH 
CG  X DELDOT  = MPAC  X 4 PI  RAD-CM/SEC 
CORRESPONDS  TO  500  LB-FT 


INERTIA  = I MPAC  +1)  X 2(38)  KG-CMI2) 


1 JACC  =1  JACCCON/MASS 


SCALED  AT  PI/4 

SET  INVERSE  JET  ACCELERATIONS  TO  POSMAX, 
WHICH  CORRESPONDS  TO  ACCEL.  OF  1.4  O/SS. 


SCALED  AT  PI/4 

COEFFQ  ANO  COEFF  R ARE  CHOSEN  TO  MAKE  U- 
ANO  V- AXES  ORTHOGONAL  FOR  DOCKED  CASE 

SCALED  AT  21  16)  KG 

SCALED  AT  4 PI  RAD-CM/SEC 


SCALED  AT  2(13)  CM/SEC/SEC 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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465 

0466 


0468 

A046O 

A3473 


AOSTASK  AND  AOSJOB 
REF  93g  L AST  1483 
LAST  1478 


USER'S  PAGE  NO.  12 


REF 


1 


20, 

20  ,3214 


00155  0 
55'  511 


20. 3215  1 2716  1 

20.3216 


ADRES  MPAC  +1 

TS  ACCPOTR 

TCF  SPSCONT 


CONT  CONTINUE  K,  <SQ  CALCULATIONS 

00167  1 1JACCC0N  OCT  00167  SCALED  AT  PI/4X2I16)  RAD/S  EC  (2 ) -KG 

2 2 

COEFFICIENTS  FOR  CURVE  FIT  OF  THE  FORM  Z=  A X +P  Y +C  X Y +D  X +E  Y 


'■4  71 
")  4 7 ,? 
04  7 3 
• 4 74 
3475 
C'4  76 


20  ,3217  C 6 1 76  l COEFF 

20,3220  17650  1 

20,3  221  12  260  C 

20  ,3222  76637  1 

20, 2223  C2167  0 

2C,  3224  00645  0 


PEC  .19518 

DEC  -.00529 

DEC  -.17670 

DEC  -.03709 

DEC  .06974 

DEC  .02569 


C COEFFICIENT  CF  I NFRTI  A 

F • • 

R • • 

E • • 

D • ' 


0 477 
14  78 
0479 
0 480 
04  fll 
04  82 


20.3225  C6335  I 

20.3226  04256  1 

20  ,3227  30163  0 

20.3230  6 4 C 7 2 0 

20.3231  53632  0 
20  ,3232  15133  1 


DEC  .20096 

DEC  . 13564 

DEC  .75704 

DEC  -.37142 

DEC  -.63117 

DEC  .41179 


COEFFICIENT  OF  CG 


R3483  ASSIGNMENT  OF  TEMPORARIES  FOR  1 /ACC  S (EXCLUDING  1/ACCONT) 


AC  40  4 
0 4 85 
3486 
D487 
7480 
0489 


REF  940  LAST  1484 
RFF  94 1 L AST  1484 
RTF  942  LAST  1484 
RFF  4 LAST  148  1 
REF  5 LAST  1484 


0160 
0 1 6 1 
0163 
Olfcl 
0 162 


MPAC,  MP AC  +1,  MP AC  +2  USED  EXPLICITLY 
CGEFCTR  EQUALS  MPAC  +4 
MA  SSC  TR  EQUAL  S MPAC  +5 

SCRATCHX  EQUALS  MPAC  +4  SCRATCH  AREA  FOR  DVOVSUB  ROUTINE. 

SCRATCHY  EQUALS  SCRATCHX  +1 
SCRATCHZ  EQUALS  SCRATCHX  +2 


C 490  REF  943 

3491  REF  944 

0492  REF  5 

0493 


LAST  1476 


0157 

0155 

0155 

20,3233 


DCCKTEMP  EQUALS 
EPSILON  EQUALS 
-EPSILON  EQUALS 
-.1875  DEC 


MPAC  +3 
MPAC  +1 
EP  S IL ON 
-.18750 


RECORO  OF  CSMDOCKED  BIT  OF  DAPBOULS 


71777  0 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZCROASTER 


ACSTASK  AN  C AOSJOB 


REF  A LAST  1474 


20, 3234 
20  ,2000 
20 ,3234 


BANK  2 0 
SETLOC  DAP  S3 
BANK 


0498 

0499 


REF  28  LAST  1474  E6,  1536 

REF  4 LAST  1474  TO  1485:  361  365* 


ERANK=  AOSQ 
COUNT  * SS/OAPAO 


05cn 
0 50  1 
0 50  2 
3 5^3 
0504 
05  °5 

0506 

0507 
3 5 38 
0 50  9 


REF  6 1 
RFF  335 
REF  523 
RFF  1 
RFF  l 
REF  336 
REF  1 


LAST  1479  20,  3234  55  *632 

LAST  1396  20  ,3235  3 1343 

20,3236  0 0006 

LAST  1470  20,3237  7 4737 

LA  ST  1471  20  ,3240  54  001 

LAST  148  1 20,  324  1 6 CCCO 

20 , 32*2  54  1 1 5 

2", 3243  4 1343 

L AST  1405  20,  3244  fc  CC01 

20  ,3245  54  114 


0 -1  TS  INGTS 

1 1/  AC  CONT  CA  D0 

1 EXTEND 

1 MP  B I Tl  3 

1 TS  L 

1 AD  A 

TS  3BVAL3 

CS  DBVAL1 

0 AD  L 

1 TS  DBVAL2 


0510  20,3246  C CCC4  0 

All  REF  11  LAST  1474  20,3247  3 1*540  1 

0512  RFF  337  LAST  1485  20,3?50  54  001  1 

3513  REF  29  LAST  1485  20,  3251  31*  536  C 

05 1 4 PEF  66  LAST  1479  20,3252  0 4674  3 

0515  RFF  4 LAST  1440  20,3253  37200  1 

3516  REF  1 20,3254  53*543  0 


AO  SR 
L 

AOSO 
IBNKCALL 
ROT  -T  OUV 
AO  SU 


0517 

0518 
051  9 
0520 
3521 
052? 
0523 
3 524 


'5  26 
05  ? 7 
0528 
3529 
0530 
3 531 


REF  63 
REF  6 
REF  524 
REF  164 
REF  1 
REF  6 
REF  525 
PEF  1 
R EF  1 

REF  1 
REF  ? 
REF  1 
REF  1 


LAST  1479 
LAST  144  1 
LAST  1485 
LAST  1482 

LAST  1477 
LAST  1485 


LAST  14P5 


20.3256 

20.3257 

. 

20, 3261 
20,3  2 62 
2C,3263 
2C, 3264 
20  ,3265 

20.3266 

20. 3267 
l . ' ’ 7 
20, 3271 
20 , 3?  72 
20,3273 


0 OCC  3 1 
3 0111  0 
7 4744  0 
10  000  0 
3 4753  1 
54  116  0 
6 1502  1 
1C  COO  0 
3 3767  1 
54  151  0 

0 C006  1 

1 3274  1 
1C  116  0 
3 3766  0 
54  152  0 


P EL  INT 

CA  DAPBHflLS 

MASK  OR  IF  TBIT 

CCS  A 

CA  ONE 

TS  3RIFTER 

AD  ALLOWGTS 

CCS  A 

CA  FLATVAL 

TS  FLATEMP 

E XTEND 

BZF  DOPAXIS 

CCS  DRIFTEP 

CA  Z0NE3MAX 

TS  Z3TEM 


0532  REF 
A r 533 

0534  REF 

0535  REF 


9 LAST  1483 

,Q  LAST  146  4 
1 


20,  3274  2 1530 

20,3275  6 4743 

20,  3 276  c4  157 


0 DOPAXI  S CA 

0 AD 

0 TS 


1 JACC 

B I T9 
F UNTEM 


0536 


REF  10  LAST  148  5 


20,3277  3 1530  0 


CA 


1 JACC 
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ZERO  INGTS  IN  ASCENT 
INI  TIALI  ZE  DBVAL1  ,2,3 


0.  25  DB 
C. 50  DB 


COMPUTE  AOSU  AND  AGSV  BY  ROTATING 
AD  SO  AND  AO  SR. 


ZERC  DURING  ULLAGE  ANC  POWERED  FLIGHT. 
IF  DRIFTING  FLIGHT, 

SET  DR  I FT  ER  TO  1 

SAVE  TO  TEST  FOR  DRIFTING  FLIGHT  LATER 
NON-ZERO  IF  DRIFT  OP  GTS  NEAR 

DRIFTING  FLI3HT,  STORE  .8  IN  FLAT 
IN  POWEREO  FLIGHT,  STORE  ZFRD  IN  FLAT 

IF  POWERED  AMD  NO  GTS,  START  P AXIS, 

OTHERW  IS  E S ET  Z0NE3L  IM 

17.5  MS  , SCALED  AT  ^ SECONDS. 


1 JACC  AT  PI/4  = 2 JACC  AT  P 1/ 2 = 

ANFT  AT  PI  /?  = A NF  T /AC  OAST  AT  2(6). 
1 + ANET/  ACOAST  AT  2(  6 ) 


JAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCCP 


Z6RLINA  RY  ZOROASTER 


05  ?7 
05  3R 
J539 
05  4'' 

0541 
05 '+2 
0543 
9544 
054  5 
0546 

3547 

0548 
0 549 
0550 
r 551 


355? 
055  ’ 

9554 


557 
( 558 
55  1 
3563 

0561 

0562 
3553 
0564 
0 565 
0566 

9567 

3568 

0559 

?!?? 

0572 

0573 

0574 
0576 


AOSTASK  AND  AOSJD3 


PFF 

REF 


R FF  l 
PFF  7 
REF  3 
REF  165 

RFF  166 
PFF  2 
RFF  1 
PFF  3 
RFF  1 

REF  2 
REF  1 
PFF  1 


REF 

PEF 

REF 


148  3 
I486 

20. 3300 

20.3301 
20, 33C2 
20  ,3303 

1485 

1486 

20,3304 
20,  3 305 
20  ,3306 
20,  33C  7 

1485 

1486 

20  , 3310 

20.3311 

20. 3312 

20  ,3313 
20 , ’3  14 

i486 

20  , 3 3 1 5 
20  ,3316 

1485 

1485 

i&3&7 

20,3321 

1478 

20, 3322 
20  ,3323 

i486 

1486 

1485 

2C, 3324 
20,  3125 

29.3326 

20. 3327 

1486 

i486 

1486 

20.3330 

20.3331 

20. 3332 
20  ,3  333 
20,3324 
20, 3335 

1485 

20.3336 

20. 3337 
20, 3340 

I486 

148  5 

20,3341 

2o , 3342 
20  ,3343 
20, 3344 
20,  3 3^5 
20,3346 

I486 

I486 

20,  3 347 

20  ,3350 

C 3704  1 

0 0004  C 
55*550  1 
55*551  0 

1 4743  1 
C 0C06  1 
7 1550  1 
C CCC6  1 
10  157  0 
55*556  1 
c c • c c 7 0 

3 4733  l 
55*552  C 
c 5 * c 5 3 1 
0 C ^3  1 


22  CC  7 
10  116 
53*  543 


54  163  l 
5C  154  1 
11' 542  1 
6 4753  1 
1 3333  0 
6 4753  1 
24  163  0 
54  162  0 
4 C 1 63  1 
54  164  0 

3 1343  1 
54  143  0 
54  144  l 

3 9162  1 
6 3770  1 
fi  0006  1 
6 3436  0 
10  1C1  0 
1 3376  1 


TC  INVERT 

INHINT 

TS  1/ANETP 

TS  1/ANETP 


CS 


BIT9 


FUNTFM 
P ACC  FUN 
PACCFUN 

1 / . ( 3 
1 / ACCST  P 
1 /ACOSTP 


BOTH  AXES  TS 

INDEX 

CCS 


AD  ONE 

INCR  SIGNAOS 

TS  ABSAOS 

CS  SIGNACS 

TS  -SIGNAOS 

CA  DBVAL1 

TS  DBBl 

TS  DRB2 

CA  ABSAOS 

AD  -.03R/S2 

EXT  END 

B Z MF  NOT  MUCH 

CCS  F LA  TE  HP 

< IPDB1 


TCF 
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P AXIS  DATA  RUST  BE  CONSISTENT 
SCALED  AT  2(7  )/  PI  . 

-1  AT  2(6) 

-1/ANET  AT  2(  13)  /PI 

-1/lANET  + ANE  T**2 /ACOAST)  AT  2I7I/PI 

NO  AOS  FOR  P AXIS,  ACOAST  = AMIN 


ZERO  A3  SU, V IF  IN  OP  I F T , JUST  TO  BE  SURE 

DO  U AX  IS  COMPUT  AT  IONS 

ZERO  FOR  U AXIS,  ONE  FOR  V AXIS. 

CODING  COMMON  TO  U,V  AXES 

PICK  UP  ABS(AOSU  OR  AOSVI 

RFSTORE  TO  PROPER  VALUE 

AND  LEAVE  SIGNACS  AT  ZERO 

NEGATIVE,  RESTORE  TO  PROPER  VALUE 

AND  SET  SIGNAOS  TO  ONE  TO  SHOW  AOS  NEG 

SAVE  A3SIA0S) 

USED  AS  AN  INDEX 


SET  DB 1,  DR  2 TO  DBVAL1  (=  DB) 


TEST  MAGNITUDE  OF  ABS(AOS) 


ABS(AOS)  LESS  THAN  AMIN 
AR  S ( AOS)  GREATER  THAN  AMIN 
I DRIFT  OR  GTS,  DO  NOT  COMPUTE  DB 


GAP:  ASSEMRLF  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 
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Af'STASK  AND  AOSJOR 


USER'S  PAGE  NO.  15  E6  S4 


3 5 78 

0579 

0580 
05  81 
0582 
3583 
05  84 
0585 
3586 

0587 

0588 


0589 

0590 
359  1 
0.5  92 
0593 
3594 
0595 
0506 
05  97 
0598 


PEF 
REF 
..  t h 
PEF 


REF 

REF 

REF 


PEF 


RFF 

REF 

RFF 

REF 

REF 

REF 


92 


LAST  i486 
LAST  1486 


LAST  I486 


LAST  1485 
LAST  1487 


LAST  1477 


LAST  1485 
LAST  148  7 
LAST  I486 
LAST  1485 
LAST  i48  6 


20,3351 

20  ,3352 
20,3353 
20,  ^ 3 54 
20  ,3355 
20, 3356 
2p  , 3357 

20.3360 

20. 3361 
20  ,3362 
20,3363 
2C,  3 36  4 
20  ,3365 
20,  3366 
20,3367 

20.3370 

20. 3371 
20  ,3372 
20,3373 
20,  3374 
20  ,3375 


26  144  1 
50  163  0 
54  145  0 
2 3233  0 
6 0162  1 
C 0CC6  1 
6 3362  0 
4 0115  0 

1 3371  0 
4 0162  0 
6 0000  1 
6 COCO  1 
6 4736  1 

6 COCO  1 
C 0006  1 

7 1343  0 

5C  163  0 DRONE 
54  143  0 

2 0114  0 
50  164  1 
54  146  0 


ADS 

INDEX 

TS 

CA 

AD 

EXTEND 

BZMF 

CS 

TCF 

CS 

DOUBLE 

DOUBLE 

AO 

D OUR  LF 
EXTEND 
MP 

1 NDE  X 

TS 

CA 

INDE  X 
TS 


0BB2  0B2  (1  ) =2  OB 

S IGNAOS 

DBB4  DB4  (3  ) = I OB 

-.  1875  -.  1 875  PI/2  RAD/SEC  (2  ) SCALED  AT  P 1/ 2 

ABSADS  ARSADS  IS  SCALED  AT  P I /2 

+ 3 

DRV  AL  3 -.5  DB 

DBGNE 

ABSAOS 


R IT  14 


1-8  ABSAOS.  (9  IS  16/PI  SCALED  AT  2/pi) 


OR 

SIGNAOS  OBI  (2  >=(1-8  ABSAOS)  DR.  IF  ABSAOS  IS 

DBR  1 GREATER  THAN  . 1875  THEN  RBI  (2)=-. 5 DB 

DRVAL2 
-SIGNAOS 

0BB3  DB  3 ( 4)  = -. 75  DB 


0599 

0600 
060  1 
0 6 0 2 
0603 
06'*’  u 

0605 

0606 
0607 
06  08 


REF  5 

RFF  42 
PEF  6 
REF  2 
REF  4 
REF  1 
REF  2 
RFF  6 
REF  2 


LAST  1487 

LAST  1467 
LAST  148  7 
LAST  1486 
LAST  14P7 

LAST 
LAST 
LAST 


20. 3376 

20.3377 
20,3400 
20,  340  1 

20 .3402 

20.3403 
20 , 340  4 
20  , 3 4C5 
20,  3 4C6 
20,3407 


3 0162  1 
0 0006  1 
7 4740  1 
6 0 16  2 1 
0 3704  1 
5 C 164  1 
54  130  1 
3 4733  1 
50  163  0 
54  127  1 


148  6 
1487 
1487 


SKI PDB1 


CA 

EXTEND 

MP 

AD 

TC 

INDEX 

TS 

CA 

I NR  EX 
TS 


ABSAOS 


B IT  1 2 
ABSAOS 
INVER  T 
-SIGNACS 
1 /AC  0 ST  T 
1/  .03 
SI  GNAOS 
1/ACOSTT 


♦ 1 


ABS(AOS)  GREATER  T FAN  AMIN,  SO  IT  IS 


(9/8)  ABSAOS. 

ALL  RIGHT  TO  DI  VIDE 

1/AC0ASTP0S(NEG>  = 1/ABS(A0S) 


I /ACOA  STNEG  ( POS)  = 1/AMIN 


0609 

0610 
0611 
0612 

0613 

0614 


RFF  7 
REF  4 
REF  5 
REF  41 
REF  526 
REF  1 


LAST  14R7 
L AST  1477 
LAST  1487 
LAST  I486 
LAST  1485 


2p  , 3 4 1 1 
2D  ,3412 
20,3413 
20, 3 4 1 4 
20,3415 


3 0162  1 
6 1533  r 
6 1533  0 
6 4743  0 
54  000  0 
1 3462  0 


CA  ABSAOS 

AO  UACCU 

AD  UACCU  2 JACC  + ABS(AOS) 

AD  B I T9  MAXIMUM  V ALU  F IN  COMPUTATIONS 

TS  A TEST  FOR  OVERFLOW 

TCF  SKIP0R2  NO  OVERFLOW,  DO  NORMAL  COMPUTATION 


361*  RFF 
° 61  6 

0617  REF 
? 6 1 8 RFF 
0619  RFF 
A062C 

062 1 PFF 

0622  REF 
3623  RFF 
0624 


8 

93 

6 

1 


I AST  1487 

LAST  1487 
LAST  14P7 


20,  3416 
23  ,3417 
20,3420 
20 , 3 4 2 1 
20 ,3422 


2 C U2  1 
( 0006  1 
7 4736  0 
6 1533  0 
54  1 57  0 


LAST  143  1 
LAST  1487 
LAST  1487 


20, 3423 
' , t24 

20, 3425 
20  ,3426 


6 4 744  1 
56  157  1 
C 37C4  1 
0 0006  1 


CA  ABSAOS 

EXTEND 

MP  BIT14 

AD  1 JACC  U 

TS  ANET 

AD  3 I T 8 

XCH  ANET 

TC  INVERT 

EXTEND 


PFSCALE  TC  PI  TO  PREVENT  OVERFLOW 


1 JACC  AT  PI/2  = 2 JACC  AT  PI 
ANETPOS(NEG)  MAX  SCALED  AT  PI  = 

ANET  PUS  (N  EG  ) M AX/ ACOAS  TNEC.(  POS  > AT  2(7) 
1 + ANETPOS/AC  OASTNFC.  AT  2(7) 

SAVF  IN  ANET,  WHILE  PICKING  UP  ANET 


GAP:  ASSEMBLE  REVISION 


OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


AOSTASK  AND  AOSJOR 


0628 
"6  29 

3633 


REF  1 
PFF  1 

RFF  4R  LAST  1487 
R EF  1 


20,3431 
2[  , T/,3  2 

, 

20, 3434 


3 3435 
34  1f1 

4 4744 


ACC  HE  RE 
A R F T 
R IT  8 

DOACCFUN 


20,3435  1 3467  0 ACCHERE  TCF 


m? 


i\W5  \ 


20  ,3440 
20,  3441 


NCTMUCH  TS 


1/.(  3 
1/ACOSTT 
1 / ACCSTT 


0638 

0630 

0640 

0641 
<642 
0 643 
0644 
0 645 
0646 


RFF 

RFF 

REF 

RFF 

REF 


LAST  1487 
LAST  1487 
LAST  1487 
LAST  1487 
LAST  1487 
LAST  1487 
I.  A S T 1488 


20, 3444 
20  ,3445 
20,3446 
20,  3447 
20,3450 
20,  34c  1 
• . 3 4 ■ 2 
20,3453 
2C  , 3454 
20  ,3455 


3771  0 
6 000  1 0 
C CCC6  1 
6 3457  1 
3 0115  1 

5 C 164  1 
54  146  C 

6 0000  1 
50  It  3 0 
54  145  0 
1 3462  C 


EXTEND 

3ZMF  NOAOS 


SnpEAOS  C.  A 


DBVAL? 

-SIGNAOS 

DBB3 

A 

SI  GNAOS 
0B84 
SK  IPDR2 


0649 

0650 

0651 

0652 

0653 

0654 
065.5 
0656 


PEE 

PEE 

REF 

PEE 
P EF 
REF 
REF 
P EF 


LAST  i486 
LAST  1488 
LAST  1488 

LAST  1 4 e 7 
LAST  1487 
LAST  1488 
LAST  1487 


, 

*0,34< 
20,  3461 

• » 

, • 

20, 3464 
20  ,3465 
20, 3466 


3 1343  1 
54  146  0 
54  145  0 

3 0 162  1 
6 1533  0 
fc  1 5 3 3 0 
54  157  0 
0 3730  0 


TS 


DO  VAL  1 

DBB3 

DBB4 


SKIPDB2  CA  ABSAOS 

AO  1JACCU 

AD  1JACCU 

TS  AN  ET 

CL1/NET+  TC  D 01  / NET ♦ 


0657 

0658 

0659 

0660 
0661 


PFF 
PFF 
REF 
REF 
R EF 


LAST  1488 
LAST  1488 


, 

*0,347 
20,  347  1 
20  ,3472 
20, 3473 


50  164  1 
54  134  0 
3 OlfcO  0 
5U  164  1 
54  126  0 


AC  CT  HER  E INDEX 


- SIGNAOS 
Z5TEM  +2 
1 /ANET 
-SIGNAOS 
1/ATEM2  +2 


0662 

0663 

3664 


REF 

REF 

REF 


LAST  i486 
LAST  1489 
LAST  148  7 


3 0162  1 
6 1533  0 
6 4743  0 


A 8 SAGS 
1J ACCU 
B I T9 
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USER  'S  PAGE  NO.  16  F 6 S4 

SCALE  1 / ANET  AT  2 (7 ) / P I 

SET  UP  RETURN  FROM  COMPUTATION  ROUTINE 
- 1 AT  2(  7) 

FINISH  ACCFUN  COMPUTATION 


ABS(AOS)  LESS  THAN  AMIN,  SAVE  IN  L 
ACCASTPOS  , NFG  = AMIN 


DO  NOT  COMPUTE  DR  IF  DRIFT  OR  GTS 
.0229  PA0/SECI2) 

L =AB  S(  A OS)  - AMI  N=ABS(AOS)  0245  R AO/ S EC  (2  ) 
PFSULT  IS  ABS  ( AOS  )-. 0017  RAO/SEC  ( 2) 
ABS(AOS)  LESS  THAN  .0017  PAD/SEC(2) 

.0017  RAD/  SEC  ( 2 1 LT  ARS(AOS)  LT  AMIN 

DB3I4)  = DB/2 


DB4I  3) 


DR 


DB3,  4 


DB 


ANETPOS(NFG)  MAX  = 2 JACC  + ABSIAOS) 


CONNDT  OVERFLOW  HERE 
COMPUTE  1/ANFT,  ACCFUN 


STORE  ACCFUN  IN  TEMPORARY  BUFFER 

STORE  1/ANET  IN  TEMPORARY  BUFFER 
SEF  IF  OVERFLOW  IN  MIN  CASE 
MAXIMUM  POSSIBLE  VALUE 


GAP:  ASSEMBLE  REVISION  66  OF  ASS  PROGRAM  ZERLINA  BY  ZOROASTER 


L ACSTASK  ARC  AOSJOB 


D 665  RTF 
D666 

0667  REF 

0668  RFF 

0669  RFF 
067C  RFF 


528  LAST  1488 

45  LAST  1483 
? LAST  I486 
4 LAST  1488 
2 LAST  1488 


20,3477 
20,  3500 
20  ,350  1 
20,3502 
20,  350  3 
20  ,3504 


54  000  0 
1 3502  1 
3 4733  1 
6 377C  1 
54  157  0 
C 3730  0 


TS 

TCF 

CA 

AD 

TS 

TC 


A 

+ 2 

PD  SMA  X 
-.03R/S2 
ANE  T 
DO  1/NFT  + 


367  1 
0672 
L-678 
3674 
0675 


REF 

REF 

KEF 


RFF 

REF 


§ 


2 


LAST  1488 
LAST  1488 
LAST  1488 
I AST  1489 
LAST  1488 


20,  3505  5C  164  1 

20.3506  54  132  0 

20.3507  3 0160  0 

20,  35  10  50  1 6 4 1 

20  ,351  1 54  124  1 


INDEX  -SIGNAOS 
TS  Z 5TEM 

CA  1/ANET 

INDEX  -SIGNAOS 
TS  1/ATEM2 


0 676 
0677 
0 678 
3679 
0680 
0681 
0682 
0683 
3684 

0685 

0686 
3587 
0688 

0689 

0690 

0691 


If 


REF 
RFF 
REF  U 
REF  1 
REF  H 
REF  l 
REF  340 


REF  4 
REF  9 
REF  1 
REF  12 
REF  1? 
REF  5 
R FF  3 


RFF  1 


LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 

LAST 
L AST 
LAST 
LA  ST 


148  8 

1498 

1489 

1489 

1489 

1489 

1489 

1489 


20,3514 
20,  3515 
20  ,3516 
20,35  17 
2n,  3 5 20 
20  ,3521 
20,  3522 
20,  3 523 
20,3524 
20,  3525 
20  ,3526 
20,3527 
20,  35  30 
20  ,3531 


4 0162  0 
6 1 53?  C 
6 1533  0 
C 3716  1 
50  163  0 
54  133  l 
54  001  1 

3 0160  0 
5C  163  0 
54  125  0 

4 0162  0 
6 1533  0 
54  157  0 
6 377C  1 
0 0006  1 
6 3747  0 


CS  ABS  ACS 

AD  1JACCU 

AD  1JACCU 

TC  1/ANFT- 

INDEX  SIGNAOS 

TS  Z1TEM  +2 

TS  L 

CA  1/ANET 

INDEX  SIGNAOS 

TS  l /ATE  Ml 

CS  ARSAOS 

AD  1 JACCU 

TS  ANET 

AD  -.03R/S2 

E XTENO 

BZMF  FIXMIN 


0692 

0693 
0 694 
0 69  5 
0696 
069  7 


REF 

REF 

REF 

REF 

REF 

RFF 


2 

5 

11 

2 


LAST  1439 
LAST  1489 
LAST  1489 
LAST  1439 
LAST  1489 


20. 3532  C 3724  0 

20.3533  50  163  0 

20.3534  54  131  0 
20,  3 5 35  I'  GUO  0 

20.3536  5C  163  0 

20.3537  54  123  C 


STM  IN- 


TC  1 / NET  MI  N 

INDEX  SIGNAOS 
TS  Z1TEM 

CA  1/ANET 

INDEX  SIGNAOS 
TS  1 / AT  EMI 


069R  RFF 

0699  RFF 

0700  REF 

0701 

070?  REF 

0703  RFF 

0704  RFF 

0705  REF 

0706  REF 
07C7  REF 
0739  PEF 


3 LAST  i486 
1 

0 LAST  1446 

1 

3 LAST  1499 

4 LAST  1489 

3 LAST  14R9 

4 LAST  1489 
4 LAST  1485 
1 


20,  3 5 40 
20,3541 
20,  3542 
20  ,3543 
20 ,3  544 
20,  3545 
20  ,3546 
20,  3547 
20,  3560 
20,3851 
20,  3552 


3 3778  1 
7 1257  1 
0 0006  1 

1 3551  1 
3 0124  0 
54  126  0 

2 C 1 32  1 
54  134  0 
50  154  1 

3 3773  1 


FA  IL- 


MASK 

EXTEND 

B7.F 


UV 

+UMASK 
CM  5 MASK 


FAIL- 
1 /A  TF  M2 
1/ AT  EM  2 
76TEM 
Z 5TEM  +2 
JV 

-UMASK 


9:12  OCT.  21,1970  ZLMDAP  .001  PAGE  1489 

USER'  S PAGE  NC.  17  E6  S4 

OVERFLOW  POSSIBLE  BUT  REMOTE 

IF  OVERFLOW,  TRUNCATE  TC  PI/2 
RFSTORF  TO  CORRECT  VALUE 

COMPUTE  l/ANET,  ACCFUN 

STORE  MIN  VALUES  JUST  AS  MAX  VALUES 


NOW  DO  NEGIPOS  > CASES 
ANETNEGI  POS  ) MAX 

COMPUTE  1/ANFT,  ACCFUN,  AND  ACCSW 
STORE  NFG(POS)  VALUES  JUST  AS  POS(NEG) 

SAVE  IN  L FOR  POSSIBLE  FUTURE  USE 


2 


1 /ANETNEGIPCS  ) MIN 
TEST  FOR  AMIN 

IF  ANET  LESS  THAN  AMIN,  STORE  MAX  JEI 
VALUES  FDR  MIN  JETS  AND  SET  ACCSW 


OTHERWISE  DO  MIN  JET  COMPUTATIONS 
STORE  VALUES 


TEST  FOR  +U  ( +V  ) J FT  FAILURES 


REPLACE  FUNCT  I CN  V ALU  ES  DEPENDING  ON  THE 
FAILED  JFT  PAIR  WITH  C ORRF  SPUND I NG  ONE- 
JET  (OR  AMIN)  FUNCTION  VALUES 


GAP:  ASSEMRLE  REVISION  5fc  OF  AGP.  PROGRAM  ZFRLINA  8' 


L ACSTASK  ANC  AOSJOB 


0 7C9 

RFF 

1C 

LAST 

1 4 ft  9 

20,3553 

7 1257 

1 

0710 

20, 3954 

C 0006 

1 

71  1 

REF 

1 

20  ,3555 

1 3562 

1 

■ 712 

REF 

3 

LA  ST 

1 4A9 

20,3556 

3 0123 

1 

0713 

PEF 

4 

L AST 

1490 

20,  3 5 57 

54  125 

0 

071  4 

RFF 

3 

LAST 

1489 

20  ,3960 

3 0131 

1 

0719 

REF 

4 

LAST 

1490 

20,  3561 

54  133 

1 

C 71  4 

PEF 

4 

LAST 

I486 

20,3562 

4 0146 

0 

• 7 I 7 

PFF 

3 

LA  ST 

1487 

20,3563 

6 0143 

1 

■ 71  A 

REF 

1 AST 

1 4ft  8 

20 , 3564 

6 0 1 5 1 

1 

0719 

REF 

1 

29  ,3565 

5 4 147 

1 

0720 

REF 

4 

LA  ST 

1488 

’0,3566 

4 0145 

0 

<721 

PEF 

3 

LAST 

148  7 

20, 3567 

6 0144 

0 

r 722 

REF 

5 

LA  ST 

1430 

20  ,3970 

6 9151 

1 

17  23 

REF 

2 

LAST 

1490 

2C, 3571 

5 4 150 

1 

<724 

20,3572 

0 0004 

0 

P 729 

REF 

5 

LAST 

14  89 

20,3573 

10  1 54 

0 

"7  26 

REF 

1 

20, 3574 

1 3616 

1 

727 

REF 

1 

20  ,3575 

3 0122 

0 

9 72  8 

RFF 

3 

LA  ST 

145  2 

20,3576 

cc' 546 

0 

0729 

RFF 

1 

20, 3577 

3 4320 

1 

-<7  30 

REF 

3 

LAST 

1367 

20,3600 

0 5556 

1 

9731 

RFF 

5 

L AST 

1490 

20,  36C  1 

C 0 1 2 3 

1 

0732 

RFF 

12 

LAST 

1457 

20  ,3602 

01566 

0 

0733 

20 , 36C  3 

C CC 03 

1 

0734 

REF 

4 

LAST 

1490 

20, 3604 

52  144 

1 

0735 

REF 

1 

20,3605 

52  136 

l 

0736 

REF 

5 

LAST 

1490 

20,  3606 

c 2 146 

0 

0737 

RFF 

1 

, 

52  140 

0 

0738 

REF 

3 

LA  ST 

1490 

20,3610 

52,  150 

1 

0730 

REF 

1 

2r,  36  11 

52  142 

1 

C740 

REF 

1 67 

LAST 

14R6 

20  ,3612 

3 4753 

1 

0741 

REF 

6 

LAST 

1490 

20,  3613 

9 4 154 

0 

0742 

RFF 

32r 

LAST 

i486 

20, 3614 

3 4755 

l 

0743 

REF 

1 

20,3615 

1 3324 

0 

0744 

RFF 

2 

l AST 

1490 

20,  36  16 

3 0122 

0 

0745 

RFF 

1 

2 ,3617 

55 '547 

1 

0746 

REF 

2 

LAST 

1490 

20,3620 

3 4 320 

1 

0747 

REF 

4 

L AST 

1490 

20,  36  21 

0 5556 

1 

074ft 

REF 

6 

LAST 

1490 

20  ,3622 

00123 

1 

i STE  ft 
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USFP ' S PAGE  NG.  18  E6  S4 

MASK  CH5MASK  TEST  FOR  -U  (-VI  JET  FAILURES 

E X TEND 

BZF  DB  FUN 

CA  1 / AT  EM  1 REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 

TS  1/ATCMl  +2  FAILFD  JET  PAIR  WITH  CORRESPONDING  ON  E- 

CA  Z IT  EM  JET  (OR  AMIN)  FUNCTION  VA  l UE  S 

TS  Z1TEM  +2 


CS  DBB3  COMPUTE  A XI  SOI  ST 

AO  DPR] 

AD  FLA  TEMP 

TS  A XD STEM 

CS  0BB4 

AO  DBB  2 

AO  FLATEMP 

TS  AXDSTEM  +1 


INHINT 

CCS  JV  TEST  FOR  U OR  V AXIS 

TCF  STORV  V AXIS  STORE  V VALUES 


CA  ACCS  W U A XI  S STORE  U VALUES 

TS  ACCSWIJ 


CA  NINE  TRANSFER  10  WOROS  VIA  GENTRAN 

TC  GENTRAN  +1 

AORES  1 / ATE  Ml  TEMPORARY  BUFFER 

ACRES  1/AN  ET 1 THF  REAL  PLACF 


RELINT 

DXCH  08 B 1 SAVE  U DBS  FOR  LATER  STORING 

DXCH  JDB1 
DXCH  0BB4 
DXCH  UOB  4 


NOW  00  V AXIS 

AND  DO  IT  AGA  IN 


CA  ACCSW  STORE  V AXIS  VALUES 

TS  ACCSWV 

CA  NINE 

TC  GENTRAN  +1 

AORES  1/ AT  EMI 


TEMPORARY  BUFFER 


SAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


I AOSTASK  AND  AOSJDB 


07  A 9 


REF  13  LAST  1490 


20, 3623  0 1 6C 6 0 


ADRES  1/ANET1  +160 


A 0760 
3751  REF 
0762  PFF 


6 LAST  1490  20,  3624  62  152  0 
3 1 AST  1454  20,3625  53'555  1 


DXCH  FLATEMP 
DXCH  FLAT 


• 753 

0754 

0755 
) 756 
1 7 c 7 


• 7sa 
17  69 
0760 
"761 


REF 

REF 

REF 

REF 

RFF 

REF 


PFF  329 
REF  1 
REF  2 


LAST  14P8 

LAST  1491 

LAST  1490 
LAST  1491 


2 0,36  26 
20,  3627 
20  ,3633 

20. 3631 

20. 3632 

20.3633 
20,  3634, 
20  ,36  35 
20  ,3636 


55 ' 561  0 
f 1554  1 
5 5 ' 563  1 
55' 562  0 
3 4755  1 
55 ' 564  0 
5 5*  565  1 


CA  0BVAL1 

TS  PDBl 

TS  PDB2 

AO  FLAT 

TS  P0B3 

TS  P0B4 

CA  ZERO 

TS  PAXOIST 

TS  PAXOIST  +1 


LAST  149  1 


20,  3637  1 1'554  0 CCS  FLAT 

20,3640  1 3656  0 TCF  DR  FOB 


1764 

0765 

0766 
1767 
0768 
3 760 


0770 

0771 
j 77  2 
<‘>773 
0774 
3 775 


FEE 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

RFF 

REF 

RFF 


L AST 
LAST 
LA  ST 
L AST 
LAST 
LA  ST 
LAST 
LAST 
L AST 
LAST 
LA  ST 
L AST 


1490 
145  1 
1490 
14  54 

1490 

1491 
1400 
1491 
149C 
1 49  1 


20, 3641  52  136  1 

2c,  3642  53*60  1 0 

20,3643  52  140  0 

20,  3644  c I-  *6C3  1 
20  ,3645  52  142  1 

20,3646  52*  6C5  1 

20,  3647  5 2 144  1 

20,3650  53' 621  1 

20,  3651  c 2 146  0 

20.3652  5 3 ' 623  0 

20.3653  52  150  1 

20  , 36  54  5 3*6  25  0 


DXCH  UDBl 

DXCH  FIREDB 

OX  CM  J 0B4 

DXCH  CHASTOB 

DXCH  UAXOIST 

DXCH  AX  ISO  1ST 

DXCH  DBS  1 

DXCH  FIREDB  + 16D 

DXCH  DBB4 

DXCH  COASTDB  +160 

DXCH  AXDSTEM 

DXCH  A XI  SDI  ST  +16D 


07  76 
3777 
C778 
9779 
1783 
0781 
'782 
0783 


9 7 84 
1785 
0786 
1 78  7 
78P 
"789 
C 790 
C79l 


REF 

PFF 

REF 

REF 

REF 

RFF 

REF 

RFF 


RFF 
F.EF 
REF 
RTF 
REF 
PFF 
R EF 
PEF 


2 LAST  1479 

6 LAST  140  1 

7 LAST  149  1 

8 LAST  1491 

9 LAST  149  1 
10  LAST  1491 

6 LAST  1491 

4 l AST  149  1 

5 LAST 

6 LAST  1491 

7 LAST  149  1 
330  LAST  1491 

5 LAST  149  1 

6 LAST  1491 

7 LAST  L 49 1 

8 LAST  149  1 


2C,  36  S'-) 
23,  3657 
20,3660 
20,  366  1 
20  ,3662 
2 o ,366  3 
2n,  366  4 
2"  ,3665 

20. 3666 

20. 3667 
20,3670 
20,  367  1 
20  ,3672 

• 

20,  3674 


5 5 ' 6 00  l 
55*601  0 

5 5 ' 6 20  0 

55 '621  1 

6 1654  1 
5 5 ' 6C  2 0 
5 5'  603  1 
c 5 ' 622  l 
5 5 ' 623  0 
3 4755  1 
5 5 ' 6C4  0 
5 5 '605  1 
55' 624  1 
55*625  0 


DRFDB 


TCF 

C A 

TS 

TS 

TS 

TS 

AD 

TS 

TS 

TS 

TS 

CA 

TS 

TS 

TS 

TS 


1/ACCRET  +1 
DBVAL1 
F I REDB 
FIREDB  +1 
FI REDB  +1 6 D 
FIREDB  +170 
FL  AT 
COA  STOB 
CD  AST  OB  +1 
rOASTDB  +16  D 
COASTDR  +170 
ZERO 

A XI  SDI  ST 
A XI  SDI ST  +1 
AXISDIST  +1 6 D 
A XI  SDI  ST  + 170 


0792 


20,3675 


C 0004  0 1/ACCRET  INFINT 


9:  12  0:  T.  21,1970  ZLMDAP  .001  PAGE  1491 
USER'S  PAGE  NO.  19  E6  S4 

THE  REAL  PLACE 

NOW  STORE  DEADBANDS  FOR  ALL  AXES 
FLAT  AND  Z0NE3  L TM 

COMPUTE  P AXIS  DEAOBANDS 


DRIFT  3R  GTS  - COMPUTF  DBS 


STORE  U DEADBANDS 

CANNOT  USE  GENTRAN  BECAUSE  OF  RELINT 


STORE  V AXIS  DEADBANDS 
COULD  USE  GENTRAN  IF  DESIRED 


ALL  DONE 
DRIFT  DEADBANDS 


SAP: 


iSSHMRLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


<5:12  OCT.  2 1 » 1 Q70  ZlROAP  .001  PAGE  1492 


L AnSTASK  AND  AO  SJOB 


US  FR  *S  PAGF  NO.  20  E6  S4 


C 793  RFF  64 

079/*  PEF  3 

5795  REF  65 

0796 

1797  REF  2 

079R  RFF  2f 


LAST  1485 
LA'T  1399 
LAST  1492 

LAST  1474 
l AST  1358 


20,  3676 
’C ,3677 
20,  37C0 

20  ,7701 

20,3702 
20,  370  3 


A 0111  1 
7 4751  1 
26  HI  1 
0 OOC  3 1 
3 0117  C 
0 46  AC  1 


CS  3 A PR  00 LS 

MASK  ACCS  OK  AY 

ADS  DAPBCOLS 

RELINT 

CA  ACCRETRN 

TC  BA  NK  JUMP 


SET  RIT  TO  INOI CAT  E DATA  GCOD. 


PF  T URN  TO  CALLFR 


0799 
3333 
08  rl 
oar- 2 

580  3 
ORi'4 


REF  2 
RFF  430 


LAST  1488 


LAST  1492 
LAST  14P1 


20 ,3704  54  165  1 INVERT  TS  HOLD 

2u,  3 7C5  2 4743  0 CA  61  T9 

20,  3706  22  C07  0 ZL 

20,3707  C 0006  1 EXTEND 

20,  3710  1C  165  1 DV  HOLD 

2D  ,3711  0 0002  0 TC  0 


ROUTINE  TO  INVERT  -INPUT  AT  PI  /2 
1 AT  2 (6  ) 

ZERO  L FOR  ACCURACY  AND  TP  PREVENT  OV  FLO 


RE  SULT  AT  2(7)  /PI 


0805 
GRC6 
c 9<7 

3838 


REF 
F i F 
PEF 


I A ST  I AO  I 
LAST  1 48  5 


2C.3712 
2C,  3 7 13 


? 4755 

5 5 • ?r,2 


0 


LAST  I486  20  ,3714  55'63?  0 


LAST  1479  20,3715  1 2777  0 


OGMNGTS 


CAE 
TS 
TS 
TC  F 


ZERO 

AI.LOWGTS 

INGTS 

DOCKTEST 


ZERO  SWITCHES  WHEN  USEQRJTS  BIT  IS  UP 
CR  DAP  IS  OFF. 


080° 
0 810 
78  11 
0812 
0813 
081  4 
C 81  5 
3816 
08 1 7 
<’8  18 


RFF  3 
REF  6 
RFF  4 

PEF  1 
REF  7 

REF  IP 
REF  5 


20,3716 
LAST  140C  20,3717 

LAST  1489  20,  37  20 

LAST  1489  20,3721 

2C.3722 
20,  3723 
LAST  1492  20,3724 

20,  3725 
LAST  Ue9  20,  3726 

LAST  1488  20,3727 


2 2 CO  7 0 
22  122  0 
54  157  0 
6 3770  1 
C CCC6  1 

6 3744  0 

3 0157  1 
C C006  l 
5 0164  1 

7 0130  1 


l/ANET-  ZL 

LX  CH  ACCSW 

T S AN  E T 

AD  -.03R/S2 

EXTEND 

8ZMF  NETNFG 

1/NETMIN  CA  ANET 

EXTEND 

INDFX  -SIGNAOS 

MP  1/ACOSTT 


ZERO  ACCSW 
SAVE  ANET 

TEST  FDR  MI  N VALUE 

ANET  LESS  THAN  AMIN,  SO  FAKE  IT 


ANETNEG(POS)/ACOASTPOS<  NFG)  AT  2(6) 


A3317  THE  FOLLOWING  CODING  IS  VALIC  FOR  BOTH  POS  OR  N EG 

40820  VALUES  OF  AOS 


0821  REF 

0822  PEF 
0 823 

3824  REF 
C 8 25  PEF 
0826  PFF 
3927  REF 
i'82R 

0829  PEF 
083  0 

0831  REF 
3332  REF 


2 

4 

6 

45 


9 

3 


LAST  1492  2C,373C 

LAST  149  2 20,  373  1 

20,3732 
LAST  1488  20,  3733 

LAST  1487  20,3734 

LAST  1489  20,3735 

LAST  149  2 20,  37  36 

20  ,3737 
LAST  1492  20,  3740 

20, 3741 
LAST  1492  20,3742 

LAST  1492  20,  3743 


6 4743  0 D01/NET+  AD 

56  157  1 XCH 

0 0006  1 EXTEND 

22  161  l QXCH 

0 3704  1 TC 

54  160  1 TS 

4 474  3 1 CS 

0 0006  1 00  ACC  FUN  FX  T EN  D 

7 Cl  60  1 MP 

C 0006  1 EXTEND 

10  157  0 DV 

C 0161  1 TC 


B I T9 
ANF  T 


ARET 
INVERT 
1 / ANET 
31  T9 


1 /ANET 


ANET 

ARET 


1 + ANET/ACOAST  AT  2(6) 
SAVE  AND  PICK  UP  ANET 


SAVE  RETURN 

1/ANET  AT  2 ( 7 ) / P I 
— 1 AT  2(6) 

-1/  ANET  AT  2(1  3 )/P  I 


AC C FUN  AT  2(  7)  /P  I 
RETURN 


0835 


PEE  5 LAST  1 492 
REF  1^  LAST  1492 
PEF  2 LAST  1489 


20  ,3744  4 3770  0 NETNEG  CS  -.03R/S2 

20,3745  54  157  0 TS  ANET 

20,  3746  1 3725  0 TC  F 1/NETMIN  +1 


ANET  LESS  THAN  AMIN  - SET  EQUAL  TO  AMIN 
CONTINUE  AS  IF  NOTHING  HAPPENED 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21,1970  ZLMOAP  .001 


PAGE  1493 


L AOSTASK  AND  AOSJOB  USER'S  PAGE  NO.  21  E6  S4 


3336 

REF 

12 

LAS! 

1489 

20,  3747 

1C  163 

1 

FI XMI N 

CCS 

SI GNAOS 

0837 

REF 

107 

L AST 

1477 

20, 3 7 50 

3 4752 

0 

C A 

TWO 

IF  AOS  NEG,  ACCSW  = +1 

0838 

REF 

16 

LAST 

1460 

20,3751 

6 7761 

0 

AD 

NEGONE 

IF  AOS  POS,  ACCSW  = -1 

3830 

RFF 

4 

L AST 

1492 

20,  3752 

54  122 

1 

TS 

ACCSW 

0840 

RFF 

7 

LAST 

1490 

20  ,3753 

6 0 154 

1 

AD 

UV 

IF  ACCSW  = +1,  TEST  FCR  +U  ( + V)  JET  FA 

"841 

REF 

529 

LA  ST 

1489 

20,37  54 

50  CCO 

1 

INDEX 

A 

IF  ACCSW  = -1,  TEST  FOR  -U  ( - V ) JET  F A I 

0842 

REF 

2 

L AST 

1 48  9 

20, 3755 

3 3774 

0 

CA 

- UMA  SK  + 1 

0843 

REF 

11 

LAST 

1490 

20  ,3756 

7 1257 

1 

MASK 

CH5MASK 

3844 

20, 3757 

C 00C6 

1 

EXTEND 

084  5 

20,  3760 

1 3764 

0 

B Z F 

+ 4 

0846 

RFF 

6 

LAST 

1492 

20,3761 

4 3770 

0 

CS 

-.03R/S2 

JET  FAILURE  - CANNOT  USE  2- JE  T VALUES 

3847 

RFF 

11 

L AST 

1492 

20,  3762 

54  157 

0 

TS 

ANE  T 

ANET  = AMIN 

0843 

RFF 

1 

20  ,3763 

1 3532 

1 

TCF 

STM  IN-  -1 

CALCULATE  FUNCTIONS  USING  AMIN 

'•849 

REF 

341 

LA  ST 

1489 

20,3764 

3 0C01 

0 

CA 

L 

L HAS  ACCFUN 

0850 

RFF 

2 

LAST 

149  3 

20, 3765 

1 35  33 

0 

TCF 

ST  MI  N- 

STORE  MAX  VALUES  FCR  MIN  JETS 

\ 0851 

ERASABLE 

ASSIGNMENTS  FOR  1/ACCONT 

3952 

PEF 

5 

L AST 

138 

E 6,  1 550 

l/ANE  TP 

F QUA  L S 

BLCCKTCP  +2 

0853 

PEF 

6 

LAST 

1493 

F6  ,1552 

1/ ACOSTP 

EQUALS 

BLOCKTOP  +4 

3854 

PFF 

7 

LA  ST 

149  3 

E6, 1556 

PACCFUN 

EQUALS 

BLOCKTOP  +8  0 

0855 

RFF 

8 

L AST 

149  3 

E6,  1560 

PDB  1 

FQ  IAL  S 

3 LOC  KTOP  + 10D 

0856 

RFF 

9 

LAST 

1493 

F6 ,1561 

P D 82 

EQUALS 

BLOCKTOP  + 1 ID 

3857 

REF 

10 

LAST 

1493 

F 6,  1562 

P0B4 

EQUALS 

BLCCKTCP  +120 

085  8 

REF 

11 

LAST 

1493 

E6,  1 563 

P OR  3 

EQUALS 

3 LOCK  TOP  + 130 

0859 

REF 

12 

LAST 

1493 

E6 ,1 564 

PAXDIST 

EQUALS 

BLOCKTOP  +140 

3860 

REF 

73 

L AST 

1253 

0 122 

ACCSW 

EQUAL  S 

V0UF 

EXECUTIVE  TEMPORARIES 

V 0861 

CANNOT  DO  CCS  NEWJOB  OURING  1 /ACCS 

0862 

REF 

5 

1 A ST 

14^3 

0123 

1 / ATE  Ml 

EQUALS 

ACCSW  +1 

TEMP  BUFFER  FOR  U AND  V AXES 

0863 

REF 

7 

LAST 

1490 

0 124 

1/ATEM  2 

EQUAL  S 

1 /ATE  Ml  +1 

^864 

REF 

8 

LAST 

149  3 

0127 

1 / ACOSTT 

EQUALS 

1/ATEM1  +4 

0865 

P FF 

9 

LAST 

1493 

0131 

Z 1 TF  M 

EQUALS 

1/ AT  EMI  +6 

0866 

REF 

in 

LAST 

1 4°  3 

3132 

Z5TEM 

EQUAL  S 

1/ATEM  l +7 

0 867 

RFF 

11 

LAST 

1493 

0135 

UDBI 

EQUALS 

1/ AT  EMI  +1 0 D 

U AXIS  DEADBAND  BUFFER 

3 9 68 

PEF 

12 

1 AST 

149  3 

0 136 

UOB  2 

EQUAL  S 

1 /A  TEMl  +1  ID 

0869 

REF 

13 

LA  ST 

1493 

0137 

IJCB4 

EQUALS 

1/ATEM  1 +12D 

6 870 

REF 

14 

LAST 

149  3 

0140 

U0B3 

EQUALS 

1/ATEM1  +130 

0871 

REF 

15 

LAST 

149  3 

: 1 4 1 

UA  XDI  ST 

FQ  UAL  S 

1 /A  TEMl  +140 

0872 

REF 

16 

1 A ST 

1493 

0143 

D0B1 

EQUALS 

1/ AT  EMI  +160 

TFMP  DEADBAND  BUFFER,  ALSO  V AXIS 

3973 

REF 

17 

L AST 

149  3 

0144 

OBB  2 

EQUALS 

1/ATFMl  +1 7 D 

0 874 

REF 

18 

LAST 

1493 

C 145 

CPB4 

EQUAL  S 

1/ATEM  1 +180 

3875 

PFF 

1° 

LAST 

1 493 

0 146 

0BB3 

EQUALS 

1 / AT  EMI  +1  9 D 

0876 

RFF 

20 

L AST 

149  3 

0 147 

AXOSTEM 

EQ  UAL  S 

1 /A  TF  Ml  +20D 

0 877 

RFF 

21 

LA  ST 

149  3 

0151 

FL  ATFMP 

EQUALS 

1/ AT  EM  1 +220 

3379 

REF 

22 

LAST 

149  3 

0152 

Z3TFM 

EQUALS 

1/ATEM1  +230 

MUST  FOLLOW  FL  AT  EMP 
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USER' S PAGE  NC.  22  E6  S4 


0880  RFF  3 LAST  97 
3381  REF  A LAST  1494 


DBVAL2  EQUALS  INTB15  + 

OB  VA  L 3 EQUALS  INT015+  +1 


0882  RFF 


5 LAST  1494 


DRIFTER  EQUALS  INTP15  + +2 


r 883 
088'* 
0 985 
3886 
0887 
) 888 
38R9 
( 890 
0891 
:'89? 


REF 
RFF 
F.  EF 
REF 
KEF 
REF 
PEF 
REF 
REF 


LA  ST 
LAST 
LA  ST 
L AST 
I AS  1 
LA  ST 
I AST 
LAST 
LA  ST 
LAST 


148  4 

149  4 
14«4 
1494 
14Q4 
1 494 
1404 
1494 
1 49  4 
1389 


°45 

946 

947 

948 

949 
5 50 
95  1 

552 

553 
75 


0157 
0160. 
n 161 
0162 
P 16  3 
0164 
016  5 
0 1 17 


UV  EQUAL  S 

AN  ET  EQUALS 

FU  AT  EM  EQUALS 
1/ANET  EQUALS 
AR  ET  EQUALS 

A8SA0S  EQUALS 
SIGNAHS  EQUALS 
-SIGN  AOS  FQUALS 
HOLD  EQUALS 

ACCRETRN  EQUALS 


MP  AC 
MPAC  +3 
MP  AC  +3 
MPAC  +4 
MPAC  +5 
MPAC  +6 
MPAC  +7 
MPAC  + 8D 
MPAC,  +9  0 
FIXLOC  -1 


893  20,3766  09110  1 ZCNE3  MAX  DEC  .004375  17.5  MS  (35  MS  FOR  1 JFT)  AT  4 SECONDS 

3894  20,  3767  00443  1 FLATVAL  DEC  . 01778  .8  AT  PI/4  PAD 

0895  20  ,3770  77377  1 -.03R/S2  0CT  77377  -PI/2(7)  AT  PI /2 


9896  20,3771  C0356  1 . 023R/S2  OCT  00356  .0228  RA0/SEC(?>  AT  PI/2 

0097  REF  46  LAST  1489  4733  1/.03  EQUALS  POSMAX  2 ( 7)  /PI  AT  2<7)/PI 


0898  RFF 


2 LAST  1401  20,3772  02213  0 PAXISACR  GENADR  PAX  IS 


A3899 

A f 90( 
090  1 

0902 

0903 
3934 


20,3773  00 1 10  1 -UMASK  OCT 

20,  3774  COC22  1 OCT 

20  ,3775  00204  1 +UMASK  OCT 

2C,  3 7 76  0CO41  1 OCT 


THE  FOLLOWING  4 CONSTANTS  ARE  JFT 
FAILURE  MASKS  AND  ARE  INDEXED 
00110  -U 

00022  -V 

00204  +U 

00041  +V 


GAP:  ASSEMBLE  RFVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT-  21,1970  ZLMDAP  .00  1 PAGE  1495 


L 

SPS  BACK-UP  PCS  CONTROL  USFR'S  PAGE  NC.  1 EC  S4 

P0001 

PROGRAM  NAME:  SP  SRC  S 

R0002 

AUTHOR:  ECGAR  M.  CSHIKA  (AC  ELECTRONICS) 

l 00«'2  1 

MOD I F I FO : TO  RETURN  TO  ALL  AXES  VIA  Q BY  P ,S .W E ISS MAN,  OCT  7,  1968 

RD002  2 MCOIFIED  TO  IMPROVE  BENDING  STABILITY  BY  G . KA  LA  N ,F  E B.  1 A , 1 969 
ROOOl  FUNCTIONAL  DESCRIPTICN: 


< 0004 
RDD06 

THIS  PR OG RAM  CONTROLS  THE  FIRING  OF  ALL  RCS  JETS  IN  THE  DOCKEO  CONFIGURATION  ACCORDING  TO  THE  FOLLOWING  PHASE 
PLANE  l OGIC. 

R0007 

1.  JET  SENSE  TEST  (SPSRCS) 

Roooa 

R0CG9 

1 0010 

IF  JETS  ARE  FIRING  NEGA  TI  VF  L Y , SE  T CLDSENSE  NEGATIVE  AND  CONTINUE 

IF  JETS  ARE  PIPING  POS  IT  IV  FL  Y,  S ET  OLDSENSE  POSITIVE  AND  CONTINUF 

IF  JETS  ARE  NOT  FI  RING. SET  CLDSENSE  TO  ZERO  AND  GO  TO  OUTER  RATE  LIMIT  TEST 

R3012 

2.  RAT F DEAD  BAND  TEST 

R 001  3 
ROC  14 
RD015 
*0016 

IF  JETS  APE  FIRING  NEGATIVELY  AND  RATE  IS  GREATER  THAN  TARGET  RATE, LEAVE 

JETS  ON  AND  GO  Tn  INHIBITION  LOGIC.  OTHERWISE .CONTINUE. 

IF  JETS  ARE  FIRING  POSITIVELY  AND  RATE  IS  LFSS  THAN  TARGET  RATE, LEAVE 

JETS  ON  AND  GC  TO  INHIBITION  LCCIC.  OT  H ERW  IS  E,  CONT  INU  F . 

RDD17 

3.  OUTFR  RATE  LIMIT  TEST  (SPSSTART) 

R001  8 
^ 00  19 

IF  MAGNITUDE  CF  ECCT  IS  GREATER  T FAN  1.73  DEG/SEC  SET  JET  FIRING  TI  MF 

TO  REDUCE  RATE  AND  GO  TO  INHIBITION  LCGIC.  OT  HERW  I S E,  CONT  INIJ  E . 

R0020 

4 . COAST  ZONE  T EST 

1 0021 
R1323 
R00?4 

3 00  26 

IF  STATE  (E.EDGT)  IS  BELOW  LINE  F + 4 X ECOT  > -1.4  DEG  AND  EDOT  IS  LESS  THAN  1.  3C  DEG/SEC  SET  JET  TIME  POSI - 
T IV  F AND  CONTINUE.  OTHERWI  SE  , SF  T JET  FIRING  TI  MF  TO  ZFRO  AND  CON'TINJF. 

IF  ST  AT  F IS  ABOVE  LINE  F 4 iX  EDOT  > +1.4  DEG  AND  EOOT  IS  GREATER  THAN  -1.30  OEG/SE:  , SET  JET  TIME  NEGATIVE 

AND  CONTINLF.  OTHE  RWI  SE  ,SET  JET  FIRING  TIME  TC  ZERO  AND  CONTINUE. 

R0027 

5.  INHIBITION  LOGIC 

R 002  8 
R002Q 
R0030 

T 0031 
ROD  32 

IF  OLDSFNSE  IS  NON-ZERO: 

A)  RETURN  IF  JF  T TIME  HAS  SANE  SIGN  AS  OLOSENSE 

P>  SET  INHIBITION  COUNTERMAND  RETURN  IF  JF  T TIME  IS  ZFRO 

C)  SF  T INHIBITION  C OtJ  NT  ER , * S ET  JET  TIME  TO  ZERO  AND  RETURN  IF  SIGN 

OF  JET  TIME  IS  OPPOSITE  TO  THAT  OF  OLOSENSF 

R 00  33 
R00  34 

R3">35 

3 0037 
R0038 

IF  CLDSFNSE  IS  ZFRO: 

A)  RETURN  IF  INHIBI  T10N  COUNTER  IS  NOT  POSITIVE 

P)  SET  JET  TIME  TO  ZERO  AND  RETURN  IF  INHIBITION  COUNTER  IS  POSITIVE 
* NO  TE  : INHIBITION  COUNTERS  CAN  eE  SET  TO  4 OR  10  FOR  THE  P , AN  D UV  AXFS, 

R ESPFCT  IVELY,  IN  SPSRCS.  THEY  ARE  DECREMENTED  BY  ONE  AT  THE  BEGINNING  OF 
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L SPS  eACK-lJP  RCS  CONTROL  USER'S  PAGE  NO.  2 EG  S4 

1 0039  EACH  OAP  PASS. 

R 3 3 4 T FE  MINIMUM  PULSE  WIDTH  3F  THIS  CONTROLLER  IS  DETERMINED  BY  THE  REPETITION  RATE  AT  WHICH  THIS  ROUTINE  IS  CALLEO 

R0O42  ANO  IS  NOMINALLY  103  MS  FOR  ALL  AXES  IN  OR  I FT  I NG  FLIGHT.  DURING  POWERED  FLIGHT  THE  MINIMUM  IS  133  MS  FOR  THE 

30044  P AXIS  ANO  2CC  MS  FOR  THE  CCNTPCL  CF  THE  U AND  V AXES. 


R3  '-5  CALL  ING  SEQUENCE: 


R 0046 
ROC  4 7 
R3343 


I NHINT 


TC  I B N KC  A L L 

C ADR  SPSRCS 


* 0049  EXIT: 

*3353  TC  0 

R0051  ALARM/APCRT  MOCE:  NONE 


3 00  52  SUBROUTI  NE  S CALLED  : NONE 

R3353  INPUT:  F,  EDO T 

RP054  TJP,  TJV,  TJU  TJ  MUST  NOT  BE  NEGATIVE  ZERO 


Rprss  OUTPUT:  TJP,  TJV,  TJU 

R3356 


0057 
3358 
005  9 


REF 


I AST  1474 


21 .3 56 ) 
2 1,  20C0 
21 , 3560 


BANK  21 
SETLOC  0APS4 
RANK 


0060  REF 


CQJ NT*  $$/DAPRU 


3361  REF  14  L AST  1446 

0062 

0063  PEF  42  LAST  1385 


Eb,  1525  ERA  NK  = TJU 

21.3560  00632  0 R AT  EL  IM  2 OCT  0063? 

21.3561  3 4736  l PCSTHRST  CA  HALF 


1.  125  DEG/SEC 


0064 

0065 
3366 
006  7 
0068 
3069 
0070 
or  71 

0072 

0073 
3374 
007* 
0076 


REF  31 
REF  15 
PEF  1 
REF  1 
REF  1 
PEF  34 
REF  16 
REF  530 
PEF  431 


REF  35 
REF  1 


LAST  1496 
LAST  1496 
LAST  1493 
LAST  149  2 


LAST  1496 


, 3562 
,3  563 
, 3564 
, 3565 
,3566 
, 356  7 
,3570 
,357  1 
, 3572 
,3573 
, 3574 
, 3575 


5 1 ' 5C5  0 
55' 525  0 
11' 744  0 
1 3605  0 
1 3610  1 
5 1 ' 505  0 
4 1525  0 
10  000  0 
C 0002  0 
1 3575  1 
1 3575  1 
5 1 '505  0 


21,3576  3 3617  1 


ND  X 
TS 
CCS 
TC  F 
T CF 

NEGCHECK  I NDE X 
CS 
CCS 
TC 

TCF 
TC  F 

SETCTR  INDEX 
CA 


A XI  SC  TR 
TJU 

OLDS E NS E 
POSC.HECK 
CTRCFECK 
A XI  SC  TR 
TJU 


JETS  FIP  ING  POSITI  VF  LY 

JETS  OFF.  CHECK  INHIBITION  C TR 

JETS  FIR  ING  NEGAT  IVELY 


RETURN 

JETS  COMMANDED  OFF. SET  CTR  AND  RETURN 
JET  FIRING  REVERSAL  COMMANDED.  SET  CTR, 
SET  JET  TIME  TO  ZERO, AND  RETURN 
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0077 

0078 
007Q 
0080 
0081 
0082 

REF 

REF 

REF 

REF 

REF 

REF 

36 

3 

332 

37 
17 

432 

LAST 

LAST 

L AST 
LAST 
LAST 
LAST 

1496 
1416 
1492 

1497 
1496 
1496 

21 ,3577 

21  ,3600 
21, 36C  1 
21  ,3602 
21,3603 

2 1,  3604 

5 1 *50  5 
55' 767 

3 4755 
51 '505 

5 5 * 525 
0 000  2 

0 

1 

1 

C 

0 

0 

ZAPTJ 

INDEX 

TS 

CA 

INDEX 

TS 

TC 

A XI  SC TR 

J J ET  CT  R 

ZERO 

A X 1 SC  TR 

T JU 

0 

0083 

REF 

38 

LAST 

1497 

21  ,3605 

51* 505 

0 

POSCHECK 

INDEX 

AX  ISCTR 

3384 

PEF 

18 

LAST 

1497 

21,  3606 

3 1525 

1 

CA 

T JU 

0085 

REF 

1 

21,3607 

1 3571 

0 

TC  F 

NEGCHECK  ♦ 2 

00  86 

REF 

36 

LAST 

1467 

21 ,3610 

51 ' 505 

0 

CTRCHECK 

I NDEX 

AX  ISCTR 

CHECK  JET  INHIBITION  COUNTEP 

3387 

REF 

4 

L AST 

1 4Q7 

21,  36  1 1 

11*767 

1 

CC  S 

UJETC-TR 

0088 

21  ,3612 

l 3614 

0 

TCF 

+ 2 

OCR  9 

REF 

433 

LAST 

1497 

21  ,3613 

0 0002 

0 

TC 

0 

CTR  IS  NOT  POSITIVE.  RETURN 

0090 

REF 

1 

21,  36  14 

1 360  1 

1 

TCF 

ZAPTJ 

CTR  IS  POSITIV  E.  INHIBIT  FIRINGS 

0091 

REF 

434 

LAST 

1497 

21  ,3615 

0 0002 

0 

TC 

Q 

CTR  IS  NOT  PO  SI  TI  VE.RE  TURN 

309? 

21,  3616 

CCCC4 

0 

OCT 

00004 

0093 

21,  361 7 

QC012 

1 

UTIME 

OCT 

00012 

0094 

21 ,3620 

00012 

i 

OCT 

00012 

3 096 

REF 

168 

L AST 

1490 

21,  3621 

4 47  53 

0 

NEGFI RE 

CS 

ONE 

JETS  FIRING  NEGAT  IVELY 

0097 

REF 

2 

L AST 

1496 

21  ,3622 

55*744 

0 

TS 

OLDSENSE 

0098 

REF 

18 

LA  ST 

1457 

21 ,3623 

3 1427 

1 

CA 

EDOT 

0096 

21,  3624 

1 3620 

0 

TCF 

+ 4 

i ( 

REF 

169 

LA  ST 

1467 

21  ,3625 

3 4753 

1 

PLUS  FIRE 

CA 

ONE 

Ol"  l 

REF 

3 

LAST 

1497 

21, 3626 

c 5 ' 744 

0 

TS 

OLDSENSE 

0102 

RFF 

19 

1 AST 

149  7 

21,  3627 

4 1427 

0 

CS 

EDOT 

RATE  DEAD  BAND  TEST 

0 103 

RFF 

531 

LA  ST 

1496 

21  ,3630 

22  000 

1 

LX  CH 

A 

0 1C4 

REF 

66 

l AST 

149  2 

21,  3631 

4 0111 

1 

C S 

DAPBCOLS 

IF  ORIFTBIT  = 1,  USE  ZERO  TARGET  RATE 

0105 

REF 

7 

LAST 

1485 

21  ,3632 

7 4744 

0 

MASK 

OR  1FTBTT 

IF  DRIFTBIT  = 0,  USE  0.10  RATE  TARGET 

0 ir  6 

PEF 

532 

LA  ST 

1497 

21 ,36  3 3 

10  coo 

0 

CCS 

A 

01  ('7 

REF 

1 

21,  36  24 

2 4767 

0 

CA 

R A TEORl 

0108 

REF 

342 

1 AST 

1493 

21  ,3635 

6 0001 

0 

AO 

l 

0109 

2 1,  36  36 

C CCC6 

1 

EXTEND 

01 1 r 

REF 

1 

21,  3637 

6 3647 

1 

BZMF 

SPSSTART 

0 111 

REF 

1 

2 1 ,3640 

1 3 564 

1 

TCF 

POSTHRST  +3 

"’112 

RFF 

40 

L AST 

1497 

21,  364  1 

5 1*50  5 

0 

SP  SRC S 

I NDEX 

AXI  SC  TR 

JET  SENSE  TEST 

0 113 

PFF 

19 

LAST 

1497 

21  ,3642 

11*525 

0 

CCS 

TJU 

0114 

REF 

1 

21,3643 

1 3625 

1 

TCF 

P LUS  FIRE 

JETS  FIR  ING  POS  IT  IVEL  Y 

01 18 

2 1,  3644 

1 3646 

1 

TCF 

+ 2 

'116 

RFF 

1 

21  ,3645 

1 3621 

0 

TCF 

NEGFIRE 

JETS  FIRING  NEGATI  VF  L Y 

) 1 17 

PFF 

4 

LAST 

149  7 

21,  3646 

55*  744 

0 

TS 

OLDSENSE 

JETS  OFF 

< 118 

REF 

20 

LAST 

149  7 

2 1,  3647 

3 1427 

1 

SPSSTART 

CA 

EDOT 

OUTER  RATE  LIMIT  TEST 

l 116 

. 

0 0006 

1 

EXTEND 

0120 

RFF 

1 

21,  365  1 

7 4766 

0 

MP 

RATELI  Ml 

"121 

RFF 

533 

LAST 

1497 

21  ,3652 

10  000 

0 

CCS 

A 

122 

PEF 

1 

21  ,3653 

1 3672 

0 

TCF 

NEGTHRST 

CUTER  RATE  LIMIT  EXCEEDED 

123 

21, 3654 

1 3656 

0 

TCF 

+ 2 

0129 

PEF 

2 

LAST 

1467 

21  ,3655 

1 3561 

1 

TCF 

POSTHRST 

OUTER  RATE  LIMIT  EXCEEDED 

) 1 25 

PEF 

21 

LAST 

146  7 

21, 3656 

3 1427 

1 

CA 

EDOT 

COAST  ZONE  TEST 

0126 

RFF 

17 

LAST 

1457 

21,  3657 

6 1751 

0 

AD 

E 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLIVA  BY  ZOROASTER 


L SPS  BACK-UP  PCS  CCMFCL 


: 1 2° 
TIT** 


REF 

REF 


2 

1 


21,  3660  C CCC6  1 
LAST  220  21,3661  7 1411  f 

21  ,3662  C 00C6  1 
21,3663  1 37CO  1 


E X TE  NO 

MP  DKDB 

EXTEND 

RZF  TJZFRC 


0131 
) 13’ 
0133 
C 134 
Y 1 35 
4136 
0 137 
D 13P 
u 1 3° 
0 140 
OKI 

0 142 
? 1 43 

0 1 44 


REF  22 
REF  1 

REF  2 
RFF  4 ’ 
REF  3 
REF  2 
REF  23 

REF  4 
PFF  333 
REF  5 


I AST  1497 


LAST  1498 
LAST  1496 
I AST  1497 
LAST  149B 
LAST  1498 

LAST  1 4°  R 
LAST  1407 
LAST  1498 


21  ,3665 
21,  3666 
21  ,3667 
21,  3670 
21,  3671 
21  ,3672 
21, 3673 
21  ,3674 
21  ,3675 
21,  3676 
21  ,3677 
21, 3700 
21,  37C1 


0 0006  1 
6 3674  1 

5 1427  1 

6 3560  1 
C CCC6  1 
6 3 7 CO  0 
4 4736  O 
1 3562  1 
4 3560  0 
6 1*27  1 

0 OOC 6 1 
6 3561  0 
3 4755  1 

1 3562  1 


EXTEND 

BZMF 

CA 

AD 

EXTE  NO 
BZMF 

NFGTHRST  CS 
TCF 

♦ 7 CS 

AO 

F XTEND 
BZMF 

TJZFRO  CA 
TCF 


+7 

EDOT 
RATEL  IM2 

T JZCRO 
HAL  F 

POSTHRST 
R A TEL IM  2 
EDOT 

POSTHRST 

7FR0 

POSTHP  ST 


0145  REF  5 LAST  1415  4766  RATELI  Ml  = CALLCOOE 

3146  RFF  1 4767  RATFOBl  = TR'JILDFX 


44*  END  OF  ZLMDAP  .001 
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USER • S PAGE  NO.  4 E6  S4 

PAO  LOADED  DEADBAND.  FRESHSTART:  1.4  CEG 


1 


= 00032,  CORRESPONDING  TD  1.73  DEG/SEC 
= 00  0 4 5 , CORRESPONDS  TO  '‘  .101  DEG/SEC 


GAP:.  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZGRG ASTER 


9:  12  OCT  . 21,  1970 


PAGE  1499 


SYMOOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  H OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

.30375A8 

17,  3771 

1457 

1 

1453 

-.7071 

2q  , 3 1 0 7 

14  82 

2 

H77 

1483 

-UMASK 

20  ,3773 

149  4 

2 

1489 

1493 

. i 2 3P  / S? 

?'■  ,3  771 

1 494 

1 

1488 

-AYD 

E 3,  17 11 

114 

1 

1 138 

- UP 

00  ,26  20 

1 054 

1 

1053 

375AT^ 

1 7,  376  A 

1457 

l 

1 455 

-AZ 

1 1 ,2343 

813 

-XM  IN 

16,  30  6 2 

1415 

1 

1419 

. 1 AT  2 

17  , 376  3 

1 

1455 

-AZn  I T 

mi 

8 1 4 

1 

813 

. 1AT4 

17,3762 

14  57 

1 

1453 

-BIT10 

06,3004 

187 

1 

183 

-0.  3D  /S 

01,2347 

301 

1 

2 99 

.166. . . 

• 

1246 

1 

1242 

-B I T 1 2 

7753 

= 

537 

1 

537 

-0  . 6D/S 

l 1,2346 

30  1 

1 

299 

.30 

12  ,3751 

1236 

1 

1203 

- 6 IT  1 4 

7750 

1C  89 

3 

583 

1411 

-1/12 

13  ,3734 

1237 

1 

1227 

. 5SFC 

4 7 7 A 

1 C 87 

2 

525 

1324 

-CCSPR 

1 10  4 

1 

1 106 

-1/2+2 

00,2444 

1050 

1 

1070 

.7^71 

2i>, 3 10 6 

1482 

2 

1476 

146? 

-COMMA  X 

07,3744 

1320 

2 

13  02 

13  03 

-1  /R 

7753 

1089 

3 

537 

14  56 

1282 

( AT  ) A 

27,  201  6 

39 

1 

831 

-DEC  10  3 

31  ,3662 

82  0 

-100MS 

16,  3620 

1429 

2 

1458 

(T  BU  P ) A 

27,2020 

39 

1 

831 

-delgmb 

E 6,  1674 

= 

140 

19 

140 

910 

-100  MST 6 

16  ,3734 

1459 

3 

1458 

( no)  A 

32,3726 

828 

1 

829 

-OTS  CALR 

17,2054 

572 

l 

572 

- L36MST6 

16,3575 

142  8 

2 

1425 

1428 

(1  / DV  ) A 

27, 2C  1 2 

39 

1 

831 

-EL 

1 1 ,?  3 55 

814 

-1  5 TEGS 

06,2513 

176 

1 

175 

-EL  BIT 

4753 

= 

814 

1 

813 

- 1 50M S 

17  ,3137 

1444 

1 

1441 

+ AZ 

11,2350 

813 

-FLR 

35 , 3 ? 73 

230 

225 

- 16CM ST  6 

16, 3532 

1427 

+AZR  IT 

4747 

= 814 

1 

813 

-ENDERA  S 

7755 

1 089 

1 

996 

-2  J FT  L I M 

E6  ,1475 

134 

4 

134 

1475 

»•  DEC  SGN 

40,2272 

406 

1 

4C6 

-ENOVAC 

6263 

1000 

2 

996 

1014 

-2  SEC 

• 

1370 

1 

1358 

+ OEC°° 

? 1,  3664 

820 

-EPSI  LCN 

01  55 

= 

1484 

5 

1476 

1477 

-3DEG 

17,  3760 

1457 

1 

1450 

4-DOWN 

£ 0 , 26 1 0 

1054 

1 

1053 

-EPSMA  X 

20, 3110 

1482 

4 

14  76 

1477 

-45  PEGS  R 

7752 

= 

541 

1 

540 

E r L 

11 ,2362 

814 

-FOU  ROEG 

1 6,3^33 

1427 

1 

1427 

- 500EGSP 

25,2222 

541 

1 

541 

+ EI  BIT 

475  2 

= 8 14 

1 

814 

-FCURDT 

27,2  531 

75  P 

757 

-50  sc 

04,  ?n24 

1 176 

1 

1165 

+ L I M I T 

42  ,3345 

429 

1 

4 29 

-GYROM  IN 

07,  3465 

1312 

, 2 

1312 

1315 

-700EGS 

06  ,2512 

1 76 

1 

175 

+MG4 

E 4, 1643 

= 119 

5 

31  9 

687 

-LOKONFG 

2 3 ,2040 

277 

- 8CDEGSR 

25,2223 

541 

1 

541 

♦ON 

40,  240  2 

40  7 

3 

407 

649 

-MA  XADP  S 

4350 

= 

1275 

1 

12  80 

+ OMI  N 

17,2304 

1433 

1 

1432 

-MU  FART  H 

33,  20  17 

45 

1 

870 

/af  /:nst 

3 1 ,2356 

783 

1 

779 

+ RMIN 

17,  2314 

1433 

1 

1433 

-MUMOGN 

33  ,2021 

45 

l 

879 

/ AFC/ 

E7,  1463 

= 

144 

3 

144 

794 

+ T JM!  NT 6 

17,3136 

1443 

(4, 

1434 

1442 

-or  T 10 

6234 

999 

1 

999 

/ BUF  + 

00  ,2721 

1058 

2 

10  57 

E UMASK 

20,3775 

1494 

1 

1489 

-CCT630 

16,2315 

14  1 1 

1 

1410 

/RUF- 

00,2715 

1057 

2 

10  5 7 

+ XM  IN 

16,  3064 

1419 

1 

14  19 

-OLDTAU 

E7,l  761 

= 

155 

3 

155 

807 

/LAND/ 

E4, 1723 

= 

123 

1 1 

122 

868 

+XORULGE 

17  ,2200 

1431 

2 

14  30 

14  31 

-ON 

40,  2422 

40  8 

3 

4C7 

449 

/MPAC  + 

00,2767 

1059 

2 

10  59 

+ 1 Sf'M  ST6 

16,3615 

1429 

1 

142  5 

-PH  AS  El 

0751 

102 

6 

221 

1290 

/MP  AC— 

00,2763 

10  59 

2 

1059 

-PHA  SE  2 

075? 

102 

6 

221 

874 

/NORM 

DO  ,2  73  2 

1050 

1 

1(’  58 

* E NTF  R 

36,3043 

732 

1 

731 

-PHAS  E3 

1755 

102 

5 

221 

P88 

/NOR  M2 

00  ,2725 

1058 

l 

105  8 

*NRSM  * 

23,  3700 

1252 

5 

559 

959 

- PHA  SE  4 

0757 

102 

9 

221 

137  1 

/R/  MAG 

E 4,  1671 

= 

122 

6 

122 

845 

* PROCEED 

3&  , 3040 

732 

1 

73  1 

-PHA  SE  5 

0761 

102 

1 

221 

* SWNB* 

23,3676 

1252 

5 

495 

958 

-PHAS  E6 

0763 

102 

5 

221 

1383 

? 

6001 

= 

735 

-OMI  N 

l 7,2310 

1433 

1 

1432 

? GU  IDSUB 

31,2411 

785 

1 

772 

— . r 1 1 2 AH 

17  ,3761 

1457 

1 

1452 

-RATEDR 

E6 , 1476 

= 

134 

7 

134 

1435 

- .D2SA  T2 

17, 3765 

1457 

1 

1455 

-RMIN 

17  ,2315 

1^33 

1 

1433 

A 

0000 

= 

93 

533 

164 

14  97 

-.325  AT 4 

17, 3766 

1457 

1 

1453 

-RRL1 MI T 

25,2306 

544 

2 

545 

A-PCHK 

13  ,3156 

1206 

4 

120  3 

1215 

-.  0 3R/S2 

- ' ’ 

1494 

6 

1486 

1493 

-S IGNAOS 

0 164 

= 

1494 

10 

I486 

1492 

A A PEG* 

F 5,1440 

= 

124 

1 

124 

— . 0 5 A T 2 

17,  176  7 

1457 

1 

1 45? 

- T J MAX 

1 7,3773 

1457 

2 

1453 

1454 

AAPFGX 

E 5,  1424 

= 

124 

1 

124 

-.15 AT2 

17,3770 

1457 

1 

1452 

-TJMIN 

1 7,  3775 

1457 

1 

1455 

A A PEG  Z 

F5  ,1430 

= 

124 

1 

124 

1875 

20,323? 

1484 

1 

1487 

-T  PER 

F4, 15  33 

= 

1 18 

6 

311 

715 

ABCL3A0 

41,2647 

432 

1 

415 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDFF  I NFO 
BO  BADI.V  DEF  INFO 


OR  ERASE  ANYWHERE 
KX  MISCELLANEOUS 


MD  MULTI  PLY  DEFINEO 
TROUBLE 


TAP:  ASSEMBLE  PEVISION  5b  OF  AGC  PROGRAM  2ERLINA  BY  ZOROASTER 

SYMBOL  TABLE  LISTING,  INCLUDING  0EFIM7ICN,  HEALTH,  PAGE  OF  DEF  , 


SYMBOL 

OFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

A 3 DEL V 

1247 

= 

107 

6 

1 C 7 

655 

AGC  GKF  LG 

0317 

= 

89 

ABDV  ACC 

125C 

IP  7 

1C  7 

1483 

ACCOMP 

11,2506 

1220 

ABLOAD 

41  ,2753 

433 

l 

415 

AC.CPETPN 

0 117 

= 

1494 

ABORT 

564  5 

= 

1 372 

ACC  SOKAY 

4751 

— 

89 

ABORT ALM 

21  ,2.06  1 

827 

2 

827 

ACCSW 

0122 

= 

1493 

A33R  TS 

32 ,200C 

= 

34 

2 

824 

827 

ACCSWU 

F6 , 1 546 

= 

138 

ABORTS  1 

r 5, 2000 

= 

29 

1 

822 

ACC  SWV 

£6,1547 

= 

138 

ABORTYZ 

1e  ,2771 

1418 

1 

142  8 

ACCTHEPE 

20, 3467 

1488 

43"UT  2 

5655 

1371 

l 

1371 

ACC  WD 

E5 ,15  12 

= 

132 

ABOUT  CNF 

15,  2046 

258 

2 

257 

9 50 

ACC  4-  2FL 

0307 

= 

88 

ABRFG* 

F5 ,1436 

= 

124 

2 

124 

8 20 

ACC40R2X 

4741 

= 

88 

ABR  FGX 

£5,  1422 

= 

124 

2 

124 

62C 

ACOT+C  12 

l 6,3741 

1464 

ABRFGZ 

E5  ,1426 

= 

124 

1 

124 

AC  FN  TP  AL 

E6,  1743 

= 

136 

AR?  TA  BLF 

36,2114 

719 

1 

82  8 

ACMODR IT 

4737 

= 

70 

A HPT  I ON 

36, 25?3 

726 

1 

719 

A C MOO F LG 

0040 

= 

70 

ABP  TJADR 

i 1 ,3417 

822 

1 

822 

ACOS=0 

00, 3637 

1075 

A 33  T J A SK 

"S,  342C 

822 

1 

822 

AC  CS  AB  RT 

00  ,3723 

1077 

ARS 

0, 3226 

1067 

4 

8 1 6 

1066 

ACOSOVF 

00,  3721 

1077 

ARSAOS 

0162 

= 

1494 

12 

I486 

1489 

AC  CSS  HR 

00, 3714 

1077 

ABSCO 

C5,  1C1  3 

= 

125 

2 

125 

662 

ACCSST 

00,3625 

1075 

ABSC1 

E5  , 1 5 1 4 

= 

125 

1 

125 

ACOSST  2 

CO,  3642 

1C  75 

A3  SC  2 

F 5 , 15  15 

- 

1 25 

1 

125 

ACC  S 7 FRO 

00  ,3731 

1C  77 

ABS  C3 

■ i,  151 

= 

12  5 

1 

125 

A C 0 S3 

00,3652 

1076 

AB  SC-4 

E5  ,1517 

= 

125 

1 

125 

ACTCENT 

E 3,  1753 

115 

ABSFDOTP 

E 6,  1736 

= 

135 

2 

1423 

14  24 

ACTI  VE 

23  ,2423 

592 

ABST  J 

E6, 1736 

= 

135 

9 

1424 

144  3 

ADOGRAV 

15,  2741 

958 

ABTCONIC 

12 , 3752 

1 1Q2 

3 

1177 

1 190 

ACCIT  IN 

21 ,3465 

147  1 

ABT  FI  CS 

13,  2 OOP 

= 

30 

1 

137? 

AUDPOS 

30,2002 

608 

ABTKL  EAN 

05  ,267  1 

221 

1 

823 

AODRESS 

6115 

995 

AS  TROUT 

F 5, 1552 

= 

125 

2 

125 

825 

ACORWD 

0116 

97 

ARTTGB  IT 

4745 

= 

82 

ADG 

E 5,14  22 

= . 

820 

ABTTf-F  LG 

0217 

= 

82 

2 

236 

826 

ACG2TT  F 

E5,  1436 

= 

820 

A3VAI 

C ),  3 201 

1 P66 

ADI  AX 

F 3, 1463 

113 

A BY  Al  ABS 

00 , 3176 

1066 

1 

1004 

AD  IA  Y 

F 3,  1464 

113 

ABVEL 

E7, 1471 

= 

151 

7 

151 

867 

AC  I A Z 

E3, 1465 

113 

ARY  EL  * 

0130 

= 

125 

866 

ADRPCHN2 

5377 

1288 

ACADN83 

36  ,3754 

74Q 

1 

745 

ADRP  IP  C Y 

21,  2332 

888 

AC  AON  85 

36,2057 

= 

749 

1 

740 

ACRRUPT 

1 7 ,3272 

1446 

ACC  DOT  C 

E6,  15C  7 

1 36 

8 

136 

l £ 78 

ADP  S+  1 

43,3624 

1281 

ACCOOTP 

E 6 , 1 51  1 

= 

136 

1464 

1484 

ACRSCAN 

27,  2214 

737 

ACCEPTUP 

F 4,  3274 

1 327 

2 

13?  8 

ADRSCHK 

43  ,3573 

1280 

ACCEPTWD 

41,2047 

412 

3 

412 

4 13 

ADR  SDIF  1 

E 6,  1745 

= 

137 

ACCFCTZ1 

F 6 , 1 574 

_ = 

1 38 

1 

145  4 

ADRS  DIF2 

E6, 1743 

= 

137 

ACCFCT75 

E6,  1575 

= 

1 38 

1 

1452 

ADRS1 

43,3243 

1275 

ACCHERE 

2o  ,3435 

1488 

1 

1488 

ACR 40400 

5743 

1372 

HEALTH  KFY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


9:  12  GOT.  21,1970 


PAGE  1 501 


OF  PFFS,  PAGE  OF  FIRST  P EF,  PAGE  OF  LAST  REF# 


REFFRENCE  S 


SYMBOL 


DEF 


REFERENCES 


1 1 22p 

2 1474 

3 226 

5 1 490 
3 138 

1 1 490 

1 1488 

2 3 91 

2 824 

2 299 

2 1416 
5 1461 


1492 

1492 

14°3 

1490 


392 

829 

1431 

1468 

1463 


1 1075 
1 1075 
1 1075 
*?.  ■'  1 C 7 5 
1 1075 

1 1077 

2 320 

4 625 

1 958 

1 1470 
1 608 


83 


9 13 
1 794 

1 791 

1 3 34 

1 334 

1 335 

1 1288 
1 887 

1 1446 

1 7 37 

2 1280 
12  1449 
11  1449 

1 295 

l 1371 


U57 

1456 


A DR  7 7 7 7 0 
ADS  RAX 
ADSRAY 
ADS  RAZ 
ADSUM 
ADTIME 
ADUPBFMl 
ADUP3UFF 
ADUPTEMP 
ADVAN 
ADVANCE 
AFCCALC1 
AFCCALC2 
AFCCALC 3 
AFC  CL  END 
AFO IMP 
AFT  ERT  J 
AFTRFLTR 
AFTRGUID 
AGAINMM 
AGSBUrF 
AGSBUFFE 
AGS  CODE 
AGSDI  SPK 
AGS  END 
AG  SI /U PD 
AGSINI  T 
AGS  K 
AG  SI  I ST 
AGSRND  1 
AGS  P.ND2 
AGSUPDA  T 
AGS  VC  A L C 
AG  SWORD 
AHEAD5 
AHZL  IM 
AIG 

A IGBANK 
AIMER 
A I NGOTM 
A IN  LA 
AK 
AK  1 
AK  2 
ALARM 


5742 
E3  ,1466 
£3,1467 
E3,  1470 
43  ,’562 
35,3154 
04,3666 

04  ,3521 
04,3520 
01  ,3216 
34,3076 

31,  3046 
31  ,3055 
31, 3071 
31,30  77 

31  ,2155 
17,2756 
30  ,3  177 
31,2374 
04,  2073 
E4  ,1571 
£4,1606 

1073 

32  ,2022 

32,  2122 

05  ,2424 
32,2005 
F6,  1771 
05  ,2424 
32,2203 
32  ,22  1 1 

0001 
32,  20  36 
1 321 
6445 
E5,  1 476 
E7  ,1457 
26,3334 
3d  ,2665 
37  ,2217 
E 5,  1434 
E6  ,1760 
E6, 1761 
E6,  1 762 
5600 


1372 
113 
113 
113 
1280 
665 
1382 
1379 
1379 
1 1C7 
640 
794 
794 
794 
794 
779 
1441 
904 
784 
235 
120 
120 
104 

214 

215 
211 

213 
1 4 1 
199 

216 
216 
242 

214 
109 

1007 
125 
144 
59  8 
8 40 
381 
132 
141 
141 
1 4 1 
1369 


1 1372 
1 334 

1 334 

1 334 

2 1280 

1 665 

2 1378 
1 1377 

1 1378 

2 1101 
2 620 


794 

235 

120 


215 
199 
279 
20  3 


214 


33 


215 

1007 

125 

158 

592 

840 

381 

132 

141 

L 1406 

1 140  6 

2 170 


JOKER  OR  ERASE  ANYWHERE  MC  MULTIPLY  DEFINED 

XX  MISCELLANEOUS  TPOUBLE 


1379 

12  76 
625 

1440 

215 

583 

212 

279 


2 37 

8 10 
598 
597 

1407 

1446 
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SY'MOL  TARLE  LI  STI  Nr,  t INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF , U OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SY  MBOL 

A LA 1 M/.TB 
AL  ARM  I T 
ALARM  PC- A 
ALARM  1 
ALARM  2 
A LCGKK 
AI.DK 
ALFDK 
A L=  LT 
ALFLT  ? 
ALGOPTHM 
AL IGNCOA 
AL  IGNOPT 
A LI  LP 
AL INF  X 
ALI NF  7 
A LI  NT  I PE 
ALK 
ALKCG 
ALXCG? 
ALKLP 
ALLCOAST 
ALLOC/OC 
ALLJETS 
ALLOOP 
ALLOW  GTS 
ALL  RE  AC 
A L L SE  T 
ALLIS 
A L 1. 3D  EC 
ALL  AR ITS 
ALM/  ENC 
A l MCA  DR 
Al  MCYCL  F 
Al  MNCACP 
AI  M XI  T 
A L MX  IT  A 
A LOAD 
Al  OADED 
Al  PH  A 
Al  PHAM 
AL  PHAQ 

A lphar 
ALPHA  SR 
AL  PH  AT  RY 


DEF 

35 ,2430 

24,  3634 
30  , 374  2' 
5733 
560  2 
37  ,2627 
E 5,  15^2 
E4,  1422 
37,2577 
37,  2644 
21  ,3045 
37,2311 
15, 3325 
37  ,-?667 
26,  2071 
26, 21 1 5 
43 ,2410 
E 5,  1446 
37  ,2632 
37,2635 
37, 2676 
20  ,220  5 
41,  3061 
17,3257 
37,2536 
E6,  15p? 
2 5 ,306  1 
? 5 , 342  c 
26, 3705 
42  ,3601 
23,  2500 
43,2116 
1363 
4145 
573  5 
35,2045 
35,  204? 
41 ,3002 
1 3,  314? 

odo 

E 4 , 146  7 
66 » 1424 
R6 ,1425 
64,1571 
21,  3 247 


629 
75R 
9 16 
1372 
1369 

390 

132 

12C 

390 

390 
146  1 

383 

966 

391 

344 

345 
2R0 

132 
390 

390 

391 
1397 

435 
1446 
389 
1 3fl 
562 
672 
60  5 
443 
812 
270 
111 
454 

1372 
619 
619 
434 
1206 
1 192 
116 

133 
133 
12C 

1467 


R EFEREMCES 

1 619 

1 757 

1 9C  5 

1 1077 

2 1275 

3 390 

1 390 

1 399 

1 390 


1271 

391 


24 


383 

966 

391 

344 

268 

132 

390 
39  l 
237 
432 
1446 
388 
1400 
563 
672 
604 
442 
812 
268 
111 


389 

l<92 


SYMROL 

ALPHAV 
ALPPLT 
AL  RM  50  3 
ALRM514 
ALRM525 
ALRM526 
ALRP527 
ALRM530 
ALS IGNAG 
ALSK  37, 

ALT 

ALTCALC  22, 
ALTCONV  21, 
ALTDSPLY  20, 
A I TF  DY  Z 16, 
ALTFXIT  25, 
ALTIM  E5, 

ALTIMS  E 5 ■ 
ALTITUDE  E7, 
ALTM 

A I 7RA  TE  E 7 , 
ALTRCONV  21, 
A L TROUT  21, 
ALTRROUT  21, 
ALT  RT  EMP 
ALTSCALE 
ALTSC8IT 
ALTSYST  16, 
AL  TTr  MP 
ALW668  IT 
ALW66FI.G 
Al  XXX?  37, 

ALX1S  E5 , 


413  454  AM 


415 
1205 
1 165 
116 
157 
202 
120 


12C6 
1 167 
1226 
1474 
14  74 
320 


AMG  F7 , 

APCVED  11 
ANE  T 

ANCLT  IMF  22, 
ANGTERP  F4 
ANG  X F 5, 

ANGY  E5 i 

ANG7  F 5 

ANG1CHEK  27, 
A A TE  NR  I T 
AN7ENFLG 


1431 

2147 

3062 
2365 
2746 
2363 

3063 
3200 
7556 
31  03 
1123 
2131 
2005 
2227 
3002 
3437 
15  30 
1531 
1736 
0060 
1734 
2004 
2451 
2420 
0063 
02  72 
4743 
3434 
0063 
4743 
0025 
3076 
1444 
1734 
1460 
3617 

0 157 
300  1 

1 653 
1500 
1476 
1472 
3272 
474': 
0267 


116 
505 
5 1 9 
508 
516 
508 

519 

520 
10  34 

394 
106 
358 
43 
1402 
141  8 
568 
132 
132 
155 
94 
155 
43 
892 
891 
155 


REFERENCES 

35  116  1 

1 504 

1 5 18 

1 506 

1 514 


1425 

155 

68 

68 

394 

132 

139 

144 

1233 

1494 

369 

121 

132 

132 

132 

84? 

86 

86 


1 520 

5 864 

1 391 

6 106 

1 357 

2 892 
1 1401 
1 1418 

1 568 

2 389 

2 389 

7 155 

2 892 

9 1 55 

891 


1060 

1127 


* 


3 890  891 


2 1425 

3 892 

2 823 

2 771 

1 388 

4 388 

3 357 

4 2C6 
1 1232 

11  1487 
1 369 


1 1 


2 791 

2 3 92 

1 393 

1 393 

l 841 
328 


SYMBOL 

AOG 

AOReSFLG 
ACRBSYST 
AO  R RTF  LG 
AORBT  RAN 
AO  SQ 
AOSOTERM 
A OS  R 

A GSR  TERM 
AOS  U 
AOS  V 
AO  TAZ 
AOTCODE 
AO  TF  L 
AOTMARK 
At.TPARKl 
A0TPARK2 
AOTST  ALL 
APOPE  RI 
APSESBIT 
APS  FSW 
A P SF  LAG 
APS  FL  BIT 
APSIDES 
APS  LAD 
APSTGO 
APSVEX 
AR  ATE 
ARCCOS 
ARC  SI  N 
APCTAN 
A R C.  T A NX  X 
A R C TRG  SP 
ARCTR  IG 
ARET 
AR  G + 
ARGHI 
ARGLO 
ARGZERO 
ARG7ER02 
ARC  90 
AROUT  IS  F 
ARTHI  NSF 
ART  IN  1 SF 
ART  CUTS F 


E 7 ,1461 
0 12  5 
4747 
0310 
4742 
F 6 ,1  536 
E6 , 1544 
E6 ,1540 
E 6 , 1 545 
E6, 1 542 
F6  ,1543 
E 7, 1404 
3734 
F 7 ,1412 
07,2000 
0 7 ,2000 
04 , 200C 
07,  37  1 1 
23  ,2000 
4747 
0202 
0230 
4737 

12  ,3704 
21,2667 
27, 2666 
33  ,2000 
22,2771 
00  ,36  12 
00,36  10 
13,  2506 

13  ,2534 
30,3606 

23,3316 
0161 
7277 
00  ,34  17 
00 ,34  70 
7317 
7314 
5067 
40,2733 
40  ,3133 
40,3  146 
40  ,2726 


137 

137 

137 

137 

137 

137 

142 

102 


REFERENCES 

8 158  592 

2 1424  1425 

1 728 

2 1431  U33 
137  1485 
137  1415 
726  1485 


1191 
895 
76  1 
39 
369 
1075 
1075 
1128 
1128 
914 
1240 
1494 
1027 

1071 

1072 
1027 
1027 
1093 

426 

44C 

440 

426 


5 160  949 

13  158  953 

1 253 

3 934  952 

2 251  258 

2 256  974 

3 942  1319 

1 690 

2 1189  1 1 9C 

3 759  777 

16  220  1475 

1 690 

1 894 

1 760 

3 744  855 

3 369 

1 100  4 

1 1004 

5 486  1125 

2 1128 

3 912 

9 305  1243 


2 10  72 
1 1072 
1 1027 
1 1027 
1 1093 
1 423 

1 438 

1 438 

2 423 
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m DEFINITION  ASSOCIATED  WITH  CONFLICT 
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SYMBOL 

ARUPT 
A SC  A L E 
ASCENT 
A SCCI  LT 
A SC  S A VF 
AS  CT  FPM 
A SC  TF  PM1 
ASCTFRM  3 
ASCTFRMA 
A SFC  XT 
AS  ENT 
A SENT  1 
ASENT  2 
AS  ENT  3 
A SENT* 
ASENT  5 
ASENT6 
A SENT 7 
AS  ENT  8 
A SI  NE  X 
A S< I FNRM 
AST  AR 
ASTNBI  T 
AS  TNCLOK 
ASTNDEX 
A STM FLAG 
AST  NR  FT 
A STNRF  TN 
A STD< 

AST  REND 
A STROM  SK 
AT 

AT/PCS 
A TAN=  90 
AT  DEC  AY 
A TIG  I NC 
A T M AG 
AT  MAG A D 
A TMAGADR 
ATOPCSM 
A TOPLE  M 
A TOPD  TH 
AT  OPT  HIS 
A TP 
ATR 


. DEF 

.or  10 

13.373C 
30,2307 
?/,  ,2  C C 
F 5,  l hi' 
3 , 27  i 
, 1 ' 

3>  , ’75 r 
30  ,275 2 
E 5 , 1 573 

30, 200C 
27  ,2O0f: 
: 7,  200C 
i 5, 2000 
1 A ,2000 

30,  20 nr 

33  ,2c 

34, 2000 
f 0 , 370  7 
10,  ?5 3 1 
15,3063 
474C 
32, 2636 
5 36  2 
0154 
32, 2642 
36,30  2 7 
26,  3533 
27,3167 
1C, 3501 
E4,  1553 

3 ( • ,2orr 

13,2541 
’6,  2012 
F 7 , 1 40C 
35,  3455 
C 5 , 3 5C  5 
36,3137 
1 3, 2660 
13  ,2733 
13,2660 
13, 2733 
E 5 , l 75 1 
E 5,  1757 


93 

1237 

836 

34 

126 

841 

841 
84  1 

842 
137 


1076 
1348 
9 6 1 


78 

774 

73? 

599 

765 

1361 

122 

3c 

1128 
38 
142 
834 
R24 
735 
1 20  ( 

1 2p  2 


1446 
f 35 


834 
846 
94  1 
942 
637 
8 34 


1 8 48 

3^.93  2 

1-  1 *>74 

l'  I 34  7 ' 
1 '9  6^- 

1 7 24 

1 774 

T"  72  3 
l 73? 

1 731 

1 515 

1 765 

1 1357 
7 122 

1 8 37 

1 1128 

1 831 

3 392 

2 73  5 

1 823 

1 726 

5 37 

4 37 

1 705 


1233 

1233 


SYMBOL 

ATTACHED 
ATT  ACHIT 
A 1 TC  ADR 
ATT  C HK 
ATTC  K2 
ATTFLAG 
ATT  FL  8 IT 
A T TH  OLD? 
ATTPR  10 
ATTSCAL  F 
A TTSTEFR 
ATY 
AUG? 

AUG  3 
AURLKONL 
ALRLOKON 
it  IMANV 

AUTOMB IT 
A UTOMODE 
AUTR  AT  El 
A LTPATF2 
AUTP  IF L G 
AUTR2FLG 
ALXFLAG 
AU X FI  BIT 
AVECTR 
A VEGE  XI  T 
AVEGFB  IT 
AVEGF  LAG 
AVEGOUT 
AVEIT 
AVEMDBI  T 
AVFM  I DSW 
A V FR  AG  EG 
A VER  TRN 
AVESTAR 
AVETOMID 
AVFLAG 
AVFL  AGA 
A VF  LAGP 
AVFL 8 IT 
AVGEND 
A VGE  XI  T 
AV  CUT  C. AD 
AX*  SR*  T 


DEF 

43,  3135 
4 3 ,3146 
13  04 
15,  3547 

42  ,2035 
0150 
4753 
21  ,2251 
1306 
42  ,’'*53 
1 7,2710 
F 4,  1745 
07  ,3561 
0 7,  35  37 
23,  20 34 
23  ,2000 
26,  2174 

4752 
03  01 

4753 

4752 
0321 
0320 
0147 
4T52 
0024 
1252 
4747 
0163 

33,  2200 
07,2276 

4753 
0225 

. > I 

33, 3544 
07, 2241 
13,3463 
0050 
35,2354 
35  ,2361 
4747 
33  ,3517 
1252 
33,  3740 
23  ,3702 


302 
33  2 
109 
971 
287 
78 
78 
887 
109 
287 
1440 
122 
1314 
1313 
277 
276 
482 


87 
0 7 


REFERENCES 

1 2 68 
1 30  2 

6 109  1320 

1 957 

2 286  2 87 

1 970 

3 967  971 

1 8 87 

2 374  1320 

1 287 

1 1432 
5 12 2 843 

1 1314 
1 1314 
1 277 

1 ? 75 

5 188  546 


SYMBOL 

AXC 

AXDSTEM 
AX  ISCTR 
A XI  SDIFF 
AX  IS  D 1ST 
A X I SGEN 
A XI  SGEN1 
AX  I SGEN  2 
A XI  SGEN3 
AXO 
AX  T 
AZ 

AZ  B IAS 

A ZC  CUNT 

AZTOUNTl 

AZFACH 

AZFL 

A7  IMUTH 

AZO 

A 2C  N TP  A L 


DEF 

01  ,2355 
0147 
E6 ,1535 
17  ,3755 
E6, 1604 
23  ,3437 
23, 3445 
23,  3474 
23  ,3517 
63,1713 
Dl^Z^O 
13  4*.  ) 
E 6 , rTT3 
E7 ,1553 
F 7 , 1 645 
31,  3666 
1 4 ,3  745 
F 5 , 1 40C 
26  ,2322 
E6  ,1  745 


P EFERENCE  S 


1078 

1493 

136 

1457 

138 

1244 

1244 

1244 

1245 
114 

1078 

110 

141 

153 

153 

821 

948 

131 

54 

136 


40 


1 1333 

6 1490 
136 

2 1437 

8 1451 
4 934 

1 1244 
1 1245 
1 1245 
l LI  38 

1 U C 3 

4 110 

2 141 

3 153 

7 153 

1 789 

1 9 48 

5 131 
1 1137 

13  1461 


871,  e72 
11  74  LI  36 
107  745 

192  883 

235  707 

257 


B*  RNB* 8* 
RAC  KHAND 
BAOKP 


36  ,2137 
17,2561 
I 6-^,7  3 1 6 


719 
1437 
1 4 11 


1 742 

1 1437 
11 4 59 


82 
82 
R 56 
874 
259 
1211 
70 


70 

873 

107 

882 

125? 


1 874 

2 259 

1 873 

6 627 

4 6 19 

4 619 

1 882 

7 725 

1 854 

1 1251 


BADGES 

PADFND 
RADRAD 
R ADRCIflT 
RADRJPT 
BADR2 
RAD  X 
R A I LOUT 
BAI  L0UT1 
BALL  AN GS 
PALLEX  IT 
BANKCALL 
BANKJUMP 
BANKMASK 
BANKRUP  T 
BANKS  FT 
BASEOTP 
BASEOTV 
BAS  ETEMP 
BA  SETH P 
BAS  FT  HV 


25  ,2614 

07,3661 
25  ,3255 
31  ,35  16 
25, 3176 
12  ,3674 
12,2302 
5635 
5717 
26,2274 
1337 
461  6 
4640 
4350 
0016 
3 1 6 5 
E4  ,1530 
E4, 1571 
1360 
E 4, 1560 
E4,  1503 


555 

1317 

565 

817 

564 

1190 

1168 

1370 

1371 
485 
110 
989 
989 

1090 
93 
10  C 
117 
117 
240 
117 
117 


“TT5 

2 575 

1 565 

1 564 

2 1189 

3 1166 

3 463 

7 251 

4 345 

2 485 

315  214 


20 


277 
3 133  1 

3 1 61 

4 99 1 

2 699 

2 699 

2 239 

2 699 

2 699 


HEALTH  KFY:  NORMALLY  DEFINED  UNLESS  FLAGGEO  AS  FOLLOWS: 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J CEFINEO  BY  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MULTI  PLY  OFF  I b 


1491 
1497 
1 44C 
1491 
962 


94  8 
797 
789 
813 


3 92 
1463 


1316 


14C9 
1365 
529 
486 
1 A 74 
14  92' 
in  14 
1409 
1361 
730 
700 
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SYMROL 

DEF 

H 

REFERENCES 

SYM80L 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

BAS  EE  IME 

£4,1512 

= 

117 

3 

699 

70C 

BI  TS15+7 

10,3504 

1361 

1 

1348 

BLANKDEX 

4752 

= 731 

1 

721 

BAWL  A NGS 

26  , 2 0 C C 

= 

33 

2 

344 

485 

BITS?- 10 

50  11 

1088 

1 

37 

BLANKO SP 

41  ,3556 

461 

2 

461 

R R 

HOOfe 

= 

12B9 

5 

1 2 R R 

1295 

B ITS3C4 

575? 

= 

1320 

? 

12  99 

13  00 

BLANKET 

5475 

1343 

9 

276 

1361 

B BANK 

0006 

= 

93 

55 

159 

1369 

BI  TS4+  10 

1 C , 3 50  7 

1361 

1 

1359 

RLANKSUR 

4255 

464 

2 

447 

13  55 

BBSEP  VOL 

5744 

1372 

1 

1371 

BITS4G5 

4763 

10  87 

4 

171 

433 

BLNKBRNK 

4302 

464 

1 

464 

BCDU 

E6,  1675 

139 

13 

139 

1 2 2 C 

BI  TS4G  6 

4771 

= 

1320 

5 

218 

1299 

RLNKSUB1 

40, 3545 

464 

2 

464 

BDDV 

76  15 

13  3? 

2 

IOC  2 

1035 

BITS4-  5 

07,  3743 

1320 

1 

1305 

3LNKWAI  T 

36  ,3352 

743 

1 

743 

3 DO  T 

26,201  r 

54 

1 

1134 

BIT  S4-7 

33,3761 

883 

1 

8 6fl 

81.  DAD 

41,3013 

434 

1 

415 

BDSU 

70  7 A 

10  20 

l 

1002 

B I1S5+11 

1 0,3506 

1361 

3 

1353 

1360 

RLOCKTOP 

E6, 1546 

138 

12 

138 

1493 

BDTOK 

27  ,246  1 

757 

B ITS 6 +7 

47  76 

= 

R8  3 

1 

859 

BNKCHK 

43  ,3715 

1282 

BEE  17 

0 A,  3C0  1 

1 1 76 

1 

1187 

BI  TS6G15 

06  ,3003 

187 

l 

1 86 

BNKOPTN 

43,3314 

1276 

BE  El  9 

f'A,  30  13 

= 

1 1 76 

1 

1 184 

B I T S 7+  4 

10, 3505 

1361 

2 

1347 

BOOLSMSK 

20  ,2114 

299 

3 

297 

2 98 

BFE22 

C A , 3Q1 7 

= 

1 1 76 

1 

1167 

RITS7  G8 

06,  2777 

187 

2 

170 

182 

HnOLSTRT 

05  ,3076 

225 

1 

219 

BFGDFS 

25,  2 56 A 

554 

3 

519 

EEC 

BI 1S8.9 

16,3622 

1429 

1 

1422 

ROOP 

37,  2755 

392 

1 

392 

RELOWl 

lo  ,2?4  7 

129f 

1 

129  1 

R ITS9+7 

43,  30  33 

292 

l 

252 

BORTENT 

5605 

1369 

2 

1370 

137  1 

3EL3W2 

10,22.64 

1 2Q( 

2 

129C 

PITS9, 1 1 

5014 

142  1 

1 

1420 

BOTHABR  T 

5722 

1371 

1 

1372 

B EL  On'  ? 

1",  2 30 o , 

1290 

1 

1290 

R I T 1 

4753 

1086 

73 

68 

1480 

80T  H AX  ES 

20  ,3  3 24 

i486 

1 

1490 

3E  L0W4 

lo  ,230  3 

1290 

2 

1290 

B IT  10 

4742 

1C  86 

58 

67 

1475 

ROTHJ03  S 

10,2666 

1350 

1 

1350 

BESTI 

F 5,  1765 

= 

1 27 

13 

127 

954 

BI  T10+15 

6021 

525 

2 

275 

525 

BOT  HL  ITS 

25,  3661 

610 

1 

610 

BEST  J 

F5, 1 76  6 

= 

127 

6. 

127 

932 

0 IT  1 1 

4 741 

1086 

-3  5 

44 

1464 

BOTHPAO 

22  ,33  77 

709 

1 

709 

bftam 

FA.1A71 

= 

116 

6 

116 

1235 

BIT  I 1 + 1 

25,  2363 

546 

1 

546 

ROTHSGN 

40,2366 

407 

407 

BETAS  B 

EA, 1K73 

120 

3 

120 

2 20 

BI  112 

4 740 

1086 

42 

66 

1487 

BOT  HSHIP 

22,  3336 

7CB 

V iy  7C  9 

BETAv 

E4  ,H37 

= 

116 

11 

116 

1222 

BIT  12,  1 4 

7724 

561 

1 

560 

BCV(B) 

01  ,2463 

1081 

1 

1003 

3 G IM 

16, 37AC 

1464 

1 

1464 

8IT13 

4737 

1086 

6 1 

40 

1485 

BPL 

01,2507 

1082 

1 

1082 

BGIM2  3 

16,  220  3 

1 40  1 

1 

140  l 

B I T 1 3-  1 4 

4 3 55 

= 

1090 

6 

2 86 

1398 

BPL/BMN 

0 1 ,2500 

1082 

1 

1C  0 3 

BHI  7 

' L ,2AS6 

10B1 

B IT  14 

4736 

1086 

94 

66 

14  88 

BPANCH 

6 7 35 

1016 

10 

863 

1082 

B IASACCX 

F 7,  1 70 A 

= 

1 54 

5 

154 

086 

BI T14+7 

26  ,226*' 

483 

RPATE 

E6, 1724 

= 139 

3 

369 

372 

HI  AS  ACCY 

E7 , 1705 

= 

1 f 4 

3 

154 

886 

BIT  146  11 

7722 

= 

276 

1 

2 76 

BRNCHCON 

40  ,2  567 

410 

1 

410 

HI  ASACCZ 

E 7, 1706 

= 

154 

3 

154 

886 

BIT 14 COM 

10,2276 

1290 

1 

1290 

BRNCHC  TR 

12,2267 

1168 

1 

1169 

BIASCALE 

22, 3167 

372 

1 

372 

BI  715 

4735 

1086 

55 

66 

1470 

BRS  POT  1 

31,2440 

786 

B I ASFACT 

. 

88? 

1 

852 

R IT  1 5 + 6 

7746 

1089 

1 

1349 

BRSP0T2 

31  ,2540 

788 

3 I A SH  I 

00,2566 

105? 

1 

1 C 71 

"IT15/14 

41  ,33  11 

445 

2 

445 

447 

RR  SP0T3 

31,2715 

791 

B I AS  L C 

DO, 2270 

1045 

1 

1C7? 

BI  T2 

4752 

1086 

54 

67 

1478 

BRS  POT 4 

31  ,3104 

794 

BI  ASRDCT 

40,2662 

425 

1 

425 

BIT  3 

4751 

1C  86 

39 

67 

1419 

BR  UPT 

0017 

= 93 

4 

822 

l 446 

B IB  IB  I AS 

2 A,  3672 

850 

2 

250 

850 

BI  T3H 

34,3535 

B35 

1 

834 

BSUBO 

26,  20  16 

54 

1 

1134 

BIGAOS 

2[),3345 

i486 

B I T 4 

4 7 50 

1086 

55 

67 

1 45C 

BUF 

0130 

97 

169 

97 

1387 

B I G I Q 

20 ,2624 

1476 

1 

1476 

8 IT5 

4747 

1086 

54 

67 

1461 

BUF  + 

00,2422 

1049 

3 

104  8 

1051 

ii  rn 

12, 3447 

1 l fl  7 

l 

1186 

BI  T 6 

4 746 

1086 

64 

67 

1454 

PU  F- 

00,  24  16 

1048 

3 

10  4 8 

10  51 

RINCON 

4363 

469 

4 

449 

1090 

fl  I T 7 

4745 

1086 

42 

67 

1430 

BUFNEG 

00  ,2531 

1051 

1 

K 48 

3 1 NP  0 UNO 

40,314? 

44  C 

3 

43  8 

440 

RIT7+9PV 

23,2314 

529 

1 

5 29 

BUFNORM 

00,2500 

1051 

l 

1 C 5 1 

B 1N3 

6257 

= 

575 

B I TP 

4 744 

1 086 

48 

67 

1488 

BUFPOS 

00  ,25  16 

105  1 

2 

1049 

1051 

3 1 TSFT 

5020 

= 

897 

1 

893 

B ITB  ,9 

17, 3140 

1444 

B UF  ZERO 

00  ,2363 

1048 

1 

1051 

3 ITSOFF 

A 1,  27A0 

433 

1 

433 

BI  T9 

4743 

1086 

45 

67 

1492 

BU  F? 

0 I 33 

97 

29 

251 

1370 

BITS0FF1 

A 1,2744 

433 

1 

433 

BLANKCHK 

1C,  3133 

1355 

BURNBABY 

36  ,2130 

719 

3 

740 

831 

BI  TSnFF  2 

41 ,2751 

433 

2 

433 

BL  ANKCDN 

40,2603 

411 

2 

4 10 

424 

BUSYMA  SK 

10,351 I 

1361 
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SYMBOL 

OFF 

H 

REFERENCFS 

SYM BOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

3 UTTONS 

05,2717 

222 

33  ,2314 

856 

CDUL  IMIT 

£5,1443 

= 

131 

BV  FCT  OR 

C7, 1524 

= ] 40 

24 

149 

1 1<  1 

CALZ  SM  SC 

ic,2oV 

1254 

7 

92  9 

972 

CDUl  OGIC 

10  ,3560 

1385 

15 

256 

1249 

3 VFC  TR 

0032 

= 1139 

5 

113  5 

C ALCT  FF 

27, 3452 

1266 

1 

715 

CP  UNO  X 

E 5,1536 

= 

131 

BVSIJ 

T-*,C 

1015 

1 

1 0 0 2 

CALC  THET 

27,2255 

751 

COUREAPF 

E5,  144  1 

= 

131 

BYLMATT 

15,3^41 

97  1 

2 

967 

S 68 

CALCTPER 

27,  3447 

1266 

1 

7 15 

COUPE ADI 

E5  ,1442 

= 

131 

3 7 E /GOT'1 

‘ I ,2473 

1 CB2 

1 

1033 

C ALCXY 

26,3625 

604 

1 

60  2 

CPUS 

0036 

= 

93 

5 

157 

536 

B12-1 

4356 

= 469 

CALC  2 B I T 

4752 

= 

71 

CCUS  CM D 

0054 

= 

93 

1 

893 

3 1 2 Tl  a 

7734 

= 1090 

1 

10  35 

CALC3R  IT 

4751 

= 

71 

CDUSPDT 

f 765 

102 

24 

102 

1250 

B 14+R  2 

25,2625 

555 

1 

555 

CALL 

6652 

10  14 

1 

10  82 

CDUSPOTX 

0771 

= 

102 

5 

860 

1250 

1 

112^ 

01,2513 

1 

1003 

i 2 

3 2F  8 

15,3173 

963 

1 

963 

C AL  L ACCS 

20, 2 134 

139  5 

1 

1396 

CO  USPOTZ 

C 767 

= 

102 

5 

860 

1250 

B2XSC 

13,  2500 

1 127 

1 

1127 

CALLCODE 

4766 

1087 

5 

284 

1498 

C.  OUT 

0035 

= 

93 

13 

193 

6C3 

BT  TO  BA 

nj  ,260  2 

1085 

2 

1034 

1C85 

CALL  DGCH 

26, 3645 

6C4 

4 

525 

6 C 5 

CDUTCMD 

0053 

= 

93 

2 

545 

893 

3 53FF 

5 *>74 

1368 

11 

304 

71  1 

C ALLGMRL 

47  47 

= 

1*00 

3 

1416 

1471 

CDUTEMP  X 

1154 

106 

2 

85  3 

681 

B5TOB8 

l, 2471 

10  fil 

CALLQERR 

17,2124 

1430 

1 

1429 

CDUTFMPY 

1 1 55 

106 

2 

853 

8 8 1 

853 

881 

Z *MM*N  1 

23,  366C 

1251 

2 

1251 

1 2 52 

CA  LLRPRT 

1 3 ,2452 

1126 

1 

1126 

CDUT  IMEF 

E 5 , 1436 

= 

131 

C*  MM* N? 

23, 3662 

1251 

1 

125  1 

CALLPTPP 

1 3,  2362 

1124 

1 

1124 

CDUT1  ME  I 

F5  ,1434 

= 

131 

Z *MM*  N 1 

23,3673 

1251 

2 

1251 

1252 

CALLT-35 

36,  2213 

72  0 

1 

7 20 

CDUTODCM 

22,2410 

3 62 

3 

356 

489 

CA+ECt 

" 7,  3105 

1303 

1 

176 

CALOOP 

14,3332 

939 

1 

939 

C PJ  T R I G 

23,  3535 

1248 

10 

495 

972 

CADFFlSH 

-372 

10  1 

8 

157 

1359 

C AL  OOP  1 

14, 3360 

939 

2 

939 

CDUTR1GS 

23  ,3545 

1246 

3 

1248 

1251 

0 37  3 

101 

C ALSAM 

15  ,2545 

954 

32, 3412 

RC'O 

cadpmask 

! ,3512 

1361 

1 

1352 

CAL  SAMI 

15,2544 

9 54 

1 

953 

CDUWX  FR 

30  ,3425 

9 10 

1 

9 10 

: AD  R S TCP 

1041 

103 

13 

229 

1 357 

CAL53A 

1 4,  3321 

939 

1 

922 

COUX 

0032 

= 

93 

30 

157 

1426 

C AG  ES  U B 

<’6,2735 

1 86 

1 

170 

C ANT900 

C 4 , 2065 

234 

1 

2 34 

CPUXD 

E6 ,16  34 

138 

29 

138 

1438 

: agfsubi 

6 ,274  3 

186 

1 

180 

C ANV37 

04,2136 

235 

1 

235 

C DU  Y 

0033 

= 

°3 

18 

157 

1439 

C A Tl  nr. 

00  51 

= 

93 

2 

180 

l4r  6 

CAGETFST 

j 7 ,3640 

1316 

5 

1300 

120  5 

CC  AL  L 

6640 

10  14 

1 

1002 

CDUYD 

E6  ,1635 

= 

138 

12 

158 

1439 

ZAGFTSTO 

07,3626 

1316 

1 

131  0 

CCSHOLF 

5706 

137  1 

23 

381 

1454 

CDUZ 

0034 

= 

93 

22 

L 5 7 

1439 

CAGETSTJ 

i.  7,  3652 

1316 

5 

1299 

1 2 C £ 

CC  SL 

7675 

1037 

1 

1090 

CDUZCMD 

0052 

= 

93 

2 

18  1 

1406 

Z AGC  TSTO 

1 7,3645 

1316 

3 

130  6 

1307 

CC*TR  *G 

23,  3541 

1248 

1 

4 86 

CDUZD 

E6 ,16 36 

= 

138 

10 

202 

1*39 

CAI  CD  IR 

E 5,  146  0 

= 131 

CD*  TR*GS 

23  ,3553 

1249 

3 

1248 

1251 

CD'JZOL  IM 

30,  37  B 7 

917 

1 

905 

23 , 335  1 

1242 

C 1FLF  / 2 

1 2 c 7 

— 

Z A L C 5 A 1 

23,3411 

1242 

1 

1243 

C.DES  BIT 

4735 

= 

86 

3 

275 

602 

CENTANG 

E 7, 1620 

145 

6 

205 

657 

CALC.GRAV 

37, 3606 

878 

2 

85? 

656 

CDE  SFLAG 

02  64 

= 

8 6 

2 

277 

519 

CG 

E5,  1560 

= 

126 

16 

126 

797 

CALCGRVl 

37  ,3643 

879 

1 

878 

CDhMVR 

34,  3213 

645 

2 

625 

635 

CGCALC 

31  ,3121 

795 

2 

784 

794 

: a l : c,  ta 

22, 3245 

1238 

4 

936 

962 

CTRVE 

06  ,2012 

162 

C GO  TO 

6715 

1015 

1 

1002 

0ALCMAN2 

0053 

= 71 

2 

369 

27C 

C D U*NR  SM 

2 3,36  66 

1251 

4 

700 

973 

CHAN 

E5  ,1443 

= 

131 

Z ALC  MAN3 

OC52 

= 71 

1 

369 

CCU  *S  MNR 

23,  3653 

1251 

5 

527 

949 

CHANB1  TS 

41  ,27  25 

433 

1 

433 

Z A L CN  8 ^ 

? 6,  346  3 

745 

1 

749 

COUANG 

E5 ,1  543 

= 

131 

CHANDS  P 

41,  2533 

422 

l 

421 

CALCN85 

32,2407 

743 

1 

7 18 

CDUDANG 

F 5,  1440 

= 

131 

CH  ANGEVB 

07  ,2603 

266 

1 

266 

Z ALCPERR 

16,3451 

1426 

2 

1*01 

1426 

CCU  FL  AG 

E5, 1461 

= 

131 

CHANG  1 

5122 

1094 

5 

269 

1281 

CAL  CP  HI 

22,  270  1 

36  7 

1 

367 

CD Ul  NC 

1 0,364? 

1386 

CHANG2 

5126 

109* 

1 

994 

CALf.R  GVG 

31  ,2653 

79C 

2 

78  4 

7FC 

C DU  IN  D 

F 3, 1474 

= 

113 

21 

172 

1313 

CH ANJOB 

01  ,2712 

1099 

4 

1094 

1106 
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S Y MROL 


DEF 


CHANLOAD  41 
CHAM  1 2 
CHAN1  3 
CHAN  14 
CHAM  30 
CHAN31 
C HAN  3 2 
CHAN33 
CHAN5 
Cl  IAN  ft 
CHAN76 
C HAM  7 7 
CHAP 

CHAPALPM  40 
CHAR  IN  40. 
CHARI N2  40. 
CHFCKALT  30 
CHECK  B 
CHECKCTR  1 
CHECKG  3 
CHECK  Cl  37 
CHECKIN  17 
CHFCKMAX  22 
CHECKMM 
CHFCKNJ 
CHECK  P 
CHECKRR 
CHECK  TAB 
CHECKUP  16 
CHECKYAW  27 
CHEKAXIS  27 
CHEK8ITS  1ft 
CHEKMOPE  16 
CHEKSTK  17 
CHEXFRR  32 
CHKRIT1  17 
CHKRMAC-  30 
CHKCORS  C7 
C HKD AT  A 1 20 
CHKFA1L1 
C H KF  A I L 2 
CHKFPAUT  32 
CHK1NGTS  17 
CHKLINLS  2 ft 
CHKL  1ST 


16 


,3231 

0012 

0013 

0014 
00  3C 
003  1 
C032 
0033 

0005 

0006 
0076 
0(77 
0 1 17 

,3465 
,2057 
, 2072 
2757 
7762 
,2644 
, 2332 
, 2335 
,2  300 
2117 
5332 
3331 
3054 
,2662 
,2072 
, 204  1 
3312 
213  7 
,200  0 
201  6 


, 2354 
,2376 
, 2237 
, 2535 
,304  0 
,2014 
5 6 1 4 
5621 
, 3322 
,264  1 
, 2207 
, 354  1 


94 

97 

454 

403 

403 

842 
129  1 
1 174 

383 

383 

1433 
357 

1283 

1276 

1419 

285 

234 

1399 

843 
49C 

13Q8 
1 398 

1434 
584 

1432 

839 

1302 

290 

1369 

1369 

808 

1438 

482 

983 


R EFERENCES 

1 437 

71  171 

22  2 19 

26  1 BO 

12  167 

21  286 

3 1 64 

21  173 

6 219 

3 219 

2 218 

5 40  3 

18  403 

1 1327 

2 40  3 

1 841 
1 1288 

2 1168 

2 380 

1 384 

1 1432 
1 357 

5 7 20 

3 1276 

l 1419 
1 28  5 

1 234 

1 1399 

2 842 

1 490 

2 1399 

1 1408 
1 1432 
1 58  3 


l 4 78 
1445 
1 4 C 7 

i?se 

14  32 
871 
8 59 
1438 
1 4 C 1 

1216 

405 

456 


1186 

381 


e43 
140  5 


1 298 

1 137  1 
1 1359 
1 8C8 

1 1438 


SYMBOL 

CFKMINT J 

CHKNOVAC 

CHKPOOH 

CHKPR 10 

CHKR  TI  MR 

CHKS  AB 

CHKSB 

CHKSD 

CHKS  DA 

CHKSDATA 

CHK  SR  C H 

CHKSUPR 

CHK  VI  SFZ 

CHNL  12 

CHRPPI  0 

CH31TEMP 

CH5MASK 

CH6MASK 

C IRCL 

CIRCULAR 

CKIMUSE 

CKM  ID2 

CKMODCAD 

CKSTALL 

CK4V32 

C LEANDSP 

CL  EANEND 

CLEAR 

C LEARMRK 

CLEAR  1 

C LOAD 

CLOCKCON 

CLCCPL  AY 

CLOG2/32 

CLOKJOB 

CLCKTASK 

CLOSEADR 

CLCSFfJUT 

C L PA  SHI 

CL  PA  SS 

CLRADMOD 

C LR  MOON 

CLROVFLW 

CLRXFLAG 

C LR  5 


OEF 

17,  3656 
"1  ,3641 
4 3,  2121 

. . 

16,2672 
14, 3253 
14,3255 
1 4,  3274 
14, 3315 
1 4 ,3250 
2fc, 3446 
43  ,3645 
16,2740 
0 066 
4355 
E 6,  1443 
1257 
1260 
34, 2452 
12  ,3670 
5255 
13,  3627 
43  ,2404 
32, 2105 
0 4,  3512 
10,2457 
10, 3234 

40  ,2456 

5505 
40,  25  11 

41  ,3930 
10, 3525 
10,2474 
30,3062 
36, 2736 
36  ,2716 
21, 3532 
17,  3770 
40  ,2  4 74 

1014 
6011 
13,2710 
13,2510 
30  ,27  16 
40,2514 


1455 

1294 

270 

1345 

1416 
938 
938 
93  8 
938 
938 
600 

128  1 

1417 
1464 

469 

134 

108 

108 

634 

1190 

1112 

1214 

279 

215 

1379 

1346 
1356 

409 

1343 

409 

434 

1361 

1347 
849 
730 
730 

1472 
1446 
409 
103 
525 
1201 
1128 
R4  l 
409 


REFERENCES 

2 1453 
1 1297 

6 2 R6 
1 1344 
4 1 4 1 6 

1 93  8 

1 938 

1 938 

2 937 

1 604 

1 1281 

1 1416 

3 14  54 

7 164 

2 1420 
196 

6 197 

3 633 
1 1 1 R9 


11 


1456 
47  5 
14 17 


1380 

1434 

1493 

1428 


1 1222 
3 271 

1 215 

3 1378 

3 505 
1 1354 

1 404 

2 2 32 

1 409 

1 415 

1 1 347 

2 731 

1 8 49 

1 7 30 

4 250 

1 1472 

4 1442 

1 409 

1 3 229 

9 236 

2 1202 

1 1 1 2 fl 
1 842 

1 4 09 


462 

552 

1229 


SYMBOL 

CLUPDA  TE 
CLU  PLOCK 
C LI /NET+ 
CMNTOVFL 
CMOON 
CMOONBI  T 
CMOON  FLG 
CMPONENT 
CMP  XI 
CNGL 

CNTABTAD 
CNTCHK 
CNTDNDEX 
CNTRCHK 
CNTRCON 
C NT R LOOP 
CDAALIGN 
CHARE  INF 
COARS 
COAR  SE 
COARS  ERP 
COAR  SRE  T 
COAPSTOL 
C OARSTST 
COARSTYP 
CnARS 1 
CHARS2 
CPASCODE 
COAST  08 
COA  ST  Sr  T 
CO AST  T J 
COAT  P I M 
COP 
CODE 

C0DF1  T06 

C0DE500 

C0DE7 

COE FC  TR 

COEFF 

COEFFO 

COEFFR 

COF 

COFMAXGH 

CHFSKEW 

COCA 


DEF 

35,3601 
04,  3355 
20,3466 
12,2315 
D 0 22 
4740 
0 173 
30  ,2606 
F 5 , 1 44  5 
22,  2400 

21  ,2027 
07,2235 

4762 
43  ,3465 
4771 
43  ,3466 
37,2301 
14,  3352 
07  ,2755 
14,3557 

0 7 ,33  55 

1 5 ,2  2 04 
07,  3063 
07  ,3521 
15,2214 
07,  2762 
07,3005 
07,2137 
E6  ,1602 
36  ,3606 
17,  3455 
15  ,3250 

CO  40 
0124 
07  ,2123 
32,2704 
07  ,2107 
0 160 
20, 3217 
F6  ,1626 
E6, 1627 
F6, 1667 

22  ,2176 
Eft, 1724 
E5  ,1766 


REFERENCES 


67  6 
1328 
1488 
1169 
9 28 
80 
8C 
840 
132 
362 
R22 
259 
731 
1278 
127? 
1278 
383 
936 
1301 
944 
13C  3 

922 
1303 
1316 

923 

1301 

1302 
254 
138 
747 

1451 

965 

1139 

97 

253 

775 

253 

1484 

1484 

138 

138 

139 
358 
136 
129 


1 1169 

2 927 


1 822 

5 7 19 

1 1278 
1 1279 
1 381 

1 130  1 

5 939 

2 130  2 

1 64U 

1 1303 

2 1313 

1 922 

1 130  1 

2 1302 

1 253 

7 1451 
1 746 

4 1451 
1 962 

4 1 134 


253 
775 
253 
14R2 
1482 
138 
1 445 
357 


HEALTH  KF  Y : NCR  M A I LY  OEFINEC  UNLESS  FLAGGED  AS  FOLLOWS: 


= DC  T I NE .)  3 Y FOLALS 
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MD  MULTIPLY  DEFINE!. 


928 

1201 


733 


9o5 


130  3 

1491 

1457 

L l 3 5 
46  1 


l 483 
14  83 
16P,  3 
L 4 83 
491 

360 

1189 
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SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES  SYMROL  OEF  H REFERENCES 


CQGAF  BIT 
COGAFLAG 
CD  GAM  AX 
COGAMI  N 
CDGAOVFI  12 
C OG  LO  L I M ( 4 
C 03 UP  LI  M C4 
COL  I'1  f A 
COLREG 
COMAORS  AO 
COM  FA  IL  36 
COMFAILl  36 
COMFA  1 L 2 36, 
II 

C 0 MF  A I L 4 36, 
COMF1.  AG 
COMMAND  E3  , 
COMMFOS  20, 
COMMFX  A3, 
COMMINIT  3-, 
: OMMNOlIT  12, 
COMMON  36, 
COMMONLM  12, 
COMNEG  C7, 
COMP 

COMPCHK  06, 
COMPDISP  37, 
COMPICK  A 1 , 
CDMPMAT  13, 
COM  PM  ATX  27 
COMPMFSN  2 7 
COMPNUMB 
COMPOS  i 7 
CDMPTFST  A 1 
COMPTGC  35, 
C0MPTST1  A 1 
: OMP  1 2 
COMT  ERM 
COMZFRO 
CONC+S 1 

C0NC+S2  

CONICS  12 
CONICS  1 CA 
CONST  30 
CONTABRT  05 


11  , 


A3 


nolo 

, 2 76  A 
, 30  3 A 
, 3032 
,3  13? 
1116 
,353? 
, 2570 
,2607 
2622 
261 1 
? 61  3 
55?2 

1 A7  1 
257A 
352  A 
2267 
27  A 7 

2 AO  A 
3A36 
306  A 
7702 
3561 
3A0  1 
25A2 
2240 
2072 
2151 
1 167 
70  17 
2A  5 3 
2A37 
2A55 
221  1 
30A2 
3074 
32A0 
32A  1 
200C 
2000 
? 566 
3414 


81 
Rl 
1 193 
: 1 lo  3 
1177 
1176 
1176 
1 l 79 
116 
1279 
72B 
728 
728 
72  8 
728 
1 363 
1 13 
14  76 
1279 
832 
1 177 
7 24 
1187 
130  3 
10  37 
3 3 P 
700 
A2? 
7CA 
A89 
A90 
106 
1 3o  2 
A20 
6 4 8 
420 
355 
1224 
1303 
1 ?7  5 
1275 
30 
28 


3 1177 
A 1 1 E A 
B 1185 
2 1177 

1 1 1B8 

2 1185 

1 1179 

7 10  6 

2 1281 

2 249 

1 731 

1 731 

3 717 

2 717 

2 7?9 

6 1298 

1 1476 

2 1281 

2 B?5 

1 1190 
1 7 1 8 

1 1137 
1 130  2 
A 100  A 
1 337 

1 702 


L 186 
l 187 
1 1 89 


7 19 
718 
1363 

1 30  3 


1 


422 


11 


A9  1 
A90 
106 
1 1 3o  2 
6 42  0 

1 675 

1 421 

1 359 

1 1227 

2 1302 
1 1279 
1 1279 

3 1164 

4 46 


l 3 82 
434 


B38 

822 


CON  T 81  2 
CCNT DESG 
CONTOE  S2 
CON T INU 
CCMTMANU 
CONTSFR  V 
CCMJMNOR 
CCNV3 
C0NV4 
CCNV5 
CONI 
CON  2 
CCN2ADR 
COPT  F S 
CCPIES2 
CCPI  NDE  X 
COPMPAC 
CCPYCYC 
CUP  YC  YCL 
COPY  CYC  1 
CCPYNCRM 
COPYPAC  S 
CCPYTOGO 
C ORE  1 NC 
COR  FO  UNO 
CCRSCHK2 
C DR  SI  T 

cos  cm i 
coscnux 

COSCOUY 

CCS  ecu  z 

CCSF 
COS  I 
COSINF 
COSMG 
COSPHI/2 
CCSPHI  E 
COSTAL  IL 
CCST  AL  IN 
COSTH 
COST  HET 1 
CCSTHET2 
C0S1/2DG 
CCS  15  DEG 
CCS60DEG 


0 1,  36  67 
26,3571 
26,3600 
43,  36  15 
22,3  17T 
33,3222 

41,  3141 
A?  ,3631 

42,  3642 
42,3644 

5416 
10,  2312 
5433 
1C, 2736 
10,  2737 
0164 
0 1 57 
33  ,3673 
33,3365 
33,  3233 

10  ,2735 
10, 2420 
10,  2416 

01  ,3037 
01,  2642 
07  ,3052 
1 5 ,3  277 

0743 
0747 
0743 
0 745 
0030 
26,  2000 
On  ,35  17 
0061 
0022 

1 1 ,3254 

OUOO 
05,2173 
0020 
E 5,  1554 
E5 ,1555 
25,30  54 
23,  2315 
23  ,251  5 


1295 
602 
602 
1281 
372 
868 
436 
495 
495 
495 
1288 
129  1 
1288 
1351 
1351 
1361 
136  l 
880 
870 
868 
1351 
1345 
1345 
1102 
1098 
1303 
965 
102 
102 
102 
102 
1194 
53 
1073 
1401 
1237 
1227 
242 
203 
128 
125 
125 
561 
529 
605 


5 1280 
1 371 

7 859 

1 436 

1 495 

1 495 

1 1289 
1 1288 
1 1288 
1 1344 
1 1349 
20  1345 
3 13  57 

3 852 

1 857 

1 858 

1 1348 
1 1354 

1 1355 

2 109B 

2 1302 

1 965 

5 1C  2 

6 4 86 

5 4 86 

7 486 

4 1189 

2 1135 

2 1004 

1 1 '14 

6 1224 

1 1224 

3 242 

2 199 

18  305 

2 125 

2 126 
1 559 

1 5 ?7 

2 602 


1281 

876 


1369 

1360 
88  1 


1102 

1303 

1250 

1255 

1265 

1254 

1190 

1249 
1 95 
1227 


21? 

1242 

842 


COTRCLER 
COUNT 
COUNT  • EM 
COUNTPL 
COVCNV 
COZYA 
C PH  I 
CPS  I 

CPF WMANU 
CR  1 TCON 
CR0SCL1MP 
CRD  SSOUT 
CS  I/A 
C ST  /B 
CSI  /9  1 
CS  I/R2 
C SI  /B22 
C S I /B  2 3 
CSI/B23D 
C SI  /3  3 
CS  I/CDH 
CSI  /CDH  1 
CSI  /SOL 
CS  I AL  RM 
CSI  STEP 
CSMCON  IC 
CSMCKFL  G 
C SMPOC KD 
CSM  INT 
C SMMASS 
C SMPREC 
CSMSTORF 
CSMVEC 
CSS 
CSSUN 
C SS33 
CSS4D 
CSS5 
C STH 
CS T H-RHO 
CSTCUAY 
CSUN 
CS359  + 

C THE  TA 
CTL  1ST 


E6  ,1630 
C l AT 
11,2326 

E5  ,1542 
42,3703 
E7  ,1666 

0321 
0323 

43  ,3004 

40.2304 
21,2565 
21  ,2663 
34,2173 
34  ,2205 
34,2245 

34,  2256 
34  ,2276 

34.2304 
34  ,2317 
34  ,2410 

35,  2000 
34  ,2300 
34,3017 
E7 , 1613 

34  ,3012 
13,3065 

3305 
4737 
24, 3357 
1327 
13,3042 
23,  2427 
43  ,3043 
0016 
1 4 ,2577 
14  ,2756 
14,  2754 
1 4 ,2  5 75 
E 5, 1731 
E5, 1 735 
05  ,2023 
0020 

35  ,2422 

0322 
0 334 


813 
131 
496 
146 
1 00 
100 
291 
406 


631 

631 

632 
632 

632 

633 
35 
34 

639 

145 

638 

1204 

88 

88 

577 

109 

1204 

692 

293 

931 

928 

931 

931 

928 

129 

129 

53 

928 

629 

IOC 

101 


896 


813 

496 

68 1 684 

345  1404 
356  1403 
268 
405 
89  3 
896 
621 
63  9 
636 
638 
632 
632 

632 

633 
619 
6 30 
638 
145 
638 
344 


601 


298  1474 
577 

2D  2 148  2 
37  720 

692 
269 
931 
928 
930 
930 

327  9 28 

129  1190 
129  1 1 R 5 
976 
928 

37A  1403 
101  983 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OFF 

H 

REFFRENCES 

SYMBOL 

DEF 

H 

REFERENCES 

CTRCFECK 

21,  3610 

1497 

1 

1496 

DAP  IDLER 

16,2024 

1399 

3 

229 

1401 

DCOMP 

7717 

10  37 

2 

1037 

C.  HI  T& I T 

4745 

= 

72 

CAPL  RUPT 

F6, 1753 

= 

141 

DCOMPTST 

41  ,2466 

421 

2 

420 

CULTED 

1 A , 2 7 5 1 

931 

4 

931 

DAPS1 

16  ,200" 

- 

31 

4 

1 398 

1464 

DCTSTCYC 

4 1 ,2501 

421 

2 

437 

C 1 L T FLAP, 

00  6 5 

- 

72 

4 

930 

931 

0 A P S 2 

17,  ?000 

= 

31 

13g2 

32  ,25  3? 

773 

1 

CULTRI  X 

E5.17C6 

= 

127 

l 

931 

DA  PS  3 

. 

= 

31 

6 

43 

l4  8 5 

DDUMGRI  T 

32,2711 

776 

1 

773 

CJRSOR 

123  = 

= 

107 

6 

157 

5 6 1 

DAPS4 

21  ,2000 

= 

31 

4 

1460 

1496 

cniJMGono 

32,  2613 

774 

l 

773 

CURTAINS 

5712 

137  1 

8 

9 34 

c 60 

CAPTEMP  1 

E6.  1736 

1 4 0 

29 

134 

L458 

DDV 

7611 

1035 

1 

10  0 2 

CUTOFF 

14,2416 

84  4 

4 

733 

844 

CAPTFMP2 

E6, 1737 

= 

140 

12 

135 

1459 

DDV/BDDV 

00,2353 

1048 

2 

817 

1035 

CUT0FF1 

14,  2430 

844 

1 

8 44 

DA  P TE  MP3 

E 6,1  740 

= 

140 

0 

135 

1459 

onv  call 

00,3304 

10  59 

1 

10  59 

: UTOFF  2 

34  ,3544 

845 

2 

P 45 

E6,  1741 

= 

SVECTR 

0010 

= 

1139 

1 

1135 

DA  PTE  MP5 

E6  ,1742 

= 

140 

5 

135 

1413 

DEB  IT 

5533 

136? 

3 

729 

1363 

CYCLEAOR 

33, 3736 

882 

1 

074 

0APTFMP6 

E 6,  1743 

= 

140 

1 1 

1 35 

1458 

DEC -12 

12  ,20  1 6 

1092 

: YC  L SHF  T 

43,3474 

1279 

C APT  REG  1 

E6, 1744 

= 

140 

3 

136 

140 

DEC-6 

12,2015 

1092 

CYL 

0022 

= 

93 

23 

405 

1 27^ 

DAPTWEG2 

E6  ,1  745 

= 

140 

1 

1 37 

DFCBRNCH 

0 7 77 

103 

18 

404 

455 

CYR 

3P20 

= 

93 

42 

2 39 

1 ^94 

cap™  CG3 

F 6,  1746 

= 

140 

1 

137 

DFCCENO 

40,2245 

405 

2 

405 

: 1/2 

773  1 

1 0 8 P 

1 

1 0Q3 

0APTREG4 

E6  , l 7 4 7 

= 

C 1 3 BAN  K 

17, 2000 

= 

31 

1 

57  1 

DAPTREG5 

E 6 ,1  750 

= 

140 

5 

135 

1414 

DEC  DSP 

4 1 ,2552 

422 

1 

4 1 4 

cUfsav 

1266 

1 C 8 

2 

571 

572 

C APT R E G6 

E6,  1751 

= 

140 

7 

137 

1414 

DFCDSP3 

41  ,2624 

423 

2 

423 

: 13DSAV 

1 265 

l C 8 

8 

9B4 

1445 

DAPT4S 

06  ,3140 

= 

194 

3 

165 

193 

DFCEND 

40, 2250 

405 

2 

405 

412 

C13S  LOOP 

17,  2030 

571 

1 

57  2 

DA  PZ  P UP  T 

E 6,  1756 

= 

1 4 1 

4 

1400 

1447 

DEC  CN 

40  ,231  1 

406 

1 

406 

: 13STALI 

6022 

572 

10 

475 

1444 

CAS  AMPL 

25,  3337 

567 

1 

567 

DECOUNT 

0117 

= 

97 

27 

416 

440 

C 1 3ST AL  1 

17,  2022 

671 

1 

57? 

OA  TAGGCD 

E7 ,1  733 

— 

148 

5 

148 

604 

PEC CT  IMR 

16,  27  10 

1 4 1 6 

1 

1 4 1 6 

C3/2 

7751 

1089 

1 

109  3 

CATAPL 

E 5,  1472 

= 

131 

13 

380 

384 

DECRET 

0115 

= 

97 

2 

436 

437 

: 33JMP 

'6,2763 

1 87 

l 

1 74 

C ATGDCHK 

26  ,3656 

604 

1 

604 

DECROUND 

40,3316 

450 

1 

449 

C33TFST 

r 6, 2374 

173 

6 

170 

172 

OA  XMA  X 

30,3753 

9 1 7 

2 

908 

917 

DEC  RT  IMR 

16  ,27  12 

1416 

1 

1416 

: 5 /2 

500  5 

1087 

1 

1093 

CAY/ 2 MAX 

30, 3755 

917 

2 

508 

917 

DFC  TEN 

01?  2 

= 

97 

3 

422 

DA Z MAX 

3C  ,3753 

■= 

91  7 

1 

908 

DFCTEST 

41,  2472 

421 

2 

420 

421 

0 ACL  I MIT 

140  7 

3 

1 40  7 

OB 

1343 

110 

R 

11, 

1487 

DECTOBI  N 

40  ,22  1 2 

405 

l 

AOS 

3 AC  LOOP 

20,2410 

1407 

1 

1407 

ceBi 

0143 

= 

1493 

5 

1486 

1491 

DEC  17 

4361 

= 

386 

3 

378 

851 

DAD 

7 007 

10  ] 7 

1 

1002 

DBB2 

0144 

= 

149? 

3 

1486 

1490 

DEC  227 

15,  2566 

954 

1 

953 

DALTEYE 

32  ,3523 

eii 

1 

8 10 

CBB3 

0146 

= 

1493 

4 

1487 

1490 

DEC  23 

42  ,2033 

280 

1 

280 

DM.  T3  A TE 

E 7 , 1721 

= 

154 

3 

1 54 

890 

CPP4 

0145 

= 

1493 

6 

1487 

140  ] 

DEC  27 

4764 

= 

1087 

DAMPING 

17, 2374 

1 434 

1 

1434 

DBF  UN 

20,3562 

1490 

1 

14  90 

DFC29 

4765 

= 

10  87 

DANZIG 

6073 

994 

67 

818 

1390 

C60  NE 

20,  3371 

1487 

1 

1487 

OFT  45 

4772 

10  87 

2 

1 l 07 

1080 

3 A PA  R IJPT 

E 6,  1 752 

= 

141 

5 

141 

14  46 

DR  SE  LECT 

4750 

= 

09 

1 

1395 

DEC48 

4773 

- 

812 

1 

804 

DAPATT  ER 

43,2 164 

272 

1 

26R 

DBSELFLG 

0316 

= 

89 

DEC5 1 

04 ,3240 

1321 

3APP1 TS 

21  ,2031 

822 

1 

822 

CPSLECT2 

47  47 

= 

89 

1 

1395 

DEC  58 

37,2474 

386 

1 

300 

DAP BOOL  S 

0 11  l 

= 

88 

66 

158 

14  5 7 

[>R  SL2FLG 

0315 

= 

89 

CEC585 

37,3055 

39  3 

1 

381 

0 ApBQR PT 

F6  ,1754 

= 

14  1 

2 

1 4 1ft 

1446 

CBVAL  1 

1343 

= 

110 

6 

1485 

1491 

DEC  66 

21  ,2331 

888 

1 

887 

DAP  p A TA  1 

2C , 2Pf A 

297 

1 

297 

CBVAL2 

01  14 

= 

149  4 

2 

1485 

1487 

CEC  70 

04,2411 

240 

1 

2 34 

DAPDAT A? 

' l,  224  1 

300 

3 

300 

DR  VA  L 3 

0115 

= 

14  94 

3 

14  85 

1488 

DEC75 

31  ,36  34 

8 19 

1 

8 1 8 

3 A PD A TA3 

01,2306 

300 

CCCU 

F6,  1634 

= 

139 

DEC  59 

31  ,3635 

819 

2 

819 

DAPDATR  1 

l 34  C 

110 

10 

298 

319 

DC  MC  L 

30  ,3214 

904 

1 

911 

DEFUNCT 

21,  3142 

1462 

1 

1462 

D A PDAT  2 

01,2256 

TOO 

1 

300 

DC  M TOC  DU 

22,  2654 

367 

2 

3 70 

49I 

DEG. 5 

15  ,2475 

952 

1 

950 

3 A PP  I SP 

43,31?  C 

297 

1 

268 

CCCGA 

0014 

= 

1193 

4 

1 186 

1188 

DEGCDM 

40,2712 

42  5 

1 

424 
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UN  UNDEFI NFD 
RO  P A DL  v DFFIMFD 


= CEFINFC  BY  EQUALS  J DEFINED  3Y  JOKER  OR  ERASE  ANYWHERE 

CD  DEFINITION  A $ SCC  I A TED  WITH  CONFLICT  XX  MISCELLANEOUS 


MD  MULTI  PLY  DEFINED 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

DEGCDN  1 

40,3131 

440 

l 

430 

DE  LTATCK 

04  ,3626 

1381 

1 

13R1 

DESGLOS 

26,3640 

604 

1 

602 

BEGINS  F 

40,  30  4 5 

4 39 

2 

433 

DELTA  X 

E 5 , 1 6 64 

= 

130 

12 

130 

1147 

OFS  IGB  IT 

6742 

= 

86 

5 

275 

555 

7E3I  NSF? 

40,3056 

4 3° 

CELT  EEO 

E7,  1605 

= 

145 

4 

665 

DE  S IGF  LG 

0271 

= 

86 

1 

555 

DEGOHTSF 

4 Z60  4 

424 

2 

423 

4 24 

OF  LTI  ME 

12  ,2421 

1171 

3 

1167 

1186 

OESl OOP 

25,  2571 

555 

5 

555 

605 

DEGREE1 

1 4 , 3 40  3 

94D 

1 

q 3q 

DELTTFAP 

E 7,  1425 

142 

1 

786 

DF  S RET 

1112 

105 

10 

105 

552 

D EG  TA  B 

40,2722 

426 

2 

42  5 

426 

DELV 

9324 

100 

14 

100 

958 

DESRETRN 

25,2437 

550 

1 

549 

DEG3? 

15,  2473 

052 

2 

253 

E5C 

OEL  VC  SI 

E 7 ,1  5 73 

145 

16 

145 

638 

DESRTRN 

26,2443 

55C 

2 

5 50 

DEG^5  o 

14  ,340  4 

940 

1 

93  9 

DELVCTL 

F 7 » 1501 

= 

151 

3 

745 

746 

DFTENTC  k 

16  ,3071 

1420 

2 

1418 

1419 

0 EG  60 

15,  2477 

952 

0ELVEET1 

E4 ,1657 

119 

5 

2 00 

632 

DEXDEX 

0 142 

= 

98 

7 

1248 

1253 

DEL 

F6,  1744 

- 

1 36 

3 

1462 

1464 

OEL  VEF  T 2 

F 4 , 1665 

119 

6 

200 

647 

OEX  I 

0U3 

— 

99 

1 

1252 

DELAYEX 

5246 

11  1 1 

1 

1110 

DELVEET  3 

E4,  1756 

121 

15 

2C0 

766 

DE  XI 

0143 

= 

98 

5 

99 

1253 

DEL  AY  JOB 

i 0,  3736 

1365 

17 

215 

544 

DE  LVI  MU 

E7 ,1  6?2 

146 

7 

322 

749 

DEX  2 

0 144 

= 

99 

DEL  AY  LOG 

1323 

109 

6 

229 

1-66 

oavLvc 

E 7 , 1433 

143 

20 

143 

703 

DF  RNT 

40  ,3415 

452 

DELA  YNUM 

4752 

= 

37 

1 

1 365 

DEL VOV 

125? 

= 

107 

5 

322 

704 

DGB  F 

20,3103 

148? 

2 

1478 

DEL  CDUX 

E6, 1637 

138 

6 

138 

14C9 

DEL  VREF 

F 7,1524 

= 

15  1 

5 

1 51 

856 

DGB ITS 

2s  ,3134 

563 

4 

562 

567 

DE  LCOUY 

F6  ,164f 

1 3 8 

3 

139 

1409 

DEL  VS  AB 

E7, 1663 

146 

4 

1 46 

751 

DGCHFC  K 

25  ,3  2 31 

565 

D F L 0 D U 7 

F 6,  164  1 

= 

138 

3 

139 

14C9 

DE  LVS I N 

E7 ,1655 

= 

146 

14 

146 

75  1 

DGCHECK2 

25, 3232 

565 

3 

567 

DELCOMP 

22,2  52  7 

364 

3 

369 

490 

DELVSLV 

E 7,  1433 

= 

143 

4 

1 

615 

DGOODCH  K 

25  ,2766 

560 

1 

560 

DELDC  DU 

Efo,1637 

1 39 

2 

370 

374 

QELVT EST 

27,  22  52 

75  1 

DIOFLAG 

0020 

68 

DEL  DC  DU  1 

E 6,  1640 

= 

130 

1 

374 

DE  LVTPF 

121 

3 

205 

658 

DIDFL  BIT 

4736 

= 

68 

4 

224 

896 

DEL  OCPU? 

Eb  , 1 64  1 

= 

1 3o 

1 

37  4 

DELVTP  I 

E 7,  1575 

145 

5 

145 

658 

DIFEO+O 

1 1 ,3456 

1231 

1 

1227 

DEL  IF  P 

F 5,  1757 

— 

129 

5 

129 

1 1 74 

DELVX 

D324 

= 

100 

10 

3 ? 1 

880 

D IFFO  + 1 

11,3462 

1231 

1 

1227 

DELDV 

F7,  161  1 

145 

13 

145 

C 3 8 

DEL  VY 

0326 

= 

100 

6 

334 

880 

0IFEQ+2 

11  ,3473 

1231 

1 

1227 

DELEL 

E 7 , 1 575 

= 

145 

4 

662 

665 

DELVZ 

0330 

= 

100 

5 

334 

880 

DIFEQCNT 

E3  ,1500 

113 

25 

113 

1233 

OELELO 

0032 

657 

3 

662 

665 

DE  LX 

E5 ,1642 

1 ?9 

6 

129 

1169 

D I FEQCDM 

11,  3636 

1233 

2 

1231 

DELFRLIM 

30 , 3755 

9 17 

1 

9 io 

OEP 

0036 

= 

1194 

1 

1173 

DIFFOT AB 

11  ,3267 

1227 

1 

1227 

delgmplp 

30.,  3264 

905 

1 

9 0 6 

OEPRCR  IT 

22,3661 

821 

2 

780 

DIFEQO 

11 , ^362 

L228 

1 

1232 

DEL  INDEP 

Ofi  1 4 

= 

1 104 

2 

1 173 

1 1 7A 

DE  PRF V 

E5 , 1 761 

129 

3 

1 29 

1173 

DIFFALT 

F7, 1 577 

145 

5 

200 

646 

DELLOOP 

00  ,3741 

1365 

1 

136  5 

DERCL  OOP 

31,  3445 

816 

1 

816 

DI  MOBI T 

4753 

72 

DELL  T4 

E 7 , 1451 

143 

8 

143 

75? 

DERCOF+1 

0153 

= 

99 

DIMOFLAG 

0073 

= 

72 

23 

243 

1233 

OELM 

E5,  1550 

122 

5 

391 

DERCOF-  1 

0 1 5 1 

99 

DINDX 

0063 

14  1 

6 

140  7 

I F L MA  X 1 

34,2165 

630 

2 

638 

DERCOF-2 

0 150 

= 

99 

DIR AORF  S 

6 120 

9°  5 

2 

1009 

DELHI  P 

2 7,  2646 

390 

1 

391 

DERC  OF  -3 

0147 

= 

99 

OISDtfLVC 

35,  2375 

628 

2 

621 

643 

OELOK 

12,2632 

1174 

1 

1 173 

DERCOF—  4 

0 1 46 

= 

99 

DI SGRVER 

15  ,2772 

958 

l 

957 

delperor 

1274 

1 08 

5 

37  2 

1426 

CERCOF-5 

0145 

= 

99 

DI SPCHNG 

36,2402 

724 

4 

717 

723 

DELOEROR 

1275 

108 

3 

37  4 

14  35 

DERCOIF-6 

01  44 

= 

99 

DIS  PCOMN 

31,3355 

799 

1 

800 

DELQ^  IX 

E5  , 1 50C 

125 

2 

125 

863 

DERCD  F-7 

0143 

99 

DI  SPDEX 

1 162 

106 

24 

152 

823 

DFLREROR 

1276 

1 C 8 

3 

374 

1 439 

DERC0IF-8 

014? 

= 

99 

DISPEXIT 

31,3331 

798 

785 

798 

DELPS  PL 

22,  354  1 

= 

37 

OERCOFN 

0152 

= 

99 

1 

8 1 7 

DISPGYRO 

1 5 ,3307 

965 

1 

962 

DELT 

F5 ,1644 

= 

129 

3 

129 

1 167 

OER  PT  R 

0 141 

= 

99 

3 

815 

816 

01 SPINI T 

21,270C 

896 

1 

891 

DELT  ACSM 

E 3,  1572 

114 

l 

598 

DERTA8LL 

31  ,3536 

817 

1 

815 

DISPLACE 

41,  3136 

436 

2 

435 

436 

DELT  AH 

E7, 1664 

= 

154 

7 

154 

664 

DE  SA  SC N T 

0004 

= 

243 

3 

242 

DI  SPLAYE 

35  ,3611 

677 

2 

656 

657 

DEL  TALEM 

E 3, 1644 

114 

1 

598 

DESC/  ASC 

05,2311 

= 

207 

1 

212 

DI  SPLAYS 

10,2000 

= 

29 

3 

1343 

1370 

DEI  TAO 

F7  * 1 546 

= 

149 

8 

149 

1142 

DE  SCRI  TS 

23  ,2501 

814 

1 

261 

DIS  PNOT 

36,3011 

732 

1 

731 

OELTATM 

E7  ,H26 

14-3 

2 

5 20 

DESCOUNT 

1113 

105 

4 

5 1 R 

555 

DI SPN5X 

40  ,3754 

698 

2 

698 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF,  tl  OF 


SY  MBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFE 

31 SPRATF 

20,2257 

1403 

DL  128 

E6,  1636 

202 

OISPRSET 

21,  2 72  c 

0 96 

3 

885 

P51 

DL129 

0033 

= 

202 

Dl  STEM 

r,  1 22 

= 

97 

3 

4 20 

DL  130 

0034 

= 

202 

DIVIDER 

16,? 304 

1410 

2 

1410 

DL131 

0035 

= 

20  2 

D<  Al  T 

16, 3444 

1425 

1 

1426 

DL  132 

E 6 ,1 42  5 

= 

? 02 

3KDB 

F6  ,1411 

133 

2 

220 

1498 

OL  133 

E6,  15  14 

= 

20  2 

DXKAOSN 

E 6,  1405 

133 

1 

220 

DL201 

E6  ,1516 

= 

204 

DKDMFGAN 

E6,  140  4 

133 

2 

220 

14  13 

OL  2o 2 

E 6, 1517 

= 

204 

D KTRA  P 

E6 , 1 4C  3 

133 

2 

220 

1413 

DL2D3 

E6,  1520 

= 

204 

DL  AND 

E 5,  1612 

= 

126 

12 

126 

7 8 8 

D L204 

1331 

= 

204 

DLANDX 

E5  , 1 6 1 2 

= 

126 

1 

321 

CL  205 

1334 

= 

204 

DL AND Y 

E 5 , 1 61 4 

- 

1 26 

1 

321 

DL?  06 

, 1335 

= 

204 

DL  AN  DZ 

E5 , 1616 

= 

126 

1 

321 

DL207 

1336 

204 

0 LAYJOB 

00 ,2000 

- 

2a 

1 

1365 

CL  20  8 

0025 

= 

204 

OLDAD 

6064 

993 

1 

10C2 

0 L?  09 

1356 

= 

20  4 

DLO'AD* 

7745 

1089 

1 

997 

DL210 

0037 

_ 

204 

D LOAD  COD 

7744 

1 089 

1 

1009 

DL211 

0 0 40 

= 

204 

DL  Y 2 

5223 

1110 

2 

1110 

1365 

DL212 

0041 

= 

204 

Dl  1 1 

1336 

= 

201 

DL  2 1 3 

0113 

= 

204 

DL  102 

002  5 

= 

2 01 

0L214 

1327 

= 

204 

DL  10? 

E6,  1516 

= 

20  1 

DL215 

13  00 

= 

2 06 

3 Li  04 

£6 , 1 5 1 7 

= 

2:  1 

DL  2 16 

0 113 

- 

20  4 

DL  105 

E 6 , 1520 

= 

2C1 

DL217 

E5 ,1741 

= 

204 

DL1D6 

1356 

= 

201 

D L 2 1 8 

E 5,1743 

= 

204 

D L 1 0.7 

1331 

= 

201 

DL  2 19 

E5,  1756 

= 

204 

DL  10  R 

1334 

= 

201 

DL301 

1356 

= 

206 

01  109 

1335 

= 

202 

OL  302 

0025 

= 

206 

DL  110 

1336 

2 02 

DL303 

E6, 1516 

206 

DL111 

1327 

= 

20? 

DL  304 

E 6,1  517 

= 

206 

D L 1 1 2 

i3pr 

= 

202 

DL  30  5 

E6, 1520 

= 

206 

Dl  113 

C 32  1 

= 

202 

DL306 

0037 

= 

206 

D L 1 1 4 

E6,  14?? 

= 

202 

DL307 

0040 

206 

DL115 

E 6, 142 3 

= 

2 02 

DL308 

0041 

= 

206 

DL  116 

F 6,  1635 

- 

202 

1 

0113 

= 

206 

QLl  1 7 

E6 , 16  36 

= 

202 

DL  3 IQ 

1327 

= 

206 

DL  118 

0033 

= 

2 02 

DL311 

1300 

= 

206 

DLll'i 

0034 

= 

20  2 

DL312 

£7,1460 

= 

206 

0L120 

0035 

= 

2n2 

DL  3 1 3 

E7,  1462 

= 

206 

DL  121 

£6,1643 

= 

2C2 

0L314 

1331 

= 

206 

OL  1 22 

E6,  1644 

- 

20  2 

OL  401 

0025 

= 

208 

DL123 

C375 

= 

2 02 

DL402 

E 6,  1516 

= 

208 

DL  124 

0111 

= 

202 

DL403 

E 6 , 1 517 

= 

208 

0L12S 

E6 , 1 4 2 2 

= 

202 

DL  404 

E6, 1520 

= 

208 

DL  126 

£6,1423 

= 

2 02 

DL4P5 

0113 

= 

208 

OL  127 

£6 , 1635 

= 

202 

DL  406 

1327 

208 

HFALTH  KEY:  NORMALLY 

DEFINED  UNLESS 

FLAGGED  AS 

FOLLOWS: 

J N UNDEF INED 

= DEFINED 

8 Y EQUALS 

J DEFINED  BY  JOKE 

QD  BA  Cl  Y 

OFF  INFC 

CD  DEFINITION  ASSOC  IATFD  WITH  CONFLICT 

9:12  CCT.  21  ,1^70 


PAGE  1509 


REFS,  PAGE  IF  FIRST  REF,  PAGE  OF 
tENCES  SYMBOL  DEF  F 


LAST  REF. 
REFERENCES 


DL407  1300  = 

DL408  F7, 1460  = 

DL409  F7  ,146?  = 

DL410  F 7 , 1 74  1 
DL'+H  13  56  = 

DL  501  E4  .1635  = 

DL502  0113  = 

D L5  0 3 0025  = 

Dl  504  0113  = 

01505  1327  = 

0L506  1300  = 

OL  507  E6,  1422  = 

0L508  E6.1423  = 

DL  509  F 6 ,1  63  5 = 

01510  E6 , 16  36  = 

DL5  1 1 00  33  = 


208 
208 
2l  8 
208 
20  8 
210 
2 1 C 
210 


21  0 
210 
210 
210 
210 


210 

210 

210 


DL  5 12  0034 

DL513  0035 

DL514  £6,1425 

DL  5 15  1236 

DI.601  1170 

DL602  11  71 

OL  6 03  1 172 

DL604  1173 

DL6C5  0025 

DL606  £6,1516 

DL607  E6  ,1  5 1 7 

DL  608  E 6, 1520 
DL6 09  1356 

DL610  1327 

DL  6 1 1 1300 

DMENF0 IT  4743 
DMENFLG  C121 

DMODE  7344 

DMP  7115 

DMPNSUB  7330 

DMPNTEMP  3 135 

DMPR  7606 

DMP SUB  7121 

DMPSUB2  7 140 

DMP  l 7604 

DNADRDCR  05,  3540 
DNDIJMP  05  ,3736 
DNDUMPI  "5,37?3 
DNRlJMPl  05,3750 


= 210 
= 210 
= 210 
= 21 C 

= 212 
= 21 2 
= 212 
= 212 
= 212 
= 212 
= 212 
= 212 
= 212 
= 212 
= 212 
= 75 

= 75 

1029 
1022 
102  8 
= 98 

1035 
1022 
1022 
1035 
983 
988 

987 

988 


7 588  1148 

1 1 C68 

22  40  5 1255 

1 816 

2 1c- 2fl 

1 1002 

25  1024  1255 
1 10  27 
1 1002 
1 985 

1 968 

2 293 

1 988 


OR  ERASE  ANYWHERE  MO  MULTIPLY  DEFINED 

XX  MI  SCF  LLANEOUS  TRCJRLE 


988 
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SYMBOL  TABLE  LIST 

INC,  INCLUDING  DEF 

IN  IT 

IDN,  HEAL 

TH,  ^ A GE 

OF  DE-  , 

P OF 

REFS, 

PAGE 

: OF  FIRST  REF  , PAGE 

OF  LAST 

REF. 

SYMBOL 

OFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OFF 

H 

REFERENCE  S 

DNDUMP2 

05,  375 2 

9B8 

1 

988 

D0INT2 

13,2060 

243 

-.1 

243 

DPAGREE 

7267 

10  27 

0 NEC A DR 

0336 

1 01 

18 

1 - 1 

985 

OGIT 

3 i,  2246 

781 

1 

78? 

0P8-14 

26,2416 

4 92 

2 

489 

491 

DNFD'JMP 

A3,  3034 

29  3 

2 

26  8 

2S3 

D Cl  TP66 

31  ,2250 

781 

1 

779 

DPB  IT  14 

01,  3502 

1122 

1 

1122 

DNI ND  EX 

133  2 

_ 

no 

2 

1 10 

OOL  FM 

26, 2462 

588 

1 

58R 

D PD  ATI 

20,2  03  7 

298 

1 

298 

DNLAOMM 1 

r4,?477 

2^2 

1 

239 

CCNBRD 

25,2647 

557 

1 

557 

DP  DAT  3 

01,2323 

3 Cl 

1 

300 

DNL ADPn 

4755 

= 

242 

l 

237 

DONE  YE  T 

71  ,3331 

1468 

2 

1468 

DPHALF 

23,2516 

= 

109  1 

12 

358 

757 

TNLRALT 

1336 

110 

3 

2D  1 

234 

DONTPULS 

07,  3632 

1316 

1 

1316 

DPI  NCOM 

40  ,3166 

440 

1 

441 

DNL^VFLX 

1333 

= 

110 

4 

1 1 0 

2 03 

OOPAXI  S 

20  ,3274 

1485 

1 

1485 

DP  INORM 

40,3174 

44  1 

l 

440 

D N LRV  ELV 

1334 

= 

110 

4 

110 

204 

DOPIF 

31,  2240 

780 

1 

780 

DPI  NSF 

43  ,3151 

440 

4 

438 

441 

ONLRVEl  Z 

1 335 

_ 

110 

5 

110 

204 

DCPROC 

4C, 3641 

4 67 

2 

466 

478 

DPI NSF  2 

40,31 76 

441 

1 

438 

DNL  ST  COD 

0333 

= 

101 

11 

101 

1382 

DCPOTAT 

17,2772 

1441 

2 

1441 

DP  I NS  F4 

40,  3203 

441 

1 

438 

ONPHASEl 

1 5 ,3524 

982 

2 

229 

588 

OORR  EPOS 

25,  2 1 20 

538 

1 

193 

DPI  PAY 

E5  ,1522 

= 

132 

2 

390 

DNPHA  SE2 

'.5,352  2 

sei 

1 

985 

CCRRDUT 

25  ,3C  D5 

560 

2 

560 

DP  IPAZ 

E5, 1 526 

132 

1 

390 

dnrrange 

1 3 

1 1 ■ 

7 

1 10 

583 

DOR  SAMP 

25 , 200  3 

498 

1 

49R 

DPL 1 

33  ,3706 

9 15 

1 

915 

9NPR0CT 

1331 

= 

1 10 

5 

1 10 

321 

CORS AMP  7 

25,  2007 

49  8 

DPI  3 

30,3707 

915 

1 

91  5 

DVITABl  E 

C 5,  7456 

21? 

1 

9 83 

DDRSTART 

95  ,2744 

22  2 

1 

222 

DPL  5 

30,  37  10 

915 

1 

915 

D NT  MRU  FF 

03*0 

= 

i?  1 

23 

160 

5 R 8 

DOSHIFT 

2 1,  3441 

1 4 70 

DPL7 

33  ,37  1 1 

915 

1 

915 

DNTMFRAS 

033  3 

101 

1 

101 

DCS  K I P 

1 7,3037 

1442 

1 

1441 

DPL  9 

30,3712 

91  5 

1 

915 

DNTMfX  IT 

iJ5 ,3715 

985 

6 

584 

see 

DCS  SHF  T 

00,2322 

1046 

1 

1046 

DPMODE 

10,  3700 

1389 

DNTMF AST 

i 6 ,267  1 

1 R 4 

1 

1P.7 

DDSTOR  E 

6 374 

100  5 

1 

994 

DPCSMAX 

4732 

1086 

3 

6*9 

1389 

DM  TM GO  TO 

0335 

= 

1C1 

9 

101 

9e8 

DCSUBLST 

0 5 ,3701 

985 

1 

9 8A 

DP  OUT 

40,2752 

426 

3 

426 

DNT  mi 

0034 

_ 

94 

1 

985 

DP  SWT  TCH 

1 1,3415 

1229 

2 

1228 

1229 

DPPOS  MAX 

23  ,252* 

109  1 

9 

30  5 

701 

0NTM2 

0035 

= 

94 

1 

986 

DOT 

7343 

10  29 

1 

10C2 

OP  SFLI  TF 

20,2526 

1475 

1 

1675 

DOACC  FUN 

! , 3737 

1452 

1 

1 4R8 

DCTERM 

40  ,3637 

466 

1 

466 

DPSTHRSH 

32,  2000 

40 

1 

771 

DUAL  A PM 

5155 

= 

1372 

DOTICK 

22,  3441 

71 0 

1 

710 

DPS  VEX 

33  ,2301 

39 

2 

740 

825 

D3AL  IGN 

15,311 5 

967 

DCT INC 

0136 

98 

7 

98 

1030 

DPTEST 

41,2306 

416 

4 

416 

437 

00 CK  ED 

2F, 311  1 

14P2 

l 

1475 

DCTI  XBR 

01  ,2430 

1079 

DPT  EST  1 

41,2330 

417 

4 

417 

DOCKT  emp 

0 1 c 7 

1484 

1474 

1 A75 

CO  TP  FR 

22,  3622 

715 

1 

715 

DPZFRU 

12  ,2006 

1236 

3 

930 

1228 

)DC  KTE  ST 

20,2777 

1479 

2 

1479 

14  92 

OCT  P.  FT 

1137 

98 

8 

98 

1069 

DP  0 

0036 

= 

932 

D0CM8AS E 

37, 3305 

699 

1 

70  2 

DOTSUB 

7170 

1024 

3 

1030 

DPI 

3340 

= 

932 

3 OC  OR  S 

1 4,3567 

944 

1 

944 

DOTSW  FMX 

30, 3752 

917 

1 

911 

DP  1 /12 

15  ,2473 

258 

1 

257 

DOCS’-' 

2?,  3732 

1 1 48 

1 

1147 

0CT6  RUPT 

17,2117 

1393 

1 

160 

DP  1/2 

12,  2004 

= 

1127 

5 

1127 

1139 

DOCS  Ml 

23,3235 

1 14« 

1 

1147 

douhlk 

40, 2564 

4 1 0 

2 

409 

4 1 0 

DPI  /2 0 

33  ,3752 

882 

l 

878 

OTDAT 

C7,2074 

753 

1 

253 

dovloat 

6475 

13  0 9 

1 

1006 

DP  1/4 

12,3765 

1236 

3 

1190 

1236 

DDDES 

25,  2626 

557 

1 

555 

DO  VLOAD* 

6500 

1009 

1 

1006 

DP1/4T  H 

23,2507 

109  1 

7 

37 

1142 

OODESEND 

25  ,305  1 

56  1 

1 

56  1 

DOW  . . 

1 1,  3675 

1235 

2 

1228 

1233 

DPI  /8 

07  ,2616 

266 

l 

260 

OODLOAD 

6472 

ices 

1 

1006 

DCW.  .1 

1 1 ,3723 

1235 

2 

1235 

DP  1M  IN 

26,2123 

346 

1 

344 

DODLDAC* 

6156 

997 

2 

1006 

lfCS 

D0WNENT2 

10,3536 

1362 

3 

1353 

1358 

DPI  DUTSF 

] , ■ 7 ; 7 

426 

1 

423 

TODNADP 

C 5 , 3 5?  3 

983 

OCWNFLAG 

5527 

1363 

101 

215 

1355 

DP  2 ( - 3 ) 

27 ,37  44 

1272 

1 

1269 

OODNC  HAN 

r'5,  3 601 

9 E 3 

D C W NG  T S 

20 ,3712 

1492 

2 

1479 

DP  2 (-4) 

27, 3746 

1272 

1 

1263 

OODNPT  R 

05,3625 

9e4 

1 

98  3 

OOWNTFLM 

C 5,  2000 

= 29 

3 

1 99 

982 

DP2/3 

04  ,3235 

1236 

3 

1217 

1236 

OODOWNTM 

05,3507 

982 

2 

159 

160 

DCW  NT  ORK 

E6 , 1 5 1 3 

136 

7 

136 

1458 

DP20UTSF 

40,2744 

426 

2 

423 

DDFST  ART 

05,2511 

21R 

1 

225 

D01/NET+ 

20,3730 

1492 

2 

1688 

1489 

DP3 OUT S F 

40,2746 

426 

1 

423 

DOFSTP  T1 

05  ,2516 

218 

2 

224 

225 

OPI-22) 

27, 3742 

1272 

1 

1267 

DP9/10 

04  ,3022 

1176 

4 

1 168 

1174 

DDINT 

12, 2036 

743 

2 

243 

0P-.01 

35  ,3656 

679 

3 

675 

□QUARTER 

12,3765 

= 

1236 

2 

1222 
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SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES 


2i  ’ , 


Es 


DR  DOT 
OR  FOB 
D3FTRI  T 
DRFTSUB2  06, 
DRIFT/ON  17 
D 3 IFTBIT 
DRIFT  DFL 
TRIP  TER 
DP.  I FT  FL  G 
ORIFTI  E5 
D 2 I F TO  E 5 
DR  1 FT  SUB  0 6 
DPI  FTT 
D3 IVEON 
DRS  amp 
D SALMCUT 
DSFX  IT 

dskyfbit 

DSK  YF  LAG 

dslv 
3 SMAG 
OSMS< 

DS  PA 
D SPAB 
DSP  ABC 
OSPABORT 
D SP ALARM  AO 
DS  PR 
D SPC 
OSPCAPP 
DS  PONT 
D SP  CO  M 1 
DSP  CO  M2 
0SPC0M3 
D SP  C 0 UN  T 
DSPDCEND  A 1 
DSPDCGET  A 1 
DSPnCPUT  A 1 
DSPOCWDl  AC 
DSPDC2NR  AO 
DSPOECVN  AO 
OSPCFCWD  AC 
DSPDELAY  AO 
OSPOPDEC  AO. 
D SPF LG 


1727 

3656 

4735 

' 

,3AA7 
A7A  A 
0312 
0116 
0036 
,150  A 
,1502 
, 3A6  2 
, 1 AA  2 
, 3327 
, 2 

001  1 
Oil  A 
A 73  5 
0113 
, 3 A 27 

0 1 A 2 
, 3A31 

, 2a  1 A 

, 2 A07 
, 24r  2 
A 227 
, 3A5  1 
, 2A22 
, 2 A 2 7 
,2211 

0775 
, 2 A?  C 
, 2AM 
,2AA  2 

0776 
,2615 

2556 
2566 
, 7 

3317 
3337 
3263 
37A0 
30  26 

1 C67 


69 

132 

132 

337 

132 

1468 

32 

9A 


A20 
A20 
A 20 
A6  3 
A53 
A 20 
A20 
1 A 0 1 
102 
A20 
A 20 
A 20 
103 
A 23 
A22 
A 22 
AA9 
A50 
A51 
AA9 
698 


36 


2 171 

1 3 A 1 

1 1451 
7 72  6 

1 728 

3 1 A 3 5 

A B 50 
1 380 

1 382 

3 333 

1 381 

1 1A68 
1 A9  8 

177 


839 

130A 


3 45  2 

1 1327 


8 A 1 5 
1 A 1 A 
1 A 1 A 

1 1 AO  1 

7 16  3 

3 A20 

2 A20 

1 ■ 2 

66  16A 

A A 2 3 
1 A 2 2 
1 A2  3 

3 450 

3 A29 


3 135A  1355 


ID  S PF  ME  M 
DSPIN 
DSP  I Ml 
DSP1  A Y 
DSPL  1ST 
DSPLOCK 
D SPL  V 
CS  PLY  ALT 
DSPLYMSK 
DSPL  YTD T 
DSPMM 
D SP  MM  JB 
DSP  JOB 
DSPMMTE M 
DSPMSK 
DS  POCT  IN 
DSPOC  TWO 
CSPOFF 
DSPOPTN 
D SPOUT 
DSPOUTSB 
0 SPR  NI) 
DSPRRLOS 
CS  PS  C AN 
DSPSFNOP 
DSP  SIGN 
DSPTAR 
D SP  TE  M X 
CS PT  EMI 
0 S PTE  M2 
DSPV6N  79 
CS  PWORET 
0SP2DEC 
DSO 

CSCSUB 

n SREL 

DSRUPTEM 

DSRUPTSW 

DSU 

l)T 

D I/OEL T 

DT/TAU 

DT/2 

0 T/2C0MP 
DT/2MAX 


A 1 ,342  5 
AO, 3353 
40,3400 
06,2047 
1042 
1011 
41,3465 
47  50 
20,2113 
20, 2266 
04,2630 
40,3574 
40, 3574 
0140 
4757 
40, 3443 
41  ,3435 

05,  331  1 
15  ,3424 
06,2063 

06,  20  24 

40  ,3252 
4 1,  2000 

06,  20  32 

41  ,2611 
40, 3235 

1022 

1050 

104A 

1047 

07,  2621 
0144 

40,3324 
00, 3174 
00  ,3300 
0 1 A 1 
0073 
1310 
7017 
E7, 1725 
30,3760 
22, 3121 
EA  ,1  A 75 
13,3317 

13, 3406 


448 
452 
452 
153 
103 
103 
45  1 
140  7 
299 
1403 

465 

466 


452 

453 


967 
163 
163 
44  9 
304 
163 
423 
449 
103 
1 03 
103 
103 
267 


98 
96 
109 
101  9 
155 
917 
371 
117 
1208 
1209 


1 415 

5 4 04 

2 452 

1 163 

6 229 

12  229 

1 454 

2 1402 

1 298 

I 1403 

1 476 

2 465 

1 1283 

2 466 

1 451 

1 451 

3 414 

1 229 

3 967 

2 162 

2 163 

1 449 

1 3 04 

2 163 

1 423 

3 449 

48  162 

7 1 03 

32  1 C 3 

12  103 

3 262 

3 449 

1 431 

I 1 C 04 
5 1066 

4 452 

5 163 
10  161 

1 1C02 
9 155 

1 910 

1 370 

1 17 
1 12  09 
12C  8 


473 

1359 


11 


1074 

453 

228 

890 

1233 

1209 


DT/2MIN  13, 
DTPECAY  36 
DUMLOOP S 
DUMMY  AD  04. 
DUMMY JOB  01 
DUMPCNIC  27 
DUMPLOC 
DUMPPPRA  27 
DU  M PT  F F l 27 
DUMPTFF2  27 
OUNFVLIM  30 
DV/SC 

DVBYCOSM  30 
OVCNTR  E7 
DVCNTRl  F7 
DVCNTSET  33 
DV  ECTR 
D VL  CS  E4 
DVMAX1  34 
PVM  AX 2 34 

DVMOM  33 
DVMONCON  36 
DVMCNFND  33 
DVNORM  00 
OVNORMCT 
DVnVF  00 
DVOVSUB  20 
DVPREV  E7 
D VSIGN 
DVT  EMP 
DVTHRUSH 
DVTflTAL  E 7 
DVXSC 
DWNRPTBB 
DXCOMP  12 
OX  C P IT 

uxcri  m 

DX ERROR  E 6 
fDYOCT  E4 
DYERROR  E 6 
DY  NMD  IS  P 36 
D ZD  OT  E4 
D7 ERROR  F 6 
Di/1024  04 

01/128  04 


. 3404 
,2  004 
1 356 
,2150 
,3210 
,3410 
D 33fc 
,3446 
,3531 
,3626 
,3750 
7650 
,3564 
,1513 
,1570 
,3425 
00  10 
,1673 
,2143 
,2145 
,3403 
, 2547 
,350  1 
,2505 

0 1 37 
,2405 
,3002 
,1575 

01  36 
1173 
1251 

,1507 
7 A A 2 
A062 
,2155 
D 1 24 
0125 
, 1446 
,1731 
,1450 
3 3 66 
1733 
1452 

33  1 6 

,3004 


1209 
38 
111 
236 
1107 
1261 
10  1 
1263 

1267 

1268 
91  7 

1036 

913 

151 

151 

871 

1139 

119 

630 

6-30 

871 
726 

872 
1051 

98 

1048 

1480 

145 

98 
106 
107 
151 

1032 
160 
1 166 

99 
99 

134 
122 
134 
743 
122 
1 3 A 

I 176 

II  76 


6 201  1107 

1 240 

2 220  1106 


1 911 

2 10  36 

4 912 

55  151  1372 

2 872 

1 1135 
4 320  670 

1 632 

1 632 


3 871 

3 1050 

6 1C48 
11  1050 

5 1477 

4 636 
10  1048 

2 856 

7 107 

10  151 

2 10  31 
1 159 

1 1166 


872 

1059 

1061 

1483 

637 

1065 

870 

871 
870 


134  1423 
122  839 


3 122  840 

7 134  1 A36 

1 1185 
3 1169  1180 
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S Y MBOL 

DEF 

H 

R EFEREMCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

h 

REFERENCES 

0 1/16 

04,301  2 

1176 

2 

1102 

1 189 

EDCTSC 

66,17  36 

= 

137 

3 

14  50 

1451 

END IMU 

07, 3613 

1316 

3 

1300 

1305 

01/256 

r 4 , 3C  ?r 

1 176 

3 

117  0 

l 176 

EDRI VE  X 

E6  ,1  763 

141 

5 

141 

1407 

END  INST 

4217 

46-3 

6 

4C  7 

1356 

Di/32 

04  ,3nU 

1 176 

7 

1 176 

1226 

FTP  IV  FY 

F6, 1764 

= 

141 

1 

14C6 

FNOINT 

13  ,2631 

1200 

l 

243 

Dl/64 

' 4,  300  6 

1176 

5 

116  5 

1 lei 

EE 

13,2504 

1127 

1 

1127 

ENDJASK 

17  ,3273 

1446 

1 

1446 

7 1/8 

'4,3002 

1176 

1 

1191 

FGPESS 

E5,  1767 

= 

130 

5 

114C 

1211 

END  JOB  l 

01,3107 

1 1 04 

1 

1096 

D29.9SEC 

36,  3141 

7 35 

2 

720 

EIGHT 

4750 

= 

1390 

ENDLLJOB 

31,  3361 

799 

2 

784 

799 

D60R9  BIT 

4 7C  2 

= 

72 

EJSCAN 

Cl,  3124 

1104 

2 

1 101 

1 1 C 4 

E NDMANUV 

26  ,2202 

482 

DfOR  9FLG 

0072 

= 

72 

10 

243 

1 233 

EJ1 

' 1,3175 

1 106 

7 

1 104 

1 105 

ENDMANU  1 

26,2203 

482 

2 

482 

483 

E6  ,175  1 

= 

137 

17 

1423 

1497 

EL 

1345 

= 

1 10 

1 

322 

END  MARKS 

07  ,231  7 

26C 

E/BKCALL 

4,  2570 

375 

E IBI AS 

1353 

= 

1 1 1 

1 

818 

EN  DMAXDV 

00,2624 

1054 

2 

1054 

1056 

E/CALL 

C 4 , 260  7 

376 

ELCALC 

35,2722 

66  2 

_ JL 

665 

ENDMODE 

07  ,3705 

1317 

2 

1317 

; /JDH  W A K 

04,2623 

377 

ELCOJ  NT 

E7,  1552 

= 

153 

3 

1 53 

7R9 

END  MONO 0 

41  ,3420 

447 

1 

447 

E/PPDG 

4,  ?nr  r 

= 

?8 

2 

375 

? 7 7 

E LCCUNT1 

67,1644 

= 

153 

7 

153 

0 14 

FNONMTST 

40, 2227 

405 

2 

405 

? 7^ 

821 

EAR  SPH 

1 1,3375 

1 228 

1 

1227 

ELEPS 

35,3654 

679 

1 

662 

EN  ON VB  SY 

04, 2647 

472 

eartcntr 

14, 2514 

927 

ELE  V 

E4 ,1  647 

1 19 

13 

200 

665 

ENDNVSBl 

41,3652 

46  2 

1 

475 

22  ,3527 

FART  HI. 

06,  376  1 

1 138 

2 

1131 

1133 

ELEX 

35  ,3177 

b6  5 

1 

6 62 

ENDOUT 

1C,  3 30  6 

1357 

2 

1358 

1359 

F ARTHLOC 

'.6,  20L  (' 

= 

20 

1 

1139 

ELOOPF IN 

43,  3436 

1278 

2 

12  78 

ENDPASTE 

4143 

447 

EARTHMX 

26,  3745 

1137 

2 

1131 

1123 

t LRC0DE1 

40,2136 

4 04 

1 

403 

ENDPINS  1 

40, 3734 

= 

47P 

EAPTHMXX 

0051 

= 

1139 

4 

1134 

1137 

El  V IRA 

E 7,  1647 

= 

153 

7 

1 53 

813 

END  PI  NS2 

41  ,3775 

= 

477 

EART  HP 

37, 3420 

385 

1 

3 P 5 

ENQ-ALIG 

F 7 , 1 630 

= 

152 

2 

152 

156 

ENOP76 

1 3 ,233  1 

7C5 

2 

70  3 

EAR  THR* 

37  ,2447 

385 

4 

350 

393 

END-F5 

E5,  1777 

= 

132 

l 

R 62 

ENDRAOAR 

25  ,3614 

575 

2 

546 

555 

E 9 A M K 

- 

F6 ,1  774 

= 

E BANKS  AV 

1067 

104 

3 

10  4 

1352 

END-E  7 

E 7,  1777 

= 

156 

10 

801 

890 

FNDRELDS 

40  ,3545 

= 

458 

1 

464 

spank  tfm 

1 C71 

1 04 

5 

218 

1 359 

ENCALL 

40, 2243 

405 

2 

40  5 

ENDRET 

10,3331 

1358 

5 

1353 

1360 

EBAN<  3 

5C07 

= 

1090 

4 

230 

fee 

ENDAI.M 

4153 

454 

1 

460 

ENCRMODF 

4616 

= 

534 

EPANK4 

4 74  1 

= 

109C 

7 

28  1 

s2r 

ENDBALL 

26, 2354 

486 

ENPRN 

24  ,2145 

505 

1 

504 

EBA'IK  5 

5014 

H 88 

13 

393 

1421 

ENDBLFF 

4303 

= 

464 

1 

468 

ENDROD 

32,32  72 

807 

2 

802 

803 

- 

210 

40,3574 

- 

1 

22  ,3226 

37*. 

5 RANK7 

50  !6 

1088 

18 

392 

949 

EN  DC  W G 

37, 2366 

384 

ENDRQDA  T 

41  ,2345 

4 17 

EBJF? 

1166 

= 

107 

10 

375 

3 76 

E MOD  A PT4 

5301 

= 

195 

ENDRQWT 

41, 3555 

456 

1 

460 

ECC 

E5,  175  1 

= 

129 

3 

129 

1 1g  1 

ENDDOT 

7217 

1024 

1 

1069 

ENDRRMON 

06  ,3140 

= 

193 

1 

193 

E :.DUW 

E 6, 1645 

= 

139 

3 

139 

917 

ENCDPDEC 

40,  30  44 

43  1 

1 

439 

ENDRSTR  T 

05,2655 

220 

2 

224 

ECDUWL 

30,  3745 

917 

1 

90  1 

F NOD  °USH 

6562 

1011 

1 

1011 

ENDPTniJT 

41,  2647 

= 

423 

1 

432 

E6  ,1645 

- 

1 3 Q 

3 

139 

9lC 

4 r, 3353 

= 

= 

445 

EOOP 

0023 

= 

93 

14 

447 

1279 

ENDEXT 

5503 

= 

136  1 

43 

214 

1384 

EN  DR  0 3 

01,225? 

300 

1 

300 

EDOT 

E6 , 1427 

= 

137 

23 

134 

14  S 6 

ENDS  XTVB 

5503 

= 

270 

5 

2 74 

278 

ENDS AM 

14  ,2562 

928 

1 

9 27 

5 DOTP 

E6  ,1427 

= 

1 34 

4 

1 423 

14  26 

ENDF  IND 

5160 

1096 

4 

1058 

1102 

END  SCALE 

40,31  00 

439 

3 

439 

440 

ED3T0 

E 6,  1436 

134 

5 

134 

1461 

ENDHMSS 

42  ,3614 

= 

444 

ENDSCAL  1 

40,  3113 

439 

2 

440 

441 

E DOT  R 

E6 , 1437 

= 

134 

2 

134 

usq 

ENDIDLE 

4207 

463 

1 

1357 

ENDSPF 

41  ,3434 

448 

1 

45  1 

HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGCEC  AS  FOLLOWS: 


JN  UNDEF  INF 
BO  BADLY  DEFINED 


= DEFINED  BY  EQUALS  J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

CP  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


PAGE  1513 


9:12  GCT.  21,1970 

SYMBOl  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  U OF  REFS,  PAGE  OF  = I R ST  RE=  , PAGE  CF  LAST  RFF. 


SYMBOL 

ENDSPMIN 
ENT  SPMM 
ENOSPCCT 
= MO  STATE 
FNDSTEER 
ENDSl)  MS 
ENDSAC.  9 
FNDT  (X  ) 
END  TA SK 
ENDTF  ST1 
ENDT  FF 
E NDTNCN 
ENDT  NON  2 
ENDT  PUSH 
FNDTSLC 
ENDVDAT 
E NOVLOAD 
ENDVPUSH 
ENDVXV 
ENOW 
END20FC 
END66  JCR 
ENEMA 
ENGARM? 

= N3I  NOFF 
ENG  IN OF  1 
ENGIN0F2 
E N3I  NOF  3 
ENGIN0F4 
FNGOFF 
ENGOFFDT 
ENGOFF  1 
EN30F  TSK 
ENGONBIT 
FNGONFLG 
E NTER 
ENTER  DAT 
ENTERJMP 
EN  TER  OR 
ENT  ERUV 
r NTF  XI  T 
ENTMI D 1 
ENT  MI  D2 
ENTPA  SHI 
ENTPASC 


DEF 

42  ,345-7 
1 A , 26 AO 
AO, 344  6 
II ,3567 
36,  364  6 
43,3124 
27,2724 
27, 3735 
5247 
37,2270 
27, 3623 
06,2266 
06,  2306 
6564 
00,2212 
33,  32C  1 
6523 
6552 
70  12 
F 5 , 1 642 
40,  3336 
32  ,3340 
C5 , 300] 
32, 3376 
36  ,3545 
36,  3555 
36, 3551 
36,3564 
36, 3561 
1 4 ,2347 
F 7, 1 644 
14, 240 2 
36  ,3542 
4745 
0123 
41  ,2022 
C 7,  2C7  3 
40  ,2137 
17,2445 
17, 2504 
0136 
13,  3572 
13,3566 
41 ,2032 
41,2.  6 2 


REFERE  NCE  S 


43  1 
465 
453 
1232 
74  8 
296 
762 
1271 
1 112 
382 
1268 

170 

171 
ID  1 1 
1043 

8 67 
10  10 
1011 
101  7 
124 
450 
808 
223 
809 
746 
746 

746 

747 
746 
84  3 
156 
844 
746 


1 1231 
1 128  1 

1 1271 
4 228 

3 378 

3 1268 
l 170 

1 170 

2 ID  1 1 

1 1043 

3 866 

2 1012 

4 1017 

3 126 

4 809 

2 824 

1 8C9 

1 746 

l 235 
1 844 

1 719 

1 728 

1 838 

3 156 


1115 

393 

1270 


106e 

f 76 


10  34 
130 


810 

1371 


1436 

455 


SYMBOL 

ENTRFT 

ENTSFT 

EOURPERM 

EPHEM 

EPHEM1 

EPSFOUR 

EPS  ILN1 
EP  SI  LON 
EPS  ILDNL 
EPS  I LQNT 
EP  S SMALL 
EPS  1 ' 
EPS2 
FRAD 
ERACFPIT 
ERADFLAG 
ERA  DM 
ERASCHK 
FRA  SC  ON  1 
RR  AS  C0N2 
ERASC0N3 
EP  ASC0N4 
ERASC0N5 
ERA  SC  ON 6 
ERAS  ER 
FRASFI  LI 
FRA  SID 
FRASLOOP 
ERASZERO 
ERCNT 
ERCOM 
ERCOMP 
ER  CON 
ERCOUNT 
ERESTORE 
EREX  IT  1 
E R MI  NUS 
ERPLUS 
EPRCOMP 
ERRFAI L 
ERROR 
ERRORS 
ERR  TF ST 
EPT  HP. 
CPTHRVSE 


DEF 

0136 
41  ,3630 
E 7, 1673 
15,  2000 

05.2000 
35,  3660 
34,2155 

01  55 
E 5,  1763 
E4  ,1567 
27,2722 
27,  2405 
2 7,2  407 

04. 2000 
4737 
0021 

E7, 1672 
43  ,3336 
43,32.31 
43,  3232 
43  ,3233 
4 3,  3 2 34 
43  ,3242 
5 007 
10, 3453 
F3 ,1 776 
5011 
43,  3366 
0007 
0117 
40,3716 
F 5 ,1  563 
40, 3730 
1365 
1360 
32,  2402 
40,3710 
40, 3713 
, 5 

32 ,3  1 10 
40, 3643 
43,3256 
17, 3361 
37, 2431 
37,2401 


REFERENCES 

6 407 

2 461 

1 154 

976 


679 

630 

1484 

129 

118 

762 

752 

753 
46 
68 
68 

148 
1277 
1275 
1275 
1275 
1275 
1275 
1275 
1360 
115 
37 
1277 
199 
97 
479 
132 
479 
ill 
11  1 
5 84 
47  8 
479 
8 D 3 
83  4 
478 
1275 
1450 


1 

2 52 
1 668 

1 638 
5 1476 

3 129 

2 1167 

1 762 

2 752 

2 752 
1 1130 

5 652 

5 148 

1 1276 
1 1277 
1 1277 
1 1277 
1 1277 
1 1278 

3 12  77 
1 1354 


1484 
11  86 


1130 

1130 


1 


988 
1277 
199 
475 
4 79 

381 

478 
1 11 
111 

582 


1278 

479 

385 


SYMBOL 

FRVFCTOR 
ESCAPE 
ESCAPE2 
E STICADR 
EST  IMS 
ETPI  BIT 
E TP IFLAG 
CX  BRAK 
F XDSPRET 
EXECBANK 
EX  ECT  EMI 
E XEC  TEM2 
EXGSUB 
EXI  T 
EXI  TFM 
EX  IT  GYRO 
E XI  TSPOT 
FX I TVR 
EX  ITVRl 
F XNORM 
EXT  LOGIC 
E XTRAPRV 
E XT  VB AC  T 
EXTVBCHK 
E XT V3  1 
EX  T V ER  BS 
E 1 3 45  67  B 
E20PS 
E3J22R2M 
E32C31 RM 
E7DVERLA 


DEF 

E5  ,1  404 
0136 
3 137 
37  ,21  16 
37, 2500 
4745 
0046 
.31,321 2 
10  ,2621 
5163 
336  1 
0062 
31,  ?171 
6755 
0114 
j 7 , 3506 
31  ,3167 
30 ,2765 
33  ,2776 
31 ,3220 
31,  3106 
33  ,2531 
1043 
37,2306 
23  ,2000 
43,2000 
43,3347 
E 7, 1621 
1347 
1350 
F7, 1471 


REFERENCES 


796 

1349 

1096 


97 
1313 
796 
842 
842 
796 
794 
860 
103 
25  1 
32 
36 
1277 
153 
110 
110 
144 


436 


6 1094  1 102 

4 1097  1102 
1 785 

1 994 

7 435 

1 1313 

2 795 

1 842 

1 843 

1 785 

2 784 
1 860 

8 229  1368 

1 251 

1 276 

7 268  1376 

1 1278 

2 771 
1 1227 
1 1226 

3 144 


784 


151 


1 478 

1 R03 

1 804 

1 4C3 

1 1275 


385 

388 


FIMASS  1 
FACEREG 
FA  I L- 
F A I LOOP 
F AI  LREG 
FAK  EPRET 
FALTOF 
FA  L TON 
FAPS 

F ASTCHNG 

FAZA 

FA7AB 


E 7 ,1734 
20,  2544 
3 154 
20,3551 
17,  3237 
0375 
51  64 
4370 
4364 
36,  2006 
6342 
23,2767 
23,  3144 


147 
1475 
1361 
1489 
1446 
101 
1096 
469 
46° 
38 
820 
1144 
1 147 


13 


7 147  760 

3 1475 

8 1352  1353 

1 1489 

2 1446 

202  1369 
1094  1104 


10 


239  1384 
744  761 


8 786 

1 1146 
1 1148 
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SYMBOL 

DFF 

H 

REFERENCES 

SYMBIU 

DFF 

H 

REFERENCES 

SYMHDl 

DEF 

H 

REFERF  NCE  S 

FAZAB1 

23,  3172 

F 1FP  SOP 

, 

, 

0 10 1 

32 

16  3 

- n 

1 1 A 7 

1 

1147 

FL  ACWKQo 

- A 7 A H 2 

23,3176 

1 1 A 7 

1 

1147 

F I FT Y EPS 

34,  2743 

638 

1 

637 

FLAGWRD6 

0102 

= 

76 

16 

192 

971 

e AZAB3 

23,  32C 5 

11  A7 

1 

1147 

FIGTI  PE 

3 5 ,2  764 

653 

FI  AGWPD7 

0 103 

= 

78 

33 

192 

1379 

F A7 ABA 

23,3215 

1 1 47 

1 

1 1 4R 

F II  DEL  V 

F 5,  1460 

132 

1 

132 

F 1 AGWRDR 

01  04 

79 

17 

264 

963 

= AZ  AB  5 

23 , 322 A 

1148 

2 

1148 

1212 

FILLET 

01,3374 

1117 

1 

1116 

FL  AGWR 0 9 

0105 

= 

81 

6 

725 

884 

F AZA1 

23,  2773 

1145 

F INALR I T 

4746 

= 

70 

FLAP 

0216 

= 

82 

3 

826 

832 

FAZR 

23,3066 

1 146 

1 

1 145 

FINALDV 

00,2625 

1C  5 5 

3 

1048 

1054 

FLAPBI T 

4744 

= 

82 

c A7R  l 

23,3071 

1146 

«=inalflg 

0047 

= 

70 

7 

613 

6 88 

FLA  SHH? 

21,20  64 

884 

FAZR2 

23, 3117 

1 1A6 

i 

1146 

c ino:d  UW 

30,3075 

90 1 

5 

758 

901 

FLASHOFF 

443  3 

470 

6 

279 

1355 

= AZBS 

23,31 24 

I 1 46 

1 

1 1 46 

F INOGIMB 

27,  2160 

491 

2 

488 

4QP 

F LA  SHDN 

4427 

470 

4 

41  3 

1357 

F A/C 

23,  3132 

1146 

2 

1146 

F I NDKEY 

07,2366 

261 

1 

261 

FLASHSUB 

10,  3261 

1357 

3 

1355 

1356 

FRANK 

000  A 

= 

93 

31 

463 

1365 

F INOTIME 

01,  3603 

1293 

2 

12  93 

FLASHV? 

21  ,2073 

884 

1 

884 

= B4NKMSK 

4350 

= 

100L 

2 

1102 

FINDV  AC 

5105 

1094 

42 

218 

1380 

FLA  T 

F6,  1554 

= 

138 

6 

1451 

1491 

FBI  AS  SUB 

06,  365  2 

341 

3 

339 

240 

FI  NO  VAC  2 

01  ,26U5 

1097 

2 

1094 

1096 

FLAT  EM  P 

3 151 

= 

1493 

6 

1485 

1 49  1 

FBR3 

11  ,2466 

1219 

1 

1233 

FINE 

0 1,  2344 

30  1 

1 

289 

FLATOUT 

31  ,2323 

782 

1 

727 

FC 

F 7 , 1 6 1 5 

153 

7 

1 53 

ec5 

FINEK2 

43  ,2356 

278 

FI.  A TOUT  I 

31,2235 

78C 

1 

780 

FCADRMM1 

' A, 2A1A 

240 

1 

239 

F INEONLY 

14,3362 

93  9 

1 

939 

FLAT  DUT2 

31  ,2237 

76C 

1 

780 

= CDUW 

30  ,2 OCO 

= 

34 

1 

901 

F INET IME 

410  2 

386 

3 

384 

1325 

FLA  TVAL 

20  ,3767 

1494 

1 

1485 

fcdod 

E7* 1465 

1 AA 

7 

1 44 

7S8 

F I M MUDD 

37,2320 

393 

1 

379 

FLES  HLOC 

10,  2000 

29 

1 

1254 

F COLO 

F7 , 1 6 2 0 

= 

153 

4 

153 

798 

F TPEDB 

F 6.,  1600 

= 

1 3 8 

10 

1 A50 

1491 

FLF  SHPDT 

10  ,2037 

1254 

3 

856 

1254 

= CDM’  SET 

2 1 ,2225 

78  0 

1 

7B0 

FIREFCT 

E6, 1740 

= 

137 

7 

1427 

1457 

FL  G WR D 10 

0106 

= 

83 

24 

83 

1475 

FDA  IX 

FA,  1735 

1 2 1 

2 

310 

4£6 

FI  REP 

1 6,3  041 

1419 

FLCWRD1  1 

01  07 

- 

84 

33 

226 

884 

FDAIY 

EA  ,1736 

121 

FIRFOR 

17, 2257 

1432 

FLG WRD12 

0110 

= 

86 

2 

86 

583 

FDA  17 

E A,  1737 

121 

F IRST I ME 

12  ,2606 

1173 

1 

1173 

FLGWRD1  3 

0111 

= 

88 

l 

88 

FOOT 

26,  20C  6 

1 

1 1 34 

F IR  STTME 

27,3170 

765 

FL  I P 

4606 

53*, 

2 

884 

= DPS 

36,2000 

38 

1 

7 40 

FIVE 

4756 

1C  8 6 

21 

230 

1418 

FL0GSU3 

30  ,2C OC 

= 

34 

1 

849 

FEEDBACK 

17,  3100 

1 448 

1 

144  2 

F I XT  LPAS 

40,2371 

407 

FLP  AS  SO 

E7,  1623 

= 

153 

8 

153 

887 

FETCH  7NP 

30,3205 

904 

1 

90  4 

F I XDEI  A Y 

5232 

1110 

16 

50B 

1302 

FLPAUTNO 

E6  ,16  51 

— 

139 

5 

140 

90  7 

F6TCH2WD 

'5,3667 

985 

2 

983 

F IXLOC 

0120 

97 

75 

253 

1494 

FL  PC 

0212 

= 

81 

2 

838 

FEXTR  A 

A737 

= 

783 

2 

780 

7e2 

FI XMIN 

20,3747 

1493 

1 

1489 

FI  PCBIT 

4740 

= 

8 1 

FFSFP  V 

6000 

_ = 

2.8 

1 

880 

FIXP  ANGE 

40,  2701 

425 

1 

4 24 

FLPI 

0213 

= 

81 

3 

829 

841 

FF  TAG  1 

AOC  0 

= 

28 

3 

1283 

1 363 

F IXROCT 

00  ,3453 

107  1 

3 

1C  70 

FLP  IRIT 

4741 

= 

81 

FFT  AGIO 

AO  GO 

= 

28 

l 

161 

FI  XY 

27,2441 

755 

1 

755 

FLPCS 

3214 

= 

R 1 

4 

824 

844 

FF  TAG  1 l 

AOOO 

2R 

FKP5RST 

36, 3364 

743 

1 

250 

F LRC  SB  I T 

4742 

82 

2 

841 

FFT AG  12 

AOOO 

= 

28 

F LAGGCN 

22  ,3310 

708 

1 

708 

FLTRSU8 

30, 3467 

911 

2 

903 

FFT  AG13 

4000 

= 

28 

FLAGDFF 

35,  3513 

674 

1 

673 

F LUNDBI T 

4742 

= 

80 

4 

725 

84  1 

FF  TAG  2 

AOOO 

= 

2 R 

2 

1293 

1295 

FLAGON 

35,3447 

573 

2 

673 

FLUNDI SP 

0175 

.= 

80 

4 

728 

824 

FFT  AG3 

AOf  r 

= 

28 

1 

1258 

FLAGOODW 

E6 ,1650 

= 

1 39 

6 

139 

911 

FLVR 

0210 

= 

8 1 

4 

825 

842 

FFTAG4 

4000 

= 

2fl 

2 

1 34  3 

1 367 

FL  AGORGY 

32,  2444 

771 

FI  VP  RI  T 

4736 

= 

81 

FF  TAG  5 

6000 

= 

2 R 

3 

40 

6C5 

FLAGS 

1 3 ,3746 

1372 

1 

1371 

FMAXODD 

31,2002 

40 

1 

780 

FFT  AG6 

6000 

= 

2R 

5 

525 

1 44  7 

FLAGWRDO 

00  74 

= 

66 

31 

1 71 

1403 

FMAXPOS 

31  ,2303 

40 

1 

780 

FF  TAG  7 

AOOO 

= 

28 

2 

1 369 

1370 

FL  AGWRD1 

0075 

= 

68 

36 

224 

1304 

FORCE  ONE 

20  ,2034 

298 

1 

298 

F FT  AG8 

AOOO 

= 

28 

1 

447 

F LAGWRD2 

0076 

= 

69 

25 

171 

1373 

F0RCEV25 

42,  361  1 

443 

2 

443 

FFT AG9 

AOOO 

= 

28 

1 

1 3o  2 

FL  AGWR  D 3 

0077 

= 

71 

17 

213 

137  2 

F0PM1JLA1 

17  ,3536 

1453 

l 

1452 

FHNM 

25,3645 

58C 

1 

579 

FL  AGWRC4 

0100 

= 

73 

34 

229 

1362 

FORMULA  2 

17,3546 

1453 

1 

1452 
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SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES 


:orvdsky 

FDRV EL 
FORVMETR 
F3RV0UT 
FORVT  EMP 
= OUP 

F3JRSECS 
FOURT  EEN 
= P 

FRANORES 
FPCS2 
F?  C S4 
FREFFB  IT 
FREEF  LAG 
FRSTP AS 
FRST  ZERO 
= SP  A SB  I T 
FSPAS  FL  G 
FSUBO 
F THRO  T 
FT99999 
r ULLAPS 
FULLOSP 
FULLDS  Pi 
= ULL  TI  ME 
FJNCT  ION 
FUNCT2 
FUNCT3 
FJNNY  DS  P 
F IJNTE  N 
F V 

FV ACCACR 
= VSCALF 
FW  EIGHT 
FWEIGHTl 
F XADR  S 
FX  FX 

= 2DPSc  ii 
F2DPS*3l 
F2  DPS  *32 
= 2DPS*  34 


DEF 

17,  3651 
13, 3446 
E7 , 1666 
E7,  1 7 A 2 
E7  , 1 74  1 
21  ,2526 
0070 
4 751 
27,  2533 
4 317 
E7 , 1467 
' 5,  ?OG0 
36  , 2 0 2 C 
36,2016 
475  1 
001  4 
34, 2724 
20 ,2752 
4742 
000  5 
26  ,2o  1 4 

31.2000 
30, 20  57 

05 .2000 
4 1,  371  7 
4 1 , 3720 
17,7520 
E6 , 1750 
21  ,3151 
21,3154 
E7,  1666 

0157 
E 4,  1461 
4 35  4 
31  ,3640 
E7 , 1610 
E7  , 1 6 1 6 
43,3556 
43, 3542 
11  ,2000 
71,  ?r CO 
. 


154 

155 
155 

893 

lr  c 
12  90 
758 
1064 
144 
29 

38 


609 
44 
475 
475 
1452 
136 
146  3 
1463 
154 
1494 
116 
1297 
819 
153 
153 
1280 
1280 
29 
34 


1 1203 
1 819 

3 155 

5 155 

1 893 

8 093 

► 8 218 

1 757 
1 10  6 1 

LO  779 

2 44 

1 742 

2 74? 

1 957 

L 2 934 

1 637 

1 1478 


70  Q 

977 


2 60  8 
1 219 

1 475 

1 47  5 
6 1453 

16  1462 

2 146  2 

6 154 
2 1495 

15  116 

1 12Q4 

1 819 

7 153 

7 153 

2 1281 
1 1281 

1 813 

2 39 

2 40 


1486 
1 235 


1235 


G (CSM) 

G + N , A IJ  TO 
G ACC 

GAI NAPPR 
GA  INBR  AK 
GAINFLTR 
GAMCOMP 
GAMMA 
GAf'PREV 
GA  MR  P 
GCOMP 
GC  CMP  SUB 
GCOMP SW 
GCCMP7ER 
GCOMP  1 
GCTR 

GDESELCT 

GDT/2 

GHUMP1 

GEADDR 

CEFF 

C-ENDDV 

GENMARK 

GENMASK 

GENPL 

GENRE  T 

GENSCL 

GEN  SCR 

C-ENSHFT2 

C-ENSHI  FT 

GENTRAN 

GEOCOMPS 

GECI  MUTT 

GEOM 

C EC  MS GN 

GEORGEJ 

GEORGEK 

GECSTRT4 

GE  T.L  VC 

OFT  +MGA 

GE  TAR AOR 

GE  TAP  VAL 

GET  AOSUV 

GETAZEL 

G ETC A DR 


F5,  1706 
E5  ,1450 
E 5,  1446 
30  ,3746 
1 1 ,2636 
E7, 1477 
E7  ,1607 

ooio 

F3, 1471 
06,3433 
E3,  1477 
06  ,3707 
06,3546 
F 5,  1736 
07,3610 
1235 
31,3312 
6150 
F4,  1705 
00  ,2570 
10,3022 
0 162 
E5,1  434 
1142 
00,2346 
00,2277 
00,  2224 
00  ,2214 
5555 
F 5,  1562 
37,2004 
04,  3102 
F5, 1672 
37,31  07 
37, 31  1 1 
37 ,3025 
06,3741 
06,  3725 
33  ,3742 
33,  2217 
20,3246 
14,3735 
Cl,  3520 


= 122 
483 
= 127 

= 124 

= 124 

9 17 
1221 
= 149 

145 
= 1129 
113 
336 
113 
34  1 

338 

= 127 

1315 
= 889 

= 798 

996 

= 122 
10  5 3 
1353 
= 1361 
= 131 

106 
1047 
1046 
1044 
1044 
1367 
= 132 

378 
1179 
= 129 

394 
394 
393 
687 
687 
982 
854 
1485 
948 
1123 


10 


10 


4 9 57 

1 124 

2 124 

1 9 11 

3 1220 

5 149 

7 146 

3 1125 

4 113 

6 3 34 
331 
957 
318 
127 

1 1310 

7 1 07 


795 

1221 

1144 

638 

1129 

944 

335 

388 


1 


996 
122 
10  5 2 


4 1345 
11  131 

4 522 

2 1047 
4 1045 
l 1044 

1 10  35 

4 3 02 

3 389 

2 11  77 

1 1 129 

2 392 


1358 

132 

529 


1490 

390 

1184 

1185 
393 


752 
675 
854 
8 82 


GET  COMP 
GETDAT 
GETDT 
GET  ECC 
GETERAD 
GETGOBL 
GET  INREL 
GF  TLMA  TT 
GET  MAX  OT 
GFTMKS 
GETNF  WNM 
GFTNOW 
GE  TPART2 
GETPR  ID 
GETRANS 
GF  TROD T 
GETRPSV 
GETRVN 
GETRVN 2 
GETULC 
GFTVRVG1 
GETVR  VG2 
GETX 
GE  T 45 
GFACTM 
GH  7 

gimrlbts 

GIMLOCKl 

GL+NOATT 

GI.AMP  TST 

GL INVERT 

GLOCKCHK 

GLOCKMON 

GLCCKCK 

GLOKFAIL 

GLOKFB  IT 

GMBPRBI  T 

GMBOR  VSW 

GMBL8IT  A 

GMB  LB  I TB 

GMFPGE 

GN/CCODE 

pNUR 

GNUV 

GOABORT 


36,3735 

12,  37  ?0 
13  ,2464 
27,3176 
43  ,2313 
15  ,3535 

13,  3344 
07  ,2202 

5440 
04,  2760 
01  ,3543 
5434 

36  ,3656 
21  ,3205 
11,  2610 

37  ,3467 
37,3524 
26,33  35 
27  ,3112 
27,31  14 
12  ,2767 
35,3551 
20,  3105 
32  ,3521 
20, 3077 
23,3427 
40  ,3732 
06,2507 
06  ,2 50C 
06  ,2441 
06, 2434 

5301 
0056 
4736 
4742 
0137 
21  , 35  35 
21,3537 
07, 3^45 
5301 
F 7,  1656 
E7,  1656 
32  ,3527 


422 
253 
749 
1191 
1127 
766 
40  6 
971 
1209 
259 
12  8° 
6 97 
1292 
1288 
748 
1463 
1221 

701 

702 
598 
765 
765 

1 180 
675 
1482 
811 
1482 
124  3 
479 
176 
176 
175 
175 
187 
71 
71 
77 
77 
1472 
1472 
1312 
1087 
154 
154 
82  4 


5 420 

4 251 

2 746 

1 1191 
l 1130 
1 766 

5 404 

1 967 

1 1208 

3 255 

1 1288 
1 696 

1 1297 

2 1288 

1 747 

1 1221 

2 699 

1 701 

3 58  9 

1 765 

1 765 

3 1177 

3 675 
1 1477 

1 809 

2 1478 

1 1242 
1 478 

1 176 

1 176 

2 175 

1 173 

4 176 

3 236 

1 767 

2 767 
1 1 4 7 1 


4 864 

4 867 

1 248 
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J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE 


MI  SC  EL  LANE  OOS  TROUP  LE 


M C MULT  I PLY  0 E F IN  ED 


1515 

422 

259 

749 

4l0 

267 

1291 

702 

599 

1190 


1243 

768 
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S Y MBfIL 


OFF 


R EFER  E'lC  F S 


SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


SHAG  I N 

50  W H'CYC 

GOANI  CL F 
5TBAC 
GO  BACK 
GOBAOUE 
G0B8 

GOBLT  IMF 
3 005  56 
GOCt  DSE 
GOCUT  CFF 
3 3DSP 
GO  OS  PAL  M 
GODSPP 

300  SORE  T 
GQDSPRS 

3 OD  SPRSl 
GODSPR  1 
G OOS  P R2 
3 0DSP2 
GOFNFM  A 
GOFST IMS 
G0F  XT  VP 
GOFIND 
3 OF  LA  SH 
G0F|  ASHR 
G OF  LAS  H2 
3030 MARK 
GOGOPROG 
GOINT 

301  TER 
GOLOAOLV 
3 0L0C 
GOMAMUR 
GOMARK 

3 OMAR KF 
GOMARK  FR 
GOMARKR 
30MAR K 2 
G0MARK2R 
30MARK3 
GOMARK  2R 
G0MARK4 
30MAR S 
GOM IOAV 


1C, 3051 
41,  2377 

I ,31 
13,3457 
35,  37 A 1 

II  ,276  1 

4G54 
F7,  1511 
17,2115 
21,  352  7 
3ft  , 3()6  1 

10.2444 
41, 2400 
If  ,2452 
1'  ,7447 
in* 2640 
10,2642 
10,  2453 
10,2454 

10.2445 
'5, 3476 
37  ,2113 
43,2000 
24,  3640 
10,2477 
10,  2636 
10.250  1 
10,2406 
04, 2236 
35  ,3400 
12,3415 
43,  ? 370 

070  5 
1 7,  3747 

10.2330 

10,2334 
10, 2353 
1(  ,235f 
10,2337 
10, 2356 
10,2342 
10,  2362 
10,2345 

10.2331 
36,  220  2 


734 
1223 
16C 
151 
I 302 
1472 
733 
1346 


1346 

1350 

1350 

1346 

1346 

I 346 
824 
379 
268 
758 

1347 
1350 
1347 
1345 

237 

672 

I I 66 
279 
101 

1320 

1343 

1344 
1344 
1344 
1344 
1344 
1344 
1344 
1344 
1344 

720 


1355 

1219 

734 

1225 

159 

151 

1392 


18 


All 
48  2 
4 74  7 

8 134  4 

1 13  46 


2 1344  1347 


5 36 
c42 
1 ?C1 


1 379 

1 414 

1 757 

43  232 

2 740 
15  1344 


1 238 

2 66  5 
1 1186 
6 268 

30  12  9 2 


1 


',82 


1 136  1 


215 

301 

259 


GCMOO 
G C MOVE 
GUNXTBNK 
GFCDARG 

gogdend 

GOODEP  SI 

GCCDEPS2 

GOGDMANU 

GGCONEG 

GCCORAO 

GOPERFR  S 

GOPERFS 

GORE  RF  1 

GOP  ER  FIR 

GCPFPF7 

GOPEPF  2R 

G0PERF4 

GCPERF4R 

GOP  I N 

GCPINNER 

GOPIPCYC 

GOPL  AY 

GCPOOOCO 

GOPOOFI  X 

GOPOST 

GCPROG 

GOPR0G  2 

GCPR0G2 A 

G0PR0G3 

GOO 

GOQTRIMG 
GO  SHO  SUM 
GCSLFFPS 
G CTO 
GOT0ER  S 
GCTOGE 
GO  TOG  T S 
GOTOPOOH 
GCT0V56 
GOUT 
GCV  NUPDT 
GCXDSP 
GOXDSPF 
GOX  DS  PFR 
GO  XD  SPR 


04,  2232 
23,21  11 
43,  3661 
21 ,3362 
07,3664 
20, 26  11 

20  ,2635 
22,3234 
20,  30  24 
25,3245 
1C, 2706 
10,2626 
10,2624 
1C,  2704 
10  ,2631 
10,2711 
10, 2634 
10  ,2714 
43,  2117 
25,3612 
36,3705 
1C,  30  71 

5666 
04,2024 
36,  3046 
05,2703 
C 5,  3004 
05,0995 
05,3011 
41,  3075 

21  ,30  17 
43, 3073 
10,  2755 

6660 

6674 

6707 

17,2636 

600  1 

6025 
E 5 , 1 7 14 
40,  3350 
10  ,2330 
10,  2334 
10, 2353 
10,2350 


237 

493 

1281 

1469 

1317 

1476 

1477 
3 74 

148  1 
565 
1351 
1349 
1349 
1351 

1349 
1.351 

1350 

1351 
270 
574 
748 

1361 
137  1 
231 
732 
222 
223 
223 
223 
435 
1460 
295 

1352 
1914 
1 0l  4 
10  15 
1438 

231 
60  5 
127 
451 
1361 
1 361 
136  1 
1361 


l 238 

1 493 

3 1281 

2 146Q 

4 25? 

1 1476 
1 1477 
1 368 

1 1 4 PO 


10  506  1324 


2 482 

2 501 

2 920 

21  271 

2 574 

1 749 

1 1349 

1 249 

2 231 

2 717 

2 159 

2 237 

1 223 

2 2 23 


1 


436 


2 1460  1472 


1 


269 


3 1349 
13  1015 
1 1 Ol  4 
1 10  14 
1 1430 


62 


224 
4 P 3 
956 
418 

2 74 
298 


1326 

524 

958 


1378 

300 


GPMA  TRI  X 
GR  A8GRAV 
GRAVACCX 
GRA  VACCY 
GKAVACCZ 
GRAVEL 
GREED 
GR  P2  PC 
GRP2SVQ 
GR  P4f)F F 
G S A V 
GSCALE 
GS  FLECT 
G SH  I F T 
GTCTIME 
GTMP 
GTS 

GTSCADR 
GTSFI  N 
GTSFINLC 
GTS  FOUT 
G T SFOUTL 
GTS  GO  +0N 
GTSOAX  IS 
G TSQR  T 
GTS  TEMPS 
GUESS 
GUF  SSR  I T 
GU  ESS  W 
GUE  SSI 
GU IDDURN 
GUI01NIT 
GUIDSU8 
GU  TLDFN 
GUT  LORET 
GVDETER 
GW  AKE 
G WAKE2 
GYCPAR  S 
GY  RCDR 
G YR  I0A5RE 
GYROBUSY 
GYPCCMD 
GYRDE  XI  T 
GYPDFRAC 


■6,3140 
15,  2732 
E7  ,1701 
E7, 1702 
E7,  170  3 
15  ,2612 
15,2725 
04  ,3216 
E 5 , 1 7 1 1 
32,  3653 
E4  ,1621 
22,3651 
07,  3400 
7633 
E 7 , 1 6 7C 
0926 
21  ,3001 
17,  2653 
42  ,2145 
41, 3227 
42,2137 
41  ,2613 
21,3015 
21  ,30  35 
21,3343 
E6, 1736 
37  ,2  0 2 C 
4752 
0034 
37  ,2255 
32,2707 
34  ,3426 
31  ,2415 
21,  2233 
21  ,2  324 
15,2572 
07,3341 
07  ,3301 
14,3156 
15  ,3040 
07  ,3313 
07, 3334 
0947 
07,3512 
07,3611 


194 

958 

154 


826 
1 1 Q 
821 
1311 
1035 
154 
978 
1460 
1438 
310 
43  7 
309 
423 
146C 
146  1 
1469 
136 
378 
69 
69 


832 
785 
887 
B 8 8 
955 
1309 
1 3C8 
936 
960 

1308 

1309 


886 

886 

886 


1 194 

1 958 

5 154 

3 154 

3 154 

1 956 

1 958 

24  50 1 1232 

3 130  1216 

10  1 19  973 

3 1310 
1 1002 

6 154  802 

5 976  978 

1 1438 

1 1438 
1 437 

1 438 

1 423 

1 423 

1 1461 
1 1470 
13  136 


3 681  1105 


772 

772 

796 


971 


93 


3 887 

2 957 

1 13C9 
1 1309 
1 923 

1 959 

1 1308 
1 1308 

3 18  1 1314 

1 1313 

2 1312  1315 
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SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES  SYM80L  DEF  H REFERENCES 


GY  ROT  R I M 
YTORETQ 

G 1 

15, 2775 

E 5 , 1 462 

F 7,  1 56C 

: 

959 

131 

151 

l 

6 

565 

151 

879 

HINJEC  T 
HIPRIO 

HI  PTHRCT 

32,3724 
10, 2523 
4737 

= 

828 

1347 

40 

1 

1 

1 

832 

1347 

747 

IDL ADR 
I3LEADR 

I 01  EFB  IT 

32  ,3515 
■5,3360 
47  4 5 

= 

811 

229 

79 

1 

1 

809 

226 

746 

874 

H 

F 4 , 1477 

= 

117 

8 

117 

1233 

HIS  ECON 

42,3403 

430 

1 

4 29 

IDLEMA  SK 

LO,  LI 

1353 

1 

1357 

H*GHCR  *T 

0 131 

= 

126 

2 

780 

HI TEMI N 

0123 

= 

97 

3 

442 

IDL  FRADP 

16,2155 

140  1 

1 

140  1 

H A FPA 1 

E7  tl6[i 

= 

145 

3 

632 

6 3/, 

HITEMOUT 

1006 

= 

10  3 

4 

423 

431 

I 0LERET1 

10  ,3275 

1357 

HALF 

4736 

= 

1090 

43 

339 

1498 

htlnitx 

23  ,2515 

= 

37 

1 

496 

IDL  ESI  EP 

10,3516 

1361 

1 

1352 

halfapg 

F6 , 1746 

= 

1 36 

4 

1470 

14  72 

HI  LNI  TY 

23,2513 

= 

37 

2 

4 96 

I ERASTS  T 

5137 

996 

1 

996 

H A LFO  P 

12  ,2004 

= 

1C  92 

3 

930 

1222 

23,  2511 

- 

37 

527 

halfrev 

06,  37  2 3 

687 

2 

687 

HI  10 

04,3370 

1329 

1 

1328 

I FA  ILJMP 

06,  2755 

187 

1 

168 

H ALFS EC 

2a,3203 

5 20 

1 

5 1 8 

HI  5 

4350 

469 

10 

163 

1 2 fll 

IF AI LOK 

07  ,3201 

1306 

1 

1 3D  5 

HANDADR 

17,2622 

1437 

1 

1436 

H 16  ZEROS 

23,2517 

= 

37 

17 

304 

1272 

iflag: 

13,3073 

1204 

1 

1205 

HANG2C 

06,  207  1 

163 

l 

162 

HI.  IGHT 

25,3655 

510 

IFL  AGP 

13,3350 

12C,  4 

1 

1204 

HAPO 

E4  , 1 7 7 

= 

120 

4 

120 

615 

HL  IT F 

4747 

= 

611 

2 

610 

884 

IFLFGAL 

10,2562 

1348 

1 

1348 

HAPO  Y 

E 4 , L 5 1 2 

= 

1 17 

) l 7 

714 

= 

hav  egu  es 

1 l,  200  2 

68  1 

1 

762 

HLROFFF 

32,2713 

776 

1 

771 

IC-NALG 

32  ,246  1 

772 

HAVE  NORM 

04 , 3134 

1179 

1 

1179 

HLRT  IME 

E7,  1762 

= 

155 

5 

155 

864 

IGNALGR  T 

32,2634 

774 

HAV  EQUOT 

21,  3105 

1462 

1 

1462 

HMEAS 

E 7 ,1654 

= 

154 

6 

154 

876 

IGNALOOP 

32,  2520 

772 

1 

774 

H BAD 

25 , 3 44  1 

56R 

1 

568 

HMEASCHK 

33,  2625 

86 1 

IGNAOSQ 

F6  ,1  4 1 2 

133 

1 

726 

H RFAMNR 

34,2000 

41 

I 

B6  1 

HMEAS DL 

E7, 177D 

= 

155 

3 

155 

569 

I GN AO  S3 

E 6, 1413 

133 

1 

726 

hcai  c 

E7 , lc32 

151 

7 

15  l 

668 

42  ,3460 

ICNFL  AG 

0 183 

3 

723 

746 

HCALC  LAD 

F7 ,1715 

= 

154 

3 

154 

891 

HM  SOUT 

42,  3236 

428 

1 

423 

IGNFLBI T 

4737 

= 

78 

2 

724 

733 

HDD  TO  I SP 

E 7,  1473 

= 

151 

7 

151 

869 

HCLD 

0165 

= 

1494 

2 

1492 

IGN ITE 

36,310  1 

733 

1 

732 

HDOT  LAC 

E7,  1717 

= 

154 

4 

154 

esc 

HOLDQ 

E 6,1744 

= 

137 

2 

1449 

1453 

I GN  IT  E1 

36  ,3115 

733 

1 

733 

HFADT  JFT 

16,351 < 

1426 

1 

1426 

HCLDW 

E5,  1734 

= 

130 

6 

1145 

1146 

IGNI  TI  ON 

36,2433 

724 

3 

248 

733 

HFAIL 

? 3,  3603 

875 

2 

B63 

H PE  R 

E4  ,1711 

= 

120 

2 

319 

615 

IGNYET ? 

36,  2425 

724 

1 

724 

HF  AI  L PIT 

4737 

84 

HPCRM IN 

E 4,  1571 

- 

118 

118 

715 

I G RET 

E7  ,1675 

= 

2 

53b 

597 

H F A I L F L G 

0247 

= 

84 

2 

963 

87  5 

HPERX 

E4 , 1 5 1 4 

= 

117 

2 

319 

715 

I G SAME  X 

27,2125 

490 

1 

490 

HFL  SHR  IT 

4753 

= 

86 

3 

610 

6 64 

HR  CON 

42  ,3544 

443 

2 

442 

IMECI  AT  E 

01,3622 

1 294 

4 

129  3 

1296 

HFLSHFLG 

0263 

= 

86 

2 

86  3 

875 

HRCON  1 

42,  3305 

428 

1 

428 

I MO  DE  S3  0 

12  77 

108 

69 

157 

1321 

HH 

F 6,  1746 

= 

1 37 

15 

145  2 

14  55 

HSC  AL 

3 3 ,2002 

42 

1 

862 

lMni)fcS33 

1 300 

108 

47 

164 

13  98 

HI  AS  CENT 

F6, 1400 

1.33 

4 

219 

147  5 

H STI LB  AD 

25,3442 

568 

1 

568 

I MPLBURN 

36  ,3522 

746 

1 

726 

H IDF  SC  NT 

• 

44 

1 

1475 

HUG  EQUOT 

2 1,  310  2 

146  2 

1 

1461 

I MP  LLB I T 

4743 

70 

2 

726 

74  8 

hidphalf 

23,  251  5 

= 

37 

6 

491 

1240 

HZCOUNT 

E7,l  753 

= 

155 

6 

155 

810 

IMPULSW 

0044 

= 

70 

5 

746 

760 

HI  DPI  /4 

23,2507 

- 

-37 

1 

1272 

HZTIME  ? 

3 2t  3330 

808 

2 

8C8 

I MU ATT C K 

43  ,2675 

286 

1 

268 

H I ENFRGY 

12,3432 

1187 

1 

1186 

IMUBACK 

37,2005 

378 

HI  GAT  ASX 

33,  3645 

876 

1 

868 

I RNK3A  LL 

4674 

991 

66 

171 

1485 

IMU  BAD 

07,36  36 

1316 

4 

17  1 

1316 

H I GATCHK 

33  T 32P 2 

867 

IC 

F7,  1655 

= 

147 

6 

762 

765 

I M LC  ADR 

1301 

= 

109 

4 

215 

1316 

HIGA Tjnp 

37,3554 

8 7 7 

1 

876 

ICCUFA  IL 

' 6 ,2703 

= 

186 

1 

187 

IMUCACE 

06,2565 

1 8 C 

l 

187 

H IGHCR  IT 

E5,  1473 

= 

125 

1 

125 

I C OR  K 2 

43,2222 

2 74 

I MUCHK 

15  ,3646 

974 

2 

942 

966 

H I DIE  STF 

22,3647 

R?  1 

1 

794 

IC ADDT  AB 

42,  2656 

319 

2 

3G9 

I MUCDARK 

43,2213 

274 

l 

273 

HIGH  A 

7754 

1 G 89 

3 

997 

1C  1 4 

IDAD1TEM 

01  50 

98 

z. 

309 

437 

IM.)  COARS 

07,  2745 

1301 

4 

274 

94  4 

HIGHQ 

7756 

1089 

7 

253 

557 

I CA02TEM 

0151 

98 

2 

3ng 

I MUCOARV 

43  ,2234 

274 

2 

274 

275 

H I MINCON 

42 ,3404 

4 3 D 

1 

430 

I CAC3T  EM 

D 152 

98 

IMUCDMP 

06,2000 

= 

29 

1 

331 
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SYMBOL 

DFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

IMUFA  1 1 

' 6,  2703 

_ 

186 

1 

1 87 

I NDE  X 

616D 

997 

1 

995 

1NT6IT  15 

0115 

97 

6 

97 

997 

I MJFI  NE 

, ' 

1305 

278 

12  20 

INOE  XE  S 

17,  3 134 

144  3 

3 

1442 

I NTR15  + 

j 1 14 

97 

5 

97 

1494 

I MUF  I NFO 

07,3177 

1305 

2 

13  J5 

1 3 1C 

INDEX  I 

23, 3770 

1253 

l 

1252 

INTEGRV 

13,313? 

12C6 

13 

243 

1214 

IMUFINPC 

43,  ?O07 

278 

1 

268 

I NDE  XLCC 

01  30 

= 

97 

12 

997 

1"80 

INT  FGRVS 

13,  3106 

1205 

7 

651 

774 

I MUFI NFV 

. 3 ,2  3 6 7 

278 

1 

278 

INDEX  2 

6176 

997 

1 

957 

I NTFGRV1 

13  ,3135 

1 2C6 

2 

1204 

r 7 , 3 1 5 5 

= 

1320 

I NC JUMP 

63D6 

IDO  ? 

6 

996 

oqq 

INTFGR  V2 

13,3140 

1206 

1 

1233 

I MJ  GOOD 

r 7 , 3620 

1316 

I ND  WOR  K 

6 216 

997 

1 

997 

I NT  EX  IT 

13  ,3224 

1207 

3 

120  8 

12C9 

[ MUMON 

06  ,2172 

1 67 

2 

165 

IN  OX  Y Z 

16,  3575 

= 

1428 

l 

1417 

INTF  LAG 

02  2 7 

= 

83 

IMJOP 

( 6,  2622 

1 82 

1 

1 87 

I NE  RCCNA 

20  ,3045 

1481 

1 

1476 

INT  TLB  IT 

4736 

= 

83 

2 

222 

1210 

I MUOP2 

' 6,264? 

1fl2 

1 

182 

I NCR CON B 

20,  3063 

1482 

1 

14  76 

I NTGRAT  F 

11  ,3353 

1228 

2 

1228 

1229 

1 MUPUL  SE 

It  3 r 

13  08 

7 

278 

1388 

INERCONC 

20,3064 

148  2 

1 

1476 

INTGRCAL 

26,3244 

596 

7 

588 

596 

IMUSE 

000  7 

= 

67 

7 

239 

1224 

INFINAPO 

12  ,3747 

1191 

2 

1191 

INT  IMF 

E7 , 1 607 

= 

146 

5 

658 

684 

I MUSEBIT 

4744 

= 

67 

3 

17  1 

2 15 

IN  F INB  IT 

4745 

= 

80 

I NTI  NI  T 

13  ,2 OOC 

= 

3C 

4 

47 

12  1 l 

I M USE  FLG 

4744 

= 

1320 

1 

I 82 

infinflg 

0200 

= 

80 

4 

1177 

1186 

INT  INT 

35,  3404 

672 

6 

620 

670 

1 MJS  LLLG 

37, 2315 

383 

3 

379 

253 

INF  INI  TY 

12,3205 

1183 

5 

1 1 80 

1183 

INT I NT 2 C 

34  ,3142 

642 

2 

634 

635 

I MUSTA  LI 

i 7,371 5 

1319 

1? 

215 

960 

INFL  IGHT 

2 3,  2r,oo 

= 

32 

2 

329 

1238 

INTINT3P 

34,3151 

64? 

2 

625 

I MUSUPFR 

? 7,  2CCT 

= 

36 

1 

295 

I NGTS 

E6  ,1  632 

= 

138 

8 

1400 

1492 

INT  LOOP 

35,  2522 

657 

1 

657 

I MUVAR 

26 ,3437 

599 

2 

594 

555 

IN INDF  X 

E fc,  1743 

= 

136 

5 

1469 

1470 

I NTLZE 

21  ,2716 

896 

1 

896 

I M U7  E RO 

1 

1299 

3 

215 

383 

I N IT  AB  IT 

4752 

8 1 

2 

9 6? 

963 

I NTMC TS  S 

41,2143 

414 

2 

413 

IMJZEROA 

■ 

1299 

1 

1299 

INI TALGN 

02  05 

= 

81 

4 

962 

971 

I NT PT  HIS 

13,2301 

704 

I muzfrck 

A 3 ,2131 

271 

1 

27  1 

IN  ITRY 

15, 3122 

962 

1 

962 

INTPRFT 

6051 

993 

234 

214 

1380 

I MUZ  FRO  ? 

r 7 » 27?A 

i one 

1 

1299 

I N ITCDUW 

90  1 

2 

7 20 

824 

INTPRETX 

31,3556 

818 

3 

791 

795 

I ML)  7E  RC3 

C 7,  2733 

1300 

INI  TO  SP 

10,3040 

1353 

1 

12  92 
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9 131  393 

1 229 

3 725  884 

3 777  845 

1 737 

1 1296 
1 1122 

3 331  341 

4 593  595 

5 149  5«9 

3 1309  1316 

13  229  1316 

1 278 

2 222  223 

1 1267 

2 60  3 

1 429 

10  915  1461 

14  781  911 

2 1434  1435 

1 1422 

2 483  520 

2 1347  1348 
1 610 

1 211 
1 21  1 
1 211 
1 211 
1 20  3 

1 203 

1 203 

1 203 

1 203 

2 206  208 

2 23  3 210 

1 20  7 

1 20  7 

1 237 

1 207 

1 207 

1 207 

1 20  7 

1 207 

1 577 

1 220 
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SYMBOL 


LMLSALfl  05, 
L ML  SAL  I 
L ML  SAL  0 3 05. 
LMLSAL04  05, 
L ML  S*  I 05  05i 
LMLSAL06  05, 
LMLSAL07  05i 
L ML  S AL  OR  05, 
LMLSAL09  C 5 , 
L MO ME GAN  E6, 
LMONLY  16, 
LMOONB  IT 
LMOQNFLG 
L MORE  MO  l 0 5, 
LMOPBM02  rs 
LM0RBM0  3 0 5, 
LM0RRM04  05, 
LMDRBMC5  C5 
LM0RBM06  05, 
LM0RBMC9  0 5 
LMPOS  E A 
LMREND01  0 5. 
LMREND02  r5 
.MPEND0  3 0 5. 
L MREND04  05 
LMRFND05  C5 
L MR  EM  DO 6 0 5 
LMREND07  05 
L MR  END  OB  05. 
LMTRAP 
LMVF  L 
_ N C HT  M 
LNGCALl  2 (.1 
L 3 AODAP  2C 
L0ADDAP1  Cl 
LUAOITIS  1C 
L3ADLV  41 
LOADLV 1 
LOADSTAT 
LOADTIME  10 
LOASCENT  20 
L3C 

LOCCT  R 
LOCKANGL  2 2 
L3CSAM  14. 


E7 


2127 
2136 
2145 
2154 
2160 
217  1 
2277 
2230 
2165 
1407 
2462 
474  1 
0174 
2127 
>2136 
2145 
.2154 

> 2 l 6 C 
217  1 

,2165 
, 174? 
,2127 
,2136 
,2145 
,2154 
,2160 

> 2 226 

. 

, 2307 
,1406 
,1750 
, 1660 
,3455 
,2000 
, 

,3443 
, 3045 
, 2021 
1 013 


35  c 5 


,2or  i 

0164 
0064 
240  2 
2500 


REFEREN2E  S 


SYMBOL 


DEE 


209 
2 09 
209 

209 
200 
20  9 

210 
210 
21c 

133 
14  13 


BO 


80 


200 
2 00 
2C1 
20  1 
201 
201 
20  1 
121 
20  5 
205 
205 

205 

206 


20  6 


31 


209 

239 

209 

209 


1 209 

1 239 

1 209 

1 20  9 

2 220 
1 1413 


2C6 

206 

133 

121 

152 

1122 


200 
230 
200 
200 
230 
200 
210 
509 
205 
235 
205 
20  5 
235 
20  5 
205 
?05 
220 
509 
152 
1122 
2 97 


1413 

577 


28 


44 


412 

103 

1385 


10 


46 


1 1357 
412 
27Q 
435 
214 
1 1475 

376 

377 
356 
Q2  7 


36 


LOC  SKIRT 
LCDESCNT 
LOOM I XNN 
LflDNL  V 
LCCNNLCC 
LODNN  TAB 
LCDPHALF 
LCOPMAX 
LODPM AXl 
L C DPI  / 4 
LOD  SAMPT 
LO  ENERGY 
LCGSUB 
LQKONB I T 
LCKONSW 
LCLI  M 
L DM  AT 
LCNG 

LONGBA  SE 
LON  GCA  DR 
LCNGC  ALL 
LONGS  LC  L 
LCNGCY  CL 
LCNGE  XI  T 
LONGGYRO 
LCN'GPOOH 
LONGR  TRN 
LONGT  IME 
LOCKANGL 
LOOPCT 
LCCPER 
LFCPMX 
LOOPRATE 
LOOPS  I N 
LOOP  1 
LOOP? 
LOOP3 
LOO  SF 
1.0SCALAR 
LOSC MB  I T 
LOSCMFLG 
LCSCOUNT 
LO  SHE  SRO 
L OS V EC 
LCSVE L 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


REFERENCES 


SYMBOL 


OEF 


22,  2744 
20.2003 
42  ,2117 
42,  2135 
41  ,2143 
42,2101 
12,  2004 
12  ,2017 
12,  2021 
34,3013 

4400 
12,  3452 
30 ,33 16 
4747 
00  12 
12,3513 
35,  3365 
1121 
1150 
1146 
5313 
01,3731 

0 1,  3471 
E3  ,1434 
07,  3532 
31,3523 

01  ,3510 

1152 
E7 ,1667 
E 7, 1605 
17,  30  34 
34,2137 
Ifc, 3673 
22  ,2417 
23,3723 

23,  3722 
20,2734 
37,  2730 

0004 
4740 
0041 
E7 ,1456 
E7,l  71  1 
E5,  1413 
F3  ,1756 


309 
3C9 
4 14 
309 


67 


67 


7 358 

1 1475 
1 309 

l 309 
B 4 13 
1 414 

3 327 


37 


1 1 88 
672 
106 
106 
106 
112  1 
1296 
1122 
112 
1313 
1 1 ? 3 
1123 
106 
154 


1442 

630 

1458 

362 

1253 

1252 

1478 

391 


1 37 

1 1128 

3 446 

1 1186 
1 838 

1 560 

5 277 

2 1185 

2 669 

7 106 

2 1290 
2 1122 
5 379 

2 12  96 
2 1122 

4 1122 

1 1312 

2 1122 
1 1123 

13  1121 

3 B18 

* 631 

3 1437 

1 631 

2 14  58 

1 363 

1 1252 

1 1253 

2 1478 

1 3 92 


519 


670 

1126 

1296 

1123 

12Q7 


1123 

1123 


1296 

819 

639 


94 


70 


143 
1 48 
131 
115 


306 

561 

504 

154 


1 31 
115 


LOS  1 
LO  S 2 
LOT  EMIN 
LO  TFMOUT 
LOTHRUST 
LOUNITX 
LOUNI  TY 
LCJNIT  Z 
L OU  PF 
LOWC-RI  T 
L OW  FCOL  0 
LOWIDCOD 
LOWLOAD 
LOWRPR I 0 
LOWSUPER 
LOW  VERB 
LOWIO 
LDW  11 
LOW  2 
L0W3 
L0W4 
L0W5 
L0W7 
L0W7+2K 
L0W8 
LOW  9 
LOS  ZEROS 
LPDF VSUB 
LP  S20 . 1 
LPS23  .2 
LP2ALM 
L P ALT 
LRALTBI  T 
LRALTFL  G 
LRRYBIT 
LRB  YPA  SS 
LR  ESC 
LRHEIGHT 
LRHM.A  X 
LR  INH 
LRI  N'H  BI  T 
LRl  CTR 
LPMCTR 
LROFF 
LROFF? 


REFERENCES 


E5  ,1444 
F 5,  1452 
0124 
1007 
33,  3454 
12  ,200* 
12,2002 
12,  2000 
21  ,3523 
E 5,  1472 
31,2230 
05  ,2065 
10,3510 
31  ,3357 

30  ,2000 
41,  2061 

5012 

4356 
5257 
4757 
4762 
4346 
6106 
50  13 

4357 
5004 

12,2006 

31  ,3570 
24, 3340 
25  ,36  33 
25  ,3601 
25,  30  60 

4747 

0276 

4735 


1 C 3 
872 
37 


37 


37 


1472 

125 

780 

199 

1361 

799 


34 


413 


1088 

469 

1090 

1090 

1086 

469 

994 

1080 


469 


20,2673 
25  ,3266 
E 7, 1420 
0254 
4744 
E 7 , 1673 
E7  ,1675 
43  ,2331 
33,  2465 


16 


1087 

-37 

818 

577 

579 

574 

562 


147  1 
125 
780 
988 
1357 
799 
217 
413 
239 
162 
1(  44 
239 
731 
40  4 
4 235 

1 1000 
0 197 

4 252 

5 255 

2 791 

504 


1280 

1005 


104  l 
13  63 
13  28 
1360 


1 504 


1382 

1104 

1176 

810 

583 


1 574 


87 


87 


1477 

566 

142 


154 

154 

277 

859 


226 

771 

1476 

565 

864 

277 

799 

154 

154 

268 

858 


859 

866 

875 

875 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

REFERENCES 

SYMBOL 

DEF 

H 

R EFERFNCES 

L PON 



lr 

n/  , 

_ 

842 

LRPOS 

E7  ,1650 

= 

153 

5 

^54 

8 77 

LRZCDU 

E4, 1647 

= 

1 lo 

3 

l 19 

878 

MA  J + 

07  ,3  43  4 

1312 

1 

131  1 

LRPOSBI  T 

4746 

= 

87 

1 

573 

LR  ZCOIJCL 

E4.1727 

= 

122 

1 

122 

MAJ- 

07,3571 

1315 

L 

1311 

T 

16 

LRPOSCAN 

25,3570 

574 

1 

573 

LS  OR  I ENT 

04,  2765 

974 

2 

924 

967 

MA  KE3E  N 

10  ,3521 

1361 

1 

1350 

. R P 0 S F L G 

0275 

= 

87 

LSPOS 

1 5 ,3660 

976 

4 

927 

1227 

MAK  EMARK 

10,  2366 

1344 

1 

1348 

LRPOS  NX T 

25,3544 

573 

2 

573 

574 

L 

26, 2 420 

588 

2 

515 

598 

MAKEMAX 

23  ,3333 

1481 

1 

148  1 

LRPDSDUT 

40,2624 

424 

1 

423 

LS  P22  .4 

26,3202 

596 

1 

588 

MAK  FPL  A Y 

10,2547 

1348 

3 

1347 

1361 

L RP0S2 

25, 3516 

57? 

2 

574 

677 

L STRNKCH 

43  ,3722 

1 282 

1 

12«1 

MAK  EPR  10 

10,25  13 

1347 

1 

1348 

2 7 1 

1 

LRP0S2K  I 

43,2161 

271 

I 

271 

LST1 

F3  ,1400 

112 

48 

160 

1292 

MAN  FLAG 

16,2202 

14C1 

1 

1400 

LRP2C0MM 

25, 3573 

57  4 

1 

21? 

LST2 

E 3 , 1 4 10 

112 

41 

228 

1119 

MAN  MODE 

16  ,3327 

1418 

1 

1418 

875 

LRSC< 

25,  3356 

567 

1 

567 

LST2F  AN 

43  ,2002 

268 

2 

268 

474 

MANUCALL 

22,  3177 

37? 

1 

372 

L RS  CT  R 

F7 , 1 6 7 6 

= 

154 

4 

154 

876 

1.  S 2 1 X 

E 3,  1755 

115 

4 

509 

677 

MANUFRI T 

4736 

= 7b 

566 

: '5 , 3 3 b 7 

4 

228 

LRS2? 

32,  2000 

= 

34 

2 

4 l 

5e2 

L T 5 

41  ,2053 

412 

2 

412 

MANIJOFF 

22,31  13 

37  1 

1 

371 

LRS22.1 

32  ,2217 

582 

1 

5H 

LUNAR  IT 

4740 

= 

71 

MANUSTAL 

22  ,3067 

371 

LPS  22.2 

24, 3417 

585 

I 

514 

L UNDr  SC  H 

25,24  12 

54  8 

1 

327 

MANUSTOP 

22  ,3213 

374 

1 

37  1 

LRS2^.  1 

26,3444 

600 

2 

525 

604 

LUNG 

15,  2677 

957 

2 

955 

956 

MANUVFR 

26  ,2000 

= 33 

1 

481 

PS  >4.  11 

26,  3473 

6C1 

LUMA  NAD 

36,3135 

735 

728 

MANUVFR  1 

= 33 

LRT  IMF 

F4 ,1643 

= 

119 

7 

119 

87  8 

LUNLAND 

31,  2417 

785 

1 

735 

MARKCHFX 

07  ,2216 

259 

2 

259 

267 

LI  TIMEDL 

E7,l  772 

- 

155 

3 

2 0 8 

569 

lunpos 

15,3660 

= 

976 

2 

495 

1229 

MA  R KC  N TP 

E 7,  1550 

= 149 

13 

149 

267 

1 

1345 

LR VELB  IT 

4744 

= 

87 

LUNSFCHK 

24, 2752 

516 

9 

500 

525 

M ARKCTR 

F7  ,1462 

= 144 

5 

5 j4 

7 ? 5 

1 R VE L F LG 

0273 

= 

87 

LUNSPH 

1 1 ,3409 

1229 

1 

1227 

MARKEND 

10,2326 

1343 

1 

1343 

26,  3066 

562 

1 

495 

— 

2 

1 061 

1 C 63 

26  1 

1 

261 

LR VF  LY 

25,3064 

562 

1 

499 

LV8U  F 

6305 

1C  Cl 

1 

1 C 2 5 

MAP  KF  LAG 

1070 

104 

L 

1345 

lrvcl z 

25,  3062 

562 

1 

499 

LVELBI  AS 

25  ,2000 

41 

1 

565 

MAP.KFMSK 

10,  3032 

1353 

2 

1344 

LRVF 

E5  » 1 5 0 3 

- 

125 

3 

125 

866 

LVSQUARF 

0042 

= 

94 

2 

1061 

1066 

MAP.KFORM 

10  ,2340 

1344 

. 3 VMA X 

F 5 , 1 5 0 2 

= 

125 

3 

1 ? 5 

866 

LVKT  LIST 

6226 

111? 

1 

1114 

MARKW 

03  70 

101 

5 

1345 

1364 

LRVT  IMDL 

E4, 1730 

= 

12? 

L XA 

01  ,2  3 60 

1078 

1 

1003 

MARKOCT 

10,3514 

136  1 

1 

1352 

E7 , 1 4 2 1 

1 4 2 

2 

L * WH  1 

1315 

= 

1C9 

1 

786 

L14/0UT 

40  ,2740 

4 26 

2 

425 

426 

MARKPERF 

10,2441 

1346 

1 

1356 

LRWV  FF 

E5,  1512 

= 

125 

2 

125 

6 67 

MARKPL  AY 

13  ,2430 

1345 

4 

1345 

1360 

. RWVF Y 

E 5,  1510 

= 

125 

1 

125 

M/SCUN2 

42  ,3406 

4 3 D 

1 

<*29 

MARKRUPT 

07,  2332 

261 

2 

159 

160 

LP.WVF  7 

E5  , 1 6f  7 

= 

125 

2 

125 

866 

M / SCON  3 

42,  3410 

430 

4 

429 

MAP  KS  T AT 

13  0 7 

109 

34 

229 

267 

05,1566 

= 

125 

1 

125 

M/S  LIMIT 

42,3334 

MARK  TE  ST 

26, 2512 

589 

1 

588 

LRWVY 

E5 , 150  5 

= 

125 

1 

125 

M/SNORM 

42  ,3350 

429 

7 

429 

430 

MAPKTYPE 

07,2506 

264 

5 

262 

266 

LRWV7 

, 1 

= 

126 

2 

125 

866 

M/SOUT 

42,  3311 

429 

1 

423 

MAPKWAKE 

10  ,3024 

1353 

1 

1359 

LR  XC.OU 

E 4 , 1 64  5 

= 

119 

4 

119 

878 

MAGSUP 

4512 

530 

9 

532 

553 

M AR  K 2P  A C 

1072 

104 

2 

1353 

1354 

LRXCDUDL 

E4,  1725 

= 

122 

1 

122 

MAG  VEC  2 

E 5, 1717 

= 

129 

6 

129 

1188 

MARK?  MS  K 

13  ,3467 

1360 

2 

1344 

LRYCOU 

E4 » 1 646 

= 

HQ 

3 

1 19 

860 

MA  INENG 

30, 2423 

837 

1 

8 37 

MAP  K4MSK 

10  ,3470 

1360 

1 

1344 
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SYMBOL  DEF  H 


R EFERENC  ES 


SYMBOL  DEF  H 


REFFRENCE  S 


SYMBOL  • DEF 


REFER  ENCES 


MAR  SLEEP 

1C, 3*36 

1360 

1 

13*5 

MFREF 

15,3*56 

969 

2 

972 

973 

MI  NTI  ME  S 

16, 362* 

1*29 

M ASKP  EG 

F5»  153* 

= 

131 

MF  S 

E * ,1  62 1 

= 

I 1 9 

* 

1 1 9 

356 

MINT  IME2 

>5,353* 

98  3 

MASS 

12*5 

= 

107 

15 

107 

1*83 

M CARET 

30 , 3 26  L 

90  5 

1 

916 

MINUS1 

7761 

= 

IC'PC 

M ASSC.TR 

0161 

— 

1*8* 

5 

1*82 

1*83 

MGC 

E5  ,17*3 

= 

127 

127 

12*2 

M INUS2 

7760 

- 

1297 

MASS  FIX 

20, 2517 

1*75 

3 

1*75 

MGLVFBI  T 

*752 

= 

76 

MIS 

E6 , 1 6* 5 

139 

MA  SSMCN 

33,2251 

855 

MGLV  FLAG 

0 130 

= 

76 

2 

687 

MI  SC  JUMP 

63*6 

1003 

MASSMUI  T 

31,  ?937 

78  2 

* 

779 

EC5 

MG  2 

07,3725 

1319 

1 

1319 

MIX  AD 

*1,  2305 

*16 

MASSl 

E7 ,1570 

= 

151 

5 

151 

6 55 

M IDAVB  IT 

*752 

= 

82 

Ml  XBACK 

*0,310* 

*39 

MATINC 

01*0 

98 

9 

98 

1 03C 

MICAVFLG 

022* 

= 

8 2 

3 

121* 

1232 

MI  XBR 

01*0 

= 

9B 

MAT  MOV  E 

1*.  337  1 

9*0 

7 

936 

c 6 6 

MI  DOG  I M 

06,2000 

— 

29 

1 

687 

MIX  CON 

*77  1 

- 

309 

MATPI  X 

11  ,3262 

1227 

2 

122* 

M IDFL  AG 

0002 

= 

66 

5 

1208 

1235 

MI XNN1 

*1  ,2261 

*16 

MAX 

001  6 

= 

119* 

* 

1173 

1 1 7* 

MI  DF  LB  I T 

*737 

= 

66 

M IXNN2 

*1,2273 

*16 

MAX  ANG 

22,  236* 

362 

1 

357 

M I DOR L ST 

17,3163 

1**5 

1 

1*** 

MIX  NOUN 

*1  ,22*6 

* 16 

MAXCHECK 

12,2625 

1 174 

1 

1174 

MICTDAV  1 

13,  3553 

1213 

1 

720 

MI  XTEMP 

0125 

= 

97 

M AXCHK 

22,  36  3 6 

715 

* 

615 

71* 

MI  DTPAV2 

13  ,35*7 

1213 

1 

7** 

MK ABORT 

07,  20** 

252 

MAXCCGA 

12,3  3:  2 

1 ie5 

2 

1 IRS 

M IDlFB  IT 

*751 

- 

82 

MKA  LARM 

07  ,2325 

260 

MA  XD B 

• 

225 

1 

219 

MIDI  FLAG 

0223 

= 

82 

4 

1213 

1215 

MKDEX 

E 7 , 1552 

= 

1*9 

MAX  DB  ITS 

21,  200  2 

*3 

2 

893 

M I D 2 

13,36*6 

12  1* 

1 

1214 

MKOVBIT 

*75  1 

= 

7* 

MAXDT 

13  ,3  3*0 

1209 

2 

1208 

M I C5 

*3*7 

*69 

1 

*25 

MKO  VF  LAG 

0110 

= 

7* 

MAXDV 

or, 26*2 

1056 

1 

1052 

MID7 

* 1** 

**7 

4 

**7 

1361 

MKR  EJ 

07,2*53 

263 

MAX  IWSW 

0 1*0 

= 

98 

6 

U-48 

1C 6 3 

MIMRET 

17,  23*1 

1*33 

1 

1*33 

MKRELEAS 

07  ,20*7 

252 

MAXFORCE 

E 5 , 1 533 

= 

1 25 

1 

125 

MIN 

DO  10 

119* 

4 

1 173 

117* 

MKRUPTBB 

*061 

160 

M AXJETS 

17  ,3373 

1*50 

1 

1450 

M IN  + 

0 7,  3*31 

1312 

1 

1311 

MKTI ME 

E7  ,175* 

= 

150 

MA  XNM 

22, 36*5 

715 

3 

715 

M I N- 

07  ,3566 

1315 

1 

1311 

MK  VAC 

07,201* 

251 

MAX  PLUS 

20,  30*  1 

1*8  1 

2 

1*8C 

UOl 

MINABD  V 

33,2031 

8*8 

1 

83* 

MK  V AC  FN  D 

07  ,2031 

25  1 

MAXRA 

27,3*43 

1263 

2 

126  3 

M IN  ADR 

17,  2350 

1*3* 

1 

1*33 

MK  VB  52 

07  ,26  12 

266 

MAXTFST 

00, 2565 

1052 

* 

1051 

1 C65 

MI  NANG 

22  ,2362 

362 

1 

357 

MKVR53 

07,  2611 

266 

MAXT  FF 

27,3633 

1269 

1 

1268 

MINB  12 

7^c  3 

986 

1 

9 83 

MKVB5  * 

07  ,2610 

266 

M AXTFF  1 

27,3632 

1 269 

1 

1266 

MINBI  31* 

05,3567 

983 

l 

983 

MK  VB  5** 

07,2613 

266 

M AXTR I ES 

2*, 2366 

5t  8 

2 

518 

5 19 

MINCHECK 

12  ,2571 

1173 

1 

1173 

ML  OS  V 

E3,  176* 

115 

M AX  TP  Y S 

25  ,2465 

551 

1 

552 

M INCCIGA 

12,  3 320 

1185 

1 

1188 

MMADREF 

*1  ,2060 

*13 

MA  XVEL 

21,2001 

*3 

2 

893 

MINCON 

*2  ,35*6 

* * 3 

1 

* * 2 

MMATR  I X 

002* 

= 

1139 

MAX250 

35, 3650 

679 

1 

662 

M INC  TIN  1 

*2,3303 

*2  8 

1 

*31 

MM CHANG 

*1  ,3*70 

*5* 

MC  TOMS 

25,3056 

561 

2 

557 

560 

MINC0N2 

*2,  3301 

*28 

2 

*28 

MMD  SPLA  Y 

5326 

1283 

MOOT 

F 7 , 1736 

= 

1*7 

2 

1*7 

760 

MI  Nf  S M 

*7*1 

= 

* * 

1 

300 

MMNUMBER 

077* 

1C2 

MOOT  APS 

36,2010 

38 

MINDE X 

0773 

102 

* 

235 

239 

MMTFMP 

1057 

= 

2*0 

MOO  TOP  S 

36,2002 

38 

1 

825 

MINFORCE 

E5, 1532 

= 

125 

2 

125 

800 

MM  66 

32,2770 

802 

MD1 

4 36  2 

46Q 

* 

*66 

1375 

MINI  MP 

*3  ,2773 

289 

1 

269 

MNK  EY  IN 

0015 

= 

9* 

MEASI NC 

23  ,2000 

- 

32 

1 

1 I40 

M IN  IR  ECT 

13,3705 

1230 

3 

503 

1212 

MODABDRT 

07  ,3  7*0 

1319 

MEASINC  1 

. • ' 

= 

32 

l 

11** 

MI  NLMD 

1,23 

** 

1 

300 

MODDONE 

12, 212* 

1166 

MET  HOD  1 

22,  2242 

359 

1 

359 

MINMINLM 

01,2001 

** 

1 

3 00 

MODE 

0 163 

100 

ME  TH  00  2 

22,2216 

359 

M INHERE 

22,  3365 

709 

2 

7C8 

711 

MODEA 

1106 

= 

10  5 

MFTHDD  3 

22,  2266 

360 

2 

359 

MI  NPFRM 

22  ,3363 

709 

1 

711 

MODEB 

1110 

105 

MFI 

F4 , 1 6 2 1 

= 

1 I9 

12 

356 

358 

MINOR 

17,  232n 

1433 

2 

1433 

MHDECADR 

1301 

109 

MFI  SYM 

E6 , 1 702 

= 

139 

12 

358 

36C 

MTNRT  N 

1 7, 3325 

1*33 

1 

14  34 

MnDEE XI T 

07,2722 

1300 

1  1*2  5 

1 983 

2 1312  1359 

3 226  1292 

20  139  *91 

1  1000 
l * 1 6 
l *39 

13  309  **0 

1 30  9 

1 *16 
1 *16 
1 *13 

3 *09  *15 

1 251 

1 259 

9 1*9  267 

2 13*6  1353 

1 261 
l 2 60 
1 159 

* 150  596 

5 251 


1 266 

1 259 

5 557  579 

1 *12 
8 1131  1227 

2 *13  05 

1 22* 

10  23*  827 

3 239  2*0 

1 802 

2 225  1327 

3 1319  1320 
3 1166 

32  331  1361 

* 328  5*8 

* 105  551 

11  109  1319 

8 1299  1319 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


= DEFINED  BY  EQU  AL  S 
CD  DEFINITION  ASSCC  I A TED 
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SYMBOL  T 

ABLE  LISTING,  INCLUDING  DEFINITICN,  HEALTH,  PAGE 

(IF 

OEF  , 

ft  GF 

REFS  , 

PAGE  OF  FIRST 

REF,  PAGE 

OF  LA 

ST  REF • 

SYMBOL 

DEF 

H 

REFE 

RENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFFRENCES 

M ODFGOPD 

07,3730 

1319 

1 

131  9 

MP  AC 

0154 

100 

953 

99 

1494 

MY 

E 7, 1704 

= 

149 

5 

149 

599 

MODES  l P 

i 7,  3734 

1319 

1 

1319 

MPAC  + 

9^,2437 

1050 

2 

1049 

MZ 

E7 ,17  12 

= 

149 

3 

1 49 

593 

MODE  SW 

C 7 ,2000 

= 20 

1 

1299 

MPAC+6 

0 162 

= 

426 

7 

426 

470 

Mil 

E 6 ,141 4 

133 

9 

160 

1426 

M0DE70 

05 t 3502 

8 24 

1 

023 

MPACL  IM 

31,  3547 

8 1 8 

2 

809 

8 10 

M22 

E6  ,1417 

133 

12 

194 

14  39 

M DDF  7 I 

(5,3504 

824 

MP  ACS  HP 

00,2033 

1038 

2 

10  46 

1067 

M 31 

E 6, 1416 

1 33 

4 

195 

1439 

MODPSDEL 

12  ,2636 

1174 

2 

1174 

MP  ACT  ST 

42,  3562 

443 

1 

442 

MDD9EG 

1010 

IC3 

23 

21  9 

1 377 

MPACVRUF 

7544 

1034 

4 

10  30 

1251 

N ARRDWDB 

20 , 2 1 5 1 

1396 

1 

1395 

1361 

2 

1345 

1354 

262 

MnNADR 

4 0 » 3 4 7 1 

454 

1 

45  3 

MPERFMSK 

10,  3502 

1361 

2 

1344 

NRDONL  Y 

06,3563 

339 

1 

1112 

MON  BACK 

4 1,  3422 

447 

1 

447 

MPTE MP 

0135 

97 

64 

98 

1077 

NRDX 

E3,  1460 

112 

6 

331 

1 112 

MONBUSY 

4 1 ,3423 

447 

1 

446 

MR.KL  FAN 

05,  2657 

220 

2 

219 

1271 

NBDY 

F3  ,1461 

112 

2 

3 3 J 

340 

MONDE l 

41,3372 

446 

1 

446 

MPKI08IT 

4735 

= 

73 

NRDZ 

E3,  1462 

112 

2 

333 

340 

MON  DO 

4 1, 337  3 

446 

1 

446 

MR  KI3F  LG 

0074 

= 

73 

NRD2 

36,3610 

3 39 

1 

341 

' - 

MONIT 1 

41,  3304 

445 

NRKNVF  LG 

0102 

= 

73 

1 

1355 

NRPOSPL 

37,20 12 

378 

MON I T 2 

41,  3317 

445 

2 

445 

MR  UP  TBIT 

4747 

= 

74 

N8RANCH 

11 ,3245 

1227 

4 

1224 

1235 

MONR  EPOS 

< 6,  3119 

153 

1 

19  3 

MSKDATR1 

2 0,2021 

298 

1 

298 

NB1NB2 

23,  251  1 

37 

MONREC 

4 1 ,1347 

446 

2 

446 

MSTDREl 

01,  237 3 

1078 

2 

1079 

10  82 

NB2CDUSP 

30,351  7 

912 

1 

905 

MONS  AV  El 

10  20 

103 

12 

229 

473 

MU(  P) 

0032 

= 

1237 

NCGARS  E 

U ,3603 

944 

936 

965 

MONSA  V E? 

1021 

103 

4 

445 

460 

MU/ A 

F 7,  1720 

= 

147 

4 

147 

763 

n:  smve  l 

E 7 ,1664 

= 

152 

2 

503 

764 

MOONCNT  R 

14,  253  5 

927 

1 

927 

MUCHT1 MF 

01,  3511 

1123 

2 

1 1 22 

NDXCDUW 

E6  ,1647 

1 39 

6 

139 

9 1 1 

MOONF  LAD 

0003 

= 66 

31 

651 

1235 

MU  E ART H 

13,  2006 

4 7 

8 

68? 

1235 

NDXCHN3E 

12,2240 

1 168 

2 

1167 

MOONGON 

22,  351  6 

7 1 l 

1 

711 

MULBUSH 

21  ,3371 

1449 

1 

1469 

NOX  CTP 

F5,  1414 

= 

131 

7 

131 

381 

MOONMX 

24  ,3674 

1134 

2 

113  1 

1 133 

MULT  EX  IT 

5631 

1370 

ND1 

4361 

469 

6 

386 

883 

MDONM  XA 

25,3710 

1135 

1 

1135 

MUM 

13,2004 

47 

NEARONE 

27,3752 

1272 

4 

837 

1269 

MOONOT  H 

0173 

= 37 

2 

30  2 

MUM(  -37) 

2 7,2024 

45 

846 

NEEDLBIT 

4750 

= 

67 

1 

140  3 

MOONPAD 

22,3373 

709 

1 

7 03 

MUNFLAG 

0 14  l 

= 

77 

7 

236 

873 

NEEDLER 

20  ,2336 

140  6 

1 

14  03 

mdonrate 

27,  2P26 

45 

1 

832 

MUNF  LB  1 T 

4744 

- 

77 

5 

192 

8 74 

NEEDL  El  2 

20, 2367 

1 40  6 

1 

1 4C6 

33,2271 

1 

1 

MDONTHI  S 

01  74 

= 37 

6 

302 

1211 

MUNGRAV 

34,  3743 

879 

8 

7 20 

86  8 

NEEDLE  S3 

20,2376 

1406 

1 

1406 

M OR  EC  ADR 

23,  246  l 

1408 

1 

140  8 

MLNRF  TRN 

33,2445 

858 

NEEDL  El  l 

20,2  3 50 

1406 

MORFDFS 

25  ,2617 

555 

2 

555 

MUNRVG 

33,  2403 

857 

NEEDLFLG 

0013 

= 

67 

3 

272 

481 

MDREIDLE 

16,2157 

1 4C1 

2 

1398 

1399 

MLSCALE 

F7  ,1766 

= 

147 

2 

763 

NFED2BI  T 

47  ? 5 

= 

66 

l 

1 4i'  3 

MORE  P66  ? 

32, 3276 

80  7 

2 

80  4 

ML  TABLE 

14,2004 

46 

6 

685 

1184 

NEEC2  FLG 

D D 00 

= 

66 

3 

272 

4 8 1 

MORNIJM 

40 ,73^1 

406 

2 

40  5 

MWAITBIT 

4741 

= 

73 

NFG 

67  53 

1016 

4 

1116 

MOVATHIS 

13,  2746 

= 37 

l 

121  2 

MWAI  TF  LG 

010D 

= 

73 

NEGA1  E 

21,  3225 

1464 

l 

1464 

MOV  FACS  M 

1.1,267  3 

120  1 

3 

1 148 

12C  1 

MX 

E 7,  1676 

= 

1 4 9 

3 

149 

5 93 

NEGCHFCK 

21  ,3567 

1496 

1 

1497 

MDVEALEM 

13,2746 

1202 

4 

37 

1202 

MX  MY  MZ 

26,2765 

592 

NEGCDS 

13,2530 

1128 

1 

1128 

MOV  EPCSM 

13, 2722 

120  1 

3 

1148 

1 2 C 1 

M XM  3 

22  ,2312 

361 

4 

356 

490 

N EG CR  IV  E 

21,3475 

1 47  1 

1 

14  71 

MOVEPLFM 

13  ,276  7 

120  2 

3 

1 147 

1202 

M XV 

7346 

1C  29 

1 

1002 

NEGEDOT 

17  ,3320 

1449 

1 

1449 

HEALTH  KFY:  NORMALLY  DEFINEO  UNLESS  FLAGGED  AS  FOLLOWS: 
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SYMBOL  DEF  F REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES 


•JE3F1  RE 
NEGFNCT  1 
NFGFNCT2 
NJEGMA  X 
NEGONE 
NE  3 OUT 
NEGP 
NEG  PROD 
NE  3 SG  N 
VI  EGSHAFT 
NEGTFF 
'l  EG  THR  ST 
NEGTORK 
NE3T0RKP 
NEGT°RKU 
NFGTORKV 
NEG  TOVFI. 
NEGUQ 
NEGUR 
NEGUSUM 
N EG} 

NEGl 
N EG  1/  2 
NEGl/ 3 
NEG100 
NEG  12 
NEGl  80 
NFG2 
NEG? 

NE34 
NEG5 
NEG7 
NE  TNEG 
N ET7ERD 
NEW AGS 
NE  WANGl 
NEW  ANGLE 
NE WOE L 
NFWDELHI 
NFWDELX 
NEWIRI  T 
N EW IFL  G 
NEWJOR 
NEWL  I ST 
NEWLOAD 


21 ,3621 
21,  3134 
21  ,3  1 46 
4735 
7761 
13  ,2536 
12,  342  7 
27,  3145 
. 

25,  2561 
27  ,3627 
21 ,3672 
16, 3735 
F6  ,1514 
E 6,  1516 
F6,  1 52  0 
12,2330 
E6,  1501 
E6  ,150.3 
21  ,3470 
4754 
776  1 
4734 

21,  3145 
5203 

v i,  373  3 
40  ,3123 
7760 
7757 
6124 
41,  2142 
566  1 
20,3744 
6133 
32  , 2 0 1 4 
22 , 30C  7 
24,  3743 
12  ,2634 

22,  300  3 

12, 226F 

473  7 
0 172 
3 367 

, 

30, 2156 


1 4 67 

1462 

1463 
1090 
1089 
112fl 
1 1 86 

765 

407 

553 

1269 

1498 

1459 

136 

137 
137 

1169 
136 
= 1-^6 
1471 
1086 
> l C 90 
1086 
1463 
1107 
1077 
440 
1 C 89 
1089 

995 
414 
240 

14  92 

996 
214 
37C 

1136 

1174 

370 

1168 

80 

80 


1 1497 
1 1462 

1 1462 
12  372 

16  226 
1 1128 
3 1185 
1 765 

1 404 

1 553 

2 1268 

l 1497 
1 1458 
1 202 
6 158 

5 20  1 

1 1169 

136 
1399 
1464 
163 
331 
227 
146  3 


1 1 


26 


10 


12 


3 1045 

1 439 
237 

8 568 

2 999 

2 253 

1 1492 

1 214 

1 369 

4 1134 

2 1173 

1 373 

3 1163 


NEWL  OC 
NEWMODE 
N EWMDDEA 
NEWMODEX 
NE  WOP S 
NEWPAR 
NEWPHASE 
ME  WPOS 
N EW  PR  I 0 
NEWSTAT6 
NEWTN 
NEWVEL 
ME  W7C0MP 
N EXT  C DU 
NEXTCDL 
NEXTCORE 
NEXT  ES 
NE  XTI  ME 
NEXTIMCL 
NFXTINSL 
NE  XTLINE 
NFXTP 
NEXTU 
NEXTV 
NGUIDSUB 
NICKELDP 
N IGNLOOP 
NINE 

N JE  T SB  I T 
NJETSFLG 
NN 

NNADTAH 
NNAOT  EM 
NNTYPTAB 
NNTYPTEM 
NC. CORES 
NO.P JE  TS 
NC.UJETS 
NO.  V JE  TS 
NO.WD  S 
NO. 9 

1 2 C S NO— A TP 

1 2 e 2 NO-INT 

NC  ADJUST 
NOAOS 


2 12 

147  1 
1464 
1471 
1445 
1 C9C 
1119 


1469 

1*21 

1275 


0065 
6072 
5325 
5322 
6102 
14, 2725 
31  ,2  362 
F 7,1652 
0063 
1 2 ,2  653 
34, 2762 
E7 ,1644 

22.3663 
7,3  15 

1 1 ,3552 
01, 2700 
35,  3131 
E6  ,1  705 
. 

05  ,3702 
22  ,3507 
E6,  1472 
E6 ,1  473 
F 6,  1 4 74 
E7, 1647 
34,21  57 
E 7,  1646 
4320 
4735 
00  17 
E7 ,1466 
42,  2152 

0146 
42  ,2316 

0147 
01  ,2640 
F 6, 1521 
E6,  1522 
E6,l  523 

6256 

36.3663 
30,2657 
1 3,  2063 
42  ,3727 
20,3457 


96 
994 
1283 
1283 
994 
931 
784 
152 
96 
1175 
63  8 
152 
1148 
1302 
1232 
109R 
66  5 
139 
983 
985 
711 


154 

530 

154 

1090 

68 

68 


313 
98 
1097 
137 
137 
137 
999 
748 
840 
243 
49  6 
14  8 8 


12 


l C 94 
10  10 
240 
378 
993 
931 
786 
152 
2 39 

1 1177 

2 638 

3 152 

1 1142 

4 1302 

2 1233 

2 1097 

1 664 

3 372 

1 983 

1 983 

1 711 

7 134 

5 1393 

5 1393 
3 785 

1 633 

3 772 

2 1490 

1 742 

7 205 

1 3 09 

8 309 

1 309 

5 3C9 


1 102 
1 386 
?8  2 
1382 


503 

1350 


50  3 

1303 


1418 

1431 

1432 
796 

796 


3 1 37 

3 137 

5 999 

1 747 

1 840 

1 243 

1 496 

1 1488 


1102 

1458 

1458 


NOA  TTCNT 
NO  ATT  (IFF 
NOBITS 
NO  CHS 
NOD DOT 
NODE  SN3 
NODESSM 
NOD  10 
NODOB  I T 
NODOFL  AG 
N0D0P07 
NODSPOUT 
NODSPY 
NOD  VM0N1 
NODVMON  2 
NOF  BANK 
NOGIMLOC 
NOG  IMRUN 
NOG  C 
NOGOBL 
NOGUESS 
NOIBNKSW 
NO  INT 
NOKI LL 
NOLITE 
NOLOKON 
N0LRR8I T 
NOLRR EAD 
NOMDNLST 
NOMINI  MP 
NOMTP  I 
NQNAV  KEY 
NONEED  LE 
NOPIE 
N0P07BI T 
NOQBR  SM 
NOQRSM 
NOR  ATE  S 
NORBACK 
NORDSTAL 
NOREA  SDN 
NOREMODE 
NORESET 
NOR  FINAL 
NQRLITE 


30  ,3734 
07, 3233 
E5  »i  442 
35, 3510 
26,2004 

25  ,2524 
25,2462 

26  ,20  12 

4753 
0054 
0061 
06,2130 
06,2152 
33  ,3444 
33,  34  50 
43  ,3361 
22,2744 
06,  2462 
22  ,2732 
27, 3211 
12  ,3477 
6075 
13,  2652 
43  ,3110 
33,3636 
23,  20  26 
4742 
0252 
05  ,2173 
43  ,2  776 
E 4,  1707 
05  ,3115 
16,2012 
35,  3266 
4741 
5305 
5 30  3 
30  ,247  7 
40,  3 10  6 
25  ,2447 
33, 2750 
43,2320 

07  ,3375 
13, 3277 
33  ,36  17 


916 

1306 

131 

674 


71 
71 
166 
1 66 
872 
872 
1277 
369 
1 76 
368 
766 
1 187 
994 
1200 
295 
875 
277 
85 
85 
199 
290 
120. 
225 
139R 
668 
71 

1120 
112C 
838 
439 
550 
063 
276 
1310 
1 20 
875 


551 


1 674 

1 1134 

1 552 

2 548 

1 1134 

3 234  1372 

8 214  1326 

2 163 

1 166 
1 871 

1 871 

1 1278 

1 369 

2 175 

3 368  370 

1 766 

1 1185 
1 1335 
1 1199 

1 2 96 

2 875 

1 277 

2 563  859 

l 877 

1 269 

9 625  672 

3 2 22  225 

1 1398 

1 668 
5 220  1328 

1 1416 
1 1447 
1 838 

1 440 

3 548  551 

1 863 

1 276 
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SYMBOL  OEF  H REFERENCES  SYMBOL  OEF 


REFERENCES  SYMBOL  OEF 


REFERENCES 


NORMADR 
NORMAL 
NORM  BNC  H 
NORMF  X 

42, 3407 
' 1,2343 
10, 306  2 
r 7 , 1 A 6 3 

430 

301 

1354 

1 44 

1 

1 

1 

1 9 

4 29 
2 99 
1359 
144 

69? 

NOUN  ADO 
NCUNC  ADR 
NO  UNPEG 
NOUNT  EM 

0145 
1015 
1001 
o 122 

98 

10  3 
103 
97 

27 

9 

15 

3 

4 16 
413 
229 
416 

468 

468 

466 

NV8USMSK 

NVCADR 

NV  COM 

NVO  SP 

10  ,3500 
10,3471 
43,2346 

10  ,3071 
10,3120 
4155 

1 036 

1361 
1360 
40  7 
1354 
1354 
460 

1 03 

NOPMFXIT 
NORMGAM 
NOR  ML!  Z 

NORML  IZE 
NORML  I Z1 
NORM!  17? 

32, 2371 
E4,  1 50 2 
23,2000 
33,  2037 
33  ,2 07 4 
33,2  77 

| 

584 

1 1 7 

l 

7 

584 

117 

1 149 

Ecl 

NCUNTEST 
NO  UPTOWN 
NCUPFBIT 
NCUPF  LAG 
NOUT 
NCUTCON 

41  ,2507 
43, 3045 
4746 
0030 
1015 
4760 

- 

42  1 

2 94 
69 

2 

1 

1 

432 

2 93 

5 14 

433 

NVDSP  1 
NVMONOPT 

N VO  TE  M 

85] 

852 

8 5? 

3 

1 

1 

249 
85  1 
852 

59 

103 

1390 

2 

9 

1 

2Q4 

163 

2 ?9 

475 

NV  S AV  E 

NVSBBBNK 

NVSPCOM 

0371 

4201 

4164 

1C1 

460 

46C 

NORMLOP 

• 7,  26(  4 

390 

l 

390 

NOLVEA  U 

04,2322 

238 

1 

236 

NY  S BENOL 

43,3472 

454 

NORMPI  P 

. 

B 9 8 

5 

803 

886 

NOV  AC 

5072 

10  94 

27 

164 

1399 

NVSR  WA  1 T 

4445 

472 

N OR  MR  F T 

10,  3411 

1359 

2 

1358 

NCVAC ADR 

435  l 

1297 

1 

1294 

NVS  BWT  1 

4455 

472 

NORMS  BIT 

4 74  2 

= 

78 

NOVAC 2 

Cl,  2631 

1097 

1 

1 094 

NVSUB 

4 1 54 

461 

NORM  SC  L 

16,361  7 

1429 

NCV  AC3 

0 1,  26  34 

1097 

1 

1"98 

NV  SUB  B 

41,2020 

412 

NORMS  FT 

?4 , 3731 

851 

2 

e5i 

NC VRWRT 

35  ,3342 

570 

1 

671 

NVSUBCOM 

41  70 

460 

NORMSW 

0 156 

= 

78 

8 

68  2 

1 179 

NGV37VM 

04,  2476 

242 

1 

234 

N VSUBENO 

4202 

46  f 

NORMTEM  1 

1044 

= 

103 

3 

938 

1351 

NOWMATX 

37  ,3153 

532 

1 

50  2 

NVSUB  SY 1 

04,2641 

472 

NORMT  EST 

, 

1072 

NP  TR  A P S 

E 6 , 1 4 3 3 

> = 

133 

4 

1400 

1413 

NVSUBUSY 

4442 

472 

N0RMT4 

>.6,200  7 

161 

2 

161 

NOTRAPS 

E6,  1434 

= 

134 

4 

1 4 CO 

1414 

NVSU3  1 

41  ,3604 

461 

NQ3MUN IT 

1 0,  3710 

1389 

11 

344 

1 389 

NR  MAG 

3040 

= 

1257 

4 

1263 

1267 

NVSUB2 

41,  3631 

46  1 

NOR  MU  NX  1 

10,3704 

1389 

5 

598 

8 10 

NR MIDST T 

4737 

- 

73 

NVTFMP 

3123 

= 07 

normwake 

1 0,3327 

1358 

1 

1359 

NRMIDFLC- 

0076 

= 

73 

NVWORD 

0367 

101 

NORM  Z I 

0044 

= 

1149 

12 

1148 

114  9 

NRMNVRI  T 

4744 

= 

73 

NVW0RD1 

10  66 

10  4 

NOROTAT 

17  ,3026 

1442 

3 

144  1 

1446 

NRMNVFLG 

0103 

= 

73 

1 

1355 

NV50USP 

10,3121 

1354 

NORRGMON 

06,3126 

193 

6 

1 89 

1 93 

NRTF.RM 

00  20 

= 

1257 

2 

1266 

N WA  I TR  I T 

4742 

= 73 

NORRMP  IT 

4750 

= 

76 

2 

192 

227 

NR  TRAP  S 

c 6, 14-35 

= 

134 

4 

14  00 

1415 

NW A IT  FLG 

3 1 0 1 

= 73 

NOPRMCN 

0126 

76 

8 

276 

523 

NRU  PT  (3  IT 

47  50 

74 

NXA  X 

15,2426 

951 

NOSHIFT 

10, 3752 

1390 

6 

1389 

NRUPTF  LG 

0107 

= 

74 

NXPOSVFL 

31,  21  37 

607 

NOT  ALLOW 

21  , 3321 

1468 

2 

1467 

N SAMP 

1 1 10 

= 

105 

7 

562 

568 

NXTBNK 

43  ,3632 

1281 

NOTBI  T 12 

4-  , 3733 

479 

2 

479 

NSRCHPNT 

E7.1736 

= 

14e 

5 

148 

604 

NXTFL  33 

06,2432 

174 

NOTFPP  IT 

47*  l 

= 

6 8 

1 

86  2 

N STEER 

36,3672 

748 

NX  T IBT 

06, 2420 

174 

NOTER  FLG 

0023 

= 

68 

3 

27  7 

888 

NTARGB  IT 

4751 

= 

77 

NXTIFAI  L 

06  ,2225 

168 

N 0 THR  R I T 

4740 

75 

1 

7?  5 

NT ARGCHK 

35  ,3466 

67  3 

1 

673 

N XT  IFB  I T 

06,2213 

168 

NOT  HROTL 

0 1 16 

= 

75 

5 

740 

771 

N TAP  GF  LG 

0146 

= 

77 

3 

6 73 

NXTRRl  AX 

25  ,2243 

543 

NOTI  ME 

13,3656 

1215 

2 

1213 

1 2 14 

NT  P/2 

34,  2456 

634 

2 

634 

NXTR  ST 

. 

224 

N OT  M I N 

17,  3061 

1442 

2 

1442 

NUCHA  NG2 

01  ,3015 

1101 

1 

1107 

NXTSJ  PR 

43,  3657 

1281 

NOT  MUCH 

20,3434 

1488 

1 

i48  6 

NUDIRECT 

C 1,  3230 

1107 

1 

1 1 07 

NX  T6  ADR 

E6 ,1465 

134 

NO  TPLAN 

15,2530 

95? 

1 

953 

NULL  CL  OK 

36,3014 

732 

3 

732 

733 

NZACCDDT 

0063 

= 1466 

N OTP 20 

25 , 30  27 

56  1 

1 

560 

NUM 

40,21  55 

404 

9 

40  3 

404 

N45 PROC 

36,3871 

676 

NOT  SHI  FT 

24 ,3405 

577 

1 

577 

NUMBERT 

E6, 1742 

= 

135 

19 

14  17 

1457 

N49DSP 

24  ,2727 

516 

NOTWC  SM 

26,2452 

588 

1 

588 

NUMGRPS 

4756 

= 

230 

2 

223 

224 

N49FLAG 

E 7 , 1 746 

= 149 

notwlem 

26,  250  4 

589 

l 

5 B 9 

N L VC  SM 

E 3,1600 

114 

1 

5 91 

N5  3 ST  AT 

31  ,3354 

799 

NOULLAGE 

36,2652 

729 

4 

726 

746 

NUVLEM 

E 3,  165? 

114 

1 

591 

N 890 1 SP 

14,2440 

92  5 

NOJN 

40,  2357 

4C7 

1 

404 

NVBNKTEM 

1 037 

103 

1 

463 

N991 OOP 

31,  20  34 

606 

1 1356 
1 1357 

1 AO  7 

2 1355 
1 1354 

1 1 354 

2 460 

3 218 

2 460 

1 47  2 

2 453 

1 472 

3 269 
I 460 

4 454 

1 472 

2 472 

2 412 

1 461 

9 460 

6 731 

3 731 
3 1346 


1 950 
1 608 

2 296 

7 183 

3 174 

1 1 177 

3 16R 

1 543 

1 224 

1 1281 

5 226 

3 1467 
1 675 

1 5 15 

6 515 

1 799 

2 924 
1 606 
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SYMBOL 


OANB 
TBLATE 
OCCOS 
OGCULT 
DCTAI  27 
0CTAL3 
7 C TRACK 
3CTOTO  1 
0CT00012 
3CT00063 
OCT 00  2 A ' 
OCT02100 
7 CTO  5 776 
OCTlOOOf 
DOT  100C1 
7 CT  ID  203 
o:  ti  i 
TCT  11276 
OCT  1 2D 
OC  T17 
3 CT  14 
OCTlAO 
3 C T l A 00 
3 CT 1400T 
OC  Tl5 
TCT 15000 
OCT  16 
0CT16C1 
TCT  1 7?C 
0 C T T 7 6 
) C T 17  7 
OCT  17770 
OC  T 20 
i'  T 20 C < » 
OCT27 1 
TCT20100 
TCT203 
OCT205 
TC  T21 
0CT21  10  3 
OC  T217 
TCT220 
OCT  2 3 
TC  T2BIA6 
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DEF 

H 

REFERENCES 

SY  MBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

_ 

OC  12  A 

6007 

231 

5 

238 

852 

OCT  7 

4757 

1362 

3 

1287 

1292 

r a , 2 «=.  3 r 

256 

3 

255 

950 

QCT2A100 

10, 3255 

1357 

1 

1 3 AS 

0CT700 

04  ,2  4 02 

24C 

2 

236 

2 38 

11,  TOC  7 

1 2?  A 

2 

1220 

1221 

CCT2  5 

4362 

= 

1090 

1 

2 69 

0CT7A0 

06,3001 

187 

1 

181 

2 

239 

2 

2 17 

OC  T 7 4 1 S 0 

05  ,3371 

230 

1 

227 

1 A ,2732 

931 

2 

930 

931 

OCT  27 

OA,  3237 

1236 

1 

1221 

OC  T75 

06,2775 

187 

1 

186 

05,  3503 

B2A 

1 

8 2 2 

GCT2  72 

06,2776 

1B7 

1 

180 

OCT  77000 

06,  3002 

187 

1 

1 80 

6257 

999 

1 

1590 

0 CT  279  70 

C 5,  3370 

230 

1 

2 27 

CCT77770 

5661 

1371 

5 

240 

1372 

A 1 , 3 A6  3 

A 5 1 

1 

A53 

OCT  3 0 

A763 

- 

A 3 3 

2 

433 

876 

OC  2 A 1 0 t 

43,2125 

270 

1 

269 

A750 

= 

239 

DC  T30000 

A3  55 

= 

225 

OCA  00  10 

06,2773 

187 

1 

186 

- 

508 

531 

230 

1 

227 

OFFC A l: 

26  ,3563 

6C2 

1 

634 

1 1,  2365 

8 1 A 

1 

81  3 

OC  T30002 

6503 

= 

1090 

OFFROT 

27,3307 

8 A 2 

1 

842 

21,  33A2 

1 A68 

1 

1A6  7 

OC  T30  5 

04,2337 

239 

1 

23fl 

OFFSTF  AC 

26  ,37  1C 

60  5 

1 

602 

■ 6,3137 

193 

OCT  3 1 

60  10 

231 

6 

2 16 

14  68 

OFF  TUMI  T 

10,3750 

1 390 

1 

1390 

06,  30 3 3 

189 

1 

188 

nr  T3?noi 

05,3366 

230 

1 

227 

OGARI  AS 

E6,  1677 

= 

1 40 

3 

797 

905 

A 7 3 7 

= 

225 

OCT  7 200  2 

06,  3135 

193 

1 

192 

OGC 

E5  ,1  737 

= 

127 

17 

1 27 

1243 

7675 

1C  90 

IT  8 7 

3 

231 

1C  87 

ogcpl 

37, 2475 

3P6 

1 

39  3 

IT, 3522 

136  1 

1 

1 3A8 

OC  T3 A 

07,2616 

266 

OGCT 

E5, 17  47 

= 

127 

2 

127 

962 

A- 320 

= 

1C  86 

0CT3ARAR 

A 2,  3606 

AA  3 

2 

A A 3 

0HWELL1 

04  ,3426 

1377 

5 

1377 

1378 

21,  3536 

1 A72 

1 

1 A70 

0CT3A00 

10  ,3474 

1361 

1 

1351 

0HWELL2 

04,3451 

1378 

4 

1377 

1379 

A 77  5 

= 

1 ,9( 

2 

237 

23P 

OCT  3 A 300 

1 . 

1361 

1 

1 3 AA 

OKDFSNB 

25 ,2500 

552 

1 

552 

15 ,22A2 

923 

1 

° 2 3 

OCT  35 

4765 

10  87 

3 

731 

1371 

OKDESSM 

25,2403 

BA  9 

1 

551 

5752 

1372 

7 

187 

1 6-7  5 

CC  T 3 7 6 6 7 

OA  ,2  409 

240 

1 

235 

OK  FX  IT 

24,  3433 

585 

1 

585 

A776 

= 

1 r:  <9  0 

2 

26  1 

1A3A 

0 CT  3 7 7 37 

06,  2162 

166 

l 

176 

GKMAX 

35  ,3105 

664 

1 

664 

5007 

1087 

l? 

A68 

l A 1 7 

0CT37766 

7741 

1089 

2 

161 

140  1 

OKP  HI 

22,2722 

367 

1 

367 

502A 

= 

1280 

2 

1288 

128S 

OC  T3777A 

7742 

1089 

OKTHET  A 

22  ,2732 

367 

1 

367 

47  6 1 

1086 

<♦ 

185 

106  A 

0 CT  37  7 76 

7743 

1089 

A 

165 

1358 

OK  TOC  OP Y 

10  ,2537 

1348 

2 

1348 

1353 

5n25 

= 

1 B 7 

1 

1 85 

OC TA0001 

6121 

995 

2 

l'1 90 

1113 

OKTOENT 

pi,  3305 

1357 

1 

1360 

A 3 1 7 

= 

1 

0 7,  3 154 

1304 

2 

13  04 

13  06 

CKTCGRA8 

13  ,3454 

121C 

1 

12  0 9 

37 , 305A 

3 93 

1 

393 

OCTA0072 

0 A,  2 AO  1 

240 

1 

235 

OKTOPLA  Y 

10,2600 

1349 

3 

1348 

1349 

. 

1 87 

l 

183 

OC  TA0200 

7747 

1089 

OKU  12 

22,  2256 

359 

1 

359 

00  ,2126 

10  A 1 

2 

10  A7 

0 CT  90  201 

01,  3373 

1 1 16 

l 

1113 

0KU21 

22  ,2232 

359 

1 

359 

6106 

= 

1257 

1 

12  9A 

OC  TA  TA 00 

5643 

1370 

3 

134  7 

1372 

OK  U 3 1 

22,2302 

360 

1 

360 

50  30 

10  08 

2 

1207 

1285 

OC  TA0A20 

10,3520 

1361 

0K2  DELAY 

DO  ,3753 

1365 

1 

1365 

A7A7 

= 

735 

CCT5D 

477  i 

7 

227 

1 A3A 

OLDATAGD 

1112 

= 

105 

562 

567 

C 6,  31  36 

193 

1 

193 

1 

04,2336 

? 3 9 

3 

238 

OLDPMIN 

E 6,  1460 

134 

4 

1400 

1419 

2A.236A 

508 

1 

5C6 

OCT501PV 

2 A,  3270 

523 

1 

523 

CLP  PR I 0 

5413 

1288 

1 

129  1 

10, 35?A 

1361 

1 

1 3 A 7 

CCT51 

43 , 32J3 

3D  3 

1 

30  2 

OLDORMI N 

F 6, 1461 

134 

4 

1400 

1433 

26,  2 26  1 

A83 

OC  T 523 

33  ,3760 

BB3 

OLDSENS  F 

F6, 1 7 AA 

= 

140 

4 

149  fc 

U97 

24,3271 

5 23 

1 

522 

0 CT  54 

06,  27  7 A 

187 

1 

171 

OLDTI  Mf 

32  ,3673 

826 

1 

826 

A 36  1 

= 

8 P 3 

1 

A 3 3 

0 C T 5 5 0 0 0 

41  ,3774 

A 76 

OLDXFORP 

F 6 , 1440 

134 

5 

134 

1411 

5711 

1371 

OC  T 60000 

A 1 0 1 

= 

1 C 90 

2 

1289 

1357 

01  DYFORP 

E6  , 1 A A 1 

= 

134 

2 

1 4 11 

5715 

1371 

OCT  6 2 

4774 

= 

13  2 A 

1 

1324 

OLOZEORO 

F 6 , 1442 

= 

134 

3 

1400 

1412 

- A,  326n 

1722 

1 

I 321 

CC  T 6200 

05,3073 

225 

1 

220 

OMFG/MS 

37,  2000 

45 

1 

385 

ATftT 

= 

V’90 

2 

733 

999 

OCT  67 

17,  2351 

1434 

1 

1433 

CMEGA 

E7 ,1  502 

= 

149 

9 

149 

1144 

21  ,3231 

1 A66 

1 

1 A 6 7 

0CT67777 

10,3517 

136  1 

OMEGAD 

67,1734 

= 

148 

3 

321 

524 
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SYMBOL 

OFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

DMEGA M 1 

E 5,  1712 

7 7 

7 

1 EC 

ai 

n , T , 

ai 

. r 

797 

1100 

0 MEG  AM? 

F5, 1720 

= 

130 

3 

130 

1 145 

0R8CHG0 

24,  2C07 

501 

1 

501 

OVF LCLR 

12,3210 

1 18  3 

l 

1183 

0 ME  G A M 3 

E 5,1 7? 6 

= 

13  ( 

3 

1 

1 146 

0PPCHC1 

24,  20  21 

501 

1 

5C1 

OVF  LOWC  K 

F 5 , 1 5 76 

= 

132 

3 

378 

393 

DM  EGA  P 

F6,  1 A? 1 

1 3 0 

18 

133 

1*26 

0RBCHG2 

24 ,2  033 

501 

1 

591 

nv  fpet 

E7,  1456 

= 

154 

2 

8 1 9 

P 20 

OMEGA  PC 

E6  , 1 64  2 

1 38 

13 

13q 

1 4 26 

ORBCHG 3 

37,  3113 

501 

L 

501 

3 MEGA 0 

F6,l4?2 

= 

133 

19 

157 

1435 

ORBITAL 

1 1 ,?000 

= 

29 

2 

12  17 

12  30 

p 

E 5 , 1 737 

= 

129 

14 

129 

1191 

OMEGAQD 

Efc,  1643 

= 

138 

9 

158 

1425 

ORB  I TALI 

12  ,2  000 

= 

30 

1 

1236 

P-RATE 

16  ,25  10 

1413 

OMEGA  P 

F6 ,1423 

= 

1 33 

12 

2 02 

1435 

ORBITAL  2 

13,  2009 

= 

30 

3 

47 

1236 

P-PHCC  TR 

0043 

= 

93 

4 

14?? 

imegard 

E 6,  1644 

= 

1 38 

8 

292 

1429 

ORB I TAL3 

04  ,20  39 

= 

? R 

l 

1236 

PACCFUN 

E6 , 1556 

= 

1493 

2 

1486 

133 

12 

133 

242 

242 

OMEGA  V 

E6 , 1 42  7 

= 

133 

2 

1 34 

1 37 

OR  EM  ANUV 

0 5,  20  66 

= 

200 

1 

212 

PAC  TI VE 

05,305? 

224 

1 

224 

DMEGCALC 

2 . l 

603 

GRBWFRI  T 

4746 

= 

72 

PAR  AM 

U4,  3036 

1177 

3 

1177 

1191 

1 48 

3 

60  3 

1MEGM00N 

1 3,2000 

47 

1 

12  03 

CRDERB  IT 

4746 

= 

90 

PASSIN  1 T 

31,2424 

786 

1 

785 

ONE 

4753 

= 

1090 

169 

16  3 

1457 

ORDEP  SW 

o?oi 

= 

80 

3 

1173 

1174 

PASS  IVE 

23  ,2433 

6Q2 

4 

6 20 

692 

ONE  /SP 

25  ,06  44 

579 

1 

579 

OR  IGC  HNG 

l 1,  3421 

1229 

1 

1229 

PA  STFOP  T 

41  32 

447 

1 

447 

ONER- 2 

23,  2507 

= 

508 

1 

502 

ORIGEX 

F4  ,1511 

= 

117 

4 

117 

1229 

P ASTEVB 

4124 

447 

3 

447 

454 

ONERAS  F 

37,3544 

70  2 

1 

698 

OTHCONIC 

37,  3352 

699 

1 

702 

PASTI  T 

0 7 ,2211 

259 

1 

266 

ONEDPP 

3 7,  3*63 

394 

1 

3P3 

C1HI  NT 

37,3363 

700 

1 

702 

PAX  ADIDL 

16,  2204 

1401 

1 

1400 

ONEOCT 

2&  ,3712 

60  5 

1 

60  2 

01  HPRFC 

13,  3042 

= 

37 

3 

656 

708 

PAXDI ST 

E6  ,1564 

= 

1 4 0 3 

2 

149  1 

ONFS  EK 

22,  3 16  5 

372 

371 

273 

OURPERMS 

E 7 , 16  2 1 

= 

153 

2 

1 53 

PAX  IS 

16  ,2213 

140  9 

2 

140  1 

1494 

UNF  ST02S 

30 ,372  7 

91  6 

3 

910 

914 

OURPCBIT 

4740 

= 

88 

6 

1420 

1434 

PA  XI  SADR 

20,3772 

1494 

1 

1479 

ONFT  HTH 

34,2167 

6 30 

1 

633 

UURTFMPS 

F 7,  1542 

= 

153 

1 

153 

PBI ASY 

E3  ,1 

112 

1 

852 

ONI  I TF  S 

25,3675 

61  r 

1 

610 

CUT 

13, 2327 

705 

PBI  ASZ 

E 3, 1456 

112 

l 

852 

1 3s 

1420 

1423 

op/infrt 

43  ,2252 

273 

2 

27  1 

273 

OUTHERE 

0161 

= 

1361 

3 

1357 

1359 

PBODY 

E4  ,1  430 

116 

19 

116 

1235 

OPJUMP 

6111 

954 

1 

994 

OUT  LINK 

3057 

= 

94 

PCI  OOP 

05,3012 

223 

1 

224 

0PJUMP2 

6 26  1 

1000 

1 

99  4 

OITOFLIM 

24,3252 

522 

2 

522 

523 

PCONS 

E4  ,17  35 

= 

122 

5 

122 

845 

0PJUMP3 

6275 

1001 

1 

1 D 00 

OUT  OFPL  N 

F5,  1602 

= 

126 

3 

126 

774 

PD3  1 

F 6 ,1560 

= 

1493 

1 

1491 

OPONL Y 

06,  2 34  7 

1 72 

1 

1 70 

OUTPULSE 

07  ,3510 

1313 

2 

1318 

POP? 

E 6,  1561 

= 

1493 

l 

1491 

f 7,2142 

265 

43,  3223 

303 

OP  TCADR 

1302 

= 

1 09 

1 

229 

CUT  0 

0010 

= 

94 

5 

162 

166 

PDB  4 

E 6,1562 

= 

1493 

1 

14  91 

OPT  CO  APV 

43,  2234 

= 

275 

1 

275 

0UT22. 1 

32  ,2374 

584 

2 

584 

POOL 

6535 

ion 

1 

ICO  2 

OPTI ONVN 

22  ,33  16 

708 

1 

70  7 

OUT  22.2 

24, 3436 

586 

1 

585 

PDSPFBI  T 

4740 

= 

73 

2 

492 

483 

1 P T 1 .0  M X 

1050 

= 

1 03 

13 

2 76 

7C8 

CVERFFIX 

37  ,2275 

383 

2 

381 

385 

PDSPFL  AG 

0077 

= 

73 

3 

483 

528 

OPT  I ONI 

l 143 

106 

7 

310 

1 2 c 1 

OVERFLOW 

70  31 

1 01  9 

3 

1018 

1042 

PDVL 

6571 

10  12 

1 

100  2 

OP  TT  0N2 

1 144 

1 06 

15 

501 

97  1 

OVERFLWY 

70  26 

1019 

4 

1017 

1042 

PD  XCHNGE 

12  ,2274 

1 168 

2 

1168 

OPTION'' 

1145 

106 

OVERF  LWZ 

7023 

101  9 

4 

1017 

1942 

P EG  I 

16,  3303 

1423 

2 

1423 

OPT  NR  EG 

E5 ,1463 

= 

131 

OVFRSUB 

16,  2310 

1410 

12 

1412 

1429 

PERFCHEK 

10  ,3136 

1355 

OPTSTALL 

■7,3711 

= 

1319 

1 

934 

0VEPSUB2 

20,2451 

1407 

3 

1403 

1404 

PFRFDLAY 

E 5,  1574 

= 

132 

1 

379 

o p 

15, 2124 

9 20 

l 

920 

0 VF  + 

00,2414 

1 L 48 

2 

1 :48 

PERFFRAS 

37,2  772 

392 

1 

390 

0P65P I PX 

F7 ,1757 

= 

155 

2 

155 

E05 

OVFDESC 

31, 3646 

819 

2 

798 

809 

PERFMASK 

10  ,3457 

1360 

2 

1349 

135  l 
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PERF2MSK 

10,3463 

1360 

2 

1349 

1351 

PFSPRDT3 

1057 

104 

2 

240 

888 

PI  PA  TMPZ 

1161 

106 

3 

853 

870 

P ERF  AM  S< 

lo,  3A6  5 

1 360 

1 

135  l 

PH  SPRDT4 

1 061 

104 

I 

239 

PI  P Ax 

0037 

= 

93 

18 

157 

1307 

PERI APC 

23 , 2 3a  7 

69C 

1 

632 

PH  SP P DT  5 

1063 

104 

PI  PAX  OLD 

1254 

= 

107 

7 

107 

886 

3 ER I APO 1 

23,2337 

690 

3 

615 

6 58 

PHSPRDT6 

1065 

104 

PIP  AY 

0040 

_ 

93 

12 

157 

1 307 

PER  IODCH 

12, 2112 

1166 

1 

1166 

PH  S2CADR 

01  ,3772 

1297 

1 

1292 

P I P AY  OL  D 

1255 

= 

107 

6 

10  7 

886 

PFRROR 

E6 ,1464 

134 

8 

160 

1426 

P 1/16 

27, 3736 

1272 

2 

1268 

1270 

PI  P AZ 

0041 

= 

93 

10 

204 

1307 

3 F A ILOK 

*7,3221 

1306 

1 

1 72 

P ICAPAR 

14  ,2603 

929 

1 

9 29 

P IPAZOLD 

1256 

= 

107 

5 

650 

886 

PFAIL0K2 

» 7, 3?14 

1306 

1 

130  6 

° ICR  XT 

1 4, 3005 

932 

1 

932 

PI PCTR 

1055 

- 

104 

PF  LI  TFDB 

20,2143 

1396 

3 

740 

831 

PICEND 

14, 2760 

931 

1 

930 

P I PC  YC  AD 

05  ,3500 

824 

1 

624 

P FR  AT  R IT 

4750 

71 

l 

919 

PI  CG  XT 

14,2764 

932 

1 

932 

PIPCYCL  E 

33,  2102 

852 

8 

748 

888 

PFRATFLG 

005  1 

= 

7 1 

755 

936 

PICK  AN  Gl 

27,  2147 

490 

1 

4 90 

PI  PF  A I L 

06  ,2650 

183 

1 

187 

3 GMA  X 

33,3745 

882 

1 

8 54 

PICKAX  IS 

27,2170 

49  1 

2 

480 

P1PFREE 

07, 3255 

1307 

1 

873 

P GM  IN 

5000 

= 

882 

1 

653 

P I C K X 

26,2400 

491 

2 

491 

PIPFREE2 

07,3252 

1307 

1 

13c  7 

P5UI0E 

1243 

- 

107 

? 

107 

779 

P ICN  SWP 

14,  300  3 

932 

1 

932 

PI PINOE X 

F 5 ,1415 

= 

131 

6 

131 

384 

3 GU ID  F 1 

E 7, 1566 

= 

151 

1 5 

151 

670 

PIC1 

14,2643 

930 

3 

9 30 

P IP  JOBS 

37,2166 

38C 

1 

380 

PH  AS  CHNG 

5 36  4 

1287 

1 1 7 

235 

133  3 

P I C 2 

14,2643 

93  0 

1 

930 

P I PNORM 

33  ,37  16 

88  1 

6 

853 

860 

PHASE  TAB 

10,2000 

= 

29 

2 

1233 

1281 

PIC3 

14, 2653 

930 

5 

930 

931 

PIP  SD ONE 

33,21 66 

854 

P HAS  F 1 

0752 

102 

4 

224 

1291 

PI  C 4 

14,2656 

930 

1 

930 

P I PS  R IN  E 

34,  3755 

= 

954 

2 

957 

958 

PHASE2 

0754 

102 

? 

747 

851 

PI  F 

E 7,  1612 

= 

153 

1 

153 

797 

PI  PTEM 

E4  ,1650 

= 

119 

7 

121 

878 

3 HA  SF  3 

0756 

102 

2 

723 

888 

PIFPSET 

E7.1606 

= 

153 

7 

153 

782 

PIPTIME 

1233 

1C7 

25 

201 

1212 

3 HAS  E4 

0760 

102 

1 

872 

PINAC  T 

05  ,3057 

224 

1 

224 

PIPT  I M El 

E7, 15  56 

= 

15  1 

10 

1 5 1 

1214 

PH  A SF  5 

0762 

102 

1 

723 

P IN8ALL  1 

40, 2000 

= 

36 

2 

304 

4 C3 

PIP  USE 

07  ,3240 

1 307 

3 HA  SF  6 

C764 

102 

1 

72  8 

PI  NRALL2 

41  ,2000 

= 

36 

2 

3 04 

412 

P IP  USE  I 

07,3244 

1307 

1 

341 

PHAS  JUMP 

5 37  4 

12  88 

1 

12R7 

PINBALL  3 

42,2000 

= 

36 

3 

2 86 

428 

PITCH 

E4 ,1755 

= 

122 

2 

321 

831 

PHE  XI  T 

13  ,3175 

1206 

1 

1206 

PINRALL4 

04,  2000 

= 

28 

1 

465 

PI  TCHANG 

E 4,1571 

= . 

120 

7 

120 

496 

PHI 

0024 

= 

529 

PI  N8RBI  T 

4746 

= 

74 

PIT  CHOFF 

27,  3257 

768 

2 

767 

PHIL  FM 

E4 ,1576 

= 

118 

4 

322 

6S7 

P IN  HR  FL  G 

0 1 0 5 

= 

74 

1 

13  54 

PI  TFALL 

23  ,2453 

812 

2 

16  0 

3 H I V 

F 4 , 1 44  5 

1 16 

6 

116 

1231 

P INBRNCH 

10,3051 

1353 

8 

2 34 

1360 

P I TTI  ME 

E 6 , 140? 

133 

2 

3 19 

767 

P HS  BB  1 

E3, 1437 

112 

PINIDMSK 

1 0,3343 

1358 

1 

1358 

PJETCTR 

E6,  1766 

14  1 

4 

1 4 1 

14  1 6 

PHSRR2 

F 3 , 1 44 1 

112 

P INMASK 

7752 

= 

1361 

1 

1354 

P JE  TSLEC 

16  ,3361 

1424 

5 

1419 

1427 

3 IISBB  3 

E 3,  1443 

112 

PI NSUPBT 

4201 

= 

460 

5 

279 

464 

PL  ANET 

15,2500 

953 

8 

934 

961 

PHS  BOA 

F3, 1445 

112 

P INSUPFR 

40,  2000 

= 

36 

1 

279 

PLANT I N 

24  ,2000 

= 

32 

2 

1 132 

1136 

PH SRB 5 

E 3 , 1 44  7 

112 

P INTEST 

4 3,  200  2 

= 

474 

PLANTI  N1 

26,2000 

= 

33 

2 

1131 

1137 

P HS  BB  6 

E?,  1451 

1 12 

PI  PABI  AS 

E3  ,1452 

_ 

1 1 2 

1 

331 

PLANT  IN2 

26,  2000 

_ 

33 

1 

53 

PHSCHNGA 

5370 

1287 

1 

235 

P 1PACHK 

37,  2126 

3 80 

1 

379 

PLANTI  N3 

25  ,2000 

= 

32 

1 

1135 

3 HSCHNG2 

10,2224 

1289 

1 

1288 

PIPARFAC 

34  ,3755 

879 

1 

889 

PL ANVEC 

E7, 1553 

= 

149 

5 

149 

94  3 

PHS  NAM  El 

E3, 1436 

1 12 

5 

1289 

1294 

P I PA  SC 

37,3077 

39  4 

1 

390 

PLAST 

E6  ,1454 

134 

5 

1412 

1423 

PH  SNA  ME? 

E3  ,144  0 

112 

P IP  AS  C F 

E3,  1453 

= 

112 

1 

331 

PLfl  YJUM1 

10  ,261  6 

1349 

3 

13  54 

1360 

3HSMAME3 

E 3,  1442 

112 

4 

81  1 

888 

PI  PASCFX 

E3 ,1453 

I 1 2 

1 

I 12 

PL  AYT  EM  I 

0 155 

= 

1361 

28 

1343 

13  52 

PHS  NAMEA 

E3,  1444 

112 

P IPA  SC  F Y 

E 3,  1455 

112 

PL AY  T E M3 

0157 

= 

1361 

3 

1351 

1358 

PH  SNAME5 

E3 ,1446 

112 

8 

822 

880 

PIPASCFZ 

E3,  1 457 

112 

PLA  YTEM4 

0160 

= 

1361 

1 1 

1343 

1358 

PHSNAME* 

E3 , 1450 

112 

PI  PASP 

34  ,3752 

- 

889 

2 

339 

954 

PLUS F IRE 

2 1*  3625 

1497 

1 

1497 

PHSPART2 

rl  ,3765 

1297 

1 

1297 

P I P A T A SK 

3 7,  2151 

380 

2 

380 

PLUSX 

27  ,2423 

755 

3 H SP  R D T 1 

1053 

104 

5 

1288 

1256 

PI F ATMPX 

1157 

106 

3 

853 

870 

PM  INE 

34,2153 

6 30 

2 

639 

P HS  PR  DT  2 

1055 

104 

3 

1 C 4 

c lc 

P1PATMPY 

1 160 

106 

3 

853 

870 

PMINM 

34  ,2163 

6 30 
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PMMASK  10,3*76 

1 

1349 

POSTCDH 

E 7,  1 6C3 

145 

3 

145 

639 

PRI CDS  PR 

10  »25D5 

1347 

2 

524 

1370 

3 31  N TFP  0156 

= 

12  97 

7 

1205 

1 297 

PCSTCOM 

37,3762 

1326 

2 

1326 

PR  I OENT 

560t 

1369 

2 

1370 

1372 

PO  INTV SM  E7,  177? 

= 

150 

6 

344 

C4P 

POSTCSI 

E 7 , 1 6 01 

145 

2 

632 

639 

PR  I OL ARM 

10,3544 

1370 

5 

506 

523 

POLISH  '117 

97 

3o 

97 

10F5 

PO  STHP  ST 

2 1,  3561 

149  6 

5 

1457 

1498 

PRI  OOCT 

10,3513 

1 36  1 

2 

1345 

1352 

3 3LLE  Y 5051 

1093 

2 

1093 

PC  ST  JUMP 

4635 

989 

63 

171 

1390 

PR  IOPL  AY 

10,2617 

1349 

2 

1345 

1348 

POLY  7234 

1025 

7 

849 

1271 

POSTORKP 

E 6 , 1 5 1 3 

= 

136 

3 

158 

201 

PRIORITY 

3 167 

100 

36 

228 

1350 

POLYCNT  0140 

- 

00 

4 

1C  25 

1C  26 

PCSTORKU 

E 6,  1515 

= 

136 

6 

158 

211 

PRI  OTI  ME 

1164 

LC6 

2 

1348 

1358 

POL  YCOEF  12,  3031 

1 1 PP 

1 

1182 

PCSTORKV 

E6 ,1  51  7 

= 

137 

6 

158 

212 

PP  101 

4742 

= 

1090 

POLYCCM  7244 

1}2s 

1 

10  25 

PO  ST  ST 

32,  2477 

859 

PRI  no 

4737 

= 

1 09C 

5 

289 

767 

3 OL  Yl  OOP  72  54 

1 026 

1 

1G26 

POSTT  PI 

F7 , 1 605 

145 

4 

145 

658 

PR  10  1 1 

5022 

108ft 

POLYRFT  0141 

= 

98 

3 

102  5 

IC26 

PO  SUPD  AT 

33  ,2631 

861 

PRI012 

*644 

QRQ 

3 

218 

746 

POLYTEMP  F6  ,1740 

= 

135 

10 

14  1ft 

1 446 

POSI / 2 

4736 

= 

1090 

2 

1113 

PRI  01 3 

5023 

1088 

3 

732 

1344 

33LY2  7257 

1026 

1 

102  6 

PC  SI /4 

12  ,3765 

1236 

PR  1014 

5024 

1088 

3 

512 

12  92 

PON  37,  2251 

38  I 

1 

381 

POWFPDB 

20,2153 

1396 

2 

13  95 

1396 

PRI015 

53  25 

108  8 

5 

187 

1360 

P0N2  37.224C 

3R1 

pcwfltte 

2 3,  2000 

= 

32 

1 

1248 

PR  I 0 16 

5026 

1088 

6 

187 

727 

P ON 4 37,  2245 

381 

1 

381 

PCWF  LI  T1 

23,2000 

= 

32 

PR  1017 

50  27 

10B8 

4 

721 

844 

POOOCC  5653 

1371 

5 

25  1 

1223 

powrsfr  S 

7227 

102  5 

2 

81  6 

8 1 7 

PRI  C2 

*741 

1090 

POODOOl  5727 

1372 

2 

1070 

1 123 

PQRBIT 

16,3132 

142  1 

1 

1421 

PR  I 0 20 

4736 

= 

1090 

10 

2 75 

851 

POO  F 1 11  0 4,  227 1 

238 

1 

230 

PR  ATE 

E4  ,1741 

122 

9 

1 22 

845 

PR  I 021 

503  1 

1088 

2 

333 

850 

POOH  06,2173 

236 

PPDTTAB 

01,  2000 

= 

246 

3 

1295 

1297 

PRI 02  2 

772? 

1088 

5 

276 

807 

3 3 3 HR  I T 4735 

= 

71 

PRERJUMP 

5327 

1283 

PR  1023 

7723 

1088 

4 

262 

841 

POOHFLAG  OP  5 5 

= 

71 

3 

236 

12CS 

PRECI R I T 

4 744 

72 

P R I Fl2  4 

7724 

1088 

3 

561 

888 

POOKLFAN  05,2663 

221 

1 

237 

PREC  IFLG 

0064 

= 

72 

6 

243 

1209 

PRI 025 

7725 

1088 

4 

498 

872 

POSAL  PH  21,  3273 

1467 

2 

1467 

PRECSET 

23  ,2401 

592 

4 

620 

661 

PR  1026 

7726 

1088 

9 

373 

555 

POS  CHECK  21 ,3605 

1497 

1 

1496 

PREDOT 

7166 

1024 

2 

1029 

1032 

PRI  C 27 

7727 

1088 

5 

198 

1399 

3 D SC HNG?  33,2520 

859 

2 

H 59 

PREDS  PAL 

40,3447 

453 

1 

423 

PR  I 0 3 

5015 

1088 

13 

259 

1090 

POSCO  DE  124  1 

= 

107 

6 

221 

5 51 

PREGUIDE 

31  ,2366 

784 

1 

788 

PR  I 030 

*355 

= 

109C 

12 

1«0 

1359 

POSDBL  12  ,2620 

1174 

1 

1 173 

PREL  AO 

21,  2 3 26 

888 

2 

888 

P PI  031 

7730 

1088 

341 

1429 

0 3 SDE  L X 12,2246 

1168 

1 

1167 

PKEMM1 

04  ,2445 

24  1 

2 

235 

239 

PR  1032 

7732 

1088 

2 

876 

1356 

POS  DR  IVE  21,  3477 

1471 

2 

1461 

1471 

PREMON  1 

11,2302 

813 

1 

813 

PRI033 

7733 

1088 

1 

1348 

POSEC  42,3422 

430 

2 

430 

PREM0N2 

1 1,  2 30  3 

813 

1 

813 

PR  I 034 

7734 

1088 

1 

1090 

PDSFNCT1  21,3132 

1462 

1 

1462 

PRE  NVBSY 

4437 

*72 

1 

472 

PR  1035 

7735 

1089 

1 

1112 

POS GM BL  3 7, 2 ->64 

379 

PRERADAR 

25,  3106 

562 

2 

562 

563 

PRI  C36 

7736 

1089 

1 

572 

3 0 SGN  4 0,2376 

407 

1 

403 

PREREAC 

34,3661 

R 50 

723 

PR  1037 

7737 

1089 

9 

239 

1392 

POS  INDEX  33,  3661 

876 

2 

861 

f 65 

PRERROR  S 

43,3245 

1275 

3 

1276 

PRIG* 

*740 

= 

10  90 

4 

279 

497 

POSITA  15,3674 

0 76 

1 

977 

PRES  INE 

00, 3526 

1073 

2 

1073 

PR  I 05 

5017 

1088 

13 

236 

1199 

3 3 SI  TB  15,3677 

976 

1 

977 

PRESTANO 

37,3656 

1324 

1 

1324 

PR  106 

50  20 

1088 

4 

545 

1417 

T I 15, 3716 

977 

1 

978 

PR  F STORE 

6433 

1007 

1 

1007 

PRIC7 

53  2 1 

1088 

7 

280 

711 

POSI  TF  15,3764 

978 

1 

977 

PRET  I MCK 

16, 2667 

1416 

2 

1415 

PR  L I MI T 

33,2031 

848 

2 

839 

POSIT  F 15,  3737 

977 

PRI OBCRT 

1 0,2576 

13*9 

2 

1347 

1357 

PROCEED 

10,  3373 

1359 

1 

1357 

POSITCN  E5 , 1 4 1 6 

= 

131 

6 

131 

286 

PR  10  CLING 

5146 

1096 

23 

2 80 

1358 

PROCEEDE 

06,2075 

164 

3 3 SM  A X 4733 

1086 

46 

177 

1494 

PRI0CH2 

01,3076 

1103 

1 

1096 

PROCKE Y 

40,3503 

456 

1 

164 

POSNV  E5 , 1520 

= 

122 

2 

391 

292 

PR  I GOBI T 

4736 

= 

73 

1 

1354 

PROCK  EYl 

43,3511 

456 

POSTAND  37  ,37-3  3 

13  25 

2 

1 32  4 

1325 

PR  IODFLG 

00  7 5 

= 

73 

PROCTNON 

06  ,??42 

170 

1 

173 

3DSTRUPN  36,322  2 

740 

4 

248 

746 

PR  IODSP 

10  ,2510 

1347 

2 

514 

516 

PRODUCT 

21,3427 

1470 
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SYMBOL 

DEF 

H 

REFERENCES 

SY  MBCIL 

DEF 

H 

R EFERENCF  S 

SYMBOL 

DEF 

H 

REFERENCES 

PROGL  ARM 

1369 

2 

1369 

PURPTR 

QU7 

= 

99 

4 

815 

8 16 

P20S4 

37,  2000 

= 

36 

1 

501 

PROGP AV 

„ 

1 5 ,26f  3 

957 

1 

*67 

POOHC  H'< 

13,  3350 

1209 

2 

1208 

1209 

P21 AL T 

r7  ,1  71  c 

= 

152 

2 

322 

652 

3 T 0 G 2 C 

24,?CiOO 

500 

2 

241 

50C 

P05  P06 

3 7,2000 

= 

36 

1 

1324 

P 21BA  SER 

E 7 , 1675 

= 

152 

3 

152 

651 

' 

24, 2040 

50  3 

3 

501 

P 0 6 

37,3654 

1324 

1 

241 

P?1  BAS  EV 

E7  ,1703 

= 

152 

3 

152 

651 

PR0G2  1 

24  ,3442 

650 

l 

241 

P 1 2 

30,  2000 

= 

34 

1 

829 

P21C0NT 

24  ,351  1 

651 

1 

650 

3 ROG  2 2 

24,  2000 

= 

500 

1 

241 

Pi  2 A 

23  ,2000 

= 

32 

P21DSP 

24, 3566 

651 

1 

651 

PR0G25 

24, 2462 

511 

1 

241 

P 1 2A0RF  S 

3C,  2306 

832 

1 

830 

p21  FLAG 

0 004 

= 

66 

2 

650 

651 

PROG  52 

) 5,2067 

019 

1 

241 

P12 IGN 

36,  2523 

72  6 

1 

717 

P 2 IF  LB  I T 

4741 

= 

66 

1 

224 

PROJMAX 

21,  3667 

*21 

1 

757 

P 1 21  NI  T 

30,2243 

831 

2 

8 26 

8 29 

P21GAM 

E7,  17  13 

= 

152 

3 

152 

651 

PROJMIN 

• 

821 

1 

797 

P 12LM 

30, 2061 

829 

1 

241 

P21 TRIG 

1 162 

= 

152 

2 

651 

P 3 OK 

30,2547 

8 39 

2 

839 

P12LMB 

30  ,2120 

829 

P21PR0G1 

24,3455 

650 

1 

6 52 

PRONVBIT 

4745 

= 

74 

P 12RE  T 

30,2210 

831 

1 

841 

P2  1 PR0G2 

24,3467 

650 

1 

652 

PRONVF  LG 

0 10  4 

74 

1 

1355 

P 12SP0T 

36,  2 150 

719 

1 

717 

P2 1 PR  TM 

24  ,3623 

652 

1 

650 

3 R SHR  TMP 

4415 

470 

42  6 

428 

Pi  2 TAB  LE 

. 

717 

1 

832 

P21T  IME 

F 7 , 1762 

= 

15C 

7 

147 

652 

PRT  ? C ADR 

( l, 3773 

12  97 

1 

1294 

P 20FLGON 

35,  2366 

627 

4 

619 

66  1 

P2  1 VE  L 

E7  , 1 7 1 1 

= 

1 52 

4 

152 

651 

PSE  UD  C 5 5 

t 7 , 1 61  4 

153 

3 

153 

781 

P20LEMA 

24, 2167 

505 

3 

504 

518 

P 21VSAVE 

24,3532 

651 

1 

651 

PS  IV 

E4,  1453 

= 

l 16 

3 

1 16 

1231 

P20LEMR 

2 4 ,21  75 

505 

6 

505 

506 

P25FL  AG 

0006 

= 

67 

3 

29  2 

772 

PSKI PADR 

1 6 ,3&26 

1429 

P 20L  EMB  1 

24, 2241 

506 

l 

522 

P25FLBI  T 

4743 

= 

67 

2 

235 

511 

3 S TH  I B I T 

474  l 

= 

85 

2 

863 

867 

P20LFMB2 

24  ,2244 

506 

1 

506 

P 2 5LEM  1 

24,2476 

511 

3 

247 

512 

PST  HI  GAT 

0251 

= 

85 

P20LEMB3 

24,2246 

506 

2 

506 

507 

P2  5LEM2 

24  ,2s  21 

512 

1 

512 

P TP,  AO 

r 5 , 30  70 

224 

3 

223 

P20LEMB4 

24,  2263 

50  7 

1 

5C6 

P25LMWT1 

24  ,25  15 

512 

1 

512 

3 T I G I MC 

r 7,  14C2 

142 

1 

661 

P2  0LF  MB5 

24  ,2213 

506 

1 

514 

P3XORP7X 

35,  3621 

678 

1 

675 

PTOACSM 

13,2704 

120  1 

1 

120  6 

P 20LFMB6 

24,  2231 

506 

2 

506 

P30 

35  ,2300 

612 

1 

24  L 

3 TTALEM 

13,2757 

1202 

2 

302 

1206 

P20LEMR7 

24,2206 

506 

P 30N33 

35,2004 

612 

PJISEFLG 

°30  3 

= 

88 

4 

289 

777 

P20LEMC 

24,2275 

507 

3 

514 

5 16 

P30S 

35,2000 

= 

35 

1 

6 12 

PULSE  I MU 

10,3667 

1388 

1 

38  5 

P20L  FMC1 

24, 2322 

507 

3 

247 

5C0 

P30S1 

34  ,2000 

= 

34 

1 

614 

3 UL  SF  M 

14, 3222 

937 

P20LEMC2 

24,2337 

508 

1 

508 

P 3CZER3 

35,2424 

629 

10 

619 

656 

PULSES 

4735 

= 

88 

3 

724 

1432 

P2CLFMC  3 

24,2267 

507 

3 

506 

5 1 8 

P3  2 

35  ,23  34 

6 19 

1 

241 

PURGE  NCY 

16,3466 

1426 

4 

1418 

1423 

P20LFMC4 

24, 2274 

50  7 

1 

509 

P 32 /P  72  A 

35  ,2060 

61« 

1 

61  9 

PJRRS A 

10, 2716 

1351 

2 

1 350 

1351 

P2  0LF  MC5 

24,2155 

505 

1 

504 

P 3 2/P  7 28 

35,  2136 

620 

1 

621 

PUSH 

00,3247 

1068 

1 

100  4 

P 20LEMD 

24,  2342 

508 

1 

507 

p3  2 / P7  2 C 

35  ,2157 

621 

1 

639 

3 USHLOC 

3166 

100 

38 

259 

1 100 

P20LEMD1 

24,2346 

508 

2 

508 

P 32/P  7 2D 

35,21 63 

621 

1 

621 

PJSHUP 

6227 

999 

1 

95  5 

P2CLEMD2 

74,2355 

508 

1 

508 

P32/P72F 

35,21 65 

621 

1 

621 

PUTADD 

u 1 ,23f1 

4 17 

3 

4 1 7 

P 20L  FMF 

24, 2307 

507 

F32/P72F 

35  ,2173 

621 

1 

621 

PUTCOM 

41,3145 

436 

8 

432 

435 

P20LEMWT 

24  ,2310 

507 

6 

505 

529 

P 32STR T 

35,2037 

619 

1 

619 

PUT  COM2 

41,  3225 

437 

4 

437 

435 

P20LFM  1 

24,2065 

504 

1 

525 

P3  3 

35  ,2223 

625 

1 

241 

PUTDC  SF 2 

41 ,3257 

43« 

1 

438 

P20LEM2 

24,  2071 

50  4 

1 

505 

P33/P73A 

35  ,2226 

62  5 

.2 

625 

526 

P JTDEC  SF 

4 1,  3244 

438 

2 

437 

P20LEM3 

24,2164 

505 

1 

505 

P 3 3/P  7 3B 

35,  2240 

625 

l 

626 

PUT  DPCCM 

4 1 , 3200 

4 37 

1 

437 

P 20LEM  5 

24,  2156 

505 

2 

5 05 

P3  3 / P7  3 C 

35  ,2307 

626 

1 

625 

P UTNOPM 

41 , 32C  7 

437 

1 

436 

P20LMWT1 

24,2317 

507 

P 33/P  7 3D 

35,2313 

626 

1 

626 

PJTSFNOR 

41, 3256 

438 

l 

438 

P20REG 

04,2341 

239 

1 

238 

P33/P73  E 

35,2321 

6 26 

1 

6 26 

PUTXY 

4 1 ,2764 

434 

P20S 

24,  2000 

= 

32 

6 

500 

650 

P33/P73F 

35  ,2332 

626 

1 

626 

3 UTXYZ 

41,2663 

432 

P20S1 

25  ,7000 

= 

32 

3 

535 

579 

P 34 

35,2455 

656 

1 

241 

PV  ALV  EST 

1273 

108 

7 

157 

215 

P2CS2 

25,2000 

= 

32 

P34/P74  A 

35  ,2460 

656 

2 

656 

657 

PWRCNT 

0140 

= 

99 

2 

816 

P2CS3 

76, 2000 

= 

33 

1 

580 

P 34  /P  7 48 

35,2510 

657 

1 

656 
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S Y MBOL 

DEF 

F 

R EFERENCHS 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

F 

REFERENCES 

P 34/P  74C 

35,2512 

650 

802 

807 

P34/P74D 

35, 2593 

657 

1 

657 

P 50S 

1 5 ,2000 

= 31 

5 

257 

956  P56DISPS 

32,3417 

3l0 

1 

808 

oRa /P74E 

35  ,2556 

657 

1 

597 

P50S  1 

14, 2000 

= 31 

2 

46 

Q2  5 P66HZ 

32  ,3342 

80  8 

1 

808 

P 3 5/  P754 

, 

661 

1 

66  1 

P 5 IB 

14 , 3453 

942 

1 

942 

P56 JOB 

32  ,27  14 

800 

1 

888 

°35/P759 

35,2657 

661 

1 

661 

P5  1C 

14, 3464 

942 

1 

943 

P66KPI  P 

32  ,3516 

81 1 

1 

803 

P 4 /R  ET 

1 141 

1 C 6 

4 

7?2 

74C 

P 5 ID 

14,3.502 

943 

1 

9 42 

P66KP IPB 

32,  3517 

811 

l 

805 

P4  0 A/  P 

35  ,3717 

734 

1 

734 

P 5 IE 

14,  3522 

94  3 

1 

943 

P66L0C 

32  ,?00r. 

= 

34 

1 

800 

3 40A  /PMD 

35,3743 

734 

1 

734 

P91G 

14  ,3544 

943 

1 

943 

P 66MA IN 

32,3001 

802 

1 

802 

P 5 2A 

1 5,2  077 

920 

2 

920 

E7  , 1 7 95 

- 

155 

155 

PA  CALM 

36  ,312C 

734 

2 

739 

744 

P52B 

15,  210  1 

920 

1 

920 

P66PMI  N 

32  ,3522 

811 

2 

804 

805 

5 4'  AJTO 

? 5,  3715 

734 

2 

719 

826 

P52D 

15,2166 

9 22 

2 

022 

924  P66PR0BT 

4753 

= 

68 

1 

809 

15, 2121 

P 401  N 

36,3177 

740 

1 

744 

P52F 

15,  2207 

92  2 

1 

9 20 

P66REL 

32,3207 

806 

3 4tJL  M 

36,  3146 

739 

l 

241 

PC2H 

1 5,21 76 

922 

1 

9 20 

P66  ROD 

32,  3120 

804 

1 

804 

? 6 ,3239 

2 

7 4 1 

0 5 2[  S 

15,  2 24  3 

3 40  S 

36,2000 

= 36 

7 

38 

744 

P52  out 

15  ,2211 

9^2 

1 

923 

P 6 6 THRO T 

31,2144 

779 

1 

806 

P4?s Junk 

36,  2372 

723 

2 

718 

P 52 T 

15,2131 

920 

2 

920 

P66TP  IP 

E7, 1754 

= 

155 

4 

155 

807 

3 40SXT4 

36,  3212 

74C 

2 

740 

742 

P52  W 

15  ,2162 

922 

1 

921 

P70 

21,  2006 

822 

1 

240 

P4CS1 

27, 2000 

= 33 

5 

38 

7 58 

P 5 7 

15,  3 310 

966 

1 

241 

P7C  A 

21  ,2307 

8 22 

2 

249 

884 

734 

P40S  3 

35,  20CC 

= 35 

l 

727 

P57AA 

l 5 ,3351 

956 

1 

966 

P70  IN  IT 

32,  3551 

825 

P40S4 

, 

= 34 

1 

74  3 

P5  7C 

15,  3 3 74 

967 

2 

967 

P70N0W? 

21  ,2121 

884 

3 4 TABLE 

36 , 2^4  n 

717 

l 

735 

P57D 

15  ,3376 

967 

1 

967 

P 70 7 IB  I T 

4737 

= 

81 

P4:  ZOOM 

35, 370  5 

727 

1 

727 

P 57JUMP 

1 5 ,3555 

971 

2 

963 

P7  07  1 FL  G 

3211 

= 

01 

3 

824 

840 

>4  l C '•  ft 

1 * , 37 1 2 

72  7 

l 

7 ? 7 

P970PT 

15,  3 314 

966 

2 

566 

P 7 1 

21  ,201 1 

R 22 

2 

249 

8 84 

P41 BLANK 

36,2265 

721 

1 

721 

P570PT  1 

15,  9612 

972 

1 

971 

P7  1 NOW? 

21  ,2106 

884 

P 4 IF  J E T 

36,3315 

742 

P970PT  2 

15,  3630 

97  3 

1 

971 

P 7 IRE  T 

32,3656 

826 

1 

824 

1 

24U 

P4l  IN 

36  ,3322 

742 

1 

74  2 

P57POST 

15,  3202 

963 

3 

962 

963  P73 

35  ,2225 

625 

1 

240 

3 4 1LM 

36,3271 

74  1 

l 

241 

P63  ADRES 

32  ,2703 

775 

1 

771 

P 74 

35,2457 

656 

1 

240 

31, 3341 

1 

1 

240 

P4  1 NORM 

36,3324 

742 

P63  IGN 

36,  2465 

725 

1 

719 

P 76 

13  ,2207 

70  3 

1 

240 

P 4 1 SPOT 

36,  2153 

720 

2 

71  8 

719 

P63IGN1 

36,2516 

725 

P76L3C 

13,  2000 

= 

30 

1 

703 

P41T  ABLE 

36,2055 

7 18 

2 

735 

749 

P 6 3l  M 

32,  2421 

771 

1 

241 

P75  SUB1 

13  ,2336 

705 

1 

704 

3 42A0RE  S 

36,3134 

739 

1 

744 

P63S  POT 

36,2153 

= 719 

1 

718 

========= 

P 4 2 IGN 

, 

726 

4 

719 

726 

P63SPOT3 

32  ,2654 

775 

1 

775 

Q 

0002 

= 

93 

434 

94 

1497 

P42  LM 

36  ,341  1 

744 

1 

24  1 

P63SPOT4 

32,  2666 

775 

1 

775 

Q+  1 

6751 

1016 

6 

163 

1362 

P42SPO  T 

36,2150 

= 719 

1 

71  8 

P63  TABLE 

36  ,2100 

7 18 

2 

735 

775  Q + 10000 

4643 

989 

1 

991 

P42ST  AGF 

36,  342  l 

744 

1 

718 

P 6 37  00 M 

35,3700 

72  7 

Q+2 

5753 

= 

10  16 

7 

5 30 

1367 

P42TABLE 

36,2063 

718 

l 

735 

P64CEED 

31,  340  1 

799 

l 

799 

Q-P  ATE 

16  ,2544 

1414 

2 

1414 

P47B00 

36,  3504 

745 

1 

746 

P64D0 

31  ,3663 

R20 

1 

786 

Q-R  HCCT R 

0042 

= 

93 

3 

1^21 

1422 

P47  BODY 

36,3513 

745 

2 

745 

P64DI  SPS 

3 1,  3363 

799 

1 

785 

Q , P CRGT  S 

17  ,2136 

143F 

1 

1430 
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SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

Fi 

R EFERENCES 

QACCDCT 

E6  , 1 5 1 C 

= 

136 

6 

1399 

1479 

R4TL 

23,  3705 

1252 

2 

1253 

PATELIM1 

4766 

= 

1498 

1 

1497 

3AX1  S 

F 5,  1566 

126 

4 

126 

647 

R-CTHER 

E3 ,1715 

114 

6 

1 14 

326 

RATEL  IM2 

21,3560 

1496 

2 

1498 

QCDUWUSR 

E6, 1646 

= 

139 

3 

139 

9 10 

R-RATF 

16,2602 

1 4 1 5 

2 

1 4 1 4 

RATFLOOP 

16  ,3644 

1458 

2 

1416 

1458 

QCHAN 

0002 

= 

94 

2 

1C84 

R-RHCCTR 

0044 

= 

93 

3 

1421 

1422 

PATERROR 

16,3231 

1422 

1 

1422 

QDIFF 

E6,  l A 50 

= 

136 

3 

1460 

1465 

R-in-RP 

24,3644 

1133 

6 

777 

1224 

RAT  ES 

30,  2504 

838 

l 

838 

Q ERR  CALC 

1 7 ,2655 

14  39 

2 

140  1 

1 4 30 

R ACC  DO  T 

E 6,  1512 

= 

136 

4 

1399 

14  64 

RATFSP 

05  ,2027 

53 

2 

977 

3 err: all 

16,3642 

14  29 

1 

142  9 

RACT1 

E4 ,1673 

1 19 

1 l 

119 

644 

RAT  ESTOP 

31,3305 

798 

1 

8 19 

g ERROR 

E6, 1450 

= 

124 

5 

136 

1 4 4 C 

RAC  T2 

F 4,1701 

119 

9 

119 

645 

RAT  ESTRT 

05,337? 

225 

1 

219 

or,  I MB  I TS 

5007 

= 

1417 

1 

1416 

RACT  3 

E7, 1535 

145 

20 

620 

692 

RATEVAR 

E3  ,1770 

115 

1 

591 

3GIMT  IMP 

F6,  L £ 3 1 

138 

9 

13  8 

146  8 

26  ,3363 

599 

2 

QHZ 

E5, 1 475 

= 

125 

2 

125 

8C8 

RADAREAD 

25,  3156 

564 

2 

160 

RATTl 

33  16 

= 

1237 

1 1 

216 

774 

OLAST 

E 6 , 1 45  5 

134 

5 

1412 

1435 

RACARFF 

40  00 

= 

2 8 

1 

5 29 

RBPFGX 

E 5 , 1 4 02 

= 

124 

2 

124 

820 

QMAJ 

E 5,  1746 

= 

127 

16 

127 

{ 7 4 

RADARUPT 

25,2000 

= 

32 

3 

41 

610 

RBRFGZ 

E5,  1406 

= 

124 

1 

124 

g mi  n 

E5  ,17^5 

= 

127 

17 

127 

962 

RAD0ITS 

1332 

= 

no 

5 

564 

5 66 

RCP-13 

05  ,2025 

53 

1 

977 

g M I N E xi  T 

15,2766 

B58 

1 

960 

RACCACR 

1303 

= 

109 

4 

2 29 

550 

RCDUFA  IL 

0274 

= 

87 

Q0< 

26,  26  1 3 

590 

1 

500 

12  70 

2 

— 

QPLACE 

F5  ,Ul7 

= 

131 

7 

131 

386 

RACIN 

25,  3324 

566 

1 

566 

P : D UOB I T 

4737 

= 

86 

5 

506 

546 

3 D L AC  E S 

E 5,  1420 

= 

131 

3 

131 

3 85 

RAD  L I TES 

25  ,3647 

610 

4 

565 

569 

RCDIJOFLG 

0 26  6 

= 

86 

OPR  FT 

005? 

= 

94 

16 

30  3 

12  32 

RADMODE  S 

oiio 

= 

86 

101 

157 

6 1 0 

RC  NORM 

3 34  2 

= 

129 

3 

1169 

1170 

qratfdif 

E6 ,1  436 

= 

134 

2 

1435 

RADNOOP 

25,  3537 

573 

2 

546 

573 

pen 

F 7, 1630 

= 

156 

5 

1 56 

847 

ORAXIS 

16,  3627 

1429 

4 

14  17 

1 4 26 

RADSANP 

15  ,2050 

<♦9  8 

2 

282 

498 

RCS 

17,  2141 

1430 

4 

14  37 

1438 

ORBI  T 

476  1 

= 

135 

4 

1421 

1436 

RADSTALL 

07,  37  1 3 

1318 

1? 

271 

P 7 7 

RCSFLAGS 

1262 

108 

55 

218 

147  1 

3RCNTR 

F 6 , 1747 

= 

136 

9 

1460 

1472 

RACSTART 

17  ,2000 

57  1 

3 

563 

571 

PCSM3N 

06, 31 64 

197 

1 

197 

QRCONTRL 

17, 2232 

1432 

1 

1431 

RADTI  ME 

1267 

108 

2 

571 

RCS  MON  EX 

530  1 

= 

196 

2 

197 

198 

QRNDXEP 

0066 

= 

1 466 

9 

1467 

1468 

RADUS  E 

10  77 

= 

105 

8 

562 

569 

PC  SMONI  T 

06  ,3164 

= 

197 

2 

165 

3TTIME 

17,  2544 

1 436 

2 

1436 

RAMI  N 

F5  ,1544 

= 

12  5 

3 

125 

846 

PCSMONT 

06,  2000 

= 

29 

1 

196 

QRU  PT 

0012 

= 

93 

13 

16  1 

14  16 

RANGCONV 

32,  2003 

41 

1 

5 83 

PC  V 

F3 ,1 5 34 

= 

113 

28 

113 

1230 

0 SAVED 

C 7 ,1464 

144 

2 

67  5 

RANGE 

F4,  161 3 

- 

1 18 

1 18 

700 

p : vc  sm 

F 3 , 1 6 C 6 

114 

1 

598 

OTEMP 

E7,  1632 

146 

5 

614 

7 62 

RANGEBQ 

26,2516 

589 

3 

5 89 

596 

RCVLEM 

E3,  1660 

114 

2 

509 

598 

0TEMP1 

E7  ,1665 

146 

5 

1 46 

748 

R ANGEBO  1 

26,  2526 

589 

1 

589 

RDRADEND 

25  ,3630 

575 

4 

555 

575 

3 TPRfll  OG 

23,3613 

1250 

1 

81  0 

R ANGFCSP 

E5  ,1602 

= 

126 

3 

126 

791 

ROC  DUS 

14,3405 

Q4n 

l 

939 

0T5  N4  5 

23,  353  1 

1246 

1 

1240 

RANGE  VAR 

63 , 1766 

11  5 

1 

5 90 

RDF 

13  ,3744 

1237 

1 

1224 

OUADGUID 

31 ,2757 

7 9? 

RAN  OR  DOT 

E7, 1760 

= 

15C 

4 

150 

583 

ROE  S 

1 3 13 

- 

109 

4 

109 

543 

3 JAR  DUMP 

21,  2213 

866 

RAPFGX 

E5 ,1404 

= 

124 

1 

124 

RDESGA  IN 

25,  3053 

561 

2 

559 

QJ  ART  ASK 

21,2055 

8 8 3 

3 

85  1 

883 

RAPFGZ 

E 5,  1 4 1 0 

- 

124 

1 

124 

ROE  SI  RED 

E5  ,1755 

= 

129 

3 

129 

1189 

QUARTER 

4737 

= 

1090 

4 

1072 

1077 

RAPO 

0020 

= 

1263 

1 

1263 

RDG 

E 5 » 1 4 C2 

= 

82  0 

2 

791 

793 

3 J ICTR  IG 

23,  3622 

1250 

4 

856 

125C 

RAP RFC 

E7 ,1477 

= 

145 

2 

662 

665 

RDG  IMS 

37,  3570 

877 

1 

563 

OUI KDSP 

6,2134 

1 66 

1 

16  1 

P AS  FL  AO, 

0106 

= 

83 

6 

1209 

1210 

RDI  FF 

E6  ,1452 

= 

136 

3 UIKOFF 

06,2165 

166 

1 

1 66 

RASTFER1 

27  ,2730 

76? 

1 

757 

RDL  ONUR 

40,3024 

427 

1 

427 

OJ  IKRIJPT 

36, 2144 

166 

1 

164 

3A  TF4I  A S 

22,3133 

372 

1 

3 72 

RDM 

13  ,3742 

1237 

OUI  TRI  T 

4747 

= 

82 

R AT  FDAMP 

16,  3217 

1422 

4 

1420 

1421 

ROOT 

E7 ,1473 

= 

1 51 

5 

831 

846 

3 JITFLAG 

0221 

= 

8? 

4 

303 

1208 

RATEDB1 

4767 

= 

149  8 

1 

1497 

RDDTB  IAS 

25,  2001 

41 

l 

567 

======== 

RATEDI SP 

43,  2174 

272 

1 

268 

RDOTCONV 

32  ,2001 

41 

1 

583 

R 

E 7 , 1 51  6 

= 

151 

22 

151 

07C 

R AT FDONE 

16,3134 

142  1 

l 

14  21 

ROOTO 

E4, 1663 

= 

1 22 

5 

122 

837 

R (CSM  ) 

E3 , 17  15 

= 

114 

5 

701 

657 

RATFI  NDX 

1322 

109 

3 

219 

369 

RDOT  DNOM 

34,3453 

832 

1 

8 30 

HEALTH  KEY:  NORMALLY  DEF  INEC  UNLESS  FL  ACC  EC  AS  FOLLOWS: 


JN  UNIDEF  INED 
80  BACLY  DEF  IN EH 


Ml)  MULTIPLY  DEFINED 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  U OF  REFS,  PAGE  OF  FIRST  P.EF,  PAGE  CF  LAST  REF. 


SYMROL 


DEF 


REFERENCES 


E7 


ROOT  M E7 
RDOTMSAV  F7 
RDOTV 
RORET 
RDRLOCS  25 
KDRPT  BB 
R DP  USE  C K 4 3 
R 0 SP  E 5 

RFACACCS  33, 
RFADAIT  25 
RFADALT2  25 
READCDUO  23. 
3 £ ADCD  UK.  22 
READLO  40 
RE  AO  l fll  40 
RFAORDOT  32 
READVFL  25 
RECALTST  40 
RECAL  1 AO. 
RECAL2  4C 
R e r.  A l 3 40 

RECRAT  10  1 T 
RECTFST  11 
RECTIFY  13, 
RECTOUT  13, 
RFO-nvFR  31  , 
REDES-0<  3 1, 
PEDES IG  31 , 
REOESMON  11, 
REDES  1 31 

REDF LAG 
1 EOFLR  IT 
REDO  37 

REDOC  TR 
REDOMANC  26 
REDOMANN  26 
REDOMASK  10 
REDOPRIO  1'  , 
RE002.  17  36  , 
RE004.2  36 

RED05 .5 
RED06.  7 36 

REDSPTEM  32 
REFLASH  IP 
REFLASHR  10 


17  50 
1746 
, 1616 
, 1675 
,2045 
4063 
,2646 
, 1434 
, 3122 
, 34?  ? 
,3417 
,232 
,2403 
, 300  4 
, 3 ^ 1 5 
,22  35 
, 3412 
,3607 
, 361  2 

,362  3 
,3635 
, 3736 
,3323 
, 3671 
, 3 177 
,3407 
34  1 1 

2542 
2305 
2625 

1 

4746 
200  2 
0320 
2156 
2127 
3466 

2543 
2341 
2344 
5272 
3355 
2017 
2460 
2 4 6 3 


145 

149 
499 
160 
285 
131 
853 
568 
568 
5 29 
362 
427 
427 
5P2 
568 
466 
466 
466 
466 
1237 
1228 
1230 
1206 
80C 
800 

788 
813 

789 
77 
77 

378 

100 

482 

481 

1360 

1348 

722 

723 
889 
743 
214 

1346 

1346 


1 49 

499 

159 

271 


1 568 

1 568 

1 527 

2 356 

4 426 

1 427 

1 584 

2 56  9 

2 435 

1 466 

2 466 

1 1228 

3 1227 

8 1147 
2 1206 
1 7 99 

1 799 

1 78  4 

1 812 

1 789 

4 771 

2 78  8 

1 29  5 

4 1 57 

l 482 


248 

249 

250 
213 
731 
741 


CS1 
58  3 
634 
599 


1229 
1 22  S 
1207 


SYMBOL 

REFMF 
RFFSMRIT 
REF  SHF  LG 
RFF  SMMAT 
REFT  AG1 
REFTAG2 
REFTAG3 
RFFTAG4 
REGCOAR  S 
RFGnns  P 
REG 00 S PR 
REG SL  EEP 
REGUP 
R F I N TB  I T 
R E INTEL  G 
RF  JALM 
REJECT 
REJECT? 
RE  LO  SP 
R EL  DSPON 
R EL  OS  PI 
RELO  SP2 
R FL  INTO 
RE  LI NUS 
RELOAOSV 
RELRET 
RF  LTAB 
R FL  TAB  1 1 
REMARK 
REMOI ST 
REMODB  IT 
REMCDCHK 
R E MODE 
REMODFLG 
RE  NDE  NO 
RENOEZ 
9 ENCEZVL 
RENOEZ  VU 
P EN  ON  00 
RF  NO  RAD 
RENOVOO 
RENDW  BIT 
RENDWFLG 
RENEWMK 
REPETE 


OE  F 

15,3502 
47  37 
0057 
E3,  1731 
4735 

4741 

4742 
4735 

15,2201 
10, 2466 
10,2471 
07,  3337 
5245 
4745 
0236 
17  ,2461 
07 , 2464 
07,  2477 
4457 
4374 
450? 
4473 
10,  3232 
26  ,2225 
1 1,  3632 
0 144 
4 066 
4 1 0 1 
07  ,2571 

42  ,2000 

47  36 

43  ,2310 
25,  2162 

0 265 
26,3200 
22,  2000 
0002 
05,2234 
04,  2274 
25  ,3272 
04, 2240 
4753 
0131 
97,  2474 
35  ,3115 


71 
71 
11  5 
276 
276 
275 
275 
922 
1347 
1347 
1309 
999 
83 
83 
26  3 
263 
263 
4 72 
469 

47  3 
473 

1356 

48  3 
1233 

98 

151 

161 

266 


242 
20  5 
238 
5 5 6 
237 


REFERENCES 

3 778 

213 
675 


97 1 
1321 
963 
970 


1 923 

2 722 

? 799 

1 13  09 

3 999 
3 1210 

5 7C5 

1 2 63 

1 263 

1 263 

10  234 

3 403 

2 446 

2 473 

2 1352 

1 247 

1 1232 

4 47? 

4 163 

2 162 

3 263 

1 495 

6 276 

1 276 

1 555 

1 592 

1 1148 

242 
212 
237 
564 
237 
295 

243 
263 
664 


1372 

1380 


473 

451 

1090 

265 

601 


13 


SYMBOL 

REPOSBIT 

PEPOSCNT 

REPOS  MON 

RE  POSRPT 

RFPOSTM 

RFP40 ALM 

REOADD 

REOCOM 

REQOATX 

REODATY 

REODAT  Z 

RECEX  LOG 

REQEX1 

REQMM 

REORET 

REOUESTC 

REREAOAC 

R ER  EPOS 

RERRCALC 

RERPOR 

P ER  60 

RESETRPT 

RE  SETX2 

RES  FT  22 

RE  S I G N 

PESO 

REST 

RF  START 

RESTARTS 

RESTORDB 

RE  STREO 

RESTSLEP 

RESULT  CT 

RESUME 

RET  JADR 

RETNMORE 

P.ETNON 

RETROOT 

RF  TUR  NTJ 

REVCNT 

REVERS 

REVER  SAL 

REV  N 16 4 5 

RE  V83 

R F A ILCNT 


DEF 

474  1 
E 7 , 1 42  3 
0 270 
25  ,2135 
E 7, 1424 
36,3122 
41  ,2111 
41,2337 
4 1 ,2332 
41  ,2334 
41,  2336 
41  ,2234 
41,3533 

41.3512 
1012 

41,3537 
5272 
37,3550 
17, 2675 
E6  ,1452 
26,2245 
11,2321 
12  ,3120 
04,2262 
35  ,3141 
33,2023 
10,  3246 
01  ,2000 
01,3530 
20,2115 
0366 
10,32  52 
E5  ,1537 
5301 
E6, 1477 
20,2456 
06,2264 
) 1 3 2 
17  ,3521 
6254 
35  ,3144 

21.3512 
35,  2026 
37  ,3316 
E 4, 1566 


REFERENCES 


539 

143 

734 

413 

417 

417 

417 

417 

415 

455 

455 

103 

455 

889 

877 

1439 

134 
483 
8 13 

1 1 e2 

238 
665 
46 
1357 
28 
1292 
139  5 
101 
1357 
131 
1120 

135 
1408 

170 

99 

1452 

999 

665 

1471 

613 

699 

117 


543 
143 
7 1 8 
413 


413 


434 

434 

434 


456 

454 

229  464 

456 
249 
246 


5 136 

1 483 

3 813 
1 1180 

2 237 

1 665 

1 87  B 

1 1354 

4 246 

l 224 
8 29  3 

4 218 
1 1357 

5 3 80 

?7  166 

4 1433 
7 1403 
1 171 

3 8 15 
7 1451 

4 298 

1 665 

l 1471 
1 613 

1 701 

3 281 


1440 
8 1 4 


1401 

1442 

1407 

8 17 
145  5 
1090 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


REFINED  RY  EQUALS 


CO  DEFINITION  ASECC1ATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE 


MIS  C FL  L ANEOJ  S TROJRLE 


MO  MULTI  PL V DEFINED 
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SYMROL 

DEF 

H 

REFERENCES 

SYM80L 

DEF 

H 

RFFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

RI  A ILS 

. 

A79 

1 

478 

RCDCOUNT 

E7  »l  744 

- 

155 

5 

155 

888 

RPCRT3SW 

E7, 1430 

142 

2 

574 

868 

KFAILS2 

41,3773 

A77 

1 

47  6 

RODFL AG 

0022 

= 

6 fl 

RPF  R 

0016 

= 

1263 

3 

7 14 

1263 

RSI  M R I T S 

502  0 

= 1417 

l 

1417 

RCCFLR  IT 

4740 

= 

68 

1 

224 

RPPRFC 

E 7, 1521 

= 

145 

2 

662 

665 

R GIMT  IMR 

E6» 1633 

= 138 

5 

1400 

1 46C 

ROD  SC  ALE 

E 5 ,1  525 

- 

125 

2 

125 

BOO 

RPQFL  AG 

0170 

= 

79 

6 

1205 

1229 

RGOODEND 

25  ,3623 

575 

5 

54  1 

575 

RODTR  AP 

23,  2000 

= 

-32 

2 

812 

814 

RPQFLBI  T 

4735 

= 

79 

R GO 

E 5 , 1 60 A 

= 126 

8 

126 

793 

RCE 

14  ,2006 

46 

l 

9 ?7 

RPQ  V 

E 4 , 1503 

= 

117 

8 

117 

1229 

RGVGCALC 

31, 2663 

791 

4 

7 P 4 

7SC 

ROHZ  SCAL 

E 5,1526 

= 

125 

1 

125 

RPPEX  IT 

3 0 50 

= 

1 139 

3 

1131 

1133 

RHCACTI  V 

17,2377 

1434 

1 

1434 

pcllover 

27,  3246 

767 

1 

768 

RPR  P XXXX 

24,3662 

1133 

1 

1131 

RHf'-'OV  FD 

16,  3222 

142? 

1 

142  0 

RCLLTI  ME 

E6 ,1  401 

133 

4 

301 

767 

R PS  V 

E 4,  1512 

= 

117 

7 

117 

1221 

RHCS  C ALE 

A 74  5 

= 89 

1 

299 

RONE 

F 4,  1577 

1 1 8 

16 

118 

1266 

P PT  ORA 

26  ,3735 

1131 

1 

1131 

R HCSCFLG 

031  3 

= 

8Q 

ROO 

04,2145 

236 

RPT0R8 

26,3727 

1131 

1 

1 1 32 

R IGHT 

00,2236 

10  4 5 

1 

1047 

ROOAD 

04,2377 

240 

1 

235 

RR-AZ 

E4 , 1 5 7 1 

= 

120 

5 

120 

3 20 

R 1 3 HT- 

00  ,233  2 

1047 

1 

10  44 

ROOT  CYCL 

2 1,  3540 

1472 

3 

1470 

PR-ELEV 

E 4 ,1573 

= 

120 

2 

335 

3 20 

R IGHTP 

• 

1038 

1 

1046 

PCCTHALF 

21  ,3534 

147  2 

1 

1470 

RR ANGE 

0024 

= 

577 

2 

504 

577 

R IGHT 5 

4322 

468 

2 

435 

436 

ROOTLOOP 

31,3^64 

8 1 6 

2 

817 

RRANGLES 

1 3 ,21 33 

327 

1 

548 

RISNX 

E 5, 146  0 

= 

124 

2 

124 

773 

RCCTMI) 

00  20 

= 

1192 

3 

1170 

1188 

RRANGOUT 

40 ,2634 

424 

1 

423 

R IGNZ 

E 5,  1462 

= 

1 24 

2 

124 

77  2 

ROOTPS 

0126 

= 

99 

5 

8 16 

8 17 

RR  AT  E 

E4,  1615 

= 

118 

5 

118 

700 

RI  MUZ 

32  ,3520 

811 

1 

80  1 

ROOTPS+1 

0127 

= 

99 

RPATEOI F 

E6  » l 4 3 7 

= 

134 

1 

1435 

R INI  T 

F 4 , l 71 3 

12  1 

10 

66  8 

752 

ROOTPS  RS 

31,3413 

8 15 

1_ 

792 

RRAUTCHK 

06,3006 

188 

2 

165 

RL  AST 

E6,  1456 

134 

5 

14  13 

1435 

ROOTSTOR 

31  ,3530 

817 

3 

817 

RRP  ADEN  D 

25,3263 

565 

3 

566 

567 

RLM 

F4  ,1575 

= 

120 

16 

3 95 

496 

ROP  EC  HK 

43,  3517 

1279 

l 

1276 

RPBOR  SI  T 

E7  ,1  740 

= 

150 

5 

153 

585 

RLMSRCH 

F 7,  1675 

= 

148 

6 

14  8 

6C4 

RCT-TOUV 

17  ,3203 

1445 

4 

1430 

1485 

RPC  DUC  HK 

06, 3037 

190 

2 

188 

KLMJNIT 

0014 

= 

605 

ROTATE 

34,  3132 

64  1 

2 

640 

RRCHECK 

4576 

533 

RI  S 

E4,1420 

1 1 6 

16 

1 

1202 

ROT  EMP  1 

E6,  1736 

= 

135 

3 

1445 

RRDATAB  T 

4750 

= 

87 

1 

533 

RM 

F 7 , 1756 

= 

150 

3 

150 

5 SC 

RCTFMP2 

E6  ,1737 

= 

135 

4 

1445 

RRDAT  AFL 

0277 

= 

87 

RMAG 

E7  ,17  14 

= 

147 

5 

1 47 

763 

RfiTFL  AG 

0220 

= 

82 

5 

826 

842 

RRDESDIJN 

25  ,2773 

56C 

l 

563 

R M A G 1 

0014 

= 

1257 

4 

1260 

1269 

ROTFLBIT 

4746 

= 

82 

RP  DESEN D 

43,2304 

276 

1 

268 

R M AX 

F4,  140  4 

116 

1 

599 

ROTI  NDF  X 

E 6 ,1  743 

= 

135 

10 

1 4 1 7 

1446 

RRDESK2 

43,2263 

275 

1 

27  5 

R ME 

12  ,202  1 

= 

37 

1 

1208 

ROTOROUE 

16,  3721 

1459 

1 

1458 

RRDE  SNB 

25  ,2466 

552 

3 

275 

520 

R MM 

12,  2017 

= 

37 

ROTSE  KSE 

E6  ,1737 

= 

137 

9 

1449 

1457 

RRDESNBK 

43,  2235 

275 

1 

273 

R MODI  NIT 

C 5 , 33  77 

230 

1 

226 

ROT  180 

26, 2356 

49 1 

1 

4 91 

PRDESSM 

25  ,2364 

547 

3 

518 

60  3 

RMOOI  NV 

25,2224 

541 

7 

541 

552 

RCUND 

00,  21  16 

104  0 

1 

1004 

RR  DOTOUT 

40,2651 

425 

1 

423 

RM 

1217 

107 

17 

201 

12  11 

RCLNDSUB 

7150 

1023 

4 

1035 

1046 

RRfCT 

E3,  1502 

= 

113 

15 

113 

12  30 

PND/TST 

42  ,355  1 

44  3 

3 

44  2 

RP 

E 5,  1564 

= 

126 

6 

126 

846 

RRECTCSM 

E3  ,1554 

114 

11 

114 

120  3 

R MDCON 

42,3310 

429 

2 

430 

PP-TO-P 

26  ,3720 

1131 

8 

772 

1203 

RR  ECTHI S 

E3, 1626 

= 

114 

302 

1200 

RM  ORE  FDR 

07, 3142 

1304 

3 

180 

1324 

RPAD 

23,2335 

690 

4 

6 91 

1272 

RR  ECTL EM 

E3 ,1626 

114 

3 

1 14 

1202 

RNDVZBI  T 

47  4 5 

= 

67 

8 

191 

604 

RPADT  EM 

E4, 1573 

= 

118 

6 

118 

715 

RR  EC  TOTH 

E3  ,1554 

= 

114 

1 

302 

RMDVZFLG 

0010 

= 

67 

7 

292 

1324 

RPAD1 

23  ,2335 

= 

1272 

RR  0 IMON 

06,  3071 

192 

1 

190 

RNGEDAT  A 

0260 

= 

85 

RPASS  1 

E 7,  1477 

145 

4 

145 

640 

RP I MUDI F 

43  ,2212 

2 74 

1 

274 

RNGFDBI T 

4750 

= 

85 

2 

558 

86  1 

R PASS  2 

E7,  1521 

145 

7 

145 

64  5 

RR I NOE  X 

1314 

= 

1C9 

3 

542 

543 

RNGSCR  IT 

4742  = 

75  1 

584 

P PA  S S3 

E7  »l  5 51 

145 

11 

631 

692 

RR I N IT 

06,  2 564 

179 

1 

179 

RNGSCFLG 

0120  = 

75  2 

567 

582  RPASS36 

E4, 1577  = 

120 

3 

120 

696 

R RLE  AD  I N 

1 5 ,2000 

= 31 

1 

498 

3 NR  AD 

0046  = 

93  5 

564 

566  RPC0MP1 

34  ,3565 

845 

1 

R?7 

RR L IMCHK 

4523 

531 

4 

193 

551 

RN1 

E7,  1542  = 

151  9 

151 

12  14  R PC  (IMP  2 

34,3571 

84  5 

1 

840 

P RL  IMNB 

25  ,253  1 

552 

2 

552 

ROADRACK 

25,2357 

546  4 

546 

5 73  P.  PORT  1 ME 

E7 , 1427 

142 

3 

574 

867 

RR  L I MUK 

4560 

532 

2 

532 

553 
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SY  MBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

E 

REFER  ENCES 

RRLDSD-SP 

4C.20GC 

304 

2 

304 

30  5 

RTECOOES 

10,2000 

= 

29 

1 

1385 

PVBOTH 

33,2347 

857 

1 

856 

RRNR 

7 3,  20  4 I 

329 

3 

552 

6C3 

R TERM 

0022 

= 

1257 

3 

1266 

1268 

RV  CON 

13,3242 

1207 

1 

120  6 

RRNBB IT 

4746 

= 

67 

RTHETA 

E 4 , 1617 

= 

118 

5 

320 

701 

PVEC 

E5  ,1  654 

= 

12° 

10 

502 

119  1 

R RNRMPAC 

23, 2065 

329 

1 

304 

RT  IG 

F7 ,1641 

146 

146 

755 

P VO 

00,3274 

1068 

1 

1 004 

RPNBSW 

1 1 

= 

77 

5 

548 

577 

R 7MAG 

E 7, 1722 

= 

147 

5 

147 

763 

RVSW 

I'l57 

= 

78 

7 

50  2 

1177 

RRNB  I 

23,2054 

329 

1 

329 

RT  MU 

F 4,  17  11 

119 

4 

631 

688 

R VSW3I  T 

4743 

= 

78 

RPOUT 

25,  2277 

544 

2 

543 

561 

RTNAPSE 

E5  ,1  710 

= 

129 

- 

1191 

RW  A ITK 

43,  2143 

271 

RROUT  LIM 

25,2326 

545 

1 

544 

RTNHQLO 

F 7,  1607 

= 

153 

5 

1 53 

7 82 

RXZ 

E7  ,1  721 

= 

149 

10 

149 

599 

R R 0 LIT  2 

25 ,23(  1 

544 

1 

54S 

RTNLAMB 

E5 , 1 7 1 D 

= 

129 

8 

129 

1188 

R 02 

04,2000 

= 

28 

l 

1321 

RRR  AN  GE 

25, 3072 

562 

3 

499 

CF7 

RTNPPM 

E 5 ,1  753 

129 

3 

129 

1 178 

ROPBOTH 

04, 3241 

1321 

10 

344 

9l9 

rrrdot 

. 

562 

4 

499 

582 

RTNSAVER 

0145 

= 

99 

3 

1252 

1253 

R02  ZERO 

04  ,3255 

1321 

1 

1321 

R RRF  T 

1312 

1 09 

5 

109 

543 

RTNTR 

F5 ,17  10 

= 

129 

1 

1189 

R 04 

43,2423 

281 

1 

268 

RRRS  e IT 

475  1 

= 

87 

2 

582 

5 83 

R INTT 

E 6,17  1, 

= 

129 

3 

1177 

R04  A 

43  ,2455 

28  1 

1 

282 

RPRSF  LAG 

0300 

= 

87 

P.TORPA 

24,  3666 

1133 

1 

1 1 33 

R 04B 

43,2477 

2 82 

1 

2 82 

RRSHA  FT 

E 7,  1735 

= 

150 

3 

1 50 

593 

RTCRPB 

24  ,3655 

1133 

1 

1133 

R04C 

43,  2514 

282 

2 

282 

284 

25,223b 

542 

3 

6 39 

541 

RTPN 

F 7,  1465 

144 

7 

648 

678 

R04END 

43  ,2607 

284 

6 

28  2 

283 

R R SPGAlN 

25,2276 

543 

1 

54  3 

RT  RNCADR 

01,3567 

1292 

5 

129? 

1297 

R04FLAG 

0063 

= 

72 

236 

504 

RRSPTODP 

40, 2664 

425 

2 

424 

425 

R TRNMU 

10,2022 

688 

1 

688 

R04  EL  8 IT 

4743 

= 

72 

3 

281 

282 

RRTARGET 

1 100 

105 

12 

105 

602 

KT  SR  1 /MU 

E4,  1707 

119 

120 

688 

R04K 

43  ,2601 

283 

1 

28  1 

v j TONI  Y 

25,2232 

54? 

4 

539 

54] 

RTSTBASF 

E4  ,1766 

12  1 

1 , 

282 

498 

R04L 

43,2603 

284 

1 

2 82 

RRT  RK  F 

4570 

533 

2 

610 

R TSTOE  X 

F 4, 1764 

121 

5 

2 82 

499 

R04  LR 

43  ,255  1 

283 

3 

283 

RRTRUN 

E 7.1  733 

= 

149 

3 

150 

595 

RTS T L OC 

E4,  1767 

121 

7 

281 

499 

R04RR 

43,2535 

283 

2 

2B3 

RRTUP  NON 

25,  2053 

535 

1 

189 

RTSTMAX 

E4  ,1765 

121 

2 

282 

499 

R04X 

43,  2472 

282 

1 

283 

RRZERO 

. 

546 

1 

27  1 

RT  X 1 

E 5,  1776 

= 

128 

13 

128 

1214 

R0  4Y 

43  ,2565 

283 

2 

28  3 

RRZEROK 

43,2140 

271 

1 

271 

P.TX2 

E5 , 1777 

128 

16 

6 15 

1214 

R04Z 

43,2427 

281 

1 

2 81 

RR  Z EROS  B 

25,  2062 

536 

2 

535 

546 

R UFLA  W1 

1 7,3663 

1456 

L 

1449 

Pi 

DO  40 

= 

1 192 

19 

633 

1 19  1 

RRZ? 

25  ,23f.1 

546 

1 

546 

RUFL  AW  1 2 

17, 3671 

1456 

2 

1456 

R 1 A 

E5  ,1  741 

= 

129 

15 

129 

1 19  1 

R R 1 A X I S 

25,2237 

542 

1 

542 

RLFLAW2 

17,3717 

1456 

1 

1449 

P 1C 

F7 , 1724 

147 

147 

764 

R R 1 AX  2 

25, 2245 

543 

1 

542 

R UFLA  W 3 

17,3725 

1457 

1 

1450 

P.1  Dl 

4317 

468 

13 

40  8 

1064 

RSAMPDT 

E4 ,1  770 

121 

7 

281 

498 

RUFRAT  E 

17,  3776 

1457 

2 

1456 

R IS 

F 7,1  572 

= 

151 

14 

151 

870 

RSBBQ 

E 3,  1432 

112 

2 

201 

222 

RUF  SETUP 

17,3745 

145  7 

4 

1456 

1457 

R IV  EC 

E5,  1654 

= 

129 

6 

129 

1184 

RSCALE 

32,2177 

216 

1 

216 

R UN  I T X 

F 7,  1722 

= 

154 

6 

155 

894 

RIO 

21  ,?  C 00 

= 

31 

2 

43 

B90 

R SFLGBTS 

C5,310l 

225 

1 

223 

RUN  IT  Y 

E7, 1773 

= 

155 

3 

155 

890 

P 10,8  11 

21,2055 

= 

883 

l 

247 

R S P HER E 

1 3, 374^ 

1237 

2 

1228  1 

L?2S 

R UNI  TZ 

E 7,1  724 

= 

155 

4 

155 

894 

Rl  0 FL  AG 

3013 

= 

67 

i 

8 29 

R STAC  K 

F4  ,1571 

= 

121 

10 

281 

498 

RUP  DATED 

33,  3023 

864 

R 10FLBI T 

4752 

= 

67 

2 

823 

894 

R STDFGTS 

21,  3426 

1470 

2 

1464 

RUPTAG  N 

0332 

100 

6 

100 

1120 

R 1 1 

21,2000 

= 

31 

3 

822 

883 

RSUBC 

1 100 

= 

105 

3 

502 

RLPTREG  1 

0070 

96 

47 

155 

1396 

Rl  2 

33  ,2473 

859 

3 

858 

859 

R SURE 

14,2004 

46 

1 

927 

PU  PTREG2 

0071 

96 

25 

168 

1468 

K 12DL 

25,3455 

569 

1 

570 

RSJREM 

14, 200C 

46 

2 

927 

RUPTREG3 

007? 

96 

13 

155 

1468 

R12EX  IT 

25,  340? 

568 

2 

565 

R SURL 

E7 ,1630 

= 

152 

4 

162 

50  3 

RUP  TP,  EG4 

0073 

96 

7 

96 

1327 

Rl 2 RE  AD 

2 5 ,3140 

56? 

1 

868 

R SUBM 

14,2002 

46 

1 

9?7 

RUPT10BB 

4065 

160 

1 

160 

R 12SCHNG 

25,3400 

567 

1 

567 

RT  ARG 

E7 , 1443 

143 

7 

200 

162 

RUTH 

16,3120 

1420 

1 

1420 

R12STUFF 

34,2300 

= 

34 

RTARG  1 

F7  ,1471 

= 

148 

11 

68  1 

685 

RUTMXTAB 

42,  3142 

323 

1 

3C9 

R2 

E 5 ,1717 

= 

129 

3 

1175 

R TB 

''l,  2454 

1 Ofil 

1 

1081 

RUTMXTEM 

0153 

98 

2 

3 09 

436 

R 2D  1 

4320 

468 

7 

408 

1090 

RT  B/ PHI  7 

‘ 1, 2453 

1081 

1 

lor  3 

RVARMI N 

E 3,  1772 

115 

1 

589 

P2  VFC 

F5  ,1662 

- 

129 

10 

129 

l 184 
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SYMBOL 

DEF  H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

R EFERENCE  S 

R21  -5  03 

24  , 304-3 

5 la 

1 

5ia 

R i 4L  EM  4 

24, 3334 

525 

1 

525 

R61C+  L01 

23,2131 

526 

1 

528 

R 2 ID  I SP 

24,  120  5 

5 20 

l 

51  8 

R29/SERV 

33  ,2303 

= 

34 

P 6 1C.+L  0 2 

23,2150 

527 

2 

526 

52  7 

R21 END 

24,  3C52 

5 l ft 

l 

518 

R 3D  1 

4321 

468 

5 

408 

465 

R6  1 C + L3  3 

23  ,2154 

5 27 

R 2 I LF  M 

24,2757 

517 

1 

5r  7 

R3C  LOG. 

22,2  : 

= 

32 

2 

45 

707 

R 21LEM01 

24,  3C75 

51F 

1 

51  9 

R300K 

27  ,3753 

1272 

R61C+L35 

23,  2234 

528 

1 

528 

R21 LEM1 

24,3016 

5 la 

r 1 

37,  2000 

= 

36 

1 

698 

R6l  C+L36 

23  ,22  57 

528 

3 

528 

529 

R 21LFM  1 1 

24,301  0 

518 

2 

517 

5 20 

R31CALL 

40,3734 

698 

1 

288 

R61C  + L 1 

23,2305 

52  9 

R21LEM11 

24,  3171 

5 20 

1 

519 

R31L0C 

- . ' 

36 

1 

698 

P6  1 C +L  2 

23,2273 

528 

1 

528 

R 2 1 1 F M,1 2 

24 ,3073 

5 1° 

R31SUR  F 

37, 3531 

702 

1 

699 

R61 C+L4 

23  ,230? 

529 

2 

528 

R 2 IL  F M 1 3 

24,3117 

519 

1 

519 

R33 

42  ,2302 

2B0 

1 

2flO 

R21LEM2 

24, 30 14 

5 1 fl 

1 

561 

R 36 

04,2650 

696 

2 

2 89 

697 

R6  1 FLBIT 

47  4 2 

= 

68 

1 

528 

R2ILE  M3 

24,3025 

51ft 

R36  I NT 

04,  2665 

696 

I 

697 

R 6 1 LE  M 

23,2116 

526 

4 

505 

525 

R 2 IL  E M A 

24, 3064 

519 

1 

51  8 

R36  LM 

04  ,2  000 

= 

28 

1 

695 

R61LEM1 

23,  2160 

527 

R21  LEM5 

24,277i 

617 

1 

5 1 7 

R 36TAG2 

C4, 2751 

697 

1 

6 97 

R6  1 LF  M2 

23  ,22  16 

527 

? 2 1L  F M 50 

24,3124 

519 

I 

519 

R4  7 

32,2033 

= 

34 

1 

213 

R 61TE  ST 

26,2250 

483 

1 

482 

R 2 1LEM6 

24, 3000 

5 1 ft 

1 

5 1 7 

R 51 

1 4,3007 

933 

1 

Q22 

R62 

23,2300 

32 

1 

R2UEM7 

24 ,3122 

519 

1 

519 

R51.1 

14, 30  11 

933 

1 

248 

R 62DI  SP 

23  ,2103 

= 

493 

1 

29  l 

? 2 1LE  M fl 

24,3127 

519 

1 

51  9 

R51  .2 

14  ,3047 

933 

R 62  FLASH 

23,2103 

493 

2 

493 

R21LEM9 

24,  3161 

520 

1 

520 

R 51.  3 

14,3050 

933 

1 

935 

R65  CNTR 

E7 ,1745 

= 

150 

5 

512 

589 

R 2 1SRCH 

24,3057 

518 

1 

518 

R51.4 

14,  3137 

934 

l 

934 

R 65 LE  M 

23,2123 

526 

3 

512 

589 

R 2 2n  I S P 

0314  = 

100 

6 

32  0 

595 

R 5 1C 

14,3014 

933 

2 

933 

934 

R65WA  IT 

23,  2 312 

529 

2 

527 

R22LEM 

24 » 2f2 7 

6 1 3 

5 15 

5 16 

R5  IF 

93  3 

3 

9 33 

1 221  FMI 

24,2577 

514 

1 

514 

R51  F 

14,3034 

933 

R 77END 

43,2623 

2 84 

1 

269 

R22I  EM  12 

24, 2541 

513 

R 511 

14,3035 

933 

1 

933 

R77  EX  IT 

25,3252 

565 

1 

564 

R 22  L F m2 

24  ,2607 

5 1 4 

2 

514 

R5  IK 

14, 3126 

934 

2 

934 

936 

R77FLAG 

0117 

= 

75 

2 

23  1 

284 

< 2 2L  F M 3 

24,2627 

514 

2 

514 

R51  P6  3 

14,3127 

934 

R 77FLB  I T 

4741 

= 

75 

4 

227 

564 

R22LFMA2 

24,  27  1 3 

516 

4 

5C  8 

6 1 c 

R 52 

14,3671 

64  7 

1 

933 

R77  IN 

25  ,2030 

499 

2 

498 

499 

R 22L  EM  45 

24, 2716 

516 

1 

516 

R52B 

14,3707 

947 

1 

947 

SIX  I 1 

0032 

= 

1192 

6 

1169 

1175 

R22LFM46 

24,2724 

5 1 6 

2 

515 

5 16 

R 5 4 

14, 3250 

= 

937 

2 

934 

96  2 

S+  7FR0 

4755 

= 

1274 

9 

295 

1280 

1 22LEM7 

24,2674 

515 

1 

5 15 

R55 

14,3216 

937 

1 

9 34 

S+  l 

4753 

= 

1274 

9 

295 

1282 

K2  2L  FM9  3 

24, 2644 

515 

1 

55  5 

P.  55.  1 

14,322? 

937 

S+2 

475  2 

= 

1274 

»22  LE  M 96 

M .2-.50 

515 

2 

599 

R55  .2 

14, 3231 

937 

1 

937 

S+3 

6257 

= 

12  7^ 

* 22R  STR  T 

24,2736 

516 

1 

247 

R55CnR 

R22W  A IT 

24, 2722 

516 

3 

513 

514 

R 5 5R  E T 

14,3243 

93  7 

1 

937 

S +5 

4756 

= 

1274 

R23LEM 

24,3221 

522 

1 

506 

R56 

14,  2603 

= 

929 

1 

933 

S+6 

6254 

- 

1274 

R 23LFM  1 

24,  3227 

522 

1 

523 

R59 

1 5 ,2270 

949 

4 

9 49 

961 

S+7 

4757 

= 

1275 

1 

1276 

K 2 3 L E M 1 1 

24, 3240 

522 

1 

522 

R59A 

15,  2302 

94  9 

1 

949 

S-ZFRO 

4754 

= 

1275 

1 

1279 

* 231  F M 2 

24,3262 

523 

2 

522 

523 

R59  ALM 

1 . 

95  1 

1 

951 

s- 1 

7761 

= 

1275 

2 

12  80 

1282 

R23L  FM  3 

24, 3265 

523 

2 

c 22 

5 2 3 

R 5 5D 

1 5 , 2 4 03 

1 

95  j 

S-2 

= 

1275 

r24  end 

24  ,3314 

525 

1 

524 

P59E 

15,  2453 

051 

1 

951 

S-3 

7757 

= 

1275 

R 24LFM 

24,3272 

524 

1 

519 

R59  OUT 

15  ,2463 

95  1 

2 

949 

951 

S-4 

6124 

= 

1275 

R24LFM1 

24, 3276 

5 24 

R 5 5R  F T 

15,3050 

961 

1 

952 

S-7 

5661 

= 

1275 

1 

1276 

R 24LF  M2 

24,3302 

524 

1 

525 

R60 LEM 

26,  2 125 

481 

6 

345 

948 

SAME  TYP 

15,3604 

972 

1 

972 

R 24L  EM  3 

24, 3320 

525 

I 

524 

R 61 

23,2000 

= 

32 

l 

526 

SAM  PL  I M 

1077 

L 04 

3 

105 

5 73 
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CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TPOJBLF 


SAP:  ASSEMBLE  REVISION  56  OF  AST.  PROGRAM  2ERLINA  BY  ZORCASTER 
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OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

S AMPLSUM 
SA  MPT  I MF 
SAVE 
S A V EDEN 
SAVE -I  A NO 
S AVFL  OCR 
SAVELOCS 
SA  VF  SR 
SAVE! -30 
SA VLF  MV 
SAVCH  52 
S AX 
SPA  NO 
S BANOANT 
S BAND  EX 
SB  I T1 
SR  IT  10 
SB  I T 1 1 
S BIT  12 
S RIT1 3 
SR  I Tl4 
S n IT  1 5 
SRIT? 
SBIT3 
S RITA 
SRI  T5 
SB  IT6 
5 BIT7 
SRI  TR 
SRITo 
SBNK03 
Sr.ALAOJ 
S CALCHNG 
SCALOCNE 
SCALECH,< 

S CALEOCT 
SCALEE 
S CAL  F FAC 
SCALELC 
SCALE  VFC 
S CALLOOP 
SCALPREP 

scalsave 

SCALS  HFT 
SC  A I.  STR  T 


DEF 

1100 
Opl  3 
E 5,  146  4 
27, 351 7 
F 6 , 1 A62 
10, 2730 
10  ,2723 
E6, 150S 
E7,  1A77 
E7  ,1737 
E 7,  1665 
E5,  173P 
A2  ,2000 
A2 » 3 6 1 A 
A 2 , 3 75  1 
A753 
A7A2 
47A1 
A7A0 
4737 
4736 
4735 
4752 
475  1 
4750 
4747 
4746 
4745 
4744 
4743 
5020 
25,3141 
25,  ’363 
21  ,341 1 
25,  3315 
17,3352 
17,3340 
31, 2005 
40  ,2646 
22,213? 
21, 3375 
37,3713 
0316 
F7,  172C 
21,3367 


REFERENCES 


105 
= 93 

131 
1267 
134 
1351 
1351 
: 136 

151 
= 14R 

146 
127 
36 

494 
496 
= 1274 
1274 
' 1274 
1274 
1274 
1274 
1274 

1274 
1 274 
127  4 
1274 
1274 
1274 
12  74 

1274 

1275 
567 
567 

1470 

566 

1453 

1449 

40 

425 

215 

1469 

1325 

100 

149 

1469 


1 1267 

7 1422 

1 1351 

2 1347 
2 1460 

8 15  1 

4 601 

2 94  7 

5 9 30 

4 47 


2 1280 
1 1280 


1 12b  1 

1 1278 
1 1280 
1 567 

1 566 

1 1469 
1 566 

1 1450 
1 1449 

1 782 

2 425 

2 214 

1 1469 

2 1324 

3 1324 

4 1 49 
1 1469 


1350 
14  72 


1325 

1325 

599 


SYMBOL 

SCA  XI  S 
SCF7ER0S 
SC  LNDRM 
SC  NO  SOL 
SC  CUNT 
SC  CUTE  ND 
SCRATCH 
SCRATCHX 
SC  P A TC  H Y 
SCRATCHZ 
SO 

SOI  SPLAY 
SECAO 
SEC  VAX 
SECDN  1 
SEC0N2 
SEC  01 
SFLCTSUR 
SE  LECTMU 
SEL  EC  TP 
SELECTY  7 
SELF  ADRS 
SEL  FBANK 
SELFCHEC 
SELFCHK 
S ELFERAS 
SE  LFRET 
SELF  SIJPR 
SENDIO 
SENDPUL  S 
SENSEGFT 
SENSETY  P 
SENSOR 
SENSTFST 
SE  PMI  N 
SEPMNRET 
SEPSCRET 
SF  PSEC 
SEPSECNR 
SE  PS  EC1 
SEROVBI  T 
S EPVCADR 
SERVCHNG 
SERVO  URN 
SERV  EX  IT 


DEF 

E 7 ,1 764 
37,  30  56 
17  ,3141 
34,  3056 
1366 
40,2731 
Efc, 1745 
0163 
016  1 
0 162 
22  ,2366 
43,  3106 
22,  20  27 
E 7 , l 5 73 
42,  3275 

42  ,3277 

4777 
17, 3225 
10  ,2333 

16,  35  34 
1 6,3554 

43  ,3244 
01,  3227 
43,2303 
43,3335 

1357 
1361 
4C,  2000 
05,3765 
07,3100 

17,  2146 
E6 ,1503 
17, 3757 
17, 3377 
42  ,3443 

0144 
0144 
42 ,3412 
42,  3425 
42  ,3423 
4742 
36,  2107 
6342 
1355 
33,2102 


REFERENCES 


150 
39  3 

1444 
639 
1 1 1 
A 2 6 
136 

1484 

1484 

1484 

362 

295 

356 

145 

428 

428 

749 

1445 
638 

142a 

1428 

1275 
1107 

36 

1276 
111 
1 1 1 

36 

968 

1303 

1430 

135 

1457 

1450 

431 

98 


735 

880 

1 1 1 
852 


631 
111 
426 
1472 
1480 
14  80 
1480 


4 623 

2 1425 

1 14  17 

2 295 
I 1107 
1 1274 

5 229 

1 111 
7 111 


5 1426 
2 1449 

1 1450 

2 428 

2 431 

2 4 30 

1 429 

3 428 

1 430 

1 823 

1 741 

> l 745 
7 157 

4 717 


639 

1279 


1 A84 
1481 
1481 


296 

1276 

1276 

987 

145C 


SYMBOL 

S ERV ICER 
SER  VICE  S 
SFRVIDLF 
SFPVOUT 
SER VOVFP 
SFRV1 
SERV2 
SETAUG 
SET  BANK 
SE  TCOAR  S 
SETCTR 
SETEBANK 
SETGAMMA 
S FT  CLOCK 
SFTGMEX 
SET  IFLGS 
SET  IN FL 
SE  TI  SSW 
SETLDC 
SFT  MARK 
SFTMA  XDB 
S FTMGA 
SETMI  NDB 
SETMOON 
SETMUER 
SETMADO 
SETNCAOR 
SETNEGU 
SETNORM 
S ET  OV  F 
SET0VF2 
SETPD 
SFT  PR  10 
SE  TRAD 
SETPADX 
SETRE 
SETREX 
SET  ROUND 
SE  TRRCTR 
SETRRECR 
SETRXX 
SE  T SE  N SF 
S FT T IME 
SFTTI ME4 
SfcTTI ME  5 


DEF 

33,2203 
33  ,2 OOP 
33,3546 
33  ,35  1a 
0043 
34,  2000 
37  ,2000 
40,2674 

13,3335 

07  ,3111 
21,3575 
A 3 1 3 
13,2546 
06,  2465 
13  ,2554 
13, 264B 

05  ,2745 

06  ,2703 

0 1,  2665 
10  ,2527 
20,2130 
06,  3736 

20  ,2141 
13,2715 
10  ,20  1 1 

4311 

4303 

21  ,3265 
10,2535 

7015 
71  64 
7625 
ID  ,25  11 

23,2365 
23, 2400 
13  ,2556 
0051 
00,2272 
25  ,2310 
25,2147 

1 3 ,257  1 
17  ,3  3 30 
17,  2615 
06  ,2  3 74 
16,2152 


425 
120  3 
1304 
1496 
468 
1129 
176 

1129 
1200 

222 

185 

1098 

1348 

1395 

687 
13R5 
1201 

688 
468 
468 

1467 
134  8 
10  1 8 
1023 
1035 
1347 

691 

691 

1130 
1130 
1045 

544 

539 

1 130 

1449 

1437 

163 

1400 


REFERE  NCES 

2 249  854 

5 39  880 

2 1371  1372 

2 852  873 

3 4 1 879 

1 877 

1 424 

4 120  1 1202 

2 175  1301 

2 416  427 

2 1124  1126 

4 175  176 

1 1129 
8 243  1211 

7 171  1307 

3 1098  1102 

3 1395 

1 687 

6 522  1395 

3 1201  1229 
1 688 

2 413  437 


7 413 

1 1467 
1 1346 
1 It  21 
1 1019 
1 1002 


1 690 

1 691 

2 1124  1126 

2 1130 

3 1045 

1 545 

2 538  549 

3 1130 
1 1449 
1 1437 
1 166 
1 1401 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


= DFFINFC  GY  EQUALS 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J DEFINED  3 Y JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  T30JBLF 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF  , H OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

OEF 

H 

REFERENCFS 

SYM BOL 

OEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

SE  TTR  KF 

4564 

533 

2 

191 

537 

SECRTMP 

7321 

1C  27 

15 

405 

1 32  6 

SK  IP  OB  2 

20 ,3  4 6 2 

1488 

3 

1487 

1488 

S ETUPOSP 

19, 2213 

1 2 fi  3 

1 

1283 

SH0RTMP2 

7325 

1 02  7 

1 

864 

SK  I PPAXS 

' , 

14  17 

2 

1 4 1 6 

1429 

SETUPFR1 

37,3005 

393 

1 

392 

SECRTT 

on, 20  17 

10  38 

2 

1001 

SKI  PSI  M 

05,2473 

218 

1 

218 

S FT UP  70 

C A, 2404 

240 

1 

234 

SHCRTV 

00,2121 

1041 

1 

1001 

SK  IPF  PER 

22,  3626 

715 

1 

715 

SETUP71 

04,2403 

240 

1 

234 

SHOW 

37,  2457 

385 

3 

3 80 

38  2 

SKI  PU 

E6  ,1  534 

137 

9 

137 

1460 

SETVAC 

41,3550 

4 56 

1 

455 

SHOW  SUM 

43,3073 

29  5 

1 

295 

SK  IPV 

Efc, 1 535 

= 

137 

3 

1400 

1460 

S ET  (JO 

‘5,357  1 

983 

3 

983 

SEE 

SHOW  l 

37,2461 

386 

1 

386 

SLAP1 

05,2464 

218 

1 

415 

SETXF  LAG 

27  ,7312 

= 

R 4 7 

SHUT  00 WN 

16, 2163 

140  1 

1 

1398 

SLC  TMU 

10  ,2  000 

= 

29 

1 

688 

SETXT  ACT 

43,  2105 

269 

SI  D LOOP 

43  ,3266 

1275 

1 

12  76 

SI  EEP  IE 

37, 3034 

393 

2 

388 

3 92 

S ET  X 2 

26, 2534 

539 

1 

5R9 

SIGN 

7667 

1c3  7 

1 

1002 

SLEFT5 

4 340 

469 

1 

452 

SEUDOPOO 

04,2212 

237 

1 

239 

S IGNAOS 

0 163 

= 

1494 

12 

I4  86 

1493 

SLOAO 

6513 

1010 

1 

1002 

S EV  FN 

4757 

1086 

26 

161 

14  83 

SIGNFI  X 

40,3066 

439 

2 

439 

SL0AD2 

6067 

993 

5 

1010 

1389 

SFAIl 

1357 

= 

1 1 1 

4 

1 1 1 

1276 

S ICNLCHK 

25,  2755 

560 

2 

560 

SLOPEBI  T 

4751 

= 

69 

SFCOM 

42,2143 

310 

1 

310 

SIGNMPAC 

10  ,3674 

1389 

15 

358 

1269 

SLOPEHI 

00,2314 

1046 

1 

1C  7 1 

S FC0NST1 

E5,  1467 

= 

131 

SIGNTF  ST 

40,2435 

408 

2 

407 

SLOPELO 

DD , 33  D 7 

1060 

1 

U 72 

SFGONUM 

41  ,3117 

436 

2 

422 

438 

S IM2CADR 

0 5,  2471 

218 

SLOPF  SW 

0033 

69 

3 

1173 

1186 

SF  INTAB 

42,  2462 

316 

1 

310 

SI  NR  LANK 

40  ,2561 

410 

1 

410 

SLOPED 

E 5,  1520 

= 

125 

2 

125 

862 

SFI  NT  ABR 

4 1 , 32  62 

4 3r 

1 

438 

S INC  DU 

0735 

= 

102 

6 

102 

1253 

SLOPEl 

E5  ,1521 

= 

125 

1 

125 

SF  MI  XCAL 

40,3115 

439 

1 

439 

S INCDUX 

0741 

= 

102 

6 

486 

1255 

SLOPE  2 

E 5 , 1 522 

= 

125 

1 

125 

S END R CAL 

40,  3120 

440 

1 

439 

SI  NCOUY 

0735 

= 

102 

5 

486 

1255 

SL0PE3 

E5,  1523 

= 

125 

1 

125 

SFOIJTAB 

42  ,2560 

318 

1 

3 10 

S INCDIJZ 

0737 

= 

102 

7 

486 

1255 

SL0PE4 

E5  ,1  524 

= 

125 

1 

125 

SED  UTAB5 

41  ,2627 

423 

1 

42  3 

SINE 

00  ,3530 

ID  7 3 

2 

100  4 

1249 

SMALL 

00,3133 

1064 

l 

1061 

S FR  ET 

41, 3134 

4 ? 6 

SINE  SLOC 

23  ,3767 

1253 

1 

12  53 

SMALL  EPS 

27  ,2366 

752 

1 

752 

SFPETl 

4 1 ,3n6 

43  6 

S INGIML  C 

26,  2403 

49  1 

1 

489 

SMA  LLTJU 

16  ,3712 

1458 

1 

1458 

SFRUTMI X 

41,  3104 

435 

5 

416 

439 

SI  M 

26  ,2002 

53 

2 

1135 

S MALL  2 

00, 3062 

1061 

l 

1064 

SFRUT  NOR 

41 , 3076 

435 

5 

422 

4 40 

S INMOO  I 

OOlO 

= 

1139 

1 

1135 

SW  L PD  I F 

1 6 ,25 D 7 

1413 

2 

1413 

SF  TFMp  1 

0123 

= 

97 

21 

309 

441 

S I NT  H 

0022 

= 

12B 

21 

30  5 

1243 

SMA  LPATE 

17,3707 

1 456 

1 

1456 

S FT  EM  P2 

0124 

= 

97 

2 

44  1 

SI  NTHETA 

E7 ,1731 

— 

149 

3 

149 

599 

S MODE 

1 362 

1 1 1 

7 

1 1 1 

1276 

SGNAGREF 

10  ,3574 

1385 

38  1 

120  8 

S IN  V EC  1 

26,  2405 

49  1 

1 

490 

SMOOECHK 

43  ,3300 

1276 

3 

1276 

1279 

SGNGHFCK 

12,2562 

1173 

2 

1173 

1 174 

SINVEC2 

26  ,2407 

49  1 

1 

490 

SMP  AC  + 

00,3405 

1070 

3 

1070 

S GNCOM 

4 ,2411 

40  R 

1 

40  8 

S1NZER0 

30,3651 

9l4 

1 

914 

SNA  PAGN 

05  ,3647 

984 

S3  NO  VOVF 

00  ,2402 

1 04  8 

1 

10  40 

S IN62  OEG 

26, 3706 

60  5 

2 

602 

SNA  PE  NO 

05  ,3666 

985 

S3N0FF 

0123 

= 

97 

3 

40  3 

SI  X 

62  54 

= 

109  0 

33 

175 

1475 

SNAPLDOP 

05,  3636 

984 

1 

985 

SGNON 

Q122 

= 

97 

3 

40  8 

SIXTY 

43,  3235 

1275 

1 

1281 

S NG  LC  0 

22  ,2376 

362 

S3NRD0T 

E 5 , 1 7 5 

= 

129 

2 

129 

1 189 

S I ZET  AB 

01,2002 

246 

2 

1295 

1297 

SNTH 

E5, 1727 

= 

129 

14 

129 

1190 

S GNT  AB 

40,  2432 

40  8 

2 

4C3 

SI  ZE  TST 

42  ,3567 

443 

2 

442 

SNUFFBIT 

4737 

= 

75 

1 

1441 

SGNTOl 

, 

4A-0 

1 

4 39 

SK  EEP  1 

1371 

= 

111 

20 

111 

1282 

SNUFFER 

0115 

= 

75 

2 

303 

SGNTST1 

40,2451 

408 

3 

40  8 

SKEEP2 

1372 

= 

111 

10 

111 

1280 

SNUFFOUT 

43,3220 

303 

1 

268 

S HAFT  BQ 

26,30  17 

593 

SKEFP3 

1373 

= 

111 

14 

111 

1281 

SNl 

OD  ? 3 5 F 3 

1074 

1 

107  3 

ST AF  TCMQ 

1352 

1 11 

1 

559 

SKEEP4 

1374 

— 

111 

14 

1 1 1 

1282 

SN3  59+ 

35  ,2420 

629 

1 

632 

SHAFTL  IM 

25,  2555 

553 

1 

553 

SKEE  P5 

1375 

= 

l 1 1 

10 

111 

1281 

SOB 

0042 

= 

l 139 

4 

1134 

1135 

SHAFTV  AR 

E4 , 1410 

116 

1 

594 

SKEEP  6 

13  76 

= 

11  1 

6 

111 

1282 

SOL  NS B I T 

47  51 

= 

76 

ST F TFLAG 

F 6 ,1740 

= 

1 36 

4 

1 469 

1470 

SKEEP7 

1377 

= 

l 1 1 

22 

222 

1281 

SOL  N SW 

0127 

= 

76 

5 

1184 

1190 

SHIFTP  1 

23, ?447 

694 

R 

615 

t 5E 

SKI P ADO 

1 0,2751 

1352 

1 

1352 

SOM  E AOS 

20,3450 

1488 

SHOLTS 

<+1  ,3724 

476 

1 

47  5 

SK  IP  OBI 

20, 3376 

14P7 

l 

I486 

SOMEFRRP 

37  ,3040 

393 
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50  RAOIY  DCF  I 


MC  MULT  I PLY  DEFINED 
TR  CUB  LE 


GAP:  ASSEMBLE  REVISION  56  CF  AGC  PROGRAM  ZEPL  IN  A BY  ZOROASTER 


9:1?  CCT.  21,1970 


PAGE  154C 


SYu“OL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  CF  DEF,  H OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 
SYMBOL  OFF  F REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES 


S0MERP2 
^ DPT 
S OPT  I CN 
SOP  TI  ONS 
SOPT ION ] 
S0PTICN2 
SDPTI0N3 
5 OPT  ICN4 
SUPTI  CN5 
S DPT  I ON  6 
S OPT  I CN7 
S7P  TON  10 
S OUPL Y 
SOUTHOR 
soar: sin 

S PARE 

sp:  ns 

SPFCSTS 
SPECTEST 
SPIRAL 
S PL  P FT 
SPNDX 
SP  SCODE 
S PS  C O NT 
SPSI  N 
SPSLOOP  l 
S PS  LOOP? 
So  SRC  S 
S PS  ST  ART 
SP  T 
SP  VAC 
5 PV  AC  I N 
SO 

SORT 

S QRT  ABRT 
SOR  TV1FG 
S QRTN.M2 
SQRTNORM 
S3R  T SHF  T 
S QRT  SUB 
SR 

SRCHO  BIT 
S RCHOPTN 
SR  DD  V 
SRTEST 


3 7 , 3 04  7 
A3,  3 7 )A 
43,1667 
A3, 331 1 
A3 , ’ 1 71  I 
. 

A3, 3323 
A3, 332A 
A3 ,3325 
A3,  3326 
A3, 3327 
A3, 3330 
37,  307  1 
E5  ,1421 
30, 3657 
000  7 
5C32 
27,  2572 
G 1 ,2655 
1236 
22, 35A1 
126  1 
A7A3 
20, 2716 
5033 
20,  2 1 12 
20,3127 
21 ,36A1 
21, 36 A 7 
5036 
5116 
5112 
1076 
00, 3207 
00 , 3 AO  2 
CC ,3373 
OQ,  3A7  5 
C 0 ,350  2 
"0,322  1 
00, 33A3 
0021 
A 7 36 
0037 
CC,202A 
00, 3A56 


393 
1282 
128  1 
1276 
1276 
1276 
1276 
1276 
1276 
1276 
1276 
1 276 
39  A 
131 
Q 1 5 
199 
1093 
389 
1098 

107 
712 

108 
: 1298 

1 A7fl 
1 C 93 
1A82 

1 A8  2 
1 A97 
1 A97 
1093 
1 CEA 
10  9 A 
10A 
1C67 
ID  7( 
1070 
10  72 
1072 
1067 
1070 
93 
69 
69 
1038 
10  7 2 


1 3 3 3 
1 1282 

2 123n 
2 1276 
1 1276 


3 131  381 

3 81  8 91 A 

8 200  211 
5 194  1250 

1 Tin  2 
5 210  951 

1 37 

8 370  371 

1 1 A 8 A 
3 19 A 1250 

1 1 A 83 

1 1 A8  3 

2 1426  1 AAO 
1 1A97 

1 109  3 

3 239  1350 

1 1C9  A 

2 1093 

2 855  1 COA 

2 1070 
1 1070 
1 1C72 
1 107  2 
1 1067 

3 1061  1 C 7 5 
30  AID  1472 

1 601 
A 29  2 E2A 
1 1061 
1 1071 


SR3G  . 1 

SS 

SSP 

ST  ACC DOT 
ST  ADR 
STALL 
STAR 
STARAO 
ST ARALGN 
STARCODt 
STARTND 
ST  ARS  AVI 
STAR  SAV2 
ST  AR  TAB 
ST  ART  DAP 
STAR  TOE  S 
START  E0 
STARTMNV 
STARTS  IP 
ST  ART  PA 7 
STAR  TP  *4 
ST  AR  TP  66 
ST  ARTS  B1 
STAR  T SB  2 
STARTS  IM 
STAPTSTO 
STARTSUB 
STARTSW 
STATE 
STATEB  IT 
STATEFLG 
STA  TF  I NT 
S T AT  EU  P 
STATI  NT1 
STATOUO 
STCL0K1 
STCL0K2 
S T CL  OK  3 
STCTR 
S TC  TR  1 
STDES  IG 
STDESIG1 
STEEP  ? 

ST  FERB  IT 
STEERING 


2 2,  355  1 
E7  ,1  732 

66  32 
20,2756 

6366 
07,  37  16 
E5  ,1730 
E 5 , 1 7C6 
0735 
0734 
E 5,  1757 
E5 , 1 760 
E 5 ,1  766 
14,  2000 
16  ,2046 
25,2423 
5007 
26,2200 
37,  2161 
36,3450 
31  ,2442 
21,  2261 
05,3131 
05,3174 
05,  2467 
6446 
05,  3122 
o 5,2466 
0074 
4747 

0067 
13,2602 
1 3,  20  26 
13,2611 
04, 2316 

36.2662 

36.2663 

36. 2664 
20  ,2550 
20,2553 
25,  2573 
25,2607 
31,  3274 

4741 
36  ,3666 


714 

147 

1012 

1479 

I 005 
1319 
127 
127 
102 
10? 
127 
127 
127 
31 
1399 


492 

380 

745 

786 

887 

226' 

227 

218 

100B 

226 

218 

96 

72 

72 

1199 

243 

1199 

238 

729 

729 

729 

1475 

1476 
555 
555 
797 

70 

748 


709 

763 

1002 

1478 

1004 

I3ia 

127 

126 

102 

102 

127 

127 

127 

48 


3 80 

745 

784 

887 

223 

223 


41  66 

1 1372 

9 588 

3 24  7 

1 1200 

2 247 

2 238 

1 7 28 

2 720 

l 1476 
1 1477 

3 52C 

1 796 

3 799 

2 718 


225 

1084 


STEERS* 
ST  EERSW  ? 
STERN 
STIKLDAO 
ST  IKS  ENS 
STI  KSTRT 
ST  ILBADH 
ST  IL8ADV 
STI LLRC  S 
ST  M IN- 
STMP 
STDPCL3K 
STOPFIRE 
STOPRATE 
STORAL  T 
STORANG 
STORBNO  S 
STORDELT 
STORE 
STORE, 1 
STORE, 2 
STO  REMAX 
STOREM  IN 
STORETGO 
STORE  1 
ST  ORE  IS 
STCRHAPO 
STORHPFR 
STORJUMP 
ST0RLP71 
STORPARM 
STORTORK 
STORV 
STORVFL 
STORY 
STRAT 
ST  RAT  GY 
STRTGYRO 
STR  TGYR 2 
STRTIDLE 
STSHOSUM 
ST  5 1 1CT  R 
SUBDI  VDE 
SUBEXI  T 
SUBL  1ST 


21  ,2234 
01,2214 
E6,  1 4 44 
05  ,3074 
E 7,  1677 
F7 ,1700 
17 ,2710 
20 , 3 53  3 

3020 
36,3012 
32,3476 
20,2166 
25,3424 
27  ,2046 
12,2140 
35,  3153 
6434 
6426 
5431 
12  ,2077 
12,2152 
27  ,2563 
6635 
26,  36  71 

22  ,3600 
22,3612 

5404 
04  ,3653 
32,3636 

1 5 ,3705 
20  ,3616 
25,  3444 
27  ,2431 
14,2714 
14,2706 
07  ,3352 
07, 3356 

5702 
43,3521 
33,  2516 

16  ,2263 
E 7,  1470 

0337 


134 
225 
1 5 A 
1 5A 
1 AAO 
1 A89 
978 
732 
811 
1396 
568 
A89 
1166 
665 
1007 
1007 
10  0 7 
1 166 
1166 
76  1 
1012 
60A 
71  A 
715 
1006 
1381 
826 
1A58 
l A9C 
568 
755 
931 
931 
1310 
1310 
1371 
1279 
859 
1A10 
1AA 
10  1 


1A35 


l 299 
8 219 

1 219 

7 1 5 A 775 

6 1 5 A 775 
3 1 43 A 1 4 AO 

2 1 A93 

7 977 

3 731 
1 810 

10  293  1397 

1 568 

1 A89 

1 1169 

2 66A  665 

6 10  0 6 

1 1006 

1 1GG6 

3 1165  1166 
1 1166 

2 76 1 

1 1 0A3 
1 60A 


1 100  5 

2 13B  1 1382 

1 825 

1 1 A59 
1 1A90 
1 568 

1 755 

1 931 


1 1371 

2 295 

1 859 

3 1412 

3 619 

10  1 


13 


698 

985 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

PEFERE  NCE  S 

S JBTR 

00,  370  2 

1076 

l 

1077 

S XA 

01,2370 

1078 

1 

1003 

S40 RET 

36  ,3614 

747 

3 

757 

758 

SUFFCHEK 

1 2,3460 

1 IR7 

4 

1186 

1 137 

SYNCT4 

06,  2154 

166 

1 

166 

S41.  1 

27,3266 

770 

4 

742 

745 

SUHAL  FA 

22,  2677 

367 

1 

367 

SYSTF  ST 

43  ,3053 

295 

1 

2 69 

S 50 

14, 2500 

= 

927 

SUHALFAP 

22,2717 

1 

s 1 

30 

3 62 

1244 

SUPDACAL 

4651 

990 

2 

448 

1280 

S10  BITS 

5312 

= 

1275 

2 

1277 

S 52. 2.  1 

14, 3640 

94  5 

5 JPDXCF7 

5 176 

1 107 

7 

288 

1 122 

S13BI TS 

43  ,3237 

1275 

1 

1281 

S52  .2  A 

14,3631 

945 

1 

945 

SUPEPADP 

16  ,2665 

1 4 1 6 

1 

1 41  6 

S2 

0051 

= 

94 

45 

327 

1244 

S52.3 

14  ,3651 

946 

1 

922 

SUPHRRNK 

0007 

= 

94 

27 

222 

1369 

S24.9SEC 

36  ,3  143 

7 35 

1 

722 

S8B  ITS 

4357 

= 

127* 

1 

1282 

5'JPERJOR 

16, 2666 

14  16 

2 

1416 

S30.  1 

34,2060 

6 1 4 

1 

612 

SUPFRSW 

4727 

992 

3 

235 

1371 

S32.1F1 

0 132 

= 

76 

4 

63G 

639 

T 

- 

SUPER011 

4773 

1 C 6 7 

4 

812 

1200 

S32.  1 F 2 

0133 

= 

76 

4 

6 30 

639 

T (X  ) 

27, 3717 

1271 

2 

1268 

1269 

SU  PERIOD 

4745 

= 

1387 

S32.  1 F 3a 

013a 

= 

76 

8 

63  I 

6 39 

T-OTHER 

E3  ,1570 

= 

114 

3 

158 

200 

SUPER  101 

4775 

1087 

1 

1C  90 

S32.1  F3R 

3135 

. = 

76 

8 

631 

639 

T/2SEC 

15,2771 

958 

1 

957 

S JPFP  1 1 

4776 

lp  8 7 

2 

88  3 

1C9C 

S?2/3^.  X 

34,3200 

644 

2 

628 

643 

T ABLNTH 

88,2837 

163 

1 

163 

SUPRCON 

43  ,3236 

1275 

1 

1281 

S32/33. 1 

34, 3160 

643 

2 

621 

626 

TABLTTF 

E 7 ,156*' 

= 

153 

6 

79  l 

8 20 

S UT FAGAN 

'7,2637 

267 

1 

267 

S32RIT1 

47  35 

= 

76 

TABLTTFL 

S JRFAL  IN 

05,  2365 

= 

209 

1 

212 

S3  28  I T2 

5736 

- 

76 

TAD 

7 103 

1021 

1 

1002 

SURFDI SP 

15,3155 

963 

2 

96  2 

96  5 

S32BIT3A 

4737 

= 

76 

TAG  SUB 

01  ,2445 

1080 

4 

1078 

1079 

S JR  FEND 

07,  2633 

267 

1 

267 

S32BI T3B 

4740 

= 

76 

T AL 1GN 

E5,  1774 

= 

127 

10 

128 

967 

SURFFRIT 

4744 

= 

80 

8 

30  2 

e55 

S 2 3/  3 a . 1 

35,  2702 

662 

2 

625 

657 

TANG 

1106 

1 C 5 

20 

105 

583 

S UR  FF LAG 

0177 

= 

80 

17 

243 

12  02 

S34/35 .1 

35,3212 

667 

2 

661 

662 

TANGNB 

E 7 , 1 752 

= 

1 50 

8 

150 

603 

S JRFJOB 

7, 2576 

266 

1 

264 

S34/35.  2 

35  ,3224 

2 

= 

13a 

1a23 

1436 

SURF  LI  NE 

15  ,3075 

962 

2 

961 

Q7  2 

S 34/ 35.3 

35, 3315 

670 

1 

674 

TARGE  TV 

1 2 ,3551 

1188 

1 

1188 

S J 3 F R E J 

07,  2501 

263 

1 

263 

S34/3  5.4 

35  ,3363 

671 

1 

674 

TAP  GTDEX 

31,2407 

785 

2 

795 

818 

SJRFST  AP 

15,2000 

257 

1 

260 

S 18/ 5 5,  5 

35,  3A40 

673 

2 

658 

661 

TASKOVER 

5272 

1120 

79 

1 71 

1366 

SURF  STOR 

1 7,251 3 

2 64 

1 

262 

S 3435 .23 

35,  3243 

668 

1 

668 

TAT 

0014 

= 

1237 

15 

2 14 

1 2 14 

SUR  FS  UP 

15,  3145 

962 

1 

962 

S3435.  25 

35,3245 

658 

T AU 

E7 , 1760 

= 

155 

4 

155 

RC7 

S VC  T1 

525  1 

1 112 

2 

1112 

S 40 . 1 

27, 2246 

75  1 

2 

740 

742 

TAU. 

E4  ,1473 

= 

116 

13 

1 17 

1223 

sv:  T3X 

5267 

1112 

3 

1112 

S40.1  B 

27  ,2336 

752 

1 

751 

TAIJH7 

E5, 1474 

= 

125 

3 

125 

810 

S VOWN  1 

13, 2114 

326 

3 

302 

12CC 

S4C.  13 

27,2535 

7 59 

2 

247 

723 

T AURODB 

88 ,15  30 

= 

125 

1 

125 

S VD  WN2 

13 

325 

2 

1147 

1202 

S40 . 1 3D 

27, 2623 

760 

2 

759 

760 

TA  URODL 

E 5 ,1527 

= 

125 

4 

125 

888 

SW/ 

C 1,  2 5?? 

= 

1085 

l 

1003 

S40.  13  0V 

27  ,2650 

751 

1 

761 

T BAS  E 1 

1052 

104 

4 

722 

1293 

SW  AMDBIT 

474  1 

= 

78 

2 

870 

685 

S 40.  131 

27,  26C5 

760 

1 

760 

TRASE2 

1 0 5*8 

104 

6 

482 

1210 

SWA  NO  I SP 

0155 

= 

78 

1 

873 

S40.132 

27, 2613 

760 

2 

7 60 

761 

TRA  SE  3 

1056 

1 04 

SWB  IT 

0131 

= 

97 

5 

1083 

1 C 6 6 

S4C. 1 32* 

27,2615 

760 

1 

761 

TBASE4 

1060 

104 

4 

240 

730 

S W BRANCH 

5727 

10  15 

1 

1085 

S40. 133 

27, 2644 

761 

TBASE5 

1062 

104 

SWCALL 

4622 

989 

4 

3 75 

1 C 8 1 

S40.1  34 

27  ,2645 

76  1 

2 

760 

761 

TB A SE  6 

1064 

104 

1 

730 

3 WCHClR 

35, 2543 

657 

1 

657 

S40. 1 36 

7 7,2006 

38 

1 

760 

TBUILOFX 

4767 

1087 

1 

1498 

SUCH  Si  T 

35,2521 

657 

1 

657 

S 40 .136 

27,  20  10 

38 

1 

761 

TB  UP 

F 4 ,1  66  1 

= 

122 

15 

122 

845 

5 W INTT 

- 5,  34(  0 

230 

9 

220 

S4  0.  1 3 7 

27 ,2636 

TC 

F 3,  1 5 5f ' 

= 

113 

10 

113 

123C 

SWITCHES 

1,2522 

10  8-3 

1 

1.185 

S 40 . 13a 

27,  2656 

761 

1 

761 

TCALARM2 

83  ,3263 

1275 

SWRE  TURN 

4631 

989 

10 

251 

1322 

S40.2, 3 

27,2413 

755 

2 

7 40 

742 

TCC  SM 

F3, 1622 

114 

SWSK  TP 

l,  2603 

1C  8 5 

2 

10  8 5 

S4  0.  8 

27,2447 

757 

1 

747 

TCDANZIG 

27,3735 

= 

127  1 

6 

5 7 7 

1266 

S W STOR  E 

0 1 ,2557 

1^84 

2 

S40.9 

27, 2706 

762 

1 

748 

TC  DH 

E3  ,1  774 

115 

1 1 

200 

642 

SWWORD 

0130 

= 

97 

2 

1 :83 

1 C 84 

S40BNK 

24  ,2303 

= 

32 

1 

758 

TCP  INDVC 

43  54 

A 69 

2 

456 

1297 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

REFERENCES 

TCGETCAD 

OC, 3762 

1365 

1 

1 366 

TE  MPK60 

1163 

106 

7r 

481 

832 

TFF 

E 4,  1531 

- 

118 

11 

118 

715 

T CGFAPPP 

E5 , 1 4 5 A 

= 

124 

1 

1 24 

TEMP  SW 

0065 

= 

1289 

8 

12  87 

12  90 

TFF/RTMU 

0036 

= 

1257 

5 

738 

1268 

t:sfrp AK 

E 5,1452 

= 

124 

2 

124 

795 

TEMPSWCH 

0157 

= 

1297 

3 

1292 

1297 

TFF ALFA 

003? 

= 

1257 

6 

1261 

1268 

T CG I APPR 

124 

1 

124 

TEMP  SW2 

0066 

1289 

4 

1287 

1290 

T FFPANK 

22,3320 

708 

1 

70  7 

TCGIRRAK 

E5 ,1453 

= 

124 

2 

124 

795 

TEMPT  IME 

E 5, 1430 

= 

131 

3 

131 

385 

TFF  CALI  S 

22  ,3565 

714 

l 

714 

t:lem 

F 3, 1674 

114 

TFMPVAR 

E5  ,1667 

= 

130 

3 

1141 

1142 

TFFCON  IT 

27,3342 

1 26C 

T CNOV AC 

435  I 

4 69 

2 

455 

1257 

TE  MP  2G 

0155 

= 

1297 

5 

12  92 

1297 

T FFCQNMU 

27  ,3343 

1260 

1 

7 1 4 

TCP 

E 6 , 1 4 4 5 

134 

3 

14  16 

1423 

T FMP3 1 

F6,  1736 

= 

134 

6 

1432 

1433 

TFFDE  LQ 

0012 

= 

1257 

2 

1269 

1270 

r cp  i n 

A3,  3 20  1 

303 

1 

303 

TE  Ml 

0141 

98 

35 

98 

1354 

TFFELL 

77, 3635 

1269 

1 

1267 

T r.  P I N A c 

43,32'  4 

3o  3 

1 

3o  2 

TEM  2 

0142 

98 

36 

98 

1387 

TFF  ELI 

27  ,3637 

1269 

1 

1267 

TC3 

6754 

= 

1283 

4 

270 

534 

T F M3 

0143 

98 

19 

98 

1249 

TFFNP 

0034 

= 

1257 

6 

1260 

1269 

T CQ BN K 00 

0:3,  34*5 

10  71 

1 

1071 

TEM  4 

0144 

98 

11 

98 

91  4 

TFFQ1 

3D  16 

= 

1257 

5 

1266 

1269 

T Z QCD UW 

3c  ,346  1 

i 1 

1 

91  6 

T EM5 

0145 

98 

1C 

58 

913 

TFFP  P /RA 

27  ,341  1 

1263 

1 

7 1* 

TC3R 

F6, 1457 

1 34 

3 

1410 

14  36 

TEN 

4363 

= 

1390 

10 

215 

141  9 

TFFRTALF 

00  30 

= 

1257 

3 

1261 

1268 

r COST  AL 

17,  20  50 

572 

2 

571 

572 

TE  NO  A P PR 

F 7, 14  24 

142 

TFFSW 

3 167 

= 

79 

3 

1266 

TZ  ST 

F 7 ,1633 

1 46 

1 2 

200 

642 

T ENDRRAK 

F7, 1423 

142 

2 

143 

794 

TFF  SW8  I T 

4753 

79 

T CSl  EEP 

00, 377? 

136d 

1 

1365 

TF  NSEC 

24  ,3201 

520 

1 

519 

T F FT  EM 

0044 

= 

1257 

13 

1266 

127C 

TCSUBTR 

OC  ,373<* 

1077 

1 

1075 

TEPHEM 

E3,  1706 

114 

11 

115 

1383 

TFFTICK 

22  ,3453 

710 

TC  TSKO  VR 

4353 

469 

1 

737 

T EREND 

33,2716 

863 

1 

863 

TFF  V SO 

0024 

= 

1257 

1 

1260 

r cwa  it 

4352 

469 

2 

456 

1257 

TERLOOP 

33  ,2670 

862 

1 

863 

T F FX 

3342 

= 

1257 

7 

1266 

1269 

TDEC 

1114 

106 

9 

10  6 

1233 

TERM  ASC 

34, 3554 

845 

2 

844 

845 

TFF  XTEST 

27  ,3543 

1267 

1 

1267 

TDEC  A Y 

E 7,  1 74 Y* 

147 

1 

75  7 

T FP  MATE 

10  ,3?54 

1358 

1 

1357 

TFFZEROS 

23, 2517 

1272 

2 

1266 

1267 

T DECAY  FX 

4770 

1C  8 7 

TF R ME  XT V 

5 50  3 

= 

269 

4 

2 74 

278 

TFFl/  ALF 

33  26 

= 

1257 

7 

1261 

1270 

TDEC  ! 

004  0 

= 

1237 

57 

214 

1 233 

T FRMNV EC 

12,  3640 

1190 

l 

1190 

TFF  1/4 

23,2507 

= 

1272 

4 

1260 

1266 

T DEC2 

E 7,  1573 

= 

145 

3 

620 

692 

TERMITMP 

01  5 7 

= 

99 

3- 

1253 

T GO 

E7 , 1514 

151 

39 

151 

846 

T DELTAV 

F3 , 15  20 

= 

113 

13 

113 

12.-2 

TERM  40 

36, 3255 

74 1 

3 

740 

741 

TGOCALC 

27  ,2467 

757 

T3ESIRE0 

E 5 , 1 67C 

= 

129 

5 

129 

1 187 

T FPOFF 

43,2334 

277 

1 

268 

TGDCOMP 

32,3705 

827 

2 

82  5 

826 

r disp 

15, 3344 

966 

l 

966 

TERR  1 A MB 

F 5 ,1  757 

1 2 9 

2 

1 186 

1 187 

T GDFFNOW 

21,3315 

1468 

3 

1467 

1468 

TDI  SPSET 

31  ,3563 

818 

2 

787 

792 

T ersk  IP 

33,  2720 

863 

1 

862 

TODl 

E 7 ,1501 

= 

152 

2 

826 

827 

T EMK 

l C 7 5 

1C4 

10 

1093 

TEST 

01  ,2571 

108  5 

1 

10  85 

THDUMP 

31,2322 

782 

T EMP 

E5,  1441 

= 

1 31 

TESTS  IT 

4C , 3567 

465 

3 

465 

THETA 

33  24 

= 

128 

11 

938 

1240 

TEMPADD 

E5 , 1440 

= 

131 

TESTLODX 

31,  3524 

817 

1 

817 

THE  TACON 

27 ,241 1 

753 

1 

751 

T EMP B B 

0064 

= 

1289 

l 

1288 

TE  STLCOP 

13  ,3256 

1208 

6 

1236 

1234 

T HFT AD 

0321 

100 

26 

100 

1302 

r EMPBRCN 

007  3 

— 

1289 

6 

1288 

129  1 

TESTNN 

4 1,  2073 

413 

1 

A47 

THF  TAN 

E5  ,1*52 

= 

132 

l 

132 

TEMPFL  SH 

0374 

101 

3 

235 

1 353 

TESTOFUF 

40  ,3231 

44  1 

4 

4 39 

449 

THETCOMP 

34,3644 

846 

2 

825 

846 

T EMP  G 

006  1 

= 

1289 

8 

1208 

1251 

TF  STV8 

41  ,2066 

*13 

THETCRIT 

E5, 1544 

= 

125 

2 

125 

825 

TEMPG2 

0071 

= 

1289 

3 

1287 

129C 

TESTXACT 

43,  2076 

269 

19 

274 

1376 

THIRD 

35  ,3652 

679 

2 

664 

8*5 

T EMPNM 

0063 

= 

1289 

3 

12  80 

1 291 

TE  STY 

35  ,2750 

66? 

1 

662 

THIRTEEN 

4761 

= 

1064 

2 

1061 

1390 

T FMPNUM 

E6 , 1741 

= 

135 

2 

1429 

TET 

E 3,  1516 

= 

113 

33 

113 

1229 

THI SAX  I S 

23  ,25  1 1 

= 

37 

1 

37 

TE  MPOK 

C6  » 2 52  5 

177 

2 

1 77 

TETCSM 

E 3,  1570 

1 14 

5 

114 

1383 

THI SPREC 

13,3056 

= 

37 

2 

696 

709 

T EMP0R2 

0160 

= 

1361 

10 

1345 

1355 

TETLE  M 

E3  ,1642 

1 l A 

A 

114 

1383 

T H ISS  HIP 

22,  3356 

709 

1 

708 

TEMPP 

0062 

= 

1209 

6 

1288 

1291 

TETOTHER 

E 3,  1570 

= 

114 

THI  SVI  NT 

13  ,2066 

243 

1 

12  14 

TEMPPHS 

0154 

= 

1297 

9 

12  92 

12  97 

TETTHIS 

E3  ,1642 

i = 

114 

1 

704 

T HR  DC  HX 

34,2736 

638 

2 

637 

T EMPPP 

0070 

= 

1289 

2 

120  8 

1291 

TE  VE  N T 

1341 

110 

6 

2 00 

823 

THRDISP 

E7  ,1672 

= 

154 

3 

154 

782 

TEMPP2 

0072 

= 

1289 

5 

1287 

1290 

T EXTRA 

E 5,  1477 

= 

125 

2 

125 

810 

THREE 

6257 

= 

1090 

47 

2 40 

1**6 
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SY  MBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

THREE /8 

12,3757 

1236 

1 

1222 

T IME3 

0026 

= 

93 

r HR  EEDEG 

32,  2405 

584 

1 

584 

TIME  4 

0027 

93 

THR ES  Hi 

36  ,2o22 

40 

1 

7 39 

T IM  E 5 

0030 

= 

93 

THR  F SH  2 

60CC 

40 

3 

74  4 

82  9 

TINE6 

0031 

= 

9 3 

T HP  FS  H3 

36,  2023 

40 

1 

739 

TI  MQG  MB  L 

21,3240 

1467 

TH  ROT  LAG 

31  ,2004 

40 

1 

781 

T IMSUBM 

00  16 

= 

1139 

THR3T0UT 

71,  2257 

781 

1 

782 

TI  MSUBO 

E3  ,1706 

r 

115 

THROTTLE 

31,2157 

779 

1 

79  8 

TITER 

E 7,  16,  13 

= 

145 

TH  R D T UP 

32,3714 

828 

2 

826 

T IX 

01,2421 

1079 

T HR T CALL 

31,  3312 

798 

2 

79  9 

TJCALC 

17,3  402 

1450 

THRUST 

0055 

= 

94 

7 

218 

887 

TJ  ETL  AW 

17, 3304 

1449 

TICK  TE  ST 

22,3430 

710 

2 

7C7 

710 

TJETU 

E6  ,1525 

= 

138 

r IC.KT  FF 

22,  3420 

709 

1 

709 

TJL A W 

17,2715 

1440 

TIC  KTPER 

22 ,341 0 

7C  9 

T J LAW  A DR 

17,  3 142 

1444 

T IG 

E 7,  1441 

143 

A 1 

200 

967 

TJNI  N 

1 7,3774 

145  7 

r I G-"1 

36,2407 

724 

2 

248 

723 

TJP 

E 6,  1524 

137 

T I 3-30 

36,2300 

722 

2 

248 

721 

T JU 

E6.1525 

= 

137 

r IG-3  0.1 

36, 2270 

721 

1 

721 

TJ  V 

E6  ,1  526 

= 

137 

T I G-3  C A 

36  ,2275 

722 

1 

721 

TJZERO 

21,  3700 

1498 

TIG- 35 

36,224? 

721 

3 

248 

720 

TL  AND 

E4 ,1426 

116 

r IG-5 

36, 2 354 

723 

A 

248 

729 

TL  I M 

06,2514 

177 

T1  SNOW 

36,3240 

741 

2 

727 

740 

TLCAD 

6502 

1010 

T IGSAVE 

F 7,  1762 

= 

147 

A 

747 

751 

T M 

F6 ,1  732 

= 

139 

T IGS  AVEP 

E7 , 1 7 6 A 

= 

147 

2 

747 

7A8 

TMANUCHK 

22,  3064 

371 

T I 3 TA  SK 

36,2566 

727 

1 

718 

TMARK 

E5 , 1 4 3 2 

= 

131 

T IGTASI  ' 

35, 3664 

727 

1 

727 

TME  XI  TL 

05  ,3720 

9R5 

n mechek 

In  ,3315 

1358 

1 

135  8 

TM  FA  IL  2 

04, 3361 

1329 

TIMECHK 

22, 3075 

371 

1 

371 

TME  I 

E6  ,1702 

_ 

139 

r IMFDELT 

13, 3667 

1215 

A 

1213 

1 2 14 

TM  I N 

34,2171 

630 

T I MED I D L 

04,3573 

1380 

2 

1380 

1383 

TMINDEX 

0336 

= 

101 

T IMEDIOR 

0 4,  3605 

1 380 

1 

250 

TMI  S 

E6.1702 

= 

139 

T I MEG M PL 

21 ,3232 

1466 

2 

14  38 

1479 

TMODE 

6511 

ido 

TIMFHOLD 

1104 

105 

A 

5 62 

582 

TMPDV 

1235 

- 

107 

13,  3 64  1 

12  1 A 

1 

1215 

TMPTOSPT 

33  ,3707 

881 

T I MEOVFL 

12  ,2311 

1169 

1 

1167 

TMRESUME 

0 5,  3722 

986 

TIMEP 

0030 

= 

978 

3 

976 

977 

TNEWA 

E7 ,1431 

142 

r IMER 

E5 , 1470 

= 

131 

TNONTF  ST 

06,2227 

1 69 

T I MFPAD 

12,3557 

1189 

1 

b20 

TNUV 

E3,  1526 

- 

113 

r IM  ESTEP 

1 1,  327? 

1227 

4 

1209 

TCBALL 

26,2140 

431 

T I MFTEST 

Cl ,3576 

129  3 

1 

129  6 

TOBALL  A 

26,21  A6 

481 

TI  ME  THE  T 

12,2732 

1177 

5 

502 

658 

TOEALLC 

26,2167 

482 

T IM  FX 

35,  3207 

665 

2 

663 

665 

TOC  ON 2 

5430 

1288 

TI  MEl 

0025 

= 

93 

25 

171 

1358 

TOF-FF 

27, 2"0n 

= 

33 

T IMF  2 

0024 

= 

93 

40 

157 

13e5 

TCF-FF1 

, 

= 

33 

r I ME2S  AV 

0314 

100 

4 

100 

13  26 

TOFAR 

25,3642 

579 
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REFS, 
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OF  LA  ST  REF. 

REFERENCE  S 

SYMBOL 

DEF 

F 

REFERENCES 

4 

226 

1119 

TOOBADF 

22,2 72A 

368 

1 

356 

4 

163 

226 

TOOBAOI 

22, 27A2 

368 

1 

357 

fl , ["* 

3 

226 

1 4 C 9 

TOOBIG 

24  ,2142 

505 

1 

504 

7 

1 39  2 

1445 

TOP  FEW 

1354 

1 1 I 

1 

1468 

TOPSEUDO 

1 7 ,25  5 3 

1436 

1 

1436 

3 

1136 

TOP  KJE  T 1 

20  ,2000 

43 

2 

1478 

l 

1136 

TORQCONS 

20,  3151 

1483 

1 

1483 

5 

6 62 

664 

TORQNDX 

F5  ,1440 

= 

132 

3 

378 

393 

..e 

1 

100  3 

TORQUE 

37,2117 

379 

l 

393 

2 

1450 

TOT  ATT  FR 

43,2167 

272 

2 

268 

272 

2 

1426 

1440 

TPAGREE 

7271 

1027 

2D 

28  D 

1385 

2 

1451 

1452 

TP  A SS  A 

E 7 , 1630 

146 

9 

200 

764 

1 

1444 

TPDVL 

6622 

10  12 

1 

1C  12 

1 

1 4 4 1 j 

TPER  TI  C K 

22,3460 

710 

1 

710 

1 

1455 

TP  IP 

E7,  1624 

= 

I 53 

5 

153 

787 

18 

137 

1 A 5 8 

T PI  POLO 

E7  ,1554 

= 

153 

3 

153 

787 

19 

138 

1A97 

TPL  EFTN 

40,3210 

441 

3 

426 

441 

3 

1399 

1A43 

T PMODE 

10,3615 

1386 

1 1 

589 

1182 

2 

1498 

TPREV 

E5  ,1761 

= 

129 

3 

1186 

1187 

6 

20  7 

92A 

TP  SL  1 

4404 

470 

6 

4 30 

441 

1 

1 68 

T PUSH 

00  ,3272 

1068 

1 

1l  68 

3 

362 

1090 

TR  *GL**P 

23,3556 

1249 

1 

1249 

4 

369 

37  2 

TRACE1 

40, 3273 

449 

TRACE  1 S 

40  ,3304 

449 

4 

131 

385 

TRACKBI T 

4747 

= 

69 

14 

285 

1304 

T RACKFL  G 

0031 

= 

69 

6 

292 

70  3 

2 

1329 

TRANSM1 

E4  ,1400 

= 

120 

2 

120 

39  1 

9 

357 

358 

TRANSPO  S 

22,2326 

361 

l 

356 

2 

639 

TRANSTM 

E7  ,1662 

= 

152 

3 

152 

503 

4 

984 

TRANS4 

17  ,2352 

1434 

1 

1431 

10 

139 

356 

TRAPEOP 

E6,  1430 

133 

1 1 

133 

1413 

1 

529 

TRAPEDQ 

Efc  ,1431 

= 

133 

6 

1399 

1414 

2 

673 

TRAPEDR 

E6, 1432 

= 

133 

6 

1399 

1414 

1 

856 

TREDES 

E7  , 1666 

= 

154 

3 

789 

799 

TREDE  SCI 

31  ,3665 

820 

2 

747 

TRG*NRSM 

23,3671 

1251 

5 

257 

959 

1 

167 

TRG*S  MNB 

23  ,3656 

125  1 

1 

584 

12 

1 1 3 

123? 

TRIG1 

23,3331 

124  0 

1 

1240 

1 

481 

TRIG? 

23,  3342 

1240 

l 

1240 

2 

4 82 

TRI  MACCL 

31  ,2000 

39 

1 

796 

1 

482 

TRI MOON E 

01,2330 

301 

1 

768 

1 

1289 

TRI MG I M ft 

27,3216 

767 

1 

30  1 

1 

1260 

TR  I PA 

E 5 ,1664 

= 

130 

5 

130 

1142 

2 

47 

127? 

TRK  FI  CDIJ 

06, 3070 

191 

2 

191 

1 

579 

TRKFLON 

460  1 

5 34 

2 

533 

610 

JCKER 

CR  ERASE 

ANYWHERE 

MD  MULTIPLY 

DEFINED 

XX 

MI  SCELLANEOUS 

TROUBLE 
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SYMBOL 

DEF 

H 

REFERENCC  ! 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OEF 

H 

R EFERENCE  S 

_ , , n 

1 - 

1 , , 

1 - 1 - 

TTF/8CL 

31,  2717 

, 

-j  n f 

, -7  ^ , 

1392 

TRMTJ  ACK 

3C;  1 3 

292 

2 

268 

6C5 

TTF/8TMP 

F7  ,155? 

= 

153 

5 

153 

787 

T6J0BCHK 

L 7 , 20  5 5 

13Q2 

l 

1393 

T R MT  P A K 1 

42, 205* 

292 

I 

292 

TTFDI  SP 

E 7, 1475 

= 

151 

4 

151 

81  8 

T6NFXT 

E6  ,1466 

13* 

12 

226 

1445 

M JF  360X 

12,  3172 

1 1 82 

1 

1181 

TTFSC  ALE 

47*D 

= 

920 

U = S C AX  IS 

27, 2134 

490 

l 

490 

T RUNRQ 

26,3113 

594 

T TO 

F 4,  1657 

= 

122 

* 

122 

837 

UAXDI  ST 

0141 

s 

1493 

2 

1490 

149  1 

TUJNNCMD 

1351 

I 1 1 

3 

543 

559 

TTOAX  IS 

E6 , 1 7 * 1 

= 

137 

10 

1452 

1455 

UA  XI  S 

20, 3322 

1486 

TRUNVAR 

EA,  1*1  I 

116 

1 

5S5 

T TOGO 

E7.1453 

143 

28 

160 

843 

UCSM 

E7, 1 636 

= 

152 

3 

152 

502 

TRY  GTS 

17  ,2623 

14  37 

1 

14  3) 

TTPT  I G 

1271 

108 

2 

321 

566 

UDR 1 

0135 

= 

1493 

2 

1490 

149  1 

TRYSWS 

25,  2*52 

551 

1 

548 

T TP  I 0 

E 7,1637 

146 

3 

621 

6 26 

UDB3 

0 140 

= 

1*93 

TRYUOR V 

16,2753 

1417 

1 

1*18 

TURN  IT  ON 

35,  3734 

734 

1 

734 

UDB  4 

0137 

= 

1*93 

2 

1490 

1*91 

T S C AL  I NV 

*75  0 

= R20 

1 

8 1R 

TIJRNOFFR 

16,  2724 

1*17 

1 

1 4l  6 

UJFTCTR 

E5  ,1  767 

= 

141 

1400 

1497 

T SENSE 

17,2176 

1431 

1 

1*31 

TURNON 

17,315* 

1*44 

ULC 

F 7,  1723 

= 

1 4Q 

8 

1*9 

598 

TSIGHTl 

14,3154 

935 

1 

933 

TURNJNFL 

0302 

= 

87 

ULL  AGFLG 

0314 

= 

89 

2 

231 

7 29 

TSKOVCDR 

01,3522 

1123 

1 

112  3 

TVEC 

0032 

= 

1237 

4 

1225 

ULL  AGOFF 

36,2561 

726 

1 

248 

TSLCTCC 

30,  3603 

913 

1 

913 

TWEEKI  T 

0050 

= 

1194 

4 

1173 

11  87 

ULLGNOT 

35  ,2327 

722 

5 

717 

122 

TSLC 

7630 

1035 

l 

1302 

T W ELV  F 

5752 

= 

1472 

3 

8C4 

1469 

ULLGTA  SK 

36  ,2350 

723 

3 

246 

732 

TSLCI  OOP 

• 

1043 

1 

1 043 

TWIDOLE 

52  04 

11  10 

27 

380 

1313 

ULOS 

64, 1701 

= 

119 

6 

662 

670 

TSLCTFST 

i(  , 2 7 ' 7 

lr.43 

1 

1 J 4 3 

33,  3763 

1 

TSLC  2 

00,2172 

1043 

1 

1035 

TWC 

4752 

= 

1090 

10  7 

37 

1493 

UMPAC- 

00,3162 

1065 

2 

1065 

T SN  EX  TP 

16,  30  1* 

1418 

4 

14  17 

14  18 

T WOP  I 

35  ,3646 

679 

5 

620 

668 

UN 

E5 , 1 5 7 3 

= 

129 

9 

129 

1190 

17,2226 

143  1 

TSN  UMRRT 

17,2216 

14?1 

1 

1*34 

TXC 

E7 ,1653 

= 

156 

832 

842 

UND  ISP  ? 

32,3463 

810 

TSSL 

00,  210  l 

n 4( 

3 

1 0 3 H 

1 T A 7 

TX789 

E 7, 14  71 

= 

149 

3 

149 

11*8 

UNFC/2 

E6  ,1652 

= 

140 

21 

1 40 

90  1 

TSSR 

C 0,2025 

1 038 

- 

T STAB 

*0,  3 7 C 0 

*78 

1 

479 

TYPF  POLY 

1 7,3263 

1**5 

2 

1446 

UNFVL  IM 

30,  37  51 

917 

1 

911 

T STARTS? 

E4,  1575 

= 118 

7 

344 

709 

T 1T0T2 

E4, 1643 

119 

6 

119 

6 39 

UNF  VX/2 

E6  ,16  6 6 

= 

140 

TSTCON  1 

41,3721 

476 

l 

47  5 

T2  A 

30,3003 

= 

948 

1 

838 

UNF  VY/2 

E 6 , 1670 

= 

140 

3 

903 

904 

r s T CON 2 

* 1 , 37  2 2 

476 

1 

475 

T2TE  ST 

30,2446 

838 

2 

838 

8** 

UNCVZ/2 

E6 , 1 5 7 2 

= 

140 

3 

903 

904 

TSTC0N3 

41  ,3723 

476 

1 

* 76 

T2T0T3 

E 4,  1645 

1 19 

5 

321 

639 

UNI  T 

00  ,3023 

1061 

2 

id:  4 

1 390 

T STF8ANK 

27,  ?232 

737 

73  7 

- 

TST  FORDP 

41,  2515 

421 

1 

420 

T3RPTBB 

4057 

160 

1 

159 

UNITDV 

00  ,3151 

1065 

3 

1063 

TSTLTSL 

41 ,3674 

475 

1 

47  5 

T3RUPT 

0 1,  3412 

1119 

2 

159 

160 

UNI  TSOBL 

E7,l  516 

= 

151 

2 

766 

879 

TSTLTS  2 

41,  3725 

476 

I 

475 

T3RUPT2 

01  ,3417 

1119 

1 

1120 

U N ITNORM 

0 4,  3126 

1179 

1 

1179 

TSTLTS3 

4 1 ,3732 

476 

1, 

476 

T4JUMP 

06, 2116 

1 6 5 

2 

164 

UNI  TX 

23  ,2515 

10Q1 

10 

37 

1091 

TSTI  TS4 

40,3531 

458 

1 

477 

T4RPTP.B 

*?6* 

160 

1 

159 

UNITY 

23,2513 

1091 

4 

37 

772 

TSTOP  E 

1C08 

1 

ICC  8 

- 

2 

1 61 

162 

23,25 1 1 

37 

TSTPOI  NT 

23  ,3762 

12  53 

T4RUPT 

06,  2000 

161 

2 

159 

160 

UNKNOWN 

( 007 

199 

TSTRLSRM 

1 3,  257  3 

1130 

1 

1130 

T5ADR 

1263 

108 

6 

159 

1*79 

UNP36 

E 4 , 1605 

= 

120 

3 

696 

TSTRT 

E7 , 161  1 

= 145 

3 

286 

698 

T CTFMP 

0061 

= 

1*1 

1 

1407 

UNRM 

E4 ,155  1 

= 

119 

7 

663 

672 

TTEMP 

E6,l 7C6 

= 139 

8 

370 

373 

T6  ADR 

40  55 

160 

1 

159 

UMSUSPF  N 

40,3537 

458 

1 

458 

T T r/R 

E7,  1642 

= 153 

18 

153 

E 6 7 

T6FURTHA 

E6  ,1  470 

13* 

1 1 

1392 

1*45 

UNV  FC 

E7,  1543 

= 

145 

5 

645 

646 
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SYMROL 

DEF 

H 

REFEPENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

J NW  C/ 2 

E6* 1660 

= 

140 

10 

140 

SC3 

UPPAR  T 2 

04,3374 

= 

1377 

1 

1376 

USEVF 

33  ,3144 

866 

1 

866 

UNWC  LOOP 

31 ,325C 

797 

1 

797 

UPP ART  3 

0 4,  3566 

= 

1 38C 

USPRC  A 0 R 

47  13 

991 

7 

816 

1249 

J NWC TEST 

. 

91  1 

2 

904 

UPFOS 

7563 

1034 

1 

10  34 

UT 

E7,  1672 

147 

10 

147 

755 

J NX  / 2 

0000 

1 40 

7 

80  1 

9 11 

UPP  SV 

24,  2374 

509 

2 

5 07 

519 

UTI  MF 

21  ,361  7 

1497 

UN  Y/2 

0006 

= 

140 

1 

904 

UPPSV1 

24,2414 

509 

1 

509 

UV 

0154 

= 

1494 

7 

1486 

1493 

JNZ/2 

00  14 

= 

140 

8 

903 

SC4 

UPPSV3 

24,2446 

509 

1 

509 

UXV  ECT 

£7,1717 

= 

148 

7 

148 

604 

UN22 

C 6 ,2313 

171 

1 

172 

UPP  SV  4 

24,  2427 

509 

1 

510 

UXVECTPR 

C01  4 

= 

605 

3 

602 

UPAC  Tf >FF 

C 4, 3771 

1 3 f 4 

2 

13  82 

13  84 

UPPSV5 

24  ,241  1 

509 

1 

509 

UYVECT 

E 7 , 1725 

= 

148 

6 

148 

6 04 

J PBUFF 

1 17  3 

= 

106 

31 

106 

1383 

UPRP  TRB 

4G6G 

= 

160 

1 

159 

UYVECTPR 

0 0 22 

= 

605 

2 

60  2 

UPCOUNT 

1172 

= 

106 

7 

106 

1378 

UPRPT  1 

04,  3322 

1328 

1 

1328 

U7 

1024 

= 

1237 

1224 

1226 

UPOAT  BIT 

4 74  5 

= 

69 

1 

515 

UPRUPT 

04,3304 

1328 

1 

159 

U IPOS 

22,  2250 

359 

1 

359 

J PDAT  EVG 

36.3611 

747 

2 

743 

748 

UPSTDRE 

04, 3524 

= 

1379 

1 

1378 

U2 

E5  ,1711 

= 

129 

5 

129 

1189 

UP  DA  TF  2 

*'4,2  'TC 

= 

28 

2 

1215 

1377 

U PSU  M 

1247 

= 

107 

3 

107 

1328 

U2P0S 

22,2224 

359 

1 

359 

UP  DAT  FI  G 

0027 

= 

69 

10 

292 

676 

upsvflag 

E3 ,1  501 

= 

1 1 3 

8 

l 

12  16 

U3P0S 

22,2274 

360 

1 

360 

UPOAT  I ME 

42  ,2o  1 6 

280 

1 

280 

UPTEMP 

1 166 

106 

1 1 

106 

1382 

IP  DA TNM 

41, 2347 

417 

3 

447 

462 

UPTEST 

04  ,3365 

1329 

1328 

— 

UPOAT  OFF 

43,  30  50 

294 

1 

269 

UP  THROT 

32,3643 

826 

V(CSM) 

E3 ,1723 

= 

114 

4 

70  1 

857 

UPOATOK 

04 » 3400 

1377 

1 

1377 

U PT  HROT  1 

32,  3650 

826 

l 

827 

V-OTHER 

E 3 , 1 723 

114 

6 

114 

326 

UPOAT RET 

0117 

= 

97 

3 

417 

4 18 

UPTMF  AST 

06,2676 

184 

1 

187 

V/SC 

7636 

1036 

1 

1002 

UPOAT  VB 

41,2367 

4l7 

10 

40  9 

462 

UP VERB 

1171 

= 

1 C 6 

7 

1 06 

1300 

V/SCOV 

0?  ,2750 

1059 

3 

i:  58 

IJP  DA  T 1 

41,2374 

418 

2 

4 17 

451 

UPV  EK8SV 

1165 

106 

2 

1376 

1377 

V/SC  1 

7644 

1036 

1 

1036 

JPONL  1ST 

' 5, 2424 

= 

199 

up  ver  i r y 

04,3467 

1378 

3 

1373 

1379 

V/S  C2 

00,2654 

10  5 7 

1 

1C  36 

UPOTC  ALL 

22  ,3206 

373 

1 

37  2 

UPVRFYNV 

04,  3523 

1379 

1 

1 378 

VAC  0 SP 

10  ,2660 

1350 

1 

1350 

updtmend 

42,2032 

280 

UPWAKE 

04,3560 

1380 

VAC  FOUND 

01,2624 

1097 

5 

1097 

J POT  P HAS 

475  6 

= 

1379 

1 

1380 

UP  1 

E 4 , 1 6 5 1 

119 

12 

1.19 

646 

VAC  RLEAS 

5165 

1096 

1 

8lG 

UPEND  70 

(.4,3727 

1383 

1 

1330 

UP21 

4362 

= 

1379 

1 

1378 

VAC  STOR 

07,2520 

264 

1 

262 

J P EM  0 7 1 

r 4,  3636 

1381 

1 

138Q 

UP  70 

4755 

= 

1376 

1 

1376 

VACT  1 

F7, 1471 

145 

4 

148 

640 

J PEN072 

*' 4 , 367' 

1 382 

1 

1380 

UP  7 1 

4753 

- 

13  76 

1 

13  76 

VACT2 

F7 , 1 5 1 3 

145 

3 

634 

646 

UPEND  7? 

C4 , 3542 

1379 

UP7? 

4752 

= 

1376 

1 

1376 

VAC  T 3 

F 7, 1543 

145 

13 

145 

692 

) PENT  2 

10, 3526 

1 362 

4 

1352 

1357 

LP  73 

6257 

= 

1376 

1 

1376 

V ACT 4 

E7  , 1 5 6 5 

145 

6 

1 46 

634 

UPF  RR  OR 

• 

1377 

UP 

0000 

= 

497 

1 

496 

VAC  1 

0401 

101 

UPFPROUT 

4,3764 

1384 

4 

1377 

1 383 

UR  A T FO  IF 

F6 ,1426 

= 

134 

5 

1435 

1437 

VAC  1ADRC 

05,3365 

23C 

1 

228 

J PFI  AG 

5515 

1363 

77 

272 

1 380 

URP 

0006 

= 

497 

2 

4 96 

V AC  1 US  E 

0400 

10  1 

4 

228 

1097 

UPF  NO  VAC 

04,3550 

138* 

1 

1379 

= 

JPJOA 

04,  3555 

13  80 

l 

1380 

URRFCT 

E 5 , 1 646 

- 

1 29 

129 

1170 

VAC  2JSE 

0454 

101 

3 

22  8 

1097 

J PLIM 

12,3277 

1 Ifl  5 

1 

1 184 

UR  1 

E 5,  1721 

= 

129 

1 1 

129 

1190 

VAC  3 

0531 

101 

UP L DA  ON  V 

04,3522 

13  79 

2 

137  7 

1378 

USEADD 

41,2132 

413 

l 

413 

VAC  3USE 

0530 

101 

3 

228 

1097 

JPLCCR  IT 

4750 

= 

79 

3 

1328 

12  2 9 

L SEC  0 S 

30 ,3640 

914 

1 

9 1 4 

V AC4 

0608 

ic  1 

UPLOC  KFL 

0 1 64 

= 

79 

USE  GTS 

33,  3440 

871 

VAC  4 USE 

0604 

101 

3 

228 

1097 

jomnsvco 

4, 3214 

1216 

1 

1215 

LSE  JETS 

33  ,3476 

072 

4 

871 

872 

VA  C 8 

1C1 

1 

101 

J PNEG 

7573 

1034 

1 

1034 

USEMA  XOT 

13,3333 

1208 

1 

1209 

VAC5USE 

0660 

10  1 

3 

220 

1097 

UPOK 

■ 4,3344 

1 328 

USE  PIOS 

l i,  3 

1202 

1 

1202 

VAD 

6763 

1 01  7 

1 

1002 

J POL DMOO 

1170 

= 

106 

5 

10ft 

1382 

USEQRF  LG 

0304 

= 

88 

V ALMIS 

37,  2263 

382 

l 

393 

UPOUT 

04  ,3715 

= 

13g2 

8 

1216 

1 .‘84 

USEGRJ TS 

4 7 36 

= 

88 

6 

747 

1479 

VALTCHK 

33  ,3201 

867 

3 

865 

867 

IJPOUT  4 

r 4 , 3 71  6 

= 

1 -»79 

3 

1377 

1378 

LSERPR  ID 

0 163 

= 

136  1 

3 

1 348 

1350 

VAL  67 

05,2043 

53 

3 

976 

9 77 
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SYMBOL 

OFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

H 

REFERENCES 

124 

VD8 

79 

V A P PG  * 

V tR  I FL  A G 

<J  APFGX 

£5,  HI  A 

= 

124 

1 

124 

VOEF 

OC,  32  32 

1068 

1 

1004 

VERIFY  MK 

07  ,2436 

262 

1 

262 

VAPFGZ 

L5,142' 

= 

124 

1 

124 

v r g 

F5,  1412 

= 

820 

1 

793 

VERROP 

E6, 1751 

= 

135 

J APP  FC 

E 7 , 1309 

= 

145 

2 

662 

665 

VOG  VE  RT 

E 7 ,1745 

= 

155 

5 

155 

887 

V ERTOISP 

32,  34 7P 

8 1 C 

V ARArAR 

25  ,2 040 

49  9 

1 

498 

VDG  2T  T F 

E 5,  1432 

= 

820 

1 

791 

VERTDRFT 

37  ,2231 

381 

VARALAFM 

5745 

1372 

4 

186 

1321 

VD1 

4360 

469 

15 

229 

1090 

VERTSK  IP 

37,2534 

388 

1 

388 

V ARDEL AY 

5235 

1110 

8 

170 

13C1 

VE 

E 4 , 16  55 

= 

122 

6 

122 

837 

VEX 

£7,1742 

147 

3 

7 40 

758 

VARI  ANCE 

F 5 , 1 706 

= 

130 

12 

130 

1 141 

V EARTH 

E 5,  1706 

= 

127 

6 

127 

°54 

VF  A I L 

33  ,3622 

875 

2 

865 

«/att 

0^06 

= 

1237 

23 

577 

1214 

VFC  AGREE 

00 ,3910 

1050 

4 

1057 

1390 

V FA  1LR  IT 

4736 

= 

84 

V ATT1 

0024 

— 

1237 

14 

215 

790 

VFCANIG  1 

26,  241  1 

491 

1 

490 

VF  A I LF  LG 

0246 

_ 

84 

2 

865 

875 

VBAD 

25,351 3 

570 

1 

568 

VECANG2 

26,2413 

49  2 

1 

490 

VFL  AG 

0062 

= 

72 

4 

929 

932 

7 RCOARK 

43,  2 177 

273 

l 

268 

VECLE AR 

27,2043 

489 

1 

489 

V FL  AGBIT 

4 742 

= 

72 

V BF AN  D I R 

A 1 ,2173 

4 14 

1 

4 1 4 

V ECO  FANG 

22, 2723 

367 

2 

367 

VF  L SH  B I T 

47  5 2 

86 

1 

v3,  i i S 

25,3135 

563 

1 

563 

VECPNT1 

27  ,2032 

489 

1 

527 

VFL  SHFLG 

0262 

= 

86 

2 

865 

875 

V RPROC 

AO  , 3473 

456 

5 

415 

464 

VECPNT2 

27,2035 

489 

1 

409 

VG 

E7  ,1706 

147 

6 

147 

757 

VBRF  LDSP 

40 , 3521 

45  R 

1 

403 

V EC PO I NT 

27,  20  40 

489 

3 

345 

482 

VGA  I N* 

27  ,2455 

757 

1 

766 

/ 

40,  3516 

457 

1 

41  5 

VFC  PT 

2 7,2000 

= 

33 

1 

488 

VGRODY 

F 7 , 1501 

= 

151 

11 

151 

837 

V BRFG* 

E5  , H 3 2 

= 

124 

2 

124 

8 20 

V EC Q TEMP 

E 6,  1724 

= 

139 

4 

489 

491 

VGDIS  P 

E7  ,1663 

= 

146 

4 

319 

757 

VBlFG  X 

E5 ,141  2 

124 

2 

124 

820 

V ECS  GN AG 

10,3754 

1390 

2 

216 

VSPRE  V 

E 7, 1700 

147 

9 

247 

762 

V BP  FGZ 

Ec,  IMA 

= 

124 

1 

124 

VEC  SHI F T 

23,2437 

693 

3 

632 

645 

VGT  IG 

E7,  17  00 

= 

147 

11 

H7 

759 

vbpofxec 

4 1 ,3526 

455 

1 

4 15 

V FCTA8 

F4, 1522 

= 

117 

8 

117 

1235 

VG  U 

E7  ,1626 

= 

15  3 

B 

153 

793 

VB  R 0 WA  I T 

4 I , 355? 

456 

1 

41  5 

V EC1 

E6 ,1645 

- 

140 

8 

140 

973 

VGVECT 

E 7 , 1645 

= 

156 

6 

156 

83  7 

V BS  PI  L C 

41, 3056 

435 

2 

432 

433 

VEC  2 

E 6, 1653 

= 

1 40 

6 

961 

973 

VHY 

006  3 

= 

155 

5 

894 

895 

V8SP2LO 

41  ,305  7 

435 

2 

432 

434 

VEFUPBIT 

4744 

= 

68 

VHZ 

0065 

= 

155 

7 

894 

895 

J BSP  2L  D ■ 

40, 3520 

457 

l 

456 

VEHUPF  LG 

0026 

5 8 

13 

29  3 

1147 

V HZ  C 

E7,  1745 

155 

8 

155 

81 1 

V RS  Pi  LC 

4 1 ,3060 

4 35 

1 

432 

VELBI AS 

E 5,  UOO 

= 

124 

2 

124 

865 

VI  GN 

E5  ,1456 

= 

124 

2 

124 

773 

VR  TER  M 

40 , 35C 1 

456 

2 

415 

463 

VELCONV 

21,7003 

43 

2 

893 

V I N I T 

F 4 , 1721 

121 

9 

669 

752 

J BTSTLTS 

41,  3653 

475 

1 

415 

VEl DAB  I T 

4745 

85 

2 

569 

865 

V TNJNOM 

34,3451 

832 

1 

8 30 

VB  UF 

n 1 2 2 

97 

7 3 

97 

1493 

VEL  PATA 

0255 

= 

85 

VINTER I T 

4751 

= 

72 

VBZFRO 

43,2126 

271 

1 

268 

VELLOS 

0016 

= 

578 

2 

504 

577 

VINTFL  AG 

0071 

= 

72 

27 

243 

1232 

V BD4N12 

26, 2121 

345 

1 

344 

ve  l s: 

37, 3101 

394 

1 

390 

VIPRIME 

E4 ,1727 

121 

7 

658 

765 

VB05NC6 

15,3445 

973 

1 

967 

V ELU  PD  AT 

33,  30  31 

865 

VJE  t:  TR 

E 6,1770 

= 

141 

2 

1 400 

1416 

V B0  5N09 

5006 

= 

922 

3 

933 

S68 

VERB 

40,2343 

407 

1 

403 

VLAUN 

E 5,  15 10 

= 

132 

5 

391 

392 

V 80b  Nl  8 

26,2122 

346 

1 

345 

VERRF  AN 

4 1,  2160 

4 1 4 

7 

4 1 3 

4l6 

VLAUNS 

E5  ,1  462 

132 

V3C6N  SB 

37,2472 

386 

1 

386 

VERBMASK 

4144 

136  1 

1 

1346 

VL  IGHT 

25, 3703 

610 

1 

6]  0 

J B56CADR 

60  30 

60  5 

1 

6C5 

VERRNOUN 

E 7 , 1 6 1 5 

145 

4 

628 

678 

VL  ITE 

475  1 

= 

611 

2 

610 

884 

V36N5 

H » 3 320 

939 

1 

9 38 

VERBR  EG 

LOGO 

10  3 

22 

229 

466 

VLOAD 

6517 

1010 

1 

1002 

VB64 

43,2667 

285 

1 

268 

VERBSAVF 

1040 

103 

3 

413 

454 

VLOAD* 

6121 

= 

1 09C 

1 

1 009 

VB67 

3 1 » 20  0 0 

= 

34 

1 

6C6 

VF  R B TA  B 

41,2176 

4 1 4 

1 

4l4 

VLOAOCOO 

4735 

= 

1090 

1 

1009 

VR67A 

30,201 

= 

34 

1 

638 

VERR37 

04,  2000 

= 

28 

1 

231 

VMA  X 

E 4, 1405 

116 

1 

599 

B97DEX 

4765 

= 

731 

1 

72  8 

VERB69 

43,2037 

268 

1 

268 

VMEAS 

E7,  1652 

= 

154 

4 

154 

865 

V B99DEX 

4760 

= 

731 

1 

724 

VERB  85 

43, 3226 

304 

1 

269 

VME  ASCHK 

33  ,3024 

864 

5 

861 

875 

v:  V 

E 3 , 1 542 

= 

113 

21 

1 13 

1230 

VERB96 

43,3205 

30  3 

1 

269 

VMODE 

6533 

1010 

2 

1032 

1068 

J CVCSM 

F 3 , 1614 

1H 

1 

591 

VERCRI  T 

E 5,1531 

= 

125 

2 

125 

800 

V MOON 

E5,  17  22 

= 

127 

8 

127 

977 

VCVLEM 

E3  ,1666 

114 

2 

509 

591 

VER  IFBIT 

4751 

= 

79 

1 

1379 

VN 

1225 

107 

9 

20  1 

1211 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

F 

REFERENCES 

V NC  UN 

43,3123 

2 96 

l 

295 

VST  ORE 

6455 

100  8 

V05N09 

5006 

1087 

6 

619 

1370 

VN DSP  COM 

40, 3347 

45  1 

1 

451 

VSL 

6761 

U 17 

1 

1002 

V96 NO  5 

24,  2747 

516 

1 

5 1 4 

VNLDRCOU 

43  ,2262 

275 

1 

275 

VSURC 

E 3,  1756 

= 

1 15 

3 

502 

V06N07 

10  ,3461 

1360 

VNLiDCDU 

43,2233 

274 

2 

2 74 

286 

V SUN 

E5  , 1 7 1 4 

— 

127 

7 

127 

977 

V 06N  1 L 

35,2415 

62  9 

1 

6 19 

VNLODDT 

42,  2034 

280 

1 

280 

V SURF  ACE 

E 7,1707 

= 

154 

8 

1 54 

895 

V06N13 

35,2416 

6 29 

1 

625 

VNLODGYR 

43  ,2366 

278 

1 

278 

VTAPGET 

E5,  1702 

= 

129 

4 

129 

1188 

V06N16 

32  ,2172 

216 

2 

214 

VNPLANV 

954 

1 

953 

VTARGTAG 

E5 ,1701 

= 

129 

5 

129 

1188 

V06N16N 

04,2763 

697 

1 

696 

V NPOOH 

35, 3627 

678 

13 

612 

674 

VTIG 

E 7,  1647 

= 

146 

7 

146 

755 

V06  Nl8 

26  ,2262 

48  3 

2 

* 81 

482 

VN061 1 

35,2065 

619 

1 

620 

VT PRIME 

F7 , 1565 

= 

146 

4 

658 

685 

V06N22 

50 1 C 

1087 

4 

493 

Q65 

VN064  1 

27,  2473 

386 

1 

378 

VUPDAT 

33  ,31 13 

955 

1 

866 

V06N33 

35,  2032 

613 

1 

612 

VN0655 

35  ,212c 

6 20 

1 

6l9 

VUPDATED 

33,  3200 

867 

V06N33* 

24  ,2367 

508 

1 

53  1 

VN  1 

E 7, 15  50 

= 

151 

9 

151 

1214 

vv/sc 

7641 

1336 

V06N33A 

30,3015 

848 

l 

829 

VNl 645 

35, 3523 

675 

6 

613 

6 E 6 

VVARM1  N 

E 3 , 1 7 73 

1 1 5 

. :.1 

591 

V36  N3  4 * 

15,2213 

922 

2 

920 

966 

VN2 

E7  ,1656 

= 

154 

3 

154 

VV  COMP 

21, ?1 31 

885 

3 

8P4 

V06N37 

35  ,3640 

679 

3 

620 

657 

V OK 

26,  2670 

591 

1 

591 

VVEC 

E5  ,1743 

= 

129 

15 

129 

119  1 

V06N42 

35,2033 

613 

1 

612 

V OK  1 

26, 2731 

592 

1 

592 

VVECTX 

E 7,  1726 

— 

155 

1 7 

1 55 

894 

VO  6 N4  3 

24  ,3530 

652 

1 

652 

V0K2 

26,2733 

592 

1 

592 

VVFCTY 

E7 , 17  30 

= 

155 

8 

155 

895 

V06N43* 

34,342  5 

778 

1 

777 

VONE 

F 4,  16C5 

= 

1 18 

10 

119 

126C 

VVEC  T Z 

E7  ,1732 

= 

155 

R 

155 

894 

V06M48 

0 1,  2342 

301 

2 

300 

301 

VdNF' 

E4  ,1560 

=_ 

117 

3 

1260 

12fc6 

VVXSC 

741  6 

103  1 

V06N4  9MB 

24  ,2750 

516 

1 

5 16 

VOPENFD 

C 6 , 3 23  1 

198 

1 

197 

VXBEAMNB 

34  ,232? 

41 

V06N5  1 

42,3773 

497 

1 

49  6 

VP  ASS  1 

E7,  150  5 

145 

fc 

145 

6 4C 

VXINH 

02  50 

= 

84 

2 

866 

876 

VOS  N5  5 

35  ,3641 

679 

2 

620 

677 

VPASS2 

E7  ,)5?7 

145 

5 

145 

645 

VX  IN  HB  IT 

4740 

_ 

84 

1 

866 

V06N58 

35  ,3642 

679 

1 

658 

V 0 AS  S 3 

F 7,  1557 

145 

8 

6 36 

6 92 

VXM 

7351 

1029 

1 

1002 

V36N59 

35,  3643 

679 

1 

674 

V PASS  4 

E7, 1 506 

= 

1 48 

2 

658 

668 

VXM/MXV 

7354 

1030 

1 

1029 

VOS  No  0 

32  ,3525 

812 

1 

810 

V PD 

0000 

= 

932 

VX  RCM 

E7, 1 703 

= 

148 

3 

148 

604 

V06N6 l 

36,3145 

735 

1 

731 

VPDVL 

66  C 5 

1012 

vxsc 

7413 

1331 

1 

1002 

V06N63 

31,  3671 

821 

2 

799 

VPPREC 

F7  , 1 5 2 7 

- 

145 

2 

662 

665 

VXSCAL 

33,  2010 

42 

V06N64 

31  ,3672 

821 

2 

799 

800 

VPRPJ 

7437 

1032 

1 

100? 

VXV 

7472 

1333 

2 

100  2 

1256 

V06N71 

07,2617 

266 

V P AT  F D I F 

E6, 1427 

= 

134 

3 

1436 

VYBFAMNB 

34,2014 

4 1 

VOSN7  2PV 

24  ,3220 

521 

1 

520 

VRECT 

F 3 , 1 51 0 

= 

113 

11 

113 

1230 

VYSCAL 

3 3,  2006 

42 

V06N75 

35  ,24  17 

629 

2 

621 

626 

/RECTCSM 

E 3,  1562 

114 

2 

832 

574 

VZBE AMNR 

34  ,2036 

41 

1 

865 

V36N76 

30,  30  14 

848 

1 

830 

V RECT  L EM 

E3,1634 

114 

VZ  SCAL 

33,  2004 

42 

1 

865 

V06  N79 

15  ,2472 

952 

1 

951 

VRIGH T2 

T %2242 

1045 

1 

1 ( 45 

VO 

0005 

= 

932 

V06N79* 

97,2620 

266 

1 

2 67 

VROTATEX 

74  3 2 

1031 

3 

1041 

1 C 6 3 

VCCN25 

6010 

= 

216 

V06N8  1 

35,  3644 

679 

2 

612 

673 

V ROUND 

7152 

10  23 

6 

103  1 

ir  3 2 

VOON  34 

4242 

= 

216 

V06N84 

13  ,2334 

705 

2 

733 

VSCAl  E 

32,2201 

216 

l 

215 

VO  l N1 4 

32  ,2170 

216 

V06N87 

14,3774 

948 

1 

948 

VS  ELECT 

E7 , 1462 

= 

144 

10 

20  8 

676 

VO  IN  2 5 

10,3460 

1 3 6 C 

2 

1349 

1351 

V06N9  7* 

07  ,23  3 1 

260 

1 

253 

VSE  LF  C T 

0131 

= 

125 

3 

866 

VI  1NI46 

20, 2112 

299 

1 

298 

V06N89* 

14  ,2477 

925 

1 

92  5 

VSHRPND 

, 2073 

1 ^39 

4 

1041 

1 C 77 

V01 N70 

1 4,3773 

948 

1 

947 

V06N90N 

04,  2764 

697 

1 

697 

VSHR2 

00,2060 

10  3o 

1 

In  39 

VO  IN  70* 

15,  2471 

952 

1 

949 

VO 5 N93 

14  ,3246 

937 

1 

937 

VSO 

CO, 3245 

106  8 

1 

100  4 

V01N71 

07,2330 

260 

1 

253 

V06N94 

30,3013 

848 

1 

84  1 

VSQSUB 

00, 3317 

1 0 69 

3 

1061 

i c 6 e 

V04N06 

10,3464 

1350 

1 

1351 

V06N99 

31,2143 

608 

1 

606 

V SSL 

CO  ,2145 

If  42 

3 

10  4 1 

1047 

V 04N  1 2 X 

43,  2641 

284 

1 

282 

V06N99DS 

31  ,2024 

606 

l 

606 

VSSR 

C n , 2 1 2 7 

1041 

1 

1045 

V04N1272 

23  ,2337 

277 

1 

276 

V06N9933 

31,2051 

606 

l 

606 

VST  IL6AD 

25, 3514 

570 

1 

569 

VC5N00M1 

10,3477 

1361 

1 

1354 

V064  7 

3 1 ,2  341 

30  1 

1 

300 
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SYMBOL 

V 1 
VIS 

J 1ST02S 
Vi  6 N2  0 

V 1 6N  4C 

V 1 5 N44 
V16N45 
/ 16NS4 

V 1 6 N542f 

V 1 6N  5 6 
V16N63 
V 1 6 N6  6 

V 16N6  7 

V 1 5 N7  2 
V16N70 

V 16N8' 
V16N85  B 

V 1 6N B 5C 
V 1 6 3 3 
M2 

V 3 


DEF 

30 1 4 
r 7, 1600 
io,  3b:  ? 
14  ,3215 
?fc,  375  1 
22, 3317 
35,3645 
40, 3753 
24  ,2373 
ui ,201 7 
14, 2437 
43  ,2637 
43,  2 64C 
43,  2635 
43,26^6 
24,  3 3 3 7 
36  ,3752 
34,3564 
36,  375.3 
OC  22 
0030 


SYMBOL 


DEF 


932 
151 
13P5 
936 
749 
70S 
679 
698 
5C8 
304 
845 
284 
284 
2 84 
284 
525 
749 
845 


152 

370 

936 

740 

708 


5f  5 
304 
644 
?R3 
283 
28  3 
283 
524 
722 
845 
745 


7 11 


43,  3212 
31,2007 
31,2110 
0 160 
4744 
31,2102 
3 1,  2120 
30,204? 

, 3723 
43  ,3725 


V 6 7 

870  V67CALL 
1 243  V67CLKF 
V6  7FL  AG 
V67F  LBI  T 
/67SURF 
V67WW 
V67XXX 
V7CUPDAT 
V71 UPDAT 
V72UPOAT  43,3727 
V73UP  DAT  43,  3731 
V74  43,3034 

V 62CALL  22,  3242 
V82C0N  43,  2742 
V82E  MR! T 4752 

V 8 2EM  FL  G 0166 
V82FLAGS  F4,1530 
VP2G0FF  22,3247 
V82G0FF1  22,  3321 
V82G0F  LP  2 2 ,3267 


303 

506 

507 

78 

79 
607 
607 

508 
1376 
1376 
1376 
1376 
293 
707 
288 

79 

79 

118 

707 

708 
707 


REFERENCES 

268 
30  3 
607 
6C6 

607 
606 

608 
268 
268 
2 68 
268 


SYMBOL 


DEF 


WAITLIST  5214 

WAITMASK  10,2761 
WAIT  POOH  0 1,3525 
607  WAI  TTEMP  0064 


7C9 
1 18 

707 
7C7 

708 


WA  IT2 
WAKFCAD 
WAKECADR 
W AK  EPL  AY 
WAKER 
WA<  ESTAL 
WAK  ETEST 
1376  WANG  I 
WAN  GD 
WANGT 
WANTAPS 
W BANK 
714  WCALC 
710  WCENTRAL 
WCHPHAS E 


01,3234 
00  ,3774 
10,3472 
10,  3025 
00,3766 
13,3461 
01,3050 
E5  ,1  436 
E5, 1434 
E5  ,1440 
36,2324 
26,  3333 
22  ,2746 
E6, 1742 
1346 


WCHPHOLD  E 7 ,16  21 
W DA  GA  IN  41,  3443 


111G 
135? 
1123 
06 
1113 
1366 
1 36C 
1353 
1365 
1210 
lip  2 
132 
132 
132 
722 
590 
369 
136 
110 
153 
451 


REFERENCE  S 

41  170  1313 

1 1352 

1 1113 
3 1118 

2 1110 
1 1365 
3 1352  1353 
1 1358 

1 1366 

2 1209  1210 

1 110  2 
1 379 

1 379 

1 132 

1 718 

1 597 


1461  1462 
725  087 


V 37 

C 4 , 2 940 

234 

2 

303 

455 

V82GUNI 

22,3  503 

7 1 1 

2 

711 

712 

WDRET 

0115  = 

97 

7 

449 

452 

V 37BAD 

G4, 2067 

224 

1 

239 

V82G0N2 

22 ,3536 

71  1 

1 

711 

W EARTH 

26,  2020 

54 

1 

1137 

0 1 6 2 

1 

V37FLR  I T 

4 74  6 

= 79 

4 

235 

1371 

V82 PEP  F 

43  ,2734 

288 

I 

269 

WHA  TALM 

31,2404 

785 

1 

792 

V37KLEAN 

< 5,  2666 

221 

2 

237 

1271 

VF2RED SP 

22,3475 

711 

1 

71  1 

WHATOISP 

31  ,240  1 

785 

1 

799 

239 

235 

7C7 

3 1 ,?  37  7 

786 

1 

7Q6 

V 37N99 

t, 

23? 

1 

232 

V83CALL 

37,3262 

S 98 

1 

698 

W HAT GU  ID 

31,  237  l 

7e4 

1 

791 

V37QCAC 

C 4,2376 

240 

1 

238 

V83PERF 

43,  2744 

288 

1 

269 

WHA  TOUT 

31  ,2324 

702 

V37RE  T 

C4.212 2 

235 

1 

874 

V89  CALL 

26,2024 

344 

1 

289 

WHCHREAD 

1353 

1 1 1 

6 

111 

594 

J 37XEQ 

< 4,  2342 

239 

1 

240 

VPSC ALL1 

26,2074 

3 45 

1 

345 

WHFRETO 

31,2202 

780 

V37XEQC 

04  ,2371 

240 

V PSP ER  F 

43,  2752 

289 

1 

269 

WHI  CH 

E7  ,1  455 

143 

30 

249 

872 

V4  IK 

14,3556 

944 

828 

1 

824 

V 4 3 K 

43,  2733 

287 

l 

286 

VSCPERF 

43,2761 

289 

1 

269 

WHICHRAD 

25  ,3202 

564 

1 

564 

V47TXACT 

43,2376 

279 

1 

268 

V 97  NOO 

10, 3523 

1361 

1 

1356 

WHI  MPER 

5645 

1370 

3 

874 

1372 

/ 50N00 

10,  3462 

1360 

l 

13  56 

V99RECYC 

36,2776 

-=  731 

1 

718 

WHOCARES 

E 7,  147  1 = 

144 

4 

494 

1350 

V53  NOO A 

32,2171 

216 

WHOLFCON 

42  ,3542 

443 

3 

442 

V 50N  1 6 

32,21 73 

216 

1 

215 

W 

E5, 1400 

124 

34 

124 

1232 

WIDEDB 

20,2152 

1396 

1 

1395 

V 5 ON  ? 5 X 

43,  264? 

284 

1 

282 

0130 

10,3206 

13^6 

3 

1348 

1352 

V50N4  8 

C l ,2342 

= 30  1 

1 

30  1 

WA  ITA8  IT 

36, 2562 

726 

5 

717 

719 

WI  XA 

1315 

109 

6 

109 

1146 

V SOP  A STE 

10,3204 

1356 

1 

1356 

WAIT  ADR 

0063 

= 96 

3 

1 110 

1114 

W IXB 

1316 

109 

3 

1144 

1146 

V59GP63 

25,  3604 

574 

l 

271 

WAI  TRANK 

0062 

96 

1 

1113 

WLINIT 

26  ,3253 

597 

3 

589 

598 

V6N34 

24,3631 

652 

1 

650 

W A IT  RB 

5231 

1110 

2 

1110 

1120 

WLOOP 

12  ,3013 

1180 

l 

1180 

V 6N99PR3 

21,  20  3 2 

6C6 

1 

606 

WA  I TE  X F T 

0061 

= 96 

7 

1110 

1365 

WLSRFPOS 

26,  3276 

597 

1 

597 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

R EFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

H _ S R FV  EL 

26.J3J3 

597 

l 

597 

XO  SPF  LAG 

0112 

74 

1 

2U 

Y COMP 

27,3333 

847 

3 

625 

836 

WM 

E4 , 1 7 1 5 

= 

6 

123 

869 

X I 

00  30 

= 

1192 

7 

1 167 

1 186 

YCONS 

F4  ,1  737 

= 

122 

3 

122 

840 

WMATEND 

11, 3661 

1233 

L 

1231 

XKC  P 

E3  ,1552 

= 

113 

3 

113 

1 2 3 C 

YDC 

F5, 1672 

= 

126 

5 

126 

1245 

43,  3066 

295 

1 

269 

E 3 , 1 6 24 

114 

E4 , 1 7 ' 1 

- 

122 

5 

122 

839 

WORKTI  MF 

16,2624 

1415 

1 

1415 

X K E PL  EM 

E 3,  1676 

114 

YDCITD 

E4 ,1665 

= 

122 

3 

122 

836 

4 0 ZERO 

0 5,  3614 

984 

2 

983 

S8R 

XKE  PNEW 

E4 , 1 52  0 

= 

117 

3 

117 

1218 

Y DOT L EM 

E4,  1573 

= 

118 

3 

1 18 

696 

W PLAT  I 

E5 ,1560 

= 

132 

XMAX 

0012 

= 

1192 

9 

1 L6  6 

1169 

YLEM 

E4  ,1571 

118 

9 

1 17 

696 

WPL  A TO 

E 5 , 1 464 

= 

132 

XM  IN 

30  14 

= 

119? 

6 

1 166 

1 169 

YL  I M 

E 5,  1550 

= 

125 

2 

125 

825 

WPOSTDRF 

26, 3300 

597 

1 

597 

XMKR  UP  T 

07,2410 

252 

1 

262 

YMKRJPT 

, 7,2414 

262 

1 

261 

WRENDPOS 

E4  , 1 40 0 

1 16 

3 

120 

607 

XNB 

E 5,  1664 

- 

126 

12 

370 

1385 

YNB 

E 5 ,1672 

- 

126 

6 

379 

1242 

4 R ENDVEL 

E 4,  1401 

116 

2 

597 

6C7 

XNRADR 

37  ,2476 

386 

1 

378 

YN BP  IP 

E 4 , 1 544 

= 

117 

3 

1 1 7 

789 

WRIT  FP 

5755 

13  93 

6 

139  2 

1443 

XNBEC  ADR 

10,  2035 

1254 

1 

1254 

YNBSAV 

E4  ,1527 

= 

119 

5 

119 

97  2 

WRI  TEU 

5761 

1393 

1 

1443 

XNBPIP 

E4,  1536 

= 

117 

10 

117 

904 

YOK 

32,3614 

82  5 

1 

625 

W P IT  EV 

5772 

1393 

1 

144  3 

XNBPI  PAD 

33  ,3743 

982 

1 

856 

Y RAT  E 

E4, 1743 

= 

122 

5 

122 

840 

WRTOES  IR 

15  ,3  Ip  1 

962 

1 

962 

XN  BP  AO 

E 4,  1621 

= 

119 

4 

1 19 

882 

YREG 

1003 

1 03 

3 

433 

442 

WSHAF  T 

F 4 , 1 4 r ? 

116 

2 

597 

6 07 

XNRRADAD 

33  ,3744 

103 

2 

103 

442 

WS  IZE 

26,3441 

599 

1 

557 

XORFLRI  T 

4743 

= 

85 

1 

858 

YSCREF 

E7 , 1 6 1 4 

= 

152 

1 

755 

WSTOR 

. ' 

867 

3 

8 5 6 

X OR  FL  G 

0253 

= 

85 

1 

859 

YSM 

E5  ,1650 

= 

126 

4 

126 

1242 

WSU?FPOS 

E 4,  1406 

116 

2 

597 

6C7 

XCVI  NF  LG 

0311 

= 

88 

6 

231 

088 

YSMD 

E 7,  1614 

= 

152 

6 

152 

9 74 

WSURFV  El 

E4,l 40 7 

116 

2 

59  7 

6C  7 

XOVINHIR 

4743 

= 

88 

2 

901 

1418 

YS7ER0 

07,2  177 

258 

1 

258 

WTABORT 

o 1 , 3366 

1116 

1 

1114 

XPREV 

F 3,  1552 

= 

1 13 

2 

1167 

1170 

YUNI  T 

12,2002 

1092 

2 

37 

959 

4 TL  ST  2 

C 1,  3377 

1118 

8 

1115 

1116 

XRANGE 

F7 ,1642 

= 

156 

5 

156 

830 

YV 

1 125 

106 

1 1 

106 

1233 

WTLST4 

nl  ,3263 

1 1 14 

1 

1118 

XR  EG 

1002 

103 

1C 

310 

436 

YZCHK 

07,2171 

258 

1 

257 

W TL  ST5 

Cl, 3313 

1115 

1 

1113 

XREGLP 

1005 

10  3 

3 

406 

436 

WTLTCADP 

4362 

= 

1297 

3 

1293 

1256 

XROT 

2 6,2374 

49  1 

1 

491 

Z 

0005 

= 

93 

25 

309 

1370 

WTR  UN 

E4  , 1 40  3 

116 

2 

593 

607 

XSCREF 

67,  1606 

= 

152 

3 

755 

Z ACCDOT 

20  ,2755 

1478 

1 

1 4 7 H 

4 VFI.  STOP 

26,  3315 

597 

1 

597 

XSM 

E5  ,1642 

= 

126 

23 

126 

1242 

ZAPTJ 

21,  3601 

1497 

l 

1497 

WW  BI  AS 

E4 ,1675 

= 

1 18 

1 1 

323 

6 C 8 

XSMADR 

3 7,  24  7 7 

7ATTER0R 

20  ,2164 

1396 

12 

290 

1435 

WWPOS 

E4,l 571 

= 

1 1 R 

16 

118 

608 

XS  MO 

E7 , 1 606 

= 

152 

16 

1 

974 

ZAXI SI 

E 5 , 1 5 74 

= 

126 

5 

836 

843 

WWV  El 

E4, 1573 

= 

1 18 

10 

119 

6ce 

X SQC  ( XI  ) 

0034 

= 

1192 

5 

1 169 

1175 

Z DC 

E5,  1 7 00 

- 

126 

• 5 

126 

1245 

XSTORE 

01,  2352 

1078 

3 

1078 

ZDOT 

E4  ,17  03 

= 

122 

3 

122 

836 

X 

0024 

= 

1 1 6 2 

22 

1 166 

! 1 81 

X SU 

' 1 ,2415 

1079 

1 

100  3 

Z DO  TO 

E 4 , 1667 

= 

122 

6 

122 

846 

< AD 

l,  24 P 4 

1070 

1 

1001 

X TRANS 

17,3112 

U43 

3 

1433 

1441 

ZDOTDCMP 

34  ,36  14 

846 

1 

836 

X A T 2 

1 1 *2407 

1079 

2 

1079 

X UN  IT 

12,  2004 

1C  9 2 

5 

37 

1224 

ZERLINA 

E 7 , 1 5 46 

- 

153 

6 

153 

813 

xchnylo: 

• 

1356 

1 

1352 

XXXALT 

E7 ,1670 

147 

3 

690 

ZERO 

4755 

1086 

333 

163 

1498 

< CHQADD 

10,3016 

1363 

1 

1352 

XYMARK 

F 7,  1551 

- 

149 

18 

149 

94  9 

ZERC/SP 

23  ,2517 

= 

6C5 

1 

579 

XCHSI  EEP 

10,2765 

1352 

1 

1353 

XI 

0046 

= 

94 

70 

259 

1388 

ZERDAN  S 

00,3376 

1070 

2 

1070 

X CHTtJ  END 

If  , 3223 

1356 

3 

1348 

1352 

X2 

0047 

= 

94 

29 

49  5 

1261 

ZFRDDP 

12,2006 

= 

1092 

XCHX 

01  ,2376 

10  79 

1 

100  3 

X 7 89 

E 3,  1700 

114 

6 

203 

1148 

7FRDFNBL 

16  ,3200 

1422 

2 

142  1 

1422 

< DC 

E5, 1664 

= 

126 

12 

126 

1245 

Y 

E 4, 1725 

= 

122 

6 

122 

847 

ZEROICDU 

5470 

1298 

4 

1 7 1 

1300 

XDELVBI T 

4744 

= 

70 

Y AW 

E 4,  1753 

= 

122 

3 

122 

831 

ZEROING 

37  ,2367 

384 

2 

378 

388 

XOELVFLG 

0045 

= 

70 

6 

61  2 

757 

YAWANG 

E 4 , l 5 73 

= 

120 

2 

495 

496 

7 ER  0 I NG  1 

37,  237  1 

384 

1 

384 

< 01  F F 

l >,  2163 

1167 

YAWDUN 

3r, 2222 

831 

1 

831 

ZFRCLQUP 

21  ,3520 

1471 

2 

147  1 

XDSPRI  T 

4 76  3 

= 

74 

1 

1 343 

YCC 

E7 , 1632 

= 

156 

6 

156 

839 

7ER0MID 

31,3543 

818 

3 

793 

794 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCE  S 

SYMBOL 

DEF 

F 

REFERENCES 

l FROMPAC 

31 , 3537 

817 

2 

809 

810 

l/WLDDP 

12,3151 

1182 

1 

1182 

ZFPONDX 

E5,  15  7 1 

= 

13? 

11 

378 

288 

.25356 

20,3104 

1482 

2 

1476 

1477 

1 /I  0 

J 1 ,2345 

3C  1 

1 

299 

7FR00 

?3  ,251  7 

= 

1148 

0 FRANK 

43,  3340 

1277 

1/1US 

4753 

= 

1434 

5775 

1393 

1/  10SEC 

ZEROPLUS 

2(  ,30 20 

1480 

1 

1480 

06SFC 

23,  2317 

529 

i 

52  8 

1 /2  OEG 

31  ,3637 

819 

1 

9 18 

'FROTJ 

17,2  7.2  0 

1437 

07400  PICT 

16,3616 

1429 

1 

1417 

1/200DP 

33, 3764 

883 

Z EPOV  EC 

12,  200  6 

109  2 

13 

37 

1236 

1/40 

16  , 36  23 

1429 

4 

1 4 1 1 

1413 

l ERCIVFCS 

23  ,2517 

1 ' 9 1 

1 P 

37 

1 148 

1 .2SP0T 

0 I* 2P  16 

246 

4 

246 

250 

1 /6TH 

14  ,3772 

94  8 

1 

947 

l CRT VH7C 

32, 35C  1 

811 

3 

802 

8C  8 

1 .3SPCT 

"1  ,2'  2 4 

246 

1 

246 

1 R I TOP 

26,2415 

492 

- 

1 146 

1.  5 SEC  S 

26,3716 

1 

601 

1 Rl 

12  ,2004 

1139 

1 

1 129 

7 I LCH 

31  ,2332 

782 

1 

78  1 

l ,5S  POT 

0 1,  20  27 

246 

IDE  C 70 

21  ,2033 

822 

l 

884 

7 IX  A 

1317 

109 

4 

1144 

1 146 

L-CSTH 

E5  , 1 733 

= 

129 

4 

129 

1185 

10EC7  1 

21,  20  34 

822 

1 

884 

Z I X B 

13  20 

109 

4 

1 144 

1 146 

1-30KF  T 

33,  3754 

882 

1 

85  9 

1DEGDR 

21  ,2032 

82  2 

l 

e2  2 

l N3 

E 5, 1700 

= 

126 

6 

379 

1 242 

1 / .03 

4733 

= 

1494 

3 

I486 

1488 

1DPB  2 

34,2147 

6 3 0 

2 

631 

633 

ZNBP  IP 

E<*,  1552 

= 

1 17 

l 

90  4 

l /ACCFI  X 

06,3244 

198 

1 

197 

1 DP  82  8 

34,2151 

6 30 

2 

631 

636 

— 

119 

210 

9 7? 

1/ACCJOR 

21, 3555 

1474 

2 

198 

1395 

1 JACC 

E 6 ,1  R3r 

137 

10 

137 

148  5 

ZONE  1 

17,3615 

1454 

2 

1451 

1 454 

1 /ACCCNT 

20  ,3235 

1485 

2 

1477 

1479 

1JACCC0N 

20, 3216 

14  84 

1 

1483 

Z0NE2 

17, 3606 

1454 

i/a::re  t 

20,3675 

1491 

2 

1479 

1491 

1 JACCQ 

E6  ,1531 

= 

137 

6 

1459 

1483 

ZONE  2 ,3 

17,3602 

1454 

1 

1451 

1/ ACCS 

20, 2463 

1474 

2 

873 

1474 

1 JACC  R 

E 6,1532 

= 

137 

6 

1459 

1483 

Z0NF3 

1 7,  3610 

1454 

1 

1454 

l / ACC  SET 

21  ,3550 

1474 

1 

1399 

1 J A CCU 

66, 1533 

= 

1 37 

12 

1477 

1489 

ZONH  LIM 

E6  , 1 5 5 5 

= 

1 3fi 

1 

1454 

1/AC3AST 

Efc, 1572 

= 

13a 

l 

145  1 

1 0VSQPT2 

42  ,3774 

497 

2 

495 

20,3766 

14  94 

E6 , 1 5 5 2 

= 

1493 

2 

1486 

1R  EV 

12, 2073 

1165 

1 

1165 

7 ON  FA 

17, 3427 

1451 

1/ACOSTT 

0127 

= 

1493 

5 

1487 

1492 

1 S EC 

4777 

1087 

15 

276 

944 

7 ONE  A-  ,5 

17,3416 

1450 

1/ ANET 

0 160 

= 

1494 

7 

1488 

1492 

1 SE  C + 1 

43  ,2644 

284 

2 

281 

283 

Z0N1 ,2,3 

17, 3575 

1453 

1 

145  0 

1/ANETP 

E 6,  1550 

= 

1493 

5 

142  3 

i486 

1 SECXT 

E5  ,1572 

= 

132 

2 

388 

389 

7 OHM 

35,3675 

727 

4 

247 

728 

1/  ANET  1 

E6,  1566 

= 

138 

13 

138 

149  1 

isec  20 

27 ,2672 

761 

1 

760 

= 

76 

- 

961 

2 

96  1 

973 

ZOOMFLAG 

0122 

= 

75 

2 

723 

727 

1/ AT  EM  1 

0123 

= 

1493 

22 

1489 

1493 

1 ST0R2ND 

10,3164 

1355 

1 

1355 

7 TOM  TI MF 

F 7 , 1422 

142 

5 

247 

796 

l / ATEM2 

0 124 

= 

1493 

4 

1488 

1489 

IS TO TWO S 

16,2256 

1410 

3 

140  9 

1410 

Z PR  IM  E 

DO  26 

= 

128 

7 

1238 

1 2 2 S 

1/D  VO 

E 7,1570 

= 

156 

2 

834 

1 S T 02  S 

ID  ,3576 

1385 

3 

378 

951 

7.  RES 

1CC4 

1 03 

3 

413 

442 

1/OV  1 

E 7 , 1634 

= 

156 

5 

156 

834 

l TO  2&  TC  Q 

30  ,3  636 

914 

2 

914 

l REGLP 

100  7 

1 C 3 

2 

103 

442 

1 /()  V2 

E7  ,1636 

= 

156 

5 

156 

834 

1T02SUB 

10,  36  26 

1386 

6 

1385 

1386 

0015 

93 

2 

14  16 

_ 

10,11 

21  ,2102 

1 

RR4 

Z SCREF 

E 7 , 1 622 

= 

152 

l 

755 

1/GYRO 

06,  351  5 

338 

3 

333 

340 

10SEC  S 

32,3722 

828 

1 

842 

ZSM 

E 5,  1656 

= 

126 

2 

126 

1242 

1 /MU 

0016 

= 

1192 

4 

1165 

1184 

100/37  27 

31,  2357 

783 

1 

782 

ZSMD 

= 

152 

5 

152 

574 

1/NETM  IN 

20,  3724 

1492 

2 

1489 

1492 

100CS 

33  ,3746 

= 

848 

2 

840 

l SPfP 

15,2421 

951 

1 

95  U 

1 /PI  PA 

06  ,3271 

331 

3 

390 

958 

100MRUP  T 

7741 

= 

161 

Z'JNIT 

12, 2000 

1092 

4 

37 

12  2 7 

1 /P  I PADT 

1074 

1 04 

10 

171 

95  7 

100  PC.TTO 

36  ,20  14 

38 

1 

825 

1133 

- 

1 06 

8 

1228 

1 233 

1/P  IP  A 1 

0 6,  3 300 

331 

110 SP I N 

40,3435 

453 

4 

408 

450 

7 ITEM 

013  1 

= 

1493 

4 

1489 

1490 

1 /ROOT  MU 

0022 

= 

1192 

5 

1165 

1175 

12DD 

23,  3244 

1148 

1 

1146 

7123 

23,2541 

1140 

1 

1 1 4 1 

1/RTMU 

27,  2030 

47 

120  MRU PT 

06  ,2041 

163 

1 

166 

Z 123C0MP 

17,3561 

1453 

3 

1451 

1453 

1 / RT  MU  E 

22,2002 

45 

2 

708 

711 

120MS 

5752 

= 

187 

7 3T  EM 

0152 

= 

1493 

1 

1485 

1 /RTMUM 

22  ,2000 

4 5 

1 

711 

13-11,  1 

41, 3772 

477 

1 

476 

25  T EM 

0132 

= 

1493 

4 

1488 

1489 

l/SQK  3 

15,  2570 

954 

1 

953 

13,14,15 

7752 

1089 

5 

287 

1407 
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S Y MBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

K 

REFERENCES 

13,7.,  2 

4615 

534 

2 

19  1 

533 

2 ROUND 

40, 3220 

441 

3 

439 

44C 

34DEC 

4242 

463 

2 216 

463 

1 BODE  G 

35,  3662 

6 79 

1 

656 

2SEC(  17) 

30,3003 

34  8 

1 

848 

35  0 EG 

15,  2774 

95e 

1 955 

U r 1 1 , 9 

06,2171 

1 66 

1 

163 

2SEC  ( 18) 

33, 3746 

882 

1 

84  8 

360  —C  DU 

40  ,261  4 

424 

2 424 

439 

1 4M  S 

17,3136 

= 

1434 

6 

1433 

2 S EC  (9  ) 

1 4 06  AL  M 

31,  3648 

8 19 

2 

785 

2SECDELY 

00,3735 

1355 

2 

283 

516 

360-CDUO 

40, 26  12 

424 

1 423 

1 406  POO 

31  ,364  1 

8 1° 

1 

785 

2SECS 

5000 

1087 

7 

574 

1365 

360CHFCK 

12  ,3122 

1182 

2 1180 

15/16 

12,3771 

1236 

1 

1224 

2 SECS (9 ) 

32  ,3526 

8 12 

l 

806 

360LAMB 

12,3473 

1187 

1 1184 

1 5 ADRERS 

f l,  2433 

10  80 

7 

10  78 

Ice2 

2 STAR S 

15,3041 

961 

1 

973 

3 6 0 S W 

'206 

= 81 

3 1180 

1102 

1 5BI  TAOR 

6264 

1000 

l 

10  06 

2 V EX  HUST 

E7,  1742 

= 

758 

360SW8I  T 

4753 

= 81 

1 50f MFC 

24,  275  1 

516 

2 

508 

516 

2 VI STC2S 

1 6 OCT 

30,3563 

912 

1 

912 

20.  5DEGS 

25,  2563 

553 

1 

553 

17TO2  0 

43,3642 

1281 

20  J 

33,2025 

46 

1 

878 

4.  1 1SP0T 

01,2107 

248 

1 ROPEGS 

31, 3636 

9 19 

1 

813 

2 OMR  UP  T 

7743 

= 

155 

3 

163 

166 

4.1  3SP0T 

01,21  12 

248 

1 PC  MESS 

27 ,3122 

765 

1 

764 

20SEC 

32,  2176 

216 

1 

215 

4.  1 5 SPO  T 

01  ,2115 

248 

180  SET  UP 

26,3633 

747 

1 

74  7 

200  MS 

16  ,3621 

1429 

2 

1415 

4.17SP0T 

01,2120 

248 

2C1P04 

43,2643 

284 

1 

2b2 

4 .2  S POT 

Ol  ,2070 

247 

1 246 

2.  OSPT 

04,2132 

235 

21/22RFG 

01  15 

= 

97 

3 

403 

478 

4.2  1SP0T 

01,2123 

248 

2.1  IS  POT 

: 1,  2043 

247 

25/32 

7730 

= 

1429 

1 

1424 

4 . 2 3S  POT 

01,  2126 

248 

2 . 11  S PT 

04,2133 

235 

25KFT 

33,  2035 

84  8 

1 

842 

4. 25S  POT 

01  ,2131 

248 

2.  1 3SP0T 

Cl  ,2046 

247 

2 50  DEC 

24,2362 

508 

2 

50  7 

4.  27SP0T 

01,2134 

249 

2 . 1 5SPPT 

If  20  5 1 

247 

2 5CM S+  1 

4 766 

= 

284 

1 

283 

4 . 3 S POT 

01,2076 

248 

1 246 

2 . 17SP0T 

Ol  ,2054 

247 

27TD30 

43,  3650 

128  1 

4.  31  SPOT 

01  ,?1  37 

249 

2 . 2 SP  0 T 

■ 1,20  16 

= 

24  6 

1 

246 

4.  33SP3T 

01,2142 

249 

2 .2  is  per 

( l,  2057 

247 

3.  2 SPO  T 

01,2016 

= 

247 

1 

246 

4 .35S  POT 

01  ,2145 

249 

2. 3SPCT 

C 1,203? 

246 

1 

246 

3 .3SP0T 

0 1,  2062 

247 

1 

246 

4.  37SP0T 

01 ,2150 

249 

2. 5SP0T 

v.  1,  2035 

247 

3 . 5 SEC 

27,2674 

761 

1 

760 

4 .5SP0T 

< 1,  210  1 

249 

2 . 7S  PCT 

01,2040 

247 

3.  5SP0T 

C 1,  2065 

247 

4. 7 SPOT 

01  ,2104 

248 

2.  7 SP  T 

C 4, 2 134 

235 

1 

235 

3/32 

2/PGCDUW 

0022 

= 

140 

3/4 

04,3225 

12  3 6 

5 

950 

1235 

4S  ECU  7 ) 

30,  303  1 

848 

1 8 38 

2/3 

0 4 ,3235 

= 

1236 

1 

1224 

3/4  DP 

22,  3657 

821 

2 

791 

793 

4SECI28) 

33  ,3750 

882 

2/3DP 

22,3653 

821 

3/5 

12  ,3755 

1236 

1 

1224 

4SECS 

5003 

1087 

1 171 

? Bl  ANK 

40, 2570 

4 10 

6 

40  7 

466 

3/64 

12,3763 

123fe 

1 

1224 

4 0 CYC 

477  1 

= 1421 

1 1423 

2D7EPO 

12,2006 

= 

1123 

3/8  DP 

22,  3655 

821 

1 

792 

40C  YC  L 

4771 

= 1434 

1 1436 

2E  BANK 

43,  3354 

1 277 

1 

1278 

TAXI SP1 T 

4746 

75 

2 

482 

40  F PS 

27,  3331 

843 

1 843 

2 I NT  OUT 

40,276 1 

4 27 

1 

423 

3AXISFLG 

0124 

= 

75 

7 

236 

947 

62  DEG 

15,?  773 

958 

1 955 

2 J 

33,2027 

46 

1 

879 

3 CS ECS 

13,3665 

1215 

1 

1214 

49FP  S 

34, 3447 

832 

1 830 

2 J3RF/J2 

13, 20  16 

47 

2 

1225 

3J22R2MU 

13,2024 

47 

2 K 

4 74  1 

= 

1 D 9C 

3 

99  7 

1 102 

3SEC0NDS 

26, 3713 

60  5 

1 

527 

5.  2 SPOT 

01  ,2153 

249 

1 246 

2K  + 3 

4444 

472 

L 

472 

3 SECS 

5002 

1087 

5.3  SPOT 

01,2167 

249 

1 2 4h 

? NOR  FT RN 

22, 3117 

371 

2 

371 

3CDFG 

24,3440 

586 

1 

5 85 

5 .4  SPOT 

: i ,2i6i 

249 

2PHSCHNG 

5340 

1287 

11 

500 

873 

30 DEGCHK 

24,  3422 

585 

5.  50EGS 

4562 

532 

2 532 

553 

2PI  + 3 

27,  321  4 

766 

2 

764 

30KCH  K 

33  ,2454 

958 

5 .5  S POT 

0 1,  2172 

249 

2 PI/8 

26,3442 

599 

2 

59  3 

59  5 

30RDMSK 

06,  2761 

187 

1 

167 

5.7  SPOT 

01  ,21 75 

250 

2 3 I SC 

04,3026 

1 1 76 

2 

1 166 

1 183 

33  CEO 

4254 

464 

1 

464 

5/128 

04,3233 

1236 

l 1225 

2 RN  DEN  D 

. 3 

44  1 

33RDMSK 

5026 

= 

187 

2 

173 

5/P 

13,37  12 

1237 

6 12q  2 

1226 
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SYMBOL  T 

SYMBOL 

5 BLANK 
59  LA  NK 1 
5010 

5 DEGREES 
5DEGTE  ST 
5 FAILT  A8 
5MKALARM 
5SFC 
5 S FCDP 
5 SFC  S 
500  DEC 
5 OA  A Z 
5C4F 
50Al  M 
5PALPL 
50  ARM 
50ARPR 
511? 

5 UCTR 
5 26  ALARM 
526ALPM1 
5 ADD 
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DFF 


REFERENCES 


REFERENCE  S 


AO, 2525 
A0,25A6 
1,  25C  ? 
1 A ,260  1 
15,3141 
0 6,3  250 
C 7 ,2AA6 
36,  3750 
36, 3747 

27,2674 

2 A,  2370 
0022 
0006 
FA,  l A 1 2 
0016 
( A,  2002 
0000 
33,251  1 
E7,  1622 
2 A ,21  3 A 
2 A, 2120 
23,  32A2 


410 
A10 
1C  82 
92b 
962 
198 
262 
749 
7A9 
761 
5C8 
1139 
1139 
116 
1139 
46 
1139 
859 
153 
504 
5C4 
1 1A8 


2 928 

2 962 

2 197 

2 26  2 
2 721 

1 7 20 

2 760 

1 505 

3 1137 
5 1135 

3 1131 

4 1138 
1 1130 
A 1131 
l 859 

5 153 

1 577 

1 505 

1 1 1 A A 


cfc2  6.  1 1SP0T 
6 m2  SPOT 
ise  6.  3 SPG  T 
267  6 .5SECS 
723  6.5SPCT 
6.  7SP0T 
6 DC 

6F  AI  LTAB 
6SEC 

1 136  6 SEC  (18) 
1227  6SEC0NDS 
6S  CCS 
60DEC 
1133  60MIN 
60  MS 

655  6CSCNDS 
60  CMS 
600 SFC 
6C0SFC  S 


01,  2211 

01,2016 
01  ,2200 
27, 270 A 
Cl  ,2203 
01,  2206 
23,  3 2 A 3 
06,3260 
27,  2700 
30  ,3007 
26,3715 
25, 3572 
05,310' 
35,  2a 26 
A776 
2 A ,2  526 
07,  37A6 
24,3626 
13  ,2627 


250 
250 
250 
761 
250 
250 
11  48 
198 
76  1 
e48 
605 
574 
225 
629 
1434 
512 
1320 
652 
1200 


246 

246 

759 


1 1 146 

2 197 

2 761 

1 835 

1 601 

1 573 
1 220 
6 621 

2 1433 

1 512 

l 1303 

1 652 

2 246 


7/12  04,3227 

70DEC  32,3547 
77DECML  37,30  75 
770010:  T 05  ,3077 
79  D ISP  15,2445 


8SEC  S 

198  8 19  2 AUG 
82DEGS 
09SECS 
89  T EST 


31 ,2360 
07, 3546 
A 5 63 
27,2702 
AO, 21A  1 


9/16  04,3231 

9,6  ,4  05  ,3376 
90MSCALR  17,2053 
90S  ECS  06,  3005 
999.  99NM  24  ,2371 
99999C0N  32,2705 


1236 

824 

394 

225 

51 


783 

1313 

532 

761 

4(4 


12  36 
230 
572 
187 
508 
775 


388 

219 

951 


1 781 

1 1313 
1 532 

1 76  1 

2 403 


1 1224 
1 223 

1 571 

2 170 

2 504  5C5 

l 772 
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SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

OFF 

H 

PAGE 

AZ 

11  ,2350 

813 

AS  FNT5 

. 

= 

34 

CDUDANG 

E 5,  1440 

= 

131 

OELRSPL 

22,3541 

= 

37 

+ DEC99 

? 1,  3664 

82C 

A SENT  7 

2 3,2  00  r 

= 

32 

COUFI  AG 

E5 ,1461 

= 

131 

DELVTFST 

27,  2252 

751 

+ EL 

11  ,2362 

B 1 4 

ASTNCLDK 

2 2,  2636 

774 

CD  UINC 

10 ,3642 

1386 

DERCOF  + 1 

0153 

= 

99 

-AZ 

1 1,  2343 

R 1 3 

AUTflMAN  V 

26,2174 

482 

CDUNDX 

E5  ,1536 

= 

131 

DERCO  F-2 

0 150 

= 

99 

-DEC  1 0 3 

31  ,3662 

820 

AJTOMODE 

0 3D  1 

= 

87 

CDURFADF 

F 5,  1441 

= 

131 

DERC  OF -3 

0147 

= 

99 

-EL 

1 1,  2355 

814 

AUTRATE1 

4 753 

= 

89 

CDUREACI 

E5 , 1442. 

= 

131 

DERCOF-4 

0146 

= 

99 

-LOKONFG 

2 3,  20  4r 

277 

AUTR  A TE  2 

4752 

= 

39 

CD UTI  MEF 

E5.H36 

= 

131 

DERCOF-5 

0145 

= 

99 

AUTR1FLG 

0321 

= 

89 

CDIJT  IM  E I 

F 5, 1434 

= 

131 

DERC  OF  — 6 

Cl  44 

= 

99 

? 

6001 

= 

7^»5 

AUTR2F  LG 

C 32  0 

= 

89 

CHAN 

E5  ,1443 

= 

131 

DERCO  F-7 

0143 

- 

99 

AUX  FL  AG 

0147 

= 

77 

CHAN76 

0076 

= 

94 

DERCOF-8 

0142 

= 

99 

i 8DR  T 

5645 

= 

137  2 

AVEGCUT 

33,2200 

854 

CHKBIT  10 

17, 2237 

1432 

DEX2 

0144 

= 

99 

ARTT  GB  IT 

4745 

= 

82 

AVEMDB  IT 

4753 

- 

82 

CHKLIST 

05,3541 

983 

DFRNT 

40, 34  1 5 

452 

A B VA  L 

00,3201 

1066 

AV  ERAGFC 

33,  2310 

856 

CH<  SAB 

14, 3253 

93  8 

DGCHEC K 

25  ,3231 

565 

A CCOKFLG 

031  7 

= 

89 

A VF LRI  T 

4747 

= 

73 

CK  1 MJS  F 

5255 

1112 

D IDFLAG 

0020 

= 

68 

ACMODHIT 

4737 

7 o 

AC  OSABRT 

00,3723 

1077 

BADPCCT 

31,3516 

8 17 

CMOONB  IT 

4740 

= 

80 

0 L10  1 

1336 

= 

2 01 

ADDRESS 

6115 

955 

8DT0K 

27,2461 

757 

CNGL 

22  ,2400 

362 

DL  10  2 

C02  5 

= 

201 

A DRS ♦ 1 

43  ,3624 

1281 

8H  l 7. 

C 1,  2456 

1081 

CNTCHK 

07,2235 

259 

0j.L03 

E6  ,1516 

= 

2D  1 

afccai  c i 

31 ,3046 

794 

BIG  ACS 

20,3345 

1486 

CNT  RC  HK 

43,  3465 

1278 

DL  104 

F 6 , 1 5 17 

= 

20  1 

AFCOAL  C2 

3 1 , 30  5 5 

794 

BIN  3 

62  57 

= 

575 

COARFI  NF 

14,3352 

939 

DL  1 0 5 

E6,  15  20 

= 

20  1 

AFDUMP 

31  ,2155 

779 

R U I 4 +7 

, 

= 

AGS RUFFE 

F 4,  1606 

= 

1 20 

B I T8 ,9 

17  ,3140 

1444 

COG  AF  B IT 

47  50 

8 1 

DL  10  7 

1331 

= 

201 

AGS  ms  PK 

32,  20  22 

214 

8L  ANKCHK 

10,3133 

1355 

COMPMA  T 

13  ,2240 

704 

OLl  08 

1334 

= 

201 

AGSLI  ST 

05,2424 

= 

199 

BNKCFK 

43,3715 

1282 

CDNTDES2 

26, 3600 

60  2 

DL109 

1335 

= 

2 02 

AGSUP  DAT 

000  1 

= 

242 

8NK0PTN 

43,3314 

1276 

C0NV3 

42  ,3631 

49  5 

DL  1 10 

1336 

= 

2o2 

alcgkk 

37  ,2627 

390 

PRSPOT  1 

- 1,  2640 

796 

CDRFOUND 

01,2642 

1098 

OLl  11 

1327 

= 

202 

ALGOR  THM 

21  ,3045 

1461 

BRSPCT2 

31,2540 

7 3 R 

— 

20  2 

AL  inex 

26,  207  1 

344 

RR  SPO  T 3 

31,2715 

791 

CSMOKF  LG 

03  05 

= 

88 

DL  1 1 3 

0321 

= 

20  2 

ALKCG 

37  ,263? 

390 

8RSP0T4 

31,3134 

794 

CS  359+ 

35, 2422 

629 

D LI  14 

F6 ,1422 

= 

232 

ALMNT ADR 

5735 

1372 

BUSYRA  SK 

10,351  1 

1361 

CJLTRIT 

4745 

= 

72 

DL115 

E 6,  1423 

= 

2 02 

ALPHAT  RY 

21,3247 

1467 

BUTTON  S 

05,2717 

222 

CYCLSHFT 

43  ,3474 

1279 

OLl  16 

F6,  1635 

= 

2 02 

A LRM526 

24 ,2363 

508 

81  2-1 

4356 

= 

469 

========= 

DL1  17 

E6,l  636 

= 

2 02 

AL  R M ^ 27 

24,  3C f 3 

519 

P RTOB  8 

Cl  ,2471 

— 

202 

ALTROUT 

21  ,245  1 

892 

DAPLR  UPT 

E 6 , 1 753 

= 

141 

DL1  19 

0034 

= 

202 

AL  TRROUT 

21  ,242-' 

891 

C.  A0PRAPK 

0373 

101 

DBS  EL  FL  G 

0316 

= 

89 

DL  1 20 

C035 

= 

20  2 

ALTS  CAL  F 

'27  2 

= 

37 

CAL  GDI  R 

F 5, 146C 

= 

1 31 

DBS  L2p LG 

0315 

= 

89 

DL  1 2 1 

E6 , 1643 

= 

20  2 

ALTSCR1  T 

474  3 

= 

87 

CAL  CRV G 

33, 2314 

856 

DC  D U 

F 6,  1634 

= 

139 

D LI  22 

Eft  ,1644 

= 

2 D 2 

A NT  EM  F LG 

0267 

= 

86 

CA  LC  THCT 

27  ,2255 

751 

DEC-12 

12,2016 

109  2 

DL  123 

0375 

= 

202 

A OR  BS  FLG 

0 125 

= 

75 

CAL  C2B  IT 

4752 

71 

12  ,2  ->15 

1092 

OLl  24 

C 1 1 1 

- 

202 

AOSV 

F6,l 543 

= 

1 37 

CALC3RIT 

475  1 

= 

71 

0EC27 

4764 

= 

1087 

DL125 

E6 , 1 422 

= 

2 02 

APSESBIT 

4747 

= 

80 

CAL  SAM 

15,2545 

954 

0EC29 

4765 

= 

1087 

DL  126 

E6,  1528 

= 

202 

aseoxt 

E5  ,1573 

= 

132 

CDEL  F/ 2 

colfc 

= 

1257 

DEC  51 

04,3240 

1321 

DL127 

E6  ,1635 

= 

202 

A SENT2 

C7.2000 

= 

29 

CDRVE 

06 , 2 - 1 2 

162 

DEG  INS F 2 

40,  30  56 

439 

DL128 

F6, 1636 

= 

202 

AS  ENT  3 

= 

29 

CDIJANG 

E 5, 1543 

= 

131 

DEG  60 

15 ,2477 

952 

DL  1 29 

0033 

= 

20  2 
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S YMBOI 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

OL13, 

0035 

202 

1 T 

208 

-l-»  3dl 

n, 

23,3071 

Dl  131 

003  5 

= 

2 02 

PI.5  1P 

F7 ,1 751 

= 

208 

OUMPT  FF2 

27, 3626 

1268 

F DA  I Y 

F 5 , 1 73  6 

121 

DL  13? 

E6 , 1525 

= 

202 

DL5  1 1 

1356 

= 

208 

OVC  NT  S FT 

33  ,3525 

87  1 

FCAIZ 

E5, 1737 

121 

)L 2 l 

F 6, 1 516 

= 

205 

0L5  02 

0113 

= 

210 

OVMONCON 

36, 2557 

726 

FFTAG  12 

5000 

= 

28 

DL20? 

E6,  1M7 

= 

20  5 

OL  50  3 

0025 

= 

210 

OXC  RI  T+1 

0125 

= 

99 

F FI  AG13 

5000 

= 

28 

DL203 

E6 ,1  52  0 

= 

2 05 

DL50.5 

0 113 

= 

210 

D6DR9B  IT 

5752 

72 

FIG  TI  ME 

35,2765 

663 

DL  205 

1331 

= 

2C5 

DL505 

13  27 

= 

21  D 

F INALR  IT 

5756 

= 

70 

DL2D5 

1 135 

= 

205 

DL  50  6 

1300 

= 

21C 

E/BKCALL 

05  ,2  5 70 

375 

F INFK2 

53,2356 

278 

DL  207 

1336 

= 

205 

DL5C8 

E6, 1523 

= 

21  0 

F/UOBWAK 

05  ,2623 

37  7 

FIREQR 

17,2257 

1532 

Dl2G8 

0025 

= 

205 

CL  50  9 

E6,  1635 

= 

210 

E/S  W!  TCH 

05, 2605 

375 

FIPSTTMF 

27  ,3170 

765 

DL21D 

0037 

= 

205 

DL  c l l 

C033 

= 

210 

EIGHT 

8750 

= 

1090 

FLAGORGY 

32, 2555 

771 

D L 2 1 1 

0050 

= 

205 

CL512 

0035 

= 

210 

ENDBAL! 

26, 2355 

586 

F LAPBI  T 

5755 

= 

82 

005  1 

- 

D L 5 1 3 

00  3 5 

— 

OL213 

0113 

= 

205 

DL  5 1 5 

E 6,  1525 

= 

210 

ENDOAP  T 5 

53  Ol 

= 

195 

FLPCBIT 

5750 

= 

8 1 

DL  215 

1327 

= 

2 05 

DL515 

1236 

= 

210 

ENDHMSS 

52,  3615 

= 

555 

Ft  PIBI  T 

5751 

= 

81 

58  2 

8 1 

0 L2 1 6 

0113 

= 

2C5 

CL  AO  2 

117  1 

= 

212 

ENDMAR  KS 

07, 2317 

260 

F SPA  SR  I T 

5752 

= 

67 

DL  217 

E 5 , 17  6 1 

= 

205 

DL603 

1172 

- 

212 

ENDNVBSY 

08,  2687 

572 

FUNG  T 3 

21,3155 

1563 

D L 2 19 

E 5 , 1 756 

= 

205 

DL605 

0025 

= 

212 

EN  DP  INBF 

5512 

= 

573 

GDUMP1 

31  ,3312 

= 

798 

DL  30  1 

1356 

= 

206 

DL606 

E6 , 1 51 6 

= 

212 

ENDPINSI 

50  ,3735 

= 

579 

GFNM ARK 

10, 3022 

1353 

DL3*'  2 

0025 

= 

2C6 

DL6C7 

E6,  1 5 1 7 

= 

212 

ENDPI  NS2 

51  ,3775 

= 

877 

GEOI MUTT 

37 , 2C  05 

378 

DL  303 

T6,l  516 

= 

2 06 

DL6C8 

E6 ,1520 

= 

212 

EN  DRV  DDF 

5616 

= 

535 

GEDRGEK 

37,3111 

395 

DL  3D  5 

E6,  1517 

= 

20  6 

DL  6CS 

1356 

= 

212 

ENDROLL 

2?  ,3226 

378 

GEDSTRT5 

37,  30  26 

39  3 

Ol  3 5 

F6  ,152' 

= 

- 

20  ,3286 

1 8 H 5 

DL  306 

0037 

= 

206 

DL611 

1300 

= 

212 

ENOSPOCT 

50, 3556 

553 

GFTROOT 

21,3205 

1863 

DL3D7 

0050 

= 

206 

DMFNFB  I T 

5 7 A 3 

= 

75 

ENDSTEEP 

36  ,3656 

758 

GLOKFBIT 

573fe 

= 

71 

DL3C8 

0051 

= 

206 

nCALARF 

5155 

= 

1372 

EN0S50.9 

27, 2725 

762 

5 MB  LB  I TB 

21  ,3537 

1872 

DL  30  9 

0113 

= 

206 

DOA  LI  G N 

15,311 5 

962 

EMDVPUSH 

6552 

10  1 1 

GN/CCODt 

5001 

1087 

DL31  » 

1327 

= 

206 

DOOM  AO P 

C 5,  3533 

983 

EM3 2ofc 

50,3336 

550 

GOAGIN 

10,3051 

= 

1 36  D 

D 1 311 

1 30  0 

= 

2C6 

DODNCH AN 

C5  ,3601 

983 

ENGONFLG 

0 123 

— 

75 

go:  LOSE 

21  ,3527 

187? 

IDL  3 1 2 

E7 , 1560 

= 

20  6 

DDR  SAMP  2 

25,2007 

598 

ENTERDAT 

07  ,2073 

253 

goosp 

10, 2555 

1356 

DL313 

E7  ,1562 

= 

206 

DOS  H I FT 

21, 3551 

1570 

ENTER  QR 

17,  2555 

1 535 

GOD  SPR1 

10  ,2553 

1356 

DL315 

1331 

= 

2C6 

DO T I X8R 

01  ,2530 

1079 

ENT  PAS  HI 

81,2032 

512 

GODS P 2 

10,2555 

1356 

0L5D  1 

0025 

= 

208 

DP  A GP.  E F 

7267 

1027 

ERADFBI  T 

5 73  7 

= 

68 

G0GGMAPK 

10,  2506 

1355 

D L502 

F 6 , 1 51  6 

= 

208 

CFMGDE 

1 . 

1389 

ERASE  IL  1 

E 3,  1776 

11  5 

G0MARK2 

10,2337 

1355 

- 

= 

10,  ? 356 

1355 

DL8P8 

F6 , 1 5 2 : 

= 

2C8 

DPI 

CO  50 

= 

932 

ERR  TE  ST 

1 7,3  361 

1550 

GCMARS 

10,2331 

1355 

D L 505 

0113 

= 

208 

DS  KY  FLAG 

0113 

= 

75 

ETP  IB  IT 

5755 

= 

70 

GODDRAD 

25,3255 

565 

DL  50  6 

1327 

= 

208 

D TDEC A V 

36,2005 

38 

========= 

GOPER  FRS 

10, 2706 

1351 

D L5^  7 

1300 

= 

2C  8 

DUMP  ON  IC 

27, 3510 

126  1 

F&L  TOF 

5370 

569 

GOPERFS 

10  ,2626 

1359 

DL  50  8 

E7,  1560 

= 

208 

DUMPRPRA 

27  ,3556 

1253 

FAZA1 

23,2  773 

1155 

GOPERF  IP 

10,2705 

1351 
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GOP  EPF  2 1 ,?631  13*? 

' ,23 

GOXOSPR  10,2350  = 136  1 

GRP40FF  32,  3653  826 

3 SCALE  22  ,3651  821 

GTSGD+ON  21,3015  I860 

GUESS  37,  2020  378 

3UCSSBIT  4752  = 69 

GJ  ESS  1 37,  2755  382 

GUUDEN  “1 1 ,2233  8 87 

GYTPBETO  E 5, 146  2 = 131 


HFAILBIT  4737 
HIGATCHK  7 3,  320  7 
HLIGHT  75,  3655 
HMEASCHK  33,2625 


84 

ee7 

610 

861 


IC.0RK2  43  ,2222  274 

IDAD3TEM  0152  58 

I0LERET1  10,  3275  1357 

IGNALG  32,2461  772 

IGNALGRT  32,  2634  774 

I MJ  BACK  37,2005  378 

IMUFIN20  C 7 , 31  5 5 = 1320 

I M'J GOO  D C 7,  36  2 0 1316 

IMUZFR03  7 ,273  3 13rr 

INFINBIT  4745  = 80 

INTFLAG  0227  = 83 

INTOTHIS  13,2301  704 

INTVEC  F 5,  1462  = 13? 

INTYPBIT  4750  = 72 

INT7  F 5 , 1 474  = 132 

IRIGCOMP  r6. 3336  333 

I SSUP  »6  ,2321  1 7 1 

1 SSWOFF  06,2716  185 

ISWC  ALL  4700  991 

l TRf  6402  1005 

ITR  1 6371  1 OC  5 

ITRl?  6154  994 

l TR  11  6214  997 

1TR12  6146  996 

I TR 1 4 6251  999 

ITM5  6135  956 

ITR7  6 27  3 1000 

I TSWBI  T 4735  = 78 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


J AM  PRO C 
JETS  CN 

J swchbi t 

4 24  3 

17  ,3435 
4736 

463 

1451 

66 

KAOS 

16  ,2623 

1415 

KEYCOM 

04,3270 

1327 

KLEENEX 

10 ,2333 

1344 

K3SI 

22  ,2370 

362 

22,  2372 

362 

K4SQ 

22,2374 

362 

LANACONT 

21  ,240  2 

89  1 

LANDRAD 

25  ,3206 

5 f>  4 

L AS T T 1 ME 

olr 3504 

1123 

37  8 

LE  MONM 

0056 

= 

94 

L ML  S AL  0 5 

0 5,  2160 

= 

209 

LMCCNBI T 

4 74  1 

= 

83 

L3S1 

E 5 , 1444 

= 

131 

L0S2 

E5, 1452 

= 

131 

0124 

97 

L3UN  IT  X 

12,  2004 

= 

37 

LCUNITY 

12,20  0 2 

= 

37 

LOUNI  T 7 

12,2000 

= 

37 

L P AL  T FL  C 

0276 

= 

87 

LRPCSFIG 

0775 

= 

87 

25,3216 

565 

L RS24 .1 1 

26,3473 

60  l 

LR  UPT 

0011 

= 

93 

L 3 7 E L R IT 

4744 

= 

87 

LRVFLF  IG 

0 27  3 

= 

87 

LRVTI  MDL 

F 4 , 1730 

= 

122 

LUNABTT 

4740 

= 

71 

M AV  THR  T? 

32,3042 

80  3 

MANIJFB  IT 

4736 

= 

78 

MANUF  LAG 

0152 

= 

78 

MAVUSTAL 

2 2,  3067 

371 

1344 

MA  SKREG 

E5, 1534 

= 

131 

MASS  MON 

23,  2251 

855 

MOOT  A P $ 

36  ,2010 

38 

METHOD  2 

22,2216 

359 

MGl  VFBIT 

4762 

= 

76 

SYMBOL 

M ID  AV8  IT 
MI3FLBIT 
MI01FB  IT 
MKOVF LAG 
M<  V AC 
MKV  B5  2 
MK VB53 
M0DE71 
MON  IT  1 
MOONBI  T 
MRK 1DB  IT 
MR  KI  DE  LG 
MRUPTBI  t 
MRU  PT  FLG 
M U ( P ) 
MULTEXIT 
MUM 

MUNRE  TR  N 
MJNRV  G 

MWAI TRI T 
MW  A I TF  LG 
MX  MY  M Z 


DEF 

4752 
4737 
4751 
011  0 
07, 2014 
07,2612 
07  ,2611 
C5 , 3504 
41  ,3304 

4740 
4735 
0074 
4747 
0106 
0032 
5631 

13,2004 
33,2445 
3 3,  240  3 

4741 
0100 

26,2765 


251 

266 

266 

824 

445 


1237 

1370 

47 

858 

857 

73 


NBD3 
NB  PCS  PL 
N3  1N3  2 
NDCMPTST 
NEEDLE  1 1 
N EG  100 
NEG5 
NE  TZEPO 
NEW  IB  IT 
NJETSRIT 
ND.  VJETS 
NOBITS 
N0D0P07 
N3MDNL  ST 
NORF.SET 
NORF I NA  L 
N3RML  IZ 
NORMSBIT 
NDRMSC  L 
NORMT  EST 
NRMI  DBI  T 
NR M ICFLG 


06,  36  14 
37  ,2012 
23,2511 
41,  2465 
20,2350 
5203 
41,2142 
6133 
4737 
4735 
E6, 1523 
E5,  1442 
0061 
05,2173 
07,3375 
13  ,3277 
23,  2000 
4742 
16,3617 
OC, 3512 
4737 
0076 


339 

378 

37 

421 

1406 

1107 


80 
68 
137 
131 
7 1 
199 
1310 
1 208 
32 
78 
1429 
107  2 
73 


SYMBOL 

NRMNVBIT 
NRUPTBI T 
N R UP  TF  I.  G 
NS T EFR 
NTARGBI  T 
NVSRWA I T 
NVS J BCOM 
NWAI TRI T 
N W A I T FL  G 


DEF 

4744 

4750 
Cl  07 

36, 3672 

4751 
4445 
4170 
4742 

oioi 


73 


0CT00010 

ocn  2ioo 

OC  T1 0000 

OCT  1 1 
OCT20 
0CT203 
0CT21103 
OCT217 
0CT3C000 
OCT300C  2 
0CT34 
OCT  3777  a 
OCT  4 0 200 
0CT40420 
OCT  523 
0CT67777 
OMEGCALC 
OPT  AX  IS 
OPTI  0N3 
OPT N REG 
ORBW  F PIT 
ORDER  PI  T 
OTHSHIP 
OUPRCFL  G 
OUT 

OUT  GO  AV  E 
OUTLI  NK 


4 750 
06, 3137 
4737 
4320 
4747 
26,2261 
5711 
5715 
4355 
650  3 
07  ,2616 
7742 
7747 
10,3520 
33, 3760 
10  ,3517 
26,3612 
07, 2142 
1145 
E 5,  1463 
4746 
4746 
22,  3333 
0306 
13,2327 
33, 3544 
0057 


239 
193 
225 
1 C86 
735 
483 
1371 
1371 
225 
1090 
26  6 
1089 
1089 
1361 
883 
1361 
603 
255 


94 


P-PATE  16,2510 
PA1AM30  35,2021 
PERFCHFK  10,3136 
PHI  0024 

P HSR  R 1 F 3,1437 
PHS  8R2  F3,  1 44  1 

PH  SB  8 3 E 3 , 1 443 


1413 

612 

1355 

529 

112 

112 

112 


JOKER  OR  ERASE  ANYWHt  RE 


XX  MISCELLANEOUS  TROUBLE 


MC  MULTIPLY  DEFINED 


AP: 
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JVUEFFRENCFD  SYM9 

OL 

LI  STI  NG  , 

I NC  LUDI  NG 

DEF  I NI  TI 

CN, 

. HEALTH, 

£ PAGE  OF 

DEFINIT  ION  . 

SYMBOL 

DEF 

F 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYM30L 

DEF 

H 

PAGE 

SYMBOL 

OFF 

H 

PAGE 

H SRB  4 

F 3, 144 5 

112 

F20  LMWTl 

24,2317 

507 

ROT  EL  8 IT 

4746 

= 

82 

SC  L NORM 

17,3141 

1444 

P HS  BB  5 

F3,  1 A A 7 

1 1 2 

P20S2 

25,2000 

= 

32 

RPAD1 

23  ,2335 

= 

1 272 

SO 

22, 2366 

362 

PHSBB6 

F3  ,1451 

112 

p 30  N - 3 

35,2004 

612 

RP3FLBIT 

4735 

= 

79 

se:  AD 

22  ,2027 

356 

P HS  NAM  FA 

E3,  1 A44 

1 12 

P 4 1 M A N L 

36,3214 

740 

RRDATAFL 

02  77 

= 

87 

S EL  FSUPR 

40, 2000 

= 

36 

PH  SNA  ME  6 

E3  ,1  450 

1 12 

P41  NCRM 

36,3324 

742 

RRNRB  IT 

4746 

= 

67 

SENSEGF  T 

17,2146 

1430 

PHSPRDT5 

1063 

104 

P52E 

15,2121 

92  0 

P.RRSFL  AG 

0300 

= 

87 

SEPVOUT 

33,  3518 

873 

PHS  PRDT6 

106  5 

104 

05  2v 

15,  2 153 

921 

R UPDA  TFD 

33  ,3o23 

864 

SETCTR 

21 ,3575 

1496 

3 I NBRi'B  I T 

4 746 

= 

74 

P5  7 A 

15,3347 

966 

RVSWB  IT 

4743 

= 

78 

SE  TI  NFL 

05,2745 

222 

271 

10, 25?7 

1348 

P I PA  SC  FY 

E3  ,145  5 

112 

P63 ZOOM 

35, 3700 

727 

R 12STUFF 

34, 2000 

= 

34 

SETPRI 0 

10  ,2511 

1347 

5 IPASCFZ 

F3, 1457 

112 

P66 I NH 

32  ,2727 

801 

R21LFM1 

24, 301 6 

518 

SFTXFLAG 

27,3312 

= 

843 

PI  PCJR 

1055 

= 

104 

P 66R EL 

32,3207 

806 

R2  1 LE  M 1 2 

24  ,3073 

519 

SETXT  ACT 

43,2105 

269 

PI  PSDfNP 

33,2166 

854 

P7?  I NIT 

32,355 1 

825 

R2  1L  FM  3 

24, 3025 

518 

SF  C ON  ST  1 

F5 ,1467 

= 

131 

P IPUS  F 

' 7,  3 24  '. 

1307 

P 7 r N C W ? 

21,2121 

884 

R22  L FM  12 

24  ,2541 

513 

SFR  ET 

41,  3138 

436 

8 1 

2 4,3?  76 

3 M I NM 

34,2163 

630 

P71 

21,201 1 

822 

R29/S  ERV 

3 3,  2000 

= 

34 

SHAF  TBO 

26,3017 

593 

P0N2 

37, 2240 

381 

P 71N0W? 

21,2106 

884 

R300K 

27  ,3750 

1272 

S IM  2 C AOR 

05,  2471 

218 

3 37HR IT 

4735 

= 

71 

OL'ADGUI  C 

31  ,2757 

792 

R5  IF 

14,  303  4 

93  3 

SNAP AGN 

05,3647 

984 

POSGMBL 

37,  20  64 

379 

OUAR  DUMP 

2 1, 2213 

886 

R5 1 P6  3 

14,3127 

934 

S NADEND 

05, 3666 

985 

P9STST 

33,  2477 

859 

RSI  C + L03 

23  ,2154 

527 

SOLNSBIT 

4751 

= 

76 

POSUPCAT 

33,263  1 

86  1 

RCOU  FAIL 

0274 

= 

87 

R6lC*  Li 

23  ,2305 

52  9 

SOME  AOS 

• 

1488 

POWFL  IT  l 

23, 2000 

= 

32 

R D I F F 

E6,  1452 

= 

136 

R61 LF  M2 

23  ,2216 

527 

SOPT  ION 2 

43, 3322 

1276 

PREP  JUMP 

5327 

1 283 

RDM 

13,374? 

1237 

SOPTI  0N3 

43  ,3323 

1276 

3 R F C I P I T 

7 2 

E5  ,1434 

- 

131 

S + 2 

4752 

1274 

SOPT I ON  4 

43,  3328 

1276 

PRI OOFLG 

0075 

= 

73 

PECAL3 

40,3fc35 

466 

S*3 

6257 

= 

1274 

SOPT  I 0N5 

43,  3325 

1276 

PPI  01 

4742 

= 

1090 

REDCMANN 

26,2127 

48  1 

S + 4 

4751 

= 

1274 

SOPTI GN6 

43,3326 

1276 

PR  10  1 1 

5022 

1088 

REF  TAG  1 

4 73  6 

= 

276 

S+5 

4756 

= 

1274 

SOPT  ION  7 

43,  3327 

1276 

PRI  02 

474  1 

= 

1090 

R F FT  AG  2 

4741 

= 

276 

S<-6 

6254 

= 

1274 

SOPT  OM  0 

43  ,3333 

1276 

3R3CfFDF 

(.6,2075 

164 

REFT  AG? 

4742 

= 

275 

S-2 

7760 

= 

1275 

SO  UP  L Y 

37,3071 

39  4 

P R 0 C < EY  1 

40,  3 r>  1 1 

456 

= 

- 

1275 

37, ?672 

389 

PROD UC  T 

21  ,3427 

1470 

REMOCFL  G 

0265 

= 

86 

S-  4 

6124 

= 

1275 

SPSC  ODE 

4743 

= 

1298 

3 RONVR I T 

4 7 A 5 

= 

74 

REPDSMCN 

0270 

= 

86 

SAV  E 

E5, 1464 

= 

131 

STARTDAP 

16,  2046 

1399 

PSKI  PADP. 

16, 3626 

1429 

RE3EXL0C 

4 1,  2234 

4 1 5 

SB I Tl 

4753 

= 

1274 

START MNV 

26, 2200 

482 

PSTHIGAT 

0251 

= 

85 

REPRCAI C 

17 ,2675 

1439 

SB  I T 1 0 

4742 

= 

1274 

START  SI  M 

05,2467 

218 

PJLSFM 

1A,  ? 2?  2 

937 

RHC  SC F LG 

0313 

= 

89 

SB  I T 1 3 

4737 

= 

1274 

STARTSTO 

6446 

1008 

A 1 ,2764 

434 

RLMUN  IT 

0014 

= 

= 

('5  ,2466 

218 

3 UTXYZ 

41,2663 

432 

RMM 

12  ,2017 

= 

37 

SBIT2 

4752 

= 

1274 

st:lok  3 

36,2664 

729 

P 1 2 A 

. 

= 

32 

RNGEOA  TA 

C260 

= 

85 

SB I T3 

4751 

= 

1274 

SIDES ICl 

25, 2607 

555 

Pi 2LMB 

30,312' 

829 

RODFL  AG 

00  2 2 

= 

68 

S3  I T 5 

4747 

= 

1274 

STERN 

21  ,2234 

897 

3 20LFMB7 

24,  22C6 

506 

ROO 

04  ,2145 

236 

SB  ITS 

4746 

= 

1274 

STC1RHAP0 

22,  3600 

714 

P23LFMF 

24,2307 

5 07 

R3DTPS  + 1 

0127 

= 

99 

SB  I TH 

4744 

= 

1274 

STORHPER 

22, 3612 

715 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAC-GEC  AS  FOLLOWS: 
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UNREFERENCED  SYVBCL 

l I STING, 

INCLIJCING 

DEFINIT 

ION, 

HEALT  H, 

£ RAGE  OF 

DEF  IN  I TION . 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

1/  2706 

9 3 1 

r 006 

03  "■ 

S UP  ER  1 r 

' 474  5 

= 

1"87 

UAXI  S 

20  ,3322 

1486 

V00N25 

60  10 

= 

216 

S 32 B IT  I 

4738 

= 

76 

UOR  2 

C 1 3 6 

= 

1493 

V00N34 

4242 

= 

216 

S3  2BI  T 2 

A 73  6 

= 

76 

UD93 

0 140 

= 

149  3 

VC  IN  14 

32,217 

21  6 

S 3 2BIT  3A 

47  3 7 

= 

76 

l’ND  I SP? 

32  ,3463 

810 

VOS  NO 7 

10,3461 

1360 

S 3 2 R l T 3 B 

4740 

= 

76 

UNFVX/ 2 

F 6 , 1666 

= 

140 

V06N7 1 

07  ,2617 

26  6 

S 3435.  25 

35,3245 

66B 

UNKNOWN 

0007 

= 

199 

VI 

0014 

= 

932 

S 4C .1 33 

? 7,  2644 

761 

UPDNLI  ST 

C 5 , 2424 

= 

1 9Q 

V? 

0022 

= 

932 

S4C.1 37 

2 7 ,263ft 

76  1 

UPDTMENO 

4 2,  20  32 

280 

V 3 

0030 

= 

932 

S 50 

14,250'' 

= 

927 

UPENC73 

04  ,3542 

1379 

V 3 7 X F 0 C 

04,  2371 

240 

552.2.1 

14, 3640 

945 

U3  ERROR 

C4, 3377 

1377 

V50N00A 

32  ,2171 

216 

========= 

UPLOCK  FL 

0 164 

= 

79 

V67FL  81  T 

4744 

= 

79 

T3ASE3 

1C  5 6 

104 

UPOK 

04  ,3344 

1328 

V 74 

43,3034 

= 

29  3 

T BAS  E5 

1062 

104 

UPP AP  T 3 

04,  3566 

= 

1380 

V82EM9  I T 

4 752 

= 

79 

TCALAPM2 

43,3263 

1275 

UPTHROT 

32,3643 

826 

T CCS  M 

F 3 , 1622 

1 14 

UP WA K6 

04,3560 

1380 

2?  ,2746 

tclem 

F3  , 1 ft  7 4 

1 14 

USEGTS 

3 2,  3440 

87  1 

WHATOUT 

31,2324 

782 

TDECA  YF  X 

4770 

1 C 8 7 

LSEQRFLG 

0304 

= 

88 

WHERET  0 

31,  2202 

780 

r EMP 

E5 , 1441 

= 

131 

= = ======= 

WPLATI 

E5  ,1560 

= 

132 

TF  MPA 00 

E 5, 144  0 

= 

131 

VAC1 

040  1 

10  l 

WPL  ATO 

E 5,  1464 

= 

132 

T ENDAPPR 

F 7,  1424 

14? 

VAC  2 

0455 

101 

r estvp 

4 1 ,2rf 6 

413 

VAC  3 

0531 

101 

XDELVBI  T 

4 744 

= 

70 

TETOTHER 

E3 , 1 570 

= 

1 14 

VAC.4 

0605 

101 

X D I FF 

12, 2163 

1167 

r FFCON  IC 

27, 3342 

1260 

VLHUPBI  T 

4744 

= 

68 

XKEPCSM 

E3  ,1624 

114 

TFFSWBIT 

4 75  3 

= 

79 

V EL  CAT  A 

0255 

= 

85 

XKEPLEM 

E 3 , 1676 

114 

TFFTIC  K 

22, 3453 

7 1 C 

VELUFDAT 

33  ,3031 

365 

XSM ADR 

37, 2477 

386 

r GOCALC 

27, 2467 

757 

VE3  IFLAG 

C 1 65 

= 

79 

THDIIMP 

31  ,232? 

78? 

VERROR 

E6 ,1751 

= 

135 

_ 

T IC<TPFP. 

22,  3410 

709 

VERTDI  SP 

32  ,3470 

810 

ZEROO 

23,2517 

= 

1148 

r IMER 

E5 , 1 4 71'1 

= 

131 

VE3TDR  FT 

37,  2231 

381 

ZEROTJ 

1 7,2620 

1437 

TMANUCHK 

22,3064 

371 

VF  A I L B IT 

4736 

= 

84 

Z3NE2 

17,  3606 

1454 

r MFX  ITL 

05,  37  20 

985 

VF  LAGBI  T 

4 742 

= 

72 

Z0NE4 

17  ,3427 

145  1 

TM RESUME 

05  ,3722 

986 

V INTFBIT 

4751 

= 

72 

Z ONE  4 , 5 

17,3416 

145  0 

TDDFF W 

1 ^ 54 

1 1 1 

_ 

TP  AC  El 

4C,  3 27  3 

449 

V°  D 

0000 

= 

932 

OEBANK 

43  ,33 AO 

1277 

TRACE  IS 

4C  ,33C  4 

449 

VPDVL 

6605 

10  12 

T3EDESCL 

3 1,  3665 

820 

VREC  TLEM 

E3  ,1634 

114 

1 .5  SPOT 

01,2027 

246 

T R’J  NBO 

26,3113 

594 

VSTI1RF 

6455 

1008 

1 /R  TM  U 

27  ,2030 

47 

T SNF  XTS 

17,2226 

1431 

VUPC  AT  EC 

33,3200 

867 

L/IOS 

4753 

= 

1434 

T SSR 

00,  21'  P 5 

1938 

VV  / SC 

7641 

103  6 

l / 1 0 S E C 

_ 

TSTPOl NT 

23  ,3762 

1253 

vvxsc 

74  1 6 

1031 

1/200DP 

33,3764 

883 

T TF  SCALF 

4740 

= 

820 

VXBFAMNP 

34  ,2022 

41 

1 BIT  DP 

26,  2415 

49  2 

T JRNON 

17, 3154 

1444 

VXSCAL 

33,2010 

42 

1SECX 

4777 

= 

386 

TUPNONFL 

0302 

= 

87 

VY  REAMNB 

34,20  It 

41 

100MR  IJPT 

7741 

= 

161 

T6J0B 

1 7,  2~6l 

1392 

VYSCAL 

33  ,2006 

42 

120  MS 

5752 

= 

187 

SYMBOL  DEF  H PAGE 


17T020  43  ,3642  1281 


2 .OS  PT 

04,2132 

235 

2.  1 1SPT 

04, 2133 

235 

2.1  3S  POT 

01,2046 

247 

2.  15  SPOT 

Cl ,2051 

247 

2.17SPDT 

Cl,  2054 

247 

2.21  SPOT 

01  ,2057 

247 

2.5SPOT 

2 .7  S POT 

d,  2040 

247 

2 /P3CDUW 

C 022 

= 140 

2/  3D  P 

22,  3653 

821 

2D7ERO 

12,2006 

= 1128 

PRNDtND 

40,3230 

441 

E7 , 1742 

27T030 

43  ,3650 

1281 

3 .55  par 

C 1,  2C  65 

247 

3J22R2MU 

13,2024 

47 

3SECS 

5002 

1087 

30  DEGCHK 

24,3422 

585 

3CKCHK 

33,2454 

858 

360SWRIT 

4753 

= 81 

4.  1 1SP0T 

01,2107 

248 

4 .1 3S POT 

C 1, 2112 

248 

4. 17SP0T 

01,  2120 

248 

4 . 2 1 S POT 

01,2123 

248 

4.  23SPOT 

01,2126 

248 

4.25SP0T 

C 1,2131 

240 

4.27  SPOT 

01  ,2134 

249 

4.31  SPOT 

1,2137 

249 

6 .33s  par 

0 1,  2142 

249 

4.35  SPOT 

01,2145 

249 

4.37SP0T 

0 1,  2150 

249 

4 .5 S POT 

01,2101 

248 

4.  7SP0T 

01 ,2104 

248 

4SFC1  2fl  ) 

33, 3750 

882 

5.4SP0T 

C 1,2161 

249 

5 .5S  POT 

0 1, 2172 

249 

5. 7 SPOT 

01,2175 

250 

SRLANK  1 

40,  2546 

410 

HEALT  H KEY: 


NORMALLY  OFF  IN  ED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BD  BADLY  DEFINED 


= OFFI  NfD  BY  EQUALS 


CD  DEFINITION  A S SOC  I A TED  WITH  CONFLICT 


CEF  I NEO  BY  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROJBLE 


MD  MLLTI  PLY  DEE  I NED 


;ap  : 
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J NRFF  ERENCEO  SYMBOL  l ISTING, 
SYMBOL  OFF  H PAG F 

5_BK 0 1,  250  2 10  8 2 

6.  1 1 SPOT  (Ilf  2211  250 


INCLUDING  DEFINITION,  HEALTH,  G PAGE  OF  DEFINITION. 

SYMBOL  CEF  H PAGE  SYMBOL  DEF  H PAGE  SYMBOL  DEF  H PAGE 

6.  5SP0T  01,2203  250  63/£>*  + l 77*0  1089  ==  = ========  = = = = = ===  = ==  = = 

6.7SPOT  01,2205  250  66QE:  33,  3762  883  70DEC  32  ,35*7  e2* 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 

UN  UNDEFINED  = DEFINED  BY  EQUALS  J DEFINEG  BY  JUKER  OR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

BD  BADLV  DEFINED  CD  "LMNIHON  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROJBLE 


A P:  AS: 

R A SA  R L F 

DEF 

OOOC 
0000 
0000 
0000 
OOOC 
0000 
OOOC 
3300 
0001 
0001 
00  01 
0001 
00C2 
0002 
0002 

3302 
0003 
0003 

3303 

0003 

0004 
0004 

0004 

3304 

0005 
0005 
0005 

0005 
000  6 

0006 
0006 
3006 
00C6 
0006 
0006 
00C6 
0306 
00(7 
0007 
3D07 
00C7 
00  0 7 

ooio 

001C 
00  10 
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PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL  DEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


66  NFED2FLG 
93  A 

140  UNX/2 
242  COSTAI I L 
497  UR 
932  VPD 
1139  504RPR 
1237  PATT 
66  JS  WITCH 

93  l 

94  LCHAN 
242  AGSUPDAT 

66  MIDFLAG 

93  0 

94  00  HAN 
242  PENDEZVL 

66  POCf^FLAG 

93  EBANK 

94  H ISC  ALAR 

242  DRBMANUL 

66  P21FLAG 

93  FBANK 

94  LOSC  ALAR 

243  DESASCNT 

67  FSPASFLG 

93  7 

94  CHANS 
243  L UNR  SA  LN 

67  P25FLAG 

93  BBANK 

94  CHAN6 
140  UNY/2 
497  UR  P 
932  VO 

1 139  504  F 

1237  VATT 
1289  BB 
67  I HUS  E 
94  SUPERB NK 
199  ERASZORO 
199  SPARF 
199  UNKNOWN 
67  PNDVZFI  G 

93  ARLPT 

94  PUT'^ 


0010  1129 
C 3 l 0 1139 
1 1139 

0010  1139 
0010  1152 
OOlO  1193 

0010  1194 

0011  67 

0011  93 

OCll  94 
CO  12  67 

0012  93 

0012  94 

00  12  1 192 

0012  1257 

0013  67 

0013  67 

0 Cl  3 93 

0013  94 

OC 14  67 

0014  54 

00 14  1 40 

0C1 4 605 

0014  6C5 

0014  932 

On  14  1 1 92 
00  14  119  3 
0014  1194 
0014  1237 
0014  1257 
0C1 5 93 

CO  1 5 94 

0016  6B 
0016  93 

OC  16  94 

0016  578 

OC  16  5 2 fl 

00  16  9ll 
0016  1139 
0016  1139 
0016  1192 

0016  1193 

pnlft  1194 
0016  1237 
OC  1 6 12  37 


GAMRP 
C VFCTR 
DVFCTR 
S INNODI 
ALPHA 
CO  GAM  IN 
PIN 

RRNB  SW 
LRIJPT 
D SA  L POUT 
LOK  ON  SW 
CRUPT 
CHAN'12 
XMAX 
TFFCELO 
NEEDLFLG 
RIO  FLAG 
SAPFTI  MF 
CHAN  13 
FRFEFL AG 
CHAN  14 
UN  7/2 
RLPUMT 
LXVEC  TPR 
VI 

XPI  N 
DCOGA 
CELINOEP 
1 AT 
RMAG1 
ZRUPT 
MNKE  YIN 
F66PRC1FL 
B AAKPUPT 
NAVKF  YIN 
VELLDS 
CEAR  TH 
CSS 

T IPSUBM 

5C4LPL 

1/PIJ 

C CG  A PAX 

MA  X 

PATTI 

LRPV 


00  16  1257 
0316  1257 

0016  1263 

0017  6fl 

0017  93 

0020  68 
0020  93 

0020  128 
0020  928 

0020  978 

C020  1192 
0020  1257 

0020  1263 

0021  68 

0021  93 

0022  68 

0022  93 

0022  128 
0022  140 

00  22  605 

0022  928 

0022  932 

0022  1139 
0022  1192 
0022  1237 

0022  1257 

0023  68 

0023  93 

0024  68 

0024  93 

0024  128 

0024  529 

0024  577 

002  4 1 139 
0024  1139 
0024  1192 
0024  1237 
0024  1237 

0024  1257 

0025  68 

0025  93 

002  5 2 01 

0025  204 

0025  206 

0025  208 


CDE  L F /2 
T FF01 
3 PER 

NJCTSFLG 

BRUPT 

DIDF  LAG 

CYR 

C CSTH 

CSUN 

STMP 

ROOTMU 

NRTERM 

RAPO 

ERADF  LAG 

SR 

R CDF  LAG 

CYL 

S I NT  H 

2/PGCDUW 

UYVFCTPR 

C MOON 

V2 

504AZ 
1 /ROCTMU 
COSPHI/2 
RTERM 
NOTfcRF  LG 
ED3P 
R61  F LAG 
TIMF  2 
T HET  A 
PHI 

R RANGE 
AVECTP. 
MMA TRI X 
X 

uz 

VATT  1 
T FFVSO 
ALW66FLG 
T IMF  1 
DL102 
0 L2 08 
DL30  2 
DL401 


0025  210 

0025  212 

0026  6 R 

0026  93 

0026  128 
0026  978 

0.026  1194 

0026  1257 

0027  6° 

0027  93 

0C30  69 

0030  93 

0030  94 

0030  932 

0030  978 

0030  1192 
0030  1194 

0030  1257 

0031  69 

0031  93 

0031  94 

0032  93 

0032  94 

0032  657 

0032  1139 
0032  1192 
0032  1237 
0032  1237 

0032  1257 

0033  69 

OC  33  93 

0033  94 

0033  202 

0033  20  2 

0033  210 

0034  69 

0034  93 

0034  94 

0034  202 

0034  202 

0034  210 

0034  1 192 

0034  1257 

0035  93 

0035  94 


DL503 
DL  60  5 
VEHUPFLG 
TI  ME  3 
ZPRIME 
G TP P 
ITERC  TR 
T F Fl / ALF 
UPDATF  L3 
T IME4 
NOUPFLAG 
TI  ME  5 
CHAN 30 
V3 

TIMEP 
X I 

:osf 

TFFRTALF 
TRACKFLG 
TI  ME  6 
CHAN31 
CDUX 
CHAM  3 2 
DELELO 
B VECTR 
S ( X I ) 

MU  ( P) 
TVEC 
T FFAL  FA 
SLOPE SW 
CDUY 
CHAN33 
DL  11  B 
DL  129 
DL511 
GUE  SSW 
C DU  Z 
ON  T Ml 
DL  1 19 
OL 1 10 
DL512 
X S OC ( X I ) 
TFFNP 
CD  UT 
DNTM2 


0035  202 

0035  202 

0035  210 

0036  69 

003  6 93 

0036  932 

0036  1192 
0036  1194 

0036  1257 

0037  69 
0037 

003  7 2 04 

0037  206 

0040  70 

C040  93 

0040  20  4 

0040  206 

0040  932 

0040  113° 
004C  1192 
0040  1237 

0040  1257 

0041  70 

0041  93 

0041  204 

OC  4 1 206 

0042  70 

C042  93 

0042  94 

0042  129 

0042  1139 

0042  1192 
C042  1257 

0043  70 

004  3 93 

0044  70 

0044  93 

0044  94 

0044  1149 
0044  1192 

0044  1257 

C04  5 70 

0045  93 

C046  70 

0046  93 


DL120 
DL  131 
DL  5 13 
DR  IF  TF  LG 

COUS 

DPO 

T 

OEP 

TFF/RTMU 
SR  C HOP  TN 
P IP  AX 
DL210 
DL  306 
ACMODFLG 
PI  PAY 
DL  21  1 
DL307 
DP  1 
COB 
R1 

TDEC  1 
NPMAG 
LOSC  MF  LG 
P IPAZ 
DL212 
DL  308 
STEERSW 
Q-RHCCT  R 
LV SQUARE 
RCNORM 
SOB 
K EPC  1 
TFFX 
SE«  VOVEP 
P-RHCCTR 
I MPULSW 
R-RHCCTR 
LV 

NORMZI 
K EPC2 
TFFTEM 
XDEL  VFLG 
INL  INK 
E TPI F LAG 
R NR  AD 
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»AS  ABLE  £ EQUALS  CROSS-P  EFER  ENCE  TABLE  SHOWING  DE 
DEF  PAGF  SYMBOL  DEF  PAGE  SY  MBCL 


FIN[  TION,  PAGE 

CEF  PACE  SYM 


OF  nEFI  NT  TI  ON  , 

BOL  DEF 


AND  SYMBOL 
PAGE  SYMBOL 


DEF 


PAGF 


SYMBOL 


3046  94 

0<  u 7 70 

0047  93 

3047  94 
5 

005C  93 

0050  94 

005 C 1139 

0050  1194 

>05 1 7 I 

0051  93 

3051  94 
I 51  1L3 

0051  1139 

7 1 

0052  93 

3052  94 

53  7 ' 

QO  53  93 

0354  71 

00 54  57 

0055  71 

0055  94 

0056  71 

3356  94 

0057  7 1 

0057  94 

33  < 7 1 

0060  94 

0061  71 

0061  96 

0061  96 

3361  96 

0061  1 4 1 

0061  12B9 

3361  1401 

0062  72 

OC62  96 
0062  96 

0062  96 

3362  1289 

0063  72 

0063  96 

3363  96 

0063  96 


X 1 

F I NALFl G 
GYRCCMf) 

X 2 

AVFI.AG 

CDUXCMD 

Si 

PPRE  XI  T 
TWFFK  IT 
PFR ATFLG 
ODUYCMD 
S 2 

SETPEX 
FAR  THMXX 
C ALCRAN-1 

cnuzc  mp 

QPRET 

C ALCM AN2 

CDUTCMD 

NPOOFL  AG 

CDLSCMC 

PHOHFLAG 

THRUST 

G LOKFAI  L 

LEMONM 

PFFS  MFI G 

OUTLINK 

LUNAFL  AG 

altm 

N0D0PC7 

FXECTEMl 

I TF  MP  l 

W A I T E X I T 

T5TFMP 

TEMPG 

COSMG 

VFLAG 

F XEC  TFM2 

ITEMP2 

WAI  1TB  A N K 

TEMPP 

R04FLAG 

I TEMP  3 

NEW  PR  IP 

WAI TAPR 


OC  63  141 

0063  155 

CC63  155 
0063  155 

0063  1289 
COf  3 1466 

0064  72 

00  64  96 

0064  56 

0064  96 
CC64  1289 

0065  72 

0065  96 

0065  96 

0065  155 

00 65  1 289 

OC  6 6 72 

OC  66  96 

0066  1289 

0066  1464 
C 0 66  1466 

0067  72 

0067  96 

00  70  72 

0C7C  96 

0070  155 

CC7C  1289 
CC  7 1 7 2 

0071  96 
OC  7 l 1289 

0072  72 

CC  72  96 

OC  7 2 155 

0072  12*9 

OC  73  72 

0073  96 

0073  96 

OC  7 ^ 96 

0073  1289 

0074  66 
OC  7 4 73 

0074  96 

OC  75  68 

0075  73 

0076  69 


A LTTE  MP 
VHY 

T EMFNM 
AZACCDOT 
PREC  IFL  G 
1TFMF4 
LOCO  TR 
WAITTFMP 

C ULTFLAG 
ITEMP5 
NEWLOC 
VHZ 

T EMPSW 
ORB  WFI.  AG 
ITEMP6 
TEMFSW2 
CHNL  12 
CPNDX  EK 
STATEF  LG 
NEWJOB 
T NTYPFLG 
R LP  TREG1 
FORVTEMP 
TF  MP  FR 
V INTFI  AG 
RUPTREG2 
1EMPG2 
C60R9FL  G 
FLPTREG3 
LA  T VC  L 
T EMPP2 
D I MOF  LAG 
DSRUPTFM 
KEYTEMPL 
RLPTREG4 
TEMPBBCN 
FLAGWRCO 
MR K IDF  LG 
STATE 
F LAGWRD1 
PR IPDFLG 
FLAGWRC2 


0076  73 

0076  94 

0077  71 

0077  73 

0077  94 

0100  73 

ClOO  73 
3101  73 

0101  74 

0 10  2 73 

0102  76 

0 1 0 3 73 
0 10  3 78 

0104  74 

0104  79 

3135  74 

0105  81 

0106  74 

3106  83 

0 1 06  83 

0107  74 

01 07  84 

0110  74 

3110  86 
0110  86 

0111  88 

3111  88 
0111  202 

0 112  74 

0112  97 

0113  74 

0113  97 

01  13  2 04 

0113  204 

0113  206 

0113  208 

0113  210 

01 1 3 210 

0114  97 

0114  97 

0114  97 

0114  1494 

0115  75 

0 1 1 5 97 

0115  97 


NRM1 DF  LG 
33AN  76 
FLAGWRP3 
POSPFI  AG 
CHAN  77 
FLAGWRD4 
M WA  I TF  LG 
NWAITFLG 
F LAGWR05 
MRKNVFLG 
FL  AGWRD6 
NRMNVFLG 
FLAGWRD7 
PRONVFLG 
F LAG  WRD8 
P INRRFLG 
F LAGWRD9 
MRUP  TFLG 
FLGWRD10 
RASFL  AG 
NR UP TFL G 
FLGWRD1 1 
MKO  VFLAG 
FLGWRD12 
RAD  MODES 
OAPBOOL  S 
FL  GW  R01 3 
DL  124 
XDSPFLAG 
LASTYCMO 
3 SKYFLAG 
LASTXCMD 
0L213 
OL  216 
DL309 
DL405 
DL  5 02 
DL504 

0 SE  XI  T 
EX  ITEM 

1 NT  81 5 + 
DBVAL  2 
SNUFFER 
DECRET 
INTB  IT  1 5 


0 1 1 5 97 

0115  97 

0115  1494 

0116  75 

0116  97 

0116  1494 

0117  75 

0117  97 

3117  97 

C 1 1 7 97 

0117  97 

0117  97 

0117  99 

0117  1494 

0120  75 

O 1 20  9 7 

0121  75 

0121  97 

0122  75 

0122  97 

0122  97 

0122  97 

0122  97 

0122  97 

0122  1493 

0123  75 

0123  97 

0123  97 

0123  97 

0123  97 

0123  1493 

0124  75 

C 1 2 4 97 
0124  97 

0124  97 

0124  99 

0124  1493 

0125  75 

C 1 2 5 97 

0125  99 

0126  76 

0126  99 

0127  76 

0127  99 

0127  1493 


WDRET 
2 1 /2  2 Pr  3 
OBVAL  3 
NOT  HP  OT  L 
AODRWO 
DR  I FT  ER 
R77FLAG 
CHAR 
OFCOUNT 
ERCNT 
POL  ISH 
UPOATPET 
PWRPTR 
ACCRETRN 
RNGSCFLG 
F I XI  OC 
DM  EN  FL  C. 
OVFI  NO 
ZOUMFLAG 
OECTFM 
DI  STE  M 
NOUNTE* 
SGNON 
VBUF 
ACCS  W 
ENG0NFL3 
HITEM  IN 
NVTEMP 
SF  TEMPI 
S GNOFF 
1 / A T E Ml 
3A  XISFLG 
CODE 
LP  TF  MI  N 
SFTEMP2 
DXCRIT 
1 /ATE  M2 
AORRS  P.  G 
MI XTEMP 
OXCR  IT+1 
NORRMON 
ROOTPS 
SOLNSW 
ROOT  PS+ 1 
l/ACOSTT 


0130  76 

0130  97 

013P  97 

0 1 3c  97 
0130  110 

C 1 30  125 

0130  126 

0131  76 

C 1 3 1 97 

0131  125 

0131  126 
C 13  1 149  3 

0132  76 

0132  99 

0132  1493 

0133  76 

0133  97 

0134  76 

0135  76 

0135  97 

0135  9fl 

0135  1493 

0136  98 

Cl  36  98 

0 136  98 

0136  98 

0136  413 

0136  1493 

0137  77 

0137  98 

0137  98 

0137  98 

C 137  98 

0137  98 

0137  1493 
0140  98 

0140  98 

C 1 40  98 

Cl  40  98 

Cl  40  98 

0140  99 

0140  1493 

0141  77 

0141  98 

0141  98 


MGLVFLAG 
BU  F 

I NDb  XLOC 
SWWOR  0 
W.  INC 
A 3 VE  L * 
L*KCR*T 
RE  NO  WF  LG 
SWB  I T 
VSELECT* 
H*GHCR*  T 
Z1TEM 
S32.1  FI 
RE  TROOT 
Z5T  EM 
S3  2.  IF  2 
BUF  2 

S32.1  F3  A 
S32.  1F3B 
MPT  EMP 
DMPNTEMP 
UD3  1 
DOT  I NC 
0VS1GN 
ENTRET 
ESCAPE 
ENTE  XI  T 
IJDB2 

GMBDRVSW 

OOTRE  T 

DVNORMCT 

ESC  A PE  2 

INREL 

WOCNT 

UUB4 

OSPMMTEM 

MAT  I NC 

MA  XD  VSW 

MIX  BR 

POLYCNT 

PWRCNT 

UDB3 

MUNFLA3 

DSREL 

POLYRET 
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0141  98 

0141  99 

0 1 4 1 1493 

0142  98 

3142  9 R 

0142  90 

0142  99 

0143  77 

0143  98 

0143  98 

01  43  98 

0143  99 

3143  99 

'1  43  14  93 

• 144  98 

01  44  98 

0144  98 

0144  98 

0144  98 

0144  99 

0144  99 

0144  1493 

0145  9fi 

0145  98 

0145  99 

0145  99 

0145  1493 

0146  77 

3146  98 

0146  99 

r 146  1 493 


'147 

0147 


1493 


0 147 

0147 
0150  78 

0150  98 

0150  99 

1 1 51  78 

0151  98 

0151  99 

: 151  1493 


01  52 


TF  PI 
OERPTR 
IJAXOIST 
DE  XDE X 
DSM  AG 
TEM2 

DERCOF-R 
P EDFL  AC 
C OUNT 
DEX  1 
T E m3 

DERC  OF -7 
DEX  I 
OBBl 

DSP  WORE  T 
R EL  RET 
SE  PMNRFT 
SEPSCRET 
TEM4 

DERC  CF  — 6 
DEX  2 
DBB? 
NOUNADD 
TEM5 

DERC  OF -5 
PTNSAVFR 
DR  04 

NTARGF  LG 
NNADT  EM 
DERCGF-4 
DRR  3 
AlIX  FL  AG 
MNTYP  TF  M 
DFRCDF-3 
AXOSTFM 
ATTFLAG 
I C AD  IT  EM 
DEPCOF-2 
ITSWICH 
ICAD2TEM 
DERC  OF— 1 
FLATEMP 
MANUFLAG 
I DAD  ?TFM 
DFRCOFN 


0152  1493 


01 

(3  153 
Cl  53 
0154 
0154 


7 8 

98 

99 
78 

100 
0154  1297 
0 1 54  1361 

0154  1494 

0155  78 
0155  1297 
0155  1361 
0155  1 4 E 4 

0155  1484 

0156  78 
('156  1297 

0157 


0157 


59 


0 157  1297 
0157  1361 
0157  1361 


Z3T  EM 

IGNFLAG 

RUTMXTFM 

CERCCF+1 

A^TNELAG 

S^fTHS 

FACFREG 

UV 

SWAND1 SP 
T EMP2G 
P L AYTEM1 
-EPSILON 
EPS  I LON 
NCRMSls 
POINTER 
RVSW 

TERM  I TMP 
T EMPSWCH 
CCFMFAC 
PLA  YTEM3 


0164  190 

0164  1361 

0164  1494 

0165  79 

0165  100 

0 165  1361 

0165  1494 

0166  79 


0166 

0167 

0167 

0170 

0172 

0 173 

01  73 
0174 
0174 
017  5 
0 177 
0200 
0201 


100 


0251 

0252 

0253 

0254 

0255 
0260 
0262 

0263 

0264 

0265 
C266 
0267 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 
03  GO 


P STHIGfi  T 
NOLRR  EAD 
XDRFLG 
LR  INH 
V FL  DAT  A 
RNGC-DATA 
VFLSHF.G 
HFLSHFLG 
CDF  SFLA3 
REMODEL  G 
RCDUOFLG 
ANTENF1  G 
REPOS  MON 
DE  SI  GF  LG 
ALTSC  ALE 
LRVELFLG 
RC  DUE  AIL 
LRPOS  FL  G 
LRALTFLG 
RPDATAFL 
RRRSFLAG 


C322 
C 323 
0324 
C324 
0326 
C33  0 
0332 

0332 
C333 

0333 

0334 

0335 

0336 
C336 
C336 

0337 
0340 

0366 

0367 
C37C 
037  1 


C THt TA 

CPSI 

DELV 

DE  LVX 

DEL  V Y 

DELVZ 

KE  YTEMP2 

RUPT  AGN 

DNLSTCOD 

DNTMERAS 

CTLIST 

D NT  MG  OT  0 

ON  EC  A DR 

DUMPLOC 

TMINDE  X 

SUBL  1ST 

DNTMRUFF 

RFSTREG 

NVWORD 

MARKNV 

NVSAVE 

CADRFLSH 


0157 

14  94 

ANFT 

0203 

81 

COGAFLAG 

0302 

87 

TURNONFL 

0373 

101 

CADRMARK 

0 157 

1494 

FUNTEM 

0205 

81 

I NI  TA  LG  N 

0303 

88 

PULSEFLG 

0374 

101 

T EM  P FL  S H 

0160 

78 

V67FLAG 

0206 

81 

360  S W 

0304 

88 

USEQRFLG 

C375 

101 

F A I LREG 

0 16C 

1361 

PL  AYTFM4 

021  0 

81 

F LVR 

0305 

88 

CSMDX  FL  G 

0 375 

20  2 

DL  123 

n 160 

136  1 

T EMP0R2 

0211 

B 1 

P 707  IF  LG 

0306 

88 

OURRCFLG 

0400 

101 

V AC1US E 

0160 

14  84 

CCEFCTR 

0212 

81 

FL  PC. 

0307 

88 

ACC  4-  2FL 

C40 1 

1C1 

VAC  1 

0160 

14  84 

SCRATCH  X 

0213 

81 

F L PI 

0310 

88 

AORRT  FL  G 

C 454 

10  1 

V AC  2US  E 

0160 

1494 

1/ A NET 

0214 

81 

FLRCS 

031  1 

88 

XO  VI  NF  LG 

C455 

1 01 

VAC2 

0161 

79 

l DLEF  LAG 

021  5 

82 

LETABORT 

0312 

88 

DRIFTDFL 

0530 

101 

VA  : 3 USE 

3 161 

1 3ft1 

OUTHERE 

0216 

82 

F LAP 

0313 

89 

RHCSCFLG 

0531 

101 

V AC3 

0161 

1484 

MASSCT  R 

0217 

82 

ABTTGFLG 

0314 

89 

UI.LAGFLG 

0604 

101 

VAC4USE 

C 16  1 

1484 

SCR  A TCH  Y 

022  0 

82 

ROTF LAG 

0314 

100 

R22DISP 

0 60  5 

10  1 

VAC  4 

r is  1 

1 494 

ARET 

0221 

82 

OUI  TF  LAG 

0314 

100 

TI  MF2  SA  V 

066C 

101 

VAC5US  E 

0162 

79 

V37FLAG 

0223 

82 

MIDIFLAG 

031  5 

89 

DR  SL  2FLG 

0661 

101 

VAC  5 

0162 

426 

MPAC+6 

0224 

82 

MI  DAVE  LG 

0316 

89 

DBSELFLG 

0705 

10 1 

GOLOC 

0162 

1 361 

CFNMASK 

0225 

82 

AVFM  I DSW 

0316 

ICO 

SC. A L SAVE 

C734 

102 

m rci  of 

0162 

1484 

SCRATCH  Z 

02  2 7 

83 

INTEL  AG 

0317 

89 

AC  COX  FL  G 

C734 

102 

STARCODE 

0 162 

1494 

AB  SAC)  S 

0230 

83 

APSF  LAC 

03  2C 

89 

AUTR2  FL  G 

0735 

102 

S INC  DU 

C 163 

79 

^AIZFGFL  AG 

0236 

83 

REINTFLG 

0320 

100 

REDDC  TR 

0735 

1 02 

SI  NCDUY 

0163 

ICOV 

^MDOE) 

0245 

84 

LRBY  PASS 

0321 

89 

AUTRl  FL  G 

0735 

102 

STARALGN 

0163 

1 361 

OS-RCPR  10 

0 246 

84 

VFAILFLG 

0321 

100 

3 PHI 

0737 

102 

S 1 NCDU  Z 

0163 

14  94 

SIGNACS 

0247 

84 

H FA  I L FL  G 

0321 

100 

THETAD 

0741 

102 

SI  NCDUX 

01  a/, 

79 

UPLOCKFL 

0250 

84 

VXI  NH 

0321 

202 

DL113 

0743 

10  2 

COSCOU 
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0743  102 

1 L-c  I )2 
75  7 102 

07  5 1 1o2 

0752  102 

07  53  10  2 

075*  102 

0755  102 

756  102 

'757  102 

0760  102 

0761  1c2 

'762  102 

3 7 63  102 

C765  102 

'76  5 102 

'■765  102 

767  102 

'771  1C2 

0773  102 

0775  1'  2 

0775  102 

'776  1C  3 
0777  103 

1000  103 

1001  103 

1002  103 

1 0C3  1o3 

1005  103 

13  0 5 103 

1006  103 

100  6 103 

1007  103 

IOC  7 103 

10 10  103 

1011  1 03 

10  12  103 

13  13  103 

10  15  103 

10  15  1C  3 
1316  103 

1017  103 

1020  103 

1021  103 

1 1 22  103 


COSCOUY 
C0SCDIJ7 
COSCDLX 
-PHAS  FI 
PHA  SF1 
-PHASF2 
PHASE2 
-PHASES 
PHAS  E3 
-PHASE* 
PHA  SE* 
-PHAS  E5 

-PHA  SE  f 

PH  AS  66 

GDUSPDT 

COUSPOTY 

CDLSPCT7 

CDUSPOTX 

M INDEX 

VMNUM0ER 

DSPCNT 

DS  FCCUNT 

DECBRNC  H 

VEP0REG 

NOUNREG 

XRFG 

YRFG 

7 PEG 

XREGLP 

HITEMOUT 

YREGLP 

LOTEMOUT 

7 P EG  L P 

MODREG 

DSPLCCK 

PEQRE  T 

I OADSTAT 

r 1 PASS 

NOUT 

NOUNCADR 

MON  SAVE 

MON  SAVE  1 

MC  NS  AVE2 

D SP  TAB 


10  36  10  3 

1037  103 

10*C  103 

In*  1 10  3 

10*2  103 

10*3  1 C 3 

10**  1C  3 
1044  103 

10*7  lO  3 
1050  103 

10  51  103 

10  52  10* 

1C  53  10* 

1055  1C5 

1055  1C* 

10  55  10* 

1C  56  10* 

1057  10* 

1 C 5 7 2*0 

1060  1C  * 

1C60  2*0 

1061  10* 

1062  10* 
1063  10* 

106*  1C4 

1065  10* 

1066  1C* 

1067  ’.i 

1067  1 0* 

1C  70  10* 

1071  10* 

1 C 72  10* 

1073  10* 

107*  10* 

1075  1C* 

1076  10* 

1C  77  10* 

1C77  1 C 5 

1100  105 

1100  105 

1100  105 

110*  105 

1106  105 

1106  105 

1 1 1 C IC5 


N VQTEM 
NVBNKT  FM 
VERBSAVE 
C ADR  STOP 
CS  PL  I ST 
E XTVBAC T 
CS  P J EM  1 
NCRMTF  Ml 
DSPTFM2 
CSPTFMX 
f FTI  CNX 
TPASFl 
FHSPPDT1 
1BA  SE  2 
PHSPRDT  2 
P I PC  T P 
TBASE  3 
FHS  PPOT  3 
MMTE  MP 
TBASE* 
BASETEMP 
PHSPRO  T4 
T P AS  E5 
PHSPRDT5 
TBASE  6 
PHSPPDT6 
NVWCPD1 
CSPFLG 
Ee aaksav 

MARKFLAG 
ERANKT  EM 
MARK? PAC 
AGSCDDE 
1 / PIPADT 
1FMK 
SQ 

SAWPLIM 
RADL  SF 
RRT  ARGET 
RSUBC 
SAM PL  SUM 
T IMEHOLC 
MCDEA 
TANG 
MCCEB 


111C  105 

1112  1C  5 

1112  105 

1113  1Q5 

111*  106 
1116  106 
1117  106 

1121  106 
1123  106 

1125  106 

1133  106 

11*1  106 
11*2  106 
11*3  106 

II**  106 
11*5  106 

11*6  106 
1150  106 

1152  106 

115*  106 

1155  106 

1156  106 

1157  106 
1160  106 
1 1 6 1 106 
1162  106 

1162  152 

1163  106 
116*  106 

1165  106 

1166  106 

1166  107 

1167  106 

1170  106 

1170  212 

1171  106 

1171  212 

1172  106 

1172  212 

1173  106 

1173  106 

1173  212 

1217  107 

1225  107 

1233  107 


N SAMP 

OESRET 

PL  DAT  AGC 

OE  SCOUNT 

T DEG 

C CLREG 

LAT 

LONG 

ALT 

YV 

ZV 

P *0 /RE T 
GENRET 
OPTI  CN1 
OPT I ON  2 
OPT  1 0N3 
LONGC  ADR 
LONGRASE 
LONGT I ME 
CDUTE  MP  X 
C OUT  EMPY 
C DU  TE  MP  Z 
PIPATMP  X 
P IPATMPY 
PIPA  TMPZ 
DISPDEX 
P21  ORIG 
TEMPR  60 
PRIOT  IME 
UPVERBSV 
UPTEMP 
E RU  F2 
COMPNUMB 
JPOLDMOO 
DL601 
UPVERB 
OL60  2 
UPCOUNT 
DL  603 
DVT  EMP 
UPS  UFF 
DL  60  * 

RN 

VN 

PIPT  IME 


1235  107 

1235  107 

1235  107 

1235  889 

1236  107 

1236  210 

12*1  107 

12*3  107 

1245  107 

12*5  107 

12*7  107 

12*7  1 C 7 

1250  107 

1251  107 

1252  1 C 7 

1252  107 

1252  107 

125*  107 

1255  107 

1256  107 

1257  108 

1260  108 
1261  108 
1262  108 
1263  108 

1265  108 

1266  108 

1267  108 

1270  108 

1271  108 

1273  108 

1 27  A 108 

1275  108 

1276  108 

1277  108 

1300  108 

13CG  202 
1300  20* 

1300  206 

1300  20  8 

1300  2 10 

1300  212 

1301  109 

1301  109 

1302  109 


CURSOR 

TMPDV 
GDT/2 
SP  IRAL 
DL5  1 5 
POSC  ODE 
PGU  IDE 
MASS 

WEIGH  T/3 
ABDELV 
UPSUM 
ARD  VACO 
DVT  HPUS H 
A VFGE  XI  T 
AVGEX  IT 
DELVOV 
PI  PAXOLD 
P I P AY  OL  U 
PI  PAZOLD 
C H5MA  S< 
CHS  MASK 
SPNDX 
RCSFLAGS 
T5  ADR 
C 13QSAV 
C13FS  AV 
RADTI  ME 
RADDEL 
TTDT  IG 
P VALVE  ST 
DFLPFROR 
DELQERDR 
DELREP03 
IM00ES30 
I MODE  S3 3 
DL  112 
DL2  1 5 
DL311 
DL  *07 
DL506 
DL611 
I MU  C A DP 
MflDEC  ADR 
OP  TCADR 


1303  109 

130*  109 

1306  1C9 

1307  109 

1310  109 

1311  109 

1312  109 

1313  109 

13H  lOQ 
1315  109 

1315  1 C9 

1316  109 

1317  109 

1320  109 

1321  109 

1322  1C9 

1323  109 

1326  109 

1327  109 

1327  202 

1327  20* 

1327  206 

1327  208 

1327  210 

1327  212 

1330  no 

1331  110 

1331  201 

1331  20* 

1331  206 

1332  110 

1332  110 

1333  110 

133*  110 

1334  20  1 

133*  20* 

1335  no 

1335  20  2 

133  5 2 0* 

1336  11C 

1336  201 

1336  202 

1336  20* 

1337  110 

13*0  110 


RADCADR 
ATTCADR 
A TTPRIG 
MARKSTAT 
DSRUPTSW 
LGYRO 
PRRET 
RDE  S 
HP  INDEX 
LPWH1 
WI  XA 
W IX  8 
ZI  XA 
Z1XB 
AGS  WORD 
PA  TF  I NO  X 
DEL  AYLOC 
LE  MMASS 
Z SMMASS 
DL111 
DL21* 

DL  310 
DLA06 
DL  505 
DLb  10 
0 NR RANG  E 
DNRRDOT 
DL107 
D L 2 0 * 

DL  31* 
DNINDEX 
RAD3 I TS 
DNLRVFLX 
ONLKVE  LY 
DL  108 
DL2D5 
DNLRVE  LZ 
DL  109 
DL206 
DNLRAL  T 
DL  10  1 
DL110 
DL  20  7 
BALL  EX  IT 
DAPDATR1 
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134  1 
1343 

1343 

1344 

1345 

1346 
13  47 
1350 

135  1 

1352 

1353 

1353 

1354 

1355 

1356 


1 1 ; DBVAL1 


110 
1 10 
110 
110 
111 
111 
111 
111 
1 1 1 
111 
111 


A7 

El 

WC H PH  ASE 
F3J  2 2R  2M 
F 3 2 C 3 1 R M 
TRUNNCMD 
S HA  FT  CM  0 
ELRI AS 
WHCHREAD 
TOOFEW 
SE  R VD  UR  N 
DUMLOOPS 


F3.1444 
E 3,  1445 
E3  ,1446 
E 3,1447 
E3.1450 
E3  ,1451 
F 3,  1452 
E3 .14  52 
F 3,14  53 
E?, 1453 
E3  ,1454 
E 3,1455 
E3, 1456 
E3 ,1457 
E 3,  1460 


PHSNAMF4 

PHSRR4 

P HS  n AME5 
PHSBR5 
PHSNAME  6 
PHSeR6 
P B I A S X 
P IP  AB  I AS 
P I PA  SC. F 
P IPA  SC F X 
PEIASY 
PI  PASCF  Y 
PBI ASZ 
FI PASCFZ 
NBD  X 


DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

CEF 

PAGE 

SYMBOL 

E3  ,157  2 

114 

DELT  ACSM 

E4,  1406 

116 

WSURFPOS 

E 4,  1571 

118 

YLEM 

E 3 ,1600 

114 

NUVC  SM 

E4  ,1407 

116 

WSIJRFVFL 

E4, 157  1 

120 

AGS  BUFF 

E3,  1606 

114 

R C VC  SM 

E4,  1410 

116 

SHAF  TVAR 

F4 ,1  571 

120 

AL  PH  AS  B 

E 3 ,1614 

114 

VCVCSM 

E4 ,14  11 

116 

TRUNV  AR 

E4,  1571 

1 20 

P I TCHANG 

E 3,  1622 

114 

t::  SM 

E4  ,1 4 12 

116 

504LM 

E4 , 1 5 7 1 

120 

RP-AZ 

E3 ,1624 

114 

XKEPCSM 

E 4,  1420 

116 

RL  S 

E 4 ,1571 

121 

RSTAC K 

E 3 ,1626 

114 

RRECTHI S 

£4,1422 

120 

AL  FD< 

E4 , 1573 

1 18 

RPAOTEM 

E3, 1626 

114 

RRECTLF" 

E 4 , 1426 

116 

TLA  ND 

E 4 ,1573 

lie 

WWVFL 

E3  ,1634 

114 

VRECTL  EM 

£4, 1430 

116 

P BODY 

E 4,1573 

118 

YDOTLEM 

E 3,1642 

114 

TETLEM 

E4  ,1431 

116 

ALPHAV 

04, 1573 

120 

BET  ASB 

F3,  1642 

114 

TETTHI S 

E 4 , 1437 

116 

8ETAV 

E4 ,1573 

120 

RK-ELEV 

E3  ,1644 

1 1 4 

DELT ALEM 

E4 , 1445 

116 

PHIV 

E 4,  1573 

120 

YA  WANG 

E 3,  1652 

114 

NUVLEM 

E4, 1453 

116 

PSI  V 

E4  ,1575 

118 

PHILEM 

E3 , 1 5 6 3 

1 14 

RCVLEM 

E 4,  1461 

116 

FV 

E 4 , 1 675 

1 l 8 

TSTART82 

F 3 ,1666 

114 

VC  V LEM 

E4 ,1467 

116 

ALP  HAM 

E4 , 1575 

118 

WWB IAS 

E3, 1674 

114 

TCL  EM 

C 4, 1471 

116 

BF  TAM 

E4  ,1576 

120 

RL  M 

1356 

1356 

1356 
13  56 

1357 

204 
20  6 
208 
212 

1 1 1 

DL  2C9 

Dl  3(  1 
DL411 

DL  60S 
SFLFERAS 

F 3 , 1 462 
E3, 1463 
E3  ,1464 

E 3,1465 
E3, 1466 

112 

113 

113 

113 

113 

NBD  7 

AD  I A X 

AC  I AY 

ADI  A 7 

ACSR AX 

r-3  ..1676 

E 3, 1700 

E3,  1706 
E3  ,1706 

F 3 , 1 7 1 1 

1 14 

114 

1 14 

115 
114 

X K r PI  EM 

X 789 
TEPHEM 

T IMSURO 
-A  YO 

E4 , 1473 
E4  ,1475 

E 4, 1477 
F4 ,15C  1 

E 4 , l 502 

F 4 , 150  3 

116 

117 

117 

117 

117 

1 l 7 

TAU  . 

DT/2 

H 

IRETURN 
NOR MG  AM 

BA  SETHV 

E 4,  1577 
E4, 1577 

E 4 , 1 605 

E 4 , 1605 
E4  , 1 6 C 6 
£4,1613 

118 

120 

118 

120 

120 

1 18 

RONE 

RP ASS36 
VUNE 

UNP  36 

AGS  HUFFE 
RANGE 

1360 

111 

ERESTOPF 

E 3,  1470 

113 

ADSRAZ 

03,1715 

1 14 

R(CSM) 

E4.1503 

117 

RPQV 

E4, 1615 

118 

RR  ATE 

1361 

111 

SFLFRET 

E3  ,1471 

113 

COMM  AN D 

E 3,  17  15 

1 14 

R-DTHER 

04,1511 

117 

KE  PR TN 

E4  ,16  17 

1 18 

RTHET  A 

136  2 

1 1 1 

SMODE 

E 3 ,14  71 

113 

GC.  CMP 

E3  ,1723 

114 

V (CSM) 

E4 , 1 5 1 1 

117 

OR IGEX 

E 4,  1621 

119 

GSA  V 

1363 

111 

ALMCADR 

E 3 , 1474 

113 

CDUIND 

E 3,  1723 

114 

V-flTHER 

E4  ,1512 

117 

BASET IME 

E4 ,1621 

119 

KFL 

1365 

111 

FR  COUNT 

E3  ,1477 

113 

GCCMPSW 

E3,  1731 

1 15 

REFSKMAT 

E4, 1512 

117 

HA  POX 

E4  ,1621 

119 

ME  I 

1366 

1 l 1 

SC  0 UN  T 

E 3, 1610 

113 

LUFF  CC  NT 

E3  ,1  753 

115 

ACTCENT 

E4 , 1 5 1 2 

117 

RPS  V 

E4 , 1621 

ME  S 

1371 

1 1 1 

SKEEPl 

83,130  1 

113 

UPSVFL  AG 

03,1755 

115 

L S21X 

E4, 1514 

117 

HPFRX 

E4  ,1621 

1 19 

X NBRAD 

1372 

111 

SKFEP2 

E 3 , 1 502 

113 

PRECT 

E3  ,1756 

115 

LOSVEL 

E4,  1520 

117 

XKEPNEW 

04,1627 

119 

1373 

1 1 l 

SKEEP3 

E 3,  16  11) 

113 

VREC  T 

E3  ,1  756 

115 

VSU6C 

04,1522 

117 

VECT  AB 

E',,1635 

1 19 

ZNBSAV 

13  74 

111 

SKEEP4 

E3  , l 6 l S 

113 

TET 

E3, 1764 

115 

MLDSV 

E4, 1530 

117 

3 A SE  0 T P 

F4  ,1635 

210 

DL501 

1375 

1 1 1 

SKEFP  5 

E 3,152'. 

113 

TOE  LTAV 

E3  ,1766 

115 

RANGEV  AR 

E4, 1530 

118 

V8  2FLAGS 

E 4,  1643 

119 

+ MGA 

1376 

1 1 1 

SKEEP6 

F3,  1526 

113 

TNUV 

E 3, 1770 

115 

RA  TE  VAR 

E4  ,1631 

118 

TFF 

04,1643 

1 l Q 

1377 

111 

SKEFP7 

E 3 ,1534 

113 

PCV 

03,1772 

1 15 

R VARM  IN 

E 4,  1533 

118 

-TPER 

E 4 ,1643 

119 

T1  T DT2 

E 3,  140t 

1 12 

L ST  1 

E 3, 1 5 42 

113 

VC  V 

E3  ,1773 

116 

WARMIN' 

E4 ,1536 

1 17 

X N BP  IP 

04, 1645 

119 

LRXCDU 

E3  ,1  4 1 

112 

IST2 

53,1353 

113 

TC 

E3,  1774 

115 

t:oh 

E 4 , 1 544 

117 

YNBPI P 

F4  ,1645 

1 19 

T2T  OT 3 

F 3,  1432 

112 

P SBRQ 

E 3 ,155? 

1 1 3 

XKEP 

E3  ,1776 

115 

ERAS  FIL  1 

E4, 1552 

117 

ZNBP  IP 

E 4,1646 

119 

LRYCDU 

£3,1434 

112 

l ONGEXIT 

E3,  1552 

113 

XPPE  V 

04,1400 

116 

WRF  ND  PC  S 

E4  ,1660 

117 

BAS  ET  HP 

E4 , 1647 

1 19 

EL  EV 

= 3,1'.  36 

112 

PHS  N AME1 

F.3 ,1554 

1 14 

RREC1  CSM 

E4 , 1400 

120 

TPANSM  1 

E6,  1560 

117 

VONE  • 

F 4 ,1647 

119 

LRZCDU 

E 3,  14  37 

112 

PH  SRR  1 

E 3 ,1554 

114 

RRECTOTH 

E4  ,1401 

116 

WRENDV  EL 

E4, 1566 

1 17 

R FA  ILCNT 

E 4,  1650 

119 

E3 ,1440 

112 

P PS  N AM  E2 

E3, 1662 

1 1 4 

VREC  TC SM 

E 4 , 1402 

116 

WSHAF  T 

E4  ,1567 

118 

E PS  I L ONT 

F4 ,1651 

1 19 

UNRM 

E 3,144  1 

112 

PHSBR2 

E 3 ,15  7' 

114 

T-CTHER 

04,1403 

1 16 

WTRUN 

E4, 157 1 

117 

BA  SEOTV 

E 4, 1651 

119 

UP1 

E 3,  144? 

1 12 

PHSNAMF  3 

: 3,1570 

114 

TE  TC.  SM 

E4  ,1  404 

116 

R MAX 

E-^.167  1 

118 

HPFRM  IN 

M.,  1653 

ANGTERM 

E3  ,1643 

112 

PHS8P3 

E3,  167C 

1 1 4 

T ETOTHER 

F4 , 1405 

116 

VMA  X 

F 4, 1571 

118 

wwpns 

F4  ,1653 

1 22 

AT 
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= "A  SABLE  € EQUALS  C°CSS-REFERENCF  TAPLE  SHCWlNG  DEFINITION,  PAGE  DF  DEFINITION,  AND  SYMBOL 


OEF 

PAGE 

SYMBOL 

OEF 

PAGE 

SYMRCL 

OEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

i-U  ,1  655 

122 

ve 

E4 , 1745 

122 

ATY 

E5 , 1434 

131 

SOU  T I ME  I 

E 5,  1463 

131 

OPTNREG 

F5  ,1524 

125 

SL0PE4 

= 5,  1657 

119 

0ELVEET1 

E 4 ,1  747 

122 

ATR 

E5  ,1434 

131 

GENPL 

E5,  1464 

124 

< IGNX/84 

E 5, 1525 

125 

ROD  SCALE 

£4,1657 

122 

TTO 

E 4 , 17  50 

121 

LMVFL 

£5,1434 

131 

RDSP 

E5  ,1  464 

131 

SAVE 

E5, 1526 

125 

RDHZSCAL 

5 5,1661 

122 

TBUP 

p4 , 1 75 1 

12? 

ATP 

E 5 , 1434 

132 

A 1NL  A 

E 5, 1464 

132 

WPLATO 

F 5 ,1 526 

132 

DPIPAZ 

E 5,  16  6? 

122 

p on  TO 

E 4,1753 

12? 

YAW 

E 5 ,1  434 

132 

WAN  GO 

E5 ,1466 

125 

K IGNY/B8 

E 5,  1527 

125 

TA  LRODL 

E4 ,1665 

119 

DFLV  FET2 

E4,  1755 

122 

P ITCH 

E 5,  1436 

124 

ABPFG* 

E 5 ,1467 

131 

SECCNST  1 

E5  ,1530 

125 

T AJRODB 

; 5, 1665 

122 

YDOTO 

E 4 ,1756 

121 

CELVEET3 

£5,1436 

131 

CDJT  IMEF 

E 5,  1470 

125 

< IGNV/B4 

E 5 , 1 53C 

132 

ALTI  M 

E4, 1667 

122 

zorno 

F 4 , 1764 

121 

RTS  TOE  X 

E5  ,1436 

132 

WANGI 

E5 ,1470 

131 

T IMER 

E5 , 1531 

126 

VERCRIT 

E4 ,1671 

122 

/ R/MAG 

E*,  1765 

121 

RTSTMAX 

F5, 1436 

8 20 

AD3  2TTF 

E 5 , 1470 

132 

I NT Y 

E5  ,1531 

132 

ALT  I MS 

E 4, 1673 

119 

0 VLOS 

F4 ,1766 

121 

PT  ST E AS  E 

E5  ,1440 

124 

AAPFG* 

E5, 1472 

125 

LOWCR  IT 

E 5,1532 

126 

MI  NF  ORCE 

■ , i ■ 73 

119 

PACT  1 

F 4 , 1767 

121 

R TSTLO: 

E 5 ,1440 

131 

COUOANG 

E5  ,1472 

131 

OAT  APL 

E5,  1532 

132 

AL  D< 

E 4,1673 

122 

LAXI  S 

F4  ,1770 

121 

RS  AMFOT 

E5 , 1440 

131 

T EMP  ADD 

E 5,  1472 

132 

ANGZ 

E 5 , 1 533 

125 

MAX  FORCE 

E 4,  17  C 1 

119 

RAC  T 2 

E 5 , 14C0 

124 

VELBI  AS 

E 5 ,1  440 

132 

TORONDX 

E5 , 1473 

125 

HIGHCRIT 

E 5,  1534 

125 

J IP  ARM 

F4  ,1 1: 1 

1 1 9 

ULOS 

E5 , 1400 

124 

W 

E 5, 1440 

132 

WANG  T 

E 5 ,1474 

125 

TAUHZ 

E5 ,1534 

131 

MASK  R EG 

: 4,  17'  1 

12? 

YnnT 

F5  ,1400 

131 

AZIMUTH 

E5  ,144  1 

131 

CDJR  EADF 

E 5,  1474 

132 

INTZ 

£5,1536 

125 

K1  PARM 

E4, 1703 

122 

7 DOT 

F 5,  14-:? 

124 

RBRFG  X 

E5  ,1441 

131 

TF  Mp 

F5 , 1475 

12  5 

QHZ 

E5,  1536 

131 

CDUND  X 

E4  ,1705 

122 

GEFF 

E5,  140  2 

13l 

L AT  ITUOE 

F5 , 1442 

124 

i 

E 5,  1476 

125 

AHZ  LI M 

E 5 ,1537 

131 

RESULT  CT 

F 4,  1707 

119 

RTSR  1/PIJ 

E 5 ,1402 

82  0 

RCG 

E5  ,1442 

131 

CGJREADI 

E5,  1476 

132 

ANGY 

E 5,1540 

125 

J2PARM 

E 4 , 1707 

120 

HAPO 

E 5,  14C4 

124 

RAPFS X 

E 5,144  2 

131 

NGBI TS 

E5  ,1477 

125 

T EX  T R A 

E5  , 1542 

125 

K 2p  ARM 

E 4, 1 7C7 

120 

ACMTPI 

E5  ,1404 

131 

EPV  ECTOR 

E5 , 1442 

132 

DR IFTT 

E 5 , 1 5CC 

125 

OF  LQF I X 

E 5 ,1542 

1 31 

COUNT  PL 

E 4,  17C  7 

122 

G(  C SM  ) 

E 5 , 1 4 06 

124 

RBRFG  7 

E5  ,144? 

820 

JDG2TTF 

E5 ,1500 

132 

ANGX 

E 5,  1543 

131 

CDUANG 

E4 ,1  7 1 1 

1 1o 

PTM|J 

F5 , 14  10 

124 

RAPFGZ 

F 5,  144  3 

131 

SD  ULI  MI  T 

F5  ,1502 

125 

L RV  MAX 

F5  ,1644 

125 

T HET CR  IT 

F4, 1711 

120 

H PE  R 

E5  ,1412 

124 

VeRFGX 

E5 ,144  3 

131 

CHAN 

E 5,  150  2 

132 

DR  I F TO 

E 5,1546 

125 

R A M I N 

E4, 17  13 

121 

P IN  IT 

F 5,  1412 

131 

LENGTHOT 

E 5 ,1444 

124 

JAPFG* 

E5 ,1503 

125 

L RV  F 

F5 , 1550 

125 

YL  I M 

E 4 , 1 7 1 5 

121 

WM 

£5,1412 

820 

VCG 

E5 , 1444 

131 

LOS  l 

E 5,  1504 

12  5 

LR  WVZ 

E5  ,1550 

132 

DELM 

c 4 , 1721 

121 

VI  NI  T 

E 5, 141  3 

131 

LCSVFC 

E5  ,1444 

132 

ALX  IS 

E5,  1504 

132 

DR  IFTI 

£5,1552 

125 

AbTRDOT 

F 4 , H23 

123 

/L  ANO/ 

E 5,  1414 

124 

VAPFGX 

E 5 , 144  5 

132 

C MPX 1 

ES  ,1  5 C5 

125 

LRWVY 

E5 , 1554 

125 

COSTHET  1 

E 4,1725 

122 

LRXCDUCL 

E5  ,14  14 

131 

NCX  CTR 

F5 » 1446 

124 

GA  INBRAK 

E 5, 1506 

125 

LR  WVX 

F 5 ,1  556 

125 

COST  HET2 

E 4,  17  25 

122 

Y 

£5,1415 

131 

PI  PI  NOE  X 

E 5 ,1446 

132 

ALK 

E5  ,1507 

125 

LRWVFZ 

F 5,  1560 

126 

CG 

E4.1726 

122 

L RYCDUCL 

E5,  1416 

124 

V BRFGZ 

F 5,  1450 

124 

3 A I NAPPR 

£5,1510 

125 

LPWVFY 

£5,1560 

126 

JPARM 

E 4, 1727 

121 

VI  PRI  ME 

E5  ,1416 

131 

FCSITGN 

E5 , 1 4 5 2 

124 

T CGFBP . AK 

E 5,  1 5 10 

132 

VLA  UN 

£5,1560 

1 32 

WPLATI 

E4,  1727 

12? 

DP  DOT 

? 5 , 1 4 1 7 

1?1 

QPLACE 

E 5 ,145’ 

131 

LOS  2 

F5  » 1 5 1 1 

125 

L RW  V EX 

E5, 1562 

126 

KPARM 

E4 ,1727 

122 

LRZCDUCL 

£5,1420 

124 

VAPFG7 

E5, 1452 

132 

THE  TAN 

E 5, 1512 

125 

LR  WVFF 

E 5 ,1562 

132 

GFOCOMPS 

E 4,  17  30 

122 

LPVTIMDL 

F 5 , 1 420 

131 

OPLACFS 

E5  ,1453 

124 

T CG  I BP  AK 

E5 , 15  12 

132 

ACCWD 

E 5,  1563 

132 

ERCOMP 

E4 , 1 7 3 1 

12? 

DY  OOT 

F5 , 1421 

131 

SQUTHDB 

E 5,  1454 

124 

TCGF  APPR 

E5  ,1513 

125 

ABSC.0 

E5 ,1564 

126 

RP 

E 4,1733 

122 

OZDOT 

■ 

124 

ARRFGX 

E5,  1455 

124 

TCGIAPPR 

E5,  1514 

125 

AB  SC  1 

£5,1566 

126 

OAXIS 

E 4,  1735 

121 

FOA  I X 

E 5, 1422 

820 

ADG 

E5  ,1456 

124 

V IGN 

E5 ,15 15 

125 

ABSC2 

E 5,  1571 

132 

ZERONDX 

E4 ,1735 

122 

PCONS 

E5 , 14  24 

124 

AAPFGX 

E 5,  1460 

124 

R ISNX 

E 5, 1516 

125 

ABSC3 

E5  ,1572 

132 

IS  ECXT 

E 4,  1736 

121 

F 0 A I Y 

E 5, 1426 

124 

ABRFGZ 

E5  ,1460 

131 

CALCDIR 

E 5,  1517 

125 

AB  SC  4 

£ 5,1573 

132 

A SEC  XT 

E4 , 1737 

121 

FOA  17 

E 5,  1430 

124 

AAPFGZ 

E 5 ,1460 

132 

F I LDELV 

E5  » 1 52 0 

125 

SLOPEO 

E6 , 1674 

126 

ZAXIS1 

E 4 ,1737 

122 

YCCNS 

. 

131 

TEMPT  IME 

E 5,  146  1 

131 

30UFLAG 

F 5,  1520 

132 

POSNV 

E 5 ,1574 

1 32 

PERFDLAY 

E 4,  1740 

121 

DEL  VTPF 

F 5 , 1432 

124 

VBRFG* 

E5  ,1462 

124 

R IGNZ 

F5,  1521 

125 

SLOPE  1 

E 5,  1576 

132 

OVFLOWGK 

E4 ,1741 

122 

PRAT  E 

E5, 1432 

131 

TMARK 

E 5,  1462 

131 

3 YTOBETO 

E5  ,1522 

125 

SLOPE? 

E5 , 1602 

126 

UUTOFPLN 

E 4,1742 

121 

LMPOS 

E 5 ,1432 

820 

VDG2TTF 

E5,  1462 

132 

INTVEC 

E 5, 1522 

132 

DPI  PA  Y 

E 5,1602 

126 

RANGEDSP 

E 4,  1743 

122 

YR  A TE 

E 5, 14  14 

124 

VAPFG* 

E5  ,1462 

132 

VLAUNS 

E5 ,1523 

125 

SL  OPE  3 

F 5,  1604 

126 

RGU 

SAP:  ASSEMBLE  RFVISION  56  OF  AGC  FRCGPAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21,1970 

ERASABLE  f.  EQUALS  CROSS-REFERENCE  TABLE  SHOWING  DEFINITION,  PAGE  OF  DEFINITION,  AND  SYMROL 


DEF  PAGE  SYMPOL 


DEF  PAGE  SYMBOL 


OFF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


mm 

c 5, 16  14 
E5 ,16 16 
E 5,1620 
E 5,  16  A 2 
£ 5 , 1 6 A 2 
= 5,  1642 
E5,  16  42 
E5  ,1644 
E 5, 1646 
E5 , 1 6 50 
E 5,1654 
F 5,  1654 
F 5 ,1656 
E 5,  1662 
F 5, 1664 
E 5 ,1664 
E 5, 1664 
E 6 , 1 6 6 4 
E 5,1667 
E 5,  1670 
E 5 , 1 6 72 
E 5 , 1 >72 
E5 , 1672 
E5  ,1673 
E 5,  1700 
E5  , 1700 
E 5,1701 
E 5,  1702 
E5 ,1  706 
E 5,  1 7C6 
■ 

E5 ,1706 
E 5,  1706 
E5 , 1706 
E 5,1  710 
b 5,  17 10 
,171 
E s * 1 7 1 1 
E 5 , 17  10 
= 5 ,1711 
E 5,  17  1 1 
£5,1712 
E 5, 1712 


126 

126 

126 

124 

126 

129 

130 
129 
129 
126 
129 
12Q 
126 

129 
126 
126 

130 
130 
130 
129 
126 
126 
129 
1?', 
126 
126 

129 

125 

126 
127 
127 
127 
127 

130 
126 
129 
129 
129 
129 

129 

130 
126 
130 


DL  AND 
DLANDX 
D LA  NO  V 
DL  ANC7 
ASCSAVE 
END  W 
XSM 
DE  LX 
7 I 

DELT 
URREC  T 
YSM 
PV  EC 
R 1VEC 
7SM 
R2  VEC 
XDC 
X NR 

DE  LTA  X 

TP  IPA 

TEMPVAP 

TDESIRED 

YCC 

YNB 

GEOMSGN 
UN 
7 DC 
7NP 

VT ARGTAG 

V TAR  GE T 
1 AN  Dl  AT 
C ULTRT  X 
GACC 
STARAD 
VE  A R TW 

V AR  I ANCE 
LANOLCNG 
R TNAP  SE 
RTNL  AMR 
P TNTR 
PTNTT 

U2 

GRP  2 S VO 

L AN  DAI  T 
CMEGAM1 


F 5 , 1 7 1 7 
E 5,  17  17 
E5 ,1720 
E 5,1721 
F5 ,1722 
F 5 ,1726 
E 5,  1727 
E5, 17  30 
F 5,1730 
E 5,  1731 
E5  ,1733 
F 5,1734 
E5 , 1 7 35 
F 5 ,1736 
F 5,  1737 
E5,17  37 
F 5 ,1741 
E 5 , 1741 
E5  ,1741 
E 5, 1743 
E5 , 1743 
E5  ,1743 
E 5,  1745 
E5,  1746 
E 5, 1747 
E 5,  17  5 1 
E5  ,1753 
E 5,1 754 
E5, 1755 
E 5 ,1755 
F 5,  1756 
E5 , 1756 
E 5,1757 
F 5 , 1757 
E5  ,1757 
E 5,17  60 
F5 , 1761 
F 5 ,1761 
E 5,  1763 
E5.1765 
E 5, 1 765 
E 5,  1766 
C5  ,1767 


127 

127 

129 

129 

130 

129 
127 

130 
129 
127 
127 
129 

129 

130 
129 
127 
127 
129 
127 
129 
204 
127 
129 
204 
127 
127 
127 
129 
129 
129 
127 
129 
127 
204 
127 
129 
129 
127 
129 
129 
129 
129 

129 
127 

130 


G CUT 
V SUN 
M AGVEC2 
R 2 

CNEGAM2 

UR  1 

VMOON 

CNEGAM3 

SNTH 

SAX 

STAR 

C.  STH 

1-CSTH 

HCLDW 

f.  STH-RHQ 

GCTR 

OGC 

P 

IGC 

R 1A 

CL217 

MGC 

V VEC 

C L2  1 P 

QMIN 

QMAJ 

OGCT 

ECC 

FTNPRM 

SGNRDOT 

BESTI 

PDFS  IRFD 

BE  ST J 

DL219 

STAR  I ND 

DELDEP 

TERPLAMB 

STARSAV1 

OEPRFV 

T PREV 

EP  SI  LONL 

COGA 

I NOE  P 

STARSAV2 

EGRESS 


E 5 ,1774 
E5, 1776 
E5  ,1777 
F 5 , 1 7 77 
£6, 1400 
E6  ,1401 
E6,  1 4<  2 
E6 , 1 43  3 
E6  ,1404 
E6 , 140  5 
E6 ,1406 
, ' 

E6,  1410 
Efe  ,1411 
E 6,  H12 
E6 , 1 4 1 3 
E 6 , 1 4 1 4 
E6, 1415 
E6  ,14  16 
E 6 , 1 4 1 7 
E6 , 1420 
E6  ,1421 
E 6,  1422 
E6 ,1422 
E6  ,1422 
E6 , 1422 
E6  ,1423 
E 6 , 1 42  3 
E6, 1423 
E6.1423 
E6, 1424 
E6 ,1425 
E6  ,1425 
E6, 1425 
E6  ,1426 
£6,1426 
£6, 1427 
E6 ,1427 
£6, 1427 
£6,1427 
£6  ,1430 
E6 , 1431 
E6  ,1432 
E 6, 1433 
£6,  1434 


127 

128 
128 

132 

133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
202 
202 
210 
133 
202 
202 
210 
133 

1 33 

2 02 
210 

133 

134 

133 

134 
134 
137 
133 
133 
133 
133 
1 34 


TALIGN 
R TX  1 
RTX  2 
E ND-E5 
H I A SCENT 
ROLLT  IME 
PI  TTI  ME 
DKTR  AP 
D KOMEG  AN 
3KKAUSN 
LMT  RAP 
L MO MEG AN 
LMKAOSN 
DKD8 
IGNAOSO 
I GVAOSR 
Mil 
M 21 
M3 1 
M22 
M 32 

OMEGAP 
OMFGAQ 
DL  1 14 
DL1  2 5 
0 L 50  7 
OMEGAR 
DL115 
Dl  126 
0L508 
4LPHAQ 
ALP  HAP 
D LI  32 
DL514 
OMEGAU 
URATEDI  F 
OMFGAV 
E DOT  P 
VRA  TEOIF 
FOOT 
TRAPEDP 
TRAPEDO 
T RAP  E DR 
NPTRAPS 
VQTRAPS 


E6 , 1435 
£6,1436 
E6,  1436 
E6  ,1437 
F 6,  1437 
E6 , 1440 
E6  , 1.441 
£6,  1442 
E6 , 1443 
E 6,  1444 
E6,  1445 
E6  ,1446 
E 6,  1450 
E6 ,1450 
E 6 ,1450 
F 6,  1452 
E6 ,1452 
E 6, 1452 
E6,  1454 
E6  ,1455 
F 6,  1456 
E6 ,1457 
E6  ,1460 
E 6,  1461 
E6 ,1462 

E 6,  1464 
E6, 1465 
E6  ,1466 
F6, 1470 
E6 , 1472 
E 6 ,1473 
E 6,  1474 
E6 ,1475 
E 6, 1476 
E6,  1476 
E6  ,1477 
E 6,  1500 
E6 ,150  1 
E 6 ,1502 
E 6,  1503 
E6 ,1504 
E 6, 1505 
E6,  1505 
E6  ,1506 


134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

136 

134 

134 

136 

134 

13a 

134 

134 

13A 

134 

134 

134 

134 

134 

134 

134 

134 

134 

13A 

134 

134 

135 

135 

136 
138 
136 
136 
136 
136 
136 
136 


NRTRAPS 

EDOTO 

QR A TED1F 

EDOTR 

RRATEPI  F 

OLDXFOP.P 

OLDYFORP 

3LDZF033 

CH3  U EMP 

STI  KSENS 

TCP 

DX  ERROR 
D YE  PR  OR 
QERROR 
GDI  FF 
3ZFRR0R 
RERROR 
R Dl  FF 
PLAST 
OLAST 
R LA  ST 
TCQR 
OLOPMIN 
OLDQRMI N 
S AV  EH  AND 
PERROR 
N XT6AD? 

T 6 NEXT 
T6F  UR  THA 
NEXTP 
NEXTU 
NF  XTV 
-2 J ETL  IM 
-RATFDB 
TAR  GF TOB 
RET  JADP 
SENSE  TYP 
NEGUQ 
ALLOWGTS 
NEGUR 
KQ 

A XI  SC  TR 
SAVESR 
KRDAP 
ACCDOTQ 


E6 , 1 5 1 0 
E6  ,1511 
E 6,1512 
F6 , 15  13 
E6,l  513 
E 6,  1514 
E6 ,1514 
E 6 , 1 51 5 
F6 , 15  16 
E6  ,1516 
£6,1516 
£6, 15  16 
F 6 , 1 51 6 
E 6,  1516 
£6  ,1517 
E 6 , 1 5 1 7 
£6,  1517 
£6  ,1517 
E 6,1517 
E6 , 1 5 17 
£6,1520 
E 6,  1520 
£6,1520 
F 6 , 1 52  0 
E6 , 152C 
E 6 ,1520 
E 6,1521 
E6, 1522 
F6  ,1523 
E 6,  1524 
E6  ,1525 
£6,1525 
£6,  1526 
£6  ,1527 
F 6, 1530 
E6 , 1 5 3 1 
E 6 , 1 532 
F 6,  1533 
F6 ,1534 
E 6,1535 
E6 , 1536 
E6  ,1540 
E 6, 1542 
E6 , 154  3 
E 6 , 1 54A 


136 

136 

136 

136 

1 36 
136 
202 

136 

137 
20  1 
204 
20  6 

2 0 B 
212 
137 
201 
20  4 
206 
208 
212 
137 
201 
204 
2 06 
20  8 
212 
137 
137 
137 
137 

137 

138 
137 
137 
137 
137 
137 
137 
137 
1 37 
1-37 
137 
137 
137 
137 


QACCDOT 
ACCDOT  R 
KACCDOT 
DOWN  TORK 
POSTORKP 
NEGTORKP 
OL  133 
PGSTORMJ 
NEGTORKU 
DL103 
DL201 
DL  30  3 
DL4U2 
DL  606 
POSTORKV 
D LI  04 
DL  20  2 
DL304 
DL403 
DL  60  7 
NEGTORK V 
DL  105 
DL  20  3 
DL305 
DL  40  4 
DL608 
NO.  PJbTS 
ND  .UJ  ETS 
NO. VJETS 
TJP 
TJU 
TJE  TU 
T J V 

L,  PVT-CG 
1JACC 

Uaccq 

1 JACCR 
1JACCU 
SKIPU 
SKI  PV 
AOSQ 
AOS  R 
AO  SU 
AOSV 

AOSOTERM 
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DEF 

PAGE 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBCL 

DEF 

PAGE 

SY  MBOL 

CEF 

PAC-E 

SYMBOL 

r 6* 1545 

137 

AO SP  TER P 

F6  ,1643 

138 

CPEGAQD 

Eft,  1737 

135 

ROTEMP  2 

E 6,  1756 

141 

DAPZRUPT 

6 7,1462 

144 

MARKCTR 

Fft,  154ft 

138 

ACC  5V, U 

- 6,164? 

2C2 

DL121 

E6  ,1  737 

1 37 

ROTSENSE 

E6 ,1760 

14  l 

AK 

F7,  14fc2 

1 44 

trkmk:nt 

Eft  ,154ft 

138 

BLCCKTCP 

F6f 1ft44 

138 

OMFGARD 

E6, 1737 

14C 

3 A P TF  MP  2 

F 6 ,1761 

141 

AK1 

E7  ,1462 

144 

VS  ELECT 

F 6 , l 5 47 

l 3 R 

ACC  SRV 

F 6,1644 

2 0? 

DL1  22 

E6  ,1  740 

135 

POLYTEMP 

Fft, 176? 

141 

AK  2 

E 7 , 1462 

206 

DL313 

E 5 , 1 5 5 f 

1 40  3 

i/anetp 

E 6,  1645 

139 

ECDLW 

F ft  ,1  740 

136 

KCE  N'T  PAL 

Eft ,1 763 

HI 

EDP  IV  E< 

E7 , 1462 

20  8 

OL  409 

= 5 ,1552 

1403 

1 / ACCSTP 

F6 , 1 64  5 

139 

ECOUWUSP 

E6 , 1740 

13ft 

SHFTFLAG 

E 6,  1764 

141 

E DP  I VE  Y 

E 7 ,1463 

1 44 

/ AFC/ 

Eft,  15  54 

13  fi 

FLA  T 

r 6 , 1645 

139 

PI  S 

Eft  ,1  740 

137 

FIREFCT 

Eft,  1765 

141 

EDR  IVEZ 

F 7,  1463 

144 

NOR ME  X 

Eft  ,1  555 

13  8 

70NF3L  IM 

F6, 1645 

140 

VEC  1 

F 6,  1740 

140 

DAPTEMP3 

F 6 ,1  765 

1 4 1 

PJETCTR 

F7 ,1464 

144 

GSAVED 

3 6, 155ft 

1403 

PACO  FUN 

Eft  ,164ft 

139 

CCCUWUS p 

E6 » 1 74  1 

135 

T FMPNUM 

F 6,  1767 

141 

UJF  TC  TP 

E 7 , 1 4ft  5 

144 

FCOOD 

F ft,  1 c 60 

14  03 

PDB  1 

E ft, 1647 

139 

ND  xcnuw 

E6  ,1  741 

13ft 

K2CNTRAL 

Eft,  1770 

14  1 

VJ  ETCTP 

E 7 , 1465 

H4 

P TRN 

E 6 , 1 c 6 1 

1 493 

PC82 

E6, 16  5C' 

139 

FL  A GOO  DW 

Eft, 1741 

137 

TTOA  XI  S 

F6, 1771 

141 

AG  SK 

E7  ,1465 

144 

NN 

E 6, 1562 

1 493 

PDB  4 

E6  ,1651 

139 

FLPAUTNC 

E6  ,1741 

140 

DAPT  EMP4 

Eft,  1773 

14  1 

AZB  IA  S 

E 7, 1467 

144 

F P 

Eft  ,1563 

1493 

PC  B 3 

Ffc,  1652 

140 

LNFC  /2 

Eft  ,174 2 

135 

NUMBERT 

F6,1  774 

HI 

END-Eft 

E7 , 1470 

144 

SUBEXIT 

3 ft  ,1^64 

1 453 

PAXD! ST 

Et>  ,1653 

140 

V EC2 

E6,  1742 

l 3ft 

W CENTRAL 

E 7 , 1400 

142 

ATIGI  n: 

E 7 ,1471 

144 

F70VERLA 

E 6,  1566 

13R 

1 /ANE  11 

F 6,1660 

140 

UNWC/2 

Eft  ,1  742 

140 

DAPTEMP5 

F7 , 1 40  2 

142 

pt igin: 

E 7,  147  1 

144 

WHOCARE  S 

1 3 fl 

UNF  V / 2 

F 6,  1743 

135 

H2 

3 ft, 1572 

138 

1 /AC  OA  ST 

E 6 ,1666 

140 

UNFVX/2 

Eft  ,1743 

136 

ACFNTRAL 

E 7,  1412 

142 

AO  TEL 

E 7 , 1471 

148 

RTARG1 

Eft, 1674 

138 

ACCFCTZ  1 

z ft , 1667 

1 39 

COF 

E6  ,1  743 

13ft 

I NI  NOEX 

E7 ,1420 

14? 

LRHMAX 

E7, 1471 

1 49 

T X 789 

E6.1575 

138 

ACC  F CT Z5 

E6,  16  70 

1 40 

UNFVY/2 

E6 , 1743 

137 

ADR  SDIF  2 

E 7 , 1421 

142 

LP  WH 

E7  ,147  1 

151 

ABV  EL 

E 6,  1600 

1 3 P 

F I REDR 

Eft, 167? 

140 

LNFVZ/2 

E6  ,1743 

140 

DAPT  EMP6 

E7,  1422 

14? 

ZOOMTI^E 

F 7 ,1473 

151 

HDOTDI SP 

Eft  ,1602 

1 30 

0.0  AST  C B 

F 6- , 1674 

140 

-0ELGM8 

E6, 1744 

13ft 

DEL 

F7  ,1423 

H2 

TENOBRAK 

F7,  H73 

151 

P DOT 

3 6,1604 

1 3 P 

A X I SCIST 

E6  ,1675 

139 

PCCU 

E6 , 1744 

13ft 

J ETP  ATE 

E 7,  1423 

143 

RE  POST  NT 

E 7,1475 

1 51 

TTFD1 SP 

E 6,  1626 

1 3P 

COEFFO 

E 6,1677 

140 

CGAPI AS 

Eft  ,1  744 

137 

HOL  DQ 

F7  , 1424 

142 

TEND  APPR 

E 7 , 1477 

145 

PAPREC 

E6,l627 

138 

COFFFP- 

E6 , 1 7 0 C 

139 

K SPNDX 

F 6,  1744 

140 

DAP  TREG 1 

t 7 ,1424 

14  3 

REPOSTM 

F7 ,1477 

145 

PPASS  1 

3 ft, 163C 

138 

C DTPOLE  R 

E 6 ,1701 

139 

KCFNCX 

E6.1744 

140 

3LDSENSE 

E 7 , 1425 

142 

DEL  TTFAP 

£7,1477 

1 49 

GAMMA 

E6, 1631 

138 

QGIMT  IMR 

E 6,  1702 

139 

MFI SYM 

E6 ,1  745 

136 

A2C  NT  PAL 

E7 , 1426 

142 

L EAOT  IMF 

E7 , 1477 

15  1 

SAVET- 3C 

E6 , 1 6 3 2 

13k 

I N'GTS 

F6 , 170 2 

139 

NC  DU 

Eft, 1745 

13ft 

JETRATEO 

F 7,  1426 

143 

DELTA  TM 

E 7 ,1501 

15  1 

DELV  CT  L 

E ft , 1 6 3 ? 

13  8 

P.G I MTT  WP 

F ft  , 1 712 

139 

TPF  I 

Fft  ,1745 

F 7,  1427 

E 7 , 1 5P  1 

151 

VGRODY 

Eft, 1634 

138 

cnuxn 

Eft,  1702 

129 

TMI  S 

E 6, 174  5 

137 

ADRSDI Fl 

E7  ,1430 

H2 

RPCRT  QSW 

E7, 150  1 

152 

T GO  1 

3 6,1634 

139 

DCDU 

Eft  ,1705 

139 

NEXT  IME 

E6 , 1745 

140 

DAPTPEG2 

E7, 1431 

142 

TNF  WA 

F 7,1502 

149 

OMEGA 

E 6,  1635 

138 

CDUYD 

E 6 ,1706 

139 

TTE  PP 

E6  ,1  746 

136 

HALFARG 

E7  , 1433 

H3 

DELVLVC 

E 7 , 1505 

145 

VAPREC 

Efc  , 1 63 5 

202 

CL  1 1 6 

Eft  , 17  24 

139 

RRATF 

F 6,  1746 

13fc 

JETPATFR 

E 7 ,1433 

14  3 

DELVSLV 

F7 , 1 505 

145 

VP  AS  S 1 

3 ft,  1635 

202 

0L127 

F 6 ,1724 

139 

f C FS  K ew 

Fft  , 1746 

137 

HH 

E 7,  144  1 

143 

TIG 

E 7,1505 

1 48 

VPASS4 

Eft, 1635 

210 

DL  509 

F ft,  1724 

135 

143 

E7,  1 5(  7 

151 

DVTOTAL 

E6  ,1  ft3ft 

138 

CDUZO 

Eft,  1732 

139 

CAM 

E6, 1747 

136 

or:  ntr 

E 7 , 1451 

143 

DELLT4 

E 7 ,1511 

151 

GOBLT IME 

E 6 , 1636 

202 

DL117 

E 6 ,1 732 

139 

TP 

E6  ,1747 

140 

DAPT  R EC-4 

E 7,  1451 

143 

HLROFF 

E 7, 1513 

145 

VAC  T 2 

E6 ,1636 

20  2 

DL  1 28 

E 6,  1734 

139 

AM 

E 6 , 1750 

135 

UERRCR 

E7  ,1453 

143 

TTOGO 

E7, 15  13 

151 

DVCNTR 

3 6,1636 

21  0 

DL510 

E6  ,173ft 

134 

T EPP3 l 

F6,  17  50 

13ft 

FUNCTION 

E 7,  1455 

143 

WHICH 

F 7 ,1514 

151 

TGO 

E 6,  1637 

138 

DFLCDLIX 

F 6,1 736 

135 

ABSEDOTP 

E6  ,1  750 

140 

DAPTKEC-5 

F7 ,145ft 

143 

LOSCOUNT 

E 7,  1516 

151 

R 

Eft, 1637 

139 

CEL  DCDU 

E6 , 17  36 

135 

ABSTJ 

E6,  1751 

135 

VE  R R OR 

E 7 ,1456 

154 

OVFRET 

E7 ,1516 

151 

UN  IT  GORL 

3 6,  1640 

138 

DFLCOLY 

E 6 ,1736 

135 

P CT  E M PI 

E6 , 1 7 5 1 

137 

E 

F 7 , 1457 

144 

A I G 

E 7,1521 

145 

RPASS2 

Eft,  1640 

139 

DELDCDU  1 

E 6,  1736 

136 

GTSTEMPS 

E 6 , 1 751 

140 

DAPTREG6 

E7 ,1460 

H4 

AMG 

E7 , 1521 

145 

RP  PR  EC 

E 6 , 1 6 4 1 

138 

OELCDUZ 

E6 , 1736 

136 

K2THETA 

E6, 1752 

141 

DAPARUPT 

F 7,  1460 

206 

DL312 

E 7 ,1524 

149 

BVECTOP 

3 6,  1641 

139 

DFLDCDU2 

E ft , 1 736 

137 

EI30TSQ 

E6  ,1753 

141 

DA  PL  RUPT 

F 7,  1460 

208 

DL  408 

E 7,1524 

15] 

DEL  VREF 

Eft ,1642 

138 

OMEGAPD 

Eft, 1736 

140 

DAP  TFMP  1 

E 6 ,1754 

1 4 1 

DAPBCRPT 

E7  ,1  46 1 

144 

AOG 

E7, 1524 

151 

V 
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E7 , 1527 

145 

V PASS  2 

: 7 , 1 6 C 3 

145 

POSTCDH 

r 7,1527 

145 

VPPREC 

E7  ,16  05 

145 

CELT  FEO 

E 7,  1532 

151 

HCALC 

F 7 , 1 6 0 c 

145 

LGOPCT 

£7,1534 

151 

UN  IT/R/ 

E 7 , 1 6 0 5 

145 

POSTTP  I 

E 7, 1535 

145 

RAC  T3 

E 7 ,1606 

152 

XSCREF 

E7 , 1542 

151 

RN  1 

7,  1C  ( 

152 

X SMD 

E 7 ,1542 

153 

LANDTEMP 

E7 ,1605 

153 

P IFPS  FT 

c 7,  1542 

1 53 

OUR  TEMP  S 

£7,1607 

145 

GAMPRE  V 

E7 ,1543 

145 

UNV  EC 

F7, 1607 

146 

INTIME 

E 7,  1543 

145 

V AC  T3 

E7  ,1607 

153 

RTNHCLO 

E 7,  1546 

149 

DEL  TAO 

E 7, 1610 

153 

F VsE  I GHT 

E7  ,1550 

149 

MARKCNT  r 

E7, 16  1 1 

145 

CEL  DV 

E 7, 1550 

151 

VNl 

E 7 , 1 6 1 1 

145 

TSTPT 

E7  , 15 5f 

153 

TTF/8TMP 

E 7,  1612 

153 

P IF 

E 7 ,1  551 

145 

R PASS  3 

E7 ,1613 

145 

CS  1 AL  RM 

E 7,  1551 

149 

xymark 

E 7 , 1 6 1 3 

145 

T I TER 

E7  , 1652 

149 

MKDEX 

E7 , 16  14 

152 

YSCRFF 

E 7,  1552 

153 

elcolnt 

E 7 ,1614 

152 

YSMP 

E 7 , 1553 

149 

PLAN  VEC 

E 7 , 16  14 

153 

PSEUD  055 

C 7 ,15  53 

153 

A 7 CCU NT 

E7, 16  15 

145 

V FRBNUUN 

E 7,  1554 

153 

TPI  POLO 

E7  ,161  5 

153 

FC 

67,1556 

151 

P IPT IM  E 1 

F7,  16  16 

145 

R DO  T V 

. 

153 

KEEP-? 

E7 ,1616 

146 

ITCTR 

E 7 , 1557 

145 

VPA  SS3 

E 7,1616 

l 53 

F WE  I GHT  1 

E7 ,1660 

151 

G1 

E7 , 16  20 

145 

CENTAN.Q 

E 7, 1 5 6C 

153 

TAB  LTTF 

F 7 ,1620 

153 

FCOLC 

E7,  156  1 

149 

TS  I GHT 

r 7 , 16  ? 1 

153 

E2DPS 

E7  ,1665 

145 

V ACT  4 

F7,  16  21 

153 

OURPEPMS 

E 7 , 1565 

146 

VTPRI ME 

E 7,1621 

153 

WCHPHOLD 

E7 ,1566 

15  1 

PGU  I DEI 

E 7 , 1622 

146 

DEL  VIMU 

E 7,1670 

1 51 

DVCNTR1 

E7  ,1622 

15? 

ZSCRFF 

E 7,  1570 

151 

M A S S 1 

F 7,1622 

152 

Z SMD 

E 7 , 1 5 70 

156 

1 / DVO 

E7, 1622 

153 

5 1 1CTP 

E 7,  1672 

151 

R 1 S 

F 7 ,1623 

153 

FLPASSO 

E 7 , 1573 

145 

D EL VC  S I 

E 7,  1624 

153 

TPI  P 

E 7,1573 

145 

SEC  MAX 

E7  , 1626 

153 

VGU 

E 7, 1573 

145 

TDEC  2 

F 7,1 630 

146 

1 PASS4 

£7,1675 

145 

DEL  EL 

El,  1630 

152 

END-ALIG 

E 7,1575 

145 

DELVTPT 

F7  ,1630 

152 

PSUBL 

E 7 , 1675 

145 

D VP  REV 

E 7,1630 

156 

RCO 

E 7 , 1 5 75 

145 

KT 

F7.1632 

1 46 

QTEMP 

E 7,  1577 

145 

DIFFALT 

E7  ,1632 

156 

Y CO 

E7, 1600 

161 

V IS 

E 7,  1633 

146 

TC  SI 

E 7 , 1 6 0 1 

145 

P0STCS1 

El  ,1  634 

153 

L AND 

E 7,  1603 

145 

H AF  °A  1 

7,1  ■ 

156 

1 /D  VI 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

E 7 , 1635 

146 

TTPI 

E7,1672 

154 

THRDISP 

E7,  1636 

152 

UCSM 

E 7 , 1673 

154 

6 OUR  PER  M 

E7  ,1636 

156 

1 / PV2 

E7 ,1673 

154 

LRL  CTP 

E 7 , 1637 

146 

TTPI  0 

E 7 ,1674 

148 

I NCOR  PF.X 

E7 ,16  4 0 

156 

1/DV3 

E7,  1674 

154 

LRRCTR 

E 7 ,1641 

146 

RTI  G 

E7 ,1675 

148 

RLMSRCH 

E7 , 1642 

153 

TTF  / 8 

E 7, 1675 

149 

I 3 RET 

E7  ,1642 

156 

X RANGE 

E7 , 1675 

149 

LGRET 

F 7,  1644 

152 

NEWVEL 

El  ,1675 

149 

RDRET 

E7,  1644 

153 

ELC0UNT1 

El, 1675 

152 

P21BASER 

E7  ,1644 

156 

ENGOFFDT 

E7 ,1675 

154 

LRMCTR 

E7,  1645 

153 

AZC0UNT1 

£7,1676 

149 

MX 

E7  ,1645 

156 

V GV  ECT 

E7,  1676 

154 

LR  SC  TP 

F7  ,1646 

15  3 

ZERLI  NA 

E7 , 1 6 77 

154 

ST  !L  BADH 

F7 , 1646 

154 

N IGNLOOP 

E 7,  1700 

147 

VGPRE  V 

E7  ,1647 

146 

VT  I G 

E7,  1700 

147 

VGT  IG 

E 7,  1647 

153 

ELVIRA 

F7  ,1700 

154 

STI  LBADV 

E7,  1647 

1 54 

NGU  ID  SUB 

E 7 , 1701 

154 

GR A VACC X 

El  ,1650 

153 

LRPOS 

F7 ,170  2 

154 

GRAV ACCY 

E 7,  1652 

152 

NE  WPOS 

E 7,1703 

148 

VXRCM 

E7  ,165? 

154 

V MEAS 

E 7,  17C3 

152 

P 2 IRA  SE  V 

E 7 , 16  5 3 

156 

TXO 

E7 , 1 703 

154 

GRAV ACCZ 

E7 , 1654 

154 

HMEAS 

E 7 , 1704 

149 

MY 

E7  ,1655 

146 

DELVS  IN 

E7 , 1704 

154 

BIASACCX 

E 7,  1655 

147 

IC 

E 7 ,1705 

154 

BI  AS ACCY 

£7,1656 

154 

GNJR 

El,  1706 

147 

V G 

E 7 ,1656 

154 

3 NUV 

E7 , 1706 

154 

BIAS ACCZ 

E7 , 1656 

154 

VN2 

E 7, 1 7C7 

154 

VSURFACE 

E7  ,1660 

152 

LNCHTM 

E7,  1711 

148 

LO  SDE  S3 0 

E 7,1662 

152 

TRANSTM 

E7  ,1711 

152 

P21  VEL 

E7  , 1663 

146 

DELVSAB 

E7, 1712 

149 

MZ 

F 7 ,1  663 

1 46 

VGD1SP 

E7  , 1 7 1 3 

152 

P21GAM 

E7, 1664 

152 

NC  SMVCL 

E7  ,1  7 14 

147 

RMAG 

El  , 1564 

154 

D EL  T A H 

E 7,  1715 

152 

P 2 IAL  T 

E 7 ,1665 

146 

OTF  MP1 

E7 ,1715 

154 

HC  AL  CLAO 

E7 , 1665 

146 

SAVOR  52 

El,  1716 

147 

MUA  STFER 

E7  ,1666 

146 

COZY  4 

E7,  1717 

148 

UX  VEC T 

E 7 ,1666 

154 

F ORVDSKY 

F7 , 1 7 1 7 

154 

HOOT  LAD 

F7 , 1666 

154 

FUNN  YDSP 

E 7 , 1720 

147 

MU/A 

E 7 ,1666 

154 

TREDES 

E7 ,17  20 

149 

SCALS  HFT 

E 7 , 1667 

154 

LOO  KANG  L 

E7 ,1721 

149 

RXZ 

E7, 1670 

147 

XXX  ALT 

E 7,  1721 

154 

DAL  TRATE 

E 7 ,1670 

154 

GTf  T I MF 

F7 ,17  2 2 

147 

RTMAG 

E7 , 167? 

147 

UT 

E 7, 1722 

154 

R UNI  TX 

E7  ,1672 

148 

ERADM 

E7, 1723 

149 

ULC 

DEF 

E7, 1723 
E 7 , 1 72  4 
E 7,  1724 
E7  ,1725 
E 7 , 1 72  5 
E7 , 1726 
E 7 ,1730 
E 7,  1731 
F7 , 17  32 
£7,1732 
E 7,  1733 
E7  ,1733 
E 7 , 1 734 
E7, 1734 
E 7 ,1734 
E 7,  1734 
E7  , 1735 
E 7 , 1 736 
E7,  1 736 
E7  ,1736 
E 7,1737 
E7  , 1737 
F7 ,1740 
E 7,  1740 
E7 ,1740 
F 7 , 1 74 1 
F7 , 1 74  1 
E7  ,1  742 
E 7, 1742 
E7  , 1742 
E 7 , 1 744 
E7, 1744 
F7 ,1745 
F 7,17^5 
E7 , 1745 
E 7 ,1746 
£7,1746 
E7, 1750 
F 7 , 1 752 
E 7 , 1753 
£7,1754 
F 7 , 1 754 
E7 , 1755 
F 7 ,1756 
£7,1756 


PAGE 

155 

147 
155 

148 
155 
155 
155 

149 
147 
155 
1 4 8 
1 49 

147 

148 
148 
155 

150 

147 

148 
155 

148 
150 
147 
150 
155 
155 
20  8 
147 
155 
758 
147 
155 
150 
155 
155 

149 

150 
150 
1 50 
155 
150 
155 
155 
150 
155 
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SYMBOL 

RUN  ITY 
R1  C 

R UN  I TZ 
UYV ECT 
OT 

VVECTX 
VV  ECT  Y 
SI  N THETA 
SS 

VVECTZ 
DA  TAGOOD 
RPT  RUN 
F 

OMEGAD 
CMEGOIS P 
AL  TRA  TE 
RRSHAFT 
MOOT 

NSRCHPNT 
ALT  ITU  DE 
SA  VLE MV 
L RS  2 2.  lx 
T DECAY 
RRBOR  SI  T 
L ATVMETR 
FORVMFTR 
DL  410 
VEX 

F ORVE  L 
2VEXHUST 
I RETURN1 
RODS  0 UN  T 
R65CNTR 
VDG  VERT 
VHZC 
N49  FLAG 
RDOTMSA  V 
RD3TM 
TANGN8 
HZ  CO  UN  T 
MKT IME 
P66TPI  P 
P66PIPX 
RM 

0P66TPI  P 
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I 7,  1757  155 

E 7 , 1 7 60  150 

= 7,  1760  155 

E 7,  1761  155 

E 7 ,1  762  U7 
E 7,  1762  15'' 

E7.1762  155 

57,1764  1 4 7 

E 7,  176  4 150 

E 7 , 1 7 66  147 

E7.177C  155 

E 7,  1 772  150 

E 7 ,17  72  155 

E 7,  1777  156 

*300  28 

4000  2 R 

4000  28 

4000  28 

4000  28 

4000  28 

4000  29 

4000  28 

4000  28 

4000  28 

4000  28 

4000  28 

4060  160 

4101  1090 
4144  1361 
4201  460 

4242  216 

4 3 03  464 

4317  1064 
4317  1064 
4320  1086 
432C  1090 
4350  1C01 

4350  1 C90 
43  5C  127  5 

4351  1297 

4352  1297 

4354  1297 

4355  225 
4355  1C90 
4385  1090 


0P66PIP  X 
PANGRDOT 
T Au 

-OLD  TAG 
T IOS  AvF 
P21TI  ME 
HLPT  IME 
TIGSAVFP 
SC  A XI  S 
MU  S C AL  E 
H w E A S T l 
POINTVSM 
LRT ImECL 
F NO  — E 7 
FFTAG  1 
F FT  AG1  0 
FFTAG  11 
EFT  AG12 
FFTAG13 
FFTAG? 
FFT AG3 
FF  TAG4 
FFTAG7 
FFT AGR 
FF  TAG  9 
PAT  AP  FF 
1JPRPTPP 
DC  T6CCC0 
• ' 

PI  NSUPBT 

V00N34 

FNORLFF 

FOURTFEN 

OCT  16 

0CT11 

N INE 

FPAM<MSK 
BANKMASK 
-MAXADRS 
NOV AC ADR 
WTL  TC  ADR 
FV ACC  ADR 
QCT30000 
BIT  13-  14 
PR  I f3o 


4356 
4 35  7 
436C 
4361 

4361 

4362 
4362 

4362 

4363 
4363 
4512 

46  16 

47  33 
4 734 
4735 
4735 
4735 
47  35 
4735 
4735 
4735 
4735 
4735 
4735 
4735 
4735 
4735 
4735 
4735 

4735 

4736 
4736 
4736 
4736 
4736 
4736 
47  36 
4736 
4736 
4736 
4736 
4736 
4736 
4736 
4736 


469 
1275 
1 0Q0 
386 
8 8-3 
775 
1050 
1379 
508 
1090 
473 
534 
1494 
1 C 86 
66 
68 


71 

73 

74 
76 


78 

79 
84 
86 


’75 
1090 
1090 
12  74 
66 
68 
69 
7 1 
73 
76 
78 
81 

83 

84 
86 


276 
1 C 90 
1090 


B12-1 
S 88  I TS 
CCT23 
DEC  1 7 

OCT  2 1 
ASTNCEX 
OC  T25 
UP21 

CCT00012 

TEN 

FNOPINBF 
ENDPMOOF 
1/  .0  3 
limits 

NEFD2B  I T 
NJFTSR  IT 
DRF  TRI  T 
POOHBI T 
NRKICBIT 
D SKYFBI  T 

s :-2bit  1 

I T SW  G I T 
RPQFLB I T 
L RBYBIT 
CDESBIT 
P ULSES 
P F FT  AG4 
NEGMAX 
VLUAOCOD 
SBIT15 
JSWCHBI  T 
C IOFL  R IT 
SRCHCBI  T 
GLOKFB I T 
PPICCBFT 
S32BI T2 
M ANUFBIT 
FLVR8IT 
INTFLBI  T 
VFAILBIT 
RFMCDRI T 
USEQRJTS 
REFT AG1 
HALF 
PflS  1/2 


4736  1090 

4736  1274 

4737  40 

4737  66 

4737  68 

4737  70 

4737  71 

4737  73 

4737  75 

4737  76 

47  37  79 

4737  8( 

4737  81 

4737  83 

473  7 84 

4737  86 

4737  88 

4737  225 

4737  783 

*737  1090 
4737  1 09C 
4737  1274 
4740  66 

4740  68 

4740  70 

4740  71 

4740  73 

4740  75 

4740  76 

4740  78 

4740  80 

4740  81 

4740  84 

4740  86 

4740  88 

4740  820 

4740  1090 

4740  1274 

4741  44 

4741  66 

4741  68 

4741  70 

4741  71 

4741  73 

4741  75 


PRI020 
SBI T 1 4 
HIP  THROT 
M IDFLRIT 
EROFBI  T 
ACMDDB  IT 
REFSNBIT 
NRM IDBI T 
SNJFFBIT 
S32BI  T3 A 

I GN  FL  B I T 
NEW  I n IT 
P 70  7 IB  I T 
APS  FLR  IT 
H F A I LBIT 
R CO  U OB  I T 
CS  M DOCK  D 
OCTl COCO 
FEXTRA 
PRiniO 
Q UA  R TF  P 
SR  IT  13 
MOONRIT 
RODFLB I T 
L OS  CM  B IT 
L UN  A B I T 
P DSP  FB  IT 
NOT  HPB  IT 
S32r I T38 
AST  NB  IT 
C MOONBIT 
F L P C B I T 
VX  I NHB  IT 
ANTFNBI  T 
OURPCB IT 
TTFSCALE 
PRI04 
S BIT  12 
MI  NF.SM 
P 2IFLBI  T 
NOT  ERBIT 
STEEP  BI  T 
N0P07BI T 
MWAITG.IT 
3 77F LB  I T 


4741  78 
4741  BO 
4741  R 1 
4741  85 
4741  86 
4741  88 
4741  135 
4741  276 
4741  1090 
4741  1090 
4741  1090 

4741  1274 

4742  67 
4742  68 
4 7',,?  7 1 
4742  72 
4742  73 
4742  75 
4742  77 
4742  78 
4742  RO 
4742  8? 
4742  85 
4742  86 
4742  88 
4742  135 
4742  275 
4742  1090 

4742  1274 

4743  67 
4743  58 
4743  70 
4743  72 
4743  73 
4743  75 
4743  78 
4743  82 
4743  85 
4743  87 
4743  88 
4743  1274 

4743  1298 

4744  67 
4744  68 
4744  70 


SWANDBIT 
LMDONRI  T 
F LPIBI T 
PSTHI  BIT 
REPOSBI  T 
ACC  40R2X 
QRBIT 
PFF  TAf.2 
EBANK  4 
PPI  02 
2K 

SBIT  11 
FSPASBIT 
* 61FLRI  T 
SEROVBIT 
VF  LAGB1  T 
NWA  1TRIT 
RNGS  CHIT 
GMBDRBI  T 
NORMS  BIT 
FLUNDBI  T 
FLRC SBI T 
NOLRP  BIT 
OF  SIGBI  T 
AORFVTRAN 
PBIT 
REFTAG3 
PR  10  1 
SBI  T10 
P 25FLBI  T 
ALW56  BIT 
I MPULBI  T 
RO  4FLBIT 
MRKNV  BIT 
OMENFBI  T 
RVSW  BIT 
LETABBI  T 
XORFL  BI  T 
ALTSCB  IT 
XOVI  MHI  B 
SB  I T9 
S PS  CODE 
I MUSFBI  T 
V EHUPRIT 
XDELVRIT 


4744  72 
4744  73 
4744  75 
4744  77 
4744  79 
4744  80 
4 744  9 2 
4744  95 
4744  87 
4744  88 
4744  1274 

4744  1320 

4745  67 
4745  69 
4745  70 
4745  72 
4745  74 
4745  75 
4745  79 
4745  80 
4745  82 
4745  83 
4745  85 
4745  87 
4745  89 
4745  1087 

4745  12  74 

4746  67 
4746 

4746  70 
4746  72 
4746  74 
4746  75 
4746  77 
4746  79 
4746  80 
4746  82 
4746  87 
4746  B9 
4746  814 

4746  1274 

4747  67 
4747  69 
4747  70 
4747  72 


PRECIBI T 
NRMNVBIT 
7 00MB  IT 
MUNFLBI  T 
V67  FL B IT 
SURFFBI  T 
FL  AP  BI  T 
LRINH8IT 
LP  VFLBI  T 
OP  IFTBIT 
SBI  T8 
IMUSEFLG 
RNDV  ZBIT 
UPDATBI  T 
ETPIBIT 
CULT  BIT 
PR  ON  VBI  T 
ENGONB  IT 
I DLEFBIT 
INFINBI T 
ABTT  GB  IT 
RF I NTBI T 
VELDABI  T 
RCDUFBIT 
RHC  SCALE 
SUP  ER 1 OC 
SBIT7 
PRNBBI T 
NOUPFBIT 
F I NALBI T 
ORBWFBI T 
PI NBRBIT 
3A  X I SB  I T 
RFDFL  B IT 
V37FLRIT 
ORDERBI T 
ROT  FLBIT 
LP.P0S8I  T 
ULL  AGER 
-A  ZBIT 
SBI  T 6 
LOSONBIT 
TkACKBIT 
A Vf  l rt  I T 
ST  AT  EBIT 
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4747 
4747 
4747 
4747 
4747 
4747 
4747 
474  7 
4747 
47  47 


611 

735 

737 


4747  1400 
475(  6 7 

4750  71 

4750  72 

4750  74 

4750  76 

4750  79 

4750  81 

4750  85 

4750  87 

4750  89 

4750  239 

4750  820 

4750  1 C 90 
4750  1274 


4751  69 
4751  71 
4751  72 
4751  74 
4751  76 
4751  77 
4751  79 
4751  82 
4751  87 
4751  89 
4751  611 
4751  1 C 90 
4751  1274 


AVEGFRIT 
APS  FS  BIT 
QUI  TBT  T 
L R ALT  8 IT 
D8SLECT2 
HL  I TE 
CCT  20 
LSTLI  M 
+ A70  IT 
SBI  T5 
C ALLGMBL 
N E E OL  B I T 
PFRA  TB1  T 
INTYPR I T 
nruptrtt 
NORRMRI  T 
U PL  OCR  IT 
C0GAF8IT 
PNGED8  I T 
RRCATABT 
nft  SF  LFC  T 
nCTOOO  10 
TSCALINV 
FIGHT 
S 8 IT  4 
OSPLYALT 
FREEFB  I T 
SLOPES  IT 
C ALC3BI  T 
V TNTFB  IT 
MKQVBTT 
SOL  N SBI  T 
NT  ARGBIT 
VERIFSIT 
M ID 1FP  I T 
RRRS  PIT 
ACC  SGKAY 
VLITE 
FOUR 
S+4 
S 8IT3 
DEL AYNL M 
R 10FLB  I T 


4752  72 
4752  76 
4752  77 
4752  79 
4752  81 
4752  82 
4752  86 
4752  87 
4752  e9 
4752  731 
4752  814 
4752  1090 
4752  1274 
4752  1274 

4752  1376 

4753  68 
4753  71 
4753  72 
4753  74 
4753  76 
4753  78 
4753  79 
4753  81 
4753  82 
4753  86 
4753  87 
4753  89 
4753  216 
4753  814 
4753  1CSC 
4753  1274 
4753  1274 
4753  1376 
4753  1421 

4753  1434 

4754  1275 

4755  242 
4755  1274 
4755  1376 
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PAGE 
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GUESSBIT 

4757 

1090 

L0W3 

5272 

889 

REDC5  .5 

7753 

986 

MINB12 

C ALC2  BIT 

4757 

12  76 

S +7 

5272 

889 

rereada: 

7757 

1275 

S— 3 

D 60R  9B  I T 

4757 

1362 

OCT  7 

53nl 

187 

GLOCKOK 

7760 

1275 

S-2 

M GL  V F 8 I T 

4760 

731 

VB99DEX 

5301 

195 

E NDDA  PT4 

77  60 

1297 

MINU  S2 

A IXF  LBI T 

4750 

1090 

NOJTCON 

5301 

196 

RCSMONEX 

7761 

1090 

MINUS1 

V 8 2E  MB  I T 

4 761 

1064 

THIRTEEN 

5475 

1361 

LI  NUS 

7761 

1090 

NEG1 

I N IT  ABIT 

4762 

731 

CNTDNDEX 

5503 

269 

TERME  XT V 

7761 

1275 

S-l 

PIDAVBI  T 

4763 

433 

OCT  30 

5503 

270 

ENDEXTVB 

00,  2000 

28 

OLAY  JOB 

VFLSHBIT 

4764 

1087 

DEC  2 7 

55C3 

1361 

ENDEXT 

01  ,200C 

28 

L0A0DAP1 

AUTCNBIT 

4765 

731 

V B9  7 0EX 

5645 

1372 

ABORT 

01 ,2000 

28 

RE  START 

A LTRA  TE  2 

4765 

1087 

DEC  2 9 

5661 

240 

NEG7 

0 1 ,2000 

246 

PP.DTTAB 

blankdex 

4766 

284 

2 50 M S + l 

5661 

1275 

S-7 

0 1 ,2001 

24  6 

CADRTA8 

+ E LBI  T 

4766 

1498 

RATEL  I Ml 

5752 

L87 

1 20  MS 

01,  2016 

246 

2.2SP0T 

TWO 

4767 

1498 

R A TE  DP  1 

5752 

1320 

PITS3G4 

01  ,2016 

247 

3 .2SP0T 

S+2 

477  1 

309 

M IX  CON 

5752 

1472 

TWELVE 

01  ,2016 

250 

6.2  SPOT 

SBI  T 2 

4771 

1275 

C NT  RC  ON 

6000 

28 

FFS  ERV 

0 1, 2342 

30  1 

V50N4R 

UP  72 

477  1 

13  20 

3 ITS4F.6 

6000 

28 

F F TAG5 

01  ,2522 

1085 

SW/ 

P66 PROBT 

477  1 

1421 

40  CYC 

6000 

28 

FFTAG6 

04,2000 

28 

C ONI C SI 

N 00 OB  I T 

4771 

14  34 

40CYCL 

6001 

735 

? 

0 4,2000 

28 

E/PROG 

C I MO  BIT 

4773 

812 

DEC  48 

6010 

216 

VOON2  5 

04,2000 

28 

KEYKUPT 

XD  SPBI t 

4774 

1324 

OCT  6 2 

604? 

8 20 

F AST  CHNG 

. 

28 

ORB  I TAL  3 

RENDW  81  T 

4775 

1 09C 

o: Tl 20 

6 1C6 

1297 

0CT177 

04  ,2000 

28 

P INBALL4 

ATT  FLRIT 

4776 

883 

8 ITS6+7 

6121 

1090 

VLOAD* 

04  ,2000 

28 

R02 

IFF  SWB  I T 

4776 

1090 

OC  Tl 40 

6124 

1275 

S-4 

04, 2000 

28 

R 36LM 

360SWRIT 

4776 

1434 

60MS 

6254 

1090 

SI  X 

04  ,2000 

28 

UPDAT  E2 

AVEMCBIT 

4777 

386 

IS  FCX 

62  54 

1274 

S+6 

04,2000 

28 

VE  RB3  7 

HFI  SHB  I T 

4777 

749 

SEC  0 1 

6257 

575 

B IN3 

04,200r 

29 

AO T MARX  2 

turnon  BT 

6257 

1090 

L0W2 

04,2040 

455 

MODRnUT  8 

AUTRATE 1 

5006 

922 

V BO  5 NO  9 

6257 

1090 

THREE 

04,  3010 

37 

LOOP  1 /4 

L AGSL  I ST 

5007 

230 

STAP.TEB 

6 2 57 

1274 

S + 3 

04  ,3013 

1176 

BEE19 

-ELBIT 

5007 

1090 

ERANK3 

6257 

1376 

UP  7 3 

1176 

BE  E 2 2 

ONE 

5007 

1275 

E RASC0N6 

6503 

1090 

OCT 30 00  2 

04,3235 

1236 

2/  3 

S +1 

5007 

14  17 

OGI MBITS 

6753 

1016 

g+2 

04  ,3374 

1377 

UPPART2 

SB  I T1 

5011 

37 

ERAS  I C 

6754 

1283 

TCO 

04,3524 

1379 

UPSTORE 

LP  7 1 

I • 

1275 

SlOBITS 

7675 

1090 

OCT  1003 1 

04,3566 

1380 

UPP  ART3 

1/  10S  EC 

50  14 

1421 

B I T S 5,  1 1 

7722 

276 

RI T14C1  1 

04,371 5 

13  82 

UPOUT 

1/lOS 

5015 

1090 

EBANK6 

7724 

56  1 

BIT  12,  14 

04,  3716 

1379 

UP0UT4 

S-ZERO 

5020 

897 

3ITSET 

7730 

142° 

25/32 

05  ,2000 

?9 

ABORTS  1 

CNLADPOO 

5020 

1275 

SBNK03 

7734 

1090 

B 12T14 

05 ,2CO0 

29 

A Sh  NTT 

S+  7 E R 0 

502  0 

1417 

RGI MBITS 

7741 

1 6 1 

10DMRUPT 

05,2000 

29 

DOWN  TEL  M 

UP70 

• 

1289 

DO  T 14000 

7741 

1401 

MSI  00 

05  ,2000 

29 

EPHEMI 

NUMGRPS 

5025 

187 

OCT  1 5000 

7743 

165 

20MRUPT 

0 5,  2000 

29 

ERANORE  S 

S + 5 

5026 

187 

333  DM  SK 

7752 

54  1 

-45DEGSP 

C5 ,2066 

200 

OR  BM  ANUV 

U POT  FH AS 

50  26 

230 

IM33IN  IT 

7752 

1361 

PI  NMA  SK 

05,2127 

2 03 

LMCSTAC 1 

D SPNSK 

5155 

1372 

DCAL  ARM 

7753 

537 

-BIT  12 

05,  2127 

205 

LMRFNDC  1 

i AP  : 
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5,  21  27 

209 

L ML  SAL'31 

06,3164 

197 

RC  SMC Nl  T 

13  ,2  000 

30 

LEMGEOM 

23  ,2000 

32 

MEAS  IN  Cl 

27,3312 

843 

SE  TXFLAG 

r 5, 21 3b 

203 

LMCSTAJ2 

36,3257 

198 

5FAIL  TAR 

13,  2000 

30 

'JR  3 I TAL  2 

23,2000 

32 

NORMLI Z 

27  ,3735 

1271 

TCDANZIG 

- 5,2136 

205 

LMRCND"2 

06  ,3260 

198 

6FAILT A8 

13  ,2000 

30 

P76L0C 

23,  2C0C 

32 

POWFL  ITE 

3C  » 2000 

34 

A St  NT 

'5,2136 

207 

LMDS  AS 0 ? 

'7,  2<3CC 

29 

A0TMARK1 

1 3,26  60 

37 

ATOPCTH 

23  ,2  000 

32 

POWFL  IT  1 

30,2000 

34 

AS  EN  T 5 

'5  ,2136 

20  9 

L MLS AL02 

07,2000 

29 

AS  ENT  2 

13,  2733 

37 

ATOP  THIS 

23, 2000 

32 

P I 2 A 

30  ,200C 

34 

FCDUW 

3 5,21  36 

211 

L MA  G SIC? 

C7,20C0 

29 

MCDE  SW 

1 3 ,2  746 

37 

MOV  ATHIS 

23,2000 

32 

RODTRAP 

30,  2000 

34 

FL  QG SUK 

)S2H5 

203 

LMCSTAJ3 

.7, 3155 

1320 

IMUF  I N 20 

1 3,  3042 

37 

OTHPREC 

2 3 ,2  000 

32 

R6  1 

30  ,2000 

34 

LOWS JP  ER 

1 5 , 2 1 A 5 

2C5 

LMRENP  03 

07  ,371  1 

1319 

CPTST  ALL 

13  ,3056 

37 

T HISPF EC 

23,  2000 

32 

R 62 

3C ,2000 

34 

PI  2 

’5,2145 

207 

L MDSA  SO  3 

10,2000 

29 

D I SPLAYS 

14  ,2000 

31 

ASF  NT4 

23 ,2103 

49  3 

R620ISP 

30.200C 

34 

VB6  7A 

5 ,2145 

209 

L VLSAL03 

10 , 2000 

29 

FL  ESH-OC 

14,2000 

31 

P50S1 

23,  2335 

1272 

RP  ADI 

3C  ,3003 

84R 

T 2 A 

f'5,  2!  45 

211 

L MAG  SI  03 

io,20co 

29 

PHflSETAB 

14  ,2730 

31 

START  AB 

23,  2507 

37 

HIDP  1/4 

30,3753 

917 

DAZMAX 

35,2154 

2C3 

LMCSTA  - 

l , 2 

29 

R TBCOOE  S 

14  ,2500 

927 

S50 

23  ,2507 

5C8 

ONEB-2 

3C  ,3755 

9 17 

DEL  ERL  IM 

05,2154 

205 

LMRENDC4 

10  ,2000 

29 

S LCTMU 

14,  260  3 

929 

R 56 

23,  2507 

12  72 

TFF  1/4 

31  ,2000 

34 

FTHROT 

' , 2154 

20  7 

1 Mf3  SA  S74 

10 ,2130 

1361 

GCXDSP 

14,3250 

937 

R5<. 

23,2511 

37 

HIUNITZ 

31, 2000 

34 

t 20P S*31 

3 4 ,21 54 

209 

LMLS  AL^ 

10  ,2  3 34 

136  1 

GOXOSPF 

1 5,  2000 

31 

EPHE  M 

23  ,251  1 

37 

NR1 NB2 

31  ,2000 

34 

VB6  7 

5,  21 54 

211 

L MAG  SI  04 

1 ,2350 

1361 

GCX  CS  PR 

15,2300 

31 

P 50  S 

23,  251  1 

37 

THI  SA  XI  S 

31  ,3312 

798 

GDUMP1 

3 5,2160 

20  3 

1 ° , 2 3 5 3 

1 361 

GOXDSPFR 

15,2000 

31 

RRLE ADI N 

23,2513 

37 

HIUN  ITY 

31, 3666 

821 

AZEACH 

• 5 ,2160 

206 

L MREN005 

10 ,305  1 

13  60 

GOAG  IN 

15, 2473 

258 

DPI/  12 

23,2515 

37 

HI DPHALF 

32  ,2000 

34 

ABORTS 

5, 21 6C 

2C7 

LMDSAS05 

10,3071 

1361 

GCPL AY 

15  ,3660 

976 

LUNPOS 

23,  2515 

37 

HI  UNI  TX 

32,2000 

34 

F 2D  PS* 32 

1 5 ,21 60 

209 

L ML  S AL  0 5 

11, 2000 

29 

F 20P  $*1  1 

16,2000 

31 

DAPSl 

23  ,2515 

605 

COS 6 3 DEG 

3 2, 200C 

34 

L P S 22 

: 5,21 6C 

21  1 

L MAG  SI  05 

1 1 ,2000 

29 

INTVEL 

16, 3575 

1428 

INPXY7 

23,  251  5 

1091 

OPHALF 

32  ,2000 

34 

P4  0 S4 

3 5,  2165 

210 

L ML  SAL  79 

1 1,2000 

29 

C RBI TAL 

1 7 ,2  000 

31 

Cl  3 BANK 

23,2517 

37 

HI6ZER0S 

32,  2000 

34 

P 66L0C 

3 4,2171 

208 

LMDSAS06 

12,2000 

30 

CONIC  S 

17,  2000 

31 

OAP  S2 

23  ,251  7 

605 

ZERO/SP 

32  ,2000 

34 

R47 

'3  5,2171 

209 

LMLSAL06 

12  ,2000 

30 

I NTPRET2 

17,2710 

1440 

ATTSTEER 

23, 2517 

1148 

ZEROO 

33,2000 

34 

A SE  NT6 

35,2173 

199 

NOMDNLST 

12,  2000 

20 

ORB  I TAL  1 

17  ,3136 

1434 

1 4 MS 

23,2517 

127  2 

T FF ZEROS 

33,2000 

34 

R29/SERV 

5 ,2  1 7 5 

20  3 

COST  ALIN 

I , 

37 

LOUN  ITZ 

20, 2000 

31 

OAP  S 3 

24,2000 

32 

PL ANTIN 

33  ,2000 

34 

SEPV  ICES 

'5,2226 

206 

LMPENDC6 

12,2002 

37 

L CUM  TY 

2<‘  ,2333 

31 

LC1ADDAP 

32 

P 20 S 

33,2102 

852 

SERVE  XI  T 

) 5 ,2226 

20  8 

L MOS  AS09 

12,  2004 

37 

LODPHALF 

21  ,2000 

31 

D APS4 

24  ,2000 

32 

S40 BNK 

33,3201 

867 

ENDVDAT 

7 5,2230 

210 

LMLSAL08 

12, 

37 

Leu  A !TV 

21,  2000 

31 

R 10 

24, 2000 

500 

PROG22 

33,3544 

874 

OUTGOAVE 

7 5,  2234 

205 

RENDEZ  VU 

. 

1052 

HALFO  P 

21  ,2000 

31 

Rll 

• 

32 

DRS  AMP 

33,  3746 

848 

100C  S 

3 5,2277 

210 

LMLSAL0  7 

12,2004 

1127 

DP  1/2 

21, 2055 

88  3 

- 1 , R 1 1 

25  ,2000 

32 

PLANT  IN3 

34  ,2000 

34 

ASCFILT 

5,2311 

2C7 

OE  SC  /A  SC 

12  ,2004 

1 130 

1 B1 

22,2330 

32 

SALOMON  1 

25,  2000 

32 

P 20  S 1 

34 ,2  000 

34 

ASENT8 

3 5, 2365 

209 

SUP  FAL  IN 

• 

37 

L06ZER0S 

22  ,2000 

32 

KALC MGN2 

25,2003 

32 

P20S2 

34, 2000 

34 

CSI /CDH  1 

05  ,2424 

199 

AGS  LIST 

12,2  ) 

1 092 

Z EROCP 

22,2000 

32 

L ANOCMST 

25, 2000 

32 

RADARUPT 

34  ,20C  : 

34 

F2  DPS  *34 

.7  5,  2424 

199 

UPONLI  ST 

12,2006 

1128 

2DZFR0 

22  ,2339 

32 

RENDEZ 

26,2  000 

33 

BAWL  ANGS 

, 

34 

P30S1 

35  ,2424 

211 

AGS  I/UP D 

12,  2006 

1 176 

KEPZERO 

22,2000 

32 

R30L0C 

26  ,2000 

33 

MANUVEF 

34,2000 

34 

R 12STUFF 

06.20C0 

29 

EAPTHLCC 

12  ,2  006 

1236 

DPZERO 

22, 2744 

369 

LOCSK  IRT 

26,2000 

33 

MANUVER1 

34,2000 

34 

SERV1 

■6,  20  00 

29 

IMUCOMP 

,2017 

37 

RMM 

22  ,3541 

37 

D EL RS  PL 

26  ,2000 

33 

PL  ANT  IN  1 

34,  3752 

889 

P I P A SR 

06  ,2  OCC 

29 

M I0I3GIM 

12,2017 

1 192 

L DPOSM AX 

22,  is/,  1 

712 

SPLRE  T 

2'i  , 2f  C 0 

33 

PL  ANTI N2 

34,3755 

954 

P IPSR  INF 

06,2000 

29 

RC  SMONT 

12  ,2021 

37 

P ME 

23,2000 

32 

APOPER  I 

26, 2000 

33 

P 20S3 

35,2000 

35 

CSI  /CDH 

36,2300 

2° 

T 4RUP 

1 2,  3765 

1236 

DQUAR  TEH 

23  ,2000 

32 

ASENT7 

27  ,2000 

33 

AS  ENTl 

35,2000 

35 

P30S 

05  ,2703 

186 

I CDUFAIL 

12  ,3765 

1236 

POS  1/4 

23,2000 

32 

E XTVB  1 

27, 2000 

33 

P40S1 

35  ,2000 

35 

P40S2 

1 6, 2703 

186 

I MUF  AIL 

, 

30 

ABTF  LG S 

23  ,2303 

32 

I NFL IGHT 

27,2000 

33 

TOF-FF 

35,  200C 

35 

P 40  S3 

35 ,3140 

19  3 

ENDRRMON 

’ , 

30 

1 NT  I N I T 

23, 2000 

32 

I NTPRETl 

2 7,2000 

33 

TOF-FFl 

36,2000 

36 

P4CS 

'6,  3 1 4 C 

194 

0 Ap  T4S 

13  ,200  0 

30 

L ATLCMG 

23,  2000 

32 

MEASINC 

27, 2000 

33 

VECPT 

36,2057 

749 

ACADN85 
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ERASABLE  S FQUALS  C R 0 S S-RF  FE  R ENCE  TABLE  SHOWING  DEFINITION,  PAGE  OF  DEFINITION, 


AND  SYMBOL 


DEF  PAGE  SYMBOL  DEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


OEF  PAGE  SYMBOL 


36,  2107  735 

36,  21  50  719 

36  ,21  SO  7lo 

36,  2153  719 

36,2776  731 

17,2000  36 

37,  2000  36 


SER  VC  AD  R 3 7 ,2  000  36 

P12SPDT  37,2000  36 

PA'  2 S P OT  37,2000  36 
P63SP0T  3 7 ,2 OCO  36 

V 99  RE  CYC  37,  2000  26 

IMUSUPER  £,0,2000  36 

IMU2  'VC  ,2000  36 


IMUA  AO,  2000  36 

PCSP06  AC, 2000  36 

P20SA  AC, 3353  A5 1 

F31  AO  ,3 5 A 5 A58 

SERV2  A0,357A  A65 

PINRALL1  AO , 357  A 1283 
PI  NSUPE  R AO  ,3  73  A A79 


R 31l.DC  A 1 , 2000  36 

SELF  SUPR  A 1 , 2 6 A 7 A23 

EN3ECVN  A 1 ,33C?  A38 

ENORELDS  A1.  3775  A77 

ENDBSUB1  a2  ,2 000  3& 

DSP MM JOB  A 2 , 2 0 0 0 36 

ENDPINS1  A2  ,3.614  AA^ 


PI NB ALL  2 A3, 2000 

ENDRTfUT  A3,200C 
ENORUTIN  A3  ,2002 
ENDPINS2  A3, 223A 
PINBALL3  A-3,303a 
SBAND  A3, 3073 

ENDHMSS 


36  EXTVERBS 
36  SELFCHEC 
A7A  PINTEST 
276  OPTCOARV 
29  3 V 7 A 
295  GOSHDSUM 
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SUMMARY 


CF  SYMBOL  TABLE  LISTINGS 
49C  7 DEFINED  NORMALLY 
2271  DEFINED  BY  EQUALS 


TOT  At  : 


7178 
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MEMORY  TYPF  L AVAILABILITY  DISPLAY 


3000  TO 


0057  SPECIAL  OR  MINE  X I STENT  MEMORY 


0361 


0060  AVAILABLE  ERASABLF  HE  MCRY 
1377  RESERVED  ERASABLE  MEMORY 


E 3, 1400  TO  FA, 1770 
E A ,1771  TO  E4  ,1777 
E 5, 1400  TO  E 5,1641 
E5 ,1642  TC  E 5 , 1777 
E6 , 1400  TO  F6 ,1  773 
E 6,  1774  TO  E 6,  1 777 
F7  ,1400  TO  E7 , 1 744 
E 7,  1745  TO  E 7,1777 


RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHAELE  ERASABLE  MEM3RY 
RESERVED  SRI  TCHAELE  ERASABLF  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHAELE  ERASABLE  MEMORY 


4000  TO  7772  RESERVED  FIXED  MEMORY 
7773  TO  7777  AVAILABLE  FIXEO  MEMORY 


00,20  00  TO 


01  ,3777  RESERVEO  SWITCHABLE  FIXED  MEMORY 


32  ,2000  TO  03,3777 


SPECIAL  OR  NONEXISTENT  MEMORY 


3'+, 23  30  TO  06,3774 
06,3775  TO  06  ,3777 
j 7, 2000  TO  '7,3773 
) 7 , 3774  TO  07,  3777 

1 . 

1 , 3762  TO  13, 3777 
1 1 ,200G  TO  11,3757 
l 1, 3760  TO  11  ,3777 
1 2,200:  TO  12,  3775 

1 2 ,3776  TO  12  ,3777 

13.2000  TO  13,376? 
L 3 , 3 763  TO  13,  3777 

14.2000  TO  1 5 ,3  773 
15,  3774  TO  1 5,  3777 

1 6. 2000  TC  21 ,3704 

2 1, 37C 5 TO  21  ,3777 
22,200'  TO  22,  3747 
22  ,3750  TO  22  ,3777 

23,  2000  TH  23,3776 

23,  3777 

24.2000  TC  24,377? 

24,  3773  TO  24,  3777 

25.2000  TO  25,3771 

25,  3772  TO  25  ,3777 


RESERVED  SWITCHABLE  FIXEO  MEMORY 
AVAILABLE  SWITCHAELE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  EIXED  MEMCRY 
RESERVED  SWITCHARLF  FIXED  MEMORY 
4 VAI LABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHARLF  FIXED  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
4 VAI  LA8LE  SWITCHABLE  FIXFD  MEMORY 
RESERVED  SWITCHARLF  FIXED  MEMORY 
4VAILARLE  SWITCHAELE  FIXED  MEMORY 
RESERVED  SWITCHAELE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESEPVFO  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  ME  MCPY 
RESERVED  SW  IT C HABLF  FIXED  MEMORY 
AVAILABLE  SWITCHAELE  FIXED  MEMORY 


26.2000  TC 
27,  3757  TO 
30,2330  TO 
30,3764  TO 

31,  2"*30  TO 
31  ,3676  TO 

32,  200 C TO 

32,  3736  TO 
33.200C  TC 

33,  377  1 TO 

34.2000  TO 

35,  2000  TO 
35,3747  TO 

36,  200  0 TO 

36 , 37 6 I TO 

37.2000  TO 

37,  3776  TO 
40,2300  TO 

40,  3765  TO 

41,  2000  TO 
43,3741  TO 


27,3756 

27. 3777 
30,3763 

30.3777 
31, 3675 

31.3777 
32,3735 

32,  3777 
33,3770 

33,  3777 

34. 3776 

34.3777 
35, 3746 
35  ,3777 
36,3760 
36,  3777 
37,3775 

37. 3777 
40  ,3764 

40.3777 
43,  3740 

43.3777 


44,  2300  TO  57,  3777 


60,  2000  TO  67,  3777 


7C , 2000  TO  73 , 3777 


RESERVEO  SWITCHABLE  FIXED  MEMORY 
AVAILA3LE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEO  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMCRY 
RESERVED  SWITCHABLE  FIXED  M EMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 

SPECIAL  OR  NONEXISTENT  MEMORY 

AVAILABLE  SWITCHABLE  FIXED  MEMORY 

SPECIAL  OR  NONEXISTENT  MEMORY 


ASSEMBLF  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


ROUTINE:  COUNT  DATA  FOR  ROUTINE'S  LAST  RE  ACH  : T CT  A L :C'J  MU  L 


REF 

RFF 

REF 


0 L AST  TO  2e 

1 L AST  7 A 3 TO  7 A A 
1 LAST  2e  TO  38 
1 LA  ST  1 365  TO  1367 


1 1 0 


■Jl  /F  XEC 
) 1 / TNTER 
jl  /RSPOU 


RFF 

REF 

REF 


1 LAST  103a  TO  1078: 

l LAST  1097  TO  1107: 

l LAST  1C  78  TD  1C8C 

3 LAST  1296  TO  1298: 


9 7 A 
279 
157 


97A 

279 

157 

165 


1 08A 
1363 
1520 
1695 


• 1 / u S T A B 
'1  /P  ' 3 
1 /WAI T 
7 ?/  A!  ARM 


REF 

REF 

REF 

REF 


2 L 


L AST  290  TO  30  J: 
LAST  1122  TO  112A: 
ST  1370  TO  1372: 


IP  23 

1917 

210  5 
2213 


> 2 / HA  N K 

0 2/DAPT6 

1 ?/  OS  PI  A 
02/EXEC 


REF 

REF 

RFF 

REF 


1 LAST  980  TO  99  3: 
l LAST  1392  TO  1392  : 

1 I AST  13A3  TO  l?A?: 

2 LAST  1107  TO  l 1 1 C : 


2299 

2307 

2323 

2397 


0 2/FXTVR 
)2 /FCCNS 

; ?/  IM  0 D 6 


REF 

REF 

REF 

REF 


l LAST  1363  TO  1365: 
1 LAST  1298  TO  1299: 


2 A 31 
2465 
2 A97 
2502 


! /I  NT! 

D 7/PH  ASF 
3 2/  PI  N 
2/P0  7 


REF 

REF 

RFF 

REF 


l LAST  1093  TO  1 09  A : 
1 LA  ST  12  67  TO  1289: 
6 LAST  472  TO  475: 
1 LAST  386  TO  388: 


2534 

2605 

2851 

2869 


REF 

REF 

REF 

REF 


1 LAST  529  TO  535: 

2 LAST  1295  TO  1296: 

1 LAST  159  TO  161 : 

l LAST  1367  TO  1366: 


2937 

2954 

3008 

3C23 


- 2/T4RPT 
0 2/HA  IT 
03 /CAP 
0 3/FC0NS 


REF 

REF 

REF 

REF 


1 LAST  161  TC  162: 

2 LA  ST  1120  TO  1122: 

1 LAST  1447  TO  1449: 

1 LAST  1080  TO  1091: 


32 


30  35 
3113 

3115 

3147 


3 3/  INTER 
- 3 /K!  LI 

0 3/PHASE 
33/POO 


REF 

REF 

REF 

REF 


3 1 AST  LOO  5 TO  1C38: 
1 LAST  736  TO  736: 
1 LA  ST  1 291  TO  1292  : 
1 LAST  23  1 TO  23  1: 


952  4099 

8 4107 

4 4111 

8 4 1 1 9 


3 3 /P  2 C 
D3/P40 
0 3/R2  4 
0 3/SERV 


REF 

REF 

REF 

REF 


1 LAST  605  TC  606: 

t LAST  40  TO  4 C : 

1 LAST  525  TO  525: 

1 LAST  880  TC  880: 


4124 
412  5 
4134 
4141 
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ROUTINE:  COUNT  DATA  FOR  ROUTINE'S  LAST  R EAC  H:  TO  TA  L :C  UMUL 


1 

REF 

3 

LAST 

1177 

T C 

1 IRC 

65 

lie 

4251 

04/1  Ml  N 

REF 

1 

LAST 

1215 

T 0 

12  17 

54 

54 

4305 

04/K  EYUP 

REF 

1 

LA  ST 

13  27 

TO 

1343 

75 

75 

4380 

04/LT-LG 

REF 

1 

LAST 

46 

TO 

46 

4 

4 

4384 

04 /MAP  K 

_ 

. 

TC 

_ 

4416 

04/ P IN 

REF 

2 

LAST 

472 

TO 

47? 

7 

16 

4432 

04/  PC  l) 

REF 

1 

LAST 

231 

TO 

243: 

324 

32* 

4756 

04/P07 

REF 

2 

LAST 

377 

TO 

378 

5 

32 

4788 

04/P27 

REF 

1 

LAST 

1377 

TO 

1385’ 

257 

257 

504  5 

04/P57 

RFF 

1 

L AST 

974 

T 0 

976: 

1 2 

12 

50  57 

04/R0  2 

RFF 

1 

LAST 

132  1 

TC 

1324 

17 

17 

5074 

04/R36 

REF 

1 

L AST 

69  6 

TO 

658 

77 

77 

5151 

Oc /D  L I ST 

RFF 

1 

LAST 

199 

TO 

213 

255 

255 

54D  6 

05/ CPROG 

REF 

l 

LAST 

982 

TO 

985 

183 

183 

5589 

05  /F  PHFM 

RFF 

2 

LAST 

978 

T 0 

982: 

o 

52 

564  1 

05/P7C 

REF 

1 

LAST 

822 

rr 

824 

59 

59 

5700 

05/START 

REF 

2 

LAST 

218 

TO 

231 

472 

473 

6173 

06 /I  COMP 

REF 

1 

LAST 

331 

TO 

344 

232 

282 

6455 

06/LUROT 

REF 

1 

LAST 

1138 

TO 

1 14C 

9 

9 

6464 

OS / MI DG 

REF 

1 

L AST 

637 

TO 

688: 

30 

30 

6494 

06/T4RC  S 

REF 

1 

LA  ST 

197 

TO 

199 

69 

69 

6563 

OS/ T4  KPT 

REF 

2 

LAST 

162 

TO 

197 

618 

628 

71  91 

( ' / 1 mode 

PEF 

1 

LAST 

1299 

T 0 

13  21 

584 

584 

7775 

C7/MARK 

REF 

2 

LA  ST 

258 

TO 

267 

280 

401 

0176 

07/R59 

REF 

1 

LAST 

267 

TO 

268 

32 

32 

8208 

10 /DSP  LA 

REF 

3 

LAST 

1370 

TO 

1 37C 

9 

663 

887  1 

1C/MIDG 

REF 

1 

LAST 

688 

TO 

690 

24 

24 

8895 

1C/PHASE 

REF 

2 

LAST 

1299 

T 0 

129  1 

66 

75 

89  70 

10/P0WFL 

6 

n _ 

REF 

1 

LAST 

138  5 

TO 

1 392 

130 

130 

9215 

11  /F  20  PS 

REF 

1 

LAST 

813 

TO 

814 

52 

52 

9267 

11/ I N I TV 

REF 

1 

LAST 

681 

TO 

687 

194 

194 

946  1 

11/CRBIT 

REF 

i 

LAST 

1217 

TO 

12  38 

8 29 

8 29 

10290 

12/conic 

RFF 

3 

LA  ST 

1180 

TC 

1 l 99 

502 

986 

11276 

REF 

1 

LAST 

1092 

TO 

1093 

19 

19 

1L295 

13 /A  LA  PM 

REF 

1 

LAST 

1372 

T 0 

13  76 

10 

ID 

11305 

13/GFOM 

REF 

1 

LA  ST 

325 

TO 

3?9 

79 

79 

11384 

1 3 / 1 NT  I N 

REF 

4 

LAST 

1211 

TO 

12  15 

134 

60  3 

11987 

13/LT- LG 

REF 

1 

LAST 

1124 

TO 

1131 

155 

155 

12142 

13/ORBIT 

REF 

1 

LAST 

47 

TO 

47 

20 

20 

121  62 
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ROUT  INE: 

COUNT  DATA 

FOR  ROUTI  NE  ' S 

LAST 

REACH 

TOTAL 

CUMUL 

ROUTINE: 

CCU  NT  OAT 

FOR 

ROUTINE'S 

L AST 

REACH 

TOTAL 

:C  UMUL 

1 3/P76 

REF 

1 

LAST 

70  3 

TO 

707: 

96 

96 

12258 

22  / SR  30  S 

REF 

1 

LAST 

71  4 

TO 

717  : 

62 

62 

19317 

1 A /A  SENT 

REF 

l 

LAST 

e«3 

TO 

845  : 

57 

57 

12315 

2 3/ EX  TV  B 

REF 

1 

LAST 

276 

TO 

277: 

33 

33 

19350 

1W  I'JFLT 

REF 

1 

LAST 

940 

T3 

54  1 : 

0 

0 

12315 

23/F20PS 

REF 

2 

LAST 

8 1 4 

TO 

8 14: 

6 

28 

19378 

1 4/LOSAM 

REF 

2 

LAST 

927 

TO 

929: 

67 

75 

12  390 

23/GEO M 

REF 

l 

LA  ST 

329 

TO 

331  : 

34 

34 

19412 

l A/P  5 ] 

LA  ST 

94  5 : 

127 

127 

2 3/1  CONS 

109  1 

TO 

1082: 

16 

16 

19428 

1 4/P5C 

REF 

1 

L AST 

939 

T J 

94  C: 

64 

64 

12581 

2 3 /INC  OR 

REF 

2 

1 AST 

1144 

T 0 

1148: 

196 

334 

19762 

14/5  51 

REF 

1 

LAST 

933 

TO 

937: 

135 

135 

12716 

23/  INFLT 

REF 

1 

LA  ST 

1238 

TO 

1248: 

184 

184 

19946 

1 4/P52 

REF 

1 

LAST 

947 

TO 

949: 

68 

68 

12784 

23/ PERAP 

REF 

1 

LAST 

690 

TO 

696: 

78 

78 

20024 

1 4/R54 

REF 

1 

LAST 

938 

TO 

93  9: 

41 

41 

12825 

23/POWF  L 

REF 

1 

LA  ST 

1248 

TO 

1254: 

159 

159 

20183 

1 4/R  5 5 

REF 

1 

LAST 

S3  7 

TO 

938  : 

26 

26 

12R5  1 

23/ R6  1 

RFF 

1 

LAST 

526 

TO 

529: 

143 

143 

20326 

1 4/R56 

REF 

1 

L AST 

529 

TO 

53  3: 

132 

132 

12983 

23/R62 

REF 

1 

LAST 

493 

T 0 

494: 

1 1 

1 1 

20337 

l A/STARS 

REF 

1 

LAST 

4B 

TO 

52: 

223 

223 

13206 

24/LP S20 

REF 

1 

LA  ST 

577 

TO 

579: 

47 

47 

20384 

14/S52.1 

REF 

1 

LA  ST 

945 

TO 

946  : 

25 

25 

1323 1 

24/LURCT 

REF 

l 

1 AST 

1132 

TO 

1 135: 

63 

63 

20447 

1 WS5  2 .3 

REF 

1 

LAST 

946 

TO 

947: 

16 

16 

13247 

24/P  20 

REF 

2 

LAST 

503 

TC 

510  : 

276 

306 

20753 

1 5/EPHEM 

RFF 

1 

LAST 

S76 

TO 

978: 

73 

73 

13320 

24/ P21 

REF 

1 

LAST 

650 

TO 

656: 

122 

122 

20  875 

15/P51 

REF 

1 

L AST 

553 

TO 

556: 

68 

68 

13388 

24/P22 

REF 

2 

LAST 

5 1 6 

TO 

517: 

5 

5 

20880 

15/R52 

REF 

1 

LAST 

919 

in 

927  : 

16  1 

161 

13549 

24/P  25 

REF 

1 

LA  ST 

511 

TO 

513: 

37 

37 

20917 

1 5/P  5 7 

REF 

2 

LAST 

559 

TO 

97 : 

435 

556 

1410  5 

2 4 / R2  1 

REF 

1 

LAST 

517 

TO 

522: 

162 

162 

21079 

1 5/RLE  AO 

REF 

1 

L AST 

498 

TO 

50  f : 

55 

55 

1 4 1 60 

24/R22 

REF 

1 

LAST 

51  3 

T C 

516: 

147 

147 

21226 

15/3  59 

REF 

2 

LAST 

949 

TC 

953: 

136 

176 

14336 

24/  R 23 

REF 

1 

LA  ST 

522 

TO 

524: 

41 

41 

21267 

1 5/ DAP 

REF 

1 

LAST 

1458 

TO 

1 46  C : 

60 

60 

143  96 

24/P24 

REF 

2 

LAST 

525 

TO 

526: 

16 

38 

21305 

1 6/PAPID 

REF 

1 

LAST 

1 398 

i o 

1402: 

L39 

139 

14535 

25/LPS2C 

REF 

1 

LA  ST 

579 

TO 

582  : 

12 

12 

21317 

1 6/OAPP 

REF 

1 

LAST 

1409 

TO 

1 4 3 C : 

793 

79? 

15328 

25/LUROT 

REF 

1 

LAST 

1135 

TO 

1 1 37: 

68 

68 

21385 

17/ CAPOR 

REF 

1 

1.  AST 

1430 

TO 

1447: 

624 

624 

15952 

25/RRUPT 

RFF 

3 

LAST 

6 1 0 

T 0 

6 12: 

33 

30  8 

21693 

l 7/OAPTJ 

REF 

1 

LAST 

1449 

TO 

145R  : 

315 

315 

16267 

25 /R  SUB 

REF 

2 

LA  ST 

573 

TO 

577: 

77 

656 

22349 

1 7/DAPT6 

REF 

2 

LA  ST 

139? 

TO 

139^: 

5 

39 

1 6306 

26/BALL 

REF 

1 

LAST 

48  5 

TO 

489: 

50 

50 

22399 

2 O/DAP Al) 

RFF 

A 

LAST 

1485 

TO 

1496: 

355 

72C 

17026 

26/LR  S24 

REF 

1 

LAST 

60  C 

TO 

605  : 

172 

172 

2257  1 

2C /DAPIF 

REF 

1 

LAST 

1 394 

TO 

1 398  : 

74 

74 

17103 

26/LSR22 

REF 

1 

LAST 

588 

TO 

600: 

532 

532 

231  u3 

? ? / NE  FDL 

REF 

1 

L AST 

1402 

TO 

14f  S : 

1 56 

156 

17256 

26/LUROT 

REF 

3 

LAST 

1137 

T 0 

1 1 38: 

26 

67 

23170 

20 /Rl  3 

RFF 

l 

LAST 

297 

TO 

299  : 

73 

73 

17329 

26/R  C 6 

REF 

1 

LA  ST 

48  1 

TC 

485: 

103 

103 

23273 

21/DAPAO 

REF 

1 

LAST 

1474 

TO 

1 474  : 

8 

8 

17337 

26/R63 

REF 

1 

LAST 

344 

TO 

356: 

65 

65 

23338 

2 1/OAPBU 

REF 

1 

LAST 

1496 

TO 

1496: 

82 

82 

17419 

27 /A  SENT 

REF 

< 

LAST 

846 

TO 

848: 

20 

53 

2339  1 

?1 /DAP G T 

REF 

1 

LAST 

1460 

T r 

1474  : 

388 

388 

17807 

27/K  ILL 

REF 

1 

LAST 

736 

TO 

739: 

38 

38 

23429 

21/P70 

REF 

2 

LAST 

P27 

TO 

827: 

16 

39 

17846 

27  / PI  2 

REF 

1 

LAST 

45 

TO 

45: 

4 

4 

23433 

21  /Rl  C 

REF 

2 

LAST 

890 

TO 

901: 

29  3 

299 

18  145 

27/P4G 

REF 

2 

LA  ST 

73  9 

TO 

741  : 

83 

93 

23526 

21/3  11 

REF 

1 

LAST 

883 

TO 

89C : 

175 

175 

18323 

27/ P70 

REF 

1 

LAST 

39 

TO 

39: 

8 

8 

23534 

? ? / F 7 D PS 

REF 

1 

L AST 

821 

TO 

821 : 

12 

12 

18332 

27/S4C.1 

REF 

1 

LAST 

751 

TG 

755: 

101 

101 

23635 

22/1  ME  GR 

REF 

1 

LAST 

1 148 

TO 

1165: 

50 

50 

18382 

27/S40.2 

REF 

1 

LA  ST 

755 

TO 

756: 

28 

28 

23663 

22/<Al  C 

REF 

1 

LA  ST 

356 

TO 

3 7 5 : 

670 

670 

19052 

27/S40  .6 

REF 

1 

LAST 

767 

TO 

7 7C: 

40 

40 

2 37r3 

' ■ / 

REF 

2 

LAST 

70  7 

T 0 

714: 

199 

203 

19255 

27/S40. 8 

REF 

1 

LAST 

75  6 

TO 

759  : 

62 

62 

23765 
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27/S40.9  RFF 

27/S41.1  REF 

27 /IFF  REF 

7 7/ V ECPT  REF 


27/AO.  1 3 

3 0/  r-X  TV  B 
30/FCDUW 

33/PI2 

31/F  20 PS 
i 1/THRCT 


2 LA  ST  762  TO  76  7 : 

1 LAST  770  TO  77  1; 

2 LAST  126C  TC  1274: 
1 L AST  4P9  TO  492: 


REF 

REF 

REF 

REF 


RFF 

REF 

RFF 


1 I AST 

2 LA  ST 
1 LAST 
1 LAST 

I LAST 

1 LAST 

3 LAST 

2 L AST 


759  TO 
836  TO 
60  8 TO 
901  TC 

629  TO 
606  TO 
ei4  TO 
779  TO 


762: 
842  : 
6lC: 
919: 

p 3 2 ; 
60  P: 
821  : 
784: 


266  268  24239 

136  136  24375 

105  1C  5 24480 

314  316  24796 

47  47  24843 

445  25288 


150  25438 
93  25531 
716  26247 
146  26393 


445 
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ROUTINE:  COUNT  DATA  FOR  ROUTINE'S  LAST  PF  ACH : T OTAL : CUMUL 


35/P3373  REF 

35  /P  34  74  RFF 

35/ P 3575  REF 

35/P4C  REF 


36/P4C 
3S/P41 
36/P42 
36/ P 47 

37/P05 
37/PC6 
37/ PC  7 
3 7 / P2  0 


1 LAST 

1 LAST 

2 LAST 
2 LAST 


625  TO 
656  TC 
661  TO 
734  TO 


7 36 


RFF  6 LAST 
REF  1 LAST 
REF  1 LAST 
REF  1 LAST 


746  TO  751  : 
74  1 TO  743: 
744  TO  744: 
744  TO  746: 


REF 

REF 

REF 

REF 


LAST  1325  TO  1327 
LA  ST  1 324  TO  1325 
LAST  388  TO  403 
LAST  531  TO  503 


140  140  29748 

118  118  29866 

529  543  304C9 

23  48  30457 

156  770  31227 

80  80  31307 

22  31329 
51  3138U 


51 


32  32  31412 

47  47  31459 

267  5e7  32046 

10  3 10  3 32149 


32 /F  20  PS 
3 /I  • l 
3 2 / P6  3 
32/P  70 


REF 

REF 

RFF 

REF 


3 3 /A  SENT  PTE 

33/SFRV  REF 

3 4/ AS  ENT  RFF 


2 LAST 
2 LAST 

1 LAST 

2 LAST 

1 L AST 
1 LAST 
5 LA  ST 

3 LAST 


800  TC 
5P?  TO 
77  1 TO 

827  TO 

213  TD 
848  TO 
880  TO 
845  TO 


PI  2: 
58  f : 
777: 
82  9: 

218: 
8 5 0 : 
8R3  : 
846: 


395  396  26739 

129  143  26932 

187  1 P 7 271  19 

22  132  27251 

128  138  27389 

44  44  27433 

59  1008  28441 

77  132  28573 


37/SERV  REF  1 LAST 

4 0/  PIN  REF  1C  LAST 

40 /R  31  RFF  1 LAST 

4 1 / EXT VB  REF  1 LAST 


41/PIN  REF 

42/EXTVR  RFF 

42/NOUNS  RFF 

42/PIN  REF 


8 LAST 
2 LAST 

1 LAST 

2 LAST 


877  TC 
478  TO 
698  TO 
304  TO 

47  5 TO 
292  TC 
309  TO 
44 1 TO 


879: 
481: 
703  : 
3C9: 

478: 

293: 

325: 

445: 


68  68  32217 

57  94  1 33158 

204  22 4 33362 

63  63  33425 

82  1005  34430 

21  36  34466 

605  605  35071 

92  238  35309 


3 4/C  SI 
34/P12 
3 4 / P6  567 
34/SEP  V 


REF 

REF 

REF 

REF 


1 LAST 
I LAST 
1 LAST 
3 LAST 


630  TC 
832  TD 
777  TO 
879  TO 


648: 

P34: 

779: 

880: 


650  29223 
23  2 9246 
45  29  29  1 
123  29414 


42/R05  REF 

42/R33  REF 

43/EXTVB  REF 

43/PHASE  RFF 


2 LAST  494  TO  498: 

1 LAST  290  TO  281: 

6 LAST  302  TO  304: 

1 LAST  1283  TO  1283: 


114  116  35425 

27  27  35452 

60  493  35945 

14  14  35959 


J4/S3I  S 
35/P3C 
35/P  3272 


RFF 

REF 

REF 


1 LAST 
1 LAST 
l LA  ST 


6 1 4 TO 
612  TO 
619  TO 


6 19: 
614: 
625  : 


47  47  29461 
28  28  29489 
119  119  29608 


43  / p2  7 REF 

43/RC477  REF 

43/SELF  REF 


1 LAST  1376  TO  1377: 
l LAST  281  TO  285: 
l LAST  1274  TO  1283: 


11  11  35970 

1 72  1 72  36142 

314  . 314  36456 
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PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY:  ADDRESS  LIMITS  AND  THE  MANUFACTURING  LOCATION  CODE  ARE  SHOWN  FOR  EACH 


4000 

TO 

4 3 7 7 

PARAGRAPH 

4 

010 

ROPE 

MODULE 

1 , 

S IDE 

A, 

SENSE 

L INE 

SET 

5 

(WIRES 

6 5-  8 0) 

4400 

TC 

4777 

PARAGRAPH 

4 

C 11 

ROPE 

MODULE 

1 , 

SI  DE 

B, 

SENSE 

LINE 

SET 

5 

(W  IRES 

65-  80  ) 

5000 

TO 

5377 

PARAGRAPH 

4 

C 12 

ROPE 

MODULE 

1, 

SI  DE 

A, 

SENSE 

LINE 

SET 

6 

( WIRE  S 

8 1-  96  ) 

5400 

TO 

5777 

PARAGRAPH 

4 

C13 

ROPE 

MODULE 

1 , 

S IDE 

P , 

SENSE 

L INE 

S ET 

6 

(W  IRES 

8 1-  96) 

6000 

TO 

6377 

PARAGRAPH 

n 

0 14 

ROPE 

MODULE 

1 , 

SIDE- 

A , 

SENSE 

LI  NE 

SET 

7 

(WIPES 

97-112  ) 

6400 

TO 

6777 

PARAGRAPH 

4 

015 

ROPE 

MODUL  E 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

7 

( WIRE  S 

97-112) 

7000 

TO 

7377 

PARAGRAPH 

4 

C 16 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

L INE 

SET 

8 

(W  IP.  ES 

113-128) 

7*00 

TC 

7777 

PARAGRAPH 

u 

0 17 

ROPF 

MODULE 

1, 

SIDE 

B , 

SENSE 

LI  NE 

SET 

8 

(WIRES 

113-128  ) 

. 

TO 

00,2377 

PARAGRAPH 

4 

C20 

RCPE 

MODULE 

1, 

S IDE 

A, 

SENSE 

L INE 

SET 

l 

( WIRE  S 

1-  16) 

1 0,2400 

TO 

00, 2777 

PARAGRAPH 

4 

C21 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(W  IP  ES 

1-  16) 

00,3000 

TC 

00 ,3377 

PARAGRAPH 

4 

022 

ROPE 

MODULE 

1, 

SI  DE 

A, 

SFNSE 

LINE 

SE  T 

2 

( WI  RE  S 

17-  32) 

. 

TO 

90,  3777 

PARAGRAPH 

a 

C23 

ROPE 

MODULE 

1 , 

S IDE 

B, 

SENSE 

L INE 

S ET 

2 

( W IRES 

17-  32) 

J 1 ,2000 

TC 

01,2377 

- PARAGRAPH 

n 

024 

ROPE 

MODULE 

1 , 

SIDE 

A , 

SFNSE 

LI  NE 

SET 

3 

(WIRES 

33-  48 ) 

0 1,  2400 

TO 

01,2777 

PARAGRAPH 

4 

C 25 

ROPE 

MODUL  E 

1 , 

SIDE 

R, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  4e) 

Jl, 3000 

TO 

01,  3377 

PARAGRAPH 

4 

C26 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

S ET 

4 

(W  IR  ES 

4 9-  64  ) 

Ol  ,3400 

TC 

01 ,3777 

PARAGRAPH 

a 

C 27 

ROPE 

MODULE 

I , 

SIDE 

B , 

SFNSE 

LI  NE 

SET 

4 

(WIR  ES 

49-  64 ) 

04, 2000 

TO 

04,2377 

PARAGRAPH 

4 

040 

RCPE 

MODULE 

1 , 

S IDE 

A, 

SENSE 

L INE 

SET 

9 

( WIRE  S 

125-  144) 

TO 

04,  2777 

PARAGRAP  H 

4 

C 4 1 

ROPE 

MODULE 

1 , 

SI  DE 

B, 

SENSE 

LINE 

SET 

9 

(W  IRES 

124-144  ) 

04, 300C 

TC 

04,3377 

PARAGRAPH 

4 

042 

ROPE 

MODUL  E 

1, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 

3 4,  3400 

TO 

04,  3777 

PARAGRAPH 

4 

0*3 

RCPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

S ET 

10 

(W  IR  ES 

145-160 

95 ,2000 

TC 

95  ,2377 

PARAGRAPH 

4 

044 

ROPE 

MODULE 

1 , 

SIDE 

A , 

SENSE 

LI  NE 

SET 

11 

(WIRES 

161-176  ) 

0 6,  24  00 

TO 

C 5 » 2 777 

PARAGRAPH 

4 

045 

ROPE 

MODUL  E 

1 , 

S IDE 

B, 

SENSE 

L INE 

SET 

11 

( WIRE  S 

161-176) 

3 5 . ^3  00 

TO 

05,  3377 

PARAGRAPH 

4 

C 46 

ROPE 

MOD  ULF 

1 , 

SI  DE 

A , 

SENSE 

LINE 

S ET 

12 

<W  IR  ES 

177-  192  ) 

05  ,3400 

TC 

05  ,3777 

PARAGRAPH 

4 

0 47 

ROPE 

MODULE 

1, 

SIDE 

R, 

SEN  SE 

L I ME 

SET 

12 

( WIRE  S 

177-192  ) 

96, 2000 

TO 

06,  2377 

PARAGRAPH 

4 

050 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SET 

1 

(WIRES 

1-  16) 

15,2400 

TO 

06,  2777 

PARAGRAPH 

4 

05  1 

ROPE 

MODULE 

2, 

SI  DE 

B , 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

■ 6,3000 

TC 

06,3377 

DARAGRAPF 

4 

052 

ROPE 

MODUL  E 

2, 

SIDE 

A , 

SENSE 

LINE 

SE  T 

2 

( WIRE  S 

17-  32) 

, 

TO 

06,  3777 

PAKAGRA  PH 

4 

0 53 

ROPE 

MODULE 

2 , 

SIDE 

8, 

S ENS  F 

L INE 

S ET 

2 

(W  IR  FS 

17-  32) 

7,2000 

TO 

07,2377 

PARAGRAPH 

4 

0 54 

ROPE 

MODUL  F 

2, 

SIDE 

A , 

SENSE 

LI  NE 

SET 

3 

(WIPES 

33-  48  ) 

07,  2400 

TO 

07,2777 

PARAGRAPH 

4 

C55 

ROPE 

MODULE 

2, 

S IDE 

R , 

SENSE 

L INE 

SET 

3 

( WIRE  S 

33-  48) 

17,3000 

TO 

07,  3377 

PARAGRAPH 

4 

C 56 

ROPF 

MODULE 

2, 

SI  DE 

A, 

SENSE 

LINE 

SET 

4 

(W  IRES 

49-  64  ) 

>7,3400 

TC 

07,3777 

PARAGRAPH 

4 

057 

POPF 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SE  T 

4 

( WIRE  S 

49-  64 ) 

i i,  2660 

TO 

10,  2377 

PARAGRAPH 

4 

C6C 

ROPE 

MODULE 

2 , 

S I DE 

A, 

SENSE 

L INE 

S ET 

5 

(W  IRES 

6 5-  80) 

1 1 ,2400 

TC 

10,2777 

PARAGRAP  H 

4 

0 6 1 

ROPF 

MODULE 

2, 

SIDE 

B , 

SENSE 

LI  NE 

SET 

5 

(WIRES 

65-  80 ) 

10, 300C 

TO 

10,3377 

PARAGRAPH 

4 

062 

ROPE 

MODUL  E 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

( WIRE  S 

81-  96) 

1 , 340C 

TO 

1C, 3777 

PARAGRAPH 

4 

C 6 3 

ROPE 

MODULE 

2 , 

SIDE 

B, 

SENSE 

L INE 

S ET 

6 

(W  IP  ES 

8 1-  96) 

1 1 ,2000 

TC 

1 1 ,2377 

PARAGRAPH 

4 

064 

ROPE 

MODULE 

2, 

SI  OE 

A , 

SENSE 

LI  NE 

SET 

7 

(WIRES 

97-112 ) 

11,2400 

TO 

11, 2777 

PARAGRAPH 

4 

C65 

RCPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

L INE 

SET 

7 

( WIRE  S 

97-112) 

1 1 ,30  00 

TC 

1 1,  3377 

P ARAGRAP  H 

4 

C 6 6 

ROPE 

MODULE 

2, 

SI  DE 

A, 

SENSE 

LIME 

SET 

8 

(W  IR  ES 

113-128 ) 

1 1 ,34  00 

TC 

11 ,3777 

PARAGRAPH 

4 

067 

ROPE 

MOOULF 

2, 

SI  DE 

R, 

SENSE 

LINE 

SE  T 

8 

( WIRE  S 

113-128 ) 

1 2,  20  00 

TO 

12,  2377 

PARAGRAPH 

4 

C 70 

ROPE 

MODULE 

2 , 

S IDE 

A, 

SENS  E 

L INE 

S ET 

9 

( W IRES 

129-144) 

12  ,2400 

TO 

12,2777 

PARAGRAPH 

4 

C 7 1 

ROPE 

MODULE 

2, 

SIDE 

B , 

SENSE 

LI  NE 

SET 

9 

(WIRES 

129-144 ) 

12,  3000 

TO 

12  ,3377 

PARAGRAPH 

4 

072 

ROPE 

MODUL  E 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

3AP:  ASSEMRLF  REVISION  56  CF  AGO  PROGRAM  Z FRL  IN A BY  ZOROASTER 


«:12  O:  T.  21  ,1970 


PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY;  ADDRESS  LI  PITS  AND  THF  MANUFACTURING  LOCATION  CODE  A3  E SHOWN  FDR  EACH 


12,340'' 

TO 

12,3777 

PARAGRAPH 

ft 

C 7 3 

ROPE 

MODULE 

2, 

SIDE 

R , 

SENSF 

LI  NE 

SET 

10 

(WIRES 

145-1  6C  ) 

13, 2000 

TP 

13,2377 

PARAGRAPH 

ft 

0 74 

ROPE 

MODUL  E 

2, 

S IDE 

A , 

SENSE 

LINE 

SET 

11 

(WOES 

161-176) 

13, 240C 

TO 

13, 2777 

PARAGRAPH 

ft 

C 7 5 

ROPE 

MODULE 

2 , 

SI  DE 

B, 

SENSE 

LINE 

S ET 

1 1 

(W  IP  ES 

16  1-176  ) 

1 - ,3  ( 

TC 

13,3377 

PARAGRAPH 

u 

076 

ROPE 

MODULE 

2, 

SIDE 

A , 

SENSF 

LI  NE 

SET 

12 

(WIP  ES 

177-192 ) 

13, 340f 

TO 

13,3777 

PARAGRAPH 

ft 

C 77 

RCFE 

MODULE 

2, 

S I 0 E 

B, 

SENSE 

L INE 

SET 

12 

(WOES 

177-  192) 

14,239'' 

TO 

14, 2377 

PARAGRAPH 

ft 

ICO 

ROPE 

MOD  ULE 

3, 

SI  DF 

A, 

SENSE 

LINE 

SET 

1 

(W  IRES 

1-  16  ) 

14,2400 

TC 

14,2777 

PARAGRAPH 

ft 

101 

ROPE 

MODUL  E 

3, 

SIDE 

B, 

SENSF 

LINE 

SET 

1 

( WIRE  S 

l-  16) 

14,  3000 

TO 

14,  3377 

PARAGRAPH 

ft 

102 

ROPE 

MODULE 

3 , 

SIDE 

A, 

SENSE 

L INE 

S ET 

2 

< W IRES 

17-  32) 

1 4,34C  C 

TC 

1 4 , 3777 

PAPAGRAP  H 

ft 

103 

ROPE 

MODULE 

3, 

SIDE 

B , 

SENSE 

LI  NE 

SET 

2 

(WIRES 

17-  32 ) 

15, 200C 

TO 

15,2377 

PARAGRAPH 

ft 

104 

ROPE 

MODUL  E 

3, 

S IDE 

A, 

SENSE 

LINE 

SET 

3 

( WI?E  S 

3 3-  4e» 

1 5,2400 

TO 

15, 2777 

PARAGRAPH 

ft 

105 

ROPE 

MODULE 

3 , 

SI  DE 

B, 

SENSE 

LINE 

S ET 

3 

(W  IRES 

33-  48) 

1 5 , 3 0 ( 

TC 

15  ,3377 

PARAGRAPH 

ft 

106 

ROPF 

MODULE 

3, 

SIDE 

A , 

SENSE 

LI  NE 

SET 

4 

(WIR  ES 

49-  64 ) 

• 

TO 

15,3777 

PARAGRAPH 

ft 

1 C7 

RCPF 

MODULE 

3, 

S IDE 

B, 

SENSE 

L INE 

SET 

4 

( WI3E  S 

49-  64) 

1 . 

TO 

16,  2377 

P ARAGR  Al*  H 

ft 

no 

ROPF 

MODULE 

3, 

SI  OF 

A, 

SENSE 

LINE 

SET 

5 

(W  IR  ES 

65-  80 ) 

16 ,2400 

TC 

16,2777 

PARAGRAPH 

ft 

111 

ROPE 

MODUL  E 

3, 

SIDE 

3, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

16,  3000 

TO 

16,  33  77 

PARAGRAPH 

ft 

11? 

RCPE 

MODULE 

3 , 

SIDE 

A, 

SENSE 

L INE 

S FT 

6 

( w ip e s 

8 1-  96) 

15,3*00 

TC 

1 6 , 3777 

PARAGRAPH 

ft 

113 

ROPE 

MODULF 

3, 

SIDE 

B , 

SENSE 

LI  NE 

SFT 

6 

(WIRES 

81-  96 ) 

17,  2000 

TO 

1 7,2377 

PARAGRAPH 

ft 

114 

ROPE 

MODUL  E 

3, 

S IDE 

A , 

SENSE 

LINE 

SET 

7 

I WI?E  S 

97-112) 

1 7,  2400 

TO 

17, 2777 

PARAGRAPH 

ft 

115 

ROPE 

MOD  ULE 

3 , 

SI  DE 

B, 

SENSE 

LINE 

S ET 

7 

(W  IP  ES 

97-112  ) 

1 7, 3000 

TC 

17,3377 

PARAGRAPH 

ft 

116 

ROPE 

MODULF 

3, 

SIDE 

A , 

SE  NSE 

LI  NE 

SET 

8 

(WIR  ES 

1 13-128  ) 

TO 

17,3777 

PARAGRAPH 

ft 

117 

ROPE 

MODU  L E 

3 , 

SIDE 

H, 

S ENS  E 

L INE 

SET 

a 

( WRES 

112-128) 

l . 

T 0 

20,  2377 

P ARAGR  AP  H 

ft 

120 

ROPE 

MODULE 

3, 

SI  DE 

A, 

SFNSE 

l INE 

SET 

9 

(W  IRES 

129-144 ) 

? , . 41 

TC 

20,2777 

PARAGRAPH 

ft 

121 

ROPE 

MODUL  E 

3, 

SIDE 

R , 

SENSE 

L INE 

SFT 

9 

( WIRE  S 

129-144) 

2 1,  300 

TO 

20, 3377 

PARAGRAPH 

ft 

122 

ROPE 

MODULE 

3 , 

SIDE 

A, 

SENSE 

L INE 

S ET 

10 

(WIRES 

145-160 

■ 

T C 

20, 3777 

P ARAGRAP  H 

ft 

123 

RUPE 

MODULE 

3, 

SIDE 

B , 

SENSE 

LI  NF 

SET 

19 

(WIRES 

145-160  J 

! 1,  201 

TO 

21  ,2377 

PARAGRAPH 

ft 

124 

ROPE 

MODUL  E 

3, 

S IDE 

A , 

SENSE 

LINE 

SET 

11 

(HUES 

161-176) 

21, 240C 

TO 

21,  2777 

PARAGRAPH 

ft 

125 

ROPE 

MODULE 

3 , 

SI  DE 

B, 

SENSE 

L INE 

S ET 

1 1 

(W  IRES 

161-176  ) 

2 1 ,3c*0C 

T r 

21  ,3.377 

PARAGRAPH 

ft 

126 

POPE 

MODULE 

3, 

SIDE 

A , 

SENSE 

LI  NE 

SET 

12 

(WIRES 

177-192 ) 

21,  34C-: 

10 

21,3777 

PARAGRAPH 

ft 

127 

RCPE 

MOOULE 

3, 

S IDE 

B, 

S ENS  t 

L INF 

SET 

12 

( HUE  S 

177-  1«2) 

>2  ,?30( 

T 0 

22,  2377 

PARAGRAPH 

ft 

130 

ROPF 

MODULE 

4, 

SI  DE 

A , 

SENSE 

1 INE 

r.  n 

1 

(W  IP  ES 

1-  16  ) 

22,240f 

TC 

22  ,2777 

PARAGRAPH 

1 3 1 

ROPE 

MODUL  E 

4, 

SIDE 

B, 

SEN  SE 

LINE 

SET 

1 

( WIRE  S 

1-  16) 

, 

TO 

22,  3377 

PARAGRAPH 

ft 

132 

ROPE 

MODULE 

4 , 

SIDE 

A, 

SENSE 

L INE 

SET 

2 

(W  IRES 

17-  22) 

, t 

TC 

22,3777 

PARAGRAPH 

ft 

133 

ROPE 

MODULE 

4, 

SIDE 

B , 

SENSE 

LI  NE 

SET 

2 

(WIRES 

17-  32 ) 

2 3,  2000 

TO 

23,2377 

PARAGRAPH 

ft 

134 

ROPE 

MODUL  E 

4, 

S IDE 

A, 

SENSE 

LINE 

SET 

3 

(WRES 

33-  48) 

23, 24CC 

TO 

23, 2777 

PARAGRAPH 

ft 

135 

ROPE 

MODULE 

4 , 

SI  DE 

R, 

S ENSE 

LINE 

S ET 

3 

(W  IRES 

33-  48  ) 

2 3 ,30  00 

TC 

23  ,3377 

PARAGRAPH 

ft 

126 

ROPE 

MODULE 

4, 

SIDE 

A , 

SENSE 

LI  NE 

SET 

4 

(WIRES 

49-  64 ) 

23, 3400 

24 , 2 ACC 
24,  J(  ( ( 

24,  ®0 

25,  200C 

, 

25  ,3000 
25,  34  CO 


TO  23,3777 
TO  24,  2377 
TC  24,2777 
TP  24,  3377 
TG  24,  3777 
TO  25,2377 
TO  25, 2777 
TO  25  ,3377 
TO  25,3777 


PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 
PARAGRAPH  ft 


137 

140 

141 

142 

143 

144 

145 

1 46 

147 


RCPF  MODULE  4, 
ROPE  MODULE  4, 
RQPF  MODULE  4, 
ROPE  MODULF  4 , 
ROPE  MODULE  4, 
ROPE  MOGUL  E 4, 
ROPE  MODULE  4 , 
ROPE  MODULE  4, 
ROPE  MODULE  4, 


SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  R , 
SIDE  A, 
SIDE  B, 
SIDE  A , 
SIDE  B, 


SENSE  L INE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  L INE  S ET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  S ET 
SENSE  LINE  SET 
SENSE  L INE  SET 


4 (WIRES 

5 (WIRES 

5 (WIPES 

6 ( WIRES 

6 (WIRES 

7 ( WI3E  S 
7 (WIRES 


49-  64) 
65-  80 ) 
65-  80) 
81-  96) 
81-  96 ) 
97-112) 
97-112) 


8 (WIRES  113-128  ) 
8 (HOES  112-128) 


3 AP: 


9:12  OCT.  21,  1970 


PAGE  1579 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER 


PARAGRAPHS  GENERATE!)  FOR  THIS  ASSEMBLY;  AODRE  SS  LIMITS  AND  THE 


26  ,2000 

tc  : 

26 ,2377 

PARAGRAPH 

ff 

150 

26, 2400 

in 

26,2777 

PARAGRAPH 

U 

1 51 

26,3330 

TO 

26,  3377 

PARAGRAPH 

n 

152 

26 ,34CC 

TC 

26,3777 

PARAGRAPH 

H 

153 

27,  2000 

TO 

27,  2377 

PARAGRAPH 

H 

154 

2 7,2400 

TC 

27,2777 

PARAGRAPH 

a 

155 

TO 

27,3377 

PARAGRAPH 

H 

156 

27, 3400 

TO 

27,  3777 

PARAGRAPH 

n 

157 

, 

TC 

30  ,2377 

paragraph 

a 

160 

• 

TO 

30, 2777 

PARAGRAPH 

« 

161 

I , 

TO 

30,  3377 

PARAGRAPH 

n 

162 

■ i 

TC 

30,3777 

paragraph 

H 

163 

3 1,  20  00 

TO 

31,  2377 

PARAGRAPH 

H 

164 

31 ,2400 

TC 

3 1 ,2777 

PARAGRAPH 

H 

16  5 

31,  300G 

TO 

31 ,3377 

PARAGRAPH 

n 

166 

■ 

TO 

31,  3777 

PARAGRAPH 

H 

167 

32  ,2000 

TC 

32  ,2377 

PARAGRAPH 

ti 

170 

32, 2400 

TO 

32,  2777 

PAR  AGR  APH 

« 

171 

3 2,3300 

TO 

32,  3377 

PARAGRAPH 

n 

172 

32,3400 

TC 

32,3777 

PARAGRAPH 

n 

173 

3 3,  2000 

TO 

33,  2377 

PARAGRAPH 

n 

174 

33 ,240C 

TC 

33,2777 

PARAGRAPH 

M 

175 

33, 30 OC 

TO 

33,3377 

PARAGRAPH 

a 

176 

33,3430 

TO 

33, 3777 

PARAGRAPH 

u 

177 

3 4 ,2000 

TO 

34  ,2377 

PARAGRAPH 

n 

200 

34, 2400 

TO 

34,  2777 

PARAGRAPH 

n 

201 

34,3300 

TO 

34,  3377 

PARAGRAPH 

n 

20  2 

34.340C 

TC 

34,^777 

PARAGRAPH 

H 

203 

. 

TO 

35,  2377 

PARAGRAPH 

H 

2C4 

35  ,2400 

TC 

35  ,2777 

PARAGRAPH 

ft 

20  5 

35,3000 

TO 

35,3377 

PARAGRAPH 

II 

206 

35,3400 

TO 

35,  3777 

PARAGRAPH 

H 

2C7 

36  ,2000 

TO 

36  ,2377 

PARAGRAPH 

II 

210 

36, 2400 

TO 

36,  2777 

P AR  AGR APH 

n 

21 1 

36,3330 

TO 

36,  3377 

P AR  A GRAPH 

a 

2 12 

36,3400 

TC 

36,3777 

PARAGRAPH 

n 

213 

3 7,  20  00 

TO 

37,  2377 

PARAGRAPH 

H 

214 

37,2400 

TO 

37  ,2777 

PARAGRAPH 

U 

2 15 

37,  3000 

TO 

37,3377 

PARAGRAPH 

V 

216 

37, 3400 

TO 

37, 3777 

PARAGRAPH 

II 

217 

^ ,2000 

TC 

40,2377 

PARAGRAPH 

« 

22C 

40,2400 

TO 

40,  2777 

PARAGRAPH 

H 

221 

4 3 ,3000 

TO 

40,  3377 

PARAGRAPH 

H 

222 

40 , 34.00 

TC 

4 « J 7 7 7 

PARA GRAPE 

U 

223 

4 1,  2000 

TO 

41,  2377 

PARAGRAPH 

ti 

224 

ROPE  MODULE  5, 
ROPE  MODULF  4, 
ROPE  MODULE  4, 
ROPE  MODULE  4, 
ROPE  MODULE  4, 
ROPE  MODULE  4, 
ROPE  MODULE  4, 
ROPE  MODULE  4, 
ROPE  MODULE  5, 
RCPE  MODULE  5, 
POPF  MODULE  5, 
ROPE  MOOULE  5, 
ROPE  MODULE  5 , 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
POPE  MODULE.  5, 
ROPE  MODULF  5, 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
ROPE  MOOUL  E 5, 
ROPE  MODULE  5 , 
ROPE  MODULE  5, 
ROPE  MODUL  E 5, 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
ROPE  MOOULE  5, 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
ROPE  MODULE  5 , 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
ROPE  MODULE  5, 
ROPE  MODULE  6, 
RCPE  MODULE  6, 
POPE  MODULE  6, 
ROPE  MODULE  6, 
RCPE  MODULE  6 , 
ROPE  MODUI  E 6, 
ROPE  MODULE  6, 
ROPE  MODULE  6 
ROPE  MODULE  6, 
RCPE  MODULE  6 , 
ROPE  MODULE  6, 
ROPE  MODUL  E 6, 
ROPE  MODULE  6 


MANUFACTURING  LOCATION  CODE  ARE  SHOWN  FOR  EACH 


SIDE  A , 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SI  DE  B , 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B , 
S IDE  A, 
SI  OE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B , 
S IDE  A, 
SIDE  6, 
SIDE  A, 
SIDE  B, 
SIDE  A: 
SIDE  B, 
SIDE  A, 
SI  0 E B 
S IDE  A, 
SIDE  P 
SIDE  A, 
SIDF  B, 
SI  DE  A 
SIDE  B. 
SIDE  A 


SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LI  NF 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
S ENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENS  E L INE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINF 
SENSE  L INF 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSr  LINE 
SENSE  LINF 
SENSE  LINF 
SENSE  LINE 
S ENS  E L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINF 
SENSE  LINF 
SENSE  LINF 
S FNSE  L INE 
SFNSF  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINF 
SENSE  L IMF 
SENSE  LINE 
SENSE  LINF 
S ENS  E L INF 


SET  9 
SET  9 
SET  13 
SET  10 
SET  11 
SET  11 
SET  12 
SET  12 
SET  1 
SET  1 
SET  2 
SET  2 
SET  3 
SET  3 
SET  4 
S FT  4 
SET  5 
SET  5 
SET  6 
SET  6 
S FT  7 
SFT  7 
S FT  8 
S ET  fl 
SET  9 
SET  9 
SET  10 
SET  10 
S FT  11 
SET  11 
SET  12 
S ET  12 
SET  1 
SET  1 
SET  2 
SET  2 
S ET  3 
SET  3 
SET  4 
S ET  4 
SET  5 
SET  5 
SET  6 
SFT  A 
S ET  7 


17 


33- 


I WIRES  1 2 Q- 
I WIRES  129- 
(W  IRES  145 
IWIRES  145- 
(W  IRES  16  1 
(WIRES  161 
(WIRES  177- 
(WIRES  177 
(WIRES  1 
(WIRES 
(W  IRES 
( WIRE  S 
(W  IR  ES 
(WIPES  33- 
(WIRES  49- 
(W  IP  ES  49- 
(WIPES  65- 
( WIRES  6 5- 
(WIRES  81- 
(WIRES  81- 
(W  IR  ES  97- 
(WIRES  97 
( WIRE  S 113- 
( W IP  ES  113- 
( WIRES  129 
(WIRES  129- 
(WIPES  145 
( WIRE  S 145 
(WIPES  161 
(WIRES  161 
(WIRES  177 
(WIRES  177 
( WIPES 
(WIRES 
(WIRES 
( WIRE  S 
(W  IR  ES 
(WIPES 
( WIRE  S 
(W  IRES 
( WIRF  S 
(WIRES 
(WIRES 
( WIRE  S 
IW  IR  FS 


17 


B 1 


144  ) 
144) 
160  ) 
160 
176) 
176  ) 

1 92  ) 
192  ) 
16) 
16) 
32) 
32) 
48  ) 
48  ) 
64) 
64  ) 
80) 
80) 
96  ) 
96) 
112  ) 
112  ) 
128) 
128  ) 
•144  ) 
144) 
-160  ) 
-1  60 
176  ) 
-176  ) 
192) 
-192) 
- 16) 
- 16) 

- 32) 

- 32) 
!—  48) 

- 48  ) 
I-  64) 
i-  64  ) 

- 80) 
80) 
96  ) 

- 96) 
’-112) 


\ 
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21, 1970 


PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY:  ADDRESS  LIMITS  AND  THE  MANIF  AC  TURI  NG  LOCATION  CODE  APE  SHEWN  FOR  EACH 


41.2400 
4 1,  3 1 if; r 
41,3400 
42,  POOL 

42.2400 
4 2 ,3  ore 

42,  3400 
43,2000 
43, 24CC 

43,  30 OC 
43  ,340C 


TC  41 ,2777 
TO  4 1,  3377 
TO  41 ,3777 
TD  42  ,2377 
TO  42,  2777 
TO  42 ,3377 
TO  4 2,  37  77 
TO  43,  2377 
TO  43,2777 
TO  43, 3377 
TC  43,3777 


PARAGRAPH 
PARAGRAPH 
PARAGRAPH 
PARAGRAPH 
PARAGRAPH 
PARAGRAPH 
PARAGRAPH 
P ARAGRAP  H 
PARAGRAPH 
PARAGRAPH 
PARAGRAPH 


H 225 
# 226 
it  227 

# 230 
" 231 

# 232 
ft  233 

# 234 
n 235 
0 236 


ROPE  MOOUL  E 
RC  PE  MODULE 
ROPE  3 30  UL E 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MOOIJLF 
RC  PE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 


6, 
6 , 
6, 
6, 
6 , 
6, 
6 , 
6, 
6 , 
6 , 
6, 


SIDE  R, 
SIDE  A, 
SIDE  B , 
S IDE  A, 
SIDE  R, 
STOP  A, 
SIDE  B, 
SIDE  A , 
SIDE  B, 
SIDE  A, 
SI  D E R , 


SENSE 
SENSE 
SENSE 
SFNSE 
SENSE 
SENSE 
S ENS  F 
SE  N SE 
SENSE 
SENS  F 
SENSE 


SET  7 
S ET  8 
SET  8 
SET  9 
SET  9 
SET  10 
S ET  10 
SET  11 
SET  11 
S ET  12 
SET  12 


LINE 
L INE 
LI  NE 
L INE 
LINE 
LINE 
L INE 
LI  NE 
LINE 
LINE 
LI  NE 


(WIRES  9 7-1 1 2 ) 
(WIRES  113-I2P) 
( Wl/R  ES  113-128  ) 
IWHES  129-144) 
(WIRES  129-144) 
( WI  RF  S 145-160) 
(WIRES  14  5-  1 6C  ) 
(WIRES  161-176) 
(WIPES  161-176) 
(r»  IP.  ES  177-192  ) 
(WIPES  177-192  ) 
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OCTA.  LISTING  FOR  PARAGRAPH  # 010,  WITH  PARITY  BIT  IN  BINAPY  AT  THE  RIGHT  OF  EACH  WORD,  " 3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


4000 

C00Q4 

0 

34054 

1 

56006 

1 

12703 

0 

52011 

0 

00006 

1 

34056 

0 

52006 

0 

40  10 

52^1  1 

0 

00006 

1 

)1264 

0 

52006 

0 

s20l  1 

0 

34057 

1 

560C6 

1 

13412 

1 

4020 

52  011 

0 

34064 

1 

56006 

1 

12000 

1 

5 20  1 1 

0 

34060 

0 

56006 

1 

13261 

0 

40  30 

52011 

0 

34061 

1 

560C6 

1 

1233? 

0 

52011 

0 

340  60 

0 

56006 

1 

1330  4 

1 

404C 

5 201  1 

0 

340  6 2 

1 

56006 

1 

13507 

1 

52011 

0 

34063 

0 

56006 

1 

13156 

1 

40  50 

52011 

0 

34C65 

0 

56006 

1 

12453 

0 

C:  12103 

0 

C: 

02117 

1 

C : 

36106 

0 

C : 

02103 

1 

40  60 

C: 

10  100 

1 

C: 

1 6 1 C 7 

0 

C : 

12100 

0 

C : 

52107 

0 

C:  14106 

0 

C: 

46  107 

0 

C: 

04025 

1 

C: 

10003 

0 

40  70 

C : 

14031 

0 

C: 

20033 

0 

C: 

24C  17 

1 

C: 

300  36 

1 

C:  34034 

1 

C : 

40023 

1 

C : 

44035 

1 

C: 

50037 

0 

C: 

54000 

0 

C : 

60000 

1 

00004 

0 

00006 

1 

00004 

0 

5400  1 

1 

00006 

1 

06004 

0 

4TTo 

00006 

1 

14  1 15 

1 

000C6 

1 

00C04 

0 

54001 

1 

44733 

0 

60001 

0 

00006 

1 

4120 

14103 

0 

00006 

1 

00003 

1 

00002 

0 

34144 

1 

71021 

1 

000C6 

1 

14131 

1 

4130 

04132 

0 

31017 

0 

54023 

1 

3002  3 

0 

046  16 

1 

C: 

6 2366 

0 

34755 

1 

55012 

1 

4 1 4r 

31021 

0 

04255 

1 

0 4 143 

0 

05155 

0 

C:  37600 

0 

04364 

1 

41040 

0 

55012 

1 

4150 

04616 

1 

C : 

62366 

0 

04635 

0 

C: 

6 20  22 

0 

22007 

0 

54123 

0 

34736 

1 

71020 

0 

4160 

6101  1 

0 

locoo 

0 

00002 

0 

34753 

1 

60002 

0 

55036 

1 

23021 

0 

04204 

0 

41  7C 

34201 

0 

56006 

1 

00006 

1 

0 4007 

1 

55037 

0 

34201 

0 

00006 

1 

01007 

1 

42  00 

0 20  20 

1 

C : 

62101 

0 

53C37 

0 

05176 

1 

34735 

1 

550  20 

0 

00002 

0 

22002 

0 

42 1 r 

04220 

0 

0422a 

1 

300C1 

0 

7 5012 

0 

60C04 

c 

55041 

1 

05133 

0 

0 5 155 

0 

422C 

1 1041 

1 

0422  7 

1 

00002 

0 

04227 

1 

1 1042 

1 

04227 

1 

00002 

0 

05635 

1 

42  30 

C: 

31206 

1 

34201 

0 

00006 

1 

01007 

1 

34242 

1 

550  12 

1 

44-360 

1 

54776 

0 

4240 

04635 

0 

C: 

61501 

1 

C: 

00042 

l 

34201 

0 

C0006 

1 

01007 

1 

34254 

0 

55012 

1 

4 2 50 

44  360 

1 

54776 

0 

0 4 6 3 5 

0 

C: 

61473 

0 

C:  00041 

1 

74757 

1 

54123 

0 

34736 

1 

4260 

710  20 

0 

6101  1 

0 

100C0 

0 

00002 

0 

24002 

0 

10123 

0 

14270 

1 

0000  2 

0 

4270 

22002 

0 

34302 

1 

56006 

l 

00006 

1 

04007 

1 

52131 

0 

34201 

0 

00006 

1 

01007 

1 

03545 

0 

C : 

601  Cl 

1 

55016 

0 

54003 

0 

74357 

0 

650C7 

0 

54145 

0 

4-i  1C 

00002 

0 

31016 

1 

14304 

0 

54003 

0 

74  3 57 

0 

65007 

0 

0 0 0 C 2 

0 

C: 

00016 

0 

4320 

C: 

0001  1 

l 

C: 

00r.P4 

0 

54020 

1 

40020 

1 

4002  0 

1 

400  20 

1 

40020 

1 

5602  0 

0 

4330 

00002 

0 

5402  2 

0 

40022 

0 

40022 

0 

40022 

0 

40022 

0 

56022 

1 

00002 

0 

4340 

60000 

1 

60000 

1 

60000 

1 

60000 

1 

60000 

1 

00002 

0 

C : 

00037 

0 

C : 

01740 

0 

4 3 50 

C : 

76000 

0 

C5C72 

1 

05214 

0 

052  7? 

0 

05105 

0 

C: 

30000 

1 

C: 

03777 

0 

C : 

00  37  7 

1 

4360 

C: 

00023 

0 

C: 

000  21 

1 

C: 

ooc  25 

0 

C : 

OOC  1 2 

1 

34745 

c 

00006 

1 

05011 

1 

00002 

0 

4370 

44745 

1 

cor  06 

1 

03011 

1 

00002 

0 

34747 

1 

00006 

1 

0501  1 

1 

000  02 

0 

3AP: 


ASSEMBLE  REVISION  =-6  OF  AGC  PROGRAM  ZERLINA  8Y  ZOROASTER 


9:12  OIT.  21,1970 


PAGE  1582 


► 


> 


OCTAL  LISTING  FOR  PARAGRAPH 


Oil,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  WCROS  ARE  OAS  IC  INSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPFRATOR  WORDS)  OR 


4900 
44  in 
4 *20 
44  30 


00006  1 
26154  0 
17322  1 
00006  l 


3002  5 0 
54007  1 
14417  0 
05011  1 


52014  0 00002  0 00006  1 
00CC2  0 54162  C 00002  0 
44755  0 54154  0 54155  1 
00002  0 44746  1 00006  1 


30 156  0 
54135  1 
54156  1 
0 30  1 1 1 


"C"  (CONSTANTS) 

20156  1 60154  1 
100C0  0 30135  0 
00002  0 34746  0 
00002  0 44444  0 


44  4 0 
445C 
4460 
4470 


60002  0 60004  0 

71020  0 6101  1 0 
54144  1 44736  C 
34755  1 57042  C 


04635  C 
13000  0 
0CCC4  0 
05137  1 


10641  0 C : 02003  0 22007  0 
14455  0 14164  1 240C2  0 
71020  0 55020  0 11342  1 
00003  1 44747  C 00006  1 


54123  3 
14437  1 
04470  0 
0 30  1 ] l 


34736  1 
56002  0 
04473  0 
34755  1 


4500 
45  1C 
4520 
453  0 


55011  1 
55011  1 
00006  1 
5 2062  1 


00144  0 
00  1 44  0 
56753  0 
22002  0 


56002  0 
00006  1 
16751  0 
34740  0 


54144  1 
64515  1 
00006  1 
70110  0 


11042  1 
1 45 1 6 0 
50002  0 
10000  0 


04507  1 
40000  0 
50000  1 
14550  1 


04473  0 
50002  0 
30001  0 
3006  1 0 


34755  1 
60000  1 
24002  0 
04512  C 


4540 

4550 

45fe0 

4570 


C:  66 16  1 1 00001  0 

34563  0 60^62  0 

5000 1 0 00001  0 C : 

34744  1 540C1  1 


34562  1 60062  0 
04512  0 C:  65673  0 
00765  0 C : 16450  1 
34615  1 70110  0 


04512  0 C : 64420  0 
00001  0 30061  0 
34753  1 71300  1 
C 0006  1 14601  0 


00001  0 04560  0 
C 4 5 1 2 C C:  51615  1 
10000  0 00002  0 
34750  1 70110  0 


4600 
4 6 1 0 
4620 
4630 


13000 
( 6 00  1 

30000 

0 

30001  0 
74733  0 

61 035  0 
64735  1 

70001  1 
55035  1 

00006  1 
00002  0 

16754  0 

C : 1Q102  0 

31035  0 
52134  0 

OOOC6  I 
50002  0 

1 

24  002  0 

54001  l 

22004  0 

75012  0 

56002  0 

52134  0 

50002  0 

02000 

0 

56134  1 

560C4  0 

56  134  1 

00133  0 

55002  0 

50000  1 

30000  1 

46  40 
4650 
4660 
4670 


54004  1 
00002  0 
00004  3 
00003  1 


75  C 1 2 0 
54135  1 
00006  1 
54004  1 


56002  0 
56004  0 
0 1 CC  7 1 

30135  0 


50002  0 
00006  1 
50001  0 

00002  0 


12000  1 
04007  1 
32000  0 
52073  1 


35012  1 
56135  0 
55135  0 

50002  0 


70133  1 
75012  0 
00006  1 
30000  1 


60134  1 
560G1  0 
0 1007  1 
24002  0 


4700 
471  0 
4720 
473C 


54001  1 22004  0 
56004  : 56073  0 
50002  0 30000  1 
01007  1 00002  0 


75C12  0 56002  0 

L 00 7 2 l 54  164  0 

54004  1 75012  0 

C : 37777  1 C : 37777  1 


52073  1 50002  0 02000  0 56073  o 
34744  1 54023  1 30006  1 54165  1 
56002  0 56  164  1 14643  0 00006  1 
57777  1 C:  40000  0 C:  20000  0 C:  10000  0 


474C 
47  5C 
4760 
477C 


04000  3 C:  02000  0 

00310  0 C:  0 0.0 0 4 0 

30013  0 C: 

( • 1 


C: 
C : 


0 1000  0 
00002  0 

000  1 7 1 
00055  1 


00400  0 C:  00200  0 

C : 7 77  77  C 

00030  1 C : 0C033  1 

30063  1 C:  00062  0 


C : 00100  0 C : 

1C: 
C:  00035  1 C: 

C:  00120  1 C : 


00040  0 
00005  1 
00032  0 
00140  1 


C:  00020  0 
C : 00007  0 
C:  30045  0 
C : 00144  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 012,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  APE  §AS  IC  INSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C  " (CONSTANTS) 


5000 

5 3 1C 
5020 

50  30 

C : 
C: 
C: 
C: 

C 0 3 1 0 
01426 
06000 
17770 

0 

1 

1 

C: 
C: 
C: 
C : 

004  01 
01776 
07  000 

2 ICOO 

1 

0 

0 

1 

C : 00454 

C : 01777 
C:  11000 
64736 

1 

1 

1 

1 

C: 
C : 
C: 

00620 
.2177 
l 300C 
55075 

0 

1 

0 

0 

C: 

C: 

C: 

00777 

02400 

1400C 

15036 

0 

1 

1 

0 

C: 
C : 
C : 

0 1124 
03000 
15000 
41075 

1 

1 

0 

0 

C: 
C: 
C : 

01211 

03400 

16000 

60000 

1 

0 

0 

1 

C : 
C : 
C: 

01400 

05000 

17000 

55075 

1 

1 

1 

0 

5040 

15051 

1 

57075 

1 

51075 

1 

64734 

0 

40000 

0 

61075 

1 

55075 

0 

15051 

1 

5 5( 

15C67 

1 

00006 

1 

71075 

0 

55C76 

0 

00006 

1 

75005 

0 

67751 

0 

00006 

1 

5060 

7 1' ' 7 6 

0 

6773  1 

0 

00006 

1 

71075 

0 

20001 

1 

55075 

0 

00002 

0 

50000 

1 

507( 

44734 

1 

00002 

0 

00004 

0 

6 5 164 

1 

54063 

0 

00006 

1 

5000  2 

0 

30001 

0 

5100 

52C66 

0 

35163 

0 

560  C4 

0 

54061 

1 

12631 

0 

00004 

0 

54063 

0 

00006 

1 

51  1 0 

50002 

0 

3000  1 

0 

52066 

0 

35163 

0 

56004 

0 

12  605 

1 

56002 

0 

67760 

1 

5120 

56002 

0 

15112 

1 

22002 

0 

35  163 

0 

56006 

1 

12712 

0 

40164 

0 

54001 

1 

5 130 

35163 

0 

5 4 0 C 6 

0 

12711 

0 

54164 

0 

35163 

0 

54004 

1 

1300  2 

1 

0000  4 

0 

51  40 

54065 

4475? 

, 

1 

35163 

0 

0 

13  027 

00004 

0 

1 

54063 

0 

5 150 

35163 

0 

56006 

l 

54165 

1 

30002 

0 

13076 

1 

35  163 

0 

54004 

13107 

0 

5160 

300  61 

0 

54 Of  4 

1 

16753 

1 

C: 

02605 

0 

C : 

001 10 

1 

30167 

1 

77737 

1 

65164 

1 

5170 

56167 

1 

75004 

1 

10000 

0 

50000 

1 

540C0 

00002 

0 

56001 

0 

00006 

1 

5200 

01C07 

1 

-4CC6 

0 

00001 

0 

C: 

77677 

1 

00004 

0 

5400  l 

1 

34733 

1 

2600  2 

1 

5210 

30006 

1 

OOOC  6 

1 

0 4 C 0 7 

1 

56001 

0 

00004 

0 

56002 

0 

5406  1 

1 

00006 

1 

5220 

50C61 

0 

30001 

0 

54063 

0 

35231 

1 

56006 

1 

13234 

0 

52062 

1 

64752 

0 

5230 

5 200  6 

0 

C: 

02063 

0 

50002 

0 

30000 

1 

24002 

0 

5S002 

0 

54063 

0 

30006 

1 

5240 

00006 

1 

040(7 

1 

54001 

1 

35246 

1 

54C61 

1 

15223 

0 

15270 

0 

C: 

72526 

0 

5250 

C: 

737  L4 

1 

10076 

1 

1 5272 

l 

1 5272 

1 

15255 

1 

1 1 3(  1 

0 

15267 

0 

15262 

0 

5260 

15267 

0 

15  267 

0 

37  735 

1 

05072 

1 

C : 

03563 

1 

C : 

14063 

1 

15272 

1 

05232 

1 

52  70 

C : 

00764 

1 

05251 

1 

10332 

1 

35231 

l 

54006 

0 

13417 

1 

30016 

0 

00006 

1 

5300 

°1007 

1 

OOCC6 

1 

22012 

1 

30016 

0 

56006 

1 

5201  1 

0 

00003 

1 

50017 

1 

5310 

53153 

0 

00006 

1 

53002 

0 

3000  1 

0 

53147 

0 

00006 

1 

35321 

1 

52006 

0 

5320 

C : 

034  55 

0 

C : 

02063 

0 

50002 

0 

30000 

1 

24002 

0 

550  10 

0 

35331 

0 

22006 

1 

5330 

14640 

0 

C: 

2021  3 

0 

50002 

0 

40000 

0 

61010 

1 

00006 

1 

16753 

1 

1675  1 

0 

5340 

00004 

0 

50002 

0 

30000 

1 

24002 

0 

54072 

0 

74757 

1 

60000 

1 

54071 

0 

5350 

3 0 n 7 2 

1 

75030 

0 

00006 

1 

74740 

1 

56072 

1 

74735 

0 

54066 

0 

50002 

0 

5360 

30000 

1 

2400  2 

0 

54065 

0 

15374 

0 

00004 

0 

5000? 

0 

30000 

1 

24002 

0 

5370 

00004 

0 

54C65 

0 

34753 

1 

54066 

0 

00006 

1 

35400 

0 

52006 

0 

C : 

02224 

1 
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ALL  VALID  WOROS  ARE  BASIC  INSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERA  TOR  WORDS)  OR  "C " (CONSTANTS) 


5400  C:  20 1 C 3 
54  10  74  745 

5420  10000 

5430  35433 


1 22073  0 

1 i 

15440  0 
0 22073  0 


22006  1 
15434  0 
30002  0 


22073  0 
50061  0 
54063  0 
02312  0 


75024  0 
31051  1 
30006  1 
50002  0 


10000  0 
54070  1 
00006  1 
30000  l 


17762  1 
30062  0 
04007  1 
24002  0 


30062  0 
74744  0 
54064  1 
15415  0 


5440 
54  50 

54ftf 

5470 


00006  1 
22006  1 
22706  0 
34755  1 


5000  2 0 
50000  1 
OCC  C 6 1 
54032  1 


30001  0 
30001  0 
50C00  1 
54033  0 


52064  1 
22006  1 
3C001  0 
54034  1 


34752  0 
22706  0 
22706  0 
00002  0 


26002  1 
13603  0 
22006  1 
54162  0 


15430  1 
22706  C 
2270  6 0 
40  160  1 


22706  0 
22006  1 
13711  1 
70162  0 


5500 

5510 

5520 

5530 

50161  1 
44753 

00006  1 

26160  1 

70  100  1 
04001  1 

00002  0 
54100  1 
50061  0 

04635 

00003 

54074 

64753 

0 

1 

o 

C:  20326 
00002 
22063 

1 

0 

1 

34755 

30002 

00003 

1 

0 

1 

55043  0 
05533  1 
00C01  0 

00004 

40000 

30002 

0 

0 

o 

05533  1 

70001  1 

15522  0 

1 

>4 

00006 

0 

1 

54063 

10061 

0 

1 

34762  0 

52062  1 

54061 

50061 

1 

o 

5550 

3CC74  1 

54001  1 

50062  0 

44735 

0 

•: 

0 

00004 

0 

54061  1 

5C002 

0 

5560 

60000  1 

50030  1 

30000  1 

54C01 

1 

3 0C6 1 

0 

50002 

0 

60001  0 

50000 

1 

22000  1 

10061  1 

15556  0 

16753 

1 

4 4747 

o 

7104  3 

o 

55043  0 

05155 

o 

5600 

00004  0 

30002  0 

55363  1 

5000? 

0 

30003 

1 

5400  1 

1 

30006  1 

00006 

1 

56 1 0 

04307  1 

55364  0 

30002  0 

54061 

1 

10375 

54376 

1 

1 562  1 

o 

30001  0 

54375 

1 

562C 

15625  1 

1 0376  1 

15625  1 

30001 

0 

1 

22377 

1 

41035  1 

75643 

1 

5630 

27035  1 

56061  0 

00003  1 

50000 

1 

ooooi 

0 

03004 

0 

30002  0 

55363 

1 

5640 
56  50 
5660 
567C 


50002  0 30000  1 

50017  1 04635  0 C 

05605  1 C:  77770  1 
27746  l 30103  0 


0 5605  1 C:  40400  1 
13001  1 10004  . 

34765  1 54001  1 

74746  1 10000  0 


0CC04  0 34752  0 
30002  0 55363  1 
40000  0 52760  1 
15702  0 04616  1 


60005  1 54017  0 

50002  0 30000  1 

00004  0 04616  1 

C : 12666  1 04616  1 


5 7 00 
5710 
5720 
5730 


05655  1 
53364  0 
53364  0 


C:  311  3 0 


35744  0 04727  1 04616  1 C:  67546  1 00004  0 
00004  0 300C2  0 05602  0 C:  00217  0 01363  0 
54061  1 50002  0 30000  1 54001  1 15614  0 
15722  1 00004  0 53364  0 00004  0 50002  0 


30002  0 
00004  0 
00004  0 
30000  1 


5740 

5750 

5760 

5770 


54)01  1 
55363  1 
31473  0 
00002  0 


15612  0 
C 560  6 1 

5400  1 1 
314  74  1 


C 


15661  1 
00014  1 
45775  C 
54001  1 


15643  1 C:  66067  0 00004  0 54001  1 30002  0 
01363  0 31472  1 00006  1 01006  0 00002  0 
00C06  1 02005  0 60001  0 00006  1 01005  0 
35775  1 15763  1 C:  00314  1 C:  05776  l CKSM  45071  0 


t 


« 
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OCTAL  LISTING  FOR  PARAGRAPH  H 014,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


6000 
63  10 
602C 
6030 


C 

C 

C 


C: 
C : 


41300  1 
66107  1 


54001  1 
000C4  0 
37736  1 
36041  1 


40000  i 

70110 
56004 
00004  i 


12022  1 
22000  1 


04635  0 
44752  1 
00006  1 
50002  0 


00006  1 
36031  0 
30000  1 


03012  1 
15176  0 
22006  1 


6040 

6050 

6360 

6070 


12203  3 C:  56063  1 
52006  0 00003  1 
54023  1 16102  0 
34755  1 54156  1 


36257  1 
00006  1 
22006  1 
54163  1 


56C06  1 
22164  1 
16054  1 
30165  0 


52002  1 
30006  1 
00006  1 
54C06  0 


53447  0 
54  165  1 
53116  1 
10023  1 


00006  1 
74735  0 
3000  1 0 
16111  1 


31447  1 
54115  0 
52155  1 
10067  1 


6120 

6130 


15126  0 24164  1 
76106  1 540  20  1 
50164  1 40001  1 
10000  0 67755  1 


50164  1 30000  1 
10020  1 16261  0 
10000  0 16227  1 
16137  0 30120  1 


10003  0 16374  0 

16755  1 74753  0 

C:  77773  1 24164  1 

26116  0 50020  0 


00177  0 
10000  0 
54116  0 
76305  0 


54023  1 
16  160  1 
66263  0 
00006  1 


6140 

6150 

6160 

6170 


66150 
74357 
30  120 


3 

0 

1 


54116  0 


65007  0 
54130  1 
77754  1 


65012  1 56116  1 60115  1 54004  1 50020  0 
56116  1 54003  0 50020  0 76305  0 37745  0 
24164  1 50164  1 40000  0 13030  0 24130  0 


00006 


16176  C 30115  1 26116  0 


50130  0 


76305  0 
5402  0 1 
16170  0 
40046  1 


6220 

6230 


26116 

54004 

35007 

7r.O20 


? 

0 

l 


77756  C 
75012  0 
56116  1 
66234  1 


00C06  1 
64741  1 

54003  0 
10000  0 


16216  0 77754  1 00006  1 
54116  0 50C20  0 36305  1 
74357  0 26116  0 50020  C 
16245  0 C:  77767  1 66124  0 


16220  0 
30120  1 
36305  1 
10000  0 


30  1 1 6 1 
16224  1 

34360  0 
50000  1 


6240  46256 
6250  54116 
6260  C:  00006 
6270  35013 


l 16247  1 

50C?  0 0 

1 10  3 20  1 

0 54004  1 


50163  0 46254  0 16247  1 50163  0 
76305  0 C:  0000?  0 C:  00336  1 C:  03006  1 
16275  0 C:  77722  C 24164  1 53164  1 
70020  1 50000  1 16346  1 54004  1 


46256  1 
00002  0 
30000  1 
10020  1 


26166  1 
C : 00003  1 
54117  1 

50000  1 


6320 

6330 


16535 

17615 


10163 

■741  3 
17346 
17633 


1 

1 

0 


1 2 C 1 7 
167  15 
16571 
16763 


1 

0 

0 

1 


12017  1 
16502  l 
16640  1 
16761  C 


12121  0 Ci — dO-1-2'2  0 165  17  0 

16064  1 17636  1 16513  1 

17351  0 17630  1 17606  1 

1 7050  1 17343  0 17472  0 


1710  3 0 
16632  1 
17611  1 
17437  1 


634C 
63  50 
6360 
6370 


17017  1 
12360  1 
12473  1 
24164  1 


17074  1 
12364  C 
12500  1 


50164  1 


17007  0 
12370  0 
12453  0 
40000  0 


12376  0 
12513  C 
67761  0 


17604  0 
12412  0 
12522  1 
54116  0 


17625  0 
12421  0 
12463  0 
74356  1 


12350  1 
12404  1 
30165  D 
56116  1 


54004  1 
77734  1 


;ap:  assemble 

REVISION  56 
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ZOROASTER 
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PAGE  1586 

OCTAL  l ISTING 

FOR  PARAGRAPH  015,  WITH 

PARI  TV  BI  T 

IN  BINARY  AT  THE 

RIGHT  OF  EACH 

WORD,  "3" 

OENOTFS  UNUSED  FIXED  MEMORY 

ALL  VALID  WORDS  ARE  BASIC 

INSTRUCTIONS  EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 

OR 

"C"  (CONSTANTS) 

6400 

C0CC6  1 

74  74  7 G 

50000  1 

16404  0 

06434  1 

16073 

1 

C6426 

1 

16073  1 

64  10 

06431  1 

160  7 3 1 

06434  1 

164  72  1 

06434  1 

16156 

1 

06434 

1 

16475  0 

6420 

06434  1 

16500  0 

06434  l 

34766  1 

54020  1 

16264 

0 

50120 

1 

40046  1 

64  30 

16433  l 

50 120  1 

40047  0 

26115  0 

40116  0 

64772 

1 

10000 

0 

30120  1 

6440 

16445  3 

35007  0 

56116  1 

54003  0 

74357  0 

26116 

0 

00006 

1 

30155  0 

52001  1 

1 Cl  63  l 

16466  1 

00002  0 

00006 

1 

30160 

0 

50116  1 

6460 

5 200  3 0 

00006  1 

3C162  1 

50116  1 

52  005  0 

00002 

c 

30  156 

0 

50  116  1 

6 1*1 0 

54002  1 

00002  0 

37744  1 

54020  1 

1612C  C 

34735 

1 

54020 

1 

16120  0 

6500 

36121  0 

16157  0 

50116  1 

30002  0 

54156  1 

000P6 

1 

50116 

1 

30001  0 

65  1 0 

52155  1 

3475  3 1 

16072  0 

22007  C 

50116  1 

30000 

1 

16067 

1 

00006  1 

6520 

50116  1 

30001  0 

52155  1 

00006  1 

50116  1 

30003 

1 

52160 

1 

00006  1 

6530 

50  116  1 

300C5  1 

52162  0 

44753  0 

16072  0 

00006 

1 

50  1 1 6 

1 

30001  0 

...... 

6550 

16562  1 

54163  1 

54156  1 

52160  1 

50166  0 

51775 

0 

52162 

0 

50166  0 

6560 

51777  1 

16073  1 

54156  1 

16073  1 

54163  1 

56156 

0 

501  66 

0 

53777  0 

6570 

16073  1 

00006  1 

50  116  1 

30001  0 

52155  1 

50166 

0 

52001 

1 

50163  0 

66  Or 

36256  0 

26166  1 

10163  1 

16622  0 

16523  1 

00006 

1 

50  1 16 

1 

3000  3 1 

6610 

52160  1 

50  166  0 

51  775  0 

00006  1 

50116  1 

30005 

1 

52162 

3 

50  166  0 

66  20 

51777  1 

16073  1 

00006  1 

50  116  1 

30003  1 

52160 

1 

30156 

0 

50166  0 

6630 

53777  0 

16527  0 ' 

24164  1 

50164  1 

30000  1 

50116 

1 

54000 

0 

16073  1 

6640 

24164  1 

50164  1 

30000  l 

50116  1 

60000  1 

54004 

1 

75012 

0 

50000  1 

6650 

32000  0 

54117  1 

30165  0 

74350  1 

64350  0 

60  164 

1 

50120 

1 

54052  1 

6660 

30117  0 

77754  1 

00006  1 

16674  0 

30165  0 

54006 

0 

301  17 

0 

54004  1 

6670 

75012  0 

64741  1 

5 4 1 6 4 0 

16054  1 

30117  0 

66263 

c 

10000 

0 

30117  0 

. 

54  1 1 7 

1 

- 1 

1 

54003  0 

50000  ' 

J U < ' u r 1 

f 7 1 0 

74357  0 

50000  1 

31400  1 

54117  1 

16661  1 

50164 

1 

30001 

0 

50116  1 

6720 

60000  1 

54(04  1 

75012  0 

50000  1 

32000  0 

54117 

1 

16661 

1 

30165  0 

6730 

54004  1 

50  16  4 1 

30001  0 

54117  1 

1 666  1 1 

10  1 54 

0 

00002 

0 

16741  1 

674  C 

16753  1 

10155  1 

00002  0 

16745  0 

16753  1 

10  156 

1 

00002 

0 

16751  0 

6750 

16753  1 

50002  0 

ooooi  0 

50002  0 

00002  0 

30  1 6 5 

0 

54006 

0 

50 164  1 

67  6C 

00001  0 

347  35  1 

1 1 

34355  0 

26116  0 

00006 

L 

50116 

1 

00003  1 

6770 

20160  1 

00006  1 

16774  1 

07026  1 

00006  1 

50  1 16 

1 

00005 

1 

20162  0 

>AP  : 
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OCTAL  LISTING  FOR  PARAGRAPH  H 016,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


. VALID 

WORDS  ARE  BASIC 

INSTRUCT  I C AS 

EXCEPT  THOS  E 

MARKED"!"  (INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

7000 

00006  l 

17003  1 

07023  1 

00006  1 

50116 

1 

00001  0 

17012  1 . 

00006 

1 

701  0 

50116  1 

3000  1 0 

20 1 55  1 

00006  1 

16073 

1 

(.7031  1 

16073  1 

00006 

1 

702C 

50116  l 

A0001  1 

17012  1 

5A001  1 

3A756 

1 

17030  1 

5A001  1 

36257 

1 

7330 

56001  0 

50000  1 

AA73A  1 

5A130  1 

00006 

1 

2A00 0 1 

5000  1 C 

26155 

1 

70  AO 

5A007  1 

3 A 7 5 5 1 

60  130  0 

50001  0 

26 1 5 A 

0 

5A007  1 

00002  0 

1 7 1 6 A 

1 

70  50 

00006  1 

50116  1 

30003  1 

52160  1 

00006. 

1 

A000  1 1 

20160  1 

00006 

1 

70  60 

17062  3 

070  26  1 

00C06  1 

50116  1 

30005 

1 

52162  0 

00006  1 

AOOO  1 

1 

7070 

20162  0 

00306  l 

1707A  l 

07023  1 

00006 

l 

50116  1 

30001  0 

52155 

1 

7100 

00006  1 

A0001  1 

17012  1 

00006  1 

50 1 1 6 

1 

30002  0 

20  156  1 

50  116 

1 

711  0 

60000  1 

60  15  A 1 

5A15A  0 

16073  1 

17015 

0 

50002  0 

30000  1 

2 AO  0 2 

C 

7120 

5 A 116  0 

50116  1 

30001  0 

5 A 156  1 

3A755 

1 

56155  0 

5A135  1 

00006 

1 

7130 

70  156  1 

56156  0 

00006  1 

70 1 5A  0 

20156 

1 

50116  1 

30000  1 

56135 

0 

7 l AO 

00006  1 

70135  1 

20  156  1 

5615A  1 

00006 

1 

70135  1 

20155  1 

00002 

0 

7150 

3 A 7 5 5 1 

5 A 1 6 3 1 

56156  0 

60000  1 

5 AO  0 1 

1 

00002  0 

60155  0 

5 A 1 5 5 

1 

71  60 

03002  3 

60 15A  1 

5 A 1 5A  0 

00002  0 

5 A 1 2 1 

1 

00002  0 

3A752  0 

5A136 

1 

71  70 

00006  1 

22137  1 

07121  1 

52160  1 

52155 

1 

52131  0 

30156  0 

5 A132 

0 

7200 

30  136  0 

26116  0 

07121  1 

52156  1 

20132 

0 

60  1 5A  1 

60  130  0 

5A  130 

1 

72  10 

17212  0 

5 A 1 2 1 1 

52162  0 

52155  1 

30136 

0 

26116  0 

07121  1 

52132 

0 

7220 

20156  1 

6015A  1 

60130  0 

5 A 1 5 A 0 

00137 

1 

07031  1 

00137  1 

00006 

1 

7230 

22 1 A 1 3 

5 A 1 1 7 1 

22  1 AO  1 

1 72AA  0 

50002 

0 

30000  1 

5A1A0  0 

60000 

1 

72  AC 

60002  0 

5 A 1 l 7 1 

6 A 7 5 6 1 

5A1A1  1 

36305 

1 

5A116  0 

00C06  1 

5011  7 

0 

7250 

30  00  A 0 

52155  1 

52123  0 

17257  1 

5A1A0 

0 

A A 75  2 1 

26  117  1 

07121 

1 

7260 

00036  1 

50117  0 

30002  0 

20  155  1 

iClAO 

0 

172  5A  1 

001 A 1 0 

3A755 

1 

7270 

5A156  1 

22  002  0 

06735  0 

17277  0 

17317 

1 

AA733  0 

17300  1 

3A733 

1 

7300 

5A002  1 

00006  1 

2A000  1 

60156  0 

5Al  56 

1 

3 A755  1 

60002  0 

6C155 

0 

7310 

5A155  1 

3A755  1 

60002  0 

6015A  1 

5A15A 

0 

5A155  1 

00001  0 

5 A 1 5 6 

1 

7320 

17  3 1 A 1 

5A135  l 

00006  1 

70156  1 

5A156 

1 

3A755  1 

56155  0 

1 7 1 A 0 

1 

7330 

5A135  1 

00006  1 

70155  1 

52155  1 

00006 

1 

70135  1 

30001  0 

2615A 

0 

73  AO 

00006  l 

301  55  0 

00002  0 

07166  1 

3A755 

1 

16072  0 

3A752  0 

5A1A0 

0 

7 3 50 

17  35 A 0 

A A 36  3 1 

5A1A0  0 

36  25  A 1 

5A136 

1 

0 7 5 A A 0 

07170  0 

0000  6 

1 

73  60 

30123  1 

52155  1 

5213A  0 

00006  1 

30125 

1 

52160  1 

00006  1 

30127 

0 

7370 

52162  0 

301 AO  1 

26116  0 

07170  0 

52123 

0 

52155  1 

52125  0 

52160 

1 

AP  : 


ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  8Y  ZOROASTER 


CTAL  L 1ST  ING  FOR  PARAGRAPH  H 17,  V I TH  PAP  I TY  BIT  IN  31  NARY  AT  THE 


LL  VALID  WORDS  ARE  BASIC  INSTRUCTION  EXCEPT  THOSE  MARKED"!"  (INTER 


7 AGO 
7'-  1C 
7420 
7430 


P\U  l 

52160  1 
07121  1 


52160  1 
52155  1 


10163 
^7  121 
52162 


7440  44751  l 26116  0 
7450  26116  0 00006  1 
7460  26116  0 52160  1 
7470  52155  1 16533  0 


03006  1 
30160  0 
52155  1 
00006  1 


30  155  0 
52155  1 
52160  1 
30162  1 


7520 

7530 


34752  0 26116  0 

07023  1 C 7 12  1 1 


52125  0 
07121  l 
O0C06  1 
62125  0 


07121  1 
- 1 
40 123  0 
52160  1 


754  r 
7650 
7660 
757C 


07026  1 
30160  0 
00002  0 
24001  0 


07121  1 
52125  0 
17573  0 
56301  0 


62127  1 

000C6  1 
00002  0 
00002  0 


17C12  1 
30162  1 
56C01  0 
56001  0 


7600 
76  10 
7620 
7630 


24" C 1 0 
16^73  l 
52155  1 
34755  1 


56001  0 
00006  l 
52131  0 
54004  1 


40000  0 
50  116  1 
34755  1 
12172  0 


00002  0 
30001  0 
54004  1 
36106  C 


7640  17650  1 00006  1 50116  1 30001  0 
7650  00006  l 5 C 11 6 1 30003  1 52160  1 
7660  44753  0 54  16  3 1 00006  l 50116  1 


7670 


10C00  0 16073  1 


17674  1 17702  1 


7700  17702  l 
7710  00006  l 
7720  54156  1 
7730  C:  31300  3 


1-6074  1 00006  1 40155  -1 

40160  1 52160  1 00006  1 

16(73  1 C:  22000  1 C:  23000  0 C 

3110  3 1 r.:  32000  0 C:  3 3000  1 C 


77  4 ( 
7750 
7760 
7770 


C : 
C: 


C : 
C : 


37401  0 
57777  1 
77775  1 
C 7770  0 


C:  37766  1 
C:  65552  C 
C:  77776  1 
C : 07771  1 


C:  37774  1 
C : 70000  0 
74740  1 
C KSP  57614  0 


C:  37776  0 C 

C : 73777  1 C 

10000  0 
3 
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IGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ETIVE  OPERATOR  WHROSI  OR  "C  " (CONSTANTS) 


07170 

0 

52134 

0 

52155 

1 

52162 

0 

17442 

0 

1 7442 

0 

L 7 1 2 1 

1 

J7152 

0 

07152 

0 

52162 

0 

52155 

1 

52162 

0 

52160 

1 

52  155 

1 

16073 

1 

07  166 

1 

52160 

1 

07121 

1 

07  15  2 

0 

34752 

0 

52162 

o 

07  12  1 

1 

07152 

o 

34752 

o 

07121 

1 

07152 

0 

52155 

1 

52162 

3 

52155 

1 

52123 

0 

07121 

1 

00006 

1 

34752 

0 

26116 

0 

00C0  6 

1 

40162 

0 

30123 

1 

52155 

1 

52127 

1 

37  12  1 

1 

52155 

x 

20  162 

o 

1 

17531 

52155 

1 

20  160 

1 

00006 

1 

1754  1 

1 

00006 

. 

30155 

_ 

52123 

0 

00006 

1 

s ? 1 2 7 

1 

00002 

0 

IOC  00 

0 

17563 

1 

64  7 36 

1 

64736 

1 

54000 

3 

1757  1 

1 

64735 

I 

67761 

o 

54000 

o 

1 7601 

o 

C7121 

1 

1S073 

1 

07121 

1 

07151 

0 

1 7621 

1 

00006 

1 

50116 

1 

30001 

6 

12353 

1 

30  116 

1 

54166 

I 

16075 

l 

54004 

1 

12214 

0 

10163 

1 

17650 

l 

52131 

0 

34755 

1 

540G4 

1 

12654 

0 

00006 

1 

50  11  6 

1 

3000  5 

1 

52162 

0 

30001 

0 

52155 

1 

17644 

l 

50  116 

1 

50  116 

1 

10001 

1 

16073 

1 

16073 

1 

521  55 

1 

10  163 

1 

177  17 

o 

17717 

o 

4 C 1 62 

o 

52162 

0 

16073 

1 

40156 

1 

24000 

1 

C: 

25000 

0 

C: 

26000 

0 

C:  27000 

1 

: 34000 

c 

C : 

35000 

1 

C: 

36000 

1 

C:  37000 

0 

40014 

0 

C: 

40015 

1 

C : 

40040 

1 

C : 40200 

1 

7400C 

JL 

C: 

74056 

1 

C: 

77700 

0 

C:  77774 

c 

15434 

0 

1541  3 

0 

00006 

1 

07766 

1 

a 

a 

a 

a 
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TOTAL  LISTING  FOR  PARAGRAPH  « 020,  WITH  PARITY  BIT 

I N B I NARY  AT 

THE  RIGHT  OF  EACH 

WORD,  "< 

i)" 

DENOTES  UNUSED  FIXED  MEMORY 

ALL  VALID 

WORDS  ARE  BASIC 

INST  RU  CT  IC  NS 

EXCEPT  THOS  E 

MARKED"!"  (INTERPRETIVE  OPERATOR  WORDS) 

OR  »C»  (CONSTANTS) 

, 

132C7 

0 

13530  0 

13517  0 

13610  1 

13612  0 

13174 

1 

12116 

1 

17702  1 

00,2010 

13232 

3 

1 3p  23  1 

13176  0 

13245  0 

16366  0 

13274 

1 

13247 

1 

36254  1 

00, 2020 

7002  0 

1 

54021  0 

10020  1 

12101  1 

C:  00C24  1 

50021 

1 

34736 

1 

54135  1 

, 

100  20 

1 

C 2050  0 

16072  0 

30135  0 

00006  1 

70  156 

1 

54  156 

1 

30135  0 

, 

00006 

1 

70154  0 

52155  1 

30135  0 

00006  1 

70001 

1 

20156 

1 

16073  1 

. 

30156 

0 

00006  1 

70135  1 

56155  0 

00006  1 

70  135 

1 

56155 

0 

60001  0 

33  ,2360 

60000 

1 

54156  1 

12c 64  0 

26155  1 

34755  1 

54156 

1 

561  54 

1 

30006  1 

0 , U 7 c 

70135 

1 

20155  1 

00002  0 

30135  0 

00006  1 

70155 

1 

54155 

1 

56001  0 

or, 2100 

120  60 

1 

30021  1 

54135  1 

00006  1 

30156  0 

20  156 

1 

60  154 

1 

60154  1 

0 U ,211c 

54154 

0 

12113  1 

54121  1 

10  135  1 

12102  1 

10020 

1 

07150 

1 

16073  1 

00,2120 

16C73 

1 

34757  0 

70020  1 

54135  1 

10020  1 

12145 

1 

C : 00176 

1 

50135  0 

, 

34736 

l 

54135  1 

02073  1 

52155  1 

52 1 6C  1 

52155 

1 

02073 

1 

52155  1 

• ,2140 

521  62 

o 

52155  1 

02073  1 

17432  1 

54135  1 

00006 

30155 

n 

20155  1 

. ' 1 ! 

00006 

1 

12153  0 

07031  1 

00006  1 

30160  0 

20  160 

1 

00006 

1 

12161  1 

00,2160 

07026 

1 

00006  1 

30  162  1 

20162  0 

00006  1 

12167 

1 

07023 

1 

10135  1 

, 

12144 

0 

16073  1 

54135  1 

06735  0 

12176  1 

12212 

0 

07271 

1 

30154  1 

1?  ,2200 

12207 

1 

24135  0 

00006  1 

30  1 56  0 

2 01  56  1 

60154 

1 

26  154 

0 

60000  1 

. 

54000 

0 

12231  1 

40  135  1 

16635  0 

70116  0 

10000 

0 

12224 

0 

34742  1 

On, 2220 

70116 

0 

10000  0 

07150  1 

16073  1 

54135  1 

34744 

1 

00006 

1 

70116  0 

) ? , 22  30 

76257 

0 

50000  1 

12233  0 

12332  0 

12342  1 

12336 

1 

10163 

1 

12277  0 

. 

12277 

0 

30135  0 

63733  0 

00006  1 

62127  1 

67761 

0 

54135 

1 

34755  1 

- i 2 2 5C 

54^0  1 

1 

56154  1 

56155  0 

02272  1 

20155  1 

55  157 

1 

56  160 

0 

0227 2 1 

00*22  60 

20163 

1 

56161  1 

56162  1 

'2272  1 

20162  0 

10135 

1 

54135 

1 

12242  0 

0 3 , 27  70 

C : C46C4 

1 

16073  1 

60000  1 

54156  1 

34755  1 

56001 

0 

00002 

0 

30135  0 

. 

63733 

0 

000C6  1 

62322  0 

67761  C 

54135  1 - 

34755 

1 

56154 

1 

56155  0 

00, 23  1C 

54156 

1 

10135  l 

54135  1 

0 2 3C0  0 

C:  22650  1 

34  74  2 

1 

7011  6 

n 

10000  0 

, 23  2( 

07150 

1 

16C73  1 

50135  0 

34736  1 

54135  1 

34742 

1 

70116 

0 

10000  0 

uo,  2330 

12031 

3 

12o  33  1 

40135  1 

62126  0 

54135  1 

12236 

0 

42126 

i 

60135  0 

, » 4 

40000 

0 

54135  1 

10163  1 

12346  0 

12346  0 

12145 

1 

40116 

0 

00006  1 

. 

74746 

1 

54020  1 

12  1 03  0 

44753  C 

54136  1 

54137 

0 

54140 

0 

10130  1 

00 » 23  6r 

12516 

0 

12363  1 

12531  0 

54156  1 

C7271  1 

101  54 

0 

12414 

0 

12371  1 

• 

12413 

1 

56131  1 

56130  0 

56155  0 

56154  1 

10  130 

1 

12422 

0 

12401  1 

,AP:  ASSEFPLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  RY  ZOROASTER 


OCTAL  LISTING 

FOR  PARAGRAPH  H 02l,  WITH  PARITY  RI T 

IN  B I NA  R Y AT 

ALL  VALID  WORDS  ARE  EASIC 

INSTRUCT  IQNS 

9C169  0 
59121  1 
29136  0 
12933  0 

EXCEPT  THOS  E 

00006  1 
06073  0 
10159  0 
16073  1 

MARK  ED  » I" 

( 1 

0 0 ,29  1c 

00,2920 
) 3 ,2930 

39753  1 
52131  0 

1607  3 1 

29l36 

12937 

00006 

0 

1 

1 

Of  ,2990 

67761  0 

60130  0 

10000  0 

12  505 

1 

30,  295i 

60156  0 

59155  l 

39755  1 

69733 

1 

3 ■ »296< 

59131  3 

39755  1 

69733  1 

2613( 

1 

O'  , 2970  C: 

: 00133  0 

12905  0 

59190  0 

90  155 

1 

) 3 , 2500 

W } 

29137  1 

00006  1 

30131 

1 

OC  ,251c 

52155  1 

50  137  1 

02565 

0 

3 C t 2520 

90131  0 

00006  1 

62922  1 

39736 

1 

■ . ' 

12363  1 

10000  0 

12916  1 

30131 

1 

r , ->  c n 

nnrtf  t , 

30, 2550 

20001  1 

20001  1 

20001  1 

20001 

1 

. 

23901  1 

2000  1 1 

20001  1 

20001 

1 

‘ 7 1 

52155  1 

00C06  1 

10130  1 

52  155 

1 

33 ,2600 

59000  0 

12606  l 

00006  1 

6C130 

0 

00  , ?6  1 0 

00006  1 

60130  0 

00006  l 

12616 

0 

30,  2620 

000C6  1 

12630  1 

00006  1 

26159 

0 

33  ,2630 

59155  1 

10  136  1 

00002  0 

00002 

0 

00,2690 

39755  1 

03002  D 

90159  0 

60133 

0 

30, 2650 

59159  0 

90131  0 

601  55  0 

12629 

1 

OC  ,2660 

52131  3 

07556  0 

52131  0 

1(  ] 3( 

1 

00, 2670 

56130  0 

56155  0 

56159  1 

30006 

1 

n 

1 

00,271(1 

10130  1 

12721  0 

12905  0 

12715 

1 

30,  2720 

29127  0 

00006  1 

30131  1 

52139 

0 

00,2730 

30131  1 

20  13  1 0 

30130  0 

6000G 

1 

00, 2790 

52 155  l 

52160  1 

02750  1 

52  162 

0 

33,2750 

30 127  0 

59136  1 

10159  0 

12767 

1 

0 0 ,2760 

00002  3 

12763  0 

30002  0 

00006 

1 

00, 2770 

59190  0 

901  59  0 

60133  0 

10000 

0 
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IGHT  OF  EACH  WORD,  "3"  OENOT  ES  UNUSED  FIXED  MEMORY 


RETIVE  OPERA  TOR  WORDS)  OR 


29136  0 
90131  0 
12926  1 
90155  1 


39733  1 
12902  1 
12933  C 
52155  1 


" (CONSTANTS) 

59 159  0 
00006  1 
10155  1 
29136  0 


02630  0 
90131  0 
12937  1 
90159  0 


60C01  0 
26159  0 
90159  0 
60  131  1 


12996  1 
39736  1 
63 1 3D  3 
00006  1 


39736  1 
6000C  1 
10000  3 
62905  1 


60000  1 

60131  1 
12535  1 
12505  1 


20131  o 
5915c  1 
60000  1 
00006  1 


33130  0 
16073  1 
26131  0 
62916  ~ 


60000  1 
10000  0 
39755  1 
99736  0 


59000  0 
12922  0 
5913C  1 
12529  1 


60021  1 
20001  1 
52155  1 
90159  0 


56001  0 12571  1 
2000  1 1 20001  1 
10190  0 C:  06552  0 
00006  1 70131  0 


20001  1 
20001  1 
12692  1 
60155  0 


29159  1 
00006  1 

60133  3 
00002  0 


12610  3 
62629  0 
2200  7 0 
03006  1 


00006  1 
29159  1 
00006  1 
90155  1 


62620  1 
12625  0 
10130  1 
52155  1 


00006  1 
99753  0 
12721  0 
12676  0 

56161  1 
12905  0 
12732  1 
59000  0 


12697  1 
59137  0 
12667  0 
12905  0 

03006  1 
00006  1 
03006  1 
12  725  1 


12570  0 
59127  1 
12715  1 
56160  0 

127  10  1 
90131  0 
29137  1 
02750  1 


39733  1 
0 30 1 0 0 
56131  1 
56157  1 

12905  0 
52131  0 
00006  1 
52160  1 


52155  1 52162  0 02750  1 
12756  0 12763  0 10  155  1 
90155  1 52155  1 29136  0 
13039  1 12777  0 12905  0 


17932  1 
12767  1 
99753  0 
59190  0 


SAP  : ASSEMBLE  REVISION  56  OF  ACC  PRCGPAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21*  197C 


PAGE  1591 


1 CT  A l LISTING 

FOR  PARAGRAPH  tf  022,  WITH  PARITY  BIT 

I N 81  NARY  AT 

THE  RIGHT  OF  EACH 

WORD,  "3" 

DENOTES  UNUSED 

FIXED  MEMORY 

ALL  VALID  WORDS  ARE  BASIC 

INSTRUCT  IGNS 

EXCEPT  THOSE 

MARK  ED  » I"  ( 

INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

00*  300C 

AO  1 55  1 

60134  1 

00006  1 

62405  1 

52155  1 

50  137 

1 

12565 

1 

C : 

32506  0 

00*301 0 

56002  3 

52155  1 

07556  C 

52 1 55  1 

52160  1 

C 7 5 5 6 

0 

52160 

1 

52162  0 

00,  3020 

07556  0 

52162  0 

00000  1 

030  ID  0 

07544  C 

34755 

1 

56121 

0 

54141  1 

00*3030 

03317  1 

30141  0 

56121  0 

00006  1 

13036  0 

12405 

0 

00006 

1 

30155  0 

00  ,3040 

50120  1 

52043  1 

03343  0 

10154  0 

13051  1 

54001 

1 

50120 

1 

52045  I 

00,  30  50 

12405  0 

44317  1 

60135  0 

10000  0 

40000  0 

13133 

1 

13065 

0 

44761  1 

30,3060 

54135  1 

30  154  1 

54001  1 

34755  1 

13112  1 

13135 

1 

13C74 

0 

42024  1 

00, 307C 

54135  1 

00006  1 

3->155  0 

13112  1 

40000  0 

54135 

1 

40000 

0 

50000  1 

30,  3100 

34736  1 

54130  1 

00006  1 

70155  1 

56130  0 

00006 

1 

70  154 

0 

56001  0 

00,311C 

60130  5 

5600  1 0 

50120  l 

52045  1 

44753  0 

54140 

0 

52123 

0 

52  155  1 

00,  3120 

52131  0 

03151  1 

52125  0 

52155  1 

52160  1 

03151 

l 

52127 

1 

52155  1 

3 3,3130 

52162  0 

03151  1 

17432  1 

54135  1 

34755  1 

55  123 

1 

56122 

0 

56125  1 

,31 A 

50000  1 

C0006 

70154  0 

• 

13062  1 

10154  0 

13170  0 

13155  1 

13162  0 

10  155 

1 

13170 

0 

00002  0 

00,3160 

13162  D 

0000  2 0 

44755  0 

54136  1 

00006  1 

40155 

1 

50135 

3 

12564  0 

00,  3170 

54136  l 

52155  1 

50135  0 

12564  0 

U 3300  1 

16073 

1 

10163 

1 

13226  0 

3 3 ,3200 

13226  0 

03317  1 

221  63  0 

00006  1 

30155  0 

53120 

1 

52043 

1 

03343  0 

00,321c 

10135  1 

13213  0 

16073  1 

63733  0 

00006  1 

63221 

0 

22007 

0 

22116  1 

00, 3220 

12303  1 

50135  0 

34735  1 

54135  1 

34755  1 

12036 

1 

06735 

0 

16073  l 

50,3230 

16073  1 

1770  2 1 

44751  1 

261 66  1 

00006  1 

53000 

1 

30003 

1 

52160  1 

00, 3 24r 

C0006  1 

50166  0 

30001  0 

52162  0 

16533  C 

C 3 3 1 7 

1 

17344 

1 

00006  1 

, 

30  1 5 0 

50166  0 

52001  1 

50163  0 

36256  0 

26166 

1 

1 0 1 6 3 

1 

13272  1 

00  ,3260 

16073  1 

00006  1 

30160  0 

50166  0 

51775  0 

00006 

1 

30162 

1 

50166  0 

00, 3270 

51777  1 

16073  1 

30156  0 

16566  0 

50  120  1 

30052 

0 

541  17 

1 

16664  1 

00,3300 

30  155  0 

00006  1 

70000  0 

54156  1 

34755  1 

5 S 1 5 5 

0 

0,0006 

1 

70154  0 

Or  , 331C 

20001  l 

2C156  1 

56154  1 

00006  1 

70000  0 

20155 

1 

00002 

0 

00006  1 

00, 3320 

22137  1 

03300  1 

52160  1 

52155  1 

52131  0 

30  156 

0 

54132 

0 

03300  1 

00,3330 

52156  1 

20  13  2 0 

60  154  1 

60130  0 

54130  l 

13337 

1 

54121 

1 

52162  0 

00, 3340 

52155  1 

03300  1 

17217  0 

34755  1 

54135  1 

10154 

0 

13405 

1 

13351  1 

• 

13  373  1 

56156  0 

56155  0 

54  1 S 4 0 

34757  0 

5413? 

1 

10154 

0 

13405  1 

00 ,3360 

13362  1 

13376  1 

56155  0 

54154  0 

34757  C 

26135 

1 

10154 

0 

13405  1 

Of',  3370 

00002  0 

13376  1 

13453  1 

10000  0 

13402  0 

13  155 

1 

34755 

1 

13453  1 

p A P : 
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ALL  VALID  WORDS  ARE  PASIC  INSTRUCTIONS  EXCEPT  T HOS  E M ARK  ED  " I " (INTERPRETIVE  OPERATOR  WORDS)  OR  »C « (CONSTANTS) 


J -,  ^600 

r 0,3^10 

Of,  342 r 

33,363 r 


00006  1 


D0006  1 


70156  o 
76  7 36  0 


52165  1 
OOOC6  1 
62 5f>6  O 
26130  1 


05  72  7 0 
76736  0 
56133  l 

00006  1 


52155  1 
30 154  1 
76736  0 


62666  1 
56021  1 
22007  0 
52155  1 


00006  1 
26155  ) 
00006  1 
00006  1 


63656  0 
32316  0 
10130  1 
10  130  1 


or  ,166. 

3 C , 36  50 
) 3 ,3660 
. 


56131  3 
D00C6  1 
63502  0 
33007  0 


36765  1 
13655  1 
52  156  1 
00006  1 


56001  0 
36733  1 
22021  1 
70 156  0 


00006  l 
56156  0 
00C06  1 
62270  0 


1C130  1 
56155  1 
767-16  0 
13623  0 


56001  1 
030Q2  0 
52155  1 
00006  1 


30131  1 
66737  C 
56021  1 
30156  C 


20155  1 
00006  1 
26  15  5 1 

20156  1 


3 * , 3600 
00 ,35  10 
00, 3520 
I j ,3530 


60  156  1 
63000  1 
13523  l 
52156  1 


26156  0 
56022  0 
13526  1 
20001  1 


26135  0 
1002?  0 
13526  l 
66000  0 


00006  1 
10022  0 
00006  1 
1 1536  C 


30156  0 
13675  0 
60155  1 
00006  1 


20156  1 
13617  1 
52  155  1 
60001  1 


60156  1 
13670  3 
36737  0 
52155  1 


26156  C 
06735  0 
26156  0 
30  156  1 


00,3560 
00, 3550 

» 

■3  b,  35  70 


60000  1 
56156  0 

56001  1 
60155  l 

13553  0 
56155  1 

50000  1 

00006  1 

36735  1 
30155  0 

60000  1 
52136  0 

00006  1 
03300  1 

60166  1 
07236  0 

00003  1 

C:  1666  1 0 

C:  37325  1 

C:  53250  C 

C : 60766  1 

C:  12166  1 

C:  21276  1 

C:  75666  1 

7167  1 0 

C:  00236  0 

C:  32757  0 

32673  0 

07120  0 

00006  1 

30156  0 

20156  1 

60  156  1 
33631  i 
60155  1 
13721  1 


26156  0 
13613  1 
52155  1 
13707  0 


00006  1 
33713  1 
33736  1 
13662  0 


lO  1 56  0 
56136  1 
56136  0 
10155  1 


20156  1 
06735  0 
56137  0 
36755  1 


60156  1 
13625  1 
66736  0 
13637  1 


26156  0 
137  31  0 
60156  1 
13662  0 


16073  1 
00006  1 
10000  0 
56155  1 


00,3660  56156  0 

00,3650  10  135  1 

: 

00, 3670  C : 26756  1 


00136  0 00006  1 

13716  1 52155  1 

C:  76721  0 C:  67775  1 

C:  76037  0 C:  57660  1 


60  155  1 66736  1 

5213'*  0 52155  1 

C:  02660  0 C:  2C237  C 

C:  03066  0 C:  07163  0 


52155  1 52136  0 

07236  0 C:  00006  1 

r : 75067  1 C : 70762  l 

C:  76656  1 C : 62266  0 


03363  0 
13260  0 
03636  0 
32670  0 


00,3700  07120  0 0C136  0 
00,3710  60155  1 66737  0 
00,  3720  13652  1 00006  1 
00,3730  13637  1 36737  0 


00006  1 60155  1 66736  1 
52155  l 16073  1 5COOO  1 
13637  1 00005  1 30165  0 
13660  1 C:  77763  0 13702  0 


52155  1 00137  1 00006  1 
36736  1 56135  1 02073  l 
05733  0 C:  01301  1 36755  1 
35000  1 00006  0 56002  1 


. 

. U 

30, 3770 


36752  0 56070  l 
52136  0 05717  0 
33776  0 15222  1 
57323  1 05137  1 


50000  1 31323  1 
31106  0 33773  1 
06665  1 50070  0 
05272  0 C:  03763  0 


00006  1 
56061  1 
55323  0 
03766  0 


13753  1 10070  1 
33006  0 60070  0 
05133  0 36755  1 
03775  1 C:  03776  1 


13761 
560C  1 
500C6 
< SM  71552 


1 

1 


C 


>AP  : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:  12  OCT.  21,  1970 


PAGE  1593 


OCTAL  LISTING  FOR  PARAGRAPH  tf  024,  UTH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "3"  OENOTFS  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  eASIC  INSTRUCTIONS  EXCEPT  T HOS  E M ARK  ED  " I"  (INTERPRETIVE  OP  FRA  TOR  WORDS)  OR  "C 11  (CONSTANTS) 


mm 

01,  2020 

1 l,  20  30 

C: 

C : 
C: 

76466 

00062 

04060 

03550 

l 

0 

0 

1 

G : 

C : 
C : 

76731 
000  7 2 
00144 
76C67 

0 

1 

0 

1 

C: 
C : 

00010 

00145 

05272 

02627 

0 

1 

0 

0 

C: 
C : 

00020 

00163 

34060 

75175 

0 

0 

0 

0 

C: 

C: 

00010 
000  1C 
76300 
26063 

0 

0 

0 

0 

C: 
0 : 

00026 
001  74 
75427 
0 50  00 

0 

0 

1 

1 

C: 
C : 
C: 

00010 
2 1 or  c 
C371C 
0 26  1 1 

0 

1 

1 

0 

C: 
C : 
C: 

00056 

05155 

3 2000 
26063 

1 

0 

0 

0 

ol  ,2040 

C: 

0 2 734 

3 

C: 

75455 

1 

C: 

277  10 

1 

C: 

14000 

1 

C: 

02476 

0 

C : 

50067 

0 

C : 

10000 

0 

C: 

02225 

0 

0 1,  20  50 

C: 

54367 

1 

C : 

26000 

0 

C : 

02736 

1 

C: 

50067 

0 

C: 

77777 

0 

C: 

75436 

1 

C: 

03710 

1 

C : 

00031 

0 

31  ,2360 

C: 

75722 

1 

C: 

357  10 

1 

C: 

76355 

0 

C : 

74102 

1 

C : 

05710 

1 

C : 

20000 

0 

C: 

02535 

0 

C: 

56067 

0 

Ml,  2070 

C: 

04704 

0 

C : 

75423 

0 

C: 

0 37  10 

1 

C: 

77777 

0 

C: 

75433 

1 

C: 

03710 

1 

C : 

25000 

0 

C : 

03527 

1 

3 1,2100 

C: 

64067 

1 

C: 

00C62 

0 

C : 

75216 

0 

C : 

03710 

1 

C: 

00764 

1 

C: 

75370 

1 

C: 

03710 

1 

C: 

76262 

0 

'.1  , 2 1 1 G 

C: 

74235 

0 

C: 

0-37  10 

1 

C: 

12000 

1 

C : 

03222 

0 

C : 

74067 

0 

C : 

00764 

1 

C : 

75477 

1 

C: 

03710 

1 

01,  2120 

C : 

77777 

0 

C : 

7542  3 

0 

C : 

03710 

1 

C: 

13000 

0 

C: 

0 30  1 2 

1 

C: 

30065 

1 

C : 

77777 

0 

C : 

75344 

0 

) 1,2130 

C: 

037  10 

1 

C: 

01477 

1 

C : 

75535 

0 

C : 

74067 

0 

C: 

52777 

1 

C: 

02007 

1 

C: 

42067 

0 

C: 

52777 

1 

01,2140 

C : 

02  012 

0 

C : 

42067 

0 

C: 

46777 

1 

C: 

02024 

0 

C: 

10067 

1 

C : 

46777 

1 

C : 

05666 

1 

C: 

04067 

1 

? 1,  2150 

C: 

52777 

1 

C : 

n 2*70 

1 

C : 

74067 

0 

C: 

22000 

1 

C: 

02037 

1 

C: 

66067 

0 

C: 

00310 

0 

C : 

72505 

1 

01  ,2160 

C: 

73710 

0 

C: 

00  310 

0 

C: 

72505 

1 

C : 

73710 

0 

C : 

20000 

0 

C : 

02203 

1 

C: 

66067 

0 

C: 

00310 

0 

01,2170 

C : 

72  5 05 

1 

C : 

73  710 

0 

C: 

77777 

0 

C: 

72505 

1 

X: 

73710 

0 

- C: 

77777 

0 

C : 

74105 

0 

C : 

07710 

0 

) 1 ,2200 

C: 

00  144 

0 

C: 

75061 

1 

C : 

03710 

1 

C : 

30000 

1 

C: 

03605 

1 

r. : 

10063 

0 

C: 

170G0 

1 

C: 

03355 

1 

3 1 , 2 2 1 0 

C: 

743  67 

0 

C: 

17000 

1 

C: 

0 3364 

0 

C: 

74067 

o 

3501  c 

o 

54003 

o 

34745 

o 

701 1 1 

1 

3 1,  2220 

10000 

0 

32343 

1 

62344 

0 

55444 

0 

32346 

1 

55476 

1 

34737 

0 

70111 

1 

3 1,2230 

00006 

1 

12240 

1 

31444 

1 

00006 

1 

72345 

0 

55444 

0 

32347 

0 

55476 

1 

l,  2240 

00003 

l 

32341 

0 

04616 

1 

C: 

20353 

0 

12252 

1 

12256 

0 

12241 

0 

34751 

0 

1 1 , 2 2 50 

05475 

1 

15  155 

1 

00004 

0 

04674 

0 

C: 

40115 

0 

1550-3 

0 

40  106 

1 

74737 

1 

Ol  ,2260 

10300 

0 

32000 

0 

62001 

1 

61326 

1 

C0006 

1 

62241 

1 

30111 

0 

74737 

1 

0 1,  2270 

C0006 

l 

12277 

0 

44741 

0 

61327 

0 

00006 

1 

6224  1 

1 

31327 

0 

61326 

1 

) 1,2300 

22007 

0 

53246 

1 

00004 

0 

046  74 

0 

C: 

40115 

0 

00003 

1 

40  106 

1 

74737 

1 

0 1,2310 

00006 

l 

1550  1 

0 

32342 

0 

n 46  16 

1 

C: 

20353 

0 

05503 

1 

12323 

0 

12312 

1 

0 1,  23  20 

34  751 

0 

054  7 5 

1 

15155 

1 

34753 

1 

05214 

0 

C: 

03216 

1 

C: 

56066 

1 

1 5 1 55 

1 

1 ,2330 

32342 

0 

046  16 

1 

C: 

20361 

1 

05503 

1 

05  50  3 

1 

05503 

1 

36007 

3 

05475 

1 

1, 2340 

15155 

l 

C: 

01457 

0 

C: 

01460 

1 

C: 

25101 

0 

C: 

0 5220 

1 

C: 

03146 

1 

C : 

77445 

1 

C : 

77622 

1 

'1,2350 

0 2445 

0 

30117 

0 

50130 

0 

5 4046 

1 

16073 

1 

02445 

0 

40  1 17 

1 

02352 

1 

Ol  ,2  3 60 

i'2433 

1 

50117 

0 

30000 

1 

12352 

0 

C2433 

1 

5011  7 

0 

40000 

0 

12352 

0 

3 1,  2370 

32  4 33 

l 

50130 

0 

30046 

0 

50117 

0 

54000 

0 

16073 

1 

02433 

1 

50117 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  H 025,  WITH  PARITY  BIT  IN  BINARY  AT  THE 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  T HOS  E M ARK  ED  " I"  (INTER 


: it  2^00 
-1  f24lC 
> It  2420 
11,2430 


30000 

26~46 


50130  0 56C46  0 12373  0 

16C  7 ’ 1 02445  0 3o1 17  0 


12407  l 
50  130  0 


02445  0 
56C46  0 


50130  0 
16660  0 


40053  0 
40117  1 


1 , 2 A 40 
3 1,  24  5' 
1 1 ,2460 


35007 
24  130 
1 6f>6  0 
12454 


0 

0 

0 

1 


56117  0 54003  n 74357  0 
00002  0 00002  0 10C23  1 
1607 3 1 16660  0 10121  1 
00360  1 16660  0 10020  1 


nl  ,2s  1 r 
0 1,  2520 
) 1,2530 


31,2540 
) 1,  2550 
3 1 ,2560 
It 257C 


100  20  1 
16660  3 
30052  0 
00006  1 


00006  1 
12557  3 
54'"  74  3 
40002  1 


125C7  0 
16660  0 
12373  0 
70117  1 


701 17  1 
30131  1 

00003  1 
70131  0 


16073  l 
34762  0 
54130  1 


72602  0 
00006  1 
34737  0 
10000  0 


06735  0 
10020  1 
70117  1 
00004  0 


50000  1 
0600?  0 
00006  1 
12633  1 


3 l,  2603 

3 1 ,2610 

0 1.  2620 
1 1,2630 


3000  2 0 
1 3 a 5 4 : 

22061  0 
26063  0 


12  57  L 1 
12624  1 

300C2  0 
347  5 5 1 


c:  00014  1 24164  1 

13530  0 12624  1 

05717  0 C:  31231  0 
54064  1 32640  1 


1 1, 2640 
, L,  2650 
-1  ,266' 
J 1,2670 


C:  00007  0 12700  0 

10064  1 12665  1 

05706  3 54067  1 

50C67  0 40167  0 


30063  1 
54121  1 
52066  0 
60063  1 


50064  0 
30166  0 
52165  1 

30006  1 


3 1,2730 
0 1,2710 
3 1,  27  20 
n 1 ,2730 


33037  0 26064  1 10062  1 
22164  1 30165  0 00CC4  0 
52165  1 30165  0 00006  1 
52157  3 50067  0 52157  0 


12634  0 
00006  1 
01  007  1 
52157  0 


1.  274C 
3 1, 2750 
01  ,2760 
3 1,  27  70 


52  163  1 
40  166  1 
54120  3 
54067  1 


52163  1 
52167  0 
34755  1 
52165  1 


52163  1 
50067  0 
1277C  1 
00006  1 


9:  12 

OCT.  21, 

1970 

PAGE  1594 

RIGHT  OF  EACH 

WORO,  "S 

)"  DENOTES  UNUSE  0 

FIXED  MEMORY 

PRETIVE 

OPERATOR  WOROS)  OR 

"C"  (CONSTANTS) 

02433 

L 

50  117 

0 

30000  1 

50130  0 

1240  7 

l 

02433 

1 

50117  3 

43033  0 

50130 

0 

60046 

0 

00006  1 

66073  0 

64772 

i 

13003 

0 

30  1 20  1 

12444  0 

26117 

l 

30120 

1 

54130  1 

10020  1 

30117 

o 

04621 

o 

10154  0 

16073  1 

1 2466 

0 

16073 

1 

54121  1 

10020  1 

06735 

0 

16073 

1 

16660  0 

16073  1 

16373 

1 

16073 

1 

16660  0 

06735  0 

16652 

1 

05706 

0 

02433  1 

50  120  1 

50000 

1 

34735 

1 

54131  0 

34745  0 

50000 

1 

3 3 0 7 4 

1 

5400  2 1 

14  74  1 1 

rt 

00006  1 

04002  1 

12557 

0 

43  131 

0 

700C2  1 

50130  0 

70117 

1 

72602 

0 

50000  1 

12570  0 

16727 

1 

12603 

1 

05706  0 

05706  0 

16373 

1 

54061 

1 

104C0  1 

12624  1 

1C604 

1 

12624 

1 

10660  0 

12624  1 

64752 

0 

22007 

0 

5000C  1 

21777  0 

54062 

1 

53064 

0 

10  167  0 

12700  0 

54167 

0 

75004 

1 

50064  0 

54166  1 

54123 

0 

13067 

1 

12665  1 

05706  C 

15160 

1 

52  066 

0 

50064  0 

52165  1 

65160 

0 

30064 

0 

54067  1 

15160  1 

22061 

? 

1 

C:  3120  2 0 

04007 

1 

56001 

0 

50067  0 

52165  1 

52155 

1 

50067 

0 

52155  1 

52155  1 

52161 

0 

533  6 7 

0 

52161  0 

52161  0 

34755 

1 

56121 

0 

00006  1 

12752  1 

52167 

c 

52167 

0 

3500  4 0 

70167  0 

40166 

1 

54166 

1 

34753  1 

56121  0 

62776 

0 

52006 

0 

40000  0 

64753  1 

SAP:  ASSEMBLE  REVISION  56  OF  AGC  PRCGRAM  ZERLINA  BY  ZOROASTER 


OCTAL  LISTING  FOR  PARAGRAPH  « 026,  WITH  PARITY  BIT  IN  BINARY  AT  THE 


ALL  VALID  WORDS  ARE  1 

3ASIC 

INSTRUCT  IONS 

EXCEPT  THOSE 

M ARK  ED  "I" 

( IN  TER  1 

0 1,  3000 

54164 

0 

16062 

1 

00004 

0 

40167 

0 

Pi  » 3 0 1 C 

04007 

1 

54165 

1 

44755 

0 

54131 

0 

1, 3020 

00003 

1 

13220 

0 

34752 

0 

30006 

1 

■ 1,30  30 

34755 

1 

54064 

1 

32640 

1 

54062 

1 

01  ,3040 

13050 

0 

33037 

0 

260  64 

1 

10062 

1 

■ 1,  30  50 

40065 

3 

50064 

0 

60164 

1 

00006 

1 

3 l ,30  60 

5406? 

0 

5006  4 

0 

54167 

0 

44350 

1 

01, 3070 

50064 

0 

60165 

0 

54066 

0 

10064 

1 

n«3ipo 

54  130 

1 

35004 

0 

70167 

0 

60063 

1 

D 1 ,31  IQ 

44755 

0 

54131 

0 

56167 

1 

75004 

l 

0 1,  3120 

63124 

0 

10001 

l 

50000 

1 

54000 

0 

1 1 ,3130 

IP  217 

1 

03175 

1 

05706 

0 

13134 

0 

1,3140 

10247 

l 

03175 

0 5706 

13144 

. 

0 1,  3150 

1^277 

1 

03175 

1 

0 5 70  6 

0 

13154 

0 

)1  ,3160 

10131 

0 

05706 

0 

05706 

0 

13165 

1 

1,  31 70 

50000 

1 

27777 

0 

63136 

0 

54067 

l 

H»3?00 

40  132 

0 

13204 

0 

13203 

1 

16753 

1 

1 ,321o 

44755 

0 

54067 

1 

00003 

1 

44752 

1 

5 1,  3220 

34752 

0 

13230 

1 

25356 

0 

3 1361 

1 

) 1,32  30 

00006 

1 

0501  1 

1 

52165 

1 

15176 

0 

0 1,  3240 

40026 

l 

64744 

1 

10000 

0 

66121 

0 

7 1,  3250 

6 1400 

1 

13313 

1 

1 3253 

1 

40002 

1 

01  ,3260 

60002 

0 

00006 

1 

22007 

0 

57400 

1 

01,  3270 

57405 

1 

57406 

1 

57407 

0 

30063 

1 

) 1 ,3300 

53415 

1 

5 ? 4 1 7 

0 

5342  1 

0 

53423 

1 

01,3310 

00006 

1 

15226 

0 

13366 

0 

10000 

0 

3 1,  3320  C: 

00001 

0 

10000 

0 

61402 

0 

13327 

0 

1 ,1330 

6 1 40  3 

1 

133  35 

0 

64753 

1 

03377 

i 

c 

01, 3340 

64753 

1 

03377 

1 

C: 

00004 

0 

10000 

0 

) 1,33  50  C: 

00005 

1 

10000 

0 

61406 

1 

1 3357 

i 

0 1 ,33  60 

614C7 

0 

13365 

0 

64753 

1 

03377 

l 

C : 

0 1,  3370 

64753 

1 

03377 

1 

C : 

0(  010 

0 

C:  40201 

0 
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IIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
'RETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


54167  0 
13124  1 
0 50  11  1 
50064  0 


36  10  6 0 
00004  0 
52165  1 
1 0 1 67  0 


70C06  0 
10067  1 
12716  1 
1304  1 0 


00006  1 
13022  0 
54061  1 
C:  00014  1 


1303?  0 
13056  0 
70065  0 
12665  1 


44753  0 
13041  0 
6 47**  1 1 
12655  l 


54064  1 
50064  0 
56065  1 
54164  0 


15160  1 
40167  0 
74350  1 
34755  1 


54167  0 
54001  1 
10203  1 
1 0233  1 


40000  0 
45164  0 
03175  1 
03175  1 


13013  1 
60001  0 
C 5 706  0 
C:  676  10  1 


00004  0 
00006  1 
L3130  1 
13140  0 


10263  1 
10313  1 

13210  0 
12710  1 

54131  0 
00006  1 
54001  1 
54062  1 


03175  1 
03175  1 
10130  1 
54132  0 

30002  0 
03011  1 
33227  0 
30002  0 


C57C6  0 
05706  0 
13170  0 
60131  1 

54130  1 
10067  1 
15177  1 
00006  1 


13150  1 
13160  1 
12770  1 
10000  0 

16753  1 
13015  1 
C:  66102  1 
63525  0 


40000  0 
64736  1 
57401  0 

50002  0 


63373  0 
64736  l 
57402  0 
13276  0 


60002  0 
56026  0 
57403  1 
53411  0 


10000  0 
64735  1 
57404  0 
53413  1 


53425  1 
61401  0 
64753  1 
00003  1 


53427  0 
13321  0 
03377  1 
10000  0 


53431  1 
64753  1 
C:  00002  0 
61404  0 


65247  0 
03377  1 
10000  0 
13343  1 


6 140  5 1 
64  753  1 
00C07  0 
52062  l 


13351  1 
03377  1 
10000  0 
05717  0 


64753  1 
C:  00006  1 
03374  1 
C:  31203  1 


03377  1 
10000  0 
13370  1 
54064  1 
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» 


» 


TOTAL  LISTING  FOR  PARAGRAPH  # 


027, 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  (IF  EACH  WORD.  "5)"  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VAUD  WORDS  ARE  BASIC  INSTRUCT  IONS 


' l.  3400 
ji  »3al  c 


5000?  0 
50002  0 
57407  0 
64733  1 


19889 


EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  «C « (CONSTANTS) 


54002  1 34753  1 60064  0 
00006  1 04007  1 54016  1 
57405  1 57404  0 57403  1 
54332  1 44755  0 54332  1 


50002  0 
00006  1 
57402  r 
00006  1 


27377  1 
22012  1 
57401  0 
45250  1 


40064  1 
34734  0 
57400  1 
53431  1 


> 1 ,344. 

I,  345C 
3 1 ,3460 
I 0 1,3470 


53427  0 
560C1  0 
55434  1 
63523  O 


53425  1 
00006  1 

31152  o 

00006  1 


53423  1 
01007  1 
10C00  0 
43503  0 


53421  0 
56001  0 
13471  1 
21153  0 


53417  0 
52006.  0 
13466  1 
11153  0 


53415  1 
23435  1 
13523  1 
13513  1 


53413  1 
34752  0 
31153  1 
13477  1 


53411  0 
26002  1 
00006  1 
13500  0 


> 


■J  1. 3520 
i 1 ,3530 


0 1,35  40 
3 1,  3550 
t 01  ,3560 

01,3570 


* 


0 1,  36  20 
t 31,3630 


53147  0 
30  161  L 


13513  1 0:  00000  1 C:  20000  0 34736  1 27153  0 05204  1 C:  03520  0 
53435  0 52006  0 34736  1 05214  0 C:  03471  0 C:  02063  0 13510  1 
15176  0 C:  05272  0 53435  0 13526  1 52062  1 C5727  0 C:  21204  1 
60000  1 54155  1 33772  G 54157  0 33567  0 547C7  0 3q154  1 


75007  l 10030  0 

C:  C3C40  0 C : 20 1 3 1 

31437  3 52706  1 

13572  0 13637  1 


1360  3,  0 15447  1 
60025  3 1 P 330  P 
13622  0 13622  0 
30154  1 76  106  1 


13553  0 10154  0 
03567  0 75007  1 
30 1 54  1 74757  1 
34352  1 54704  0 

13622  0 40000  0 
43000  P 67743  0 
64753  1 00704  1 
54154  0 00006  1 


1P000  0 13653  0 
10003  0 13624  0 
67760  1 10000  0 
50155  0 31053  0 

54001  1 53155  0 
64753  1 60001  O 
33567  0 54157  0 
50155  0 31437  0 


35024  1 05105  0 
00006  1 50155  0 
13736  1 04631  1 
10000  0 24000  1 

41052  C 00006  1 
10000  0 34755  1 
33773  1 54707  0 
52706  1 50155  0 


01,  3640 

9 

01  ,3660 
01,  36  7C 

> 


> 


3 1 ,3700 
'1,3710 
T 1,  3720 
1 ,3730 


31  053  0 
56706  l 
54707  T 
50156  0 


547C4  0 
40000  0 
30  154  1 

32002  1 


00006  1 
Of'  704  1 
54021  0 
22706  0 


63647  1 
540?.  1 
60021  1 

10003  0 


34354  1 
10020  1 
50155  0 
24000  1 


56704  l 
13656  0 
62  003  0 
13750  1 


C0704  1 
13754  0 
54156  1 

24000  1 


34351  1 
33567  c 
00006  1 
54705  1 


34352  l 
15456  1 
1 1 1 52  l 

13622  0 


54  7P  4 
53163 
13731 
33774 


30706  0 
00006  1 
13724  1 
54704  C 


74  742  0 
40025  1 
13617  0 
00006  1 


10000  0 
21153  0 
11153  0 
31153  1 


13743  0 
00006  1 
13731  0 
00704  1 


50 156  0 
31151  0 
13727  1 
34352  1 


32CC0  0 

21153  0 
13617  0 
54704  0 


I 


) 


1,  3740 
) 1 , 3750 
01  ,3760 
T 1,  37  70 


50155 
56705 
63154 
5470  7 


0 

0 

1 

0 


41053  1 
50156  0 
60164  1 
13667  1 


15456  1 
32000  0 
60  154  1 
03765  0 


40706  1 
13641  0 
54  156  1 


54706  1 
30157  1 
13667  1 


50156  0 
54707  0 
36257  1 


32000  0 
50  155  0 
26156  1 


33567  0 


03543  0 C:  05310  0 0:  03775 


C:  03776  1 CK SM  60422  0 
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94,  2000 
04  ,20 1C 
04, 2020 
9 4, 2030 


Cl  276  ¥ 
C : 25477  1 


C : 
C: 


C : 


17755  C 
04773  0 
03367  0 
3-20  37  1 


C : 
C: 
C: 


27533  1 
C4616  1 


C:  01265  1 C:  22437  1 C:  16067  1 
C:  06702  1 C:  16471  1 C:  01352  1 
C:  97571  0 05527  1 C:  00311  1 
C : 20477  1 12031  0 12031  0 


C:  15625  I 
C:  21412  0 
05527  1 
1 2o  3 1 0 


C:  21042  1 
C:  20500  0 
C : 00314  1 
C:  11343  o 


04  ,2  040 
9 4,  20  50 
94,2060 
04,  2070 


54774  1 34355  0 
62411  1 00006  1 
12107  1 40076  1 
04635  0 C:  21051  0 


54366  0 
12404  1 
74753  0 


31277  1 
64753  1 
10CG0  0 


74746  1 
00006  1 
12072  1 


10000  0 
1240  3 0 
05600  1 


12065  1 
30774  0 


32476  0 54155 


50155  0 32445  0 


76106  1 


40774  1 
00006  1 
94457  0 
40000  0 


34,2100 

60774  0 

10000  0 

10155  1 

12073  0 

12334  0 

30 1 55  0 

54773  0 

04  ,2110 

74746  1 

19000  0 

12136  0 

04727  1 

00004  0 

04674  0 

C:  75555  0 

04,  2120 

C : 00163  0 

15155  1 

40074  0 

74745  1 

10000  0 

12127  0 

12134  I 

34,2130 

74743  1 

1OC00  0 

32400  1 

64747  1 

62401  C 

05370  9 

34755  1 

4010  3 1 
05527  1 
40074  0 
00006  1 


04,2140  01007  l 

94,  2150  I:  77776  1 

04,2160  C:  00063  1 

04,2170  C : 00311  1 


32377  r. 
05527  1 
05527  1 
19774  1 


54374  0 
00124  0 
00056  1 
12322  1 


05364  0 C:  00014  1 
05527  1 C:  00055  1 
05527  1 C : 00141  0 
94457  0 35017  1 


06051  0 I : 77624  1 
34735  1 54107  0 
05527  1 C:  00217  0 
55055  1 06011  1 


27410  1 
05527  1 
95527  1 
44753  0 


94,2200 
04  ,2210 
3 4,  2220 
34,2230 


70076  1 

54 C 76  1 

34756  1 

5 400  1 1 

40000  0 

52754  0 

42402  1 

70074  0 

543  74  0 

34755  1 

54333  0 

55321  1 

44741  0 

70077  0 

64741  1 

54077  0 

04674  0 

C : 40205  1 

44775  1 

55071  1 

70075  1 

54075  1 

C4674  0 

C : 12666  1 

10774  1 

12240  1 

04674  0 

C:  12663  1 

30774  0 

55910  0 

04635  C 

C:  13094  1 

04,  2240 

3 4,  22  50 

04  ,2260 


34,  2270 


41^10  r, 
67760  1 
1 090  9 
52754  0 


G0CC6  1 
12271  0 
32376  1 


00C06  1 
12274  0 
42402  1 
54374  0 


12262  1 40774  1 62340  1 00006  1 
64756  1 00096  1 12274  0 32336  0 
70074  0 54074  0 06011  1 00006  1 
12236  0 41010  0 66007  0 00006  1 


12262  1 
70074  0 
34755  1 
12266  0 


3 4,2300 
0 4, 23  If 
3 4,  2320 
34  ,233c 


64756  1 
00006  1 
26C75  1 
50773  1 


0000  6 1 
12316  0 
12232  l 
32477  1 


12266  0 
62337  l 
32336  0 
00004  0 


32336  0 
00006  1 
70074  0 
12212  0 


70074  0 
12316  0 
10900  0 
04364  1 


69774  0 
12266  0 
12330  1 
12067  0 


40000  0 

40075  1 
05527  1 


6234  1 0 
74775  1 
00007  0 
99305  1 


-4, 234C 
94,2350 
34 ,2360 
9 4,  23  70 


C0026  0 

C:  00124  0 

00004  0 

50773  1 

32445  0 

55057  0 

54020  1 

30020 

77737  1 

55C61  0 

54063  0 

31057  1 

( 06  1 

74744  0 

74757  1 

54001 

50773  1 

32414  1 

55060  I 

74350  1 

26001  1 

31  060  0 

75012  0 

6474  1 

05116  1 

31057  1 

76106  1 

05325  0 

04457  0 

05155  0 

C:  10345  1 

C:  10150 
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octal  LISTING  FOR  PARAGRAPH  P OAl,  WITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "S>"  denotes  unused 


I 

» 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTION  EXCEPT  THOSE 


MARKED"!"  (INTERPRETIVE  OPERATOR  WORDS) 


: 4,  P4CG 
i ) 4 , 2 4 1 C 
1 4, ?42f 
) 4 , 24  30 


c:  37667  1 C : 4GC72  0 

52336  3 C:  00  106  C 

C : 72036  1 C : 71351  0 

C:  75271  1 f:  75146  0 


C:  00700  0 36257  1 54002  1 00006  1 
C:  02006  0 C:  42067  0 C:  262C7  0 C.  : 72647  1 
C:  64421  1 C:  33310  0 C:  32067  1 C:  31421  l 
C:  72643  0 C:  72455  C C:  72223  1 C:  720  34  0 


32413  « 
C:  72457  1 
C : 75437  0 
C:  72000  1 


I ’ 4, 244C 

' 4,  2450 
1 4 » 2 4 6( 
I 04,  2470 


C:  50000  1 
C:  27711  0 
C:  27652  3 
C : 27631  0 


L : fL'J  l 

C:  2765  1 0 
f:  27626  0 


C:  50000  1 
C : 2770  4 1 
C:  27650  1 
C:  27625  0 


C:  60061  0 
C:  27677  1 
C:  27643  0 
C:  27624  1 


C:  77654  0 
C:  27271  0 
C : 27642  1 
C : 27614  1 


C : 27714  0 
C:  27264  1 
C : 27  641  1 
C:  27006  l 


C : 27713  1 
C:  27263  C 
C:  27640  0 
C : 00030  1 


» 


14,2600 
4 ,25  1 C 


3 4,25  20 
14,2530 


> 


04  ,25  60 
4.257C 


C:  00002  0 C:  00002  0 C:  00002  0 C:  00002 
C:  00000  1 C:  0C003  1 C:  00003  1 C:  00003 
C:  0C002  0 C:  00002  0 C:  00002  0 C:  00005 
j:  44001  0 C:  C0001  0 C:  027-36  1 I:  47135 


I:  77626  0 C:  60012  1 C:  000  11  1 IS  77634 

I:  57406  1 C:  14027  1 C:  240C7  0 C:  14023 

Is  77626  0 C:  5C006  1 C:  00023  C I:  53435 

52134  0 53167  1 25166  1 30006 


0 C:  00004  0 C:  00004  0 C:  00005  1 

1 C:  00003  1 C:  00002  0 C:  00002  0 

1 C:  00002  0 C:  00002  0 C:  000C4  0 

0 C:  OG012  1 C:  21560  1 I:  71406  0 

0 C:  21560  1 Is  71406  0 C:  00025  0 

0 Is  72405  0 C:  00001  0 C:  17767  1 

0 C:  03765  0 C:  00031  0 Is  77650  1 

1 75012  0 27167  1 51166  1 


* 

'J  4, 2610 
3 4,  26  2C 
> 34,2630 


04622  0 02605  0 

50001  0 30031  0 

I : 77776  1 23167  0 

56002  0 54154  C 


C 2 6 0 4 1 
7400  1 0 
16053  0 
00004  0 


25166  1 25166  1 
24001  0 53167  1 
05137  1 44741  0 
34355  C 05072  1 


53167  1 52006  0 

06051  0 I : 77624  1 
50064  0 26164  C 

C:  03574  1 C:  60101  1 


> 


04  ,2660 
•'4,  2670 


* 


) 4,2700 
34,  2710 
34,  2720 
4 ,2 7 3 r 


C: 


00154  1 
30306  I 
12653  1 

000C7  0 


5 4C31  1 
31442  l 
06051  0 
C:  00001  0 


04220  0 
53C51  0 
IS  53145  1 

C : 02200  1 


04224  1 04374  0 30001  0 55042  1 

32763  1 046 1 6 1 C:  23334  1 15503  0 

01051  1 C:  10760  1 C:  34041  0 C:  27042  1 

63256  0 It:  53435  0 1:  77626  0 C:  61571  0 


C:  3404 1 0 
I : 72441  0 
I:  41456  0 
I : 74241  3 


I : 47235  C 
C:  000  15  r 


63375  0 
26  172  1 
00001  0 
77752  1 


C:  00007  0 
C:  00001  0 
C:  00023  0 
Is  53445  1 


C=  00001  C 
1:  72441  0 
is  53552  0 
I : 77656  1 


1 : 41406  0 
C : C22C 6 l 
I:  77656  1 
I : 502  06  0 


I:  63245  1 
C : 261 74  1 
C:  240C 1 0 
C:  OOC-C  1 3 


' 04,2740 

) 4,2750 
04 ,27 60 
> 1 4,  2770 


C : 26176  0 
C:  ('2176  0 
I : 52034  1 
I : 47235  0 


I : 502  3 5 o 
I:  77776  1 
C:  21555  1 
C : 01563  0 


C:  00001  0 
32  764  0 
C:  10665  0 
C : 03607  0 


is  7124^  0 
04616  1 
C:  0 1420  0 
is  77655  1 


C:  10751  0 C:  24020  0 I : 77625  0 
C:  20334  1 15533  0 15503  G 
C:  01532  1 Is  77220  1 C:  02746  0 
C:  03623  3 Is  53435  0 C:  03607  0 


I X ED  MEMORY 


60002  0 
C:  72225  1 
C:  75411  I 
C:  50462  1 

C:  27712  0 
C : 27657  0 
C:  27636  1 
C : 00002  0 

T:  00000  1 
C:  00032  0 
C:  COOOO  1 
I:  7352  5 1 


I : 73525  1 
I : 7240  5 u 

C:  32736  1 
27777  0 


22164  1 
C:  01166  1 
00072  1 
03333  1 


05133  0 
12661  0 
is  63375  0 
C:  00015  0 

C:  02200  1 
C:  00007  0 
C:  00023  o 
I:  65552  0 


C : 02176  0 
12650  1 
C:  01555  0 
C : 37615  1 
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4,  5000 

C: 

02746 

0 

C : 

00000 

1 

C : 

04000 

0 

C: 

ooooo 

1 

C: 

00200 

0 

C: 

OOOOO 

1 

C: 

00400 

0 

C : 

OOOOO 

1 

04  ,3 OlCi 

C: 

loocn 

0 

C: 

00010 

1 

C: 

02000 

0 

C : 

00000 

l 

C : 

OlOOC 

0 

C : 

OOOOO 

1 

C: 

00020 

9 

C: 

09991 

1 

04, 3020 

C : 

00 100 

0 

C : 

00000 

1 

C: 

34631 

1 

C: 

23146 

0 

C: 

77467 

1 

C : 

77777 

0 

C : 

C31  10 

1 

C : 

1 7665 

1 

j 4 ,30  30 

C: 

onooo 

1 

C: 

00001 

C : 

37767 

0 

C : 

37  737 

0 

C: 

4001  0 

1 

C : 

41941 

1 

T: 

4 30  20 

1 

C: 

02753 

1 

C: 

03  665 

1 

I : 

77614 

1 

C: 

04273 

0 

I: 

45131 

0 

C: 

02673 

1 

C : 

27777 

0 

C : 

11102 

1 

C: 

14045 

0 

4,  30  5C 

I : 

56261 

1 

C : 

20606 

0 

C : 

00045 

0 

C: 

32766 

1 

C: 

19005 

0 

C: 

140  17 

1 

C: 

02720 

0 

I : 

60316 

0 

) 4 , 3 060 

C: 

01147 

1 

I: 

41275 

1 

C: 

COO  17 

1 

C : 

00041 

1 

I : 

77657 

c 

C : 

215  76 

0 

I: 

44206 

0 

C: 

11915 

0 

'4,  3C70 

C : 

16742 

1 

I : 

602C5 

0 

C: 

09045 

0 

C: 

00047 

1 

I: 

53605 

1 

C : 

00045 

0 

C : 

20575 

1 

C : 

02740 

0 

D 4, 3100 

I: 

77650 

l 

C: 

027  5 3 

1 

I : 

77656 

1 

C : 

16712 

1 

C: 

00045 

0 

C: 

26720 

0 

I: 

77656 

1 

C: 

02722 

1 

04,3110 

I : 

7 244  1 

1 

C: 

02712 

1 

I: 

77725 

l 

C: 

00045 

0 

C : 

24041 

1 

C : 

02722 

1 

I : 

76435 

1 

C: 

92712 

1 

9 4 » 3.1 20 

I : 

75214 

1 

C: 

C37C5 

0 

C : 

11134 

1 

C: 

92673 

1 

. I: 

40056 

0 

C: 

11132 

1 

C: 

16674 

0 

C : 

00045 

0 

14,3130 

I: 

43566 

0 

C: 

02673 

1 

I : 

52162 

0 

C: 

1 1126 

1 

I : 

75246 

0 

C : 

12673 

1 

is 

776  16 

0 

0605  l 

0 

04,  3140 

I : 

63135 

0 

C: 

01512 

1 

0: 

11206 

0 

f: 

77776 

1 

C: 

01503 

0 

C: 

25535 

0 

C : 

0151  1 

0 

I : 

77624 

1 

14,  3150 

C: 

27706 

0 

I : 

51535 

0 

C : 

01  502 

1 

I : 

53025 

0 

C: 

11215 

1 

C: 

LI  162 

1 

I: 

43174 

1 

C : 

OOOOO 

1 

04  ,3160 

C: 

00223 

1 

C: 

11165 

0 

i: 

43174 

1 

C : 

00002 

0 

C : 

00063 

1 

I : 

50135 

0 

C: 

01502 

1 

C: 

11175 

1 

04,  31  70 

I : 

77624 

1 

C: 

2666C 

0 

I : 

52014 

0 

C: 

1 1671 

q 

C: 

11177 

0 

I: 

77624 

1 

C : 

26733 

1 

I : 

77414 

0 

) 4, 3200 

C: 

02676 

1 

34755 

1 

00006 

1 

01077 

0 

55501 

0 

1605  1 

9 

is 

776  24 

1 

C: 

2741  7 

0 

'•4, 32  10 

I : 

77776 

1 

05364 

0 

C: 

0 40  26 

1 

03716 

i 

C : 

00002 

0 

C : 

OOOOO 

1 

I : 

77420 

1 

C: 

0271  1 

1 

14,  32  20 

05364 

0 

C : 

04C22 

0 

06051 

0 

I : 

77650 

i 

C: 

0271  1 

l 

C: 

31000 

1 

C : 

OOOOO 

1 

C : 

22525 

0 

14,3230 

C: 

12525 

0 

C: 

22100 

1 

C: 

00000 

1 

C: 

01200 

i 

C : 

OOOOO 

1 

C : 

25252 

0 

C: 

25253 

1 

C: 

00027 

1 

0 4,  32  40 

C : 

00063 

1 

34737 

0 

70077 

0 

! 

0 

03255 

0 

31277 

1 

74743 

1 

00006 

1 

1 4,  32  50 

13252 

0 

44750 

c 

63260 

0 

05745 

1 

06001 

0 

15515 

0 

C: 

OOOC7 

0 

14631 

0 

4 ,3260 

C: 

00220 

1 

54016 

1 

5600  2 

0 

54012 

0 

04400 

l 

34346 

1 

00006 

1 

9201  5 

1 

1 4,  3270 

54073 

1 

401  01 

0 

74735 

0 

26  101 

0 

34355 

0 

05072 

1 

C: 

02057 

1 

C : 

60101 

1 

> 4,3300 

30073 

0 

50064 

0 

54154 

0 

05301 

0 

54016 

1 

56002 

0 

54012 

0 

0441C 

1 

14,  33  1( 

34  755 

1 

56045 

0 

54073 

1 

30077 

1 

74741 

0 

10000 

0 

13322 

0 

30073 

0 

1 4,  3320 

27  247 

0 

25260 

1 

34751 

0 

00006 

1 

050  11 

1 

34346 

1 

70073 

1 

56073 

0 

0 4 ,3.3  3 n 

00006 

1 

74742 

0 

54  332 

1 

74346 

0 

63370 

0 

03365 

1 

34742 

1 

90006 

1 

04,  3340 

70332 

1 

74346 

0 

40000 

0 

03365 

1 

43373 

1 

60073 

0 

00006 

1 

13355 

0 

1 4,3350 

347  50 

1 

70103 

1 

10000 

0 

95301 

0 

032  74 

0 

44759 

0 

70  10  3 

1 

54103 

1 

1 4 , 33  fcC 

.3274 

0 

40103 

1 

74750 

0 

26103 

1 

05301 

0 

60073 

0 

10000 

0 

03361 

0 

14,  33  70 

C: 

77740 

1 

03361 

0 

00002 

0 

C: 

00022 

1 

31119 

1 

00006 

1 

13400 

1 

03766 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  H CAB,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOT  ES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  PASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOPDS)  OR  »C  " (CONSTANTS) 


1 A,  3400 
4 ,34 
■ A, BA2C 
0 A, 3430 


55  170  1 

31165  l 

55171  0 

34753  1 

55172  0 

U 5 364  0 

C:  C7026  1 

C : 30000 

C:  ( 3716  1 

C:  1C  10  2 0 

34753  1 

54333  0 

05322  1 

C:  00033  1 

51171  1 

l 3423 

13423  0 

13426  0 

13426  0 

34752  0 

55167  1 

13451  0 

33521  1 

54156 

33522  1 

C4616  1 

C : 20334  1 

13716  0 

13430  1 

03512  1 

44752  1 

61173 

• A , 3 A A 0 

* A,  3A50 
) A,?A60 

i A,  3A7( 


00006  1 63A30  0 
2?  172  1 33666  1 
1 3 A5 A 0 03512  1 
5A156  1 33523  0 


A 1 17  3 l 
61172  1 
A 1 1 72  0 


6 A 362  1 
5 A 1 5 5 1 
6 1 1 67  0 


00C06  1 
33522  1 
00006  1 


63A30  0 31173  0 
04616  1 C:  2033 A 1 
63A67  1 13A50  1 


0A616  1 C:  20334 


13716  0 


1352A  0 03512  1 


55167  1 
13716  0 
33520  0 
31166  1 


3 A,  3500 
! A ,3510 
) A,  3520 
14,3530 


00006  1 63467  1 A1166  0 61167  0 64753  1 00006  1 

61166  1 13453  1 40154  0 74746  1 10000  0 00002  0 

C:  01166  1 C:  C11  73  0 C:  05201  1 C:  05202  1 00004  0 30  1C  3 0 

00006  1 0600 1 0 54103  1 05364  0 C:  04026  1 00004  0 


63467  1 
50002  : 
560C1  0 
44752  1 


33666  1 
77771  0 
3475 1 0 
61171  1 


c A,  3540 
* A,  3650 
>4  , 3 5 6( 
i 4,  3570 


00006  1 63550 

3A3SS  3 C 5 1 C 5 

I:  77776  1 05364 

13727  1 13636 


l 00006  l 

0 C:  03555  l C: 

0 C:  04026  1 

13670  1 


31174  1 5 320  4 1 

1 0103  1 05155  0 

C5515  C C : C0236  0 

00006  1 23166  1 


03573  0 C4364  1 03716  1 
06051  0 I:  77624  1 C:  27410  1 
00004  0 51171  1 13570  1 
34755  1 22007  0 52025  1 


) 4 , 3600 
4,361  C 
' A,  36  20 
04,3630 


53216  1 

34756  1 

54001  1 

40000  0 

54) 56  1 

53204  1 

52155  1 

00006  1 

34755  1 

5321  6 1 

20025  1 

05364  0 

20025  1 

05364  0 

C:  04026  1 

00004  0 

52764  0 00004  0 34755  1 220C7  0 

31216  0 20155  1 00006  1 13626  1 

C:  04026  1 01166  1 07271  1 52155  1 

51166  1 00001  0 31174  1 54003  0 


A,  3640 
j A,  ^6  50 
4 ,3660 
0 4,  36  70 


74357  0 
13764  0 
6 1 1 6 6 1 
34753  l 


55166  0 
^7757  C 
50000  1 
71167  1 


67757  : 
61167  0 
23400  1 

10000  0 


61167  0 
54154  0 
10154  0 
13675  1 


00006  1 
50000  1 
13653  0 
13764  0 


13653  0 
31175  0 
13715  0 
44752  1 


7A7A3  1 
5400  1 1 
Cl  172  1 
61167  0 


10000  0 
3g 1 54  1 
13715  0 
54154  0 


) A , 3700 
A, 3710 
0 A,  3720 
04 ,3730 


50000  1 
74357  0 
34755  l 
41174  0 


31174  1 
50300  I 
54333  0 
53204  1 


22000  1 
23400  1 
03771  0 
03*73  C 


10154  0 
1C  154  C 
00005  1 
0 3764  1 


54154  0 
13677  0 
34755  1 
00006  1 


53000  1 
03137  1 
52764  0 
41174  0 


31174  1 
31170  0 
05503  1 
53206  0 


54003  0 
05325  j 
00006  1 
00006  1 


4,  3740 
14,3750 
j4  ,^760 
1 4,  37  70 


41174  0 

53210  1 

05364  0 

C:  04025  1 

34755  1 

22007  0 

53206  0 

21571  1 

34755  1 

220C7  0 

53210  1 

21643  C 

34755  1 

22007  0 

53174  0 

21710  1 

27706  0 

05364  0 

C:  04026  1 

03715  1 

C4364  1 

13715  0 

04364  1 

03771  0 

05503  1 

44751  1 

00006  l 

03011  1 

00002  0 

C:  03775  1 

C:  03776  1 

CK  SM  17700  0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 044,  WITH  PARITY  BT  T IN  BINARY  AT  THF  RIGHT  OF  EACH  WDRO,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C"  (CONSTANTS) 


5,  20  00 

C: 

02157 

l 

C : 

20C00 

0 

C : 

ooooo 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C : 

ooooo 

1 

>5  ,2  c 1 o 

C: 

OOODO 

1 

C: 

165  3 1 

0 

C: 

32505 

0 

C : 

77333 

1 

C : 

56446 

1 

C : 

OOOOO 

1 

C: 

ooooo 

1 

C: 

06273 

1 

05, 2020 

C : 

32  7 5 

l 

C: 

01242 

1 

C: 

24467 

1 

C: 

000  2D 

0 

C: 

17260 

0 

C: 

00002 

0 

C : 

ooooo 

1 

C : 

22572 

1 

75,2?  30 

C: 

27267 

1 

C: 

01315 

1 

C : 

26251 

6 

C : 

77731 

1 

C : 

55144 

0 

C: 

05456 

0 

C: 

0 1 2o  4 

0 

C: 

1061  1 

0 

0 5,20  40 

C : 

15113 

0 

C: 

35556 

1 

C: 

15121 

l 

C: 

01076 

1 

C: 

16550 

0 

C : 

70645 

1 

C : 

74553 

1 

C: 

02245 

0 

• 

C: 

C6475 

1 

C : 

00162 

1 

C : 

05550 

i 

C: 

01671 

0 

C: 

37406 

1 

C: 

01000 

0 

C: 

ooooo 

1 

C : 

00256 

0 

? 5 , 2 ' 6 0 

C: 

24654 

0 

C: 

77523 

0 

C: 

76354 

i 

C: 

00131 

1 

C : 

2673C 

1 

C : 

77340 

0 

C: 

32127 

1 

C: 

24  340 

0 

05,2^70 

C : 

03451 

1 

C : 

13443 

0 

C: 

02247 

l 

C: 

0 1341 

0 

C: 

25731 

0 

C : 

03633 

1 

C : 

12257 

1 

C : 

13700 

1 

75,2100 

C: 

0 1335 

0 

C: 

03630 

1 

C : 

32136 

l 

C : 

00024 

1 

C: 

32145 

0 

C: 

24340 

0 

C: 

32154 

0 

C: 

07115 

0 

J5  ,2110 

C : 

01355 

0 

C: 

01774 

1 

C: 

12265 

0 

C: 

03635 

1 

C: 

12356 

1 

C : 

01  330 

0 

C : 

05333 

1 

C: 

03577 

1 

7 5,  2 1 2C 

C: 

01326 

1 

C: 

01277 

1 

C : 

03441 

0 

C: 

32160 

1 

C: 

32171 

1 

C: 

00007 

0 

C : 

74263 

0 

C : 

76060 

0 

75,2130 

C: 

0 1721 

1 

C: 

01723 

0 

C : 

01725 

0 

C : 

01727 

1 

C: 

01570 

1 

C : 

76062 

1 

C: 

043  20 

1 

C: 

01432 

0 

•7  5,  21  4C 

C : 

07021 

H 

07234 

_ 

04032 

01225 

7 5,  21  50 

C: 

01227 

1 

C : 

01.23  1 

c 

C : 

01  233 

1 

C: 

76560 

0 

C: 

07242 

1 

C: 

340  7 6 

1 

C: 

04374 

0 

C : 

77667 

0 

"5,2160 

C: 

07021 

7 

C: 

07234 

0 

C: 

04032 

1 

C : 

03024 

1 

C : 

03113 

1 

C : 

34  011 

0 

C: 

34013 

1 

C: 

340  30 

0 

0 5,2170 

C : 

43745 

0 

C: 

03556 

1 

C: 

67453 

1 

C: 

32127 

1 

C: 

24340 

0 

C: 

03371 

1 

C : 

02774 

1 

C : 

07115 

0 

) 5,2200 

C: 

l 1130 

0 

C: 

0134  1 

0 

C : 

25731 

0 

C : 

00734 

1 

C: 

12020 

0 

C: 

05  333 

1 

C: 

13700 

1 

C: 

32136 

1 

"5,2210 

C: 

00024 

1 

C: 

32145 

0 

C: 

24340 

0 

C: 

32154 

0 

C : 

3 22  3C 

1 

C : 

01355 

0 

C : 

01516 

1 

C : 

04036 

0 

7 5,  2220 

C: 

001  12 

0 

C : 

01326 

1 

C : 

0 1277 

1 

C: 

03441 

0 

C: 

32160 

1 

C: 

52755 

1 

C : 

05700 

0 

C : 

77665 

1 

75,2230 

C: 

12737 

1 

C: 

02755 

1 

C: 

12760 

0 

C : 

65011 

1 

C : 

32127 

1 

C : 

24340 

0 

C: 

32277 

1 

C: 

32307 

1 

5, 22  4C 

C : 

03451 

1 

C : 

13^33 

1 

C: 

03633 

1 

C: 

12257 

l 

C: 

0 1355 

0 

C: 

03630 

1 

C : 

32226 

0 

C : 

32  136 

1 

15,2250 

C: 

000  24 

1 

C: 

32145 

0 

C : 

24340 

0 

C : 

32154 

0 

C: 

07115 

0 

C: 

00007 

0 

C: 

0 1774 

1 

C: 

12265 

0 

i'  5 ,22  60 

C : 

036  35 

1 

C: 

12356 

1 

C: 

1 2247 

1 

C: 

0 40  36 

0 

C : 

0C1 12 

0 

C : 

01326 

1 

C : 

01277 

1 

C: 

03441 

0 

75, 2270 

C: 

32160 

1 

C : 

01516 

1 

C : 

03620 

0 

C: 

03466 

0 

C: 

03577 

1 

C: 

02340 

l 

C: 

77770 

1 

C : 

74320 

0 

) 5,2300 

C: 

0346  1 

1 

C: 

■ 

1. 

C: 

03753 

0 

C: 

03  760 

0 

C : 

03  761 

1 

C : 

01073 

1 

C: 

74023 

0 

C: 

24340 

0 

5,2310 

C : 

77423 

1 

C : 

G(  00  7 

0 

C: 

‘ 0 7 

0 

C: 

00007 

0 

r : 

32363 

0 

C : 

00  340 

0 

C : 

32354 

1 

C : 

24340 

0 

7 5,  2320 

C: 

01341 

0 

C : 

13252 

0 

C : 

13645 

1 

C: 

03642 

1 

C: 

U 36  6 4 

0 

C: 

120  20 

0 

C: 

02267 

0 

C : 

32226 

0 

35  ,2330 

C: 

32136 

1 

C: 

00024 

1 

C: 

32145 

0 

C: 

24340 

0 

C : 

32154 

0 

C : 

071 1 5 

0 

C : 

12604 

0 

C: 

13626 

1 

05, 2340 

C : 

13634 

1 

C : 

02253 

1 

C: 

02026 

1 

C: 

03507 

0 

C: 

00112 

0 

C: 

01326 

1 

C : 

01277 

1 

C : 

03441 

0 

7 5,2350 

C: 

3 2 160 

1 

C: 

22171 

1 

C : 

03614 

1 

C : 

74324 

1 

C : 

74007 

0 

C: 

03652 

0 

C: 

C 3457 

1 

C: 

03461 

1 

5,2360 

C : 

03  740 

1 

C: 

01355 

0 

C: 

746  0 5 

1 

C: 

74107 

1 

C: 

74162 

1 

C : 

32127 

1 

C : 

24340 

0 

C: 

32277 

1 

7 5,  2370 

C: 

14340 

0 

C : 

02774 

l 

C : 

25731 

0 

C: 

26227 

1 

C: 

01700 

1 

C: 

0 1516 

1 

C: 

00112 

0 

C : 

32136 

1 
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UCTAL  LISTING  FOR  PARAGRAPH  « 0*5,  Vs  I TH  PARITY  RIT  IN  BINARY  AT  THE  RIGHT  PE  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTION  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


. 

n?  ,?4  1 C 
0 5,  24  2C 
) 5,2430 


'5,  2 5 4C 
05,2550 
35,2560 
05,  25 7C 

35,2600 
"5, 26  If 
? 5,  26  20 
05,2630 

' 5,  2 64 C 
3 5 ,26  50 
05  ,2660 
3 5,  26  70 


C:  32145  0 
C:  152C7  0 
C:  3223a  3 
05105  0 

55365  1 

5 53 1C  3 
34355  0 
55273  1 

00006  1 
4 10  35  l 
44755  0 
33076  0 

32000  0 
34  755  1 
55300  1 
70077  3 

62103  1 
70  10  6 l 

00006  1 
52762  0 


C:  32145  0 
C:  0 1277  1 
C:  32171  1 
C:  0 2 2 f 5 1 

C:  24340  0 
C : n 1 3 2 6 1 
C:  0 20  66  0 
C:  77777  0 

54375  I 
34736  1 
54366  0 
55360  1 

01006  0 
74771  0 
553  10  0 
54111  1 

55400  0 
55407  1 

30006  1 
63433  0 

33C73  0 
63412  0 
34755  l 

00006  1 


C:  24340  0 
C:  03^41  0 
C:  03561  C 

r : 12200  0 

C:  32154  0 
C : 01277  1 
C:  02311  0 
C:  77777  0 

54376  1 
00006  l 
34755  1 
55362  0 

33006  1 
10000  0 
33374  1 
35015  0 

33077  1 
34363  0 
33401  1 
54077  0 

70104  0 
54106  1 
52754  0 
34755  1 


C:  32154  0 
C:  07021  0 
C:  76542  0 
C:  02206  1 

C:  07115  0 
: 

C:  02365  C 
31035  0 

54  377  0 
01011  0 
55247  0 
54333  0 

31012  0 
02557  1 
55277  0 
54003  0 

55403  0 

55404  1 

52075  1 
00006  1 

63413  1 
3 3413  1 
00006  1 
52756  1 


C:  32230  1 
C : C7234  0 
C:  12171  0 
C:  25167  n 

C:  01355  0 
C:  32160  1 
00004  C 
74771  0 

54320  1 
44755  C 
54371  0 
55321  1 

00006  1 
34771  l 
33102  1 
33074  1 

55406  0 
34744  1 
33402  1 
3340  5 0 

54104  0 
54107  0 
34755  1 

00006  1 


C:  12221  0 
C:  04032  1 
C:  02205  1 
C:  25233  1 

C : 00007  0 
C:  52755  1 
03122  0 
64735  1 

00006  1 
54055  0 
55071  1 
55501  0 

01013  1 
00006  1 
55343  0 
55444  0 

33100  0 
55411  0 
54076  1 
52101  0 

33411  0 
04635  0 
52760  1 
34755  1 


C:  03371  1 
C:  03024  I 
C : 12172  0 
C:  32136  1 

C:  03371  1 
C:  02173  0 
12473  1 
55035  1 

' 1 7 7 

34751  0 
55257  1 
00006  1 

00006  1 
C 50 1 2 1 
34751  0 
33075  0 

55405  0 
35026  0 
34737  0 
00006  1 

5410?  1 
C:  03212  o 
00006  1 
52752  0 


C : 00112  0 
C:  00734  1 
C : 02206  1 
C:  000  2 a 1 

C:  25173  0 
C:  0242a  1 
3A736  1 
34755  1 

44644  1 
55262  1 
55260  0 
0 1005  0 

01014  0 
02657  1 
55322  1 
55476  1 

55410  1 
64746  0 
64741  1 
33407  1 

34737  C 
00004  0 
34755  1 

00006  1 


35,2700 
5,271 
' 5,  2720 
05  ,273c 


34755  1 
31  >35  0 
34350  0 
61377  0 


52764  0 
74750  0 
71360  1 
00006  1 


00002  0 
00006  I 
00006  1 
12734  1 


24320  C 
12717  0 
12725  1 
13120  0 


22002  i 

64746 

13120 

31374 


00006  1 
00006  1 
41360  1 
54003  0 


C 4007  1 
05012  1 
00006  1 
00006  1 


53433  0 
03103  0 
12744  0 
31376  1 


05, 2740 
35,2750 
0 5,2760 
'5,  277 C 


51377  0 
33376  0 
31321  0 
12775  1 


52001 

71035 

54333 

34737 


34750  1 
00006  1 


55360  1 
57C35  C 
00006  1 
0501  1 1 


Wit  °o 


70106  1 
63375  0 
74745  1 
00006  1 


54106  1 
55277  0 
10000  0 
05011  1 
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OCTAL  LISTING  FOR  PARAGRAPH  0 046,  VITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD*  "3"  OENOT  ES  JNUSfcD  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


. ' 1 

r-5  ,3pTc 
05, 3020 
05,3030 


54  1:6  1 

06001  0 
05326  0 


03131  1 
54161  C 
13070  1 
44736  0 


13005  0 
40000  1 
1 30  73  1 
70075  1 


03174  0 
00006  1 
13070  1 
54075  1 


031G3  0 
50000  1 
10161  C 
44740  1 


43101  0 
30752  1 
13012  0 
70075  1 


70  lo  6 1 
33336  1 
54162  0 
54075  1 


05 ,30  40 
) 4,  30  50 
35,3360 
>5, 30 7 C 


44741  0 
13052  1 
13044  3 
€5600  1 


70074  0 
13057  1 
IQ  16  2 0 
01137  0 


54074  0 
54154  0 
12655  1 
12516  0 


34756  1 
24154  1 
34735  1 
C:  06203  0 


54161 
24162 
71  Ol  0 
C:  32321 


60000  1 
04616  1 
03336  1 
77445  1 


50000  1 
C:  C3530  1 
16001  1 
C : 21322  1 


10752  0 
10161  0 
12655  1 
77001  0 


35,3)00 
05  ,31  10 
3 5,  3120 
) 5 ,3130 


C:  00074  1 
00306  1 
03  122  0 
54110  0 


20100  l 
00015  0 
12516  C 
34733  1 


C : 03434  1 
63373  0 
33363  1 
54026  1 


34747  1 
00006  1 
54335  0 
67760  1 


00006 

13116 
34  74  6 
54  027 


02016  1 
00002  0 
00006  1 

67761  0 


00006  1 
03122  0 
02033  0 
540 3o  0 


13115  0 
12511  1 
63377  1 
3501  5 0 


05,  3140 
15,  3150 
0 5 ,3160 
0 5,  3170 


54003  0 
34755  1 
53264  1 
25677  0 


44737  1 
55465  0 
40  10  7 0 
11700  0 


71262  1 
55472  0 
74735  0 
13174  1 


55262  1 
44751  1 
00006  1 
25700  1 


34733  1 
70111  1 
13174  1 
33372  1 


55466  0 
54111  1 
24006  1 
00006  1 


00006  1 
00006  1 
11677  1 
0301  1 1 


03013  0 
33361  0 
13171  1 
43366  0 


35,3200 
15 ,3210 
0 5,  32  20 
35,3230 


70  110  0 
44741  0 
05013  0 
55406  3 


54110  C 
70101  0 
34771  1 
5540  5 0 


33370  0 
54101  0 
00006  1 
55404  1 


00006  1 
33371  l 
03014  1 
55403  0 


03012  1 
00006  1 
35007  0 
55402  1 


44753  0 
03  013  0 
5400  3 0 
55401  1 


70 10  1 0 
34  740  O 
34734  0 
55400  0 


54101  0 
00006  1 
55407  1 
45247  1 


0 5,  3240 
35,3250 
0 5 ,32  60 
3 5, 3270 


55410  1 
55430  0 
55425  1 
54247  1 


55412  0 
45250  1 
5542  7 0 
54263  1 


55414  0 
55411  0 
55431  l 
54277  1 


55416  1 
55413  1 
44755  0 
54313  1 


55420  1 
55415  1 
54167  0 

55310  0 


55422  0 
55417  0 
54203  1 
54067  1 


55424  V 
55421  0 
54217  1 
33365  1 


55426  1 
55423  1 
54233  1 
54400  1 


0 5,3300 
•5,  3 3 1 C 
3 5,  3320 
05  ,3330 


63367  0 
34363  0 
55324  1 
55017  1 


54454  0 


63367  0 
44740  1 
54045  1 
55000  1 


54530  0 
501  54  1 
5477^  0 
55001  0 


63367  0 
55022  1 

55041  1 

55042  1 


54604  1 
10154  0 
55012  1 
55307  0 


63367 

13311 

55014 

55043 


5466  C 
55323 
5501  1 
5530  1 


5, 3340 

05  ,336! 
0 5,  33  70 


55302  0 
7 1300  1 
: !024  ( 

C:  27470  1 


55303  1 
65026  0 
C:  34056  C 
C : 74160  0 


55304  0 
55300  1 
C:  00435  0 
C : 30001  0 


55311  1 
33364  0 
C:  C 3524  1 
C:  77755  0 


54100  1 
55361  0 
C:  C 3335  1 
C:  37411  l 


34760  1 
44360  1 
C : 00400  0 
C:  37000  0 


55015  0 
54776  0 
G:  32001  1 
C:  00450  0 


34746  0 
00002  0 
C:  00054  0 
C : 00102  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 047,  WITH  PAP  I TY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC.  INSTRUCTIONS  EXCEPT  T HnS  E M ARK  ED  " I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


0 5,  1420 
05,3430 

> 5,  34  50 
55,3460 
"5,  34  70 


j 5 , 3 5 1 0 

0 5.  3520 

1 5,3530 


C:  00000  1 
C:  00500  1 
33503  l 
55162  1 

44355  1 
54C  7 c 1 
33506  1 
7474?  0 


C:  OOCmO  1 
C:  OOOOO  1 
60002  0 
10002  l 

00006  l 
40C74  0 
53251  0 
00006  1 

C:  66067  0 
22012  1 
00006  1 
13545  1 


C : OOOOO  1 
C:  OOOOO  1 
54001  1 
40106  1 

0 20  11  0 
74752  1 
02671  0 
13476  0 

C : 001C6  0 
34745  n 
05013  0 
10336  0 


C:  OOOOO  1 
C:  40000  0 
43003  0 
74737  1 

64737  0 
26074  0 
36257  1 
30036  1 

C:  00027  1 
OOCOfc  1 
00335  1 
03667  0 


C:  OOOOO  1 
33417  0 
52760  1 
26106  1 

00006  1 
00306  1 
54001  1 
33501  0 

C:  00107  1 
C 20 1 3 1 
37761  0 
C:  77753  c 


C:  OOOOO  1 
54017  0 
50002  0 
43l0l  0 

01011  0 
30025  0 
40003  0 
53447  0 

C:  03455  0 
10000  0 
54337  1 
13536  0 


C:  OOOOO  1 
50017  1 
33502  0 
74745  1 

44743  1 
53342  1 
52760  1 
C4635  0 

C:  70067  1 
00335  1 
54336  0 
10337  1 


C : OGlOO  G 
13423  0 
55010  0 
26 1G  1 0 

70075  1 
00006  1 
30076  0 
C : l 3001  1 

540  16  1 
36022  1 
33654  0 
13702  0 


. 

. 

05  ,35  60 
0 5,  3570 

35,3600 
05  ,36  If 
3 5,  36  20 
35,3630 

05,  3640 
3 5,  3650 
05  ,3660 
3 5,  3670 


74001  0 
40333  0 
40000  0 
13572  0 

63625  0 
54336  0 
22070  0 
33336  1 

00006  1 
50  3 3 7 0 
56337  0 
54003  0 


30334  0 
13771  l 
5633*,  0 
0361  4 1 

00006  1 
37761  0 
44745  1 
1370  1 0 

50000  l 
OOOOO  I 
54003  0 
74357  0 


00006  l 
50334  0 
24000  1 
30336  1 

50336  1 
56336  1 
00006  1 
56336  1 

31402  0 
10000  0 
74^57  0 
54001  1 


63545  0 
30000  1 

54336  0 
63567  0 

44000  1 
13715  0 
03013  0 

54337  1 

50336  1 
13636  0 
00006  1 
33540  0 


13552  1 
10000  0 
63534  0 
00006  1 

54001  1 
0C006  1 
01265  1 
34755  1 

52341  0 
C:  03532  0 
50000  1 
26336  0 


50333  l 
24334  0 
10000  0 
63667  0 

00006  1 
23265  1 
50  336  1 
55336  1 

24336  1 
54337  1 
3140?  0 

00006  1 


32456  1 
13562  1 
13572  0 
67753  1 

50336  1 
22070  0 
OOOOO  1 
54003  0 

24336  1 
3776  1 0 
13715  0 

50001  0 


54334  1 
56334  0 
C:  47777  0 
00006  1 

43777  1 
06022  l 
10000  0 
74357  0 

24337  0 
54336  0 
30336  1 
31401  0 


0 5,-'  700 
'15,  3710 
) 5,  3720 
-,S  ,373  0 


1 371 5 0 
3776!  0 
00006  1 
30025  0 


54337  1 
56337  0 
01035  0 
5600  1 0 


50337  0 
24000  1 
15301  1 
30336  1 


OOOOO  1 

54336  0 
34755  1 
13715  C 


10000  0 
13573  1 
54336  0 
C : 03736  0 


24337 
00006 
03766 
C.  : 03  75  0 


13712  1 
Cl  034  1 
33735  0 
34752  0 


54337  1 
30001  0 
54335  0 
26336  0 


05,  3740 
) 5,3750 
05 , 3760 
0 5,  3770 


74357  0 
33734  1 
50002  0 
35011  1 


10000  0 
54335  0 
71401  1 
54001  1 


13752  0 
30336  1 
56001  0 
03614  1 


30336  1 
54003  0 
50002  0 
32065  0 


74737 
74357  1 
71400 
56001  1 


00006  1 
54002  1 
13  715  0 
13715  0 


13725  0 
34754  0 
00006  l 
C:  03776  1 


13524  0 
5400  1 1 
22335  1 
CKSM  71636  1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 050,  WITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WOPOS  ARE  BASIC  INSTRUCT  10 AS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 


OR  "C"  (CONSTANTS) 


0 6,  2000 
06  ,?0l  0 
66, 2020 
3 5 , 2D  30 


54-316  1 

OOOC6  1 

22012  1 

11310  0 

120  10  0 

12007  0 

12134  1 

34757  0 

54?,  70  1 

55310  0 

11035  1 

02063  0 

02063  0 

57035  0 

74356  1 

55035  1 

64101  0 

00006  1 

01010  1 

D 207 1 0 

55015  0 

44755  C 

54073  1 

56775  1 

64754  0 

54775  0 

50775  1 

11022  1 

10775  0 

1 2d  3o  1 

12047  1 

C:  00012  1 

0 6 ,2040 
0 6,  20  50 
) 6 ,2060 
C 6,  2 0 70 


00006  1 
12130  0 


0 10  10  1 
42171  0 


55015  0 
74J56  l 
16751  0 
27310  0 


00002  0 
54073  1 
1 lie 
37741  0 


54073  1 
34350.  0 
34755  1 
54027  0 


32037  1 
50775  1 
12 1 3D  0 
31300  0 


12031  0 
74066  1 
11015  0 
00006  1 


64753  1 
60073  0 
D 2024  0 
06032  0 


D 6 , 2 1 20 
36,2130 


74736  0 

OOOC6  l 

12116  l 

23300  0 

00006  1 

06001  0 

55300  1 

74736 

0 

10000  D 

12116  1 

34355  0 

0 50  72  1 

C:  03503  l 

C : 60101  1 

50070  D 

12120 

1 

03164  1 

13  006  0 

12172  0 

13143  0 

03164  1 

13006  0 

12172  0 

13140 

0 

00006  1 

01010  1 

32041  0 

12074  1 

34736  1 

71313  0 

OOOC6  1 

12165 

0 

06,2140 
36,  2150 
06  ,21  60 
0 6,  2170 


1 1 Cl  5 0 
27310  0 
11310  D 
12146  0 


02024  0 

053DL  0 

0530  1 0 
C:  22400  0 


12152  1 44736  0 

00006  l 01010  1 

C:  37737  0 02154  0 

31277  1 D 0006  l 


27310  0 37741  0 
37743  0 26027  0 
05301  0 00006  1 
06030  1 72761  1 


54027  0 
34743  0 
DID  10  1 
00006  1 


34743  0 
27310  0 
34736  1 
12227  0 


3 5 , 22 DO 
'i  6, 22  1C 
D 6,  2220 
36,2230 


54^7  1 
62  514  0 
50C70  0 
74745  1 


23277  1 
12213  1 
34736  1 
10000  0 


00006  1 
64753  1 
71277  0 
12374  1 


06001  0 
2 60  70  0 
50070  0 
34744  1 


55277  C 
60000  1 
02755  1 
71277  0 


4 4 753  0 
54000  0 
10071  0 
1D00D  0 


56070  0 
12213  1 
12212  0 
12242  D 


00006  1 
56071  1 
41277  0 
34744  1 


06,2240  27277  0 

3 6,2250  4 1 277  0 

5 M 4 

06,2270  57277  1 


12374  1 42777  0 

74743  1 10000  0 

C:  02266  1 C:  14106  0 
74752  1 00006  1 


71277  0 
12256  0 
12374  1 

12306  1 


55277  0 74736  0 ) GOOC  0 
05600  1 C:  00213  1 02735  1 
33005  1 05235  U 44752  1 
34736  1 71277  0 00006  1 


12347  1 
33005  1 
71277  0 
12264  1 


' 6,2  300 
06,  2310 
06,  2320 
06  ,233o 


40074  0 74744  0 
05  312  1 04674  0 
05235  0 42774  0 
74735  D 00 C 0 6 1 


10000  0 
C:  17233  0 
71277  0 
12336  1 


1 5272  1 
C54  7C  1 
55277  0 
26076  1 


04635  0 C : 17536  1 
44763  0 C0006  1 
44746  l 71300  1 
30025  0 57074  0 


34735  1 
03012  1 
55300  1 
02703  1 


0DDD6  1 

34741  1 
40076  1 
44735  0 


06, 2340 
35,2350 
- 6, 23  6C 
D 6,  2370 


000C6  1 
00006  l 

02  746  0 
■5214  0 


<3301  2 1 
02012  0 

04674  0 
C:  02313  1 


35003  1 
10000  0 
C:  17233  0 
C : 14106  0 


34747  1 
12374  1 


03221  0 
34744  1 
00006  1 
3130D  0 


16103  1 
7 D C 7 4 0 
05012  l 
75026  1 


15272  1 
100G0  0 
05470  l 
54001  1 


34746  0 
35026  0 
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A LI  VALIO  HO  ROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  T Hns  E MARKED  "I"  (INTER 


6,  2400 

00006  1 

03033  1 

00006  1 

06001  0 

06  ,2410 

00006  1 

0600  1 0 

553G0  L 

34755  1 

06.,  2420 

24070  0 

60000  1 

54000  0 

12423  1 

)6 ,2430 

500  70  0 

02763  1 

10071  0 

12417  0 

06,2440 

12465  0 

62512  0 

03006  1 

62464  0 

16,  24  50 

00006  1 

02 C12  0 

10000  0 

12462  1 

06,2460 

C: 

03105  0 

C:  16  10  3 1 

34746  0 

12465  0 

6,  247C 

15301  1 

71035  1 

10000  0 

12537  0 

06,2500 

410  35  l 

74746  1 

64735  1 

57035  0 

0 6 ,251  f 

15  301  1 

12530  l 

C:  63434  1 

C:  75252  0 

06,  2520 

12525  0 

34750  1 

00006  1 

05011  1 

06,2530 

00006  1 

0 30  1 1 1 

12225  1 

34752  0 

, 

, 

12556  1 

,/7 

06, 2550 

12225  l 

34  7 5 2 n 

27277  0 

05600  1 

C: 

, 

27277  0 

32564  1 

54H0  0 

12225  1 

C ; 

06,2570 

00006  1 

03014  1 

42776  1 

30006  1 

06,2600 

44355  1 

00006  1 

0 20 1 1 0 

64736  1 

C : 

17142  0 

44755  0 

54050  0 

54051  1 

06,  i620 

C3014  1 

12225  1 

00006  1 

12643  0 

06,2630 

C: 

17142  D 

42777  0 

70074  0 

56074  1 

06, 264C 

05600  1 

C:  00214  0 

12225  1 

34752  0 

06,2650 

10000  0 

34742  l 

57277  1 

73004  1 

>6  ,2660 

10000  0 

12432  1 

31277  1 

7 3000  0 

0 6,  26  70 

12432  1 

10000  0 

12432  1 

35603  1 

C: 

.'6,2700 

I 

C:  0 1 10  6 

12432  1 

34761  C 

6,  2 710 

■ 1 

) 4 0 0 1 1 

40000  0 

75025  1 

0 6,  2720 

10000  0 

C0002  0 

44753  0 

00005  1 

06  ,2730 

05745  1 

34753  1 

00006  l 

05011  1 

06, 2740 

34763  1 

00006  1 

05012  1 

41035  1 

05,2750 

27277  0 

41300  1 

74746  1 

27300  1 

0 6,2760 

12565  1 

C:  76430  1 

12622  1 

12650  1 

06,  2770 

10000  0 

24002  0 

00002  0 

C:  40013  1 

C: 
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IGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXFD  MEMORY 


'RETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


00036  1 

56070  0 

56071  1 
1 Oo3 A 1 


12434  1 
60000  1 
50070  0 
12441  0 


540 70  1 
12421  3 
34737  C 
12465  0 


233gG  G 

64753  1 
71300  1 
12441  0 


34674  3 
34755  1 
34746  0 


00006  1 

17  111  0 
61035  0 
71277  0 


62462  0 
36254  1 
74746  1 
10000  0 


33336  1 
15301  1 


72162  1 
74733  0 
12225  l 
71277  0 


00006  1 
00207  1 
00102  1 
03012  1 


00006  1 
54052  1 
41300  1 
40000  0 


27035  1 
54071  0 
G 27 66  1 
13000  0 


02012  0 
12225  1 
10000  0 
44745  1 


31011  0 
54047  0 
74746  1 
74744  0 


1530  1 1 
11277  0 
12225  1 
12225  1 


00006  1 
41277  0 
12361  3 
70101  0 

02743  0 

43001  1 
27300  1 
10000  3 


02766  1 
12525  0 
44750  0 
34736  1 


12551  0 
74745  1 
43032  1 
54101  0 

04674  0 
00006  1 
04674  0 
12225  1 


71277  0 10000  0 12225  1 

27277  0 02703  1 41277  0 

10000  0 12432  1 05600  1 C: 

01105  1 12432  1 10000  0 


12556  1 
74753  0 
00212  0 
12432  1 


71277  0 
10000  0 
0 30  1 1 1 
00066  1 


030C6  1 
12726  1 
50002  0 
43  003  C 


74742  0 
34753  1 
00006  1 
00006  1 


31277  1 
71300  1 
22066  1 
0 3012  1 


72773  1 
00002  0 

12671  1 
00054  0 


12676  0 
00075  0 


41277  0 
12703  0 
41300  1 
00272  C 


72775  l 
12703  0 
74753  0 
00300  1 
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^'6,300' 

C: 

01720 

0 

C: 

CC740 

1 

C : 

77000 

1 

C : 

40040 

1 

C: 

76777 

1 

C: 

21  450 

0 

30  110 

1 

00006 

1 

0 6 , 3 0 1 0 

C 60  33 

1 

74752 

1 

00006 

1 

13037 

1 

22110 

1 

00006 

1 

06001 

0 

73033 

0 

06,  30  20 

54  1 10 

0 

74752 

1 

10000 

0 

13C34 

1 

37676 

1 

26110 

0 

34753 

1 

05214 

0 

. 

C: 

0 2053 

0 

C: 

52107 

0 

1312fc 

0 

C : 

05776 

1 

44752 

1 

00006 

1 

0 30  12 

1 

30110 

1 

06,3040 

00006 

1 

06030 

1 

74745 

1 

00006 

1 

1 3071 

0 

34752 

0 

701 1 C 

0 

10000 

0 

• 

13126 

0 

34745 

0 

22110 

1 

00006 

1 

06001 

0 

54110 

0 

30110 

1 

74615 

0 

. 

10000 

0 

13f  70 

1 

40074 

0 

74745 

1 

10000 

0 

13070 

1 

05600 

1 

C: 

00515 

0 

>6,  3070 

04  564 

1 

30101 

1 

74750 

0 

10000 

0 

13126 

0 

40103 

l 

74747 

0 

10000 

0 

36,3100 

13  10  5 

1 

30  102 

1 

74744 

0 

10000 

0 

13126 

0 

33135 

0 

70  1 10 

0 

10000 

0 

06  ,31 10 

13126 

0 

04523 

1 

C: 

00035 

l 

13115 

0 

13126 

0 

34741 

1 

26110 

0 

43136 

1 

36,  3120 

C 0006 

1 

03012 

1 

34752 

0 

05214 

0 

C: 

02120 

0 

C: 

52107 

0 

30110 

1 

74752 

1 

36,31  30 

10000 

0 

13132 

0 

00006 

1 

05012 

1 

13140 

0 

C: 

32002 

1 

C: 

20002 

1 

C: 

02100 

1 

0 6,  31  AC 

30034 

o 

05033 

l 

55414 

0 

300  34 

0 5032 

54061 

. 

3003? 

05033 

1 

• 

554  17 

0 

414  17 

0 

00006 

1 

70061 

1 

55416 

1 

30  0 32 

0 

05032 

0 

5542C 

1 

06  ,3160 

00006 

1 

7006  1 

1 

55415 

l 

0 5 301 

0 

44755 

0 

00006 

1 

06032 

0 

74357 

0 

06,  2170 

54002 

1 

41273 

1 

70002 

1 

54001 

1 

40002 

1 

71273 

1 

26001 

1 

00006 

1 

3 6 ,320C 

15  30  1 

l 

00006 

1 

74745 

1 

56001 

0 

24001 

0 

60000 

1 

54000 

0 

132C4 

0 

06,3210 

50001 

0 

34743 

0 

54002 

1 

7 1273 

1 

10000 

0 

1 323  1 

0 

41257 

1 

50001 

0 

36,  3220 

73250 

1 

27257 

1 

41260 

0 

50001 

0 

73260 

1 

27260 

0 

30002 

0 

27273 

1 

. 

13  244 

1 

50  00  1 

0 

43250 

1 

71257 

1 

55257 

1 

50001 

0 

43260 

1 

71260 

0 

0 6,  32 AO 

55260 

0 

400  02 

1 

71273 

1 

55273 

1 

37727 

1 

05072 

1 

C : 

03555 

1 

C : 

42106 

D 

36, 3250 

15  30  1 

1 

C: 

00040 

0 

C : 

00020 

0 

C : 

00100 

0 

C: 

00200 

0 

C: 

000  1D 

0 

C: 

COCO  1 

0 

C: 

00004 

0 

06  ,3260 

C: 

00002 

0 

C: 

oooio 

b 

C: 

000  20 

0 

C: 

00004 

0 

C: 

00200 

0 

C : 

00001 

0 

C : 

00002 

0 

C: 

00040 

o 

36,  3270 

C : 

CC100 

0 

33537 

0 

56003 

1 

54163 

1 

11477 

0 

13300 

0 

13300 

c 

13361 

1 

. 

347^1 

0 

54132 

0 

50132 

1 

31453 

1 

00006 

1 

50132 

1 

70324 

0 

54002 

1 

0 6,  3310 

30001 

0 

000  C- 6 

1 

7 47  46 

1 

50132 

1 

54325 

1 

30002 

0 

00006 

1 

74746 

1 

36,  3320 

50132 

1 

20325 

l 

50132 

1 

41452 

1 

00006 

1 

7 1074 

1 

00006 

1 

74744 

0 

06  ,33  30 

50  132 

1 

2C  3 2 5 

1 

10132 

0 

67761 

0 

13301 

1 

13336 

0 

55477 

0 

54130 

1 

.'6,  3^40 

03364 

0 

41460 

0 

03462 

1 

0 340  1 

1 

41461 

1 

03462 

1 

03416 

1 

31462 

0 

>5,3350 

o 346  2 

l 

11477 

0 

13364 

1 

13361 

1 

35031 

0 

05072 

1 

C: 

C 35  15 

0 

C: 

14063 

1 

36,3360 

00003 

1 

30163 

0 

54003 

0 

14631 

0 

00006 

1 

22156 

0 

00OC6 

1 

40325 

1 

3 6,  33  70 

52  155 

l 

31  463 

l 

03433 

0 

00006 

1 

40327 

0 

52155 

1 

41466 

0 

03433 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  U 05  ^ WITH  PAPITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXEO  MEMORY 


ALL  VALIO  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


06, 392' 
>5,3630 


00156  0 
CO  TO 6 1 

i 

31665  1 


6032  7 0 
C3633  C 


52155  1 
52155  1 
ml56  0 


00006  1 
61667  1 
31670  0 
56156  1 


60327  0 
C3633  0 
03633  0 
00006  1 


5?1 55  1 
00156  0 
00006  1 
73156  0 


31666  0 03633  0 
000C6  1 22156  0 
60331  l 52155  1 
52123  0 30155  0 


06, 366C 

. 

06,3660 
6,  367C 


00006  1 
50130  0 
21672  0 
76  766  1 


70156  0 
21672  0 
0000 2 n 
50130  0 


56001  l 
30123  1 
00006  1 
21672  0 


36755  1 
00006  1 
22131  1 
30  155  0 


20123  C 
76763  1 
00006  1 
00006  1 


30122  0 
56001  1 
71076  1 
76766  1 


00006  1 
36755  1 
22155  0 
56001  1 


76763  1 
50130  0 
00006  1 
36755  1 


06, 35C0 

. 

J 6,  3520 
06,3530 


2167?  0 
73561  1 
OC006  1 
76766  0 


36752  0 60130  0 5613c  C 
10000  0 55677  0 00131  1 
76766  0 50130  0 55672  0 
50130  0 21672  0 1n13Q  1 


50000  1 
36751  0 
36755  1 
67761  0 


11671  0 
56130  1 
50130  0 
13516  1 


13511  C 
50130  0 
57671  1 


r'6,  3560 
>6,  3550 
06  ,?560 
C 6,  3570 


33537  0 06616  1 C:  17270  1 06616  1 C 17715  1 15155  1 36751  C 
50130  0 31672  l 00006  1 76766  0 50130  0 23672  1 10130  1 
13567  0 C:  77776  1 15155  1 11677  0 13567  1 13567  1 15155  1 
10C76  1 15155  1 15155  1 13576  0 30106  1 76766  C 56161  1 


56130  1 
67761  0 
00006  0 
00006  1 


) 5,3600 
1 <>,36  1 0 
0 6,  3620 
16,3630 


13603  0 C6676  0 C:  71  755  0 

66736  1 66736  l 56001  0 

55677  0 56130  1 10161  1 

03652  0 10  l6l  1 03601  1 


30025  0 
56C01  0 
03366  0 
00006  1 


57076  0 
P0006  1 

00006  1 
60125  0 


00003  1 
76762  0 
30  125  1 
52155  1 


60000  0 
52125  0 
52155  1 
31661  0 


61076  C 
36755  1 
61660  0 
03652  0 


•■6,  366  C 
>6,3650 
r> 6 ,3660 
06,  3670 


10161  l 
13516  1 
21672  0 
13502  1 


03616  1 
15155  1 

30002  0 
06616  1 


00006  l 
56002  0 
00006  1 


60 125  0 
56131  0 
70155  1 
11677  0 


52155  1 
30002  0 
56001  1 
13677  0 


61662  1 
00006  1 
36755  l 
13677  0 


C3652  0 
70  156  0 
50130  0 
15155  1 


11677  0 
50130  0 
21672  0 
30106  1 


J 5,3700 
0 6,  3710 
> 6,  T720 
06  ,3730 


76766  0.  56  16  1 

56003  1 56163 

55675  1 55676 

C:  0 1 760  0 I:  51136 


1 3773c  1.^ 

1 36755  1 

1 13361  1 C: 

1 C:  15736  1 f: 


57076  0 6000C  0 
55677  0 55671  0 
20000  0 C:  00000  1 
63215  0 C : 15726  1 


61236  0 
55672  0 
I:  53575  0 
C:  15726  l 


1361C  1 
55673  1 
77656  1 
C 2 2 66  1 


33537  0 
55676  0 
I : 72661  0 
I:  63616  1 


6,3760 
) 6,  3770 


C : 02675  1 
I:  53635  0 
C:  02675  0 
C:  0CC17  1 


53575 

00023 

57565 

77616 


0 

0 

l 

0 


C:  02316  0 
C : 26007  0 
C:  01716  1 
C : C 3772  0 


I:  77676  0 C:  00023  0 

C : 0 0 0 0 1 0 I : 76521  o 

C:  16017  1 C:  C1712  1 

C:  3773  1 CKSM  71106  1 


I:  53635  0 
C:  00007  0 
C : 16021  1 
SI 


C : 
C: 


C : 


26007 

S) 


0 

1 

0 


00015  0 
63616  1 
26C23  0 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  M 054,  Vs  I TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


7,  200n 

0000  4 

0 

11307 

0 

02004 

1 

02006 

0 

05653 

1 

C: 

20  10  5 

1 

36254 

1 

71043 

0 

0 7 , 2 o 1 0 

10000 

0 

120  44 

1 

34752 

0 

27043 

0 

1C40C 

1 

12  031 

0 

10454 

0 

12031 

G 

' 7,  2020 

10530 

0 

12  031 

0 

10604 

l 

12031 

0 

10660 

0 

12031 

0 

52134 

0 

05717 

0 

' 7 ,2030 

C: 

31207 

0 

64752 

0 

55307 

0 

34755 

1 

51307 

1 

53777 

0 

35025 

0 

05105 

0 

07,2040 

C : 

02  063 

0 

C: 

16067 

1 

00003 

1 

14631 

0 

52134 

0 

05717 

C 

C : 

3121  1 

1 

34755 

1 

0 7,  20  50 

57307 

1 

75004 

1 

10000 

0 

5000G 

1 

54000 

0 

3475  3 

1 

04674 

0 

C : 

17664 

0 

)7 ,2060 

34755 

1 

5504  3 

0 

06001 

0 

41307 

0 

74  74  0 

1 

2 73  07 

0 

32330 

Cl 

04616 

1 

07, 2070 

C : 

20334 

1 

12060 

1 

12074 

1 

12063 

1 

37756 

1 

70734 

G 

00006 

1 

74743 

1 

3 7,JBo 

55551 

0 

00CC6 

1 

62063 

0 

65661 

0 

00006 

1 

12107 

1 

12123 

1 

32331 

1 

0 7 , 2 1 i 0 

046  16 

1 

C: 

20334 

1 

1 20  60 

1 

12115 

1 

12107 

1 

00006 

1 

31345 

1 

50120 

1 

3 7,  2120 

5 2011 

0 

34755 

l 

12137 

1 

51551 

1 

31411 

1 

50  120 

1 

5401 1 

o 

51551 

1 

57,2130 

31403 

1 

50  120 

1 

54010 

1 

31405 

1 

00006 

1 

50  120 

1 

2001f 

l 

50120 

1 

07,  2140 

54012 

o 

0606  1 

o 

1 ; 

. 

73406 

. 

71525 

37,  2150 

I : 

74206 

0 

C: 

000  2 3 

0 

I : 

74325 

0 

: 

0 

C: 

00031 

0 

Is 

45445 

0 

C: 

63762 

1 

I : 

65361 

0 

07  ,2160 

C: 

000  31 

0 

I: 

5336  1 

0 

C: 

00023 

0 

is  77626 

0 

C : 

53754 

1 

C : 

24007 

0 

C: 

02715 

0 

I: 

77776 

1 

07,  2170 

12202 

1 

I : 

53133 

0 

C: 

00004 

0 

C:  16177 

1 

I.s 

52145 

0 

C: 

00031 

0 

C : 

32011 

0 

I : 

52175 

0 

) 7,2200 

C: 

03765 

0 

C: 

32042 

0 

34755 

1 

55551 

0 

55550 

1 

35004 

0 

7 1 30  7 

0 

55307 

0 

1 1 7 , 22  1C 

32613 

l 

046  16 

l 

C: 

20  345 

1 

120  60 

1 

12216 

1 

12063 

1 

41307 

n 

74740 

1 

0 7,  2220 

27307 

0 

75004 

l 

55551 

0 

34765 

1 

55552 

0 

31307 

1 

75015 

1 

54001 

1 

07,2230 

35015 

0 

00006 

1 

06001 

0 

00006 

1 

12241 

0 

11550 

1 

12240 

l 

12325 

0 

7, 2240 

55  5 50 

1 

34  74  0 

0 

27552 

0 

4 1550 

1 

00006 

1 

76254 

0 

41551 

0 

60  001 

0 

) 7 ,22SQ 

50  120 

1 

54046 

1 

30120 

1 

54  165 

1 

06061 

0 

I : 

756  14 

0 

C: 

043c  7 

1 

C: 

32000 

0 

0 7 ,2  2 60 

C: 

00002 

0 

C: 

24756 

0 

C: 

000  15 

0 

1:  77624 

1 

C : 

47671 

1 

I : 

76606 

o 

C : 

0000  1 

0 

C: 

24766 

o 

07,  2270 

C : 

00023 

0 

I : 

77624 

1 

C : 

47671 

1 

is  53435 

0 

Is 

77626 

0 

C: 

77746 

1 

I : 

63335 

1 

C : 

03553 

1 

7 . 

C: 

0003  1 

o 

I: 

70322 

o 

Ci 

0000  1 

o 

C:  14031 

C : 

ooooi 

j . 

55225 

1 

. 

16615 

1 

I; 

5 336  1 

o 

7, 2310 

C : 

02  715 

0 

C : 

ODOM 

0 

( : 

02715 

0 

C:  0 2767 

0 

1 : 

77776 

1 

11550 

l 

12240 

1 

34756 

1 

07,  2320 

00004 

0 

052  14 

0 

C : 

02C47 

0 

C:  16067 

1 

05503 

1 

0 5600 

1 

C: 

coin 

0 

1220  2 

1 

>7  ,2330 

C: 

00307 

0 

C: 

0 1627 

0 

54016 

1 

30033 

1 

54C63 

0 

30034 

0 

54064 

1 

30032 

o 

) 7, 2340 

54065 

0 

00006 

1 

3 002  5 

0 

52062 

1 

56002 

0 

540  12 

0 

34776 

0 

00006 

1 

17,2350 

0 20  16 

1 

00.0.0.6 

1 

62355 

0 

04635 

0 

C : 

46501 

1 

34  740 

0 

7 1307 

0 

10000 

0 

7,236 

05301 

0 

11307 

0 

12366 

1 

0 5600 

1 

C : 

00112 

0 

0530  1 

0 

34747 

1 

00006 

1 

020  16 

1 

1 0000 

0 

12453 

0 

34750 

1 

00006 

1 

0 20  16 

1 

10000 

0 

12414 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  H 055,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASK  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( IN  TERPR  F TI VF  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


j 7,  24  G< 
37,2*10 
07,  2420 
3 7,2430 


3475  1 
34755 
C 2 506 
00006 


00CC6  I 
540  70  1 
12513  0 
62446  0 


02016  1 
34742  1 
34736  1 
25550  0 


10000  0 

12417  0 
71307  0 
47723  1 


12410  1 
34753  1 
0000 A 1 
71307  0 


05600  1 
54070  1 
12436  0 
55307  0 


C:  00113  1 
34741  1 
41550  1 
31551  1 


0 5301 
55551 
64751 
7 13C  7 


17,2440 
D 7,  24  50 
) 7,2460 
0 7,  2470 


lonoo  n 
025C6  0 
12464  1 
74737  1 


12443  l 
12621  1 
05600  1 
10000  0 


12520  0 
C 530 1 C 

C:  00115  1 
12477  0 


05600  1 
02505  0 
05301  0 
41551  0 


C : 00114  0 
12501  0 
44355  1 
71307  n 


05301  0 
350 15  0 
71307  0 
55307  0 


C5600  1 
71307  0 
64737  0 
12571  1 


C:  00107  1 
10000  0 
57307  1 
45015  1 


07,2500 
>7  ,2510 
0 7,2520 
3 7,25  31 


12474  < 
13000 
35004 
76754 


11550  l 
24002  0 
71307  0 
56  00  1 f. 


12504  0 
03002  0 
54071  0 
60C  7 1 1 


12461  1 
34755  1 
306  1 

260  70  1 


55550  1 
54070  1 
30062  0 
55552  0 


35301  0 
41307  0 
53562  0 
33363  1 


40  10  4 0 
75015  1 
31550  C 
5007c  o 


74744  0 
27337  3 
00006  1 
54000  0 


7,7540 
3 7,  7550 
07  ,2560 
<7,2  570 

1 7,2600 
7,26  1, 

3 7,  26  20 

) 7 , 2 6 3 0 


30064  0 
34737  0 
35015  3 
12571  1 

C:  0260  3 0 
C:  1 5 507  1 
■ : ! 1 7 

10030  3 


50070  0 
61551  i 
( > 
35015  0 

16C67  1 
15337  1 

3262  0 1 
12637  0 


54002  1 
40000  0 
6>'t  1 ' 
71307  0 

05301  0 
C:  15107  0 
04616  1 
12621  1 


30065  1 
71307  0 
10000  0 
33006  1 

02506  C 
C:  15507  1 
C:  20334  1 
44736  C 


50070  0 
61551  1 
12571  1 
74746  1 

12621  1 
04000  f 
12060  1 
71307  0 


54004  1 
55307  0 
41307  0 
55552  0 

51552  1 
C : 00000  1 
12633  1 
64736  1 


02506  0 
75015  1 
74736  0 
35025  0 

32610  1 

00034  0 
34746  0 
55307  3 


12576  0 
54001  1 
27337  0 
05072  1 

02211  1 
C:  01507  1 
70154  0 
31235  1 


C 7,  2640 
3 7, 2650 
7,2660 
3 7,  2670 


51552  1 
12216  1 
12205  3 
13656  0 


543C  1 1 
31550  0 
00004  0 
03652  0 


21236  1 
64753  1 
41035  1 
41300  1 


51552  1 
40000  0 
74771  0 
74773  1 


54003  0 
64756  1 
10000  0 
27300  1 


41307  0 
03306  1 
12671  1 
41277  0 


74736  0 
62446  0 
056C0  1 
75752  0 


00006 
25550 
C:  03236 
27277 


3 7,2700 
7,2710 
: 7,  27  20 
07,2730 


44771  0 
34746  0 
C5600  1 
030 12  1 


00006  1 
05214 

C : 11 

34741  1 


03012  1 
C:  02724  1 
00 003  1 
05235  0 


03233 

16103 
14631  ' 
0364C 


3 4747  1 
41277  0 
03643  3 
45752  0 


03336  1 

74743  1 
05470  1 
71277  0 


0 50  12  1 
100C0  0 
44747  0 
55277  3 


05470  1 
12722  0 
00006  1 
44773  1 


7,  2 74C 
3 7,2750 
37,2760 
3 7,  2770 


71  3CC 
36254 
05012 
000C6 


55300  1 
05214  0 
34752  0 
74737  1 


04674  0 
C:  02755  1 
55474  0 
56001  0 


C:  14703  0 
C:  16103  1 
51474  1 
60003  1 


00004  0 
33640  3 
00006  1 
12777  0 


03652  0 
34746  0 
51474  1 
260C1  1 


03111  0 
000G6  1 
20032  1 
51474  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 056,  H Ti  l PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  1 

BASIC  INSTRUCTIONS 

EXCEPT  THOS  E 

MARK  ED  " I" 

( INTERPRETIVE 

OPFP 

A TOR  WORDS) 

OR  «C 

" (CONSTANTS) 

7 innn 

54061 

1 

34752 

07  ,«0 

55474 

3 

5 1474 

1 

11471 

0 

03017 

1 

03026 

0 

C3  06^ 

0 

03026 

3 

63744 

0 

0 7,  3020 

00006 

l 

63  C 74 

1 

51474 

1 

55471 

3 

4 374  5 

0 

24061 

0 

64754 

0 

51474 

1 

0 7,3330 

540  50 

0 

11474 

0 

C3010 

0 

10061 

1 

13100 

1 

05232 

1 

C: 

00226 

1 

34752 

0 

07 ,30  40 

54061 

1 

50030 

1 

30032 

0 

00006 

l 

5CC61 

0 

20321 

0 

10000 

0 

13055 

0 

7,  30  50 

13052 

1 

13C55 

0 

10061 

1 

13040 

1 

13613 

1 

63063 

1 

00006 

1 

63052 

0 

7,3360 

05600 

1 C: 

0021  1 

0 

13636 

0 

C : 

7751  1 

1 

63  744 

0 

33036 

1 

63074 

1 

43333 

0 

7,  307C 

51474 

1 

55471 

0 

33745 

1 

33025 

0 

34755 

1 

51474 

1 

57471 

1 

03025 

0 

37,3100 

37752 

0 

00C06 

1 

05014 

1 

33746 

1 

13004 

1 

34746 

0 

00006 

1 

0 5012 

1 

:•  7 , 3 1 1 o 

05272 

3 

34750 

1 

00006 

l 

02012 

0 

10000 

0 

00002 

0 

44746 

1 

30006 

1 

-'7,  3120 

03012 

1 

44742 

0 

00006 

1 

3 3014 

1 

44755 

0 

54047 

0 

34750 

1 

00006 

1 

3 7,31 30 

0 50  1 2 

1 

41035 

1 

73154 

0 

27035 

1 

41300 

1 

74746 

1 

27  300 

1 

41277 

0 

07,  314^ 

74750 

o 

27277 

0 

44  7 47 

0 

70075 

, 

540  76 

1 

44735 

0 

70076 

l 

54076 

1 

W,  31  50 

44737 

i 

7(Jt  77 

0 

54077 

0 

0000? 

0 

C: 

403  13 

1 

0 3 004 

0 

03652 

0 

4 3 743 

0 

7,3160 

00006 

i 

0 3d  1 2 

1 

44746 

1 

71300 

1 

55300 

1 

03233 

0 

34742 

1 

35214 

0 

07,3170  C: 

03201 

1 C: 

161  03 

1 

35000 

1 

35214 

o 

C: 

03177 

o 

C:  16103 

1 

12  722 

o 

03640 

o 

37,3200 

13613 

1 

03645 

0 

15272 

1 

34  750 

1 

00006 

1 

32012 

0 

10000 

0 

15272 

1 

r 7 ,3210 

41277 

0 

74737 

1 

27277 

0 

44750 

0 

71277 

0 

552  77 

o 

04674 

o 

C : 

14703 

o 

3 7,  3220 

15272 

1 

03645 

0 

15272 

1 

41277 

0 

74742 

0 

27  277 

0 

4130C 

1 

74737 

1 

3 7,3230 

27  300 

1 

44747 

0 

13214 

1 

43154 

0 

71035 

1 

64735 

1 

55035 

1 

33032 

0 

■>  7,  3240 

44755 

0 

54037 

1 

54040 

1 

54041 

0 

0 3645 

0 

14631 

0 

C0004 

0 

44753 

0 

17, 3250 

71277 

0 

55277 

0 

04674 

0 

C : 

14703 

0 

12722 

0 

33034 

3 

41277 

0 

74753 

0 

07,3260 

27277 

3 

74742 

0 

13000 

0 

12722 

0 

05600 

1 

C:  00212 

0 

00004 

o 

13252 

o 

3 7,  3270 

54161 

0 

03652 

0 

’ 1 11 

1 

33334 

0 

541  56 

1 

3474  6 

0 

00006 

l 

05014 

1 

3 7,330 

34751 

0 

05214 

0 

C : 0 3352 

o 

C : 

1 6103 

1 

30l6l 

1 

56003 

1 

56  16  1 

1 

5531  1 

1 

7,3310 

74357 

0 

5 4361 

1 

34752 

0 

54157 

0 

60000 

1 

60061 

0 

54160 

1 

00006 

1 

3 7,  3320 

50000 

1 

31401 

0 

521  55 

1 

07271 

1 

52155 

1 

50  160 

0 

53401 

1 

10157 

0 

.(7  ,3330 

13313 

1 

30  16  1 

1 

54003 

0 

12722 

0 

00006 

1 

30134 

1 

52155 

1 

3335  1 

0 

07,  3340 

15133 

1 

11311 

1 

1 3337 

1 

54156 

1 

00006 

1 

30155 

0 

52134 

0 

34753 

1 

17,3350 

13  30  l 

l.  C: 

17341 

1 

436  10 

1 

00006 

1 

C3014 

1 

33526 

0 

31311 

0 

00006 

1 

>7 , 336C 

74750 

0 

50330 

1 

13363 

0 

0 340C 

0 

C : 

00202 

1 

6341.  „ 

0 

C : 

0C3C2 

0 

03376 

0 

3 7,  3370  C: 

ooioo 

0 

B4755 

1 

55  311 

1 

33351 

0 

05137 

1 

13177 

1 

44751 

1 

27311 

1 
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ALL  VALID  WORDS  ARE  RASIC  INSTRUCTION  EXCEPT  THOSE  MARKED"!" 


( INTERPRFTIVE  OPERATOR  WORDS) 


7,  340 

' 7 ,3a  In 

7, 34?0 
1 7 , 34 30 


5C002  ) 
5 4 "i  6 1 1 

10370  1 
13356  0 


30000  1 

44757  1 
13434  n 
63465  C 


54064  1 
70064  1 
13424  1 
00006  1 


74757  1 
54064  1 
13571  0 
63356  1 


64737  0 
C0006  1 
100  71  0 
00006  1 


27  311  1 
50061  0 
13431  C 
33612  1 


54003  0 
31401  3 
13356  0 
2007  1 0 


7,3440 

00006  1 

05014  1 

36  106  0 

J 7,  34  50 

30C7O  0 

00006  L 

74743  1 

) 7,3460 

00006  1 

30C7  1 1 

67761  0 

' 7,  34  7C 

26062  1 

34755  1 

50061  0 

) 7, 3500 

00006  1 

74742  0 

66257  1 

7,35  10 

34752  0 

54047  0 

34742  1 

0 7,  352C 

03C14  1 

C3510  0 

34753  1 

) 7 ,3530 

0 35  1C  0 

15272  1 

50061  0 

07,  3540 

74  742  0 

67757  0 

05214  0 

1 7,  3550 

54CC3  0 

74357  0 

54061  1 

07  ,3560 

13476  D 

50061  0 

55400  0 

0 7,  35  7C 

63356  1 

00006  1 

43612  0 

•'7, 3600 

40070  1 

54C70  1 

40071  0 

7 , 36  1 C 

C : 01  700  1 

C : 00  C 0 0 1 

C:  000  34  0 

0 7,  36  20 

13664  1 

3475Q  1 

00006  1 

) 7,3630 

10000  D 

00002  0 

34755  1 

70071  0 56071  1 00006  1 74744  C 
54P7C  1 3D001  0 00006  1 74736  0 
10000  0 13532  1 C:  77601  0 1347?  1 
53401  1 30062  0 54C47  0 03621  1 


05214  0 C:  03516  0 C:  1S103  1 03512  1 
00006  1 05014  1 00002  0 44743  1 
35204  1 C:  03352  C 34743  0 00006  1 
53401  1 34736  1 53062  0 54047  0 


03546  0 C:  16103  1 13506  0 C3621  1 
50061  0 11403  0 13561  1 34736  1 
34736  1 26047  0 13537  1 63465  0 
20071  0 30064  0 64743  0 00006  1 


76106  1 40000  0 56071  1 40000  0 
00006  1 00011  1 74753  0 10000  0 
02012  0 10030  0 13632  1 41277  0 
55311  1 33351  0 05137  1 34755  1 


7,  36 4 C 
37, 3650 
'7,3660 
3 7, 3670 


1 7,3700 
7, 3710 
' 7,  3720 
) 7 ,373 0 


34  746  0 
2400  ? 0 
12722  0 
11301  0 


05137  1 
1^27?  1 
50000  L 
IDO  or,  0 


71277  0 
C0CO2  0 

54C71  0 

13675  1 


40C72  0 
34753  1 
11301  0 
13740  0 


10000  0 
41277  0 
44755  0 
13705  1 


50064  0 
0 37  16  l 
13740  0 
24133  0 


13636  C 
74745  1 
13666  0 

00006  1 


26164  0 
34  75  2 0 
13734  0 
13725  0 


00002  0 
10000  0 
54C71  0 
13706  1 


152  72  1 
13716  0 
13730  1 
04645  1 


41277  0 
DDOO  2 0 
44753  D 
34755  1 


30072  1 
34755  1 
50071  1 
50071  1 


74746  1 
44755  C 
54072  0 
50071  1 

50071  1 
C0004  0 
55301  0 
55301  0 


>7,  3740 
3 7,3750 
'7 ,3760 
D 7,  3770 


52134 

00006 

27305 

03775 


C5717  0 
13753  1 
30  167  1 
C : 03771  0 


C: 

CKSM 


00030 

00006 

55306 

67560 


1 

1 

1 

0 


33770  1 
a 


77477  0 C : 00074  1 
53305  1 30006  1 
54003  0 C4635  C 

a a 
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74357  0 
52071  0 
13566  0 
30064  0 


54062  1 
26062  1 
34736  1 
30047  1 

15272  1 
00006  1 
05014  1 
00006  1 


31311  0 
26047  0 
00006  1 
05014  1 


13445  0 
13636  0 
74746  1 
13661  1 


10000  0 
5530  1 C 
50071  1 
57301  1 


5530  1 0 
54071  0 

12722  0 

15133  1 


31304  1 
74757  1 
C:  44004  0 

a 
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SAP  : 

OCTAL  LISTING  FOR  PARAGRAPH  U 060,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WOPD,  "51"  DENOTES  UNUSED  F I X FD  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCT  IONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


i . 

I: 

77160 

0 

C : 

0000  2 

0 

C : 

00000 

1 

I : 77614 

1 

C: 

04343 

1 

C: 

200  11 

0 

I:  7716C  0 

C : 

00012 

1 

' , ■ 

C: 

00:02 

0 

I: 

66  14  3 

1 

C: 

icon 

0 

C:  02776 

0 

C : 

22310 

0 

C : 

100C3 

0 

I:  54214  1 

C: 

34343 

1 

10, 2020 

C : 

20  322 

0 

C : 

20607 

1 

C: 

02312 

0 

I:  43134 

0 

C: 

02777 

1 

C : 

01271 

1 

I : 77650  1 

C : 

73523 

1 

13,203 

I: 

77776 

1 

0*616 

1 

r. : 

20036 

0 

06051 

0 

I : 

77616 

0 

C : 

02664 

1 

32035  0 

54142 

1 

I , 

56003 

1 

56142 

0 

74357 

0 

65007 

0 

54141 

1 

00006 

1 

30744  0 

52155 

1 

10,  2050 

C7  L 1 5 

0 

C : 

00745 

1 

52155 

1 

2 0001 

1 

50141 

0 

5200  1 

1 

00006  1 

30740 

1 

1 3 ,2060 

50141 

D 

5 200  1 

0 

00006 

1 

40736 

1 

52155 

1 

37121 

1 

52155  1 

2303  1 

1 

10,  2 0 7 C 

50141 

0 

520(5 

0 

0 0006 

1 

40742 

1 

52155 

1 

07121 

1 

52155  1 

20001 

1 

13,2100 

52160 

1 

00006 

1 

40742 

1 

52155 

1 

07115 

0 

C: 

03737 

1 

000C6  1 

40  155 

1 

, 1 1 

52162 

3 

07115 

0 

C: 

00735 

0 

52155 

1 

20001 

1 

20001 

1 

52162  3 

52155 

1 

10 » 2120 

C 7 1 1 5 

0 

C : 

0C743 

1 

52155 

1 

20001 

1 

20001 

1 

52131 

0 

00006  1 

30744 

0 

13,2130 

52  155 

l 

07115 

0 

C : 

00747 

0 

52155 

1 

20001 

1 

23162 

0 

00006  1 

30  73  6 

0 

lr, 2 1 AO 

52  l 55 

1 

07121 

1 

52  155 

20001 

1 

20131 

0 

52131 

( 

52155  1 

10,  21  50 

3 C 15  5 

0 

50141 

0 

52015 

1 

00006 

1 

30163 

0 

50  141 

0 

52017  0 

00006 

00006 

1 

. 

30162 

1 

50  14  1 

0 

52021 

0 

30141 

0 

54116 

0 

00006 

1 

30006  1 

6475  1 

0 

1C, 21  70 

52165 

1 

34744 

1 

54023 

1 

17472 

0 

52155 

1 

20001 

1 

50141  0 

52007 

1 

1 . 1 

52160 

1 

2000 1 

l 

50  1 4 1 

0 

52011 

0 

52162 

0 

2333  1 

1 

50141  0 

52013 

1 

10,2210 

30142 

0 

54003 

0 

14631 

0 

00004 

0 

52071 

0 

34355 

0 

05072  1 

C: 

03574 

1 

10, 2220 

C: 

60102 

1 

52C7) 

0 

00003 

1 

52006 

0 

22073 

0 

33065 

1 

74757  1 

60000 

1 

1 . 1 

5406  1 

1 

3006  5 

1 

7 5G  30 

0 

00006 

1 

74740 

1 

54062 

1 

30065  1 

74101 

1 

10,2240 

56065 

1 

7 5 r 2 4 

0 

10000 

0 

15401 

0 

30062 

0 

50061 

0 

54750  1 

10066 

0 

n,  2250 

12  2 6 4 

1 

1225  2 

1 

40072 

0 

22072 

1 

50071 

1 

5275  3 

1 

10066  0 

12260 

0 

1 0 ,2260 

12264 

1 

4002  5 

1 

5307  1 

1 

550  50 

1 

10065 

c 

12300 

1 

12303  1 

400  25 

1 

10, 2270 

50061 

0 

55050 

1 

30065 

1 

62276 

0 

10000 

0 

12276 

1 

C : 17777  0 

12303 

1 

l , 

00006 

1 

3G02  5 

0 

53  151 

1 

40062 

1 

50061 

0 

54747 

1 

30002  0 

22073 

0 

10 ,2310 

00003 

1 

52006 

0 

22073 

0 

30062 

0 

5C061 

0 

54750 

1 

3CC7C  0 

50061 

0 

1 , 2320 

5 5051 

0 

COOC6 

l 

30064 

0 

50061 

0 

53435 

0 

12247 

0 

05505  1 

13403 

1 

1 0 , 2 3 3 0 

54  155 

1 

347  35 

1 

12501 

0 

34755 

1 

54155 

1 

33032 

0 

12501  0 

54155 

1 

1 , 34 

33502 

0 

12501 

0 

54155 

1 

33467 

1 

12501 

0 

54155 

1 

33470  1 

12501 

0 

! • 

54  155 

1 

3 4 7 3 5 

1 

12454 

1 

' 

1 

33Q32 

0 

12640 

0 

54155  1 

3 3502 

0 

1 c ,2  3 60 

12  640 

0 

65023 

0 

54155 

1 

33467 

1 

1 2 6 4 C 

0 

34753 

1 

02736  1 

30100 

0 

1 , ' <7, 

735C3 

0 

10000 

0 

12430 

0 

30100 

0 

74743 

1 

00006 

1 

12400  0 

15155 

1 
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ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTER 


1  >,  2400 
1 ",2*1  r. 
10,  2420 
I T f 2430 


00  004  0 

1 ■ 

50164  1 
30  100  0 


12414  r 
33513  0 
7T2S5  I 


54162  0 
10000  0 


64753  1 
5437C  1 
50164  1 

13436  1 


10 ,24 4 
1 , 24  5C 
1 3 ,246C 
l ),  247< 


12535  1 30370  0 
24746  0 12501  0 
54155  1 33466  0 
12501  0 54155  1 


74144  0 
54155  1 
12501  0 
34736  1 


13121  1 
34755  1 
54155  1 
12454  1 


1 r ,2510 
1 ',  2520 
1 3 ,2530 


l ^ » 2 5 40 
1 >,  2550 
1 ,2  560 

1 0»  2 5 70 


l , 26  lr 

10,  2620 
10 ,2fi30 


73524  0 
12775  l 


03206  r 
Ill'll  1 
12562  0 
10000  0 


02737  0 
12  755  0 
13C71  0 
12501  0 


54  160  l 
33505  1 
10000  0 
3C1O0  0 


05137  1 
54163  1 
12365  1 
126G0  1 


3016  3 0 
12513  0 
54155  1 
54155  1 


02  72  3 0 
1250  l 0 
12576  0 
73522  0 


03223  l 
37733  1 
34752  0 
30100  0 


00006  1 
12755  0 
37746  0 
33463  0 


00003  1 

34755  1 
30  100  0 
' - 1 


30025  0 
05146  1 
54164  C 
73475  0 


4007  1 
03206  0 
12501  0 
12501  0 


10,2640 
1 1, 2650 
1 - ,2  66  6. 
1 ',  2670 


54160  1 
74750  " 
30006  1 
30156  0 


00006  1 
50064  0 


00004  0 
12660  1 
04007  1 
52156  1 


54C72  0 
30063  1 
54001  1 

30006  1 


1”, 271 C 
10,  2720 
1 / ,2-?Tr 


5416  1 0 0 27  30  1 

12640  0 54  155  1 

54155  1 33465  C 

22002  7 04645  1 


00003  1 14640  0 
33463  0 1264C  0 
00002  0 00004  0 
54157  0 60072  1 


1 ) ,27  50 
l-i,27  6( 
1 , 277< 


30160  0 50164  1 

54372  0 30155  0 

: 

05137  1 03223  1 


73512  0 
54367  1 
60  164  1 
33472  0 
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IGHT  OF  EACH  WORD,  "3"  OENOT  ES  UNUSED  FIXED  MEMORY 


IETI  VE 

OPERATOR  WORDS)  OR 

"C»  ( C CAST  ANTS) 

5410C 

1 

0000  3 

1 

4 1 G 7 0 0 

74747 

G 

34753 

1 

12617 

1 

30165  0 

54156 

1 

31067 

1 

54160 

1 

54C03  0 

00002 

0 

40100 

1 

7475  1 

1 

00004  0 

26100 

1 

54155 

1 

34755 

1 

12501  0 

54155 

1 

54160 

1 

34755 

1 

12642  1 

34755 

1 

33466 

0 

12640 

0 

54155  1 

34736 

1 

54155 

1 

33525 

0 

12501  0 

54155 

1 

12547 

1 

54155 

1 

335C5  1 

12640 

0 

54164 

0 

03356 

1 

12523  0 

30130 

0 

7 5643 

1 

0000  6 

1 

12531  0 

34755 

1 

1 2 5 3 7 

0 

34753 

1 

12775  1 

02735 

1 

55164 

34  75  5 

1 

12617  1 

30167 

J 

30160 

0 

7 3 504 

1 

1000G  0 

12513 

0 

C 3356 

1 

12600 

1 

41071  1 

74750 

0 

00006 

1 

12600 

1 

05635  l 

C : 

31502 

1 

54366 

0 

33100 

0 

73476  0 

10000 

0 

05137 

r 322  3 

1 

3 4 7 5 2 0 

54164 

55044 

1 

33460 

0 

54155  1 

33457 

1 

02716 

0 

12501 

0 

54155  1 

34750 

1 

30167 

l 

77737 

1 

54063  0 

3U160 

0 

05072 

1 

C:  02547 

0 

C:  20067  1 

1 2666 

1 

33521 

1 

G5116 

1 

02723  0 

00006 

1 

301  60 

0 

50064 

0 

52160  1 

30064 

0 

1 

. 

33457 

1 

02716 

0 

12640 

0 

55143  1 

3 3464 

1 

43474 

1 

70  160 

1 

60003  1 

54  16C 

1 

00001  C 34755  1 54164  0 00004  0 


00006  1 

12751  1 

30 1 57  1 

50164  1 

13232  0 

50154  1 

33513  0 

72761  1 

54154  0 

50154  1 

33472  0 

00004  0 

15133  1 

54154  0 

03206  0 

05137  1 
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OCTAL  LISTING 

FOR  PARAGRAPH  H 062,  MTU  PARITY  BIT 

IN  BINARY  AT  THE 

RIGHT  OF  EACH 

WORD, 

it" 

DENOTFS  UNUSED  FIXED  MEMORY 

ALL  VALID 

WORDS  ARE  1 

5ASIC 

INSTRUCT  IONS 

FXCEPT  THOSE 

MARKED"!"  (INTERPRETIVE  OPERATOR  WORDS) 

OR  »C"  (CONSTANTS) 

10, 30 po 

3C15A 

1 

5006 A 0 

5A15A  0 

33016  0 

03224  0 

50  154 

1 

33514 

1 

73516 

1 

f 0 ,3,i1 1 

f ' 3 5 3 6 

1 

C:  7Ai  C A 0 

50 1 5A  1 

347  47  1 

64751  0 

03526 

0 

C:  02765 

1 

30  100 

0 

1C, 3020 

7A751 

l 

10000  0 

02400  1 

12537  0 

34755  1 

54160 

1 

50160 

0 

33506 

1 

. . 

6A751 

0 

03536  1 

C : 40010  1 

50  160  0 

33472  0 

00004 

0 

05  137 

1 

13331 

1 

10, 30 AO 

31071 

0 

54003  0 

30  366  1 

04727  1 

77737  1 

05146 

1 

46257 

0 

60374 

1 

- . 

14640 

0 

00003  1 

31072  0 

54156  1 

30100  0 

77752 

1 

10000 

0 

13062 

1 

1 0 » 3 06  C 

13453 

1 

12400  0 

05515  0 

C:  00105  0 

34736  1 

70100 

1 

10000 

0 

12545 

0 

1 , 

12616 

0 

02420  0 

30160  0 

74757  1 

54001  1 

44737 

1 

50164 

1 

71067 

0 

l 3 ,3100 

50  16  A 

1 

55067  0 

7A7AA  0 

54  14  1 1 

30156  0 

54165 

1 

55072 

1 

50  164 

1 

10,3110 

10  367 

1 

13120  0 

13234  0 

40370  1 

54370  1 

76106 

1 

63477 

0 

60141 

0 

10,  3120 

6 A 7 5 3 

1 

CA155  1 

132A6  0 

04433  1 

02416  0 

05527 

l 

C:  00102 

1 

05527 

1 

n ,31 30 

C: 

00103 

0 

05527  1 

C:  00104  1 

30 1 60  0 

04255  1 

13071 

0 

34747 

1 

70160 

1 

10,  31  AO 

10000 

0 

13164  0 

34750  l 

70160  1 

10000  0 

13261 

0 

40160 

1 

74746 

1 

1 . '•  I c 1 

10  000 

0 

13156  1 

501 64  1 

30372  1 

54157  0 

13347 

0 

50164 

1 

30  367 

0 

1 ? ,31  60 

76  106 

1 

00006  1 

1 3261  0 

15155  1 

30160  0 

74  73  7 

1 

10000 

0 

13142 

1 

10, 3170 

3A737 

0 

5016A  1 

27067  0 

22007  0 

00006  1 

62441 

1 

74740 

1 

00006 

1 

1 , 

13  20  A 

0 

4 1066  1 

63523  0 

13121  1 

33462  1 

13121 

1 

44747 

0 

00006 

1 

10 , 3210 

03011 

1 

3C100  0 

73500  0 

10000  0 

34753  1 

54001 

1 

34755 

1 

50001 

0 

10, 3220 

57CA1 

0 

C0004  0 

00002  0 

34217  1 

56064  0 

00006 

1 

63232 

1 

56064 

0 

10,3230 

5006A 

0 

54164  0 

00003  1 

00002  0 

37732  0 

05105 

0 

C:  04231 

0 C: 

04060 

0 

I T,  3240 

1 3 262 

0 

30100  0 

73267  0 

00006  1 

12576  0 

15155 

1 

11041 

1 

15155 

1 

1'  ,3^5^ 

13252 

0 

15155  1 

30162  1 

73501  1 

03526  0 C 

: 24100 

0 

50  164 

1 

33471 

0 

1 ',3260 

0 A A A 2 

1 

0AA27  1 

30  164  1 

54157  0 

30162  1 

7301 1 

0 

03526 

0 C: 

40040 

1 

10,  3270 

1 1 0 4 1 

1 

1 32 A 1 1 

1 3274  1 

13241  1 

04207  0 

13354 

1 

13373 

1 

43510 

1 

10,3300 

60  1 5 A 

1 

00006  1 

26000  0 

00006  1 

13443  C 

34752 

0 

54161 

0 

30100 

0 

l , 331  C 

7A1  01 

l 

10000  0 

13315  1 

13411  1 

13375  1 

40025 

1 

61164 

0 

1 0000 

0 

10,  3320 

AO  000 

0 

67 7 A 3 0 

6A753  1 

6355?  0 

00006  1 

62545 

1 

13a  1 1 

1 

34753 

1 

1 0 , 3 3 3 0 

1 3025 

1 

lO  16  1 0 

64  75  3 1 

13335  0 

15155  1 

50157 

1 

60372 

1 

54157 

0 

10 , 33  AO 

30162 

1 

733A3  1 

03536  1 

C:  74044  1 

46257  0 

04154 

0 

13347 

0 

30163 

0 

1 j ,3350 

777  37 

1 

0 51 A6  1 

30157  1 

14640  0 

34755  1 

13306 

0 

40  160 

1 

74736 

0 

10,3360 

10000 

0 

16751  0 

40  157  0 

50  164  1 

60372  1 

0C006 

1 

13370 

l 

00002 

0 

10, 3370 

11011 

l 

05155  0 

00002  0 

34753  1 

13306  0 

46254 

0 

70100 

1 

00004 

0 
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1 , 342< 

1 1,343c 


0 

o 


COCO 3 l 
30100  G 
3 1 071  0 
00004  0 


13331  1 37761  0 54161  0 
73506  0 10000  0 13024  0 
74771  0 10003  0 13331  1 
05072  1 C:  02616  1 C:  20060  0 


3 0 1 G 0 0 

30100  0 
30371  1 
13331  1 


74355  1 
73507  1 
OOOOfc  1 
30  100  0 


10000  0 
1 3 

13331  1 
73506  0 


10, 344C 
1 , 345C 
1 o ,3460 

1 , 34  7C 


10C00  0 
C 0006  1 
00  231  1 
40036  0 


C:  0 140  7 0 
C:  20543  1 


12755  0 
13051  1 

50157  1 
46257  0 

30367  0 
04154  0 

76106  1 
15155  1 

40000  0 
15155  1 

C : 

60155  0 
00036  1 
4023C  1 

14400  0 

C:  00030  1 

C : 01006  0 

C : CC014  1 

C:  200 1G  1 

C: 

20400  1 

C:  20616  1 

C:  03400  0 

C:  11210  1 

C : 66521  1 

C : 

01177  1 

1 '',3500 
I , 3 5 1 ( 

1 , 3520 
1 ,3530 


C:  00  700  0 
C:  00026  0 
C:  4C420  C 
54001  1 


C:  C 0 7 0 4 1 
C:  77730  0 
C:  02547  C 
40  100  1 


C : 40C 30  0 
C:  000  50  1 
C : 10200  1 
70001  1 


C:  3430C  0 
C:  20  144  1 
C:  3 0200  0 
26100  1 


C:  4 0100  1 
C:  42424  0 
C:  20100  1 
00003  1 


C:  00110  1 
C : 1 1254  1 
C:  240  30  1 
16751  0 


C:  0 20  2o  1 
C : 74704  1 
00004  0 
00004  0 


C:  OlOlO  1 
C:  67777  1 
75661  1 
75661  1 


10, 3540 
1 , 3550 
‘ , < 

1 ,3570 


40000  0 70100  1 
30  134  1 C56C7  0 
10154  0 34755  1 
C0006  1 74736  0 


54100  1 13534  1 

C : 77467  1 35006  1 

13565  0 13564  1 

20155  1 16073  1 


00004  0 54001  1 
12505  1 03006  1 
44736  0 54155  1 
07271  1 16073  1 


30133  0 55363  1 
30025  0 16067  1 
34755  1 56154  1 
03626  0 34755  1 


1 1 ,3600 

If ,3610 
l , 3620 
1 0 ,3  63  c 


541  55  1 
52155  1 

52160  1 
10000  3 


16C  7 2 0 
03626  0 
52155  1 
64753  1 


03626  0 
54155  1 
03626  0 
13634  1 


52162  0 52155  1 03626  3 54156  1 52160  1 
30161  1 54154  0 34753  1 16072  0 03626  C 
54001  1 30157  1 16067  1 52155  1 2000 1 1 
40000  0 54154  0 00002  0 50000  1 34734  0 


1 ,3640 

1 0 ,365! 
10,36  6f 
1 . 


26154  0 00002  0 54142  1 50133  0 10000  0 64753  1 
64753  1 40000  0 60U2  0 10000  0 64753  1 13657  1 
13664  1 50000  1 34734  0 60142  0 50130  0 54000  0 
30046  0 04616  1 C:  17270  1 16073  1 00006  1 34733  1 


13652  1 64753  1 
400C0  C 54142  1 
00002  0 50120  1 
52155  1 10000  0 


10,3700 
1 1,  3710 
1 . , 3720 
1 ,373c 


34755  1 .1607  1 0 

34755  1 60120  1 

13752  0 10157  0 

13752  3 301 550 


13703  1 
54156  1 
13752  0 
00006  1 


00006  1 44733  C 16067  1 
04616  1 C:  01010  1 10154  0 
13725  0 13752  0 10l6l  0 
74736  0 20155  1 30160  0 


34753  1 
13752  0 
13752  0 
00006  1 


13711  1 
13721  1 
13731  0 
74736  0 


1(  , 3740 
l 3 ,3  750 
l ,3760 
1 - , 3770 


2C16C  1 
04635  0 
C376C  O 


30162  1 
C:  010?4  0 
CKSM  55562  0 
a 


00006  1 
34755  1 

a 


74736  0 
13746  0 

a 

a 


20162  0 

046 1 6 1 

a 

a 


34761  0 
C:  01013  1 
a 
a 


50156  0 54045  1 

06073  C C:  03757  1 

a a 

a a 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


I 1,200 

I: 

776  1A 

1 

C:  C0A75 

1 

I : AA175 

1 

C : 

03444 

0 

C: 

03463 

0 

C: 

03472 

0 

Is 

77646 

0 

C : 

03723 

1 

I 1 ,2  0 1 0 

I : 

46  135 

1 

i : 

1 

C:  22026 

0 

1 : 

72575 

0 

C: 

C 2 3 1 4 

0 

C : 

26314 

0 

C : 

02322 

0 

is 

77752 

1 

1 1,  20  20 

C : 

26322 

0 

C:  03A72 

0 

I : 77752 

1 

C: 

3 347  2 

0 

I: 

77646 

0 

C: 

03723 

1 

I : 

71331 

0 

C : 

03617 

1 

1 ' . 

C: 

77776 

1 

I:  705A6 

1 

C:  17667 

0 

I : 

67154 

0 

e : 

00154 

1 

C: 

0270  1 

0 

I: 

77775 

1 

C: 

02314 

0 

1 1 ,2040 

C : 

26655 

0 

C:  03A72 

0 

C:  16663 

0 

C: 

03452 

1 

C: 

02671 

0 

I : 

77201 

1 

C : 

00001 

0 

C: 

02314 

0 

1 1,  20  50 

I: 

A 1 A 5 6 

0 

I : 53435 

0 

C : 02322 

0 

C: 

26674 

0 

C: 

03472 

0 

I: 

50256 

0 

I: 

43015 

1 

C : 

03667 

0 

1 1 ,2060 

C: 

0 3665 

1 

C:  03667 

0 

I:  A30AA 

0 

C: 

22105 

0 

C : 

03465 

0 

I : 

41575 

0 

C: 

02663 

0 

Is 

63246 

1 

11,2070 

I : 

A6206 

1 

C:  0267A 

0 

is  51352 

1 

I: 

74256 

0 

I: 

77772 

0 

C: 

02663 

0 

I : 

67351 

1 

C : 

24007 

0 

11  ,2100 

C: 

036  17 

1 

is  772AA 

c 

C : 22105 

0 

C : 

02663 

0 

C : 

03472 

0 

I : 

6 3 345 

0 

C: 

26007 

1 

C: 

02663 

0 

11  ,21  10 

I : 

63256 

0 

( : 

3 

is  41456 

0 

Is 

57435 

1 

C: 

00003 

I 

I : 

77606 

1 

I : 

7 1 350 

1 

C: 

02776 

0 

1 1,  21  20 

C : 

000  2 3 

0 

1 : 62  040 

1 

C : 2212A 

0 

C: 

77767 

1 

I: 

67310 

1 

C: 

000  12 

1 

C: 

00047 

1 

I : 

77230 

0 

1 1 ,21 30 

C: 

22  132 

1 

I : A 1 a 7 6 

1 

Is  77775 

1 

I : 

50235 

0 

I : 

71244 

0 

C : 

22137 

1 

I: 

41476 

1 

is 

67154 

0 

11,21  AO 

C : 

00000 

1 

C:  02672 

0 

l:  66350 

1 

C: 

02776 

0 

C: 

000  27 

1 

C s 

00024 

1 

I : 

77624 

1 

C : 

25212 

1 

1 1, 21 50 

I : 

77  2 1A 

0 

C:  00675 

0 

C:  02  7AA 

1 

C : 

16330 

0 

C: 

02702 

0 

I: 

45030 

0 

C: 

22233 

0 

C: 

27410 

1 

11  ,2160 

I : 

43135 

1 

1 

C:  00263 

0 

I : 

4 30  30 

0 

C : 

22166 

0 

C : 

00063 

1 

I : 

77775 

1 

C: 

02314 

0 

11,  2170 

C : 

02655 

0 

C:  25535 

0 

C:  02330 

0 

C: 

15543 

1 

C: 

03610 

0 

C : 

01517 

0 

I : 

43015 

1 

C : 

03452 

1 

1 1,2200 

C: 

01  673 

1 

C:  3aC  4 1 

0 

C : 27106 

0 

I : 

77775 

1 

C: 

00025 

0 

C.  : 

C 2 70  3 

1 

Is 

63154 

1 

C: 

03616 

0 

1 1,  22  1 C 

C : 

00001 

0 

I:  5513A 

1 

C:  03616 

0 

C: 

02701 

0 

I : 

46135 

I 

C : 

00050 

1 

C : 

222  30 

0 

I : 

52375 

1 

1 1,  2220 

C: 

C3A72 

0 

C : 00017 

1 

I : 77655 

1 

C: 

02663 

0 

C: 

16663 

0 

0: 

0 3667 

0 

IS 

7765C 

1 

C : 

22062 

0 

1 1 ,2230 

I : 

77775 

1 

C:  0 2663 

0 

C:  03472 

0 

I : 

52375 

1 

C : 

0233C 

0 

C : 

02322 

0 

C: 

26357 

1 

C: 

02703 

1 

1 l,  2 2 AO 

C : 

03566 

1 

I : A6135 

1 

C:  03000 

1 

C: 

22260 

0 

Is 

70575 

1 

C: 

03566 

1 

C : 

27566 

1 

C : 

02330 

0 

1 1 ,2250 

I-s 

7 7 7 A 2 

0 

C : 2633 0 

0 

C:  03472 

0 

I : 

77742 

0 

C: 

27472 

0 

C: 

0 2 357 

1 

I: 

77742 

c 

C: 

02357 

1 

11,22  6C 

I : 

7C750 

l 

C:  02776 

0 

C:  10003 

0 

I: 

4 1 20  6 

o 

C : 

02742 

1 

I : 

5634  2 

1 

C : 

C0041 

1 

C: 

17721 

0 

11,  2270 

I : 

77661 

0 

: 

l 

C : 03717 

0 

I : 

77201 

1 

C: 

09001 

0 

C: 

03472 

0 

C: 

03444 

0 

I : 

52014 

0 

1 1 , 2 1 1 C 

C: 

0 1267 

0 

C:  0 3A6  3 

0 

5 664  6 

0 

34757 

c 

C5235 

0 

00006 

1 

00031 

0 

40000 

0 

11, 2310 

72365 

1 

57547 

3 

6 4001 

1 

1 1647 

1 

1 2303 

1 

10001 

1 

12326 

0 

1 1646 

0 

1 1,  2320 

12  302 

0 

06022 

1 

34  740 

0 

00006 

1 

05013 

0 

15272 

1 

34737 

0 

00006 

1 

1 1 ,2330 

02031 

1 

000D6 

l 

12321 

1 

34742 

1 

00006 

1 

02030 

0 

10000 

0 

12321 

1 

1 1,  23  AO 

30001 

0 

74746 

1 

10000 

0 

44753 

0 

27645 

0 

3000  1 

0 

74747 

0 

10000 

0 

11, 

3 A 753 

1 

276  A 5 

0 

30001 

0 

74753 

c 

10000 

0 

44753 

0 

27644 

1 

3000  1 

0 

1 1, 2360 

7A752 

1 

100  30 

0 

3A753 

1 

2 7644 

1 

12321 

1 

C: 

00063 

1 

I : 

40354 

1 

C: 

02030 

0 

1 1,  237C 

C: 

OOOCl 

0 

I : 755A3 

1 

C:  51770 

0 

I : 

53515 

0 

C: 

01535 

0 

Is 

60325 

0 

C: 

00045 

0 

C : 

00047 

1 
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I:  777  15  1 
I : < r ' 7 1 
I : 4044  2 1 
C:  11236  O 


I:  65241  C 
C:  030  03  l 
I : 4 7515  0 
C ‘ 20176  0 


C : 01543  1 
I:  4 1405  0 
C : 01543  1 
I : 43260  1 


C:  02074  0 
C : 5 1 
I:  44205  0 
C:  0005C  1 


I : 60225  1 
I : 65316  0 
C:  00045  0 
I : 45257  C 


C:  01551  1 
C : C0005  1 
I:  41271  0 
C : 2021  1 1 


C:  00051  0 
I : 64716  0 
C:  00003  1 
I:  41205  0 


I:  77742  C 
C:  51770  0 
I : 53605  1 
C:  00001  0 


1 1, 2440 
1 l,  245C 
1 1 ,2460 
11,2470 

1 1 ,2500 
1 1,2510 
1 1,  2520 
1 1 ,2530 


C:  00005  1 
C:  2C202  0 
I:  74014  1 
C : I 

C:  01551  1 
C:  02030  0 
4(  l 
I:  53575  0 


I:  53657  0 
I : 4 3?  ‘ 4 0 
C:  00  3c  3 1 
C:  77762  1 

C:  16C74  0 
1 : 77775  1 
I : 65C14  1 
C:  02032  1 


C:  20  211  l 
C:  57735  1 
C:  24023  0 
I:  54345  l 

I : 77615  0 
C:  24007  0 
C : 01756  1 
C:  16032  1 


C:  20201  0 
I : 77626  0 
C:  00002  0 
C:  02076  1 

C : 01517  0 
C:  26062  1 
C:  22530  1 
C:  00045  0 


I:  65215  1 
C : 75 

I : 77650  1 
C:  20612  0 

C:  35517  1 
C:  C 20  32  1 
C:  01500  0 
C : 36070  0 


C:  01553  0 
I:  740  20  0 
C:  24023  0 
I:  61500  0 

C:  22365  1 
I : 53257  1 
C:  12123  1 
C:  22636  1 


I : 536C5  1 C : OOOC 1 0 

C:  02111  1 C : 00012  1 

I : 66350  1 C:  3 1530  0 

C : 22477  0 I : 43206  1 


I:  7 3150  1 
f : 57605  0 
I:  77724  0 
I:  66175  1 


C:  0 2o  3o 
C:  01535 
C:  01500 
C:  32040 


1 1,2540 
1 l,  25  5< 

1 ' . 1 ' 

1 1, 2570 

l 1 ,?600 
l 1, 2610 

1 1,  26  20 
1 1 ,2630 


r : bo  051  0 

I:  77624  l 
1 : 77076  3 
C:  11240  1 

I:  52257  0 
I : 621 75 
: t 1 

I:  77775  1 


C:  16032  1 
C:  33660  l 
C : 

I : 43  3 

C:  57  17  5 0 
C : 02134  0 
( ■ 21130 

: 


C:  02072  ? 
I : 72 1 74  0 
C:  02041  1 

C : 22575  0 

C:  02040  1 
C : 

C : 02113  0 
C:  36040  0 


C:  02073  1 
C : 00002  0 
C:  26104  0 
C:  3 1756  1 

I : 77724  0 
I:  43014  0 
I : 77624  1 
C:  22636  1 


I:  71214  r 
C : 0 0 

C:  00003  1 
C:  22610  0 

C : 015  00  0 
f:  04260  1 
C:  22636  1 
I : 77650  1 


C:  00342  1 
I:  776 14  1 
C : 02113  0 
I:  74375  0 

C : 12  131  1 
C:  00343  0 
I:  62174  1 
C:  23007  1 


C : 230C7  1 
f:  00343  0 
I : 45335  0 
C:  02032  1 

I:  77724  0 
C : 22623  0 
C:  00004 
I : 74575  0 


C : 01517  0 
C:  22562  0 
C:  01011  0 
C:  02070  1 

C:  0 1500  0 
1 : 53261  1 
C : 00004  0 
C:  02040  1 


1 1, 2640 
1 1 ,2650 
11,2660 
1 1,  2670 


I : 40236  1 
C:  0 20  40  1 
I : 77743  l 

C:  00003  1 


C : ( ' 

I:  77656  1 
C:  27731  1 

I : 


I : 61601  1 
C : 16040  1 
C:  00051  0 
C : 671 77  1 


C: 

C:  00045  0 
I:  57124  1 

C:  00050  1 


It  60325  0 
C:  02072  o 
C:  00050  1 
IS  74406  0 


C:  02070  1 
I : 5530  1 0 
C : 00040  0 
Is  50  315  0 


C : 00041  1 
C:  00042  1 
I : 71264  1 

C:  02032  1 


I : 63342  1 
I:  41562  C 
C:  00041  1 
C:  02040  1 


1 1 ,2  700 
LI,  " 

1 1,  2720 
1 1 ,2730 


I : 44  372  1 
: 

Is  56216  1 
T : 4 1455  3 


I:  57  20  6 1 
I : 43352  1 
C:  25760  1 
!:  41  345  0 


C:  00005  1 
C:  25766  1 
C : 00017  1 
C:  3300  1 0 


I:  77752  1 
I:  43325  1 
I : 74275  1 
C:  015  0 


I : 4 320  6 1 
C:  00013  C 
C:  30007  3 
I : 61501  1 


C-  : 2 5766  1 
C:  24005  1 
C:  02340  1 
C : 00037  0 


I : 75406  1 
I : 72475  1 
I:  64515  1 
I : 40665  3 


is  41475  1 
C : 00011  1 
C:  02032  1 
f:  30333  1 


1 1,  2740 
1 1,2750 
1 1, 2760 
11,  2770 


Is  53604 
: » " | 
I:  44206 


C:  57735  1 
I : 51575  1 
C : 01551  1 


I : 67124  1 
C:  57177  1 
C:  01521  0 
C : 16074  0 


?!  Sli  \ 

I:  77654  0 
C:  01517  0 


C:  00051  0 
C : 0005C  1 
C:  23004  1 
I:  45425  0 


I:  55064  0 
C : 02062  1 
is  54345  1 
C:  42260  0 


C:  00036  1 
C:  02062  1 
C:  C210C  l 
C:  22366  1 


C:  00037  0 
IS  434JC  1 
C : 20612  3 
I : 77624  1 
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l 1 ,3000 

C: 

27671 

1 

I : 

776  l A 

1 

C : 

04020 

1 

C : 

2 7 256 

0 

I : 

77776 

1 

05653 

1 

C: 

20  430 

1 

IS 

71354 

G 

1 1 ,3p1C 

C : 

020  30 

D 

C: 

0 23  7 0 

1 

I : 

AA60  1 

0 

C: 

0000  1 

0 

C: 

5C032 

0 

I : 

43044 

0 

C : 

23245 

0 

C: 

00343 

0 

1 1,  30  20 

C: 

2 3 2 5 A 

0 

1 : 

65375 

0 

C : 

02032 

1 

C: 

01517 

0 

is 

45125 

0 

C: 

25756 

1 

C: 

5 1 64  A 

0 

C : 

2401  7 

1 

C: 

2A001 

0 

I: 

4500  6 

0 

C: 

23262 

0 

I : 

77715 

1 

C : 

24005 

1 

I : 

45006 

0 

C : 

23262 

0 

T: 

77772 

0 

1 1, 3C40 

C : 

2A0A1 

1 

I : 

77772 

0 

C: 

1 A025 

0 

C: 

D0023 

0 

I : 

65275 

1 

C : 

25770 

0 

C : 

00023 

0 

I : 

57316 

1 

L 1,  3050 

C: 

25772 

1 

I : 

A1A25 

1 

C : 

2576A 

0 

I : 

41275 

1 

C: 

30323 

0 

C: 

11230 

0 

I: 

65372 

1 

C : 

0000 1 

0 

1 1 ,3  060 

I : 

AA275 

1 

C: 

11236 

0 

i: 

57206 

1 

C : 

00023 

0 

I : 

65275 

1 

C: 

11232 

1 

C : 

00003 

1 

I : 

44275 

1 

11, 3070 

C : 

1 123A 

1 

I : 

56203 

0 

C: 

51  764 

0 

C: 

9207C 

1 

IS 

56615 

0 

C: 

00005 

1 

C : 

5176C 

1 

I : 

43271 

1 

11,3100 

C: 

0 20  70 

1 

C: 

00003 

1 

I : 

77761 

1 

C: 

02032 

1 

C : 

14033 

1 

I : 

70403 

1 

C: 

5 1764 

0 

I: 

43271 

1 

11,3110 

C : 

C2070 

1 

I: 

50A73 

1 

C: 

5 1760 

1 

I: 

4327  1 

1 

C: 

02070 

1 

I : 

76561 

1 

C : 

00025 

0 

I : 

77645 

0 

11,  3120 

C: 

000  33 

1 

C : 

1A033 

1 

C : 

02070 

1 

I : 

63501 

0 

C: 

00047 

1 

I: 

60316 

0 

C: 

00051 

0 

1 : 

54606 

0 

1 1 ,3130 

C: 

5 1 7 5A 

D 

I: 

AO  "*6  1 

0 

C: 

00033 

1 

C : 

2313a 

0 

I : 

56070 

c 

C : 

00046 

0 

C: 

00046 

0 

Is 

53670 

0 

1 1, 31  AO 

C : 

000  50 

1 

C s 

201  53 

. 

41414 

11,3150 

C: 

00  347 

0 

C: 

232A5 

0 

I : 

65316 

0 

C : 

00021 

1 

I : 

45316 

1 

I : 

74205 

0 

C: 

27733 

0 

C: 

02032 

1 

1 1 ,31 60 

I : 

65332 

0 

I: 

53361 

0 

C: 

00041 

1 

Is 

47315 

0 

C : 

00041 

1 

C : 

00025 

0 

I : 

74372 

1 

C: 

00021 

1 

11,  3170 

I : 

A 1 A 5 5 

0 

I : 

777A5 

1 

C : 

00023 

0 

I : 

41516 

0 

I: 

65205  0 

C: 

27733 

0 

I : 

43302 

1 

C : 

00011 

1 

1 1 ,3200 

I: 

A 1221 

D 

C: 

113  15 

0 

C: 

000  17 

1 

I : 

74205 

0 

C : 

27733 

0 

C : 

02032 

1 

I : 

65272 

3 

Is 

74225 

1 

11,  321 C 

C : 

11  15 

0 

C: 

000  A 1 

1 

I : 

53372 

1 

I: 

4 1 325 

0 

C; 

000  17 

1 

C : 

00023 

0 

I : 

74205 

0 

C : 

27733 

0 

11,  3220 

C: 

00025 

0 

I : 

5335? 

0 

I : 

60325 

0 

C : 

02070 

1 

C: 

00050 

1 

I : 

67206 

1 

C: 

01351 

1 

I : 

7427  1 

0 

1 1 ,32  3( 

I : 

63257 

1 

C: 

5760  1 

1 

is 

67206 

1 

C: 

0 1350 

0 

I : 

53361 

0 

I : 

70257 

0 

C : 

20146 

0 

I : 

40055 

0 

11,  32 AO 

C : 

C2062 

1 

C: 

22  761 

1 

C : 

02062 

l 

I : 

77754 

1 

C: 

0203C 

0 

I : 

72135 

0 

C : 

01501 

1 

C : 

00154 

1 

1 1 ,325L 

T: 

73205 

l 

C: 

27735 

0 

C : 

GO  155 

0 

C: 

2 3267 

0 

I : 

77745 

1 

C : 

02036 

0 

C: 

240  2 3 

0 

C: 

24001 

0 

11,3260 

I : 

77650 

1 

C: 

23  042 

0 

Is 

57435 

1 

C: 

0 2013 

1 

I : 

77655 

1 

I : 

43505 

0 

C : 

00025 

0 

Cs 

23456 

1 

11,  3270 

C: 

23A62 

0 

C : 

23473 

0 

I : 

772 1 A 

0 

C: 

00342 

1 

C: 

23323 

1 

C: 

0 1535 

0 

is 

41241 

0 

C : 

01543 

1 

C: 

02076 

1 

I: 

77640 

0 

C: 

23323 

1 

I : 

43014 

0 

C : 

00303 

1 

C : 

23400 

1 

C: 

04340 

1 

C: 

23375 

1 

11,3310 

I : 

A 5 1 A 5 

0 

C : 

0151  7 

0 

C : 

33660 

1 

C: 

12134 

0 

is 

77754 

1 

C: 

02030 

0 

I : 

c 1445 

0 

C : 

01535 

0 

1 1 , 3320 

I: 

500  25 

0 

C: 

2 7 7 A 1 

0 

C : 

2341  5 

0 

I : 

51575 

1 

C: 

01521 

0 

I : 

77600 

1 

C: 

23  35  1 

1 

I: 

51025 

1 

1 1 ,333o 

C : 

11226 

1 

C: 

23351 

1 

I: 

53615 

0 

C: 

11226 

1 

C: 

57605 

0 

I : 

45271 

1 

C : 

000  1 3 

0 

C: 

27737 

l 

1 1,  3 3 AO 

I : 

772AA 

0 

C.  : 

23351 

1 

C : 

01527 

0 

I : 

45245 

0 

C: 

1 1226 

1 

is 

77600 

1 

C : 

23351 

1 

I : 

77640 

0 

1 1 , 3 3 5 ^ 

C: 

23  35  3 

0 

I: 

776  2a 

1 

C: 

27671 

1 

I : 

77775 

1 

C : 

01527 

0 

C.  : 

25134 

0 

C: 

01521 

0 

C: 

01126 

0 

1 l,  33 6( 

I : 

7761 A 

1 

C : 

00261 

1 

I: 

66375 

0 

C: 

‘1126 

0 

C: 

01501 

1 

C : 

COOOO 

1 

C : 

16032 

1 

C : 

24007 

0 

11,3370 

C: 

02100 

1 

I : 

5201  A 

0 

C : 

00301 

0 

C : 

23675 

1 

C: 

22506 

1 

is 

521  75 

0 

C: 

0 2 Ip  4 

0 

C : 

23316 

1 
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1 1 ,3400 

IS  60  545 

0 

C: 

00013 

0 

I : 

50025 

0 

C : 

27741 

0 

C: 

23323 

i 

I : 

71214 

0 

C: 

04  340 

i 

C: 

23415 

c 

1 1 ,34  ic 

C : r 1517 

0 

I: 

77624 

1 

C: 

33660 

1 

Is 

77676 

0 

C : 

02104 

0 

I : 

77624 

1 

C : 

23421 

l 

I : 

77650 

1 

I 1,  34  20 

C:  23353 

0 

I : 

4 502  0 

1 

C : 

02111 

1 

C: 

27671 

1 

Is 

53775 

l 

C: 

3 1535 

0 

C: 

57576 

l 

I : 

53651 

0 

1 1 ,3430 

r : 021^4 

3 

C: 

57574 

C : 

0 1 5C  3 

0 

C : 

01  535 

0 

I : 

574  1 4 

i 

C : 

33343 

0 

C: 

23437 

o 

I: 

53715 

1 

l 1 , 344P 

C : 01543 

1 

C: 

57576 

1 

I: 

77651 

0 

I: 

77657 

0 

C: 

57574 

0 

C : 

01511 

0 

C : 

01543 

l 

I : 

67154 

0 

C : 

I : 

52014 

o 

C : 

00303 

1 

C : 

26713 

o 

C : 

25715 

o 

I : 

64575 

i 

C : 

0 2062 

1 

1 r,3460 

C.  : 36046 

3 

C: 

236  36 

o 

I: 

74575 

0 

C : 

02062 

1 

I : 

53206 

0 

C : 

02046 

1 

C : 

26054 

l 

I : 

5 33b  2 

0 

11,  3470 

C : C2046 

l 

C : 

36046 

0 

C: 

23636 

0 

I : 

57345 

1 

C: 

02100 

1 

C: 

11236 

0 

I : 

74206 

0 

C : 

02046 

1 

1 1 ,3500 

I:  53372 

1 

C: 

01134 

0 

I : 

53361 

0 

C: 

02100 

1 

C: 

01126 

0 

C : 

25126 

0 

C: 

0 2062 

1 

I: 

53322 

1 

1 1,3510 

C:  C2054 

l 

I : 

76  5'-,  1 

1 

IS 

77655 

1 

C: 

0 1134 

0 

C: 

01134 

0 

I : 

45014 

0 

C : 

00341 

1 

C: 

23567 

1 

1 1,  35  2 C 

C : 11216 

C : 

01116 

o 

C : 

j 1 i 3 4 

o 

I : 

77732 

1 

C: 

12467 

1 

1 : 

77775 

1 

C : 

01126 

o 

1 1 ,3530 

I:  40132 

0 

C: 

2366  1 

1 

C: 

12401 

1 

is 

77624 

1 

C : 

11216 

1 

I : 

66354 

0 

C: 

01116 

0 

C: 

00052 

0 

_ 

*■  • 

00006 

_ 

,, 

H I 

..... 

. 

T • 

671  54 

o 

C : OODCO 

l I *3550 

C:  ° 1 1 25 

0 

C: 

01116 

0 

I : 

77624 

1 

C : 

11216 

1 

I : 

76754 

0 

C: 

31116 

0 

C: 

75376 

1 

I: 

77722 

c 

1 1 ,35  60 

C:  0H26 

0 

is 

76173 

0 

C: 

75310 

1 

C: 

00000 

1 

I : 

77722 

0 

C : 

35134 

1 

C : 

23362 

1 

I : 

77200 

0 

C : 22761 

1 

01  134 

1 ) 

C : 

25527 

o 

C : 

31125 

o 

C: 

0 1521 

o 

I : 

430  14 

o 

C : 

04715 

o 

C : 

2762  7 

1 

1 1 ,3600 

C:  01756 

1 

C: 

27256 

0 

I: 

77776 

05364 

0 

C : 

04022 

0 

05515 

0 

C: 

00236 

0 

06051 

0 

11, 3610 

I : 77731 

1 

C : 

0005  3 

1 

C: 

23617 

o 

I: 

520  14 

0 

C: 

0 1 7 1 4 

1 

C : 

26660 

0 

C : 

26733 

1 

I : 

6621  4 

o 

1 1, 3620 

C:  00061 

0 

C: 

01117 

1 

C : 

77741 

0 

I : 

66214 

0 

C: 

01755 

1 

C: 

23552 

1 

C: 

01117 

1 

C: 

77717 

0 

11,3 

I : 77650 

1 

C: 

2355  2 

1 

IS 

77745 

1 

C: 

01115 

0 

C: 

34041 

0 

C : 

27140 

1 

I : 

43345 

1 

C: 

02076 

1 

1 1,  3640 

C:  02100 

1 

I : 

66110 

1 

C : 

77763 

0 

C: 

3 1503 

0 

C: 

02100 

1 

Is 

74561 

0 

C: 

02062 

1 

I : 

74255 

0 

1 1 ,3650 

C:  0H34 

0 

C: 

02100 

1 

I : 

77655 

1 

C : 

r,1126 

0 

C: 

02  032 

1 

I : 

523  14 

0 

C: 

0030  1 

0 

C: 

23675 

1 

1 1 ,3660 

C:  22466 

1) 

I : 

43 Cl  4 

0 

C: 

0 1676 

1 

C: 

0 1671 

0 

I : 

77614 

1 

C : 

02676 

1 

I : 

7741  4 

o 

C : 

01472 

1 

11,367 

C560C 

1 

C : 

00421 

0 

06051 

0 

I : 

77650 

1 

C: 

27256 

0 

Is 

70754 

0 

C: 
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I:  71414 

0 

1 3,  2360 

C:  01743 

0 

C:  2636? 

1 

I : 

77624 

1 

C:  5 1644 

0 

I:  77656 

l 

C:  36032 

0 

C:  26546 

1 

I : 77624 

1 

13,2370 

C:  26556 

0 

I:  6 354  5 

0 

C : 

0 2032 

1 

I : 63525 

0 

C:  02034 

1 

I : 75415 

0 

I:  76405 

1 

C:  00011 

1 
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13,2400  C:  H021  1 

13, 2410  C : 34023  1 

1 3.2420  I:  40  220  0 

13  ,243f  r. : or.-  n 1 


C:  0 20  36  0 
f:  265'.  h 0 
C:  03674  1 
C:  01J20  0 


C:  340 23  1 
C:  15122  1 
C : 00001  0 
I:  65346  0 


C:  26506  C 
C:  0 23  73  1 
C : 34007  1 
C:  ill22  1 


C : 1 512  0 0 
I:  77625  C 
C:  26546  1 
I : 57356  0 


C:  02032  1 
C:  03673  0 
I:  73545  1 
I : 71525  0 


C:  14021  1 
C : 35124  0 
C : 0 1 1 20  0 
C : 01120  0 


C:  02034  1 
C : 03674  1 
I:  65275  1 
I:  71525  0 


13,  244 1 1 
13,2450 
1 3,  746' 
1 3,  247.' 


L • ' i 1 l 

C:  2 64  52  0 
C : 07C32  1 
I:  44275  1 


III  46  ' 

I:  7777?  0 
C : 265C5  0 


C:  36032  0 
C:  24005  1 


C:  36032  0 C:  26556  0 I:  43145  0 C:  24007  0 C:  01743  C 

C:  55720  1 C:  16032  1 C:  03573  0 I:  74215  1 C:  01124  1 

C*.  0 3 6 74  1 Is  63545  0 C:  02036  0 I:  44352  0 C:  240C5  1 

I:  75465  1 C : 26501  1 I:  77622  1 C:  03673  0 I:  776lfe  0 


13,  5 ( 

1 3,  2510 
13,2520 
13.2530 


C:  00446  1 
I : 63545  0 
C:  00°  23  0 
I : 57545  1 


C:  00  30  5 1 
C:  00023  0 
C:  26541  0 
I:  43244  1 


l : b.i5/'5  0 

I : 67542  0 
C:  26536  0 


C:  05254  1 
C:  30021  1 
C:  00C25  C 
C:  2400  5 1 


C : 00155  0 
I:  77615  C 
I : 50125  1 
C:  00025  0 


C:  25250  1 
I:  75454  C 
C:  3 0 3 21  1 
I : 77616  0 


I : 77600  1 
C : 26534  1 
C:  2653c  C 
I : 52025  1 


C:  26510  1 
I : 40065  0 
I:  43545  1 
C:  24005  1 


1 254C 

1 3 ,?66f 

C : 
C: 

26534 
' 1 74  3 

1 

3 

I : 7 5 ’ 4 5 I 

C:  26564  1 

C : 
I: 

non  i 

77735  0 

C: 

C: 

('002  3 0 
24005  1 

13,  2560 

C : 

10003 

0 

I : 71214  0 

C: 

01703  1 

C: 

26573  1 

13, 2570 

C: 

26464 

0 

C:  37673  1 

C : 

00051  0 

I : 

77214  0 

C:  00025  0 I:  77616  0 I:  43145  0 C:  26503  0 
C:  00011  1 I:  77616  0 I:  71220  1 C:  30051  0 
C:  10001  1 I:  45014  0 C:  00742  C C:  26571  0 
C:  00702  1 C:  2S571  0 C:  C2o21  0 I:  64446  0 


13,2600  I:  77650  1 C:  25571  0 C 5364  0 C:  00052 

13,  2610  0 5272  0 06C51  0 I:  47014  1 C:  3471? 

13,2620  C:  27410  1 I:  450  U 0 C:  01076  1 C:  26643 

13,  263C  C:  25140  0 I:  77414  0 C:  0 1672  0 05364 


0 

35017  1 

C5105  0 

C : 

02611  0 

C:  26363  0 

1 

C:  2665?  1 

C:  21565  1 

C: 

00041  1 

I : 77624  1 

1 

I : 52014  0 

C : 01463  1 

C: 

260  26  1 

C:  0003  3 1 

0 

C:  20032  1 

00006  1 

32630  0 

05310  0 

1 3,  2640 
1 3 ,2650 
1 3,  266'1 
13,2670 


C:  (2602  1 
C : C 1675  1 
I : 47r 20  0 
C:  000  51  0 


C:  26C63  0 
I:  776  16  0 
C:  00051  0 
C:  C 42 23  0 


05155  0 
I:  77776  1 
C:  26673  1 

C : 00051  0 


I : 43014  0 
05364  0 
I:  450  14  0 

03035  1 


C:  01472  1 
C : 00C02  0 
C:  0 406?  0 
55500  1 


C:  0 1673  1 
05527  1 
C:  26114  1 

51530  0 


I:  430  1 4 0 
C:  00221  : 

I : 43014  0 
31502  1 


C : 0 1676  1 
05155  0 
C:  00303  1 
51500  0 


1 3 , 2 7 0 C 
1 3,  27 1C 
1 3 ,272c 
1 3,  2730 


55554  0 

11530  1 

12674  1 

0 60  73  0 

I:  43o34  1 

C : 26722  1 

C : 043 03  0 

C: 

2671  5 0 

66214  0 

C : 0U263  0 

C : 02031  1 

C:  00000  1 

I:  77616  3 

I:  66214  0 

C:  00063  l 

C : 

02031  1 

03302  3 

I:  77616  0 

03035  1 

55500  1 

5 150C  0 

31554  l 

51500  0 

55532  0 

1150r  i 

12723  1 

06073  0 

I:  47023  0 

C:  00051  0 

C:  26746  C 

I : 45014  0 

C : 

04064  1 

13,2740 
1 3 ,2750 
1 3,  276C 
13,2770 


260  7r'  1 
51500  3 
(4  3C7  1 
55500  1 


43014  0 C:  00303  1 
31502  I 51500  0 
27000  l C:  26767  0 
51500  0 31626  1 


C : 0005  1 0 C:  04224  1 
55626  0 11500  1 

I:  52014  0 C:  04334  1 
51500  0 55502  0 


33051  0 03035  1 
12747  0 - 06073  3 
26715  0 C:  26710  0 
11533  1 12770  1 


55500  1 
47014  1 
03035  1 
36073  0 
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OCTAL  LISTING  FCR  PAPAGRAPH  H 076  , V.  IT  H PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
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1 3 ,3  000 

I:  77201 

1 

: 

0 

C: 

02021 

0 

I : 

41525 

0 

C : 

00041 

1 

C : 

1551  7 

0 

C: 

27733 

I:  77624 

1 

13,  30  10 

C : 55720 

1 

1 : 

0 

C: 

24001 

0 

C: 

14001 

0 

r : 

0 15  17 

C: 

14007 

0 

C : 

27733 

0 

I : 45014 

0 

13.39  20 

C:  00063 

1 

r. : 55720 

1 

I : 

74235 

0 

C : 

01535 

0 

C: 

26301 

1 

C: 

25543 

1 

C : 

?4C0  7 

0 

C : • 1 c'  - 1 

0 

1 3 , 3 0 3 C 

I : 67 1 74 

1 

: 

0 

C: 

0 20  30 

0 

C: 

35527 

1 

C: 

27156 

0 

33041 

1 

540C6 

3 

3344  6 

1 

13,  30  AO 

C0002 

0 

C : 26C63 

0 

I : 

A 5 0 2 0 

1 

C: 

30046 

Q 

C: 

27410 

1 

I: 

43  130 

1 

C : 

02101 

0 

C : 01474 

1 

13,3950 

I : u 3 0 1 A 

0 

C:  01467 

0 

C: 

0 1676 

T 

I : 

77614 

1 

C : 

01633 

0 

C : 

27135 

0 

I : 

45020 

1 

C:  03046 

0 

1 3,  3060 

C:  27^10 

1 

I : 43  130 

1 

C: 

0 210  1 

0 

C: 

01634 

1 

C: 

270  5C 

1 

I : 

45020 

1 

C : 

00046 

0 

C : 2741  A 

1 

1 3,  30  70 

I:  43130 

l 

C : 02101 

0 

C : 

01474 

l 

I : 

43014 

0 

C: 

01676 

1 

C: 

0 1433 

1 

C: 

27135 

0 

I : 45020 

1 

13  ,3100 

C:  00046 

3 

C:  274 V 

1 

I: 

43130 

1 

C: 

02101 

0 

C : 

01634 

l 

C : 

27073 

0 

I : 

66214 

0 

C:  3 1467 

3 

13, 31  10 

C : 02031 

1 

: 

1 

I : 

66214 

0 

C: 

30  343 

0 

1 : 

27117 

0 

C : 

02031 

1 

C : 

00002 

0 

I : 77220 

1 

1 3 ,3120 

C:  0 2101  0 

C:  24007 

0 

C : 

01521 

0 

C : 

3 5527 

1 

C: 

27671 

1 

I : 

433  14 

0 

C: 

0 1676 

1 

C:  04062 

1 

13.3130 

I : 77614 

1 

1 : 

1 

C: 

27  147 

0 

T: 

7762C 

0 

C: 

02101 

0 

I : 

43014 

0 

C : 

04060 

0 

C:  04062 

1 

13,  3 1 AO 

I:  77731 

27147 

26757 

I : 77745 

1 

1 3,3150 

C:  00041 

1 

C:  0 1115 

0 

1 : 

52014 

0 

C: 

01753 

1 

C : 

27256 

0 

C : 

27242 

0 

I : 

77414 

3 

C:  01752 

0 

1 3,  3160 

C : 27177 

0 

0 53  64 

0 

C: 

04022 

0 

35515 

0 

r : 

00236 

0 

06051 

0 

I : 

77731 

1 

C : 00053 

1 

13.3170 

C:  27175 

1 

I:  52C14 

c 

C : 

01714 

1 

C : 

26660 

0 

C: 

26733 

1 

I: 

77624 

1 

C: 

11216 

1 

I:  45001 

1 

1 3 ,32 OC 

C:  00001 

0 

C:  2767  1 

1 

I: 

53775 

1 

C: 

0 1 50  3 

0 

C: 

57S76 

1 

I : 

53715 

1 

C : 

01511 

3 

C:  57576 

1 

13,  3210 

I:  63325 

0 

C:  01517 

0 

C : 

01  503 

0 

I : 

6471  5 

0 

C: 

01511 

0 

C: 

51770 

0 

I : 

76006 

0 

C : 77765 

0 

13,3220 

I:  76014 

3 

: 

1 

C : 

27224 

0 

C: 

77775 

1 

I : 

40001 

1 

C : 

03001 

C: 

27227 

0 

I:  43014 

0 

13,  3230 

C:  04676 

1 

C:  01667 

1 

I : 

77614 

1 

C: 

01672 

0 

I: 

77535 

1 

C : 

02102 

c 

301  54 

1 

50120 

1 

13,  3 2 AO 

54052 

l 

03421 

0 

I : 

45345 

1 

C : 

01  115 

0 

C: 

0 is  17 

0 

C: 

36074 

1 

C: 

2767  1 

1 

I:  77624 

1 

1 3 , 3 2 5 ( 

C:  22366 

1 

I:  43345 

l 

C: 

01551 

1 

C : 

C 1517 

0 

C : 

35517 

1 

C : 

27177 

0 

I : 

43014 

0 

C:  34752 

0 

13,  3260 

C : 27263 

0 

C:  '1632 

1 

C: 

27224 

0 

I: 

73031 

1 

C: 

GOO  13 

0 

C: 

02030 

0 

I : 

51575 

1 

C:  01535 

0 

13,3270 

I:  ^300  6 

0 

: 

1 

I : 

50023 

0 

C : 

53755 

0 

C: 

27277 

0 

I : 

776  14 

1 

C: 

00062 

0 

l:  41345 

0 

I . 

C:  00013 

0 

C:  COO 4 3 

0 

I: 

55762 

1 

C: 

5177C 

0 

I : 

41366 

1 

C : 

25762 

0 

I : 

40442 

1 

1 : 54345 

1 

1 3,  33  10 

C:  00155 

0 

C : 20220 

0 

I : 

40006 

0 

C: 

27340 

0 

I : 

50321 

1 

C: 

27  40  7 

1 

C: 

2734C 

0 

I : 45345 

1 

1 3,332 0 

C:  fills 

0 

C:  0 15  17 

0 

I: 

54234 

0 

C 

21574 

1 

C : 

20211 

1 

C : 

02076 

1 

I : 

51400 

1 

C:  27344 

1 

13,  3330 

I : 50025 

3 

C:  00015 

0 

C: 

27350 

1 

I: 

75345 

1 

C: 

000  15 

0 

C : 

02076 

1 

C : 

36C76 

0 

C:  27  350 

1 

I:  65345 

0 

C:  27407 

1 

I : 

77650 

1 

C : 

27317 

1 

I : 

77634 

0 

C: 

21674 

1 

C: 

36076 

0 

C:  27333 

1 

1 3 ,3350 

I : 51545 

1 

C:  02  9 7 6 

1 

I: 

590  25 

0 

C: 

27405 

0 

C : 

27156 

0 

I : 

43014 

0 

C : 

01740 

o 

C:  23272 

1 

13,  3360 

C : 017C7 

3 

C : 23272 

1 

I : 

45345 

1 

C: 

02  076 

1 

C: 

00015 

0 

I: 

4 30  40 

1 

C : 

27156 

o 

C : 04242 

1 

13,3370 

C:  23272 

1 

I:  45345 

1 

C: 

C 1 1 1 5 

0 

C: 

1 5 1 7 

0 

I : 

77640 

0 

C : 

27224 

0 

I: 

40525 

l 

C:  32376 

1 
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1 3 ,3400 

IS  44322 

1 

I:  5204C 

1 

C: 

27224 

C 

C : 

23272 

1 

C : 

00000 

l 

C : 

C14G0 

i 

C: 

14152 

l 

C:  00000 

1 

1 3, 34  1C 

I : 77776 

1 

301  C 6 

0 

73462 

0 

00006 

1 

1345  4 

0 

33461 

l 

05133 

0 

I : 77776 

1 

13,3420 

13441 

1 

40  106 

l 

74745 

1 

10000 

0 

03441 

0 

50120 

i 

30052 

0 

5 50  54 

0 

1 3 ,34  30 

C:  04(2? 

310  54 

1 

50  12C 

1 

54052 

1 

34745 

0 

70106 

l 

00006 

1 

1 3,  3440 

13457 

0 

33461 

1 

■ 

0 

05137 

1 

10064 

l 

13441 

1 

C: 

00051 

0 

43462 

0 

1 3,3450 

70  1 06 

1 

54106 

1 

OOC  0 3 

1 

1 3457 

0 

34736 

l 

00D04 

0 

26105 

1 

0605  1 

0 

13,  3460 

I : 77616 

0 

C:  27411 

0 

C: 

20100 

1 

I: 

4 30  2D 

l 

C: 

0 2767 

0 

C: 

02716 

0 

C : 

27532 

0 

I : 77614 

1 

I 3 » 3470 

C:  01711 

1 

C:  27532 

0 

I : 

45145 

0 

C : 

01234 

0 

C: 

27410 

1 

I: 

45014 

0 

C: 

0 1474 

1 

C:  26643 

1 

. 

C:  34041 

a 

C:  27133 

0 

Is 

45  174 

1 

C: 

00002 

0 

C : 

27410 

1 

I : 

77014 

1 

C : 

04304 

1 

C:  27511 

1 

13,  3510 

C:  COOCC 

i 

I : 53775 

1 

C : 

01220 

0 

C: 

57176 

0 

C: 

01503 

0 

C: 

15535 

0 

C: 

01234 

0 

C:  25517 

0 

13,3520 

C:  01226 

0 

I:  450  5 7 

1 

C: 

57176 

0 

C : 

27705 

0 

I : 

fc  62  3 4 

1 

C : 

26746 

0 

C: 

03463 

0 

C:  OGOOC 

1 

13,  3530 

I : 77650 

i 

C:  47224 

0 

I : 

45  145 

0 

C: 

01234 

0 

C : 

27410 

1 

I : 

43014 

0 

C : 

01476 

0 

C:  04476 

0 

1 3,  354'' 

. 

1 

27472 

, y 

1 

1 3 ,3 5 5r 

C:  03744 

0 

C:  04634 

1 

C: 

27566 

l 

I : 

4 30  2C 

1 

C : 

03744 

0 

C : 

04474 

1 

I : 

43234 

0 

C:  21555 

I 

13,  3560 

C : 27670 

0 

I : 51021 

0 

C: 

00041 

1 

C: 

27572 

1 

i: 

77624 

1 

C: 

27656 

1 

I : 

43234 

0 

C:  21555 

1 

13,3570 

C:  27670 

0 

C:  QC041 

l 

I : 

77624 

1 

C : 

27410 

1 

I : 

45014 

0 

C: 

01676 

1 

C: 

260  66 

Q 

I:  43014 

c 

, 

C:  (1673 

1 

C:  n 4475 

0 

I: 

77624 

1 

C: 

27133 

0 

Is 

77214 

c 

C : 

04675 

1 

C : 

00001 

0 

C:  27543 

0 

13,  361<' 

f:  00007 

0 

C : 17551 

0 

C : 

0001  5 

0 

C: 

'3557 

0 

I : 

66134 

1 

C: 

02777 

1 

C: 

02776 

0 

I : 77776 

1 

1 . ■ 

C0O04 

0 

00006 

1 

40025 

1 

20155 

1 

07271 

1 

31744 

1 

04640 

I 

is  47014 

1 

13,  3 63C 

C:  04754 

0 

C:  27646 

D 

C: 

21555 

1 

I: 

44215 

1 

C: 

27670 

0 

C: 

01115 

c 

I : 

45044 

0 

C : 27256 

0 

13,3640 

C:  27656 

1 

I:  43234 

0 

C : 

21555 

1 

C : 

2767C 

0 

C: 

35115 

1 

C: 

27256 

o 

I: 

45  345 

1 

C:  01115 

0 

1 3 ,3650 

C:  01517 

0 

1 : 4524 6 

0 

C: 

27666 

1 

f: 

5 20  4C 

1 

C : 

27156 

c 

27641 

1 

I : 

77414 

0 

C:  0<*674 

0 

1 3,  3660 

25744 

1 

05600 

1 

C : 

01  703 

1 

06051 

0 

I: 

77616 

0 

C: 

00000 

1 

C : 

00003 

1 

C : 00000 

1 

1 J , 3 6 7 

C:  03720 

1 

1 : 77  354 

0 

C: 

0 20  30 

0 

C: 

01521 

0 

I : 

53257 

1 

C : 

57605 

0 

C: 

0 15  35 

0 

C:  01503 

0 

13, 3700 

C : 25535 

0 

C:  01527 

0 

I : 

53257 

1 

C: 

57632 

1 

C: 

0 1543 

1 

C: 

01511 

0 

C : 

25543 

1 

C : 24007 

0 

1 3,  3710 

C:  01521 

0 

C:  15527 

0 

C : 

24007 

0 

C: 

^1551 

1 

C: 

0 15  53 

0 

Is 

7761  6 

0 

C: 

77764 

1 

C:  77775 

1 

1 3 ,3720 

C:  77766 

0 

C:  7777  1 

0 

C: 

77775 

1 

C : 

77775 

1 

C : 

0000O 

1 

C : 

77763 

0 

C : 

77766 

0 

C:  77773 

1 

1 3,  373C 

C:  77770 

1 

C:  77771 

0 

C : 

24000 

1 

C: 

00003 

1 

C: 

74631 

0 

Cs 

63  145 

1 

C : 

00243 

1 

C:  32703 

1 

13,3740 

C:  03654 

0 

C:  21000 

1 

C : 

03654 

0 

C: 

21000 

1 

C: 

04627 

0 

C: 

25200 

1 

44747 

0 

70077 

0 

1 3,375C 

54077 

Q 

44745 

1 

70  106 

1 

54  106 

1 

44753 

c 

70076 

1 

54076 

1 

00002 

0 

1 3,  3760 

C:  03760 

0 

C : r 376  1 

1 

C KSP 

25102 

0 

a 

a 

a 

a 

a 

1 3,3770 

a) 

a 

2 

3 

a 

a 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  U IDT,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "Si"  DENOTES  UNUSED  FIXEO  MEMORY 
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1 4 ,2000 

C: 

26723 

0 

C: 

OC  450 

0 

C: 

00065 

1 

C : 

0 1265 

1 

C: 

00302 

0 

C : 

24533 

1 

C : 

00052 

0 

C: 

0 4047 

0 

14,  20  10 

C : 

15263 

1 

C : 

14526 

0 

C: 

74131 

l 

C: 

63662 

0 

C-: 

70033 

C 

C: 

66576 

0 

C : 

15015 

1 

C : 

01060 

0 

L 4 , 20  2 

C: 

670  70 

1 

C: 

77733 

0 

C : 

02552 

1 

C : 

0251 5 

1 

C: 

072  10 

C 

C: 

17332 

D 

C: 

67277 

1 

C: 

54722 

1 

14, 2030 

G : 

13262 

0 

C: 

14226 

l 

C: 

05100 

0 

C: 

14770 

1 

C : 

70716 

c 

C : 

63142 

0 

C : 

62466 

1 

C: 

74737 

1 

14,  2040 

C: 

10653  0 

C : 

31305 

0 

C : 

63236 

0 

C: 

44502 

0 

C: 

73711 

1 

C: 

44272 

0 

C: 

07206 

1 

C : 

14007 

0 

• 4,2  050 

C: 

61750  1 

C: 

65  323 

0 

C: 

02343 

1 

C : 

3541C 

1 

C : 

03241 

0 

C : 

11616 

0 

C: 

62031 

1 

C: 

4 1460 

0 

1 4,  2060 

C : 

70715 

0 

C: 

7 644  2 

1 

C: 

'1746 

0 

C: 

14017 

0 

C: 

63532 

0 

C: 

44700 

0 

C : 

12010 

0 

C : 

06  310 

0 

- 

C: 

76  l 50 

1 

C: 

62332 

1 

C : 

60371 

1 

C : 

66347 

1 

C: 

0 33  70 

0 

C: 

06667 

0 

C: 

76126 

0 

C: 

53632 

0 

1 4 ,21 00 

C: 

72436 

0 

C: 

70326 

1 

C: 

61041 

0 

C: 

51225 

0 

C: 

72301 

0 

C : 

44526 

0 

C : 

6 26  40 

1 

C: 

61020 

1 

14,  2110 

C: 

7C711 

1 

r. : 

57555 

0 

C : 

67365 

0 

C: 

45532 

1 

C: 

64425 

0 

C: 

43516 

1 

C : 

07157 

0 

C : 

00567 

0 

14,2120 

C: 

63334 

1 

C: 

5H76 

0 

C: 

67513 

1 

C : 

77771 

c 

C : 

05227 

0 

C : 

37143 

0 

C: 

64  756 

1 

C: 

4224C 

1 

14, 213C 

C: 

71234 

1 

C: 

63041 

1 

e: 

66426 

1 

C: 

50103 

0 

C: 

66546 

0 

C: 

66454 

1 

C : 

73257 

0 

C : 

67711 

1 

14, 2140 

C : 

14121 

o 

C : 

1 1 5 10 

o 

c . 

61250 

. 

6461? 

0 

7231  1 

c. 

535  14 

1 

C* 

74743 

1 

C : 

5525  1 

1 

14,2150 

C : 

70607 

1 

C: 

4626  1 

0 

C:* 

77  152 

1 

C : 

67  164 

0 

C : 

61600 

0 

C : 

73424 

1 

C : 

60605 

1 

C: 

5 127  1 

1 

14, 2160 

C : 

77030 

1 

C : 

43666 

0 

C: 

73160 

1 

C: 

72671 

1 

C: 

60431 

1 

C: 

40244 

1 

C : 

00655 

l 

C : 

03043 

0 

14,2170 

C: 

04043 

1 

C: 

20031 

1 

C : 

62163 

1 

C : 

44553 

1 

C : 

07324 

0 

C: 

15  316 

1 

C: 

0 3266 

0 

C: 

20674 

0 

14,2200 

C: 

634  70 

1 

C: 

50263 

0 

C: 

1 1656 

l 

C: 

26664 

1 

C: 

7550C 

0 

C : 

63126 

1 

C : 

70426 

0 

C: 

67766 

1 

14,  22  10- 

C: 

C75C6 

0 

C : 

253^5 

0 

C : 

1 3726 

0 

C: 

31410 

0 

C: 

72160 

0 

C: 

45226 

0 

C: 

11143 

1 

C : 

20062 

1 

14,2220 

C: 

64200 

1 

C: 

54  164 

0 

C: 

71320 

0 

C : 

52744 

1 

C.  : 

16401 

0 

C : 

26465 

1 

C: 

01364 

1 

C: 

30  20  4 

1 

14,  2230 

C : 

75052 

1 

C : 

77025 

0 

C: 

17030 

1 

C: 

D 465  2 

1 

C: 

73321 

0 

C: 

51514 

0 

C : 

77007 

0 

C : 

70532 

1 

14,2240 

C: 

115  14 

1 

C: 

3616  2 

1 

C : 

63215 

1 

C : 

50  542 

1 

C: 

02141 

1 

C: 

34546 

1 

C: 

12716 

1 

C: 

0 2o  26 

1 

1 4 ,2250 

C: 

1 3401 

0 

C: 

34315 

1 

C: 

0 3156 

0 

C: 

0 2 3 76 

1 

C: 

17402 

1 

C : 

26132 

0 

C : 

7 5552 

1 

C: 

7C755 

1 

14,  2260 

C : 

05467 

l 

C : 

12453 

0 

C : 

16221 

1 

C: 

0 3 071 

1 

C: 

04423 

0 

C: 

C 3530 

1 

C : 

06441 

0 

C : 

32064 

1 

14,2270 

C: 

07767 

0 

C: 

00316 

0 

C: 

14155 

0 

C : 

10512 

c 

C : 

1 3177 

1 

C : 

16474 

1 

C: 

13245 

0 

C: 

32202 

0 

14,  2300 

C : 

Cl  070 

1 

C : 

04747 

1 

C: 

1 0560 

o 

C: 

n564 

, 

C: 

1040  3 

1 

C : 

00  211 

o 

C : 

65500 

1 

C : 

54  764 

Q 

, 

C: 

•'0  152 

l 

C : 

17317 

1 

C : 

00077 

l 

C : 

36650 

1 

C : 

17777 

0 

C: 

01672 

0 

C: 

07674 

0 

C: 

32337 

1 

1 4 ,2  3 2c 

C: 

0 3417 

0 

C: 

04547 

0 

C: 

62413 

0 

C: 

74137 

1 

C : 

07507 

1 

C : 

11400 

0 

C : 

01674 

0 

C: 

02073 

1 

14, 2330 

C: 

15736 

l 

C: 

05654 

0 

C : 

16745 

0 

C: 

15337 

1 

C: 

' 261  7 

0 

C : 

0 2736 

1 

C : 

73010 

1 

C : 

70171 

1 

i . . 141 

C: 

1 5776 

0 

C: 

17C6  3 

1 

C: 

00327 

1 

C: 

12164 

1 

C : 

07572 

0 

C : 

33172 

0 

C: 

15637 

1 

I: 

77634 

0 

l 4, 2350 

C : 

21  555 

1 

I: 

43225 

0 

C: 

C 1234 

0 

C: 

0 34  54 

1 

I : 

77476 

1 

07271 

1 

35016 

0 

54003 

0 

14,  2360 

000C4 

0 

10165 

1 

12365 

1 

12365 

1 

3475  5 

1 

647  5 3 

1 

55644 

1 

0 520  4 

1 

1 4 ,2  3 70 

C: 

02402 

0 

05364 

0 

C: 

4 7014 

1 

C : 

76133 

1 

C : 

C 2402 

0 

C : 

30067 

0 

06051 

0 

I: 

520  14 

0 
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1 4 ,2400 

C:  0 34  70 

1 

C:  60446 

1 

04674 

0 

C:  75551 

1 

35C27 

1 

05072 

1 

C : U2416 

0 

C:  33067 

0 

14, 24 10 

C 5364 

0 

r : 37  14 

0 

C : 17000 

1 

C:  32416 

0 

C: 

30067 

0 

15272 

l 

05515 

c 

C:  U0214 

0 

14,2420 

32437 

0 

046  16 

1 

: 

1 

12*26 

1 

1243c 

0 

12*29 

1 

04635 

0 

C:  71554 

0 

14,2430 

00004 

0 

04674 

o 

C:  40  154 

0 

04674 

0 

C : 

40141 

1 

C4635 

0 

C:  71544 

1 

C:  04077 

0 

14,  2440 

I:  77620 

0 

C : C 2 7 4 6 

0 

C:  35242 

0 

C:  26347 

0 

IS 

70545 

1 

C:  01122 

1 

C:  16711 

1 

C : 01124 

1 

14,2450 

C:  167  f 3 

0 

C:  0 1120 

0 

C:  02707 

c 

I:  77776 

1 

32477 

1 

C 46 1 6 

1 

C:  20477 

1 

1603  1 

1 

1 4,  2460 

12462 

1 

12454 

1 

06051 

0 

I:  72545 

0 

C: 

02711 

1 

C:  15122 

1 

C : 02713 

0 

C:  15124 

1 

14,2470 

C:  02707 

0 

C:  15120 

c 

C : 01242 

1 

I : 77624 

1 

C: 

26420 

0 

I:  77550 

1 

C:  02746 

0 

C:  0 1531 

1 

14,2500 

I:  77620 

0 

f:  32745 

0 

C:  37562 

1 

C:  3366C 

1 

I: 

77745 

1 

T : 03562 

0 

C : 34041 

0 

C:  27056 

1 

14,  25  K 

I:  61131 

0 

C : 00052 

0 

C : 00000 

1 

C:  30535 

1 

I: 

74375 

0 

C:  02723 

0 

C:  30001 

0 

1 : 52372 

0 

1 4 ,2520 

1 

C:  26723 

c 

C : OOOOl 

0 

1 : 

5 74  5 6 

1 

C : 15707 

0 

C:  30005 

1 : 776  24 

1 

14, 2530 

C : 30567 

0 

C:  14917 

1 

C:  39576 

0 

C:  34023 

1 

C: 

30562 

0 

I:  74375 

0 

C : 02723 

0 

C : 30007 

0 

14,2540 

. 

. . 

5 3361 

,...1 

_ 

C : 0000  1 

- 

1 

1 4 ,2550 

C:  26707 

0 

C:  'i 

0 

I:  57456 

1 

C:  16723 

0 

C : 

30003 

1 

I : 77524 

1 

: 

C:  14023 

0 

14, 2560 

C:  3C576 

0 

C:  00017 

1 

I : 77745 

1 

C:  30609 

1 

C: 

00021 

1 

I:  77650 

1 

C:  02745 

0 

I : 70471 

1 

1 4,2570 

C:  000  4 5 

0_, 

i:  43336 

0 

C : 30602 

0 

I : 70546 

1 

I : 

7 76  1 6 

Cl 

C : 07763 

1 

C:  14473 

1 

C:  04000 

0 

14, 2600 

C:  00000 

1 

C:  00343 

0 

C:  216  16 

0 

04  645 

1 

55745 

1 

06051 

0 

I : 77624 

l 

C : 47535 

1 

1 4,  2 (■  1 f 

I:  77624 

1 

r.  : 200  30 

I : 77601 

0 

C:  OOOOl 

0 

I : 

71214 

0 

r:  0 1465 

1 

C:  24007 

0 

C : 26756 

1 

1 4 ,2620 

C:  0,266  5 

0 

I:  6336  1 

0 

C:  24005 

1 

C:  02701 

0 

I : 

74370 

0 

C:  00344 

1 

C:  24005 

1 

I:  77655 

1 

14,  2630 

I : 535C5 

1 

C:  01732 

0 

C:  02731 

0 

I:  66331 

0 

C: 

00051 

0 

C:  00006 

1 

C : 00052 

0 

C:  00006 

1 

14, 

I:  52100 

1 

C:  3C643 

0 

C:  30760 

0 

I : 50373 

0 

C : 

30347 

i 

C:  32731 

0 

I:  50025 

0 

C:  30757 

1 

14,2650 

C:  30640 

0 

T:  77754 

1 

C:  93C46 

0 

I:  52104 

0 

C: 

30656 

1 

C : 30640 

0 

1 : 50373 

0 

C:  47433 

3 

1 4,  2660 

C:  02731 

0 

I : 5002  5 

0 

C:  30757 

1 

C:  30653 

1 

I: 

4 7773 

1 

C:  30  347 

1 

C:  47430 

0 

I:  51025 

1 

1 4,2670 

C:  10755 

0 

: 

1 

I:  45173 

0 

- . 3 347 

1 

C.  : 

3 073  2 

1 

I : 77614 

1 

C:  01710 

0 

C:  30640 

0 

J 7 nn 

1-117  10 

n 

?n65^ 

. 

I : 77614 

. 

r • nifcfj5 

14,  2710 

C:  30  7 25 

l 

I:  65120 

l 

C : 02755 

l 

C:  02756 

1 

I : 

47773 

1 

C:  333*7 

1 

C:  47430 

0 

I:  43006 

0 

1 4,2720 

C : 0 1 545 

1 

C:  30  7 1 1 

0 

I:  45  345 

1 

I:  77644 

1 

C : 

30653 

1 

I : 67130 

1 

C : C 275  5 

1 

C:  32756 

1 

14,  27 30 

I:  7765C 

1 

C:  3065^ 

1 

I : 51321 

0 

C:  32707 

0 

C: 

00017 

1 

I:  77654 

0 

C:  30751 

1 

I : 75240 

0 

14,2740 

C:  30751 

1 

: 

0 

I:  75240 

0 

C:  30751 

1 

C : 

00162 

1 

I : 43043 

1 

C:  30751 

1 

C:  0 1630 

0 

14,  275C 

C:  00052 

3 

I : 77614 

1 

C:  0 1430 

1 

C:  00052 

0 

C : 

05110 

1 

C:  35052 

0 

C:  C5110 

1 

C : 35052 

0 

14,  2760 

I:  774  14 

0 

C:  Cl  74 5 

0 

C : 30764 

1 

03005 

1 

I : 

73150 

1 

C:  02755 

1 

C:  02756 

1 

I : 47775 

1 

1 4 ,2770 

C:  02731 

0 

: 

1 

I:  47715 

1 

C:  02731 

0 

C : 

4 7430 

0 

T : 77625 

0 

I : 66044 

1 

C:  31033 

0 
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1 4 ,3  000 

C: 

02756 

1 

I: 

77734 

1 

C: 

02755 

1 

I: 

77776 

1 

25745 

C 

31  745 

0 

046  22 

0 

I : 

77620 

0 

14,  30  10 

C: 

C'  2 7 4 6 

0 

I : 

77776 

1 

05364 

0 

C: 

04024 

0 

34761 

0 

04616 

1 

C: 

20624 

0 

06001 

0 

1 A ,30  20 

03022 

1 

0-3045 

0 

06051 

0 

I : 

43234 

c 

C : 

21555 

1 

C : 

31155 

1 

T : 

77624 

1 

C: 

30  530 

1 

. 

I : 

77776 

1 

04616 

1 

C: 

30603 

1 

03035 

1 

0 304  5 

0 

05600 

1 

0 : 

00405 

0 

35006 

1 

1 4,3  04  0 

04616 

1 

C : 

20477 

1 

06001 

0 

03045 

0 

03014 

1 

34755 

1 

55757 

1 

06051 

0 

1 4 ,3050 

I : 

77776 

T 

0 5 364 

0 

C| 

04024 

0 

0 6051 

0 

I : 

77624 

1 

( : 

31671 

0 

I : 

1111 1 

1 

0 46  16 

1 

14, 3060 

C.  : 

16000 

0 

04616 

1 

C: 

17711 

0 

05712 

0 

1 1757 

1 

13067 

1 

03137 

l 

06051 

0 

1 4,3070 

I: 

77775 

1 

C: 

C 27  1 5 

0 

C : 

02767 

0 

I : 

77776 

T 

05364 

0 

C: 

04024 

0 

0 605  1 

0 

Is 

45145 

0 

14,3100 

C : 

0356? 

0 

C: 

32500 

0 

I: 

53521 

1 

C: 

0 1732 

0 

C: 

26715 

c 

C : 

03554 

c 

I : 

53521 

1 

C: 

01732 

0 

14,  31  10 

C: 

267C7 

0 

C : 

02761 

0 

C : 

24007 

0 

C: 

02767 

0 

C: 

34015 

1 

C: 

31250 

1 

I: 

45014 

0 

C : 

00354 

0 

1ft, 3120 

C: 

31126 

0 

C: 

474  37 

1 

I : 

77624 

1 

C : 

31216 

0 

I : 

776  14 

1 

C : 

012  73 

0 

I : 

77776 

1 

35752 

1 

14, 31 30 

04616 

1 

C-* 

20  62  4 

0 

06001 

0 

0 30  14 

1 

06051 

0 

I : 

7765C 

1 

C : 

02  74  6 

0 

0605  1 

0 

14.3140 

I r 

7777  5 

0: 

02715 

o 

C : 
I: 

02761 

0 

f . 

45  145 

0 

c> 

03562 

c . 

32500 

o 

C: 

0 3554 

o 

I : 

77731 

1 

1 A ,3150 
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1 

C: 
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0 
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i 

C: 
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0 

C: 
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0 
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1 
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1 

C: 

02  74  6 

0 
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C: 

47245 

1 
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0 
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l 

C: 
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I: 
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1 
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1 
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1 
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20452 

0 

14,3170 
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0 
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0 
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0 
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C: 

0 1462 

0 

I : 
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1 

C : 

31603 

0 

I : 
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1 

C : 
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0 

C: 

04024 

0 

I: 

77620 

0 

C : 

02745 

0 
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I : 
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1 

C: 
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1 

I: 
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i 
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1 
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1 

C : 

20477 

1 
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0 

03231 

1 

14, 323C 
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1 
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0 

C: 
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0 
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0 

04616 

1 

C: 

17270 

1 

04616 

1 

C : 

17715 

1 

14,3240 
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0 
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0 
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04024 

0 
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0 
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1 

C : 

02745 

0 

C: 
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0 

C: 
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0 
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1 

C: 

02745 

0 

C: 
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1 

I: 

77760 

0 

C: 

02706 

1 
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47773 

1 
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0 

C: 
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0 

14,  3260 

I: 

65652 

0 
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00025 

0 
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43014 

0 

C: 

00354 

o 

C: 

31274 

1 

C: 

00  174 

0 

I: 

71360 

1 

C : 
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1 

14,3270 

C: 

00025 

0 

C: 

00C23 

0 

I : 

77650 

1 

C : 

31255 

1 

I : 

45345 

] 

C : 

00025 

0 

C: 

00023 

0 

Is 

77634 

0 

14,  3300 

C : 

21574 

1 

C: 

01 045 

1 

I : 

77414 

0 

C: 

00074 

1 

3 3320 

0 

04616 

1 

C : 

20477 

1 
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1 
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03315 

0 
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0 

I : 
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0 
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0 

C: 

02745 

0 

0605  1 

0 

Is 

77650 

1 

C: 

02745 

0 
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C: 

C 1 40  5 

1 

I: 

77624 

1 

C: 

31620 

1 

I: 

66234 

1 

C: 

314C5 

1 

C : 

00051 

0 

C : 

0000  1 

0 

I : 

40370 

1 

I . 

C : 

00003 

1 

C : 

00005 

1 

I : 

70543 

1 

C: 

00325 

0 

I: 

70523 

1 

C: 

0000  5 

1 

I : 

514  2 5 

- 

I : 

45206 

1 

1 4,3340 

C: 

31404 

0 

I: 

7 1240 

1 

C: 

31360 

0 

I : 

51025 

1 

C : 

31405 

1 

C : 

31360 

0 

I: 

77776 

1 

05364 

0 

l 4,  3350 

C : 

04024 

0 

0605  1 

0 

I : 

77624 

1 

C: 

31557 

1 

I: 

77624 

1 

C : 

31603 

0 

I : 

77650 

1 

C : 

31362 

1 

14, 3360 

I : 

77700 

0 

C : 

31332 

1 

I : 

75160 

1 

C : 

0264? 

0 

C : 

0 1731 

0 

I: 

77624 

1 

C: 

31371 

0 

I : 

7765C 

1 

1 4 ,33  70 

C: 

32204 

o 

I: 

77773 

1 

C: 
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0 

C : 

1000  1 

1 

I : 

77773 

1 

C : 
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0 

C : 
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1 
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1 
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1 4, 344r 
1 4, 345C 
14, 34 60 
14,3470 


: 20447  1 

05364  : 
: 40331  1 
i t ' 


33556  1 

1 : 

C:  C2760  1 
04616  1 


04616  1 
13423  G 
: : 1 
C : 17  711  0 


C : 20447  1 
05364  0 
C:  00001  0 
05712  0 


06051  0 
C:  00014  1 
I:  77776  1 
11757  1 


I:  77624  1 
06051  0 
05364  0 
13503  3 


C:  31557  1 
I : 77624  1 
C : 04024  0 
06051  0 


I: 


77776  1 
31603  0 
04616  1 
77775  1 


14,  3500 
14,  35  10 

H,352c 

14, 3530 

l 4,3540 
14,3550 
14,  35  60 
1 4,3570 

14,  3600 
L 4,  361'"' 

1 4 ,3620 
14, 3630 

14,3640 
I 4,  3650 
14,  3660 
1 4 ,3670 


C:  02  715  0 
C:  04024  0 
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I:  774  14  0 
C:  01731  0 
31301  1 
C:  16745  0 
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5404^  1 

I : 4 50  20  1 
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I : 45145  0 
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C : 3 1544  0 
C:  31371  0 
13567  1 
C:  17715  1 

I:  77616  0 
06051  0 
C:  47535  1 
C:  02707  0 

C:  02642  0 
C:  ' 2746  0 
C : 00001  0 
C:  03665  1 


0 53  64  0 
C:  03562  0 
C:  04024  0 
C:  02761  0 

03423  1 
I:  77414  0 
34777  1 
05712  0 

I:  77776  1 
I : 77775  1 
I:  77624  1 
C:  01732  0 

I : 77624  1 
C:  34041  0 
C:  27615  0 
51757  0 


C:  04024  0 
C:  32500  0 
06051  C 
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04616  1 
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Is  77656  1 

C : 31371  0 
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r : 03  07 
31755  1 
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C:  03554  0 
l : 45145  0 
C:  02767  C 

C:  47437  1 
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C:  0 1736  1 
C:  17155  0 
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I : 53575  0 
Is  53435  0 
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13560  0 
046 16  1 
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C:  47351  0 
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f:  03615  0 
73772  1 


05364  0 
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C:  0 2664  1 
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54037  1 
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14, 3700 
14,37  10 
14,3720 
14,  3730 


c4  7 34  0 
C:  00 124  0 
65661  0 
35014  1 


54003  0 


C 4 6 1 6 1 
77756  0 
13735  1 
34737  0 


C:  20477  1 
00006  1 
35C16  0 
56001  0 


13707  0 
54001  1 
50001  0 
33774  0 


13701  0 
000C6  1 
31403  1 
04616  1 


05527  1 
63735  0 
54001  1 
C : 20477  1 
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15,2000 

I : 

77773 

1 

C: 

1 1 

0 

C: 

00766 

0 

I: 

47133 

0 

C: 

00002 

0 

C : 

21560 

1 

C : 

00031 

0 

I : 

77654 

0 

15,  20  1C 

C: 

16171 

1 

I : 

71406 

0 

I : 

73525 

1 

I : 

65361 

0 

C: 

00223 

0 

1: 

52361 

1 

C: 

00015 

0 

I : 

47256 

0 

1 5 ,2020 

C: 

(13765 

0 

I: 

4U56 

0 

I: 

47133 

0 

C : 

00004 

0 

C : 

21560 

1 

C : 

00033 

1 

I: 

43225 

0 

C: 

00031 

0 

1 5,  203C 

C : 

32047 

0 

I : 

77605 

1 

C: 

32474 

1 

C: 

30033 

1 

I: 

74356 

1 

I : 

65372 

1 

C : 

00033 

1 

I : 

74346 

0 

15, 2040 

C: 

Qfe5 

0 

I : 

53372 

1 

I : 

45056 

0 

C : 

47671 

1 

C: 

34031 

1 

C: 

16276 

0 

C: 

37777 

1 

C: 

37775 

0 

1 5 ,2050 

11770 

1 

12053 

1 

15272 

1 

05204 

1 

C : 

02050 

0 

37725 

0 

C 507  2 

1 

C: 

J2C03 

0 

1 5,  2060 

C : 

52C64 

1 

34736 

1 

00006 

l 

7 1767 

1 

61766 

1 

55764 

1 

15272 

1 

04616 

1 

l 5,2070 

C: 

11241 

0 

34750 

1 

70076 

1 

loonc 

0 

02077 

0 

36257 

i 

0 2 100 

1 

34  75  3 

1 

15,  2 1 CO 

55144 

0 

34753 

l 

046  16 

1 

C: 

2 07  14 

1 

06001 

0 

12112 

0 

02101 

0 

05364 

0 

■ , 

C: 

r00  14 

1 

05155 

0 

31144 

l 

76257 

0 

50000 

1 

02116 

0 

12124 

0 

12176 

1 

15  ,2120 

12131 

1 

0 6C  5 1 

0 

I: 

77650 

1 

C : 

32207 

0 

34741 

1 

54003 

0 

0000  6 

1 

31427 

1 

15,2130 

12133 

0 

00006 

1 

34755 

1 

53045 

0 

3 50  1^ 

1 

54003 

0 

32213 

0 

04616 

1 

15,2140 

C: 

20  47  7 

1 

0600 1 

3 

02144 

1 

021  3ft 

S4S 

5 3 045 

( 

30036 

1 

6 2 1 50 

1 

12152 

1 

15,21  5f 

00006 

1 

30025 

0 

53775 

1 

31144 

1 

74752 

1 
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0 

021  62 

0 

06051 

0 

15,  2160 

I : 

17650 

1 

C : 

32243 

0 

06051 

0 

I : 

45145 

0 

C: 

02775 

0 

C: 

31651 

1 

I : 

77624 

1 

C : 

31620 

1 

• 

I: 

77776 

1 

350  10 

c 

04616 

1 

C : 

20477 

1 

06001 

0 

12214 

0 

0605  1 

0 

I: 

77650 

1 

15,  22  rc 

C : 

32166 

1 

06051 

0 

I : 

77624 

1 

C: 

3 1321 

0 

I: 

430  14 

0 

C : 

01462 

0 

C : 

01273 

0 

I : 

77624 

1 

15, 2210 

C: 

31007 

1 

I : 

77776 

l 

060C1 

0 

C : 

01442 

1 

32242 

1 

0 4 6 1 6 

i 

C: 

206  24 

0 

1600  1 

1 

1 5 ,2220 

1220  1 

1 

0 605  1 

0 

I: 

64375 

1 

C: 

03607 

0 

C : 

01732 

c 

I : 

77656 

1 

C : 

26665 

0 

C: 

0361  5 

0 

15,  2230 

I : 

53521 

1 

C: 

0173? 

0 

C : 

26673 

1 

C: 

03623 

0 

is 

53521 

1 

C: 

0 1732 

0 

C : 

36701 

1 

C : 

31156 

1 

15,2240 

I: 

77650 

1 

C: 

322  11 

1 

C: 

00013 

n 

I : 

43014 

0 

C: 

01463 

1 

C : 

00562 

3 

I: 

77201 

1 

C: 

OOOO  1 

0 

15,  22  50 

C : 

02  021 

0 

I : 

41525 

0 

C: 

02775 

6 

C: 

36027 

1 

C: 

55720 

1 

I : 

77742 

0 

C : 

16032 

1 

C: 

02775 

0 

15,  2260 

I : 

77624 

1 

C : 

30440 

1 

I : 

53575 

0 

C: 

02032 

1 

C: 

37607 

1 

C: 

10765 

1 

I: 

77650 

1 

C : 

32166 

1 

15  ,2270 

40077 

0 

74737 

1 

100C0 

0 

12463 

0 

3 2471 

1 

04616 

1 

C: 

20477 

1 

0600  1 

0 

15,  23C0 

12302 

0 

12270 

1 

06051 

Q 

I: 

45034 

1 

C: 

21555 

1 

C: 

32500 

0 

I : 

53521 

1 

C : 

01732 

0 

15 ,2310 

I: 

77624 

1 

C: 

47653 

1 

C : 

02731 

0 

I : 

7777f 

1 

34753 

1 

5524  1 

0 

350  16 

0 

54003 

0 

15  ,2320 

61241 

1 

314  0 3 

1 

5400  1 

l 

35014 

1 

54C03 

0 

34737 

0 

56001 

0 

55745 

1 

1 - . 233 

50120 

1 

5201  1 

0 

06051 

0 

I : 

77624 

1 

C: 

10530 

0 

I: 

50375 

0 

C : 

02731 

0 

C : 

03765 

0 

1 5 ,2340 

I: 

65552 

0 

C: 

000  3 1 

0 

1 : 

51025 

1 

C: 

32474 

1 

C : 

32426 

0 

I : 

45345 

1 

C: 

00031 

0 

C: 

32476 

0 

1 5,  2350 

I : 

71240 

1 

C : 

32421 

1 

C: 

03031 

0 

I: 

42405 

r' 

C: 

1 1226 

1 

C : 

24031 

0 

C : 

C3765 

0 

I : 

53435 

0 

15,2360 

C: 

2400  5 

l 

I : 

4 7 2 C 6 

0 

C : 

03765 

0 

I : 

77676 

0 

1 : 

63256 

0 

C: 

03  765 

0 

I: 

5 34-3  5 

0 

C: 

02731 

0 

1 5 ,2370 

I : 

50206 

D 

C: 

0000  1 

0 

I: 

65552 

0 

C : 

24C33 

1 

I : 

77641 

1 

I : 

71244 

0 

C : 

32403 

1 

C: 

32047 

0 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  CCT.  21,1970  PAGE  1634 

3CTAL  LISTING  FOR  PARAGRAPH  H 13  5,  W IT  H PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S>"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIO  WORDS  ARE  PASIG  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  1 1 NTF  R P RET  IV  E OPERATOR  WORDS)  OP  "C"  (CONSTANTS) 


15 , 2400 

I : 7762  5 

0 

C:  00033 

l 

C: 

0 0 0 3 3 

1 

I:  70535 

0 

C: 

C 2 746 

0 

I : 

41415 

1 

C : 

00  03  3 

1 

I:  77634 

0 

15,  >4  !' 

C:  21576 

0 

C : 1 5236 

1 

C : 

00031 

0 

I:  77615 

0 

I: 

77634 

0 

C: 

21576 

0 

C: 

01237 

0 

I:  77776 

1 

15  ,2420 

12445 

1 

I:  77776 

1 

34755 

1 

55235 

0 

55236 

0 

12445 

1 

I : 

77776 

1 

25241 

1 

15, 2430 

41241 

0 

64757 

0 

00006 

1 

62435 

1 

12316 

0 

05600 

1 

C : 

004C4 

1 

35006 

1 

15, 2440 

046  16 

1 

C:  20477 

l 

16001 

1 

12463 

0 

12270 

1 

32472 

1 

046  1 6 

1 

C:  20477 

1 

1 ,245 

j6oni 

1 

12453 

0 

12270 

1 

34757 

0 

71241 

0 

00006 

1 

74745 

1 

47756 

0 

1 5, 2460 

70  734 

o 

60001 

0 

54734 

0 

0 46  15 

1 

C: 

1600C 

0 

04616 

1 

C : 

17711 

0 

05712 

0 

15 ,247C 

1 30  50 

0 

C:  00306 

1 

C : 

01517 

0 

C:  02525 

1 

C: 

12525 

0 

C: 

00025 

0 

C: 

30  131 

1 

C:  12526 

0 

1 . 

C:  03562 

0 

I:  77420 

1 

C: 

02736 

1 

47756 

0 

70734 

0 

00006 

1 

76254 

0 

5600 1 

0 

15,  25  U 

51757 

0 

55755 

0 

1 0000 

0 

1 2530 

1 

32567 

1 

046  16 

1 

C: 

20477 

1 

02  5 1 4 

0 

15,252c 

02522 

o 

0 25  14 

o 

06051 

o 

I : 743  75 

o 

C : 

02707 

c 

C : 

32  571 

o 

I : 

52056 

o 

C:  02736 

15,  2530 

40000 

0 

62566 

0 

00006 

1 

62544 

0 

51757 

c 

31755 

1 

5012  0 

1 

54046 

1 

, 

3 3a 

1 

. 

03562 

, 

1 

1 5 ,2550 

I : 77340 

0 

C:  02757 

0 

C: 

0 2 707 

0 

C:  24001 

0 

C: 

02715 

0 

C : 

26707 

0 

C : 

00001 

0 

C:  0271  5 

0 

15,  2560 

I:  7C143 

0 

C : 02756 

1 

C : 

00154 

1 

i:  52173 

0 

C: 

02343 

1 

C: 

02736 

1 

C: 

00343 

0 

C:  01530 

0 

15,2570 

C:  22363 

1 

C:  11623 

o 

32773 

o 

54321 

c 

4 0000 

o 

54  322 

o 

32  774 

1 

54323 

1 

1 5,2600 

06051 

0 

I : 45i 14 

0 

C: 

01662 

1 

C:  32677 

0 

I: 

66370 

0 

r . 

00022 

l 

C : 

00051 

0 

C : 00006 

1 

l 5 , 2 M r> 

I:  77744 

0 

C:  00050 

1 

T : 

45173 

0 

C : 54000 

0 

C : 

47700 

0 

C : 

06707 

1 

I: 

77775 

1 

C:  02731 

0 

1 , 

I : 73744 

1 

C:  00047 

1 

C: 

7 5 040 

1 

I : 7 1152 

1 

C : 

00047 

1 

I : 

63047 

1 

C : 

54000 

0 

C:  00002 

0 

15, 2630 

C : 06665 

1 

1 : 

1 

C : 

32612 

0 

C:  47351 

0 

I: 

74575 

0 

C: 

02715 

0 

C : 

36723 

1 

C:  32677 

0 

15,2640 

I:  74575 

0 

C:  02715 

0 

I : 

53455 

0 

C:  02723 

0 

C: 

02  76 1 

0 

I : 

77641 

1 

C: 

02222 

1 

I:  65552 

0 

l 5 , 2 6 5C 

C:  01045 

1 

I:  77776 

1 

05527 

1 

C:  00014 

1 

32772 

1 

04616 

1 

C : 

20477 

1 

06001 

0 

1 5,  2660 

12663 

1 

05515 

c 

C : 

00014 

1 

05364 

0 

C: 

C 4024 

0 

0 6051 

0 

I: 

77775 

1 

C:  02761 

0 

15,  7 

C:  02222 

1 

I:  77776 

1 

34751 

0 

7007^ 

0 

1000C 

0 

12572 

1 

13547 

0 

I:  77220 

1 

1 5, 2700 

02707 

05364 

_ . 

o 

I • 7 76? 4 

. 

1 5,27  1 f 

C:  31557 

l 

I:  77776 

1 

32771 

1 

55736 

0 

3 773  0 

1 

55074 

1 

04616 

1 

C:  15  707 

0 

15 ,27  20 

05364 

0 

C:  04024 

0 

046  16 

1 

C:  71755 

0 

06C51 

0 

I : 

77776 

1 

35000 

1 

05204 

1 

1 5,  2730 

C:  02732 

0 

05155 

0 

04674 

0 

C:  71755 

0 

35023 

0 

05105 

0 

C : 

0?  741 

1 

C:  32065 

0 

1 5 ,2740 

05272 

0 

046  16 

1 

C : 

15271 

1 

25736 

1 

0605  1 

0 

I : 

53375 

0 

C: 

00325 

0 

C:  02707 

0 

1 5,  2750 

C:  (.2  707 

0 

I : 5 0135 

3 

C: 

02737 

0 

C:  32725 

0 

L: 

5 3575 

0 

C : 

02707 

0 

C : 

36731 

1 

C : 47535 

1 

15, 2760 

I:  776  24 

1 

C:  47676 

0 

C : 

02715 

0 

I : 77776 

1 

0 5364 

0 

C: 

04024 

0 

060  5 1 

0 

Is  7765C 

1 

1 5 ,2770 

C:  02745 

0 

C:  77753 

0 

C: 

01404 

0 

C:  07357 

1 

C : 

06211 

0 

I : 

71220 

l 

C : 

02745 

0 

C:  00322 

1 

AP:  ASSEMBLE  REVISION  56  OF  AGO  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  CCT.  21,1970 


PAGE  1635 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROS)  OR  "C"  (CONSTANTS) 


I : 

65325 

0 

C: 

00324 

1 

C: 

00  323 

0 

i: 

77666 

1 

C: 

24766 

C 

C : 

24005 

1 

I : 

77624 

1 

C: 

47671 

1 

15,  30  10 

C: 

26  7 C 7 

0 

C : 

, 

l 

I : 

77624 

1 

C: 

47700 

0 

C: 

36715 

1 

C: 

47535 

1 

I : 

77624 

1 

C : 

20030 

0 

1 5, 3020 

I: 

77775 

1 

C: 

02665 

0 

C: 

24007 

0 

C: 

02673 

1 

C : 

34015 

1 

C : 

47437 

1 

I : 

77624 

1 

C: 

47245 

1 

15,  3030 

I : 

77776 

1 

33040 

0 

04616 

1 

C: 

17270 

1 

04616 

1 

C : 

17715 

1 

05712 

0 

12766 

0 

15, 30  AO 

C: 

02737 

0 

34755 

1 

13044 

0 

34753 

1 

55757 

1 

05364 

0 

C: 

040  24 

0 

12270 

1 

1 5 ,3050 

31757 

3 

03036 

1 

13063 

0 

05364 

0 

C : 

04024 

0 

06  051 

0 

I : 

45145 

3 

C: 

33562 

0 

15,  3060 

C : 

2250C 

0 

C : 

37254 

0 

C : 

33075 

0 

0 6051 

0 

I: 

77775 

1 

C: 

02715 

0 

C: 

02761 

0 

I : 

45145 

0 

1 5 ,33 70 

C: 

(■3562 

0 

C: 

32500 

0 

: 

03246 

1 

I : 

77776 

1 

13043 

1 

I : 

77131 

1 

C: 

00052 

0 

C: 

00006 

1 

■ 

C : 

00014 

1 

I: 

64373 

1 

C: 

74515 

0 

C: 

03607 

0 

I : 

77656 

1 

C : 

12723 

1 

I : 

77773 

1 

C : 

75002 

1 

15,  3110 

C: 

10023 

1 

I = 

43104 

0 

C : 

33101 

1 

C: 

04315 

1 

C: 

33122 

0 

I: 

77624 

1 

C: 

31250 

1 

I : 

7761  4 

1 

15  ,3120 

C: 

00354 

3 

C: 

33202 

1 

I: 

77624 

1 

C : 

47437 

1 

I : 

77624 

1 

C : 

47245 

1 

I : 

77776 

1 

34752 

0 

15, 31 30 

70104 

0 

10000 

0 

13141 

1 

33307 

0 

0 4616 

1 

C : 

20477 

1 

06001 

0 

13141 

1 

15  ,3140 

1320  3 

1 

06051 

o 

I » 

40175 

c . 

0 2 740 

c> 

3 3145 

1 

c. 

02750 

1 

T. 

40  14  1 

1 

C: 

3060  2 

o 

15  ,31 50 

C: 

33250 

0 

I: 

52131 

0 

C: 

02746 

0 

C: 

33155 

0 

C: 

3 3030 

1 

I : 

77776 

1 

05364 

0 

C: 

04024 

0 

15,  3160 

06051 

0 

I : 

75160 

1 

C : 

03606 

1 

C: 

01731 

0 

I: 

45014 

0 

C: 

0 1462 

0 

C: 

31371 

0 

I : 

77776 

1 

15,3170 

11144 

3 

13173 

0 

13  203 

1 

34752 

0 

701  04 

0 

10030 

0 

13555 

0 

3605  1 

0 

1 5, 32  CO 

I : 

77624 

1 

C: 

33502 

0 

I: 

77776 

1 

35752 

1 

04616 

1 

C : 

20624 

0 

16001 

1 

13555 

0 

15, 3210 

44752 

1 

61144 

1 

00006 

1 

13215 

o 

1 60  D 1 

1 

05364 

0 

C: 

0 40  24 

0 

0605  1 

0 

15,3220 

I : 

45  175 

3 

C: 

02222 

1 

C: 

47666 

1 

I: 

43105 

l 

C: 

01732 

c 

C : 

Cl  463 

1 

I : 

51515 

1 

C: 

3 2021 

0 

15, 3230 

I : 

45561 

1 

C : 

75745 

0 

I : 

47014 

1 

C: 

00662 

0 

C: 

21555 

1 

I: 

77624 

1 

C: 

30440 

1 

C : 

01220 

0 

15,3240 

I: 

65352 

0 

C: 

0 1 24  2 

1 

I : 

77606 

1 

C : 

35234 

1 

C : 

51644 

0 

C : 

32021 

0 

I: 

77776 

1 

1633  1 

1 

15,  3250 

I : 

75160 

1 

C : 

02664 

1 

C: 

02642 

0 

I: 

77624 

1 

C: 

31371 

0 

I : 

77624 

l 

C. : 

47535 

1 

I : 

77624 

1 

15,  326C 

C: 

2003n 

0 

I : 

77624 

1 

C : 

47351 

0 

I : 

77414 

o 

C : 

04355 

o 

C: 

33277 

o 

35010 

0 

0 46 1 6 

1 

1 5 ,3270 

C: 

20477 

1 

0600  1 

0 

13274 

1 

13266 

1 

05364 

0 

C : 

04  024 

0 

06051 

0 

I: 

77624 

1 

15, 33 OC 

C : 

31557 

1 

I : 

77624 

1 

C: 

31603 

0 

I: 

77624 

1 

C: 

32775 

0 

I : 

77650 

l 

C : 

33155 

0 

C : 

01535 

0 

i • 

0 46  16 

1 

C: 

3 3646 

o 

3*2  57 

1 

55144 

0 

34753 

1 

3 4 5 1 6 

1 

C: 

207  14 

1 

06001 

0 

15,3320 

13325 

l 

13314 

0 

05364 

0 

C: 

000  14 

1 

C 5 1 5 5 

0 

31144 

1 

76257 

0 

50000 

1 

15,  3330 

13331 

1 

13344 

0 

13405 

1 

13314 

0 

06051 

0 

I: 

75  160 

1 

C: 

01731 

0 

C : 

03606 

1 

15,3340 

I : 

776  24 

1 

C: 

31371 

0 

I: 

77650 

1 

C: 

33404 

1 

0605  1 

0 

I : 

77745 

1 

C: 

03442 

3 

C: 

0 1345 

1 

1 5,  3350 

I : 

77  776 

1 

32213 

0. 

04616 

1 

C: 

20477 

1 

16001 

1 

13357 

1 

1 3351 

1 

06051 

0 

15,3380 

l: 

65234 

1 

C: 

21555 

1 

C : 

01045 

1 

I : 

65254 

1 

C: 

33374 

1 

I: 

51325 

1 

C: 

0 1045 

1 

C: 

33374 

1 

1 5 ,3370 

I : 

45545 

1 

C: 

74335 

l 

C: 

36775 

1 

C: 

33376 

0 

I : 

45545 

1 

C : 

75002 

1 

C : 

34041 

3 

C: 

27056 

1 

» 
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ALL  V AL  ID 

WORDS  ARE 

BASIC 

INSTRUCTION  S 

EXCEPT  THOSE 

MARKED  "I  " 

II NTERPRETIVF 

OPERATOR  WORDS  ) OR 

"C‘ 

" (CONSTANTS 

> 

15,3400 

I : 53575 

0 

: 

D 

C: 

37607 

1 

C: 

10765 

1 

I : 

77776 

1 

347  5 5 

1 

55144 

0 

55145 

i 

15,  34  10 

34737 

0 

70C77 

0 

10000 

0 

34745 

0 

27145 

1 

34753 

1 

70102 

0 

10000 

0 

1 5 ,3420 

34750 

1 

27  145 

1 

34750 

1 

55  143 

1 

33645 

C 

C 461  6 

1 

C: 

20477 

1 

1600  1 

l 

1 5,  3430 

1 3432 

o 

1 34?4 

1 

34737 

70077 

0 

1O000 

0 

1 3535 

0 

34753 

1 

70102 

o 

15, 3440 

10000 

0 

13541 

C 

34752 

0 

71144 

0 

10033 

0 

1354  1 

0 

0 5600 

1 

C: 

00701 

1 

1 5 ,3451 

35036 

1 

34616 

1 

C: 

23477 

1 

16001 

1 

13424 

1 

13424 

1 

I : 

40220 

0 

C: 

32746 

0 

1 . 

C:  00C01 

0 

I : 77634 

0 

C : 

21555 

1 

C: 

27562 

0 

C: 

03246 

1 

I : 

A 15  25 

0 

C: 

03562 

0 

I : 

77624 

1 

15,3470 

C:  55720 

1 

r:  27246 

1 

C : 

03254 

1 

I : 

65201 

1 

C: 

ooooi 

0 

C : 

03562 

0 

Is 

450 C 6 

0 

C: 

55720 

1 

15, 3500 

C:  37254 

0 

0 

I: 

450  20 

1 

C: 

02  746 

0 

C: 

47535 

1 

I : 

40234 

0 

C s 

21555 

1 

C: 

00001 

0 

15,  35 1( 

C:  3756? 

1 

C:  20030 

0 

I : 

61375 

1 

C: 

02673 

l 

C: 

3 1732 

0 

I: 

65256 

0 

C: 

03562 

0 

I : 

4 500  6 

c 

1 5 ,3520 

C:  51644 

C:  26  2 30 

1 

C: 

02701 

Q 

I : 

5 3 505 

1 

C : 

0 1732 

c 

I ; 

41  525 

o 

C : 

C3562 

3 

. 

C:  51644 

0 

C:  02236 

1 

I : 

77614 

1 

C: 

33036 

1 

( : 

02746 

0 

06051 

0 

I : 

77624 

1 

C s 

33502 

0 

- 

- 

34  753 

1 

-11,, 

1 

n 

12572 

1 

n 

' ■ 

C:  04024 

0 

34753 

1 

70  10  2 

0 

1000C 

0 

13571 

0 

05364 

0 

C s 

04024 

0 

05527 

1 

15,  3560 

C:  00205 

0 

36257 

1 

71144 

0 

50000 

1 

13565 

0 

13571 

0 

13612 

0 

13630 

0 

1 5 , 3 5 70 

13631 

1 

0605  1 

1 1 

I ; 

77775 

1 

C i 

0223C 

1 

C : 

27246 

1 

C : 

0 2236 

1 

C: 

37254 

3 

C: 

47535 

1 

1 5,  36CC 

I : 77624 

1 

C:  20  3 30 

0 

I: 

77775 

1 

C: 

32673 

1 

Cs 

26761 

0 

C : 

02701 

0 

C : 

36767 

1 

C : 

33456 

0 

15, 3610 

[:  77650 

1 

C:  33075 

c 

06051 

0 

I : 

53575 

0 

C : 

02021 

o 

C: 

27246 

1 

C : 

02236 

1 

C s 

37254 

o 

, 

C:  47535 

1 

I:  77624 

1 

Cs 

200  30 

0 

I: 

45175 

0 

C : 

02222 

1 

C : 

47666 

1 

I : 

77650 

1 

C: 

33604 

0 

' ! • 

13041 

0 

06C51 

0 

I : 

53575 

0 

C: 

3 2021 

0 

C: 

03246 

1 

C: 

27254 

1 

Cs 

02222 

1 

I : 

77624 

1 

15,3640 

C:  47666 

1 

C:  3 6761 

1 

C : 

33456 

0 

I : 

77776 

1 

13043 

1 

C : 

0 1 2C  6 

1 

41277 

0 

74743 

1 

15,  3650 

10000 

0 

13555 

0 

05600 

l 

C: 

002  10 

1 

06001 

0 

05515 

0 

C : 

( >007 

0 

04631 

1 

1 5,  3660 

I:  54?01 

0 

C : 1 

0 

C : 

2 0617 

0 

I : 

56371 

1 

C: 

01707 

0 

120  24 

1 

Cs 

00031 

0 

1 : 

77170 

1 

' , 

: 

1 

C: 

1 

I: 

77614 

1 

C: 

00274 

0 

I : 

77745 

1 

C : 

12004 

0 

Cs 

00027 

1 

is 

40745 

0 

15,  37C0 

C : 00031 

C:  12050 

. 

42661 

I ; 

? 

1 

C : 

12044 

1 

1 : 

6201  5 

1 

1 5,37  10 

e ; 2 T 

1 

C:  77771 

0 

C : 

00027 

1 

I : 

7761  4 

1 

C : 

00054 

G 

C : 

33577 

1 

I: 

4074  5 

0 

C: 

00031 

0 

15,3720 

C:  65747 

0 

I:  42661 

0 

C: 

23  20  6 

1 

C: 

65741 

0 

Is 

77625 

0 

C : 

00027 

1 

C : 

10021 

0 

I : 

63135 

0 

1 5,  3730 

C:  00050 

1 

r : 77775 

1 

1 : 

5 3015 

o 

C: 

1 ? 0?  6 

o 

C : 

3 3764 

1 

1 : 

77644 

1 

r : 

33674 

1 

I : 

45345 

1 

1 5 ,3740 

: 

1 

C:  00025 

0 

I : 

65356 

1 

C : 

00021 

1 

I : 

65356 

1 

C : 

00021 

1 

Is 

55546 

0 

I : 

53521 

1 

1 5 , 375C 

C : 12002 

0 

C:  02723 

0- 

I: 

65345 

0 

C: 

12034 

0 

C: 

00023 

0 

I : 

65356 

1 

C : 

00023 

0 

1 : 

55546 

0 

1 5, 376C 

l:  5 3521 

1 

C:  12002 

0 

C : 

02715 

0 

I : 

77616 

0 

I : 

77745 

1 

C: 

12034 

0 

C: 

00027 

1 

Is 

77650 

1 

1 5 ,3770 

• 

1 

C:  03771 

0 

C: 

0 377  2 

0 

CKSM 

47477 

0 

a 

a 

a 

a 
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16,2000  00006  l 

16,  20  10  10G00  0 

1 6,2020 

16,  2030  74737  1 

INSTRUCTIONS 

00031  0 
12206  0 
10090  0 
100G0  0 

EXCEPT  THOSE 

40000  0 
41262  1 
12157  1 
12041  1 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 

74355  1 00006  1 12012  1 
74751  1 27262  1 12163  0 
00002  0 22016  0 09006  1 
94737  9 2726?  1 37727  1 

OR  "C"  (CONSTANTS) 

41300  1 

34742  1 

22012  1 

05  07?  1 r : 

74746 

00006 

31262 

03550 

1 

1 

0 

1 

15,2940  C:  42106 

0 

02000 

0 

30111 

0 

74751  1 

00006  1 

12157 

1 

04674  0 

C: 

40  154 

0 

’6  ,2050  34755 

1 

55524 

1 

55525 

0 

55526  C 

55421  0 

55422 

0 

55423  1 

55430 

9 

16,2060  55431 

1 

55432 

1 

55536 

1 

55537  0 

55540  0 

55541 

1 

55424  0 

55425 

1 

15,2070  55501 

0 

55503 

1 

55544 

1 

55545  0 

55510  0 

555  1 2 

1 

55502  0 

55630 

1 

16,2100  55632 

0 

55631 

0 

55633 

1 

55460  0 

55461  1 

55766 

0 

55767  1 

55770 

1 

. ' ' 

1 

71262 

l 

55262 

1 

00006  1 

30033  1 

53441 

0 

30034  0 

55442 

0 

16  ,21  20  41262 

1 

74740 

1 

27262 

1 

34751  0 

55534  0 

55535 

1 

34733  1 

54031 

1 

, 

0 

55470 

1 

34755 

1 

55467  1 

55471  C 

55465 

0 

55472  0 

55473 

1 

16,2140  55474 

0 

44363 

1 

55756 

0 

34752  0 

55433  0 

55434 

1 

55435  0 

00006 

1 

1 6 ,2  1 50  32205 

1 

53264 

1 

37741 

1 

540  30  0 

15301  1 

C : 

02024 

0 

C:  34106  1 

04674 

9 

. 

1 

04674 

0 

C : 

35451 

1 

90005  1 

32156  1 

53264 

1 

34755  1 

55472 

0 

16,2170  55473 

1 

55474 

0 

00006 

1 

01005  0 

00006  1 

91006 

0. 

42203  D 

90996 

1 

16,2200  03012 

1 

12152 

1 

C: 

03021 

1 

C:  07499  1 

C:  02213  0 

C : 

34106 

1 

00006  1 

32212 

1 

16,22  10  5200  6 

0 

C:  C 22  2 7 

1 

C : 

<*0106 

1 

37741  1 

26030  9 

22016 

0 

00006  1 

22012 

1 

16  ,2220  1 1756 

0 

05635 

l 

C: 

32000 

0 

0 2000  0 

30032  0 

55747 

0 

30033  1 

55750 

0 

16,2230  30034 

0 

55751 

1 

31634 

1 

90006  1 

21637  0 

02256 

l 

55634  0 

31635 

0 

1 5 , 2?  40  00006 

1 

21640 

0 

02256 

1 

55635  1 

31636  0 

99996 

1 

21641  1 

02256 

1 

16,2250  55636 

1 

00006 

1 

27445 

l 

00006  1 

27457  1 

12647 

1 

10000  C 

64753 

l 

I , 

0 

40000 

0 

00002 

0 

00005  1 

71740  1 

21427 

0 

00006  1 

31427 

1 

16,2270  53743 

1 

11426 

1 

12274 

0 

12304  0 

62315  1 

00006 

1 

62304  1 

1 1426 

1 

16,2300  34733 

1 

00002 

0 

44733 

0 

90002  0 

53427  0 

00006 

1 

1 1747  0 

00002 

0 

16,2310  54007 

1 

00002 

0 

50000 

1 

4 47  34  1 

00002  0 

C: 

77  147 

9 

31736  1 

000C6 

1 

16,2320  71530 

1 

55744 

0 

31747 

1 

54001  1 

00006  1 

21  440 

l 

23440  0 

55736 

0 

16,2330  33623 

0 

55747 

0 

41744 

0 

90096  1 

74736  0 

27430 

0 

31745  0 

61544 

0 

16,2340  00006 

1 

77750 

0 

27431 

1 

31746  0 

61545  1 

09006 

1 

77750  0 

27432 

1 

16,  2350  31  750 

1 

540  91 

1 

00006 

1 

21441  0 

23441  1 

55737 

1 

00006  1 

71414 

0 

16,  2360  61736 

l 

5 ?4 2 7 

0 

02266 

1 

00005  1 

61421  1 

27430 

0 

02310  1 

55430 

0 

16,2370  C0006 

1 

1174  3 

0 

21447 

0 

41454  1 

00006  1 

73623 

1 

21447  0 

3175  1 

0 

» 


GAP:  ASSEMBLE  REVISION  *6 

OF  AGO  PROGRAM 

ZERLINA  BY 

Z3ROASTE3 

d:tal  LIS 

TING  FOR  PARAGRAPH  It  111,  WITH 

PARITY  BIT 

IN  BINARY  AT 

ALL  V AL  ID 

WORDS  APE  BASIC 

INSTRUCTIONS  EXCEPT  THOSE 

MARKED  "I" 

(1 

1 6 ,2400 

54001  1 

00006  1 

16,  24 10 

53427  0 

31417  1 

(2263  1 

30006 

1 

15 ,2420 

00006  1 

3174  3 0 

21451  1 

41455 

C 

16, 2430 

00006  1 

71737  1 

53427  0 

31420 

0 

If.,  244 C 

02310  1 

55432  1 

00006  1 

31  743 

0 

16  ,?450 

21453  0 

30  111  0 

74  73  7 l 

00006 

1 

I • 

31403  l 

12466  0 

00006  1 

31413 

0 

16,2470 

12472  0 

12507  0 

61751  0 

00006 

1 

16,2500 

00006  1 

11433  0 

27421  0 

02310 

1 

16,  25  10 

31744  1 

27421  0 

02310  l 

55421 

0 

16,2520 

00006  1 

62544  0 

22007  0 

23431 

0 

16,  2530 

2742 2 0 

02310  1 

55422  0 

3 1747 

1 

1 6,2540 

00006  1 

1 

l 6 ,2550 

0 2310  1 

55422  3 

11432  1 

12555 

1 

16,  2560 

220C7  0 

23432  0 

34755  1 

00006 

1 

16,2570 

554  23  1 

31747  JL 

57435  1 

61750 

1 

1 6, 2600 

11737  1 

27540  0 

25435  1 

31746 

0 

16,  26]  0 

40  1 1 1 l 

74744  0 

10000  0 

12624 

1 

1 . ■ ( 

55536  1 

55540  0 

C:  00074 

1 

1 6,  2630 

31536  0 

55424  0 

00006  1 

73621 

0 

16,2640 

21541  1 

31540  1 

55425  1 

00G06 

1 

16,2650 

71262  1 

10000  0 

03741  0 

5 2C11 

0 

16,  2660 

53755  0 

32665  0 

52016  1 

53757 

1 

1 6,2670 

12710  1 

12714  0 

11633  1 

12712 

c 

1 6,  2 70C 

27767  1 

00006  1 

27770  1 

34740 

0 

L S' t 27  1 

55631  0 

12672  l 

55633  1 

12675 

0 

1 6 ,2720 

03  c 12  1 

3473  5 1 

55631  0 

12672 

1 

16, 2730 

03012  1 

34735  1 

55633  1 

12675 

0 

1 6,2740 

00006  1 

00031  0 

40000  0 

73616 

1 

16, 2750 

50000  1 

33575  0 

55743  1 

362  54 

1 

16,  2760 

13013  1 

44756  0 

61  743  0 

00006 

1 

1 6 ,2770 

63013  0 

05600  1 C: 

: 0200 1 1 

34753 

1 
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TFF  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


NTERPRET I V F OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


23442  1 
6 1 4 ? 2 1 
00006  1 
02263  1 


2 1 A 53  0 
12A62  1 
53750  0 
62507  1 


31A15  G 
2 7 A 3 1 1 
73523  1 
00006  1 


A 1 A 56  0 
G0006  1 
31A06  1 
22007  0 


00006  1 
02310  1 
2 1 A51  1 
61A23  0 


00006  1 
3 1 AO  5 1 
55751  1 
23A30  1 


71737  1 
55A31  1 
31A16  0 
27A32  1 

73623  1 
53750  0 
11A30  0 
3A75  5 1 


5 5A2 1 0 
11A31  1 
34755  1 
57A3A  0 


25A34  C 
12602  0 
11A35  0 
57737  C 


61545  1 
5542 A 0 
3 1 5 1 C 1 
5554A  1 


31747  1 
12517  1 
00006  1 

61750  1 

31745  0 

61751  0 
55737  1 
00006  1 

27A23  1 
55425  1 

00006  1 
31512  0 


55433  0 
125AA  1 
1 1 434  1 
57736  1 


61544  0 
00006  1 
2 7423  1 
74756  0 

02310  1 
55544  1 
74766  0 
00006  1 


25433  l 
61751  0 
55736  0 
00006  1 


27422  0 
62602  1 
02310  1 
00006  1 

55423  1 
55545  0 
21537  0 
74766  0 


73621  0 55545  0 
53753  0 32666  0 
15306  0 C:  02667  1 
12724  0 00006  1 

71262  1 00006  1 
55501  C 55510  0 
55503  1 55512  1 
4 1262  1 74740  1 


12667  C 34747  1 
56017  1 22012  1 
13644  0 11631  0 

27766  0 00006  1 

12734  1 02740  0 
45007  1 000C6  1 
45020  1 30006  1 
27262  1 13627  0 


00006  1 
03554  0 
63002  0 
23262  C 


13014  0 
46254  0 
41742  0 
00006  1 


00006  1 
61742  1 
64751  0 
06001  : 


74745  1 
00006  1 
00006  1 
55262  1 
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OCTAL  LIS 

TING  FOR  PARAGPAPH  « 112, 

WITH  PARITY  RIT 

ALL  V AL  ID 

WORDS  APE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

. 

34755 

1 

13014 

0 

34753 

1 

16, 30  10 

64751 

0 

27743 

1 

1 2753 

0 

15,3020 

00C06 

1 

13027 

0 

30111 

0 

L6t3  J( 

70111 

1 

00006 

1 

13071 

0 

16,  3040 

13054 

1 

34751 

0 

00006 

1 

L6,3  05  0 

0 2o  3 1 

1 

00006 

1 

13062 

1 

16,30  60 

5 5460 

0 

13445 

0 

44363 

1 

1 6, 3^70 

13353 

0 

00006 

1 

0003  1 

0 

16,3100 

70111 

1 

00336 

1 

13466 

1 

1.6,  3110 

C00C6 

1 

02031 

1 

00006 

1 

16,3120 

31262 

3 

74742 

0 

00006 

1 

16, 3130 

13134 

0 

13217 

l 

C:  74777 

0 

uA 

34737 

0000  6 

02031 

0 

: 

3 

03003 

1 

04674 

16,3160 

55451 

1 

55452 

1 

55453 

0 

16,3170 

3313? 

1 

7 1262 

1 

55262 

1 

. 

22044 

1 

30042 

1 

53463 

0 

00006 

1 

23265 

l 

06022 

1 

' . 

54343 

1 

1323  1 

0 

41262 

1 

1 6 , 3230 

13154 

0 

30032 

0 

55634 

0 

15 ,3240 

60000 

1 

63133 

0 

00006 

1 

16,32  50 

40000 

0 

61454 

0 

55736 

0 

16,  3260 

11736 

0 

13264 

0 

1 3272 

1 

1 6,3270 

55445 

1 

0330  3 

1 

31262 

0 

i . 

55751 

1 

55464 

1 

03472 

0 

15,3310 

55464 

1 

11427 

0 

C3315 

0 

1 6 ,3320 

63  3 30 

1 

31445 

0 

03006 

1 

i . 

4474? 

0 

71262 

1 

55262 

1 

16,3340 

00006 

1 

77730 

0 

55524 

1 

16,  3350 

13360 

0 

31524 

0 

27524 

1 

16,  3360 

55742 

0 

34753 

1 

54001 

1 

1 6,33  70 

22,307 

3 

6475-3 

1 

55736 

0 

THE  RIGHT  OF  EACH  WORD,  "SI"  DENOTES  UNUSED  FIXED  MEMORY 
NTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0C006 

1 

06  001  0 

55262  1 

74753 

0 

55472 

0 

34737  0 

00006  1 

02031 

1 

10000 

0 

13466  1 

13071  0 

34735 

1 

55464 

1 

30032  0 

55634  0 

11460 

0 

00006 

1 

13064  1 

34750  1 

00006 

1 

C0006 

1 

00031  0 

40000  0 

75752 

0 

34363 

0 

55524  1 

34753  l 

55460 

0 

7473  5 

0 

00006  1 

13222  1 

34740 

0 

71262 

1 

00006  1 

13120  0 

34737 

0 

45014 

0 

71262  1 

55262  1 

13217 

1 

13217 

1 

31262  0 

74741  0 

00006 

1 

4474C 

1 

00004  0 

70111  1 

54111 

1 

1 3 1 50 

1 

03152 

1 

5 54  64 

1 

55446  1 

55447  0 

55450 

0 

55455 

0 

55456  0 

54042  0 

54044 

0 

34740 

0 

25111  1 

00003  1 

13445 

G 

54043 

1 

54042  0 

54044  0 

00004 

0 

00306 

1 

05013  0 

01265  1 

34755 

1 

27262 

1 

34740  0 

70111  1 

00006 

1 

13237 

0 

13237  0 

13237  0 

60000 

1 

30001 

c 

00006  1 

71444  0 

57454 

0 

C 000  3 

1 

41454  1 

61421  1 

55427 

0 

61476 

o 

00006  1 

63272  0 

34771 

1 

00006 

1 

13277  1 

03303  1 

31446 

0 

55634 

0 

34755  1 

55446  1 

55447 

Q 

0 331  5 

0 

55736  0 

6 1476  0 

000C6 

1 

41262 

1 

7474?  0 

27262  1 

13333 

0 

00006 

1 

71550  1 

20001  1 

02310 

1 

6 1 4 75 

0 

00006  1 

6 3351  0 

36254 

1 

7010  1 

0 

10000  0 

34753  1 

64751 

0 

13371 

0 

13445  0 

13370  1 

1344  5 

c 

03534 

0 

46254  0 

61742  1 

00006 

1 

IN  BINARY  AT 

MARKED  "I"  (I 

23262  0 

31743  0 

74743  1 

34755  1 

02031  1 

13445  0 

1 3065  C 

55443  1 

34743  0 

13217  1 

13125  0 

C:  00356  1 

00006  1 

13466  1 

55454  1 

0 32go  0 

34755  1 

33622  1 

74743  1 

10043  1 

70043  1 

03200  0 

13264  0 

74742  0 

30032  0 

03315  0 

63330  1 

41427  0 

31736  1 

34747  1 

11524  1 

23743  0 
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► 


^ octal 


LI  STI  NG  F OR 


PAPAGRA  PH 


113,  VvITF  PAPITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORDt  "3"  DENOTES  UNUSED  FIXED  MEMORY 


AIL  VAI  ID  WORDS  ARE  BASi:  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


, 

I , 3 A l ( 
IS ,3420 
1 A,  3430 


13432  0 

COOP 4 1 

55524  1 
7126?  1 


44752  1 
63627  1 
31736  1 
55262  1 


64751  0 
63575  0 
22007  G 
03434  1 


55521  1 
3 3006  1 
0GC04  0 
1 362  7 0 


31740  0 
63421  3 
5-34  71  C 
30  10  1 1 


05755  0 
27  7 36  0 
34574  3 
54001  1 


41736  G 
51743  0 
C:  37143  0 
34747  1 


63615  3 
33624  1 
44743  1 
00006  1 


> 


16,  34  4 0 
1 5 ,3450 
16,  3460 
16,3470 


TO  s 

00006  l 
61421  1 


21634  0 
55427  0 


00003  1 
00006  l 
61274  1 
44753  0 


00002  0 

21635  1 
27751  1 
55505  1 


03434  1 
00006  l 

57464  0 

30111  r 


05754  1 
71414  C 
00002  0 
74737  1 


34755  1 55524  1 

57751  0 30032  3 

03451  1 41642  1 

C 0 0 0 6 1 13510  1 


16,3500 

> 16,  3510 
1 fc  ,3520 
16,  3530 

> 


16,3560 

16,3570 


00004  0 
34755  1 
00306  1 
36254  1 


04674  0 c:  43641  0 
55500  1 00004  0 
63353  1 11524  1 
13360  0 C:  77377  1 


31524  0 00C06  1 

04674  0 C:  37334  1 
13525  1 13445  0 

C:  75  117  1 36254  1 


13444  1 00003  1 
00003  1 41740  1 
63532  C C 0306  1 
55741  0 51742  1 


13353  0 
63533  1 
63353  1 
33566  1 


C: 

C: 


0 

1 


00125  1 
00231  l 


73557  1 55740  1 
05600  1 C:  02003  0 
00140  1 C : 00006  1 
00151  1 C : 00132  1 


71260  0 
13445  0 
C:  30223  1 
C:  00245  1 


10000  0 13547  0 

55742  C 13535  0 

C:  00011  1 C:  33151  l 

C:  00377  1 C : 77445  1 


00002  0 
12773  1 
: 00146  1 
: 


11741  C 
C:  30252  1 
C:  00226  1 
C:  00002  0 


16, 3600 
16,  36  1C 

1 6 , 3 62  0 
16,  3630 


C:  07776  0 

C:  C777*  r 
C. : 74631  3 
61423  0 


C:  OOOC5  1 
C : C7776  C 
C:  063  15  0 
C2310  1 


C : o : 0 1 1 1 
C:  p7776  0 
C:  00600  1 
55437  1 


: 00012  1 
: 07776  0 
: 00632  0 
41643  0 


C : 07776  0 C : 

C:  07776  0 C: 

C : 77751  1 C : 

61422  1 


00003  l 
00  360  1 

00026  G 
02310  1 


f : 00010  0 
C:  07400  1 
C:  02734  0 
55436  0 


C:  00007  0 
C : 00266  0 
41644  1 
00006  1 


16,3640 
16 ,3650 
1 6,  3660 
1 6 ,3670 


33643  0 
51 743  0 
11524  1 

43620  1 


52C06  0 C : 02124  1 
11574  1 13654  1 
33734  1 13664  1 
1367  3 1 33620  0 


C:  361Q6  0 34752  0 

13673  1 63734  1 

43734  0 51743  0 

00C06  1 51743  0 


55743  1 600  GO  1 
00006  1 63712  0 
27524  1 51743  0 
71521  1 30001  0 


54002  1 
51743  0 
11524  1 
51743  0 


16,  3700 
I 6,  ?7  10 
1 6 ,3720 
16, 3730 


55  73  6 0 
13645  1 
13673  1 
OOOC6  1 


00006  1 

13721  1 
31737  0 
71531  0 


74742  0 
34755  1 
6 1740  0 
55745  1 


30006  1 
51743  0 
00006  1 
12316  0 


63735  0 
57524  P 
71532  C 


50002  0 
03336  1 
55746  1 
40000  0 


27513  0 
7476C  0 
41740  1 
24002  C 


11743  1 
30001  U 
6 1737  0 
13705  1 


1 6,3740  C:  07400  1 

16,3750  23512  0 

16,  3760  13762  0 

1 6,3770  0 IQ  12  3 


4 150  1 0 
11501  0 
34741  1 
44747  0 


00006  1 
34742  1 
26066  0 
71262  1 


71507  0 23510  1 41533  1 00006  1 71511  1 
13755  1 34743  0 54066  0 11503  1 34740  0 
43740  0 00006  1 02012  0 60066  1 00006  1 
55262  1 00002  0 C:  03775  1 C:  03776  1 CKS  M 16 122  1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 114,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  0 PER  AT  CR  WORDS)  OR  "C"  (CONSTANTS) 


1 7 ,2  000 

17,  20  10 
17,2020 
17,2030 


54002  1 
5527C  1 
55267  1 
12  031  0 


00006  1 
67769  l 
94707  0 
00396  1 


03004  0 
' r - l 
55266  0 
90004  0 


54001 
6203  1 
34  750 
61267 


74346  0 
30002  0 
00006  1 
64736  1 


40000  0 
03006  1 
02313  1 
64736  1 


64746  0 
05013  0 
00006  1 
56001  0 


74346  0 
40001  1 
12050  1 
32053  0 


17,  20  4-' 
1 7 ,2 05r 
17,2060 
1 7 ,2070 


mi? 


60001  0 
52005  0 
22007  0 
34733  1 


00006  1 
C:  00440  1 
53471  0 
5 40  31  1 


62953  0 

C : 77754  1 
53467  1 
12115  1 


62054  1 
10031  1 
23465  1 
33036  1 


00006  1 
00002  3 

54031  1 
23265  1 


62030 

35736 

67737 

22070 


17,2100 

1 7 ,21 20 

17,2130 


06022  1 
67737  0 
03336  1 
12135  C 


00006  1 
54000  0 
22012  1 

40111  1 


23265  1 
12115  1 
02055  0 
74740  1 


22070  0 
34733  l 
15301  1 
33096  1 


34735  1 
55466  0 
34737  0 
12136  C 


00006  1 
5300  1 0 
33906  1 
02655  0 


05013  0 
15754  C 
02031  1 
11630  1 


31466  1 
22016  0 
10030  3 
12636  1 


17,2140 
17,2150 
17,2160 
1 7,2170 


12623  0 
02931  1 
34746  0 
00006  1 


34755  1 
00006  l 
70111  1 
12176  1 


55630  1 
12200  0 
19000  0 
3nlQ6  0 


53437  1 
34744  1 
12203  0 
74737  1 


03290  0 
00006  1 
554  73  1 
10000  0 


53427  0 
02  031  1 
55474  0 
34752  0 


34745  0 
00006  1 
40111  1 
55500  1 


00006  1 

12231  1 
74744  0 

12232  1 


17,  2?rr 
17,  2210 
17,2220 
17, 223C 


3475?  1 
1235?  0 
11740  1 
71740  1 


64751  0 
30111  0 

12224  0 
55474  0 


55743  1 
74742  0 
05600  1 
34737  0 


67757  0 
10000  0 
02002  1 
30036  1 


55500  l 
34753  1 
35775  1 
0 2031  1 


30111  0 
64752  0 
71740  1 
10000  0 


74741  0 
55742  0 
55473  1 
12710  1 


1C000  0 
03225  1 
45775  0 
34735  1 


L7 ,2240 
17,  >5 

, 

17 ,22  70 


70111  1 

55452  1 
74753  0 
74747  9 


00006  1 
00003  1 
00006  l 

00006  1 


12354  0 
00006  1 
12  304  0 
12314  1 


00004  0 
00031  0 
31736  1 
31736  1 


04674  0 
55736  0 
74752  1 
74746  1 


C : 43  154  0 
11461  1 
00006  1 
03006  1 


34755  1 
12300  1 
12310  0 
12316  3 


55450  0 
31736  1 
31736  1 
13112  1 


1 7,  2300 
17,2319 
1 7,2320 
17, 2330 


41736  C 
43136  1 
55526  0 
0C006  1 


7235  1 0 
55525  0 
32350  0 
12341  1 


55461 
33136 
55477  ' 
51505  - 


13112  1 
12320  0 
34753  1 
11525  0 


33136  0 
33136  0 
55461  1 
34776  0 


55525  0 
12317  1 
55505  1 
12337  0 


43136  1 
43136  1 
30111  9 
44776  1 


12320  0 
55525  0 
74737  1 
51505  0 


1 7 ,2349 
1 7 » 2 3 5C 
17,  2360 
1 7 ,237' 


55525  0 

71443  1 
71262  1 


*3  0 1 1 1 0 
00063  1 
00C06  1 
55262  1 


74742  0 
34751  0 
12377  1 
12374  1 


10000  0 

34740  0 
C:  00056  1 


3475-3  1 
55632  0 

79111  1 
34755  1 


64752  0 
44753  0 
00006  1 
55462  1 


55742  0 
55630  1 
12710  1 
55463  9 


12756  0 
34735  1 
44743  1 
11462  1 
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GAP: 

OCTAL  LISTING  FOP  PARAGRAPH 


W IT  h PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "id"  DEMOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 7,2400 
17, 24  10 
1 7,2420 
17,2430 


12403  0 

30  G 1 5 
12423  1 
30001  0 


00006  1 
12423  1 
00006  1 


12403  0 
71444  0 
12423  1 
71444  0 


60000  1 

57455  1 
60000  1 

57456  1 


60000  1 
^0000  0 
60000  1 
40000  0 


62373  1 

61455  1 
52373  1 

61456  1 


00006  1 
5574C  l 
00006  1 
55741  0 


71462  1 
11463  0 

71463  0 
41455  0 


17,  ''4  4"' 
1 7 ,245C 
17,  246C 
1 7 ,2470 


61422  1 55436  0 
C0004  0 04674  0 
61476  0 00006  1 
61476  0 00006  1 


41456  0 
40154  0 
62464  0 
62474  1 


61423  0 55437  1 53437  1 
00003  1 1 1740  1 G246C  1 
12502  0 11741  0 02470  C 
12502  0 31262  0 74741  0 


03200  0 
C246C  1 
02470  0 
000C6  1 


53427  0 
02460  1 
0247C  0 
1250  1 0 


17,2500 
17,  2510 
1 7,2520 
17,  253' 


12504  0 
55453  0 
11427  0 
34755  l 


12710  1 
1 1426  1 
12524  1 
55427  0 


34771  1 
12515  0 
12524  1 
17544  1 


55457  1 
12515  0 
12524  1 
11427  0 


34755  1 55450  0 55451  1 55452  1 
12615  0 61476  0 OOOCfe  1 62533  0 
61476  0 00006  1 62530  0 12544  1 
02537  1 02537  1 02537  1 61476  0 


00006  1 
74741  0 
34753  I 
51505  0 


6 2 c 5 3 0 
27262  1 
55505  1 
55534  0 


34755  1 
02556  0 
34751  0 
13034  1 


55426  1 
44741  0 
55742  0 
51505  0 


51  505  0 
11426  1 


00006  1 
55262  1 
51534  1 
34755  1 


62553  0 
32622  0 
12567  0 
1260C  1 


41262  1 
55477  ; 
34751  0 
34753  1 


1 7,  26  K 

1 7 ,2620 
l 7,  2630 


51505  0 
20001  1 
34755  1 
12632  0 


63755  0 50000  1 41570  C 00006  1 51505  C 71426  1 54002  1 
60002  0 54000  0 12615  0 30002  0 51505  0 55525  0 12756  0 
12615  0 C:  02561  1 34736  1 70111  1 10000  0 12141  0 11502  0 
12141  0 00006  1 00005  1 10000  0 12641  l 00006  1 32654  1 


1 7 » 264C  52006  0 

17,2650  34755  1 

1 7,  2660  55736  0 

17,2670  00006  1 


11632  C 12644  1 
55  S 3 2 0 12141  0 
00006  1 71415  1 
71417  0 61275  0 


12141  0 00004  C 

C:  0 3001  0 C:  42106  0 
55751  1 30034  0 

61751  C 57450  1 


04574  0 C:  43232  0 
30033  1 00006  1 
00006  1 21636  1 
31736  1 00006  1 


00003  1 
21635  1 
55737  1 
71416  1 


1 7,2700 
1 7, 27  10 
1 7,2720 
17, 2730 


55751 
3 1^52 
55505 
51505 


1 

0 

1 

0 


31737  0 
22000  1 
51  6.;  5 0 
31 750  l 


00006  1 
31450  1 
51534  l 
55751  1 


71420  1 
03200  0 
12724  0 
51505  0 


61276  0 61751  0 
53751  1 33142  0 
34751  0 51505  0 
31426  0 55427  0 


57452  0 00002  0 
65477  0 34753  1 
55534  0 13034  1 
30111  0 74737  1 


1 7,2740 
1 7,  2 7 50 
17,  2760 
1 7,2770 


10000  0 
00004  0 
00006  1 
C 0006  1 


12744  0 
04674  0 
12772  0 
13112  1 


03304  0 
43641  0 
40106  1 
34752  C 


12756  C 
00003  1 

74737  1 
54001  l 


40111  1 
34751  0 
00006  1 
51505  0 


74736  0 
55742  0 
12772  0 
11  525  0 


10000  0 
301C1  1 
301  1 1 C 
13003  0 


55630  1 
74737  1 
74744  0 
13026  1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 116,  WITH  PARITY  BIT  IN  8 IN  ARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 7 t3  OOO 
17,  30  If 
17 ,3020 
1 7, 3D3C 


13002  1 
31736  1 
31740  0 
00C04  0 


13026  1 
63137  1 
00004  0 
50000  1 


22007  0 
6 l 
50001  0 
05754  1 


64753  1 
63037  0 
05755  0 
00003  1 


55736  C 
03225  1 
00003  1 
11505  1 


31505  0 
51505  0 
13133  1 
01477  1 


600 Cl  0 
33134  1 
51505  0 
13270  0 


55743  1 
54001  1 
33134  1 
41736  0 


1 7,  3060 
1 7 ,30  70 


am  ? 


51505  0 
03225  1 
31736  1 


55525  C 
51505  0 
55470  1 


27736  0 
11500  l 
33134  1 
03143  1 


51535  0 
1306C  0 
00004  0 
00003  1 


11525  0 
C0006  1 
55471  C 
34755  1 


33136  0 
00004  3 
31740  0 
51505  0 


13051  1 
74753  0 
51471  1 
55534  0 


17 ,3100 
17,  31  1" 

17,3120 
17,  31  30 


46257  0 
55522  1 
03306  1 
00004  0 


61742  1 
13034  1 
13123  0 
05771  0 


00006  1 
34755  1 
05760  0 
00003  1 


6 3106 
55525 
34751 
13273 


34752 

55526 

57535 

00004 


13107  0 
34751  0 
03333  1 
00015  0 


34753  1 
00004  0 
00006  1 
00026  0 


51505  0 
57534  1 
13273  0 
77417  0 


17,3140 
1 7,31  5< 
17*  3160 
17,3170 


C:  00  600  1 
53467  1 
00006  1 
00006  1 


00266 
53471 
05013 
6003  1 


C.  : C2  72  0 0 
54031  1 
01265  1 
53467  1 


41470  1 
23465  1 
61466  1 
C0002  0 


60031  o 
00006  1 
00006  1 
4000G  0 


03306  1 
23265  1 
63174  0 
64754  0 


63163  0 
06022  1 
23467  0 
5547  0 1 


23465  1 
34735  1 
53471  0 
00002  0 


17,3200 
17,  32  1 

1 7,3220 

17, 3230 


W’Mtl 


23737  0 
55736  0 
13223  3 
73263  1 

51743  0 
11742  0 
C:  C0022  1 
33272  0 


00006  1 
13215  0 
50000  1 
55740  1 

33257  1 
13237  0 
C : 00204  1 
07766  1 


71626  0 
50000  1 
4473a  1 
71257  1 

51742  1 
51505  0 
C : 00041  1 
C:  03273  1 


57737  0 
44734  1 
23736  1 
10000  0 

73263  1 
55525  C 
00125  1 
53753  0 


OCC06  1 
55736  C 
00002  0 
13236  1 

55740  1 
05600  1 
C:  002  52  1 
52011  0 


71627  1 
41737  1 
51743  0 
00002  0 

71257  1 
C : 02  004  1 
C:  00  146  1 
53755  0 


540C1  1 
60001  0 
33257  1 
36257  1 

000C6  1 
13026  1 
C:  00231  1 
56017  1 


61737  0 
54007  1 
51742  1 
55742  0 

13235  1 
C:  00110  1 
C : 00377  1 
22002  0 


1 7,  3300 

1 7 ,3326 
17,  3330 


34735  1 
55745  L 
4 1751  1 
55737  1 


53757  1 
31427  1 
56751  1 
31751  0 


5201  6 1 
00006  1 
41427  0 
' • t 1 


15  303 
63320 
55427 
7 4747 


00006  1 
31745  0 
34753  1 
1000C  0 


23744  1 
55743  1 
27746  1 
13717  1 


51505  0 
33757  1 
55743  1 
13340  1 


33755 

13330 

43757 

13663 


17.335C 
17,  3360 
1 7,3370 


34737  0 
13352  1 
55736  0 
6 1 600  0 


00006  1 
13725  0 

11751  1 

1 


70001  1 
23427  1 
13365  0 
63377  1 


55751  1 
31427  1 
13365  0 
34752  0 


31427  1 
00006  1 
13365  0 
27743  l 


00006  1 
70000  0 
63760  0 
34751  0 


74750  0 
00006  1 
00006  1 
13402  0 


000C6  1 

74737  1 
51745  0 
11500  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 117,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''3''  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  FXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) OR  "C"  (CONSTANTS) 


1 7,34  0. 
17,  34 10 
17, 34  2l. 
17,1430 


13402  0 
6160C  0 
00006  1 
41 525  o 


13373  1 
00006  1 
71736  0 
00006  1 


55  74?  0 
61751  0 
61751  0 
71737  1 


41736  0 
55740  1 
51745  0 
00006  1 


C0006  1 
00006  1 
61602  1 
67465  0 


51743  0 
63575  C 
DODOS  1 
11554  0 


71566  1 
51745  0 
63461  1 
13447  1 


51745  0 
31572  0 
5 1 50  5 0 
41740  1 


1 7,  344  ' 

1 7,3450 
17,  346f 
17, 3470 


61745  0 61604  1 
4 1 6DC  1 60000  1 
13602  1 54001  1 
00006  1 51743  0 


00006  1 
61740  0 
11737  1 
71575  0 


63455  0 
0C006  1 
13467  0 
20001  1 


03561  0 
6 3457  1 
05706  C 
20D01  1 


31740  0 
34755  1 
44752  l 
53747  0 


13615  1 
13521  0 
27743  1 
51743  0 


51745  0 
03561  0 
30001  0 
31567  1 


1 7,3500  00006  1 71427  0 

17,  35 10  63536  1 31 741  1 

17,3520  34741  1 00006  1 

17,3530  30001  0 00006  1 


17,3540  53747  0 000C6  1 

1 7,3550  21747  D 31741  1 

17,  3560  13521  0 41  737  1 

17,3570  63773  1 00006  1 

17,3600  00006  1 63615  0 

1 7,  9610  1 1 4?  7 n 74746  0 

1 7,3620  00D06  1 51743  0 

1 7,  3630  00006  1 700D0  0 


51741  0 00006  1 73767  0 
00005  1 73770  0 61746  0 
71737  1 5 1 5C5  0 55525  0 
63535  1 3475 1 0 55742  0 


11746  1 00006  1 74736  0 
63762  1 53747  0 00006  1 
55737  1 31427  1 00006  1 
63574  1 13520  1 00002  0 


41555  1 61741  1 00006  1 
13521  O 0570S  O 13521  0 
71574  1 20001  1 20001  1 
00006  l 61746  0 00006  1 


61 746  0 67760  1 00006  1 
63761  1 00006  1 63546  0 
DDDDS  1 51505  0 71546  0 
01744  1 43766  1 61741  1 

13656  0 00006  1 33772  0 
11746  1 00006  1 74736  0 
51743  0 71566  1 55741  0 
33561  0 31740  0 61554  1 

63610  0 31741  1 13521  0 
03006  1 5X74S  0 61604  1 
53747  0 31741  1 63773  1 
63520  0 31746  0 67760  1 


17, 3640 
1 7 ,3450 
17,  3660 
1 7,3670 


00006  1 63651  0 
13521  D 43765  1 
63455  O 63774  0 
31427  1 00006  1 


33763  0 53747  0 
53747  0 00006  1 
13521  0 43776  0 
51743  0 71570  0 


00006  1 11746  1 
11746  1 61741  1 
27427  0 03006  1 
67753  1 33336  1 


61741  1 63764  1 
63775  1 03336  1 
63707  1 03745  1 
63700  0 13520  1 


17,971  0 

1 7,3720 
1 7,  373C 


00006  1 

11737  1 
33776  1 
61751  0 


34753  1 
61427  1 

C0006  1 


64740  0 23031  1 
13714  1 37761  0 
54C0C  0 13671  0 
74741  0 57427  1 


20001  1 20001  1 13656 
27743  1 41427  0 13671 
13520  1 03745  1 51745 
00006  1 70000  0 00006 


0 03747  0 

L 1 3745  1 

0 41630  1 

1 51745  0 


17,3740 
1 7,375C 
1 7,  3760 
1 7,3770 


71570 

0 

61427  1 

00006  1 

63455  C 

13520  1 

41737  1 

55737 

1 

34751  0 

55742 

0 

34735  1 

55740  1 

00002  0 

C : 

77757  1 

C : 

00000  1 

C : 

00020 

0 

C: 

14400  0 

75673 

1 

C : 77  75  0 0 

C : 00  632  0 

C:  Cl  4 63  1 

C: 

03232  1 

C: 

77462  1 

C: 

77631 

0 

C : 

77145  1 

75462 

3 

C:  00007  0 

C:  25605  0 

C*.  76631  1 

C : 

00122  0 

C : 

77655  1 

C: 

04476 

3 

CKSM 

47533  1 
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OC  TAL  LI  STI  NG 

FCR  PAR  AGRAPH  .«  120  , 

W IT  h 

PARITY  BIT 

IN  BINARY  AT 

THE  R I GHT  OF  EACH 

WORO,  "3" 

DENOTES  UNUSED  1 

ALL  VAL  ID 

WORDS  ARE  BA  SIC 

INSTRUCTIONS  EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 

OR  »C"  (CON  STAN 

2 0 ,2  000 

C: 

1 

C:  0 1C46 

1 C 

: 10117 

1 

C:  00666  l 

32114  1 

70111  1 

55340  D 

20,  20  10 

7 4 7 3 7 

1 

' 

0 

34736 

1 

27343  0 

31340  1 

74355  1 

boot  6 1 

20 ,2020 

31340 

1 

72113 

1 

55340 

0 

32112  1 

046 1 6 1 

C:  20353  0 

155C 3 0 

. 

12014 

1 

36254 

1 

05475 

1 

15155  1 

34737  0 

27340  0 

12021  1 

20,  2040 

44737 

1 

70106 

1 

54Q01 

1 

41340  0 

74736  0 

10000  0 

34737  0 

20,2050 

54  106 

1 

4 1340 

0 

74  355 

1 

10000  0 

44737  1 

62114  1 

71340  D 

’ , ' t 

42114 

0 

7011  1 

1 

6 0001 

0 

54111  1 

74737  1 

10000  0 

31327  0 

' . 7 

55245 

1 

30111 

0 

74  741 

0 

00006  1 

12101  1 

44735  0 

70075  1 

20,2100 

12104 

1 

40075 

1 

74735 

0 

260  7 5 l 

30111  0 

76257  0 

60000  1 

20,  2110 

C4635 

0 

C : 02214 

1 c 

: 

0 

C:  331  33  0 

C:  1313  3 1 

30  1 1 1 0 

74747  0 

20,212: 

12122 

0 

1 2 1 30 

0 

30111 

0 

7475C  0 

00006  1 

12141  0 

32153  1 

20, 2130 

32152 

0 

55343 

0 

00006 

1 

22070  0 

37727  1 

05072  1 

C : 03555  1 

20, 21 40 

00070 

0 

32151 

0 

12131 

1 

00006  1 

22070  0 

02154  0 

32153  1 

20  ,21  50 

12134 

1 

C:  1 ! 

o c 

: 03434 

1 

C:  00554  0 

35015  0 

56003  1 

54001  1 

2 0 , 2160 

55634 

0 

30033 

1 

55635 

1 

30034  0 

55636  1 

12171  0 

35015  0 

20 ,2170 

5400  1 

1 

34755 

l 

55642 

1 

55643  0 

55644  1 

55537  0 

55640  0 

20,2200 

55274 

0 

55275 

1 

55276 

1 

2 2U0  3 1 

00002  0 

00006  1 

22071  1 

. 

22003 

1 

55536 

l 

55537 

0 

55540  0 

55541  1 

55424  0 

55425  1 

20»2220 

55545 

0 

2200  3 

1 

40  1 1 1 

1 

74744  0 

26111  1 

02116  0 

00071  1 

20, 2230 

54001 

1 

34750 

1 

00006 

1 

06001  0 

55262  l 

74750  0 

10000  0 

23.22^0 

40074 

0 

74735 

c 

00006 

1 

1 2 257  1 

3 0074  1 

74750  0 

10000  0 

• 

41450 

3 

5 5 7 S 1 

1 

41452 

1 

55762  1 

41464  1 

57760  1 

12456  0 

20,  2260 

55761 

1 

4142  1 

1 

55762 

1 

41421  0 

57760  1 

12456  0 

00006  1 

23,2270 

30322 

1 

00006 

1 

20033 

0 

55760  0 

00006  1 

71415  1 

57761  0 

. 

00006 

1 

20034 

1 

55762 

1 

00006  1 

71417  0 

61761  0 

02451  0 

. 

31760 

l 

,,  - 

1 

71416 

1 

57762  0 

00006  1 

7U20  1 

61762  0 

, 

55762 

1 

31760 

1 

00006 

1 

71414  0 

57760  1 

30321  1 

00006  1 

. 

6 1760 

1 

02451 

0 

55760 

0 

00006  1 

22061  n 

12456  0 

31262  0 

23 ,2340 

00006 

1 

12376 

0 

74751 

1 

00006  1 

12367  0 

44746  1 

00006  1 

■ 

44755 

0 

55760 

0 

55761 

1 

55762  1 

55763  C 

55764  1 

55765  0 

. 

540  51 

1 

54052 

1 

46254 

0 

71262  1 

64752  0 

’ 

12456  0 

• 

00006 

1 

)50  1 2 

1 

46254 

0 

71262  1 

55  26  2 1 

12456  0 

34746  0 

IXED  MEMORY 


40  I?  6 1 
12034  0 

12037  0 

00004  0 


60001  0 
54001  1 
61326  1 
54075  1 

55322  1 
00006  1 
12131  1 
C:  42106  0 

55343  0 
30032  0 
56003  1 
55641  1 


02166  1 
55544  1 
31262  0 
12336  1 


12266  0 
41422  0 
22061  0 
30323  0 

55761  1 
02651  C 
20032  1 
76254  0 

03012  1 
54050  0 
34  74  6 0 
00006  1 


GAP:  ASSEHRLE  REV  IS  I UN  56  OF  AGC.  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  OCT.  21,197^ 


PAGE  1646 


OCTAL  LISTING  F OR  oAPAGRAPH  « 121,  WITH  PARITY  RIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXFD  MEMORY 


ALL  VALID  WORDS  ARE  BASIC 


INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) 


OR  " C"  (CONSTANTS) 


2 tj  ,24 00 
2 , 2410 
2D ,2420 
2". 2430 


C 20 12  : 
54061  0 
12422  0 
50063  1 


10000  0 
42450  0 
42446  1 
41753  0 


12407  1 
00006  1 
60001  0 
60001  0 


41262  1 
50063  1 
54061  1 
50063  1 


74751  1 
71760  C 
1243r  0 
26050  0 


2 72  62  1 
54001  l 
53333  1 
50063  1 


12456  3 
10000  0 
32446  0 
23763  1 


34752  0 
32446  0 
5400 1 1 
10063  0 


20,  2440  124  10  1 

2 0,2450  C:  C'3l46  1 

20,  2460  52006  0 

23,2470  74737  1 


37752  0 

00006  1 

05014  1 

12456  0 

C:  77177  0 

C:  37200  1 

C : 00600 

1 

00002  0 

50000  1 

44734  1 

00002  0 

03006  1 

3 246  2 

0 

02016  1 

C:  34106  l 

3 50  15  0 

54003  0 

04645  1 

54117  l 

30111 

0 

54157  0 

10000  0 

41327  1 

61245  0 

55326  0 

00004  0 

3010  6 

0 

2'  ,2500 
20,  251 
23  ,2520 
2C , 2530 


74737  1 
614C0  1 
22  3(7  : 
36254  1 


00336  l 
00006  l 
10  157  0 
54154  3 


12526  0 
62517  0 

31327  C 

41326  0 


44733  C 
41325  0 
61326  1 
62332  l 


55475  1 
62331  1 
53246  1 
00006  1 


35752  1 
00006  1 
12544  1 
62517  0 


54154  3 
62544  0 
44742  0 
41326  0 


41326  0 
27326  0 
55475  1 
62003  0 


2'-,  2 560 
23 ,2570 


50154  1 
10  155  1 


00" r 6 l 
44752  L 
33046  0 
12550  1 


62544  0 
26154  0 
00006  1 
12574  1 


12517  1 
31326  1 
13156  1 
12673  G 


00003  1 
50154  1 
50154  1 
22007  0 


13157  0 
63064  0 
63063  1 
41532  0 


13111  1 
54156  1 
50155  0 
61531  1 


34752  0 
30336  1 
55530  1 
00006  1 


2 r , 2600 
? , 26  K 
20.2620 
20,2630 


62624  0 
54155  1 

00306  1 
63110  1 


03006  1 11531  0 54155  1 63UC  1 00006  1 62611  0 43110  0 
30155  0 00006  1 73104  0 63136  0 55627  1 44733  0 6d55  0 
71627  1 55626  0 12647  1 00006  1 11532  0 54155  1 40155  1 
00336  1 62635  0 33113  1 54155  1 30155  0 00006  1 73104  0 


23 ,2640 
2 r , ^650 
7 >,  2660 
23,2670 


63107  1 
00006  1 
74736  0 
44763  3 


55626  0 
71531  0 
55533  1 
54155  1 


40155  1 
55533  1 
10154  0 
12553  1 


6 47  35  1 
31627  0 
34755  1 
31250  1 


00006  1 
00006  1 
5550?  0 
00006  1 


7 1 5 2b  0 
71  532  0 
13234  0 
71245  1 


55627  1 41626  0 
61533  0 00006  1 
44752  1 54154  0 
03C02  0 C:  33135  3 


. 

2 , 2 7 1 0 
20,2720 
20, 2730 


00006  1 7 1 52 00006  7 1 
55511  1 30154  1 
73103  1 55504  0 
64155  1 34752  0 


00004  0 54154  0 
00006  1 71531  0 
31  511  0 00006  1 
12734  1 34755  1 


00006  1 71532  0 
03032  0 C:  02000  0 
73103  1 55506  1 
54154  0 30155  0 


03002  0 C:  02000  0 
55507  0 00006  1 
00006  1 00012  1 
50154  1 73077  0 


23,2740 
20,2750 
2'-,  7 760 
20 ,2770 


00006  1 12755  0 

41507  0 12756  0 
10154  0 12733  0 
03306  1 1277  3 1 


30 1 55  0 50154  1 
50  154  L 31507  1 
40111  1 74736  0 
13712  1 11632  0 


73100  1 03036  1 
12756  0 34755  1 
00306  1 13712  1 
12777  0 04674  0 


12752  1 50154  1 

50154  1 55510  0 

41263  0 63772  0 

C:  43232  0 10157  0 
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OCTAL  LISTING  FOR  PARAGRAPH  » 12?  , WITH  PARITY  BIT  in  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


- t 

13675 

1 

13235 

1 

5416  1 

0 

54160 

1 

50C02 

0 

30000 

1 

24002 

0 

50090 

1 

20,  30  10 

30000 

1 

00006 

1 

1 3 041 

0 

54  162 

0 

10000 

C 

64763 

l 

13020 

1 

64753 

1 

2D  ,3020 

56  161 

1 

00006 

1 

63024 

1 

40000 

0 

601  6 1 

1 

99996 

1 

63033 

1 

30160 

0 

20  , 3030 

00006 

1 

10162 

0 

00002 

0 

10160 

1 

1 C 1 62 

0 

13041 

0 

10162 

0 

34735 

1 

20,  3040 

00OC2 

0 

34733 

1 

00002 

0 

C: 

01249 

0 

C: 

22513 

0 

C: 

09  141 

0 

C: 

07416 

0 

C : 

00030 

1 

2 0 , ? 05C 

C: 

21261 

1 

C: 

00021 

1 

C: 

03766 

0 

C: 

00153 

0 

C : 

07111 

1 

C : 

00072 

1 

C: 

24103 

9 

C: 

00135 

0 

20,3060 

C : 

11511 

1 

C: 

04754 

0 

C: 

77142 

0 

C: 

9 9061 

0 

C: 

00217 

0 

C: 

00464 

l 

C : 

7564? 

0 

e : 

005  36 

1 

2 D » 39  70 

C: 

75705 

1 

C: 

00001 

0 

C : 

77616 

0 

C : 

05154 

1 

C: 

00052 

0 

C: 

1 

1 

C: 

77  174 

0 

C: 

01400 

1 

20,31 00 

C : 

01003 

0 

C: 

06000 

1 

C: 

04000 

0 

C: 

23146 

0 

C: 

1 3241 

1 

C : 

00337 

0 

C : 

26501 

1 

C: 

51276 

0 

20,  31  10 

C : 

62362 

1 

34753 

1 

54160 

1 

34753 

1 

5416  1 

0 

59  160 

0 

33216 

1 

00006 

1 

2D  ,3120 

71326 

0 

00006 

1 

71327 

1 

50160 

c 

6321  7 

c 

54  154 

0 

13132 

0 

54161 

0 

20,  3130 

COO  06 

1 

26160 

1 

50  160 

0 

33221 

0 

00006 

1 

50161 

1 

71326 

0 

50160 

0 

20, 3140 

63223 

1 

00006 

1 

50161 

1 

71326 

0 

26154 

0 

19161 

0 

13127 

1 

10160 

1 

20,3150 

13157 

D 

C: 

OODOO 

1 

C: 

20354 

1 

30156 

1 

54155 

1 

34757 

0 

13112 

1 

33216 

1 

20,3160 

220C7 

0 

03002 

0 

C: 

01245 

0 

55539 

1 

34733 

1 

55550 

1 

55570 

0 

55571 

1 

2D ,3170 

55610 

o 

5561  1 

1 

00006 

1 

33152 

1 

00006 

1 

ID  155 

1 

00004 

0 . 

55531 

0 

20 ,3200 

55532 

0 

33107 

1 

55626 

0 

33106 

0 

55627 

1 

31245 

0 

C0006 

1 

70154 

0 

20,  32  10 

C0006 

i 

712  50 

0 

03002 

0 

C: 

00155 

0 

55511 

1 

127  16 

1 

C: 

00167 

1 

C : 

06176 

1 

2D ,3220 

C: 

77650 

i 

C: 

72260 

0 

C: 

76637 

1 

C : 

02167 

0 

C : 

00645 

0 

C : 

06335 

1 

C: 

04256 

1 

C: 

3C  163 

0 

20,  3230 

C : 

64072 

0 

C: 

53632 

9 

C: 

15133 

1 

C: 

7 1777 

0 

55632 

0 

31343 

1 

00006 

1 

74737 

1 

20,3240 

5400  1 

1 

60000 

1 

54115 

0 

41343 

0 

60001 

0 

5 4 114 

1 

0000  4 

0 

31540 

1 

. 

54  d:  1 

1 

31  536 

0 

94674 

0 

C: 

37200 

1 

53543 

0 

00003 

1 

301  1 1 

o 

74744 

0 

• 

10000 

0 

34753 

1 

54116 

0 

6 1522 

1 

10000 

0 

33767 

1 

541  c 1 

0 

00006 

1 

. 

13274 

1 

1011  6 

0 

33766 

0 

54152 

0 

31530 

0 

64743 

0 

54157 

0 

31530 

0 

. 

03  704 

1 

00004 

0 

55550 

l 

55551 

c 

44743 

1 

00006 

1 

715  50 

1 

00006 

1 

1 ,331 

10  157 

0 

55556 

1 

55557 

0 

34733 

l 

56662 

0 

55553 

1 

00003 

l 

22007 

0 

2 0 , 33  2r 

10116 

D 

5354  3 

c 

34755 

1 

54154 

0 

54163 

1 

50154 

1 

11542 

1 

64753 

1 

20, 3330 

13333 

0 

64753 

1 

24163 

0 

54  162 

0 

40  163 

1 

54164 

0 

31343 

1 

54143 

0 

23.3340 

54  144 

1 

30162 

1 

63770 

1 

00006 

1 

63436 

0 

19151 

0 

13376 

1 

31343 

1 

2 0,33  50 

5f  164 

1 

26144 

l 

59  16  3 

0 

54145 

0 

33233 

c 

60162 

1 

000C6 

1 

63362 

0 

, 

40H5 

0 

13371 

0 

40162 

0 

6000D 

1 

609DD 

1 

64736 

1 

60000 

1 

00006 

1 

, 7 

71343 

0 

59  16  3 

0 

54143 

0 

30114 

0 

50164 

1 

54146 

0 

30162 

1 

00996 

1 
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OCTAL  LISTING  F CR  PARAGRAPH  H 123,  WITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "3"  DFNOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  TH  CS  E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


2 , 3 4 1 r 
2 ),  342C 

, 


7 A 7 36  0 
94160  1 


60  16  2 1 
61533  0 
61533  0 
33435  r 


03704  1 
61533  0 
54157  0 
54161  n 


5G 1 64  1 

64743  0 

64744  1 
44744  0 


56157  1 
13737  0 


34733  1 
13462  0 
33704  1 
13467  0 


50163  3 
30162  1 
00006  1 
54001  1 


54127  l 
00006  1 
74736  0 
34733  1 


20,  3440 
23 ,3450 
20, 34 6C 


54146  0 
54134  0 


54130 
50  164 
54145 
30160 


1 

1 

0 

0 


10151  0 
54146  0 
30162  1 
50164  1 


13462  0 33771  0 60001  0 
60000  1 50163  0 54145  0 
61533  0 61533  C 54157  0 
54126  0 30162  1 61533  0 


00006  1 63457  1 
13462  0 31343  1 
0373C  0 50164  1 
64743  0 5400C  0 


2 0 , 3 500 
2 ’’,  ^ 5 10 
23 ,3520 
2r ,3530 


13502  1 
50164  1 
5400  l 1 
00006  1 


34733  1 
54124  1 
3C160  0 
63747  0 


63770  1 
40162  0 
50163  0 
0 37  24  0 


54157  0 
61533  0 
54125  0 
5G163  0 


03730  C 
61533  0 
40162  0 
54131  0 


50164  1 
037  16  1 
61533  0 
30160  0 


54132  3 30163  0 
50163  0 54133  1 
54157  0 63770  1 
50163  0 54123  0 


20, 3540  c0  1 54  1 33775 

20,3550  54134  0 50 154 

20,3560  30131  l 54133 

23,3570  60151  1 54150 


1 71257  1 00006  1 
1 33773  1 71257  1 
1 40146  0 60143  1 
1 00004  0 10154  0 


13551  1 30 124  0 54126  0 
00006  1 13562  1 30123  1 
60151  1 54147  1 40145  0 
13616  1 33122  0 55546  0 


30132  1 
54125  0 
60144  0 

3432c  1 


20,3600 
20,  3610 

. 

20, 3630 


05556  1 C:  00123  1 C:  01566  0 00003  1 52144  1 
5215C  1 52142  1 34753  1 54154  0 34755  1 
34320  1 05556  1 C:  00123  1 C:  Cl606  C 52152  0 
55561  0 61554  1 55563  1 55562  0 34755  1 


52136  1 52146  0 
13324  0 30122  0 
53555  1 31343  1 
55564  0 55565  1 


52140  0 
55547  1 
55560  1 
11554  0 


13656  0 52136  1 
5 3621  1 52146  0 
55601  0 55620  0 
34755  1 55604  0 


53601  0 52140  0 
53623  0 52150  1 
55621  1 61554  1 
55605  1 55624  1 


53603  1 52142  1 
53625  0 13676  1 
55602  0 55603  1 
55625  0 00004  0 


536C5  1 52144  1 
31343  1 55600  1 
55622  l 55623  0 
40111  1 74751  1 


20,  3 7QC 
2 , 3710 
2 0,3  720 
20,3730 


26111  1 00003  1 

10165  l 30002 

54157  0 6-3770  1 

64743  0 56157  1 


30  117  0 0464L  1 
34755  1 55502  0 
00006  1 63744  0 
00006  1 22161  1 


54165  1 34743  0 
55632  0 12777  0 
30157  1 00006  1 
03704  1 54160  1 


22007  0 00006  1 
22007  0 22122  0 
50164  1 70130  1 
44743  1 00006  1 


23,3740 

, 

2'»,  376 0 

, 


70  160  1 
34752  0 
13764  0 
C:  77377  1 


00006  1 
67761  0 
43770  0 
C:  00356  1 


10157  0 00161  1 43770  0 54157  0 

54122  1 60154  1 50000  1 33774  0 

54157  0 13532  1 30001  0 13533  0 C: 

: 02213  0 C:  OOllO  1 C:  00022  1 C:  00204  1 C: 


13725  0 10  163  1 

71257  1 00006  1 

00110  1 C:  00443  1 

00041  1 CKSM  62166  1 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


9:12  QCT  • 21 ,1970 


PAGE  1 649 


OCTAL  II  STING  FCR  PARAGRAPH  H 124,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD  , "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


Z 1 ,2000 

C:  01507  1 

C:  00466 

0 

C:  01034 

1 

C:  01115 

0 

C : 

05101 

1 

C : 

26305 

0 

02035  3 

44755 

0 

21,  20 1 C 

12013  0 

02035 

0 

34752 

0 

54002 

1 

00004 

C 

42031 

0 

70111  1 

54111 

1 

1 , 

32032  1 

55343 

0 

34735 

1 

54  107 

0 

00006 

1 

32033 

0 

52006  0 

C:  03414 

0 

21  ,2o3o 

C:  12063  1 

C:  40640 

1 

C:  00554 

0 

C:  00  106 

0 

C : 

OC 107 

1 

40774 

1 

61010  1 

30006 

1 

21,  2040 

12C51  0 

40105 

1 

74743 

1 

10000 

0 

12051 

0 

30  10  3 

0 

74747  0 

10000 

0 

2t,2050 

00002  o 

04364 

1 

04457 

0 

04635 

0 

r.  : 

21051 

0 

33103 

0 

74747  0 

33336 

1 

21, 2060 

15272  1 

36010 

0 

05204 

1 

C:  D 2055 

0 

30  107 

1 

74753 

0 

00006  1 

12073 

0 

2 I,  2070 

34747  l 

54001 

1 

04606 

0 

30107 

1 

74752 

1 

00006 

1 

12102  1 

34751 

0 

21 ,21 00 

54001  1 

04606 

0 

30  10  5 

0 

74743 

1 

C0006 

1 

12131 

1 

41010  0 

62034 

1 

21,  2110 

00006  1 

12131 

1 

00006 

1 

30033 

1 

40000 

0 

5400  1 

1 

74750  0 

10000 

0 

21,2120 

12012  l 

41  Cl  0 

0 

62033 

0 

00006 

1 

12131 

1 

3300  1 

3 

74753  0 

10000 

0 

21,2130 

12007  0 

40103 

1 

74741 

0 

1000G 

0 

12726 

1 

00006 

1 

41710  1 

53727 

0 

21,  2140 

00006  l 

03006 

n 

53731 

1 

21  ,2150 

00006  1 

31527 

0 

20001 

1 

20001 

1 

21731 

1 

00006 

1 

41714  0 

53733 

0 

21, 21 60 

00006  1 

31531 

1 

20001 

1 

23031 

1 

21733 

0 

41234 

1 

60025  0 

64736 

1 

21,2170 

64736  1 

57725 

0 

41254 

1 

60037 

0 

02761 

c 

33336 

1 

72000  1 

21727 

0 

Z 1 ,2200 

41255  0 

60040 

0 

02761 

0 

00006 

1 

7 2000 

l 

21731 

1 

41256  0 

60041 

1 

2 1,  22  10 

02761  0 

)0( 

l 

72000 

1 

21733 

0 

4 17  3 4 

1 

6 170  1 

0 

00006  1 

71725 

1 

21,2220 

21727  0 

4170  5 

0 

61702 

0 

00006 

1 

71725 

1 

21731 

1 

41706  0 

61733 

1 

21, 22  30 

00006  1 

71725 

1 

21733 

0 

41013 

0 

62331 

1 

00006 

1 

12300  1 

30075 

0 

2 1,  2 2 40 

74743  1 

000C6 

1 

12324 

1 

11623 

0 

12251 

1 

4 1346 

3 

64752  0 

00006 

1 

21  ,2250 

12261  1 

34737 

0 

00006 

1 

02031 

i 

10000 

0 

12324 

1 

31744  l 

33336 

1 

21, 2260 

12324  1 

00006 

1 

31727 

1 

53746 

1 

44755 

0 

54055 

0 

25623  1 

00006 

1 

21,2270 

32333  0 

53253 

0 

1 

0 

: 1 ( 

0 

05527 

1 

C: 

3 3 31  1 

1 

05515  0 

C:  00023 

0 

21,2300 

10756  1 

1 

0 

37724 

1 

051C5 

0 

G: 

02714 

1 

C : 

64065 

0 

35007  0 

54003 

0 

» 1 , *31 

37724  l 

55(  5 7 

0 

00006 

1 

32305 

0 

53443 

1 

34752 

0 

54001  1 

40000 

0 

*1  ,23 

52756  1 

350  1 6 

0 

54003 

0 

12326 

0 

34755 

1 

55744 

0 

40025  1 

55054 

0 

21,  2330 

12334  0 

C:  00102 

1 

C:  02102 

0 

C:  66067 

0 

3 1722 

1 

00006 

1 

71726  1 

5 3735 

0 

21.2340 

31722  1 

00C06 

1 

71  727 

0 

5 4001 

1 

34755 

1 

21735 

0 

31723  0 

00006 

1 

2 1 ,2350 

71  730  0 

21735 

0 

31724 

1 

00006 

1 

71732 

1 

21  735 

o 

31721  1 

00006 

1 

21,  2360 

71725  1 

21  735 

0 

00006 

1 

31735 

1 

52364 

1 

00006 

1 

31720  0 

20064 

1 

■ 

31725  0 

00006 

1 

74750 

0 

30001 

0 

00006 

1 

73063 

3 

63737  1 

33036 

l 

GAP:  ASSEMBLE 

REV  IS  ION 

56  OF  AGC  PROGR 

AM  Z6RLINA  BY 

ZOROASTER 

OCTAL  LISTING 

F CP  PARAGRAPH  n 125,  W IT  F PARITY  BIT 

IN  81 N ARY  - 

AT 

ALL  VAL  ID  WORDS  ARE  BA  SI 

C INSTRUCTION 

EXCFPT  THCSE 

MARKED  "I" 

(1 

2 1 ,2400 

31716  3 

21737  1 

34746  C 

00006 

1 

2 1,  2410 

74736  0 

10000  0 

12700  0 

34752 

0 

2 1 ,2*20 

OOC  06  1 

05014  1 

00006  1 

31735 

1 

21  ,24 3o 

7?004  D 

5603 1 0 

60000  1 

54002 

1 

2 1,  2440 

12443  1 

60001  0 

40000  0 

56060 

1 

2 1 ,2'+5C 

05235  D 

44752  1 

00006  1 

0 3o  1 4 

1 

2 1,  2460 

34755  1 

52064  1 

3173  6 1 

D0DO6 

1 

21,2470 

2000  1 1 

54000  0 

12476  1 

74733 

0 

21  ,2500 

12502  0 

34755  1 

56060  1 

34751 

0 

21,  2510 

54062  1 

32001  1 

>2070  0 

02745 

0 

21,2520 

72003  1 

56  CO  1 0 

60000  1 

54002 

1 

21,2530 

32002  1 

02745  0 

64754  0 

54054 

1 

2 1,  2540 

0Q0C6  1 

. 

2 1 ,2550 

1 2 5 5 2 

26 00  1 1 

41740  1 

26001 

1 

21, 2 5 60 

27740  1 

35020  0 

00006  1 

05014 

1 

21,2570 

12667  0 

41724  C 

00006  1 

7 1726 

1 

21 ,2600 

20066  0 

31722  1 

00006  1 

71733 

0 

2 1,  26  K> 

31731  0 

52064  1 

35015  0 

54003 

0 

2 1 ,26,20 

4l4l7  D 

000  0 6 1 

70063  6 

M 

0 

21,  2630 

41417  0 

00006  1 

70064  1 

60062 

0 

2 1,  2640 

00006  1 

7CC65  0 

52073  1 

31420 

0 

21  ,2650 

03306  1 

70066  0 

540  6 2 1 

31420 

0 

2 1,  2660 

34755  1 

20073  1 

24006  1 

00006 

1 

21,2670 

54071  0 

00006  1 

31731  0 

52073 

1 

02565  0 

40075  1 

. 

2 1,  2710 

65740  l 

55741  0 

34750  1 

05204 

1 

21,2720 

05012  1 

41300  1 

74744  0 

27300 

1 

21,  2730 

5407  l 

34744  1 

71300  1 

10000 

0 

0 30  1 2 1 

44744  0 

71300  1 

5 5 300 

1 

2 1 ,2  750 

10061  1 

10300  0 

22061  0 

12755 

0 

2 1,  2760 

00002  0 

56061  0 

30061  0 

74736 

0 

2 1 ,2770 

64734  D 

12775  1 

30061  0 

64736 

1 

9:12  OCT.  21,1970 


PAGE  1650 


RIGHT  OF  EACH  WORD , "3"  DENOTES  UNUSED  FIXED  MEMORY 


?ET  IV  E 

OPEPATOR  WORDS  ) OR 

»C"  (CONSTANTS) 

02030 

0 

10000  0 

12725  1 

40075 

1 

00006 

1 

02012  0 

00006  1 

12725 

1 

20001 

1 

20001  1 

2000  1 1 

00006 

1 

3 4 75  5 

1 

26001  1 

64735  1 

34751 

0 

00006  1 

05014  1 

35752 

1 

31737 

0 

00006  1 

72005  1 

5433  1 

1 

72005 

1 

20064  1 

52064  1 

2 0001 

1 

64735 

1 

12502  0 

lOCOC  0 

64753 

1 

00006 

1 

05014  1 

02565  0 

34742 

1 

22071 

1 

00006  1 

10062  1 

00006 

1 

1 2526 

c 

26001  1 

27741 

0 

32001  1 

22072  1 

02745 

0 

7 

. 

56001  0 

60000  1 

5400  2 

1 

32002 

1 

C2745  0 

64754  0 

54053 

3 

05272 

0 

40074  0 

74752  l 

00006 

1 

52066 

0 

31722  1 

00CC6  1 

71732 

1 

54C01 

1 

34755  1 

20066  0 

00036 

1 

3 1420 

0 

00006  1 

70065  0 

52071 

31 42  0 

0 

00006  1 

70066  3 

54362 

1 

54001 

1 

34755  1 

20071  0 

31417 

1 

00006 

1 

70063  0 

20073  1 

31417 

1 

00006 

1 

70064  1 

60062  0 

540  j 1 

1 

300  71 

1 

53743  1 

00002  0 

54070 

1 

00006 

1 

31712  1 

20073  1 

1266  3 

1 

34744 

00006  l 

05012  1 

44755 

02716 

0 

12564  0 

34752  0 

00006 

1 

0 5272 

0 

02565  0 

44736  0 

70075 

1 

34752 

0 

64744  1 

40000  0 

0000  6 

1 

12564 

0 

54061  1 

34755  1 

00006 

1 

12757 

1 

30001  0 

000C2  0 

40061 

1 

00006 

1 

12772  0 

30061  0 

64734 

0 

64736 

1 

22007  0 

56001  3 

5603  1 

0 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


ALL  V AL  ID 

WORDS  ARE  BA  SIC 

INSTRUC  TI  ORS 

EXCFPT  THCSE 

MARKED  "I" 

( 1 

2 1 ,3000 

00002  3 

3776  1 0 

55630  1 

34751 

0 

2 l, 3010 

55631  0 

55633  1 

30021  l 

600DD 

1 

l 1 ,3  0 20 

55747  0 

51747  l 

31536  0 

00006 

1 

21  ,3o3o 

44734  1 

56001  0 

11747  0 

50000 

1 

2 1,  30  AO 

55740  1 

00006  1 

13500  0 

51747 

1 

• 

00.306  1 

74747  C 

53737  1 

00006 

1 

21, 30  60 

74736  0 

00336  1 

71743  1 

6 1743 

0 

21,  30  70 

61740  0 

OOOC6  1 

11740  1 

57745 

0 

2 1 ,3100 

57746  0 

13135  1 

34733  1 

54001 

1 

2 1,3110 

53742  0 

00006  1 

31742  1 

53751 

1 

2 1 , 3 1 2D 

31746  0 

13124  1 

00006  1 

41746 

1 

21,31 30 

13134  0 

11751  1 

34753  1 

13135 

l 

2 1,  31  AO 

13142  1 

13146  0 

55741  0 

55742 

0 

21 ,3150 

53742  3 

00006  1 

31746  0 

21742 

0 

21, 3160 

30001  0 

00006  1 

, 73145  0 

27746 

1 

21.3170 

31742  1 

21746  1 

31  745  0 

00005 

1 

21  ,3200 

71  743  1 

27737  1 

54001  1 

13205 

1 

21,  3210 

53751  1 

31  742  1 

00006  1 

71740 

1 

21,3220 

11744  0 

13a 26  0 

13470  0 

13225 

0 

21,  32  30 

13426  0 

C : 23146  0 

34753  1 

55502 

0 

21.3240 

34755  1 

54066  0 

50066  1 

31507 

1 

21  ,3?50 

41536  1 

00006  1 

13315  l 

54002 

1 

21, 3260 

13265  1 

40000  0 

50066  1 

57501 

1 

21,3270 

54062  1 

44753  0 

13275  0 

54062 

1 

21,3300 

00006  1 

74740  1 

60062  0 

00006 

1 

' i . 3311 

00006  l 

1006 3 0 

00006  1 

13315 

1 

21 ,3320 

13331  1 

360  10  0 

50066  1 

55631 

c 

21, 3330 

55631  0 

10366  0 

13240  0 

52073 

1 

52073  1 

0CC71  l 

C : 00240  1 

1 1750 

0 

21  ,33  50 

000  D 6 1 

63353  1 

13356  0 

34755 

1 

, 

34757  0 

13363  0 

34755  1 

55740 

1 

21,3370 

13411  1 

37760  1 

27743  1 

00006 

1 
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RIGHT  OF  EACH  WORD,  »a  " OENOTES  UNUSFO  FIXEO  MEMORY 
PRETIVE  OPERATOR  WORDS)  OR  " C»  (CONSTANTS) 


55534 

0 

55535  1 

34752  0 

55632 

0 

55505 

1 

34752  0 

1 302  Fi  1 

34755 

1 

74752 

1 

00006  1 

13032  1 

50000 

1 

31436 

1 

53743  1 

51747  1 

31504 

1 

31450 

1 

00006  1 

71740  1 

23736 

1 

74747 

0 

27737  1 

41743  1 

DDDD6 

1 

00006 

1 

63102  1 

00006  1 

40001 

1 

30001 

o 

22007  0 

00006  1 

11740 

1 

53746 

1 

31742  1 

00006  1 

74743 

1 

31743 

0 

00006  1 

63122  0 

00006 

1 

21751 

1 

11750  0 

13132  0 

13131 

0 

44753 

c 

55744  0 

11744  0 

13151 

0 

00006  1 

4 1742 

31745 

c 

00006  l 

73145  0 

53746 

1 

5400  1 

1 

13167  0 

27745  1 

00006 

1 

71743 

1 

21737  1 

31746  0 

00006 

1 

27736 

c 

31741  1 

00006  1 

71740 

1 

2775V 

1 

5400  1 1 

13220  0 

27750 

0 

1 34  70 

0 

00006  1 

41742  0 

53742 

0 

34752 

0 

22002  0 

22C71  1 

13241 

1 

00006 

1 

53315  0 

54C  6 3 0 

50066 

1 

C0006 

1 

73231  0 

60002  D 

54DD  1 

1 

13321 

0 

00006  1 

63273  1 

40000 

0 

34753 

1 

50066  1 

5550  1 0 

30063 

1 

63321 

1 

40062  1 

00006  1 

73342 

0 

1 3327 

0 

34755  1 

50066  l 

55501 

0 

34755 

1 

55502  0 

13331  1 

50D66 

1 

57063 

0 

04674  0 

C : 35741  0 

5 206  3 

0 

1 3362 

1 

13347  0 

13353  0 

31751 

0 

55740 

1 

00002  0 

57750  l 

57751 

0 

35752 

1 

55743  1 

13375  1 

31750 

1 

63367 

c 

41750  0 

51  743  0 

64735 

1 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER  9:12  OCT.  21,1970 

OCTAL  LISTING  FCR  PARAGRAPH  H 1?7,  WITH  PARITY  PIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTES  UNUSED  ' 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  TH  CS  E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) OR  "C"  (CONSTAN 


21,3400 

00306  1 

63371  1 

51743  0 

21,3410 

1 1 7^6  1 

300C6  1 

23751  0 

2 1 ,34  20 

33536  1 

63534  0 

03540  0 

2 1 ,3430 

00306  1 

71741  0 

53742  0 

2 1,  3440 

27741  0 

31  743  0 

00006  1 

2 1 ,3453 

34735  1 

57741  1 

C0006  1 

21, 346C 

27737  l 

54001  1 

13464  0 

21,  3470 

11736  0 

13475  0 

13474  1 

3^735  1 57746  0 00006  1 31751  0 
03036  1 74736  0 55746  1 74737  1 
03540  0 0 3540  0 01751  0 03343  0 
00006  1 70001  l 27742  0 54001  1 


74736  0 27740  1 00006  1 13465  l 
7 1 74 1 0 21737  1 57741  1 C0006  1 
27736  0 13470  0 00006  1 3174?  1 
13477  1 11737  1 34753  1 13500  0 


21  ,3500  54001  1 
2 1» 3510  13512  0 
21,3520  41262  1 
2 1 » 35  30  33533  1 


21,  3540  55745  l 

21,3550  34755  1 

21 , 356C  C : 00632  0 

21, 3570  41525  0 


51747  1 57501  1 
13520  1 51747  1 
74747  0 27262  1 
52CP6  0 C:  03270  1 


54021  0 31746  0 
55536  1 55540  0 
34736  1 51505  0 
10000  0 00002  0 


00006  1 70001  1 

5 5 5 ID  0 51747  1 

11747  0 13017  0 

C:  36106  0 C:  26501  1 


22007  0 00006  1 
55424  0 55425  1 
55525  0 11744  C 
13575  1 1 3575-  1 


10001  1 13523  1 

43535  0 00006  1 

31505  0 54f  2 1 0 

C : 01400  1 C : 112  76  1 


11745  1 60021  1 
04616  1 C:  40465  1 
13605  0 13610  1 
51505  0 336  17  1 


21  ,3600  55767  1 

2 1,  36  10  515fS  0 

21,3620  C:  00012  1 

21,3630  22000  1 


34755  1 51505  0 
11767  1 13614  0 
44753  0 55744  0 
40111  1 74744  0 


55525  0 00002  0 
00002  0 13601  1 
31427  1 1363c  0 
10000  0 34767  0 


51505  0 31525  1 
03002  0 C:  00004  0 
34753  1 55744  0 
60001  0 00006  1 


21,  3640  13564  1 515C5  0 11525  0 
21,3650  03006  1 74766  0 10000  0 
21,3660  000C6  1 71411  0 00006  1 
21,3670  00006  1 63700  0 A4736  0 


2 1 , 37GG  34755  1 13562  1 C:  03702  1 

21,3710  a a HI 

21,372c  3 a a 

21,3730  a 5)  a 


13625  1 

13646  1 

13621  0 

55744  0 

13672  0 

13656  0 

13561  l 

31427  1 

13703  1 

00006  1 

63674  1 

31427  1 

13562  1 

4 3 5 6 C C 

6U27  1 

00006  1 

CK  SM  4 5174  1 

_ 

i37)?  0 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

21,3740  a a 

21  ,3750  a a) 

21,  3760  a a 

21,3770  3 3 


a a a a 
a a a a 
a a a a 
a a a a 
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33006  1 
10001  0 
5774  1 1 
13441  1 


51740  0 
71742  0 
21737  1 
44753  0 


1 3520  1 
03012  1 
00006  1 
C:  06000  1 


00002  0 
05155  0 
5 1505  0 
51505  0 


13571  0 
C : 00012  1 
41427  0 
63647  1 

31427  1 
61751  0 

63560  1 

63561  0 

a 

a 

a 

a 

a 

a 

a 

a 
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OSTAL  LISTING  F CP  PARAGRAPH  \\  130,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD  , "a"  DENOTES  UNUSED 


ALL  VALID  WORDS  AR  F BASIC  INSTRUCTIONS  EXCEPT  TH  CS  E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTAN 


22,230; 
22, 20  1C 
22,2020 
22  ,2 03 0 


C:  27533  1 
I : 51 535  C 
I:  77624  1 
C:  032^5  1 


C : .<''324  1 
f.  : 44MC  l 
C:  44  3 26  0 


C:  25004  1 
I:  51025  1 
I : 72364  0 
I:  45575  1 


C:  06702  1 
C:  0 4403  1 
C : 02221  1 
C:  50460  0 


06051  C 
C:  44724  C 
C:  00322  1 
I : 77626  0 


[ : 7 76  34  0 
I : 72364  0 
I:  77624  1 
C : 50466  0 


C:  44403  3 
C:  03245  ! 
C:  44410  1 
I:  77626  3 


22,  2040 
! , u 
22,206 C 
2 2,  2070 


I : 75160  1 
C:  51547  " 
I : 77626  0 
C:  02226  0 


C:  03302  0 
I:  776  26  0 
C:  53466  o 
C : 03307  0 


C : 07221  1 
C : 75555  0 
I:  77626  0 
I : 45325  1 


I:  77624  1 
I : 45001  1 
C:  74474  0 
C:  03315  0 


C:  44312  1 
C:  00023.  0 
I:  45345  1 
C:  02234  0 


I:  45575  1 
C:  44335  1 
C : 03305  1 
I:  77666  1 


C : 51541  0 
I:  45575  1 
C : 02224  1 
C:  03325  0 


22  ,2100 
22, 21 10 
22,2120 
22  ,213o 


C:  02222  1 
I : 510  25  1 
C:  03335  1 
C:  44  744  0 


C:  0 2 242  1 
C:  343  63  0 
C:  04365  0 
i:  53375  0 


I:  43225  0 
C:  44117  0 
I : 77244  0 
C:  02222  1 


C:  06510  0 
I:  77751  1 
C:  44131  1 
C:  03303  1 


C : 02232  0 
C:  00322  1 
C:  03325  C 

I : 77762  l 


C : 03333  1 
C:  37235  1 
1 : 77656  1 
C : 27303  1 


I : 77726  1 
C : 44742  0 

C:  03270  1 
C : 02230  1 


22,  2140 
22,2150 
22,  2160 
22, 217 r 


C : 000 03  1 
l:  56225  1 


C : 27311  1 
C:  065  16  0 
I : 65366  1 
C:  00001  0 


C : 
C : 


C : 


02236  1 I : 74455  0 
03333  1 I : 65204  1 
03313  0 I:  56225  1 
00003  1 I : 55566  1 


C:  03317  1 
C : 21674  1 
C:  00001  0 
I : 77656  1 


C:  r 3 3 1 7 1 
C : 03323  0 
C:  00003  1 
C:  03270  .1 


IS  70545  1 
I:  56225  1 
I : 65366  1 
I:  45345  1 


22 , 2 ? 0 0 
22,  2210 
22,222° 
22,2230 


C:  03272  0 I:  71240  1 
C:  44242  0 I:  45745  1 
C:  44224  0 I:  57575  1 
C:  03270  1 C:  03270  1 


C:  4421  l 0 
C : 03272  0 
C : 03270  1 
l:  51145  0 


C:  0 3270  1 
C:  3 3 274  0 
C:  03270  1 
C:  03315  0 


I : 50025  0 
I:  7764  0 0 
I : 51145  0 
C:  44744  C 


C : 03274  0 
C:  44266  o 
C:  03335  1 
I : 57545  1 


C : 44266  0 
I:  c 1 1 4 5 0 
C:  44232  1 
C : 03274  0 


22,  224 
22  ,225C 
22,  2260 
22,2270 


C : 44744  0 
C:  44274  0 


C : 44744  0 
- : 

I : 57545  1 
I:  57575  l 


I : 51 145  0 
C:  44256  0 
C:  03274  0 
C : 07270  1 


C:  03325  0 C:  44250  0 I:  57575  1 CS  03270  1 
I:  57545  1 C:  03272  0 C:  C3272  0 I:  51145  0 
C:  03274  C I:  77650  1 C:  44744  0 I:  51145  0 
C:  03270  1 I:  51145  0 C:  03337  0 C:  44302  0 


22,2300 
22,  23  1" 
2 2,  23  2r 
22,2330 


l : l l til  l 

I:  627C7  1 
C:  00001  0 


C:  0327o  1 
C : 44  744  0 
C : 77776  1 
I:  62713  0 


I:  51145  0 
I : 7 6601  1 
C : 0001  5 0 
C:  C r-  u 0 7 0 


C:  03315  0 
C:  00001  0 
I:  41503  1 
C:  oOOl 5 0 


C:  44744  0 
C:  00031  C 
C:  77776  1 
I : 77606  1 


1 : 57545  1 
is  62703  1 
IS  77616  0 
I : 77776  1 


C : 03272  0 
C:  77776  1 
Is  76601  1 
50120  1 


22, 2340 
22, 2350 
22  ,2  360 
!2, 


06051  0 
33555  1 


52017  0 
c?015  1 
77616  0 
01106  1 


C:  00013  0 
C : 67777  1 


52013  1 
52003  0 

C:  13563  0 
C:  77777  0 


17070  C 
04000  0 


C : 34343  1 
C:  00000  1 


C : 15666  0 
C:  00216  1 


IX  ED  MEMORY 


S) 

C:  03276  1 
C : 03276  1 
Is  45160  1 
C:  74474  0 


I : 77626  0 
C:  50460  0 
I : 45325  1 
I : 43345  1 


C:  03335  1 
I : 45345  1 
I:  77650  1 
I:  74455  0 

C : 03333  1 
C:  0000 1 0 
C : 03303  1 
C : 0 3270  1 


I:  77650  1 
C:  03327  1 
is  57545  1 
C:  03274  0 

C:  03270  1 
C:  03307  0 
C:  03331  0 
IS  57545  1 

C:  03272  0 
C : 00007  0 
C : 00001  0 
520  13  1 


52005  0 
52003  0 
C:  20443  0 
C : 36323  0 
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OCTAL  LISTING  FOR  PAP  AGRA  PH  U 131,  VI  TH  PARITY  HIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WOROS  APE  PASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


22,  2920 

2 2,  ? A?  0 


C:  1 777?  1 C : 

I:  66370  3 C: 

C : 00013  0 C : 

C:  00007  0 I : 


C 

C 

c 

c 


1 6 3 A A 1 
00051  C 
00013  0 
00013  O 


3003 A 0 5A156  1 00006  1 
C:  00001  0 C:  0001 G 0 I:  77601  0 
I:  65356  1 C:  00013  0 I:  A15A6  C 
C:  loom  1 T:  A13A5  0 C:  00005  1 


30033  1 
C:  00001  3 
I : 71300  1 
C:  ooor  1 n 


16510  1 
I:  A7133  0 
C : AAAI  7 0 
I : A 1325  0 


2 2 ,2  AAO  C:  00007  0 C:  OOC11  l 

22.  245C  C:  000C3  1 C:  JC005  1 

2 2 ,2460  C:  00017  1 C:  10005  0 

2 2 » 2 A7C  C:  00003  1 C:  10C11  0 


I:  72A05  0 
I : A1325  0 
I : 777A5  1 
T:  A13A5  0 


C:  00003  1 
C:  30037  0 
C:  00011  1 
C:  00C13  0 


I : 72A21  C 
C:  00011  1 
C:  10007  1 
C:  00001  0 


C : 00015  0 
I:  7 2 AO  5 0 
I : 777A5  1 
I : 72A76  1 


C : 100C3  0 
C:  00001  0 
C:  000  13  0 
C:  10013  1 


I:  A13A5  0 
I : 72A15  1 
I:  72 AO 5 0 
I : A13A5  0 


22,2520 

22,2 530 


C 

r 

1 

C: 


CCCC5  1 
0C007  3 

A 1 325  0 
00001  0 


C:  00013  0 I:  72A76  1 C:  10015  1 
C:  OCOO  1 C I:  72A15  1 I:  77626  C 
C:  00007  0 C:  00003  1 I:  12925  1 
I:  65356  1 I:  A15A6  0 I:  65302  0 


I:  11195  1 I:  72A05  0 C:  OOOll  1 
C:  67760  1 Is  11195  1 Is  72A05  3 
Is  77626  0 C:  67756  1 I : 77616  0 
is  A1021  1 C:  35516  0 C:  2167A  1 


I : A 1 32 5 0 
C:  30011  1 
I : A1A01  1 
I:  77725  1 


l ? , . ' c <* 
12, 

22,2560 
22,  2570 


C:  03270  1 
C:  0327?  0 

C:  0327a  3 
I : A13A5  0 


I : A 1 3 1 6 0 
I : A 1 3 1 6 0 

I:  A 13  16  0 
C:  03270  1 


C:  00005  1 
C : 00005  I 
C:  00005  1 
C:  03272  0 


I:  5 2 A 1 5 0 
I:  52A15  0 
I : 52a 1 5 C 
I:  72AD5  0 


f:  00003  1 
C:  00333  1 
C.  : 00003  1 
C:  00005  1 


I : 7760A  0 
I:  77 60 A 0 
I : 77  60 A 0 
I : A1325  0 


C : 2167A  1 
C:  2 1 67  A 1 
C:  2167A  1 
C : 0327A  0 


C:  16222  1 
C:  16232  0 
C:  0 229  2 1 
C : 0000 1 0 


2 2,  26  20 
2 2,26  30 


IS 

43206  1 

C: 

X GC7  ) 

I : 41 1 12  0 

C.  : 21674  1 

C: 

16230  1 

Is  62421  1 

I:  77604  0 

C:  21674  1 

C : 

1622a  1 

C: 

03270  1 

Is  41205  0 

C:  0 3274  0 

C : 

00005  1 

T : 65352  0 

C : 03272  0 

Is  A 140 5 0 

C : 

C0001  0 

I : 

6241 5 0 

C:  00007  0 

I : 77604  0 

C: 

2 1674  1 

C:  16226  0 

I : 6242 1 1 

I : 77604  0 

C: 

2 167  A l 

C: 

16236  1 

C : 03272  0 

I : 41205  0 

C: 

03274  C 

C:  03005  1 

Is  65352  0 

C:  0 32  70  1 

22,2 6A0 
2 2,  26  50 
22  ,1660 
22,2670 


I : A1 A05  ( 
I:  776  0 A 0 
0 : 2 1 6 7 A 1 
C : AA702  1 


C:  00001  0 
C:  2 1 6 7 A I 
C:  0005  1 0 
I : 51595  1 


Is  62A15  0 
C : 0223A  0 
is  575A  3 1 
I : A32AA  1 


C:  (,0007  0 
I : 77615  0 
C:  ''0015  0 
C:  99611  1 


I:  7760 A 0 
Is  675 A3  l 
I : 67A71  1 

C:  06516  0 


C:  2 1 67  A 1 
C:  00007  0 
C : 00051  0 
is  77650  1 


C : 1 6 2 A 0 0 
Is  71AC6  0 
Is  51123  3 
C : AA701  1 


I : 62A21  I 
I : A1 152  1 
C:  30031  0 
I : 7762  5 0 


22,2700  C:  06516  0 

2 2, 2 7 1C  C : 9912?  0 

22,  2720  C:  06516  0 

22,2730  0A616  1 


I:  776C6  1 I : 575A3 

I:  575A5  1 I:  A32AA 

C : AA723  ] I : 11195 
C:  AO  154  O 0461 6 


1 C : 00013  0 I : 

1 C:  AA717  0 C: 

1 I:  A3A66  1 Is 

1 C:  40166  1 


67471  1 C:  03051  3 
C 65 1 6 G I : 77650  1 
77776  1 05600  1 
34752  0 0000 A 0 


I:  51123  0 C:  OOOll  1 

C : 44723  1 Is  52025  1 

C:  00401  1 12732  1 

05 2 1 A 0 C:  33234  1 


22,2190 
22,2750 
22  ,2760 


22,2770 


C : AA066  1 15155  1 I:  77776  1 
C:  0477?  1 Is  A 500 2 1 C:  99521  1 
I:  55605  1 C:  05002  0 C:  0A772  1 
C:  A 50 10  l C:  C0221  0 C:  2A255  0 


12732  1 
I : 7 A3 A3  0 
I:  77661  0 
C:  0055A  0 


I:  776  14  1 
C:  0 A 7 7 2 1 
C : 20606  0 
C:  02660  0 


C:  0 1 074  0 
C:  C3273  1 
C : 03333  1 
C:  02660  0 


I : 707A0  0 
C:  17325  0 
I : 776 1 A 1 
C:  13  30 1 1 


C : 
C: 


C : 


01322  0 
03335  1 
31035  3 
16161  0 
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OCTAL  LISTING  FOR  PARAGRAPH  H 132,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "51"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


2 2,  3000 

2 2,301  0 

22, 3020 

22, 3030 

C: 

I : 
C : 
C: 

30707 

75160 

50523 

03303 

1 

0 

1 

C : 
C: 

I : 
I : 

88881 
77  62  6 
774  14 

1 

1 

0 

0 

C : 
C: 
C: 
C : 

04  000 
02221 
74531 
01215 

0 

1 

0 

0 

I : 
Is 
C : 

04616 
77624 
45  160 
45122 

1 

1 

1 

1 

C: 
C : 
C: 

54270 
44  312 
03245 
34752 

0 

1 

1 

0 

I : 
C: 

10000 

45575 

44654 

55261 

0 

1 

0 

1 

C: 
I : 

12730 

50515 

77634 

51261 

0 

0 

0 

0 

I: 
C : 

0605  1 
77626 
2 1602 
31675 

0 

0 

0 

1 

22  ,3040 

00006 

I 

51261 

0 

21702 

1 

00006 

1 

73121 

1 

10000 

0 

64753 

1 

13051 

i 

2 2,  30  50 

40000 

0 

51261 

0 

55637 

0 

51261 

0 

3 1702 

0 

5 126  1 

0 

57675 

1 

51261 

0 

22,3)60 

55634 

0 

1126  1 

1 

0 

00003 

1 

030  75 

0 

13  170 

0 

34753 

1 

000  0 4 

0 

1 

C5214 

0 

C: 

03213 

1 

C: 

44066 

1 

00003 

1 

15155 

1 

00006 

1 

40025 

1 

53707 

1 

22, 3100 

00006 

1 

31733 

1 

21707 

1 

1 1 706 

0 

00002 

0 

13107 

0 

13117 

1 

1 1707 

1 

2 ,311 

00002 

o 

13113 

0 

40000 

0 

63166 

0 

00006 

1 

6311  7 

0 

24002 

0 

24002 

0 

22,3120 

00002 

0 

C,: 

03146 

1 

I : 

77776 

1 

D 0006 

1 

30025 

0 

21733 

0 

00006 

1 

43166 

1 

2 2,3131 

21733 

0 

0000  4 

0 

34752 

0 

55700 

0 

60000 

1 

5570  1 

1 

50000 

1 

31724 

1 

51  700 

1 

5564? 

1 

00006 

1 

63145 

1 

40000 

0 

00006 

1 

73167 

0 

00006 

1 

. 

5 1701 

0 

71  72  4 

0 

0000  6 

1 

51700 

1 

11530 

1 

51700 

1 

55274 

0 

11700 

0 

22  ,3160 

13133 

1 

30025 

0 

6 3 166 

0 

57705 

1 

13034 

1 

C : 

00000 

1 

C: 

00144 

0 

C: 

75777 

1 

2 2,  31  70 

40025 

1 

61705 

1 

10000 

0 

64753 

1 

13177 

1 

64735 

1 

40000 

0 

00004 

0 

22,3200 

C 5214 

0 

C: 

03206 

0 

C : 

44066 

1 

33166 

0 

2 7705 

0 

15  155 

1 

37726 

0 

05105 

0 

. 

C: 

03003 

1 

C: 

44C66 

1 

05  27  2 

0 

34755 

1 

55641 

1 

55644 

1 

55276 

1 

55640 

0 

• 

55643 

0 

55275 

l 

30323 

0 

55636 

1 

30322 

1 

55635 

1 

30321 

1 

5 5634 

0 

22,3230- 

34755 

1 

55642 

1 

55637 

0 

55274 

0 

31306 

0 

54063 

0 

34755 

1 

53305 

1 

22,3740 

05116 

1 

05272 

0 

06051 

0 

I: 

52014 

0 

C: 

03712 

0 

C.  : 

45465 

1 

C : 

45247 

1 

I : 

77776 

1 

22,  3250 

347  57 

0 

5 50  50 

1 

34753 

1 

5 5051 

0 

33316 

0 

0 4614 

1 

C: 

20334 

1 

05503 

1 

22,3260 

03262 

1 

03254 

1 

34  7 50 

1 

05214 

0 

C : 

03430 

0 

C : 

44064 

0 

00003 

1 

3 332? 

0 

22,  3270 

54003 

0 

34755 

1 

55530 

1 

35021 

1 

05105 

0 

C: 

03321 

1 

C : 

44064 

c 

00003 

1 

22,3300 

36257 

1 

71530 

1 

1.0000 

0 

03310 

0 

34777 

1 

0 4616 

1 

C: 

0 17  36 

1 

03300 

1 

22  ,3 3 1 o 

33317 

1 

04616 

1 

C: 

20  334 

1 

0 5574 

1 

05574 

1 

03267 

1 

C : 

010  14 

0 

C: 

041)54 

1 

22,  3320 

T : 

021  31 

0 

06051 

0 

1 : 

77634 

0 

C: 

21555 

1 

C: 

00041 

1 

C: 

02176 

0 

I : 

77776 

1 

41051 

0 

22,3331 

64753 

1 

000C6 

1 

13356 

0 

06051 

0 

I : 

77624 

1 

C : 

27042 

T 

I : 

77775 

1 

C: 

0000  1 

0 

22, 3340 

C.  : 

26200 

1 

C : 

00  OC  7 

0 

C: 

02206 

1 

I: 

77743 

1 

C: 

73774 

1 

C: 

00037 

0 

I : 

77743 

1 

C : 

7241  1 

0 

22,  3350 

C: 

(.'2172 

l 

46135 

1 

C : 

00050 

1 

C : 

45367 

1 

I : 

77650 

1 

C : 

453  73 

1 

060  5 1 

0 

I : 

77624 

1 

2 2 ,3  3 60 

C : 

27  0 56 

1 

IS 

77650 

1 

C: 

45336 

0 

C: 

00001 

0 

C : 

11530 

1 

C : 

00002 

0 

C : 

31230 

1 

is 

4314  5 

0 

22,  3370 

C : 

06336 

I 

C: 

03  63  5 

1 

C: 

45377 

0 

Is 

51575 

1 

C: 

(20  21 

0 

IS 

77614 

1 

C : 

C 3475 

1 

C : 

36174 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  * 133,  kl  TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3''  DENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C  •*  (CONSTANTS) 


2 2,  340( 
2 2 , 3 1 0 
22,  342T 
22,  3430 


I : 43345  1 
34747  1 


I : 45234  0 
C:  02134  0 
C:  02132  C 
71043  O 


C:  2 1555  1 C:  0217b  0 C:  02176  0 

C:  02176  0 C:  02134  C I:  77776  1 

C:  02  1 76  0 C:  02132  0 Is  77776  1 

10000  0 03441  0 37725  0 


53  145  l C : 02134  0 
34753  1 5 5 5 3 C 1 

34752  0 55530  1 

05072  1 C:  055C3  1 


45420  0 
35155  0 
05155  0 
04062  1 


22  ,3440 
2 2,  34  50 
2 2 ,3460 
22,3470 


05272  3 
03451  l 
34777  1 

C:  03503  1 


34777  1 
C 52  72  0 
54001  1 
C:  44064  0 


35214  0 C:  03430  0 C:  44064  0 36257  1 71530  1 
C3460  0 34777  1 54001  1 34755  l 21532  C 
34755  1 21534  C 05272  0 Is  77776  1 35021  1 


53330  1 
05272  0 
05105  0 


03003  1 10067  1 05122  0 33317  1 ^4616  1 C:  20334  1 


22, 3520 
22,353:' 


C4001  1 
C 3675  0 


14037  0 
U40C3  C 


06051  0 
C:  04304  1 
C:  26172  1 
C : 05366  1 


Is  52175  0 
C : 4 5516  1 
C:  02021  0 
C:  16172  1 


C:  01220  0 
C : 45527  0 
I : 52046  1 
C:  36336  1 


C:  45507  1 
I : 71214  3 
C : 45536  0 
C:  36  174  0 


C:  26200  1 
C:  33475  1 
I : 71214  0 
C:  45551  1 


22  ,3540 
2 2,  35  50 
22,3560 
22,  357C 


I : 77776  1 

03503  l 

is  77752  1 


34747  1 71043  0 00C06  1 
44001  0 C:  00001  0 C:  00051  0 
26200  1 C:  02206  1 I:  77752  1 


C : 57411  l I : 77625  0 


C:  02174  1 i:  64414  1 


15503  0 
I:  77214  0 
C : 02206  1 
C:  03755  0 


34777  1 
C:  33755  0 
I : 77624  1 
C:  45576  1 


04616  1 
Cs  45565  0 
C:  57343  1 
I : 77624  1 


C:  01736  1 
C : 02200  1 
I:  77624  1 
C : 45636  0 


22,  3620 
22,3630 


C:  16113  0 C:  00017  1 

1 : 77624  1 c:  45636  0 

C : 06520  0 C : 45626  1 

Is  450  15  1 C:  02174  1 


77625  0 
16115  0 
45145  0 
57452  0 


C : 02174  1 
C:  00161  1 
C:  300  17  1 
I : 77676  0 


C:  00161  1 
I : 51025  1 
C:  57447  1 
C:  36132  1 


I:  64414  1 
r : 02  1 72  1 
IS  77676  0 
C:  33051  3 


C:  03755  0 
C : 45622  0 
C : 16134  0 
I:  51025  1 


C:  45610  1 
is  52145  3 
C:  02172  1 
C:  05646  0 


22,3640  C:  45643  1 

2 2,06  50  C:  14  161  1 

2 2 , 3 6 6 C C:  00000  1 

22,3670  1 : 50025  0 


Is  43415  0 C:  05646  0 
Cs  Cl 440  0 C : 00000  1 
C:  77534  0 C:  45074  0 
C:  00045  0 C:  45675  1 


I:  43545  1 C:  05646  0 
C:  12525  0 C:  12525  0 
I : 51575  1 C : 02643  1 
I:  45545  1 C:  77732  1 


C : 01065  0 C : 05603  1 

C:  14000  1 C:  00000  1 

C : 24045  0 C:  02651  1 

1 : 51575  1 C : 02657  1 


C:  00021  1 
C : 30000  1 
I:  41446  1 
I : 45  20  6 1 


22,3700  C:  00045  0 

2 2,3710  1 : 62101  n 

2 2,  3720  I : 77657  0 

22,3730  Is  54150  1 


I:  71240  1 C : 45705 

: i C: 

C : 20201  0 C : 26651 

C:  02102  o C:  00045 


1 I : 77626  0 C: 

0 Is  53775  l C: 

1 CS  32657  1 is 

0 I : 77660  1 C : 


77732  1 I : 66  145  1 

C2643  1 C : 20201  0 

66357  3 C:  23 20  1 0 

00045  0 I : 73130  1 


C:  00045  0 C:  00044  1 
C : 26643  1 C:  02651  1 
C : 00045  0 C : 02657  1 
C:  02102  0 C:  00045  3 


22, 3740 
22,  3750 
2 2 ,3  760 
22,  3770 


40270  0 C:  00044 
5 51 

3 5) 

5)  3 


00003  1 Is  77653 

a a 

a a 

a a 


46665  0 c:  03745  1 C:  03746  1 CKSM  77334  3 

a a a a 
a a a a 
a a a a 
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OCTAL  LISTING  FOR  PARAGRAPH  tf  134,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  OENOTFS  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPFRA  TOR  WORDS)  OR  »C " (CONSTANTS) 


2 3,  200C 

f 4 64  5 

1 

55112 

0 

3475  2 

Q 

55051 

Q 

36254 

1 

550  50 

1 

32037 

1 

04616 

1 

23,  1 

C: 

23353 

1 5 5C  3 

0 

12017 

1 

12006 

1 

34751 

0 

0547^ 

1 

C 5 1 5 5 

3 

310  51 

1 

23,  202 C 

74752 

1 

10030 

0 

12026 

0 

05515 

0 

C: 

000  1? 

1 

12034 

0 

C 5 52  7 

1 

C : 

00012 

1 

2 3,  2030 

0 55  15 

0 

r.  : 

00264 

l 

05515 

0 

C: 

00126 

1 

00003 

1 

31112 

1 

1464C 

0 

C : 

0l0l4 

0 

C: 

77757 

1 

I: 

47135 

0 

C:  03753 

0 

C : 

21560 

1 

I : 

41401 

1 

C : 

00001 

0 

I : 

57556 

0 

C: 

14043 

0 

23,  205C 

I : 

4 1546 

0 

I : 

47135 

0 

f : 03754 

1 

C: 

21560 

1 

I: 

71406 

0 

! : 

72405 

0 

C : 

COOC'l 

0 

C : 

14045 

0 

2 3 ,20  60 

I: 

41356 

1 

I: 

77752 

1 

C : 24041 

1 

C : 

00041 

1 

I : 

77616 

0 

C: 

14025 

0 

C: 

OC  155 

0 

I: 

40234 

0 

23,2070 

C : 

21560 

1 

C: 

00  PC  1 

0 

I:  73406 

1 

is 

77676 

0 

C: 

14C43 

0 

I : 

41546 

C 

I : 

47135 

0 

C: 

00026 

0 

2 3,  2100 

C: 

21560 

1 

I : 

77650 

1 

C:  46054 

1 

35010 

0 

0 46  16 

1 

C: 

20477 

l 

15503 

0 

12111 

0 

23,2110 

1210  3 

3 

05515 

0 

C:  00124 

0 

04616 

1 

C : 

54125 

0 

15503 

0 

C4645 

1 

55142 

0 

23,  2120 

055  15 

0 

C : 

C0024 

1 

02150 

1 

04645 

1 

55142 

0 

05527 

1 

C : 

00024 

1 

34736 

1 

23,21 30 

55173 

0 

34750 

1 

00006 

1 

O' 203 3 

0 

1000c 

0 

12150 

0 

0 46  1 6 

1 

C: 

53070 

0 

23,2140 

04616 

l 

C: 

17713 

1 

12143 

1 

04616 

1 

C: 

53072 

1 

046  16 

1 

C : 

17713 

1 

12150 

0 

2 3,  2 1 50 

34747 

1 

70075 

1 

00006 

1 

1 2312 

1 

06051 

0 

I: 

77775 

1 

C : 

06512 

1 

C : 

03765 

0 

2 3,2160 

I: 

43  2 34 

0 

C: 

21555 

1 

C : 1 5 7 1 4 

1 

C: 

34C41 

c 

C : 

51340 

1 

I : 

77775 

1 

C: 

01101 

0 

C: 

03773 

1 

23,2170 

I : 

45034 

1 

C: 

46323 

1 

C:  56032 

0 

C: 

00322 

1 

I : 

77776 

1 

05364 

0 

C : 

04022 

0 

34747 

1 

23,2200 

70075 

1 

00006 

1 

12312 

1 

04615 

l 

C: 

54263 

1 

10000 

0 

02300 

0 

06051 

0 

2 3 ,2210 

I : 

45  175 

0 

C: 

0 1 1i  1 

0 

C:  47653 

1 

I : 

45345 

1 

C : 

00162 

1 

C : 

06316 

0 

I : 

77440 

1 

C: 

46234 

0 

23, 2220 

3 5 C 1 5 

0 

54003 

0 

00004 

0 

00006 

1 

30322 

1 

53635 

1 

30323 

0 

55636 

1 

23,2230 

00003 

1 

35016 

0 

54003 

0 

02257 

0 

I : 

77776 

1 

00004 

0 

04674 

0 

C: 

401  54 

0 

23,2240 

04674 

0 

C: 

40141 

1 

05527 

l 

C: 

CO  124 

0 

C5515 

0 

C : 

00077 

1 

04616 

1 

C: 

54125 

0 

2 3,  2?5C 

00004 

0 

146  7 4 

0 

C : 4 115 

0 

05364 

0 

C: 

04022 

0 

05527 

1 

Cs 

00077 

1 

30075 

0 

2 3,22  60 

74742 

0 

ioo:o 

0 

023C3 

0 

1 1 745 

1 

02266 

1 

C2303 

0 

55745 

1 

32317 

0 

23,2270 

05204 

1 

C : 

02273 

0 

05155 

0 

37726 

0 

05105 

0 

C: 

02131 

0 

C : 

46067 

1 

05272 

0 

23,2330 

046  16 

1 

C: 

54274 

1 

C2257 

0 

31142 

1 

14640 

0 

32314 

0 

70074 

0 

00006 

1 

23  ,2310 

15  155 

1 

1225  7 

0 

04635 

0 

C: 

50  310 

0 

C: 

0050C 

1 

C : 

17350 

1 

C : 

34602 

] 

C: 

31130 

1 

23,  2320 

C0004 

0 

3501  5 

0 

56003 

1 

54070 

1 

31634 

1 

54  154 

0 

00006 

1 

31636 

G 

23,2330 

521  56 

1 

30070 

0 

54003 

0 

00u03 

1 

16511 

0 

C : 

00302 

0 

C: 

17755 

6 

I: 

53754 

1 

23,  2340 

C: 

02777 

1 

C : 

57176 

0 

C:  26744 

1 

I: 

53750 

0 

C: 

02776 

0 

C : 

57176 

0 

C : 

C2655 

0 

I : 

45020 

1 

2 3,  23  50 

C: 

03463 

0 

C : 

4 6 365 

c 

C : 37671 

0 

C: 

25704 

0 

I : 

4140  1 

1 

C: 

00003 

1 

I: 

65225 

1 

C : 

03671 

1 

2 3 ,2360 

C: 

ooooi 

3 

I: 

45  20  6 

1 

C:  03671 

1 

IS 

52006 

0 

C : 

03463 

c 

I : 

41545 

0 

C: 

06336 

1 

I: 

63130 

0 

23,  2370 

C : 

00047 

1 

C: 

00002 

0 

I : 46135 

1 

C: 

00050 

l 

C: 

46400 

1 

I: 

51575 

1 

C : 

020  21 

0 

I : 

77725 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 135,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  06N0TES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  I I N TER  PRE  TI  VE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


2 3,  240C  I: 

23 ,241 0 C: 

23,2420  C: 

2 3,  24B0  f: 


A 3545  l I : 

03574  1 C: 

00001  0 C: 

C : 


77620  0 
34L  A 1 C 
01352  1 
0 1 3K  2 1 


C : OB A 63  0 
C:  27042  1 
C:  46433  I 
C : 46423  0 


C:  3757 A 0 
I : 77624  1 
C:  27536  1 
C:  27552  0 


C:  27056  I 
C : 46427  1 
C:  00007  C 
C:  00007  0 


I:  77624  1 
I : 77650  1 
C:  03544  1 
C:  03560  1 


C:  46417  1 
C:  03463  0 
I : 77616  0 
I:  776 16  0 


I : 77745  1 
I:  43175  0 
I : 43175  0 
I : 53754  1 


23  ,2440 
23,  24 5fi 
23,2460 
2 3 , 2 A 70 


C:  02777  1 C:  57  176  0 

C : 0,2111  1 C : 57576  1 

10000  0 7 77  A 3 1 

55647  l 34752  0 


6^350 

77616 

10000 

1 

0 

C:  02776  0 
56016  0 

I : 63257  1 
00006  1 

Cl  57176  0 
2201 2 1 

I : 77616  0 
44745  1 

I:  53754 
61010 

0 

05301  0 

00006  1 

03031  3 

400CC  0 

725^0 

55646 

0 

34756  1 

C 52 14  0 

C : 02305  0 

C : 22067  0 

15301 

23,  25CC 
23  f25l< 
23,  2520 
23,2530 


C:  C0C63  1 
C:  000 DO  1 
C : 00000  1 
C:  C 27  67  0 


74745  1 
C:  OOOoO  1 
C : OOOOO  1 
I:  66370  C 


10000  0 
C:  O00C0  1 
C:  OOOOO  1 
C : 00066  1 


44752  1 
C:  OOOOO  l 
C:  OOOOO  1 
C:  00051  0 


64753  1 
C : OOOOO  1 
C:  OOOOO  1 
C:  00022  1 


27744  0 
C:  20000  0 
C:  37777  1 
I:  66374  1 


15301  1 
C:  OOOOO  1 
C : 37777  1 
C:  00022  1 


C : 10000  0 
C:  OOOOO  1 
I : 77620  0 
C:  00052  0 


2 3,25  40  C:  00006  1 I:  63775  1 

23,  2550  C:  02555  0 C:  75112  1 

23,2560  C:  12665  1 I:  77700  0 

13,  : C : 0 2 6 5 7 1 


C:  03525  0 C:  02467  0 C:  12665  1 
C:  12665  1 I:  77775  1 C:  03541  1 
C:  46563  0 I:  43104  0 C:  46541  0 
I:  77201  1 C:  D3C01  0 C:  02643  1 


I:  77775  1 C:  03533  1 I:  52717  L 
I:  52717  1 C:  02643  1 C:  75112  1 
C:  02706  1 C:  46572  0 I:  77775  1 
I:  47036  1 C:  21615  0 I:  47515  0 


23,2600  C:  02651  1 I:  76234  0 C:  21615  0 I:  47515  0 
23  ,2610  C:  C27C7  0 C:  000  0 1 C:  r ’665  0 I:  40151  0 
23,2620  C:  46627  0 I:  40112  1 C:  46627  0 C:  02670  1 
23,2630  C:  02665  0 I:  75405  1 C:  02670  1 I:  76257  0 


C:  02657  1 I:  75234  0 

C : C 2707  0 C : 4661 6 1 

I:  5 2114  1 C:  00001  0 

C:  57576  1 C:  02665  0 


C:  21615  0 
C : 02670  1 
C : 46621  0 
I:  63101  1 


I:  77U1  0 
I : 77654  0 
l:  61551  1 
C:  00050  1 


23,  2640 
2 3,  76  50 
2 3 ,26  60 
23,2670 


C:  77775  1 
I:  60351  0 
T:  7646C  1 
I : 60775  1 


i:  77134  1 
C : ^2665  0 
C:  0 00  50  1 
C:  02643  1 


C:  02102  0 
C : 00047  l 
i:  4 1 A 7 1 0 
C:  75134  0 


C:  002  42  0 
I : 65345  0 
is  7765C  1 
I:  77206  0 


1:  40265  1 
C:  00155  0 
C : 45663  0 
C:  C 265 1 1 


C : 06510  0 
C:  03547  1 
1 : 77731  1 
is  53303  1 


C : 00001  C 
is  777C 1 1 
C:  0005 2 0 
C : 75112  1 


C:  03500  l 
C : 00051  o 

C:  00066  1 
1 : 77206  0 


23,2700 
2 3,2710 
23,  2720 
23  ,2730 


C:  0 26  57  1 
C:  74266  0 
Is  66  3 7 A 1 
: 


1:  53303  1 

I : AS 5 7 5 l 
C : 00022  1 
C:  1270  7 1 


C : 75070  1 
C:  74274  0 
C : 00052  0 
I:  77304  0 


I : 61006  0 
I:  77214  0 
C:  OOOOS  1 
C:  46724  1 


C:  46670  1 
C:  C 2706  1 
I:  77773  1 
C : 02673  1 


I : 45575  1 
C : 4672C  0 
C:  74252  1 
I : 77732  1 


C:  74260  0 
C : C6520  0 
Is  53761  1 
C:  C2673  1 


I:  45575  1 
C:  03517  1 
C : 00001  0 
Is  77650  1 


2 3,  2 74C 
23, 2750 
2 3 ,2760 
23,  2770 


C : 02767  0 I : 45020  1 
C:  03511  1 I:  77761  l 
I : 77776  1 33242  0 
C:  04022  0 05515  0 


C:  02767  0 
C : 03500  1 
55  315  0 
C : 00236  0 


C:  27410  1 
C : 26721  1 
55316  0 
31316  1 


I:  74375  0 
C:  03517  1 
34755  1 
5 531  5 0 


C:  03503  1 
Is  77761  1 
55317  1 
31320  1 


C : C3500  1 
C:  03500  1 
55320  0 
55317  1 


C : 26713  0 
C:  02727  1 
05364  0 
06051  0 
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')  CT  AL  LISTING  FOR  PARAGRAPH  //  136,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


2 3,  3020 
23, 33  30 


I : 

C: 

C 

C: 


57576  1 
0005?  0 


C 

I 

c 

c 


t : r e M-3  U 
i:  77653  1 
I : 71 124  0 


I:  70731  0 
C:  00051  0 
C:  32467  0 
C : 00051  0 


C:  00351  0 
I : 5 7144  1 
C:  02735  1 
C:  00047  1 


C:  00006  1 
C : 33047  1 
I:  57543  1 
I:  53674  1 


C:  75134  0 
C:  02102  0 
C : 75134  0 
C:  02102  n 


I:  60276  l 
I:  65357  0 
I : 74301  0 
C:  57576  1 


23  ,3040 
2 3,  30  50 
2 3,30  60 
2 3,30  70 


I : 52724  1 
C:  75134  0 
C:  02102  0 
I : 77776  1 


C:  0005  1 0 
I : 74301  0 
C:  57576  1 
31315  1 


C:  02555  0 
C : 0005  2 0 
I : 52724  1 
63243  1 


C:  02743  0 
C:  02727  1 
C:  00051  o 
55316  0 


I : 77614  1 
I:  71124  0 
C:  02643  1 
31317  0 


C : 02  746  0 
C:  00051  0 
C : 3275  1 0 
67760  1 


C:  47066  1 
C:  00047  1 
I:  77624  1 
5 5 3 2 C 0 


I:  57543  1 
I : 53674  1 
C:  11216  1 
06051  0 


23,  3100 
2 3 ,311o 
23,3120 
23 ,31 30 


C : 47122  0 
C:  47  132  1 


C : 01315  1 
C:  06555  1 
C:  47132  1 
C:  47117  0 


C:  00051  0 
I:  77214  0 
I : 77634  3 
I : 77624  1 


C:  00006  1 
C:  02746  0 
C:  46767  0 
C : 11216  1 


I:  77775  1 
C : 4 7124  0 
I:  43335  0 
I : 53375  0 


C:  02735  1 
C:  02  751  0 
C:  01321  0 
f : 3 173  1 0 


C:  06467  1 
C:  06643  0 
C : 07245  0 
C:  0270  1 0 


I : 77775  1 
I:  5 213  0 1 
I : 52030  0 
C:  03472  0 


23,3140 
23,  3150 
23,3160 
23,  31  70 


l : 

C: 

C: 


C : 


47014  1 
04344  0 
47172  0 
35527  1 


C:  00737  1 
C : 471  53  0 
C:  25521  0 


C: 
C : 
C: 


47232 

00002 

02673 


1 

0 

1 


C:  26767  0 I:  77004  0 C:  57735  1 
I:  53775  1 C:  02665  0 C:  57205  1 
I:  53257  1 C:  57202  0 C:  01527  0 


C : 00000 
I:  40055 
I:  77600 


1 

0 

1 


C:  47205  0 


53375  0 


C:  0 1535  0 


C:  02665  0 C:  01535  0 


53375  0 


I : 77014  1 
C:  01521  0 
C:  47  176  1 
C : 01543  1 


23,3200 
23  ,3210 

23,3230 


C:  02673  1 
C:  00  71'1 7 1 
C:  02746  0 
04635  0 


C:  01543  1 
C:  47235  0 
C:  47224  0 
C:  27421  0 


1 : 45134  0 
C:  26746  0 
C : 034  72  0 
I : 52034  1 


C : 02030  0 
I:  77624  1 
C:  01701  0 
C:  26722  1 


C:  27671  1 
C:  26070  1 
I:  66150  0 
C:  47144  0 


I:  77624  1 
I : 77624  1 
C:  02767  0 
I : 45034  1 


C:  11216  1 
C : 11216  1 
C:  00052  0 
C:  26673  1 


I:  47014  1 
I:  77214  0 
I : 77776  1 
C:  26114  1 


2 3,  3240 
2 3,  32  50 
23  ,3260 


1 : 77650  l 
T:  65325  0 
C:  140  23 


C:  47215  1 
C : 06520  C 
C:  00033  1 


23,  3270 


C : 14023  0 C : 0002  7 1 


C:  C 0066  1 
C : 02  671  0 
I:  77742  0 
I : 65205  0 


C:  77771  0 
I : 55475  1 
C:  34021  0 
C:  02671  0 


C:  00014  1 
I:  77656  1 
C : 47316  0 
C:  00033  1 


I : 71220  1 
C:  140  27  1 
C : 16742  1 
I:  45205  1 


C : 00051  0 
C:  00027  1 
C:  02667  1 
C : 0266  5 0 


C : 02665  0 
I : 77742  0 
I:  77742  0 
I : 77626  C 


23,3300 

, 

2 3,  33  20 
23,3330 


43756  l 

C: 

47316  C 

C : 

26744  1 

C : 00027  1 

I : 

77641  1 

C: 

02701  0 

C:  240  21  1 

C:  00027 

77641  l 

C: 

02673  l 

C: 

34023  1 

C:  47316  0 

C : 

36740  1 

C : 

00051  0 

I : 51545  1 

C:  00023 

50025  0 

C : 

07532  1 

C s 

47331  0 

I:  72545  0 

C: 

00021  1 

Is 

75326  1 

C:  00023  0 

C:  00025 

776 16  0 

I: 

72545  0 

C: 

00023  0 

I : 77736  0 

C : 

14025  0 

C : 

00021  1 

Is  77640  0 

C:  47342 

23,  33  40 

• • 

23  ,3360 


23, 3370 


43545  1 
77616  0 
02701  • 


26740  0 


C: 
I : 
C: 
C : 


00U25  0 
77601  0 
00051  0 
00001  0 


I:  75345  1 
C : 00001  0 
C:  2*:21  1 
I : 50235  0 


C:  0 65  1b  0 
I : 47375  0 
C:  CC001  0 
C:  02665  0 


C:  00023  0 
C:  02665  0 

I : 77641  1 
C:  02651  1 


LZ  Lie  5 5 l I 
C : 02673  1 
I:  77752  1 


C : 0002  5 0 
I:  41456  0 
C : 34023  1 
C:  24021  1 


C : 00025  0 
I:  4404 1 1 
C:  47316  0 
C:  02651  1 
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JCTAL  LISTING  FOR  PA  F A GRAPH  « 137,  V»  I TH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCT  IONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


23,3400  F:  7764  1 1 

23, Hie  C:  47427  3 

23, 3420  C : 47316  0 

2 3,3430  05600  1 


C : C2665  0 
I:  50 3 7 5 o 
C:  26742  ) 
C:  C040 1 1 


C:  47316  0 C: 
C : OOOOl  0 C : 
I:  77634  3 C: 
C : 00056  1 


2160  2 0 
06051  0 


I:  45246  0 
C : 32643  1 
C:  34322  C 
I:  77650  1 


C:  07534  1 
I:  45441  1 
C : 00051  0 
C:  47411  0 


I : 77644  1 
C:  43754  C 
I : 77776  1 
I:  66370  0 


2 3,  345i 
23,346r 
23,  3470 


C:  C2714  1 
I:  77656  1 
C:  47445  1 
I : 66374  1 


C:  0OP51  o 
C.  : 06731  1 
C 66  160  0 
C:  00006  1 


C:  02700  1 
I : 77773  1 
C:  00006  1 
C:  00052  C 


L : J 2 # 2 J u 
C:  00036  1 
C:  00002  0 


C:  OOOOl  C 
I:  764  33  1 
I : 66370  0 
I:  76720  0 


I : 46773  0 
C:  32731  0 
C : 33322  1 
C : 00036  1 


C : 02  72  3 0 
C:  C6737  1 
C:  00051  0 
C:  OOOOl  0 


C:  02731  0 
I : 77700  0 
C:  00036  1 
I : 62  75  7 0 


23, 352C 
23,3533 


C:  75062  1 
I:  76455  1 
C : 47474  0 
(:  776  16  P 


C : C00C7  0 
C:  OOC 3 1 0 
I : 77775  1 
C:  05520  C 


I : 77757  1 
I:  53520  0 
C:  02665  3 
C : 26075  1 


C:  75054  1 
C:  00036  1 
C:  26707  0 
C:  05252  1 


C:  30031  0 
C : f 6707  1 
f.:  C 2673  1 
C:  25253  1 


C:  030  15  0 
I : 77700  0 
C:  26715  0 
I : 77776  1 


I:  53357  0 
C:  47517  1 
C : 02701  0 
(-3545  0 


C:  75046  1 
I:  77734  1 
C : 02723  0 
06051  0 


23,3540 
2 3,  3 5 50 
23,3560 
23,  357C 


54765  1 
50143  1 
50143  1 


77776  1 

30034  0 
30  76  5 0 
52766  1 


03553  1 06051  0 
54767  0 00006  1 
52155  1 52127  1 
04713  0 C:  3 1517  0 


I:  77616  0 30C32  0 

22142  0 34751  0 

04713  0 C : 21560  1 
52155  1 50143  1 


94771  1 30033  1 
76254  0 54143  0 
000P6  1 30155  0 
52744  1 00006  1 


23,  3620 
23,3630 


50  143 
K l 47 

30034 

1 

0 

0 

2C766  C 

04713  0 

00 142  0 

C : 0 15  31  1 
00004  0 

52127  1 
30032  0 

52155  1 
54771  1 

5C143  1 
30033  1 

52736  1 
54765  1 

54767  0 

00004  0 

33006  1 

22061  0 

34751  0 

76254  0 

54062  1 

50062 

0 

30  76  5 0 

05033  1 

00006  1 

74736  0 

53062  0 

52736  1 

50062  0 

2 3,  3640 
23,  3650 
2 3 ,3660 
23,  3670 


30765  0 05032  0 00006  1 
30061  0 C0P03  1 00000  1 
07544  3 46  257  0 03  702  1 
13673  1 I : 77776  1 03553  1 


74736  0 
( : 77776  l 
06051  0 
7544  C 


5006?  0 
03545  C 
I : 43575  1 
36257  1 


52744  1 
13660  0 
C : 00123  1 
13662  1 


10062  1 
I:  77776  1 
T : 77776  1 
I : 77776  1 


13626  1 
03553  1 
33545  0 
13660  0 


23,3700  I:  77776  1 13673  1 
23,3710  C0006  1 50300  1 
23,  3720  40123  0 13723  0 
23,3730  10U2  1 52155  1 


54142  1 00C06  1 22145  1 
33771  0 52144  1 34753  1 
52131  0 52155  1 33767  1 
13735  1 00C06  1 40155  1 


13142  1 40142  1 66257  1 
54130  1 OOOC6  1 50143  1 
63  143  1 54116  0 07121  1 
52160  1 36254  1 26116  0 


2 3,  3740 
23,3750 
23  ,3760 

■ 


C: 


00006  1 
92  160  1 
C0006  1 
C0CC4  0 


50130  0 50143  1 

200C1  I 50130  0 

26142  1 10  142  1 

: : 


C: 


13705  1 
33004  0 


52155  1 
52123  0 
0C145  1 
r 3 7 7 4 0 


07121  1 
52131  0 
13705  1 
03775  1 


52155  1 
10000  0 
00145  1 C: 
CKSM  50263  0 


20160  1 
13722  1 
00735  0 
3 
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OCTAL  LISTING  FOR  PARAGRAPH  H 140,  KITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "9"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  *'C " (CONSTANTS) 


24,  Nino 
2 A ,2  0 1 0 
24,2020 
24,2330 


05340  0 
C:  00026  3 
. 2 i i i 
06001  0 


C : 05022  1 
55144  0 
61144  1 
02C25  1 


C:  26000  0 
34363  C 
30006  1 
06051  0 


02752  0 
04616  1 
12040  0 
I : 77650  1 


02007  1 
C : 20634  1 
32367  1 
C:  77113  1 


02036  0 
C60C1  3 
04616  1 
05527  1 


05515  0 
02021  0 
C : 20477  1 
C:  00026  C 


24  ,2040 
2 4,  20  50 
24,2360 
24.207C 


04616  1 
C 5 5 2 7 1 
05527  1 
55462  1 


C:  11241  0 
C : 0.0 03  7 0 
C:  00041  1 
0605 l 0 


05515  0 
05527  1 

06011  1 
i:  77634  0 


C:  00027  1 
C:  30043  0 
05515  0 
C:  21555  1 


05515  0 
05527  1 
C : 00005  1 
C:  34041  0 


C : 00031  0 
: 

35364  0 
C:  51340  1 


C5515  3 
05527  1 
C:  04022  0 
I : 77624  1 


C:  00010  0 
: 126  1 
34755  1 
C : 53633  1 


24, 2100 
24,2110 
24, 2120 
24,2130 


77776  1 
003  17  1 
16214  1 
51145  0 


50154  1 

C:  16216  0 
: 

C:  022 16  C 


02103  1 
C:  00045  0 
C:  02220  0 
C : 50145  1 


02167  0 
is  5 10  25  1 
I:  4 3 

I : 77776  1 


06051  0 
C : 10372  0 
C:  00345  0 
05364  0 


Is  53575  0 
C:  50142  0 
C:  50155  0 
C:  34022  3 


C:  00025  0 
I : 77  746  1 
C : 04347  0 
32373  1 


I : 72441  0 
C:  30045  0 
C : 50147  0 
0 46 1 6 1 


24,2140 
24,  21  50 
2 4,2160 
24,2170 

urn 

24,  2220 
24,2230 


C : 20452  n 
05364  0 

32370  1 
C : 04022  0 

37726  0 
02333  3 
00006  1 
0 5 1 55  0 


02156  1 
04022  0 
0 46  1 6 1 
02752  0 

35146  1 

00306  1 
12231  1 
32364  1 


is  52145  0 
05600  1 
C:  01736  1 
C2164  0 

30075  0 
12246  1 
32365  0 
04616  1 


C:  10372 
C:  00526 
02071 
34616 


74747  0 
46007  1 
34616  1 
C:  20624  0 


C:  50120  1 
02156  1 
04616  1 
C:  46116  0 

00006  1 
61010  1 
C:  21544  1 
06025  0 


1 : 77776  1 
is  77776  1 
C : 20457  0 
05364  0 

12313  0 
00006  1 

06025  0 
02175  0 


0602  5 O 
05527  1 
02175  3 
C : 05022  1 

34752  0 
12231  1 

02175  0 

02752  0 


I : 77776  1 
C : 00005  1 
05364  3 
C : 10000  0 

00006  1 
67760  1 
02175  0 
02244  1 


24, 224C 
2 4,  22  50 
2 4 ,22  60 
24,  2270 


C3221 
CO  00  6 
05527 
77634 


05515  0 
12263  0 
C:  00040  0 
Cs  21555  1 


C:  one  40  ' 
34355 
02310 
C:  34041 


02175  0 
70076  1 
32362  1 
C:  50374  1 


04364  1 
00006  1 
04616  1 
I:  77776  1 


02175  0 
12267  l 
C:  Cl  736  1 

05364  0 


40110  0 

05  5 27  1 
02246  3 
040 2?  0 


74737  1 
: : ( 37 

36051  3 
30074  1 


74745  1 
32362  1 
C:  40C72  0 
00006  1 


OOOC6  1 
05234  1 
051  55  0 
12337  0 


15155  1 
C:  02322  0 
300  74  1 
37726  0 


3 0 037  5 0 
300  75  0 
74745  1 
05105  0 


74  74  7 0 
74747  G 
00036  1 
C : 0271 3 0 


33336  1 
00006  1 
15272  1 
C : 53067  0 


1234 2 1 
15155  1 
30075  0 
05272  3 


02757  0 
05364  3 
74747  0 
35232  1 


24, 2340 
24, 2350 
24, ’’360 
24, 2370 


02  734  0 
10000  0 
5006 7 3 
CC  764  1 


02322  0 
123^5  l 
05272  0 
00070  0 


32751  0 
05232  1 
C:  30372  1 
C : 2 04  47  1 


05204 
C : 02734 
C:  00  526 
( : 4066 


C:  02346  1 
02346  1 
C:  00201  1 
is  45020  1 


05155  0 
37726  0 
C : 00514  1 
C:  0 1755  1 


30075  0 
05105  0 
C : 00074  1 
C:  27410  1 


74747  0 
C:  02267  0 
C:  01441  1 
I : 77624  1 


3Af> : 
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OCTAL  LISTING  FOR  PARAGRAPH  # 141,  V.  I TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED 


AIL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS 


EXCEPT  THOS  E MARKED  "I1 


IINTERPRFTI  VE  OPERATOR  WORDS)  OR  "C " (CONSTANT 


24,  2420 


24, 2430 


C:  0 1475  0 
I : 77624  l 
C:  26640  1 


I : 43014  0 
I:  77614  1 
C:  11216  l 
C:  3404 1 C 


C : 02  756  1 
C:  00747  0 
I:  77624  l 
C:  27133  0 


C:  50414  G 
C:  50446  1 
C:  27413  1 
I : 77214  0 


C:  01476  0 
I : 776U  1 
I:  43145  0 
C:  04347  0 


I:  430 14  0 
C : 01474  1 
C:  01571  0 
C:  50274  0 


C:  04307  1 
I:  77624  1 
C : Cl 674  0 
C:  01661  1 


2 4 ,2440 
24,  2450 
? 4, 2460 
24.247C 


C:  26343  l 
C:  27133  0 
I:  77650  1 
05515  0 


C:  01  567  1 
I : 77624  1 
C:  5 04  27  0 
C : -l 


I:  77742  0 
C : 11216  1 
C5340  0 
05515  0 


C:  r 2351  1 
I:  77624  1 
C:  00004  0 
C:  00006  1 


I : 7765C  1 
C:  2 74 1C  1 
C:  05022  1 
05527  1 


C : 01755  1 
I:  71214  0 
C:  25000  0 
C : 00010  0 


I : 45014  0 
C:  01474  1 
C4616  1 
05364  C 


24,2520 

24,2530 


3474?  0 

1(WS7  | 

C5I 55  0 
C 4'.'  2 2 0 


7CC74  0 
55745  1 
35024  1 
34745  C 


00006  1 
04616  1 C: 

C5105  0 C: 

70074  0 


15155  1 34747  1 
46123  0 C2476  0 
0 2476  0 C:  50067  C 
00006  1 15155  1 


70075  1 00006  1 
32526  1 05204  1 
05272  0 C : 13560  0 
34747  1 70075  1 


24,254^ 

2 4,  2 5 50 
24,2560 
24,  2570 


12722  0 34736  1 C0006  1 02012  C C0006  1 12167  1 34752  0 
02033  0 00006  1 12554  0 02213  0 40110  0 74737  1 00006  1 
05-364  0 C:  00  152  1 04616  1 C:  64217  1 50154  1 02566  0 02607  1 
32746  0 04616  1 C:  21544  1 36025  0 02577  0 02570  1 05155  0 


2 4,  2600 
24  ,2610 
24,  26  20 
24,2630 


C: 
C : 
C : 


51417  1 
74746  1 


32747  1 
02752  3 
50154  l 
00006  1 


04616  1 
3 26  27  0 
02623  1 
12713  1 


20510  1 06025  0 02637  1 02275  0 
30C75  0 74747  0 00006  1 12722  0 
02627  0 04616  1 C:  46116  0 C2722  1 
30075  0 74745  1 33006  1 12713  1 


24,2640  55055  1 

2 4,  26  50  I:  7777  6 1 

24  ,266c  C:  50"67  0 

24,2670  C : 03675  0 


06051  3 I:  77650  1 
34765  l 55746  1 
0605  1 0 I:  77735  C 
44752  1 55746  1 


C:  54420  C I:  77776  1 

05364  0 C:  04022  0 

C : 03747  0 1 : 50054  0 

35155  0 I:  77776  1 


05364  0 f : 04022  0 

37727  1 05072  1 

C : 50662  0 C:  50674  1 
31746  0 64752  0 


24,2700 
24,2710 
24,  2720 
24,2730 


12527  1 
C 2724  1 
46123  0 
0461 6 1 


06C51  0 
34750  1 
02527  0 
20  5 10  1 


77624  1 C:  11216  1 I:  77650  1 C : 55433  0 25462  C 
02716  0 02752  0 02724  1 34752  C 55745  1 
32751  0 02311  0 04616  l C:  01735  1 C2527  0 
02671  0 44753  0 55746  1 35155  0 05364  0 


24,2740 
24,2750 
24  ,2760 
?4, 2770 


04616  1 C:  53370  0 
C1461  0 C:  02734  0 
C0006  1 03012  1 
34740  0 7011 0 0 


04616 

1 

C:  17713  1 

02275  0 

02527  0 

C : 00525 

401  04 

o 

7474*,  o 

10030  C 

24002  0 

0000  2 

C 2752 

0 

02770  0 

34755  1 

55106  0 

55107 

10000 

0 

3 30  13  0 

34735  1 

55106  0 

44736 
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IXED  MEMORY 


C:  50411  0 
C:  27133  3 
I : 77624  1 
I:  77742  0 


C:  31674  0 
C:  01643  1 
C:  1124  1 0 
C:  04022  0 


12515  0 
C:  32521  0 
05364  0 
00006  1 

00006  1 
12713  1 
32275  0 
05364  3 

05364  C 
04616  1 
40075  1 
37726  0 


12706  0 
C:  02727  1 
I:  77650  1 

00006  1 

02752  0 
04616  1 
32750  1 
C:  30152  1 


C : 0140  5 1 
44736  G 
03333  1 
55107  1 
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3CTAL  LISTING  FOR  PARAGRAPH  # 142,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RTGHT  OF  EACH  WORD,  ''5)"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


24,  3000 

05527 

1 

C : 00012 

1 

04616 

1 

C: 

52466 

1 

03005 

1 

046  16 

1 

C: 

17713 

1 

03043 

0 

U 1 3 1 

C5515 

0 

C: 

1 

32366 

G 

55113 

1 

36257 

1 

55456 

0 

0605  1 

0 

Is  43234 

0 

24,  3020 

C : 21555 

1 

C:  SSj.204 

1 

C:  34041 

0 

C: 

5 134f 

1 

I: 

77776 

1 

0 5515 

0 

c •- 

00012 

1 

05527 

1 

2 4, 30  30 

C:  00126 

1 

C6C51 

0 

I : 77624 

1 - 

C : 

52364 

1 

I : 

77776 

1 

03064 

0 

02167 

0 

0 46 1 6 

1 

24 ,3040 

C:  17713 

1 

03043 

0 

03052 

0 

33062 

0 

04616 

1 

C : 

21544 

1 

06025 

0 

03057 

0 

2 4,  3050 

02267 

0 

05155 

0 

05.527 

1 

. C: 

00041 

1 

02752 

0 

0 2 31C 

1 

03205 

0 

05364 

0 

, ( 

C:  04022 

0 

03272 

0 

C:  00503 

1 

C : 

00527 

1 

32366 

0 

55423 

1 

055  16 

0 

C:  0000  5 

1 

24,  3070 

05527 

1 

C:  00041 

1 

06051 

0 

i: 

77634 

0 

C: 

21555 

1 

I : 

7761  5 

0 

C : 

11202 

1 

C:  03425 

1 

24,  3100 

C:  34041 

0 

C:  51340 

1 

I : 77624 

1 

C: 

52364 

1 

I : 

77776 

1 

0311  7 

0 

05  155 

0 

06032 

0 

24  ,31  1u 

C:  52564 

1 

0605  1 

0 

I:  43014 

0 

C: 

00345 

0 

C : 

51127 

l 

C : 

00225 

1 

C: 

61124 

1 

11423 

1 

24, 3120 
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I: 
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C:  01732 

3 

C:  15  13  1 
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1 
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0 
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C: 
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I: 
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1 
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0 
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1 
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1 
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1 
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1 
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0 
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c 

04616 
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20634 

1 
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1 

1 
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3 
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1 
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C 
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0 
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1 
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C: 
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1 
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0 
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1 
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0 
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C: 
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C: 
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0 
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0 
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0 
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53107  1 06051  0 I:  77201  1 C: 
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00001  0 


74742  C 1033^  0 
05527  1 C : 00271  0 
12571  1 f:  23002  1 


C : 01101  0 I : 74214  0 


13614  0 11113  1 
13630  0 55113  1 
00006  l 30036  1 
00311  1 C:  52647  0 


25,  7640 
2 5 ,2650 
2 5 ,2660 
2 5,  26  70 


C : 01765  1 I : 63372  1 

C:  OHIO  0 I:  41434  1 

I : 4420  5 0 C:  00301  0 

I : 73525  1 I : 41206  0 


C:  01 757  0 
C : 21560  1 
I:  77626  0 

C : 00003  1 


I:  53361  0 
I : 65  356  1 
C:  76667  1 

I:  6535?  0 


C:  130  57  1 
I : 41546  0 
I : 47135  0 

C:  00305  1 


I:  45056  0 
I : 65235  0 
C : 01107  0 
I:  41325  0 


C : 47653  l 
C:  00041  1 
C:  21560  1 
C:  00007  0 


C : 14041  1 
C:  00045  0 
I:  71406  0 
C:  00001  0 


25,2720 
25  ,2730 


55552  3 

I:  7744  1 0 

C:  00041  1 

40154  C 

00006  1 

73053  3 

55351  3 

40113  0 

74740  1 

30006  1 

12715  1 

31107  3 

12716  1 

41107  1 

00006  1 

73053  0 

55352  0 

06051  0 

I : 41345  0 

C : 00003  1 

C:  00335  1 

I:  65  35  2 0 

I:  65276  1 

C:  00001  0 

72405  0 

C:  0C30  5 1 

I:  43066  0 

C:  ')0  311  l 

C:  52737  0 

I : 77624  1 

r : 47700  3 

I:  77441  0 

25,  2740 
25 ,2750 
25,2760 
25,  2770 


C11C1  0 
54155  1 
74  747  0 
02033  0 


00006  1 
1 0 1 1,0  0 
ICO  20  0 

looon  o 


43055  0 20155  1 
12755  0 12755  0 
12773  1 34736  1 
13005  0 4474?  0 


10154  0 34755  1 
13005  0 13155  1 
00006  1 C 50 1 2 1 
73110  0 03004  0 


1275C  0 34753  1 
12766  0 40074  0 
3475L  1 00006  1 
54110  0 05527  1 
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25,3300 

C: 

000  4 1 

1 

44752  l 

00006  1 

U3012 

1 

15155 

1 

30076 

0 

77724  0 

00006 

1 

2 5 ,3010 

13)27 

0 

06G51  0 

I:  74375  0 

C: 

0 1 10  1 

0 

C : 

C 1765 

1 

I : 

41572 

1 

I : 74375  0 

C: 

0 1757 

0 

2 5 , 30  20 

C : 

1 3?.  57 

1 

I : 53362  0 

I : 77656  1 

C: 

15101 

0 

C: 

00045 

0 

C: 

01765 

1 

I : 77776  1 

00004 

0 

25  ,33  3C 

40  1 10 

0 

7474  1 C 

10000  0 

02277 

1 

30076 

0 

7 4740 

1 

000 06  1 

15155 

1 

25,  3040 

11456 

0 

03051  0 

06032  0 

C: 

52573 

1 

00003 

1 

10067 

1 

05122  0 

04616 

1 

25,  3 5 

C: 

5 1 C 14 

0 

55456  C 

05155  0 

C: 

21122 

0 

C: 

07777 

1 

C: 

3300  5 

1 

C:  00310  0 

C : 

OOOOG 

1 

2 5 ,3060 

0 3r,  74 

1 

C:  000  17  1 

03074  1 

C: 

00016 

0 

G3074 

1 

C : 

0001  5 

0 

03074  1 

C: 

999  14 

1 

25,3070 

03074 

1 

C:  00012  1 

03074  1 

C: 

00011 

l 

0 000  4 

0 

50002 

0 

30000  1 

03106 

0 

25,3100 

34751 

0 

55105  C 

00006  1 

30025 

0 

21105 

0 

12357 

0 

55077  1 

34755 

1 

• 

551  10 

1 

551  DU  0 

55101  1 

55104 

1 

33134 

1 

00006 

1 

02033  0 

55112 

0 

25,  3120 

43134 

0 

7C110  0 

54110  0 

43061 

1 

00906 

1 

0 30  13 

0 

00006  1 

22070 

0 

25,3130 

3 1 377 

9 

04674  0 

C:  36000  1 

0007C 

0 

C : 

0023C 

G 

C : 

39914 

1 

C:  00016  0 

C: 

90015 

0 

25,  3140 

40107 

C0006  1 

03 1 06  0 

36254 

1 

25,3150 

55110 

l 

36010  0 

05214  0 

C : 

03570 

0 

C: 

76064 

1 

05272 

0 

00006  1 

0 40G7 

1 

25  ,3160 

54016 

1 

00006  1 

220  12  1 

34757 

0 

00006 

1 

02013 

1 

55332  9 

90006 

1 

25, 3170 

13176 

0 

30C46  0 

51332  1 

55327 

1 

1 1077 

1 

13202 

0 

55077  1 

05600 

1 

25,3200 

C: 

00  520 

0 

0530  1 0 

46257  0 

61332 

1 

00006 

1 

63272 

9 

40  10  1 0 

7474  1 

0 

25, 3210 

C0006 

1 

13252  0 

44757  1 

61332 

1 

00006 

1 

13266 

1 

34733  1 

70046 

1 

25,  3220 

62  COO 

0 

54064  1 

54001  1 

3 0045 

0 

60939 

1 

74753 

0 

54063  0 

21  lol 

1 

25  ,3230 

34  744 

1 

54061  1 

33134  1 

00006 

1 

02033 

0 

57112 

I 

70061  1 

5400  1 

1 

2 5,  3240 

3C061 

0 

71112  0 

60001  0 

1000D 

0 

13255 

1 

11110 

1 

13402  0 

52064 

1 

' , 

5 310  1 

1 

03647  l 

34755  1 

5 50  77 

1 

C 362  1 

1 

43  11? 

0 

70061  1 

26110 

0 

25 ,3260 

11  no 

1 

13402  0 

03647  1 

34755 

1 

55077 

1 

03626 

0 

34747  1 

54061 

1 

25,  3270 

3 4 T 4 3 

c 

03315  0 

00006  1 

31454 

0 

53272 

0 

34741 

1 

70110  0 

10000 

0 

25,3300 

13263 

1 

40  1 10  0 

74745  1 

10000 

0 

13263 

1 

34750 

l 

54061  1 

34753 

1 

25,  3310 

71332 

0 

54002  1 

00006  1 

13324 

0 

3475  1 

0 

54001 

1 

30110  1 

00006 

1 

25,3320 

0 60  3 3 

1 

7C001  1 

10000  0 

03363 

1 

34733 

1 

70046 

1 

54064  1 

30046 

0 

25  ,3330 

60000 

1 

74753  0 

54063  0 

10002 

1 

13341 

0 

00006 

1 

42002  0 

20064 

1 

25, 3340 

13232 

0 

30110  1 

70001  1 

00096 

1 

1 3232 

0 

74751 

l 

00006  i 

13356 

0 

, 

52n  6 4 

1 

20001  1 

20001  1 

20001 

1 

52064 

1 

1 3232 

9 

00006  1 

30064 

0 

25,3360 

20001 

1 

20001  1 

13337  1 

30  1 1C 

1 

00006 

1 

06001 

c 

54110  0 

11110 

1 

25,  3370 

1 3400 

1 

06515  0 

C : 00120  1 

33134 

1 

30996 

1 

02033 

0 

55112  0 

13263 

1 
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2 5,  34  20 
25,3430 


55  11"  1 
67761  1 
36000  1 
00006  1 


13413  0 
00006  ) 
05301  0 
13441  1 


55 1 1 G 1 
13422  1 
33C61  0 
11677  1 


00005  1 

44757  1 
134  17  1 
13442  1 


13444  1 
00006  l 
52  064  1 
40107  0 


57757  0 
03013  0 
53655  1 
74760  0 


00006  1 
31077  0 
40 1 1 C 0 
26  107  0 


13424  1 
34674  D 
74  74  7 0 
03647  1 


25, 3440 
2 5,  3450 
2 5 ,3460 

2 5,  34 70 


13413  0 
1 I7tn  0 
55462  1 
00006  1 


34752  0 
13514  C 
5 310  1 1 
31647  0 


55677  l 
40107  0 
53653  1 
52062  1 


13437  0 
74745  1 
00006  1 
31645  1 


40110  0 
26107  0 
31655  0 
54063  O 


74744  0 
11462  1 
53771  0 
00006  1 


00006  1 
13460  1 
34741  1 
31644  0 


13513  1 
34752  0 
54003  0 
240  C 6 1 


25 ,3500 
25  ,35  1C 
25,  3520 
2 5,3530 


24006  1 
34755  1 
74746  1 
00006  1 


24006  1 
55077  1 
26110  0 
0 50 1 2 1 


53773  1 52062  1 53460  0 33363  1 
05301  0 34752  0 55700  0 13455  1 
34745  0 000C5  1 02333  0 03006  1 
33572  1 05214  C C:  03570  0 C:  52067  1 


55461  1 
00004  0 
13537  1 
02357  1 


03647  1 
40110  0 
34737  0 
34753  1 


25,3540 
2 5,3550 
2 5 ,3560 
25, 3570 


05214  Q 

< 1 

03c 1 2 1 
34751  0 


0 203  3 

1 3630 
13544 


0 C:  52067  1 32357  1 55077  1 C5232  1 C:  00144  0 

00006  1 13562  1 11077  1 13644  0 44737  1 

0 35C00  1 05235  0 44737  1 00006  1 03012  1 

C:  01130  1 34616  1 C:  53516  0 04616  1 C:  17713  1 


34745  0 
00006  1 
13623  1 
03601  0 


25,3600 
2 5,  36  1 r 
2 5,  36  20 
25,3630 


13612  0 
44  736  0 
13630  0 
34752  3 


05600  1 C:  00523  G 
55430  0 04635  0 
44755  0 54332  1 
04635  0 C:  17661  0 


13612  0 35016  0 54003  0 

C:  21051  0 34745  0 70110  0 

34752  0 04635  0 C : 17664  0 

I:  45345  1 C:  01765  1 C:  13646  1 


34733  1 55427  3 

10000  0 13623  1 

44755  0 54332  1 

I : 77644  1 C:  53642  1 


25, 3640 
25,3650 
25,3660 

2 5,  36  70 

25,3700 

25,3710 

I : 

: 43535 
60  0 6 1 
34747 

0 

0 

1 

C: 

C6520 
1UOOO 
701  10 

0 

0 

6 

l 

I : 

43535 

44753 

10000 

0 

0 

0 

C: 

13645 
13  70  3 
13675 

04602 

1 

1 

1 

C: 

coooi 

14670 

3C107 

00066 

0 

0 

i 

C: 

26467 
54065 
5006  5 

0 

0 

i 

C : 

00000 

34747 

74753 

1 

1 

o 

44747 

54001 

10000 

70107 

0 

i 

o 

14570 

54107 

I 4r33 

0 

3 

1 

00006 

22066 

1 

1 

l 

50065 

l 

44753 

0 

0 

C : 

C: 

000  2 7 

l 

C: 

1 4007 

D 

I: 

76405 

1 

C: 

OOD41 

fi 

C: 

14027 

l 

C : 

cenil 

i 

I : 

76  40  5 

1 

2 5,  37  20 

C: 

on.  43 

0 

C: 

14031 

0 

C : 

06520 

0 

I : 

57525 

1 

C: 

00043 

0 

I: 

5 3 325 

0 

C: 

ooc^i 

1 

C: 

00033 

1 

26  ,3730 

I : 

63361 

D 

C: 

1 40  D 3 

i 

C: 

00011 

1 

I: 

53361 

0 

C : 

14001 

0 

I : 

77772 

0 

C : 

240  41 

1 

I : 

63361 

'0 

25,  3740 

C : 

14003 

1 

C : 

00033 

i 

I : 

52361 

1 

C: 

14001 

0 

I: 

65372 

1 

C: 

00007 

0 

I : 

74346 

0 

C : 

00011 

1 

25 ,3750 

I: 

73525 

1 

C: 

OOOC  7 

0 

I : 

52361 

1. 

C: 

00025 

0 

1 : 

77772 

0 

C : 

14033 

1 

C: 

00007 

0 

I: 

74356 

1 

25,  376C 

I : 

71  525 

0 

C: 

CO  0 0 7 

0 

I: 

53361 

0 

C: 

C 00  25 

0 

I: 

57672 

0 

C : 

34025 

1 

C : 

00051 

0 

C : 

03767 

1 

25,  3770 

C: 

0 3770 

1 

: KSM 

51552 

1 

5 ) 

a 

a 

a 

a 

a 
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76,2300 

C:  17775 

1 

C:  02052 

1 

C : 

00333 

1 

C : IQ  37  4 

0 

C: 

77665 

- 

C : 

42175 

1 

C: 

2221  1 

0 

C:  00636 

1 

2 6 ,2  01  C 

C:  77777 

0 

C:  777  7 

1 

1 : 

35656 

l 

C:  15077 

0 

C: 

C 75 77 

0 

C : 

35124 

0 

C : 

0205  2 

1 

C:  35411 

0 

2 6,  20  20 

C:  37116 

0 

: 32631 

1 

C : 

30611 

1 

C:  04043 

1 

0 4616 

1 

C: 

11241 

0 

36257 

1 

55050 

1 

26,2030 

3A75  3 

1 

5505  1 

0 

32121 

T 

04616 

1 

C : 

20477 

1 

05  50  3 

1 

0204C 

1 

0 2032 

1 

26,  20 AO 

06051 

0 

I : *3234 

0 

C: 

21555 

1 

C:  14124 

0 

C: 

02176 

0 

C : 

34041 

0 

C : 

27065 

1 

I : 77775 

1 

, 

C:  00001 

0 

C:  l<  2« 

1 

C : 

02176 

0 

: : 

0 

C : 

27077 

1 

l: 

52375 

1 

C: 

C 22C  0 

1 

C : 0000  1 

0 

26  ,2060 

I : 67  121 

0 

C:  1732 

0 

C: 

21710 

1 

C:  03773 

1 

I : 

77776 

1 

41051 

0 

64753 

1 

33336 

1 

26, 2070 

12115 

1 

06051 

0 

I : 

77775 

1 

C:  06516 

0 

C: 

37765 

1 

C: 

56040 

0 

C : 

00322 

1 

I : 77776 

1 

76,2100 

0A616 

1 

C:  5A27A 

1 

32122 

1 

04616 

1 

C : 

20477 

1 

05503 

1 

02110 

0 

02040 

1 

26,2110 

05527 

1 

C:  0012A 

0 

0A6  16 

l 

C:  54125 

0 

15503 

0 

06051 

0 

I : 

52175 

0 

C:  06512 

1 

26,  2120 

C:  5AC7A 

0 

C : C 1 0 1 A 

0 

C : 

01A22 

1 

: 

1 

C: 

13560 

0 

04645 

1 

55163 

0 

34746 

0 

26,21 30 

70  1 0 1 

3 

1 

0 

12140 

1 

06051 

0 

I : 

77624 

1 

C : 

56040 

0 

C: 

00322 

1 

I:  77776 

1 

_c 

n 

r . "i  -i  r i n 

IjH 

HI 

04616 

, 

C : 20  7 II 

1 

02250 

1 

02156 

1 

0 220  3 

1 

02207 

0 

05155 

3 

34746 

0 

70  10  1 

0 

, 

10000 

0 

12167 

1 

0 6051 

0 

I:  77624 

1 

C.: 

56040 

0 

C : 

00322 

1 

I : 

77  776 

1 

04616 

1 

26,  2170 

C:  5A27A 

1 

02263 

l 

10000 

0 

12146 

1 

32262 

0 

04616 

1 

C: 

20452 

0 

02207 

c 

26,2200 

0A6  16 

1 

C:  1 77  A 7 

0 

1 2 1 A6 

1 

05527 

1 

C : 

00124 

c 

31163 

1 

046  40 

1 

4 j 130 

1 

26,  2210 

7A7AO 

1 

10030 

0 

00002 

0 

30002 

0 

54156 

1 

46257 

0 

60133 

0 

55054 

0 

26,  2220 

0 536A 

0 

C:  CO  132 

l 

34  745 

0 

05475 

1 

00156 

0 

37726 

0 

05146 

1 

34747 

1 

. 

70075 

1 

10000 

0 

12245 

1 

34745 

0 

70074 

0 

10000 

0 

02242 

1 

35364 

0 

26, 22 AO 

C:  AO  1 12 

1 

05155 

0 

05364 

0 

C:  40072 

0 

051  55 

0 

05515 

0 

C : 

00077 

1 

01054 

1 

26 ,2250 

3 10  10 

1 

00006 

1 

12203 

c 

30100 

0 

74  740 

1 

33036 

1 

1600  1 

1 

06025 

0 

26,2260 

C:  20100 

1 

( : 

0 

C: 

0 1 A22 

1 

00006 

1 

00030 

1 

74742 

c 

10000 

0 

00002 

0 

26,  2270 

C0006 

1 

00031 

0 

7A736 

0 

00002 

0 

04645 

1 

55337 

0 

30321 

1 

54771 

1 

26,2300 

30322 

1 

5A765 

1 

30323 

0 

54767 

0 

06051 

0 

I : 

45001 

I 

C: 

00001 

3 

C:  47541 

1 

26,  23  1C 

I : A13A5 

0 

C:  >0  742 

0 

C: 

00746 

1 

I:  5 755  2 

1 

i: 

65336 

1 

C: 

00  740 

1 

C : 

1402  3 

0 

C : 007  46 

1 

26, 2320 

I:  72305 

0 

C:  OC  750 

C 

C : 

3A021 

0 

C:  26505 

0 

I : 

41325 

0 

C: 

03743 

1 

C: 

00742 

0 

I:  41512 

1 

, 

I : 65205 

3 

C:  007AA 

0 

I: 

6 5 20  5 

0 

C:  00736 

0 

C : 

OC  750 

0 

I : 

72405 

0 

C : 

00744 

0 

I:  45425 

3 

26,  21AP 

C:  63756 

0 

C : CQ736 

0 

I : 

72405 

0 

C:  00750 

0 

I: 

45415 

0 

C: 

43754 

0 

C: 

265C6 

0 

I : 55525 

0 

26,2350 

I:  7763a 

3 

C:  2163  2 

0 

C : 

0 23  36 

c 

I : 77776 

1 

31337 

1 

04540 

1 

1 : 

47375 

0 

C:  33254 

1 

26,2360 

C:  06516 

0 

I : A7256 

0 

C: 

03765 

0 

I:  40056 

0 

C : 

54400 

1 

C : 

17270 

1 

C : 

00045 

0 

I : 50025 

3 

7 6,  2370 

C:  IAA17 
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C:  03675  3 


C:  0267-3  1 
C:  00315  3 
C : 02006  0 
C:  03133  0 


36755  1 55736  C 36736  1 

15155  1 33715  1 00GC6  0 

76736  0 C0006  1 15155  1 

::  27077  1 I:  77775  1 C:  00001  0 


00006  1 
05214  C 
36051  0 
27676  0 


: 27065  1 1 : 52375  1 C:  00001  0 C: 
: 00001  0 I:  77656  1 C:  03706  1 I: 
: 03760  1 I:  53135  0 C:  03737  1 C: 
: C 3720  1 C:  26015  0 C:  03726  1 C: 


03676  0 
52375  I 
55660  0 
30023  0 


f:  5^361  0 
::  2772b  1 
15711  1 
I:  77776  1 


C:  06516  O 
C:  33023  0 
C : 03712  0 
00006  0 


C : C3720  1 I : 77656  1 

I:  5236  1 1 C:  06516  C 

I : 66256  1 C:  01732  0 

C 6032  0 C:  52573  1 


06051  f 1 : 77626  1 C:  52364  1 

53753  0 06051  0 I : 77624  l 

05155  0 I:  47375  0 C:  0 37C 4 1 

03720  1 C:  03726  1 T:  77650  1 


I:  77776  1 
C : 46041  0 
C:  03712  0 
C:  55563  1 


55571  1 33074  1 74745  1 

: 54067  1 35272  0 34750  1 

61736  1 00006  1 13444  1 

06032  0 C:  52573  1 05155  0 


00006  1 
33336  1 
25736  1 

05600  1 


05155  0 
00454  1 
::  51674  0 
: 51662  1 


C : 25547  0 
C:  01130  1 
I : 77775  1 
I : 77624  1 


C : 33555  1 
C : 00000  1 
C:  C 20  1 3 1 
C : 55745  1 


C:  01106  1 
C:  00226  1 
I:  53235  0 
I : 77624  1 


55727  0 I:  43220  0 

: 14021  1 I : 45006  0 

06520  0 I : 73525  1 
06516  0 I:  77650  1 


C:  00051 
C:  51743 
C : 0002  3 
C:  00051 


0 C : 
3 I: 
0 I : 
0 CKSM 


000 11  1 

4 140  1 1 
65276  1 
042c  1 0 
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27,2000 

C: 

00000 

1 

C: 

1C644 

0 

C : 

00000 

1 

C : 

00  762 

1 

c: 

0003  c 

1 

C : 

35  104 

1 

C: 

000  16 

0 

C: 

36237 

1 

27,2010 

C : 

3571  1 

0 

6 : 

35663 

1 

C: 

03631 

0 

C: 

23146 

0 

C : 

33226 

1 

C : 

14632 

0 

C : 

0S3C6 

1 

C: 

15503 

0 

2 7,  20  20 

C: 

26337 

1 

C : 

30000 

1 

C : 

55340 

0 

C: 

61713 

0 

C: 

30372 

1 

C: 

16  20  6 

1 

C: 

00344 

1 

C : 

24331 

0 

27,203c 

C: 

24775 

1 

C: 

30424 

0 

I: 

40020 

1 

C : 

03324 

1 

C : 

56035 

1 

I : 

52164 

0 

C: 

03245 

1 

C: 

56046 

0 

27,  2040 

I : 

40020 

1 

C : 

03324 

1 

C: 

56043 

0 

I : 

47  164 

1 

C: 

03245 

1 

C: 

44403 

0 

C : 

34032 

1 

C : 

44410 

1 

’7 » 

I: 

61375 

1 

C : 

03773 

1 

C : 

03246 

1 

I : 

77656 

1 

C: 

30335 

1 

I: 

53435 

0 

C: 

0 3765 

0 

I: 

57400 

1 

27  ,2060 

C: 

56170 

l 

C: 

17270 

1 

C: 

00045 

0 

I: 

50025 

0 

0 : 

144  17 

0 

0 : 

56170 

1 

I : 

50375 

0 

C: 

03765 

0 

27,  20  70 

C: 

C0035 

1 

I : 

65552 

0 

I : 

77624 

1 

C: 

44527 

1 

I: 

75160 

1 

C: 

03245 

1 

C: 

02221 

1 

I : 

77624 

1 

27,2100 

C: 

44312 

1 

I: 

51545 

1 

C: 

00C07 

0 

I : 

50025 

c 

C : 

14404 

1 

C: 

55160 

0 

I: 

51545 

1 

C: 

03765 

0 

27, 21  1C 

I : 

51025 

1 

C : 

14406 

0 

C: 

56160 

0 

I: 

77775 

l 

I : 

77626 

0 

C : 

50515 

0 

I : 

77626 

0 

C : 

50523 

0 

27,2120 

I : 

77626 

0 

C: 

50531 

0 

C : 

03254 

1 

I : 

57444 

1 

C: 

56125 

1 

I: 

500  35 

1 

C: 

03765 

0 

0 : 

56134 

1 

27,213c 

I : 

57575 

1 

C: 

03765 

0 

C: 

3 72  70 

0 

C: 

56137 

1 

I : 

77775 

1 

C : 

03765 

0 

C: 

0327C 

1 

I : 

51545 

1 

27, 2140 

C ’ 

03765 

j . 

510?  5 

C‘ 

14410 

0: 
I : 

56147 

0 

53145 

14414 

1 ) 

c . 

56151 

1 

j . 

77745 

27,2150 

C: 

144  12 

0 

I:’ 

77624 

1 

C : 

44527 

1 

75160 

1 

c’: 

03245 

1 

C: 

32221 

1 

I : 

77624 

1 

C: 

44  312 

1 

27,21 60 

I : 

45160 

1 

C: 

000  30 

1 

C: 

44654 

0 

I: 

40234 

0 

C.: 

21602 

0 

C : 

00001 

0 

I : 

77650 

1 

C: 

03324 

1 

27,  2170 

I: 

50375 

0 

C : 

00035 

1 

C : 

03765 

0 

I : 

72240 

1 

C: 

54356 

0 

C: 

03032 

0 

I: 

77650 

1 

C : 

03324 

1 

2 7,2200 

22062 

0 

2400  2 

0 

00006 

1 

2206 1 

0 

54063 

0 

75012 

0 

64741 

1 

54064 

1 

27, 2210 

4 5012 

0 

70f  63 

0 

54063 

0 

22037 

0 

5000  1 

0 

41410 

1 

60^64 

0 

00006 

1 

27,2220 

12232 

1 

44747 

0 

60001 

0 

00006 

1 

12230 

0 

2400  1 

0 

2400  1 

0 

12214 

0 

520  62 

1 

52006 

0 

450  12 

0 

50001 

0 

71411 

0 

00006 

1 

60063 

1 

00006 

1 

• 

12242 

0 

12221 

0 

34353 

0 

50001 

0 

55410 

1 

12230 

0 

is 

71220 

1 

C : 

03632 

0 

27  ,2250 

C: 

f 3442 

3 

C: 

0 3 76  3 

0 

I : 

77614 

1 

C: 

01347 

0 

C : 

56336 

1 

I : 

77201 

1 

C: 

OOOC  1 

3 

C: 

03650 

1 

27,  22  60 

C : 

02322 

0 

T : 

53435 

0 

C: 

"3642 

1 

C: 

27673 

0 

C: 

0 3642 

1 

C : 

02314 

c 

I : 

65236 

0 

C : 

00045 

0 

27,  2270 

I : 

56205 

0 

C : 

164  12 

1 

I : 

41205 

0 

C : 

03664 

0 

0: 

0 1246 

0 

I : 

77671 

1 

C: 

03735 

0 

C : 

240  17 

1 

27,2300 

C: 

03656 

1 

I: 

74241 

0 

C: 

03673 

0 

C: 

03673 

0 

I : 

415  52 

0 

I : 

65245 

1 

C : 

03656 

1 

C: 

3031  7 

1 

27,2310 

I : 

63356 

1 

C : 

00007 

0 

I : 

53435 

0 

C: 

33673 

0 

I: 

45561 

1 

C: 

53076 

0 

I : 

65256 

0 

C : 

0001  7 

1 

27,2320 

I: 

74346 

0 

I: 

74255 

0 

C : 

03701 

1 

C: 

00045 

0 

I : 

53352 

0 

I : 

77626 

3 

C: 

74076 

0 

I: 

77656 

1 

27,2330 

C : 

27673 

0 

C. : 

03701 

1 

I: 

450C6 

0 

C: 

15741 

1 

I : 

7765C 

1 

C : 

03632 

0 

I : 

77745 

1 

C: 

03442 

0 

27,  2 34C 

C: 

006*41 

1 

I : 

77621 

1 

C : 

03631 

0 

C: 

3 745  2 

0 

C: 

27056 

1 

I: 

40  37  5 

1 

C: 

ooooi 

0 

C : 

0000  1 

0 

C: 

0 364  2 

1 

C: 

0 27  H 

0 

I: 

77656 

1 

C: 

27535 

1 

C : 

00007 

0 

C : 

03650 

l 

C: 

02322 

3 

I: 

65345 

3 

.'7,  }6( 

0 : 

06  5 20 

0 

C : 

164  06 

1 

I : 

43214 

1 

C: 

33745 

1 

C: 

56366 

l 

C: 

16410 

0 

I : 

66006 

1 

C : 

02776 

0 

27,2370 

I: 

45134 

0 

C: 

02777 

1 

C : 

22000 

1 

I : 

4 157  5 

0 

C: 

02357 

1 

C : 

3373  1 

1 

I: 

77656 

1 

C: 

17673 

0 
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27,2400 

C:  00045 

0 

C:  3766  4 

1 

C : 

15741 

1 

I : 

77650 

1 

C: 

03632 

0 

C: 

03707 

1 

C: 

0 3^ 34 

1 

C:  0307G 

0 

27,2410 

C : 34344 

0 

C: 

1 

C: 

L3714 

1 

I: 

77775 

1 

C : 

C 3673 

G 

I : 

76521 

0 

C : 

01732 

0 

C:  27773 

1 

27,  2420 

C:  C6516 

0 

C:  27765 

0 

C : 

03673 

0 

C: 

03607 

0 

I : 

53435 

0 

C: 

G 3642 

1 

I: 

46125 

C 

C:  00045 

0 

27,2430 

C:  55441 

3 

I:  45575 

1 

C: 

74162 

1 

IS 

76435 

1 

C : 

03607 

0 

I : 

77676 

0 

C: 

03623 

3 

Is  43414 

1 

27,  244C 

1 

I : 47375 

0 

C: 

03607 

0 

C: 

03653 

1 

Si's* 

4 1456 

0 

Is 

77650 

1 

r : 

56431 

1 

I : 77614 

1 

C : 01347 

52375 

C : 

0 3 70  1 

1 

C : 

03525 

o 

33737 

1 

76521 

C:  u 1 732 

2 7 ,24 6f 

C:  0 3253 

0 

I:  51575 

1 

C: 

J 3707 

1 

C: 

0 3664 

0 

I : 

77776 

1 

06042 

1 

f 6051 

0 

I:  77201 

1 

27,  2470 

C:  00001 

0 

C : 03707 

1 

C : 

27701 

1 

C: 

03525 

0 

Is 

57414 

1 

C: 

0 1344 

0 

C: 

75614 

0 

I : 77656 

1 

2 7,2500 

I:  4 144  1 

0 

C:  ' 7 7 

1 

Is 

56  244 

0 

C: 

51634 

1 

C : 

03743 

1 

I : 

41215 

1 

C: 

06516 

0 

is  56261 

1 

27,  2 51  C 

C : 20613 

1 

• 

0 

I: 

43205 

1 

C: 

16532 

1 

G : 

0 374  1 

0 

C: 

03515 

0 

I : 

77615 

0 

C : 01234 

0 

I : 

51025 

i 

C : 

16534 

1 

G : 

51540 

1 

I : 

43  01  4 

0 

C: 

0 1066 

G 

C:  01224 

1 

2 7 2 ^ 3 r 

C:  75614 

3 

C:  777  15 

1 

C: 

77777 

0 

C : 

00000 

1 

C : 

0C620 

0 

C6051 

0 

1 : 

43001 

1 

C:  33031 

0 

27, 2540 

__ 

27,2550 

I:  41421 

0 

I:  4-3014 

0 

C : 

063^2 

1 

C: 

56623 

c 

C : 

02463 

1 

I : 

56345 

0 

C: 

1600  1 

1 

C:  01246 

0 

27,2560 

I : 50021 

1 

i : 

o 

C: 

56605 

1 

I: 

41325 

0 

C: 

C3737 

1 

C : 

16675 

l 

I : 

65221 

0 

C:  01246 

0 

27,  2570 

C:  03735 

o 

1 : 60405 

o 

C : 

1 6677 

o 

1 : 

41471 

o 

I ; 

5 102  1 

o 

C: 

3300  3 

1 

C: 

56623 

0 

I : 55345 

0 

2 7 ,26  OC 

I:  43205 

1 

C:  16677 

0 

C: 

16673 

1 

I : 

77650 

1 

C : 

5661? 

0 

I : 

41  345 

0 

C: 

01246 

I:  41542 

1 

27,  26  10 

1 : 562  l 5 

1 

C : 16003 

C : 

16005 

o 

I : 

77414 

o 

C: 

0 1066 

o 

07271 

1 

30154 

1 

56001 

0 

34755 

1 

535  1 5 

0 

12645 

0 

I : 

4 1 345 

0 

C: 

00001 

0 

C: 

31246 

0 

Is 

4 30C  6 

0 

C : 0 530  2 

0 

2 7,26  30 

C:  56666 

1 

l:  ,3  7 ) 

0 

C: 

16007 

1 

C: 

C 2663 

0 

I : 

41400 

0 

C : 

56650 

1 

I : 

51025 

1 

C:  16701 

0 

27,  2640 

C:  56656 

1 

I : 52015 

1 

C : 

16701 

0 

C: 

56613 

0 

I : 

77776 

1 

05364 

0 

C: 

00003 

1 

05155 

0 

2 7 , ? 6 5 C 

I:  40545 

1 

I:  7767  1 

1 

C: 

16011 

0 

C: 

03515 

c 

I : 

77776 

1 

12645 

0 

I : 

51025 

1 

C:  167D3 

1 

27,  2660 

C : 56663 

1 

I : 77614 

1 

C: 

02463 

1 

i: 

7 7 7 4 6 

1 

I: 

77776 

1 

12615 

0 

I : 

62471 

1 

C : 34007 

1 

27, 2670 

I:  77650 

l 

C:  56664 

0 

C : 

00144 

0 

C : 

00000 

1 

C: 

01274 

1 

C: 

03000 

1 

C: 

00764 

1 

C:  00000 

1 

, 

' : 

G: 

. 

0 0000 

27, 2710 

C:  C0001 

0 

I : 71214 

0 

C : 

01  ''72 

0 

C: 

0 6 5 2? 

0 

I : 

77725 

1 

C: 

16406 

l 

Is 

4321  4 

1 

C:  03745 

1 

27,2720 

C:  56722 

0 

: 

0 

I : 

45006 

0 

C : 

22002 

0 

I : 

77776 

1 

35364 

0 

C: 

00002 

0 

15  155 

1 

27,  2730 

I : 51  575 

1 

C:  01220 

0 

I : 

53744 

r 

C: 

02777 

1 

C : 

57576 

1 

C : 

27715 

1 

C : 

03444 

c 

I : 47051 

0 

2 7,  2 740 

C:  01220 

0 

C : 21706 

0 

C : 

17656 

1 

C: 

00045 

0 

I : 

53674 

1 

C: 

03046 

0 

C: 

57576 

1 

C:  00037 

0 

1 7 ,2750 

I:  41  30  1 

3 

( : 

1 

C: 

03715 

l 

I : 

57101 

0 

C : 

00047 

1 

C : 

00046 

0 

I : 

77734 

1 

C:  03766 

0 

27,  2760 

C:  17725 

l 

C:  00037 

0 

I : 

65342 

1 

C: 

3 37  15 

1 

t: 

65342 

1 

C: 

C3723 

1 

I : 

433*2 

0 

I : 45415 

0 

27,2770 

C:  74044 

1 

I:  41225 

1 

C : 

00037 

0 

C : 

( 3721 

0 

I : 

77621 

1 

C : 

037  17 

0 

Is 

45325 

1 

C:  03733 

0 
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2 7,  .000 

C:  0-37  15 

1 

I:  70  50  1 

1 

C: 

00CA7 

1 

I : 

Al  27 1 

0 

C : 

C 3 72  5 

1 

I : 

5 3 6 6 A 

0 

C: 

OOOA6 

0 

C: 

57575 

1 

27,  3010 

I : 77754 

1 

C : J766 

0 

I : 

75366 

0 

C: 

02673 

1 

r : 

000  A 1 

1 

I : 

A13A5 

0 

C : 

03733 

0 

C : 

03721 

0 

27,  3020 

i:  77621 

1 

C : 03717 

0 

I : 

A5325 

1 

C: 

03733 

0 

C: 

03723 

1 

I : 

70  50  1 

1 

C: 

0004  7 

1 

I : 

41271 

0 

2 7 ,3o30 

C:  C 37  25 

1 

I:  5 366  A 

2 

C: 

000A6 

0 

C: 

57575 

1 

I : 

65366 

1 

C: 

03  73  3 

0 

I : 

56225 

1 

C: 

00037 

0 

27,  30  AO 

C : 03733 

0 

I : A1566 

1 

I : 

675A2 

0 

I: 

65205 

0 

C: 

17215 

1 

I: 

56325 

0 

C : 

00037 

0 

C : 

03733 

0 

• 

I:  77600 

1 

C:  57052 

1 

I : 

Al  366 

1 

I : 

AA?a2 

0 

I : 

65365 

T 

C : 

02S73 

1 

( : 

17216 

1 

I: 

A 5 30  2 

1 

27,3060 

I : 65205 

0 

C:  03733 

0 

C: 

C 3733 

0 

Is 

75AA2 

1 

is 

77605 

i 

I : 

52525 

1 

C : 

03717 

0 

I : 

55366 

1 

2 7,  3070 

I:  A3225 

0 

C:  0363  1 

0 

C : 

0123A 

0 

C: 

1 A 037 

0 

I : 

77765 

0 

C: 

00037 

0 

C: 

00037 

0 

I : 

7721  A 

0 

27,31 00 

C:  03705 

0 

C:  57122 

1 

C: 

03656 

1 

I : 

53A51 

1 

C : 

03535 

l 

I : 

63361 

0 

C: 

00037 

0 

C: 

03656 

1 

27, 31  10 

I : 53A55 

0 

C:  03535 

1 

I: 

53361 

0 

C: 

000  A 1 

1 

I: 

537AA 

0 

C: 

02777 

1 

C : 

57177 

1 

C : 

02330 

0 

2 7,3120 

I:  77650 

1 

C:  57165 

1 

I : 

50375 

0 

C : 

03656 

1 

C: 

03535 

1 

I: 

77  2 AO 

1 

C: 

57  1A5 

0 

C: 

03656 

1 

27,3130 

I : 63362 

0 

C:  03535 

1 

I: 

53362 

0 

I: 

77656 

1 

I : 

57A06 

1 

I : 

75235 

1 

C : 

0267A 

0 

C: 

02673 

1 

27,  3 l AO 

I:  7A256 

0 

C : 0003  7 

0 

I : 

77715 

1 

I : 

77650 

1 

C: 

57112 

1 

I: 

74576 

0 

C: 

03535 

1 

I : 

7A515 

0 

27,315 

C:  03656 

1 

• 

1 

1 : 

77606 

1 

I : 

75235 

1 

C : 

0267A 

0 

C : 

02673 

1 

I : 

7A256 

0 

C: 

00041 

1 

27,  3160 

I : 77715 

1 

Is  53361 

0 

C: 

00037 

0 

I: 

7765  0 

1 

C : 

57  1 1 A 

1 

I : 

77651 

0 

C : 

03551 

0 

C : 

02357 

1 

27,  31  70 

I:  53135 

0 

C : 03000 

1 

C : 

57176 

0 

I : 

52175 

0 

C: 

02357 

1 

C: 

57211 

1 

is 

53575 

0 

C : 

01220 

0 

27,3200 

I:  A5  3a  5 

1 

C:  0123a 

0 

C: 

035  12 

1 

I : 

56205 

0 

C : 

16023 

1 

C : 

000A3 

0 

I : 

53361 

0 

C: 

03517 

1 

27, 3210 

C : 02357 

1 

C:  02357 

1 

I : 

77650 

1 

C: 

56A55 

0 

C: 

3110  3 

1 

C: 

36652 

0 

05527 

1 

C : 

00137 

1 

27,3220 

A50  17 

0 

C0006 

1 

03012 

1 

3501 A 

1 

00006 

1 

050  12 

1 

05232 

1 

C: 

13560 

0 

27,3230 

A501A 

0 

00006 

1 

030  12 

l 

35017 

1 

00006 

1 

05012 

1 

31A02 

0 

052  0 A 

1 

C:  C3257 

l 

31A01 

G 

05235 

0 

A A 7 A ( 

1 

00006 

1 

0 30  12 

1 

1 

1 

7A7A2 

0 

7 . 5 

00006 

1 

1 3 26  3 

1 

3a  7 37 

c 

05072 

1 

C : 

02330 

0 

C : 

02067 

1 

05272 

D 

44742 

0 

27,  3260 

00006 

1 

03012 

1 

132A6 

0 

055  15 

0 

C: 

00137 

1 

0527? 

0 

I : 

76521 

0 

C : 

01732 

0 

27,3270 

I:  776  50 

1 

r : A 7 6 5 3 

1 

I : 

53575 

0 

C : 

03253 

0 

I : 

776A 1 

1 

C: 

02137 

0 

I: 

51025 

1 

C: 

02555 

0 

2 7,33  00 

C:  57307 

1 

I:  5037  5 

0 

C: 

02137 

0 

C: 

03535 

1 

I : 

50025 

0 

C : 

02557 

1 

C : 

7 15  AO 

0 

I : 

7761  A 

1 

27,  33  lr 

C:  CAC  31 

1 

C:  6C716 

1 

I : 

7761  A 

1 

C: 

36A6S 

0 

I: 

7A3A5 

0 

C: 

023A6 

1 

C: 

02  27  A 

1 

I : 

7A325 

0 

27,3320 

C:  02352 

1 

C:  02575 

1 

I: 

53A  55 

0 

I : 

A5325 

1 

C : 

03A7A 

0 

C : 

17332 

0 

I: 

520  A A 

0 

C: 

60776 

1 

27,  3330 

C:  71536 

1 

C:  00017 

1 

C: 

23305 

0 

I: 

50375 

0 

C : 

03535 

1 

C : 

02567 

l 

I : 

Al  31  2 

1 

C : 

03631 

0 

27,3340 

C:  02326 

1 

I:  77616 

0 

C : 

00037 

0 

I : 

53575 

0 

C: 

02200 

1 

I : 

77725 

1 

C: 

000A5 

0 

C: 

00015 

0 

1 : 77701 

1 

C:  .00047 

1 

C: 

2A0A1 

1 

C : 

02206 

1 

I : 

77761 

1 

C : 

00037 

0 

C : 

02161 

D 

I : 

A736  1 

0 

27, 3360 

C : 000 A l 

1 

I : A7572 

1 

C: 

1 A035 

1 

C: 

06510 

0 

IS 

63271 

0 

C: 

000A1 

1 

C : 

C 2 1 6 1 

0 

I : 

57A36 

1 

27,3370 

C:  00025 

0 

1 : 43257 

0 

C : 

20573 

1 

I : 

77626 

0 

C : 

777AA 

0 

I : 

A 1 A 5 7 

1 

C: 

20173 

0 

IS 

75AA6 

0 
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► OCTAL  LISTING  RCR  PARAGRAPH  H 157,  WITH  PARITY  BIT  IN  8 INARY  AT  THE  RIGHT  OF  EACH  WORD,  *'3  ••  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCFPT  TH  CS  E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) OR  "C"  (CONSTANTS) 


1 7,340; 

27,  341C 
2 7,  3420 
2 7,3430 

27, 3440 
27 ,?45C 
27.3460 
27,  3470 

2 7 ,3500 
27, 3510 
27,3520 
27,3530 

27,  3540 
27,3550 
27, 3560 
2 7,  357  0 

27,3600 
27,  36  10 
27,3620 
27,3630 

27,  3640 
27,3550 
27,  3660 
27,3670 

27,3700 
27,  3710 
27,3720 
27,  3730 

2 7,3740 
27,3750 
27, 3760 
27,3770 


I:  77731  1 
I : 77616  0 
I:  43366  0 
I:  4 1 ? P 5 1 

C:  57443  0 
C:  03436  0 
I : 442  05  0 
i:  43276  0 

C:  57632  1 
I : *4240  1 
I:  400  15  1 
C:  57  637  1 

I:  52015  1 
C:  57201  3 
I : 41206  C 
is  77657  0 

r : 00  15 
I : 510  7 6 1 
C:  57602  l 
T : 77650  1 

C:  00045  0 
Is  41206  3 
: 

C:  000  17  1 

C:  57576  1 
C : < OC 1 3 0 
C : 134  3 

C : 43667  1 


C:  00050  1 
I : 41345  0 
C : 365 

C:  00327  1 

I : 77644  1 
C:  57454  0 
C:  00333  1 
I : 776  57  0 

I:  41076  0 
C:  57532  1 
C:  17741  0 
T:  77616  7 

C : 0001 7 1 
I:  7767  1 1 
C:  00035  1 
: 1 ] 

1 : 51042  0 
f : 57627  0 
I:  43257  0 
C:  57623  1 

C : 00017  1 
( : 

I : .•  - 

C:  14045  0 

C:  14045  o 
I : 53605  l 
C:  12525  0 
C:  01626  1 


C:  00031  0 
C:  300  33  1 
I : 55206  0 
C:  57735  l 

C:  57445  0 
I : 77614  1 
C:  06510  0 
C:  20601  1 

C:  57735  1 
C:  00045  0 
C : 57543  1 
I:  77745  1 

C : 57517  0 
I:  40145  0 
is  75261  0 
C : 00043  0 

C:  57623  1 
I : 77 

C:  57576  1 
I:  77745  1 

C : 14013  0 
I:  4 1 < 6 7 
0:  17745  1 

C : 00035  1 

C:  33027  1 
C : 0002  7 1 
C:  12525  0 
C:  37256  1 


I : 75316  1 
C:  OC  035  l 
C:  00035  1 
I : 53654  0 


I:  77745  1 

: 

Is  41206  0 
I : 71214  0 

C:  24045  0 
C:  14043  0 
I : 65345  0 
I:  45345  1 

if  65215  1 
C:  00043  0 
C:  2?  206  1 
I : 41234  1 

is  75206  1 
is  56205  0 
I : 40005  0 
is  43545  1 

I : 77626  0 
C:  57576  1 
I:  41405  0 

I : 53605  1 

I:  41366  1 
C:  57601  1 
C:  71463  0 
C:  7 7404  1 


I : 55254  1 
I:  57457  0 
I : 53657  0 
r : 67443  P 

C:  17753  0 


C : '.2161  r 
33  1 
C:  06520  0 
C:  C0C23  0 

C:  17743  1 
C : 57636  0 
C:  0D045  0 
C:  57717  1 

C:  00017  1 
C:  1 773  7 1 

C:  00037  0 
C:  17753  0 

C:  77732  1 
C : 21674  1 
I:  41345  D 
C:  00027  1 

C:  17737  1 
T:  52057  1 
C : 57703  1 
f:  52071  0 


C:  57407  0 
C:  20571  0 
C:  20  601  1 
C:  57603  0 

C:  03021  1 
I : 77657  0 
I : 53725  1 
C:  57477  1 

I : 52441  1 
is  44205  0 
I : 57545  1 
C : 00015  0 

C:  00043  0 
I : 45471  1 
C : 1404  f 
I : 44  3 1 . ( 

I : 71244  0 
C:  03031  0 
C : 57633  3 
I : 77712  0 

Is  53605  1 
C : 00043  0 
C:  00045  C 
C:  57575  1 

I : 77615  C 
C:  57602  1 
C : C 442  3 0 
06073  P 

C:  03333  1 
C : 03755  0 


C:  06510  0 
I : 5141 5 o 
C:  20572  0 
I : 40057  1 

1 : 77616  0 
C:  20  2C  1 0 
C : 00035  1 
C:  06520  0 

C:  02200  1 
C : 0004  1 1 
C:  00033  1 
C : 14043  3 

is  53605  1 
C:  77732  1 
I : 41206  0 
C:  00023  o 

C:  57627  3 
T:  53657  0 
IS  776 16  0 
I : 41465  0 

C:  00027  1 
Is  41234  1 
C : COO  1 5 0 
I:  53765  0 

I : 45257  0 
C:  57623  1 
C:  17645  3 
C : 06220  1 

C:  02000  0 
CKSV  57130  1 


C:  33027  1 
C : 17747  0 
C:  1 40  1 7 1 
C:  57576  1 

I : 7761 4 1 
C:  00021  1 
C:  20573  1 
I : 75440  0 

C:  03017  1 
I : 51406  1 
is  71240  1 
C:  00045  0 

C:  00031  0 
I:  63436  0 
C : 00033  1 
is  41215  1 

' : 3027  1 

C : 57602  1 
IS  77745  1 
I : 45345  1 

C:  57576  1 
C:  57717  1 
I : 43312  0 
C:  00045  0 

C:  57577  0 
07234  0 
C:  74634  0 
C : 37553  0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 150,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "5)"  OENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


3 0 , 2 ; C 0 

C:  0 2AA5 

0 

C: 

00  274 

0 

I : 

77615 

0 

C: 

02172 

1 

C : 

02172 

1 

I : 

A7573 

0 

C: 

02555 

0 

I: 

77615 

0 

30, 2010 

C : 021 7A 

1 

r : 

:717a 

1 

1 : 

47  5 73 

0 

C: 

''2643 

1 

I: 

77615 

0 

C : 

'2176 

0 

C : 

02176 

0 

I : 

7550C 

0 

' . 

C:  62137 

0 

I : 

77661 

0 

C : 

20613 

1 

C : 

16176 

0 

C: 

02174 

1 

is 

77766 

0 

C: 

16174 

1 

C: 

02172 

1 

3 0 ,2030 

I : 77766 

3 

C = 

02172 

1 

I: 

5 2 000 

0 

C : 

60035 

l 

C: 

60042 

1 

I : 

77745 

1 

C : 

06526 

0 

C: 

0 2 17  2 

1 

30, 20  AO 

C:  02 1 7 A 

1 

C: 

02176 

0 

I : 

A 5 3 A 5 

1 

C: 

02172 

1 

C: 

20060 

0 

I : 

71240 

1 

C: 

60051 

0 

C : 

20060 

0 

3 1 ,2350 

C:  02172 

1 

1? 

66150 

0 

C : 

00051 

0 

C : 

00052 

0 

I : 

77776 

1 

04635 

0 

C: 

27421 

0 

C: 

01670 

1 

. 

C:  17000 

1 

0536  A 

0 

C: 

r‘  40  24 

0 

0 4 616 

1 

C : 

l 1241 

0 

36000 

1 

55251 

1 

34751 

0 

30,  2070 

55513 

0 

33016 

0 

04616 

1 

C: 

20477 

1 

16001 

1 

12077 

1 

12071 

1 

05364 

0 

. 

C:  0A02A 

3 

0605  1 

0 

I: 

A 30  1 A 

0 

C : 

03067 

0 

C : 

06464 

1 

I : 

43014 

0 

C: 

00073 

0 

C: 

00270 

1 

30,2110 

I : A301A 

0 

C: 

0A46A 

0 

C: 

04461 

0 

I: 

450  14 

0 

C: 

00666 

1 

C: 

71426 

1 

I : 

77624 

1 

C : 

60243 

1 

33 ,21 20 

I:  777A5 

1 

C: 

25727 

1 

C : 

17515 

0 

C : 

0 3442 

0 

C: 

34041 

0 

C: 

27056 

1 

I: 

64375 

1 

C: 

00007 

0 

3C  ,2  130 

C : f 1 732 

0 

I: 

77772 

0 

C: 

2760  1 

0 

C: 

00001 

0 

I : 

52521 

0 

C : 

01  732 

0 

C : 

37  517 

3 

C: 

71743 

1 

30,  21  AO 

0351  7 

i 

17643 

31452 

■ ' 

C:  16270 

3 

C: 

31454 

0 

C: 

02264 

0 

I : 

77776 

1 

05364 

0 

C : 

04024 

0 

33014 

1 

04616 

1 

30,  21 60 

C : 20477 

I 

16031 

1 

12164 

1 

12156 

0 

32306 

0 

55455 

0 

05364 

0 

C : 

04024 

0 

• 

06051 

0 

I : 

5A3A5 

1 

C : 

03643 

0 

C : 

2 02  06 

1 

I : 

77615 

0 

C: 

02326 

1 - 

C: 

27633 

1 

C: 

03535 

1 

30,2200 

I : 53361 

0 

C: 

3 1 A 5 0 

1 

C: 

0360  1 

0 

C: 

03525 

0 

I : 

72441 

0 

C : 

03535 

1 

C : 

37474 

1 

C: 

60307 

0 

3C  , 22  10 

I : 77746 

1 

C: 

02352 

l 

I : 

65316 

0 

C: 

32346 

1 

I: 

4331  6 

1 

I: 

75454 

0 

C: 

60222 

0 

I : 

55352 

0 

33,2220 

C:  C 2346 

1 

I: 

7 77  36 

0 

C : 

26354 

1 

C : 

032  53 

0 

I : 

50256 

0 

C : 

03535 

1 

I: 

65552 

0 

I: 

77676 

0 

30,2230 

C:  02356 

0 

I : 

77776 

1 

05364 

0 

C: 

0 4024 

0 

00004 

0 

04674 

0 

C : 

40143 

0 

05527 

1 

3(  , 22 AO 

C:  00213 

1 

0 A 6 3 5 

0 

C : 

74130 

0 

I : 

77745 

l 

C: 

16013 

1 

C: 

03641 

1 

C: 

03637 

0 

C : 

17635 

1 

, 

C:  If, t,  17 

3 

C: 

16264 

0 

C: 

16021 

0 

C: 

16262 

c 

C : 

34013 

1 

I : 

54276 

0 

C: 

20214 

1 

C: 

02260 

1 

30, 2260 

I : 57635 

0 

C: 

26001 

1 

I : 

77702 

1 

C: 

02256 

1 

I: 

434  14 

1 

C : 

04  74  7 

1 

C : 

60267 

I 

I : 

43345 

1 

33,2270 

C:  25725 

0 

C: 

0232A 

0 

C : 

17631 

0 

C : 

06  520 

0 

C: 

03654 

0 

C: 

03&33 

1 

C: 

26  266 

1 

C: 

0 156  3 

0 

30,2300 

I : 6A235 

1 

C: 

01555 

0 

C: 

0 1732 

0 

I: 

77656 

1 

C: 

02567 

1 

I : 

776  16 

0 

C: 

02024 

0 

I : 

51575 

1 

3 , > 'i 

: ! ! 7 

1 

C : 

26272 

1 

C : 

03535 

l 

I : 

53435 

0 

C: 

C 2 5 6 7 

1 

C: 

0 2 575 

l 

1 : 

72441 

0 

C : 

03525 

0 

33  , 23  2 r 

C:  26304 

i 

C: 

02575 

1 

I : 

76435 

1 

C: 

03535 

1 

C : 

022  7a 

1 

I : 

72441 

o 

C: 

C3525 

0 

C: 

36302 

0 

30, 2330 

C : 57333 

0 

I : 

77775 

1 

C: 

03561 

0 

I: 

42441 

0 

C: 

03535 

1 

I : 

47315 

0 

C : 

03535 

1 

C : 

03525 

0 

33.23^0 

I:  56236 

0 

C: 

02272 

l 

I : 

43352 

1 

I : 

77626 

0 

C: 

75471 

1 

I: 

45014 

0 

C: 

04742 

1 

C: 

60351 

0 

3o  ,23 5c 

C:  7 1 6 1 4 

i 

I: 

453  45 

l 

C: 

02270 

0 

C: 

02304 

1 

C : 

02334 

1 

I : 

65361 

0 

C : 

02575 

1 

C: 

02266 

1 

30  * 2360 

Is  77625 

0 

C : 

02302 

1 

C : 

02332 

1 

I : 

65361 

0 

C: 

02274 

1 

C: 

02264 

0 

I : 

77625 

0 

C : 

03474 

0 

• , ' i 7 

C:  02330 

0 

I: 

5336  1 

0 

C : 

03635 

1 

I : 

76455 

1 

I : 

77626 

0 

C : 

74131 

1 

I: 

41345 

0 

C: 

03515 

0 

GAP:  ASSEMBLE  REVISION  ^6  OF  AG:  PROGRAM  ZFRLINA  RY  ZOROASTER 


o:TAL  LISTING  FCR  PARAGRAPH  u 161,  W IT  H PARITY  BIT  IN  BINARY  AT  THF 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I" 


■ ,2401 

C:  02306 

0 

I:  7656  1 

1 

C:  03535 

1 

I:  77665 

0 

30, 2410 

C : 2 75  02 

0 

G: 

0 

I:  43046 

1 

C:  76765 

0 

30.2429 

C:  71565 

1 

I:  77634 

0 

C : 60750 

0 

I : 61671 

0 

30,2^0 

C:  02262 

0 

I:  77525 

0 

C:  02260 

1 

C:  03515 

0 

30,  2 A 40 

I:  45214 

1 

C : 03  710 

l 

C : 60446 

1 

C:  21002 

9 

■ 

I:  50025 

0 

C:  2 ICC  4 

0 

C:  60606 

1 

I : 65365 

1 

. 

C:  61016 

l 

I : 4146 1 

1 

C:  20  20  6 

1 

I:  46265 

0 

, 

C:  60477 

0 

I : 45345 

l 

C : 03  515 

0 

C:  2 1 005 

1 

1 (/  ,2500 

C:  06520 

o 

C:  02362 

0 

C:  36344 

1 

C:  60566 

1 

30, 25  10 

I : 52421 

l 

C:  03515 

0 

I : 41325 

0 

C:  03515 

0 

33 ,2520 

I;  41325 

o 

C:  02330 

0 

1 

C : 00005 

1 

I : 62615 

o 

3 ,2530 

I : 71240 

1 

f : 6 L 3 ; 

C : 6 ! 2< 

0 

C:  36342 

1 

30,  2540 

’ . r ; 

C:  03515 

0 

I:  43205 

1 

C:  02302 

1 

C : 02326 

1 

30,  2 560 

C : 00005 

1 

I : 56312 

l 

I:  40271 

1 

C:  03515 

0 

3 3 , 257C 

C:  00003 

1 

I:  56325 

0 

C : 02330 

0 

C : 00001 

0 

. 

I : 65205 

0 

I:  60465 

0 

C:  02332 

1 

is  77625 

0 

30,  26 10 

C:  04742 

1 

C : 6061 4 

1 

I : 77624 

1 

C:  71571 

1 

n ,26: 

C:  02336 

0 

: 

0 

I:  45352 

1 

C:  02306 

0 

30,2630 

C:  02340 

1 

I : 72471 

0 

C:  02262 

0 

C:  02  346 

1 

3 0,  2640 

C:  03535 

1 

I:  41572 

l 

I : 65246 

1 

C:  02254 

0 

3 , ?65f 

I : 45316 

1 

C : 

0 

IS  71240 

1 

C:  60  6 57 

0 

3 , >66< 

C : C.C0C7 

0 

I : 77761 

1 

C:  00001 

0 

C:  14001 

0 

30,2670 

I:  77761 

1 

C:  02575 

1 

is  53372 

1 

C : 00001 

0 

30,2700 

- 

3 0,  27  10 

I:  51025 

1 

C : 01234 

0 

C : 60720 

1 

I : 77614 

1 

• 

I:  77776 

1 

30  If  5 

0 

74  74  2 

0 

10G00 

0 

30, 2730 

I : 77776 

t 

30 105 

0 

74762 

0 

10000 

0 

33,2740 

127  50 

0 

37723 

0 

05166 

1 

33o  1 3 

0 

3 0 ,2750 

04635 

0 

C:  66102 

1 

I:  77776 

1 

00004 

0 

30, 2760 

C:  02272 

1 

C : 2324 

0 

I : 50025 

0 

C:  26035 

0 

30,2770 

C:  60704 

1 

I:  43345 

1 

C:  01236 

0 

C:  25723 

0 
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03646 

0 

C : 

03646 

0 

I: 

76521 

0 

C:  02137 

0 

60623 

l 

I : 

77671 

1 

C : 

20001 

1 

C : 37515 

1 

02256 

1 

I: 

44362 

1 

C: 

1 7 7 c 7 

G 

I:  4 1205 

G 

57661 

0 

20616 

0 

C : 

17454 

1 

C:  0351  5 

0 

77660 

0 

C: 

30  367 

l 

I : 

77745 

l 

C:  03515 

0 

02262 

o 

C : 

03515 

o 

I : 

45071 

o 

C:  02262 

o 

0 35  1 ^ 

0 

C : 

02262 

0 

I : 

43006 

0 

: 

l 

63046 

0 

C: 

6D5C4 

0 

r : 

04463 

1 

I : 77745 

1 

45345 

1 

C : 

03515 

c 

C : 

00003 

1 

I:  72406 

0 

0 34  74 

0 

I: 

45215 

0 

C : 

0227  2 

l 

C:  03631 

0 

56271 

q35  Is 

C:  02342 

60547 

1 

I : 

56202 

1 

C : 

02  2 62 

0 

I : 51025 

1 

• 

1 

65225 

1 

C : 

03633 

1 

C: 

02332 

1 

I:  43205 

1 

00005 

1 

C: 

02344 

0 

I t 

41345 

0 

C : 02342 

0 

4 530  2 

1 

I: 

77626 

0 

C: 

6 144  1 

1 

C:  02344 

0 

00001 

0 

C : 

02340 

1 

I : 

4 3CC  1 

1 

C:  00001 

0 

41345 

o 

C : 

27747 

0 

C : 

02342 

0 

1 : 5621 5 

1 

16350 

0 

r : 

27747 

0 

I: 

43205 

1 

C:  0 2344 

0 

65361 

0 

C : 

02274 

1 

C : 

02350 

0 

I : 53361 

0 

45316 

1 

C: 

00043 

0 

Is 

41525 

0 

C:  02254 

0 

00011 

1 

I : 

52166 

1 

C : 

60665 

1 

IS  55345 

0 

065  20 

0 

I: 

77765 

0 

C : 

02334 

1 

C:  02352 

1 

03253 

0 

I : 

43301 

1 

C: 

1 

0 

C:  04704 

0 

57575 

. 

r • 

1 7?A1 

r, 

n 

04711 

1 

C: 

57272 

1 

Is 

77614 

1 

C : 06666 

1 

12750 

0 

06051 

0 

I : 

77624 

l 

C:  61073 

1 

12750 

0 

30  104 

1 

74742 

0 

10000 

o 

04616 

1 

C: 

2047  1 

1 

34736 

1 

05146 

1 

04674 

0 

C : 

40166 

1 

12731 

1 

I:  45345 

1 

57312 

0 

I: 

430  14 

0 

C : 

04661 

1 

C:  04711 

1 

37654 

1 

C : 

60704 

1 

I: 

77614 

1 

C:  04631 

1 
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3 0,3000 

C:  60765 

0 

G:  00062 

0 

C:  00000 

1 

C : 

00G31 

0 

C : 

00000 

1 

C : 

OC  1 75 

1 

C: 

00000 

1 

C:  30045 

D 

3 0,  3010 

C : 20000 

0 

r.  : 14400 

0 

C:  00000 

1 

C: 

j 1536 

0 

f: 

0 15  14 

0 

C: 

01441 

1 

I : 

44301 

0 

C : 00163 

0 

, 

C:  1775? 

0 

I:  77776 

1 

07234 

0 

C : 

00005 

1 

C: 

OOOOC 

1 

C: 

DD0D2 

0 

C: 

76777 

1 

C:  77175 

1 

. 

C:  77400 

0 

C:  75416 

6 

C:  77507 

0 

C: 

65515 

0 

C: 

77741 

' 

If.  : 

63547 

1 

C : 

77052 

n 

C:  55373 

0 

. 

C:  01167 

0 

C:  30361 

c 

C:  76520 

1 

C: 

75267 

0 

34755 

1 

54156 

1 

00006 

1 

33063 

1 

. 

52155 

1 

52132 

0 

30  16? 

1 

07321 

o 

52156- 

1 

52155 

1 

52132 

o 

20  15  5 

1 

) , 

06051 

0 

I : 43476 

0 

C:  1542 

1 

C: 

34414 

1 

Is 

77331 

0 

C: 

0 3 300 

1 

C : 

00000 

1 

C : 06516 

0 

• 

C:  03267 

1 

C:  03261 

1 

I : 77616 

0 

I : 

77775 

1 

C: 

03253 

c 

I : 

43200 

1 

C: 

6 1075 

1 

C:  00023 

0 

. 

I : 77420 

1 

C:  03246 

1 

33745 

1 

56003 

1 

55645 

0 

30111 

o 

74737 

1 

10000 

0 

i . (Ill 

34753 

l 

55647 

1 

34743 

0 

55651 

0 

70111 

1 

55650 

1 

o 

o 

X- 

0 

30032 

0 

3D  ,3120 

54771 

1 

300  3 3 

1 

54765 

1 

30034 

0 

54767 

0 

3 4 742 

1 

00006 

1 

02030 

0 

, 

10000 

0 

13146 

D 

34736 

1 

D0006 

1 

0 2031 

1 

10000 

0 

13146 

0 

55651 

0 

31,3140 

31634 

1 

54771 

1 

31635 

0 

54765 

1 

31636 

0 

54767 

0 

0605  1 

0 

I:  77634 

0 

3 0 ,31 50 

C:  2T710 

1 

C:  24001 

0 

C:  '.’3  261 

l 

I: 

47034 

0 

C: 

21710 

1 

C : 

47622 

1 

C : 

24015 

D 

C:  00325 

D 

30 ,3160 

1 : 53404 

1 

C:  61734 

0 

I : 45  000 

0 

C: 

6 1 177 

1 

C: 

47676 

0 

i; 

77776 

1 

31670 

1 

22157 

1 

3D ,3170 

03467 

1 

55670 

0 

31672 

0 

22161 

1 

03467 

1 

55672 

1 

0605  1 

G 

I?  46135 

1 

30,3200 

C:  C3251 

1 

C:  61205 

l 

I:  45175 

0 

C: 

'’0015 

0 

C : 

6 1507 

1 

I : 

77775 

1 

C : 

02153 

1 

C:  34015 

1 

30,  3210 

C:  6 1 5 C 7 

1 

I : 5 7 57  5 

1 

C : 02137 

0 

C: 

00015 

0 

l : 

47375 

0 

C: 

000  15 

0 

C: 

00001 

0 

I : 41456 

0 

, 

I:  76435 

1 

f : 1 

0 

C:  00015 

0 

I : 

63361 

0 

C : 

03273 

l 

I : 

51361 

1 

C: 

0327  1 

0 

I:  53372 

1 

30,  32  30 

C : 0000 l 

0 

I : 77656 

1 

C:  00001 

0 

I: 

76435 

1 

C: 

000  15 

0 

C: 

00007 

0 

I : 

47276 

1 

C:  00001 

0 

3 J , 3? AO 

I:  77772 

0 

C:  COO  1 5 

0 

I : 77624 

1 

C : 

61517 

0 

I : 

77776 

1 

31677 

0 

26  154 

0 

30156 

0 

3 0 , 32  5C 

54001 

1 

33757 

1 

037  13 

l 

56156 

0 

00006 

1 

2 0156 

1 

00  006 

1 

13261 

0 

30, 3260 

1 3742 

1 

00004 

0 

22007 

0 

34752 

0 

54142 

1 

3000  1 

0 

00006 

1 

70000 

0 

, 

64350 

0 

00006 

1 

63275 

1 

34755 

1 

55650 

1 

5D142 

0 

30154 

1 

50  142 

0 

30, 3300 

54321 

0 

00036 

1 

50142 

0 

21634 

0 

40000 

0 

50142 

0 

55674 

1 

54001 

1 

3 » 3 3 1 

10  142 

1 

13264 

0 

11651 

0 

13736 

1 

30101 

1 

74745 

1 

00006 

1 

13736 

1 

3c  ,3320 

23676 

1 

51647 

0 

33753 

0 

’.371? 

1 

55676 

0 

31  675 

1 

00006 

1 

70745 

0 

• 

54001 

1 

51647 

0 

33755 

0 

037  13 

1 

00006 

1 

10  745 

0 

57675 

1 

00006 

1 

. 

70  73  7 

0 

2000  1 

1 

40000 

0 

00006 

1 

21674 

1 

5 4 30  1 

1 

51647 

0 

33753 

0 

, 

03713 

1 

55574 

1 

11650 

1 

41674 

1 

5 56  74 

1 

41675 

0 

00006 

l 

70737 

0 

30,  33  60 

200C1 

1 

2767  4 

1 

41674 

1 

55642 

1 

41675 

0 

00006 

1 

70737 

0 

2000  1 

1 

i | j337< 

27642 

1 

2764  2 

1 

41675 

0 

C0006 

1 

70747 

1 

20001 

1 

00006 

1 

70745 

0 
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3 0,34  CO 
3 , <4  10 
33 ,3420 
3-'  ,3430 


55643  3 
00006  1 
70  7 47  1 
00006  1 


4 1 b7  6 f 
70741  l 
276  4 4 1 
73763  1 


00U06  1 
20001  1 
27644  1 
03727  0 


70741  1 
30006  1 
27644  1 
50  142  0 


27643  C 
70  745  0 
34  752  C 
55637  0 


27643  0 
55644  1 
54142  1 
50142  0 


27643  0 
41676  C 
50142  0 
11642  1 


31675  1 
OOOC6  1 
31674  0 
64753  1 


3 , 34 4< 
3 0 ,3450 
3t , 3460 
33 ,3470 


13442  1 

64753  1 

00006  1 

50142  0 

71642  1 

00006  1 

74741  0 

00006 

50  142  : 

1 16  30  1 

54001  1 

33755  0 

03713  1 

5C142  0 

55274  0 

10  142 

13425  0 

31645  1 

54003  0 

06051  0 

I:  5 2001  1 

C:  00001  0 

C : C3246  1 

000G6 

22142  0 

54143  0 

40000  0 

60001  0 

00006  1 

51647  0 

73746  0 

5400  1 

3 ,3500 
3'<,  3510 
3 3 ,3520 
30, 353C 


33750  0 03713  1 60143  1 54001  1 
00001  0 I:  50025  0 C:  21  753  0 C:  61214  1 
00203  1 I:  5 1q2  1 c C:  06510  0 C:  61526  1 
30155  0 20001  1 54145  0 13536  0 


33751  1 03713  1 00142  0 1:  63441  0 

I:  43531  l C:  03251  1 C:  00000  1 I:  63545  0 
I : 77745  1 C:  06520  0 I:  77566  1 00006  1 

34733  l 54145  0 50120  1 30002  0 


30 , 3560 
33,3570 


22154  1 03606  1 
03606  1 54155  1 
54154  0 06C51  0 
00006  1 63573  0 


54156  1 34755  1 

34750  l 03564  0 

I : 77616  0 C:  000 16  0 
40000  0 60145  1 


03564  0 34751  0 
33563  1 03564  0 
60120  1 54116  C 
00006  1 53603  1 


03564  0 40141  1 
40141  1 03606  1 
50116  1 30000  1 
00006  1 50116  1 


3U» 36Cr 
30,  3 610 
30  ,3620 
30, 3630 


30001  0 
00006  1 

00006  1 
54143  0 


00006  l 
22144  0 
13640  1 

30142  0 


l'  145  0 
54142  1 
10143  0 
03656  1 


54001  1 
30001  0 
34755  1 
03727  0 


22141  0 
54143  0 
13630  0 
00006  1 


00002  0 
34755  1 
40142  1 
20143  0 


00006  1 
00006  1 
54142  1 
03727  G 


13651  1 
10  142  1 
34735  1 
00144  0 


33 , 3640 
3-, 3650 
30,  3660 
33,3670 


40  14  3 0 
13636  o 
13664  1 
73712  1 


03656  1 
13301  1 
50000  1 
6 37  1 1 0 


64736  1 
34755  1 
44734  1 

00006  1 


54H3  0 
00002  0 
54021  0 
70141  1 


10142  1 
7 4 73  5 1 
00336  1 
63710  1 


33143  1 
00002  0 
73000  0 
03306  1 


13636  0 
60000  1 
54141  1 
70141  1 


40143  0 
54021  0 
00006  1 
63737  1 


30, 3700 
1 , 3 7 li' 
3 0 , 37  2 0 
33,  37  30 


00006  1 
C:  16204  0 
22141  3 
64753  1 


70141  1 
C:  50744  C 
13723  0 
00002  0 


63706  0 
C : 20315  1 
13725  0 
40000  0 


00006  1 
54141  1 

3000 1 0 

30002  0 


70021  C 00002  0 
34765  1 00306  1 
0C002  0 40141  1 
0 5600  1 C:  33  40  2 1 


C : 24406  0 C : 00660  1 
10  14  1 1 10000  0 

00002  0 13333  3 

00004  0 04674  0 


33 ,374L 
30,3750 
3‘  , 3760 
U ,3  7 70 


C:  40 1 66  1 13461  0 

C:  C 0071  1 C:  02C4  1 0 

C:  01463  L C : 03761  1 

7)  a 


05600  1 c:  00401  1 

01673  1 C:  C 34  34  1 

03762  1 CKSM  54627  0 
a a 


13261  0 
C:  00266  G 
a 
a 


C : 03245  1 
C : 01616  1 
3 

a 


C:  06315  0 
C:  00133  0 

a 


C:  03146  1 
C:  14344  1 

a 

a 
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31  , 7 0 C'  0 

C:  C 0222 

0 

C:  33316 

0 

G: 

0 7 401 

0 

C: 

06613 

0 

G : 

00010 

G 

C : 

00307 

0 

C : 

17534 

0 

36051 

0 

31,  20  10 

I:  77624 

1 

C:  62120 

0 

I : 

77776 

1 

33006 

1 

31572 

0 

53600 

1 

00006 

1 

31574 

0 

31,2320 

53602 

0 

00006 

1 

31576 

1 

5 3604 

0 

32143 

0 

346  16 

1 

C: 

20334 

1 

1 55  03 

0 

31,2030 

12032 

0 

12024 

1 

22007 

0 

34756 

1 

54002 

1 

50002 

0 

41571 

1 

50002 

0 

31,  20  AO 

61577 

0 

26001 

1 

10002 

1 

12034 

0 

22000 

1 

00006 

1 

12051 

0 

05515 

0 

3 1,2!-;  5 0 

C:  0 0 1 6 P 

0 

0.60  5 1 

0 

I: 

77414 

0 

C : 

03707 

1 

C : 

6 2 (.  5 6 

0 

15  503 

0 

I : 

77745 

1 

C:  3 217  2 

1 

31, 2060 

I : 72412 

0 

C:  14001 

0 

C: 

02  1 74 

1 

C: 

14033 

l 

C: 

0 2176 

0 

I : 

77661 

0 

C : 

20213 

0 

C : 00005 

1 

31,2370 

I:  7 20  14 

l 

C:  C43C7 

1 

C : 

62102 

0 

C : 

00000 

1 

I : 

72130 

0 

C: 

02033 

0 

C: 

OOOC  2 

0 

I:  52130 

1 

3 1 , 2 1 0< 

C:  02  0 01 

1 

r : ,211 

0 

l: 

66150 

0 

C: 

00000 

l 

C : 

02006 

0 

I : 

66150 

0 

C : 

00002 

0 

C:  02007 

1 

3 1,  2110 

I : 66150 

0 

( : 

0 

C : 

02003 

0 

I : 

77730 

0 

C: 

32332 

1 

I: 

77414 

0 

C : 

02676 

1 

15503 

0 

31  ,2120 

I:  40020 

1 

C:  00051 

0 

C: 

62123 

0 

I : 

45014 

0 

C : 

03667 

0 

C : 

27410 

1 

I : 

71331 

0 

C:  33051 

0 

31, 21 30 

C : 00006 

1 

C:  06520 

0 

C: 

32172 

1 

C: 

32  174 

1 

C: 

02176 

0 

I : 

77770 

1 

C : 

00066 

1 

I : 47573 

0 

3 l,  2140 

C:  02467 

0 

I:  77650 

1 

C : 

60002 

0 

C : 

01543 

1 

00306 

1 

23637 

1 

556  12 

1 

12250 

0 

. 

31247 

1 

00C06 

I 

72356 

1 

00006 

1 

23607 

1 

02337 

1 

53470 

1 

00336 

1 

3 1, 2160 

? 1 6 1 1 

0 

21470 

1 

53470 

1 

30006 

1 

75000 

0 

03006 

1 

11243 

1 

55467 

1 

31,2170 

0000  6 

l 

3 14  64 

0 

02337 

1 

00004 

0 

55615 

0 

53466 

0 

00C06 

1 

31234 

0 

31,2200 

53671 

1 

00DD3 

l 

350  14 

l 

54003 

0 

00006 

1 

31473 

0 

52131 

0 

35016 

0 

3 1,  22  10 

540C3 

0 

447  5 5 

0 

56606 

1 

40131 

0 

6 1623 

1 

00006 

1 

62230 

1 

40130 

1 

31  ,222o 

6 1465 

1 

00006 

1 

62225 

0 

31467 

0 

12235 

c 

42002 

0 

61467 

0 

12237 

1 

31,  2230 

40131 

0 

61465 

1 

00006 

1 

62243 

0 

3 200  3 

0 

57465 

1 

34737 

0 

55606 

1 

3 1 ,2240 

4 1467 

1 

61465 

1 

54001 

1 

34737 

0 

04616 

1 

C : 

61713 

0 

556  12 

1 

6 1 60  6 

0 

. 

57606 

0 

34742 

1 

00006 

1 

0 20  30 

0 

10000 

0 

12332 

0 

31606 

0 

55614 

1 

3 1,  2260 

54055 

c 

34750 

l 

C0006 

1 

05014 

1 

32363 

0 

54002 

1 

00006 

1 

74747 

0 

31,2270 

22  131 

1 

4 167  1 

1 

60025 

0 

62004 

1 

75004 

1 

22007 

0 

00G06 

1 

1000  2 

1 

31, 2300 

00006 

1 

71612 

1 

20001 

1 

1 

1 

53617 

1 

11612 

1 

64753 

1 

12311 

1 

1 , ' I 

6 4753 

1 

00C06 

l 

71612 

1 

00006 

1 

10131 

3 

276  16 

0 

316  15 

1 

00006 

1 

31  ,2320 

72367 

3 

55672 

1 

3 1607 

1 

34737 

0 

55606 

1 

44755 

0 

55620 

3 

33336 

1 

31,  23  30 

236C7 

1 

12246 

1 

44755 

0 

55612 

1 

5561  5 

0 

447  37 

1 

12257 

1 

52155 

1 

31,2340 

00006 

1 

22130 

0 

0 7115 

0 

C : 

01245 

0 

07115 

0 

C : 

02035 

3 

07  27  1 

1 

30154 

1 

' : • " 

COO  06 

1 

12354 

0 

34733 

1 

CO  13C 

0 

52156 

1 

00130 

0 

C : 

04143 

0 

C:  00670 

0 

31,  2360 

C:  C 1 440 

0 

12461 

1 

12461 

1 

12442 

0 

13361 

1 

12653 

1 

12663 

1 

1254  2 

1 

31  ,2370 

12717 

3 

12717 

0 

12717 

0 

13121 

1 

13106 

l 

13106 

1 

13171 

1 

13212 

1 
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OCTAL  LISTING  FOP  PARAGRAPH  « 165,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD  , "2"  DENOTES  UNUSED  FIXEO  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  FXCEPT  THOSE  MARKED  "I"  ( I N'TER  PRFT I V E OPERATOR  WORDS  > OR  "C"  (CONSTANTS) 


31 ,2400  1322D  0 

3 1. 2410  C : C00C2  0 
31,2420  30  10  l 1 

31.2430  00006  1 


13341  0 
77776  1 
74744  0 
31657  1 


13363  0 
34752  0 
00006  1 
53625  0 


13641  0 
55647  1 
13331  1 

00006  1 


13643  1 
12424  0 
00006  1 
31643  1 


13643  1 
55647  1 
31625  1 
53551  0 


12653  1 
53555  1 
11623  0 


06042  1 
06042  1 
12461  1 


31,  447 
31,2451 
31, 2460 


31,2470 


51346  1 12362  0 

74 

00143  1 06051  0 

r 3635  1 C:  02316  1 


05322  1 
C5C13  C 
I:  45345  1 
I : 47045  0 


: 

33663  1 
C:  D 36  25  C 
C : 03635  1 


31425  0 
55343  0 
C:  03555  1 
C:  2171C  1 


27550  1 00004  0 06022  1 
31315  1 55421  D 05527  1 
41461  1 C : 2121 4 0 I : 47361  0 
75561  1 C:  02324  0 C:  17543  0 


31  ,2500  I : 77776  1 

3 l,  2510  37730  1 

3 1 ,2520  C:  (,2324  0 
31,  2530  55614  L 


52155  1 

21551  0 

06042  1 

00006  1 

31551  1 

53643  D 

03563  1 

05146  1 

06051  0 

I:  53375  0 

C:  03543  0 

C:  02613  1 

C:  03635  1 

I : 77646  0 

77776  1 

06042  1 

3 SOI  4 1 

54003  0 

34755  1 

55612  l 

55613  0 

55615  0 

55616  0 

556  17  1 

35016  0 

54003  0 

34736  1 

05146  1 

rum? 

31, 2560 
3 1 ,2570 


51346  1 
12663  1 
55644  1 
31553  0 


12366  l 30102  1 
00004  0 31644  0 
55645  0 31552  1 
00006  1 73666  0 


74746  1 00006  1 
55552  0 31645  1 
00006  1 73666  0 
56001  0 5012C  1 


12663  1 31666  0 
55553  1 06042  1 
56001  0 50120  1 
52017  0 30 120  1 


00006  1 
34755  1 
52015  1 
54166  1 


31,260.7 
31,  26K 

31,2620 

31,2630 


06051 

0 

I:  52375  1 

C: 

03635  1 

C:  03517  1 

I:  41434  1 

C : 21710  1 

I : 76435  1 

C: 

02145  0 

I:  65361 

o 

C : 0001 5 0 

C : 

00017  1 

I : 52361  1 

C:  02145  0 

I:  41455  0 

I:  45345  1 

C : 

0000 1 0 

C:  05662 

0 

I:  7124  1 

C: 

62625  1 

C:  05662  0 

C : 00001  C 

I : 45345  1 

C:  03635  1 

C : 

03517  1 

I : 74271 

0 

C:  0D0D1  0 

I : 

53455  0 

C:  0 35 17  1 

I:  76561  1 

C:  02324  0 

C : 03543  0 

I : 

77776  1 

31,2640 
31  ,2650 
31,  2660 
3 1 ,2670 


06042  1 
31547  3 
C:  03253  0 
C:  03525  0 


0 C C r 6 1 
53641  1 
C : 03525  0 

C:  02254  0 


31  543  1 
12663  l 
I : 77776  1 
I:  77721  0 


5 3635  1 
06051  0 
D6051  0 
C:  02561  1 


00006  1 
I : 64375  1 
I:  47376  0 

C : 27627  1 


31545  1 
C : 00025  0 
C:  03517  1 
C : 03517  1 


53637  0 
C : 017  32  0 
C:  02316  1 
I:  41451  1 


00006  1 
I:  53352  0 
I : 70455  1 
C:  03635  1 


31,  2700 

I : 76521  0 

C: 

02561 

1 

31,  2710 

I:  77776  1 

30120 

l 

3 1 ,2720 

I : 77743  1 

C: 

0 244  3 

0 

3 1,  2730 

C : 02433  1 

C : 

23563 

0 

3 1,2740 

34744  1 

55570 

0 

31 ,2750 

03413  1 

51346 

1 

3 l,  2760 

61426  0 

64733 

1 

3 1 ,2770 

54  1 30  1 

00006 

1 

C:  16605  0 C:  D0162  1 C:  26603  0 

54166  1 04615  1 C:  63573  0 

C:  235t>7  1 C:  02437  0 C:  17565  1 

C:  02407  0 I:  41225  1 C:  0 2611  0 

00006  1 31643  1 52155  1 

12404  1 00006  1 30155  0 

54C01  1 40001  1 60001  D 

70000  0 54131  0 60130  0 


I:  50234  1 C:  21710  1 C:  02137  D 

51346  1 1237  1 1 03556  1 

C:  03633  1 l:  42605  1 C:  05660  1 

C:  05656  1 C:  03561  0 I:  77776  1 

34752  0 5400  1 1 33661  0 

53643  0 03563  1 41642  1 

22007  0 00006  1 11642  1 

56131  1 60131  1 54154  0 
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OCTAL  LISTING  FOR  PARAGRAPH  H 166,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD.  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASi:  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


3 1 ,3000 

60131 

1 

50120 

1 

5A032 

l 

60  131 

1 

50120 

1 

5A03A 

1 

60130 

0 

6A733 

1 

31t  30  10 

60131 

l 

60131 

1 

50120 

1 

5 AO  36 

0 

3 A 75  5 

l 

5 A 1 6 3 

1 

03556 

l 

I : 

65361 

0 

3 1 ,30  20 

C: 

03677 

1 

C:  00035 

1 

I : 

A7  1 57 

1 

C: 

0 2 A 1 3 

0 

C: 

6 35A3 

0 

I : 

A 7 1 13 

1 

C: 

0 2A0  3 

1 

C: 

63  5A3 

0 

31 , 3030 

I : 

70251 

0 

C:  0260 5 

0 

C: 

036A3 

0 

I: 

7A3A2 

1 

C: 

00033 

1 

I : 

53255 

0 

I : 

7A3A1 

1 

C: 

036A3 

0 

3 1,  30  40 

C: 

05660 

1 

I : 73725 

0 

C : 

00037 

0 

C: 

02A23 

0 

I : 

5 32  3 A 

1 

C: 

635A3 

0 

I: 

765C5 

0 

C : 

02561 

1 

3 1 ,3050 

I : 

70515 

1 

C:  0 1236 

1 

I: 

A 5 A A 5 

0 

C : 

7A52A 

1 

I : 

776A6 

0 

C : 

17A6A 

1 

C: 

03253 

0 

I: 

65316 

0 

31, 30  60 

C : 

03255 

0 

I : 6531  6 

0 

C: 

05650 

1 

I: 

6 3A7  1 

0 

C: 

0 12A6 

0 

Ii 

A5225 

0 

I : 

7 1 2 A A 

0 

C : 

63071 

1 

3 1 ,3370 

C: 

06  5 20 

0 

I:  A3366 

c 

C : 

03257 

1 

I : 

AA2AA 

0 

C: 

63077 

1 

C: 

03257 

1 

C: 

0 3257 

1 

i? 

77776 

1 

31,3100 

060A2 

1 

313A6 

l 

55621 

1 

25623 

1 

513A6 

1 

1237  A 

1 

513A6 

1 

31A23 

0 

31,  31  10 

fc  1 6 A 2 

0 

00006 

1 

63121 

0 

060A2 

1 

31621 

0 

6 A 7 5 3 

1 

553A6 

0 

3A755 

1 

3 1 ,31 20 

55623 

0 

353  1 A 

1 

5A00  3 

0 

00006 

1 

5 1 3 A6 

1 

52AC  7 

0 

31A53 

1 

2A006 

1 

31, 31 30 

2A006 

1 

616A2 

0 

56001 

0 

6 16A2 

0 

10000 

0 

10001 

1 

13167 

0 

1 3167 

0 

3 1, 31  AO 

1 3 1 A 1 

1 

03556 

l 

I : 

53  5 75 

0 

C : 

03635 

1 

C: 

16561 

1 

0 3 6A3 

0 

I: 

7 A 2o  3 

0 

C: 

0 2AA7 

1 

3 1 ,3150 

C: 

0225A 

0 

I:  77555 

1 

C: 

0 3635 

1 

I: 

A7051 

0 

C : 

03517 

1 

C : 

21  710 

1 

I : 

A7035 

1 

C: 

03635 

1 

31,3160 

C : 

21710 

1 

C:  26567 

1 

C : 

02561 

1 

I : 

76A35 

1 

C: 

02567 

1 

C: 

02575 

1 

I : 

77776 

1 

51621 

0 

3 1 ,3170 

12377 

1 

06C5  1 

0 

I : 

A7  1 75 

1 

C : 

03253 

0 

C: 

21710 

1 

I : 

7 A36  1 

0 

C: 

C3A23 

1 

C: 

22001 

0 

31,3200 

C: 

C3253 

0 

1 : 77776 

1 

116A7 

1 

12A15 

1 

1 16A6 

0 

13210 

0 

C5600 

1 

C : 

01 A 1 2 

1 

3 1 , 32 1 0 

GA635 

0 

C : 6 A 5 3 2 

1 

06C51 

0 

I : 

77775 

1 

C: 

f 3535 

1 

C: 

0 3 261 

1 

I: 

77776 

1 

1 327  A 

1 

31  ,32  20 

06051 

0 

I:  52375 

1 

C: 

03635 

l 

C: 

03517 

1 

I : 

7763A 

0 

C : 

21710 

1 

C: 

0326  1 

1 

I: 

50235 

0 

31 , 3230 

C : 

C 2 1 37 

0 

C:  02567 

1 

( : 

77776 

1 

AO  15  A 

0 

63667 

0 

6A733 

1 

5A130 

1 

A0130 

1 

31 ,32  AO 

26  130 

1 

A 367  3 

1 

60  1 5 A 

1 

6A733 

1 

6 Al  3 1 

0 

AD  1 31 

0 

26  131 

0 

3A75  1 

0 

31,3250 

762  5A 

0 

5A002 

1 

350  1A 

l 

5A00  3 

0 

30130 

0 

00006 

1 

50002 

0 

71  57  A 

1 

3 1,  32  60 

2A0C6 

1 

50007 

0 

53661 

0 

00006 

1 

7013  1 

0 

50002 

0 

2 1661 

0 

10002 

1 

31,3270 

13250 

1 

31773 

0 

55677 

1 

2 A006 

1 

3 0121 

0 

00006 

1 

13301 

1 

036A6 

0 

31 , 3300 

13331 

1 

AGC  76 

1 

7A7A1 

0 

30006 

1 

13312 

0 

OOOOA 

0 

0A67A 

0 

C : 

AG  166 

1 

11,  ' ' 1 

00003 

l 

13331 

1 

05332 

0 

C : 

00102 

1 

13316 

1 

13331 

1 

02150 

1 

0 60A  2 

1 

31  ,33  20 

3 1 A65 

1 

55620 

0 

03006 

1 

31617 

0 

53611 

1 

06051 

0 

I : 

7762A 

1 

C: 

61073 

1 

31, 33  30 

I : 

77776 

1 

A010A 

0 

7A7A2 

0 

30006 

1 

13361 

1 

37723 

0 

051A6 

1 

51621 

0 

3 1 , 33  AO 

1 2aO  1 

1 

AO  10  7 

0 

7A7AA 

0 

00C06 

1 

13  35A 

1 

33671 

1 

0A616 

1 

C: 

20A63 

1 

31, 335C 

05155 

0 

05155 

0 

05155 

0 

13357 

1 

33671 

1 

0A616 

1 

C : 

20A71 

1 

3A736 

1 

31,  33  60 

051A6 

1 

OAF  35 

0 

C : 

66102 

1 

31666 

0 

00006 

1 

1 3 AO  7 

0 

A0102 

0 

7A7A6 

1 

31  ,3370 

00006 

1 

13A  1 1 

1 

33672 

1 

0A616 

1 

C : 

20A63 

1 

05155 

0 

1 3 A 0 1 

0 

05155 

0 
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11  ,3900 
31,1910 
3 1,3920 
31 ,3930 


13357  1 
C : QO 143  1 
59  191  l 
52127  1 


39755  1 
33672  1 
59  16  1 0 
50157  1 


55699  1 
13355  0 
10160  1 
30005  1 


55695  0 
30006  1 
59162  0 
07321  O 


0 5M5  0 
22132  1 
39755  1 
09713  0 


C : 00193  1 
59117  1 
59163  1 
C : 01226  0 


15155  1 
52160  1 
00006  1 
52155  1 


05527  1 
33536  1 
30155  0 
52125  3 


3 T ,395C 

31 , 39 6C 
31 ,3970 


00306  1 
99752  1 
30162  1 


6-U17  0 
50  117  0 
26141  1 
P 7 227  1 


30004  0 
30002  0 
10140  0 
00006  l 


52155  1 
52155  1 
13445  0 
30127  0 


30160  0 

5 C 1 4 1 C 

00006  1 
52155  1 


54  140  0 
52004  l 
30127  0 
52131  o 


64753  1 
44752  1 
52155  1 
OOOC6  1 


07330  0 
26117  1 
00006  1 
30160  0 


31,350' 
31,  3 510 
3 1 ,3520 
31,  3530 


0 7227  1 
00006  1 
10  154  3 
52127  1 


0471 3 0 
4012  5 0 
13464  0 
52155  1 


C:  00  353  1 
20155  1 
13524  C 
30163  0 


00006  1 
30163  0 
13530  C 
54155  1 


4C155  1 
74750  0 
10155  1 
50132  1 


20  127  1 
13000  0 
13454  0 
10002  1 


04713  0 
00132  1 
13530  0 
C : 00147  C 


C:  01226  0 
24163  0 
13530  0 
34755  1 


3 1, 3540 
3 1 ,3550 
31, 3560 
3 1 ,3570 


54154  0 
50120  1 
60120  1 
04645  1 


54156  1 

30000  1 
54046  1 
54161  0 


16073  1 
04616  1 
16051  1 
52155  1 


34755  1 
C:  61713  0 
31642  0 
20001  1 


54157  0 
54154  0 
00006  1 
04616  1 


54160  1 
16073  1 
74750  0 
C:  61655  0 


16073  1 
51346  1 
53476  1 
63637  0 


22154  1 
42407  1 
00002  0 
61353  0 


3 1 ,3620 
31, 3630 


00006  1 
63613  0 
3fl55  0 
C : 61713  0 


73636  0 
33635  1 

60000  1 
55666  1 


55667  0 
55667  0 
54002  1 
30161  1 


00006  1 
00006  1 
34755  1 
04640  1 


63611  1 
31743  0 
26154  0 
C:  00113  1 


43634  1 
52155  l 
22154  1 
C:  00143  1 


61667  1 
33640  0 
33635  1 
C : 00264  1 


00006  1 
07321  0 
04616  1 
C : 00056  1 


31,3640 
1 1 , 36  50 
31,  36 6C 
31  ,3670 


C:  24403  1 
C5600  1 
C 1 4 56  1 

C:  01022  0 


C 56  5 3 1 
C:  01410  ( 
c : 01 563  0 
C:  01477  1 


C : 21406  0 
00004  0 
C:  77630  1 

C:  01500  0 


05600  1 
04674  0 
C:  00155  0 
C:  03673  0 


C:  01406  1 
C:  4C166  1 
C:  00143  1 
C : 03674  1 


13305  0 
00003  1 
C:  75340  1 
CKSM  63371  1 


00006  1 
34755  1 
C:  00436  0 


23456  1 
54121  1 
C:  01542  0 


31,3700 
31  , 3710 
3 1 , 3 7 2 f. 
31,  37  30 


3 1 ,3740 
31 ,3750 
31,  3760 
31  ,3770 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  17  0,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD  , "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  I N STR  UC  TI 0 N S EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) OR  "C"  (CONSTANTS) 


32  ,2 0 CC 

C:  Q0tt44 

1 

C:  70123 

0 

C:  40702 

0 

C:  13337 

1 

C:  1C  776 

C 

34737 

0 

70077 

9 

19930 

0 

3 2.  20  10 

C2C  17 

0 

C5600 

1 

C : 00220 

1 

95503 

1 

00006 

1 

3001  4 

I 

53772 

0 

00006 

1 

3 2 » 2?  29 

31772 

1 

5 305  1 

0 

32172 

1 

04616 

1 

C:  2033a 

1 

95503 

1 

0 20  36 

0 

44746 

1 

32,20  30 

60154 

l 

00006 

1 

120  14 

1 

00006 

l 

31C51 

1 

02  016 

1 

06051 

0 

I:  77614 

1 

3 2,  20  AO 

C:  01076  1 

I : 77414 

0 

C:  02076 

1 

32172 

1 

04616 

1 

C : 

29  621 

0 

06051 

0 

I:  77634 

0 

• 1 

C:  21555  1 

C:  340^-1 

0 

C:  27056 

1 

I:  77624 

1 

C : 64132 

0 

C : 

16172 

1 

C: 

00015 

9 

C:  34041 

0 

32, 206C 

C : 27042 

1 

I : 77624 

1 

C:  64132 

0 

: 

1 

C:  00015 

0 

I : 

56225 

1 

C : 

03372 

1 

C : 24175 

1 

32,2970 

C:  02206 

1 

I:  77776 

l 

34753 

1 

54333 

0 

32176 

0 

046  16 

1 

C: 

0 17  36 

1 

31321 

0 

32  ,21  00 

54333 

9 

34744 

1 

70074 

0 

10000 

0 

02122 

1 

11301 

0 

12  111 

0 

12115 

1 

32,  21  10 

12111 

0 

34363 

0 

04616 

1 

C:  91736 

1 

12195 

0 

046  16 

1 

G: 

16661 

1 

04616 

1 

32,21 29 

C:  17715 

1 

02122 

1 

05527 

1 

C:  00054 

0 

32173 

0 

0 45  1 6 

1 

C: 

20342 

0 

15593 

0 

32, 2130 

15  503 

0 

05593 

1 

I:  64375 

1 

C:  00025 

0 

C:  01732 

0 

I : 

72561 

0 

C : 

24202 

1 

I : 53255 

0 

C:  24204 

l 

c;  23212 

0 

I : 77634 

0 

C : 21754 

1 

C:  24025 

0 

C: 

00017 

1 

I: 

74321 

1 

C : 01732 

0 

. 

C:  24200 

0 

1 : 5 3212 

0 

C:  24204 

1 

I:  47055 

1 

C:  24212 

0 

C : 

21754 

1 

I : 

77750 

9 

C:  90924 

1 

32,  216C 

I = 72130 

0 

C:  10155 

0 

C:  00026 

0 

I:  72130 

0 

C:  00160 

0 

C: 

00030 

1 

I : 

4353C 

0 

C:  00162 

1 

32,2170 

C:  00  216 

1 

C:  14400 

0 

C : 01420 

0 

C:  14420 

T 

C:  03100 

C: 

09999 

1 

C: 

0 37  20 

1 

C:  15077 

0 

12,22 

C:  05041 

1 

1 : 

1 

C:  25724 

1 

C:  00000 

1 

C:  60000 

1 

C : 

00000 

1 

C : 

60000 

1 

C:  00000 

1 

■ 

C:  60000 

1 

: 

1 

C:  37777 

1 

C:  00000 

1 

C:  37777 

1 

C: 

00000 

1 

C: 

37777 

1 

04645 

1 

32,2220 

55737 

1 

05527 

1 

: 

1 

00004 

0 

347  51 

0 

00006 

1 

02033 

9 

5499  1 

1 

32,  223C 

44751 

1 

70110 

0 

60001 

0 

54  119 

0 

00003 

1 

04616 

1 

C : 

53070 

0 

04616 

1 

32.22^0 

C:  17713 

1 

1240  2 

1 

00004 

0 

5 3105 

0 

52162 

0 

53191 

1 

5 3747 

0 

00006 

1 

32  ,2250 

39034 

9 

52160 

1 

30032 

0 

54156 

1 

00006 

1 

30025 

0 

5215^ 

1 

00006 

1 

32,  2?60 

3C036 

1 

531  07 

1 

00003 

1 

94616 

1 

C:  53972 

1 

046  16 

1 

C: 

17713 

1 

02376 

1 

32,2270 

00004 

9 

00006 

1 

31331 

1 

53761 

1 

52162 

0 

53755 

0 

52160 

1 

53460 

0 

. 

00006 

1 

31107 

0 

53753 

0 

30156 

0 

55461 

1 

40110 

0 

74751 

1 

10000 

0 

9?, 2310 

34733 

1 

67750 

1 

55973 

0 

06051 

0 

C:  14  25 

0 

C: 

03747 

0 

I: 

57  26  1 

0 

C:  20217 

1 

, 

C:  24002 

9 

C:  0375  1 

1 

I:  47135 

0 

C:  0 1107 

0 

C:  21560 

1 

C : 

(.3  734 

1 

I : 

47135 

9 

C:  OHIO 

9 

32,  2330 

C:  21560 

1 

C:  17736 

0 

C:  01101 

I:  66405 

0 

C:  2400  4 

0 

C: 

37757 

0 

C : 

4604  1 

0 

C:  17741 

0 

32,2340 

C:  00025 

0 

C:  3404  1 

0 

C:  51340 

1 

l : 77776 

1 

31457 

0 

54765 

1 

3 1460 

1 

54767 

0 

• 

31461 

0 

56771 

1 

0605  1 

0 

I:  45175 

0 

C:  C1101 

0 

C : 

47656 

1 

I : 

77641 

1 

C:  03741 

0 

32,  236C 

l:  65552 

0 

C : 0 1 0 4 5 

1 

I : 5002  5 

0 

C:  2 44 

0 

C:  64371 

0 

I: 

77776 

I 

34752 

0 

54154 

0 

32 ,2370 

12374 

1 

I:  77776 

1 

34755 

1 

54  1 54 

0 

31737 

0 

0464  0 

1 

30191 

1 

74742 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  tf  171,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORO  , "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  ) OR  "C"  (CONSTANTS) 


12  ,24Q(> 
i2t  2410 
32,2420 
32,2430 


100 Off  3 

77624  l 
66  10  2 1 
55?  5 1 1 


12235  0 
C:  75611  0 
05364  0 
3475]  0 


34753  1 
I : 45  1 75  D 
C : 04024  " 
55513  0 


54154  0 02374  C 

C:  .3731  l C:  57266  1 

04616  1 C:  11241  0 

44753  0 55346  0 


C : 00210  1 
C:  03502  0 
32733  1 
34755  l 


C : 21042  1 
I : 77776  1 
55455  0 

55623  O 


36051  0 
04635  U 
3200C  0 
32713  0 


3 2 » 2 4 6 C 
32,2470 


55441  1 

I : 4 3C  U 3 
C : 00270  1 
I:  643  1?  3 


44736  0 
C:  0 2663  0 
I : 77231  1 
C:  C 1 72  ? 0 


0QQ06  1 
C:  03271  0 
C:  00001  0 
C : 37635  0 


C: 
C : 


06051  0 
C : 0566  0 1 
I:  41525  0 
I : 45345  1 


I:  43014  0 
C : 03067  0 
C:  02027  0 
C:  02027  0 


C:  00664  0 
I : 43014  ? 
C : 37625  1 
C:  247  10  1 


C : 00466  0 
C:  3 3 266  0 
C : 55720  1 
C:  34041  0 


32  ,?500 
32,  2510 
32,2520 
32, 253 r 


C:  27056  1 
C:  06512  1 
I:  77745  1 
0 : 35236 


I:  77331  0 C:  03647 

C : 16575  l C : 24706 

C:  000  15  0 C : 27557 

C:  62411  1 55646 


1 C:  00050  1 C: 
0 C:  27665  1 C: 
0 C:  00017  1 I : 
0 0 6051  0 I: 


06516  C C : 26561  1 
06523  0 C:  17253  0 
64312  C C : 01732  0 
57345  1 C:  C3627  1 


C:  06514  1 C:  26567  1 

C:  06520  0 C : 03643  0 

C:  37517  0 C:  7 1743  1 

C : 02465  1 I : 44232  1 


32, 2560 
3 2,2571 


02457  0 C: 
14041  1 I: 


45325 
0 260  5 
02471 
45246 


02463  1 
57225  0 
43215  0 
24712  0 


02611  0 
02461  0 
56215  1 
45040  1 


I : 65222  0 
C:  02465  1 
i:  77661  0 
C:  64613  1 


C:  02607  1 
I : 51515  1 
C:  21613  0 
C:  27413  1 


Is  57  316  1 
C : 03627  1 
I : 43206  1 
is  430  1 4 0 


C : 02467  0 
Is  57225  0 
C:  03557  0 
C:  01473  0 


32 ,2600 
3?,  2610 
32,2620 
32,  2630 


C:  00063  I 
C:  27106  0 
C:  03525  3 
C : 2061 7 0 


IS  77745  I 
I : 776  50  1 

I:  53435  0 
C:  00341  1 


C:  03557  0 
C : 64520  1 
C:  03517  1 
C:  03442  0 


C:  25517  G 
I : 53575  0 
is  72441  0 
Is  77776  1 


C:  GOO  17  1 
C:  03253  0 
C : 03635  1 
05364  0 


C : 25535  r 
C:  27773  1 
C : 16603  0 
C:  04024  0 


C : 0002  5 0 
C:  06516  0 
C:  03423  1 
44362  0 


C:  35543  0 
C : 27765  0 
Is  44261  1 
04616  1 


3 2,  2660 
32,2670 


74663  1 

15155  1 

35016  0 

5 AC-0  3 0 

00004  0 

04574  0 

C:  40 143  0 

00003  1 

04616  1 

C:  54125  0 

05364  0 

C:  0 40 24  0 

34746  C 

00006  1 

02033  0 

00006  1 

12666  1 

32704  0 

04616  1 

C:  20624  0 

16D01  1 

12654  0 

34752  0 

55677  1 

55700  0 

34755  1 

55673  0 

55675  0 

55674  1 

55676  0 

55462  1 

34751  0 

1 2, 27  10 
12,2720 

32,  2730 


55622  1 
0 16  1"  1 
52125  3 
30033  1 


r.  : 


04635  0 
COOOO  1 
00006  l 
05032  0 


74130 

OOOIO 

31533 

54122 


0 

0 

0 


52127  1 
30034  0 


00500  1 C : 00035  1 C:  30373  0 
31531  1 54123  0 000C6  1 
00006  1 31526  1 52162  0 
05032  0 00006  1 70122  1 


31530  0 
DOOD4  0 
54160  1 


32,2740 
32,2750 
32,  2760 
3 2 ,2770 


30025  O 
00102  1 


41422  0 
60001  0 

53671  1 
44755  0 


24006  1 
60037  0 
41010  0 
54C55  0 


00006  1 
55755  0 
62770  0 
36257  1 


73520  1 
00006  1 
00006  1 
55753  C 


55001  0 
00004  0 
1300  1 1 
035C1  0 


60000  1 
55754  1 
03507  0 
5 5 6 1 C D 


54002  1 
00006  1 
05322  1 
55611  1 
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OCTAL  LISTING  FOR  PARAGRAPH  *i  172,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


32  ,3f.0C 
3 2,  30  IP 
3 2,33  20 
32,3030 


1327 2 1 

21727  0 
04616  1 
71725  1 


00006  l 
41234  1 
42761  1 
21727  0 


4 17  10  1 
61671  0 
00006  1 
34755  1 


53727  0 
64736  1 
73516  1 
57744  1 


C0006  1 
64736  1 
21727  0 
00006  1 


31525  1 
57725  0 
4 1 70  4 1 
70161  0 


20001  1 
41254  1 
6 1 7C  1 0 
300C1  0 


20001  1 
61755  l 
00006  1 
00006  1 


32,3050 
32,  3060 
3 2 ,30  70 

32  ,3  IOC 
32,  3110 
32,3120 
32,  3130 


20155  1 
60  157  1 

00006  1 
30157  1 
55760  0 
04616  1 


53746  1 

07271  1 
00CC6  1 

30155  0 
00006  1 
52155  1 
C:  62337  1 


00006  l 
74742  0 
000C6  1 
00006  1 


00006  1 
00006  1 

61754  0 
22  154  1 

10123  0 
65752  1 
1 1 76C  0 
10160  1 


02030  0 

41727  0 
64736  1 
34773  0 

00006  1 
61761  0 
00006  1 
00006  1 


00006  1 
52155  1 
64736  1 
0 4-616  1 

13110  0 
00006  1 
61701  0 
60126  l 


13053  0 
000C6  1 
56157  1 
C : 61713 

30124  0 
63276  1 
00006  1 
64733  1 


00006  1 
31746  0 
43522  0 
54154  0 

13120  0 
30125  1 
74742  0 
54001  1 


iv,mi 

32,3160 

12,3170 

, 

, 

32,3220 
32,  3230 

mi  38 


32, 3300 

• 

32 ,3320 
32, 3330 

32,3340 
32,3350 
32,  3360 

' • 7 


40001  1 
41755  3 
10157  0 
41611  1 

61615  1 
53617  1 
34755  1 
70162  0 

40  131  0 
00006  1 
24006  1 
4l 760  0 

52756  1 
54003  0 
03501  0 
31753  1 

25753  1 
C:  03727  0 
I:  53725  1 
3c  121  3 


617C4  0 
.00006  1 

54001  1 
52155  1 
57645  1 
22131  1 

00006  1 
71417  0 
21752  1 
55761  1 

37722  l 
34736  1 
13330  0 
74757  1 

05155  0 
: 77645  0 

0000  6 1 


60126  1 
046 16  1 
00006  1 
10157  0 

33522  1 
30160  0 
00006  1 
35015  0 

71417  0 

I 1 1 

52155  1 
03507  0 

05146  1 
C 6 1 
31651  1 
00006  1 

06051  0 
C:  03746  1 
C : 20201  0 
13376  1 


54001  1 
C:  42761  1 

74742  0 
27467  1 

04616  1 
07321  0 
7<  1/,?  C 
54033  0 

60002  0 

1 

21753  C 
00006  1 

37723  0 
02031  1 
24006  1 
13342  0 

I : 63345  0 
I:  52341  0 
I : 74234  1 
0461 6 1 


30127  0 
00006  1 
C 46 16  1 
22007  0 

C:  61713  0 
33526  0 
22130  0 
30130  0 

00006  1 
71420  1 
03507  0 
31755  1 

0 5146  1 
00006  1 
00006  1 
76257  0 

C:  02477  1 
C:  02475  0 
C:  63547  1 
C : 63646  0 


04616  1 
73517  0 
C:  62337  1 
33306  1 

04616  1 
07321  0 
34755  1 
00006  1 

74745  1 
60131  1 
00006  1 
53757  1 

30120  1 
13322  0 
13330  0 
67760  1 

■ : > 

I : 47034  0 
I:  77776  1 
13340  1 


C:  61713  0 
20001  1 
55467  1 
10  160  1 

C : 621 44  1 
52155  1 
57644  0 
71420  1 

52155  1 
OC  6 1 
31617  0 
00006  1 

54166  1 
55651  0 
C3501  0 
00006  1 

I:  63361  0 
C : 63537  0 
33521  1 
34751  3 


55615  0 
30036  1 
00006  1 
55467  1 

00003  1 
53617  1 

30036  1 
54002  1 

30130  0 

74745  1 
53611  1 
34755  1 

35015  0 
24006  1 
55753  0 
13417  1 

C:  02476  0 
C:  21706  0 
54154  0 
00006  1 
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OCTAl  LISTING  FOR  PARAGRAPH  « 173,  KITE  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WDRO,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALIO  WORDS  ARE  PASi:  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  > OR  "C"  (CONSTANTS) 


32,3*00 

32,  34  10 
32,3420 
32,3430 

32,  344T 
32  ,3450 
32, 3460 
32,3470 

32 , 35C<. 
32,  3510 
32,3520 
32, 3530 

32,3540 
32  ,3550 
32, 3560 
32,3570 


020  30  0 
55263  0 
I:  41345  0 
C:  00045  0 

I:  65271  0 
C:  3C 160  3 
I : 77562  0 
05165  0 

15155  1 
560 C 3 1 
C:  .03143  1 
55513  0 

C:  03670  0 
13656  0 
C:  01246  0 
I:  77665  1 


00006  1 
13340  1 
C:  02477  1 
I:  41457  1 


34755  1 
52  Or  2 1 
C:  00 C 5 3 1 
33732  1 

C:  06464  1 
06051  0 
C:  16262  0 
C:  25731  o 


13412  1 
06051  0 
C:  02475  0 
f:  20  201  0 

C : 02500  0 
>737  1 
C:  63570  0 
04616  1 

55747  0 
55442  0 
C:  02260  1 
55455  0 

T : 45014  0 
I:  77624  1 
C : '1246  0 

C : 16254  0 


4LC74  C 
C:  37253  1 
I : 47115  1 
C:  00045  0 

I : 43205  1 
C:  25524  0 
25753  1 
C : 20460  1 

55750  0 
22003  1 
C:  00002  C 
06051  0 

C : 04462  0 
C:  65705  0 
IS  7047  1 1 
C:  34015  1 


74753  0 
C:  61075  1 
C:  03727  0 

I:  63434  1 

C:  00045  0 
I : 53466  C 
40  104  0 
05155  0 

55751  1 
00000  1 
C : 2 OOOC  C 
Is  43014  0 

C:  6 1064  1 
I : 54345  1 
C:  16015  1 
C:  0226C  1 


00006  1 
I:  77776  1 
C : 63537  0 
C : 63547  1 

Is  74276  1 
I : 45034  1 
74742  0 
13476  0 

55752  1 
C:  02  24 
C : 01474  1 
C:  04665  0 

Is  77776  1 
C : 34003  0 
C:  03635  1 
I : 57535  0 


13412  1 
13340  1 
I:  65234  1 
I : 65352  0 

Is  65345  0 
C:  47613  0 
00006  1 
05527  1 

00002  0 
C:  015C7  1 
C:  14400  0 
C : 04265  1 

05332  Q 
C:  20205  1 
C : 03637  O 
C:  2600  2 1 


3351  5 0 
06051  0 
C:  21706  0 
I : 43316  1 

C : 00162  1 
C:  47676  0 
13340  1 
C:  00016  0 

35007  0 
C : 32156  1 
34751  0 
I : 43014  0 

C:  00106  0 
I:  77665  1 
C:  03641  1 
I:  777C2  1 


32, 3600 
3 2,  3ft  10 
32  ,3620 
32,  363C 

, 

3 2 , 36  5n 
32,  366r 
32,3670 


C:  36256  0 
I : 75240 
C:  20606  3 
I : 52175  0 

C:  02565  0 
04616  1 
36000  1 
C:  65705  3 


C:  60267  1 
C:  6 5ft  14  1 

C:  03643  0 
C:  02535  0 

I : 77414  . 

C:  73715  0 
55251  1 

I:  77650  1 


I:  77745  1 
C:  02326  1 
IS  45014  0 
C:  65636  1 


C : 04471 
3714 
6051 
C : 65602 


C:  02553  0 
C:  03633  1 
C:  04461  0 
I:  43175  0 

03714  0 
05364  0 
I : 77624  1 
I : 72545  0 


36264  1 
45345  1 
71644  1 
02541  0 

05364  0 
C0004  0 
60243  1 
03515  0 


C : 57333  C 
0:  03633  1 
I : 51025  1 
C:  04470  0 

C:  34024  0 
15155  1 
T:  45014  n 

C : 0 3 502  0 


I : 45246  C 
f:  0232ft  1 
C:  02545  1 
C : 16  561  1 

05515  0 
05527  1 
C:  04707  0 
I:  77776  1 


C : 02551  1 
I : 77661  0 
C:  65633  1 
C:  03631  0 

C:  00216  1 
C:  00215  1 
C:  65673  0 
05364  3 


32, 3700 
3 2,  37  10 
32 ,3720 
3 2,  37  30 


C : 04 02 4 0 
I:  77ft  ft  1 0 
050 1 4 1 

: 


31502  1 
C : 03515  0 
C:  00000  1 
C : 02114  1 


535  15  0 
77616  0 
0 1750  1 
33733  0 


13650  0 
34737  0 
00021  1 
03734  1 


I : 45234  0 
54055  0 
C : 33400  0 
CKSM  53322  1 


C : 21555  l 
34750  1 
C : 11021  1 


C : 03442  0 
OOOC  6 1 
C:  OOOOC  1 


32,3740 
32,  375C 
3 2,  3760 
32,3770 


GAP:  ASSEMBLE  REVISION  56  0 F AGC  PROGRAM  ZERLINA  B 


ZOROASTER 


OCTAL  LISTING  FCR  PARAGRAPH  0 17V,  WITH  PARITY  BIT  IN  BINARY  AT  THE 


ALL  V AL  10  WORDS  ARE  BA  SIC 


INSTRUCTION  EXCEPT  THOSE  MARKED  "I"  (INTER 


33,2000  C: 

3 3*  20  10  C: 

3 3,20  20  C: 

33.203C  C: 


4 1 5 45  0 C: 

63105  0 C : 

61710  0 C: 

06244  0 C: 


4234  1 1 C: 
61733  1 C: 
77613  0 C : 
75751  0 C: 


65  36  3 I C 
01507  1 C 
43363  0 C 
41775  1 C 


: 

: 00321  1 C 
: 00C02  0 C 
: 00022  1 C 


33,2050 
3 3,  20  60 
33,2370 


43175 

76575 

01455 

55705 


1 

0 


C : 
C: 


0354  3 
0 355  1 
55535 
3°  16  1 


C 

0 

1 

1 


01453 

55706 


C: 
C : 

I: 


6607V  1 
C 1 7 32  0 
77561  0 
12077  1 


I 

C 

c 


33  ,2100 

33,  2110 
3 3,2120 
33,  2130 


03674  1 0GCD3  1 
61234  0 64734  0 
04616  1 C:  01736  1 
30040  0 55160  0 


06042  l 
64734  0 
00004  0 
30041  l 


05527  1 C 
56001  0 
00006  1 


55161  1 


3 3,  2140 

3 3 ,21  50 
33,  2160 
33,2170 


64736  1 64736  1 

00006  1 62174  1 


412  54 
41  256 
22007 
05600 


1 

0 

0 


61157  0 
61161  0 
53567  0 
C:  00555  1 


33,2200 

3 3,  2210 
33,2220 
33,  2230 


00006  1 
540C3  3 
54  166  1 
20155  l 


33741  0 
31566  0 

-3o  3 2 4 1 
30330  l 


53253  0 
00006  1 
00006  1 
00006  1 


35007  0 
74747  0 

70000  0 
70000  0 


33,  2260 
33,2270 


55247  0 0C006  1 
6^71  l 40104  C 
000 tifc’  1 32001  1 
00006  1 71245  1 


75000  0 
74744  0 
54002  1 
21571  1 


00006  1 
00006  1 
31247  1 

32013  1 


33, 2300 
J3,  ? 3 1 
33  ,232< 
33,2330 


52155  1 
40  10  2 0 
1:  76561  1 
C : 01226  0 


C: 
I : 


53174  0 03707  1 
74744  C 00006  1 
26014  0 C:  03525  0 
54206  1 C:  20611  0 


04616  1 C 

12347  1 

I:  41562  0 I 

I:  5336  1 0 f 


33,2340 
33,2350 
33,  2360 
3 3 ,2.370 


I:  53361  0 
I : 74375  0 
C:  01716  0 
C604  2 1 


C: 
C: 
C : 


03567 
02310 
37573 
06C  5 1 


I : 45455  1 
C:  (.  3567  0 
C : 71743  1 
1:  77775  1 


C : 
I: 
I: 
C : 


74226  1 I 
41455  0 C 
77761  1 C 
03561  0 C 
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RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
PPETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


: 21241 

0 

C : 

03216 

1 

C: 

30153 

0 

C: 

2310  1 

0 

: 26706 

1 

C: 

00150 

0 

C : 

33343 

0 

C : 

55340 

0 

: 11777 

0 

C : 

D 1 3 23 

1 

C: 

37155 

1 

C: 

00065 

1 

: 07212 

1 

C : 

00007 

0 

C : 

1 61  00 

1 

06051 

0 

1 

: 64252 

0 

C: 

0 1732 

0 

C: 

37517 

0 

C : 

71743 

: 03525 

0 

I : 

41535 

1 

C: 

01457 

0 

I: 

41535 

1 

: 27757 

1 

30154 

1 

55704 

1 

30157 

1 

: 77624 

1 

C: 

77606 

1 

I: 

77776 

1 

36007 

0 

: 00043 

0 

3501  6 

0 

54003 

0 

40025 

1 

5 6001 

0 

65000 

1 

00006 

1 

62122 

1 

30025 

0 

53557 

0 

300  37 

0 

55157 

1 

300  32 

0 

55154 

1 

30033 

1 

55155 

0 

03716 

52325 

1 

4 1 255 

6 1 160 

1 

03716 

1 

52331 

1 

41234 

1 

61557 

1 

00003 

1 

06042 

1 

43745 

0 

61566 

0 

4 0103 

1 

74747 

0 

00006 

1 

1220  3 

0 

54003 

0 

3 3 742 

0 

55446 

1 

35016 

0 

23074 

0 

0 46  16 

1 

C: 

15271 

1 

30120 

1 

52155 

1 

33  32  6 

0 

00006 

1 

70000 

0 

20155 

1 

04713 

0 

C : 

01207 

0 

30154 

1 

11566 

1 

55250 

0 

000C6 

1 

31246 

0 

12273 

1 

30106 

0 

74737 

1 

1 0000 

0 

00006 

1 

7 20  12 

1 

00006 

1 

10002 

1 

07321 

0 

03306 

1 

3 Is  lo 

1 

20155 

1 

: 4 76  2 2 

1 

33743 

1 

C4616 

1 

C : 

20037 

1 

06051 

0 

I: 

6 1375 

1 

C: 

00325 

0 

i : 

01732 

0 

: 74325 

c 

C : 

03  56  7 

0 

C: 

01236 

1 

I: 

53255 

0 

: 03567 

0 

r : 

01220 

0 

C : 

37543 

1 

C : 

77606 

1 

: 77776 

1 

36342 

1 

13365 

0 

06051 

0 

: C 1 724 

1 

I : 

74322 

1 

C : 

03567 

0 

I : 

77655 

1 

: r'  3 5 6 7 

0 

I: 

45455 

1 

C: 

74176 

1 

I : 

77776 

1 

: 26310 

1 

C : 

3 3 573 

0 

C: 

25716 

0 

C: 

0360  1 

0 

GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  7.FRLINA  BY  ZOROASTER 

OCTAL  LISTING  FCR  PARAGRAPH  H 175,  WITH  PARITY  BIT  IN  BINARY  AT  THE  R 


ALL  VALID  WOROS  ARF  BASIC  INSTRUCTIONS  FXCEPT  THOSE 


33  ,2400 
33*  2M' 
> 33,2420 

33 » 243C 


C:  G1724  1 
C : C3567  0 
C:  035  17  1 
C:  274  7?  0 


I:  77776  1 
I : 53361  0 
C:  37573  1 
C:  00035  1 


06042  1 
C:  01236  L 
C:  71743  1 
C:  17535  1 


imti 

33,  2460 
> 33,  2470 


40107  0 

12473  1 
62473  0 


IRKED  "I"  (I NTERP 

06051  0 I : 

I:  41455  0 C: 

I : 53361  0 0 : 

0,:  0004  5 0 f: 


05515  0 C: 
40107  0 


3 3 ,2500 
33,  25  1C 
33,2520 
33,  2530, 


C0006  l 
12520  O 
54001  1 
1322?  1 


02033  0 00006  1 74742  0 

11622  1 12516  C 05600  1 C: 

3475  1 0 55622  1 23650  C 

34741  1 54003  0 31646  1 


33  ,2550 
33,  2560 
33,2570 


6477  1 1 
61650  0 
6165?  1 
50120  1 


C 37 16  1 
03  716  1 
52015  1 


47622  1 
52155  1 
52162  0 
35016  0 


33744  0 
41255  0 
41234  1 
54003  0 


3 3 , 26CC 
3 3,  ?6  1 1 1 
3 3 , 2 6 ? C 
33, 2630 


C : 26016  1 
C:  00015  0 
C:  C0045  : 
13024  0 


I:  74325  0 
r : C 3 5 1 7 l 
I:  77625  0 
06042  1 


000  15  0 C: 
37543  1 C: 
02324  0 C: 
03661  0 


01236  1 I 
71743  1 I 
03763  C I 
06051  0 I 


C:  03655  1 
I : 43342  0 
74741  0 
54145  0 


2C2C7  0 I : 

03641  l I: 

00006  1 
30  154  1 


74205  0 C: 

54221  1 C: 

12720  1 
54001  1 


26003  0 I : 

03547  1 C: 

35014  1 
50145  1 


33,2700 
3?, 27  1 f 
3 3 ,2720 


60142  0 
60  144  0 
5012?  1 


000C6  1 
00006  1 
5 200  5 0 


50145  1 71520  0 

12714  0 12716  1 

53  665  1 30  120  1 


33,  2730  12750  0 


C6051  0 


61545 


03665  1 I: 


33,2740 
33,2750 
33,  2760 
3 3 ,277C 


2567  3 
40107 
C 7 3 2 1 
54  156 


0 

0 

1 


06  7-3  5 
7474  4 
000  0 6 
401  0 1 


13603  0 
10000  0 
31665  0 
61420  0 


13603  0 
130 24  0 
5216f  1 
00006  1 
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1 GHT  OF  EACH  KORD  , "9"  DENOTFS  UNUSED  FIXED  MEMORY 
RETIVE  OPERATOR  WORDS)  OR  " C"  (CONSTANTS) 


74375 

0 

C : 

0032  5 

0 

C : 

26016 

1 

I:  65236 

0 

0 3525 

0 

I: 

74322 

1 

C : 

C3567 

0 

I : 77655 

1 

03567 

0 

I : 

45455 

1 

C: 

74  176 

1 

I:  77646 

C 

47025 

P 

C : 

02324 

0 

C : 

21574 

T 

C:  03533 

1 

13233 

1 

33  154 

1 

00006 

1 

12465 

0 

C0006 

1 

33  755 

o 

20155 

1 

1003  3 

o 

« ?25-» 

0 

40155 

1 

61451 

0 

00006 

1 

7 4 742 

0 

03306 

1 

13222 

1 

34776 

0 

50000 

1 

12506 

1 

12511 

1 

12520 

0 

305  1 1 

1 

44755 

0 

55622 

1 

13222 

1 

4 1 650 

1 

5 330  1 

3 

00006 

1 

12531 

54765 

1 

31647 

0 

54767 

0 

31645 

1 

r- 

y , 

1 

0000  4 

n 

1 

61651 

1 

0371  6 

1 

52 160 

1 

41256 

0 

61644 

0 

64736 

1 

64736 

1 

22007 

0 

44  753 

Q 

5 4 15  3 

1 

C605  1 

o 

1 : 4 1 56  1 

o 

53255 

0 

C : 

03525 

0 

I : 

64406 

1 

I : 53361 

0 

63361 

0 

C: 

030  15 

0 

I: 

46455 

l 

C : 60226 

1 

77776 

1 

30107 

1 

74750 

0 

30036 

1 

61373 

1 

C: 

30001 

0 

C : 

02222 

1 

I : 54325 

1 

5 02Q6 

0 

C : 

33536 

1 

i: 

65225 

1 

C:  03763 

0 

2C207 

0 

1 : 

77404 

1 

C : 

21674 

1 

40075 

1 

64003 

o 

34755 

1 

54142 

1 

34751 

0 

41513 

0 

04616 

1 

C: 

61713 

0 

54144 

1 

50120 

1 

20005 

0 

30141 

0 

54142 

1 

10145 

0 

1267" 

0 

35C;  16 

0 

5400  3 

0 

54166 

1 

30107 

1 

74741 

0 

03336 

1 

52425 

0 

C: 

02501 

1 

I : 

: 77425 

1 

C:  03763 

0 

05627 

1 

C : 

33247 

0 

05527 

1 

C:  00263 

0 

00006 

1 

31763 

1 

52155 

1 

3474  1 

1 

37556 

0 

30006 

l 

1277C 

1 

13024 

c 

63024 

1 

00006 

1 

71421 

3 

30336 

1 
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DC  TAL  LISTING  FOR  PARAGRAPH  H 1 7 6 , 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD, 


"3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIS  INSTRUCTION  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDS  ) OR 


"C"  (CONSTANTS) 


33,3000  11420  1 

3 3, 3 r 10  C : C3657  0 

33,3020  53575  0 

33,3030  13201  0 


00006  1 
060 A 2 1 


07325  1 06051  0 I : 77752  1 I 

06042  1 30006  1 31657  1 

-31663  0 53577  1 06042  1 

03661  0 A 1462  1 5A001  1 


: 53361  0 
53573  0 
A3  137  D 
26001  1 


00006  1 
7A7A5  1 
60001  0 


03573  0 
31661  1 
10000  0 
60001  0 


33,  30 AO  50120  1 

33,3050  I:  54325  1 

33,  30  60  I : 51406  1 

. 


200A7  0 30120  1 

03653  1 C:  20215  0 
■ 

25675  1 06735  0 


54 165  1 
63203  0 
ZAC  25  C 
13622  0 


06051  0 

C : 51772  1 
I:  AA2A1  0 
13622  0 


i:  61373  1 
C : 03551  0 
r:  00001  C 
05527  1 


C:  30007  0 
I:  52352  1 
I : 51A06  1 
C:  C O 246  1 


C:  02222  1 
C:  03713  1 
I : 77425  1 
05527  1 


33  ,3100 

33,  3110 
33,3120 
33,  3130 


C : 00262  1 
67760  1 
31471  1 

C0006  1 


30107  1 
00006  1 
54  130  1 
63144  0 


7 47  40  l 
13201  0 
31462  0 
40  130  1 


00006  1 
40137  0 
54131  0 

61502  1 


13113  0 
74744  0 
35014  1 
00006  1 


05527  1 
10C0O  0 
54003  0 
63147  0 


13201  0 
415C3  1 
00006  1 


31462  0 
54155  1 
60133  0 
50131  1 


33» 3160 
33,3170 


7 1504  0 
54 154  3 
54003  0 
00006  1 


COCOt,  i 
44745  1 
06051  0 
31657  1 


11  502  0 
61010  l 
I:  74205  0 
53601  0 


13150  1 
' < ' l 

I:  77655  1 
00006  1 


50131  1 
63157  1 
C:  03601  0 
31661  1 


31507  1 
31512  0 
C:  03657  0 
53603  1 


13150  1 
54154  0 
I : 77776  1 
00006  1 


34755  1 
35016  0 
06042  1 
31663  0 


33,3200 
i 3 , J 2 i ( 
33,322c 
33,  3230 


53605  1 
C 0 0 0 6 1 
00006  1 


06042  1 
63222  0 
63645  0 


40  10  7 0 
34741  1 
06042  1 


05214  0 C:  03140 


52067  1 


74741  0 
56003  1 
00004  0 
06042  1 


00C06  1 
54001  1 
43761  C 
30120  1 


13222  1 
41536  1 
70107  0 
54166  1 


31642  0 
22003  1 
54107  0 
06051  0 


61427  1 
61430  1 
34753  1 


3 3,  32  60 
33,3270 


C:  03573  0 
C:  03535  1 
C:  P3601  0 
I:  60505  1 


C:  71743  1 
I:  51435  1 
C : C34  74  0 
C:  0 1732  o 


I : 45345  1 
C:  0360  1 0 
I : 63312  1 
C:  27543  o 


C:  00045  0 
I:  56316  0 
C:  02316  1 
C:  03601  0 


C:  02324  C 
C:  00045  C 
I:  72435  0 
I : 76505  C 


C:  03533  1 
T : 03352  0 
f:  0357  3 0 
C : 01732  0 


I:  63261  1 
C : 03535  1 
C:  27710  1 
C:  27551  0 


C:  20212  1 
I:  72441  0 
C : 03573  0 
C:  03561  0 


33,33 00  I : 77532  0 0000 4 0 50120  1 
33,  3310  50  1 20  1 52CC5  0 53720  1 
33  ,3320  55 70 3 D 00006  1 31535  0 
33,3330  00006  1 31537  1 20001  1 


52001  1 
30154  1 
20001  1 
57723  0 


53716  1 
55701  1 
54000  0 
00006  1 


50120  1 
30157  1 
13327  0 
31541  C 


52  003  0 
55702  1 
34733  1 
20001  1 


55721  0 
30161  1 
57722  1 
57724  1 


33,3340 
33,3350 
3 3,  33  60 
33,3370 


00006  1 
53523  0 
31605  0 
31157  D 


31573  1 
00006  l 
53531  0 
55254  1 


53517  1 
31601  1 
40103  1 
31160  1 


00006  1 
53525  0 
74741  0 
55235  C 


31575  1 
00006  1 
26103  1 
31161  0 


53521  1 
31603  0 
00004  0 
55256  0 


00006  1 
53527  1 
31566  0 
C 6 I 


31577  0 
00006  1 
55355  1 
31174  1 
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OCTAL  LISTING  FOP  PARAGRAPH  H 177,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSEO  FIXEO  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C"  (CONSTANTS) 


.33  ,3^00 
33, 34  10 
33,3**20 
33,3430 


53510  0 
1C90C  0 
00006  1 
74737  1 


13444  1 
63454  1 
10(00  0 


060  42  1 
40102  0 
40076  1 
13476  0 


44741  0 
74752  1 
74741  0 
34743  0 


70076  l 
10000  O 
26076  1 
00006  1 


54076  1 
13450  1 
34753  1 
02032  1 


34745  0 
41251  1 
55513  o 
00006  1 


70  10  3 1 
ol  250  1 
30  106  0 
13476  0 


n-ms 

33, 3460 
3 3, 34  7r 


13501 
5 5 5 7 C 


0 

3 

l 

0 


7C  1 ! 1 1 
74752  1 
06364  0 
06042  1 


13501  1 44752  1 70  10  2 0 
13476  0 06042  1 11513  0 
37725  0 05072  1 C:  02570  1 
55513  0 04674  0 C:  43166  1 


54102  0 13476  0 
1347  10760  1 
74067  0 1 3 50 1 1 
40111  1 74736  0 


3 3 ,3500 
33,  35  10 
33,3520 
33,  353C 


26111  1 
52121  1 
55.74  1 
05340  0 


core  3 i 

06042  1 
C 55  1 5 0 
00335  1 


04616  1 
05515  0 
C:  00036  1 
C:  0 50  22  1 


C:  40463  1 
C:  90043  0 
C 46 1 6 1 
C:  2 0C03  0 


3C167  1 75004  1 54166  1 

00306  1 31253  1 52006  0 

C:  17255  0 44743  1 000C6  1 

06051  0 I:  77614  1 C:  C3664  0 


22007  0 
31234  0 
03011  1 
45014  0 


33,  3560 
33,3570 


C:  03267  1 C:  27463  0 
63253  0 40  10  3 i 

52752  0 30102  1 

00006  1 34755  1 


I : 77414  0 C : 03671  1 
74745  1 26103  1 

74744  0 10000  0 

52756  1 00006  1 


04635  0 C:  1o122  1 
34735  1 541  07  0 
13570  1 00006  1 
34755  1 52764  0 


00006  1 
00006  1 
34755  1 
34764  0 


.33737  1 
34755  1 
52754  0 
54001  1 


3 3,  36  10 
33  , 3620 
33,  3630 


40000  0 52760  1 15645  1 05515  C 
61673  1 777^7  1 00006  1 13615  1 
55674  1 13024  0 05515  0 C:  00246  1 
77757  1 00036  1 13634  1 13636  0 


C:  C0247  0 41674  1 

13617  0 05515  0 

41676  0 00006  1 

05515  0 C:  00262  1 


00006  1 13617  0 
00263  0 31673  1 
13636  0 61675  1 
31675  1 55676  0 


33,  3660 
33,3670 


11462  l 
19  752  0 
13222  1 
50120  1 


132-1  0 
13222  1 
30120  1 
52047  0 


05515  0 C:  00250  0 13201  0 
05364  0 C:  00051  0 37732  C 
54166  1 34753  1 71650  1 

00002  0 3.3763  0 00004  0 


40137  3 75C 1 5 1 
051 05  0 C : ( 3554  0 
10000  0 44763  0 
77761  1 54061  1 


26107  0 
76067  1 
22007  0 

00006  1 


3 3,3?  10 
33  ,3720 
3 3,  37  30 


50061  O 
^4765  1 
74736  0 
64736  1 


31543  1 
31156  1 
0G006  1 
64736  1 


50061  0 
5^767  0 
13727  1 
22007  0 


53220  1 10061  1 13675  l 00002  C 

31154  0 54771  1 00002  0 56061  0 


30061  0 64734  0 64734  0 13732  0 30061  0 

56091  0 56001  0 00002  0 C:  02102  0 C:  66067  0 


3 3,3740 
33,3750 
3 3,  3760 
33,3770 


C: 
C : 
C: 
CKSM 


0 35  17  1 
00000  1 
OC 52  3 0 
44562  0 


C: 
C: 
C : 


6 6C67  0 
00620  0 

00110  1 


C : 02217  1 
C:  01463  1 
C : 00102  1 
3 


C:  02136  1 
C:  06315  0 
C:  00026  0 
3 


C:  02221  1 
C:  37767  0 
C:  00121  0 
3 


C : 03764  1 
C : 02200  1 
C:  35341  1 
3 


C:  00014  1 
C : C0150  0 
C:  03766  0 
a 


C:  20000  0 
C:  33343  0 
C:  03767  1 
3 
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OCTAL  LISTING  FOR  PARAGRAPH  4 2 j ? , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTES  UNUSED 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTAN 


34  ,2001 

C: 

51102 

0 

( : 

4 241  4 

0 

C: 

75522 

0 

C : 

46002 

1 

C: 

51573 

1 

C : 

62362 

1 

C : 

62770 

0 

34,  20  10 

C : 

03034 

0 

C : 

21031 

0 

C : 

35  045 

0 

C: 

21077 

1 

C: 

00000 

1 

C: 

00000 

1 

C : 

37646 

1 

• , 

C: 

74517 

1 

C: 

54  76  5 

1 

C : 

35167 

1 

C : 

2<  727 

1 

C : 

Ol  2 7C 

C 

C : 

22313 

0 

C: 

14743 

1 

34,2030 

C : 

42001 

0 

C: 

62422 

1 

C: 

76653 

0 

C: 

63102 

1 

C : 

64725 

0 

C : 

63461 

1 

C : 

00000 

1 

20  40 

C: 

03260 

0 

C : 

23012 

0 

C : 

37646 

1 

C: 

07712 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

37646 

1 

C : 

745  17 

i 

C: 

64765 

1 

C: 

37777 

1 

C : 

37777 

1 

C : 

00000 

1 

r : 

00000 

1 

C : 

00000 

1 

34,  2060 

I : 

71220 

i 

C: 

03632 

0 

C: 

03442 

0 

C: 

34041 

0 

C: 

27056 

1 

T: 

67176 

0 

C : 

C0001 

0 

34,2370 

C: 

03642 

i 

I : 

57456 

l 

( : 

27656 

1 

C : 

00007 

0 

C: 

03650 

1 

I : 

53435 

0 

C: 

0 364  2 

1 

34, 2 ICC 

C : 

00O01 

0 

C: 

02776 

0 

I: 

47  20  6 

0 

C: 

03656 

1 

I : 

63372 

1 

I : 

633  15 

0 

C : 

03656 

1 

34,  21  10 

I : 

76505 

0 

C : 

00001 

0 

C : 

0 36  56 

1 

I : 

77646 

0 

C: 

27664 

0 

C: 

03642 

1 

I : 

53315 

0 

34,2120 

C: 

03656 

1 

I: 

77624 

1 

C: 

46337 

1 

I : 

77624 

1 

C : 

46447 

1 

I : 

77624 

1 

C: 

45636 

0 

34,2130 

C : 

00005 

1 

I : 

77624 

1 

C: 

46447 

1 

I: 

77624 

1 

C: 

45636 

0 

C : 

36310 

0 

C : 

03632 

0 

3 4, 21 40 

C: 

000  20 

o 

c . 

00003 

1 

34661 

1 

r _ 

' j6?  1 

33216 

1 

34  ,2150 

C: 

00000 

i 

C: 

COCOO 

1 

C: 

0000  1 

0 

C: 

00606 

00004 

0 

c _ 
C : 

*31566 

0 

C 

00000 

1 

r’: 

01177 

1 

34, 2160 

C: 

27311 

i 

C: 

77754 

1 

C : 

57611 

0 

C : 

0000? 

1 

C: 

12326 

0 

C : 

03  116 

1 

C : 

0073C 

0 

34,2170 

C: 

06433 

0 

C: 

0C003 

1 

C : 

25140 

0 

I : 

43014 

0 

C: 

03260 

0 

C : 

03061 

c 

I: 

430  14 

0 

34, 22  CO 

C: 

03063 

l 

I: 

77745 

1 

C: 

32425 

0 

C: 

03  606 

1 

C: 

0 3614 

1 

I : 

77201 

1 

C : 

00001 

0 

34,  2210 

I: 

4 1446 

1 

I : 

70  5n  1 

1 

C : 

C 0050 

1 

I : 

51515 

1 

C: 

03552 

0 

I: 

5 5 30  1 

0 

C: 

00047 

1 

34  ,222c 

C: 

00046 

D 

C: 

57175 

0 

I: 

41215 

1 

C : 

3015C 

0 

I : 

65301 

0 

C : 

00047 

1 

C: 

0231  2 

0 

34,2230 

1 : 

75457 

0 

C: 

20172 

1 

I : 

53515 

0 

C: 

02274 

1 

I: 

47315 

0 

C: 

02252 

0 

I : 

77656 

1 

34,2240 

C: 

0 347  2 

0 

t: 

4542  1 

1 

C : 

60203 

0 

C : 

30H2 

0 

f. : 

03612 

1 

I : 

43  345 

1 

C: 

0 360  6 

1 

34 , 22  50 

C : 

03606 

l 

I : 

77025 

0 

C: 

30  140 

1 

C: 

C 0006 

1 

1 : 

77644 

1 

C : 

71056 

1 

I : 

77601 

0 

34,  2260 

I: 

51545 

1 

C : 

03574 

1 

I : 

5002  5 

0 

C: 

301  44 

0 

C: 

70304 

1 

I : 

43174 

1 

C: 

00007 

0 

34,2270 

C: 

71056 

1 

I: 

430  14 

0 

C: 

03342 

1 

C : 

' 

0 

C : 

03303 

1 

C : 

71056 

1 

I : 

71214 

0 

34,2300 

C : 

30146 

1 

I : 

77765 

0 

C: 

03574 

1 

C: 

03574 

1 

I: 

41575 

0 

C: 

02274 

1 

I : 

63256 

0 

34,  23  10 

I: 

53435 

0 

I : 

76561 

1 

C : 

03574 

1 

C : 

022  60 

1 

I : 

40055 

0 

C: 

03472 

0 

C: 

70  3 17 

0 

34  ,2320 

C: 

46437 

0 

C: 

26744 

1 

I: 

77614 

1 

C: 

03466 

0 

C: 

26655 

0 

C : 

32421 

1 

C : 

36730 

0 

34, 2330 

I : 

72142 

0 

C: 

02776 

0 

C : 

37604 

1 

C: 

46347 

0 

I: 

77624 

1 

C: 

46  447 

1 

C : 

17602 

0 

34,2340 

I: 

52054 

1 

C: 

70  34  3 

1 

C: 

70452 

0 

I : 

77745 

1 

C : 

02752 

0 

I : 

50025 

0 

C: 

30170 

1 

34,  235C 

I : 

451  45 

0 

C : 

00041 

1 

C: 

46447 

1 

I: 

60201 

1 

C : 

00003 

1 

C : 

00047 

1 

I : 

5031  5 

0 

34,  2360 

C: 

03566 

1 

I : 

56246 

1 

C : 

00003 

1 

I : 

45257 

0 

C : 

20201 

0 

C: 

30  160 

0 

I: 

7 1 2a  C 

1 

34  ,2370 

C: 

0 2740 

3 

I: 

45312 

0 

C: 

30150 

0 

C : 

14017 

1 

C : 

C231C 

1 

I : 

5634? 

1 

I : 

41325 

0 

X ED  MEMORY 


C:  40667  1 
C:  07712  1 
C:  16747  1 
C:  00000  1 


C:  07712  1 
C:  03030  1 
C : 02777  1 
I:  66001  0 


C:  03434  1 
C : 03650  1 
C:  16312  0 
C : 00000  1 

C:  10000  0 
C:  30032  0 
C : 00000  1 
C:  0 32  62  1 


C:  02274  1 
I : 53664  0 
I:  56342  1 
I : 72441  0 


C:  30152  1 
C:  00001  0 
C:  03300  1 
C:  03360  1 


C : 02  25  2 0 
C:  37566  0 
C:  24732  1 
C:  03621  1 


C:  70452  0 
C : 02274  1 
C : 70452  C 
C:  02740  0 
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3 4 1 2 4 GO 

G : 

0 C "41 

1 

I: 

77624 

1 

C: 

4b  447  1 

I: 

72412 

0 

34,  24  10 

I : 

c63  1 5 

0 

C : 

C2274 

1 

r. : 

03566  1 

C: 

03617 

1 

3 4, 24.  ZO 

C: 

00'H7 

1 

C: 

20  20  4 

0 

C: 

14015  0 

C : 

32425 

C 

34, 2430 

C : 

f'2  274 

1 

I : 

75315 

1 

C: 

03566  1 

C: 

03617 

1 

34,  2440 

C: 

03466 

0 

C : 

3 66  5 5 

l 

C : 

24732  1 

I : 

5112  5 

0 

- , - 

I: 

52006 

3 

C: 

70  456 

1 

1: 

71201  1 

C : 

00001 

0 

34,  24  fcC 

C : 

C36C4 

0 

I : 

452M 

0 

C: 

20217  1 

I: 

77615 

0 

34,2470 

C: 

0000  5 

I 

i: 

40240 

0 

C : 

71056  1 

C : 

oocoi 

0 

34 , 25C0 

C: 

71142 

0 

: 

1 

C: 

00007 

0 

C: 

27514 

1 

34,  2510 

I: 

77624 

1 

C : 71142 

0 

C : 

27522 

1 

C: 

00007 

0 

3 4 ,2520 

C: 

00001 

0 

I:  45115 

0 

C: 

03544 

1 

C : 

46337 

1 

34, 2530 

I : 

632  01 

1 

C : C 01 

0 

C: 

02302 

1 

I: 

65325 

0 

. 

2 

46423 

34  ,2550 

I : 

53515 

0 

: 

1 

C: 

00001 

0 

I: 

47315 

0 

34,  2560 

I : 

4 5561 

1 

C : 77754 

1 

I : 

74345 

0 

I : 

76455 

1 

34,2570 

I: 

72316 

0 

C:  DC  1"';. 

0 

1 : 

50315 

0 

C: 

03536 

1 

34, 2600 

C : 

03552 

0 

C:  03552 

0 

I : 

76371 

0 

I: 

71244 

0 

34, 2610 

C: 

00  00  1 

0 

I:  77654 

0 

C : 

72  04  3 

0 

I : 

70545 

1 

34,2620 

C: 

37574 

0 

C:  70245 

0 

I: 

41566 

1 

I : 

45276 

0 

34,  26  30 

I : 

77646 

0 

C:  14017 

1 

C: 

00013 

0 

I: 

45246 

0 

34 ,2640 

C: 

000  13 

0 

I: 

77745 

1 

C : 

00013 

0 

I : 76561 

1 

34,2650 

I : 

53515 

0 

C: 

035  SO 

1 

I: 

63235 

0 

C:  C0007 

0 

34,  2660 

C: 

5 3 762 

1 

I : 

7244  1 

0 

I : 

75326 

1 

C:  00015 

0 

3 4 ,2670 

C: 

0000  1 

0 

I: 

65225 

1 

C: 

03610 

0 

C:  03574 

1 

34, 2700 

G : 

00003 

1 

C : 

03574 

1 

C: 

03576 

0 

I:  4 30  1 4 

0 

’■  4 , 7 I 

I: 

4 1 245 

0 

C: 

00003 

1 

C : 

0361  0 

0 

I : 7 1244 

0 

, 

C: 

0361  2 

1 

I: 

43014 

0 

C: 

03062 

0 

C:  0 3263 

0 

34,  2730 

C: 

03576 

0 

I : 

4 302  5 

1 

C : 

03612 

1 

C:  03261 

1 

34,2740 

C: 

70762 

0 

C: 

0330  3 

1 

C: 

70762 

0 

I : 75345 

1 

34,  2 75C 

C : 

03612 

1 

I : 

43276 

0 

C: 

03574 

1 

C:  17574 

1 

3 4,  27  60 

C: 

376  10 

1 

C : 

70256 

1 

I : 

60345 

0 

C : 00005 

1 

3 4 ,2770 

I : 

77657 

0 

C: 

20  60  1 

l 

C: 

17612 

1 

C:  00001 

0 
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THE  RIGHT  OF  EACH  WORDt  "0"  OENOTFS  UNUSED  FIXED  MEMORY 


NTERPRET  IV  E OPFPATCR  WORDS)  OR  " C"  (CONSTANTS) 


I : A L 366  1 I : 52414  1 

I:  77646  0 I:  41301  0 

C:  C0021  1 I : 53575  C 

1 : 45076  1 r : 46437  0 

C:  03617  1 C:  70456  1 

C : 32425  C I : 77606  1 

C:  03634  0 C:  01775  0 

I : 63375  0 C:  03566  1 


C : 

C 4343  1 

C: 

70410  0 

C: 

00050  1 

I : 

53660  1 

C: 

00015  0 

C: 

26730  1 

C : 

26744  1 

I : 

7761  4 1 

I: 

45345  1 

C : 

0 360  4 0 

I : 

41345  D 

C: 

03467  1 

I : 

77021  1 

C : 

03636  1 

C: 

02274  1 

I: 

77624  1 

C:  03506  1 
C:  37530  0 
I : 776  24  1 
C:  01775  0 


I : 77745  1 
C:  02252  0 
C:  00023  0 
C : 03536  1 


C:  70622  0 
C:  03612  1 
C:  00007  0 
C:  00017  1 


I : 63201  1 
C:  71213  1 
C : 46447  1 
C:  03636  l 

C:  : 2250  1 
I : 77656  1 
I:  50  20  6 0 
I : 57551  1 

C:  03606  1 
C:  03612  1 
C:  14013  0 
I:  71240  1 


C : 00001  0 
I:  40375  1 
C:  27604  0 
I : 41525  0 


! : 7340  1 0 
I : 71525  0 
C:  03536  1 
C:  00155  0 

I : 77025  0 
I:  77621  1 
I : 45425  0 
C : 70641  0 


C:  03500  1 
C : 02302  1 
C:  03544  1 
C : 33647  1 


C:  00007  0 
C:  02250  1 
I : 41552  0 
I:  50315  0 


C : 30152  1 
C : 0 3576  C 
C:  77762  1 
C : 00015  0 


I : 53456  0 
C:  00007  0 
I:  41542  1 
I : 60225  1 


C : 0353s 
I : 50235 
I:  71214 
C:  C.3  576 


I:  535  15 
C. : 00001 
C:  03301 
C:  00047 


C:  0 3552  C 
I : 77626  0 
C:  70724  1 
I:  65265  0 


C:  03342  1 
C:  70743  0 
I : 77745  1 
C:  37574  0 


C:  70736  1 
C:  3D142  0 
C : 00001  0 
G:  70  245  O 


C : 03343 
I:  77765 
C:  17610 
I:  4301 4 


C : 70736  1 
C:  03612  1 
C:  03574  1 
C : 03302  0 


C : 30162  1 
C:  00001  0 
C:  00050  1 
C:  C3610  0 


C:  00005  1 
I : 43014  0 
I:  54065  0 
I : 51545  1 


I:  77765  0 
C : 03063  1 
C : 0 C ' 1 

C : 03612  1 


C:  0 36  1?  0 
C : 03062  0 
C:  00047  1 
I:  45206  1 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


3 A,  30  10 
3 A,  3020 
34,  3030 


3 4,  30  60 
34,3370 


34,  3100 
3 4,  31  10 
3 4 ,3120 
34,  31  30 


34,3140 
34,3150 
3 4,  3160 
H,3170 


34,  32 OC 
34, 3210 
34,3220 
34, 3230 


34,3240 
34,  32  50 
34,  32  60 
3 4 ,32  70 


34,3320 
34,  333' 


34,3340 
34, 3 15C 
34,3360 


34,3370 


C:  30156 

0 

I : 

71240 

1 

C: 

710  17 

1 

I: 

50025 

0 

C: 

3C166 

0 

C : 

71012 

1 

I : 

75345 

1 

C: 

30166 

0 

C : 12 

1 

C : 

03612 

1 

I : 

45345 

1 

C: 

03  574 

1 

C: 

0 3612 

1 

C: 

37574 

0 

C: 

70245 

0 

I : 

77145 

1 

C:  C3602 

3 

C: 

0000  2 

0 

I: 

77750 

0 

C : 

02776 

0 

I : 

50023 

C 

C : 

30152 

1 

C: 

71056 

1 

Is 

71374 

1 

C : 00003 

1 

C : 

036C4 

0 

I: 

50023 

0 

C: 

33  152 

1 

C: 

7 1056 

1 

I : 

45345 

1 

C : 

01  775 

o 

C : 

03634 

o 

C:  02244 

1 

I : 

45374 

0 

C : 

00004 

0 

C : 

30172 

0 

I : 

77040 

0 

C: 

71056 

1 

C: 

00005 

1 

I : 

45345 

1 

■ 

1 

C: 

01775 

0 

C: 

02246 

0 

I: 

51025 

1 

C : 

30172 

0 

C : 

72157 

1 

I : 

43014 

0 

C: 

0 333  2 

0 

C:  72045 

0 

C: 

03343 

0 

C : 

72045 

0 

I : 

71334 

0 

C: 

0 3613 

0 

C: 

32425 

0 

I : 

4301  4 

0 

C: 

03260 

0 

C:  03061 

0 

I: 

43014 

0 

C : 

03262 

1 

C : 

03263 

0 

C: 

37606 

0 

C : 

70205 

1 

I: 

71220 

1 

C: 

0 3470 

1 

C:  03442 

0 

C : 

3404  l 

0 

C: 

4640  1 

0 

I: 

77214 

0 

C: 

0 1067 

1 

C : 

03560 

1 

C : 

03530 

l 

C: 

27506 

1 

C:  03552 

0 

C : 

03522 

1 

C : 

03500 

1 

I : 

47256 

0 

C: 

03506 

1 

I: 

77656 

1 

C: 

26262 

0 

C : 

03536 

1 

C:  37642 

0 

C: 

7 1132 

1 

C: 

02302 

1 

C : 

26274 

l 

C : 

03544 

1 

C : 

37650 

0 

C: 

71132 

1 

C: 

0 3514 

1 

C : 37472 

1 

C : 

03470 

1 

I : 

41406 

0 

I: 

74241 

0 

C: 

02252 

0 

C: 

02252 

0 

I : 

51352 

1 

I : 

63256 

0 

[ : 7 4 1 A 6 

1 

I: 

4 a 57  2 

o 

I : 

65325 

■ 

, , 

- 77*; 

416  25 

33a/  7 

1 

77650 

1 

C:  734  04 

0 

I : 

65325' 

0 

C: 

0 1775 

0 

C: 

0 36  36 

1 

I : 

41525 

0 

C : 

3242  5 

0 

I : 

77650 

1 

C: 

73404 

0 

I:  7602C 

1 

C : 

03470 

l 

C : 

01521 

0 

I : 

77624 

1 

C: 

72375 

0 

I: 

77624 

1 

C: 

71200 

0 

I : 

61375 

1 

C:  03434 

1 

C: 

0000  1 

0 

I: 

77772 

0 

C : 

03656 

1 

I : 

51406 

1 

C : 

27664 

0 

I: 

77650 

1 

C: 

03470 

1 

I : 77201 

1 

C: 

00037 

0 

C: 

02252 

0 

I: 

63276 

1 

C: 

02274 

1 

I : 

57456 

1 

I : 

47206 

0 

C : 

02252 

c 

I:  77772 

o 

C: 

00001 

0 

I : 

77616 

0 

I : 

77220 

1 

C: 

03470 

1 

C: 

02332 

1 

I : 

53406 

o 

C : 

27544 

1 

C:  03522 

1 

I: 

50256 

0 

C: 

03544 

1 

I: 

72406 

0 

C : 

16732 

0 

I : 

65316 

0 

C : 

06510 

0 

I : 

45302 

1 

I : 72566 

1 

I : 

57515 

1 

I : 

77635 

1 

C: 

03522 

1 

I: 

65241 

0 

C: 

02252 

0 

I : 

45565 

0 

C: 

51047 

0 

C:  03522 

1 

I: 

45115 

0 

: 

03530 

1 

C : 

46437 

0 

C : 

26744 

1 

I : 

77614 

1 

C: 

03666 

1 

C: 

36655 

1 

C : 24732 

1 

I : 

53754 

l 

C: 

02777 

1 

C: 

57576 

1 

C: 

00023 

0 

I : 

76441 

1 

C : 

C3544 

1 

I : 

51515 

1 

I:  63257 

1 

C : 

67576 

L 

C : 

02302 

1 

I : 

65246 

1 

I : 

77625 

0 

C: 

0000  3 

1 

C: 

1 76  00 

1 

C : 

0 2742 

1 

I:  65301 

3 

C: 

00047 

1 

C: 

00041 

1 

I : 

77624 

1 

C : 

46447 

1 

I : 

56362 

0 

I : 

41457 

1 

G: 

20  17  4 

1 

I : 65225 

1 

C : 

03600 

1 

I : 

56302 

o 

C: 

00005 

75406 

j . 

41275 

c e 

00007 

c . 

0 

I:  65272 

0 

C: 

0000  3 

1 

I : 

65301 

0 

C : 

00047 

C: 

02312 

0 

I : 

5 5342 

1 

is 

65257 

1 

C:’ 

20  174 

1 

• 

1 

I : 

65301 

0 

C: 

00050 

1 

C: 

r 2 3 1 2 

0 

I : 

56342 

1 

I : 

44257 

1 

C : 

576C4 

1 

I : 

63525 

0 

C:  00011 

1 

I : 

75421 

l 

I : 

47315 

0 

C: 

02252 

0 

C: 

03544 

1 

I: 

74256 

0 

C: 

000  1 3 

o 

I : 

7431  5 

o 

C : 03  54 4 

1 

C: 

000  1 1 

1 

I: 

76455 

1 

I : 

77626 

0 

C : 

74233 

0 

I : 

77651 

0 

C: 

03514 

1 

C: 

36266 

0 

C : C3470 

1 

C5364 

0 

C: 

04024 

0 

00004 

0 

04616 

1 

C: 

40154 

0 

06051 

0 

I : 

77614 

1 

C:  06460 

0 

I : 

43014 

0 

C : 

04067 

1 

C : 

04666 

0 

I : 

7721a 

0 

C: 

05052 

0 

C: 

0 1220 

0 

C: 

16032 

1 

C:  01234 

0 

I: 

45014 

0 

C: 

0 1463 

1 

C: 

26347 

0 

I : 

77201 

1 

C : 

00001 

0 

C : 

01220 

0 

I : 

65352 

0 
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3 4 , 3 4 0 ( 
34,  34 1C 
34,342c 
34, 343C 


C : 01234  0 
1*001  l 
C:  47453  1 
C : oonoi  o 


45106  ' C:  51644  0 C:  02021  0 

i 34 1 3 ' 13405  l 06051  ( 

36222  0 C:  33502  C I:  77776  1 

41575  0 C:  05512  1 I:  41434  1 


34,3440 
34  ,3450 
34,  34  60 
34,3470 


0 1732  0 
r 73  74  . 
66C 6 7 0 
00007  3 


C:  16C27  0 
C:  04145  0 
06051  0 
I:  776  ?5  0 


C : 26316  l 
C:  15527  0 
I : 77614  1 
C:  26034  1 


C:  02i)21  0 
C:  000C7  0 
C:  04705  1 
I : 43040  1 


34,  3500  C : 31  536  0 

34,  35  10  06051  0 

34,352c  C:  02256  1 

34,  7 5 30  C : 02?56  1 


I : 77471 
I:  43345  1 
C:  2 1c  1 2 1 
I : 56342  1 


C:  00007  0 
C:  03571  1 
I:  65252  l 
C:  02262  0 


52155  1 
C:  03635  1 
C:  02262  0 
C:  36254  1 


34,3540 
3 4, 3 5 5( 
3 4,  7 5 60 
3 4 , 3 5 7 C 


I: 

C: 

C: 

C: 


77775  1 
20477  1 
40115  0 
02342  3 


03535  1 C:  37253  1 
13554  1 13554  1 
05527  l C:  00215  1 
4 1345  0 C:  02342  0 


C:  60720  1 
13544  0 
16001  1 
c;  03515  c 


34, 36CC  C : C3515 

G : 0 1 5 

34,36  20  C:  02  563 

34,  3630  C:  C2547 


0 C:  03515  0 I : 
0 I:  77626  0 C : 
0 C:  02551  1 I: 
0 I : 41345  0 C : 


72471  0 C:  72262  0 
75212  1 I : 7761 6 0 
41425  l C:  02565  0 
00001  0 C:  16025  1 


34,3640 
34, 3650 
34, 7660 
3 4,36  70 


I:  75465  1 I:  77626  0 C:  41507  0 C:  u2620  1 
I:  47206  0 C:  000D1  0 I:  77641  1 C:  02316  1 
I:  77616  0 05364  0 C:  47015  0 C:  77777  0 
C:  03671  1 C:  14063  l 44755  0 54037  1 


34,3700  55256  0 34743  0 

34,77  10  C:  00036  1 30102  1 


74, 3720  55054  0 

34,  3730  C:  42067  0 


34361  1 
34736  1 


00006  1 05011  1 
74744  0 00006  1 
5400  1 1 40000  0 
05105  0 C:  02037  1 


34,3740  C:  02037  1 
34,  3750  C : 26022  0 
34,3760  22007  0 
34,3770  22007  0 


66067  0 
7776  L 1 
52325  1 
52331  1 


15272  1 
C:  00035  1 
44755  0 
00003  1 


I:  77656  1 
C:  03561  0 
560  40  0 
00002  0 
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HE  RIGHT  OF  EAGH  W3R0,  "3"  DENOTES  UNUSFD  FIXFO  MEMORY 


vTFRPRETI VE 

OPERATOR  WORDS  ) 

OR  "C' 

' (CONSTANTS) 

C:  20477 

I : 

64375 

1 

C: 

0 1220 

0 

C: 

01732 

0 

I : 45056 

0 

16001 

1 

C : 

01453 

1 

I : 

40220 

3 

C:  31163 

l 

C : 

21555 

1 

I ; 

77624 

1 

C : 

5572  C 

1 

I : 7 432 1 

i 

I : 

52446 

0 

C: 

35324 

1 

C: 

01163 

1 

C:  00046 

0 

G: 

2 3346 

1 

C5364 

0 

G : 

06025 

0 

C:  02102 

3 

C: 

60337 

0 

I: 

41335 

1 

C: 

C 12  51 

0 

G:  26013 

1 

C : 

60752 

1 

f : 

04267 

0 

I: 

67214 

1 

C:  32676 

1 

53641 

1 

53637 

0 

53635 

1 

53571 

1 

I : 

43215 

0 

C: 

03537 

0 

C: 

0364  1 

1 

1 : 4 1 20  5 

0 

I : 

43342 

0 

I : 

77625 

c 

r. : 

21010 

3 

C:  16262 

0 

C: 

60  307 

0 

C: 

00004 

0 

I : 

45575 

1 

C:  74516 

0 

, 

- 

,, 

05364 

0 

C : 

04024 

0 

00004 

0 

04674 

0 

C: 

04]  25 

0 

I: 

77745 

1 

C: 

06520 

0 

C : 02336 

0 

I : 

4 3205 

1 

C : 

33  653 

1 

C : 

02336 

0 

I:  41235 

o 

I: 

65215 

1 

C: 

02272 

1 

C : 

( 3474 

0 

I : 43205 

1 

I : 

4 5 02  0 

1 

C : 

026  20 

1 

C : 

7 1644 

1 

I:  43205 

1 

I : 

51025 

1 

C : 

02  54  7 

0 

C : 

71631 

0 

I:  65345 

0 

I: 

77725 

1 

I: 

41215 

1 

C: 

02565 

0 

C : 02565 

0 

I : 

53575 

0 

C : 

03517 

1 

I: 

53515 

o 

C:  01716 

0 

C: 

24037 

o 

I : 

72441 

0 

I : 

75326 

1 

C : 0003  7 

0 

C : 

0 367  2 

1 

C: 

70067 

1 

35031 

0 

0 5072 

1 

54040 

1 

54041 

0 

55254 

1 

55255 

0 

74773 

26103 

1 

05527 

1 

13731 

0 

13  754 

0 

13731 

0 

40025 

1 

52754 

0 

36010 

0 

0521  4 

0 

C:  02055 

0 

C: 

66067 

0 

0 5364 

0 

C: 

07025 

1 

C : 20000 

0 

C : 

14C35 

1 

C: 

00043 

0 

I : 

55261 

1 

C:  2D  2D  6 

1 

I: 

77616 

0 

00004 

0 

44755 

0 

56037 

0 

o 

o 

0 

52327 

0 

44755 

0 

56041 

1 

C : 

03774 

0 

C : 

03  775 

1 

CKSN 

70464 

0 

a 
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DOTAL  LISTING  FOR  PARAGRAPH  U 20  A-  , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


35,2000 

C 551  5 

0 

C: 

00027 

1 

05515 

0 

C:  00031 

0 

32032 

1 

03627 

1 

33644 

1 

03627 

1 

3 5,  20  1 0 

05527 

1 

C : 

00027 

1 

06051 

0 

I : 77624 

1 

C: 

70060 

C 

I : 

430  14 

0 

C: 

C0470 

1 

C : 

01067 

1 

35  ,2^20 

I: 

77776 

1 

32033 

0 

03627 

1 

06051 

0 

I : 

77614 

1 

C : 

Cl  071 

0 

I : 

77624 

1 

C: 

73523 

1 

3 5,  20 3C 

I : 

7765  0 

1 

C : 

72  02  6 

0 

C: 

01441 

1 

C:  D 1 45 2 

0 

0 2354 

1 

02037 

1 

0236  1 

1 

00006 

1 

3 5 ,2D40 

3 2425 

0 

53621 

1 

02  060 

0 

I : 77734 

1 

C: 

0361  3 

0 

I : 

77740 

1 

C: 

036  13 

0 

I: 

77533 

1 

3 s;  ,20  50 

C: 

32430 

1 

30154 

1 

0 574  5 

1 

35G06 

1 

04616 

1 

C : 

20477 

1 

06001 

0 

02053 

0 

3 5,  20  60 

C2366 

0 

32424 

1 

55467 

1 

55633 

1 

55634 

0 

32415 

0 

03627 

1 

0605  1 

0 

35,2370 

is 

57545 

1 

C: 

0 36  3a 

0 

I: 

71240 

1 

C:  7212C 

1 

C : 

01643 

1 

C : 

34041 

0 

C: 

46401 

0 

is 

53775 

1 

35,  2100 

C : 

03536 

1 

C : 

57176 

0 

C: 

26655 

0 

C:  D 3544 

1 

IS 

43057 

1 

C : 

57176 

0 

C : 

03466 

0 

C : 

16744 

1 

35, 21  10 

C: 

06526 

0 

C: 

36756 

0 

C : 

25557 

1 

Is  77615 

0 

C: 

03574 

1 

C: 

03634 

0 

Is 

77776 

1 

02065 

0 

35  ,2120 

I : 

77776 

1 

3 36  41 

1 

C4616 

1 

C:  204.77 

1 

06001 

0 

02127 

1 

02121 

1 

33640 

0 

35,  2130 

03627 

1 

06C51 

0 

I : 

77745 

l 

C:  03634 

0 

C: 

37442 

1 

C: 

20000 

0 

I : 

77624 

1 

C : 

71076 

0 

. 

I: 

77  20l 

1 

1 

1 

E§jL 

1 

0 3 6 34 

65325 

35,2150 

C : 

33647 

1 

I: 

4 5 C 3 6 

0 

C: 

73404 

0 

Is  77624 

l 

C: 

46433 

1 

I : 

77624 

1 

C : 

70173 

0 

I : 

43014 

0 

3 5,  21  60 

C: 

013H 

0 

C : 

72163 

0 

C : 

00470 

1 

I : 77745 

l 

C: 

02244 

1 

C: 

02244 

1 

IS 

51025 

1 

C : 

32427 

1 

35  ,2170 

C: 

72165 

3 

I: 

77745 

1 

C: 

02246 

0 

C:  02246 

0 

I : 

51025 

1 

C : 

32  42  7 

1 

C: 

72173 

1 

I: 

77776 

1 

35,  2200 

32417 

1 

C 36?  7 

1 

06051 

0 

I:  45175 

0 

C: 

0226C 

1 

C: 

71160 

0 

C : 

26260 

1 

C : 

02302 

1 

?5 ,22  10 

C: 

26274 

1 

C: 

02266 

1 

I : 

45  170 

0 

C : 0 1 522 

o 

C : 

72375 

0 

I : 

7 7 7 4 5 

1 

C: 

03636 

1 

C: 

37640 

1 

35 ,2220 

C : 

73523 

1 

I : 

77650 

l 

C: 

72136 

0 

02354 

1 

02226 

0 

02361 

1 

C 2366 

0 

32416 

0 

35,  2230 

03627 

1 

06051 

0 

I : 

77745 

1 

C:  03640 

0 

C: 

17636 

1 

C: 

0 1775 

0 

C: 

37442 

1 

C : 

20000 

0 

35  ,22 AO 

I : 

77624 

1 

C: 

7 1076 

0 

I: 

77624 

1 

C:  71213 

1 

I : 

77201 

1 

C : 

0 00O1 

0 

C: 

03544 

1 

IS 

45115 

0 

35,  22  50 

C : 

02302 

1 

C : 

711  51 

1 

is 

77624 

1 

C:  46423 

0 

I: 

77201 

1 

C : 

00001 

0 

C : 

03530 

1 

I : 

451  15 

0 

35,2260 

C: 

03522 

1 

C: 

71151 

1 

I : 

77624 

1 

C : 46433 

1 

I : 

43145 

0 

C: 

32425 

o 

C: 

0 3460 

o 

C: 

36310 

o 

35  ,22  70 

C: 

72702 

1 

I: 

77454 

1 

C: 

72307 

0 

0 5600 

1 

C : 

00611 

1 

35006 

1 

04616 

1 

C: 

20477 

1 

35,  2300 

C££>01 

0 

02303 

0 

02226 

q 

06051 

0 

I: 

77745 

1 

C: 

32425 

0 

C: 

C2310 

1 

I : 

43014 

0 

35 ,2310 

C: 

013  11 

0 

C: 

723  1 3 

0 

C: 

00470 

I : 43345 

1 

C: 

02310 

1 

C : 

0 36  36 

1 

C: 

03636 

1 

Is 

77625 

0 

35, 232C 

C : 

01  775 

0 

I : 

51025 

1 

C: 

32427 

l 

C:  72321 

1 

I : 

77615 

c 

C : 

32427 

1 

C : 

16244 

1 

C: 

03636 

1 

35,  2330 

I : 

41425 

1 

C : 

C 3640 

0 

I : 

45246 

0 

C:  32427 

1 

Is 

43244 

1 

C: 

72332 

0 

C: 

32427 

1 

I : 

45565 

0 

35  ,2340 

C : 

75531 

1 

I: 

77776 

1 

32417 

1 

03627 

1 

06C51 

0 

I : 

45175 

0 

C: 

02266 

1 

C: 

71160 

D 

35, 2350 

C : 

36266 

0 

C : 

73523 

1 

I : 

77650 

1 

C:  72240 

1 

00006 

1 

23470 

0 

0 5 515 

0 

C : 

00050 

1 

35,2360 

0 1470 

0 

00006 

1 

23470 

0 

05527 

1 

C: 

C 005  C 

1 

01470 

0 

G 0 0 0 6 

1 

23470 

0 

35,2370 

C5515 

0 

C: 

00027 

1 

05515 

0 

C:  00031 

0 

C 1470 

0 

C : 

03434 

1 

I : 

45020 

1 

C: 

03463 

0 
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T:TAL  LISTING  FOR  PARAGRAPH  « 205,  VITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSF  MARKED  "I"  ( I N TFR  PRE  T I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


. 

C:  712.00 

0 

I : 64375 

1 

C:  03434 

1 

C:  00001 

0 

I : 

66172 

0 

C: 

03615 

0 

C : 

03434 

1 

I : 7777t 

1 

35,  241C 

31615 

1 

C 36  2 7 

1 

06C51 

0 

I : 7765C 

1 

C: 

03463 

0 

C: 

3 1413 

0 

C: 

0l4l5 

0 

C : 01513 

1 

35,242C 

C:  77776 

1 

C:  62460 

1 

C:  17777 

0 

C:  37776 

0 

C : 

00000 

1 

C : 

00000 

1 

C: 

00025 

3 

C:  37130 

1 

35,  2430 

C : 0^600 

1 

C:  00601 

0 

C:  00602 

0 

C:  0060  3 

1 

C: 

00604 

0 

C: 

00605 

1 

C : 

00606 

1 

00006 

1 

35 . 2 44( 

23465 

1 

34755 

1 

55162 

1 

34752 

0 

00004 

0 

35214 

0 

C: 

02716 

0 

C:  74067 

0 

35,2450 

05340 

c 

: 

0 

C:  050  24 

1 

C:  13000 

0 

01465 

1 

02354 

1 

C2460 

1 

02361 

1 

3 5,  24  60 

02366 

0 

33640 

0 

03627 

1 

00006 

1 

33663 

1 

53621 

1 

34741 

1 

540G1 

1 

35,2470 

324  24 

1 

55466 

0 

22003 

1 

56647 

1 

55650 

1 

22003 

1 

03611 

1 

36051 

0 

35, 250C 

I : 71214 

0 

C:  01270 

0 

C:  03636 

1 

C:  17442 

0 

C: 

02250 

1 

I : 

43054 

1 

C : 

72510 

0 

C : 01070 

1 

• • ' 1 

I:  77  * 24 

1 

: ' 

0 

I : 43145 

0 

C:  06520 

0 

C: 

03460 

0 

I : 

43014 

0 

C: 

0 131C 

1 

C:  72521 

1 

35  ,252c 

C : C-3660 

1 

C:  02310 

1 

I:  43345 

1 

C:  03636 

1 

C : 

02310 

1 

C : 

34  041 

0 

C : 

4640  1 

0 

1 : 7762  4 

35,  2530 

C:  72702 

1 

I : 77454 

1 

C : 72543 

0 

05600 

1 

C : 

0061  1 

1 

35006 

1 

046 16 

1 

C:  20477 

1 

025  33 

, 

1 

r - 

72522 

1 

35, 2550 

I : 77776 

1 

0361  1 

1 

02556 

0 

i:  77776 

1 

33640 

0 

03627 

1 

06051 

0 

I : 71201 

1 

35,  2560 

C:  00001 

0 

C:  02777 

1 

C:  14047 

1 

C:  03621 

1 

I: 

71406 

0 

C: 

16732 

0 

I: 

77756 

0 

C : 26730 

1 

35  ,2570 

C:  03552 

0 

j:  77657 

0 

C:  57176 

0 

C:  26655 

0 

C : 

0356C 

1 

I : 

43  05  7 

1 

C: 

57176 

3 

C:  03466 

0 

35, 2600 

C:  36744 

0 

C:  24732 

1 

I : 77745 

1 

C:  3 36  36 

1 

C: 

0 3610 

0 

I : 

77615 

0 

C : 

00037 

0 

C:  37631 

1 

35 ,26  10 

C:  73224 

1 

I:  51575 

1 

C : ! 3 5 7 

1 

C:  27576 

0 

C: 

03506 

1 

I : 

^1451 

0 

C: 

03566 

1 

C:  26341 

0 

3 5 » 2 62  C 

C:  03536 

1 

I : 45115 

0 

C:  02330 

0 

C:  46337 

1 

I : 

77624 

1 

C : 

46447 

1 

C : 

17606 

1 

C:  03636 

1 

35,  2630 

C:  03442 

0 

I : 77776 

l 

33642 

1 

03627 

1 

0 6051 

0 

I: 

77624 

1 

C: 

73440 

0 

I:  77624 

1 

35  ,2640 

C:  73523 

1 

I:  77650 

1 

C:  72512 

1 

02354 

1 

0000  6 

1 

31401 

0 

02652 

1 

32361 

1 

35,2650 

00006 

1 

3140  3 

1 

53576 

0 

02365 

0 

06051 

0 

I : 

77624 

1 

C : 

20000 

0 

I : 77634 

0 

35, 2660 

C:  21555 

l 

C:  03612 

1 

I : 77615 

0 

C : 03576 

0 

C: 

03442 

0 

C: 

33610 

0 

C: 

3404  1 

0 

C:  46401 

0 

35  ,2670 

I : 77624 

1 

C:  73212 

1 

I:  77624 

1 

C:  73224 

1 

I : 

77624 

1 

C : 

73440 

0 

I : 

77624 

1 

C:  73523 

1 

35,  2700 

I:  7765C 

1 

C : 72657 

0 

l : 66220 

1 

C:  03463 

0 

C: 

03614 

1 

C: 

40000 

0 

I : 

40345 

1 

C : 33651 

0 

35,2710 

C:  00001 

3 

f:  27574 

1 

C:  03536 

1 

C:  2750C 

1 

C : 

03544 

1 

C : 

27536 

1 

C: 

03552 

0 

C:  27522 

1 

35, 2720 

C:  03560 

1 

C : 03530 

1 

I:  77624 

1 

C:  73212 

1 

I: 

63235 

0 

C : 

03536 

1 

I : 

5351  5 

0 

C : 03536 

1 

35,  2730 

I:  46315 

1 

I:  51352 

1 

C:  02302 

1 

I : 63255 

0 

63241 

0 

C: 

0000  1 

0 

I: 

7524  1 

1 

C:  0 230  2 

1 

35  ,2740 

I : 65552 

0 

I:  50  315 

0 

C:  C 2302 

1 

C:  03536 

1 

I : 

71244 

0 

C : 

72  750 

0 

C : 

06526 

0 

I:  41425 

1 

35,  2750 

I : 71214 

0 

: 

1 

C:  73177 

1 

C:  03576 

0 

C: 

14033 

1 

I: 

77625 

0 

. C : 

02250 

1 

C:  03576 

0 

35,2760 

I:  45246 

0 

C:  33655 

1 

I : 77640 

0 

C:  73207 

0 

I : 

70535 

0 

C: 

'.'3614 

1 

I: 

7 20  30 

1 

C:  03463 

0 

35,2770 

C:  00154 

1 

I:  77330 

1 

C:  03613 

0 

C:  C 3 5 5 2 

0 

I : 

65256 

0 

C : 

00045 

0 

I : 

53515 

0 

C:  03536 

1 
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D:TAL  LISTING  FOR  PARAGRAPH  K 206,  M TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DFNQTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


3 5, 30  CO 

I : 

77725 

1 

I : 

A 1 5 2 5 

0 

C: 

000A5 

0 

I: 

77621 

1 

C: 

000  15 

0 

C : 

1A037 

G 

C : 

06516 

0 

I : 

A1A25 

1 

35,3010 

C: 

0 22  50 

l 

I : 

50165 

0 

C : 

00037 

0 

C : 

03  Ao  3 

0 

I : 

7 1 5 A 5 

0 

I: 

56205 

0 

C: 

000  17 

1 

C : 

00015 

0 

35  ,302c 

I : 

77676 

D 

C: 

00035 

1 

i: 

AA2A6 

1 

C: 

"6516 

0 

I : 

772AC 

1 

C : 

03A63 

0 

C : 

02252 

0 

I: 

53A35 

0 

• 

C : 

C00C7 

0 

I : 

A1  2A1 

0 

C: 

035AA 

1 

C: 

000  15 

0 

I : 

A7315 

0 

C: 

00001 

0 

C : 

03560 

1 

I : 

53A3  5 

o 

35 ,33  AO 

C: 

0000  1 

0 

I: 

A 12A  1 

0 

C : 

03560 

1 

C : 

00017 

1 

I : 

77621 

1 

I : 

6330  1 

0 

C: 

000A7 

1 

C: 

00007 

0 

35,3050 

1 : 

50235 

0 

C: 

00031 

0 

C: 

02252 

0 

I: 

50  315 

0 

C: 

00001 

0 

C : 

00007 

0 

I : 

65552 

0 

I : 

77765 

0 

3 5,  30  60 

I : 

A 3 2 ? 5 

0 

C : 

06516 

0 

C : 

02250 

1 

I : 

65525 

0 

C: 

000  3 5 

1 

I: 

75221 

1 

C: 

06516 

0 

C : 

00037 

0 

35,3070 

I : 

77615 

0 

I: 

56  20  5 

0 

C: 

336A7 

1 

I : 

776C5 

1 

I : 

A 12  57 

1 

C : 

201  76 

0 

I : 

51A06 

1 

I: 

50025 

0 

35,31  CO 

C : 

0357A 

1 

C : 

73105 

1 

I : 

753A5 

1 

C: 

0 3 57  A 

1 

IS 

77606 

1 

I: 

51135 

1 

C : 

036  1 A 

1 

C : 

73115 

0 

3 5,31  ID 

I: 

7 1331 

0 

C: 

036  1 A 

1 

C : 

37777 

1 

I : 

77  650 

1 

C: 

73153 

1 

I : 

A 1 3 A 5 

0 

C: 

03576 

0 

C: 

000  3 3 

1 

35  ,31  20 

I : 

712AA 

0 

C: 

73131 

0 

C: 

0 3 57  A 

l 

I: 

77605 

1 

C: 

33653 

1 

C : 

1757A 

1 

I : 

70AA6 

0 

I : 

52076 

1 

3 5,  3130 

C : 

73  1 A 1 

1 

I : 

515A5 

1 

C : 

03576 

0 

I : 

51525 

1 

C: 

00033 

1 

I: 

77625 

0 

I: 

712AP 

1 

C : 

731AA 

1 

3 5 ,31  AO 

I: 

776A6 

d ' 

I: 

' 

i 

03606 

1 

p • 

731  53 

1 

% 

3 5,  3150 

I : 

77615 

0 

I : 

77650 

i 

C : 

73  1 5 A 

0 

C: 

03606 

1 

I: 

77615 

0 

C : 

02310 

1 

C : 

02310 

1 

I : 

63375 

0 

35,3160 

C: 

03506 

i 

C: 

03500 

i 

I : 

7762  A 

1 

C : 

73A00 

1 

I : 

7762A 

1 

C: 

A 6 A2  3 

0 

I: 

63375 

0 

C: 

03530 

1 

35  ,3170 

C: 

03522 

1 

I: 

7762a 

l 

C: 

73A00 

1 

I : 

7762A 

1 

C : 

A6A33 

1 

I : 

77650 

1 

C : 

72722 

0 

I : 

A33A5 

1 

35,3200 

C : 

03636 

1 

C : 

02310 

i 

C : 

17636 

1 

I : 

776  1A 

1 

C: 

0131C 

1 

C : 

73207 

0 

C: 

0225C 

1 

I : 

521A5 

0 

35,32 10 

C: 

06520 

0 

C: 

03 A6  3 

0 

I : 

52375 

1 

C : 

"3  552 

o 

C : 

03536 

1 

I : 

A 1 A 56 

o 

C: 

26  30  2 

1 

C: 

35,3220 

I : 

53  A3  5 

0 

C: 

0 3 5 A A 

l 

C: 

02252 

0 

I: 

77616 

0 

I : 

77220 

1 

C : 

03A70 

1 

C : 

03560 

1 

I : 

65315 

0 

35,  3230 

C: 

C35  5 2 

0 

C : 

03610 

0 

l : 

65325 

0 

C: 

03631 

0 

C: 

336A7 

1 

I: 

A6  125 

0 

C: 

03A67 

1 

C : 

732A3 

0 

35  , 3 2 A 0 

I : 

777A5 

1 

I: 

A 1 5 A 5 

0 

C: 

06520 

0 

I : 

7762A 

1 

C : 

73A0A 

0 

C : 

27AAA 

0 

C: 

00007 

0 

r : 

27506 

1 

35, 3250 

C : 

C3AAA 

0 

I : 

63256 

0 

C: 

03536 

1 

I: 

A 1 A 5 6 

0 

I: 

50235 

0 

C: 

00001 

0 

C : 

02252 

0 

I : 

7771  5 

1 

35 ,3260 

I: 

72AA1 

0 

C: 

cooni 

0 

I : 

75326 

1 

I : 

A32aa 

1 

C : 

73266 

1 

C : 

06526 

o 

C: 

1575A 

o 

C: 

03631 

o 

35  ,3270 

I : 

77625 

0 

C: 

03610 

0 

C: 

03A52 

1 

I: 

AO  335 

0 

C: 

03A67 

1 

C : 

00001 

0 

I : 

63325 

3 

C: 

33661 

0 

35,  3300 

C: 

C 35  36 

1 

C : 

2631  A 

0 

C : 

0 3 5AA 

1 

C: 

36322 

1 

C: 

22000 

1 

I : 

77  6 2 A 

1 

C: 

73365 

0 

I : 

6A375 

1 

35,3310 

C: 

02357 

1 

C: 

noun  1 

0 

I : 

77772 

0 

C : 

37A3A 

0 

C : 

0 3 A 7 0 

1 

I : 

A5020 

1 

C: 

C 3 A 6 3 

3 

C: 

73365 

0 

35, 3320 

I : 

61375 

1 

C: 

03A3A 

1 

C: 

00001 

0 

I: 

77772 

0 

C: 

02357 

1 

I : 

63255 

0 

C : 

035AA 

1 

C.  : 

03536 

1 

35, 3330 

I: 

65325 

0 

C: 

03AA2 

0 

C : 

03631 

0 

I : 

A 1 52  5 

0 

C : 

06526 

0 

I : 

7 7 6 2 A 

1 

C: 

7 3A0  A 

o 

I : 

77775 

1 

35  ,33 AO 

C: 

00001 

0 

C: 

03  A A A 

0 

I: 

A 1575 

0 

C: 

0 2 302 

1 

I : 

57A35 

1 

C : 

02252 

0 

I : 

A 1 A 5 6 

0 

I : 

76  A3  5 

1 

35, 3350 

C : 

02302 

1 

I : 

7771  5 

1 

I : 

6 A3  1 5 

1 

C: 

0 2357 

1 

C: 

00001 

0 

I: 

77772 

0 

r : 

362  7 A 

0 

C : 

03A63 

0 

35 ,3360 

I: 

AO  220 

0 

C: 

03A6  3 

0 

C : 

00001 

0 

I : 

77650 

1 

C: 

733A2 

0 

I : 

57575 

1 

C: 

0 225  2 

0 

C: 

2 A 007 

c 

35,3370 

C : 

03536 

1 

I : 

57  A56 

1 

C: 

000  15 

0 

I: 

76A35 

1 

C: 

02252 

0 

C : 

00001 

0 

I : 

A3A01 

0 

C: 

00023 

0 

SAP 
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7STAL  LISTING  FOR  PAPAGRAPH  « 207  , WITH  PARITY  BIT  IN  BINARY  AT  T FF  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


35,  3900 
35,39  10 
35,3920 
35,  39  30 


I : 65325  0 
C:  01673  1 
C:  02777  1 
C:  25535  0 


C:  06520  0 
I:  93059  1 
IS  9 3C 1 9 0 
I : 7765  7 0 


C:  32310  1 
C : 73919  1 
C:  ? 9 30  3 0 
C : 57176  0 


I:  9 1906  0 
C : 01973  0 
C:  73925  0 
C:  35593  0 


i:  95020  1 
I : 95595  1 
C:  00263  0 
C:  27106  0 


C : C 3965  G 
C:  53736  0 
C : 2551 7 0 
I:  52175  0 


C : 27910  1 
I:  730  1 9 0 
I : 77657  0 
C : 00001  0 


I : 71219  0 
C:  00063  1 
C:  57176  0 
C : 03965  0 


35,3990 
35,  395C 
35,  3960 
35  ,3970 


I:  93020  1 
C:  C32  79  0 
03962  1 
91933  3 


C:  03970  1 
C:  0 3 9 3 9 1 
03959  1 
5000 2 0 


C : 01311  0 
C:  0 1236  1 
35C16  0 
61235  1 


C:  73997  1 
l:  77776  1 
59003  0 
26001  1 


I : 52019  C 
33699  1 
22007  0 
10002  1 


C : 03970  1 
09616  1 
39756  1 
13966  1 


C:  7 3513  1 
C : 20977  l 
59002  1 
2200C  1 


77219  0 
06001  0 
50002  G 
00006  l 


35,  35C0 
35,3510 
3 5 ,35  20 
35,  3530 


13503  0 05515  0 C:  00196  1 
77775  1 C:  02357  1 C:  03656  1 
06051  0 I:  77650  1 C:  03970  1 
01351  1 C : 73551  l C : 33657  0 


06051  0 I:  95019  0 C:  03359  C C: 

I:  77629  1 C:  73.360  0 Is  77776  1 

I:  71220  1 C:  C3970  1 C:  33657  0 C: 

I:  77615  0 C:  33657  0 C:  02299  l Is 


73510  1 
33693  c 
02299  1 
77919  0 


C : 73315  1 
03627  1 
1:  71219  0 
C:  01792  1 


3 5 , 3 5 9 0 
35, 3550 
35, 3560 
3 5 ,35  7C 


C:  73551  1 
C : 1 5725  0 
33695  0 
06001  0 


0 3621  1 
I : 77776  1 
09616  1 
900  7 6 1 


03599  1 
02937  0 
C:  20977  l 
79796  1 


03552  0 
31970  0 
03566  1 
00006  1 


06051  0 
55969  1 
03571  1 
13566  C 


39777  1 
03601  0 
05369  0 


03656  1 IS  77629  1 
09616  1 C : 01736  1 
30005  1 55162  1 
09C29  3 05515  0 


35,3600  C:  0CC97  1 30005  1 
35,36  10  C:  t*  3969  1 C0006  1 
35,3620  13613  1 37756  1 
35,  3630  23965  1 55615  0 


55162  1 05369  0 C:  09029  0 
23963  1 33691  1 09616  1 
710  10  0 00006  1 13626  1 
31615  1 09615  1 C:  20977  1 


06051  0 Is  52019  0 C:  00670  0 
C:  23977  1 1600  1 1 01963  1 

29002  0 00002  0 00006  1 

16001  1 01965  1 13632  1 


35  ,3690  C:  C1595  3 

35, 3650  C : 0006$  0 

35,3660  C:  C 125?  0 

35  ,3670  C 552 7 1 


C:  0 1967  0 
C:  20650  0 
f:  25253  1 
C : $03  1 


C:  01972  1 
C:  12525  0 
C : 13939  0 
05369  0 


C:  01973  0 
C:  12525  0 
C : 1 6 1 62  0 

C:  00006  1 


C:  01521  C 
C:  00009  C 
35026  0 
15272  1 


C:  09055  0 
C:  21505  1 
05072  1 
05332  0 


C:  19991  0 
C : 77777  C 
C:  03290  1 
C : 0007  7 1 


C:  37325  1 
C : 61337  1 
C:  79067  C 
13705  1 


35, 3720 
3 5,  3730 


09679  0 
05369  0 
13739  0 
00006  1 


62323  1 
00003  1 
39737  0 
13791  1 


13712  1 39737  0 59055  0 
15272  1 : 9 69 5 1 55163  3 
70106  1 10000  0 13791  1 
33793  1 096 1 6 1 C:  20629  0 


39750  1 
39616  l 
39797  1 
16001  1 


35  ,3790  13717 

35,  3750 

35,3760  a 

35,3770  SI 


31163  1 09690 

5 3 

a a 

a a 


00203  0 c:  03799  0 C:  03795  1 CKSM  95377  0 3 

3 a a a a 

a a a a a 

a a a a a 


GAP:  ASSEMBLE  REVISION  56  OF  AGC  PROCRAM  ZERL  INA  BY  ZOROASTER 


9:12  OCT.  21  ,197C 


PAGE  1701 


DOTAL  LISTING  FOR  PARAGRAPH  # ?1C, 

MTH  1 

PARITY  l 

31  T 

I N BINARY  , 

AT 

T EE  ! 

RIGHT  OF 

EACH 

W3RD,  » 

DENOTES  UNUSED 

FI  XED  MEMORY 

ALL  VALID 

WORDS  ARE  1 

BASIC 

INSTR  UCTIONS 

EXCEPT  THOSE 

MARKED  "I  " 

(I  NTERPRETIVE 

OPE  RAT  CR  WORDS) 

OR  "C 

" (CONSTANTS) 

36,  2000 

C:  01056 

0 

C:  37167 

0 

C 

: 00457 

1 

C: 

03250 

0 

c 

: 77777 

0 

C 

: 77731 

1 

C : 

00307 

0 

C : 

11040 

0 

36,29  10 

C:  00161 

1 

C:  C 5 2 1 A 

0 

C 

: 77777 

0 

C : 

77755 

0 

C 

: 00003 

1 

C 

: 99999 

1 

C: 

00026 

0 

C: 

30  60  5 

1 

3 6 ,2020 

C:  00013 

D 

C:  1 A 30  3 

1 

C 

: 00030 

1 

C: 

00014 

l 

c 

: C1512 

C 

12327 

1 

1261  1 

1 

13961 

1 

36,  20  30 

15272 

1 

12150 

0 

C 

: 00000 

( 1 

C: 

02102 

0 

c 

: 66067 

0 

1240  2 

1 

12562 

0 

12523 

0 

. 

C:  C 1 A50 

1 

12327 

1 

12613 

0 

1 3046 

1 

15272 

1 

12150 

0 

C: 

04300 

9 

C: 

93666 

1 

36,2050 

C : 7A066 

l 

12372 

1 

12562 

0 

12506 

1 

13122 

1 

12153 

0 

C : 

77776 

1 

C : 

02407 

3 6,  2 06  0 

C:  6A066 

0 

12  AO  A 

l 

12566 

1 

C : 

01450 

1 

1 2324 

1 

12613 

0 

13046 

1 

15272 

1 

36,2070 

12153 

0 

C:  04526 

1 

C 

: 03666 

1 

C: 

7 40  66 

1 

12372 

l 

12562 

0 

12540 

0 

13421 

1 

36,2100 

C:  01676 

0 

12327 

1 

12611 

1 

12776 

1 

1 52  72 

1 

12153 

0 

C : 

043CO 

0 

C : 

02102 

0 

36 ,21  10 

C:  660  67 

0 

1 2a  0 2 

1 

12562 

0 

12465 

0 

c 

: 01477 

1 

12327 

1 

126  1 1 

1 

13061 

1 

36,2120 

15272 

1 

12122 

0 

12123 

1 

12124 

o 

12125 

1 

12402 

1 

12562 

0 

12533 

1 

36,  2130 

0536A 

0 

: 

0 

34755 

1 

55507 

0 

1 

0 

4616 

1 

C: 

73715 

0 

00006 

1 

36  ,21  AC 

3 1 AA2 

1 

5 35  1 2 

1 

00004 

0 A 6 7 A 

- 

36, 21 50 

AA762 

1 

04616 

1 

C 

: 74663 

1 

0695  1 

0 

I 

: 45345 

1 

c 

: 0?44? 

0 

C : 

3 5 1A  2 

0 

C : 

34041 

0 

36,2160 

C:  6106A 

1 

T:  A5C1A 

0 

c 

: 03347 

1 

C : 

74202 

1 

c 

: 27042 

1 

I 

: 64375 

1 

C: 

00025 

0 

C: 

01732 

0 

36,2170 

I : 77762 

1 

C:  25724 

1 

C: 

: 00017 

1 

I: 

64  3 12 

0 

c 

: 01732 

0 

c 

: 35716 

1 

C : 

71743 

1 

C: 

16310 

1 

36,  2200 

C:  00015 

0 

C : 00041 

1 

I 

: 77624 

1 

C: 

2 75  53 

1 

1221? 

1 

00006 

1 

31557 

1 

53442 

0 

36  ,2210 

00906 

1 

33  1a  2 

c 

21442 

0 

5 2 1 5^ 

1 

53500 

1 

99996 

1 

43750 

1 

21590 

1 

36, 2220 

00006 

1 

31590 

0 

05310 

0 

C: 

02242 

1 

C: 

: 74067 

0 

05364 

0 

C : 

20254 

0 

05332 

0 

36, 223C 

C:  00077 

1 

15155 

1 

44762 

1 

55162 

1 

06051 

0 

I 

: 51575 

1 

C: 

0 3561 

0 

C : 

03472 

0 

3 6 , 2 2 AO 

I : 77776 

1 

15155 

1 

33750 

0 

0 5204 

1 

C 

: 

c 

05364 

0 

C : 

40154 

0 

44752 

l 

, 

55162 

1 

51455 

1 

40006 

0 

00096 

1 

652  72 

0 

33144 

0 

05204 

1 

C : 

02270 

0 

36,2260 

350  27 

1 

05072 

1 

C 

: 02265 

1 

C : 

74067 

o 

15272 

1 

94616 

1 

C: 

20457 

0 

1 51  55 

1 

36,2270 

35027 

1 

05072 

1 

C 

: 92275 

0 

C: 

74067 

0 

15272 

1 

1 

04616 

1 

C: 

20466 

l 

rJffO 

33143 

1 

05204 

1 

c. 

: 02354 

1 

44762 

1 

55162 

1 

51455 

1 

30006 

1 

00006 

1 

6 2 3 27 

9 

r 5477 

0 

05204 

1 

C : 

0 2 3 5 C 

0 

36257 

1 

54001 

1 

46257 

9 

52752 

0 

36,  2320 

A0025 

1 

55052 

0 

51455 

1 

00001 

0 

4010  6 

1 

74737 

1 

26106 

1 

00006 

1 

36,2330 

51455 

1 

30010 

0 

53253 

0 

347  52 

0 

54001 

1 

4 4 75  2 

1 

5 276 0 

1 

40025 

1 

36 ,23A0 

55060 

1 

00006 

1 

34755 

1 

52754 

0 

10762 

c 

15272 

1 

04635 

0 

C: 

71661 

0 

36,  2350 

02656 

0 

05364 

0 

c 

• 1 

0 

l C|  < ' 72 

1 

00096 

1 

34755 

1 

52756 

1 

33750 

0 

3 6,23  60 

05  20A 

1 

C:  C ?-AP  7 

0 

05527 

1 

C: 

001  53 

0 

05527 

1 

c 

: 99154 

1 

05527 

1 

C: 

99  122 

0 

36, 2370 

51  A55 

1 

r 9C  1 1 

1 

10756 

1 

12402 

1 

34736 

1 

05105 

0 

C : 

02535 

0 

C : 

56067 

0 

; ap  : 
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3:TAL  LISTING  FOR  PARAGRAPH  H 2 I I , HTH  PARITY  BIT  IN  BINARY  AT  TEE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALIC  WORDS  AR  F BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I N TFR  PRE  TI  VF  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


36,2400 
36,2410 
36  ,2420 
36,  2430 

36,2440 
36,  245C 
36, 2460 

3- ,2470 

36, 2500 
• 

36,2520 
36,  2530 

36  ,254C 
36, 2550 
36,2560 
. 

. 

36,  2620 
36, 2630 


05364  0 
74737  l 
C:  72367  0 
12433  0 

02C11  0 
70111  1 
44742  0 
30005  1 

34755  1 
C0D06  1 
C:  05014  1 
55540  0 

44744  0 
C : 00153  0 
■ : 62 
0 5515  0 


C : 00175  1 
C:  75561  1 


C:  00053  1 
26  1C  3 1 
05340  0 
51455  1 

64737  0 
54111  1 
70  1C  4 0 
55  162  1 

55346  0 
12540  0 
C:  77777  0 
35016  0 

70111  1 
05527  1 
02652  1 
C:  00161  1 

C : 74662  U 
30005  1 
15155  1 
C 55 1 5 C 


44760  0 
05332  0 
C:  40C33  0 
00012  1 

OOOOfc  1 
00006  1 
54104  0 
40105  1 


54111  1 

C:  00154  1 
00006  1 
05515  0 

4 476  5 0 
12614  1 

C5364  0 
C:  00312  1 


55  lo2  I 
C : 00077  1 
C:  0 5014  1 
40101  o 

Olcll  o 

31515  1 
51455  1 
74743  1 

34752  0 
05214  0 
35015  0 
30005  1 

34743  C 
35527  1 
34755  1 
C:  00175  1 

55162  1 
44762  1 
C:  0000  3 1 
02644  0 


05364  0 
12425  1 
C : 77777  C 
74745  1 

00006  1 
53442  0 
00013  0 
26105  1 

55623  0 
C:  03675  0 
54C03  C 
55162  1 

70076  1 
C:  00161  1 
52760  1 
34751  0 

05364  0 
55162  1 

00004  0 
C:  00310  0 


C:  40074  C 
31422  1 
34  740  0 
2610  1 0 

30025  0 
00006  1 
00006  1 
00006  1 

12540  0 
C : 72067  0 
31412  1 
00006  1 


10000  0 
C 5 3 6 4 0 
15272  1 
55513  0 

C:  00004  0 
05527  1 
06C32  0 
05515  0 


15272  1 
05214  0 
70103  1 
44355  1 

53342  1 
30025  0 

33136  0 
30025  0 

40101  0 
05340  C 
55536  1 
33140  1 

13522  0 
C : 40054  1 
04635  0 
10764  0 

15155  1 
C:  00161  1 
C : 73675  1 
C:  00314  1 


40103  1 
C:  0 3675  0 
10000  0 
00006  1 

44735  0 
21442  0 
53253  0 
53442  0 

74740  1 
C:  4003  3 0 
31413  0 
53253  0 

05527  1 
05232  1 
C:  73664  1 
12602  0 

51455  1 
05527  1 
04674  0 
34753  1 


36  ,2640 
36, 7 650 
36,2660 
3 6 , 267C 


00004  0 
C60C1  0 
26111  1 
52155  1 


05204  1 

1 5 5 -■  -• 

00002  0 

I 


C:  02354  1 
44746  1 
34755  1 

40025  1 


15155  1 
70111  1 
55162  1 
20155  1 


30002  0 
54111  1 
04645  1 
07271  1 


05533  1 
00002  0 
55060  1 
34777  1 


400C0 

40111 

00006 

54002 


00006  1 
74746  1 
31442  1 
52155  1 


36, 2720 
35 ,2730 


05340  3 
11162  1 
C:  00144  0 


C:  40 C 36  0 
12732  1 
12716  l 


3001*1 
13C00 
37727 
347  55 


64752  0 00004  0 05204  1 C:  02716  0 
31060  0 04640  1 40025  1 55064  0 
0 50  72  1 C:  02736  1 C:  74067  0 05232  1 
52764  0 15272  1 00006  1 4 U42  0 


36,2740 
• 7 

36,2760 
36,  277C 


53454  1 
40CC0  0 
C:  20474  1 
13027  0 


QC006  1 
00003  1 
13012  0 
12764  1 


30025  0 
50000  1 

12607  0 
51455  1 


21454  1 
13010  1 
12622  1 
30000  1 


00C04  0 
44755  0 
33145  1 
04616  1 


11162  1 
55066  1 
04616  1 
20466  1 


15155  1 
30371  1 
C:  2 0 4 6 C 1 
44743  1 


15155  1 
04616  1 
13012  0 
55066  1 


; ap 
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OCTAL  LISTING  FOR  PARAGRAPH  # 212,  U TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  •'  C " (CONSTANTS) 


36,  30,00 

. 

3 6 ,30  20 

36,  30  30 


51455  l 
C:  20  4 57  0 
0 6032  0 
C:  04024  0 


30000  1 

15155  1 
C:  74350  1 
34755  1 


04616  1 C:  20474  1 
03014  1 16001  1 


05364  0 C:  00001  0 
55162  l 35023  0 


13012  0 13040  1 13043  1 
00004  0 33006  1 23141  1 
30005  1 55162  1 C1141  1 
05105  0 C:  02642  0 C:  64065  0 


04616  1 
02652  1 
05364  0 
15155  1 


36,3040 
36,  3C50 
36,3060 
3 6 ,3  "i  70 


05515  0 C:  00154  1 

03222  0 C:  74067  0 

15155  1 35027  1 

046:74  0 C:  40  2r.  5 1 


13101  0 

00004  0 

05 1 05  0 
03014  1 


00004  0 
04674  0 
02416  0 
05364  0 


51455  1 00003  1 34644  0 
C:  40205  1 03014  1 05364  0 
C:  30067  0 05527  1 C:  00  175  1 
C:  07024  0 C:  17000  1 C:  02416  0 


05105  0 
C : 00134  1 
00004  C 
C:  30067  0 


36, 3100 
36 ,31  10 
36,3120 
36,  3130 


15155  1 

40103  1 

74737  1 

10000  0 

13115  0 

34753  1 

00004  0 

05204  1 

02433  1 

34360  0 

54001  1 

40000  0 

52760  1 

44762  1 

55  162  1 

15155  1 

05600  1 

r<  • 1 

35006  1 

04616  1 

C:  20477  1 

16001  1 

13130  1 

13122  1 

51455  1 

COO  1 4 1 

C : 02  040  1 

C:  02050  0 

C:  02063  0 

C:  0 2417  1 

C:  62067  1 

C : 03455  0 

3 6,3140 
36, 31 50 
36,3160 
36  ,3  170 


C:  70067  1 C:  00000  1 

33132  1 55455  0 

40111  1 74737  1 

06051  0 I:  43175  0 


C:  05656  1 C: 

30106  0 
10000  0 

C:  34001  1 C: 


04672  0 C:  00752  1 C:  01475  0 
74737  1 10000  0 13120  C 
32022  0 62023  1 55251  1 
02663  0 C:  03735  C I : 77735  0 


05364  0 C: 

04616  1 C : 

34751  0 
260C2  1 I: 


04024  0 
11241  0 
55513  0 
70476  0 


36,  3200 
3 6 , 3 2 1 0 
36, 3220 
36, 3230 


C:  37743  0 C:  56246  1 
03212  0 1 2 1 30  0 

C : 54125  0 011411 

04616  1 C:  20636  0 


77624  1 
00006  1 
30005  1 
03255  0 


1 

1 


55162  1 
13240  0 


77776  1 
00003  1 
00006  1 
03222  0 


00004  0 
05527  1 C: 

32060  C 
05364  0 C: 


04674  0 
00124  0 
53253  0 
000 14  1 


40143  0 
04616  1 
33751  1 
15155  1 


36  ,3240 
36, 3250 
36,3260 
36,3270 


OC  004  0 
20463  1 
34755  1 
06001  C 


04674  0 
03255  O 
55462  1 
33133  0 


13255  1 
30005  1 
55455  0 


04674  0 
03246  1 
55162  1 
04616  1 


C:  40141  1 00003  1 33752  1 04616  1 

13235  1 00006  1 32110  0 53253  0 

00004  0 04674  0 C:  40115  0 00003  1 

C.:  11241  0 34755  1 55507  0 55510  0 


36,  3300 

36,331c 
36, 3320 
36,3330 


1 

0 

0 

0 


C : 
C: 


55162  l 
7 1 2 1 4 0 
03  73  5 0 
40154  0 


05105  0 
C:  00700  C 
I : 77624  1 
04674  0 


C:  03366  1 
C:  75317  0 
C:  56246  1 
C:  40  141  1 


C : 7406  7 0 
C : 34017  0 
I:  77624  1 
03212  C 


05340  0 
C : 37735  l 
C:  56413  1 
DS051  0 


C:  00116  1 
C:  75322  0 
I : 77776  1 
I:  45175  0 


C : 04024  0 
I:  77745  1 
00004  0 
C:  0370  1 1 


3 6 , 3 3 4f 
36,  3350 
3 6 , 3 3 6 c 


36,  33  70 


C:  57266  1 
C:  04C24  0 
13352  1 


C: 


03502  0 

12137  1 
33752  1 


65155  0 00006  1 


77776  1 
34777  1 
046 16  1 
41442  0 


33752  1 04616  1 C : 20447  l 

04615  1 C:  01736  1 31162  0 

C:  20447  1 35017  1 05146  1 

53454  1 00006  1 30025  0 


05340  0 
64752  0 
3116?  0 
21454  1 


00076  0 
00006  1 
00036  l 
06051  0 


iAP: 
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OCTAL  LISTING  FOR  PARAGRAPH  « 213,  hi  TH  PARITY  81  T I N BINARY  AT  THE  RIGHT  OF  EACH  WORD,  " 3"  OENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  8AS  IC  TNSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NTRR  PRE  TI  VF  OPE  RAT  CR  WORDS)  OR  "C"  (CONSTANTS) 


3 6,  3400 
15,341 
36 ,3420 
36,  34  30 


45175  0 
13366  0 
0312  0 1 
77214  0 


C:  03701  1 
05364  0 
04516  1 
C : 01 C7?  0 


C:  57266  1 C: 

C : 04024  0 

C:  11241  0 

C : 34007  1 C: 


36000  1 
03735  0 


77776  1 
55455  0 
55251  1 
52135  1 


34777  1 
43136  1 
34751  0 
26001  1 


55513  0 
75177  1 


01736  1 
10000  0 
06051  3 
04616  1 


36,3440 
36, 345C 
36, 3460 
3:6,3470 


C:  11261  3 
05364  J 
C:  03513  0 
I : 77624  1 


06051  0 
C:  05314  1 
C:  74C67  0 
C:  57266  1 


77624  1 C:  27547  1 
77777  0 33006  1 
12344  1 06051  0 
33623  0 I:  77776  1 


30155  0 05204  1 
33755  0 53253  0 
53375  0 C:  33532  0 
06042  1 06051  0 


C345C  3 
34736  1 
03525  0 
77775  1 


15155  1 
05105  0 
03656  1 
03656  1 


36,  3500 
36,35  10 
35,  352C 
36, 3530 


035C2  0 I : 77776  1 
06001  0 13513  1 
77776  1 03504  0 
05527  1 C : 00154  1 


04635  0 C:  66102  1 
13235  1 06051  0 
31515  l 03735  C 
05527  1 C:  00044  1 


33753  0 04616  1 

I : 77775  1 C : 05520  0 

05204  1 C : 03542  1 

05364  0 C:  43  114  1 


C:  20636  0 06001  0 

C:  03623  0 C:  03532  0 

05527  1 C:  00153  0 

05232  1 C : 00062  0 


36  ,3540 
36, 3550 
36,3560 
36,357' 


02652  1 05272  0 

C : 74C67  0 34753  1 

02652  1 00006  1 

C0006  1 02011  0 


04674  0 C:  75545  1 
05214  0 c:  03606  l 
30025  0 53342  1 
64736  1 00006  1 


05272  0 34644  0 

C:  74066  1 40103  1 

44745  1 73 1 3 1 0 

01C11  0 40111  1 


05105  3 C:  03222  3 
74745  1 26103  1 
5410  1 0 44355  1 
74736  0 26111  1 


36,  3600 
36,3610 
36, 3620 
36, 3630 


C:  03763  0 


54055  0 
I:  4 50  20  1 
I : 45345  1 
C:  03432  1 


34750  1 
C:  03665  1 
C:  01234  0 
C : 03765  0 


00005  1 
C:  56447  C 
C:  33763  0 
I : 77776  l 


05014  1 
I : 43014  0 
I:  50025  0 
10754  0 


04707  0 
C : 01307  1 
C:  03432  1 
13653  0 


04674  0 
C:  03665  1 
C : 75656  0 
34737  0 


C:  40205  1 
C:  03705  0 
I : 43  345  1 
00004  0 


36  ,3640 
36,  36  50 
36,3660 
36,  3670 


05105  3 

r : C 3 76 5 0 
C:  01234  1 
C:  75611  0 


f:  02706  1 
C : 27763  0 
C:  37452  0 
I : 77776  1 


C:  56067  0 
C : 01220  3 
C:  03665  1 

00004  0 


0 5340  0 
C:  2631 4 0 
06051  0 

35016  0 


C:  C0172  C 
C:  01226  0 
I : 77650  1 

54003  0 


C : 0402  5 1 
C:  02322  n 
C : 03665  1 
40076  1 


06051  0 
I:  45345  l 
060  51  0 
74743  1 


I:  77745  1 
C:  03631  0 
I:  77624  1 

10000  0 


36, 3720 
36,3730 


52155  l 
C:  0 354  2 1 


05527  l 
00006  1 
05340  0 


74745  1 1 GOOD  0 13707  0 04635  0 C: 

C:  00044  l n 5 5 1 5 0 C:  00161  1 00004  0 

40025  1 20155  1 07271  1 30155  0 

f.  : 40114  1 C:  04025  1 13705  1 10003  0 


66102  1 04674  0 
00006  1 31442  1 
03735  0 05204  1 
13741  1 13741  1 


3 6 , 37  4C 
36,  3750 
36,3760 


34755  1 
C:  OF  764  1 
CKSM  67364  1 


64753  1 
C:  04050  0 
a 


5600 1 0 
C : 04125  0 


34755  l 

C:  04123  0 C: 


53515  0 
03463  0 C: 


3 


3 


3 


31515  1 
74067  0 
3 


00002  0 C:  00000  1 

03756  0 C : 03757  1 

3 3 


36,  3770 


3 


3 


3 


3 


3 
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OCTAL  LISTING  FOR  PARAGRAPH  if  214,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


3 7,  20  00 

37,2020 
3 7,  20  3C 


C : 07623  1 
55441  0 
6051 
55044  1 


C:  26552  1 
55576  C 
I:  62545  1 
32473  0 


C:  02403  1 
04616  1 


C:  30007  0 
55571  1 
C:  1 50  46  l 
C:  20477  1 


02325  1 
32476  r 
02401  0 
02273  0 


34755  1 
32367  1 
77434  1 
02037  1 


55414  0 
34736  1 
C:  21576  0 
02031  1 


5 5440 
5 5664 
56154 
06051 


37,2040 

17,2360 
3 7,2070 


I:  47135  3 
I : 77752  1 
C:  16705  1 
C:  16745  0 


C:  01045  1 
C:  16437  0 
I:  77746  1 
34736  1 


C:  21560  1 
C:  02403  1 
C : 02677  0 
70077  0 


C:  02401  0 
I:  72556  1 
I : 77676  0 
00006  1 


I : 605  35  1 
C:  16435  1 
C:  36703  0 
12076  0 


C : 01046  1 
C:  02401  0 
C:  47351  0 
25414  1 


C:  02403  1 
I : 73406  1 
I:  77776  1 
05527  1 


I:  57546  1 
C : 02675  1 
04616  1 
C:  33056  1 


3 7,  2100 
37,211 
37,  2120 
37,  21  30 

37,2140 
37, 2150 
37,2160 
37,2170 


02315  1 
C:  76065  3 
55047  1 
C2447  l 

51415  3 
05155  0 
C:  02151  0 
02447  1 


11414  0 

32116  0 
31504  1 
24361  l 

54037  1 
00006  1 
34736  1 
31412  1 


02126  0 
05133  0 
55050  1 
55476  1 

55472  0 
27412  0 
05105  0 
03006  1 


02323 

32116 

51416 

32474 


02332  1 
31412  1 
C : 02166  1 
62175  0 


00006  1 
05137  1 
55420  1 
55412  0 

00004  C 
00006  1 
C:  76065  0 
C 5155  0 


31575  1 
35272  3 
02457  0 
34753  1 

34752  0 
62161  0 
35272  0 
34756  1 


05310  0 
C:  76 5 CO  0 
51414  1 
55  5 37  0 

05204  1 
34742  1 
51414  1 
55537  0 


C:  02113  0 
34755  1 
02130  1 
34755  1 

C:  32151  0 
05204  1 
02170  0 
02332  1 


37,  2200 
37,2210 
37, 2220 
37,2230 

37,2240 

!f 

37 ,2260 
37, 2270 

37,2320 

37,2330 

37,2340 
37,  23  50 
37,2360 
37,  2370 


11473  1 
06351  3 
C : 02477  1 
02457  0 

44747  0 
27563  1 
30032  3 
05527  1 


00006  1 
16661  1 

62346  1 
30037  0 
04102  D 
12372  1 


C 2205  1 
I:  45345  1 
I : 47075  0 
32471  1 

27565  1 
2 4 4 7 1 
55413  1 
C : oL 

00006  1 
' 

23571  0 
02311  0 

05122  0 
61571  0 
5 1537  1 
55571  1 


05706  0 
C:  02501  1 
C:  37056  0 
5541  2 0 

34747  1 
34755  1 
02500  0 
44755  0 

23571  0 
C:  17715  1 
04616  1 
00006  1 

00004  0 
00006  1 
55473  1 
34755  1 


41476  1 
C:  02475  0 
C:  21574  1 

51416  0 

27567  0 
55404  1 
31502  1 

05325  0 

34755  1 
03C47  1 
C:  17155  0 
23417  1 

51415  0 
12335  1 
51537  1 
50001  0 


55476  1 
I : 45044  r 
C:  0 10  50  0 
4l4l 7 0 

12251  1 
55405  0 
55050  1 
05503  1 

54321  0 
01571  0 
02311  0 
02342  0 

40037  1 
51415  0 
2 347  4 1 
54000  0 


00006  1 
C : 7621 7 1 
1 : 77776  1 
55442  0 

44747  0 
34733  1 
34755  1 
I : 43215  0 

54322  0 
00006  1 
00006  l 
00003  1 

55571  1 
30037  0 
00003  1 
24001  0 


41473  1 
C:  76275  0 

11414  0 

11415  1 

27  56  5 1 
5544C  1 
55047  1 

C : 0<  5 

54323  1 
23571  0 
23571  0 
30067  0 

00004  0 
51537  1 
01417  1 
11571  1 


21477  0 
I:  56325  0 
02301  1 
12245  1 

34747  1 
55441  0 
02457  0 
C : 37064  1 

046 1 6 1 
02311  0 
04616  1 
00006  1 

51415  0 
55472  0 
5400 1 1 
12371  1 
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OCTAL  LISTING  FOR  PARAGRAPH  $ 21*5,  WITH  PARITY  (II  T IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOPDSI  OR  "C"  (CONSTANTS) 


57, 2400 
37,74  i: 
37,2420 
37,  24  30 


G00G2  0 
C:  36001  0 
I : 47  i20  0 
C:  76  77*5  O 


I : 6534(5  0 
C:  0741 1 5 1 
C:  0 0 C 5 1 0 
I : 74261  l 


C:  37057  1 
1 : 77634  0 
C:  21555  1 
C 5 20212  1 


C:  5 2433  1 I:  57546  1 

C : 21555  1 C:  26433  1 

C:  02431  0 I:  51025  1 

C:  02405  1 I:  53321  1 


I:  73525  I 
C : 37357  1 
C : 02433  1 
C:  02643  1 


C : 02403  1 
C:  C 2564  1 
C : 76431  0 
C:  02564  1 


I : 74266  0 
I:  776  1 6 0 
I : 77624  1 
C : 16564  1 


37,2440 
37, 2450 
37, 2460 
3 7 , 2 4 7<" 


C 243 1 3 c:  02433  1 
23420  C C6C51  0 
23417  1 31416  0 
12461  1 C:  07S26  1 


47170  1 C:  02563  0 
77624  1 C:  7642C  3 
5505 1 0 3247?  1 
31542  0 C:  01451  0 


C : 21667  0 T : 77650  1 C: 

I:  77776  1 C2315  1 

04616  1 C:  23477  1 

C : 00072  1 C : 02737  C C : 


00051  3 
Cl 42  0 0 
0 2270  C 
C 1 6 6 4 1 


30336  1 
000C6  1 

0l4l7  1 
31642  3 


37,  25CO 
3 7 ,2510 
37,  ?S2C 

37,2530 


000C4  0 
00303  1 

C:  25477  1 
I:  50076  0 


C : 37070  1 
C:  76534  1 


05204  1 
55571  1 
C:  26445  0 
T : 77624  l 


C:  32536  0 
33076  0 
C:  37057  1 
C:  76401  3 


34755  1 
02367  1 
C:  00325  C 
I : 77776  1 


540 37  1 
36051  0 
C:  C 1472  1 
0 30  35  1 


54040  1 
I:  77735  0 
I : 77735  C 
31576  1 


54041  0 
C:  37057  1 
C:  02441  1 
00006  1 


3 7 ,2540 
37, 2550 
37,2560 
37,2570 


12542  1 05272  0 

61562  1 00006  1 

C:  02536  0 34755  1 

56041  1 54330  0 


11530  1 30000  1 55531  0 40000  0 55530  1 44753  0 
12556  1 31412  1 00006  1 62562  1 31572  0 05204  1 
56037  0 54324  0 34755  1 55040  0 54326  1 34755  1 
34736  1 C 5 10  5 0 C:  02577  C C:  76065  0 05272  0 11562  0 


37,  2620 
37,2630 


02602  1 
C:  ■'  3 25  3 
I : 76001  l 
C:  02532  1 


02604  1 
1:  765C5  0 
C:  00001  0 
C:  76644  0 


04616  1 
C:  02643  1 
C:  00010  0 
I : 72174  0 


C:  15271  1 
I:  57545  1 
I:  57535  0 
C : 00014  1 


36051  0 
r : 00160  C. 
C:  02563  0 
C:  02444  1 


IS  77745  1 
C : 1 6523  1 
I:  77640  0 
I:  62143  0 


C:  37066  0 
C:  00162  1 
C : 76772  1 
C:  02243  0 


C:  24051  0 
C:  02527  0 
I : 50135  0 
C:  77775  1 


37,2640  C:  12545  0 

37,  ?6 50  C : 37  100  1 

37,2660  I:  77732  1 

37,  267C  C : 75324  0 


I:  66104  1 C:  76635  0 
I : 43661  1 C : 2 12 12  0 
I:  45425  0 C:  7l21fc  1 
C:  75240  0 C:  12453  0 


c:  02444  1 Is  77770  1 

C:  02501  1 C:  06501  0 

C : 06563  1 T : 771 00  0 

is  77  104  1 C:  76667  1 


C : 00010  ( I : 41343  0 

I:  40725  0 C:  37102  0 

f : 76646  1 C:  00004  0 

C : 00010  C I : 66140  1 


C:  02533  0 
C:  02521  0 
I:  56743  1 
C : 02445  0 


37,  2720 
3 7 ,27  30 


C:  u 244 5 
C:  7531* 
C:  37  1C  5 
I:  64743 


0 

0 

1 

0 


I : 66743  1 

f:  752  3 0 1 
C:  75216  0 
C:  02523  1 


C 

C 


: 02450  1 

: I 

: 42772  0 


C : 75216  0 
I : 4267?  0 
C:  75256  1 
I : 55523  0 


I : 776 1 3 D 
C.  : 75216  C 
C:  12521  1 
C:  02531  1 


C:  75276  0 
C : 75266  1 
I:  76104  0 
I : 76521  0 


C:  125C  1 0 
C:  12511  I 
C : 76676  1 
C:  ( 20C  1 1 


I:  42743  1 
I:  40743  0 
C : 0001C  0 
I:  77745  1 


37, 2740 
37,  2750 
3 7 ,2760 
37,  2 770 


C:  00155  0 
I:  7770C  0 
Is  77722  0 
I : 77704  l 


C:  06531  0 
C : 76730  1 
I:  73406  1 
C:  76755  1 


I:  77745  1 
I : 76174  1 
IS  56072  1 
I : 77776  1 


C:  00160  0 
C:  00005  1 
C:  00C46  0 
35016  0 


C:  06521  1 
C:  00002  0 
C : 10021  0 
54003  0 


I : 77745  1 
I:  57343  1 
I : 777*5  1 
01400  1 


C : 00162  1 
C:  02503  0 
I : 77746  1 
114  12  0 


C:  06523  0 
C : 37110  0 
C:  10027  0 
03034  0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 216,  MTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMURY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


3 7,  30  00 

1 1440 

1 

13003 

0 

03005 

1 

300.32 

0 

55414 

0 

06051 

0 

I : 

65345 

0 

C : 

02473 

0 

3 7,3010 

C: 

0 2477 

1 

I: 

55525 

0 

C : 

02601 

1 

I : 

74276 

1 

C: 

37110 

c 

I : 

74521 

1 

C: 

C 264  3 

1 

C: 

02  74  0 

0 

3 7, 30  2C 

I : 

77776 

l 

32475 

0 

046  16 

1 

C: 

1 7 2 7 C 

l 

C 23  15 

1 

11440 

1 

02263 

1 

06051 

0 

3 7,  30  30 

I: 

77624 

1 

C : 

76401 

0 

I : 

77776 

1 

02117 

1 

55412 

3 

11440 

1 

02447 

1 

05155 

0 

3 7 ,3040 

350  H 

1 

5400  3 

0 

34753 

1 

55576 

0 

C 5600 

1 

C : 

01600 

0 

02270 

3 

33054 

0 

3 7,  3^50 

0 5745 

1 

05527 

1 

C: 

00007 

0 

05  155 

0 

C: 

0 160  1 

1 

C: 

06200 

0 

C : 

00000 

1 

C : 

00000 

1 

3 7 , ^ 3 60 

C: 

00000 

1 

C: 

00000 

1 

C : 

oocoo 

1 

C : 

00000 

1 

C: 

00001 

C 

C: 

3 3 3 3 4 

0 

C: 

00002 

0 

C: 

00220 

1 

3 7 ,3070 

C : 

77776 

1 

C: 

35730 

0 

C: 

00035 

1 

C: 

10317 

0 

C: 

1 7550 

1 

C : 

0'  11  5 

1 

C : 

01443 

3 

C: 

04133 

1 

37,  3100 

C: 

02265 

1 

C : 

57223 

0 

C : 

66451 

1 

C: 

05427 

0 

c; 

1 2577 

1 

C: 

77567 

0 

C: 

44202 

1 

C : 

24276 

1 

37,3110 

C-* 

14  066 

1 

C: 

23c  73 

1 

C: 

11773 

1 

I : 

77624 

1 

C : 

27410 

1 

I : 

77745 

1 

C: 

03442 

0 

C: 

0366  1 

0 

37,  3120 

C : 

00041 

1 

I : 

43014 

0 

C = 

01674 

0 

C: 

01673 

1 

I: 

430  14 

0 

C: 

01676 

1 

C : 

01675 

1 

I : 

77624 

1 

37, 31 30 

C: 

27133 

0 

I : 

77624 

1 

C : 

11216 

1 

I : 

77775 

1 

C : 

000  17 

1 

C: 

1 7531 

0 

C: 

00015 

0 

C: 

3404  1 

c 

3 7 ,31  AO 

C : 

27410 

1 

I: 

43014 

0 

C: 

0 1474 

1 

C: 

0 167  3 

1 

I : 

43014 

0 

C : 

01676 

1 

C : 

02756 

1 

C: 

77153 

0 

37,3150 

I : 

43014 

0 

C: 

01476 

0 

C : 

01475 

0 

I : 

77624 

1 

C: 

2 713  3 

0 

I: 

77624 

1 

C: 

11216 

1 

I : 

77775 

1 

3 7,3160 

C: 

00025 

0 

C: 

25757 

0 

C : 

00017 

1 

C: 

01101 

0 

I : 

53435 

0 

C : 

01757 

0 

C: 

240  25 

0 

C: 

03631 

0 

3 7, 31 7C 

I : 

53435 

0 

C: 

00025 

0 

C: 

27637 

0 

C: 

01101 

0 

I: 

50256 

0 

C : 

03637 

0 

I : 

77752 

1 

C: 

02732 

0 

|7»  32  00 

I: 

4^316 

0 

C : 

06510 

0 

I : 

77766 

0 

C: 

26730 

1 

C: 

01101 

0 

C: 

26655 

0 

C: 

01757 

0 

I : 

77676 

0 

3 7 ,32  10 

C: 

02744 

1 

Ii 

450  14 

0 

C: 

03666 

1 

C : 

24732 

1 

I : 

77676' 

0 

C : 

C3645 

0 

I : 

77745 

l 

C: 

30037 

0 

37,  3220 

C : 

27663 

1 

C : 

03645 

0 

I : 

77646 

0 

C: 

24025 

0 

C: 

0000  1 

0 

C: 

03653 

1 

I : 

53435 

0 

C : 

03631 

0 

37,3230 

I: 

53435 

0 

C: 

03653 

1 

I : 

76561 

1 

C : 

00025 

0 

C: 

3 7665 

0 

C : 

1121& 

1 

I: 

77624 

1 

C: 

27410 

1 

37,32 AO 

I : 

44345 

0 

C: 

03663 

1 

C: 

0366  1 

0 

C: 

25517 

0 

C : 

03653 

1 

C : 

01535 

0 

C : 

25503 

0 

C: 

03665 

1 

37,  3250 

C : 

35511 

1 

C : 

27705 

0 

I : 

451  74 

1 

C: 

00002 

0 

C: 

26660 

0 

I: 

77624 

1 

C: 

27417 

0 

I : 

77776 

1 

37,3260 

0 46  16 

1 

C: 

50040 

0 

40  103 

1 

74747 

0 

00006 

1 

13543 

1 

40104 

0 

74744 

0 

37,  3270 

00006 

1 

13544 

0 

05051 

0 

I: 

7 76  3 A 

0 

C: 

21555 

1 

C : 

34041 

0 

C : 

27056 

1 

I : 

77775 

1 

4^3300 

C: 

000  17 

i 

C: 

26161 

0 

C : 

C0025 

0 

C : 

16104 

0 

C: 

00015 

0 

C: 

02113 

0 

C: 

3404  1 

0 

C: 

27042 

1 

3 7 ,33  10 

I : 

77  7 75 

T 

C: 

oor  17 

1 

C: 

26  131 

0 

C: 

00025 

0 

C : 

02172 

l 

I : 

77776 

1 

40103 

1 

74747 

0 

37, 3320 

C00C6 

1 

13467 

0 

40104 

0 

74744 

0 

00006 

1 

1353  1 

1 

0 60  51 

0 

I : 

77634 

0 

37,3330 

C: 

Z1  555 

T 

C: 

3404  1 

0 

C : 

27410 

1 

I : 

431  75 

0 

C : 

02161 

0 

C : 

33263 

0 

C: 

255  35 

0 

C: 

02104 

0 

37,3340 

C : 

15543 

1 

C: 

02)  13 

0 

I: 

430  14 

0 

C: 

4 ?4  4 

0 

C: 

77346 

0 

C: 

00063 

1 

I : 

77614 

I 

C : 

01473 

0 

37,  3350 

C : 

355  17 

1 

C : 

27106 

0 

I : 

77775 

1 

C: 

00001 

0 

C : 

26200 

1 

r: 

03007 

0 

C: 

36206 

0 

C : 

27410 

1 

37  ,3  160 

I : 

71214 

D 

C: 

0 1473 

0 

C: 

00015 

0 

C : 

00041 

1 

I : 

43175 

0 

C : 

02 131 

0 

C: 

00263 

3 

C: 

25535 

0 

37,  3370 

C : 

02172 

1 

C : 

15543 

l 

C: 

0211  3 

0 

I: 

430  14 

0 

C: 

04344 

0 

C : 

77377 

l 

C : 

00063 

1 

C : 

35517 

1 

3AP:  ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZFRLINA  BY  ZOROASTER  9:12  02  T.  21,1970 

OCTAL  LISTING  FOR  PAFAGRAPH  # 217,  Vil  TH  PARITY  BI  T I N BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UN  USED 


ALL  VALID  WORDS  APF  P.ASIC  INSTRJCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WOPDS) 


OR  "C"  (CONSTANT 


17,  14Cr 
37 f 341 
17, 342G 
37,  34 30 


I : 
is 


C : 
C : 


06512  1 
C0CO7  0 


C : 00001  0 
C : 00007  0 
I:  77624  l 
1 : 4731 5 O 


C:  02200  1 
I : 50251  1 
C:  47666  1 
C:  00001  0 


41505  1 
02206  1 


C:  21706  0 
I : 77752  1 
C : C l 732  C 
I:  50235  0 


C:  00045  0 
C:  26216  C 
I : 72431  1 
C:  00001  n 


37,1440  I:  77715 

37,  3450  C : 00007 

37,3460  71043 

37,34  7 C-  05146 


1 i:  7524  1 1 C: 

0 C:  77456  0 I: 

00006  1 

1 06C51  3 t: 


000C7  0 C : 00015 

45345  1 C:  06526 

15503  0 41043 

40  375  1 C:  0 1220 


0 I : 65512  1 C : 

0 C:  02220  0 C: 

0 74740  1 

0 C:  OOCOi  0 C : 


26220  0 C:  00001  0 
02220  0 I : 77776  1 
27043  0 13316  1 
26200  1 C : C 1226  0 


37,  3500 
37,351c 
37,3520 
37, 3530 


C:  01724  1 
1:77 

I : 40206  1 
C:  77363  1 


I : 65315  0 
C:  03347  1 
C:  00001  0 
06051  0 


L : ri’yt'i  \ 
is  77650  1 
I : 77634  0 


C:  01234  0 
I:  60505  1 
C:  77401  1 
C : 21555  1 


I:  77776  1 
C : 01732  C 
I:  77624  1 
C:  34041  0 


350 15  0 
1 : 77715  1 
C:  27410  1 
C:  27056  1 


05146  1 
Is  76505  0 
I : 52014  r, 
I:  77650  1 


37,1540 
37,  1550 
37,3560 
37,  3 5 7C 


40102  0 74744  0 
C0CC4  0 40107  0 
13561  1 34753  1 
00006  1 3CC25  0 


00006  1 13467 
75015  1 26107 
55650  1 05527 
53644  1 00006 


0 06C51  0 I : 

0 4616  1 C: 

1 C : 00252  1 

1 30033  1 


52034  1 C : 21655  1 
53516  0 04616  1 
05364  0 C:  00001  0 
53646  0 30034  0 


17,  36  00 
3 7 , 16  1 ° 
37,  3620 
1 7,3630 


30037  0 55650  1 00006  1 
67343  1 C:  02777  1 C:  00047  1 
41552  0 Is  44316  0 C:  27753  0 
26026  1 I:  65361  0 C:  03535  1 


30041  1 53652  3 05272  0 
is  7764C  0 C:  77643  0 I:  50375  0 
Is  56325  0 C*.  26024  0 C:  00043  0 
I:  41205  0 C:  26030  0 C:  33341  1 


I:  4 1456  0 
C : 06512  1 
C : 00041  1 
I:  76561  1 


37,3640 
3 7,  36  50 
37,3660 


I : 4545^  1 
C : 566 15  0 
30025  0 


C:  74260  0 I:  41455  0 
I : 4556  1 1 C : 7421  6 1 
52315  1 03713  1 


I:  60  345  0 C:  C0C43  C 
I : 77616  0 05515  C' 

03656  1 52155  1 


C : 00050  1 I : 53663  l 
C:  03054  0 00004  0 

5231  7 0 00004  0 


37,  367C 


17142  0 05527  1 C:  00007  0 


35527  1 C:  00010  0 


34741  1 00006  1 


mm 

3 7,  17  20 
3 7,373 r 


■ 5164  0 

13  705  1 
34747  1 
10000  7 


54001  1 
24 156  0 


20000  0 
13705  1 
34755  1 
00156  0 


03733  0 C:  76060  0 34774  1 0461 6 1 
00006  1 22156  C 04103  1 00003  1 
20155  1 44346  0 73  155  1 56155  0 
44741  0 00006  1 33q13  3 00004  0 


17,  1740 
1 7,  1750 
7 7 ,3760 
3 7,  17  70 


54001 

07321 

34  74  2 


0 

1 


05527  1 


52025  1 
14755  1 
26154  C 
00054  0 


00006  1 
06001  0 


33736  0 00006  1 40317  0 20155  1 

07271  1 10154  0 03762  1 C'3762  1 

30315  0 2C155  l 07271  1 52155  1 

C:  03773  1 C:  03774  0 CK  SM  43503  0 3 
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I : 77657  0 
C:  02200  1 
C:  00001  3 
C : 00015  C 


is  51041  0 
34747  1 
37722  1 
C:  26206  l 


06051  0 
C:  01732  0 
C : 01673  1 
C:  77352  0 

C:  77305  1 
C:  17713  1 
05155  0 
55647  1 


C:  03535  1 
C:  33535  1 
I : 41205  0 
C:  06512  1 


C:  26020  1 
00006  1 
34616  1 
05013  0 

C:  20624  0 
52155  1 
74346  0 
34755  1 


34742  1 
03760  0 
20025  1 
3 
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OCTAL  LISTING  FOR  PARAGRAPH  II  220,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  APE  1 

3 AS  IC 

INS T RJ  CT  IONS 

EXCEPT  THOSE 

MARKED  "I" 

( INTERPRET!  V E 

OPERATOR  WORDS) 

HR  "C 

" (CONSTANTS) 

40,  2000 

00006 

1 

30036 

1 

52155 

1 

3 b05 1 

0 

I: 

77624 

1 

C:  46065 

0 

C : 

00001 

0 

C : 

14007 

0 

4 : ,2010 

C:  06520 

3 

C: 

240  1 1 

1 

C: 

00007 

0 

I : 

77656 

1 

C : 

00007 

0 

I : 77641 

l 

C: 

06512 

1 

C: 

24021 

1 

40,2020 

C : 06516 

0 

I : 

77641 

1 

C: 

00007 

0 

C: 

34023 

1 

C: 

47316 

0 

I : 43244 

1 

C : 

60030 

1 

C : 

06526 

0 

40, 2030 

C:  26174 

1 

C : 

0C001 

0 

I : 

77641 

1 

C: 

06514 

1 

C: 

24023 

0 

C:  00001 

0 

is 

7764  1 

1 

C : 

00007 

0 

• 

C:  34021 

3 

C: 

47  316 

0 

I: 

43244 

1 

C: 

60045 

0 

C : 

06526 

0 

C:  02172 

1 

I : 

77776 

1 

34777 

1 

40, 2050 

C 4 6 1 6 

l 

C : 

OL  736 

1 

34747 

1 

7 10  43 

0 

10000 

0 

02000 

0 

0 5 503 

1 

34753 

1 

• , ! ( 

570  11 

0 

54115 

0 

11041 

1 

02065 

0 

0207? 

o 

42136 

0 

60  154 

1 

00006 

1 

40,2070 

12072 

1 

04374 

0 

56154 

1 

54117 

1 

50000 

1 

02076 

1 

03465 

0 

02155 

1 

02,155 

1 

02155 

1 

02155 

1 

02155 

1 

02155 

1 

02155 

1 

02141 

1 

02141 

1 

4 o , 2T 1 c 

0-3465 

3 

0 346  5 

0 

03465 

0 

03465 

0 

03465 

0 

03465 

0 

C2153 

1 

32343 

1 

40,2120 

03643 

0 

C3465 

0 

03465 

0 

03465 

0 

0 3465 

0 

03465 

0 

03465 

0 

03521 

1 

43,2130 

0 2 376 

1 

02363 

0 

02137 

0 

03465 

0 

02456 

1 

02357 

1 

C: 

00022 

1 

04635 

0 

4 ,21 40 

C:  62  02? 

O 

10776 

o 

0 ? 146 

02146 

70777 

40,  21 50 

1 oooc 

0 

02155 

1 

03465 

0 

34755 

1 

54117 

1 

10776 

0 

02162 

0 

02162 

0 

43 ,21 60 

02161 

3 

05  155 

0 

02313 

1 

11014 

1 

34755 

1 

5 5014 

1 

02167 

0 

50117 

0 

40,21 70 

34066 

0 

74346 

0 

54124 

1 

30776 

1 

54143 

o 

0 33  5 3 

1 

362  57 

1 

70777 

1 

i 0,  22 

10000 

0 

02212 

1 

50137 

1 

57000 

0 

54022 

0 

40022 

0 

40022 

0 

56022 

1 

4 0 ,22 1'O 

60  1 1 7 

0 

02227 

1 

50137 

1 

57000 

o 

541  54 

o 

34755 

1 

54165 

1 

34  36  3 

0 

40,  2220 

C7321 

0 

56155 

0 

601  17 

0 

54155 

1 

02227 

1 

26154 

c 

02245 

0 

50137 

1 

43,2230 

55000 

1 

4 077  6 

c 

50137 

1 

62304 

1 

00006 

1 

12237 

1 

0230  1 

1 

36257 

1 

40,2240 

70777 

1 

10000 

0 

02245 

0 

40776 

0 

02302 

1 

04616 

1 

C : 

60250 

0 

02243 

0 

40, 2250 

44  75? 

0 

60137 

1 

00006 

1 

62243 

0 

02313 

1 

50  137 

1 

31000 

0 

54155 

1 

40,2260 

07115 

3 

C: 

023  1 1 

0 

36257 

1 

70777 

1 

50000 

1 

02  2 65 

1 

02272 

1 

30036 

1 

40, 2270 

401  56 

1 

52156 

1 

56156 

0 

50  137 

1 

55003 

1 

56155 

0 

50137 

1 

55000 

1 

. 

046  3 1 

1 

l C 77 6 

0 

54  776 

0 

05155 

0 

C: 

00022 

1 — 

C:  03020 

0 

C: 

000  12 

1 

C: 

00005 

1 

4 0 ,2  3 10 

C:  00000 

l 

C: 

Oc  1 7 4 

0 

C: 

13261 

0 

50776 

1 

3231  7 

0 

54137 

0 

0000  2 

5 

C: 

00004 

0 

40,  2320 

C:  00004 

0 

C : 

00004 

0 

C : 

00004 

0 

C: 

3 0 004 

0 

C: 

00303 

1 

C : 3 3 

1 

C: 

00003 

1 

C : 

00003 

1 

43  ,2330 

C:  0000-3 

1 

C: 

0000  2 

0 

C: 

00002 

0 

C: 

00002 

0 

C : 

00002 

0 

C : 03002 

o 

C5706 

o 

C: 

3303  1 

o 

40, 2340 

C : 00001 

0 

C : 

000  30 

1 

C: 

00000 

1 

34755 

1 

55000 

1 

34360 

0 

54776 

0 

02570 

1 

43,2350 

34753 

1 

54777 

l 

34755 

1 

55012 

1 

34217 

1 

54136 

1 

05  155 

0 

34755 

1 

40 ,2360 

55331 

3 

34361 

1 

02346 

1 

02435 

1 

02422 

1 

34752 

0 

50137 

1 

64745 

0 

40, 2370 

26777 

1 

1101  4 

1 

34755 

1 

550  14 

1 

02375 

1 

05155 

0 

C2435 

1 

02402 

0 

i AP  : 
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^ OCTAL  LISTING  FOR  PARAGRAPH  H 221.  hlTH  PARITY  RIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  " S'*  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WOROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MAR<  ED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 


4i>,  2400 
- . ,241 
40,2420 
40,  2430 


34753  1 

54122  1 
03435  0 

54123  0 


02366  0 
3475  5 1 
1 

C2411  1 


22002  0 
54124  1 
22002  0 
C : 00005  1 


02313  1 
56123  1 
32313  1 
C : 00003  1 


50137  1 
C 3 4 3 5 O 
50137  1 
C:  0OO00  1 


32430  1 
3 4 7 a 1 1 
32430  1 
2 2002  0 


"C"  (CONSTANTS) 


54123  0 

54124  1 
54122  1 
36257  1 


64753  1 
56122  0 
64753  1 
70777  1 


* 

> 


4 ,2440 
40,2450 
43,2460 
40.247C 


10000  0 
C 5 1 5 5 C 
02462  0 
02  4 71  1 


05155  0 
6C776  1 
64  75  3 1 
30137  1 


44317  1 
00006  1 
50000  1 
02516  1 


0 2451 
12455 
32317 
02511 


44320  0 02451  0 
00002  0 0300  1 0 
54137  0 113 14  1 
1 C 137  C 54137  0 


02474  1 
0251 6 1 


32451  3 
64753  1 
02471  1 
32566  0 


40, 2500 
> 40  ,25  If 

40, 252C 
41 ,2630 

I 

4 0,25  40 
40,  7 5 50 
) 40,2560 

4C, 2570 


27012  1 
54 1 37  0 
C0C02  0 

6C  137  1 


05706  0 
550OQ  l 


54125  0 00006  1 
25014  0 05155  0 
05  1 5 5 0 33032  0 
50137  1 55003  1 


27000  1 04616  1 C:  62367  1 
22002  0 02527  0 67760  1 
54776  C 22002  0 02313  1 
54124  1 53137  1 44745  1 


72567  0 54777  1 50137  1 32557  1 64143  C 03353  1 50137  1 
54776  0 02570  1 44752  1 26776  0 02570  1 50137  1 34315  1 
00001  3 C:  00016  0 C:  00005  1 C:  00004  0 C:  C0015  0 C:  ODOll  1 C:  00003  1 
3C776  1 54021  0 42603  1 33004  0 50021  1 57022  0 00006  1 


30 125  1 
10030  0 
34755  l 
70777  1 

32562  1 
54776  0 
77774  0 
62601  1 


' ',1,2600  250  15  1 00CO3  l 

4 ,2610  02674  : 0271  2 1 

4u , 2620  40154  0 64753  1 

> 41  ,2630  40000  0 76257  0 


00002  0 C:  04000  0 34755  1 54156  1 C2701  0 
02614  0 02604  1 30154  1 74733  0 00006  1 
54154  0 30002  0 00006  1 00033  1 00006  1 
54154  0 02726  0 02664  1 40110  3 74751  1 


02611  C 
12623  3 
74742  0 
10000  0 


40,2640 
4 , 2650 
4 O ,2660 
4 ,2670 


02646  1 52155  l 20001  1 20001  l 20001  1 
f 2 740  0 0 2f  64  1 00006  1 42663  1 20155  1 
52155  1 02646  1 C:  COCCI  0 C:  01150  1 34733  1 
60000  1 74753  0 54154  0 33032  0 00006  1 


52155  1 07115  0 
34363  0 C7321  0 
7C154  0 54155  1 

50156  0 32723  0 


00123  L 
52156  1 
30  154  1 
52124  l 


40,2700 
4 0 ,2  710 
4 , 272C 
43,2730 


00002  0 
50002  3 
2n 155  l 
0 4416  0 


10154  0 
00031  0 
02  731  0 
04635  0 


00002  0 
03006  l 
C : 05605  1 
C:  626.15  1 


00002  0 
5C156  0 
C:  03656  1 
62124  1 


12705  0 
32723  C 
C:  16314  0 
52156  1 


44735  0 
52155  1 
C:  31463  1 
04415  0 


70 154  0 
07321  3 
52124  1 
0 2740  0 


54154  0 
52124  1 
52155  1 
02752  0 


4 , 2 7 4 C 
40,  2750 
41;  ,?76« 


4r , 2770 


56156  0 56155  3 
0 32 10  1 0 27?  1 0 
00162  1 32625  1 
02402  0 30154  1 


541 54  0 
56002  0 
401  54  0 
03337  0 


02731  0 
54162  0 
00006  1 
46257  0 


02752  0 
03034  0 
62770  C 
50  117  0 


02731  0 
07271  1 
02422  1 
64317  0 


02752  0 36254  1 
07115  0 C:  00123  1 
40154  0 12772  0 
54776  C 03004  0 


i AP : ASSEMBLE  REVISION  56  OF  AGC  PROGRAM  ZERLINA  BY  ZOROASTER 


JCTAI  LISTING  FOR  PARAGRAPH  U 222,  WITH  PARITY  BIT  IN  BINARY  AT  THE 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


4 , 3000 

* , 

AC*,  3C2C 
AO,  3030 


30155  0 
030  2 A 1 
52155  l 
C3032  O 


03337  0 
50 1 17  0 
3A755  1 
G3A51  1 


0A635  0 
3015C  C 
5A156  1 
00006  1 


C: 


001AA  0 
501A5  1 


AO  ,3 OAO 
AO,  30  50 
A3, 3060 
AO, 30 70 


3A7  5 5 1 
3A7A1  1 
OAAOA  0 
03100  0 


5A 1 56  1 
03053  l 
101 5 A 0 
1 3 1 5 A 0 


07271  l 
AA7A1  0 
03066  1 
05706  0 


0332A  1 
60  155  0 
03066  1 
03123  1 


AO,  3100 
AC  , 3 1 1 C 
AO, 3120 
A3, 3130 


50 1 AO  1 
00006  1 
0A616  1 
0 30  77  1 


: 

C:  26161  0 


C 


03106 

30707 


AA733  0 
07115  0 


•o  ,3Ho 
AO, 3150 
A? ,3160 
AO, 3170 


00006  1 
C 3 1 A 3 1 
03222  0 
56155  0 


1 31  A3  0 0A1A5  0 

071 1 5 0 C : 00123  1 
0323  1 1 50  1 AO  1 

50002  0 5A001  1 


0 3220  1 
56156  0 
03163  o 
03113  1 


A",  3220 
A 3 ,3230 


36  2 5 A 1 
56002  3 
c 6 1 5 5 0 
00002  0 


C3210  1 03153  0 07115  0 

5A12A  1 56002  0 5A123  0 

60000  1 5A155  1 00002  0 

10162  0 0A1A5  0 00002  0 


A , 32  AO 
AC  , 32  5C 
AO ,3260 
AO,  3270 


03250  0 
02 AC 2 0 
3A7  33  1 
5A137  0 


03250  0 
001  AA  0 
52155  1 
3A363  0 


6 A 7 5 3 1 
00006  1 
00002  0 
07321  0 


5A15A  0 
3331 6 0 
56002  0 
50  15 A 1 


AO ,3320 
A J ,3330 


m6  0° 

5 A 1 1 5 i 
36257  1 


56155  0 
03270  1 
03235  0 
03A3S  0 


5A15A  0 
AA36C  l 
3 A 753  1 
3a  75  1 0 


56776  1 
5A776  0 
13270  1 
03a35  C 


AO, 3 3 AO 
AO,  3350 
AO  ,33  60 
A, 3370 


733A7  0 
03337  0 
56021  1 


2215A  1 3A755  1 
0 A 6 3 5 0 C : 62376  1 
5A 1 A 1 1 3A753  1 


CA  3 AO 


5 A 1 2 A 1 3A736  1 


5A155  1 
56002  0 

70 1 A3  0 
701A3  0 
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RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
PRETIVE  OPFRA  TOR  WORDS)  OR  "C  " (CONSTANTS) 


56002 

0 

5A1AA  1 

50  1 AO 

1 

03007 

o 

043 1 3 

1 

33306  1 

50000 

1 

3000  1 

0 

30  1 A 5 

1 

0 301 5 0 

501A0 

1 

03027 

1 

3000  1 

0 

52155  1 

3 4317 

0 

5A776 

0 

00136 

0 

07115  0 

C : 

03131 

1 

10  155 

1 

0 3222 

o 

04A0A  0 

OAAOA 

o 

03231 

1 

A Of  00 

0 

5 A 1 5 A 0 

10  162 

0 

03125 

1 

C3C75 

0 

5615A  1 

7A733 

0 

5 A 1 5 A 

0 

03136 

0 

0 3 120  1 

AOOOO 

0 

6A75  2 

0 

63225 

1 

0A616  1 

C: 

6310A 

1 

0 3 10  A 

1 

0 30  77 

1 

A015A  0 

7A733 

o 

AOOOO 

o 

0012  3 

1 

55156  0 

56  155 

0 

56 1 5A 

1 

60000 

1 

5A156  1 

3A755 

1 

60155 

0 

0317A 

0 

33117  0 

60  1 A 5 

1 

5A002 

1 

3A755 

1 

03166  0 

07115 

o 

C : 

00123 

1 

00123 

1 

3A752  0 

03210 

1 

03153 

0 

CAAOA 

0 

10123  0 

0321  3 

1 

00  12A 

0 

6015A 

1 

5A15A  C 

00002 

0 

5A162 

0 

0A1A5 

0 

5 S 03 2 0 

5A  1 AA 

1 

10  1 5 A 

0 

02A22 

1 

AO  15  5 1 

5A155 

1 

001  AA 

0 

23155 

1 

03006  1 

13262 

0 

00006 

1 

5A 1 1 5 

0 

03235  0 

03252 

1 

3A75  1 

0 

3A066 

0 

7A3A6  0 

5A12A 

1 

3A755 

1 

5Al  A3 

0 

10000  0 

5A776 

0 

03353 

1 

00115 

1 

C : 00000  1 

C : 

C2A76 

0 

56002 

0 

56002 

0 

5A115  0 

3 A 7 5 5 

1 

5A12A 

1 

03235 

0 

3A323  1 

0 3270 

1 

00006 

1 

56002 

0 

5A115  C 

03322 

1 

C: 

002AA 

0 

5A11A 

1 

3A3A6  1 

701  A3 

0 

5A021 

0 

10000 

0 

03367  0 

03377 

1 

5612A 

0 

10000 

0 

3A752  0 

6A753 

1 

5AIA3 

0 
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► OCTAL  L ISTING  FOR  PARAGRAPH  V 223,  WITH  PARITY  91  T IN  RINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  WORDS 


} 


ARE  BASIC 


INST  RJ  CT  IONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 


»C"  (CONSTANTS) 


4u,  3400 
4)  ,34  If 
> 40 ,3420 

4 ',  34  30 


C0004  0 
73431  ■ 
60124  C 
CO  114  0 


5ol  4 1 
00006 
40030 
OOC37 


0 

1 

0 

0 


11022  1 33405  0 05706  0 

60124  0 00006  1 1 3427  1 

50  14  1 0 57022  0 00006  1 

C:  01740  0 C:  02 OOP  0 C:  03740  1 


64753  1 
5D143  1 
63427  0 
54141  1 


54142  1 
43431  0 
25C15  1 
34752  0 


50143  1 
70142  1 
00003  1 
54143  0 


40  ,3440 

56002  0 

54 114  1 

03400  0 

03353  1 

33446  1 

04640  1 

C:  63463  0 

40,3450 

54776  0 

4 34  72  1 

60136  0 

30006  1 

13467  0 

43471  1 

60136  0 

43 ,3460 

13462  0 

C 346 5 C 

04204  0 

04364  1 

04124  1 

04364  1 

05155  0 

40  ,1470 

C:  21501  0 

C:  04124  1 

04202  0 

34753  1 

55013  0 

042  04  0 

04457  0 

44360  1 
00006  1 
05653  1 
04433  1 


4 1 , 3 SC  O 

43,3510 


40, 3520 
4°, 3630 


0 36C  7 0 
13465  1 
C : 00026  0 
C 35  37  0 


44753  0 
34755  1 
44751  1 
04457  C 


03474  0 41000  1 
55012  1 44360  1 
00006  1 03011  1 
11041  1 03535  1 


63520  0 00006  1 
54776  0 03473  1 
10115  0 34736  1 
05155  0 04635  0 


26000  0 00006  1 

44755  0 03474  0 

71 02  C 0 10000  0 

C:  21051  0 34755  1 


40,3540 
40, 35 5C 
4.7 ,3560 
4m,3570 


55''  1 1 l 11041  1 
03567  0 34317  0 
03567  0 34321  0 
10000  0 000C2  0 


05155  0 04502  1 
02524  0 34752  0 
02524  0 30132  1 
50002  0 00002  0 


C5155  0 30776  1 
03567  0 34320  l 
54776  0 52131  0 
34362  1 56776  1 


54132  : 34753  1 
02524  0 34751  0 
05177  0 70123  0 
54140  0 l 101C  0 


4 >,  3600 
4 f ,3  6 1< 
40,  362  C 
4? ,3630 


05155  0 
5400  1 1 


03337  0 
05165  0 

03637  0 
31000  0 


03604  0 
34755  1 
34752  0 
50064  0 


02570  1 
57C41  0 
50064  0 
52155  1 


56140  1 
00004  C 
60164  1 
00003  1 


54776  o 
G 5 1 3 7 1 
50064  0 
04457  0 


05155  0 
11013  0 
54164  0 
05155  0 


11041  1 
03641  1 
31001  1 
34755  1 


4 ’,3640 
4 , 3650 
4 0 ,366' 

' 7 


03 62 3 0 
05011  1 
6530'  1 
54110  0 


347  5 J 1 
3373?  1 
44742  0 

06022  1 


03623  0 56115  1 55011  1 00004  0 34742  1 00006  1 
71035  1 64735  1 55035  1 45026  1 71300  1 65026  0 
71277  0 64742  1 55277  0 43731  0 70110  D 64745  0 
44742  0 03006  1 03013  0 43730  1 00006  1 03011  1 


40,3700  34363  0 
40,3710  40000  0 
4^,3720  C0003  1 
4 3,3730  C:  GO  104  l 


54117  1 
73733  1 
10117  1 
C:  0O330  1 


C 


00004  0 
03716  1 
03701  1 
00050  1 


50117  0 
40C00  0 
34755  1 
: 73777  1 


11-22  1 
73733  1 
543  75  1 
35015  f 


64753  1 
40000  0 
54376  l 
05105  0 


03713  1 64753  1 
50117  0 55022  1 
55357  0 05155  0 
03262  1 C:  76067  1 


40, 3740 
40,  3750 
4 ,3  760 
4 , 3770 


05232 
C:  C3754 
055  74 


1 

l 

1 


C : 00144  0 
C : 60107  1 
13754  0 
5 


31043  1 74740  1 00006  1 13740  0 35017  1 05072  1 

15272  1 C:  04066  0 33753  0 04616  1 C:  20334  1 05574  1 

03762  1 C:  03763  0 CKSM  5530C  15  3 3 

3 3 3 3 3 3 


3AP:  ASSEMBLE  REVISION  56  OF  AGC  PRC  GRAM  7ERLINA  BY  ZOROASTER 


9:  12  GST.  21,1970 


PAGE  1713 


OCTAl  LISTING  FOR  PARAGRAPH  n ??4,  WITH  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSFD  FIXED  MEMORY 
ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROS)  OR  "C " (CONSTANTS) 


4 1,  2000 

35017 

1 

C 5 1 0 5 

0 

C: 

02000 

0 

C: 

60  104 

1 

34740 

0 

05  146 

1 

32017 

0 

04616 

1 

♦ 1,2010 

C: 

2U  353 

0 

C 5574 

1 

05574 

1 

05574 

1 

34751 

0 

05475 

1 

05  155 

0 

C: 

04070 

1 

41 ,202C 

036  04 

0 

0 3 C 4 5 

0 

34755 

l 

550  14 

1 

34217 

1 

54136 

1 

11012 

l 

02062 

1 

4 1,  20  30 

C2062 

1 

020.3  2 

1 

32060 

0 

6 1012 

0 

00006 

1 

12047 

1 

36257 

1 

70777 

1 

41,2040 

10(00 

0 

020^.3 

1 

02047 

0 

10776 

0 

02053 

0 

02053 

0 

02047 

0 

410  12 

1 

41, 2050 

55012 

1 

0 443  3 

1 

01012 

0 

34755 

1 

54154 

c 

04616 

1 

C : 

60254 

1 

02047 

0 

4 1,  23  60 

C: 

0 3471 

0 

C : 

00034 

0 

34755 

1 

54777 

1 

44360 

1 

54776 

0 

41000 

1 

55040 

0 

41  ,2  070 

6206  1 

1 

00006 

1 

62163 

1 

00006 

1 

32141 

1 

52  006 

0 

5014C 

1 

02077 

0 

41,  2100 

02102 

0 

02246 

0 

10146 

0 

02156 

1 

02400 

1 

02111 

1 

25016 

1 

04311 

0 

'♦1,2110 

02145 

3 

34735 

1 

550  14 

1 

44217 

0 

60136 

c 

00006 

1 

12120 

1 

02143 

0 

41,2120 

02336 

0 

10777 

1 

0 4 145 

0 

44360 

1 

54776 

0 

11041 

1 

02131 

0 

02132 

0 

41,  2130 

02131 

0 

C4427 

1 

57004 

1 

04303 

0 

00006 

1 

32141 

1 

52006 

0 

02160 

1 

4l  ,2140 

C: 

02101 

3 

C: 

64  10  1 

0 

C: 

77772 

0 

30  156 

0 

04303 

0 

44756 

0 

61000 

0 

00006 

1 

41,  2150 

12160 

0 

34321 

0 

54776 

0 

310  16 

1 

0 3435 

0 

02160 

1 

64753 

1 

04303 

0 

4 1 , ? 1 60 

42172 

0 

61000 

0 

10000 

0 

64753 

1 

02166 

1 

02173 

0 

54154 

0 

04457 

0 

41,2170 

04635 

0 

C: 

66000 

1 

C: 

00050 

1 

5 1000 

0 

32176 

0 

04640 

1 

C : 

62400 

1 

C: 

62414 

1 

4 1,  2200 

C: 

6242? 

1 

C : 

62427 

1 

C : 

62407 

0 

C: 

62402 

0 

C: 

62552 

1 

C:  61026 

1 

C: 

62400 

1 

C : 

62400 

1 

41,2210 

C: 

6 145  1 

3 

C: 

6 330  2 

0 

C: 

63302 

0 

C : 

63302 

0 

C : 

6 3 302 

0 

C : 63302 

0 

C : 

63  302 

3 

C: 

6330  2 

0 

41,  2220 

C : 

62400 

1 

C : 

62400 

1 

C: 

62400 

1 

C: 

63002 

0 

C : 

6 3013 

0 

C:  63030 

1 

C : 

62753 

1 

C : 

62647 

0 

'+  1, 22  30 

C: 

62400 

1 

C: 

6 3425 

L 

C : 

62400 

1 

C : 

62400 

1 

C: 

63526 

0 

C:  53552 

0 

C: 

6 1 5 1 6 

1 

C: 

61473 

0 

41  ,2240 

C : 

61501 

1 

C: 

63653 

1 

C: 

12464 

1 

C: 

63470 

1 

C : 

62400 

1 

C : 62400 

1 

10146 

0 

02253 

1 

41,  2250 

02400 

1 

02253 

1 

02253 

1 

46254 

0 

61000 

0 

00006 

1 

62260 

1 

02160 

1 

4 1,2260 

34752 

3 

54  117 

1 

62305 

0 

54145 

0 

501  1 7 

0 

3 015  0 

0 

54122 

1 

0 310  4 

1 

41, 2270 

02306 

0 

02273 

0 

24  122 

0 

30122 

0 

74356 

1 

04313 

1 

5000C 

1 

30000 

1 

50  145 

1 

56C0C 

1 

10117 

1 

02261 

0 

02160 

1 

0012.5 

1 

50000 

1 

1231c 

0 

4 1 ,2310 

00002 

3 

00002 

0 

00  30  2 

0 

00002 

0 

1 23  30 

1 

12330 

1 

OOOC  2 

3 

12339 

1 

4 1,23  20 

OOOC? 

0 

00002 

0 

12330 

1 

00002 

0 

0000? 

0 

0000  2 

0 

00002 

0 

00002 

0 

4 1,2330 

50002 

0 

OOOC  1 

0 

34317 

0 

12337 

0 

3432c 

1 

12337 

0 

343  21 

0 

54776 

c 

41,2340 

40002 

1 

55012 

1 

046  16 

1 

C: 

60525 

0 

04427 

1 

00136 

0 

55001 

0 

56002 

0 

41,  2 35C 

c4  1 17 

l 

00006 

1 

32141 

1 

5 2 005 

0 

10146 

0 

64753 

1 

12361 

0 

12362 

0 

4 1 ,2  3 60 

12362 

3 

043p  3 

0 

34  361 

1 

54776 

0 

31001 

1 

12374 

1 

55000 

1 

56002 

0 

41, 2370 

54117 

1 

34360 

0 

54776 

0 

31000 

0 

04635 

0 

C:  61350 

0 

00117 

0 

04  145 

0 

► 
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► OCTAL  LISTING  FOR  »AFAGRAPH  » 225,  KITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACHWORO,  "9"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS 


41, 2400 
4 1 ,24in 

Alt  24  20 
41,  2430 


H4635  0 
02453  l 
56130  0 
C2466  1 


02434 

50145 


EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


44753  0 
40002  1 


50  145  1 

02472  1 
50145  1 
44752  1 


4J00 2 1 
02515  1 
40001  1 
6 1000  0 


56132  1 
50  145  1 
C2420  0 
10000  0 


44753  0 
40000  0 
44752  1 
02442  1 


4 1 ,2440 
41, 2450 


41,2460 
> 41  ,2470 


00  1 36  3 
03435  0 
60  123  1 
02472  1 


02442  1 
56122  0 
10000  C 
02455  1 


54122  1 
02436  1 
00001  0 
D0006  1 


54123  0 
05706  0 
22156  0 


34317  0 
2200  2 0 
02400  1 
0254^  C 


54  776  0 
02544  0 
33031  0 
74  73  6 0 


50122  3 
04331  1 
54123  0 
10000  3 


40  130  1 
76257  0 
22002  C 
32400  1 


41,2*10 
41, 2520 
41, 25  3' 

4 1 ,2540 
41, 2550 
41,2560 
41 ,2570 


00156  0 22002  0 
C 2544  3 10000  0 
00006  1 12533  1 
00001  0 24145  l 

40000  3 1 2420  1 
74350  1 OC 002  0 
50000  1 40000  0 
54156  1 50117  0 


02544  0 7473 6 0 
0000 1 0 00001  0 
50140  1 02523  1 
00C01  0 31016  1 


C:  00 147  0 C : 00  146  1 
02544  0 34331  1 

50122  0 57002  1 

34317  C 54776  0 


1O000  0 04145  0 
02400  1 22002  0 
02526  1 00001  0 
75004  1 00006  1 


50 140  1 32541  0 
76257  0 54117  1 
10122  1 02556  0 
50117  0 41002  0 


00001  0 22002  0 

30146  1 64753  1 

03076  0 02306  0 

50000  1 00000  1 

50000  1 33030  1 

54122  1 60145  1 

34755  1 54155  1 

54154  C 03117  0 


) 


41,  262C 
> 4 1,26  30 


54123  0 0G0n6  1 32614  0 52006  0 50140  1 02605  0 02611  0 

02624  3 03076  0 02624  0 C:  02137  0 C:  64101  0 04616  1 C:  61263  1 

02622  0 00136  0 54117  1 02566  0 50000  1 32627  0 04640  1 

C:  62615  1 C:  606C4  0 C:  60726  1 C:  60737  1 C:  60744  C C:  63524  1 C:  60746  1 


03104  1 
10117  1 
C : 6 1447  1 
C:  65236  0 


4 1 ,.-64  0 
41,  2650 
4 1 ,2660 
41,2670 


C:  6531  1 1 C:  60.744  0 
02453  1 C25C7  1 

33060  1 02366  0 

34755  1 03145  1 


C:  63733  0 C:  60761  1 
33056  1 32366  0 

02336  0 46254  0 

50  145  1 54003  0 


C:  6C612  1 C : 60634  0 
02332  1 33057  0 

03061  0 00006  1 

34753  1 03145  1 


C : 60651  0 44752  1 

02366  0 02334  1 

32141  1 52006  0 

50145  1 54001  1 


4 1,  2720 
41,2730 


50145 
? 1004 


0 

0 

1 


30000  1 
00006  1 


50145  1 54002  1 
44763  0 61C02  1 
54001  1 J4753  I 
62740  0 3 1 G03  0 


44757  1 6lG0l  1 
00006  1 62725  0 
5600?  0 64361  1 
00006  1 51302  1 


000.06  1 12711  0 
31002  1 04334  1 
00006  1 12751  1 
050C0  1 12744  0 


41  , 2 76C 
41, 277C 


41003  1 00CC6  1 

22000  I 00003  1 

f 2 332  1 33c 57  0 

52006  0 347  5 S 1 


02366  0 
03145  l 


0300C  1 11002  0 
44753  0 02453  1 
02334  1 44756  0 
50145  1 5400C  O 


10000  0 
02507  1 
0 3 061  0 
34753  1 


12751  1 
33056  1 
00006  1 
03145  1 


50145  1 
02366  0 
32141  1 
50145  1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 226,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIC  WORDS  ARE  BASIC  TNSTRJCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


4 l,  3^00 

54001 

1 

03  04  5 

0 

02332 

1 

00006 

1 

32141 

1 

52006 

0 

34755 

1 

03145 

1 

'+1,30  1? 

50  145 

1 

5 4 000 

0 

03045 

0 

44753 

0 

02453 

1 

34735 

1 

550  14 

1 

02334 

1 

41  » 3"20 

00G06 

1 

32141 

1 

52006 

0 

34753 

1 

03145 

1 

50145 

1 

54001 

1 

03045 

0 

tl,  3 3 

44752 

1 

02453 

1 

34735 

1 

55C1  4 

1 

02336 

0 

00006 

1 

32141 

1 

52006 

0 

4 1 ,3040 

34752 

0 

03145 

1 

50145 

1 

54002 

1 

03045 

0 

34755 

1 

54777 

1 

44755 

0 

41,3050 

5501  3 

0 

04457 

0 

44360 

1 

54775 

0 

C 4635 

0 

C: 

61607 

1 

C : 

00025 

0 

C : 

00026 

0 

VI. 3360 

C: 

000  27 

1 

54  117 

1 

40777 

1 

54021 

0 

40021 

0 

40021 

0 

10000 

0 

13071 

0 

Vi  ,3  070 

ODOO  2 

0 

6011  7 

0 

00006 

1 

13075 

1 

04145 

0 

00002 

0 

560G2 

0 

54114 

1 

41,  3100 

34347 

0 

70147 

1 

04322 

0 

00114 

0 

56002 

0 

54114 

1 

50117 

0 

33136 

0 

41,3110 

54001 

1 

501  17 

0 

34346 

1 

701  53 

1 

50001 

0 

00000 

1 

00114 

0 

56002 

0 

41,  3120. 

54114 

1 

50140 

1 

03122 

0 

03141 

0 

50117 

0 

33136 

c 

54001 

1 

50117 

0 

41,  3130 

34346 

1 

7C  1^7 

1 

50001 

0 

00000 

1 

60000 

1 

00  114 

0 

03075 

0 

04322 

0 

4 1 ,3140 

043  31 

1 

34  346 

1 

70147 

60000 

1 , 

5411  7 

l 

5 0 ( 2 

0 

5411  5 

g 

41, 3150 

34755 

L 

54162 

0 

50117 

0 

57005 

0 

54  155 

1 

50  L l 7 

0 

57002 

1 

54154 

0 

41,3160 

50  140 

1 

0 3161 

1 

03207 

1 

50117 

0 

30150 

0 

74356 

1 

043C  3 

0 

00006 

1 

41,3170 

60117 

0 

54145 

D 

10777 

1 

0 3244 

0 

02501 

1 

03104 

1 

02306 

0 

03225 

1 

1 

30145 

1 

26117 

1 

34755 

1 

50117 

0 

53777 

0 

03225 

1 

04311 

0 

4 1 ,3210 

1C  777 

1 

0 3244 

0 

02501 

1 

0 3076 

0 

0 2 306 

0 

03221 

0 

34755 

1 

54117 

1 

41,  3220 

C32  00 

0 

30146 

l 

64753 

1 

00006 

1 

13231 

0 

56154 

1 

00115 

1 

C : 

02  145 

0 

4 1,  32  30 

C: 

64  101 

0 

44757 

l 

61016 

1 

00006 

1 

1 3045 

1 

31016 

1 

7 500  4 

1 

56154 

1 

V 1 ,3240 

00006 

1 

50154 

1 

01000 

0 

03045 

0 

03117 

0 

54123 

0 

000  C 6 

1 

33230 

0 

4 1,  32  50 

5 21  C i 

0 

50140 

1 

03252 

1 

03256 

0 

03104 

1 

03257 

1 

03076 

0 

50000 

1 

4 1 ,3260 

33262 

1 

04640 

1 

C : 

62377 

0 

C: 

61143 

0 

C : 

61045 

1 

C : 

61133 

1 

C: 

61151 

o 

C: 

6 1176 

o 

41,  327C 

C : 

61451 

0 

C: 

61151 

0 

C: 

65460 

0 

C: 

61451 

0 

C : 

61203 

1 

C : 

61146 

0 

C : 

61451 

0 

C : 

61045 

1 

41, 33  00 

C: 

61451 

0 

0: 

61451 

0 

43311 

0 

71016 

0 

54155 

1 

40  136 

1 

64217 

1 

lOOGO 

0 

41  , 3 3 T C 

'3317 

1 

C: 

60000 

1 

03  317 

1 

34736 

1 

26155 

1 

34755 

1 

5502  1 

1 

36106 

0 

41,  3320 

7 ir  oo 

1 

04331 

l 

54022 

0 

40022 

0 

56022 

) 

61001 

1 

54154 

0 

34  75  5 

1 

- l , 

550  11 

1 

1 104  l 

1 

03334 

0 

04502 

1 

00004 

c 

110  17 

1 

03343 

0 

34753 

1 

41,3340 

05214 

0 

C: 

03347 

1 

C: 

6210  1 

0 

52155 

1 

53020 

0 

00003 

1 

00136 

0 

04400 

1 

4 1,  33  50 

1 1 C 20 

0 

03355 

1 

03  3 55 

1 

03366 

1 

03366 

1 

3 3 372 

1 

C 52  1 4 

0 

C : 

03347 

1 

41  ,3160 

C: 

62101 

0 

3435  5 

0 

05072 

1 

C: 

0 33  73 

c 

C : 

62101 

0 

05272 

0 

34755 

1 

550  17 

1 

41,  3370 

55020 

0 

0 52  7? 

0 

0: 

00144 

0 

1 1020 

0 

0 3400 

0 

03400 

0 

05155 

0 

05  155 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 227,  WITH  PARITY  R|  T IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  A RF  PASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I N TER  PRE  TI  VE  OPERATOR  WORDS!  OR  "C " (CONSTANTS) 


41, 3400 
41 ,34  in 
41.342C 
41,  34  30 


C2073  1 
5400 1 l 


03^2  3 1 
3 0 C 2 3 0 
C:  75377  3 
31016  1 


36106  0 
55000  1 
C:  04124  1 
<“4651  1 


02346  1 
54136  1 
05155  0 
05155  0 


34144  1 
43311  & 
34317  0 
54022  0 


7 1017 
7 10  20 
54776 
56002 


63421  0 
54156  1 
31046  1 
5411 5 0 


4 1 ,3440 
41, 3450 
4 1, 3460 
4 1 ,3470 


34736  1 
74757  1 
54776  0 
0-35  12  1 


26776  0 34751  0 

50000  1 34066  0 

C 4 6 3 5 0 C : 61443  0 

34747  1 60776  1 


54137  0 40022  0 
74346  0 54124  1 
10137  0 03443  1 
00006  1 13476  0 


40022  0 40022  0 
56776  1 54143  0 
44360  1 54776  0 
04145  0 34755  1 


40000  0 
100 00  0 
00115  1 
57001  1 


41,  3500 
41,3510 
41, 352C 
41,  3530 


54154  0 34361  1 
04635  0 C:  1004^  1 
C 4 6 1 6 1 C:  605 70  0 
i 035501 


54776  0 04615  1 
40002  1 55012  1 
04427  1 34753  1 
34351  1 54154  0 


C:  60570  0 44360  1 

34361  1 54776  0 

54777  1 00136  0 

44753  0 71044  1 


54776  0 
34755  1 
34753  1 
5416  0 1 


30154  1 
55001  0 
71044  1 
04457  0 


4 1 ,3540 
41 , 3550 
41,3560 
41 ,3570 


34217  1 
34354  1 
54124  1 
03560  1 


54157  0 
03533  1 
447^0  1 

00003  1 


O0CC6  1 
34352  1 
50124  0 
50  123  1 


31046  1 
54154  0 
57022  0 
0 3600  1 


52156  1 
31044  0 
1000C  0 
C 3575  0 


30160  0 
03536  1 
25015  1 
55000  1 


00004  0 
64757  0 
03567  0 
55C01  C 


00154  1 
000G4  0 
10124  1 
55014  1 


41,  3620 
41,3630 


44360 
0 2400 
30023 
0 4 202 


54160  1 
10160  1 


04433  1 03626  0 33630  1 54136  1 10123  0 
02400  1 36106  0 70123  0 54157  0 30123  1 
10157  1 03631  0 3016C  ( 02366  0 34755  1 
03636  1 30157  1 02346  1 04202  0 30 156  0 


03613  0 
54023  1 
55012  1 
54 1 6 1 0 


4 1 ,3640  30160  0 

41,  3650  30161  1 

41,3660  64753  1 

41,3670  34742  1 


02366  0 30  157  1 
54156  1 02062  1 
553G0  1 33721  0 
00006  1 05013  0 


02346  1 34755  1 
00004  G 04616  1 
00006  1 05011  1 
34363  0 54117  1 


55013  0 55014  1 

C:  66121  0 44753  0 

33722  0 55035  l 

43717  1 50117  0 


55012  1 
71300  1 
36022  l 
55022  1 


41, 3700 
4 1 , 3 7 T c 
4 1,  3720 
41 ,3730 


10  117  1 

CO  0 0 3 1 
C7675  l 
6 210  2 0 


C:  00175  1 
05272  0 


43720  0 
00004  0 
0 : 40674  0 
43723  0 


55023  0 55026  C 55030  1 34760  1 55015  0 
05214  0 C:  03725  1 C:  62102  0 C5155  3 C:  05675  D 
33115  l C:  00764  1 34355  C 05072  1 C:  03732  1 
00004  0 00006  1 33311  1 06022  1 44742  0 


41,3740 
41,  3750 
4 1 ,3760 
41, 3770 


C0006  1 

03013  0 

34750  1 

00006  1 

02012  0 

64735  1 

55035  1 

43772  1 

71300  l 

65026  0 

55300  1 

43774  1 

71277  0 

65025  0 

55277  0 

43773  0 

70110  3 

64745  0 

54110  0 

00003  1 

046  16  1 

C : 10630  0 

04204  0 

04433  1 

04635  0 

C:  61531  1 

C:  16001  1 

C:  33333  1 

C:  55000  1 

C:  03775  1 

C : 03776  1 

CKSM  03024  1 
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9:12  OS  T.  21,1970 


OCTAL  LISTING  FOR  PAP  AGRA  PH  M 230,  WITH  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UMUSED 


ALL  VAL1C  WORDS  ARE  BASIC  INST  R'J  CT  IONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONST 


42,2020 
42,  203C 


C:  26723  0 
C 550  3 1 
54156  1 
20025  1 


540"  1 1 
00003  1 


35021  1 05146  1 
60 154  1 00006  1 
52025  1 52155  1 
05503  1 C:  0U027  1 


32034  1 
12016  0 
53051  0 
C:  06233  0 


04616  1 
05533  1 
20  155  1 
34752  0 


C : 20334  1 

00004  C 

07271  1 
54002  1 


42,2040  30321  1 

42,2050  00006  1 

42,2060  Is  45014  0 

42  ,207 0 c:  43166  1 


00006  1 

72053  1 

50002  0 

56050  1 

10002  1 

12036  1 

05014  1 

15272  1 

C:  33146  1 

06051  Q 

I:  43014  0 

C : 00670  0 

00267  1 

C : 27410  1 

I : 77776  1 

05364  0 

C:  33032  0 

0000  4 0 

04574  0 

C:  40 115  0 

06011  1 

44736  0 

00006  1 

03012  1 

H'jtf  0° 

42,  2120 
42, 2130 


54140  0 
32656  0 


521  52  0 
64771  1 
51001  1 
54150  1 


51001  1 
00006  1 
33072  1 
0OC06  1 


32152  0 
62117  1 
54153  1 
50002  0 


35012  1 
32660  0 


51001  1 
54140  C 
70146  0 
52152  0 


54002  1 
52006  0 


42  ,2140 
42,  2150 
42,2160 
42,21  70 


00306  1 
32463  1 
C:  0 1143  0 
C:  01  050  0 


50000  1 
12143  1 
C:  01002  1 
C:  77777  0 


32561  1 
C:  00000  1 
C : 01363  Q 
C:  0 1050  0 


52124  1 
C:  40000  0 
C : 00375  0 
C:  GOOOO  1 


52C06  0 
C:  40000  0 
C:  77776  1 
C:  02335  0 


52124  1 
C:  40000  0 
C:  03633  1 
C : 00000  1 


00006  1 
C : 01044  0 
C:  0 10  50  0 
C : 00032  0 


42,2220 
4 2,  22  30 


C:  CC321  1 
C:  03303  1 
C : 01516  1 
C:  00022  1 


C.  : 00000  l 
C:  00030  1 
C:  00330  1 
C:  22025  0 


C : 01050  0 
C:  02133  1 
C:  64000  0 
C : 22030  1 


C:  01044  0 
C:  03441  C 
C:  32033  0 
C : 24033  1 


C:  31044  0 
T : C 1044  C 
C:  24006  1 
C:  00000  1 


C:  01362  1 
C : C3453  0 
C:  24011  1 
C:  22341  1 


C:  OOOCO  1 
C:  00024  1 
C : 64014  0 
C:  00044  1 


4 2 ,2240  C. : 24052  3 

4 2,  22  50  C : 64102  3 

4 2 , 22 6C  C:  04132  0 

42,2270  C:  64162  0 


C:  240  5 5 1 C:  02060  0 

C : 641C5  1 C : 641 10  0 

C:  04135  1 C:  02140  0 

C:  24165  0 C:  02170  0 


C:  00000  1 C:  24066  1 
C*.  24113  1 C:  62116  0 
C : 02143  0 C : 64146  0 
C:  24173  1 C:  24176  1 


C : 24071  1 C : 64074  3 

C:  04121  1 C:  64124  1 

C : 64 151  0 C:  24154  1 

C : 24201  1 C : 24204  1 


42,  2320 
42,2330 


C: 
C : 
C : 
C: 


04140 

00000 


0 

1 

0 

1 


C:  02215  C 
C:  000.'"  1 
C:  C4102  0 
C:  24400  C 


C:  24220  1 
C:  00000  1 
C. : 00504  0 
C : 02000  C 


C : 24223  1 
C:  '.4253  1 
C:  33504  0 
C : 24400  0 


C:  24226  1 
C:  04256  1 
C:  04000  0 
C:  04140  0 


C:  04231  0 
C : 24261  1 
C:  04000  0 
C:  33333  1 


C:  04234  0 
C : 00000  1 
C : 04000  0 
C:  24400  0 


42 , 2 34C 
4 2,  23  50 
42,2360 


42, 2370 


C : C4102  0 
C. : 04000  0 
C:  24430  3 
C : 244 10  1 


C:  00330  1 
C : CO  1 40  l 
C:  24400  0 
C:  20204  0 


C:  04102  0 
C : 00000  1 
C:  24400  0 
C:  00410  1 


C:  04140  0 
C:  OQOQQ  1 
C:  2^400  C 
C:  13033  0 


C:  04102  0 
C:  03330  1 

C.  : 24400  0 
C:  00000  1 


C : 00000  1 
C:  33000  1 
C : 00000  1 
C:  00306  1 


C : 24400  0 
C:  24400  0 
C:  24500  1 
C : 01367  1 
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05503  1 
34755  1 
52155  1 
50000  1 


37752  C 
C : 00672  1 
04674  0 
04635  0 

54147  1 
34752  0 
50000  1 
52124  1 


50000  1 
C:  01044  0 
C:  01774  1 
C:  00037  0 

C : 00000  1 
C:  33635  1 
C : 64017  0 
C:  00000  1 


C:  64077  0 
C : 24127  0 
C:  62157  3 
C : 24207  1 

C : 04237  0 
C:  34340  1 
C : 04000  0 
C:  00000  1 


C:  04140  0 
C : 2^400  0 
C:  33542  1 
C : 00  50  7 0 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NTER  PRE  TI  VE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


42, 2400 
42,24  10 
42,2420 
4 ?,  24  30 


C:  COO 00  1 
C:  24510  0 
C:  00016  0 
C:  10200  1 


C:  002  04  1 
C:  24512  1 
C:  53223  1 
C : 000 10  0 


C : 00004  0 
C : 7564C  1 
C:  24026  0 
C : 20512  0 


C:  D3C33  1 
C:  5400C  C 
C:  61430  1 
C:  00500  1 


C:  10507  1 
C:  24012  1 
C:  COOOO  1 
C:  00654  0 


C:  10  200  1 
C : 5D53D  1 
C : 00000  1 
C:  03  10  2 1 


C : 00204  1 
C:  60500  1 
C : 00102  1 
C:  00200  0 


C:  00000  1 
C:  OOOOC  1 
C:  00102  1 
C : 24512  1 


42  ,2440 
42,  245C 
42,2460 
42  , 2 4 7 C 


C:  24512  1 
C : 10507  1 
C:  OOCnn  l 
C:  13  707  0 


C:  245  12  1 
C:  10450  1 
C:  71572  l 
C:  D 3 4 3 5 0 


C:  24512  1 C: 

C:  60500  1 C: 

C : 00006  1 C : 

C:  130  70  1 C: 


24512  1 C : 24512  1 C : 
36143  1 C:  60512  1 C: 
0 3240  1 C:  00000  1 C: 
34345  1 C:  C0005  1 C: 


00102  1 C:  00000  1 C:  16143  0 
00000  1 C : 00000  1 C : 00000  1 
03000  1 C:  00000  1 C:  00000  1 
21616  0 C : 26113  3 C:  31713  0 


42,  25C0  C:  00070  0 

42,2510  C:  000  1 0 

42,  2520  C : 00002  0 

42,  2530  C:  77766  0 


C : 
C: 
C : 
C : 


23224  1 
6C557  C 


C : 01065  0 
C:  00047  1 
C:  00014  1 
C:  0OC05  1 


C:  05740  1 
C:  21135  0 
C:  06500  1 
C : 01 114  1 


C:  11414  C 
C : 77766  0 
C:  00C01  0 
C:  00007  0 


C:  31463  1 
C : 5 3 71  1 0 
C:  03036  1 
C:  01247  1 


C:  07475  0 
C:  000C5  1 
C : 04256  1 
C:  04324  0 


C:  16051  1 
C:  25036  0 
C : 07071  0 
C:  27600  1 


42  ,?54P 
42,  2550 
42,2560 
42,2570 


C:  0 0 <"  3 6 1 
C:  07475  0 
C:  05174  0 
C:  13412  1 


C:  20440  0 
C:  16051  1 
C:  13  26  1 0 
C:  07534  1 


C:  33035  1 
C : 14400  0 
C : 00000  1 
C:  05605  1 


C:  30400  0 
C:  00033  1 
C:  00000  1 
C:  03656  1 


C:  23420  0 
C:  36365  1 
C:  00000  1 
C:  00001  C 


C : 00000  1 
C:  33  244  0 
0 : 03303  1 
C : 16170  0 


C : 01670  1 
C:  35610  0 
C:  00714  0 
C : 00441  0 


C:  23333  0 
C : OOOOC  1 
C:  31463  1 
C:  34306  0 


42,  262  C 
42,2630 


C:  01636  1 
C:  06265  0 


C:  1455  2 0 
( : 5531  0 

C:  16004  l 


C:  1534C  1 
C:  70  307  1 
C:  21203  0 
C:  31433  1 


C:  0 1331  ] 
r : 055 2( 

C:  00007  0 
C:  34772  1 


C:  21032  0 
C : 15312  0 
C:  13734  C 
C:  37316  1 


C:  34631  1 
C:  14226  1 
C : 74477  0 
C:  0 1030  0 


C : 23146  0 
C:  31757  0 
C : 50643  0 
C:  33675  0 


42,2640 
4 2,  26  50 
42  ,?4 60 
42, 267C 


C:  01046  1 
C:  12172  0 
C:  ? 3537  3 
C : 01121  1 


C:  15730  1 
C : 34122  1 
C:  0 10  4 4 0 
C:  01123  0 


C:  03321  1 
C : 03206  0 
C:  01045  1 
C:  02112  1 


26706  1 C:  C4231  0 C:  27400  0 C:  01031  1 
14206  0 C:  03211  0 C:  23360  0 C:  03453  0 
00000  1 C:  02307  1 C:  02311  0 C:  P3663  1 
32114  1 C:  02131  0 C:  03462  1 C:  03453  0 


C:  21032  0 
C : 03663  1 
C:  3 1117  1 

C : 02243  0 


42,  2720 
42,2730 


C:  0 1340  1 
C : i'030ft  1 
C:  02173  0 
C:  r.2213  0 


C: 
C: 
C : 
C: 


00000  1 
0C314  1 
)00  "1 
02215  0 


C : 00000  1 
C:  33  316  C 
e : 01753  1 
C : 02217  1 


C : 01326  1 
C:  C 1353  0 
C:  33333  1 
C:  03466  0 


C:  01327  3 
C : 00000  1 
C:  OOOOC  1 
C:  02247  1 


C:  03030  1 
C : 00000  1 
C:  03000  1 
C : 03620  3 


C:  C 300  2 0 
C : 00000  1 
C : 00000  1 
f:  0 217  1 1 


C:  03001  0 
C:  02171  1 
C : 00000  1 
C:  02173  0 


42, 2740 
4 2,  27  50 
4 2 ,2  760 
42,  2770 


C:  00000  1 
C:  02275  0 
C : 0347  1 3 
C : 03532  0 


C:  00030  1 
C : 02277  1 
C:  0 345  3 0 
C:  00013  0 


C:  03000  1 C: 

C : 03666  1 C: 

C:  03507  0 C: 

C:  00013  0 C: 


00000  1 C:  03605 

03734  1 C:  03736 

03664  0 C : C3473 

33013  C C:  02)77 


1 C : C 3 5 7 5 0 

0 C:  03475  1 

1 C:  03532  0 

1 C:  00000  1 


C : C2340  1 C : 

C:  03453  0 C : 

C:  03666  1 C: 

C : 00000  1 C : 


02273  0 
0 260  2 1 
33473  1 
02171  1 
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OCTAL  LISTING  FOR  PARAGRAPH  U 232,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARF  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  »C  " (CONSTANTS) 


42,  3000 

C: 

02173 

0 

C: 

02175 

0 

C : 

02602 

1 

C: 

03475  1 

C: 

03471 

0 

C: 

0 2616 

1 

C : 

02614 

0 

C : 

02612  0 

42,30  10 

C: 

00  7 34 

1 

C: 

00  735 

0 

C : 

00736 

0 

C : 

00734  1 

C: 

0073  5 

0 

C : 

33736 

0 

< : 

00035 

1 

C: 

00036  1 

4 2,  3P2C 

C: 

OOOOC 

1 

C : 

01  1C6 

1 

C: 

0 1 107 

0 

C: 

00000  1 

C: 

03453 

0 

C : 

02353 

0 

C : 

02  355 

0 

C: 

03577  1 

A 2,  30  30 

C: 

02243 

0 

C : 

C2245 

0 

C : 

02  2 67 

0 

C: 

02263  1 

C : 

03642 

1 

C: 

0 345  3 

0 

C: 

02  3C 1 

1 

C : 

00000  1 

'+2  ,3040 

C: 

0 1330 

0 

C: 

0 1331 

1 

C: 

01271 

1 

C: 

01235  1 

C : 

01236 

1 

C : 

01241 

1 

C : 

03733 

0 

C: 

03734  1 

42,  3050 

C : 

00000 

1 

C: 

33433 

0 

C: 

03435 

0 

C: 

03437  l 

C: 

03433 

0 

C: 

03435 

0 

C : 

03437 

1 

C : 

03622  1 

42,3060 

C: 

03624 

1 

C: 

03626 

0 

C : 

01252 

0 

C : 

01254  0 

C: 

01256 

1 

C: 

3353  1 

0 

C: 

0 350  3 

1 

C: 

G 350  5 1 

4 2 , 30  70 

C: 

03433 

0 

C: 

03435 

0 

C: 

03437 

l 

C: 

01344  C 

C: 

01345 

1 

C : 

00000 

1 

C : 

02706 

1 

C: 

02710  0 

42,  3100 

C: 

02712 

1 

C : 

02706 

1 

C : 

02710 

0 

C: 

02712 

1 

C: 

02171 

1 

C: 

02173 

0 

C: 

02175 

0 

C : 

0371  5 

1 

'+2,3110 

C: 

0371  1 

3 

. C: 

0 371  3 

1 

C: 

03672 

1 

C : 

03473 

1 

C : 

03532 

0 

C : 

02737 

0 

C: 

C2741 

1 

C: 

02743 

0 

42,  3120 

C : 

03501 

0 

C: 

03473 

l 

C: 

03532 

0 

C: 

30000 

1 

C: 

OOCOO 

1 

C: 

00000 

1 

C : 

00000 

l 

C : 

00000 

1 

42. 3130 

C: 

00000 

1 

C : 

01C44 

0 

C : 

01045 

1 

C : 

01046 

1 

C: 

01047 

0 

C: 

01050 

0 

C: 

0 10  5 1 

1 

C: 

02171 

1 

42  ,3140 

C: 

02173 

0 

C: 

02175 

0 

C: 

16351 

l 

C: 

00  14? 

0 

C: 

16347 

0 

C : 

1651  2 

0 

C : 

22347 

1 

C: 

24443 

1 

4 2,  31  50 

C: 

OOOCO 

1 

C : 

00553 

1 

C : 

00143 

1 

C: 

06347 

1 

C: 

00000 

1 

C: 

00  512 

1 

C : 

00012 

1 

C : 

00000 

1 

'+2,3160 

C: 

24344 

1 

C: 

24  50  3 

1 

C: 

00512 

1 

C : 

OOOOC 

1 

C : 

16347 

0 

C : 

16347 

0 

C: 

16354 

1 

C: 

24451 

l 

42, 31 70 

C : 

16447 

1 

C: 

1 0344 

0 

C: 

10354 

1 

C: 

20410 

0 

C: 

00304 

0 

C : 

10204 

0 

C : 

16452 

0 

C : 

10204 

0 

'+2,  32  00 

C: 

COOOO 

1 

C : 

00000 

1 

C : 

00115 

1 

C : 

0C1 15 

1 

C: 

24511 

1 

C: 

22447 

0 

C: 

16347 

0 

C : 

00351 

c 

4 2 ,321c 

C : 

22756 

0 

f: 

06  13  2 

1 

C: 

005  03 

1 

C : 

16347 

o 

C : 

16347 

o 

0 : 

16347 

o 

C : 

16347 

3 

C: 

16  347 

o 

42,  3220 

C : 

16347 

0 

C : 

00102 

1 

C: 

02041 

0 

C: 

10347 

0 

C: 

24344 

1 

C : 

24507 

0 

C : 

10343 

1 

C : 

16347 

0 

+2,3230 

C: 

10347 

0 

C: 

00000 

1 

C : 

00000 

1 

C : 

06143 

1 

C: 

06043 

0 

C : 

24247 

0 

G 46  1 6 

1 

C: 

6 lOC  4 

1 

42,3240 

07271 

1 

03425 

1 

07115 

0 

C: 

03277 

0 

34321 

0 

54776 

0 

04616 

1 

C: 

61263 

1 

4 2,  32  50 

03443 

l 

3331 1 1 

0 

56154 

1 

5 5 006 

1 

33302 

0 

56155 

0 

0441  6 

0 

34320 

1 

42,3260 

54776 

0 

046  16 

1 

C: 

612&3 

1 

00006 

1 

33306 

1 

521  55 

1 

31006 

04415 

o 

42,3270 

3431  7 

0 

54776 

0 

04616 

1 

C: 

61263 

1 

00  136 

0 

C: 

25660 

0 

C : 

31742 

l 

C : 

01727 

1 

ii',m 

C: 

0 12  17 

1 

C: 

C001  1 

1 

C : 

32445 

0 

C : 

02104 

0 

C: 

10422 

1 

C: 

05  174 

0 

C: 

1326  1 

0 

C: 

00000 

1 

C : 

000  62 

0 

04616 

1 

C: 

6 1004 

1 

07271 

1 

10154 

0 

0331  7 

1 

03350 

1 

63405 

0 

4 2,  3320 

1 0000 

0 

C3334 

0 

03350 

1 

03350 

1 

10155 

l 

03327 

1 

0 3 35C 

1 

63406 

0 

42,3330 

10000 

3 

0 33  34 

0 

03350 

1 

03350 

1 

10154 

0 

33410 

1 

03345 

0 

43410 

0 

42, 3340 

54154 

0 

4341  1 

1 

54155 

1 

33407 

1 

0 3426 

1 

54154 

0 

3341  1 

0 

03342 

1 

42,  33  50 

0 34  1 2 

0 

334U3 

0 

07321 

0 

46257 

0 

26776 

0 

0 46l  6 

1 

C: 

61317 

0 

34755 

1 

42  ,3360 

54  124 

1 

4475  2 

1 

501  17 

0 

64317 

0 

54143 

0 

04616 

1 

C : 

61353 

0 

03443 

1 

42, 3370 

c6  1 55 

0 

00006 

1 

73404 

0 

52155 

1 

50117 

0 

34317 

0 

54776 

0 

04616 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 233,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  " 3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WOROS  ARF  eAS  If  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


fftip 

92, 3920 
92,  3930 


C:  61317  0 
C:  00025  3 
20155  1 
C:  03279  i 


370  16  1 
13925  0 
00006  1 


f.  : 626  17  0 
10155  1 
00G06  1 
30155  O 


C:  77753 
13^16 
56002 
0 990  9 


91126  1 
00006  1 
59199  1 
39755  1 


03351  0 
93310  1 
U7115  0 
56156  0 


92  ,3990 
92, 395C 
92,3960 
92,3970 


56155  3 
G00C6  1 
0 360  1 0 
33595  0 


56159  1 
79737  1 
07115  0 
56155  0 


00199  0 
22155  0 
03592  1 
07321  0 


56002  0 59199  1 31007  1 00006  1 79751  1 
31006  0 59159  0 07115  C C:  C33G3  1 00199  0 
03551  0 39755  1 59156  1 33599  1 59159  0 
03562  0 52156  1 52129  1 31003  0 23006  0 


92,  3500 
92,3510 
92, 3520 
92, 3533 


52155  I 07115  0 C : 03592  1 
73596  1 20  129  1 00006  1 
C7115  0 C:  03592  1 03551  0 
13532  l 09195  0 39755  1 


03551  0 

13515  1 
93553  0 
59156  1 


93597  0 
09  195  0 
03567  0 
07271  1 


03567  0 
31009  1 
52129  1 
52155  1 


56155  0 
23007  1 
20155  1 
50  195  1 


0G006  1 
52155  1 
00006  1 
5 2001  1 


92,3590  09635  0 C:  63095  0 

92,  3550  C:  13557  1 561  56  0 

92,3560  601  59  1 56  159  1 

92,3570  10155  1 69753  1 


C:  00006  1 C:  U329C  1 C:  00C25  C 
60000  1 59156  1 39755  1 

10  1 59  0 09195  0 00002  0 

13579  0 69753  1 60156  0 


C:  37100  1 C:  1356C  0 C:  00073  0 
63  155  0 591  55  1 39755  1 

09195  0 00002  0 59156  1 

00006  1 636C0  1 09195  0 


92,  360 
92  ,36  1 


0 

0 


92,  3620 
92,3630 


00002  0 
00002  3 
C : 39091  0 
C:  000  15  0 


960  10  1 
C:  27077  1 
I:  77629  1 


70777  1 
55090  0 
I : 96135  1 
C:  33660  1 


63606  1 
09195  0 
C:  33053  1 
I : 793  75  0 


10000  0 
06051  0 
Ci  6 569  2 1 
C:  02723  c 


03611  1 

I : 97001  0 

I:  77775  1 
C:  29001  0 


C:  77793  1 
C:  00001  0 
C : 00001  n 
l:  53372  1 


03611  1 
C:  21555  1 
C : 16176  0 
C:  02176  0 


92 , 369C 
9 2,  36  50 
92 ,3660 
92, 367C 


1 : 77650  1 C:  65699 

I:  76521  0 0:01712 

C:  16 1 76  1 C:  02200 

C : 02176  0 C : 25775 


1 I:  77775  1 C: 

0 I : 712  06  0 C: 

1 I:  95206  1 C: 

0 C:  26176  0 C: 


00001  0 I:  53901  l 

065?  " 0 C:  02172  1 

021  76  0 I : 77605  1 
02176  0 I:  63256  C 


C : 00001  0 I : 95076  1 

T:  26179  1 I:  77629  1 

C : 25775  0 C:  16200  1 

C:  02176  0 I : 72931  1 


C:  97535  1 
C : 97676  0 
I:  91215  1 
C : 065  19  1 


92  ,?710 
9 2,  37  20 
92,3730 


I:  90095  1 
C:  "2176  ') 
I:  51091  0 
( : 1 


C:  02176  0 
I:  6329  1 ' 

C : C6512  1 
f:  00007  0 


C:  65703  0 
C:  '6519  1 
C : 65  72  7 0 
I:  77772  0 


I : 90056  0 
C:  02176  0 
I:  95395  1 
C:  16176  G 


C:  65751  1 
I : 75296  0 
C:  06516  0 
C : 02172  1 


1 : 97206  3 
I : 77736  0 
C:  02172  1 
I : 79356  1 


C:  C6512  1 
C.  : 2617  2 1 
C:  02172  1 
C:  C6512  1 


I:  57572  0 
C:  00007  0 
I : 97375  0 
I:  71525  0 


92, 3790 
92,3750 
92  ,3760 
92,  3770 


C : 021 72  l I : 52361  1 C: 

C:  02179  1 I:  77776  1 

33773  1 C 96 16  1 C: 

39790  0 05196  1 


06516  0 I: 

31093  1 
20353  0 
03619  1 C: 


63291  0 C: 

79797  0 
05579  1 
01963  1 C: 


02176  0 C: 
00306  1 
05579  1 
26501  1 C: 


02176  0 I 
15503  0 
05155  0 
07963  1 C 


75296  0 I : 77736  0 
35017  1 05196  1 
39751  0 05975  1 
03776  1 CKSM  55660  1 
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OCTAL  LISTING  FOR  PARAGRAPH  M 234,  V>I  TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  " 3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I M TEP  PR  E TI  VE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


4 3,  2020 
43, 2030 


02  3 70  1 
02167  0 


02410  0 
02423  0 


02126  0 
03130  0 
03013  0 
02667  1 


02325  1 
03220  1 


02331  1 
03135  0 


02675  1 
02116  0 
02147  1 
03212  0 


023C4  1 
02370  1 
02174  1 

02334  1 


02116  0 
02370  1 

02164  0 
02037  1 


43,2060 

43,2070 


03723 
024  13 
C 2 1 1 6 
02116 


1 

0 

0 

0 


03725  1 
02623  1 
0? 1 1 6 0 
03)50  1 


03727  0 03731  1 03034  0 
03040  0 03043  0 02734  0 
02116  C 02752  0 02761  0 
03205  0 02370  1 02116  0 


03223  1 
02744  1 
03073  0 
02370  1 


02773  0 
C2116  0 
0 3053  1 
11043  0 


02776  0 
03226  1 
03066  1 
02116  0 


H’jm 

43.212C 

43,2130 


30  IOC  o 
44762  1 

21051  0 
02140  0 


72125  l 
04154  0 
31010  1 
0240 4 0 


10000  0 
02113  0 
00006  1 
04616  1 


C : 


02116  0 
10C67  1 
16754  0 
1666  1 1 


34362  I 
05122  C 
02116  0 
04616  1 


55043  0 
00155  0 
C:  24100  0 
C:  17715  1 


30002  0 
04364  1 
02202  0 
02137  0 


54155  1 
34635  3 
02131  0 
02117  1 


% 3,2140 
43,  21  50 
43,21  60 
43,  21  70 


C:  53604  3 
C : 0001 3 0 


04b 1 6 1 C:  52334  1 
00006  1 12161  1 
02646  1 046 1 6 1 
05527  1 C:  00000  1 


04616  1 C:  17713  1 12146  1 

40107  0 74735  0 03006  1 

C:  53573  0 05527  1 C:  33013  0 

32117  1 05515  0 C : 00000  1 


02117  1 30103  0 
12116  1 04635  0 
12171  3 05515  0 
02117  1 02202  0 


43,  2220 
43,2230 


02213  0 
16751  3 
05503  1 
17715  1 


C 2 23  5 1 

46007  1 

61001  1 

00006  1 

15754  0 

62212  1 

00006  1 

02l  1 6 0 

C:  77713  1 

02404  0 

C2076  1 

32233  1 

04516  1 

C:  20334  1 

12222  0 

32234  0 

04616  1 

C:  20621  0 

04616  1 

C : 16745  0 

04616  1 

05503  1 

05503  1 

C:  06226  1 

C:  12200  0 

32646  1 

02076  1 

46021  0 

43,2240  00004  0 
43,  2250  ( 4616  1 
43,2260  C:  66107  1 
43,2270  10000  0 


70110  0 

C : 46000  0 

15  50  3 0 

54110  0 
32234  0 

C:  06111  c 

32262  0 
04615  1 

04  6 1 6 1 

04616  1 

C:  20621  3 

C : 52466  1 

C : 20334  1 
34736  l 
02266  l 

C55C3  1 
05105  0 
30167  1 

12243 
C:  02263 
7533  4 

50000  1 

54000  0 

40003  3 

26167  0 

04616  1 

C : 17713  1 

02301 

43,  2320 
43,2330 


05155  0 
40110  0 
060 11  1 
f 2117  1 


C 5600  1 C : 00503  1 
77722  0 13000  0 
34777  1 04616  1 
05527  1 C:  00254  1 


05155  C 1 01 1 C 0 

12320  0 34777  1 

C:  01736  1 05527  1 

02117  1 05515  0 


12117  0 12117  0 

04616  1 C : 01736  l 
C:  03 126  1 05515  0 

C : 33023  0 121  17  3 


12310  0 

02310  1 
C:  00254  1 
32434  0 


43,  234C 
4 3,  2 3 5C 
43  ,2360 
43, 2370 


02076  1 
20621  0 

17270  1 


04433  1 


32366  0 04615  1 
C 4 6 1 6 1 C:  17155  0 
04616  1 C:  17715  1 
34201  0 00006  1 


C:  20334  1 05503  1 02346  1 

04615  1 C:  17715  1 05503  1 

05503  1 C 5503  1 C:  C2737  0 

31037  1 04635  0 C:  62021  0 


32367  1 

32365  0 
06335  1 
02076  1 


04616  1 
0 46 1 6 1 
12430  3 
34740  0 
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TOTAL  LISTING  FOR  PARAGRAPH  H 235,  WITH  PARITY  BIT  IN  BINAPY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UVUSFD  FIXED  MEMORY 


ALL  VALID  WORDS  APE  PAS  IC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I N TFR  PRE  TI  VE  OPFRA  TOR  WORDS!  OR  "C " (CONSTANTS) 


4 3,  2400 
43  ,’4lP 
A3, 2420 

A3,  2 A 30 


C : 02005  0 
0 Aft  3s  0 
C:  00117  0 
326AA  0 


C : 6A066  0 
C. : 64002  1 

12427  0 
55770  1 


05155  0 31301  1 00006  1 
02646  1 30077  1 74743  1 
02646  1 02076  1 05515  C 
3A755  I 65767  1 5556ft  1 


16754  C 
10000  0 
C : 00063  1 
00004  O 


02116  0 
02116  0 
3474 l 1 
42645  0 


43  ,2440 

43,  2450 
43,2460 
43,2470 


701  10  0 54  110  0 32645  1 
7 A 7 A 3 1 ICOOO  0 1 2601  0 
04616  1 C:  20353  C 12607  0 
31051  1 55764  1 36254  1 


00006  1 
34753  1 
12470  1 
71764  1 


C2C33  C 
55051  0 
12457  1 
ICOOO  0 


261 1 C 0 
34751  C 
34751  0 
12603  1 


00003  1 
55050  1 
05475  1 
55766  0 


40077  0 
32641  0 
05155  0 
3 4 752  0 


43,  2500 
43  ,25  1 0 
43,  2520 
43,2530 


55765  C 
12117  0 


02033  0 00006  1 12514  1 
126C7  0 12477  0 12504  C 
05214  0 C:  02050  0 C:  32104  0 
36254  1 71764  1 10000  0 


32643  1 
34736  1 
00003  1 
12551  0 


55044  1 32642  0 04616  1 
00006  1 05012  1 34752  0 
40077  0 74743  1 10000  0 
32635  0 04616  1 C:  2Q334  1 


43,2540  12607  0 12543  0 

43,  2550  12535  1 32637  1 

43,2560  04616  1 C:  2q3  34  1 


43,2570 


C:  01735  1 32644  0 


12535  1 32636  0 
04616  1 C:  20334  1 
12607  0 12565  1 
55770  1 34755  1 


04616  1 C : 20334  1 
12607  0 12557  0 
12551  0 34755  1 
55767  1 11766  C 


12607  0 12565  1 
12551  0 32640  1 
55770  l 04616  1 
44753  0 64752  0 


43, 262C 
43,2630 


12471  0 34766  l 55770  1 
55770  1 34744  1 04616  1 
05527  1 C:  00063  1 05503  1 
04616  1 C : 17  36  1 05527  1 


3475?  0 55766  0 36254  1 12520  C 34755  1 
01736  1 00004  0 44736  0 00006  1 33012  1 
34741  1 54003  0 34755  1 5577C  1 34746  0 
00117  0 12117  0 C:  04110  0 C:  04116  0 C:  04102  0 


43, 264C 
43,  26  50 
4 3 , 2 6 6 0 
43,  2670 


04103  1 C:  01014  0 
1000C  9 02116  0 
00306  1 1211ft  1 
34740  0 05105  0 


14431  l C:  00201  1 C:  C0145  1 C:  00444  0 
40103  1 74746  1 10000  0 12662  0 
40075  1 74747  0 10000  0 00002  0 
03614  1 C:  64104  0 05155  0 02121  1 


301C1  1 
30107  1 
02116  ? 
34763  1 


74741  0 
74735  0 
02076  1 

00006  1 


H'JSW 

43,  2720 
43 ,2730 


0 20  12  0 

10000  0 

12116  l 

34355  0 

00006  1 

06031  0 

74355  1 

00006  1 

12712  0 

12116  1 

02076  1 

32233  1 

04616  1 

C : 20334  1 

05503  1 

02720  0 

32733  1 

04616  1 

C : 20621  0 

34746  0 

00006  1 

05012  1 

34752  0 

05214  0 

C:  0 §08  6 0 

C:  64  ICC  1 

15503  0 

C:  12600  1 

02076  1 

35021  1 

05146  1 

00006  1 

43,  274C 
43, 2750 
43  ,2760 
43,  2770 


32  743  0 
C:  60  107  l 
05  1 55  0 
C : 02650  0 


05176  1 
05155  0 
40  Ip  3 1 


C:  03242  0 C:  44104  1 
02121  1 02076  1 

74746  1 00006  1 

15155  1 05515  0 


0 2076  1 
34737  0 
12116  1 
CO  30  3 1 


34752  0 
05105  0 
02076  1 
12117  0 


05214  0 
02024  0 
35021  1 
05527  1 


C : 03734  1 
C:  54104  0 
05105  0 
C : 00303  1 
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4 3,  3000 

C0004 

0 

C4674 

0 

C : 

40154 

0 

>2117 

1 

02121 

1 

02076 

1 

34737 

0 

05105 

0 

4 3 , ' 

C: 

02103 

1 

C: 

46  10  6 

1 

C5155 

0 

3 3C  33 

1 

70C74 

0 

00006 

1 

12117 

0 

3 5527 

1 

43,  3C2C 

C: 

00010 

o 

05527 

1 

C: 

00006 

1 

05527 

1 

C: 

00037 

0 

34747 

l 

70075 

1 

00006 

1 

43,  3030 

121  17 

0 

0 4 £ 3 5 

0 

C : 

64054 

1 

C: 

00500 

1 

33037 

0 

54335 

0 

02117 

1 

C : 

0 3723 

1 

4 3 ,3  040 

05  5 27 

1 

0: 

00026 

0 

03045 

0 

05515 

0 

C : 

00026 

0 

05527 

1 

C : 

00030 

1 

12117 

0 

43, 30 5C 

C 5515 

0 

C : 

00030 

1 

02117 

1 

02  121 

1 

40077 

0 

74  74  1 

o 

00006 

1 

12116 

1 

4 3,3360 

02076 

1 

37722 

1 

05105 

0 

C : 

02002 

1 

C : 

76065 

0 

05155 

0 

00004 

0 

44753 

0 

43 , 307C 

70101 

0 

54101 

0 

02117 

1 

02121 

l 

02076 

1 

35021 

1 

05146 

1 

34753 

1 

43,  3100 

55376 

o 

34755 

1 

55362 

0 

33244 

0 

55361 

0 

03521 

1 

23372 

0 

23373 

1 

43,31  10 

33243 

1 

54  156 

1 

33123 

1 

04616 

1 

C : 

20334 

1 

03120 

1 

03632 

0 

03110 

1 

43, 3120 

33244 

o 

55371 

1 

05503 

1 

C: 

0 1201 

o 

31376 

1 

00006 

1 

13335 

o 

03521 

1 

4 3,  31  30 

02076 

1 

35n?i 

1 

)5  146 

1 

04635 

0 

C: 

40004 

1 

40104 

0 

74744 

0 

00006 

1 

4 3,3140 

12116 

34737 

05105 

77624 

43,  3150 

C: 

274  10 

l 

I : 

43  01  4 

0 

C : 

04063 

0 

C: 

0 4304 

1 

C: 

67157 

0 

1 : 77614 

1 

C: 

04263 

1 

I : 

77776 

1 

43,3160 

33203 

0 

05555 

1 

C: 

0U26 

1 

C : 

01554 

1 

00003 

1 

0605  1 

0 

I: 

77624 

1 

C: 

26757 

0 

43,  3170 

I : 

45154 

0 

C : 

02030 

0 

C: 

26  114 

1 

I: 

77776 

l 

33204 

1 

50120 

1 

54052 

1 

04635 

0 

43,3200 

C: 

27421 

0 

I: 

776  34 

0 

C : 

21051 

0 

C : 

00051 

0 

C: 

67201 

0 

0551  5 

0 

C: 

00221 

0 

34755 

1 

43  ,3210 

04635 

3 

C: 

1 

02  076 

1 

35017 

1 

05105 

0 

C:  02007 

1 

C : 

62064 

1 

05  155 

0 

43,  3220 

0 5 51^ 

0 

C : 

C011  5 

1 

02117 

1 

05527 

1 

C: 

00  115 

1 

02117 

l 

02076 

1 

04635 

0 

43,3230 

C: 

62000 

0 

C: 

00C61 

0 

C : 

01373 

1 

C : 

01461 

0 

C : 

01773 

0 

C:  00060 

1 

C: 

600  17 

1 

C: 

17777 

0 

43,3240 

C : 

25252 

0 

C: 

52400 

1 

C: 

76777 

1 

C: 

0 1371 

0 

C: 

C 333  5 

1 

31360 

0 

00006 

1 

1 3256 

1 

43,  3250 

00006 

1 

M376 

1 

51377 

0 

52001 

1 

34755 

1 

55360 

1 

OOOf  4 

0 

30002 

0 

43,3260 

55357 

0 

5536  3 

1 

25365 

0 

05602 

0 

C : 

01102 

0 

11362 

0 

34755 

1 

55362 

0 

43,  3270 

03335 

1 

01357 

l 

10000 

0 

13245 

0 

13245 

0 

10000 

0 

13245 

0 

00002 

0 

43,3300 

00006 

1 

23371 

0 

03331 

0 

11362 

0 

0331  1 

1 

03302 

0 

0331  1 

1 

25366 

0 

43  ,33  1 0 

'1371 

0 

6566  1 

0 

00006 

1 

63315 

0 

03266 

0 

25366 

0 

64757 

0 

50000 

1 

43,  3320 

03321 

1 

01371 

0 

01371 

0 

01371 

0 

03336 

1 

03517 

1 

01371 

0 

01371 

0 

43,3330 

01371 

0 

00006 

1 

23361 

1 

04635 

0 

C : 

03216 

1 

03300 

1 

34753 

1 

55372 

1 

43,  3340 

34755 

1 

5 40f  3 

0 

33233 

0 

55377 

1 

350  12 

1 

55373 

0 

03366 

1 

35007 

0 

43, 3350 

55377 

1 

3 5012 

l 

56373 

0 

ri  3 366 

1 

35007 

0 

55377 

1 

33234 

1 

55373 

0 

43  ,3360 

0 3 366 

1 

56372 

1 

33231 

l 

55377 

1 

33232 

1 

55373 

0 

f-0004 

0 

3000  3 

1 

43, 3370 

55374 

1 

C0006 

1 

51377 

0 

30001 

0 

53376 

0 

31377 

0 

55360 

1 

64001 

1 

3A£>  : 
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53,  3500 
53,3510 
53,  35  ?C 
53, 3530 


2500  L 0 
3136^  3 
51377  0 
00006  1 


50000  1 
00 00 6 1 
50000  0 
21376  1 


5 2 001 
1253fc 
51  377 
51377 


1 

1 

0 

0 


51377  0 
00006  1 
60001  0 
52001  1 


50001  1 
51377  r 
C 3272  0 
35755  1 


51377  0 
50001  1 
31360  0 
55360  1 


60000  1 
51377  0 
00006  1 
0000  3 1 


03272  0 
52001  1 
13536  1 
03331  0 


53  ,3550 
53. 3550 
53,3560 
53,3570 


31375  0 55003  0 
11372  l 03361  0 
13356  1 10003  0 
50000  1 60000  0 


25377  0 61377  1 
25372  0 30003  1 
03367  1 35007  0 
11372  1 03666  C 


61373  1 00006  1 
66763  0 56003  0 
56003  C 36771  1 
33260  1 56020  1 


13650  1 
63262  0 
55372  1 
56022  0 


03366  1 
00006  1 
66750  1 
56021  0 


63,  3500 

56023  1 

60020  0 

60022 

1 

63  ,351  0 

60022  1 

60021  1 

60023 

0 

63, 352C 

55  376  0 

36755  1 

55376 

1 

63,3530 

36753  1 

55375  0 

31376 

0 

63  ,35  60 

66761  1 

03573  0 

60000 

0 

63,  3550 

35020  0 

55373  0 

36755 

1 

63,3560 

03562  0 

03573  0 

55372 

1 

63, 357C 

61372  1 

61373  1 

00002 

o 

63, 3600 

13667  1 

11375  0 

03605 

1 

63  ,361  O 

03615  0 

11375  r 

036  16 

0 

63, 3620 

10C67  1 

05122  0 

0 3624 

1 

63,3630 

03556  1 

03556  1 

61376 

1 

60021  1 60023  0 63261  0 03272  0 60020  0 
66753  1 03272  C 25367  1 03300  1 36756  0 
36753  l 55377  1 36755  1 55371  1 55373  0 
56001  1 76350  1 61373  1 06651  1 03562  0 


55377  1 00006  1 13550  0 36760  0 03551  0 
55371  1 36753  1 55375  0 51373  1 30000  1 
61371  0 55371  1 36755  1 61371  0 55371  1 
22000  1 31373  1 75012  0 66350  0 000U6  1 

03605  1 03667  0 lOOOl  1 03615  0 03615  0 
37761  0 03616  O 36753  1 55375  0 11376  0 
03331  0 25373  1 11377  1 03532  0 03532  0 
63722  0 00006  1 13126  1 31376  0 66761  1 


63,3660 
6 3,  3650 
63,3660 
63,3670 


55376  1 
«t?237  1 
27376  1 
76350  1 


03665  0 
00006  1 
1 137  7 1 
06331  1 


36735  1 
13656  1 
03526  1 

56001  1 


27  37  A l 
03661  0 
36753  1 
31376  0 


03661  0 
33235  0 
C 3562  1 
76357  0 


76350  1 
27376  1 
36  76  5 0 

00006  1 


00006  1 
03661  0 
035  2 A 1 
13706  0 


13657  1 
63236  0 
31376  0 
56021  0 


mw  b 

63,  3720 
63,3730 


3000  1 0 

11371  l 

r 3272  0 
13732  0 


76757  l 60021  1 
03713  1 03716  0 
03632  O c : 66100  0 
36257  1 55165  0 


5 600 1 1 

31376  1 

00006  1 

13710  0 

66753  1 

55371  1 

60001  1 

6 1371  0 

36755  1 

1 3732  0 

36753  1 

13732  0 

<2076  1 

06^35  0 

f : 11376  1 

C:  03736  0 

0 3 1u  6 0 
67761  0 
36752  0 
03737  1 


63,  3760  C K SM  63326 
63.375C  3 

63  ,3  760  3 

63,3770  a 


a 

a 

a 


a 


a a a a a 
a a a a a 
a a a a a 
a a a a a 


a 

a 


a 
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AOOO 

TC 

A0A5 

159 

5371 

TO 

5A36 

1288 

AO  A 6 

TO 

A06  5 

160 

5 A37 

TC 

5 AA  6 

1289 

AD  66 

TC 

A101 

1 61 

5 A A7 

TO 

5A5  5 

1293 

A l 02 

TC 

A123 

3 86 

5A56 

TC 

5A66 

1295 

A12  A 

TO 

A 1 A A 

A A7 

5A6  7 

12  96 

A 1 A5 

TC 

A 1 5 3 

A5A 

5 A7C 

TO 

5A  7 A 

1258 

A 1 5A 

TO 

A 20  3 

A60 

5 A75 

TC 

551  A 

1 3 A3 

A 20  A 

TO 

A 20  6 

A62 

55  15 

TO 

55A3 

136  3 

A2C7 

TO 

A2A3 

A63 

5 5 AA 

1 C 

5 55  A 

l 36A 

A2A  A 

TO 

A 30  2 

A6A 

5555 

TC 

5573 

1367 

A303 

TO 

A335 

A68 

5 57  A 

TO 

5577 

1368 

A3  3 6 

TO 

A3  77 

A69 

5 600 

TC 

5630 

1369 

AAOO 

TO 

AA  36 

A 70 

5 6 31 

TO 

56A  6 

1370 

A A 3 7 

TO 

AAA  1 

A 72 

56A7 

TO 

5726 

1371 

AA  6 2 

TO 

A 5 1 1 

A73 

5727 

TC 

5753 

1372 

A512 

TO 

A522 

530 

5 7 5 A 

TO 

5775 

1393 

A523 

TO 

A536 

531 

5776 

28 

A537 

TO 

A563 

532 

6000 

AO 

A56A 

TC 

A577 

533 

600  1 

TO 

601  C 

231 

A600 

TO 

A 6 1 5 

53A 

6 Cl  1 

TC 

6021 

525 

A6  16 

TO 

A6A  A 

989 

6C  22 

TO 

60  2A 

572 

A6A  5 

TC 

A673 

990 

6025 

TC 

60  31 

60  5 

A67A 

TO 

A 7 2 6 

951 

6f  32 

TC 

60A1 

736 

A 727 

TO 

A7  3 1 

992 

6C  A 2 

TO 

6C5C 

880 

A732 

TO 

A762 

1(  86 

6051 

TC 

6070 

993 

A763 

TO 

50  10 

1087 

6 C 7 1 

TO 

611  A 

99A 

! 1 ’ 

TO 

5 031 

1088 

6 115 

TO 

6126 

995 

50  32 

TO 

5071 

1053 

6127 

TC 

6155 

996 

5072 

TO 

5 127 

109A 

6 156 

TO 

622A 

957 

51  30 

TO 

5132 

1 C 95 

6225 

TC 

6 22  6 

998 

5133 

TO 

5175 

1096 

6227 

TC 

6260 

999 

5176 

TO 

520  3 

1 107 

6261 

TO 

627A 

1000 

520  A 

TO 

52A5 

me 

6275 

TC 

6305 

1001 

52A6 

ini 

62C6 

TO 

6 3a  5 

1002 

52  A 7 

TO 

5271 

1112 

6 3A6 

TC 

6 36  5 

1003 

5272 

TO 

53C7 

1120 

6 366 

TC 

6A03 

1 005 

5310 

TO 

5311 

1121 

6 AO  A 

TO 

6 A 2 5 

1 0C6 

5312 

TO 

5321 

112? 

6A26 

TC 

6 AA  5 

1007 

5 322 

TO 

5 337 

1283 

6 A A6 

TO 

6A71 

1 008 

5 3 AO 

TO 

5370 

1287 

6 A72 

TO 

6 50  1 

1009 
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65C2 

TO 

6 53A 

1010 

00  ,22 1 A 

TO 

00  ,2235 

1 3 AA 

6535 

TO 

6570 

1011 

00, 2236 

TO 

00, 2276 

1 0A5 

6571 

TO 

66  36 

1312 

00 ,2277 

TO 

00,2331 

1 0A6 

6637 

1013 

00,2332 

TO 

00,2352 

1CA7 

00,2353 

TO 

00, 2A21 

1 0A8 

6701 

TO 

673A 

1015 

00  ,2 A2 2 

TO 

00  , 2A36 

10A9 

6735 

TO 

6760 

1016 

00 ,2A37 

TO 

0 C , 2A77 

1050 

6761 

TO 

701  A 

1317 

00,2500 

TO 

00, 2537 

1051 

7015 

TO 

7016 

1018 

I ( , 25AC 

TC 

00,2567 

1052 

7017 

TO 

7073 

10  19 

00, 2570 

TO 

00, 2607 

1053 

707A 

TO 

7102 

1020 

CO, 2610 

TO 

3D  , 262A 

105A 

710  3 

TO 

7 1 1 A 

1021 

00,2625 

TO 

00  »26A1 

1055 

7115 

TO 

71A7 

1322 

00, 26A2 

TO 

00, 2653 

1056 

7150 

TO 

7165 

102  3 

00  ,265A 

TO 

03  ,2723 

1 057 

71  66 

TO 

7226 

10  2A 

00, 272 1 

TO 

OC, 27A7 

1 058 

7227 

TO 

7250 

1025 

00,2750 

TO 

00,  3006 

1059 

7251 

TO 

7266 

1026 

00,3007 

TO 

00  ,3022 

1060 

7267 

TO 

7327 

10  27 

00, 3023 

TO 

OC,  30  72 

1 06  1 

7330 

TO 

73A2 

102  8 

30  ,3373 

1062 

7 3A3 

TO 

7353 

1029 

CO , 307A 

TO 

00,3132 

1 063 

735A 

TO 

7A  1 2 

1030 

00,3133 

TO 

00, 3150 

1 06A 

7 A 13 

TO 

7A36 

1031 

CC  ,31 51 

TC 

00,3173 

1065 

7 A 37 

TO 

7A71 

10  3 2 

00, 317A 

TO 

00, 3206 

1066 

7A72 

TO 

7 5 37 

1033 

00  ,3207 

TO 

00  ,3231 

1367 

75  AO 

TO 

7603 

103  A 

00,3232 

TO 

00,3277 

1068 

760A 

TO 

7635 

1335 

00 ,3300 

TO 

00,  33a 2 

1069 

7636 

TO 

7666 

1036 

00  ,33A3 

TC 

00  ,3A05 

1370 

7667 

TO 

7721 

10  37 

00,  3 AO 6 

TO 

00, 3A55 

1071 

7722 

TO 

773  a 

108P 

00  ,3A56 

T 0 

00,3516 

1072 

7735 

TO 

7761 

1089 

00,3517 

TO 

00  ,3552 

1 073 

7762 

TG 

7765 

129  1 

00, 3553 

TO 

00, 3607 

1 0 7A 

7766 

TO 

7767 

1 AA7 

00  ,3610 

TC 

33  ,3651 

1075 

7770 

TO 

7771 

28 

00,3652 

TO 

00, 3713 

1076 

CO, 2000 

TO 

00  ,201 6 

103  A 

0 0 , 3 7 1 A 

T 0 

00, 373a 

1077 

00, 2017 

TO 

OC, 20A1 

1038 

00  ,3735 

TO 

00,3767 

1365 

00  ,20A2 

TO 

00 ,2100 

10  39 

00, 3770 

TO 

00, 377A 

1 366 

00,2101 

TO 

00,2120 

10A0 

00  ,3775 

T C 

33  ,3776 

28 

00,2121 

TO 

00,  2 1 A 3 

10  A 1 

01  ,2  000 

TC 

01,200 l 

AA 

00  ,21 AA 

TO 

00,2171 

1 0 A 2 

0 1 ,200 2 

TO 

0 1,  2032 

2A6 

00,  2172 

TO 

00,2213 

1 0A3 

01  ,2033 

TC 

01  ,2373 

2A7 
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11,2071 

TO 

0 1,  2133 

248 

L , 

TO 

01  ,3776 

28 

] 1 ,21 34 

TC 

0 1 ,2174 

249 

04,2000 

TO 

14,  20  2 3 

46 

1,  21  75 

TO 

0 1 , 2213 

250 

04  ,?  024 

TC 

04  ,2027 

231 

1 1,2214 

TO 

* 1,  2237 

299 

04,  2C3C 

TO 

04,2037 

232 

0 1,2240 

t C 

01  ,2316 

300 

04  ,2040 

TC 

94,  2072 

234 

i 1,  2317 

TO 

C l,  2347 

3C1 

04 ,2f 73 

TC 

04,2144 

235 

>1  ,2350 

TC 

01  ,2375 

1078 

0 4,  2 145 

TO 

04,  2207 

236 

01,  2376 

TO 

01  ,2432 

1C79 

£4  ,2210 

TC 

04,2253 

237 

* 1 ,2433 

TC 

0 1,  2452 

10  80 

i. 

TO 

04,23  22 

238 

3 1,245  3 

TT 

1 1 ,24  72 

1081 

34  ,2i23 

TO 

1 <+,  2 370 

239 

1 1,  2473 

TO 

01,  2521 

1082 

04  ,2371 

TC 

04  ,2421 

243 

) 1 ,2522 

TO 

01,2536 

10  8 3 

0 4,  24  2 2 

TO 

G 4,  2457 

241 

■ 1,  2537 

TO 

11,2560 

1084 

3 4 f2460 

TC 

04,2527 

242 

1 • ! 1 1 

TO 

i 1,  2604 

10  8 5 

0 4,  2E3C 

TO 

04,2567 

256 

1 ,26  05 

TC 

01,2641 

1 3 9 7 

04, 2 57C 

TO 

0 4,  260  6 

375 

0 1, 2642 

TO 

0 1,  27  /7 

1098 

04,2607 

TC 

04  ,2622 

376 

J 1,2710 

T C 

04,  2627 

_ 

1 l, 2764 

TO 

t 1 ,2775 

11  00 

34  ,263( 

TC 

34, 2640 

465 

i 1,  2776 

TO 

31, 3026 

1 1C1 

TC 

04,2647 

472 

7 ri  1,  > 1102  34,  2650  TO  04,  2726  696 


l,  3076  TO  01,3106  1 1C3 
1,3107  T 0 r 1,  3 1 5 A 1 1C  A 
' 1,31  55  TC  01  ,3157  1105 
0 1,  3160  TO  01,  32  7 7 11C6 


11,1210  TO  01  ,3233  1107 
1,  3234  TO  Cl  ,3262  11  13 
) 1,3263  TO  01,  3312  1 1 1A 
r 1 ,3313  TC  'll  ,3356  1 1 1 5 

1 1,  3357  TO  Cl,  ^373  11  16 
) 1 , 33  7 A TO  0Tf  3376  11  17 
1,3377  TO  01,3411  1118 
J 1,  3A12  TO  01,  3A5 A 1 1 19 

-1  ,3A55  TC  01  .3503  1122 
oi,350A  TO  01,3527  1123 
) 1,3530  TO  0 1,  3567  1292 
1,35 1(  TC  01  ,3612  1293 


3  1,  3613  TO  01,  3663  129A 
ll  ,366A  TO  1 ,37  1?  1295 
■■  L,  3711  TO  01,3747  12  96 
1 1,3750  TO  01,  377 A 1297 


C ; 

,2727 
r 376  5 

TC 

TO 

OA 

4 

,2764 

,3000 

697 

974 

34 

,3001 

TT 

9 4, 

, 30  3 5 

1176 

,3  £36 

TC 

OA  ,3050 

1 1 77 

04, 

3C  5 1 

TO 

OA, 

, 3 1G  1 

1178 

3 4 , 

,3102 

TC 

04, 

,3136 

1 179 

'A, 

,3127 

TO 

04 

,3167 

1215 

34, 

3 170 

TO 

04, 

, 3224 

1216 

04  , 
04, 

liSS 

TC 

TO 

04 

04, 

#, 

04  , 

,3256 

TC 

04, 

, 3260 

1322 

< A 

,3261 

TC 

04. 

,3303 

1327 

04, 

3?CA 

TO 

04, 

,3360 

1328 

04  , 

,3361 

TC 

04 

,3373 

1329 

OA, 

3374 

TO 

OA 

,3A33 

1377 

34  , 

,3434 

TC 

04, 

, 3505 

1378 

•A, 

,3506 

TC 

04, 

,3543 

13  79 

r a, 

35  AA 

TO 

04, 

, 36C5 

1300 

C 4, 

,3606 

TC 

04  , 

,3655 

1381 

n4, 

36  56 

TO 

04. 

,3722 

1382 
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04  ,3723  TO 
04,3764  TO 
04,3775  TO 


05,  20C  1 TO 
: 5 ,2021  TO 

05,2066  TO 


04,3763  1383 
C A , 3774  1384 
C 4,  3776  29 
05  ,2000  44 

05,2020  52 

0 5 » 2C 64  53 

C 5 , 2065  199 

£ 5,  2136  200 


05,3726  TO 

06,2000  TO 
06,2012  TO 

06,2024  TO 
06,  2075  TO 
06,2116  TC 
06,2130  TO 


05,3775  988 

05  ,3776  29 

06,2011  161 
06,  2C  23  162 


06,2074  163 

06,2115  1 64 

36,2127  165 

06,2171  166 


05  ,21  37  TC 
0 5,  2173  TO 
15,2232  TO 
05,2234  TO 


05,2172  231 

C 5,2231  203 

05,2233  204 

05  ,2276  235 


06,2172  TO 
06  ,2210  TC 

06,2230  TO 


06,  2207  1 67 

06.2226  1 b8 

06.2227  169 

06,2274  170 


C 5, 2277  TO  C5,  2310  206 

: 5 ,2311  TO  05  ,2353  237 

0 5,  2354  TO  05,2364  208 

05,2365  TO  05,2423  209 


06,2275  TO  06,2342  171 

06,2343  TO  06,  2373  172 

06  ,2374  TC  06,2415  1 73 

06,2416  TO  06,2433  174 


05,2424  TO  £5  ,2455  21  1 

05,2456  TO  05,2463  212 

C 5 ,2464  TO  05,2525  218 

05,2526  TO  f 5,2602  21  9 


06,2434  TO  06,2457  175 

£6,2460  TO  06  ,2513  176 

06,  251*.  TO  06,  2532  177 

06  ,2533  T 0 06,2555  178 


0 5,  2603  TO  05,  2660  220 

05  ,2661  TC  05  ,2702  221 

05,2703  TO  £5,2747  222 

?5 ,2750  TO  05 ,30  24  223 


C6 ,2556  TO  06,2564  1 79 

06,2565  TO  06,  2613  18G 

C 6 , 261 4 TC  06  ,2621  181 

06,2622  TO  06,2647  182 


£5  ,3025  TO  £5 ,3072  224 

05, 3073  TO  05,  3121  225 

05  ,3122  TG  05,3166  22b 

C 5,  3167  TO  05,3234  227 


15,3235  TO  05,3311  228 

05 ,3312  TO  C 5 ,3364  229 

05,3365  TO  05,3413  230 

35  ,3414  TO  05,3421  822 


05,3422  TO  f 5,  3470  823 

r 5,  347  1 TO  05,  3506  824 

05,3507  TO  05  ,3527  932 

05,3530  TO  £5,3606  983 


35  ,3607  TO  05,3647  984 

05,3650  TO  05, 3720  985 

35, 3721  TO  05,  3722  986 

05  ,3723  TO  05,3725  987 


06  ,2650 
06,2671 
06, 270  3 
06  ,2720 

TO 

TO 

TO 

TO 

06,2670 
06  ,2702 
06,  2717 
06  ,2754 

183 

184 

185 

186 

re’,  loo 6 

TO 

06, 3005 
06,3025 

188 

06,3026 

TO 

06  ,3033 

189 

06, 3034 

TO 

06, 3051 

190 

06  ,3052 

TO 

06  ,3070 

19  1 

06,3071 

TO 

06,31 10 

1 92 

06,3111 

TO 

06,  3137 

193 

06,3140 

TO 

06,3151 

194 

06,  3152 

TO 

06,3163 

1 95 

06,3164 

TO 

06  ,3230 

197 

06,3231 

TO 

06  ,3270 

198 

06,3271 

TO 

06,  3334 

331 
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C6, 

,3335 

332 

36, 

3336 

TO 

06, 

. 3363 

333 

36  , 

,3364 

TC 

06  • 

,3423 

334 

06, 

- 3424 

TO 

C 6 ■ 

,3432 

335 

)5  , 

,3433 

TC 

06, 

3461 

336 

06' 

,3462 

TC 

06,3514 

337 

3 6, 

3515 

TO 

06, 

. 3562 

338 

06, 

,3563 

TC 

06  , 

,36  32 

3 39 

: 6, 

, 3633 

TO 

06. 

,3651 

340 

) 5 , 

,3652 

T 0 

37  20 

341 

06. 

,3721 

TC 

06  . 

,3722 

342 

3 6, 

3723 

TO 

C 6, 

r 3760 

687 

1 6 , 

.376  1 

TO 

06, 

3771 

1138 

0 6, 

, 3772 

TO 

C 6 . 

,3773 

29 

7, 

2000 

TO 

07, 

. 2043 

251 

3 7 ■ 

,2044 

TC 

07  , 

,2057 

252 

3 7 , 

i 2060 

TO 

C 7 . 

,2127 

253 

) 7 , 

,2130 

TO 

'7, 

2141 

254 

07. 

,21  42 

TC 

C7  • 

,2170 

255 

3 7, 

21  71 

TO 

C7, 

2201 

258 

07, 

,2202 

TC 

07  • 

,2  254 

259 

07, 

, 2255 

TO 

07. 

,2331 

2 60 

3 7 , 

,2332 

TO 

07, 

2400 

26  1 

i 7 ■ 

,2401 

TC 

07  , 

,2452 

262 

3 7, 

2453 

TO 

C 7, 

. 2505 

263 

) 7 , 

,2506 

TG 

07, 

.2567 

264 

0 7, 

, 2560 

TO 

07. 

,2570 

265 

0 7, 

2571 

TO 

07, 

i 26  20 

266 

07 

,2621 

TO 

07  , 

,2660 

267 

3 7, 

, 2661 

TO 

C 7 ■ 

,2717 

1299 

37  , 

,2720 

TO 

07, 

27  4 4 

1300 

0 7 

,2745 

TC 

C7 

,3004 

1301 

0 7, 

7, 

,JS 

TO 

TC 

07, 

07  ■ 

■M  w 

07, 

,3111 

TO 

07 

,3  154 

1304 

37  . 

,3155 

TO 

07, 

. 3200 

1305 

' 7 , 

,3201 

TC 

C 7 

,3237 

1 3 06 

3 7, 

324C 

TO 

C 7, 

i 3267 

1 3 C 7 

37, 

,3270 

TO 

07, 

3333 

1308 

07, 

, 3334 

TO 

07 

,3351 

13  09 
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07  ,3352 

TC 

07,3375 

13  10 

C 7,  3276 

TO 

07,3430 

1311 

07,3431 

TO 

07,  3473 

1 3 12 

0 7 ,3474 

TC 

07  ,3550 

13  13 

C 7, 3551 

TO 

07,3565 

13  14 

07  ,3566 

TC 

37,3612 

1315 

07,3613 

TC 

07,3660 

1316 

07, 3661 

TO 

07,  3710 

1317 

07  ,3711 

TC 

07  ,3714 

1318 

C 7, 3715 

TO 

07,3742 

1319 

07,3743 

TO 

07,3770 

13  20 

07  ,3771 

TC 

07  ,3772 

29 

10, 2000 

TO 

10, 2027 

688 

10  ,2C  30 

TC 

10,2065 

1 254 

10,  2C66 

TO 

10,2142 

1255 

10,  2143 

TO 

10,2212 

1256 

1 0,2213 

TC 

10  ,2223 

1283 

10,  2224 

TO 

10,2242 

1299 

10  ,2243 

TC 

10, 231 1 

1290 

10,2312 

TC 

10,2325 

1291 

10  , 2 3 26 

TO 

10, 2330 

1343 

10  ,2331 

TC 

10,2374 

1344 

10, 2375 

TO 

10,2433 

1345 

10,2434 

TO 

10,2465 

1346 

10,2466 

TC 

10  ,2526 

1347 

io,  2527 

TO 

10, 2572 

1348 

10  ,2573 

TC 

10 ,2633 

13  4° 

10,  2634 

TO 

10,2700 

1350 

10,2701 

TO 

10, 2740 

1351 

10,2741 

TC 

10  ,300  7 

1352 

10, 3C  10 

TO 

10,3052 

1353 

10  ,3053 

TC 

10 ,3122 

1354 

tc’.fc 

TC 

TO 

\8:3K1 

1355 

1356 

10,3244 

TC 

10,3311 

1357 

10,3212 

TO 

10,3362 

1358 

1 0 ,3363 

TO 

10 ,3421 

13  59 

10  ,3422 

TC 

l , 347 3 

1363 

10,  1474 

TO 

10, 3525 

1361 

10  ,3526 

TC 

10,3543 

1362 
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10 , 3544 
10  ,3555 
- 

10 , 3650 


TO  10,3554 
TO  10 ,3605 
TO  1C, 3647 
TO  1C  , 3666 


1370 

1385 

1386 
1 387 
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12,2310 
12,2370 
12  ,2421 
12,2503 


TO  12  ,2367  1 169 
TO  12,2420  1170 
TO  12  ,2502  1 17  1 
TO  12,2535  1172 


1 0 ,3667 
10, 3674 
10  ,3731 
10,3757 


TO  1C  ,3673 
TO  10,3730 
TO  10,3756 
TO  10  ,3760 


1399 

1389 

1390 
29 


12,2536 
12  ,2612 
12, 2653 
12  ,2732 


TO  12,  2611  1173 
TO  12  ,2652  1 1 74 
TO  12,2731  1175 
TO  12,2766  1177 


1 1,  2000 
1 1 ,2037 

I 1,  2117 

I I ,2164 


TO  11,2036 
TO  11  ,2116 
TO  11,2163 
TO  11,2235 


681 

692 

683 

684 


12,2767 
12,3042 
12  ,3  120 
12,  3174 


TO  12,3041  1180 
TO  12,  3117  1181 
TO  12  ,3173  1182 
TO  12,3211  1183 


1 1 ,2236 
1 1,  230  2 
1 1 ,2354 
1 1 ,2366 


TO  1 1 ,2301 
TO  11,  2353 
TO  11,2365 
TO  11,2441 


695 

813 

814 
1217 


12,3212 
12 ,3273 
12, 3353 
12  ,3432 


TO  12,3272  1184 
TO  12  ,3352  1185 
TO  12,  3431  1186 
TO  12  ,3533  1 187 


11, 2442 
1 1 ,2466 
11, 2506 
l 1 ,2565 


TO  1 1,2465  1218 
TO  1 1 ,2505  1219 
TO  11,2564  1220 
TO  11,2646  1221 


12,3504 
12, 3557 
12,3640 
12, 3704 


TO  12,3556  1188 
TO  12,  3637  1 189 
TC  12  ,3703  1190 
TO  12,3751  1191 


11,2647 
11, 2731 
1 1 ,3007 
11, 3066 


TO  11,2730  1222 
TO  1 1,  3006  1223 
TO  1 1 ,3065  1224 
TO  11,3147  1225 


12  ,3752 
12,3755 
12,3773 

13  ,2  000 


TO  12,3754  1192 
TO  12,3772  1236 
TO  12,  3774  3c 
TC  13  ,2325  47 


1 1 ,3150 
1 1 ,3232 
1 1,  3314 
1 1 ,3376 


TO  11,3231  1226 
TO  1 1 ,33  1 3 1 227 
TO  1 1,  3375  1228 
TC  11,3455  1229 


13,  2026  TO  13,2066  243 

13,2067  244 

13,2070  TO  13,2113  325 

13,2114  TO  13,  2132  326 


1 1,  3456 
1 1, 3535 
1 1 ,3615 
1 1,  3673 


TO  11,3534  1231 
TO  11,3614  1232 
TO  1 1 ,3672  1233 
TO  1 1,3674  1234 


13  ,2133 
13,2161 
13,2207 
13  ,2233 


TO  13,2160  327 

TO  13,2206  328 

TO  13,  2232  703 

TC  13  ,2314  704 


1 1 ,3675 

1 1,  3755 

1 2 ,2000 


TO  11,3753  1235 
1 1 ,3754  1236 
TO  11,3756  29 

TO  12,2022  1392 


1 3,  2315 
1 3 ,2347 
1 3,2376 
13,2420 


TO  13,23^6  705 

TO  13,2375  1124 
TO  13,2417  1125 
TO  13,  2455  1 126 


12,  2C23 
12,2074 
12,2156 
12, 2236 


TO  12,2073  1165 
TO  12,2155  1166 
TO  12  ,2235  1 1 S 7 
TO  12,  2307  1168 


13  ,2456 
13, 2506 
13,2546 
13,2556 


T 0 13  ,2505  1 127 
TO  13,2545  1128 
TO  13,2555  1129 
TO  13  ,2601  1 130 
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1 3 , 2 6"'  2 

TO 

1 3,2616 

1 1 99 

14, 3C  60 

TO 

14,  3 14C 

934 

13,2617 

TP 

1 3,26b5 

12  00 

14  ,3  141 

TC 

14, 3 155 

935 

1 3,  2666 

TO 

13, 2732 

1201 

14 ,3 156 

TC 

14,3215 

936 

1 3 ,2733 

TC 

1 3 ,3306 

1202 

14,  3 2 16 

TO 

14,  3247 

937 

13, 3007 

TP 

1?, 3041 

1203 

14  ,3250 

TC 

14  ,3315 

Q38 

l 3, 3-' 42 

TO 

13,  3 If  ? 

1204 

14, 3316 

TO 

14,3366 

93q 

13,3103 

TC 

13,3132 

1205 

14  ,3367 

TC 

14, 3420 

9 40 

13,  3133 

TO 

13,  32  1 C 

1206 

14  ,3  421 

TC 

14,3476 

942 

1 3,3211 

TC 

13  ,3255 

1207 

14, 3477 

TO 

14,  3555 

94  3 

13,  3?56 

TO 

1 3 ,3335 

1 2 08 

1 4 ,3 556 

T 0 

14,3617 

944 

l 3, 33?b 

TO 

13,  3417 

12C9 

14,  3 6 2 C 

TO 

14,3650 

945 

1 3 ,3420 

TO 

13  ,3462 

1210 

14,3651 

TO 

14, 3670 

946 

13,  3463 

TO 

13,  3520 

1211 

14,3671 

TC 

14  ,3724 

947 

1 3,3521 

TO 

13,3546 

12  12 

14, 3725 

TO 

14,  3774 

948 

l 3,  354  7 

TO 

1 3,3574 

1213 

1 4 ,3775 

T C 

14, 3776 

31 

l 3,  3575 

TP 

13, 3652 

1214 

1 5 , 2 CCC 

TC 

15,2045 

257 

1 3 ,3653 

TC 

1 3 ,3670 

1215 

15,  2046 

TO 

l 5,  2047 

2 53 

1 3, 3671 

TP 

13,3719 

12  30 

15  ,2C5C 

TC 

15  ,2066 

49R 

13,3716 

TC 

13,  3726 

1236 

15,  2 C 67 

TO 

15,2073 

9 1 9 

13,3727 

TC 

13,3745 

1237 

15 ,2f  74 

TO 

15, 2150 

9 20 

1 3,  3746 

TO 

13,  3755 

1372 

15,2151 

TC 

15,21 61 

921 

13,3756 

TC 

13  ,3757 

1373 

15,  2162 

TP 

15,  2213 

922 

1 3,  3760 

TP 

1 3,?761 

30 

15,2214 

TC 

19,2242 

923 

1 A, ?000 

TP 

14,  200  7 

46 

15, 2243 

10 

15,2267 

924 

14,2010  TC 
14,  20  66  TO 
14,2150  TO 
14,  22  32  TO 


14  ,2365  48 

l A,  214  7 45 

14,2231  50 

14,2313  51 


15,2270 
1 5 ,2332 
1 5 , 24  10 
15  ,2464 


TO  15,2331  949 

TC  15  ,2407  950 

TO  15,2463  951 

TC  15,2477  95? 


14,2362  TO  14,2432 
14,2433  TC  14, 2437 


14,2440  TC  14,2477 
1 4,  2500  TO  14, 2556 
1 4,2557  TO  1a  ,260 2 
14,2603  TO  14,2615 


14,2616  TO  14,  2677 
14,2  700  TG  14,27  60 
14,  2761  TO  14,3006 
14,3307  TO  14,3057 


52  15 , 2 5CC 

843  15,  254  1 

844  15  ,2572 

845  1 5,  2 6C4 

925  15  ,2650 

927  15,2724 

928  15,  2775 

929  15,3034 


930  15,3041 

931  15,3075 

932  1 5 ,3154 

933  15,32?? 


TO  15,2540  953 

TO  15,2571  954 

TC  15  ,2603  955 

TO  15,2647  956 


TC  15,2723  057 

TC  1 5,2774  958 

TO  1 5,  3033  959 

TC  15,3040  960 


TO  15,3074  96 1 

TO  15,3153  962 

TC  15  ,3232  963 

TO  15,  3247  964 
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15,3250  TO 
15,3310  TO 
15  ,3363  TO 
15,3443  TO 


15  ,3307  065 

15,3362  966 

15,3442  967 

15.3455  968 


16,3716  TO 
1 6 » 3 7 4 C TO 
16,  3771  TO 
16  ,3775  TO 


16,3737  1459 
16,3770  1464 
16,3774  1465 
16,3776  31 


15,  3535 
15,3571 


TO 

TO 

TO 

TO 


15,3570 

15,3627 


969 

970 

971 

972 


17, 200C 
17 , 2043 
17  ,2055 
17,  2117 


TO  17,2042  571 

TO  17,  2054  572 

TO  17,2116  1392 
TO  17,2123  1393 


19,3630  TO 
15,3646  TO 
15  ,3660  TO 
15,  3702  TO 


15,3645  973 

15,  3657  974 

15,3701  976 

15,3763  977 


17,2124  TO 
17,215?  TO 
17,2227  TO 
17  ,2271  TO 


17,2152  1430 
17  ,2226  1431 
17,  2270  H32 
17,2346  1 433 


15,3764  TO 
1 5,3771  TO 
16,  20  0 ( i TO 
16  ,2024  TO 


15,3770  978 
15,3772  31 
16,2023  1398 
16,2075  1399 


17,  2347  TO  17,2414  1434 
17,2415  TO  17,2476  1435 
17,2477  TO  17,2560  1436 
17,  2561  TO  17,  2627  H37 


16,2076  TO  16,2153  1400 
16, 2154  TO  16, 2212  1401 
16,2213  TO  1 6 ,2246  1409 
16,  2247  TO  16,2313  1410 


1 6 ,2314  TO  16,2357  141  1 
1 6 ,23  6G  TO  16,2434  1412 
16,  2435  TO  16,  25  14  1413 
16  ,2515  TO  16,2575  Ul4 


17  ,2630  TC  17  ,2654  1438 
17,2655  TO  17,2707  1439 
17, 2710  TO  17,  2755  1440 
17,2756  TC  17,3013  1441 

17,3014  TO  17,3064  1442 
1 7,3065  TO  17  ,3136  1443 
17,3137  TO  17,3157  1444 
17, 316C  TO  17, 3225  1445 


16,  2576  TO  16,2646 
16,2647  TO  16,2717 
16,2720  TO  1 6 ,2757 
16,2760  TO  16,3030 


16  ,3031 
1 6 , 3G  7 1 
16,3125 
16,3176 


TO  16,30  70 
TO  16,3124 
TO  16,  3175 
TO  16  ,3254 


16,  3255  TO  16,3336 
16  ,3337  TO  16,3379 
1 6,3374  TO  16,3446 
16,3447  TO  16,3515 


141  5 17  ,3226 

1416  17,3277 

1417  17,3304 

1418  17,3345 


1419  17,3417 

1420  17,3465 

1421  17,3533 

1422  .17,3576 

1423  17,3641 

1424  17, 3663 

1425  17,3725 

1426 


TC  17,3276  1446 
TO  17,  3303  1447 
TO  17,3344  1449 
TO  17  ,3416  1450 

TO  17, 3464  1451 
TO  17  ,3532  1452 
TO  17,3575  1453 
TO  17,  3640  1454 


TC  17,3662  1455 
TO  17,  3724  1456 
TO  17,3776  1457 
20,2000  43 


16,3516  TO 
16,  3534  T3 
16,3606  TO 
16,3644  TO 


16,3533  1427 
16,3605  1428 
16,3643  1429 
16  ,3715  1458 


20,200  1 TO 
20,2004  TO 
20, 2006  TO 
20,2067  TO 


20,  200  3 44 

20,2005  297 

20,2066  298 

20,2114  299 
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20, 
23  , 

2115 

,2143 

TO 

TO 

20, 

20, 

2142 
220  4 

1 395 

1396 

21  ,2  372 
21,  24  4 1 

TC 

TO 

21  , 
21  . 

,2440 

,2506 

891 

892 

20, 

,2205 

TC 

■'  , 

,2226 

1397 

21  ,2506 

TC 

21, 

, 2563 

893 

, 

2227 

TO 

20, 

2236 

1402 

21,2564 

TC 

21  ,2623 

894 

,2237 

TC 

20, 

,2307 

1403 

21,  2624 

TO 

2 1, 

2675 

895 

, 

,2310 

TO 

20, 

,2335 

14C4 

21  ,2676 

TC 

21 

,2734 

896 

23  , 

,2336 

TO 

20, 

2376 

1406 

21,  2735 

TO 

21 

,2754 

897 

20. 

,23  77 

TC 

' t 

,2451 

1407 

21,2755 

TO 

21, 

,3000 

898 

,m 

TO 

TO 

\ : 

2462  1408 

2476  1474 

3V588J 

TC 

TO 

si.#; 

1460 

1461 

21  , 

, 2477 

TO 

,2552 

1475 

21  ,3077 

TC 

2 1 , 

,3144 

1462 

' , 

2553 

TO 

■ 

2627 

1476 

21,  3145 

TO 

21 

,3217 

1463 

20, 

,2630 

TC 

,2677 

1477 

21,3220 

TO 

21, 

3230 

1464 

,2700 

TO 

20, 

, 2755 

1478 

21  ,3231 

TC 

21 

,3236 

1466 

' 

,2756 

TO 

20, 

300  1 

1479 

2 1,3  237 

TO 

21 . 

,3311 

1467 

20 

,3002 

TC 

2 , 

,3022 

1 480 

21  ,3312 

TC 

21, 

,3342 

1468 

, 

- 

.foil 

TO 

TC 

1 481 

1482 

21,3342 

2 1,  340 2 

TC 

TO 

21 

21, 

,3401 
> 3450 

1469 

1 4 7C 

2'', 

, 3135 

TO 

20, 

, °2  1 2 

1483 

21  ,3451 

TC 

21 

,3522 

1 471 

29  , 

,3213 

TO 

20, 

3233 

1484 

21,  3523 

TO 

21 

,3547 

1472 

20, 

,3234 

TC 

20,3277 

1485 

21  ,3550 

T C 

21, 

, 3557 

1474 

! . 

3300 

TO 

20, 

3350 

1486 

21  ,3  560 

TC 

21 

,3576 

14  96 

21  , 

,3351 

TO 

20, 

.3426 

1487 

1 . 5577 

TO 

21, 

. 3657 

1497 

2 ■, 

, 3427 

TO 

20, 

,3476 

1488 

21  ,3660 

TC 

21  , 

,3701 

1498 

il'MU 

TO 

TC 

21,  3 7C2 

2 2, 2 COO 

TO 

TO 

21 

22, 

,3703 
, 200  3 

31 

45 

20, 

, 3623 

TO 

' , 

, 3675 

1491 

22  ,2  004 

TC 

22  ,2053 

356 

23 

,3676 

TO 

20, 

37  46 

1492 

22,  2054 

TO 

22 

,2126 

3 57 

20, 

, 3747 

TO 

20. 

,3765 

1493 

22  ,2  127 

TC 

22, 

, 2 20  1 

358  ‘ 

’ , 

i 3766 

TO 

' , 

, 3776 

1494 

22,2202 

TC 

22. 

,2262 

359 

21 

,200C 

TC 

21  . 

,2305 

43 

22,  2263 

TO 

22, 

,2311 

3fcO 

21, 

,2006 

TO 

21. 

,20  34 

822 

22  ,2312 

TC 

22 

,2357 

361 

21  ■ 

,23  35 

TO 

21, 

2C  64 

827 

22,  226C 

TO 

22 

, 24  2 1 

362 

21 

■ 

TC 

21 

,2063 

883 

22  ,2422 

TC 

22, 

, 2 50  3 

363 

21, 

, 20  64 

TO 

21, 

, 2130 

884 

22  ,2  504 

TC 

22  ,2546 

364 

21  . 

,2131 

TC 

21, 

,2171 

885 

22,  2 c 47 

TO 

22, 

, 2625 

365 

21, 

,2172 

TO 

21 

,2231 

886 

22  ,2626 

TC 

22, 

,2653 

366 

21  , 

, 2232 

TO 

21, 

, 2273 

8 87 

\ >6  54 

TO 

22 

,2723 

367 

21 

,22  74 

TC 

21 

,2333 

888 

22,2724 

TO 

22, 

, 2743 

368 

21 

, 2334 

TO 

21, 

, 2371 

esc 

22  ,2  744 

TC 

22 

,3002 

369 
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22,3003  TO  22,3053 
22  ,3054  TO  22  ,3124 
22,3125  TO  22,3202 
22  ,3203  TO  22,3212 


370  23,  3134 

371  23,3216 

372  23,3245 

373  23,  3302 


TO  23,3215  1147 
TO  23,3244  1 148 
TO  23  ,3301  1238 
TO  23,3315  1239 


22,321?  TO  22,3241 
22,  3242  TO  22,  3300 
22,3301  TO  22,3355 
22,  3356  TO  22,3427 


374  23  ,3316 

707  23,3351 

708  23,3416 

709  23  ,3437 


TC  23,3350  1240 
TO  23,3415  1242 
TO  23,  3436  1243 
TO  23,3476  1244 


23, 3477  TO  23, 3530  1245 
23,3531  TO  23, 3534  1246 


22,  3540  TO  22,  3550  712 

22  ,3551  TO  22,36  11  71  4 


23,3535  TO  23  ,3550  1248 
23,3551  TO  23, 3612  1249 


22, 3612  TO  22,3646  715 

22, 3647  TO  22, 3662  821 

22  ,3663  TO  22  ,3710  1 148 
22,3711  TO  22,3744  1149 


22  ,3745  TO  22,3746  32 

23,2000  TO  23,202C  276 

23,  2021  TO  23,  2040  2 77 

23,2041  TO  23,2102  329 


23  ,3613  TO  23 ,3652  1250 
23,3653  TO  23,3675  1251 
23,3676  TO  23,  3722  1252 
23  ,3723  TC  23  ,3772  1253 

23,3773  1254 
23  ,3774  TO  23,3775  32 

24,2000  TO  24,2004  500 

?4,200  5 TO  2^,,  20  35  50 1 


23,  2103  TO  23,  2115 
23,2116  TO  23,2134 
23  ,2135  TO  23  ,2216 
23,  2217  TO  23,  2276 


493  24,2036 

526  24,2052 

527  24,2134 

528  24,2206 


TO  24,2051  503 

TO  24,2133  504 

TO  24,2205  505 

TO  24  ,2255  506 


23  ,2277 

TO 

23,2334 

529 

24,2256 

TO 

24,  2327 

507 

23,  2335 

TO 

23,2364 

690 

24  ,2330 

T 0 

24,2373 

5C8 

23,  2365 

TO 

23, 2400 

69  1 

24,2374 

TO 

24, 2453 

509 

23  ,2401 

TO 

23  ,2436 

692 

24,2454 

TO 

24,  2461 

510 

2 3,  24  37 

TO 

23,2446 

693 

24,2462 

TO 

24  ,2504 

511 

23  ,2447 

TO 

23,2452 

694 

24,  2505 

TO 

24, 2526 

512 

23,2453 

TO 

23,2500 

812 

24  ,2527 

TO 

24  ,2550 

5 13 

23,  2501 

TO 

23, 2506 

814 

24,2551 

TO 

24,2630 

514 

23  ,2507 

TC 

23  ,2526 

1091 

24,2631 

TO 

24,  2710 

515 

23, 2527 

TO 

23,2546 

1140 

24,271 1 

T 0 

24  ,2756 

515 

23,2547 

TO 

23,2630 

1 141 

24, 2757 

TO 

24, 2777 

517 

23,2631 

TO 

2 3 ,2  712 

1 142 

24,3000 

TO 

24,3060 

518 

23, 2713 

TO 

23,  2740 

1143 

24,3061 

TO 

24  ,3140 

5 19 

23  ,274  1 

TO 

23,2767 

1 1 44 

24, 3141 

TO 

24,  3217 

5 20 

23,  2770 

TO 

23,3051 

1145 

24 ,3220 

521 

23,  3052 

TO 

23,3133 

1146 

24,3221 

TO 

24,  3252 

522 
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24  ,3253  TG  24,3271  523 

24,3272  TO  24,2311  524 

24,33  12  TO  24,  3337  525 

24,3340  TC  24,3416  577 


25,  2fc7  5 TO  2 5,  27C2  558 

25,27c7  TC  25  ,2750  559 

25,  2751  TO  25,3023  56C 

25  ,3024  TC  25,  3057  561 


24,  3417  TO  24,3*33  5E5 

24,3434  TC  24,3441  586 

24,  3442  TO  24,3507  650 

24,  35  10  TO  24,  3571  651 


JS II:  m 

25  ,3  156  TC  25,3212  564 

25,3213  TO  25,3263  565 


24,3572  TC 
2 4,  36  34  TO 
24,3644  TO 
24,  3674  TO 


24  ,3633  652 

24,  3643  75P 

24,3673  1133 
24,3726  1134 


25,3264  TO 
25  ,3333  TC 
25,  340  1 TO 
25,3450  TC 


25,3332  566 

25  ,3400  567 

25,  3447  568 

25,3512  569 


TO  24,  374  2 
TO  24,3767 


24,3770  TO  24,3771  3? 

25,2300  TO  25,  200  2 41 


25,  3*  Ifc 


25,356 0 
25, 3614 


TO  25,3515  570 

TO  25,  3557  573 

TC  ?5  ,361  3 574 

TO  25,3632  575 


25,2003 
, 20  17 
2 5,2  ■’5  3 
2 5,  2 "62 


TC  25,2016  498 

TO  25,2052 
TC  25  ,2o 6 1 535 

TO  2 5 , 2 1 • '1  536 


25,3633  TC  25,3644  579 

26,3645  TC  25,3646  580 

25,  3647  TO  25,  3707  6lC 
26,3710  TC  25,3750  1135 


U’Mo 

26,  2124 
25,2162 


TC  25,  2117  537  25,  375  1 

TC  25,2123  538  25,3767 

TO  25,  2161  535  26  ,2f  00 

TO  25,2170  540  26,2clG 


TO  25,3766  1 136 

TO  25,3770  32 

TC  26  ,2007  53 

TO  26,  2c 2 3 54 


25,21  71 
25, 2232 
25  ,2243 
25, 2277 


TO  25,2231 
TO  25,  2242 
TC  25  ,2276 
TO  25,2313 


541 

542 

543 

544 


26  ,2024  TC  26,2073 
26.2C74  TO  26,2122 
26, 2123  TO  26,2124 
26,2125  TC  26  ,2147 


344 

345 

346 
481 


25,2314 
25,2334 
25,  2364 
25,2366 


TO  25,  2333 
TC  25,2363 
TO  25,  2365 
TQ  25  ,2422 


545 

546 

547 

548 


26,  2 15C  TO  26,2221  482 

26  ,2222  T C 26,  2263  483 


26,2264  TC  26,2273  484 

26, 2274  TO  26, 2276  485 


25,2423 
25,2433 
2 5 ,2452 
25,  2466 


TO  25,2432 
TO  25,  245  1 
TC  25,2465 
TO  2 5,  2 534 


26,2277 

26,2356 

26,2413 


TC  26  ,2354  486 

26,2355  487 

TO  26,2412  491 

TC  26  ,2417  492 


25,2535 

25, 2565 

25  ,2626 


TO  25,2563 
25,2564 
TO  25,  2626 


553 

554 

555 


TO  25  ,2674  557 


26,  2*20  TO  26,  2470  580 

26  ,2471  TC  26,2552  589 

26,2”3  TO  26,2633  590 

26,2634  TO  26,  2715  59  1 
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26,2716 

TO 

26,2775 

592 

27  ,3216 

TO 

27,3253 

26, 2776 

TO 

26,  3057 

593 

27,3254 

TO 

27,3265 

2 6 »3C6G 

TO 

26  ,3140 

594 

27,3266 

TO 

27,  3271 

26, 314  1 

TO 

26,3201 

5 95 

27,3272 

TC 

27,331 1 

26  ,2202 

TO 

26,3246 

59  6 

27, 3312 

TO 

27, 3332 

26,3247 

TO 

26  , 3323 

597 

27,3333 

TO 

27 ,3341 

26, 3324 

TO 

26, 3362 

598 

27,3342 

TO 

27  ,3371 

26  ,3363 

TC 

26  ,3443 

599 

27,3372 

TO 

27,  34  10 

26, 3444 

TO 

26,3447 

600 

2 7 ,341  1 

TO 

27  ,3446 

26,3450 

TO 

26, 3525 

60  1 

27, 3447 

TO 

27, 3515 

26,3526 

TO 

26  ,3605 

602 

27,3516 

TO 

27,  3556 

26, 3606 

TO 

26,3624 

603 

27,3557 

TO 

27  ,3626 

26  ,3625 

TO 

26,3672 

604 

27, 3627 

TO 

27, 3673 

26,3673 

TO 

26,3717 

605 

27  ,3574 

TO 

27  ,3716 

26, 3720 

TO 

26,  374? 

1131 

27,3717 

TO 

27,3735 

26  ,3743 

TO 

26  ,3744 

1132 

27,3736 

TO 

27,  3753 

26,  3745 

TO 

26, 3776 

1137 

27,3754 

TO 

27,3755 

27  ,2000 

TO 

27,2011 

38 

30, 2000 

TO 

3C, 2001 

27,2012 

TO 

27,2021 

39 

30,2002 

TO 

30  ,2053 

27,  20  2 2 

TO 

27,  2027 

45 

30,2054 

TO 

30  ,2060 

27,2030 

TO 

27,2031 

47 

30,206  1 

TO 

30,  2126 

27,  2032 

TO 

27,2105 

489 

3G  ,2127 

T 0 

3 G ,2  2 03 

27,2106 

TO 

27, 2157 

490 

30, 2204 

TO 

30, 2262 

27,2160 

TO 

27,2177 

4 9 1 

30  ,2263 

TO 

30,2306 

27,  2200 

736 

30,2307 

TO 

30  ,2357 

27  ,2201 

TO 

27 ,224*' 

73  7 

30 , 2 36C 

TO 

30, 2441 

27 ,2246 

TO 

27,2325 

751 

30  ,2442 

TO 

30  ,2523 

27, 2326 

TO 

27,  2406 

752 

30,2524 

TO 

3(  ,2605 

27,2407 

TO 

27  ,2412 

753 

30,2606 

TO 

30, 2667 

27,  2413 

TO 

27, 2446 

755 

30 , 267C 

TO 

30,2751 

2 7 ,2447 

TO 

27,2530 

757 

30, 2752 

TO 

30, 3000 

2 7 , 25  3 1 

TO 

27 , 2 534 

758 

30  ,3001 

TO 

30  ,3015 

27, 2535 

TO 

27, 2560 

759 

30,3016 

TO 

30,3063 

27  ,2561 

TO 

27,2634 

750 

30 , 3064 

TO 

3C  , 3 1 1 5 

27,  2635 

TO 

27,2705 

761 

30 ,3116 

TO 

30,3145 

27,2706 

TO 

27,2743 

762 

30, 3146 

TO 

30,3176 

27  ,2744 

TO 

27  ,3025 

753 

30  ,3177 

TO 

30,3241 

27,  30  26 

TO 

27,  31(  7 

764 

30,3242 

TO 

30  ,3307 

27  ,3110 

TO 

27 ,31 71 

765 

30,3310 

TO 

30, 331  1 

27,3172 

TO 

27,3215 

766 

30  ,3312 

TO 

30  ,3317 

1730 

PAGE 

767 

768 

770 

842 

843 

8 47 

1260 

1261 

1263 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

33 

39 

608 

609 

829 

830 

831 

832 

836 

837 

8 38 

839 

840 

841 

842 

8 48 

849 

90  1 

902 

903 

904 

905 

906 

907 
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' » 

3( 

TO 

TC 

90  fl 
909 

3C  , 

, 3424 

TO 

30. 

,3466 

91C 

31  ■ 

,3467 

T 0 

3D, 

, 35  16 

911 

3 

,3517 

TC 

30 

,3563 

912 

3 , 

3564 

TO 

30, 

, 3605 

913 

3 1 . 

,3606 

TC 

1 

-3655 

9 1 4 

30, 

, 3656 

TO 

30. 

,3712 

915 

31, 

37  13 

TO 

30, 

- 3744 

916 

3 n 

,3745 

TC 

30. 

,376 

9 1 7 

30, 

, 3761 

TO 

30, 

, 3762 

34 

3 1 , 

,2100 

TO 

31, 

- 200  1 

39 

31, 

, 2002 

TO 

31  , 

,2006 

40 

3 1, 

2007 

TO 

31, 

, 2056 

606 

31 

,2057 

TQ 

31 

,2140 

607 

31, 

, 2141 

TO 

31 

,2143 

60  8 

3 1 , 

,2144 

TO 

31, 

221  1 

779 

31 

,220  2 

TC 

31 

,2240 

780 

31, 

224  1 

TO 

31, 

, 2 304 

781 

31  , 

,2305 

TO 

31, 

i 2353 

782 

31, 

r 2351 

TO 

31  ■ 

,2360 

783 

31, 

2361 

TO 

31, 

. 2375 

784 

31 

,2376 

TC 

31 

,2423 

785 

31. 

, 2424 

TO 

2 1, 

, 2460 

786 

31  • 

,2461 

TO 

31, 

2514 

7e7 

31, 

,2515 

TO 

31 

,2560 

788 

3 1,  2561 

TO 

31,  2635 

789 

31 

,2636 

TC 

31 

,2662 

790 

31. 

, 2663 

TO 

2 l 

,2734 

751 

3 1 

• 

TC 

31, 

, 2762 

792 

31 

,2763 

TC 

31 

,3042 

7 93 

3 1, 

, 30  4 3 

TO 

31, 

,3113 

754 

3 1 . 

,3114 

TC 

31 

,3163 

795 

31. 

, 31  64 

TO 

31 

, 32  7 3 

796 

31, 

, 3224 

TO 

31,  3274 

797 

31 

. ■ 7i 

TC 

31 

,3333 

798 

31, 

, 3334 

TO 

21, 

, 3401 

799 

31 

,3412 

TO 

31, 

, 3412 

800 

31 

, 3413 

TO 

31 

,3422 

815 

31, 

, 3423 

TO 

31, 

, 347  1 

816 

OCCUPIED  LC CAT  IONS  PAGE 


31  ,3472 

1C 

31  ,3537 

817 

3 1,  3 5 4C 

TO 

31,  3607 

818 

31  ,3610 

TC 

31  ,3651 

819 

31, 3C52 

TO 

31 ,3665 

820 

3 1 ,3666 

TC 

31,  3672 

821 

31  ,3  673 

TC 

31 ,3674 

34 

32,  200C 

40 

32  ,2001 

TC 

32,2004 

41 

32, 2005 

TO 

32  ,2010 

213 

32,2011 

TO 

32,  2063 

214 

32  ,2  064 

TC 

32  ,2137 

215 

32,  2 140 

TO 

32,2216 

216 

32  ,2217 

TC 

32,  226  1 

582 

32,2262 

t r 

32,2343 

5 83 

32,  2344 

TO 

32,  2406 

584 

32  ,2407 

TC 

32  ,2413 

743 

32,2420 

32  ,2421 

TC 

32, 2456 

77  1 

3?  ,2457 

TC 

32  ,2531 

772 

32,  2532 

TO 

32,  2576 

773 

32  ,2577 

T C 

32,2651 

774 

32,  2652 

TO 

32  ,2706 

775 

32,2707 

TO 

32,  27  13 

776 

32  ,2714 

TC 

32  ,2726 

800 

32,  2727 

TO 

32,  2761 

80 1 

32  ,2762 

TC 

32,  30  14 

80  2 

3 2 , 3 C 15 

TC 

32 ,3061 

8 03 

32,  3062 

TO 

32,  3133 

804 

32  ,3134 

TC 

32  ,3205 

805 

32,  ? 2C 6 

TO 

32,3254 

806 

32  ,3255 

TC 

32,  3305 

807 

32  ,3306 

TC 

32  ,3350 

808 

32,  335  1 

TO 

32,  3416 

8C9 

32  ,3417 

TC 

32,3475 

R 10 

32, 3416 

TO 

32,3524 

811 

32,3525 

TO 

32, 3526 

8 12 

32  ,3527 

TC 

32  ,3550 

824 

. 

TO 

32,  3632 

825 

32  ,3633 

TC 

32, 37uO 

826 

32 , 37C1 

TC 

32,3713 

82  7 
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32  ,37  14 

TO 

32,3732 

828 

34,  2000 

TO 

34,2027 

41 

32,3733 

TO 

32  ,3734 

34 

34  ,2030 

TO 

34 ,2157 

42 

33,  2000 

TO 

33,  2001 

39 

34,2060 

TO 

34,2065 

614 

33  ,2002 

TO 

33 ,2014 

42 

34, 2066 

TO 

34,  2136 

6 1 5 

33,  2015 

TO 

33,2016 

43 

34,21 37 

TO 

34,2175 

630 

33,2017 

TO 

33,2022 

45 

34,  2176 

TO 

34, 2257 

631 

33  ,2023 

TO 

33  ,2030 

4 5 

34,2260 

TO 

34,2341 

632 

33,  2031 

TO 

33,  2036 

848 

34,2342 

TO 

34  ,2423 

633 

33  ,2037 

TO 

33,2043 

351 

34,2424 

TO 

34,  2505 

6 34 

33,  2044 

TO 

33,2105 

852 

34  ,2506 

TO 

34,2567 

635 

33,  2106 

TO 

33,2156 

853 

34,2570 

TO 

34,2651 

636 

33  ,2157 

TO 

33  ,2220 

854 

34,2652 

TO 

34,  2733 

63  7 

33, 2221 

TO 

33,2274 

855 

34,2734 

TO 

34  ,3015 

638 

33  ,2275 

TO 

33,2342 

856 

34, 30 1 6 

TO 

34, 3075 

639 

33,2343 

TO 

33,2412 

857 

34  ,3076 

TO 

34,3131 

640 

33, 2413 

TO 

33,  2454 

858 

34,3132 

TO 

34,3141 

641 

33  ,2455 

TC 

33  ,2526 

859 

34,3142 

TO 

34,  3157 

642 

33, 2527 

TO 

33,257] 

860 

34,3160 

TO 

34  ,3177 

643 

33,2572 

TO 

33,2641 

861 

34, 3200 

TO 

34, 3212 

644 

33  ,2642 

TO 

33  ,2707 

852 

34,3213 

TO 

34,3264 

645 

33,  2710 

TO 

33,  2754 

863 

34,3265 

TO 

34  ,3346 

646 

33  ,2755 

TO 

33,3025 

854 

34, 3347 

TO 

34,  3350 

647 

33,  3026 

TO 

33,3100 

865 

34  ,3351 

TO 

34 ,3414 

777 

33, 3101 

TO 

33, 3146 

866 

34,3415 

TO 

34, 3425 

778 

33,3147 

TO 

33  ,3214 

957 

34,3426 

TO 

34,3454 

832 

33, 3215 

TO 

33,3255 

868 

34,3455 

TO 

34  ,3524 

834 

33  ,3256 

TO 

33,3330 

869 

34, 3525 

TO 

34, 3535 

835 

33,3331 

TO 

33  ,3401 

870 

34  ,3536 

TO 

34,3543 

843 

33,  340  2 

TO 

33, 3443 

871 

34,3544 

TO 

34,3605 

845 

33  ,3444 

TO 

33  ,3501 

872 

34,3606 

TO 

34,  3660 

846 

33, 3502 

TO 

33,3542 

873 

34,3661 

TO 

34  ,3710 

850 

33,3543 

Til 

33,3602 

874 

34,  3711 

TO 

34,3742 

851 

33  ,3603 

TO 

33,3636 

875 

34,3743 

TO 

34  ,3755 

879 

33, 3637 

TO 

33,  3666 

876 

34,3756 

TO 

34  ,3773 

880 

33  ,3667 

TO 

33,3672 

877 

34, 3774 

TO 

34,  3775 

34 

33,  3673 

TO 

33,3677 

880 

35  ,2000 

TCI 

35  ,2021 

612 

33,3700 

TO 

33,3731 

88  1 

35,  2022 

TO 

35, 2033 

613 

33,3732 

TO 

3 3 ,3755 

882 

35,20  34 

TO 

35,2073 

6 19 

33,  3756 

TO 

33, 3765 

883 

35,2074 

TO 

35  ,2155 

620 

33  ,3766 

TO 

33,3767 

34 

35,  2 1 56 

TO 

35, 2222 

621 

,<\£>  : 
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35,2223  TC  35,2301  625 

35,  2302  TO  35,  2353  626 

3 6,235a  TC  35  ,2376  627 

35,  2375  TO  35,2616  62  B 
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36  ,260  2 TC  36,265  I 726 
36,2652  TC  36,2521  725 

36,  2522  TO  36,  2565  726 

36,2566  TC  36,2567  727 


35,  2655 


TO  35,  26 ?6  620 

TC  35 ,2656  668 

TO  ’5,  2* 


35 ,2510 


35,2567  657 


36, 2 c 7 C 
36,2635 
36  ,2675 
36, 2766 


TO  36,2636  728 

TO  36,2676  729 

TC  36  ,2763  730 

TO  36,  3006  731 


35,  2570  TO 
35,  2663  TO 
35,2702  TC 
35,  2762  TO 


35,2662  658 

35,  2791  661 

35,2761  662 

35,3063  663 


36,3007  TC 
36,  ?C  66  TO 
36,  3 120  TO 
36  ,3  132  TC 


36,3053  732 

36,3117  733 

36,3131  736 

36  ,3165  735 


35,3066 
35,3126 
35,  3210 
) 5 . 3;  1 2 


TO 

TC 


35,  3125  666  36,  3 166 

35 , 3297  665  36  ,3170 

35,  3211  666  36,3235 

35  ,3223  667  36,  3306 


TO  36,3167  739 

TC  36,3236  760 

TC  36,3305  761 

TO  36,  335  1 762 


35,  3226  TO  35,3301  668 

35,3302  TC  35,  3316  669 

35  ,33  15  TC  35,3357  670 

35,  3360  TH  35,  3366  671 


3b  ,3  352  TC  36  ,3610  763 

36,  36  11  TO  36,3665  766 

36,3666  TO  36,3516  765 

36 ,3515  TC  36  ,3562  766 


35,3365  TO 
35,  3660  TO 
35,3506  TO 
35  ,3523  TC 


35,3637  672 

35,3505  673 

35,  3522  676 

35,3567  675 


36,3563  TO  36,3636  767 

36  ,3637  TC  36,3710  768 

36,3711  TO  36,3755  769 

36,3  756  TO  36,  3757  36 


35,3570  TO 
35,3611  TO 
35,  3621  TO 
35,  3660  TO 


35,  36  1 C 
35,  3620 
35,3637 
35,  3663 


676 

677 

678 


37  ,2037 
37,2120 


TC  37  ,2001  65 

TO  37,2036  378 

TC  37, 2117  379 

TO  37,2171  380 


35  ,3666  TO 
35,  371  5 TO 
35,3766  TO 
36,2000  TC 


35  ,3716  727 

35,3763  736 

35,  3765  35 

36,2021  38 


37,  2 172  TO 
37  ,2252  TC 
37,  2275  TO 
37  ,2367  TO 


37,  2251  381 

37,2276  382 

37,2366  383 

37,2600  386 


36,  2022  TO  36,  2023  60 

36,2o26  TC  36,2065  7l7 

36,2066  TO  36,2112  71  8 

36,2113  TO  36,2151  719 


37,2601  TC  37,2657  385 

37,  2660  TO  37,  2677  386 

37  ,2500  TC  37,2535  388 

37,2536  TO  37,2576  389 


36,2152  TC  36,2277  720 

36,  2230  Tn  36,  2776  721 

36,2775  TO  36,2361  722 

36,2362  TO  36,2601  723 


37,2577  TO  37,2656  390 

37,2657  TC  37  ,2736  391 

37,27  37  TO  37,  3006  352 

37,3005  TC  37,3057  393 
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37, 3060 

TO 

37,3112 

396 

60  ,3661 

TC 

60,3672 

656 

37  ,3113 

TO 

37,3136 

50  1 

60, 3673 

TO 

60, 3515 

656 

37,3137 

TO 

37,3220 

502 

60,3516 

TO 

60 ,3523 

657 

37,3221 

TO 

37,  3261 

50  3 

60,3521 

TO 

60,3566 

658 

37,3262 

TO 

37,3273 

698 

60 ,3565 

TO 

60,  3566 

666 

37,  3276 

TO 

37,3352 

699 

60  ,3567 

TC 

63  ,3573 

665 

37,3353 

TO 

37,3636 

700 

60, 3576 

TO 

60, 3660 

666 

37,3635 

TO 

37  ,3512 

701 

60 ,3661 

TO 

60,3662 

667 

37, 3513 

TO 

37,  3567 

702 

60,3663 

TO 

60  ,3710 

678 

37  ,3550 

TO 

37 ,3570 

877 

60,3711 

TO 

60 ,3733 

679 

37, 3571 

TO 

37,3632 

878 

60  ,3736 

TO 

60  ,3761 

698 

37, 3633 

TO 

37, 3653 

879 

60,3762 

TO 

60,3763 

36 

37,3656 

TO 

37  ,3712 

1326 

6 1 , 2000 

TO 

6 1,  2017 

306 

37,  3713 

TO 

37,3766 

1325 

61  ,2920 

TO 

61  ,2056 

612 

37  ,3767 

TO 

37 , 377  2 

1326 

6 1,  2057 

TO 

61 , 2 1 36 

613 

37,3773 

TO 

37,3776 

36 

61  ,2135 

TO 

61,2207 

616 

An  . pn no 

60,2016 

TO 

6 C ,2056 

305 

61,2266 

TO 

61,  231  1 

6 1 6 

60, 2057 

TO 

6C, 2130 

603 

6 1 ,2312 

TC 

61  ,2367 

617 

60,2131 

TO 

60, 2 176 

60  6 

61,  2370 

TO 

61, 2601 

61  8 

60,2177 

TO 

60  ,2260 

60  5 

61  ,2602 

TO 

61, 2657 

620 

60, 2261 

TO 

60, 2331 

606 

61,2660 

TO 

61  ,2526 

621 

6 0 ,2332 

TO 

6C ,2606 

607 

61,2525 

TO 

6 1,  2577 

622 

60,  2605 

TO 

6C , 265  5 

608 

61  ,2600 

TO 

61,2666 

623 

60,2656 

TO 

60,2523 

609 

61,  2667 

TO 

61,  2710 

632 

60,2526 

TO 

60  ,2577 

610 

61,2711 

TO 

61, 2757 

633 

60,2600 

TO 

60,2603 

611 

61 ,2760 

TO 

61  ,3036 

636 

60  ,2606 

TO 

60 ,2636 

626 

61,  3037 

TO 

61,3111 

635 

60,2637 

TO 

_ _ 

T n 

. 

,,, 

60 , 2716 

TO 

60, 2757 

626 

61,3166 

TO 

61,3236 

637 

60,2760 

TO 

60  ,3025 

627 

61,3235 

TO 

6 1,  3301 

638 

60, 3026 

TO 

60,3066 

63  1 

61  ,3302 

TO 

61  ,3327 

665 

60  ,3065 

TO 

60,3117 

639 

61,  3330 

TO 

61 , 3601 

666 

60,3120 

TO 

60 ,3172 

660 

61  ,3602 

TO 

6 1 ,3626 

667 

60,3173 

TO 

6G , 3236 

661 

61,3625 

TO 

61  ,3636 

668 

60  ,3235 

TO 

60 ,3305 

66  9 

61,3635 

TO 

6 1,  3666 

651 

60, 3306 

TO 

60,3336 

650 

61  ,3667 

652 

60,3337 

TO 

6? , 3352 

65  1 

61,  3670 

TO 

61, 3502 

656 

60,3353 

TO 

60  ,36  15 

652 

61,3503 

TO 

6 1, 3567 

655 

60,  3616 

TO 

60,3660 

653 

61  ,3550 

TO 

61  ,3555 

656 
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41 ,3556 

TO 

4 1,  3633 

461 

43,  2046 

TO 

43,2115 

269 

41,3634 

TC 

41 ,3652 

462 

43 ,2  116 

TC 

43,2125 

270 

41,  3653 

TO 

4 1,  3720 

475 

^3,2 126 

TC 

43  ,2161 

271 

4 1 ,3721 

TC 

4 1 ,3765 

476 

43,  2 162 

TO 

43,  2176 

272 

41, 3766 

TO 

4 1,3774 

477 

43  ,2  177 

TT 

43  ,2204 

273 

41,3775 

TO 

41,  3776 

36 

43,  2205 

TO 

43,2234 

2 74 

42  ,2noo 

TC 

42  ,2001 

47 

43,2235 

TO 

43,  2300 

275 

42,  2002 

TO 

42,  2034 

280 

43  ,2301 

TC 

43  ,2325 

276 

42,2035 

TO 

42,2053 

287 

4 3,2c  26 

TO 

43,  233fc 

277 

42,  20  54 

TO 

42  ,2064 

2 92 

43  ,2337 

T C 

43,2367 

278 

42,2065 

TO 

42,  2100 

293 

4 3,  237C 

TO 

43,2407 

279 

42  ,21 ol 

TC 

42  ,2137 

309 

4 3,  24  10 

TO 

43, 2412 

280 

42, 2140 

TO 

42,  2205 

310 

43  ,2413 

TC 

43  ,2455 

281 

42,2206 

TC 

42,  2241 

311 

43,  2456 

TO 

43,2526 

282 

42,2242 

TC 

42  ,2266 

312 

43  ,2527 

TC 

43,  260  1 

283 

42,  2267 

TO 

42,  2317 

31  3 

43,2602 

TC 

43  ,2645 

2 84 

42  ,2320 

TO 

42  ,2372 

3 14 

43,  2646 

TO 

43,  2674 

285 

42,  2373 

TO 

42 , 24  30 

315 

43  ,2675 

TC 

43  ,2732 

286 

42,2431 

TC 

42,  2470 

316 

43,2733 

2 87 

42  ,2471 

TC 

42  ,2553 

317 

43,2734 

TO 

43, 275  1 

288 

mm 

TO 

42,  2633 

ill, 

43  ,2752 

TC 

43  ,277  5 

2 89 

TO 

42,27  10 

43,  2776 

TC) 

43,  3C03 

290 

42, 2711 

TO 

42  ,2772 

320 

43  ,3004 

TC 

43,3012 

291 

42, 2773 

TO 

42,  3054 

321 

43,  3013 

TO 

43,3033 

2 92 

4 2 ,3055 

TC 

42  ,3136 

322 

43,3034 

TO 

43,  3043 

293 

42, 3137 

TO 

42,  2213 

323 

43  ,3  044 

TC 

43  ,3052 

294 

42,3214 

TO 

42,  3235 

324 

43,  3C  6 3 

TO 

43,3112 

295 

42,3236 

TC 

42 ,3306 

428 

43  ,3113 

TC 

43, 3127 

296 

mki 

TO 

TO 

An 

429 

430 

al'lll 

TC 

TO 

43,3134 
43,  3174 

297 

302 

42, 3443 

TO 

42,3457 

431 

43  ,3175 

TC 

43  ,3225 

303 

42  ,3460 

TC 

42,  354  l 

442 

43,  3226 

TO 

43,3230 

3 04 

42,3542 

TC 

42 ,3612 

443 

43  ,3231 

TC 

43,  3267 

1275 

42,  3613 

444 

43  ,3270 

TC 

, 

1276 

42,3614 

494 

4 3,  1336 

TO 

43,  341  1 

1277 

42, 3615 

TO 

42,3676 

495 

43  ,3412 

TC 

43,3471 

1278 

42, 3677 

TO 

42,  3760 

496 

43,  3472 

TO 

43,3534 

1279 

42  ,3761 

TC 

42  ,3775 

497 

43,3  535 

TO 

43,  3613 

1280 

4 2 t 1776 

36 

43  ,3614 

TC 

43  ,3672 

1291 

43,2000 

TO 

4 3,  20  4 5 

268 

43,  3673 

TO 

43,3722 

1282 
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OCCUPIED  LOCATIONS  D A GF  OCCUPIED  LOCATIONS  PAGE 

43  ,3723  TO  43  ,3735  1376 
43,  3736  TO  43,  3737  36 


3,R:  ASSEMBLE  REVISION  56  OF  AGO  PRCGRAR  ZERLINA  BY  ZOROASTER 

THE  SUBROUTINES  IN  THIS  RRCGRAR  ARE  AS  FOLLOUS: 


ZERASF  . C3« 
ZFRLAIO  . OC  1 
7LEMF20S.OC1 
LFMP30S  . 1 C 5 
K ISS  ING  .064 
ZF^Y  .049 
LEMP50S  . 124 
SKIPPER  .121 


ZLMDAP  .001 


r h F ASSEMBLY  WAS  GOOC  AN  0 M ANU  FACTUR ABL E . NO  LINES  WERE  CUSSED. 

"ZE  P LI  NA.  R056  " SUCCESSFULLY  STORED. 


9 I N AR  Y RECORDS  FOR 


9:  12  OCT  . 21,  1970 
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